10 TITLE$=CHR$(131)+"Main Menu"
   20 REM  [0x16]  [0x07]  [0x07] 
   30 REM"ƒ [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ƒMAIN MENU
   40 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ƒBy.....
   50 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ‚       Andrew ‚York.
  100 :
  110 MODE7:VDU23,1,0;0;0;0;:*FX4,1
  120 ONERROR VDU7:PROCerr:END
  130 VDU26:VDU6:FORK%=0TO23:*FX200,1
  140 PRINTCHR$(132)+CHR$(157)+CHR$(131)
  150 NEXT:VDU28,3,23,39,0:*FX12,8
  160 BY$="Select a program from the menu"
  170 BYy$="or press 'F0' for info."
  175 *KEY0 *|M
  180 PRINTTAB(10,2);CHR$(141);TITLE$
  190 PRINTTAB(10,3);CHR$(141);TITLE$
  200 PRINT:PRINT:C=13:ON ERROR PROCerr
  210 A=0:REPEAT:READ A$,B$,C$,D:*FX20
  220 PRINTCHR$(131);A$;". ";B$:*FX11,32
  230 A=A+1:UNTIL A=C:A=0:REPEAT:B=10
  240 PRINTTAB(0,20)BY$;:PRINT'BYy$:A=0
  250 DATAA,Simple Data Base,DBASE,1
  260 DATAB,Info file on Data Base,DBAINFO,2
  270 DATAC,DFS Disc Utility Program,BSY,1
  280 DATAD,A new font!,FONT,3
  290 DATAE,Teletext Editor,SCREDIT,1
  300 DATAF,Capitals Tester,CAPQUIZ,3
  310 DATAG,Times Table Tester,TABLES?,1
  320 DATAH,School Time Table Printer,SCHOPR,1
  330 DATAI,Time Simulator (DEMO),TIME,1
  340 DATAJ,Game Passwords,PassWo,4
  350 DATAK,Kids Jokes,JOKES,4
  360 DATAL,!Boot creator,CREBOO,1
  370 DATAM,A Picture,LOAD,1
  380 RESTORE:E$=GET$:A=0:REPEAT:READ A$,B$,C$,D
  390 A=A+1:IF E$=A$ THEN PROCrun
  391 IF E$="*" CHAIN"INFO"
  400 UNTIL A=C:GOTO380:END
  410 DEFPROCrun:REM *DRIVE0
  420 CLS:*FX15
  430 IF D=1 THEN PROCrunning:CHAIN C$
  440 IF D=2 THEN VDU22,0:VDU23,1,0;0;0;0;:VDU14:$&900="TYPE "+C$:X%=0:Y%=9:CLS:PRINT'" Shift Scrolls The Text."':*FX200,1
  450 IF D=2 THEN CALL&FFF7:VDU15:PROCspace:RUN
  460 IF D=3 THEN PROCrunning:PAGE=PAGE+&600:CHAIN C$
  470 IF D=4 THEN PROCcommand("KEY0*RUN "+C$+"|M"):PROCcommand("FX200,1"):PROCrunning:VDU21:PROCcommand("FX138,0,128"):END
  480 DEFPROCcommand(COMMAND$)
  490 $&900=COMMAND$:X%=0:Y%=9:CLS:CALL&FFF7:ENDPROC
  500 DEFPROCspace
  510 PRINT
  520 PRINT" Please press space to continue"
  530 REPEAT:Z$=GET$:UNTIL Z$=" ":ENDPROC
  540 DEFPROCrunning
  550 PRINT'" Loading program : ";:*FX210,0
  560 PRINT"'";C$;"'":*FX200,0
  570 PRINTTAB(0,22);CHR$(136);"Please wait";:VDU11
  580 ENDPROC
  590 DEFPROCerr:VDU6:*FX200,1
  600 CLS:VDU23,1,0;0;0;0;:*FX4,1
  610 PRINT:ONERROR OFF:VDU6
  620 REPORT:PRINT" at line ";ERL
  630 ON ERROR PROCerr
  640 PROCspace:RUN:ENDPROC