Appears on
Cassette to accompany the February 1983 issue of Synchro-Sette.
Source Code
1 POKE 16418,0 2 LET B$="% \@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@% " 4 PRINT "% \;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;% " 5 FOR N=1 TO 22 6 PRINT B$ 7 NEXT N 8 PRINT "% \!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!% " 9 PRINT AT 1,5;"% %2%/%8%3% %P%R%O%G%R%A%M% %L%O%A%D%E%R% " 10 PRINT AT 3,5;" ADDITIO%N ";TAB 28;"1";AT 5,5;" SUBTRACTIO%N ";TAB 28;"2";AT 7,5;" WHITE-HOL%E ";TAB 28;"3";AT 9,5;" TAPESTR%Y ";TAB 28;"4";AT 11,5;" PAYROL%L ";TAB 28;"5";AT 13,5;" SUPERSCROL%L ";TAB 28;"6";AT 15,5;" INVERSCROL%L ";TAB 28;"7";AT 17,5;" BULLETI%N ";TAB 28;"8" 20 PRINT AT 22,5;" ENTER ONE OF ABOVE ";AT 22,5;"% %E%N%T%E%R% %O%N%E% %O%F% %A%B%O%V%E% " 100 LET A$=INKEY$ 110 IF A$="" OR CODE A$<29 OR CODE A$>37 THEN GOTO 20 120 GOTO VAL A$*1000 1000 LOAD "ADDITIO%N" 2000 LOAD "SUBTRACTIO%N" 3000 LOAD "WHITE-HOL%E" 4000 LOAD "TAPESTR%Y" 5000 LOAD "PAYROL%L" 6000 LOAD "SUPERSCROL%L" 7000 LOAD "INVERSCROL%L" 8000 LOAD "BULLETI%N" 9000 LOAD "" 9998 SAVE "LOADE%R" 9999 RUN