BATS -q B A T S was written Colin N.Gooch of Ilminster ZX Computing aug/sept-83-112 ***********************  BATS by C.N. GOOCH *********************** 8in lines 250,300,570,2300 the letters in GRAPHICS mode )::1:ET HSC=0:2200 (35::tet=0:et et=0:mo=0 2 2050 Zxx=16:yy=20 d<y=12 +(*5):x=0:>.4Lx=31 xdx=1:dy=1 move moth 9dx=((x=0)-(x=31)+dx*(x>0x<31)) 9dy=((y=0)-(y=20)+dy*(y>0y<20)) -y,x;5+1*(x<8y<8) >.6x=x+dx >.5y=y+dy 1y,x;5+1*(x<7y<7);""  move bat yy,xx;" " Nyy=yy+((="6"yy<20)-(="7"yy>0))*(yy>8xx>8Ŧ="6") "Nxx=xx+((="8"xx<29)-(="5"xx>0))*(yy>8xx>8Ŧ="8") ,yy,xx;"" 6moth catch or home @x=xx+1y=yy370r J/y<8x<8dx=-1:dy=-1 Tfx<4y<42080 :mo=mo+1:1,1;7;mo:mo=10 410 ^ x<4y<4100d h 200 r moth caught |""380| tet=et+1:21,5;7;2;1;" MOTHS CAUGHT ";et:100d:et10 450  100d  **end round** tet=tet+et:et=10 mo=015,0;4;" IT'S A GOOD NIGHT FOR HUNTING ";17,10 ;2;7;1;" CARRY ON ":""420 xet=10 mo=0400:n=15172:m=031:n,m;5;" ":m:m:100d tet>hschsc=tet l4::5,0;6;" Your score that round was ";et;" MOTHS eaten ";mo;" MOTHS escaped" Ftet>10 7,0;6;" Your total score was ";tet et>hschsc=et B10 ,6;3;0;" Highest score so far ";hsc 12 ,4;6;"Do you want another go?";13 ,4;" Press ""y""es to continue ";14,4;" ""n""o to stop or ""c""hange";15,4;" to go to next game" ="y"Ŧ="Y":40( &="n"Ŧ="N"570: +K="c"Ŧ="C":10 ,10 ;1;6;" Start the tape":"" 0 540 :L:n=0212:m=0314:n,m;"":m:n D10 ,4;7;1;1;1;" BYE BYE ";14,12 ;2;1;"MIND THE VAMPIRES":580D window a$=" "  b$=" " 9n=07:m=07:n,m;6;" "  jm:n:n=03:n,0;6;b$:n:n=033:n,0;6;a$:n *  ***MOTH*** X2210:0,36$,102f,255,126~,102f,36$,36$  ***BAT*** 8,28,62>,63?,127,231,195,128,36$,60<,60<,24,255,255,255,126~,16,568,124|,252,254,231,195,1 ***FORM GRAPHICS*** ?n=03:m=07:a:(n+"a")+m,a:m:n `n=0212:m=1314:n,m;1+(*3);"":m:n ` 3400H 6,0;k$ (14,1;6;" PRESS ""ENTER"" TO CONTINUE ";21,10 ;7;0;1;"STOP THE TAPE":0: C2,10 ;2;7;1;1;" B A T S " D4,0;" YOU ARE A BAT HUNTING MOTHS ";'"FOR SUPPER." T@6,0;" THE BAT IS MOVED WITH KEYS No. "'"'5 TO 8'" L8,0;" THE MOTH IS CAUGHT WHEN THE"'"BAT IS CENTRALLY OVER IT" k10 ,0;" THE MOTH IS SAFE IN THE YELLOW"'" ARE OF THE LIGHTED WINDOW"'"THE BAT CANNOT GO HERE" G16,0;" THE GAME ENDS WITH 10 MOTHS"'"'HOME' OR 'CAUGHT'" >18,0;" PRESS 'ENTER' TO CONTINUE ":0:: H k$="  " R ths  aK  eteA B yxb