ZXTape!Crisis , ,;,   1000  1500 ( w=1 2 2000 < 2500 F 3000 Pc=23 Z"c(c,1)>04500 dc nx=13 x.c(x,2)<1e6t$c(x,1)=0 x (c(1,1)=08000@ Cc(2,1)=0c(3,1)=085004! 5000 w=w+1 502 "NUCLEAR CRISIS" '"It is the year 2042. The super- powers are selling nuclear"'"weaponry to the old Third World countries, as they themselves are defended by satellite"'"weapons." 8'"You are the leader of one such country, striving to protect"'"yourself and expand your terri- tories. Against you are two"'"similar countries, with the sameobjectives - and means." j 9900& t"You buy in nuclear weaponry to replace broken (and used) equip-ment. The mony comes from your own country as taxes, and from the other countries, in black- mail payments of land." x'"As the amount of tax you can"'"collect depends on the size of your country, expansion"'"increases your potentials." ؂'"You can also buy anti-missiles against missiles, anti-aircraft against bombers, and intercep- tors against cruise missiles."  9900&  ,"Blackmailing is carried out as follows:" '"First, you claim land as right- fully yours. After that, if the victim country does not agree, you threaten a nuclear attack. If the country still does not agree, you can launch an attack with one weapon. If this fails, you can launch an all-out"'"attack." d 9900& n c(3,10 ) x=13  1650r c(x,1)=1 y=210 i c(x,y)=(i+i/5*(-)) "y ,x 6t(3,6) @ s(2) J f(3) Tmi=0:mo=0 ^ rQ1e7,1e9nk(,10 ,15,5,15,5,10 ,0   "Week ";w '"Which do you want?" " 1. Report on your country." " 2. Report on Scotland."  " 3. Report on Wales." " 4. Leave report stage."  a *a=a 4 >a<1a4 H"Report on "; R 2300 \ x=1a fc$ px zc$;":"  Dc(a,1)=0"This country no longer exists.":2280  2310 x=29 a>1x>2"Est. "; i$  n=c(a,x) .a>1x>2n=(n+n/3*(-)) i$;25;:x>3n x<4(n/1e6t$);"m" x  9900&  2000 #"your country","Scotland","Wales" ""Land area (sq. km)","Money (`)" "B1 bombers" "Cruise missiles" $ "Pershings" . "A.A.M.'s" 8"Interceptors" B "A.M.M.'s" c(1,3)<2e6t$  "Which do you want?" " 1. Leave acquiral stage." 2320 x=27 " ";x;". Buy "; i$ i$;"." x (a 2a=a <a<2a>7 F 2800 P x=2a Zi dx n%"How many do you want (@ `";i;"m)?" xb b=b Gc(1,3)24000+s*500 q=0s(c-1)=s s=c(c,10 ):q c: " 2. Claim some land." " 3. Launch a nuclear attack." *a 4a=2s=1 >a=3s=4 H z" 2. Withdraw the claim." " 3. Threaten nuclear war." " 4. Launch a nuclear attack." a a=2s=0 a=3s=2 a=4s=4  " 2. Withdraw the claim." " 3. Launch a single weapon." " 4. Launch a full attack." a a=2s=0 a=3a=4s=a a=4s=4 $ B" 2. Withdraw the claim." L" 3. Launch a single weapon." V" 4. Launch a full attack." `a ja=2s=0 ta=4s=4 ~a=1s=2 a=3s=3  " 2. Withdraw the claim." 9"Doing nothing is the same as"'"continuing the attack." a a=2s=0   " 2. Accept the claim." a a=24250 ( n" 2. Accept the claim." xa a=24250  " 2. Accept the claim." ," 3. Launch a weapon in"'" retaliation" " 4. Launch a full attack." a a=3a=4s=a a=24250 a=1s=0  6" 2. Accept the claim." @" 3. Launch a full attack." Ja Ta=3s=4 ^a=24250 ha=1s=0 r  2"How many of sq. km of land will you give them?" a a=a ,a>c(1,2)a=c(1,2) Aaȥ^2*c(1,2)^2/c(c,2)44000 -"It was not enough. Will you"'"reconsider?" a$  4a$""a$(1)="y"a$(1)="Y"4250  0""It was enough to satisfy them." :c(c,10 )=0 Ds(c-1)=0 N)c(1,2)=c(1,2)-a Xc(c,2)=c(c,2)+a b 9900& l mi=0:mo=0 x=36 ,mi=mi+c(1,x)-.73333*c(c,x+3) ,mo=mo+c(c,x)-.8L*c(1,x+3) $t(c,x)=c(1,x)-c(c,x+3)  t(c,x)<0t(c,x)=0 x x=13 9t(c,x)=c(c,x+3)-c(1,x+6)+(*5)  t(c,x)<0t(c,x)=0 x  2800  m=0 x=49  i * m=m+t(c,x-3)*i*1e6t$ 4x >2m=c(c,3)/(m+1):c(c,3)=0 Hx=16 Rt(c,x)=(t(c,x)*m) \x f.s(c-1)>1mi>10 4800 p2s(c-1)>2c(c,10 )=s(c-1) zes(c-1)<4mo>mi*(1.5@+)c(c,10 )<4c(c,10 )=c(c,10 )+1 =c(c,2)<*8e6t$c(c,10 )=1:6750^ ;c(c,10 )>25000+500*c(c,10 ) cmi>10 mo2c(c,10 )=c(c,10 )-1    2300  x=1c i$ x Ii$;" has decided to give"'"you some land if you will cease the attack." %l=(^3*c(c,2)+1) #"They will give you ";l'"sq. km." "Is this enough?" $a$ .4a$""a$(1)="y"a$(1)="Y"4950V 8>.54870 B Vs(c-1)=0 `c(c,10 )=0 j)c(1,2)=c(1,2)+l tc(c,2)=c(c,2)-l ~   "Equipment gone unservicable:"  2320 x=49 d=(*c(1,x)/5) i$ i$;20;d c(1,x)=c(1,x)-d x c=23 x=49 #c(c,x)=c(c,x)-(*c(c,x)/5) x  c  c=13 (t=c(c,2)*2 22c=1"Tax collected: `";(t/1e6t$);"m" <c(c,3)=c(c,3)+t Fx=16 P6c(c,x+3)=c(c,x+3)+t(c,x):t(c,x)=0 Zx dc n 9900& x | $"You wanted to launch one weapon." "This is your arsenal:"  2320 x=13 i$ ." ";x;". ";i$;22;c(1,x+3) x "Which type will you use?" a 'a=a:a>6a<1a=1  c(1,a+3)<1 3c(1,a+3)=c(1,a+3)-1 f(a)=1  7000X  p 2320 zD"You ordered a full attack. Enterthe numbers of each type to use:" x=13 i$ 1i$;20;"(";c(1,x+3);" there)" a 7a=a:a>c(1,x+3)a=c(1,x+3) f(x)=a -c(1,x+3)=c(1,x+3)-a x  7000X  dn=(*3+.9ffff) n0c(c,n+3)=0ƥ>.01z# =6500d xf(n)=1 ?c(c,n+3)>0c(c,n+3)=c(c,n+3)-1  7600  x=13 )f(x)=(c(c,x+3)/2+.5) $c(c,x+3)=c(c,x+3)-f(x) x " 7600 ^x=13 hf(x)=c(c,x+3) rc(c,x+3)=0 |x  7600  X b ll=0 l 2300 v z=1c c$ z !"Target: ";c$;". You launched:"  2320 x=13 i$ i$;":";20;f(x) x  9900&  2320 x=13 i$ f(x)=07240H  n=0 y=1f(x)  Xc(c,x+6)>0ƥ<.75@n=n+1:c(c,x+6)=c(c,x+6)-1 y  i$;":" %&"The enemy defences destroyed"'n;"." * f(x)=f(x)-n 4!" ";f(x);" reached the target." >ll=ll+(*f(x)*1e4') Hx R"ll>c(c,2)ll=c(c,2) \c(c,2)=c(c,2)-ll f'" ";ll;" sq. km of land were"'"lost." p7c(1,4)=c(1,4)+(*f(1)) zx=13 f(x)=0 x  9900&  n=0:ll=0  2300  z=1c c$ z  c$;" launched:"  2320 x=13  i$ i$;":";20;f(x) x ( 2320 2x=13 <i$ Ff(x)=07850 P n=0 Zy=1f(x) djc(1,x+6)>1ƥ<.75@n=n+1:c(1,x+6)=c(1,x+6)-1 iy ni$;":" x!"Our defences destroyed ";n;"."  f(x)=f(x)-n !" ";f(x);" reached the target." ll=ll+(*f(x)*1e4') .ll>c(1,2)ll=c(1,2) x *c(1,2)=c(1,2)-ll 8c(1,2)<0c(1,2)=0 '" ";ll;" sq. km of land were"'"lost." 6c(c,4)=c(c,4)+(f(1)-*f(1)) x=13 f(x)=0 x  9900&  @ JO"Your country has been given awayor blown out of existence after"'w;" weeks." h 9000(# !4 !>"Well done! You have succeeded invanquishing the other two"'"countries, leaving yourself to continue expanding throughout the island." !f 9000(# #('"Do you want to try again?" #<a$ #F*a$""a$(1)="y"a$(1)="Y" #P 10000' &'"Press Any Key To Continue" &=""9920& & & J