Antic Magazine 1986 April/Antic_Magazine_1986_04_Antic.atr/vsaver.lst

File List | 2023-02-26 | 649b | 1 lines

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 ¢