ZXTape! 0Created with Ramsoft MakeTZXINSURGENCYd'd$c f'0:0:0: '?0:0:"IN":::::0:0:"SURGENCY" lIN @R||~<~B<|pp~|<@5B<(R~DDD 0d?& p>x|>px?pp>? )@ >BHJBDD<xJpR@?p?p<p"PD@u B~FBD<<BB8 < <? p? u<8$CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCSURGENCY BB"/Bx:.5,.5:7;10 ,3;1;"Please stop the tape now.":9900&:9800H&:10 K7:58050:15::2,10 ;1;"INSURGENCY" 30:502 #" To continue press ENTER.";w$: &0:0:0:7: Wz=1:y=1:x=1̱x$:m,y;x$(z):x$(z)32 .02{# =,-40( >z=z+1:y=y+1:y=32 y=0:m=m+1 x: 30:568,33!,10 ,228,24,3,33!,60<,180,17,0,64@,1,0,27,237,176,201,0,0,0,1,168,0,33!,81Q,252,17,88X -x=129:n:(65300+x),n:x 568,33!,0,64@,24,3,33!,60<,180,17,10 ,228,1,0,27,237,176,201,0,0,0,1,168,0,33!,81Q,252,17,88X #-x=129:n:(653302+x),n:x % (k=1x:y=:k: -Hx=621:x,0;" ":x: 48,1;"Please decide who will command ";1;1;"government";0;0;" forces and who will be the ";2;1;"insurgent";0;0;".(You each get separate, secret advice.)" 5|14,1;"Is this a new game (enter y) or are you continuing one that you saved (enter n) ?":" (y or n) ";f$ A 700 Ff$=110n2000 Hm=8:7:1:1::x$="The government player must now choose his forces. The insurg- ent should turn away!" K 20 Z10 :15: _E110n:190:se=2:f=1::115s:200 dr=65302 i n0,0;"RESOURCES" p9f=0:se=0:y$="4411400321":z$="" s>x=110 -f:se+2*x,2;ٰy$(x);z$(x):x xx$="Infantry Armour Helicopters Aircraft Artillery Engineers Supply truckIntelligenceMedics Headquarters" }Yf=0x=110 :2*x,5;x$(12 *x-11 12 *x):x 0,17;"Monthly cost";1,17;"each($m)":b$="1.02.00.10.20.60.50.10.10.80.2":x=128-se-f3:a$=b$(xx+2):1+se+x-(x/3),24-a$;a$:x f=010 : 0,4;"Total number";1,4;"available":d$="10031012040220050201":x=1172:y=d$(xx+1):a$=y:3+x,10 -a$;a$:x  :2,0;"You are allowed up to ";1;"20";0;" combat units (":x=15:3,5+2*x;ٰy$(x);" ";z$(x):x:3,17;") only at any one time, otherwise your polit- ical masters feel threatened." 8,0;"You can begin with as many ancillary forces ( ";3;" ";2;" ";0;") as you wish up to a maximum and youshould have at least ";1;"10";0;" trucks." s14,0;"You must make an initial choice but may be able to add more units as the game progresses." M20,0;"(You must have a ";1;"headquarters";0;".)" Š10 ::9 ,0;"Intelligence reports indicate that the insurgents will run outof food and arms in fifteen months at the most.":10 : ȭ0,31;"#":n=0:x=19 :2+2*x,2;ٰy$(x);1;z$(x):x>12*x,2;ٰy$(x-1);z$(x-1) L210,67C:45-,0:x<614,28;"(20)" &x=614,28;" " "How many ? (# and ENTER) ";w$ 9w$<480ůw$>579.5,.5:210 w=w$ Bw>d$(x*2-1x*2).5,.5:210 7x<6n+w>20.5,.5:210 58060,1 (58050+x),w:n=n+w $2+2*x,32 -w$;w$ x:10 ,m=8:7:2:1::x$="The insurgent must now choose his forces. The government player should turn away!" 6 20:10 :15: Ty$="":z$="22013402" Yox$="Guerillas (With radios)Anti-aircraftSupply plane Spy/scout Food suppliesArms suppliesCommand post " ^8355c:10 ::450:355c:470 c:"Resources" hgx=18:2+x*2,2;ٰz$(x);y$(x):x=26,3;2;"" jx mUx=18:2+x*2,5;x$(13 *x-12 13 *x):x r C1,0;"Notes:";4,0;"1. You must have a command post.";8,0;"2. You can choose up to ";1;"12";0;" more service units,(";2;"";0;") and up to ";1;"100";0;" plane-loads of arms and food (";4;"";0;") altogether." ̔14,0;"3. You may be able to liberate government supplies, be fed by villagers and recruit more men as/if you advance."  10 : >0,17;"Most units";1,17;"available" d$="012004005005007100100001" x=18 Je$=d$(x*3-2x*3):2+x*2,23-e$;e$ x:0,30;"#" m=0:n=0:x=18:2+2*x,2;ٰz$(x);1;y$(x):x>12*x,2;ٰz$(x-1);y$(x-1) L210,83S:45-,0:m=012 ,28;"(12)" &x=512 ,28;" " 9x=8e$=1:e=e$:58068,e:545! Cx=5e$=d$(x*3-2x*3):e=e$:540 Jx=7e$=(100d-58066):e=e$:58067,e:545! "How many ? ";e$ 9e$<480ůe$>579.5,.5:500 >e=e$:e>d$(x*3-2x*3)e$="a":515 n=n+e 1x<5n>12 e$="a":n=n-e:515  m=m+1 (58060+x),e !$2+x*2,31-e$;e$ & x:10 X@:8,0;1;"Both players can now look again!" ]t12 ,2;"Would you like a KEY printed out for the types of unit ?":"(y or n)";x$:x$"y"650 b "KEY":" " g$" Infantry / Guerillas":" " l" Armour":" " q'" Artillery / Anti-aircraft":" " v" Helicopters":" " x" Strike aircraft":" " {" Supply truck":" " }" Supply plane":" " " Engineers":" " #" Intelligence/ Spy/scout":" " " Medics":" " &" Headquarters/ Command post":" " " Battle!":" "  1800 :8,2;"Please pick a number for the";9 ,2;"MAP. If restarting, enter the number you tried last time." Y15,2;1;"Remember which map number you";16,2;"choose !" "A number (1 to 100) ? ";x$ 9x$<491ůx$>579.5,.5:710 9x$<1Űx$>100d.5,.5:710 6x=x$:19,2;"Map number: ";x:40( !14,11 ;"Thank you."  ;502::0,7;1;"STARTING THE GAME" H4,0;1;1;"Government";0;" forces start in occu-pation of some villages and are supplied by air and road from the ";1;"south";0;"." R10 ,0;2;"The ";1;"insurgents";0;" are scattered butsupplied from a neighbouring country just to the ";1;"north";0;" of themap." \L17,0;"Each turn represents 2 weeks;theinsurgent moves first." fy0,20:255,0:20,0;6;"If the main program breaks,type 'GOTO 300' and ENTER."  9000(# Q7::1,2;"A map of the area is being prepared." !4,7;1;"KEY" C6,7;6;"";7;" = village(govt. held)" 8,7;6;1;"";0;7;" = village(insurgent)";10 ,7;4;"";7;" = jungle/crops";12 ,7;4;"";7;" = mountains" 14,7;4;"":7:568,568:6,7:579,568:6,7:0::7:14,8;" = main road" 16,7;2;"":7:568,40(:6,7:579,40(:6,7:0::7:16,8;" = minefield" r=118,7;5;"";7;" = river";20,7;5;" ":7:568,8:6,7:579,8:6,7:0:20,8;" = bridge/ford"  : 3000 [:100d:.5,.5:10 ,2;1;"Please start the tape again." "Insurgency"  :f(100d,2) 7,3;"Stand by for data on your";8,6;"initial positions.";12 ,2;"(You do not have to remember where units are!)":100d:3014 X100d:2::10 ,5;1;"Insurgent player only !":10 : Vf=0::1:10 ,4;1;"Government player only!":10 5?c=6:d=480:e=d:y$="":w=1:z=58051 ?100d:n=0 Dx=w+fw+z-1+f IHc=6y=(1+*(o-.5)):a=b(y,1):b=b(y,2) J;x=22a<14n=n+1:n<63145I KAc=4a=(1+19.5*):b=(1+29.5l*) L.x>502x<78Na>11 3145I N(a,b)dƫ(a,b)e3145I S,a,b;c;y$:f(x,1)=a:f(x,2)=b Xx ]Ew=1c=6w=20:z=58059:y$="":3140D _Sw=513w=66B:c=4:d=36$:z=58062:y$="":3140D b7w=20w=22:z=1:y$="":3140D g]w=22c=6w=11 :z=58052:y$="":d=39':c=4:3140D i<w=66Bw=72H:z=58063:y$="":3140D j7w=72Hw=77M:z=1:y$="":3140D lSw=11 w=14:z=58055:y$="":d=39':c=4:3140D qSw=14w=18:z=58056:y$="":d=39':c=4:3140D sNw=77Mw=83S:z=7:y$="":c=6:d=480:3140D v_w=18w=45-:z=58058:y$="":e=491:d=480:c=6:3140D {x=50210 _x<5133012 :c=4:w=513:z=58061:y$="":d=36$:3135? x=1100d L(58119+x*2),f(x,1):(58120+x*2),f(x,2) x  10 2000 #(a(20,30) #)r=0:rh=0:rv=0:rh=(*502):rh>1rh<20k=130:a(rh,k)=-1:k:r=1 #*ir=0rv=(*502):rv>1rv<30k=120:a(k,rv)=-1:k:r=1 #-6o=(18+5*):58070,o:b(o,2) #2 k=1o #< 95200% #Fa(x,y)=a(x,y)+1 #K,a(x,y)=2a(x,y)=1:9055_# #M-a(x,y)=0a(x,y)=-1:9055_# #P b(k,1)=x:b(k,2)=y #Rk=1k #Ul=1k-1 #Wb(l,1)-b(k,1)<2b(k,1)-b(l,1)<2b(l,2)-b(k,2)<2b(k,2)-b(l,2)<2b(k,1)=0:b(k,2)=0:l=k-1 #Zl #_#b(k,1)=0k=k-1 #dk #iXk=1o:58069+k*2,b(k,1):58070+k*2,b(k,2):k #n10 :1000 #c$="" #k=12 # l=1o #x$=l:9505!%:n=0 #$x=(1+(o-.5)*):x$=x #sy=(b(l,1)-b(x,1))*(b(l,1)-b(x,1))+(b(l,2)-b(x,2))*(b(l,2)-b(x,2)) #/n<4y>25n=n+1:9150# #/n<9 y>491n=n+1:9150# #0n<12 y>81Qn=n+1:9150# #1n<15y>144n=n+1:9150# #y=09150# # 9505!% #3c$>o*4*(1+)l=o*3:k=2 #l:k #4:4::0:6:x=12221:x-1,0;7;" ":x:x=121:x,0;7;" ";x,31;" ":x #Lrv>1rv<30k=120:k,rv;5;5;"":k #Lrh>1rh<20k=130:rh,k;5;5;"":k #(7:k=1̱c$-34 #0x=c$(kk+1):y=c$(k+2k+3) $4+8*b(x,2),172-8*b(x,1):9515+%:3+8*b(x,2),172-8*b(x,1):9515+%:4+8*b(x,2),171-8*b(x,1):9515+% $k $e(6):x=262:e(x)=8:x:e(1)=(40(+40(*):e(3)=(85U+502*):e(5)=(150+60<*) $" 7:n=1:l=19 $' k=1o $,b(k,1)=lb(k,2)n+3e(n),0:95255%:e(n)+1,0:95255%:n=n+2:l=19 $1%n=7l<8n=7:k=o $6k $;$n<7l=l-1:9255'$ $@B0:k=1o:b(k,1),b(k,2);6;"":k $Tm=(25+20*) $^ k=1m $h 95200% $r(x,y)36$9320h$ $|<.9ffffx,y;4;"" $}a=0:b=0 $~"y>1a=1:9530:% $,y>3b=0a=1:9530:% $.y<26b=0a=-2:9530:% $:b=0x<19b=-1:9530:%:9342~$ $9b=-1x>1b=1:9530:%:9342~$ $k $r=653324 $J"Would you like a COPY? (y/n) ";x$:x$="".5,.5:9400$ ${x$(1)="y"x=1o:b(x,1),b(x,2);(x+96`):x::" "::" " % 70F %'23653e\+256*23654f\: %!x$=1x$="0"+x$ %# c$=c$+x$ %& %+K8*(b(y,2)-b(x,2)),8*(b(x,1)-b(y,1)): %08x=(1+*19.5):y=(1+*29.5l): %5D3+8*b(k,2)-e(n),172-8*b(k,1): %:^(a0b0)ƫ(x-b,y-a)=36$ƥ<.9ffffk8w=6 L 15 OCw=1w=26:x$=" all units function normally " TOw=3w=65:g=.8L:x$=" movement slowed " YDw=41:f=0:x$=" air units grounded " ^Ew=51:g=.5:x$=" ground mobility much reduced " cNw=71:g=.73333:1:x$=" bridges and fords washed out " hOw=81:g=0:f=0:x$=" units immobilised " mLs=1ff=f:gg=g:5,13 ;i$(w$,w);":";8,1;x$ oBs=017,13 ;i$(w$,w);":";20,1;x$ r(15:s=0ww=www:440  400  1,10 ,6,11 ,13 ,10 ,14,17,3,18,19,10 ,20,21,3,22,22,10 ,23,32 ,8,33!,44,,40(,45-,491,10 513,65A,7,66B,71G,7,72H,76L,7,77M,77M,9 ,78N,82R,30,83S,92\,8 x=115:a,b,c Sy=ab:a(y,1)>0a23a33!a78Na(y,3)=(c*g) y>502y<61=a(y,3)=(a(y,3)-((a(y,1)-a(77M,1))*(a(y,1)-a(77M,1))+(a(y,2)-a(77M,2))*(a(y,2)-a(77M,2)))/196) y:x !s=1s=0:317=  10 Fw$="poor low fair good high high ":c=2:cc=1:12 As=0::1,10 ;3;1;"INTELLIGENCE" N4,0;"You may seek a report from each spy on ";1;"either" A9 ,3;1;"a";0;") the village he is in" `13 ,0;1;"or";0;" ";1;"b";0;") enemy units in the area" ]17,0;1;"or";0;" ";1;"c";0;") no report called for"  10 #f=0y=45-:z=491 $f=502y=83S:z=92\ Z15:90Z:x=yz:a(x,1)>0a(x,1),a(x,2);8;"" x x=yz:x>ya(x-1,1)>0z=22528X+a(x-1,1)*32 +a(x-1,2):z>128z,z-128 !a(x,1)=0585I Ra(x,1)>0k=a(x,1):l=a(x,2):k,l;8;1;"" _" INPUT a,b or c ? ";x$:21,1;" ":x$=""520  x$="c"585I  7>.8L21,11 ;"no report":585I  9x$<97aƯx$>99c.5,.5:520 x$="b"580D Ua=0:p=1o:b(p,1)=kb(p,2)=la=p:p=o:k,l;(96`+a) ,p:a=0.5,.5:520 !x$=" Village "+(96`+a)+" ;population "+b(a,5)+"..."+(b(a,6)/(b(a,5)/502))+" months of food..." $!y=b(a,3):y<0y=-y +\a=0:p=513-f77M-f:a(p,1)=ka(p,2)=la=1:p=77M-f -p .&x$=x$+" Loyalty to govt: "+i$(w$,y) 0"a=1x$=x$+".. occupied " 5.a=0x$=x$+"..no occupying units " :.20:"Printer ?(y or n)";z$:z$="y"x$ ?x:590N D 2000 F.rr=021,10 ;"no presence" Ix NCy=0:x=78N82R:a(x,4)=1y=y+1 Px:sd=14*y*ff Sf=0sd=su X':0,13 ;1;"SUPPLY" b3,0;"Stipulate the level of supply tobe achieved":x=15:5+x*2,12 ;x;". ";i$(w$,x):x df=02600( g"Level (1-5) ? ";x$ l9x$<491ůx$>535.5,.5:615g qs=x$ s':0,13 ;1;"SUPPLY" v2,3;"Place Men Quality Food Ammo":m=5:x=f+122+f+f/10 :(x=22x=77M)a(x,6)a(x,7)a(x,7)=a(x,6) 1r=x:2070:x>65Ax<72Hy$="" m,1;" ":m,0;c;y$:x$=a(x,1)+","+a(x,2):y=0:z=1̱x$:x$(z)=44,y=z ;z:y$=a(x,4):m,12 -y$;y$:m,6-y;x$: n670:14,21,26:y=13:u:a(x,4+y)0a(x,4+y)=1 ,m,u;i$(w$,(a(x,4+y)+.5)):y  m=m+1 !m=1910 :m=5 &x:"Printer ? (y or n)";z$:z$="y" f=02500 F10 :x=0:ww=8n$=n$+"storm":502:1500 ):0,12 ;1;"MOVEMENT" =m=2:x$="afglmnr":f=0x$="bcfgmnt":m=0 Ay=17:2+y*2,4;1;x$(y):y F7:f=5024,7;2;" ambush (guerillas)" <f=04,7;1;" build (engineers)" <f=06,7;1;" clear mines " <6:8-m,7;0;" take food " 410 -m,7;0;" give food " >f=50210 ,7;2;" lay mines " 212 ,7;4;" move (INKEY$ 5-8)" 214,7;0;" next unit " >f=50216,7;4;" recruit villagers " =f=016,7;0;" transport " e15:20,5;"Or press ";1;"u";0;" to return to this menu."  10 ::90Z *$y=513-f77M-f-f/10 /Sa(y,8)=1r=y:2070:a(y,1),a(y,2);cc;8;y$ 4y >#y=1+f22+f+f/10 C!a(y,1)=0845M H<r=y:2070:a(y,1),a(y,2);c;8;y$ MFy:f=0x=02700 :2800 :x=1:800  Ox>1860\ Ryx=1+f491+f:x>1a(x-1,1)>0a(x-1,1),a(x-1,2);8;y$ Tx=78Nx=82R:x Ux=93]x=h:1495 W%a(x,1)=0x:1500 \c:r=x:2070 ^;k=a(x,1):l=a(x,2):k,l;1;8;y$ aqx<78N21,1;a(x,4);" men;";i$(w$,a(x,5));"quality;arms:";i$(w$,a(x,7)) b(x>44,x<502)x>82R21,1;" Move spy ?(a-";(96`+o);" or z to stay) ":3000 :1495 cx<502x22ƥ>.95s33321,1;1;"Orders mislaid:unit immobile. ":502:502:1495 dx<502x22ƥ>.92k21,1;1;" Unit incommunicado. ":502:502:1495 f" INPUT f,m,n,u etc. ";x$ k&x$>10 a=117u:890z p875k:z=0:97a,98b,99c,102f,103g,108l,109m,110n,114r,116t,117u r0y=111 :b:x$=bz=1:a=x$ u)y:x$>524Ưx$<579901 v)z=0.5,.5:870f za=117u700 a=110n1495 a109m1200 421,1;"INKEY$ 5-8 , e to end moving " =""902 Wm=0:n=0:a=:a=546m=1:k+m>20m=0:908 ;a=557m=-1:k+m=0m=0:908 ;a=568n=1:l+n>30l=0:908 ;a=535n=-1:l+n<1n=0:908 a=101e870f 3m=0n=0.5,.5:902 Y(x>17x<20)x>502ƫ(k+m,n+l)=45-a(x,3)=1:940 I((k+m,l+n)=32 ū(k+m,l+n)=45-).5,.5:902 fb=a(x,3):a(x,3)=b-1:ww=7ƫ(k+m,n+l)=47/.5,.5:902 n30:z=23x<23a(x,4)=(a(x,4)*(.9ffff+/12 )):a(x,3)=b-2 Q(k+m,l+n)=36$a(x,3)=b-3:x>44,a(x,3)=b-2 530:z=36$k,l;4;"":950 I(k+m,l+n)=36$x>10 x<14.5,.5:902 y=18:z=(k/8)*1792+58378 +32 *k+256*(y-1)+l:25:y:z=64522 +k*32 +l:25 )k=k+m:l=l+n:k,l;8;1;y$ z$=y$ "rr=0:p=k:q=l:2015 y$=z$ "x>44,x<502970 #x<83Srr>02400` 0(x<23x>44,)rr>01195 pa(x,1)=k:a(x,2)=l:m=0:n=0:30:z=480x>502x<78Nz,176 oz=176x<23z,480:40(:a(x,3)=a(x,3)-(25-b(w,3)*b(w,3)) 4a(x,3)0.1}L,1:1195  902 9a(x,1)=k:a(x,2)=l:m=0:n=0:x a>97a1230 930:z=39'x>502x<72H1455  35# a>98b1280 !x<18x>1935# _w=0:z=1o:b(z,1)=kb(z,2)=lb(z,7)=b(z,7)+2:z=o z 30:z=36$y=18:60<:a,24:y:65A:a,255:(a-256),255:z,39' uz=45-y=18:60<:a,24:y:65A:a,255:(a-256),255:z,47/  1495 a>99c1300 ,30:z23x>2235#  z,39'  1495 a>102f13302  40(  8w=0(x>23x<513)x>77M35# #jd=(b(w,6)*/5):a(x,6)=6:x>502a(93],4)=a(93],4)+d (ad>b(w,5)/hb(w,3)=b(w,3)-1:b(w,3)=0b(w,3)=1 -.b(w,3)<-5b(w,3)=-5 . 1455 2a>103g1360P < 40( ABw=0(x>23x<513)a(x,6)035# FDx<513a(x,6)>1a(x,6)=a(x,6)-1 KDx>502a(x,6)>1a(x,6)=a(x,6)-1 LYx>502a(93],4)>5a(93],4)=a(93],4)-2 Mab(w,6)=b(w,6)+5:v=b(w,3):v<5v-1b(w,3)=v+1 N 1495 Pa>108l1390n U730:z39'x<513x>76L35# Z^z,23:a(x,3)=a(x,3)-3:a(x,7)=a(x,7)-.5:870f na=110n1420 a>114r1460 x<50235# G30:a(x,4)>150(z176ƾz480)35# #x>502x<72H1435 z=83S92\:a(z,4)=0a(z,5)=5:a(z,4)=1:a(z,5)=5:a(z,1)=k:a(z,2)=l:z=92\ z:1455 Y40(:d=150-a(x,4):d>b(w,5)*.1}Ld=(b(w,5)*.1}L) 3m=6+b(w,3):m>5m=(m/2) |a(x,4)=(a(x,4)+d):b(w,5)=b(w,5)-d:a(x,5)=(a(x,4)*a(x,5)+d*m)/(a(x,4)+d) id>b(w,5)*.03{u\b(w,3)>-5b(w,3)1b(w,3)=b(w,3)-1 C21,1;" Mission accomplished. ":h:1495 9sd0x>22(x>10 x<14)35# 5sd=sd-1:a(x,3)=a(x,3)+5*gg I21,1;" Ready to roll ! ":502:901 x Cf=502f=0:c=1:cc=2:14:460  e0,10 ;4;1;"NEWS REPORTS";0,24;"Month ";(t/2+.5) o>.9ffffn$=n$+"insurgents capture arms convoy":502:a(94^,4)=a(94^,4)+5 t=16bb>hbb=bb-(9 +*25):n$=n$+"the government is confident that the rebels will be defeated and cuts military spending":502 uha=0ƥ>.73333n$=n$+"harvest time":ha=1:502:x=1o:b(x,6)=b(x,6)+(*h):x Sn=0:x=11 13 :a(x,1)>0ƥ>.93nzn=x:x=13 x:n>0x=18:a(n,x)=0:x:n$=n$+"an armoured battalion is involved in an unsuccessful coup and is disbanded":502 ,n=0:x=51372H:a(x,1)=20ƥ>.5k=a(x,1):l=a(x,2):30:z=23žz=39'n=1 1x:n=1x=122:a(x,7)=a(x,7)-1:x:n$=n$+"insurgents cut government supply lines":502 3>x=(513+10 *):a(x,4)=0a(x,1)=0ƥ>.3a(x,5)=4:a(x,6)=4:a(x,7)=4:a(x,4)=85U:a(x,1)=a(77M,1):a(x,2)=a(77M,2):n$=n$+"rebel High Command sends reinforcements to rebel Command Post":502 6a(78N,4)=1ff>0(a(33!,4)=1a(34",4)=1a(35#,4)=1)ƥ>.9ffffa(78N,4)=0:n$=n$+"rebel supply plane shot down":502 ;a(22,4)=0x=2332 :a(x,4)=0:x:a(23,4)=(10 +*30):n$=n$+"government HQ attacked; helicopters destroyed":502 0n=n+1 mMx:n<4t=25:n$="...rebel losses force a withdrawal":502 (n$=5n$=n$+"no news":502 &x=125:n$=" "+n$+" ":x \x=1̱n$-31:9 ,0;n$(xx+31):.05|L,-40(:2:x Xt=25t=2620,5;1;1;"The Government has won.": Nt=2720,5;2;1;"The insurgents have won!": -90Z:0,9 ;"(Please wait.)" n$>20n$ fx=182R:a(x,8)=0:a(x,4)<1y=18:a(x,y)=0:y x Ea(20,1)<1a(21,1)<11750 x=122:a(x,4)>0a(x,4)0b(w,3)>0b(w,3)<5b(w,3)=b(w,3)+1 $z=20z=21:1725 Wx=1o:b(x,6)>b(x,5)/hb(x,6)=(b(x,6)-b(x,5)/h) Lb(x,6)2*b(x,5)/hb(x,5)=(b(x,5)*.9ffff) x 5::8,0;"Do you wish to continue the game(ENTER y) or call a truce (SAVE the position on tape)(ENTER n) ?";13 ,0;"A truce lasts two weeks and allows minefields to be cleared.":x$:x$=110n3200  7  300,  rr=0:>.9ffffh: .p=k-1k+1:q=l-1l+1 r=513-f77M-f ga(r,1)=pa(r,2)=q2060 :rr=r:p,q;8;y$:a(r,8)=1:r=77M-f r  p=kq=l q:p: r<11 y$="": r<14y$="": r<18y$="": r<20y$="": r<22y$="": r<23y$="": %r<33!y$="": &r<45-y$="": (r<502y$="": *r<72Hy$="": ,r<77My$="": -r<78Ny$="": .r<92\y$="" / 4Y21,0;"Food left:":x$=" "+a(93],4):21,14-x$;x$ >Z21,18;"Arms left:":x$=" "+a(94^,4):21,32 -x$;x$ C[sd>020,0;"Supply drops left:":x$=" "+sd:20,22-x$;x$ E p=6 H#d=s-a(x,p):d02150f R&e=10 *gg/a(x,1):e>de=d Wa(x,p)=a(x,p)+e:a(87W+p,4)=a(87W+p,4)-e:a(87W+p,4)<0a(87W+p,4)=0:a(x,p)=a(x,p)-e:2150f \#d=s-a(x,p):d02150f a1d=(d+.5):sd>dsd=sd-d:a(x,p)=a(x,p)+d k"p=6p=7:2120H p Q21,0;"Supply trucks left:":x$=" "+sd:21,24-x$;x$ d=s-a(x,6):d0 .e=10 /(21-a(x,1)):e>de=d ,sd>ea(x,6)=a(x,6)+e:sd=sd-e  zy=a(x,1)-a(77M,1):z=a(x,2)-a(77M,2):y=y*y+z*z:y>ha(x,3)=(a(x,3)*h/y)  `r=rr:w=0:40( j%k,l;1;2;6;"" t?a=1+a(x,4)*a(x,5)*a(x,6)*a(x,7) v$x>10 x<14a=a*4 w$x>14x<22a=a/2 y@w>0a=a+a(x,7)*26-b(w,3)*b(w,3) ~?d=1+a(r,4)*a(r,5)*a(r,6)*a(r,7) $r>10 r<14d=d*4 $r>14r<22d=d/2 w>0d=d+a(r,7)*b(w,3)*b(w,3)*(2+b(w,7)):z=b(w,7):z>1b(w,7)=z-1 9a(x,7)>1a(x,7)=a(x,7)-1 Jr>502a(r,3)>3d=d+a(r,4)*(a(r,3)-2) 9a(r,7)>1a(r,7)=a(r,7)-1 v=1417:(a(v,1)=k+1a(v,1)=ka(v,1)=k-1)(a(v,2)=l-1a(v,2)=la(v,2)=l+1)x<502a=a*2 v:v=1417:(a(v,1)=k+1a(v,1)=ka(v,1)=k-1)(a(v,2)=l-1a(v,2)=la(v,2)=l+1)x>502d=d*2 v 'v=a/d*(1-/2.5 +/2) ;x>22x<45-(r<72Hr<78N)v=31 9x>22x<45-r>71Gr<77Mv=.5 v1a(x,4)=(a(x,4)-(a(r,4)*a(r,7)/3*(1-v))):a(x,4)0z=17:a(x,z)=0:z Uv1a(r,4)=((.9ffff+/10 )*a(r,4)+1):k=k-m:l=l-n v>1a(r,4)=(a(r,4)-(a(x,4)*a(x,7)/3*(v-1))):a(r,4)0z=17:a(r,z)=0:z 9x>502v>2a(x,7)=a(x,7)+1 kv>1a(x,4)=((.9ffff+/10 )*a(x,4)+1):a(r,1)=k-m:a(r,2)=l-n w>0v>1b(w,3)=-b(w,3):b(w,5)=(b(w,5)*(.9ffff+/11 )):30:x<23z,480 -w>0v>1x>502z,176  Bn=0:x=117:a(x,1)>0n=n+1 x 8x=2344,:a(x,4)>0n=n+1 x r=(1+*42*) .n20a(r,4)>0r=22 R2070::8,3;"Would you like another ";y$;" ?":"(y or n) ";x$ x$121y &x=57:a(r,x)=4:x br<22a(r,1)=a(22,1):a(r,2)=a(22,2):a(r,4)=h: a(r,4)=1: (9x$=" "+((bb*10 )/10 ):x$=x$x$=x$+".0" -K20,0;"Budget 2 weeks ago: $";20,27-x$;x$;" m." 2Qx=1502:x<11 a(x,1)>0bb=bb-.5:2650Z 4<x<14a(x,1)>0bb=bb-1:2650Z 6=x<18a(x,1)>0bb=bb-.3:2650Z 7>x<20a(x,1)>0bb=bb-.25~:2650Z 9=x<22a(x,1)>0bb=bb-.4L:2650Z :=x<23a(x,1)>0bb=bb-.1}L:2650Z <>x<33!a(x,4)>0bb=bb-.05|L:2650Z >=x<45-a(x,4)>0bb=bb-.1}L:2650Z @>x<491a(x,1)>0bb=bb-.05|L:2650Z A6x=502bb=bb-.05|L*a(x,4):2650Z C9x$=" "+((bb*10 )/10 ):x$=x$x$=x$+".0" FK21,0;"Budget now : $";21,27-x$;x$;" m." Zx d s=0:ff=0 ww=4 D0,11 ;1;"AIRCRAFT":x=33!44,:z$="" O21,1;5;7;1;" Air reconnaissance/attack " "a(x,4)<12795 %k=20:l=(5+20*) k,l;1;8;z$ Q22592@X=568y=219:y,0;1;(y+95_):y X"What latitude ? (a-r) ";x$:x$<97aůx$>114r.5,.5:2735 a=x$-95_ H22535X=568y=328:0,y;(y+94^):y Y"What longitude ? (a-z) ";x$:x$<97aůx$>122z.5,.5:2745 b=x$-94^ ys=1(a-k)*(a-k)+(b-l)*(b-l)>64@.5,.5:21,1;" OUT OF RANGE ":h: 0:3+l*8,176-k*8:8*(b-l),8*(k-a):3+b*8,172-a*8,11 :a,b;8;1;z$:k=a:l=b U2000:rr=021,1;1;" No Contact " Ȉrr>0a(rr,4)=(a(rr,4)*(.9ffff+/13 )):21,1;2;1;" CONTACT! " rr>71Grr<77Ma,b;2;6;1;"":a(x,4)=0:n$=n$+"govt. aircraft shot down":502:a(x,1)=0:21,1;1;" AIRCRAFT SHOT DOWN " 75K rr=0 s=1 ,a(x,1)=0:a(x,2)=0 x: ww=4 us=1:0,9 ;1;" HELICOPTERS ":x=2332 :z$="":a(x,4)<12895O F21,1;5;7;" Air reconnaissance/attack " :k=a(22,1):l=a(22,2):2725 Ox: :z=1o:b(z,1),b(z,2);(96`+z):z )a(x,1),a(x,2);1;"" "Which village ? ";x$ x$=122z3400H : <x$<97aůx$>96`+o.5,.5:3010 Fz=x$-96`:a(x,1)=b(z,1):a(x,2)=b(z,2)  ! "I"a() & "In"b() :Ft=a(96`,1):o=a(97a,1):bb=a(98b,1) D_x=1o:b(x,3)<1(64522 +b(x,1)*32 +b(x,2)),176 Nx { 6::8,1;"Please take out the EAR lead, plug in the MIC lead for the recorder and the SPECTRUM and start the tape for 2 arrays." Na(96`,1)=t+1:a(97a,1)=o:a(98b,1)=bb 10 :90Z "I"a() "In"b() #:5,0;"O.K. You can" 7,0;"- verify the recording: replace the EAR lead,take out the MIC lead,rewind the tape and play it. You should get a'STOP' report." !13 ,0;"or/and then" L15,0;"- rewind to the start of the tape and switch off!" O18,0;"If an error is reported, type GO TO 3200 and try again." "I"a() "In"b()  HWz=1:r=1o:a(x,1)=b(r,1)a(x,2)=b(r,2)z=r:r=o Rr \Ob(z,3)1b(z,3)>-5b(z,3)=b(z,3)-1 f hdg