CONFLICT HB HBJB "CONFLICT"  ]2,4;1;0;7;"m a r t e c h ";6;0;" g a m e s" (4,11 ;"presents":502 H7,9 ;1;1;4;2;"C O N F L I C T" F9 ,6;0;7;"  1982 D.E. Martin ":80P L14,2;1;"A tactical war game for two players" 18:21 A20,4;3;7;"PRESS ANY KEY TO CONTINUE" =""19  0a(2):c(2):p(2):b(2) a(1),a(2),c(1),c(2),p(1),p(2),b(1),b(2),hc,hp,hb,mi,f,w,sp1,go2,go3,a1,b1,o10,o11,y3,oil1,g1,s1,c1,i1,g4,s4,c4,i4,g3,s3,c3,i3,g2,s2,c2,i2,q,z,x2  ^0,0,0,0,0,0,0,0,0,0,0,0,6,2,0,0,0,25000a,25000a,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,502,40(,30,20,1,10 ,0 o$(12 ):f(12 ) n=16 o1=((*10 )+65A) !o2=((*8)+3) " o$(n)=o1 # f(n)=o2 $n %n=712 &o1=((*10 )+65A) 'o2=((*8)+11 ) ( o$(n)=o1 ) f(n)=o2 *n ,q=0502 -b$="A" . q=0 /go2=go2+1 0 go1=go2 1 570: 2b$="B" 3 q=1 4go3=go3+1 5 go1=go3 :>10 ,6;3;"Leader ";b$;4;" :GO ";go1 @\go1>118,1;1;7;2;"Armies may be moved or removed" D 18 E mi=0 X 1000 b 1407  0: !" ITEM HOLDING PRICE DIFF" &0,160:254,0  t557,64@:0,111o:128,64@:0,111o:191,64@:0,111o V7:6;3,0;"GOLD":5;5,0;"SILVER":2;7,0;"COPPER":0;9 ,0;"IRON":0 ~b$="B"1220 x1=a1 g=g1 s=s1 c=c1 i=i1  1261 x1=b1 g=g4 s=s4 c=c4 i=i4 p=39 2 =p,9 ;" ":p,19;" ":p,27;" " p @3,9 ;g:502:3,19;g2:ik=0 g3<0ik=2 g3>0ik=4 &3,27;ik;g3:ik=0  502 45,9 ;s:502:5,19;s2 s3<0ik=2 s3>0ik=4 &5,27;ik;s3:ik=0  502 47,9 ;c:502:7,19;c2 c3<0ik=2 c3>0ik=4 &7,27;ik;c3:ik=0  502  49 ,9 ;i:502:9 ,19;i2  i3<0ik=2  i3>0ik=4  &9 ,27;ik;i3:ik=0 n18,20;" " xC18,0;"Leader ";b$;" Reserves :";2;7;x1 } +20,0;"Do you wish to trade?" =""1408 -20,0;" " ="y"1418 ="n"1413  1407  t1,t2,t3,t4 !0,0,0,0  1413  1472 -7:6;20,0;"GOLD?" t1 &5;20,0;"SILVER?" t2 &2;20,0;"COPPER?" t3 /0;20,0;"IRON? ":0 t4 20,0;" " -t1>g1500 -t2>s1500 -t3>c1500 -t4>i1500  1540 I20,0;2;1;"Insufficient holdings":9991'  200  1407  p1=t1*g2  p2=t2*s2  p3=t3*c2 " p4=t4*i2 @t=(p1+p2+p3+p4) Ab$="B"1613M Eta11610J F 1616P J a1=a1-t K 1630^ Otb11620T PU20,0;2;1;"Insufficient reserves":9991':1510 T b1=b1-t ^b$="B"1640h _ g1=g1+t1 ` s1=s1+t2 a c1=c1+t3 b i1=i1+t4 c 1650r h g4=g4+t1 i s4=s4+t2 j c4=c4+t3 k i4=i4+t4 r!g5=((*11 )-(*11 )) tt11=t1/25 ut11>20t11=20 | g6=(*t11)  g3=g5+g6 g3>20g3=20 g3<-20g3=-20 g2+g3201690 g3=20-g2  g2=20  1770  g2=g2+g3 s5=((*9 )-(*9 )) t22=t2/25 t22>16t22=16  s6=(*t22)  s3=s5+s6 s3>16s3=16 s3<-16s3=-16 s2+s3161806 s3=16-s2  s2=16  1820  s2=s2+s3 s2<8s2=8 c5=((*7)-(*7)) t33=t3/25 t33>12 t33=12 & c6=(*t33) 0 c3=c5+c6 5c3>12 c3=12 6c3<-12 c3=-12 8c2+c312 1856@ :c3=12 -c2 < c2=12 > 1860D @ c2=c2+c3 Di5=((*5)-(*5)) Et44=t4/25 Gt44>8t44=8 N i6=(*t44) X i3=i5+i6 ]i3>8i3=8 ^i3<-8i3=-8 `i2+i381896h bi3=8-i2 d i2=8 f 1910v h i2=i2+i3 v 1150~ { 18  4: *0,10 ;"DEFENCE:- LEADER ";b$ 1,10 ;"_______" "5,3;"MAINTENANCE:-" #7,7;"1) Army units?" #8,7;" (500 each)" p3 4 10 ,3;"PURCHASE:-" >$12 ,7;"1) Army units?" H%13 ,7;" (1000 each)" Rp1 \"15,7;"2) Warships?" f%16,7;" (2000 each)" pp2 r.p1<0p2<0p3<02164t s 2170z t 2275 z H5,0;"Leader ";b$;" Reserves :- ";7;2;x1 p5=p1*1000 p6=p2*2000 p7=p3*500 p10=(p5+p6+p7) b$="B"2274 a1p102270  2275  a1=a1-p10  2300 b1p102280 8;2;1;"INSUFFICIENT RESERVES":9991'  200  2000 b$="B"b1=b1-p10  x1=x1-p10 78,0;"DEFENCE EXPENDITURE " %10 ,2;p3;" Maintenance" $11 ,2;p1;" Army units" 312 ,2;p2;" Warships ";p10 D15,0;"NEW RESERVES:- ";7;2;x1 . 18 1 7 3 8 4000 1 f1=(*7)-3 f=f+f1 !f<0f>10 f=5 w1=((*3)-1) &w=w+w1 0w>4w=1 :w<1w=4 Dw=1w$="North" Nw=2w$="West" Xw=3w$="South" bw=4w$="East" l0,10 ;"WIND" v1,10 ;"____" #5,7;"DIRECTION :";w$ $10 ,7;"FORCE : ";f 18 8005E  3 0,10 ;"REVENUE" 1,10 ;"_______" b$="A"x2=a1 b$="B"x2=b1 z1=((*7)-3) z=z+z1 z<3z=3 z>20z=20 x3=(x2*z/100d) E5,0;"LEADER ";b$;" RESERVES : ";2;7;x2 77,0;"Interest Rate : ";z;" per cent"  x2=x2+x3 /9 ,0;"Interest : ";x3 A11 ,0;"NEW RESERVES : ";7;2;x2 b$="A"a1=x2 b$="B"b1=x2  18  7   3000 "CAPTURED SHIPS"  7 #6;4,3;"GOLD?" r3 %5;6,3;"SILVER?"  r4 %2;8,3;"COPPER?" r5 -0;10 ,3;"IRON?":0 r6 ,b$="B"4500 rg1=g1+r3*400 |s1=s1+r4*400 c1=c1+r5*400 i1=i1+r6*400  9900& g4=g4+r3*400 s4=s4+r4*400 c4=c4+r5*400 i4=i4+r6*400  9900&  s$(4,10 ) s$(1)="GOLD" s$(2)="SILVER" s$(3)="COPPER" s$(4)="IRON" n=((*4)+1) sp1=05100 n1=((*10 )+1) n1>744, u=((*15)+76L) v=((*20)+1)  sp1=1 +5,0;"A ship carrying ";s$(n)  *7,0;"has just been sighted" $11 ,0;"Coordinates :-" 11 ,16;u (11 ,18;v 2 18 < F 44, qwe=(*4) rwe<36010z sM8,5;1;1;1;"WEATHER TOO ROUGH":9991' t 200 v 5000 z"Give number of :-"  j2=0  l2=0 (5,4;"Attacking warships?" j I7,4;"Defending warships?" l  n=1j j1=*1 j1>.5j2=j2+1 n  n=1l l1=*1 l1>.6l2=l2+1 n  j2>lj2=l  l2>jl2=j 8 9D5,0;"You have sunk ";4;j2;0;" warships" : ;E10 ,0;"You have lost ";2;l2;0;" warships" < 18 > 9900& !3:mi=19900& b$="A"m=1 b$="B"m=2  .5,5;"Purchase(P) or attack(A)?" c$  c$="A"6780| " MISSILE SYSTEMS" *1,0;" _______________" /5,3;"1) Offensive (10000 each)?" am *10 ,3;"2) Defensive (5000)?" dm  !ms=am*10000'+dm*5000  b$="B"6680 a1! !9 !:H5,3;5;1;1;"No survey team available" !; 200 !< != 8005E !>b$="B"8515C! !?a1<50008518F! !@a1=a1-5000 !A 8521I! !Cb1<50008518F! !Db1=b1-5000 !E 8521I! !FQ5,5;2;1;1;"INSUFFICIENT RESERVES":9991' !G 200 !H 8005E !I"Give coordinates of survey" !K:4,4;"Letter?":5,4;"(CAPITAL)" !Ll$ !M4,14;l$ !R7,6;"Number?" !Sl !U7,14;l !W 502 !^ !fo=65A90Z !po=l$8600! !zo ! 8510>! !o1=o-1 !o2=o+1 !o=65Ao1=o !o=90Zo2=90Z !l>208510>! !l<18510>! !l1=l-1 !l2=l+1 !l=1l1=l !l=20l2=20 !n=112 "o=o$(n)8800`" "o1=o$(n)8800`" "o2=o$(n)8800`" "$n ".<6,2;"Results show no oil in area":9991' "3 18 "4 "8 8400 "`l=f(n)8900" "~l1=f(n)8900" "l2=f(n)8900" " "t6,2;7;4;1;"Results show oil bearing rock";7,5;"in area":9992' " 18 "oil1=1 " "oo$(n)8400 "l=f(n)9300T$ " 8400 #)ee1=(*6) #*ee1=09004,# #+ 90102# #,S6,2;2;1;1;"No drill team available":9991' #- 200 #. #/ 9500% #2b$="B"9040P# #<a1<10009090# #Aa1=a1-1000 #F 9100# #Pb1<10009090# #Zb1=b1-1000 #_ 9100# # #Q5,5;2;1;1;"INSUFFICIENT RESERVES":9991' # 200 # # 8005E #""Give coordinates of test drill" #:4,4;"Letter?":5,4;"(CAPITAL)" #m$ #4,14;m$ #7,4;"Number?" #m #7,14;m # 502 # #n=112 #o$(n)=m$9200# # 9210# #f(n)=m9300T$ #n $,6,2;"You have not struck oil" $ 18 $ 8005E $T>2;5,8;1;1;"****STRIKE****" $\K12 ,2;"YOU HAVE STRUCK OIL AT ";2;1;o$(n);f(n) $^;y=14:x=3040(:.02{# =,x:x:y $_o$(n)="STRIKE" $`f(n)=100d $hB$="A"o10=o10+1 $rB$="B"o11=o11+1 $ 18 % %&" OIL REVENUE (Leader ";b$;")" %&'1,0;" ___________" %0b$="B"9550N% %:y=o10 %;y1=a1 %D 9600% %Ny=o11 %Oy1=b1 %+y2=(((*200)-100d))/100d % y3=y3+y2 %y3<1y3=1 %y3>5y3=5 %y4=y*y3*1000 % y5=(y4+y1) %I5,0;"Leader ";b$;" Reserves :- ";2;7;y1 %17,0;"Number of wells :- ";y %29 ,0;"Oil price per barrel :- ";y3 &311 ,0;"Oil revenue :- ";y4 & E14,0;"New Reserves :- ";7;2;y5 & 18 &b$="A"a1=y5 &b$="B"b1=y5 & &oil1=0 & 9900& &O)10 ,4;"How many oil wells?" &Ro15:o15<09870& &\b$="B"9845u& &ao15>o119870& &f o10=o10+o15 &g o11=o11-o15 &p 9900& &uo15>o109870& &z o11=o11+o15 &{ o10=o10-o15 & 9900& &>14,6;2;1;"IMPOSSIBLE":9991' & 18 & 7: &'0,5;"1) Captured ships " &+2,7;"2) Captured oil wells " & 4,9 ;"3) Missiles" &#6,11 ;"4) Sea battle" &8,13 ;"5) None" &#10 ,15;"6) SAVE GAME" &c & &c=14080 &c=29800H& &c=36590 &c=46000p &c=55000 &"c=6"CONFLICT"5000 & 9900& '"CONFLICT"1 '2,-40(: '2,40(: