June 1983 Loader
a 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,3;"\: JULY 1983 LOADER PROGRAM\ :"
6 PRINT AT 5,1;" %B%A%N%K% %S%H%O%T ";TAB 28;"%-% %1"
7 PRINT AT 7,1;" DEPOSIT MULTIPLIE%R ";TAB 28;"%-% %2"
8 PRINT AT 9,1;" MATH-HELPE%R ";TAB 28;"%-% %3"
9 PRINT AT 11,1;" NUMBER MASTE%R ";TAB 28;"%-% %4"
10 PRINT AT 13,1;" GRAN MARQUE%E ";TAB 28;"%-% %5"
11 PRINT AT 15,1;" TAPE FIL%E ";TAB 28;"%-% %6"
12 PRINT AT 17,1;" SUB-NINE%R ";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 "%B%A%N%K% %S%H%O%T"
200 LOAD "DEPOSIT MULTIPLIE%R"
300 LOAD "MATH-HELPE%R"
400 LOAD "NUMBER MASTE%R"
500 LOAD "GRAN MARQUE%E"
600 LOAD "TAPE FIL%E"
700 LOAD "SUB-NINE%R"
800 LOAD "BULLETI%N"
900 LOAD ""
9998 SAVE "LOAD6/8%3"
9999 RUN
People
No people associated with this content.