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