June 1983 Loader

Source Code

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