10 REM >SD1
   20 REM by Steven Flintham
   30 REM
   40 REM Saturday 8th May 1993
   50 :
   60 MODE 7
   70 VDU 23;8202;0;0;0;
   80 PROCdisable
   90 PROCinit
  100 REPEAT
  110 choice%=FNmenu
  120 UNTIL choice%=6
  130 MODE 7
  140 PROCenable
  150 END
  160 :
  170 DEF PROCdisable
  180 *FX229,1
  190 *FX4,1
  200 ENDPROC
  210 :
  220 DEF PROCenable
  230 *FX229
  240 *FX4
  250 ENDPROC
  260 :
  270 DEF PROCinit
  280 ON ERROR MODE 7:REPORT:PRINT " at line ";ERL:PROCenable:END
  290 ENDPROC
  300 :
  310 DEF FNmenu
  320 LOCAL choice%,key%
  330 PROCtitle
  340 PRINTTAB(3,4);"Option 1";TAB(35,4);"1"
  350 PRINTTAB(3,5);"Option 2";TAB(35,5);"2"
  360 PRINTTAB(3,6);"Option 3"
  370 PRINTTAB(3,7);"Option 4";TAB(35,7);"4"
  380 PRINTTAB(3,8);"Option 5"
  390 PRINTTAB(3,9);"Quit this program";TAB(35,9);"Q"
  400 PRINTTAB(0,11);"Use the cursor keys to move the bar and"'"press RETURN to select, or use the"'"appropriate key shortcut"
  410 choice%=1
  420 PRINTTAB(0,choice%+3);CHR$132;CHR$157;CHR$131;TAB(38,choice%+3);CHR$156;
  430 REPEAT
  440 REPEAT
  450 *FX21
  460 key%=GET
  470 UNTIL INSTR("124Qq"+CHR$(138)+CHR$(139)+CHR$(13),CHR$(key%))>0
  480 PRINTTAB(0,choice%+3);"   "
  490 IF key%=138 THEN IF choice%<6 THEN choice%=choice%+1
  500 IF key%=139 THEN IF choice%>1 THEN choice%=choice%-1
  510 IF key%>=ASC("a") AND key%<=ASC("z") THEN key%=key%-32
  520 IF key%=ASC("1") THEN choice%=1
  530 IF key%=ASC("2") THEN choice%=2
  540 IF key%=ASC("4") THEN choice%=4
  550 IF key%=ASC("Q") THEN choice%=6
  560 PRINTTAB(0,choice%+3);CHR$132;CHR$157;CHR$131;TAB(38,choice%+3);CHR$156;
  570 UNTIL key%=13
  580 =choice%
  590 :
  600 DEF PROCtitle
  610 VDU 26,12
  620 PRINTTAB(7,0);CHR$141;CHR$132;CHR$157;CHR$131;"Menu demonstration  ";CHR$156
  630 PRINTTAB(7,1);CHR$141;CHR$132;CHR$157;CHR$131;"Menu demonstration  ";CHR$156
  640 PRINTTAB(7,2);CHR$131;"(C) Steven Flintham 1993"
  650 ENDPROC