10REM Hunt the snib. Rewritten from the original by Jon Ripley 1997.
   20MODE7:M%=0:N%=0:FORX%=1TO2:PRINT"���    �H U N T   T H E   S N I B":NEXT:PRINTTAB(0,2)CHR$131;"The Snib is hiding on the grid."TAB(0,3)CHR$131;"Can you find where it is ?":PRINTTAB(13,5)CHR$131;"north"':FORX%=1TO10
   30IFX%=1PRINTTAB(4)"�10";CHR$151;"""";ELSEIFX%=6PRINTTAB(2)"�west ";CHR$151;ELSEPRINTTAB(8);CHR$151;
   40PRINTSTRING$(5,"7�");"5";:IFX%=6PRINT" �east"ELSEPRINT
   50NEXT:PRINTTAB(5)"�0";CHR$151;"""�";STRING$(14,"�");"�":PRINTTAB(8,18)CHR$131;"0    south     10":VDU28,0,24,39,20:S%=RND(11)-1:T%=RND(11)-1:REPEATPRINT'CHR$131;"Type in your guess, then press Return."
   60REPEATPRINTCHR$131;"Column number"CHR$(137+(M%>10));"( 0 to 10 )"CHR$137;:INPUTM%:UNTILM%<11:REPEATPRINTCHR$131;"Row number"CHR$(137+(N%>10));"( 0 to 10 )"CHR$137;:INPUTN%:UNTILN%<11
   70IFS%=M%ANDT%=N%CLS:PRINTTAB(0,5)CHR$131;"Well done, another Snib bites the dust!"'CHR$136;CHR$134;"Press a key":A=GET:RUN
   80R$=STRING$(-(N%<T%),"north")+STRING$(-(N%>T%),"south")+STRING$(-(M%<S%),"east")+STRING$(-(M%>S%),"west"):IFR$<>""PRINT'CHR$130;"   The Snib is to the ";R$:UNTILFALSE