4H븨 W332~>F > ~
33
- This tape contains three simple programs
0 Recoded from various books for the Microbee
by Colin Tringham
(- This tape is the property of S. M. U. G.
2= and any profits from its use are to be paid to the club.
d : 25,4:"T R I P L E 5"
n ::
x5 "THREE PROGRAMS IN ONE - SELECT PROGRAM REQUIRED"
:
1 " 1 KING CAN YOU RULE AN ISLAND?"
> " 2 ELEVATE HIT THE WARSHIP TO SAVE YOUR COUNTRY"
' " 3 GUESS! A SIMPLE GAME"
"now select your program"
Q0$=: Q0$="" 180
) A=((Q0$)): A<1 A>3 10,2: 180
A 300,2880,3640
9 "WOULD YOU LIKE TO TRY ANOTHER PROGRAM ON THIS TAPE?"
"TYPE Y FOR YES, N FOR NO"
Q0$=: Q0$="" 230
Q0$="y" Q0$="Y" 130
Q0$="N" Q0$="n" 280
"????????????????"
"PLEASE TYPE Y OR N": 230
: 30,6:"G O O D B Y E"
"
, :: 20,3:"K I N G "
6) 10,5:"Recoded for Microbee by C.T."
@ :
J6 "Do you need instructions (Y for Yes, N for No) ?"
T Z0$=: Z0$="" 340
^ N5=8
h Z0$="N" Z0$="n" 540
r Z0$="A" Z0$="a" 2660
| ::
咵 ::"Congratulations! You've just been elected Premier of Setats"
怉 "Detinu, a small Communist Island 30 by 70 miles long. Your"
? "job is to decide upon the Country's budget and distribute"
: "money to your Countrymen from the Communal Treasury."
< "The money system is Rallods, and each person needs 100"
? "Rallods per year to survive. Your Country's income comes"
> "from farm produce and tourists visiting your magnificent"
藺 "forests, hunting, fishing, et. Half your land is farm land"
諥 "which also has an excellent mineral content and may be sold"
? "to foreign industry (strip mining) who import and support"
闎 "thier own workers. Crops cost between 10 and 15 Rallods per"
"square mile to plant."
= "Your goal is to complete your "N5" year term of office."
/ "GOOD LUCK! Hit any key to continue."
Q0$=: Q0$="" 530
& A=(2000*)
0 A1=59000+(A)
: B1=((490+(20*)))
D
D1=2000
N W=(10*)+95:W1=(W)
X1 "You now have "A1" Rallods in the treasury."
b (B1)" Countrymen, ";
l V7=((*5)+10)
v C3=0 650
C3 " Foreign workers, "
"and "D1" sq. mles of land."
/ "This year industry will buy land for " W1;
" Rallods/sq. mile."
? "Land currently costs "V7 " Rallods per sq. mile to plant."
= "How many square miles do you wish to sell to industry"H1
H1<0 690
H1<=D1-1000 790
蠤 " Think again, you've only "D1-1000" sq. mls of farm land"
X<>0 690
9 " (Foreign Industry will only buy farm land because"
> " forest land is uneconomical to strip mine due to tree,"
" thicker top soil, etc.)"
X=1
690
D1=((D1-H1))
A1=A1+(H1*W1)
*@ "How many Rallods will you distribute to your Countrymen" I1
4 I1<0 810
> I1 " Think again, you've only "A1 " Rallods in the treasury"
\ 810
f J1=0
p K1=0
z A1=0
1240
A1=A1-I1
1 " How many sq. miles do you wish to plant" J1
J1<0 920
J1<=B1*2 970
< " Sorry, but each Countryman can only plant 2 sq. mls"
920
J1<=D1-1000 1000
> " Sorry, but you've only "D1-1000 "sq. mls of farm land"
920
U1=((J1*V7))
U10 1250
~ I1<>0 1250
J1<>0 1250
K1<>0 1250
僜"Goodbye."
癅 "(If you wish to continue this game at a later date, answer"
? "A (for Again) when asked if you want instructions, at the"
"restart of the program"
2860
1140
A1=A1-K1
A4=A1
I1/100-B1>=0 1310
I1/100<50 2440
2 (B1-I1/100) " countrymen died of starvation"
F0=*(2000-D1):F1=F0-(F0)
( K1<25 1340
2 F0=F1/(K1/25):F1=F0-(F0)
< F1<=0 1360
FD (F1) " Countrymen died of carbon monoxide and dust inhalation"
P (I1/100)-B1<0 1390
Z F1>0 1440
d 1530
n7 " You were forced to spend "(F1+(B1-(I1/100)))*9;
x" " Rallods on funeral expenses"
B5=F1+(B1-(I1/100))
- A0=(A1-((F1+(B1-(I1/100)))*9)):A1=A0-(A0)
1480
6 " You were forced to spend "(F1*9)" Rallods on";
" Funeral expenses"
B5=F1
A0=A1-(F1*9):A1=A0-(A0)
A1>=0 1520
; " Insufficient reserves to cover cost - land was sold"
D0=D1+A1/W1:D1=D0-(D0)
A1=0
B1=(B1-B5)
H1=0 1580
C1=((H1-*10))
C3>0 1570
C1=C1+20
"! (C1)" Workers entered and";
,D P0=((((I1/100-B1)/10)+(K1/25)-((2000-D1)/50)-(F1/2))):P1=P0-(P0)
6 ((P1)) " countrymen ";
@ P1<0 1630
J "came to ";
T 1640
^
"left ";
h "the island."
r B0=B1+P1:B1=B0-(B0)
| C3=((C3+C1))
' U0=(((2000-D1)*)+1.5)/2:U2=U0-(U0)
C3=0 1700
% " of "(J1) " sq. mls planted,";
J1>U2 1720
U2=J1
2 " You harvested" (J1-U2) " sq. mls of crops."
U2=0 1790
T1>=2 1790
" (Due to ";
T1=0 1780
"increased ";
6 "air and water pollution from foreign industry.)"
Q1=((J1-U2)*(W1/1.8))
$ " making "(Q1-(Q1))" rallods."
A0=A1+Q1:A1=A0-(A0)
V1=((((B1-P1)*22)+(500*)))
& V0=(2000-D1)*15:V2=V0-(V0)
07 "You made "(V1-V2)" Rallods from tourist trade.";
: V2=0 1940
D V1-V2>=V3 1940
N " decreased because "
X
G1=10*
b G1<=2 1970
l G1<=4 1990
v G1<=6 2010
G1<=8 2030
G1<=10 2050
V3=A1+V3
A0=A1+(V1-V2):A1=A0-(A0)
2070
; "Fish population has dwindled due to water pollution."
1940
1 " pollution is killing game bird population."
1940
9 "Mineral baths are being ruined by water pollution."
1940
3 "Unpleasant smog is discouraging sun bathers."
1940
2 "Hotels are looking shabby due to smog grit."
1940
B5>200 2290
B1<343 2440
* A4/100=>5 2480
4 C3>B1 2130
> N5-1=X5 2580
H 2830
\< "The number of foreign workers has exceeded the number"
f9 "of countrymen. As a majority they have revolted and"
p "taken over the Country."
z *1<=0.5 2210
9 "You have been thrown out of office and you are now"
"Residing in prison."
2240
" " You have been assassinated."
0 "Do you want to try again? (type Y for yes)"
Z0$=: Z0$="" 2250
# Z0$="y" Z0$="Y" 550 2860
. (B5) " Countrymen died in one year!!!!!"
4 "Due to extreme mismanagement you have not only"
6 "been impeached and thrown out of office, but you"
M6=*10
M6<=3 2360
$ M6<=6 2380
. 2400
8( "Also had your left eye gouged out."
B 2240
L- "have also gained a very bad reputation."
V 2240
`- " have also been declared National Fink."
j 2240
9 "over one third of the population has died since you"
5 "were elected to office. The people (remaining)"
" hate your guts."
2170
B5-F1<2 2100
7 "money was left over in the Treasury which you did"
: "not spend. As a result some of your Countrymen died"
8 "of starvation. The public is enraged and you have"
5 "been forced to either resign or commit suicide."
" The choice is yours."
= "If you choose the latter, Please turn off your Computor"
"before proceeding."
2240
6 I=1 5000: I:: 10,5:"CONGRATULATIONS!!!!!!!"
(9 "You have successfully complete your "N5" year term"
2; "of office. You were, of course, extremely lucky, but"
<< "nevertheless, it's quite an achievement. Goodbye and "
F7 "good luck - You'll probably need it if you're the"
P "type that plays this game."
Z 2240
d? "How many years had you been in office when interuppted?"X5
n X5<0 2240
x X5<8 2710
8 " Come on, your term if office is only "N5" years."
2660
/ "How much did you have in the treasury";A1
A1<0 2240
"How many Countrymen";B1
! "How many foreign workers";C3
C3<0 2240
" "How many sq. mls of land";D1
D1<0 2240
D1>2000 2800
D1>1000 590
9 "Come on, you started with 1000 sq. mls of farm land"
) " and 1000 sq. mls of Forest land."
2760
X5=X5+1
B5=0
" 590
, 210
6 B5-F1<2 2100
@ :: 20,4:"E L E V A T E"
T# 僜"Recoded for Microbee by C.T."
^* 僜"WANT A DESCRIPTION (Y OR N)": 257,1
h Q0$=: Q0$="" 2920
r 凲0$ ="N" 3070
|! Q0$="Y" 2960 10: 2910
9 : 1,3:"This game simulates the effect of changing "
! "the elevation of a cannon."
< "You are on duty with a Sydney Coastal Defense Battery."
3 "You're trying to sink an approaching warship."
( "A hit within 100 yards will do it."
"For more range: ELEVATE."
, "If you overshoot: LOWER the elevation."
"ENTRIES ARE IN DEGREES "
" . . . . .EXAMPLE: 45.3"
( "OK? Hit any key to continue"
Q0$=: Q0$="" 3060
"Distance to the Ship is"
R1 =43000-3000*(*1)
" "R1" YARDS"
& S=0
0
: "Elevation";
D E1
N
S = S+1
X E1<88 3400
b E1>92 3280
l' "YOU SHOT NEARLY STRAIGHT UP . . ."
v" " . . .LET'S GET OUT OF HERE!"
I = 1 10
J = 1 100
J
(15) "."
I
(13)"BOOM!"
3130
& "That should make you a hero - - "
& "That round may hit CAMPBELLTOWN!"
C=1
3260
(3) "NEWS FLASH!"
"CAMPBELLTOWN COW HIT"
"BY MYSTERY MISSILE"
C=0
*
4
"ILLEGAL"
> 3260
H C<>1 3420
R 3320
\ E1<1 3380
f E2 =2*E1/57.2958
p J1 = 46500*(E2)
z N1 =R1-J1
D1=(N1)
(D1) < 100 3500
R1-J1<0 3600
R1-J1>0 3620
"GOT 'EM";
S<8 3530
" FINALLY! !"
S " Rounds Fired"
僜"ANOTHER GAME (Y OR N)"
Q0$=: Q0$="" 3560
Q0$ = "Y" Q0$="y" 3070
210
"SHORT BY" (D1)" YARDS"
3130
$ "OVER BY "(D1)" YARDS"
. 3130
8 : guess
B :僜\" G U E S S "
L4 僜"A simple number guessing game. You versus Me!"
V1 "Enter your guess by pressing the RETURN key"
`1 僜"I'm thinking of a number between 1 and 100"
a T=0:N=(*100)+1
t4 T=7 "Try harder - you should have it by now"
~ "What is your guess?"G
T=T+1
G