10000 REM LOAD MENU
10010 PRINT
10020 PRINT "LOAD MENU, QUIT, OR REPEAT (M,Q,R)? "
10030 GET A$:IF A$="" THEN 10030
10040 IF A$="R" THEN 100
10050 IF A$<>"Q" THEN 10100
10090 PRINT "[147]":END
10100 IF A$<>"M" THEN 10030
10110 OPEN 15,8,15,"R0:FILE MENU=FILE MENU"
10120 INPUT#15,EN,EM$,ET,ES:CLOSE15
10130 IF EN=63 THEN FI$="FILE MENU":GOTO 10160
10140 PRINT "ERROR - FILE MENU NOT FOUND"
10150 GOTO 10020
10160 POKE 646,0
10170 PRINT"[147]"CHR$(13)
10180 PRINT"LOAD"CHR$(34)+FI$+CHR$(34)",8"
10190 PRINT "RUN"
10200 POKE 646,1
10210 PRINT"LOADING "FI$
10220 POKE 646,0
10230 POKE 631,19
10240 POKE 632,17
10250 POKE 633,17
10260 POKE 634,13
10270 POKE 635,13
10280 POKE 198,5
10290 NEW