Source Code
5 POKE 16418,0
10 LET A$="LOGARITHM%S,GRAFI%T,GUESS IT,PAINT BRUS%H,MEASUREMENT CONVERSIO%N,TORPED%O,BABY SYNTEX%T,BULLETI%N,"
100 PRINT AT 2,3;"% %A%P%R%I%L%/%8%3% %L%O%A%D%E%R% %P%R%O%G%R%A%M% "
110 LET A=1
200 FOR N=1 TO 8
210 FOR I=A TO LEN A$
220 IF A$(I)="," THEN GOTO 300
230 NEXT I
240 NEXT N
250 GOTO 400
300 PRINT AT 3+2*N,5;A$(A TO I-1);TAB 29;"-";N;AT 3+2*N,1;"2K"
310 IF N>4 THEN PRINT AT 3+2*N,1;"16K"
320 LET A=I+1
330 GOTO 240
400 PRINT AT 22,11;"ENTER ONE";AT 22,11;"%E%N%T%E%R% %O%N%E"
410 LET B$=INKEY$
420 IF CODE B$=37 THEN LOAD ""
430 IF CODE B$<29 OR CODE B$>36 THEN GOTO 400
440 LET A=1
450 LET B=1
500 FOR N=A TO LEN A$
510 IF A$(N)="," THEN GOSUB 600
520 NEXT N
530 LET B=B+1
540 LET A=N+1
550 GOTO 500
600 IF B=VAL B$ THEN LOAD A$(A TO N-1)
610 GOTO 530
\n9998 SAVE "LOAD4/8%3"
\n9999 GOTO 1