ZXTape! 0Created with Ramsoft MakeTZX01984EXPANSION ^N^U`%' %( %) %* %+ %\ %_ %a %:"EX1984/2" &ht=1:9515+% |EX1984/2 9            & + 0 5 7 : ? I N Q S T V X Z ] _ ` b l                       # >       < u v x }              " ' + U \  L V          " ' ( ) < F % %R$(1,1):N$(1,1):T$(1,1):D$(1,1)::21,10 ;1;"LOAD EX1984/3":"EX1984/3" EX1984/3 " y'T"d;0,0;"WEEK: ";qu;" APOCALYPSE ";year;" ": JYv=221,0;" FORCES DESTROYED IN ";:di=5:503:340T OI21,0;C$(l);" HAS FALLEN":di=2:503:345Y Y co=0 ZKj=40(60<:.01z# =,j:j:co=co+1:co<4346Z >(7-(ht>100dht<140)-(ht140)*5) oj=htht+di:n=07:.005y# =,*-30:n,8+j:j160.3,40(:515 Sn:(7-(j>100dj<140)-5*(j140)):j:ht=ht+di+1 +ht<1607:ye1=year:qu1=qu: 23659k\,0:.1}L,60<:j=118*+2:254,255:254,224+*30:j:.1}L,30:800 :11 ,22;" " ds=(*20)+1:j=1s:1:254,255:254,224+*30 &27;8+*160,8+160* 0R255-79O*,24+*568:.005y# =,*-40(:12 ,22;1;ڥ*8;9 ;1;1;" ";13 ,22;" TOTAL ";14,22;" GLOBAL ";15,22;" THERMO ";16,22;" NUCLEAR ";17,22;" WAR ";18,22;" " 5j :u7:20+*130,20+*130:4+(*10 ),4+(*10 ),9999':520 X800 :12 ,22;1;" DISARM ";13 ,22;" MISSILES ";15,22;" SELECT ";16,22;" SILO " ZE1510:800 :O$(y,x)=P$(f,1)N$(y,x)" "607_ ] bcnd=4*N$(y,x):E(f)=E(f)+cnd:N$(y,x)=" ":13 ,22;" MISSILES ";14,22;" DISARMED ";16,22;" REVENUE ";17,22;" INCREASE ";18,25;cnd:1510: #A12 ,22;" ";13 ,22;" ";14,22;" ";15,22;" ";16,22;" ";17,22;" ";18,22;" ";19,22;" ";20,22;" ";21,22;" " * 4e12 ,22;1;" REVENUE ";13 ,22;" ";13 ,22;E(f): >T20,22;1;1;"ERROR!!!! ":1,502:100d: Aj=1l:23760\:j:di=5+*5:503: `17,22;"6 DISARM":I$=:I$546ƯI$480.01z# =,10 :1226 <I=0:q=-480:q=6600X:1200 A1:1:a:0:0:y,x;152:0 Amv=1Ʀ""I$=:mv=0:.1}L,30:7:  1="0"I=0:.01z# =,30:7: #.001wn,502:65202 1.5@830>: 615,22;1;"MOVING ";q;0;" "  12 ,22;2;1;" ATTACK ":j=minmax:12 +j,22;1;j;" ";G$(j):.01z# =,-10 -j:j .1}L,30:880p att=32 20,22;2;1;" COMPUTER ";21,22;" OVERRIDE ":att=min+(*(max-min)):6683 ".4L,40(:800  'k11 ,22;P$(defc);12 ,22;4;9 ;1;12 ,22;" DEFENSE " (Pj=minmax:12 +j,22;1;j;" ";H$(j):.01z# =,-10 -j:j )vj=-2010 2:.015zu\,j:j:.03{u\,25:defc=4100d:def=32 :6716< <def=32 20,22;1;4;0;" COMPUTER ";21,22;" OVERRIDE "::def=min+(*(max-min)):6719? F`j=2252:254,255:254,237:.2~L/j,j+20:j "~LI$=:I$="n"f=c-3*(c=4):nuke=1:800 :8905" "con=2 "ZK$(16,4):nuke=1:f=2P(f)<0con=2:c=f:8844" "#f=f+1:f=4f=1 "ˈqu19 );n,j:n:j:ht=ht-(ht>0)-(ht/10 ) "712 ,23;"END OF";13 ,24;"WEEK" #880p:qu=qu+1:100d:qu>524qu=1:year=year+1:100d:800 :11 ,22;"WELL DONE";12 ,22;" ";1;year;0;" ";13 ,22;"MAYBE WE ";14,22;"ALL WON ":880p # %00011000,00011000,00111100<,11100111,11100111,00111100<,00011000,00011000 %+n::5,0;1;"NUCLEAR CONFRONTATION IN EUROPE ";6,3;"IS A TERMINAL EXPERIENCE" %-320,6;1;"LOAD 1984 DATA TAPE " %/j"CHAR":"Q$"Q$():"C$"C$():"S$"S$():"R$"R$():"T$"T$():"C"C():"O$"O$():"D$"D$():"N$"N$() %11"E"E():"P"P():"P$"P$():7:1: %3^"MAP":pleft=C(1):year=C(2):qu=C(3):nuke=0:f=C(5):p=C(f) %57:9500%:j=152152+7:a:j,a:j:803#:12 ,22;"SELECT ";13 ,22;"FIRST";14,22;"STRIKE";15,22;"FORCE : ";17,22;"1 U.S.S.R.";18,22;"2 N.A.T.O.";19,22;"3 U.S.A.";20,22;"4 UNKNOWN" %:0f=-480:f<1f>49530:% %?"802":f<48950" %D$f=(*3+1):8950" %a !"eaV 110000000121000000123210000123432100012453210001256431001235742000135786000135789E afs"ueCHAR X"gˍpP׻灁á o ~~`p<~B~HDB~B~HDB~B~HDB<$$<qqqUUUU~$$~3333PPݥ>ffffQ$ -X"qc/ARMY NAVY NUKES C$ X"k LENINGRAD OSLO RIGA GLASGOW COPENHAGENDUBLIN WARSAW LONDON AMSTERDAM BERLIN KIEV BREST PARIS PRAGUE ODESSA MILAN BELGRADE MARSEILLE MADRID LISBON ROME ISTANBUL GIBRALTER ATHENS S$ 5X"ic701C2;4A545;627@86888<8D:4:8:=;D<;<@=9>4?2???>BHcp`_p3ppppp*pp8?p pB~`%p7~}?C#L><<`ApC?y?s/ӻ7@`xK??o#?/˯s˯wB<<|<<PP?PPc?B@@BPP(FF?2?#B<<BJJpppp?pppp?pppppppppp pppppppoB|ppppppRRױ> BBBDbbӻӻӻ/ oM<<<BӠ><<?O/04? B?|B<<~<*@B<<8~<B~B|<@<<|bBBPP@FPP (6PB@BFPb@BBB@BF?|RBBA@|J B<BJ?R|BBB@ J{.<ppppJ~Bpp<EpcRp"B~RJ@B|~@R >>/±FBBBb BBB8bF@BDB@Bb>|BB< <<$<<B?<B~<BB~<<"p$                                                             [