0005 ! Written by Tom Cadwallader; PPC (3502), CHHU [70], HPX <46>, MUNCH {1}
0010 CALL DATEPORT @ SUB DATEPORT ! Edits IRAM file date/time ! Version 09/10/87
0020 D$=DATE$ @ T$=TIME$ @ P$=":PORT(0.00)" ! Default values
0030 D$=D$[4,8]&"/"&D$[1,2] ! Formats date
0040 T$=T$[1,5] ! Formats time
0050 INPUT "File is in ",P$;P$ ! Defaults to :PORT(0.00)
0060 INPUT "File Date: ",D$;D$ ! Defaults to current date
0070 INPUT "File Time: ",T$;T$ ! Defaults to current 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 FOR C=1 TO INF @ F$=RTRIM$(CAT$(C,P$)[1,8]) @ IF F$="" THEN 130 ! cat:port
0120 POKE DTH$(HTD(ADDR$(F$&P$))+22),C$ @ NEXT C ! Edited header
0130 END SUB ! All files in a given port now have the same date/time.