POLMILSICORRIDO$10 $HERO $09 $DOWNING$08 $VALHALL$07 $NUCLEAR$06 $GALEMP $05 $LASER $04 $WW3 $03 $DOUNE $02 $DRAKE $01 $MENU $!BOOT $MS %3 #$#<#####̾#̸#8%̒#̌#2y#:t#]# U#B#<# "### #T,*BASIC
PAGE=&1900
*FX21
CLOSE#0:CHAIN"MENU"
*FX200,1
7
*FX11,0
( *FX15
2*KEY10CHAIN"MENU"LM
Downing Street,The National Hero Game,Corridors Of Power
&23,1;0;0;0;0;
0&l%,t%)c1%+232+w%+5,172)+180
:I J%=t%+1 t%+2:l%1,J%)c1%+141+234+c3%+w%+3,32)+c1%+181:
D(l%,t%+3)c1%+234+w%+5,172)+181
NR J%=t%+4 t%+3+i%:l%,J%)c1%+234+c4%+156+c2%+w%,32)+c1%+156+181:
X%l%,J%)c1%+170+w%+5,172)+37
b2 J%=t%+1 t%+2:l%+2+(w%+6(h$))2,J%)h$:
l( J%=1 i%: N$:l%+5,J%+t%+3)N$:
v'p%=1:l%+3,p%+t%+3)157c5%:*FX4,1
::G%=
G%=13 G%=138 G%=139
$ G%<>13 l%+3,p%+t%+3)156c2%
! G%=138 p%=p%+1: p%>i% p%=1
! G%=139 p%=p%1: p%=0 p%=i%
$ G%<>13 l%+3,p%+t%+3)157c5%
G%=13:*FX4
*FX12
*FX11,50
=p%
!menu%$!%
%%%1%2%3%4%5%POLITICAL & MILITARY SIMSIMSS$$!Corridors Of PowerGame Zonece
7
23;8202;0;0;0;
TITLE$="DRAKE'S RETURN"
(
title
2"This game represents a naval battle in Elizabethan times, the object being to sink the enemy fleet by gunfire or ramming before your flagship is sunk."
<
FL"The game is carried out on a 'board', generated a square at a time."
PC"Reports are given of encounters after your moves are made."
Z
d`"The reply move generator is very simple  the enemy ships head straight for yourflagship!"
n*FX15,1
x tV@
71,23);"Press the SPACE BAR to continue.": =32
:title
<1,23);"Press the SPACE BAR to play the game.": =32
"DRAKE"
title
L=(TITLE$)
20L/2);TITLE$
20L/2);L,"_")
(2468:<dinx
MASTER ROUTINE
dhC: INITIALISE
( d\E: INTRO
2
Thc
< H=1
F
P dPG: DISPLAY A
Z dDI: INPUTS
d txK: ENEMY ORDERS
n
x tlM: COLLISIONS
t`O: FIGHTING
tTQ: DAMAGE REPORTS
tHS: SINKINGS
DU: WIN/LOSS
Thc
H=H+1
DF@
:
:
INITIALISATION
Y(5,3)
E(5,3)
D(100)
P1=1
P2=100
X=1 5
$ Y(X,1)=1
. E(X,1)=1
8 DF1=(5)+1
B DF2=(5)+1
L P1=P1+DF1
V P2=P2DF2
` E(X,2)=(P1/10)
j Y(X,2)=(P2/10)
t E(X,3)=P1E(X,2)*10
~ Y(X,3)=P2Y(X,2)*10
X
:
:
INTRO
"DRAKE'S RETURN"
+"YOU ARE THE COMMANDER OF A PATROL OF"
*"5 SHIPS OF THE LINE IN THE REIGN OF"
,"ELIZABETH I. YOU DIRECT THE MOVEMENTS"
*"OF YOUR SHIPS TO OVERCOME A SPANISH"
#"PATROL. THE SHIPS FIRE THEIR"
"+"BROADSIDES WHEN IN REASONABLE RANGE."
,
6)"YOUR SHIPS ARE NUMBERED 15 ON THE"
@&"SIMPLE DISPLAY, ENEMY SHIPS ARE"
J"MARKED 'E'"
T,"BE CAREFUL NOT TO LOSE YOUR FLAGSHIP,"
^"SHIP 1..."
h
r)"WHEN YOU GIVE YOUR ORDERS, USE THE"
)"NORMAL ABBREVIATIONS. (N,S,NE ETC)"
:
:
DISPLAY A
"DISPOSITIONS:"
X=1 100
D(X)=0
X
X=1 5
Y(X,1)<0 TVH
D(Y(X,2)*10+Y(X,3)+1)=X
X
X=1 5
* E(X,1)<0 T~H
4 D(E(X,2)*10+E(X,3)+1)=1
> X
H X=1 100
R D(X)=0 ".";
\ D(X)>0 (D(X));
f D(X)=1 "E";
p X/10=(X/10)
z X
:
:
INPUTS
X=1 5
Y(X,1)<0 DPJ
+"WHAT ARE YOUR ORDERS FOR SHIP ";X;"?"
A$
S=Y(X,2)
T=Y(X,3)
A$="N" S>0 Y(X,2)=S1
A$="S" S<9 Y(X,2)=S+1
A$="E" T<10 Y(X,3)=T+1
A$="W" T>0 Y(X,3)=T1
(# A$="NE" S>0 T<10 T\e
2$ A$="SE" S<9 T<10 DNe
<" A$="SW" S<9 T>1 t@e
F" A$="NW" S>0 T>1 tre
P X
Z
:
:
ENEMY ORDERS
S=Y(1,2)
T=Y(1,3)
X=1 5
E(X,1)<0 TfL
M=(SE(X,2))
N=(TE(X,3))
C=1 5
E(C,1)<0 C=X TRL
0 E(C,2)=E(X,2)+M E(C,3)=E(X,3)+N dde
C
E(X,2)=E(X,2)+M
& E(X,3)=E(X,3)+N
0 X
:
:
:
COLLISION TESTING
X=1 4
Y(X,1)<0 TPN
Y=X+1 5
Y(Y,1)<0 d^M
, Y(X,2)=Y(Y,2) Y(X,3)=Y(Y,3) DpW
Y
Y=1 5
E(Y,1)<0 TFN
, Y(X,2)=E(Y,2) Y(X,3)=E(Y,3) dTW
Y
X
:
:
FIGHTING TESTS
X=1 5
Y(X,1)<0 d\O
Y=1 5
E(Y,1)<0 dRO
8 (Y(X,2)E(Y,2))<=2 (Y(X,3)E(Y,3))<=2 DdY
Y
X
:
:
DAMAGE REPORTS
X=1 5
Y(X,1)<5 trQ
6 Y(X,1)<.5 "SHIP ";X;" REPORTS SEVERE DAMAGE."
X
:
:
SINKING TEST
X=1 5
 Y(X,1)<=(1)/10 Y(X,1)<>100 DX[
X
X=1 5
 E(X,1)<=(1)/10 E(X,1)<>100 t[
X
 T=0
X=1 5
E(X,1)>0 T=1
X
T=0 DL]
Y(1,1)<0 tp]
d:
e:
f MINOR SUBROUTINES
o:
p+"SHIPS ";X;" AND ";Y;" HAVE COLLIDED."
z Y(X,1)=100
Y(Y,1)=100
:
2"SHIP ";X;" HAS COLLIDED WITH AN ENEMY SHIP."
Y(X,1)=100
E(Y,1)=100
c:
d: RF=1/(.01+((Y(X,2)E(Y,2)))^3+((Y(X,3)E(Y,3)))^3)
n P1=Y(X,1)*RF
x P2=E(Y,1)*RF
Y(X,1)=Y(X,1)P2/20
E(Y,1)=E(Y,1)P1/20
("SHIP ";X;" HAS ENGAGED THE ENEMY."
W:
X"SHIP ";X;" HAS SUNK."
b Y(X,1)=100
l
:
"AN EMEMY VESSEL HAS SUNK."
E(X,1)=100
K:
L
V,"YOU HAVE DESTROYED THE ENEMY FLEET IN"
` H;" HOURS."
j
D@_
:
("YOUR FLAGSHIP HAS BEEN DESTROYED."
D@_
?:
@
J "DO YOU WANT ANOTHER GAME?"
TA$
^ A$="Y"
h
#':
#(
#2"PRESS A KEY TO CONTINUE"
#<
<>""
#F
%EM:
%:
% MOVEMENT SUBROUTINES
% Y(X,2)=S1
%& Y(X,3)=T+1
%0
%N Y(X,2)=S+1
%X Y(X,3)=T+1
%b
% Y(X,2)=S+1
% Y(X,3)=T1
%
% Y(X,2)=S1
% Y(X,3)=T1
%
%M=0
%N=0
%
,( @
7
23;8202;0;0;0;
&TITLE$="THE SIEGE OF DOUNE CASTLE"
(
title
2"This is a challenging and complicated game involving the capture of a castle, using various types of equipment. You have to take care that enough food is available for the men, as well as paying";
<8"attention to matters of military strategy."
F
P"The main daily report gives a list of your equipment, and asks for your orders. These include requests for new supplies, from your supporting teams."
ZT"If you request more than they can produce, they scale the demands down."
dn"As well as battle reports, the figures for new equipment supplied are displayedat the end of each day."
n*FX15,1
x71,23);"Press the SPACE BAR to continue.": =32
:title
"The computer's orders are worked out in a simple but effective manner, using tallies of your attacking distribution and the state of the castle's walls to"
L"decide on the allocation of men, archersand cauldrons of boiling oil."
"All equipment and men are stored in arrays, the appropriate names sorted outfrom the DATA statements at the end of the program."
}"Incidentally, Doune Castle is the one used by Monty Python in the Trojan Rabbit sequence of one of their films."
<1,23);"Press the SPACE BAR to play the game.": =32
"DOUNE"
title
L=(TITLE$)
20L/2);TITLE$
20L/2);L,"_")
"
(2468:<nH=1 5
Y(
MASTER ROUTINE
dhC: INITIALISATION
( d\E: INTRO
2
dpc
< DAY=1
F dPG: DISPLAY A
P dDI: RATION RATES
Z txK: CONSTRUCTION INPUTS
d tlM: BATTLE INPUTS
n t`O: COMPUTER'S ORDERS
x TpQ: BOMBARDMENT TEST
tTQ: BATTLE TEST
D\R: RANDOM DEATHS
tHS: WIN/LOSS
' (1)<.3 DPT: ENEMY DESERTER
ttT: ENEMY REPAIRS
dpc
DU: REPORT+VARS CHANGE
dpc
DAY=DAY+1
Dl`: VARIABLE FLUSH
DF@
:
:
INITIALISATION
A(8): P(6,6): N(6)
E(3): D(6,4): T(6)
C(6)
L(6)
tlf
X=1 8
$ I
. A(X)=I
8 X>2 A(X)=((1)*I)
B X
L, E(1)=300: E(2)=50: E(3)=((1)*10+1)
V
X=1 6
` C(X)=1: T(X)=1
j X
t
:
:
INTRO
"THE SIEGE OF DOUNE CASTLE"
*"It is the 14th century. You command"
& "an army of infantrymen, laying"
'"siege to Doune Castle, Scotland."
+"In your role of general, you request"
%"the quantities of supplies and"
"."equipment required from your supporting"
,/"tradesmen who will deliver all they can."
6
@,"In calculating the food you will use,"
J+"remember that each man and archer in"
T+"the army eats one tenth of a sack of"
^"food in a day."
h
:
:
DISPLAY A
"DAY ";DAY;" OF THE SIEGE"
t@e
X=1 8
I$
I$;":";15);A(X)
X
dde
X=1 6
* I$
4
I$;":";
> Z=C(X)
H
DpW
R X
\
:
RATION RATES
1 0,17);"Do you wish to issue full rations?"
A$
A$="Y" R=1
A$<>"Y" TxX
# A(8)=(A(8)(A(1)+A(2))*R/10)
:
:
CONSTRUCTION INPUTS
tJe
X=1 6
T\e
I$
#"HOW MANY ";I$;" DO YOU NEED?"
A
A=((A))
N(X)=A
X
TL=1
DHf
&
X=1 6
0 I
: TL=TL+N(X)*I
D X
N
X=1 6
X N(X)=(500*N(X)/TL)
b X
l
E:
:
:
BATTLE INPUTS
dde
X=1 6
L(X)=0
T\e
I$
("Do you wish to attack the ";I$;"?"
A$
A$="Y" L(X)=1
X
:
X=1 6
L(X)=0 dXN
$
dde
.
Z=1 X
8 I$
B Z
L
t@e
V
Y=1 6
` J$
j3 X<6 Y=6 X=6 Y>2 Y<6 A(Y)=0 dDN
t
T\e
~ I$;" attack:"
"HOW MANY ";J$;"?"
A
A=((A))
A(Y)A<0 T@Y
A(Y)=A(Y)A
P(X,Y)=A
Y
% P(X,1)=0 P(X,2)=0 L(X)=1
X
&"You left ";A(1);" men on guard."
:
:
COMPUTER'S ORDERS
C=0: T=0
X=1 6
T=T+T(X)
C=C+2C(X)
X
X=1 6
Y=1 3
D(X,Y)=(E(Y)*T(X)/T)
E(Y)=E(Y)D(X,Y)
Y
D(X,4)=(50*(2C(X))/C)
X
:
.:
/ BOMBARDMENT TESTING
0
dde
:
X=1 5
D I$
N P(X,3)>0 X<6 DX[
X X
b
dpc
l
:
:
BATTLE TESTS
dde
X=1 6
I$
L(X)>0 I$;" attack:"
9 L(X)<0 "You can't attack without people, idiot."
L(X)>0 DL]
X
dpc
Y:
Z:
[ RANDOM DEATHS
\
f DIS=((1)*A(1)/2)
p A(1)=A(1)DIS
z4 DIS>0 "Today, ";DIS;" men died of disease."
:
DES=0
R<1 DES=((1)*A(1))
: DES>0 "Because of low rations, ";DES;" deserted."
A(1)=A(1)DES
E(1)=E(1)+DES
:
:
WIN/LOSS
X=1 6
Y=1 2
A(Y)=A(Y)+P(X,Y)
E(Y)=E(Y)+D(X,Y)
Y
E(3)=E(3)+D(X,3)
X
:
A(1)<20*(1) D@_
A(8)<0 td_
:
+ E(1)<0 E(1)<50 E(1)1 C(X)=1
X
y:
z:
{ REPORT+VARIABLE CHANGE
,"The labourers have supplied you with:"
tJe
X=1 6
I$
I$;":";15);N(X)
A(X+2)=A(X+2)+N(X)
X
:
X=1 6
L(X)=1 T(X)=T(X)+1
Y=3 6
A(Y)=A(Y)+P(X,Y)
Y
X
d:
e:
f SUBROUTINES
n:
o CONDITION ROUTINE
p Z=1 "un";
z Z<1 Z>=.9 "hardly ";
" Z<.9 Z>=.7 "slightly ";
Z<.5 Z>=.3 "badly ";
Z<.3 "seriously ";
"damaged."
5:
6:
7 DIFFERENT RATION RATE
8."What decimal fraction of normal rations"
B"do you wish to issue?"
L A
V R=(A)
`
:
INSUFFICIENT QUANTITIES
!"YOU DO NOT HAVE ENOUGH ";J$
Q=1 3000:: PAUSE
T\e
DtN
U:
V:
W BOMBARDMENT
X H=0: TH=0
b Y=1 P(X,3)
l A(7)1<0 t^[
v A(7)=A(7)1
H=(30*(1))
C(X)=C(X)H/100
TH=TH+H
Y
!"The bombardment on the ";I$
"scored ";TH;" hits."
I:
J:
K BATTLE ROUTINE
LB BF=(15*P(X,4)+P(X,5)+3*P(X,6)+2*P(X,2)/(1+D(X,2)))/(C(X)+.1)
V M=P(X,1)
` N=D(X,1)
j
Thc
t P(X,1)=M
~ D(X,1)=N
$ P(X,2)=(P(X,2)*(1D(X,2)/50))
$ D(X,2)=(D(X,2)*(1P(X,2)/50))
DC=((1)*10*D(X,3))
DC>P(X,1) DC=0
< DC>0 "The cauldrons of boiling oil killed ";DC;"."
P(X,1)=P(X,1)DC
! X=6 C(6)=C(6)P(6,6)/20
W=4 6
P(X,W)=((1)*P(X,W)/2)
W
' P(X,1)>(4+(1)*3)*D(X,1) TH`
;:
<:
=
ENDINGS
>:
? LOSSNO MEN
@
J,"Your few remaining men have mutinied."
T$"You have lost on day ";DAY;"."
^
Tta
:
LOSSNO FOOD
/PRIN"You have run out of food. You have to"
"surrender on day ";DAY;"."
Tta
:
WINENEMY SURRENDER
*"The castle has surrenderedvictory!"
"You won in ";DAY;" days."
&
Tta
i:
j:
k VARIABLE FLUSH
l
X=1 6
v N(X)=0
Y=1 4
D(X,Y)=0
Y>4 th`
P(X,Y)=0
Y
X
!2:
!3 REPLAY
!4
!> "Do you want another game?"
!H A$
!R A$="Y"
!\
#%:
#&:
#' DEATHS SUBROUTINE
#(" AD=((1)*M/(2*((BF)+10)))
#2 AD>M AD=((1)*M)
#< ED=((1)*N)
#F2"You lost ";AD;" men. The enemy lost ";ED;"."
#P M=MAD
#Z N=NED
#d
#:
#:
# KEY PRESS ROUTINE
#
#"PRESS A KEY TO CONTINUE"
$
<>""
$
$
%:
%:
% SPACES ROUTINE
%
0,17);
%&
Q=1 5
%00" ";
%: Q
%D
0,17);
%N
%:
% MEN,ARCHERS
%O CATAPULTS,SIEGE TOWERS,LADDERS,BATTERINGRAMS,SACKS OF ROCK,SACKS OF FOOD
%: North Wall,South Wall,East Wall,West Wall,Keep,Gates
&H 50,100,10,30,2,1
& 300,50,5,4,10,6,10,200
5( !4@@@@(
7
23;8202;0;0;0;
TITLE$="THIRD WORLD WAR"
(
title
2"This is the game of a war in Western Europe, the object being for either sideto penetrate 100km into the other side'sterritory. It is possible to use nuclear, biological and chemical"
<"weapons, but the computer is likely to retaliate and, if nuclear exchange reaches a high level, a holocaust breaksout."
F
P"The game uses a menu to enable the player to select reports on any sector of the front, to move men and equipment,";
Z"and to change the levels of nonconventional warfare. The advances made in eachsector are reported at the end of each loop."
d*FX15,1
n71,23);"Press the SPACE BAR to continue.": =32
x:title
"The computer uses two strategies in its movements. It attacks your highest concentrations of men and tanks with appropriate countermeasures (missile"
"launchers and field guns  which are themost effective), and it pours most men and tanks into the sectors with the greatest advance or retreat, which is"
:"supposed to be the actual Soviet policy,by the way."
<1,23);"Press the SPACE BAR to play the game.": =32
"WW3"
title
L=(TITLE$)
20L/2);TITLE$
20L/2);L,"_")
) DISPLAY A
"DAY ";DAY;" OF THE SIEGE"
t@e
X=1 8
I$
I$;":";15);A(X)
X
dde
X=1 6
* I$
4
I$;":";
> Z=C(X)
H
DpW
R X
\
:
RATION RATES
1 0,17);"Do you wish to issue full
MASTER ROUTINE
dhC: INITIALISE
d\E: INTRO
( D=1
2 dPG: MENU
< t`O: ENEMY ACTION
F tTQ: SITUATION CHANGE
P tHS: END CHECK
Z D=D+1
d
Tr@
:
:
INITIALISE
P(6,7)
E(6,7)
F(5)
G(5)
X=1 4
I
$ P(6,X)=I
. E(6,X)=I
8 X
B
K:
L 100000,400,500,150
:
:
INTRO
"THIRD WORLD WAR"
."You are the commander of NATO forces in"
)"Europe at the outbreak of war. You"
."direct land forces between the reserves"
,"and the 5 frontline sectors. You can"
&"not send forces between sectors"
""directly."
,
6."If either side penetrates to a depth of"
@)"100 km inside enemy territory with"
J,"sufficient force, the battle is over."
T
^."It is also possible to start an allout"
h."nuclear war, destroying the whole world"
r"if you are not careful."
 tlf
:
:
MENU
"Day ";D;" of the battle"
"options:"
("1. Display situation in a sector."
"2. Give movement orders."
!"3. Give escalation orders."
"4. End of day's orders."
"Which one?"
* A
4 A=((A))
> A>4 A=4
H A<1 A=1
R
A=4
\ A=2 "To which ";
f A<>2 "Which ";
p "sector ? (6 for reserves)"
z S
S=((S))
S>6 S<1
A=1 dDI
A=2 txK
A=3 tlM
tlf
dPG
:
SITUATION DISPLAY
S<6 "Sector ";S
S=6 "Reserves"
dpJ
X=1 4
I$
I$;20);P(S,X)
X
S=6
($"Proportion of special shells:"
2
X=5 7
< I$
F I$;20);P(S,X);"%"
P X
Z
d"The front line has ";
n F(S)>=0 "advanced";
x F(S)<0 "retreated";
;" ";(F(S));" km"
"altogether."
:
, Men,Tanks,Field guns,Missile launchers
! Biological,Chemical,Nuclear
:
:
MOVEMENT ORDERS
S=6 ddL
"1. Men"
"2. Tanks"
"3. Field guns"
"4. Missile launchers"
"Which one ?"
E
E=((E))
E>4 E<1 E=1
"How many ?"
& Q
0 S<6 T=6
: Q>P(T,E) Q=P(T,E)
D P(S,E)=P(S,E)+Q
N P(T,E)=P(T,E)Q
X
:
"From which sector ?"
T
T=((T))
T>5 T<1 T=6
:
ESCALATION
"1. Biological"
"2. Chemical"
"3. Nuclear"
"Which type ?"
T
T>3 T<1 T<>(T)
""To what % of shells fired ?"
Q
Q=((Q))
Q>30 Q=30
P(S,4+T)=Q
$
:
:
ENEMY ACTION
FC=0: MC=0: TD=0
X=1 5
TD=TD+(G(X)F(X))
FC=FC+P(X,1)
MC=MC+P(X,2)
Y=1 4
E(X,Y)=(E(X,Y)/2)
E(6,Y)=E(6,Y)+E(X,Y)
Y
X
X=1 5
Y=1 2
' C=((G(X)F(X)+1)/(TD+5)*E(6,Y))
" E(X,Y)=E(X,Y)+C
, Y
6# C=((P(X,1)+1)/(FC+5)*E(6,3))
@ E(X,3)=E(X,3)+C
J# C=((P(X,2)+1)/(MC+5)*E(6,4))
T E(X,4)=E(X,4)+C
^
Y=5 7
h$ E(X,Y)=P(X,Y)+(((1)(1))*5)
r7 P(X,1)>E(X,1) E(X,1)>0 E(X,Y)=20+((1)*10)
 E(X,Y)>30 E(X,Y)=30
E(X,Y)<0 E(X,Y)=0
Y
X
Y=1 4
E(6,Y)=0
Y
:
:
SITUATION CHANGE
X=1 5
DP=E(X,5)+E(X,6)+E(X,7)
DE=P(X,5)+P(X,6)+P(X,7)
Y=1 4
! P(X,Y)=(P(X,Y)*(1DP/300))
! E(X,Y)=(E(X,Y)*(1DE/300))
Y
DLS
Y=1 4
Z=1 4
I
P(X,Y)=(P(X,Y)I*E(X,Z))
P(X,Y)<0 P(X,Y)=0
E(X,Y)=(E(X,Y)I*P(X,Z))
* E(X,Y)<0 E(X,Y)=0
4 Z
> Y
H G(X)=F(X)
RJ F(X)=(F(X)+(P(X,1)+P(X,2)*5E(X,1)E(X,2)*5)/2E3*(1+((1)(1))/5))
\
dpJ
f"Sector ";X
p
z#"Reports show the enemy have "
Y=1 4
P(X,Y)<0 P(X,Y)=0
E(X,Y)<0 E(X,Y)=0
I$
;I$;20);E(X,Y)
Y
"in the area."
"The front line has ";
" F(X)G(X)>=0 "advanced.";
! F(X)G(X)<0 "retreated";
" by ";(F(X)G(X));" km"
$"Proportion of special shells:"
Y=5 7
I$
;I$;20);E(X,Y);"%"
$ Y
.
tlf
8 X
B
K:
L .1,.3,.5,.3
V 1E3,.1,.1,.4
` .01,.2,.2,.3
j .1,.2,.2,.3
:
:
END CHECK
X=1 5
* P(X,7)+E(X,7)>=50 (1)<.4 DU
F(X)>100 DpW
F(X)<100 DdY
X
DZ@
y:
z:
{ NUCLEAR HOLOCAUT
."A nuclear holocaust has broken out. The"
$PRIMT"world has been destroyed";
DX[
m:
n:
o
VICTORY
p)"You penetrated 100 km inside enemy"
z+"territory in sector ";X;". The enemy"
"surrendered";
DX[
a:
b:
c
LOSS
d."The enemy penetrated 100 km inside your"
n*"territory in sector ";X;". You lost"
x
DX[
U:
V:
W REPLAY
X " on day ";D;"."
b
l!"Do you want another game ?"
v A$
A$="Y"
&:
&:
& KEY PRESS ROUTINE
&
&"PRESS A KEY TO CONTINUE"
&
<>""
&
&
" (
7
23;8202;0;0;0;
,TITLE$="LASERFIGHT IN THE OK SPACE ZONE"
(
title
2"This game shows you how much ability youhave in picturing situations in three dimensions. You direct your ships to find the enemy fleets as they invoke their incredible tactics to avoid you."
<
F"In actual fact, the tactics the computeruses rely heavily on chance. The computer picks two sectors at random, and heads for the one containing less ofyour ships. Since most of the sectors"
PP"will be empty, the enemy fleets heas forthe second position investigated."
Z*FX15,1
d71,23);"Press the SPACE BAR to continue.": =32
n:title
xo"You can guess with fair accuracy that this makes the fleets head towards the centre most of the time."
"The daily display begins by going through all the squares in turn and identifying ones containing your ships. The area surrounding these is then searched for enemy ships, whose presenceis reported."
E"The same procedure is repeated to find ships for you to move."
q"When  finally  you manage to force an encounter with the enemy fleets, the results are also reported."
*FX15,1
71,23);"Press the SPACE BAR to continue.": =32
:title
6"As usual, equipment is located in arrays."
"The workings of the program are very simple and straightforward, but long andlaborious. The two types of ship are dealt with separately, which increases the program length considerably."
"A tip on tactics: post picket ships to report on the whereabouts of enemy ships, covering the entire region. This uses eight ships."
<1,23);"Press the SPACE BAR to play the game.": =32
"LASER"
title
"
,L=(TITLE$)
6 20L/2);TITLE$
@ 20L/2);L,"_")
J
T
(2468dnx of ";S(X,Y,Z,1);" type 1 ships"
z1"aaand ";S(X,Y,Z,2);" type 2 ships reports:"
TE=0
XP=X1 X+1
XP<1 XP>6 drH
YP=Y1 Y+1
MASTER ROUTINE
dhC: INTRO
d\E: INITIALISE
( T=1
2 dPG: POSITION REPORTS
< dDI: MOVEMENT
F txK: ENEMY MOVEMENTS
P S=0
Z
ES=0
d tlM: BATTLES & COUNTING
n2 S>10*ES (1)<.3 t`O: ENEMY SURRENDER
x( ES>10*S tTQ: ASK IF WITHDRAW
S=0 DpW: LOSE
ES=0 DdY: WIN
T=T+1
Tr@
:
:
INTRO
&"LASERFIGHT IN THE OK SPACE ZONE"
"You are the intrepid admiral of space"
,"fleet 5, comprising 400 ships, of two"
'"types. Your thankless task is to"
,"destroy the forces of the evil Prince"
$*"Orion, archenemy of Justice, and a"
."pretty mean hand at space tactics. The"
8"aforementioned prince is in possession"
B"of a similar fleet."
L
tlf
V,"The region of space where you finally"
`+"confront him comprises 216 sectors "
j+"6x6x6. Although all weaponry is only"
t."effective within the same sector as the"
~,"ship, the detectors have a range of 1"
,"sector in all directions, and all the"
+"ships in your fleet report what they"
"have detected to you by hyperwave, so"
("you can tell what is going on far"
)"away. Also, type 2 ships are about"
."twice as strong and destructive as type"
"1s."
"Happy hunting!"
tlf
:
:
INITIALISE
S(6,6,6,2)
E(6,6,6,2)
S(1,1,1,1)=300
S(1,1,1,2)=100
F(5,3)
F=1 5
X=((1)*5)+1
" Y=((1)*5)+1
, Z=((1)*5)+1
6 F(F,1)=X
@ F(F,2)=Y
J F(F,3)=Z
T E(X,Y,Z,1)=60
^ E(X,Y,Z,2)=20
h F
r
:
:
POSITION REPORTS
+"Standard Day ";T;" of the encounter."
,"Standby for reports from the fleet..."
X=1 3000:
X=1 6
Y=1 6
Z=1 6
* S(X,Y,Z,1)>0 S(X,Y,Z,2)>0 DfH
* Z
4 Y
> X
H
e:
f/"Fleet detachment at (";X;",";Y;",";Z;"),"
p0"consisting of ";S(X,Y,Z,1);" type 1 ships"
z/"and ";S(X,Y,Z,2);" type 2 ships reports:"
TE=0
XP=X1 X+1
XP<1 XP>6 drH
YP=Y1 Y+1
YP<1 YP>6 dhH
ZP=Z1 Z+1
ZP<1 ZP>6 d^H
Y E(XP,YP,ZP,1)>0 " ";E(XP,YP,ZP,1);" type 1s at (";XP;",";YP;",";ZP;")": TE=TE+1
Y E(XP,YP,ZP,2)>0 " ";E(XP,YP,ZP,2);" type 2s at (";XP;",";YP;",";ZP;")": TE=TE+1
ZP
YP
XP
5 TE=0 "No enemy ships within detector range."
tlf
:
:
MOVEMENT
"The fleet is waiting for your orders "
tlf
X=1 6
Y=1 6
Z=1 6
* S(X,Y,Z,1)>0 S(X,Y,Z,2)>0 DZJ
Z
Y
X
Y:
Z/"In sector (";X;",";Y;",";Z;"), you have:"
d#" ";S(X,Y,Z,1);" type 1 ships"
n#" ";S(X,Y,Z,2);" type 2 ships"
x
SX=1 2
S(X,Y,Z,SX)=0 TbK
0"How many type ";SX;" ships do you want to"
"move ?"
A
A<1 TbK
A=((A))
% A>S(X,Y,Z,SX) A=S(X,Y,Z,SX)
*"Where do you want to move them to ?"
)"(Enter coordinates in usual order)"
DX
DY
DZ
Z (XDX)>1 (YDY)>1 (ZDZ)>1 DX<1 DY<1 DZ<1 DX>6 DY>6 DZ>6 TbK
% S(DX,DY,DZ,SX)=S(DX,DY,DZ,SX)+A
S(X,Y,Z,SX)=S(X,Y,Z,SX)A
" SX
,
6
:
:
ENEMY MOVEMENTS
F=1 5
X=F(F,1)
Y=F(F,2)
Z=F(F,3)
E(X,Y,Z,1)=0 DDL
SD=0
P=1 2
NX=((5)+1)
NY=((5)+1)
NZ=((5)+1)
. P=1 SD=S(NX,NY,NZ,1)+2*S(NX,NY,NZ,2)
&7 P=2 S(NX,NY,NZ,1)+2*S(NX,NY,NZ,2)<=SD SD=1
0 P
: SD=1 t@L
D F
N
:
DX=(NXX)
DY=(NYY)
DZ=(NZZ)
8 E(X+DX,Y+DY,Z+DZ,1)=E(X+DX,Y+DY,Z+DZ,1)+E(X,Y,Z,1)
8 E(X+DX,Y+DY,Z+DZ,2)=E(X+DX,Y+DY,Z+DZ,2)+E(X,Y,Z,2)
E(X,Y,Z,1)=0
E(X,Y,Z,2)=0
F(F,1)=X+DX
F(F,2)=Y+DY
F(F,3)=Z+DZ
:
:
BATTLES & COUNTING
X=1 6
Y=1 6
Z=1 6
@ S(X,Y,Z,1)+S(X,Y,Z,2)>0 E(X,Y,Z,1)+E(X,Y,Z,2)>0 DBN
S=S+S(X,Y,Z,1)+S(X,Y,Z,2)
! ES=ES+E(X,Y,Z,1)+E(X,Y,Z,2)
Z
Y
X
A:
B S1=S(X,Y,Z,1)
L S2=S(X,Y,Z,2)
V E1=E(X,Y,Z,1)
` E2=E(X,Y,Z,2)
j! SL1=((E1/2+E2)*(1+(1)/4))
t# SL2=((E2/4+E2/2)*(1+(1)/4))
~! EL1=((S1/2+S2)*(1+(1)/4))
# EL2=((S2/4+S2/2)*(1+(1)/4))
SL1>S1 SL1=S1
SL2>S2 SL2=S2
EL1>E1 EL1=E1
EL2>E2 EL2=E2
S1=S1SL1
S2=S2SL2
E1=E1EL1
E2=E2EL2
S(X,Y,Z,1)=S1
S(X,Y,Z,2)=S2
E(X,Y,Z,1)=E1
E(X,Y,Z,2)=E2
)"Engagement at (";X;",";Y;",";Z;"):"
$"We lost ";SL1;" type 1 ships."
("We have ";S1;" left."
2$"We lost ";SL2;" type 2 ships."
<"We have ";S2;" left."
F
P+"The enemy lost ";EL1;" type 1 ships."
Z"They have ";E1;" left."
d+"The enemy lost ";EL2;" type 2 ships."
n"They have ";E2;" left."
x
tlf
:
:
ENEMY SURRENDER
'"Prince Orion has announced he is"
"surrendering. He had only ";ES;" ships"
*"left, and did not want to waste his"
"few remaining sailors."
("Congratulations, you have won, on"
+"Standard Day ";T;" of the encounter."
DX[
:
:
WITHDRAW ?
."You have only ";S;" ships left, and the"
"Prince still has ";ES;"."
"Do you want to withdraw ?"
A$
A$<>"Y" tB@
*"The encounter lasted ";T;" Standard"
*"Days. Never mind, he who fights and"
"runs away..."
DX[
m:
n:
o
LOSE
p)"Your forces have been wiped out by"
z"Prince Orion."
,"You survived for ";T;" Standard Days."
DX[
a:
b:
c WIN
d("You have decimated Prince Orion's"
n."fleet, leaving ";S;" of your own ships."
x"The Prince managed to survive for only"
'" ";T;" Standard Days. Well done!"
DX[
U:
V:
W REPLAY
X
b!"Do you want to try again ?"
l A$
v A$="Y"
&:
& KEY PRESS ROUTINE
&
& "PRESS ANY KEY TO CONTINUE"
&
<>""
&
&
X(
7
23;8202;0;0;0;
TITLE$="GALACTIC EMPIRE"
(
title
2"The object of this game is to build up an empire by taking over regions occupied by another empire. You do this by a combination of tact and military strength  if you build up too many"
<5"ships in a region, your popularity fallsthere."
F
P"The menu method of display and input control is very similar to that in 'Third World War'. Enemy equipment movement is also worked out in a similarway  by finding the regions showing the";
Z>"greatest advance or retreat and pouring ships in there."
d*FX15,1
n71,23);"Press the SPACE BAR to continue.": =32
x:title
"As usual for the numbers of ships and regions involved, arrays are used for storage, though DATA statements are unnecessary for holding names since numbers for regions are sufficient, and"
&"there is only one type of ship."
<1,23);"Press the SPACE BAR to play the game.": =32
"GALEMP"
title
L=(TITLE$)
20L/2);TITLE$
20L/2);L,"_")
)l%+5,J%+t%+3)N$:
v'p%=1:l%+3,p%+t%+3)157c5%:*FX4,1
::G%=
G%=13 G%=138 G%=139
$ G%<>13 l%+3,p%+t%+3)156c2%
! G%=138 p%=p%+1: p%>i% p%=1
! G%=139 p%=p%1: p%=0 p%=
MASTER ROUTINE
dhC: INITIALISE
d\E: INTRO
( Y=1
2 dPG: MENU
< tlM: ENEMY DECISIONS
F
X=1 4
P t`O: BATTLES
Z X
d
X=1 4
n F(X)=0 DpW: LOSE
x F(X)=10 DdY: WIN
X
DU: ALTER VARIABLES
Y=Y+1
Tr@
:
:
INITIALISE
T(5): D(5)
P(4,2): F(4)
E(5)
X=1 4
F(X)=4+((1)(1))
D(X)=((1)*100)
$ E(X)=((1)*70)
.
Y=1 2
8 P(X,Y)=(1)(1)
B Y
L X
V D(5)=1000: E(5)=800
`
:
:
INTRO
"GALACTIC EMPIRE"
"You are the general of the spacefleet"
*"of an expanding galactic empire. It"
,"currently occupies 40% of the galaxy."
,"Using military strategy and political"
,"acumen, you must beat back the forces"
""of another, larger empire while taking"
,'"care not to alarm planets of the"
6,"frontier regions of your militaristic"
@"intentions."
J
T,"When a territory is occupied, be sure"
^("to allocate enough ships to guard"
h)"against rebellion from nationalist"
r#"elements among the populace."

Thc
:
:
MENU
"Here are your options:"
"1. Do nothing."
)"2. Display situation on one front."
"3. Transfer ships."
"Which one do you want ?"
A
A=(A)
A>3 A=3
* A<=1
4 A=2 "W";
H A=3 "To w";
R$"hich front ? (1 to 4 or 5 for"
\"reserves)"
f B
p B=((B))
z B>5 B<1 B=1
A=2 dDI
A=3 txK
dPG
:
B<5 "Front ";B
B=5 "Reserves"
#"We have ";D(B);" ships here."
)"The enemy is thought to have about"
0" ";((E(B)+((1)(1))/5*E(B)));" ships."
B=5 tVJ
)"The front is ";F(B);" regions from"
("our home planet."
2
<
X=1 2
F"The population on ";
P X=1 "our";
Z X=2 "the enemy";
d" side is"
n P(B,X)<.4 "rebellious."
x/ P(B,X)>=.4 P(B,X)<=.7 "fairly calm."
P(B,X)>.7 "content."
X
Thc
:
TRANSFER
"From which front ?"
C
C=((C))
C>5 C<1 C=5
"How many ships ?"
D
D=((D))
D>D(C) D=D(C)
D(C)=D(C)D
& T(B)=T(B)+D
0
:
:
ENEMY DECISIONS
TD=0
X=1 4
TD=TD+(5F(X))
E(5)=E(5)+(E(X)/2)
E(X)=(E(X)/2)
X
X=1 4
( E(X)=E(X)+((5F(X))/(TD+1)*E(5))
X
E(5)=0
:
:
BATTLES
$ SL=((E(X)/5+((1)(1))*20))
$ TL=((D(X)/5+((1)(1))*20))
SL>D(X) SL=D(X)
TL>E(X) TL=E(X)
D(X)=D(X)SL
E(X)=E(X)TL
" NP=F(X)+(((D(X)E(X))/25))
NP>10 NP=10
NP<0 NP=0
"Report from front ";X
"We lost ";SL;" ships."
"#"The enemy lost ";TL;" ships."
,
6, NP>F(X) "We have taken the region."
@+ NP.3 F(X)<10 tTQ
" P(X,2)<.7 F(X)>0 tHS
Thc
:
OCCUPYING FORCE
."How many ships will occupy the region ?"
A
A=((A))
A>D(X) A=D(X)
D(X)=D(X)A
:
REGION JOINS YOU
+"The next region outward has rebelled"
"against the enemy."
1 D(X)""
#F
#P
(r,(`(~w~g_}C~"+;EA~͵bFF( (C
7
23;8202;0;0;0;
TITLE$="NUCLEAR CRISIS"
(
title
2"This is a fairly sophisticated representation of a nuclear blackmail confrontation, with a variety of weaponry and defences. This is responsible for the length of the program."
<
F"The object of the game is to persuade the other countries to give you their land. To speed this process up, you can destroy some land with nuclear devices if you wish."
P*FX15,1
Z71,23);"Press the SPACE BAR to continue.": =32
d:title
n"The other countries analyse the situation with respect to numbers of equipment, and make demands or escalate accordingly. They also escalate in response to you."
x"Where you have the edge over them is in buying equipment  they do not save money, with the result that they cannot afford the more expensive types after the first loop."
"The main display uses the menu technique, so you can select reports on any of the countries. Then you can make decisions regarding each country in turn."
*FX15,1
71,23);"Press the SPACE BAR to continue.": =32
:title
r"Your options in the decisions are generated using the present stage of relations with the country."
<1,23);"Press the SPACE BAR to play the game.": =32
"NUCLEAR"
title
L=(TITLE$)
20L/2);TITLE$
20L/2);L,"_")
(2<FPZdnx t$!Corridors Of PowerGame Zone"
MASTER ROUTINE
dhC: INTRO
d\E: INITIALISE
(W=1
2 dPG: REPORT
< dDI: ACQUIRE
F txK: ESCALATE?
P
C=2 3
Z! C(C,1)>0 tTQ: REPLIES
d C
n
X=1 3
x C(X,2)<1E6 C(X,1)=0
X
C(1,1)=0 D@_
" C(2,1)=0 C(3,1)=0 Tta
tHS: DUD EQUIPMENT
W=W+1
Tr@
:
:
INTRO
"NUCLEAR CRISIS"
+"It is the year 1992. The superpowers"
."are selling nuclear weaponry to the old"
+"Third World countries, as they them"
'"selves are defended by satellite"
$"weapons."
.
8."You are the leader of one such country,"
B'"striving to protect yourself and"
L+"expand your territories. Against you"
V*"are two similar countries, with the"
`#"same objectives  and means."
j
tlf
t"You buy in nuclear weaponry to replace"
~"broken (and used) equipment. The money"
,"comes from your own country as taxes,"
#"and from other countries, in"
""blackmail payments of land."
+"As the amount of tax you can collect"
+"depends on the size of your country,"
+"expansion increases your potentials."
"You can also buy antimissile missiles"
&"against missiles, antiaircraft"
$"missiles against bombers, and"
,"interceptors against Cruise missiles."
tlf
."Blackmailing is carried out as follows:"
*"First, you claim land as rightfully"
'"yours. After that, if the victim"
(+"country does not agree, you threaten"
2*"with nuclear attack. If the country"
<+"still does not agree, you can launch"
F)"an attack with one weapon. If this"
P'"fails, you can launch an allout"
Z"attack."
d
tlf
n
:
:
INITIALISE
C(3,10)
X=1 3
DrF
C(X,1)=1
Y=2 10
I
C(X,Y)=(I+I/5*((1)(1)))
" Y
, X
6 T(3,6)
@
S(2)
J
F(3)
T
MI=0:MO=0
^
q:
r 1E7,1E9,10,15,5,15,5,10,0
:
:
MAIN DISPLAY
"Week ";W
"Which do you want ?"
"" 1. Report on your country."
" 2. Report on Eprabia."
" 3. Report on Faulenland."
" 4. Leave report stage."
A
*
A=(A)
4
> A<1 A=4
H"Report on ";
R
dH
\
X=1 A
f C$
p X
z C$;":"
9 C(A,1)=0 "This country no longer exists.": dhH
TFI
X=2 9
A>1 X>2 "Est. ";
I$
N=C(A,X)
+ A>1 X>2 N=((N+N/3*((1)(1))))
I$;25);: X>3 ;N
X<4 ;(N/1E6);"m"
X
tlf
dPG
:
% your country,Eprabia,Faulenland
" Land area (sq. km),Money ($)
B1 bombers
Cruise missiles
$ Pershings
.
A.A.M.s
8 Interceptors
B
A.M.M.s
:
:
ACQUIRE EQUIPMENT
C(1,3)<2E6
"Which do you want ?"
" 1. Leave acquiral stage."
TPI
X=2 7
" ";X;". Buy ";
I$
I$;"."
X
( A
2
A=((A))
< A<2 A>7
F
dpJ
P
X=2 A
Z I
d X
n)"How many do you want (@ $";I;"m) ?"
x B
B=((B))
( C(1,3)2 (4000+S*500)
Q=0 S(C1)=S
S=C(C,10): Q
C:
" 2. Claim some land."
#" 3. Launch a nuclear attack."
* A
4 A=2 S=1
> A=3 S=4
H
y:
z" 2. Withdraw the claim."
" 3. Threaten nuclear war."
#" 4. Launch a nuclear attack."
A
A=2 S=0
A=3 S=2
A=4 S=4
:
" 2. Withdraw the claim."
"" 3. Launch a single weapon."
" 4. Launch a full attack."
A
A=2 S=0
A=3 A=4 S=A
A=4 S=4
$
A:
B" 2. Withdraw the claim."
L"" 3. Launch a single weapon."
V " 4. Launch a full attack."
` A
j A=2 S=0
t A=4 S=4
~ A=1 S=2
A=3 S=3
:
" 2. Withdraw the claim."
#"Doing nothing is the same as"
"continuing the attack."
A
A=2 S=0
:
" 2. Accept the claim."
A
A=2 tZP
(
m:
n" 2. Accept the claim."
x A
A=2 tZP
:
" 2. Accept the claim."
*" 3. Launch a weapon in retaliation."
" 4. Launch a full attack."
A
A=3 A=4 S=A
A=2 tZP
A=1 S=0
5:
6" 2. Accept the claim."
@ " 3. Launch a full attack."
J A
T A=3 S=4
^ A=2 tZP
h A=1 S=0
r
:
"How many sq. km of land will you give."
"them ?"
A
A=((A))
A>C(1,2) A=C(1,2)
( A>=(1)^2*C(1,2)^2/C(C,2) TpQ
/"It was not enough. Will you reconsider ?"
A$
A$="Y" tZP
/:
0%"It was enough to satisfy them."
:
C(C,10)=0
DS(C1)=0
NC(1,2)=C(1,2)A
XC(C,2)=C(C,2)+A
b
tlf
l
:
:
REPLIES
MI=0:MO=0
X=3 6
MI=MI+C(1,X).7*C(C,X+3)
MO=MO+C(C,X).8*C(1,X+3)
T(C,X)=C(1,X)C(C,X+3)
T(C,X)<0 T(C,X)=0
X
MI<0 MI=0
X=1 3
&T(C,X)=C(C,X+3)C(1,X+6)+((1)*5)
T(C,X)<0 T(C,X)=0
X
dpJ
M=0
X=4 9
I
*M=M+T(C,X3)*I*1E6
4 X
>M=C(C,3)/(M+1):C(C,3)=0
H
X=1 6
RT(C,X)=((T(C,X)*M))
\ X
f S(C1)>1 MI>10 d@R
p S(C1)>2 C(C,10)=S(C1)
zA S(C1)<4 MO>MI*(1.5+(1)) C(C,10)<4 C(C,10)=C(C,10)+1
( C(C,2)<(1)*8E6 C(C,10)=1: D^Z
& C(C,10)>2 (5000+500*C(C,10))
> MI>10 MO2 C(C,10)=C(C,10)1
:
dH
X=1 C
I$
X
( I$;" has decided to give you some"
)"land if you will cease the attack."
L=((1)^3*C(C,2))
'"They will give you ";L;" sq. km."
"Is this enough ?"
$ A$
. A$="Y" DVS
8 (1)>.5 TFS
B
U:
VS(C1)=0
`
C(C,10)=0
jC(1,2)=C(1,2)+L
tC(C,2)=C(C,2)L
~
:
:
DUD EQUIPMENT, ETC
$"Equipment gone unserviceable:"
TPI
X=4 9
D=((1)*C(1,X)/5)
I$
I$;20);D
C(1,X)=C(1,X)D
X
C=2 3
X=4 9
"C(C,X)=C(C,X)((1)*C(C,X)/5)
X
C
C=1 3
(T=C(C,2)*2
2, C=1 "Tax collected: $";(T/1E6);"m"
<C(C,3)=C(C,3)+T
F
X=1 6
P%C(C,X+3)=C(C,X+3)+T(C,X):T(C,X)=0
Z X
d C
n
tlf
x
y:
z:
{ SINGLE WEAPON

%"You wanted to launch 1 weapon."
"This is your arsenal:"
TPI
X=1 3
I$
" ";X;". ";I$;22);C(1,X+3)
X
"Which type will you use ?"
A
A=((A)): A>6 A<1 A=1
C(1,A+3)<1
C(1,A+3)=C(1,A+3)1
F(A)=1
DX[
m:
n:
o FULL ATTACK
p
TPI
z!"You ordered a full attack."
"Enter the numbers of each type to use:"
X=1 3
I$
$ I$;20);"(";C(1,X+3);" there)"
A
A=((A)): A<0 A>C(1,X+3) A=C(1,X+3)
F(X)=A
C(1,X+3)=C(1,X+3)A
X
DX[
a:
b:
c ENEMY SINGLE WEAPON LAUNCH
dN=((1)*3+.9)
n$ C(C,N+3)=0 (1)>.01 DdY
x
F(N)=1
& C(C,N+3)>0 C(C,N+3)=C(C,N+3)1
tp]
:
:
FULL ENEMY ATTACK
X=1 3
F(X)=(C(C,X+3)/2+.5)
C(C,X+3)=C(C,X+3)F(X)
X
"
tp]
[:
\:
] LAST DITCH ATTACK
^
X=1 3
hF(X)=C(C,X+3)
rC(C,X+3)=0
 X
tp]
U:
V:
W ATTACK
X
bLL=0
l
dH
v
Z=1 C
MISSING LINE?
Z
$"Target: ";C$;". You launched:"
TPI
X=1 3
I$
I$;":";20);F(X)
X
tlf
TPI
X=1 3
I$
F(X)=0 DH\
N=0
Y=1 F(X)
7 C(C,X+6)>0 (1)<.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+((1)*F(X)*1E4)
H X
R LL>C(C,2) LL=C(C,2)
\C(C,2)=C(C,2)LL
f(" ";LL;" sq. km of land were lost."
pC(1,4)=C(1,4)+((1)*F(1))
z
X=1 3
F(X)=0
X
tlf
:
:
ENEMY ATTACK
N=0:LL=0
dH
Z=1 C
C$
Z
C$;" launched:"
TPI
X=1 3
I$
I$;":";20);F(X)
X
(
TPI
2
X=1 3
< I$
F F(X)=0 tj^
PN=0
Z Y=1 F(X)
d7 C(1,X+6)>1 (1)<.75 N=N+1:C(1,X+6)=C(1,X+6)1
i Y
n I$;":"
x$"Our defences destroyed ";N;"."
F(X)=F(X)N
$" ";F(X);" reached the target."
LL=LL+((1)*F(X)*1E4)
LL>C(1,2) LL=C(1,2)
X
C(1,2)=C(1,2)LL
C(1,2)<0 C(1,2)=0
'" ";LL;" sq km of land were lost."
#C(C,4)=C(C,4)+(F(1)(1)*F(1))
X=1 3
F(X)=0
X
tlf
=:
>:
?
LOSE
@
J*"Your country has been given away or"
T&"blown out of existence after ";W
^
"weeks."
h
Thc
!1:
!2:
!3 WIN
!4
!>'"Well done! You have succeeded in"
!H+"vanquishing the other two countries,"
!R"leaving yourself to continue expanding"
!\ "throughout the continent."
!f
Thc
#%:
#&:
#' REPLAY
#(
#2!"Do you want to try again ?"
#< A$
#F A$="Y"
#P
&:
& KEY PRESS ROUTINE
&
& "PRESS ANY KEY TO CONTINUE"
&
<>""
&
&
( q*o P (jL0p P x.V&
7
23;8202;0;0;0;
!TITLE$="THE ROAD TO VALHALLA"
(
title
2"The behaviour of people in this game is based on the description of Viking (or Icelandic) custom described in 'Njal's Saga'."
<"The object is to gain honour and wealth so that on your death, you go to Valhalla. Commonsense laws such as not harming your friends and finishing vendettas should point the way to success."
F
P"Reply moves consist of fairly random actions on the part of your rival settlers, which indicate your standing with them and start vendettas."
Z*FX15,1
d71,23);"Press the SPACE BAR to continue.": =32
n:title
x"Owing to the slightly random nature of the behaviourgenerating lines, they tend to do unlikely things from time to time  such as giving you presents afteryou attacked them."
T"The response to your actions is linked to your popularity with each settler."
"The analysis of your actions is fairly complete  each settler considers what you have done in the light of their opinion of the person you have done it to, if it is not the same settler."
*FX15,1
<1,23);"Press the SPACE BAR to play the game.": =32
"VALHALL"
title
L=(TITLE$)
20L/2);TITLE$
20L/2);L,"_")
(2468PZdfhj,"_")
2ITLE$hTHE ROAD TO VALHALLALE$
title
try does not agree, you threaten"
2*"with nuclear attack. If the country"
<+"still does not
MASTER ROUTINE
dhC: INITIALISATION
( d\E: INTRO
2
Thc
< YEAR=1: SE=1
F dPG: DISPLAY A
P
Thc
Z dDI: INPUTS
d
Thc
n txK: ENEMY DECISIONS
x
Thc
SE=2 t`O: MOOT
SE=SE+1
* SE=4 YEAR=L tHS: END OF GAME
SE=4 tlf
DF@
:
:
INITIALISATION
" A(4,5): F(4): P(4): F$(4)
X=1 4
Y=1 5
A(X,Y)=((1)(1))/5
Y
P(X)=((1)*50)
$ X
. L=((1)*6)+2
8 N$(4): P$(4)
B
T\e
L
X=1 4
V I$
` J$
j N$(X)=I$
t P$(X)=J$
~ X
:
:
INTRO
"THE ROAD TO VALHALLA"
"You have emigrated from the kingdom of"
."Norway to Iceland. Landing at Helmsdale"
,"you found a settlement in true Viking"
"fashion."
"
,"After the long, stormy voyage, you are"
6+ L>6 "still in the best of health."
@) L<=6 L>5 "in moderate health."
J0 L<=5 L>4 "rather the worst for wear."
T* L<=4 "in a poor state of health."
^
h*"You know the time has come to think"
r+"seriously of the afterlife. You must"
,"increase your honour so you can reach"
$"Valhalla when the time comes."
"You alter your honour in your dealings"
#"with the other four clans of"
,"settlers, led by Thor, Odin, Olaf and"
$"Lars. You also gain honour by"
&"increasing your worldly wealth."
:
:
SEASONAL DISPLAY
SE=1 "Spring";
SE=2 "Summer";
SE=3 "Autumn";
SE=4 "Winter";
" of year ";YEAR
"Your possessions are:"
X=1 4
* P(X);" ";P$(X)
4 X
>
H N=0
R
X=1 4
\ A(X,1)>0 DU
f X
p N>0 d`U
z
:
:
INPUTS
"These are your options:"
+"1.Give away some of your possessions"
"2.Do nothing"
%"3.Steal somebody's possessions"
$"4.Kill somebody's possessions"
"Which do you want?"
J
" J<1 J>4 J<>(J) dDI
J=J2
( N=0
2 K=0
< J<>0 thV
F F(N)=(F(N)J)
P J=1 DpW
Z J=1 dTW
d J=2 TxX
n
X=1 4
x X=N tVJ
" A(X,1)=A(X,1)J*K*A(X,N+1)/5
" H=H(A(X,1)*J*K*A(X,N+1))/2
X
:
:
ENEMY DECISIONS
X=1 4
S=((1)*3)+1
DdY
Y=1 4
+ T<>1 A(T1,S)=A(T1,S)J*K*A(Y,T)
Y
T=1 F(X)=(F(X)+J)
X
S=((1)*3)+1
DX[
:
:
ANNUAL MOOT
/"Do you want to go to the moot this year?"
A$
A$<>"Y" Thc
A$<>"Y"
&"At the moot,you can settle your"
%"differences with any one clan."
X=1 4
X;".";N$(X)
X
""Which one do you want?"
, A
6" A<1 A>4 A<>(A) d\O
@ F(A)=0
J A(A,1)=(1)*2
T
^+"It is the end of the moot. The chief"
h+"of the elected council from Rekjavik"
r+"approaches you and tells you that as"
+"far as your honour is concerned, you"
"are doing ";
(H)>0 "fine."
! (H)=0 "averagely well."
(H)<0 "badly."
Thc
:
:
END OF LIFE
X=1 4
H=H(F(X))+P(X)/15
X
"You have reached the end of your life."
D=1+(1)*2
% H>D "Valhalla welcomes you."
) H<=0 "Long may you rot in hell!"
!"Do you wish to play again?"
A$
A$="Y"
y:
z:
{
FRIENDS
 N=N+1
N=1 F$=N$(X)
! N=2 F$=N$(X)+" and "+F$
N>2 F$=N$(X)+","+F$
:
:
FRIEND DISPLAY
F$;
N=1 " has";
N>1 " have";
" sent good wishes."
:
:
SPECIFIC INPUTS
X=1 4
X;".";N$(X)
X
"Which one do you want?"
N
+ N<1 N>4 N<>(N) N=((1)*3)+1
X=1 4
X;".";P$(X)
X
"Which type of possession?"
K
+ K<1 K>4 K<>(K) K=((1)*3)+1
m:
n:
o
GIFT
p NG=((1)*P(K))
z
3 N$(N);" thanks you for the ";NG;" ";P$(K);"."
P(K)=P(K)NG
A(N,1)<0 H=H1
A(N,1)>=0 H=H+7.5
A(K,1)=A(K,1)+K
:
:
THEFT
NS=((1)*40)
6"We have stolen ";NS;" of ";N$(N);"'s ";P$(K);"."
P(K)=P(K)+NS
# A(N,1)>=0 H=H(A(N,1)+.2)
A(N,1)<0 H=H+1.5
A(N,1)=A(N,1)1.5
5:
6:
7
KILL
8 NK=((1)*50)
B
L5"We have killed ";NK;" of ";N$(N);"'s "P$(K);"."
V% A(N,1)>=0 H=H2*(A(N,1)+.5)
` A(N,1)<0 H=H+2.5
j A(N,1)=A(N,1)3
t
a:
b:
c ENEMY ACTION
d T=((1)*3)+1
n3 T=S+1 DdY: REPEAT TILL DIFFERENT PERSON
x D=A(S,T)+((1)(1))/10
D<.01 J=1
D<3 J=2
D>=.01
J=1 S$="stole"
J=2 S$="killed"
K=1+((A(S,T)))
K>4 K=4
T=1 dh\
T<>1 DL]
/ N$(S)+" "+S$+" "+(Q)+" of "+W$+P$(K)+"."
U:
V:
W ENEMY GIFT
X" A(S,1)+((1)(1))/10<=0
b Q=((1)*50)+1
l K=((1)*3)+1
v P(K)=P(K)+Q
) N$(S);" sends you ";Q;" ";P$(K);"."
F(S)=F(S)1
Q=((1)*P(K))
P(K)=(P(K)Q)
W$="your "
L Q=((1)*50)+1
V W$=N$(T1)+"'s "
`
#%:
#&:
#' KEY PRESS ROUTINE
#(
#2"PRESS A KEY TO CONTINUE"
#<
<>""
#F
#P
%:
%:
% Thor,sheep
%& Odin,cattle
%0 Olaf,horses
%: Lars,servants
&:
& CHANGE OF YEAR
&
SE=1
& YEAR=YEAR+1
&
(xg3ϻN})"pz3x[}{"#}J}8}\
7
23;8202;0;0;0;
TITLE$="DOWNING STREET"
(
title
2"This is not so much a political or economic acumen game as a test of general knowledge in politics. You choose your political party, and are"
<"expected to follow a stereotyped patternof behaviour with regard to national isations (no complaints from party activists please)."
F
Pt"You make generalised decisions on the economy which affect your popularity in the different sections of the"
Z"population."
d*FX15,1
n71,23);"Press the SPACE BAR to continue.": =32
x:title
"Your popularities here are indicated in the annual report at the start of each loop. Various international events including conferences and wars come up, which also make changes to your popularity."
"At election time, the outcome is decided by your total popularity, related to the size of each section of the population. 'Election results' are generated randomly (except for yours')."
*FX15,1
<1,23);"Press the SPACE BAR to play the game.": =32
"DOWNING"
title
L=(TITLE$)
20L/2);TITLE$
20L/2);L,"_")
(24568ZdnxzING STREET20L/2);Ttitle`
MASTER ROUTINE
dhC: INTRO
d\E: PARTY
( dPG: INITIALISE
2 Y=1
< dDI: MAIN DISPLAY
F txK: DECISIONS
P
X=1 3
Z tlM: CONFERENCES
d X
n WAR=0 t`O
x WAR=1 tTQ
tHS: CHANGE VARIABLES
P1+P2+P3<5 DU
Y/5=(Y/5) DpW
Y=Y+1
T@
START WAR?
:
:
INTRO
"DOWNING STREET"
,"Your party, which you choose shortly,"
"has been elected to power in a country"
"very similar to Britain."
$)"In this simulation, you make basic"
."policy decisions rather than numerical"
8("analyses, to remain as popular as"
B."possible. You are only required to give"
L'"the desired trend of taxes, etc."
V
`."In your decisions, take account of your"
j."backers in the different classes in the"
t,"country. Their individual opinions of"
~"you can be gauged from the appropriate"
,"popularityindicating activities such"
%"as strikes, lobbies and riots."
tlf
:
:
PARTY
,"In choosing your political party, you"
("must decide between Conservative,"
"LiberalSDP and Labour."
."Enter the name in full. (Block letters)"
P$
D P$<>"CONSERVATIVE" P$<>"LIBERALSDP" P$<>"LABOUR" TDF
P$="CONSERVATIVE" P=1
" P$="LIBERALSDP" P=2
, P$="LABOUR" P=3
6
@ P=1 tdF
J P=2 THG
T P=3 DlG
:
P1=20
P2=20+((1)*10)
P3=5+((1)*45)
:
P1=10+((1)*10)
P2=30
P3=15+((1)*35)
&
k:
l P1=((1)*20)
v P2=((1)*30)
P3=40+((1)*10)
:
:
INITIALISE
E(7)
C(7)
X=1 7
(1)>.5 C(X)=1
X
F=((1)*15)
U=((1)*5E6)
G=(((1)(1))*15)
C=(((1)(1))*15)
* WAR=0
4
WS=0
>
:
:
MAIN DISPLAY
!"YEAR ";Y;" OF ";P$;" POWER"
0"National popularity:";P1+P2+P3;"% support"
"Inflation rate ";F;"%"
!"Unemployment: ";U;" people"
"Industrial growth: ";G;"%"
"Crime rate ";
C<0 "down";
C>=0 "up";
(" by ";(C);"%"
2
<2 P1<10 "There is an increase in lobbying."
F8 P2<20 "Whitecollar workers are striking more."
P6 P3<40 "There are antipolicy demonstrations."
ZB P3<30 "Strikes of manual workers are on the increase."
d6 P3<5 "Riots are taking place in the capital."
n
tlf
x
:
:
DECISIONS
ddL
X=1 7
I$
"At present, ";I$;" is ";
E(X)=0 "low."
E(X)=1 "high."
)"Do you want to change this trend ?"
A$
A$="Y" E(X)=E(X)1
E(X)<0 E(X)=1
& X
0
TVM
:
X=1 7
D
N I$
X"The ";I$;" is "
b* C(X)=0 "under private ownership."
l C(X)=1 "nationalised."
v""Do you want to alter this ?"
A$
A$="Y" C(X)=C(X)1
C(X)<0 C(X)=1
X
:
* the Police Budget,the Defence Budget
Tax,Industrial Subsidy
, the Health Budget,the Education Budget
the average salary
:
/ Broadcasting Corporation,National Railway
( Steel Corporation,National Airline
* Coal Board,Electricity Generating Board
4 Shipbuilding Corporation
:
:
CONFERENCES
+"Common Market Conference, Session ";X
"The motion is that your country should"
MOTION=3700+((1)*5)*10
MOTION
I$,I
I$;"."
"Will you accept ?"
A$
D=I
A$="Y" D=I
$ P1=(P1+(1)*D*15)
. P2=(P2+(1)*D*15)
8 P3=(P2+(1)*D*15)
B
s:
t" import more dairy produce,1
~& contribute more to the budget,1
. reduce the size of its steel industry,1
receive more rebates,1
% receive an agricultural grant,1
! supply he Market's armies,1
:
:
(1)>.15
"A ThirdWorld country has attacked one"
,"of your dependencies. Will you launch"
"a counterattack ?"
A$
A$="Y" DhP
P1=(P1/2+(1)*P1/4)
P2=(P2/3+(1)*P2/3)
P3=(P3/4+(1)*P3/4)
g:
h WAR=1
r P1=(P1/2+(1)*P1/4)
 P2=(P2/2+(1)*P2)
P3=(P3+(1)*P3/5)
:
:
WAR PROGRESS
WS=WS+E(2).5
"PROGRESS OF FOREIGN WAR:"
+"According to the latest reports from"
"the front lines, we are ";
WS>0 "winning";
WS=0 "bogged down";
WS<0 "losing";
(WS)<1 "."
& (WS)>1 :"by a wide margin."
"Do you want to withdraw and call for a"
"diplomatic settlement ?"
A$
A$="Y" D\R
* WS<1 (1)<.5 tNR
4 WS>1 (1)<.5 drR
>
tlf
H
[:
\ WAR=0
f P3=((1)*P3)
p
WS=0
z
:
"We have lost the war."
WAR=0
WS=0
P1=((1)*P1)
P2=((1)*P2)
P3=((1)*P3)
:
"We have won the war."
WAR=0
WS=0
P1=(P1/2+(1)*P1)
$ P2=(P2/2+(1)*P2)
. P3=(P3+(1)*20)
8
:
:
CHANGE VARIABLES
+ F=(F+(E(3)+E(7)1)*10+((1)(1))*5)
& G=(G+(1)*5*(E(4)(1))/(I+.1))
U=((U(1)*G*1E5))
$ C=(C+(1)*U/5E5(1)*10*E(1))
# P1=P1+(1)*(GCFU/5E5+WS*5)
# P2=P2+(1)*(GCFU/5E5+WS*5)
# P3=P3+(1)*(GCFU/5E5+WS*5)
ttT
X=1 7
I,J,K
% P1=((P1+I*E(X)+((1)(1))*5))
% P2=((P2+J*E(X)+((1)(1))*5))
% P3=((P3+K*E(X)+((1)(1))*5))
X
(5400+10*(P1))
(
X=1 7
2 I
<* P1=((P1+I*(C(X).5)+((1)(1))*5))
F* P2=((P2+I*(C(X).5)+((1)(1))*5))
P* P3=((P3+I*(C(X).5)+((1)(1))*5))
Z X
d P1>20 P1=20
n P2>30 P2=30
x P3>50 P3=50
:
55,10
5,0,10
0,5,10
5,0,15
5,10,15
5,10,15
5,10,15
:
7,7,7,7,7,7,7
" 7,7,0,0,7,7,0
, 0,0,0,0,0,0,0
y:
z:
{ REVOLUTION

V=P1+P2+P3
V<0 V=0
,"Your popularity has fallen to ";V;"%."
*"There has been a revolution and you"
0"have been ousted. You lasted ";Y;" years."
DdY
m:
n:
o GENERAL ELECTION
p
z'"It is year ";Y;", time for the ";
Y>5 "next";
:"General Election."
("The results are coming through..."
"PARTY";20);"VOTES"
)"COMMUNIST PARTY";20);((1)*150+1)
'"ECOLOGY PARTY";20);((1)*400+2)
dNX
VL=100P1P2P3
VM=0
X=1 3
I$
I$;" PARTY";
V=((1)*VL)
$( (X=2 P=3) (X=3 P<3) V=VL
. V>VM X<>P V=VM
8 X=P V=P1+P2+P3
B X<>P VL=VLV
L V=(5E5*V/(1+(1)/150))
V 20);V
` X
j
t
~ P1+P2+P3>=VM T@Y
"You lost the election."
DdY
:
% CONSERVATIVE,LIBERALSDP,LABOUR
:
+"You won the General Election. Do you"
)"want to continue as leader of your"
"party ?"
A$
( A$="Y" t`@
a:
b:
c REPLAY
d
n!"Do you want another game ?"
x A$
A$="Y"
&:
& KEY PRESS ROUTINE
&
& "PRESS ANY KEY TO CONTINUE"
&
<>""
&
&
4$3LABO
7
23;8202;0;0;0;
#TITLE$="THE NATIONAL HERO GAME"
(
title
2R"This is a cross between a simple military game and an economic game."
<"The country's economy is represented by a set of named variables, which are controlled to remain popular while retaining sufficient armed forces to deal with any wars."
F
PO"The economic reports include perentage changes since the previous year."
Zl"Economic inputs are checked by a subroutine (lines 3800 to 3830) to set the limits on action."
d
nk"The other two countries are tested in turn to see whether an attack is to be made by either side."
x*FX15,1
71,23);"Press the SPACE BAR to continue.": =32
:title
"The outcome of any war is, of course, directly related to the size of the player's armed forces, though there is an option for a diplomatic solution."
h"The variables are not stored in arrays; they are named as in English (or abbreviated)."
*FX15,1
<1,23);"Press the SPACE BAR to play the game.": =32
"HERO"
title
L=(TITLE$)
20L/2);TITLE$
20L/2);L,"_")
_
Block letters)"
P$
D P$<>"CONSERVATIVE" P$<>"LIBERALSDP" P$<>"LABOUR" TDF
P$="CONSERVA
MASTER ROUTINE
dhC: INITIALISE
( d\E: INTRO
2
Thc
<
TW=1
F GEC=1
P YEAR=1
Z
d dPG: DISPLAY
n GEC<0 dDI
x
Thc
txK: SAVE OLD VALUES
tlM: INPUTS
Thc
t`O: VARIABLE CHANGE
tTQ: ENEMY ATTACK?
dxQ: PLAYER ATTACKS?
GEC=0 DpW
Pop<(1)*.05 DdY
+ YEAR>(1)*20 Pop=Pop(1)*YEAR/50
Pop<0 Pop=0
Pop>1 Pop=1
YEAR=YEAR+1
GEC=GEC1
TW=TW+1
DZ@
:
:
INITIALISATION
BP=1E7
Tax=.2
Wages=5E3
Services=5E7
DB=5E7
FS=1E3
$ Pop=.25+(1)*.5
. Tax1=Tax
8 Wages1=Wages
B Services1=Services
L DB1=DB
V
:
:
INTRO
"THE NATIONAL HERO GAME"
"After combined civil war and invasion,"
%"you are appointed to lead your"
"country to recovery."
+"You take all the important decisions"
)"on the economy and border disputes"
""with your neighbours."
,
6*"People expect you to call the first"
@'"election when conditions permit."
J*"Your ultimate future depends on the"
T "outcome of that election."
^
:
:
DISPLAY
,"YEAR ";YEAR;" OF YOUR ADMINISTRATION."
!"Popularity ";(Pop*100);"%"
"Balance of payments $";BP
#"Income tax ";(Tax*100);"%";
Q=Tax
Q1=Tax1
dH
"Basic wage $";Wages;"";
*
Q=Wages
4 Q1=Wages1
>
dH
H"Services $";Services;"";
R Q=Services
\ Q1=Services1
f
dH
p"Defence Budget $";DB;"";
z
Q=DB
Q1=DB1
dH
!"Size of forces:";FS;" men."
:
$ CH=(((Q+.01)/(Q1+.01)1)*100)
CH<0 I$="down "
CH>0 I$="up "
CH=0 I$="no change."
$" CH<>0 I$=I$+((CH))+"%"
. I$
8
:
:
SET ELECTION DATE
'"Do you wish to call an election?"
A$
A$<>"Y"
("How many years do you want it in?"
A
GEC=((A))
GEC>20 GEC=20
$ Pop>.5 Pop=Pop(1)*GEC/10
:
:
SAVE OLD VARIABLE VALUES
Tax1=Tax
Wages1=Wages
Services1=Services
DB1=DB
:
:
INUTS
"The Budget for year ";YEAR
"What rate of Income Tax?"
A
dXN
Tax=(A)/100
'"What % change in the basic wage?"
A
dXN
Wages=(Wages*(1+A/100))
!"What % change in Services?"
A
$
dXN
.$ Services=(Services*(1+A/100))
8+"What % change in the Defence Budget?"
B A
L
dXN
V DB=(DB*(1+A/100))
`
:
A<90 A=90
A>90 A=90
A=A+3*((1)(1))
:
:
CHANGE VARIABLES
PM=Pop
" Pop=Pop+Wages/(Wages1+1)/100
( Pop=Pop+Services/(Services1+1)/200
Pop=Pop*(1Tax)
% BP=BPServicesDB+Tax*Wages*1E6
BP<1E8 BP=(BP)
BP>1E9 Pop=Pop*.7
 TW*FS>(1)*2000 Pop=Pop/((1)*TW+1)
FS=((FS+DB/5E4)/2)
BP<0 Pop=Pop*.6
Pop=(2*Pop+PM)/3
:
:
ENEMY ATTACK TESTS
X=1 2
X=1 N$="Slovenlia"
X=2 N$="Bilharzia"
(1)<.1 D\R
X
Thc
:
:
PLAYER ATTACKS?
X=1 2
X=1 N$="Slovenlia"
X=2 N$="Bilharzia"
$"Do you wish to attack ";N$;"?"
* A$
4 A$="Y" DU
> X
H
Thc
R
Y:
Z:
[ ENEMY ATTACK
\
f$ N$;" has attacked the border."
p
z"What do you want to do?"
"1.Nothing."
("2.Call for a diplomatic solution."
"3.Fight back."
"Which one?"
A
A=1 TdS
A=2 tHS
A=3 DU
TW=0
!:
":
# DO NOTHING
$ Pop=Pop*(1)/2
.'"The enemy has occupied the area."
8
:
:
DIPLOMATIC SOLUTION
C=(1)*Pop
C<.25 dlS
C>=.25 DPT
:
""No solution could be found."
"This means war."
Pop=Pop(1)/3
DU
O:
P,"A diplomatic solution has been found."
Z Pop=Pop+(1)/5
d
y:
z:
{ FIGHTING
 S=0
FS*(1)>300 S=1
5 S=0 "You lost the battlesome land is held."
5 S=1 "You won the battle and took some land."
Pop=Pop+(1)*(S.5)
FS=(FS+(1)*FS*(S2)/2)
TW=0
m:
n:
o GENERAL ELECTION
p
z)"The General Election you called is"
+"imminent. How much money do you wish"
"to spend on the campaign?"
A
A=(A)
BP=BPA
! Pop=Pop*(1+(1)/5A/(BP+1))
Pop>1 Pop=1
Pop<0 Pop=0
R(3)
VC=1Pop
X=1 3
R(X)=(VC*(1)*1E6)
VC=VCR(X)/1E6
X
$%"The results of the voting are:"
.
8&"Republican Party ";R(1);" votes"
B#"Ecology Party ";R(2);" votes"
L&"Democratic Party ";R(3);" votes"
V"You ";(Pop*1E6);" votes"
`*"Communist Party ";(VC*1E6);" votes"
j
t Pop<.5 "You have lost."
~: Pop<.5 Pop>.2 "A coalition formed to beat you."
D Pop>=.5 Pop<.7 "You have a place in the next government."
> Pop>=.7 Pop<.9 "You will head the next government."
; Pop>=.9 "The people want you to stay as dictator!"
5 Pop<.1 "You should never be let near power."
0 Pop>.8 THE "You should take up politics."
DX[
a:
b:
c REVOLT
d S=0
n,"The people have rebelled against you."
x'"Do you want to call in the army?"
A$
A$="Y" S=FS2E3
2 S<=0 "You have been removed from office."
2 Pop<.01 A$="Y" "The army has mutinied."
? S>0 Pop>=.01 "You have a military dictatorship now."
!"Advicenever accept power!"
DX[
U:
V:
W REPLAY
X
b "Do you want another game?"
l A$
v A$="Y"
#%:
#&:
#' WAIT TILL KEY PRESSED
#(
#2"PRESS A KEY TO CONTINUE"
#<
<>""
#F
#P
T!P/ax
=p[/ages#h/ervicesM@x/BK@@S/op}aSנ/ax1zHages1!ervices1GoB1J"W@ECEAR@/
=p1zHH$/up 5%%nge..been a /$/NN0MfM~j2c@$/ Bi
7
23;8202;0;0;0;
TITLE$="CORRIDORS OF POWER"
(
title
2"This is a fairly comprehensive economic game, with many reallife variables. The object is, of course, to win the General Election but, to gain a sufficiently high popularity, the"
<4"variables must be manipulated with care."
F
P"The state of the economy is displayed asa list of variables every 'six months'. The changes made are percentage increases or decreases."
Z"Interactions like strikes are also included, and your popularity at GeneralElection time is affected by your manifesto promises, as well as your performance."
d*FX15,1
n71,23);"Press the SPACE BAR to continue.": =32
x:title
"The variables are given full names or initials where a full name would have been to long. This method, as opposed tousing arrays, was preferable in view of the complications involved in relating"
,"the variables while writing the game."
"Various extreme loss situations are possible: revolution and total economic collapse. This provides more fitting epitaths for people who make outrageous decisions."
*FX15,1
<1,23);"Press the SPACE BAR to play the game.": =32
"CORRIDO"
title
L=(TITLE$)
20L/2);TITLE$
20L/2);L,"_")
(2468:xges1
>
dH
H"Services $";Services;"";
R Q=Services
\ Q1=Services1
f
dH
p"Defence Budget $";DB;"";
z
Q=DB
Q1=D
MASTER ROUTINE
dhC: INITIALISE
( d\E: INTRO
2
tlf
< dPG: MANIF INIT
F YEAR=1: HALF=1: GEC=4
P
tlf
Z dDI: MAIN DISPLAY
d
tlf
n txK: INPUTS
x tlM: VARS ALTERED+REPORT
 Pay*(1Intax).6 (4500+CN*200)
X
"Do you want to call a General Election"
""for sooner than at present?"
A$
A$="Y" DpW
GEC=0 HALF=1 DX[
HALF=HALF+1
" HALF>2 dtA
, Pop>1 Pop=1
6 Pop<0 Pop=0
@
DP@
# A$="Y" NDB=NDB*(1+C/100)
:
HALF=1
YEAR=YEAR+1
GEC=GEC1
5+"The country's economy has collapsed."
:
:
INITIALISATION
Pop=.5+(1)/3
BP=1E10
NDB=1E10
FS=1E5
SB=7.5E9
Pay=2000
$
UB=1500
. Prod=2
8 Costs=1000
B Unemp=((1)*5E6)
L
Aid=1E6
V Intax=.2
`
Ptax=.4
j Eptax=.25
t Iptax=.3
~ TPS=1000
VAT=.15
u:
:
INTRO
"CORRIDORS OF POWER"
+"You are the leader of the Democratic"
+"Party in a country of 50 million. In"
."the last General Election, you won with"
)"a majority of ";(Pop*1000)/10;"%."
","As Prime Minister, you take decisions"
,"on policy and any important occurences"
6"which appear."
@
J,"Every 5 years or whenever you choose,"
T."there is a General Election. If you win"
^)"more than 98% of the vote, all the"
h,"other parties join you to form a one"
r"party state under you."

:
:
MANIFESTO GENERATION
MIntax=.15
MUB=UB+((1)*UB/10)
MPay=Pay+((1)*Pay/10)
MSB=SB+(1)*SB/10
" MUnemp=Unemp((1)*Unemp/2)
DL]
:
:
MAIN DISPLAY
HALF=1 "FIRST";
HALF=2 "SECOND";
" HALF OF YEAR ";YEAR
%"Popularity ";(Pop*1000)/10;"%"
1"Balance of Payments $";(BP/1E6);" million"
4"Public Services Budget $";(SB/1E6);" million"
2"Defence Expenditure $";(NDB/1E6);" million"
&"Size of Armed Forces ";FS;" men"
0"Industrial Aid $";(Aid/1E5)/10;" million"
(
2$"Basic weekly wage $";(Pay/25)
<"Weekly Unemployment Benefit $";(UB/25)
F*"Weekly Cost of Living $";(Costs/25)
P""Number of unemployed ";Unemp
Z#"Income Tax ";(Intax*100);"%"
d&"Tax on Profits ";(Ptax*100);"%"
n#"Import Tax ";(Iptax*100);"%"
x#"Export Tax ";(Eptax*100);"%"
"VAT ";(VAT*100);"%"
:
:
INPUTS
"BUDGET FOR THIS SEASON"
%"What % Income Tax do you want?"
DHM
Intax=(A)
("What % change in Public Services?"
DHM
SB=SB*(1+A)
,"What % change in Defence Expenditure?"
DHM
NDB=NDB*(1+A)
&"What % change in Unemployment Benefit?"
0
DHM
: UB=(UB*(1+A))
D( "What % change in the Basic Wage?"
N
DHM
X Pay=(Pay*(1+A))
b%"What % Profit Tax do you want?"
l
DHM
v Ptax=(A)
%"What % Import Tax do you want?"
DHM
Iptax=(A)
%"What % Export Tax do you want?"
DHM
Eptax=(A)
"What % VAT do you want?"
DHM
VAT=(A)
'"What % change in Industrial Aid?"
DHM
Aid=Aid*(1+A)
G:
H A
R A>40 A=40
\ A<40 A=40
f A=(A)/100
p
:
:
VARIABLES ALTERED+REPORT
FS=((FS+NDB/5E4)/3)
C BP=BPNDBSBUB*UnempAid+(5E7Unemp)*Pay*Intax+5E7*Costs*VAT
 PM=((5E7Unemp)*(Pay*(1Intax)Costs))
9 SIE=(1VAT)*UB*Unemp+(5E7Unemp)*(TPS*ProdPay)+Aid
IG=(SIE/20/Costs)
IG>Unemp IG=Unemp
Unemp=UnempIG
EM=(SIE/4)+SIE/4
'"INDUSTRIAL REPORT FOR THE SEASON"
"Growth:";IG;" men"
$%"Exports:$";(EM/1E6);" million"
.%"Imports:$";(PM/1E6);" million"
8) Costs=(Costs+Costs*((1)(1))/20)
B& BP=BP+SIE*Ptax+PM*Iptax+EM*Eptax
L Pop=Pop*(1+(SBMSB)/10)
V$ Pop=Pop*(1+(MIntaxIntax)/10)
` Pop=Pop*(1+(PayMPay)/8)
j Pop=Pop*(1+(UBMUB)/10)
t$ Pop=Pop*(1+(MUnempUnemp)/10)
~ Pop>1 Pop=1
Pop<0 Pop=0
BP<1E6 Pop=Pop*.6
SIE<0 Pop=Pop*.7
:
:
STRIKES ROUTINE
MPayPay>Pay/10 TDP
(1)<.2 TvP
:
*"Strikes have broken out because the"
*"Government has not kept its payrise"
"promises."
"
DhP
,
5:
6("Unions have called a strike for a"
@"shorter working week."
J
DhP
T
g:
hPRNT
r"Here are your choices:"
" 1.Do nothing."
!" 2.Increase working hours."
" 3.Insist on a wage cut."
" 4.Offer a pay increase."
(" 5.Offer to reduce working hours."
," 6.Agree if productivity is improved."
"Which do you want?"
B
B>6 B<1 B=1
B=6 T\e
B=B3.5
Pop=Pop*(1+(1)*B/20)
B=2.5
"By how many % ?"
DHM
( (B)=1.5 TPS=(TPS*(1+(B)*A))
) (B)<>1.5 Pay=(Pay*(1(B)*A))
& Pop=Pop*(1A/5)
0
tlf
:
:
:
"CHANCE PILE"
C=((1)*50)
0"NATO has called for an increase of ";C;"%"
"in military spending. Will you comply?"
A$
" A$="Y" NDB=NDB*(1+C/100)
A$<>"Y" dxQ
:
S=(1)
/ S>.5 "Your refusal has been accepted."
S>.5
&"You have been forced to accept."
Pop=Pop*.8
* NDB=NDB*(1+C/100)
4
[:
\ C=((1)*50)
f("The World Health Organisation has"
p*"called for an increase of ";C;"% in"
z,"Public Services expenditure. Will you"
"comply?"
A$
A$="Y" SB=SB*(1+C/100)
A$<>"Y" d@R
:
S=(1)
S>.5 Pop=Pop*.8
S>.5
&"You have been forced to comply."
Pop=Pop*.95
SB=SB*(1+C/100)
#:
$"There has been a disaster in the Third"
.)"World. How much aid will you send?"
8 A
B A=(A)
L
BP=BPA
V A<1E4 Pop=Pop*.9
` A>1E6 Pop=Pop*1.05
j
:
'"There has been an outbreak of an"
'"epidemic disease in the country."
S=.1
SB>1E10*(1) S=.1
!"The Health Services were ";
S=0 "un";
("able"
2("to fight the disease effectively."
< Pop=Pop*(1+(1)*S)
F
:
"A Disarmament agreement has been made."
C=((1)*60)
*"Will you reduce Defence Expenditure"
"by ";C;"% ?"
A$
A$="Y" TXU
% A$<>"Y" Pop=Pop*(1+(1)/25)
:
NDB=NDB*(1C/100)
" Pop=Pop*(1+((1)(1))/10)
,
m:
n:
o GEN ELEC TIME
p%"How many years do you want the"
z"General Election in?"
A
A=((A))
A>GEC A=GEC
A=0 GEC>0 A=1
,"It has been arranged for ";A;" years."
GEC=A
tlf
U:
V:
W MANIFESTO AND ELECTION
X,"The General Election is due. You must"
b"prepare your manifesto."
l
v%"What are your promises for the"
"following:"
" Income Tax (%)"
A
MIntax=((A))/100
'" Weekly Unemployment Benefit ($)"
A
MUB=((A))*25
"" Public Services Budget ($)"
A
MSB=(A)
" Unemployment (people)"
A
MUnemp=((A))
" Weekly Pay ($)"
A
MPay=((A))*25
* Pop=Pop*(1+(MUBCosts2E3)*(1)/10)
*# Pop=Pop*(1+(MSBSB)*(1)/10)
4 Pop=Pop*(1MIntax/2)
> Pop=Pop*(1(MUnempUnemp+1E4)*(1)/10)
H$ Pop=Pop*(1(MPayPay)*(1)/5)
R Pop>1 Pop=1
\ Pop<0 Pop=0
f
p ""GENERAL ELECTIONRESULTS"
z
PL=1Pop: MP=Pop
"Republican Party ";
TZ]
"Nationalist Party ";
TZ]
"Official Loony Party ";
TZ]
"Democratic Party ";(Pop*5E7);" votes."
+"Communist Party ";(PL*5E7);" votes."
Pop>=MP "You won."
) Pop>=MP Pop<=.98 GEC=5: TXA
6 Pop>.98 "You may now form a oneparty state."
PopMP MP=P
." ";(P*5E7);" votes."
8
PL=PLP
B
I:
J:
K MANIFESTO DISPLAY
L("MANIFESTO OF THE DEMOCRATIC PARTY"
V
`+"We undertake to create the following"
j "situation in our country:"
t$"Income Tax ";(MIntax*100);"%"
~"Weekly Unemployment Benefit $";(UB/25)
7"Public Services Budget $";(2*MSB/1E6);" million"
#"Unemployed:less than ";MUnemp
=:
>:
? REVOLUTION
@
tlf
J"The workers have revolted because they"
T,"do not have enough money to buy food."
^
Tta
:
:
ECON. COLLAPSE
tlf
$"Because of your policies, the"
&"industries were sucked dry and ruined."
0
Tta
!*$*******************************
!+w From this point on, the code was missing from the PDF (and from the looks of it, from the original book as well).
!,u Lines 85008540 and 99009940 are very similar to the corresponding routines in other games from the same book.
! Lines 95009600 are specific to this game, and are only a wild guess at what the original code might have looked like. Many other ways of filling in this missing subroutine would be equally valid.
!1:
!2:
!3#******************************
!4!'"Do you want another game?"
!H A$
!R A$="Y"
!\
%:
%:
%5 MISSING SUBROUTINE TO ACCEPT OR REJECT PROPOSAL
% s=(1)
%& s>.5 Dbe
%0'"Your proposal has been accepted."
%:W"Productivity will rise by";(s*50);"%"'"in return for a similar increase in pay."
%D Prod=Prod*(1+s)
%N Pay=(Pay*(1+s))
%X
Dve
%b'"Your proposal has been rejected."
%l Pop=Pop*.9
%v
tlf
%
%:
&:
&:
& WAIT TILL KEY PRESSED
&
& "PRESS ANY KEY TO CONTINUE"
&
<>""
&
&
opWk!PɈyDBAzSmS>Bۀ=ay=>Bs7>