10 REM >Step2
   20 REM by Steven Flintham
   30 REM
   40 REM Wednesday 4th March 1993
   50 :
   60 MODE 7
   70 VDU 23;8202;0;0;0;
   80 PROCdisable
   90 PROCinit
  100 REPEAT
  110 choice%=FNmenu
  120 UNTIL choice%=5
  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"
  350 PRINTTAB(3,5);"Option 2"
  360 PRINTTAB(3,6);"Option 3"
  370 PRINTTAB(3,7);"Option 4"
  380 PRINTTAB(3,8);"Option 5"
  390 PRINTTAB(3,9);"Quit this program"
  400 PRINTTAB(0,11);"Use the cursor keys to move the bar and"'"press RETURN to select"
  410 choice%=0
  420 PRINTTAB(0,choice%+4);CHR$132;CHR$157;CHR$131;TAB(38,choice%+4);CHR$156;
  430 REPEAT
  440 *FX21
  450 key%=GET
  460 PRINTTAB(0,choice%+4);"   "
  470 IF key%=138 THEN IF choice%<5 THEN choice%=choice%+1
  480 IF key%=139 THEN IF choice%>0 THEN choice%=choice%-1
  490 PRINTTAB(0,choice%+4);CHR$132;CHR$157;CHR$131;TAB(38,choice%+4);CHR$156;
  500 UNTIL key%=13
  510 =choice%
  520 :
  530 DEF PROCtitle
  540 VDU 26,12
  550 PRINTTAB(7,0);CHR$141;CHR$132;CHR$157;CHR$131;"Menu demonstration  ";CHR$156
  560 PRINTTAB(7,1);CHR$141;CHR$132;CHR$157;CHR$131;"Menu demonstration  ";CHR$156
  570 PRINTTAB(7,2);CHR$131;"(C) Steven Flintham 1993"
  580 ENDPROC