49999 END
 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