10 REM Progname Snibzy 20 REM Version K 6.X 30 REM Author Marshal Anderson 40 REM BEEBUG June 1993 (Vol.12 Iss.2) 50 REM Improved (?) by Paul Clucas for 60 REM St Pauls School LONDON N.11 70 REM October / November 1996 80 REM Program is Public Domain 90 : 100 REMSTEPDIVDisables ESCAPE key 110 REM*FX14,6 120 : 130 REMSTEPDIVPressing BREAK returns to Menu 140 REM*KEY10CHAIN"MENU0"|M 150 : 160 MODE7 170 PROCgetstarted 180 PROCplacesnib 190 PROCgetguess 200 IF Snibx%=Myguessx% AND Sniby%=Myguessy% PROCwin:GOTO 170 210 PROCreply 220 GOTO190 230 END 240 : 250 DEFPROCgetstarted 260 CLS 270 PRINTTAB(0,0)CHR$132;CHR$157;CHR$131 TAB(7,0)CHR$141;"H U N T T H E S N I B" 280 PRINTTAB(0,1)CHR$132;CHR$157;CHR$131 TAB(7,1)CHR$141;"H U N T T H E S N I B" 290 PRINTTAB(0,2)CHR$131;"The Snib is hiding on the grid."TAB(0,3)CHR$131;"Can you find where it is ?" 300 PRINTTAB(13,5)CHR$131;"north"' 310 PROCgrid 320 PRINTTAB(8,18)CHR$131;"0 south 10" 330 ENDPROC 340 : 350 DEFPROCplacesnib 360 Snibx%=RND(9)+1 370 Sniby%=RND(9)+1 380 ENDPROC 390 : 400 DEFPROCgetguess 410 PRINT'CHR$131;"Type in your guess, then press Return." 420 PRINT'CHR$131;"Column number";:INPUT Myguessx% 430 IF Myguessx%>10 THEN 440 ELSE 450 440 REPEAT PRINTCHR$131;"Column number"CHR$136;"( 0 to 10 )"CHR$137;:INPUT Myguessx%:UNTIL Myguessx%<11 450 PRINTCHR$131;"Row number ";:INPUT Myguessy% 460 IF Myguessy%>10 THEN 470 ELSE 480 470 REPEAT PRINTCHR$131;"Row number"CHR$136;"( 0 to 10 )"CHR$137;:INPUT Myguessy%:UNTIL Myguessy%<11 480 ENDPROC 490 : 500 DEFPROCreply 510 Reply$="" 520 IF Myguessy%Sniby% Reply$=Reply$+"south" 540 IF Myguessx%Snibx% Reply$=Reply$+"west" 560 IF Reply$="" ENDPROC 570 PRINT'CHR$130;" The Snib is to the ";Reply$ 580 ENDPROC 590 : 600 DEFPROCpak 610 PRINT'CHR$136;CHR$134;"Press a key" 620 A=GET 630 ENDPROC 640 : 650 DEFPROCwin 660 CLS:PRINTTAB(0,5)CHR$131;"Well done, another Snib bites the dust!" 670 PROCpak 680 DEFPROCgrid 690 VDU131,160,160,160,160,49,48,151,162,183,235,163,183,235,163,183,235,163,183,235,163,183,235,163,181,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 700 VDU151,32,32,32,32,32,32,32,32,183,235,163,183,235,163,183,235,163,183,235,163,183,235,163,181,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 710 VDU151,32,32,32,32,32,32,32,32,183,235,163,183,235,163,183,235,163,183,235,163,183,235,163,181,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 720 VDU151,32,32,32,32,32,32,32,32,183,235,163,183,235,163,183,235,163,183,235,163,183,235,163,181,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 730 VDU151,32,32,32,32,32,32,32,32,183,235,163,183,235,163,183,235,163,183,235,163,183,235,163,181,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 740 VDU131,160,160,119,101,115,116,151,32,183,235,163,183,235,163,183,235,163,183,235,163,183,235,163,181,32,131,101,97,115,116,32,32,32,32,32,32,32,32,32 750 VDU151,32,32,32,32,32,32,32,32,183,235,163,183,235,163,183,235,163,183,235,163,183,235,163,181,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 760 VDU151,32,32,32,32,32,32,32,32,183,235,163,183,235,163,183,235,163,183,235,163,183,235,163,181,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 770 VDU151,32,32,32,32,32,32,32,32,183,235,163,183,235,163,183,235,163,183,235,163,183,235,163,181,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 780 VDU151,32,32,32,32,32,32,32,32,183,235,163,183,235,163,183,235,163,183,235,163,183,235,163,181,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 790 VDU131,160,160,160,160,160,48,151,162,167,163,163,163,163,163,163,163,163,163,163,163,163,163,163,165,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 800 ENDPROC