September 1983 Loader

Gallery

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
1000 LOAD "BIG/CHAR EXA%M"
2000 LOAD "LABYRINT%H"
3000 LOAD "TOLLBOOT%H"
4000 LOAD "STOCK PROJECTO%R"
5000 LOAD "TT%D"
6000 LOAD "THWAR%T"
7000 LOAD "BULLETI%N"
9991 GOTO 9991
9998 SAVE "LOADE%R"
9999 RUN