0005 ! Written by Tom Cadwallader; PPC (3502), CHHU [70], HPX <46>, MUNCH {1}
0010 CALL DATEFILE @ SUB DATEFILE ! Edits file date/time ! Version 09/10/87
0020 INPUT "File Name: ";F$ ! File to be edited
0025 IF UPRC$(F$)="KEYS" THEN F$="MYKEYS" @ RENAME KEYS TO F$ ! Edit 'keys' ok
0030 C$=PEEK$(ADDR$(F$),32)[23,32] ! Date/time from header
0040 D$=C$[8,8]&C$[7,7]&"/"&C$[6,6]&C$[5,5]&"/"&C$[10,10]&C$[9,9] ! Formats date
0050 T$=C$[4,4]&C$[3,3]&":"&C$[2,2]&C$[1,1] ! Formats time
0060 INPUT "File Date: ",D$;D$ ! Defaults to original date
0070 INPUT "File Time: ",T$;T$ ! Defaults to original time
0080 D$=D$[5,5]&D$[4,4]&D$[2,2]&D$[1,1]&D$[8,8]&D$[7,7] ! Reformats date
0090 T$=T$[5,5]&T$[4,4]&T$[2,2]&T$[1,1] ! Reformats time
0100 C$=T$&D$ ! Edited date/time
0110 POKE DTH$(HTD(ADDR$(F$))+22),C$ ! Edited header
0115 IF F$="MYKEYS" THEN RENAME F$ TO KEYS ! Restore 'keys' name
0120 END SUB ! The selected file now has an altered date/time.