Source Code
100 FAST
110 POKE 16418,0
120 FOR N=1 TO 768
130 PRINT CHR$ 136;
140 NEXT N
150 PRINT AT 1,3;"% %L%O%A%D%E%R% %-% %S%E%P%T%E%M%B%E%R%/%1%9%8%3% "
160 PRINT AT 4,2;" BIG/CHAR EXA%M 2K ";TAB 29;1
170 PRINT AT 6,2;" LABYRINTH-%2 2K ";TAB 29;2
180 PRINT AT 8,2;" TOLLBOOT%H 16K ";TAB 29;3
190 PRINT AT 10,2;" STOCK PROJECTO%R 16K ";TAB 29;4
200 PRINT AT 12,2;" TT%D 16K ";TAB 29;5
210 PRINT AT 14,2;" THWAR%T 16K ";TAB 29;6
220 PRINT AT 16,2;" BULLETI%N 16K ";TAB 29;7
225 SLOW
230 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% "
240 LET A$=INKEY$
250 IF CODE A$<29 OR CODE A$>35 THEN GOTO 230
300 GOTO VAL A$*1000
\n1000 LOAD "BIG/CHAR EXA%M"
\n2000 LOAD "LABYRINT%H"
\n3000 LOAD "TOLLBOOT%H"
\n4000 LOAD "STOCK PROJECTO%R"
\n5000 LOAD "TT%D"
\n6000 LOAD "THWAR%T"
\n7000 LOAD "BULLETI%N"
\n9991 GOTO 9991
\n9998 SAVE "LOADE%R"
\n9999 RUN
