10 REM >DirctC1
   20 REM by Steven Flintham
   30 REM
   40 REM Sunday 10th January 1992
   50 :
   60 MODE 7
   70 VDU 23;8202;0;0;0;
   80 PROCdisable
   90 PROCinit
  100 REPEAT
  110 choice%=FNmain_menu
  120 UNTIL choice%=6
  130 MODE 7
  140 PROCenable
  150 END
  160 :
  170 DEF PROCdisable
  180 *FX229,1
  190 *FX4,2
  200 ENDPROC
  210 :
  220 DEF PROCenable
  230 *FX229,0
  240 *FX4,0
  250 ENDPROC
  260 :
  270 DEF PROCinit
  280 ON ERROR MODE 7:REPORT:PRINT " at line ";ERL:PROCenable:END
  290 ENDPROC
  300 :
  310 DEF FNmain_menu
  320 REM Display the main menu and accept the user's input
  330 LOCAL key$
  340 PROCtitle
  350 PRINTTAB(15,4);"Main Menu"
  360 PRINTTAB(0,6);CHR$131;"A";CHR$135;"Menu option 1"
  370 PRINTTAB(0,7);CHR$131;"B";CHR$135;"Menu option 2"
  380 PRINTTAB(0,8);CHR$131;"C";CHR$135;"Menu option 3"
  390 PRINTTAB(0,9);CHR$131;"D";CHR$135;"Menu option 4"
  400 PRINTTAB(0,10);CHR$131;"E";CHR$135;"Menu option 5"
  410 PRINTTAB(0,11);CHR$131;"F";CHR$135;"Quit this program"
  420 PRINT'"Your choice?";CHR$131;
  430 REPEAT
  440 *FX21
  450 key$=CHR$(GET AND &DF)
  460 UNTIL key$>="A" AND key$<="F"
  470 PRINT key$
  480 =ASC(key$)-64
  490 :
  500 DEF PROCtitle
  510 REM Display the program title at the top of the screen
  520 VDU 26,12
  530 PRINTTAB(7,0);CHR$141;CHR$132;CHR$157;CHR$131;"Menu Demonstration  ";CHR$156
  540 PRINTTAB(7,1);CHR$141;CHR$132;CHR$157;CHR$131;"Menu Demonstration  ";CHR$156
  550 PRINTTAB(7,2);CHR$131;"(C) Steven Flintham 1993"
  560 ENDPROC