Posted: Sun Jan 4, 1987 9:19 PM PST Msg: HGIH-2513-2786 From: CHHU To: CHHU Subj: ROM GROUP <-- Tom [70]: PRGMS Before this BBS is shutdown and I lose contact, I will post the following utilities one more time. Do whatever you please with them. 1) DATEFILE (formerly DATETIME): 0010 CALL DATEFILE @ SUB DATEFILE ! Edits file date/time 0020 INPUT "File Name: ";F$ ! File to be edited 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 dat e 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 0120 END SUB ! 2) DATEPORT: 0001 ! DATEPORT - VERSION 861201 0002 ! - Tom Cadwallader [70] 0003 ! PPOKE or equivalent is required if IRAM contains private/secured files 0004 ! Written at the suggestion of John R. Baker [618] 0005 ! RTRIM$ added to line 100 at the suggestion of Mike Markov [3] 0010 CALL DATEPORT(":PORT(5)") @ SUB DATEPORT(P$) ! Edits IRAM file date/time 0020 D$=DATE$ @ T$=TIME$ ! Default values 0030 D$=D$[4,8]&"/"&D$[1,2] ! Formats date 0040 T$=T$[1,5] ! Formats time 0050 INPUT "File Date: ",D$;D$ ! Defaults to current date 0060 INPUT "File Time: ",T$;T$ ! Defaults to current time 0070 D$=D$[5,5]&D$[4,4]&D$[2,2]&D$[1,1]&D$[8,8]&D$[7,7] ! Reformats date 0080 T$=T$[5,5]&T$[4,4]&T$[2,2]&T$[1,1] ! Reformats time 0090 C$=T$&D$ ! Edited date/time 0100 FOR C=1 TO INF @ F$=RTRIM$(CAT$(C,P$)[1,8]) @ IF F$="" THEN 120 ! cat:port 0110 POKE DTH$(HTD(ADDR$(F$&P$))+22),C$ @ NEXT C ! Edited header 0120 END SUB ! All files in a given port now have the same date/time ================