4Hƒ1^3 W3X3>F > ÿÿ~
ì3.¹°ˆ3É
- ¡ 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
| ƒ:ƒ:ƒ
†E ·:ƒ:ƒ"Congratulations! You've just been elected Premier of Setats"
A ƒ"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"
ÌA ƒ"forests, hunting, fishing, et. Half your land is farm land"
ÖA ƒ"which also has an excellent mineral content and may be sold"
à? ƒ"to foreign industry (strip mining) who import and support"
êB ƒ"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 „Q0$ ="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