PROGRAM LISTING: 86-04/VSAVER.LST

10 REM VERSION SAVER
20 REM BY DONALD WAHL
30 REM (c) 1985, ANTIC PUBLISHING
31499 STOP 
31500 GRAPHICS 0
31510 CLR :DIM DATETIME$(14):? "INPUT DATE/TIME";:INPUT DATETIME$:POSITION 2,2:? "31575 REM ";DATETIME$
31520 POSITION 2,2:LIST 31570:POSITION 26,3:? "";
31530 KEYCODE=PEEK(93):IF KEYCODE<16 OR KEYCODE>25 THEN ? :? "BAD NAME":STOP 
31540 POKE 93,KEYCODE+1:IF KEYCODE=25 THEN POKE 93,16
31550 POSITION 2,4:? "CONT":POSITION 2,0:POKE 842,13:STOP 
31560 POKE 842,12
31570 SAVE "D:TESTPROG.VS0"
31580 STOP 
31590 GRAPHICS 0:POSITION 2,4:? 31499:FOR X=31500 TO 31600 STEP 10:? X:NEXT X:? 31575
31600 ? "POKE 842,12":POSITION 2,0:POKE 842,13:STOP