Spiders -s--WSpiders by Keith Burton from ZX Computing, Feb/Mar'86 dꏏ SET UP VARIABLES nn$(45-):h(6) x%n$="zx zx zx zx zx " 23658j\,0 m$(30,30) 3210 1:1:7: ꏏ GRAPHIC INTRO "a=1:b=30:c=1 lf=3:hi=0 i=021 z=abc 1c=1i,z-1;2;"":270 i,z+1;6;""  i,z;"" .005y# =,z "z ,1d=a:a=b:b=d:c=1c=-1:320@ 6 c=1 @i JSi=1172:i,11 ;1;7;2;" SPIDERS ":i T~i=2162:i,11 ;1;2;7;" SPIDERS ":i:19,4;" KEITH BURTON 1983 " ^T21,0;1;" PRESS ANY KEY TO PLAY ":0:3400H ꏏ START OF GAME  sc=0  lf=3  l=1 ꏏ SET UP SCREEN  0:0:6:  l>3l<1l=1 2010+300,*l :Ei=17:i:.01z# =,i:.01z# =,20-i:i:0 D9i=019:i+1,1;m$(i+1):i N x,y;"" Xmx1=(*19)+1:mx2=(*19)+1:mx3=(*19)+1:my1=(*16)+2:my2=(*16)+2:my3=(*16)+2 bm$(mx1,my1)=w$600X lm$(mx2,my2)=w$600X vm$(mx3,my3)=w$600X lmx1,my1;1;2;"";mx2,my2;"";mx3,my3;"":25:mx1,my1;" ";mx2,my2;" ";mx3,my3;" " 10 ,0;"U";11 ,0;"P";9 ,22;"D";10 ,22;"O";11 ,22;"W";12 ,22;"N" |2,25;2;1;"SCORE";6,25;"HIGH";10 ,25;"LEVEL";14,25;"LIVES" p4,25;1;6;sc;8,25;h(1);12 ,25;l;16,25;lf wsx1=10 :sy1=13 :sx2=14:sy2=15:sx1,sy1;5;1;"";sx2,sy2;2;1;"" ꏏ MAIN LOOP  7 /a$=:.009ztj,-10 :a$="i"910 a$="p"980 a$="q"1050 a$="z"1120` /x=11 (y=1y=20)1210  1310  mx1=xmy1=y1700 mx2=xmy2=y1700  mx3=xmy3=y1700 *(4,25;1;6;sc 4 720 ꏏ MOVE YOU m$(x,y-1)=w$970 7(x,y-1)" "sc=sc+1:.01z# =,10 y-1<1  x,y;" "  y=y-1  x,y;""   m$(x,y+1)=w$1040 7(x,y+1)" "sc=sc+1:.01z# =,10 y+1>20  x,y;" "  y=y+1  x,y;""   m$(x-1,y)=w$1110V $7(x-1,y)" "sc=sc+1:.01z# =,10 .x-1<1 8 x,y;" " B x=x-1 L x,y;"" V ` m$(x+1,y)=w$1180 j7(x+1,y)" "sc=sc+1:.01z# =,10 tx+1>19 ~ x,y;" "  x=x+1  x,y;""  ꏏ CHANGE LEVEL 9y=1x=11 l=l+1:l3510 :y=20x=11 l=l-1:l1510 !l>3l=1:510 !l<1l=3:510  1210 ꏏ MOVE SPIDERS sx1,sy1;"" (sx2,sy2;"" 2/m$(sx1+1,sy1)w$sx1>xsx1=sx1+1 xsx2=sx2+1 F/m$(sx1-1,sy1)w$sx1ysy1=sy1+1 d/m$(sx2,sy2+1)w$sy2>ysy2=sy2+1 n/m$(sx1,sy1-1)w$sy119sx1=19 sx2>19sx2=19 sy1>19sy1=19 sy2>19sy2=19 sy1<2sy1=2 sy2<2sy2=2 sx1,sy1;4;"" sx2,sy2;2;"" )(sx1=xsy1=y)(sx2=xsy2=y)1610J  @ꏏ CAUGHT A SPIDER Jmx,y;1;1;4;5;"":sc=sc+25:n=10 -10 -1:.01z# =,n:n T6sx1=(*19)+2:sx2=(*19)+2 ^6sy1=(*16)+2:sy2=(*16)+2 hm$(sx1,sy1)=w$1620T rm$(sx2,sy2)=w$1620T |sx1,sy1;4;"" sx2,sy2;2;""   ꏏ EXPLOSION 1:1:0,0;2;6,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,:n=60<-40(-2:.008zn,n:n:0:0 $i=130:254,i:i /p=-10 -30-2:.1}L,p:p lf=lf-1 lf02000  Vn=15:i=17:i:.008zn,i-5:.008zn,i-10 %2,9 ;" " %3,9 ;" " )4,7;" " %5,9 ;" " %6,9 ;" " &)9 ,7;" " 0*10 ,7;" " :*11 ,7;" " D'12 ,7;" " N*13 ,7;" " X,17,7;"YOU STEPPED ON A MINE!" b"19,11 ;"LOSE A LIFE" li vn ,20,10 ;1;"CHANGE LEVEL" 0i=502-30-4:.005y# =,i:i %l=l-1:l<1l=l+2  510 ꏏ HALL OF FAME sc>h(5)2200  i=15:sc>h(i)t=i5:h(t+1)=h(t):n$((((i+1)*6)-5)((i+1)*6))=n$(((i*6)-5)(i*6)):h(i)=sc:n$(((i*6)-5)(i*6))=p$:i=5 i Fi=120:i,4;4;" ":i  @i=615:i,7;1;" ":i .5,7;2;" "  &1,12 ;1;"SPIDERS" *Hi=07:i:3,9 ;"HALL OF FAME":.008zn,i:i 4 1 >-5,9 ;2;"NAME SCORE " H~i=15:i+6,7;i;i+6,9 ;n$(((i*6)-5)(i*6));i+6,18;h(i):i R%13 ,8;"PRESS Q TO QUIT" \ 0 fJ17,7;"PRESS C FOR COPY";19,7;"PRESS P TO PLAY" p 0 z="c":2160p  ="q" ="p"410  2160p WELL DONE ENTER NAME  i=14 ez$=" " :a=0155:a,0;i+(a/5);z$ a i [x=125:y=2050210 :.008zn,y:.01z# =,y-5:y:x I23658j\,8:"ENTER YOUR NAME";p$:p$>6p$=p$(6) !23658j\,0:2020 ꏏ SET UP LEVEL 1 $m$(1)="" $m$(2)=" " $m$(3)=" " $$m$(4)=" " .$m$(5)=" " 8$m$(6)=" " B$m$(7)=" " L$m$(8)=" " V$m$(9 )=" " `%m$(10 )=" " j%m$(11 )=" " t%m$(12 )=" " ~%m$(13 )=" " %m$(14)=" " %m$(15)=" " %m$(16)=" " %m$(17)=" " %m$(18)=" " %m$(19)=" " %m$(20)="" !x=11 :y=2:x,y;"" w$="": (ꏏ SET UP LEVEL 2 2$m$(1)="" <$m$(2)=" " F$m$(3)=" " P$m$(4)=" " Z$m$(5)=" " d$m$(6)=" " n$m$(7)=" " x$m$(8)=" " $m$(9 )=" " %m$(10 )=" " %m$(11 )=" " %m$(12 )=" " %m$(13 )=" " %m$(14)=" " %m$(15)=" " %m$(16)=" " %m$(17)=" " %m$(18)=" " %m$(19)=" " %m$(20)="" !x=11 :y=2:x,y;""  w$="": Tꏏ SET UP LEVEL 3 ^$m$(1)="OOOOOOOOOOOOOOOOOOOO" h$m$(2)="O O OO O" r$m$(3)="O O O OOOOOOOOO O O" |$m$(4)="O O" $m$(5)="O OOOOOOOO O OOOOO O" $m$(6)="O O O O" $m$(7)="O OOO OO O O O OOO" $m$(8)="O O O OO O O O" $m$(9 )="O O O O O O O O" %m$(10 )="O O O O O O OO" %m$(11 )="O O OOO O O O O " %m$(12 )="O O O O" %m$(13 )="OOOOO OO O O OOOOO O" %m$(14)="O O O" %m$(15)="O OOO OOOO OOOOOO OO" %m$(16)="O OO OO O O" %m$(17)="O OO O O O O O" %m$(18)="O O OOO OOOOOOOO O" %m$(19)="O OOOOO O" %m$(20)="OOOOOOOOOOOOOOOOOOOO" &!x=11 :y=2:x,y;"" 0 w$="O": ꏏ SET UP UDGs 3290 t=15 a$ i=07 a a$+i,a i t O"e",568,16,124|,186,568,568,68D,68D U"f",255,195,189,173,181,189,195,255 M"g",0,0,119w,34",255,34",119w,0 M"h",0,0,24,60<,66B,90Z,165,165 J"i",0,0,24,60<,60<,126~,0,0  Hꏏ INSTRUCTIONS R*z$="You are the caretaker of an old house. The house has three levels. You may move up and downthe levels whenever you wish by going to the stairways on each level. Your job is to find and kill any spiders you can see. The spiders are always spinning webs which you must also clean up." Sz$=z$+" BEWARE - on each level three mines have been planted; they won't harm the spiders but they will kill you. You will be given a quick look at where the mines are each timeyou change levels." \1:1:6: f/1,11 ;1;2;"SPIDERS" p2,0 z#i=1̱z$:z$(i)=" "" ";:i  z$(i);:.009ztj,10 :i =21,4;"PRESS ANY KEY":0:1,0 V:0,10 ;1;"INSTRUCTIONS";2,2;0;"I left";4,2;"P right";6,2;"Q up";8,2;"Z down";10 ,2;" You";12 ,2;" 1 point";14,2;" 25 points";16,2;" mine - lose a life";20,2;"PRESS ANY KEY WHEN READY":0  &SPROGRAM LENGTH 12.9 K:144~ "SPIDERS"1:"SPIDERS": '290 5000 10 490