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
\n1000 LOAD "ADDITIO%N"
\n2000 LOAD "SUBTRACTIO%N"
\n3000 LOAD "WHITE-HOL%E"
\n4000 LOAD "TAPESTR%Y"
\n5000 LOAD "PAYROL%L"
\n6000 LOAD "SUPERSCROL%L"
\n7000 LOAD "INVERSCROL%L"
\n8000 LOAD "BULLETI%N"
\n9000 LOAD ""
\n9998 SAVE "LOADE%R"
\n9999 RUN
