10REM*Menu for programs 20REM*Sent to 8BS 2/9/93 30REM*All by Andrew Weston 40REM*and all freely distributable 50REM*as Public Domain Software 60REM***************************** 70MODE7:VDU23;8202;0;0;0; 80PROCinit:PROCmen 90PROCfs 100END 110DEF PROCmen 120CLS 130PRINTTAB(0,0);CHR$129;CHR$157;CHR$1 31;CHR$141;"P.D. Programs for 8BS by A.J .W." 140PRINTTAB(0);CHR$129;CHR$157;CHR$131 ;CHR$141;"P.D. Programs for 8BS by A.J.W ." 150REPEAT 160TY%=5 170FORPO%=1TO6:PRINTTAB(2,TY%);CHR$135 ;;O$(PO%,0):TY%=TY%+1:NEXTPO% 180IFINKEY(-58)AND Y%>5THEN Y%=Y%-1:PR INTTAB(0,Y%+1);STRING$(20," ") 190IFINKEY(-42)AND Y%<10THEN Y%=Y%+1:P RINTTAB(0,Y%-1);STRING$(20," ") 200PRINTTAB(0,Y%);CHR$130;CHR$157 210IFINKEY(-74)THENENDPROC 220UNTILFALSE 230 DATA Phonebook,PBOOK 240DATA Seek + Destroy,FSIM2 250DATA BASIC Simulator,ANDL 260DATA Eddie,EDDIE 270DATA Athlete Hunter. Joystick versi on,AHUNT 275DATA Athlete Hunter. Keyboard versi on,KEYAHUN 280DEF PROCinit 290Y%=5 300DIM O$(10,1) 310RESTORE230 320FOR RO%=1 TO 6:READ O$(RO%,0),O$(RO %,1):NEXT RO% 330ENDPROC 340DEF PROCfs 350CHAIN O$(Y%-4,1) 360ENDPROC