ZXTape! 0Created with Ramsoft MakeTZXAIr P' (1:1:1:51300d  9900& 1:1:1: 19,0:"" B#0;0,0;" AIR DEFENCE IS LOADING " (^#0;1;1,0;" PLEASE LET THE TAPE RUN ":19,0 0"" 2}#0;1;0,0;" STOP THE TAPE ";0;" " <<f=17:.3,14:.3,12 :f Fu#0;0,0;" Press O if you wish to continueloading the original AIR DEFENCE":160 P="o"Ŧ="O"160 Z="s"Ŧ="S"140 dt#0;0,0;"or press S if you wish to reloada saved version of AIR DEFENCE":160 n="s"Ŧ="S"140 x="o"Ŧ="O"160 502 h#0;0,0;"Put the ""saved game"" tape in thecassette; press ENTER when ready" f=1150:f 13 150 #0;1;0,0;" START THE TAPE ";0;"press ENTER when tape is running" f=1150:f 13 170 B#0;0,0;" AIR DEFENCE IS LOADING " ^#0;1;1,0;" PLEASE LET THE TAPE RUN ":19,0 "" &COPYRIGHT &V"T",31:"T"+1,63?:"T"+2,112p:"T"+3,224 &^"T"+4,224:"T"+5,112p:"T"+6,63?:"T"+7,31 &R"U",0:"U"+1,15:"U"+2,15:"U"+3,3 &\"U"+4,1:"U"+5,0:"U"+6,127:"U"+7,127 &V"S",0:"S"+1,254:"S"+2,254:"S"+3,128 &`"S"+4,192:"S"+5,224:"S"+6,240:"S"+7,240 &0:0:7: &22,7;"PUBLISHED BY ";1;"" &!3,22;1;"" &05,9 ;1;" 1984 ALMART. " &<6,6;2;"ALL RIGHTS RESERVED":100d &'10 ,7;"COPYRIGHT WARNING" &,,,,"CASES COMPUTER SIMULATIONS LTD ":"will rigorously protect the copy":"right,of AIR DEFENCE.Please note":"that unauthorised copying,hiring":"and lending or broadcasting of ":"this software is strictly":"prohibited." & 250 & DEFENCE @ f ?+8 ?8p>8;q0? ?w @?q@~89_x>8x ?8>q@890wv8A_8;_ 8>q =x8p818?_ `8?q p 8 8? 8?>߿?8?q8p> {  ? ??p@@  x ? " """?8 @>|<|?8 4@" ""x"?@@@? ?x ?7@<~H?@B<|~ 8h88B?8? T <(@<T< BH@ @DTD B~`??B< T< <G?<   ?88 :9: 9:9:        KKKKKKKKKKadmc 7e-7*K\~Y(*Y\RB#s#r*K\~(6Y#6#6       FIIIBBBBFAFHNFAAFR_BBONAIFNIIOBDHFFIIFIGAfivr$E>  8x8x||@D p@BB<?BHHHH@fbB~ xPp H@ZR`BBHB"HH@BJB?BHB<Dp@BFBBA><pBA~BB<  |< p|< xBBBHB@@BBB pB< pB|@RH|@B@JpDBxB@<AB<A<88888888888888888888888888000008 ,,,,,((((((((((((8 ''%%%%%%%%%$,--,-----------(8 %% %%%%%%%%%%,,-,-----------(8 %%%%%%%%%%% ,,-,-----------(8 %%%%%%%%%%%%%%,--,-----------(8 %%%%% %%%%%,,--,-----------(8 %%%%%%%%%%%%%,---,-----------(8 %%%%%%%%%%%,--,-----------(8 %%%%%%%%%%%%%%,--,-----------(8 %%%%%%%%%%%%% ,,-,-----------(8 %%%%%%% %%%%%%,,-----------(8 %% %%%%%%%%%%%%%%,-----------(8 %% &#%%%%%%%%%%%,,-----------(8 %% % %%%%%%%%%,,,-----------(8 %% %%% %%%%%%%(((,-----------(8 %% %%%% %%%%%%%,-,-----------(8 % %%%,,-----------(8 %%%%%%%%% %% %%%%,-----------(8 %%%%%%%%% %%%%%,----------(8 %%%%%%%%%%% %%%%,,----------(8 %%%%%%%%%%%% %%%,,-----------(0000000000000000000000000000000000000000000000000000000000000000!@@<>|<|<~|<>x~|<1(<< {}#@Bx~B<=(B< pÈ~BBx|<~<<BFFB<~BBF<~BFN<<|NF<<|F    B@BB@BBBBBBB  IIBB|BBAB|BAFBBBFRBBBR  IIB>>~@BBF>>~@BFA>>~~|A_>>~~|_  IIBB@ZBHB@ZHABBDABBBDBB~$B~$BBBBBB<|<~|~<X(|8 HPb<`yAD &T%3M0(Tqcls:#ps;py,px;s$;:il=(fl):g$="":g=yil:#ps;(95_+(67Cdisp=map));:g:g=yil:#ps;8;:g il=z#ps;q;p;y;"<";q; e$=:e$="""202" e$=" "ink e$=qink e$=mink e$=l 1il=zfl122z)"202" 0il=zfl90ZƯe$<97a)"202" 1il=zfl>ze$<480ůe$>579202 "e$>96`e$=(e$-32 ) "4g$=g$+e$:il=il-y:#ps;p;e$;:20:201  disp=tote 1008:1280  disp=tote &zz=58432@:y;z,"29";z;q;t 1g=yo:t(g,w)>ty;z;y;q;t(g,y),t(g,x);" " g $b=y20:b(b,x)=z10808 b(b,o)=z10808 b(b,v)>t10808 $*x;q;b(b,u),b(b,s);((23295Z+b)) .bl=yb(b,s)<29b(b,u)<2123675{\,151:23676|\,200:z;q;b(b,u)+y,b(b,s);(143+b):23675{\,88X:23676|\,255 8b Lf=yk V*f(f,x)=zf(f,v)>t-yf(f,v)z1160 `*r;q;f(f,s),f(f,r);((23315[+f)) j*f(f,m)=yy;y;q;q;f(f,s),f(f,r);" " ~bl=yf(f,s)<2123675{\,151:23676|\,200:r;q;f(f,s)+y,f(f,r);(143+f):23675{\,88X:23676|\,255 f  bc=z:b=y20:b(b,o)=z b(b,x)=z1460 #bc=bc+y:b(b,v)>t1460 &7(15-b(b,u))yƽ(16-b(b,s))y5000 (2b(b,u)=b(b,r)b(b,s)=b(b,q)b(b,p)=z5300 b(b,u))-(b(b,r)b(b,s))-(b(b,q) z((b(b,u)-f(f,s))^x+(b(b,s)-f(f,r))^x <25)b(b,o)=y f 2b(b,u)=b(b,r)b(b,s)=b(b,q)b(b,p)=y5600 23295Z+b,(152b(b,s)>b(b,q))+(154b(b,s)b(b,r))+(155b(b,s)=b(b,q)b(b,u)tf(f,v)zf(f,u)=z)1780 V0f(f,n)=22f(k,x)=zf(k,v)z6550 \0f(f,n)=21f(l,x)=zf(l,v)z6550 ^If(f,n)>20f(f,q)=f(f(f,n)-q,s):f(f,p)=f(f(f,n)-q,r):1660| rQf(f,n)>z(b(f(f,n),x)zb(f(f,n),v)f(f,q)) ~9f(f,m)=yf(f,s)=f(f,s)+(f(f,s)f(f,q)) /f(f,r)=f(f,r)+(f(f,r)f(f,p)) 9f(f,m)=yf(f,r)=f(f,r)+(f(f,r)f(f,p)) f(f,m)=yf(f,u)=f(f,u)-y ?f(f,s)=f(f,q)f(f,r)=f(f,p)f(f,n)=-y6800:1740 >f(f,s)=f(f,q)f(f,r)=f(f,p)f(f,n)=z6500d:1740 f(f,n)>zf(f,n)<21(b(f(f,n),x)=zb(f(f,n),v)>t)cls:#z;s;y;z,z;f;z$;"target "+("destroyed!"b(f(f,n),x)=z)+("not airborne!"b(f(f,n),v)>t):pp:1740 Ef(f,s)=f(f,q)f(f,r)=f(f,p)f(f,n)2062008:1740 9f(f,s)=f(f,q)f(f,r)=f(f,p)f(f,n)>205900  ,f(f,u)m23315[+f,(144f(f,p)f(f,r))+(145f(f,p)=f(f,r)f(f,q)f(f,s))+(146f(f,s)=f(f,q)f(f,r)=f(f,p)):1780 f>o23315[+f,(148f(f,p)f(f,r))+(150f(f,q)=f(f,s)f(f,p)=f(f,r))+(149f(f,p)=f(f,r)f(f,q)f(f,s)):1780 23315[+f,(156f(f,p)f(f,r))+(158f(f,q)=f(f,s)f(f,p)=f(f,r))+(157f(f,p)=f(f,r)f(f,q)f(f,s)) f fc=z9000(# disp=totetodis  disp=map1009 .02{# =,u:h=yk+l #z;z,z;"Scram Alloc reHeat Cap Rtb PauseBase Tote Map reFuel Labels saVe" &(d$=:d$>96`d$=(d$-32 ) (d$="X"h=k+l:1858B *d$="M"2000 ,d$="S"2300 .d$="R"2600( 0d$="B"2900T 2d$="C"3200 4d$="A"3500 6d$="T"3800 8d$="L"4100 :d$="F"44000 ;d$="H"4700\ <d$="P"7700 >d$="V"9900& @#z;z,z;"Scram Alloc reHeat Cap Rtb PauseBase Tote Map reFuel Labels saVe" Bh D, .01z# =,z:t=t+y:cls:t=mt9000(# N 1002 disp=map:1010: #t(x,w)>tƥ<.68400 : cls:#z;z,z;"Scramble-"; ""2324  pp:wsq f(sq,x)=zooa: $<f(sq,v)z#z;z,z;s;y;sq;z$;"already airborne!":pp: B8100:base=z Lsqoacr:2400` Vcap `Cf(sq,v)=t+x:f(sq,u)=t+24+(36$sq>o)+(12 sq>m): 2cls:#z;z,z;"Recovery-"; 6""26146 8 pp:wsq 9f(sq,x)=zooa: :f(sq,v)znab: <8100:base=z F:f(sq,n)=-y:fb=f(sq,o):f(sq,q)=t(fb,y):f(sq,p)=t(fb,x) Pack: `"cls:#z;z,z;"Change base-"; b""2914b d pp:wsq ef(sq,x)=zooa: ff(sq,v)znab: h?cls:s$="Which airfield ?":fl=-y:ink:g$=""2920h j^f=sq:fl((t(f(f,o),y)-f(f,s))f(f,u)-(t+y)ƽ(t(f(f,o),x)-f(f,r))f(f,u)-(t+y))f(f,m)=z rf(sq,o)=g$-60<:f(sq,n)=-yf(sq,q)=t(f(sq,o),y):f(sq,p)=t(f(sq,o),x):cls:#z;z,z;"Roger ";sq;z$;"RTB to ";g$:pp: |7cls:#z;z,z;"Roger, ";sq;z$;"new base ";g$:pp: cls:#z;z,z;"Patrol- "; ""3211 pp:wsq f(sq,x)=zooa: f(sq,v)znab: 6cls:s$="CAP position? ":fl=-x:ink:g$=""cap g$xcap ,g$(y)>85Uůg$(2)>90Zcap 8f(sq,q)=g$(y)-64@:f(sq,p)=g$(2)-64@ f(sq,n)=z:ack: !cls:#z;z,z;"Allocation-"; ""3511 pp:wsq sq>o6650: f(sq,v)znab: f(sq,x)=zooa: 7cls:s$="Which target? ":fl=x:ink:g$=""alloc g$20alloc Ԕft=(g$):(b(ft,x)=z)(b(ft,v)>t)cls:#z;z,z;"target ";ft;+(" already destroyed!"b(ft,x)=z)+(" not yet airborne!"b(ft,v)>t):pp: f(sq,n)=ft Jf(sq,q)=b(ft,u):f(sq,p)=b(ft,s):r$=g$:4710f:g$=r$:ack:r$="": *cls:y:p:q:disp=tote:qq=65356L z,x;t ,f=yk:f(f,x)zy+f,y;z;" ":3870 f(f,m)=yr;y+f,y;" " <fz);  o;("T/R"f(f,v)zf(f,n)20)+((f(f,n))f(f,n)>zf(f,n)20)+("T-"+(f(f,n)-q)f(f,n)>20)+("RTB"f(f,n)z); B15;c$(f(f,o));19-(f(f,u));((f(f,u))f(f,u)>z) f:f=z ($b=y20:b(b,v)>t3920P 2,b(b,x)=zb+y,28;"SPLA":3920P <y+b,22;(b(b,x)b(b,p)=zb(b,o)=y)+("MM"b(b,o)=zb(b,p)=z)+("-"b(b,p)=y);25;(b(b,w)b(b,o)=yb(b,p)=z)+("-"b(b,p)=y)+("MM"b(b,o)=zb(b,p)=z);28;("REP"b(b,o)=yb(b,p)=z)+("RTB"b(b,p)=y)+("INT"b(b,p)=zb(b,o)=z) Pb:b=z dA21,0;16-bo;" ";16+0+bo nZ17,w;((t(u,w))t(u,w)>t);p;((t(s,w))t(s,w)>t);15;((t(r,w))t(r,w)>t); xZ18,w;((t(q,w))t(q,w)>t);p;((t(p,w))t(p,w)>t);15;((t(o,w))t(o,w)>t); :s ;((t(v,w))t(v,w)>t);15;((t(x,w))t(x,w)>t); :s ;((t(w,w))t(w,w)>t);15;((t(y,w))t(y,w)>t); z: bl=(zbl=y)+(ybl=z) Ccls:#z;z,q;"Track labels "+("on"bl=y)+("off"bl=z) $""4132$ &pp: :cls:#z;z,z;"Tanking-"; ;""4411; f(sq,v)znab: ?n(sq=l(f(k,x)=zf(k,v)z))(sq=k(f(l,x)=zf(l,v)z))cls:#z;z,z;s;y;sq;z$;"can not tank itself!":pp: @+((f(k,x)=z)(f(k,v)z))tk=l:4670> A+((f(l,x)=z)(f(l,v)z))tk=k:4670> B(tk=(lsq=k)+(ksq=l):tk>z4670> DDtnk=z:cls:s$="Which tanker? ":fl=2:ink:g$=""tank1 Ng$ktank1 l tk=(g$) @Kf(tk,m)=-ycls:#z;z,z;"Tanker ";tk;" is RTB-no fuel to give":pp: B0f(sq,n)=tk+q:f(sq,q)=f(tk,s):f(sq,p)=f(tk,r) Hack: \cls:#z;z,z;"Reheat-" ]""4701] ^ pp:wsq _sq>o6650: af(sq,v)znab: cf(sq,x)=zooa: fP85004!:s$="Reheat On or oFf? ":fl=-y:ink:g$=""4710f h!g$="F"f(sq,m)=z:7300: j!g$="O"f(sq,m)=y:7300: p 4710f  t(w,w)>t <cls:#z;z,z;"Bomber Raid ";b;" engaged by ships!":pp gb(b,x)=b(b,x)-(*v)+v:b(b,x)zb(b,x)=z:cls:#z;z,z;y;"Bomber raid ";b;" destroyed!!":pp: 5t(w,w)=t+x:#z;y,z;"Missiles reloading!":pp: bcls:#z;z,z;r;z;y;"Bomber ";b;" over target!!!":g=yp:.01z# =,10 -g:.01z# =,z:g Db(b,r)=(yb(b,r)n)+(21b(b,r)>n):b(b,q)=31:b(b,p)=y !bo=bo+b(b,x):bomd9000(# fb(b,2)t(i,w))+(t(i,w)tt(i,w)) #t(x,w)>tƥ<.4L8400 : "zcls:iv)+(c$(i)i>v)+(" slightly"t(i,w)>tt(i,w)<(t+o))+(" badly"t(i,w)(t+o) t(i,w)<(t+20))+(" heavily"t(i,w)(t+20))+(" damaged"t(i,w)>t) 6pp |2t(i,w)>t#z;y,z;"Attempting repairs":pp: W9700%:g=yo:b(b,g):g:b(b,x)=b(b,x)+dif:b(b,w)=(*u)+dif:b(b,v)=t+(*u): sq=f:tk=f(sq,n)-q  f(f,m)=yf(f,m)=z:7316  5cls:#z;r;y;z,z;sq;z$;"Refuelling complete ":pp %Vty=(t(f(tk,o),y)-f(tk,s)):tx=(t(f(tk,o),x)-f(tk,r)):tz=(tyty>tx)+(txtx>ty)+t+y *av=f(tk,u)-tz:mx=t+24-f(f,u)+(36$f>o)+(mf>m):fofr=f(f,x)/24:f(f,u)=f(f,u)+(mxav>(mx*fr))+((av/fr)av(mx*fr)):f(tk,u)=f(tk,u)-((mx*fr)av>(mx*fr))-(avav(mx*fr)):59404 ,Lf(f,u)=f(f,u)+(avmx>av)+(mxmxav):f(tk,u)=f(tk,u)-(mxmxav)-(avmx>av) 4tnk=y:8210 :tnk=z: B0cls:#z;z;r;y;z,z;f;z$;"engaging target!!" L2g=yw:h=yq:.005y# =,y+h:.005y# =,o:h:g V&a=f(f,x):g=+1.5@:h=+2 `.b=f(f,w)-dif/x:e=f(f,n):c=b(e,x):d=b(e,w) j((25+w*c):d=d-((b/g)):dzb=e:5600:res=res-y  nDcls:#z;r;y;z,z;f;z$;" on CAP":pp:f(f,m)=yf(f,m)=z:"7316" p kcls:#z;z,z;s;y;f;z$;"tanker ";("on the ground"f((f(f,n)-q),v)z)+("out of action"f((f(f,n)-q),x)=z) .f(f,n)=z:f(f,q)=f(f,s):f(f,p)=f(f,r):pp: 0cls:#z;x;r;z,z;sq;z$;"out of action":pp: 4cls:#z;z,z;s;y;sq;" is not a fighter";z$:pp: ,4cls:#z;s;y;z,z;sq;z$;"not airborne yet!":pp: ^9tnk=z:((f(k,x)=zf(k,v)z)(f(l,x)=zf(l,v)z))tnk=y h cls:t(f(f,o),w)>t#z;z,z;r;y;f;z$;"cannot land-":#z;s;y;y,z;"Airfield ";c$(f(f,10 ));" is out of action!! ":pp: 2#z;r;y;z,z;f;z$;"landed safely":pp:f(f,m)=z  f(f,v)=-u:f(f,u) =z:f(f,n)=z *fof(f,w)=x*f(f,x)+(x*f(f,x)t(y,w)kwsq V g$t#z;s;x;z,z;"Airfield ";c$(fb);" damaged-under repair":base=z:pp:  base=y:  6750^ cls:s$=("Ac "+f(sq,x)sqo)+(" "sq>o)+(" "f(sq,x)o)+("Allocate "sqo)+"CAP "+("ReFuel "f(sq,v)ztnky)+("RTB "f(sq,v)z) fl=-y:ink:g$=""8210 $g$="F"f(sq,v)ztnky82400 g$="A"sqo82400 !g$="R"f(sq,v)z82400 "g$="C"82400 $ 8210 0Ltnk=z:cls:(4416@g$="F")+(rtbg$="R")+(capg$="C")+(allocg$="A"): v\cls:#z;z,z;"Roger ";sq;("(AEW)"(sq=11 sq=12 ))+("(AAR)"sq>12 );z$; &f(sq,n)=z#z;"to CAP ";g$:pp: !f(sq,n)=-y#z;"RTB ":pp: N#z;("to target "+g$f(sq,n)20)+("to tanker"f(sq,n)>20) pp: Ucls:#z;z,z;"Communications links damaged! No contact with ground stations " ""8412  !>.#z;s;z,z;(h$disp=map)+(f$disp=tote);f$: #(y:y:y:y: #,4s,r;"         " #.3r,s;"           " #08q,s;"             " #23p,s;"           " #4Po,r;"              " #6:n,s;"             " #8:m,s;"             " #:5l,s;"           " #<1k,r;"         " #>Iht=(t/m):f="50"̰"130":254,(*r):f:z:r::bczx:"9050" #Rv:fa=k-fc:''l$;" ";j$''"YOU HAVE ACHIEVED YOUR MISSION. ":9980&:" All ";mb;" raids were destroyed.":"You lost ";("a mere "fa>z);fa;+" squadrons."'"It took you ";ht;" hours to shoot"'"down ";bd;" bombers"'' #T"Their Airships have decided that";("you are promoted to:"dify)+("you remain:"dif=y)'':dif=dif-(ydif>y):9400$:l$;" ";j$ #[fd=120x:f=yo:fd=fd-f(f,x):f:pg=(u*o+(bd/(x*o))+fc+rd/x-bo*u^x/md-fd*u^x/(m*o)) #pg>o^xpg=o^x # pgm9600% %j$=g$ %Eq,m;s;y;"DIFFICULTY (1-5):";z;u;:py=q:px=29:fl=y:ink %'g$<491ůg$>5359620% %3dif=g$:k$="CADET CAPTAINMAJOR COLONELMARSHAL" %#9400$:6:zz="58432" %"mb=o+r+dif*w:res=(mb-20) %md=x*o^x-o*dif:mt=o^x %Pf=yo:t(f,w)=z:f:fd=z:bl=y:bd=z:rd=z:t=z:bo=z:tote=z:map=y:disp=map %@#z;z,z;l$;" ";j$;x*n;"report to operations for briefing ! !" %=b(x*o,o):b=yx*o:254,*255:9700%:g=yo %b(b,g):g:b %kb,(*(x*dif+x*r)+q),(*s) +w+dif,(*(o*w-dif))+(u*wƥ<.5),(*x*o)+y,31,(*x*o)+y,x*m,z,z %cls:f=yv:ץ*f/o,f*x:f:k+v,m;p;"BRIEFING";x;s;o+p,m-((j$)/x);l$;" ";j$;o+o,z;p;y;"Your task is to defend the area shown on the map. Intelligence ";#z;z,z;p;y;"reports that up to ";mb;" raids are expected. Alert your forces...." &Qf(k,m):f=yo:254,*255:f(f,m)=z:9740 &:g=yu:f(f,g):g:f & f,m,m*v,-x,z &0f=ylx:254,*255:g=zy:h=sqx & #97804&+f:f(f+g,h),f(f+g,h+y) &* h:g:f &5o+r,s &7s,q &9n,o &;o+p,l &=v,k &?q,w &Aq,w &Hf=nk:9820\&:g=yu &Rf(f,g):g:f &\ f,y,-y,-w,z &ff=yk:f(f,o):f &ps,s,r,r,q,q,p,p,o,o,u,u,u,u &z.f=yk+y:.05|L,x*o:.05|L,z:u:f:o &#g=ys:.3,k:.45ffff,o:g &/py=z:px=z:ps=z:zz=58432@:1300 &\cls:s$="Do you want to SAVE the game? (Y or N) ":fl=-y:ink:g$=""9900& &g$"Y"1800 &Ndisp=map:zz=58432@:1010:cls:#z;z,z:"AirDefence"9960& &Icls:#z;z,z;"Press C to continue game":z:="C"Ŧ="c"1800 & &s:disp=tote:todis:l*(o^x) &D9970&:g=.6:h=.4L:i=.2~L:f=yn:a,b:a,b:f &:g,-m,h,-m,i,-m,g,-m,h,-p,i,-o,h,-o,i,-m,h,-m,i,-m,g,-m: &F9980&:a=.3:b=.2~L:c=.1}L:f=yx*m:d,e:d,e:f 'fa,-x,b,-y,c,y,c,s,c,s,a,s,b,u,c,s,c,q,c,w,c,w,a,w,b,s,c,w,c,u,c,u,c,u,a,u,b,w,c,u,c,s,c,-s,c,-s,a,-s ' zyxwvusrqp o n m l k N%totaisKs@l4!cl c a,onnankDcrat< basT a llo odian0  JMELVINiK#CADET CAPTAINMAJOR COLONELMARSHALanLCADET e>H %      *%S     Z squadron RC ABCDEFF H GE8