ZXTape! 0Created with Ramsoft MakeTZX3D DEFENDAdz d23693\,71G:0:0:0:49738J:10 ,7;"3D DEFENDA LOADING";12 ,9 ;1;" PLEASE WAIT " n0:""::1:7;10 ,5;1;" PLEASE STOP THE TAPE ":3,30::49739K:"":X=1250:X x#1;1,3;1;1;7;" PLEASE START THE TAPE ":3,30:0:23624H\,0:"":23659k\,1:21,0;:"" TITLES ]K[_!P"[͗ͮ!Z>@w# ͮ6!X*[W *[ J"[!X:B w#!2xG`OhWp_:_ :H\@C:!2  !@T]%$  T] >g!W #6`|p@@@`@@ `0 0  χ  >>8<|x?aq?  0?  p0< <?0?<8D0< <?0?<d۞?$۸q`??0??J<0?<.><0?<0? ?k0? ?7??0????0?????>7?j< Mp  0 ͳ8~  0 1?  a?~x1  1q> 1p8q8xp0a<<0a`ÃÃg888888888888888888888888888888888888888888888888888888888888888xx2p">2p">B " 8 B " 8 B ><pB ><p2 "P  2 "P  p" >>p" >>xxGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGCCCCGGGGGGGGGGGGGGGGGGGGGGGGGGCCCCCCCCGGGGGGGGGGGGGGGGGGGGGGGGCCCCCCCCGGGGGGGGGGGGGGGGGGGGGGGCCCCCCCCCCDEDEDEDEDEDEDEDEDEDEGGCCCCCCCCCCEDEDEDEDEDEDEDEDEDEDGGCCCCCCCCCCGGGGGGGGGGGGGGGGGGGGGGCCCCCCCCCCGGGGGGGGGGGGGGGGGGGGGGGCCCCCCCCGGGGGGGGGGGGGGGGGGGGGGGGCCCCCCCCGGGGGGGGGGGGGGGGGGGGGGGGGGCCCCGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFGGFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFGGFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGEEEEEEEEEEEEEEEEEEEEEEEEEEEGGGGGEEEEEEEEEEEEEEEEEEEEEEEEEEEGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG3D DEFENDA)4Z)4D+4  3D COPYRIGHT 1983 M.LEVERS  Z55999 d9500% n9000(# x8000@ 7000X 1000 6000p 110n n0 D2,20:1500:X=110 :P2,X+2:L=57000+S2+57003:.005y# =,40(:.005y# =,20:X:R$(AT+1) FL=57000:OD,OA;" ";D,A;A$(AT,CI):L2010:NEXT !570032010:NEXT OD=D:OA=A:DI=DI+1:(100d*DI/SP+.5)/100d=((100d*DI/SP+.5)/100d)CI=CI+(CI<5)  GD=D-(CI<4D>5)+(CI>3):D=213000 :NEXT X=:X>.31020 `A=A+R(1+(X*4)):A<0A>30A=(30A<0)+(0A>30) $+<.13~ROD<164000:NEXT . 1020  wCI=1:AT=(*3)+1:D=15:A=(*31):OD=D:OA=A:SP=10 -SK*10 :DI=0 R$(14)  tD1,30:Y=171-8*23306 [:X=4+8*23307 [:1:16,135:X-16,Y-135:239,135:X-239,Y-135:L=S1:16,135:X-16,Y-135:239,135:X-239,Y-135:0:L=58900:23306 [=D(23307 [=Až23307 [=A+1)2020 #D,A;A$(AT,CI):NEXT=1030: BN=502*(NO>19)+502*(NO>29)+502*(NO>39')+502*(NO>491):R$(16):D2,10 :D,A-(S(AT,CI)+BN>99cA=30);S(AT,CI)+BN:X=13:Y=17:C1*(D<16)+C2*(D>15),64@+Y*8+7*(Y<4):P2,Y+X*2:L=(A1*(D<16)+A2*(D>15))+S2:Y:X:C1,71G:C2,87W:L=A1+A2:7060:SC=SC+S(AT,CI):D,A-(S(AT,CI)>99cA=30);" ";(" "S(AT,CI)+BN>99c) 1,5-SC;SC:NO=NO+1:L=58900:SK=SK+.1}L*((NO/20=(NO/20))SK<.9ffff):NEXT=1000  %R$(AT+9 ):C2,120x:C1,120x:P2,40(:D1,40(:X=412 :D2,X:254,X+2:L=S2:X:7:L=A1+A2:.005y# =,17:.005y# =,18:.005y# =,16:.005y# =,20:C1,71G:C2,87W:L=A1+A2:1:7060 mKR=KR-1:R$(13 );1,26;KR;2,25;(" "KR=1);1,17;(" NO "KR):D2,7:Y=4:OA=A:X1=(A<15)-(A>15):X=199 -1:P2,X+6:X+1,OA;" ":L=(57000X/3=(X/3)):X,A;A$(AT,Y):L=S2:OA=A:A=A+X1:Y=Y-(X/3=(X/3)):X 9 ,OA;" " :NEXT=1499*(KR=0)+1000*(KR0)  R$(AT+4):D1,25:D2,15:P2,6:X=8*OA+6:Z=X+2:Y=171-CI-8*OD:X2=:1:OA<164050 gX,Y:-X,8-Y:Z,Y:8-Z,-Y:L=S1+S2+S1:X,Y:-X,8-Y:Z,Y:8-Z,-Y:4080 qX,Y:247-X,-Y:Z,Y:255-Z,8-Y:L=S1+S2+S1:X,Y:247-X,-Y:Z,Y:255-Z,8-Y 0:L=57000:X2.73333R$(8):D2,4:X=17:C1,X*8+64@+7*(X<4):C2,C1:P2,X*3+502:X:L=A1+A2+S2:X:C1,71G:C2,87W:1:L=A1+A2:7060:SS=SS-25*CI-25*(AT=1):1,9 ;"0000";1,13 -SS;(SSSS>0):SS0NEXT=1499:SS=0: TX2>.73333R$(9 ):X=13:.05|L,45-:X:L=57000 #R$(AT+1):NEXT=1020: zd7;OD,OA;" ";D,A;" ";23306 [,23307 [;" ":L=58900:KR6100 X=015:1;7,10 ;"ENGINES HIT";9 ,7;"EXPLOSION IMMENENT":.1}L*(X/2=(X/2)),45-:L=(58900X/2ɺ(X/2)):X WD1,10 :D2,8:Y=07:X=07:X:X=Y6050 RC1,Y*8+192+X:C2,C1:P2,30-Y*2-X:L=A1+A2+S2+S1 X:Y:R$(15) Y=71-1:X=120:0:C1,Y*8+64@:C2,C1:L=A1+A2:Y:C1,0:C2,0:L=A1+A2:X:Y 10:X=1100d:X:62008 X=120:0:C1,80P:C2,80P:L=A1+A2:2:C1,71G:C2,87W:L=A1+A2:X:D2,20:LNS,7:Y=07:C1,Y*8+192:L=A1:L=SCL:X=07:Y=X6120 5P2,X+1+Y:C2,Y*8+X+192:L=A2+S2 X:Y 00:C1,0:C2,0:L=A1+A2 X=1100d:X 8Y=110 :X=37:X;11 ,14;"GAME";12 ,14;"OVER":Z=15:Z:X:Y B23561 \,35# L SCH(SSK) V L=A1 `|6,0;"   " eXD1,30:D2,15:P2,15:X=17:L=S1+S1+S1+S2+S2:X j+''" YOU HAVE TODAY'S HIGHEST SCORE" tK''" PLEASE ENTER YOUR NAME BELOW"''" (MAXIMUM OF 12 CHARACTERS)" ~k23658j\,8:23624H\,71G:"> ";Z$:Z$=""űZ$>12 .1}L,7:6270~ H(SSK)=SC:H$(SSK)=Z$ 9220$: b23296[,3:1:23693\,71G:C2,87W:1:::L=A2+57000:0,0;1,,,,,, l8:8 vV0,0;"SCORE SHIELD BATTLE COMPUTER00000 0000";R$(1) 41,5-SC;SC;1,13 -SS;SS .23561 \,1:23562 \,1 3;3,0;"";3,31;"";3,1;"";3,30;"";4,0;"";4,31;"";4,1;"";4,30;"" ? JNO=0:SC=0:SS=1000:KR=20:8900":R$(16,36$):Z$=22+1+17:Y$=22+2+17:X=116:R$(X):X ^[23304[,21:23305 [,31:23306 [,6:23307 [,15 !4 "+Z$+" NOTHING TO "+Y$+" REPORT." "-Z$+" XARTAN SHIP "+Y$+" APPROACHING" "-Z$+" ALTAN SHIP "+Y$+" APPROACHING" "-Z$+" OMICAN SHIP "+Y$+" APPROACHING" "*R$(2,21)+" ATTACKING" "1R$(3,21)+R$(5,22) "1R$(4,21)+R$(6,22) "-Z$+" DIRECT HIT "+Y$+" ON SHIELDS" ",Z$+" NO DAMAGE "+Y$+" TO REPORT" "+R$(5,21)+" HAS LANDED" "2R$(6,21)+R$(10 ,22) "2R$(7,21)+R$(10 ,22) ".Z$+" ONLY "+Y$+" KRYSTALS LEFT" ".Z$+" ALIEN CRAFT "+Y$+" MATERIALISING" ",Z$+" XL1 "+Y$+" DESTROYED" "*Z$+" GOOD "+Y$+" SHOT!" #-SSK=1 #2m7:0:23693\,71G:0::A=9400$:D=9410$:C6,CS1A:C7,CS1B #<'" 3D DEFENDA: GAME SELECTION"'''" 1......SKILL LEVEL"''" 2......SKILL LEVEL"''" 3......SKILL LEVEL"'''" 4.....INSTRUCTIONS"''" 5......SCORE TABLE"''" 6.....HALL OF FAME"'''" 7.......START GAME" #F<''" COPYRIGHT M.J.LEVERS 1983":Z$=" " #K71;SSK+3;SSK*2+2,7;Z$ #P""9040P# #U!I$=:I$>"7"I$<"1"9045U# #W6I$="7"SK=SSK/5+.1}L:.2~L,10 : #ZwI$<"4"I$>"0"I$SSK.1}L,20:1;7;SSK*2+2,7;Z$:SSK=I$:9035K# #_AI$="4".1}L,30:LNS,21:9190#:90102# #d3I$="5".1}L,35#:9300T$:90102# #i3I$="6".1}L,40(:9220$:90102# #n 9035K# #C6,CS2A:C7,CS2B:23693\,96`:4::23624H\,96`:"":9200#:Z=130:Z$:D:A:23560\,0:X=030:21,X;" ":X:21,31;" ":L=SCL #&23560\="H"A:9191# #23560\="F" #Z:23560\,0 #þ23560\A:9194# # #("PRESS:- H: HALT, F: FINISH" #"|||||| GAME INSTRUCTIONS ||||||","THE OBJECT IS TO PREVENT THE","ENEMY SHIPS FROM REACHING IRATA","AND TAKING THE CIRO KRYSTALS.","YOU CONTROL A DEFENDA XL1 SHIP","AND YOU MUST PICK OFF EACH CRAFT","YOU FIND USING THE XARGON LASERS" #"TO DO THIS A CROSS-HAIR SIGHT","MUST BE POSITIONED DIRECTLY OVER","THE ENEMY AND THE FIRE BUTTON","DEPRESSED. SIGHT CONTROLS:-" #O" 7 : UP"," 5 : LEFT 8 : RIGHT"," 6 : DOWN" #" 0 : FIRE LASERS","AN AGF JOYSTICK CAN ALSO BE USED","SHIELD: YOUR SHIELD'S STRENGTH","IS DEPLETED EACH TIME AN ENEMY'S","LASER BOLT HITS IT. IF IT FALLS","BELOW ZERO, YOUR SHIP WILL BE"," BLOWN TO PIECES." #"BATTLE COMPUTER: THIS WILL TELL","YOU WHEN AN ENEMY IS APPROACHING","AND OTHER VITAL INFORMATION. IT","ALSO INDICATES THE NUMBER OF","CIRO KRYSTALS REMAINING. IF THEY","ARE ALL TAKEN THE PLANET WILL","EXPLODE, AND YOU WILL BE KILLED." #("PLEASE PRESS A KEY TO CONTINUE" $Z$="________________________________"::0,170:6;255,0:''"  " $ _Z$'7'"|||| TODAY'S HIGH SCORERS ||||";Z$'7'" LEVEL PLAYER SCORE " $Z$:C6,CS2A:C7,CS2B:X=13:6-X:'4;X;10 ;H$(X);" ";"00000"(5-H(X));H(X):X:C6,CS1A:C7,CS1B:Z$ $4'" PLEASE PRESS A KEY TO CONTINUE "'Z$ $""9240$ $5:0:7: $S $Tn:"  " $YI''" TYPE OF SCORE CRAFT ORIGIN VALUE" $^P9 ,14;"XARTA";12 ,15;"ALTA";15,14;"OMICA" $c819,0;"(BONUS FOR SHOOTING 20,30,40...)" $hVC6,CS2A:C7,CS2B:#1;0,1;"PLEASE PRESS A KEY TO CONTINUE" $iC6,CS1A:C7,CS1B: $rY=15:X=13:X*3+6,5;A$(X,Y);7;X*3+6,25;" "(3-S(X,Y));S(X,Y):=""X:100d:Y:9330r$ $| $zX=15:21,0;2;" ":Y=110 :Y:21,0;" ":Y=17:Y:X $ $YD1,20:X=1̱Z$:21,X-1;Z$(X);(""XɱZ$):L=S1:X $L=SCL % %23659k\,2::0:0:7:0:23693\,71G:0:23624H\,71G:3,"S": %&1,10 ;"  " %0l'"  " %:_0,175:255,0:0,-84T:-255,0:0,84T %Ds5:0:11 ,0,,,,,,,,,,,,,,,,,,,,,,12 ,1;"COPYRIGHT  1983 BY M.J.LEVERS" %Ny14,1;" " %X818,2;"WHILE THE MACHINE CODE LOADS" %bU0:0:23659k\,1:21,0;:"":23659k\,2 %l49590v%:S1,S2,A1,A2,SCL,D1,D2,P2,C1,C2,LNS %v58500,58535,58600,58630,58690B,23297[,23298[,23299[,23302[,23303[,58691C %{"","","","","","ab","cd","ef","gh","ij","kl","mn","op","qr","st" %|300,,250,200,100d,502,150,100d,502,30,10 ,200,150,100d,502,20 %H(3):H$(3,12 ):A$(3,5,6):S(3,5):X=13:Y=15:A$(X,Y):Y:X:X=13:H$(X)=" SIR CLIVE":X:X=13:Y=15:S(X,Y):Y:X %23658j\,8 %OR(4):X=14:R(X):X:-2,2,-1,1 %`C6=236066\:C7=236077\:CS1A=130:CS1B=224:CS2A=192:CS2B=217 % %D"3D DEFENDA"160:"M/C"39299,9421 $ >; 3D DEFENDA  1983 BY M.J.LEVERS Fj 3D DEFENDA  1983 M.J.LEVERS. COPYING, RE-SELLING, HIRING, OR BROADCASTING WITHOUT PERMISSION PROHIBITED M/C ?%)` A%008888$$H$~$$~$>(> >bd&F(*D:0  `00000`>>00`~008p||0x88~|||<| f:[Ϳ>2\:\0(N5(6(7($8(/`Y: [=2 [1Y: [<2 ["Y: [=2 [Y: [< 2 [>:[: [>>>>>>> >: [: [>>>>>>>u: [2[: [2 [!>>>ׯ>>N#F#"=spfej(hnH!^0}9et.X=@!!wWqMP< P P P 3dM~V}V\GWq !v>ff$~$$~$>(> >bd&F(*D:88(|(~~ ~~`` ~NNFF~8~~~``~~~~&~~`~N~~`~bb~~ 0<$~bb~~FF~0 0 >~|~  ~F ~ZR^@|~F~FNN|d~br~~`ppp~~brrr~~`~`p~~`~`pp~`vrr~FF~FNNN~dd~brr``ppr~~Jjjjj~bbrrr~FNNN~~b~`pp|ddtt~|d~brr~`~~~bbrrr~bbrr4JJjjj~bb2800~@0 =p@?8G pX?r?N??ddt8Jjjj~((|ddLL|\|| 0|0p p( :[G:H\@@:[G:[o:H\@y@E:[G:[gh:[!`X  w#:[!Z w#:[((!x!x!xP<(2[>2[2[>22[>2[ͧ̈́0@ @   @@  ` `p@  @@   @ @@8 @   @0@@@` @@ 0 @ @   @@@p p@  @ `@`@ @@ @@ @@  00@@@ `@@@ @@ @ @@  0   @@ @    08 @@ @ @@@0@ @` @@@ `` @`@   @ @ @@ @@0 @   `8`@  0 ` @@  @  @@@@ @ @`00  0@ @   @@  ` `p@  @@   @ @@8 @ @0@@@` @@ 0 @ @   @@@p p@  @ `@`@ @@ @@ @@  00@@@  @@ @ @@  0   @@ @    08 @@ @ @@@0@ @` @@@ `` @`@   @ @ @@ @@0 @   `8`@  0 ` @@  @  @@@@ @ @`00  0@ @     @@  ` `p@  @@   @ @@8 @   @0` @@ 0 @ @   @@@p p@  @ `@`@ @@ @@0@@@ `@@@ @@ @ @  0     08 @@ @ @@@0@ @` @@@ `` @`@   @ @ @@ @@0 @   `8`@  0 ` @@  @  @@@@ P P P 3\MR0R \Wq !v> = 08pz.W???O/^8t@