ZXTape!Wombat <<#<< 2410j FQn=0.05|L.001wn:n,n:n:n=.05|L0-.001wn:n,n:n P&d(3):sc=0:min=10 Z 1680 d"x=6:y=8:ay=8 n ax=25 x_hf,1:len,20:bep,2:n=51-1:lf,502*n:zz=urun:n l$=" " lx=x:ly=y Ix=x+(="8")-(="5"):="7".001wn,20:y=y-1:190 ="6"y=y+1:200 =y+1,x;:z$=60057:z$""z$""y=y+1 y0y=0 )ly,lx;l$:l$=(y,x):l$" "590N y,x;1;"" ="0"370r y=18350^ !250+(10 ƥ>.5) )au=(axx):av=0:270 av=(ayy):au=0 ax=ax+au:ay=ay+av ,ay-av,ax-au;" ";ay,ax;:z$=60057 "z$=""al=2:720 ,0z$" "ƥ>.2~Lax=ax-au:ay=ay-av:ay,ax; 6"" @%60248Xal=1:720 J 150 ^p2340$ :19,x;"":lv=lv+13 +(6lv6):1710:y=0:ay=0:110n r-min=0.005y# =,40(:230 |7min=min-1:20,24;1;min;" " 8y-1,x-1;1;"";y,x-1;"" Dlf,502:hf,1:len,20:bep,3:zz=urun+drun 8y-1,x-1;1;"";y,x-1;"" g$(2,3)  kil=0 (n=-10:m=-11 y+n,x+m;:z$=60057 z$=" "520 Dz$=""z$=""z$=""z$=""g$(n+2,m+2)=z$:520 1z$=""ax=25:ay=8:sc=sc+502 &z$=""z$=""z$=""sc=sc+10 Iz$=""z$=""64000,6:64001,1:sc=sc+25 z$=""kil=1 m:n  19,24;1;sc g$(2,2)="" &Ey-1,x-1;g$(1);y,x-1;g$(2):zz=drun 0kil1090B : 230 N,y,x;:z$=60057:z$=""210 Xz$=""l$=z$:210 bz$""z$""8204 l!z$=""z$=""z$=""660 vz$=""sc=sc+10 :lf,120x:hf,1:len,502:bep,1:zz=drun:19,24;1;sc:l$=" ":210 l$=" ":x=lx:y=ly:210 Ulen,20:bep,1:n=13:lf,200:hf,0:zz=urun:n &d=(z$"")+(z$="")+(3z$="") :d(d)=d(d)+1:18+d,5+d(d);8;">" &d(d)=10 ly,lx;" ":880p l$=" ":210 5len,10 :bep,4:lf,200:hf,0 y,x;2;1;"" &n=13:d(n)=d(n)+1 '18+n,5+d(n);8;">" d(n)=10 880p  zz=drun:n  8l$=" ":al=2ax=25:ay=8:320@ B>.564000,6::64001,1:150  764000,25:64001,-1:150 4 d=z$-"" >-d(d)=0.01z# =,20:860\ HElf,100d:hf,2:len,20:bep,2:zz=urun+drun R:18+d,5+d(d);8;".":d(d)=d(d)-1 \l$=" ":210 p!lin=(y-21):xy+n,x+n;1;"";y+n,x-n;"";y-n,x+n;"";y-n,x-n;"" n  0  0 &len,150:bep,2:zz=drun  2000 13302:1340< Y"it had severe brain damage","its hydraulics system failed","its motor system exploded" c1030:'"The Wombat was destroyed because":n=13:z$:d(n)=10 1060$ n $z$;"." .'"Score: ";sc 8 1250 Lghf,2:lf,100d:len,20:bep,1:n=125:*7:zz=drun+urun:n V 1880X `nhf,3:n=510 :lf,n*20:1320(:zz=urun:n:len,100d:bep,2:zz=drun j.1}L,0 t'z$=" " ~\4,0;1;z$;" ";1;"1000 point bonus !!!";0;" ";z$ [n=110 :.1}L,32 :sc=sc+100d:19,24;1;sc:n \8,0;1;z$;" ";1;"Computer destroyed !!!";0;" ";z$  2320 ]12 ,0;1;z$;" ";1;"MISSION SUCCESSFUL";0;" ";z$ Chf,3:lf,0:len,0:bep,20:zz=urun+drun 1320(:n=14:.1}L,2:.05|L,-10 :.1}L,4:.05|L,-8:n:.1}L,2:.05|L,-10 :.8L,4:.05|L,-8 &13302::1;"You did it!" '"Score: ";sc 'z$=sc:z$="0000000"(7-z$)+z$ )n=18:z$>s$(n)1280 'n:13302:13302:3030 D'"Please enter your name for the hall of fame (max. 13 letters)."  Sb=8n+1-1:s$(b)=s$(b-1):n$(b)=n$(b-1):b:n$(n)  s$(n)=z$  3030 (m=110 :m: 2m=1100d:m: <0:0:7:: P 1 Zcn=13:.01z# =,n/2:18+n,0;" ":n d@"Neuro","Hydra","Motor","Scoresc","TNW'smin","Level1+(lv/18)" no1380d:n=13:z$:18+n,0;z$;":.......";2;"...":d(n)=01410 xH18+n,6;8;">>>>>>>>>>"(d(n)):.01z# =,n+20 n On=13:z$:18+n,18;z$(5);":";z$(6):n  0  a$(3040 ) G:"Please wait for several seconds while the new layout is set up."'' b$="" 8a$(198220)=b$:a$(230252)=b$ Cn=2622918f 32 :a$(n)="":a$(n+21)="":n _a$(2950 )="":n=12:a$(2950 +n*32 )=b$:n da$(16931696)="DEEP":a$(17251728)="FORT":a$(17581759)="" %"Walls completed":.2~L,0 n=9 90Z3 m=12 +a=(*11 )+7:pos=32 *n+a /a$(pospos+(*6)+4)="" "m ,n 6)"Platforms completed":.2~L,4 @n=8274 Jk=110 T2a=(*70F)+10 :l=(*6)+5 ^?pos=32 *a+n:m=pospos+32 *l32 :a$(m)="":m hk rn |'"Ladders completed":.4L,7  z5:5:lv=6:n=15:zz=3280 :18,0;" ":n 3lf,1:hf,2:len,20:bep,1 zz=3280 :18,0;" ";:z$=" ":n=1̱z$:zz=drun:5z$(n)=" ";z$(n);:n:" " (5:n=lv94^:zz=3280 n=5790 n=5574  n=579n=76L0 ֒q=n*32 +1:18,0;a$(qq+4);0;a$(q+5q+26):18,27;0;a$(q+27q+31) n>7n<92\m=13:18,(*20)+6;6;0;""((*3+1)):m:>.7333318,(*20)+6;4;0;(162+(*3)) `.005y# =,40(-(n/2):21,0;2;">>>>>>>>>>>Going down<<<<<<<<<<<" :(n+1)/19=((n+1)/19)1800 n  0 ml=(*6)+8 _ml,5;"";ml,26;"":60004d,ml:64000,25:64001,255 &!lr=8+(8lv6) 0xn=0̥*10 +20:(*lr)+(8lv=6),(*20)+6;3;"":.01z# =,65A:n :lv=76L14,24;1;"";15,24;"":lf,1:hf,6:len,200:bep,1:zz=urun+drun:14,24;"";15,24;"" D 1350F N b-3,2,4,5,2,4,5,7,4,5,7,9 ,5,7,9 ,10 ,7 lA9 ,5,7,4,5,2,4,1 v!2,2,2,2  1890b n=129 a  .08}# =,a n  ;4,4,2,-1,2,0,-1  1990 n=17 a  .2~L,a n .4L,-3    50,12 ,16,7,12 ,16 *50,12 ,16,7,12 ,16 452,11 ,17,7,11 ,17 >52,11 ,17,7,11 ,17 H6-5,11 ,17,7,11 ,17 R6-5,11 ,17,7,11 ,17 \50,12 ,16,7,12 ,16 f50,12 ,16,7,12 ,16 p6-3,12 ,16,9 ,12 ,16 z6-3,12 ,16,9 ,12 ,16 52,14,17,9 ,14,17 52,14,17,9 ,14,17 6-5,12 ,16,7,12 ,16 6-5,11 ,17,7,11 ,17 50,12 ,16,7,12 ,16  2080  n=190Z a .1}L,a-24 .1}L,a-12 "" n (.1}L,-24:.4L,-12  -1,4,7,-1,4,7,0,4,7,0,5,9 ,-1,4,6,-1,3,6 $ 2320 .n=16 8a,b,c:.05|L,a B=m=13:.05|L,b:.05|L,c:m:.05|L,b Ln V)n=18:.05|L,4:n ` j(0:7:0:59999_ tz1,1;1;" " ~z4,1;1;" " <9 ,1;6;"Design and software by D.Green" 11 ,0;3;" 1984 ";7;" " (17,12 ;5;"software" -19,9 ;2;"Please wait..." 60<,195,255,189,a,a,36$,102f,0,60<,36$,126~,255,126~,231,165 \0,a,6,124|,a,6,0,a,a,a,96`,62>,a,96`,0,a ΁0,60<,102f,66B,102f,126~,66B,126~,66B,126~,66B,a,a,126~,66B,a ؇255,68D,255,68D,68D,0,a,a,129,66B,36$,153,90Z,60<,24,126~ 231,240,231,15,231,240,231,15,231,15,231,240,231,15,231,240 4,8,16,60<,8,16,32 ,0,a,102f,66B,231,129,66B,36$,24 n248,a,206,242,a,206,248,a,31,a,115s,79O,a,115s,31,a 0,127,85U,127,82R,127,64@,68D,0,254,18,254,74J,254,2,146 73I,82R,64@,127,112p,97a,a,115s,34",74J,2,254,26,10 ,a,158 |173,33!,174,169,227,170,139,251,0,a,a,a,204,502,30,a /0,a,a,a,a,195,126~,195 ( 2490 2n="a""u"+7:a <n,a:n Ploc=60000` Z592443,"01020a01002a60ea3a62ea473a63ea5f1600c9cd65eac5d5e5cdb503e1d1c12310f42260eac9cd65eac5d5e5cdb503e1d1c12b10f42260eac92a845ced5b7b5c" d436172T,"06150e00c5e5d506081abe200e132410f806003e90814fe1e1e1c9d121080019ebe1c10c10de06000e20c921004078e618b46779e61f6f78e607cb27cb27cb27" n454379]`,"cb27cb27b56fc93a64ea473a00fa4fcdcbeac5060836002410fbc13a01fa814fcdcbea22845cc5cd99ea79c1fe902004010100c979fe1a200c0e193eff3201fa" x530193q,"cdcbea180efe05200a0e063e013201facdcbeae5ed5b7b5c2110003a01fafe01200321180019ebe106081a77132410fa793200fa010000c90605c5cde7ea79c1b7200610f5010000c9010100c9" 21,14;"OOOO" m=14 chk,a$:sum=0 n=1̱a$2 idc=16*(a$(n)-480-(39'a$(n)"a"))+a$(n+1)-480-(39'a$(n+1)"a") 'loc,dc:sum=sum+dc*n:loc=loc+1 n -21,13 +m;"X":.01z# =,0 Gsumchk20,0;"Error in line ";2640P +10 *m;zxy m flf=60000`:hf=60001a:len=60002b:bep=60003c:drun=60019s:urun=60038 'n=118:zz=drun+urun:n #len,0:zz=drun+drun+drun D21,2;1;"Press any key to continue...":0 Q:1;9 ;"WOMBAT COMBAT";0,9 ;1;"______________" ''"Control the" "G"Weapons","Orientated","Mechanised","Biotronic","Armour","Technology" ,r2850" :n=16:z$:n+2,12 ;2;z$(1);0;z$(2):.1}L,n:n 6_"using the cursor keys 5,6,7,8,todestroy the evil computer hidingin the depths of Deep Fort." @'"Eliminate obstacles using your Tactical Nuclear Weapons(key 0).You only have ten of these,and will need at least 2 to destroy the main computer." JP21,2;1;"Press any key to continue...":2230:0 T:1;"Score table:" ^6"",502,"",25,"",10 ,"",sn,"",sn hp'"Destroy:":2910^ :n=15:.05|L,n:z$,sn:n+1,10 ;z$;".....";sn;" points":n r-9 ;""'9 ;".....1000 points" |%'"(Pick up 's for 10 points each)" ='"Each Wombat system has its own damage and repair units:" %'"System: Damaged by Repair:" 9"Electronics","","Hydraulics","","Servomotors","" 2970 :n=13:.1}L,n/3:z$,y$:15+n,0;z$;15+n,18;y$(1);15+n,28;y$(2):n P21,2;1;"Press any key to continue...":1920:0 gs$(8,7):n$(8,13 ):n=18:s$(n)="0000000":n$(n)=" High Tech":n a$="" ց1340<:5;1;"> High Scores <"'':n=18:"*** ";s$(n);".....";n$(n);"***"'':.1}L,n/2:n 20,2;1;"Press key 1 for a new layout";21,2;" or any other key to play ":2230:0 ="1"a$=""1450 70F