Category : Files from Magazines
Archive   : VOL8N5.ZIP
Filename : SAVE.BAS
50000 TS$ = " " 'number of times saved
50010 DS$ = "00-00-0000 00:00:00" 'Date & Time last saved
50020 VP! = VARPTR(TS$): TS! = VAL(TS$) + 1: GOSUB 50080
50030 FOR I=1 TO LEN(STR$(TS!)): POKE ZO!+I-1, ASC(MID$(STR$(TS!),I,1)): NEXT
50040 VP! = VARPTR(DS$): GOSUB 50080
50050 FOR I = 1 TO 10: POKE ZO! + I - 1, ASC(MID$(DATE$, I, 1)): NEXT
50060 FOR I = 1 TO 8: POKE ZO! + I + 10, ASC(MID$(TIME$, I, 1)): NEXT
50070 SAVE "PROG.BAS": RETURN
50080 ZO! = PEEK(VP! + 1) + 256 * PEEK(VP! + 2)
50090 IF ZO! > 32767 THEN ZO! = ZO! - 65536!
50100 RETURN
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/