0 ON ERROR GOTO 32011
32001 *KEY10*DISC|MCH."MENU"|M
32002 PROCinitialise
32003 MODE7:VDU23;11,0;0;0;0
32004 *FX229,1
32005 J%=0:N%=0
32006 PROCframe
32007 *FX15,1
32008 A=GET AND223:IF A<65ORA>64+NP THEN 32008
32009 *FX229,0
32010 A=A-64:L%=0:PAGE=&1900:CHAIN B$(A)
32011 *FX4,0
32012 *FX12,0
32013 MODE7:END
32014 DEF PROCframe
32015 PRINT:D=3
32016 PRINT C$TAB(20-INT(LEN(TL$)/2))TL$:PRINT C$TAB(20-INT(LEN(TL$)/2))TL$
32017 PRINT TAB(0,D+20)CHR$(ASC(R$)+16)STRING$(39,CHR$163);
32018 PRINT TAB(1,D+1)CHR$141;"†To run a program press a letter A-"CHR$(64+NP):PRINT TAB(1,D+2)CHR$141;"†To run a program press a letter A-"CHR$(64+NP)
32019 FOR K=1TONP:PRINT TAB(20*((K-1)MOD2),D+2*((K-1)DIV2)+5)CHR$141"‚"CHR$(64+K);""A$(K):PRINT TAB(20*((K-1)MOD2),D+2*((K-1)DIV2)+6)CHR$141"‚"CHR$(64+K)""A$(K):NEXT
32020 *FX15,1
32021 ENDPROC
32022 DEF PROCinitialise:*TV255,1
32023 *FX4,1
32024 *TV0,1
32025 R$=CHR$129:REM*  Colour of frame
32026 W$=CHR$131:C$=R$+CHR$157+W$+CHR$141
32027 TL$="BBC BUGGY"
32028 NP=13
32029 DIM A$(NP),B$(NP):FOR K=1TONP:READ A$(K):NEXT:FOR K=1TONP:READ B$(K):NEXT
32030 DATA Test,Switch,Memory Switch,Route Planner,Recorder,Snail,Explore For Wall,Explore For Obj,Bar Code Route Planner,Tin Pan Alley,Man v Buggy,Sun Seeker,Line Follower
32031 DATA test,switch,mswitch,rplan,recordr,snail,exwall,exobj,barplan,alley,mvb,sunseek,line
32032 ENDPROC