Appears on
Cassette to accompany the December 1982 issue of Synchro-Sette.
Source Code
1 REM Y% \.'\. :%KNOT $TAB \@@RND\: TAB \'.RNDTAN 2 FAST 3 RAND USR 16514 4 POKE 16418,0 5 PRINT AT 22,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % ";AT 2,1;"\: DECEMBER 1982 LOADER PROGRAM\ :" 6 PRINT AT 5,1;" SEASONS GREETING%S ";TAB 28;"%-% %1" 7 PRINT AT 7,1;" MILEAG%E ";TAB 28;"%-% %2" 8 PRINT AT 9,1;" CHAINSA%W ";TAB 28;"%-% %3" 9 PRINT AT 11,1;" FRENZ%Y ";TAB 28;"%-% %4" 10 PRINT AT 13,1;" INVENTOR%Y ";TAB 28;"%-% %5" 11 PRINT AT 15,1;" SPACE DOCKIN%G ";TAB 28;"%-% %6" 12 PRINT AT 17,1;" QUOT%E ";TAB 28;"%-% %7" 13 PRINT AT 19,1;" BULLETI%N ";TAB 28;"%-% %8" 14 SLOW 20 PRINT AT 22,6;"\: ENTER ONE OF ABOVE\ :";AT 22,6;"% %E%N%T%E%R% %O%N%E% %O%F% %A%B%O%V%E% " 30 LET A$=INKEY$ 40 IF A$="" THEN GOTO 20 50 IF CODE A$<28 OR CODE A$>37 THEN GOTO 20 60 FAST 70 CLS 80 SLOW 90 GOTO 100*VAL A$ 100 LOAD "SEASONS GREETING%S" 200 LOAD "MILEAG%E" 300 LOAD "CHAINSA%W" 400 LOAD "FRENZ%Y" 500 LOAD "INVENTOR%Y" 600 LOAD "SPACE DOCKIN%G" 700 LOAD "QUOT%E" 800 LOAD "BULLETI%N" 900 LOAD "" 9998 SAVE "LOADE%R" 9999 RUN