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 ›