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