GNASHERS  L"gnashers" by Michael Scott & Gavin Monk, from Your Spectrum #1 (Jan.1984) ts=0 760:instructions+UDGs l$="":sc=0 -dt=3::70F 2 40( Edraw town & dam F3i=221:i,0;1;"":i PBi=121:i,4;4;0;1;"":i Zdt=1120x ddt=dt-1 nHi=121:i,5;4;0;1;""(dt):i x"7:17,14;"" }&dt=1sc200dt=10 118,14;"";18,21;"" d19,13 ;"";19,18;2;"";19,21;7;" " [20,8;2;"";7;" ";2;"";7;" " 21,8;"";0;"";2;7;"";0;"";2;7;"";5;"";0;"";5;"";2;"":0 G#1;0,0;4;"" 700  move gnasher 3qq=1:bb=(*15)+2:cc=31 " b1=(bb,cc) ,bb,cc;1;8;"" @bb,cc;1;8;"" Tfb1>68Dbb,cc;" ";bb,cc;1;"":b=2240(3:.001wn,b:b:540 ^Rb1>64@bb,cc;" ":b=2240(3:.001wn,b:b:270 h.01z# =,40( rbb,cc;8;1;"" w$l$"l"qq=1z=0:l$= |(l$="l"410+10 *(z1) bb,cc;1;8;"" cc=cc-1  290"  move plane )pp=1:x=0:b$="":z=1 0,z-1;" " .01z# =,1 b$"b"z>7b$= 5b$="b"x=x+1:490+5*(pp=0) $z<30z=z+1:385 0,z;" " l$=""  b$="b"x=x+1:495  380|  move bomb pp=0:zz=z ?x-1+(x=1),zz;" ";x,zz;"":.01z# =,40(-x (zz-cc)1ƽ(x+1-bb)1x,zz;" ";bb,cc;1;2;6;"":b=62>24-6:.022{49X,b:b:bb,cc;" ":b$="":pp=1:x=0:680:270 (x+1,zz)" "x,zz;" ":0,z;" ":x>151;1;2;6;x+1,zz;"";x+1,zz;""ƥ>.5:sc=sc-15:b$="":680:380|  470 flood a=13:b=-23.5<-22.54:.045|8Q,b:b:a:i=bb+1*(bb21)21:i,5;1;1;"":i &,i=2bb-1:i,0;" ":i 0li=21bb+1*(bb21)-1:i,6;1;1;"":i :15,7;1;"THE TOWN IS FLOODED" D67,7;1;"AND IT'S ALL YOUR FAULT!" I 2000 N/9 ,7;1;"YOUR SCORE IS ";sc Xsc>tsts=sc b311 ,7;1;"THE TOP SCORE IS ";ts l #1;"ANOTHER GAME? (y/n)" v.a$=:a$"y"a$"Y"a$"n"a$"N"630v a$="y"a$="Y"30  sc=sc+10 /b=-167.5p3:.04|# =,b:b E#1;0,0;4;"SCORE ";sc;" ","HIGH ";ts;" " Ƈsc100d*1/dt*2dt10 10 ,10 ;1;"NOW THINGS GET HARDER!":i=1400:i::70F  5:5:0   instructions  (10 ,12 ;1;"GNASHERS"  U15,0;"Do you want instructions? (y/n)":a$=:a$="Y"a$="y"840H *a$"n"a$"N"800  > 1000 H(:"You must defend the dam from the"'' R<"marauding ";1;"GNASHERS";0;", whose sole"'' \E"intent is to gnash their way "''"through the dam, thus flooding"'' pG"the town. To try to prevent them"''"from doing this, you fly your"'' z&"jet plane over the town and drop"'' "bombs on the Gnashers."'' ;21,0;"Press any key to continue":3000  :"To fly your jet plane on"'' -"automatic pilot press key ";1;"L"'' ,"To drop a bomb press key ";1;"B"'' '''"GOOD LUCK!" 221,0;"Any key to start":3000 UDGs a#1;"Please wait":n=062:"a"+n,85U:"a"+n+1,170:n  1500  i="b""o"+7:n:i,n:i  30 y36$,90Z,165,90Z,36$,24,36$,90Z,568,568,16,214,254,214,16,124|,1,3,7,15,31,63?,127,255,128,192,224,240,248,252,254,255,0,0,255,255,255,255,255,255 60<,110n,255,15,15,255,126~,60<,60<,110n,255,127,127,255,126~,60< J170,85U,0,170,85U,0,170,85U M153,90Z,90Z,255,255,90Z,90Z,153 F0,60<,24,60<,60<,24,0,0 480,568,60<,63?,63?,63?,0,0,0,0,7,255,255,255,127,0,0,0,128,192,248,252,248,0 K74J,73I,37%,18,36$,36$,102f,153  2080  a,b !a=0b=02070 a=02060  b,a  2010  1:b:2010   7,.5,11 ,.5,14,.5,11 ,.5,14,.5,16,.5,14,.5,0,25,11 ,.5,14,.5,16,2,14,.5,0,20,11 ,.5,14,.5,14,.5,11 ,.5,12 ,.5,11 ,.5,9 ,.5,0,20,7,.5,9 ,.5,11 ,1,9 ,1,7,.5,0,0 f=110 2:g=110 2:h=110 2:.1}L,f+g-h:.1}L,g+h-f:.1}L,h+f-g:=""h:g:f:3000