home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol8n05.zip / SAVE.BAS < prev    next >
BASIC Source File  |  1989-02-06  |  602b  |  14 lines
  1.  49999 END
  2.  50000 TS$ = "      "               'number of times saved
  3.  50010 DS$ = "00-00-0000 00:00:00"  'Date & Time last saved
  4.  50020 VP! = VARPTR(TS$): TS! = VAL(TS$) + 1: GOSUB 50080
  5.  50030 FOR I=1 TO LEN(STR$(TS!)): POKE ZO!+I-1, ASC(MID$(STR$(TS!),I,1)): NEXT
  6.  50040 VP! = VARPTR(DS$): GOSUB 50080
  7.  50050 FOR I = 1 TO 10: POKE ZO! + I - 1, ASC(MID$(DATE$, I, 1)): NEXT
  8.  50060 FOR I = 1 TO 8: POKE ZO! + I + 10, ASC(MID$(TIME$, I, 1)): NEXT
  9.  50070 SAVE "PROG.BAS": RETURN
  10.  50080 ZO! = PEEK(VP! + 1) + 256 * PEEK(VP! + 2)
  11.  50090 IF ZO! > 32767 THEN ZO! = ZO! - 65536!
  12.  50100 RETURN
  13.  
  14.