C FOCAL15 V6A
00.10 S K=1000; S K(4)=2000
00.20 S K(1)=3.5/100;S K(2)=1.5/100
00.30 S K(3)=1000
00.40 S K(5)=5;S K(7)=2
00.50
00.60S K(6)=10; S K(30)=75000; S K(33)=5
00.61 S K(8)=4
00.62 S K(32)=.0002
00.63
00.64
00.65 S WT=100
00.70 S NN=1
00.71 S W=0
00.75 F J=0,8; S K1(J)=K(J)
00.78 F J=30,34; S K1(J)=K(J)
00.79
00.80
00.81
00.82
01.10 F J=0,8; S X=K(J);S K(J)=K1(J); S K1(J)=X
01.15 F J=30,34; S X=K(J);S K(J)=K1(J);S K1(J)=X
01.16 A X,!
01.20 S NN=-NN
01.25 T !!,"       *** "
01.30 IF (NN) 1.4,1.4,1.5
01.40 T " A",!!
01.41 GOTO 2.02
01.50 T " B",!!
02.02 S POP=K+K(4)
02.03 S X=K(1)-K(2)
02.05 S K=K+K*X
02.10 S K(4)=K(4)+K(4)*X
02.14 S X=[5+P/K(3)]/5+[1/K(7)+4]/4
02.16 S X=X+30/[K(6)+30]
02.18 S K(2)=K(2)*[X/3]
02.26 S X=1000/[K(5)+1000]+[K(8)+3000]/3000
02.28 S K(1)=K(1)*[X/2]
02.32 S X=K(5)*POP
02.34 S X=X*[K(8)+100000]/100000; S K(5)=X/POP
02.36 T !!"     POPULATION,",!,"URBAN  ",K,!,"RURAL  ",K(4),!
02.37 T "TOTAL  ",K+K(4),!!
03.10 T "FOOD per CAPITA ",K(7),!
03.15 T "INDUSTRIAL INDEX = ",K(8),!,"LAND AREA = ",K(3),!
04.10 D 11
04.11 S B=K(30)
04.12 A "B.C. ALLOCATION TO FORCE CAPABILITIES ",X,!
04.14 A "% INTERNAL CONTROL ",K(31),"    % EXTERNAL CONTROL ",K(32),!
04.16 S K(31)=K(31)*.0001*X; S K(32)=K(32)*.0001*X
04.18 S PSR=1-[K(31)*2/[K(31)+K(32)]]
04.20 T !,"DECISION LATTITUDE = ",K(33),!,"1) INCREASE   2) MAINTAIN"
04.21 A "   3) DECREASE  ",CDL,!
04.22 S K(33)=FITR(2-CDL+FABS(FRAN()))+K(33)
04.25 S K(30)=K(30)-X
04.28 S CSM=K(30)*.05; S CSN=[(1-CSM/380000)*CSM]
04.29 D 11
04.30 T "CONSUMPTION STANDARD   (MIN = ",CSN/1.5,"  MAX= ",CSM,")",!
04.31 A K(34),!; IF (K(34)-0MAX) 4.33,4.32,4.33
04.32 S K(34)=CSM; GOTO 4.35
04.33 IF (K(34)-0MIN) 4.35,4.34,4.35
04.34 S K(34)=CSN
04.35 S VSC=55*[K(34)/CSN-1]-41*[CSM/CSN]*[K(34)/CSN-1]^2-1.1
04.36 IF (-VSC) 4.37; S VSC=10^(VSC) 
04.37 S CSN=4*[K(32)+.15*B]/((K1(32)+.15*K1(30)));S K(5)=VSC/1000
04.38 T !,"VALIDITATOR SATISFACTION",!,"CONSUMER " ,VSC,!
04.39 T "NATIONAL SECURITY ",CSN,!!
04.40 S POH=.01*(11-K(33))*(VSC+CSN)+.1*(K(33)-1)
04.42 S K(30)=K(30)-K(34)
04.44 A "CAPITAL ALLOTMENT",!,"% AGR. SECTOR  ",AG,!,"% IND. SECTOR"
04.45 A "  ",X,!!
04.46 S U=.9*(K(4)*X*K(4))/(K*AG)
04.47 S R=.3*(K^2*AG)/(K(4)*X)+FABS(W)*.15*TL
04.48 S K(8)=K^2*X/10^7;S K(7)=K(4)*AG*10^(-7.4)*K(3)
04.49 S K(30)=(K(7)*2500+K(8)*2000)*2.4
04.50 IF (3-(VSC+CSN)) 4.6,4.52,4.52
04.52 S PSR=(.1*K(33)+2*PSR)/2
04.54 IF (FABS(FRAN())-PSR) 4.56,4.56,4.6
04.56 T "REVOLUTION HAS OCURRED ",!!
04.58 Q
04.60 IF (FABS(FRAN())-POH) 4.62,4.62; T "LOST ELECTION",!!;G 4.7
04.62 T "WON ELECTION ",!!
04.65 IF (W) 4.8,4.7,4.8
04.70 A "DO YOU WISH TO DECLARE WAR ?  (YES/NO) ",!,YN,!
04.71 IF (YN-0NO) 4.76,4.8,4.76
04.76 S W=-1; GOTO 4.81
04.80 GOTO 6.1
04.81 IF (NN) 1.1 4.82,4.82
04.82 IF (W) 5.1,1.1,5.2
05.10 T !!! "        *** WAR HAS BEEN DECLARED ***",!!!
05.13 S X=K1(32);T "   B)",!;D 16
05.15 F J=1,8; S W2(J)=W1(J)
05.17 S X=K(32);T " A)",!; D 16
05.20 S W1(4)=W2(3)*.0005*K(32)*K(8)
05.22 S W2(4)=W1(3)*.0005*K1(32)*K1(8)
05.24 S W1(1)=W1(1)-W1(4)
05.26 S W2(1)=W2(1)-W1(4)
05.28 S MNR=(W1(7)+W2(7))/1200
05.32 S W1(5)=(W2(1)*K(32)-W1(2)*5.5*K1(32))*.01
05.34 S W2(5)=(W1(1)*K1(32)-W2(2)*5.5*K(32))*.01
05.35 A X
05.36 IF (-W1(5)) 5.37; S W1(5)=0
05.37 IF (-W2(5)) 5.38; S W2(5)=0
05.38 S W1(2)=W1(2)-W1(5)*MNR
05.40 S W2(2)=W2(2)-W2(5)*MNR
05.42 S W1(8)=W1(5)*(1-MNR)*.08;S W2(8)=W2(5)*(1-MNR)*.08
05.44 S W1(6)=(W1(8)+W1(5))*.04
05.46 S W2(6)=(W2(8)+W2(5))*.04
05.48 S W1(3)=W1(3)-W1(6); S W2(3)=W2(3)-W2(6)
05.50 S K1=K1-W1(8)*(K1/100);S K1(4)=K1(4)-W1(8)*(K1(4)/100)
05.51 S K(4)=K(4)-W2(8)*(K(4)/100);S K=K-W2(8)*(K/100)
05.55 S TL=W1(8)+W2(8)
05.60 T "                                A                   B",!
05.61 T "TOTAL ATTACK FORCES LEFT   ",W1(1),"          ",W2(1),!
05.63 T " ''    ''     ''  DESTROYED  ",W1(4),"          ",W2(4),!!
05.65 T "PASSIVE DEFENCE LEFT       ",W1(2),"          ",W2(2),!
05.67 T "   ''      ''   DESTROYED  ",W1(5),"          "W2(5),!!
05.69 T "ACTIVE DEFENCE LEFT        ",W1(3),"          ",W2(3),!
05.71 T "  ''     ''    DESTROYED   ",W1(6),"          ",W2(6),!!
05.73 T "CIVILIAN LOSSES            ",W1(8),"          ",W2(8),!!
05.75 S W=FABS(W)
05.76 A X
05.80 GOTO 1.1
06.10 A !, "DO YOU WISH TO NEGOTIATE A PEACE SETTLEMENT?",!
06.12 A YN,! ; IF (YN-0NO) 6.14,4.81,6.14
06.14 T "DO YOU AGREE ON A ",WT,"% TAKEOVER ?",!;A YN,!
06.16 IF (YN-0NO) 6.5,6.18,6.5
06.18 A "YOUR TERMS ",WT,!!
06.19 GOTO 4.81
06.50 S W=0
06.52 S K1(4)=K1(4)-K(4)*WT/100;S K(4)=K(4)+K1(4)*WT/100
06.54 S K(3)=K(3)+K1(3)*WT/100;S K1(3)=K1(3)-K(3)*WT/100
06.55 GOTO 4.81
11.10 T !, "BASIC CAPABILITY = ",K(30),!
11.20 RETURN
16.10 A "%FORCE ALLOCATION : ",!!,"ATTACK    ",W1(1),!!,"DEFENSE :",!
16.11 A "PASSIVE   ",W1(2),!,"ACTIVE    ",W1(3),!!
16.16 F J=4,8; S W1(J)=0
16.18 S W1(7)=W1(2)*.75+W1(3)*.2+W1(1)*.05
16.19 RETURN