�          ASTERMENE
!� (c) Ross Little August 1995
�            EUG21
( 
2�6
<wp=�
F
�creds
P�
Z  �start
d  �vars
n  �setup
x  �
�
    �info
�	    �
�      escape=�
�      �menu
�3      � escape �escape:� rest � rest:� rest:� �
�       � escape � �rest �tV@
�      � rest=� ��pay=�
�    � rest=� � �end=�
�	  � �
� 
�
� �con
�� 23,1,1,0;0;0;0;
��

 

� �coff

� 23,1,0;0;0;0;

"�

, 

6� �winon

@� 28,2,23,39,14

J�

T 

^
� �winoff

h� 26

r�

| 

�� �clear(end)

�� ��,�) �end-�," ");

��

� 

�
� �loadhi

�file=� "hiscore"

� � file=0 result=0 � result=1

�%� wp=� � file=0 � high=� � high=�

�R� file=0 � default=1 � 5:hi(default)=1000:cnam$(default)="AMC Ltd":� default:�

�� read=1 � 5

� �# file,cnam$(read),hi(read)

�temp$="":space=�

�� copy=11 � 1 �-1
char$=�cnam$(read),copy,1)
$� char$=�(32) � space=� � � copy
'� copy=0 � cnam$(read)=temp$:� read
&+space=�:temp2$=temp$:temp$=char$+temp2$
0
� copy
:cnam$(read)=temp$
D
� read
N�# file
X�
b 
l� �high
v�loadhi
��� result=0 � wp=� �create � � result=0 � wp=� �2,18)"Sorry - No high score table exists";�2,20)"and Write Protection is active!":dummy=�:�2,18);:�clear(39):�2,20);:�clear(39):�
�� 28,0,22,39,7,12
�� �16,0) "ASTERMENE"
�� �12,1) "HIGH SCORE TABLE"
�count=1
�� display=4 � 13 � 2
�� �8,display);cnam$(count)
�:� �8+�(cnam$(count)),display);�17-�(cnam$(count)),".")
�!� �25,display);"Cr";hi(count)
�count=count+1
�
� display
�dummy=�
��:�options
�
 
� �options
 � 26
*"� �12,7) "(G)enerate New Seed"
4"� �12,9) "(R)ead Instructions"
> � �12,11) "(S)tart New Game"
H� �12,13) "(L)oad Game"
R"� �12,15) "(V)iew High Scores"
\�
f 
p
� �create
zfile=� "hiscore"
�� save=1 � 5
��# file,"AMC Ltd",10000
�
� save
��# file
��
� 
�� �creds
�1� � �:�" at line ";�:�"FX4":�"FX200,0":�con:�
�file=�:�"FX200,1"
�� 23,1,0;0;0;0;:hi=�
�� hi(5),cnam$(5):rest=�
��"FX4,2":�"FX212,0"
��"FX213,120":�"FX214,2"
� �13,2) "ASTERMENE v1.0"
3� �2,4) "...THE BUSINESS GAME OF THE FUTURE..."
� �13,8) "Developed from"
$&� �8,9) "Space Mines by D.Isaaman"
.� �14,10) "and  J.Tyler"
8)� �7,11) "(c) Usborne Publishing Ltd"
B� �13,15) "v1.0 (c) MCMXCV"
L� �15,16) "by R.Little"
V#� �11,17) "All Rights Reserved"
`"� �11,21) "Distributed by EUG"
j$� �10,22) "Issue 21 August 1995"
t�loadhi
~
rest=�
�dummy=�
�
load=�
��
� 
�� �start
��26:�:seed=�
�� �16,1) "ASTERMENE"
�� �16,2) "~~~~~~~~~"
�� �2,4) "Auto Seed: ";seed
�5� �2,23) "...THE BUSINESS GAME OF THE FUTURE...";
�dummy=�(-seed)
�� rest=� � �high
�options

�
posit=�"GgRrSsLlVv",� �)
� posit>0 � posit<3 �seed
(� posit>2 � posit<5 �inst
2� posit>4 � posit<7 �name
<� posit>6 � posit<9 �load
F� posit>8 � posit<11 �high
P� posit=0 �7
Z� posit>4 � posit<9
d&� �comp$,1)=� 32 � comp$="AMC Ltd"
n�19,7,0;0;:rest=�
x�
� 
�� �name
�+� �0,18) "What is your company's name?"
�� �0,20)"=>";:�clear(39)
�
� �2,20);
�comp$=""
�0?&900=0:?&901=&A:?&902=&B:?&903=32:?&904=126
�A%=0:X%=0:Y%=&9:� &FFF1
�	ret=�
�� transfer=&A00 � &A0A
�� ?transfer=13 ret=�
�6� ret=� comp$=comp$+�(?transfer) � comp$=comp$+�32
�� transfer
�
 
� �seed
"/� �0,18) "What seed number would you like?"
,�
6� �0,20) "=>";
@seed$=""
J.?&900=0:?&901=&A:?&902=6:?&903=48:?&904=57
TA%=0:X%=0:Y%=&9:� &FFF1
^	ret=�
h� transfer=&A00 � &A05
r� ?transfer=13 ret=�
|$� ret=� seed$=seed$+�(?transfer)
�� transfer
�&� seed$="" � �2,20);:�clear(39):�7
�� �(seed$)>0
�seed=�(seed$)
�dummy=�(-seed)
��13,4);seed;:�clear(39)
��0,18);:�clear(39)
��0,20);:�clear(39)
��
� 
�� �inst
�file=�("INSTR")
�X� file=0 � �2,19) "Instructions file is non-existent!":dummy=�:�0,19);:�clear(39):�
�28,3,21,37,6,14
�
�
&char=�# file
0� char>31 � �(char);
:� char=13 �
D� char=26 � " ";
N
� �# file
X�# file
b*FX15,1
ldummy=�
v�
��options
��
� 
�� �var(min,max)
�� num,num$
��
�� "=>";
�num$="":num=0
��
�	key=�
�^� key>47 � key<58 � �(num$)<�(�(max)) num$=num$+�(key):�;key-48; � � key<>13 � key<>127 �7
�O� key=127 � num$=�num$,�(num$)-1):�2,�);num$;:�clear(39):�2+�(num$),�-1);
�� key=13
�
num=�(num$)
� num=0 � �2,�-1) "0"
 � num>=min � num<=max =num
*�7
4� �2,�-1) ĩ(�(num))," ")
>� �0,�-1);
H
� �t|G
R=num
\ 
f� �vars
p� load=� � �
z&closed=0:store=0:satis=1:year=2500
� mines=�(3)+5:people=�(60)+40
�money=�((65)+20)*people
�fbuy=100*people:empl=0
�prod=�(40)+80
�sal=10*people
��
� 
�� �setup
��:glut=0
�� �16,0) "ASTERMENE"
�� �16,1) "~~~~~~~~~"
�"� �2,3) "Name:";�20,3) "Year:"
�&� �2,4) "Workers:";�20,4) "Mines:"
	/� �2,5) "Money: Cr";�20,5) "Satis. Factor:"
	� �2,7) "Mine Production:"
	� �2,8) "Ore in Store:"
	$&� �2,10) "Astermene Ore Price: Cr"
	.� �2,11) "Mine Price: Cr"
	83� �2,12) "____________________________________"
	B5� �2,24) "...THE BUSINESS GAME OF THE FUTURE...";
	L�
	V 
	`� �info
	jstore=store+prod*mines
	t"� load=� � mprice=�(2000)+2000
	~$� glut=� � load=� oprice=�(12)+7
	�money=�(money):load=�
	��winoff
	��8,3);comp$
	�"�26,3);year;" AD";:�clear(39)
	��11,4);people;:�clear(19)
	�.�27,4);mines;"/";mines+closed;:�clear(39)
	��11,5);money;:�clear(19)
	�9�35,5)��(satis),3):�clear(39):� satis=1 �35,5)"1.0"
	�)�19,7);prod;" tons/mine";:�clear(39)
	�%�16,8);store;" tons";:�clear(39)
	�&�25,10);oprice;"/ton";:�clear(39)
	�'�16,11);mprice;"/mine";:�clear(39)

�winon

�
 
� �menu
(�:�
2� �12,0)"(C)omplete Stat's"
<� �12,2) "(B)uying"
F� �12,4) "(S)elling"
P� �12,6) "(W)orkforce"
Z� �12,8) "(E)nd Turn";
d�19,1,7;0;:win=�
n�
xreply=�
� posit=�"CcBbSsWwEe",� reply)
�� posit=0 � reply<>13 �7
�� reply=13 escape=�
�� posit>0 � reply=13
�� posit>0 � posit<3 �stats
�� posit>2 � posit<5 �buying
� � posit>4 � posit<7 �selling
�� posit>6 � posit<9 �work
�� posit>8 � reply=13
��
� 
�
� �escape
�� response,posit
�
�
� "Seed Number: ";seed
"� "Company Name: ";comp$
,� "Sale Value: Cr";�value'
6� �12) "(S)ell Company"'
@� �12) "Save (G)ame"'
J� �12) "(Q)uit Company"
T�
^response=�
hposit=�"SsGgQq",�response)
r� posit>0 � posit<3 �sell
|� posit>2 � posit<5 �save
�� posit>4 � posit<7 �quit
�� posit=0 � response<>13 �7
�$� posit>0 � response=13 � rest=�
�� response=13 � rest=�
��
� 
�� �stats
��
�� "WORKERS"
�$�'"Prospective Employees: ";empl
�)� "Food Budget (overall): Cr";�(fbuy)
�-� "Food Budget (each): Cr";�(fbuy/people)
�*� "Addit. Salary (overall): Cr";�(sal)
.� "Addit. Salary (each): Cr";�(sal/people)
.� "Total Wage Expenditure: Cr";�(fbuy+sal)
;� "Amount of Current Free Cash: Cr";�(money-(fbuy+sal))
&dummy=�
0�
: 
D� �selling
N�
X� "ORE SELLING"
b�'"How much ore to sell?"
losell=�var(0,store)
v � ��(�(osell))+3,�-1) "tons"
�store=store-osell
�money=money+osell*oprice
�pos=�:vpos=�
��winoff
�� �11,5);money;
��clear(19)
�� �16,8);store;" tons";
��clear(39)
�
�winon
��pos,vpos);
��
�� "MINE SELLING"
��'"How many mines to sell?"

msell=�var(0,mines-1)

mines=mines-msell

money=money+msell*mprice

 pos=�:vpos=�

*�winoff

4� �11,5);money;

>�clear(19)

H$� �27,4);mines;"/";mines+closed;

R�clear(39)

\
�winon

f�pos,vpos);

p �'"How many mines to close?"

zclosing=�var(0,mines-1)

�mines=mines-closing

�closed=closed+closing

�pos=�:vpos=�

��winoff

�$� �27,4);mines;"/";mines+closed;

��clear(39)

�
�winon

��

� 

�
� �buying

��

�� "ORE BUYING"

��'"How much ore to buy?"
obuy=�var(0,money �oprice)
� ��(�(obuy))+3,�-1) "tons"
store=store+obuy
$money=money-obuy*oprice
.pos=�:vpos=�
8�winoff
B� �11,5);money;
L�clear(19)
V� �16,8);store;" tons";
`�clear(39)
j
�winon
t� �pos,vpos);
~�
�� "MINE BUYING"'
�"�"How many more mines to buy?"
�mbuy=�var(0,money �mprice)
�mines=mines+mbuy
�money=money-mbuy*mprice
�pos=�:vpos=�
��winoff
�� �11,5);money;
��clear(19)
�$� �27,4);mines;"/";mines+closed;
��clear(39)
�
�winon
� �pos,vpos);

!�'"How many mines to reopen?"
opening=�var(0,closed)
mines=mines+opening
(closed=closed-opening
2pos=�:vpos=�
<�winoff
F$� �27,4);mines;"/";mines+closed;
P�clear(39)
Z
�winon
d�
n 
x� �work
��
�� "YEARLY PAYOUT SELECTION"
�"�'"How much to spend on food?"
�ftemp=�var(0,people*500)
�,� ftemp=0 � �2,�-1);�(fbuy) � fbuy=ftemp
�!� ��(�(fbuy))+3,�-1)"credits"
�/�'"Money left after food: Cr";�(money-fbuy)
�1� "Food budget per person: Cr";�(fbuy/people)
�
dummy=�:�
�$� "How much to spend on salary?"
�stemp=�var(0,people*50)
�� stemp>0 sal=stemp
�� stemp=0 � �2,�-1);�(sal)
 � ��(�(sal))+3,�-1)"credits"
0�'"Money left after salary: Cr";�(money-sal)
+� "Salary per person: Cr";�(sal/people)
"
dummy=�:�
,� "EMPLOYMENT SECTION"
6%�'"Recruit how many new workers?"
@� "Max: ";empl
Jrec=�var(0,empl)
Tpeople=people+rec
^empl=empl-rec
h#fbuy=(fbuy/(people-rec))*people
r!sal=(sal/(people-rec))*people
|pos=�:vpos=�
��winoff
�� �11,4);people;:�clear(19)
�
�winon
�� �pos,vpos);
��
�(� "Make how many workers redundant?"
�red=�var(0,people-1)
�people=people-red
�empl=empl+red
�#fbuy=(fbuy/(people+red))*people
�!sal=(sal/(people+red))*people
�pos=�:vpos=�
��winoff
� �11,4);people;:�clear(19)

�winon
� �pos,vpos);
&�
0 
:
� �pay
D� sal+fbuy<=money � =�
N�
X2� �0,2) "YOU DON'T HAVE ENOUGH MONEY TO COVER"
b.� �2,3) "THE SALARIES AND THE FOOD BUDGET"
l � �9,5) "PLEASE RE-EVALUATE"
v� �11,6) "AND TRY AGAIN"
��7
�dummy=�
�=�
� 
�
� �end
�glut=�:osat=satis
�money=money-(sal+fbuy)
�7satis=satis-((100-(fbuy/people))/100)+((�(3)-2)/10)
�%� sal<10 � �(1)>.6 satis=satis-.1
�empl=((satis-1)*�(100))
�#empl=�(empl+(�(empl/2)-empl/4))
�� empl<0 empl=0
�J� satis<1 res=�((1-satis)*100):res=res+�(10)-5:res=res+�(10)-5 � res=0
+� satis>1 � satis<2 � �(1)>.4 res=�(10)
� res>people res=people
#� satis<.3 � �(1)>.4 �revolt:=�
 � satis>1.1 prod=prod+�(20)
*� satis>3.1 prod=prod+�(20)
4� satis<.9 prod=prod-�(20)
>� satis<.5 prod=prod-�(20)
H� prod<0 prod=0
R,� people/mines<10 � �(1)>.5 �takeover:=�
\� year=2540 �win:=�
fopeople=people
p� �(1)<.02 �leak
z/� prod>150+(�(20)-10) �glut:glut=� � glut=�
��update
�year=year+1
�=�
� 
�� �leak
��
�� "END OF YEAR MESSAGE"
��'"Radioactive leak!"
�people=�(people/2)
�+people=�(people+(�(people/2)-people/4))
�#�'"Casualties: ";opeople-people
��'"People left: ";people
�fbuy=(fbuy/opeople)*people
sal=(sal/opeople)*people
satis=satis-.1
dummy=�
$�
. 
8� �glut
B�
L� "END OF YEAR MESSAGE"
V�'"Market glut!"
`oprice=�(oprice/2)
j+oprice=�(oprice+(�(oprice/2)-oprice/4))
tprod=�(prod/2)
~#prod=�(prod+(�(prod/2)-prod/4))
� �'"Price drops to Cr";oprice
�,� "Production cut to ";prod;" tons/mine"
�dummy=�
��
� 
�
� �update
��
�� "END OF YEAR UPDATE"
�#�'"Number of workers: ";opeople
�%� res>1 �;res;" workers resigned"
�!� res=1 � "1 worker resigned"
�#� res=0 � "No workers resigned"
4� empl>1 �;empl;" people request work at ";comp$

2� empl=1 � "1 person requests a job at ";comp$
,� empl=0 � "No people ask for vacancies"
"� �0,5) "Satisfaction factor";
(� satis>osat � " up to ";
2 � satis=osat � " stays at ";
< � satis<osat � " falls to ";
F� ��(satis),3)
Ppeople=people-res
Z#fbuy=(fbuy/(people+res))*people
d!sal=(sal/(people+res))*people
n3� "Workers carried to year ";year+1;": ";people
x,� empl=0 � "Workforce cannot be boosted"
�9� empl>0 � "Workforce can be boosted to ";people+empl
�dummy=�
��
� 
�
� �revolt
��
�� "END OF YEAR MESSAGE"
� �'"There has been a revolt!"
�(� "The government has been informed"
�*� "of poor living standards, and have"
�#� "taken ownership of ";comp$;"
��'"BAD LUCK!"
�dummy=�
�
 
� �takeover
"�
,� "END OF YEAR MESSAGE"
6#�'"Due to excessive labour the"
@*� "government has deemed it necessary"
J"�"to take ownership of ";comp$
T�'"BAD LUCK!"
^dummy=�
h�
r 
|
� �win
��
�*� �4,3) "Excellent - You've completed"
�� �14,5) "the game!"
�dummy=�
�win=�:�sell
��
� 
�� �save
��
�;� wp=� � �0,4) "Sorry - Write Protect Active":dummy=�:�
�	�:�:�
��
�response=0
� �0,0) "SAVE GAME: ";comp$
�'"=>"file$
� �(file$)<11
&5� �(file$)=0 � �2,�-1) "default   ":file$="sgame"
0file=� file$
:A�file>0�'"File Exists:"'"Continue? (Y/N)":response=�"YyNn",�)
D� response<3 � file=0
N
*CLOSE
Xfile=� file$
b�# file,comp$,year
l�# file,closed,store
v�# file,satis,mines
��# file,people,money
��# file,fbuy,empl
��# file,prod,glut
��# file,sal,store
��# file,mprice,oprice
��# file
��
� 
�� �load
�� 28,0,21,38,18
��:�
��
�file$="":*CLOSE
� �0,0) "Load which game?"
)� �0,2) "=>";:�clear(39):� �2,2)file$
0� �(file$)=0 � �2,2) "default":file$="sgame"
 3� �(file$)>10 � �2,2);:�clear(39):� �(file$)<10
*file=� file$
4� file>0
>f� �#file<67 � �0,2) "=>ERROR! File '";file$;"' too short!";:�clear(39):dummy=�:� �2,2);:�clear(39)
H� �#file>66
R�# file,ocomp$,year
\�# file,closed,store
f�# file,satis,mines
p�# file,people,money
z�# file,fbuy,empl
��# file,prod,glut
��# file,sal,store
��# file,mprice,oprice
��# file
�
load=�
�� 26
�	�name
�!� �comp$,1)=� 32 comp$=ocomp$
��
� 
�� �value
�
cash=0
�%cash=cash+((mines+closed)*mprice)
cash=cash+(store*oprice)
cash=cash+(prod*75)
cash=cash+(satis*100)
$cash=cash+(people*20)
.cash=cash+money
8=�(cash)
B 
L� �sell
Vresponse=89
`� � win �double
j$� response<>89 � response<>121 �
t�
~cash=�value:rest=�
�"� �8,3) "Your company is sold"
�/� �12-(�(�(cash))/2),5)"It fetches Cr";cash
�dummy=�
��
�� wp=� �apology:�
�i� cash<hi(5) � �4,3) "Unfortunately you do not win";�3,5);"a place in the high score table":dummy=�:�
�/� �2,3) "Congratulations - you win a place"
�%� �7,5) "in the high score table"
�	�sort
�
�newtable
��
� 

� �double

� �12,3) "REALLY SELL?"
� �12,5) "Press Y or N"
response=�
(�
2 
<� �apology
F,� �3,3) "Sorry but your score cannot be"
P(� �5,5) "saved; Write Protect is on"
Zdummy=�
d�
n 
x� �sort
�hi(5)=cash:cnam$(5)=comp$
�� swap=5 � 2 �-1
�!� hi(swap)<=hi(swap-1) � swap
�� swap=1 �
�#temp=hi(swap):temp$=cnam$(swap)
�hi(swap)=hi(swap-1)
�cnam$(swap)=cnam$(swap-1)
�hi(swap-1)=temp
�cnam$(swap-1)=temp$
�
� swap
��
� 
�� �newtable

*CLOSE
file=� "hiscore"
� save=1 � 5
" �# file,cnam$(save),hi(save)
,
� save
6�# file
@�
J 
T� �quit
^�
h� �12,3) "REALLY QUIT?"
r� �12,5) "Press Y or N"
|response=�
�'� response=89 � response=121 rest=�
��
�

00000000  0d 00 0a 18 f4 20 20 20  20 20 20 20 20 20 20 41  |.....          A|
00000010  53 54 45 52 4d 45 4e 45  0d 00 14 21 f4 20 28 63  |STERMENE...!. (c|
00000020  29 20 52 6f 73 73 20 4c  69 74 74 6c 65 20 41 75  |) Ross Little Au|
00000030  67 75 73 74 20 31 39 39  35 0d 00 1e 16 f4 20 20  |gust 1995.....  |
00000040  20 20 20 20 20 20 20 20  20 20 45 55 47 32 31 0d  |          EUG21.|
00000050  00 28 05 20 0d 00 32 06  eb 36 0d 00 3c 08 77 70  |.(. ..2..6..<.wp|
00000060  3d b9 0d 00 46 0a f2 63  72 65 64 73 0d 00 50 05  |=...F..creds..P.|
00000070  f5 0d 00 5a 0c 20 20 f2  73 74 61 72 74 0d 00 64  |...Z.  .start..d|
00000080  0b 20 20 f2 76 61 72 73  0d 00 6e 0c 20 20 f2 73  |.  .vars..n.  .s|
00000090  65 74 75 70 0d 00 78 07  20 20 f5 0d 00 82 0d 20  |etup..x.  ..... |
000000a0  20 20 20 f2 69 6e 66 6f  0d 00 8c 09 20 20 20 20  |   .info....    |
000000b0  f5 0d 00 96 12 20 20 20  20 20 20 65 73 63 61 70  |.....      escap|
000000c0  65 3d a3 0d 00 a0 0f 20  20 20 20 20 20 f2 6d 65  |e=.....      .me|
000000d0  6e 75 0d 00 aa 33 20 20  20 20 20 20 e7 20 65 73  |nu...3      . es|
000000e0  63 61 70 65 20 f2 65 73  63 61 70 65 3a e7 20 72  |cape .escape:. r|
000000f0  65 73 74 20 fd 20 72 65  73 74 3a fd 20 72 65 73  |est . rest:. res|
00000100  74 3a fd 20 a3 0d 00 b4  20 20 20 20 20 20 20 e7  |t:. ....       .|
00000110  20 65 73 63 61 70 65 20  e7 20 ac 72 65 73 74 20  | escape . .rest |
00000120  e5 8d 74 56 40 0d 00 be  1a 20 20 20 20 20 20 fd  |..tV@....      .|
00000130  20 72 65 73 74 3d b9 20  84 a4 70 61 79 3d b9 0d  | rest=. ..pay=..|
00000140  00 c8 19 20 20 20 20 fd  20 72 65 73 74 3d b9 20  |...    . rest=. |
00000150  84 20 a4 65 6e 64 3d b9  0d 00 d2 09 20 20 fd 20  |. .end=.....  . |
00000160  a3 0d 00 dc 05 20 0d 00  e6 0a dd 20 f2 63 6f 6e  |..... ..... .con|
00000170  0d 00 f0 15 ef 20 32 33  2c 31 2c 31 2c 30 3b 30  |..... 23,1,1,0;0|
00000180  3b 30 3b 30 3b 0d 00 fa  05 e1 0d 01 04 05 20 0d  |;0;0;......... .|
00000190  01 0e 0b dd 20 f2 63 6f  66 66 0d 01 18 13 ef 20  |.... .coff..... |
000001a0  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 0d 01 22  |23,1,0;0;0;0;.."|
000001b0  05 e1 0d 01 2c 05 20 0d  01 36 0c dd 20 f2 77 69  |....,. ..6.. .wi|
000001c0  6e 6f 6e 0d 01 40 13 ef  20 32 38 2c 32 2c 32 33  |non..@.. 28,2,23|
000001d0  2c 33 39 2c 31 34 0d 01  4a 05 e1 0d 01 54 05 20  |,39,14..J....T. |
000001e0  0d 01 5e 0d dd 20 f2 77  69 6e 6f 66 66 0d 01 68  |..^.. .winoff..h|
000001f0  08 ef 20 32 36 0d 01 72  05 e1 0d 01 7c 05 20 0d  |.. 26..r....|. .|
00000200  01 86 11 dd 20 f2 63 6c  65 61 72 28 65 6e 64 29  |.... .clear(end)|
00000210  0d 01 90 18 f1 20 8a b1  2c bc 29 20 c4 65 6e 64  |..... ..,.) .end|
00000220  2d b1 2c 22 20 22 29 3b  0d 01 9a 05 e1 0d 01 a4  |-.," ");........|
00000230  05 20 0d 01 ae 0d dd 20  f2 6c 6f 61 64 68 69 0d  |. ..... .loadhi.|
00000240  01 b8 14 66 69 6c 65 3d  8e 20 22 68 69 73 63 6f  |...file=. "hisco|
00000250  72 65 22 0d 01 c2 20 e7  20 66 69 6c 65 3d 30 20  |re"... . file=0 |
00000260  72 65 73 75 6c 74 3d 30  20 8b 20 72 65 73 75 6c  |result=0 . resul|
00000270  74 3d 31 0d 01 cc 25 e7  20 77 70 3d b9 20 80 20  |t=1...%. wp=. . |
00000280  66 69 6c 65 3d 30 20 8c  20 68 69 67 68 3d a3 20  |file=0 . high=. |
00000290  8b 20 68 69 67 68 3d b9  0d 01 d6 52 e7 20 66 69  |. high=....R. fi|
000002a0  6c 65 3d 30 20 e3 20 64  65 66 61 75 6c 74 3d 31  |le=0 . default=1|
000002b0  20 b8 20 35 3a 68 69 28  64 65 66 61 75 6c 74 29  | . 5:hi(default)|
000002c0  3d 31 30 30 30 3a 63 6e  61 6d 24 28 64 65 66 61  |=1000:cnam$(defa|
000002d0  75 6c 74 29 3d 22 41 4d  43 20 4c 74 64 22 3a ed  |ult)="AMC Ltd":.|
000002e0  20 64 65 66 61 75 6c 74  3a e1 0d 01 e0 10 e3 20  | default:...... |
000002f0  72 65 61 64 3d 31 20 b8  20 35 0d 01 ea 20 e8 23  |read=1 . 5... .#|
00000300  20 66 69 6c 65 2c 63 6e  61 6d 24 28 72 65 61 64  | file,cnam$(read|
00000310  29 2c 68 69 28 72 65 61  64 29 0d 01 f4 14 74 65  |),hi(read)....te|
00000320  6d 70 24 3d 22 22 3a 73  70 61 63 65 3d b9 0d 01  |mp$="":space=...|
00000330  fe 15 e3 20 63 6f 70 79  3d 31 31 20 b8 20 31 20  |... copy=11 . 1 |
00000340  88 2d 31 0d 02 08 1e 63  68 61 72 24 3d c1 63 6e  |.-1....char$=.cn|
00000350  61 6d 24 28 72 65 61 64  29 2c 63 6f 70 79 2c 31  |am$(read),copy,1|
00000360  29 0d 02 12 24 e7 20 63  68 61 72 24 3d bd 28 33  |)...$. char$=.(3|
00000370  32 29 20 80 20 73 70 61  63 65 3d b9 20 8c 20 ed  |2) . space=. . .|
00000380  20 63 6f 70 79 0d 02 1c  27 e7 20 63 6f 70 79 3d  | copy...'. copy=|
00000390  30 20 8c 20 63 6e 61 6d  24 28 72 65 61 64 29 3d  |0 . cnam$(read)=|
000003a0  74 65 6d 70 24 3a ed 20  72 65 61 64 0d 02 26 2b  |temp$:. read..&+|
000003b0  73 70 61 63 65 3d a3 3a  74 65 6d 70 32 24 3d 74  |space=.:temp2$=t|
000003c0  65 6d 70 24 3a 74 65 6d  70 24 3d 63 68 61 72 24  |emp$:temp$=char$|
000003d0  2b 74 65 6d 70 32 24 0d  02 30 0a ed 20 63 6f 70  |+temp2$..0.. cop|
000003e0  79 0d 02 3a 15 63 6e 61  6d 24 28 72 65 61 64 29  |y..:.cnam$(read)|
000003f0  3d 74 65 6d 70 24 0d 02  44 0a ed 20 72 65 61 64  |=temp$..D.. read|
00000400  0d 02 4e 0b d9 23 20 66  69 6c 65 0d 02 58 05 e1  |..N..# file..X..|
00000410  0d 02 62 05 20 0d 02 6c  0b dd 20 f2 68 69 67 68  |..b. ..l.. .high|
00000420  0d 02 76 0b f2 6c 6f 61  64 68 69 0d 02 80 b7 e7  |..v..loadhi.....|
00000430  20 72 65 73 75 6c 74 3d  30 20 80 20 77 70 3d a3  | result=0 . wp=.|
00000440  20 f2 63 72 65 61 74 65  20 8b 20 e7 20 72 65 73  | .create . . res|
00000450  75 6c 74 3d 30 20 80 20  77 70 3d b9 20 f1 8a 32  |ult=0 . wp=. ..2|
00000460  2c 31 38 29 22 53 6f 72  72 79 20 2d 20 4e 6f 20  |,18)"Sorry - No |
00000470  68 69 67 68 20 73 63 6f  72 65 20 74 61 62 6c 65  |high score table|
00000480  20 65 78 69 73 74 73 22  3b 8a 32 2c 32 30 29 22  | exists";.2,20)"|
00000490  61 6e 64 20 57 72 69 74  65 20 50 72 6f 74 65 63  |and Write Protec|
000004a0  74 69 6f 6e 20 69 73 20  61 63 74 69 76 65 21 22  |tion is active!"|
000004b0  3a 64 75 6d 6d 79 3d a5  3a f1 8a 32 2c 31 38 29  |:dummy=.:..2,18)|
000004c0  3b 3a f2 63 6c 65 61 72  28 33 39 29 3a f1 8a 32  |;:.clear(39):..2|
000004d0  2c 32 30 29 3b 3a f2 63  6c 65 61 72 28 33 39 29  |,20);:.clear(39)|
000004e0  3a e1 0d 02 8a 15 ef 20  32 38 2c 30 2c 32 32 2c  |:...... 28,0,22,|
000004f0  33 39 2c 37 2c 31 32 0d  02 94 18 f1 20 8a 31 36  |39,7,12..... .16|
00000500  2c 30 29 20 22 41 53 54  45 52 4d 45 4e 45 22 0d  |,0) "ASTERMENE".|
00000510  02 9e 1f f1 20 8a 31 32  2c 31 29 20 22 48 49 47  |.... .12,1) "HIG|
00000520  48 20 53 43 4f 52 45 20  54 41 42 4c 45 22 0d 02  |H SCORE TABLE"..|
00000530  a8 0b 63 6f 75 6e 74 3d  31 0d 02 b2 18 e3 20 64  |..count=1..... d|
00000540  69 73 70 6c 61 79 3d 34  20 b8 20 31 33 20 88 20  |isplay=4 . 13 . |
00000550  32 0d 02 bc 1e f1 20 8a  38 2c 64 69 73 70 6c 61  |2..... .8,displa|
00000560  79 29 3b 63 6e 61 6d 24  28 63 6f 75 6e 74 29 0d  |y);cnam$(count).|
00000570  02 c6 3a f1 20 8a 38 2b  a9 28 63 6e 61 6d 24 28  |..:. .8+.(cnam$(|
00000580  63 6f 75 6e 74 29 29 2c  64 69 73 70 6c 61 79 29  |count)),display)|
00000590  3b c4 31 37 2d a9 28 63  6e 61 6d 24 28 63 6f 75  |;.17-.(cnam$(cou|
000005a0  6e 74 29 29 2c 22 2e 22  29 0d 02 d0 21 f1 20 8a  |nt)),".")...!. .|
000005b0  32 35 2c 64 69 73 70 6c  61 79 29 3b 22 43 72 22  |25,display);"Cr"|
000005c0  3b 68 69 28 63 6f 75 6e  74 29 0d 02 da 11 63 6f  |;hi(count)....co|
000005d0  75 6e 74 3d 63 6f 75 6e  74 2b 31 0d 02 e4 0d ed  |unt=count+1.....|
000005e0  20 64 69 73 70 6c 61 79  0d 02 ee 0b 64 75 6d 6d  | display....dumm|
000005f0  79 3d a5 0d 02 f8 0e db  3a f2 6f 70 74 69 6f 6e  |y=......:.option|
00000600  73 0d 03 02 05 e1 0d 03  0c 05 20 0d 03 16 0e dd  |s......... .....|
00000610  20 f2 6f 70 74 69 6f 6e  73 0d 03 20 08 ef 20 32  | .options.. .. 2|
00000620  36 0d 03 2a 22 f1 20 8a  31 32 2c 37 29 20 22 28  |6..*". .12,7) "(|
00000630  47 29 65 6e 65 72 61 74  65 20 4e 65 77 20 53 65  |G)enerate New Se|
00000640  65 64 22 0d 03 34 22 f1  20 8a 31 32 2c 39 29 20  |ed"..4". .12,9) |
00000650  22 28 52 29 65 61 64 20  49 6e 73 74 72 75 63 74  |"(R)ead Instruct|
00000660  69 6f 6e 73 22 0d 03 3e  20 f1 20 8a 31 32 2c 31  |ions"..> . .12,1|
00000670  31 29 20 22 28 53 29 74  61 72 74 20 4e 65 77 20  |1) "(S)tart New |
00000680  47 61 6d 65 22 0d 03 48  1b f1 20 8a 31 32 2c 31  |Game"..H.. .12,1|
00000690  33 29 20 22 28 4c 29 6f  61 64 20 47 61 6d 65 22  |3) "(L)oad Game"|
000006a0  0d 03 52 22 f1 20 8a 31  32 2c 31 35 29 20 22 28  |..R". .12,15) "(|
000006b0  56 29 69 65 77 20 48 69  67 68 20 53 63 6f 72 65  |V)iew High Score|
000006c0  73 22 0d 03 5c 05 e1 0d  03 66 05 20 0d 03 70 0d  |s"..\....f. ..p.|
000006d0  dd 20 f2 63 72 65 61 74  65 0d 03 7a 14 66 69 6c  |. .create..z.fil|
000006e0  65 3d ae 20 22 68 69 73  63 6f 72 65 22 0d 03 84  |e=. "hiscore"...|
000006f0  10 e3 20 73 61 76 65 3d  31 20 b8 20 35 0d 03 8e  |.. save=1 . 5...|
00000700  1b f1 23 20 66 69 6c 65  2c 22 41 4d 43 20 4c 74  |..# file,"AMC Lt|
00000710  64 22 2c 31 30 30 30 30  0d 03 98 0a ed 20 73 61  |d",10000..... sa|
00000720  76 65 0d 03 a2 0b d9 23  20 66 69 6c 65 0d 03 ac  |ve.....# file...|
00000730  05 e1 0d 03 b6 05 20 0d  03 c0 0c dd 20 f2 63 72  |...... ..... .cr|
00000740  65 64 73 0d 03 ca 31 ee  20 85 20 f6 3a f1 22 20  |eds...1. . .:." |
00000750  61 74 20 6c 69 6e 65 20  22 3b 9e 3a ff 22 46 58  |at line ";.:."FX|
00000760  34 22 3a ff 22 46 58 32  30 30 2c 30 22 3a f2 63  |4":."FX200,0":.c|
00000770  6f 6e 3a e0 0d 03 d4 15  66 69 6c 65 3d a3 3a ff  |on:.....file=.:.|
00000780  22 46 58 32 30 30 2c 31  22 0d 03 de 18 ef 20 32  |"FX200,1"..... 2|
00000790  33 2c 31 2c 30 3b 30 3b  30 3b 30 3b 3a 68 69 3d  |3,1,0;0;0;0;:hi=|
000007a0  b9 0d 03 e8 1b de 20 68  69 28 35 29 2c 63 6e 61  |...... hi(5),cna|
000007b0  6d 24 28 35 29 3a 72 65  73 74 3d a3 0d 03 f2 17  |m$(5):rest=.....|
000007c0  ff 22 46 58 34 2c 32 22  3a ff 22 46 58 32 31 32  |."FX4,2":."FX212|
000007d0  2c 30 22 0d 03 fc 1b ff  22 46 58 32 31 33 2c 31  |,0"....."FX213,1|
000007e0  32 30 22 3a ff 22 46 58  32 31 34 2c 32 22 0d 04  |20":."FX214,2"..|
000007f0  06 1d f1 20 8a 31 33 2c  32 29 20 22 41 53 54 45  |... .13,2) "ASTE|
00000800  52 4d 45 4e 45 20 76 31  2e 30 22 0d 04 10 33 f1  |RMENE v1.0"...3.|
00000810  20 8a 32 2c 34 29 20 22  2e 2e 2e 54 48 45 20 42  | .2,4) "...THE B|
00000820  55 53 49 4e 45 53 53 20  47 41 4d 45 20 4f 46 20  |USINESS GAME OF |
00000830  54 48 45 20 46 55 54 55  52 45 2e 2e 2e 22 0d 04  |THE FUTURE..."..|
00000840  1a 1d f1 20 8a 31 33 2c  38 29 20 22 44 65 76 65  |... .13,8) "Deve|
00000850  6c 6f 70 65 64 20 66 72  6f 6d 22 0d 04 24 26 f1  |loped from"..$&.|
00000860  20 8a 38 2c 39 29 20 22  53 70 61 63 65 20 4d 69  | .8,9) "Space Mi|
00000870  6e 65 73 20 62 79 20 44  2e 49 73 61 61 6d 61 6e  |nes by D.Isaaman|
00000880  22 0d 04 2e 1c f1 20 8a  31 34 2c 31 30 29 20 22  |"..... .14,10) "|
00000890  61 6e 64 20 20 4a 2e 54  79 6c 65 72 22 0d 04 38  |and  J.Tyler"..8|
000008a0  29 f1 20 8a 37 2c 31 31  29 20 22 28 63 29 20 55  |). .7,11) "(c) U|
000008b0  73 62 6f 72 6e 65 20 50  75 62 6c 69 73 68 69 6e  |sborne Publishin|
000008c0  67 20 4c 74 64 22 0d 04  42 1f f1 20 8a 31 33 2c  |g Ltd"..B.. .13,|
000008d0  31 35 29 20 22 76 31 2e  30 20 28 63 29 20 4d 43  |15) "v1.0 (c) MC|
000008e0  4d 58 43 56 22 0d 04 4c  1b f1 20 8a 31 35 2c 31  |MXCV"..L.. .15,1|
000008f0  36 29 20 22 62 79 20 52  2e 4c 69 74 74 6c 65 22  |6) "by R.Little"|
00000900  0d 04 56 23 f1 20 8a 31  31 2c 31 37 29 20 22 41  |..V#. .11,17) "A|
00000910  6c 6c 20 52 69 67 68 74  73 20 52 65 73 65 72 76  |ll Rights Reserv|
00000920  65 64 22 0d 04 60 22 f1  20 8a 31 31 2c 32 31 29  |ed"..`". .11,21)|
00000930  20 22 44 69 73 74 72 69  62 75 74 65 64 20 62 79  | "Distributed by|
00000940  20 45 55 47 22 0d 04 6a  24 f1 20 8a 31 30 2c 32  | EUG"..j$. .10,2|
00000950  32 29 20 22 49 73 73 75  65 20 32 31 20 41 75 67  |2) "Issue 21 Aug|
00000960  75 73 74 20 31 39 39 35  22 0d 04 74 0b f2 6c 6f  |ust 1995"..t..lo|
00000970  61 64 68 69 0d 04 7e 0a  72 65 73 74 3d a3 0d 04  |adhi..~.rest=...|
00000980  88 0b 64 75 6d 6d 79 3d  a5 0d 04 92 0a 6c 6f 61  |..dummy=.....loa|
00000990  64 3d a3 0d 04 9c 05 e1  0d 04 a6 05 20 0d 04 b0  |d=.......... ...|
000009a0  0c dd 20 f2 73 74 61 72  74 0d 04 ba 10 ef 32 36  |.. .start.....26|
000009b0  3a db 3a 73 65 65 64 3d  91 0d 04 c4 18 f1 20 8a  |:.:seed=...... .|
000009c0  31 36 2c 31 29 20 22 41  53 54 45 52 4d 45 4e 45  |16,1) "ASTERMENE|
000009d0  22 0d 04 ce 18 f1 20 8a  31 36 2c 32 29 20 22 7e  |"..... .16,2) "~|
000009e0  7e 7e 7e 7e 7e 7e 7e 7e  22 0d 04 d8 1e f1 20 8a  |~~~~~~~~"..... .|
000009f0  32 2c 34 29 20 22 41 75  74 6f 20 53 65 65 64 3a  |2,4) "Auto Seed:|
00000a00  20 22 3b 73 65 65 64 0d  04 e2 35 f1 20 8a 32 2c  | ";seed...5. .2,|
00000a10  32 33 29 20 22 2e 2e 2e  54 48 45 20 42 55 53 49  |23) "...THE BUSI|
00000a20  4e 45 53 53 20 47 41 4d  45 20 4f 46 20 54 48 45  |NESS GAME OF THE|
00000a30  20 46 55 54 55 52 45 2e  2e 2e 22 3b 0d 04 ec 12  | FUTURE...";....|
00000a40  64 75 6d 6d 79 3d b3 28  2d 73 65 65 64 29 0d 04  |dummy=.(-seed)..|
00000a50  f6 14 e7 20 72 65 73 74  3d b9 20 8c 20 f2 68 69  |... rest=. . .hi|
00000a60  67 68 0d 05 00 0c f2 6f  70 74 69 6f 6e 73 0d 05  |gh.....options..|
00000a70  0a 05 f5 0d 05 14 1c 70  6f 73 69 74 3d a7 22 47  |.......posit=."G|
00000a80  67 52 72 53 73 4c 6c 56  76 22 2c bd 20 a5 29 0d  |gRrSsLlVv",. .).|
00000a90  05 1e 1d e7 20 70 6f 73  69 74 3e 30 20 80 20 70  |.... posit>0 . p|
00000aa0  6f 73 69 74 3c 33 20 f2  73 65 65 64 0d 05 28 1d  |osit<3 .seed..(.|
00000ab0  e7 20 70 6f 73 69 74 3e  32 20 80 20 70 6f 73 69  |. posit>2 . posi|
00000ac0  74 3c 35 20 f2 69 6e 73  74 0d 05 32 1d e7 20 70  |t<5 .inst..2.. p|
00000ad0  6f 73 69 74 3e 34 20 80  20 70 6f 73 69 74 3c 37  |osit>4 . posit<7|
00000ae0  20 f2 6e 61 6d 65 0d 05  3c 1d e7 20 70 6f 73 69  | .name..<.. posi|
00000af0  74 3e 36 20 80 20 70 6f  73 69 74 3c 39 20 f2 6c  |t>6 . posit<9 .l|
00000b00  6f 61 64 0d 05 46 1e e7  20 70 6f 73 69 74 3e 38  |oad..F.. posit>8|
00000b10  20 80 20 70 6f 73 69 74  3c 31 31 20 f2 68 69 67  | . posit<11 .hig|
00000b20  68 0d 05 50 10 e7 20 70  6f 73 69 74 3d 30 20 ef  |h..P.. posit=0 .|
00000b30  37 0d 05 5a 17 fd 20 70  6f 73 69 74 3e 34 20 80  |7..Z.. posit>4 .|
00000b40  20 70 6f 73 69 74 3c 39  0d 05 64 26 e7 20 c0 63  | posit<9..d&. .c|
00000b50  6f 6d 70 24 2c 31 29 3d  bd 20 33 32 20 8c 20 63  |omp$,1)=. 32 . c|
00000b60  6f 6d 70 24 3d 22 41 4d  43 20 4c 74 64 22 0d 05  |omp$="AMC Ltd"..|
00000b70  6e 15 ef 31 39 2c 37 2c  30 3b 30 3b 3a 72 65 73  |n..19,7,0;0;:res|
00000b80  74 3d a3 0d 05 78 05 e1  0d 05 82 05 20 0d 05 8c  |t=...x...... ...|
00000b90  0b dd 20 f2 6e 61 6d 65  0d 05 96 2b f1 20 8a 30  |.. .name...+. .0|
00000ba0  2c 31 38 29 20 22 57 68  61 74 20 69 73 20 79 6f  |,18) "What is yo|
00000bb0  75 72 20 63 6f 6d 70 61  6e 79 27 73 20 6e 61 6d  |ur company's nam|
00000bc0  65 3f 22 0d 05 a0 1c f1  20 8a 30 2c 32 30 29 22  |e?"..... .0,20)"|
00000bd0  3d 3e 22 3b 3a f2 63 6c  65 61 72 28 33 39 29 0d  |=>";:.clear(39).|
00000be0  05 aa 0d f1 20 8a 32 2c  32 30 29 3b 0d 05 b4 0c  |.... .2,20);....|
00000bf0  63 6f 6d 70 24 3d 22 22  0d 05 be 30 3f 26 39 30  |comp$=""...0?&90|
00000c00  30 3d 30 3a 3f 26 39 30  31 3d 26 41 3a 3f 26 39  |0=0:?&901=&A:?&9|
00000c10  30 32 3d 26 42 3a 3f 26  39 30 33 3d 33 32 3a 3f  |02=&B:?&903=32:?|
00000c20  26 39 30 34 3d 31 32 36  0d 05 c8 1b 41 25 3d 30  |&904=126....A%=0|
00000c30  3a 58 25 3d 30 3a 59 25  3d 26 39 3a d6 20 26 46  |:X%=0:Y%=&9:. &F|
00000c40  46 46 31 0d 05 d2 09 72  65 74 3d a3 0d 05 dc 1a  |FF1....ret=.....|
00000c50  e3 20 74 72 61 6e 73 66  65 72 3d 26 41 30 30 20  |. transfer=&A00 |
00000c60  b8 20 26 41 30 41 0d 05  e6 18 e7 20 3f 74 72 61  |. &A0A..... ?tra|
00000c70  6e 73 66 65 72 3d 31 33  20 72 65 74 3d b9 0d 05  |nsfer=13 ret=...|
00000c80  f0 36 e7 20 72 65 74 3d  a3 20 63 6f 6d 70 24 3d  |.6. ret=. comp$=|
00000c90  63 6f 6d 70 24 2b bd 28  3f 74 72 61 6e 73 66 65  |comp$+.(?transfe|
00000ca0  72 29 20 8b 20 63 6f 6d  70 24 3d 63 6f 6d 70 24  |r) . comp$=comp$|
00000cb0  2b bd 33 32 0d 05 fa 0e  ed 20 74 72 61 6e 73 66  |+.32..... transf|
00000cc0  65 72 0d 06 04 05 e1 0d  06 0e 05 20 0d 06 18 0b  |er......... ....|
00000cd0  dd 20 f2 73 65 65 64 0d  06 22 2f f1 20 8a 30 2c  |. .seed.."/. .0,|
00000ce0  31 38 29 20 22 57 68 61  74 20 73 65 65 64 20 6e  |18) "What seed n|
00000cf0  75 6d 62 65 72 20 77 6f  75 6c 64 20 79 6f 75 20  |umber would you |
00000d00  6c 69 6b 65 3f 22 0d 06  2c 05 f5 0d 06 36 12 f1  |like?"..,....6..|
00000d10  20 8a 30 2c 32 30 29 20  22 3d 3e 22 3b 0d 06 40  | .0,20) "=>";..@|
00000d20  0c 73 65 65 64 24 3d 22  22 0d 06 4a 2e 3f 26 39  |.seed$=""..J.?&9|
00000d30  30 30 3d 30 3a 3f 26 39  30 31 3d 26 41 3a 3f 26  |00=0:?&901=&A:?&|
00000d40  39 30 32 3d 36 3a 3f 26  39 30 33 3d 34 38 3a 3f  |902=6:?&903=48:?|
00000d50  26 39 30 34 3d 35 37 0d  06 54 1b 41 25 3d 30 3a  |&904=57..T.A%=0:|
00000d60  58 25 3d 30 3a 59 25 3d  26 39 3a d6 20 26 46 46  |X%=0:Y%=&9:. &FF|
00000d70  46 31 0d 06 5e 09 72 65  74 3d a3 0d 06 68 1a e3  |F1..^.ret=...h..|
00000d80  20 74 72 61 6e 73 66 65  72 3d 26 41 30 30 20 b8  | transfer=&A00 .|
00000d90  20 26 41 30 35 0d 06 72  18 e7 20 3f 74 72 61 6e  | &A05..r.. ?tran|
00000da0  73 66 65 72 3d 31 33 20  72 65 74 3d b9 0d 06 7c  |sfer=13 ret=...||
00000db0  24 e7 20 72 65 74 3d a3  20 73 65 65 64 24 3d 73  |$. ret=. seed$=s|
00000dc0  65 65 64 24 2b bd 28 3f  74 72 61 6e 73 66 65 72  |eed$+.(?transfer|
00000dd0  29 0d 06 86 0e ed 20 74  72 61 6e 73 66 65 72 0d  |)..... transfer.|
00000de0  06 90 26 e7 20 73 65 65  64 24 3d 22 22 20 f1 20  |..&. seed$="" . |
00000df0  8a 32 2c 32 30 29 3b 3a  f2 63 6c 65 61 72 28 33  |.2,20);:.clear(3|
00000e00  39 29 3a ef 37 0d 06 9a  10 fd 20 a9 28 73 65 65  |9):.7..... .(see|
00000e10  64 24 29 3e 30 0d 06 a4  11 73 65 65 64 3d bb 28  |d$)>0....seed=.(|
00000e20  73 65 65 64 24 29 0d 06  ae 12 64 75 6d 6d 79 3d  |seed$)....dummy=|
00000e30  b3 28 2d 73 65 65 64 29  0d 06 b8 1c f1 8a 31 33  |.(-seed)......13|
00000e40  2c 34 29 3b 73 65 65 64  3b 3a f2 63 6c 65 61 72  |,4);seed;:.clear|
00000e50  28 33 39 29 0d 06 c2 17  f1 8a 30 2c 31 38 29 3b  |(39)......0,18);|
00000e60  3a f2 63 6c 65 61 72 28  33 39 29 0d 06 cc 17 f1  |:.clear(39).....|
00000e70  8a 30 2c 32 30 29 3b 3a  f2 63 6c 65 61 72 28 33  |.0,20);:.clear(3|
00000e80  39 29 0d 06 d6 05 e1 0d  06 e0 05 20 0d 06 ea 0b  |9)......... ....|
00000e90  dd 20 f2 69 6e 73 74 0d  06 f4 13 66 69 6c 65 3d  |. .inst....file=|
00000ea0  8e 28 22 49 4e 53 54 52  22 29 0d 06 fe 58 e7 20  |.("INSTR")...X. |
00000eb0  66 69 6c 65 3d 30 20 f1  20 8a 32 2c 31 39 29 20  |file=0 . .2,19) |
00000ec0  22 49 6e 73 74 72 75 63  74 69 6f 6e 73 20 66 69  |"Instructions fi|
00000ed0  6c 65 20 69 73 20 6e 6f  6e 2d 65 78 69 73 74 65  |le is non-existe|
00000ee0  6e 74 21 22 3a 64 75 6d  6d 79 3d a5 3a f1 8a 30  |nt!":dummy=.:..0|
00000ef0  2c 31 39 29 3b 3a f2 63  6c 65 61 72 28 33 39 29  |,19);:.clear(39)|
00000f00  3a e1 0d 07 08 14 ef 32  38 2c 33 2c 32 31 2c 33  |:......28,3,21,3|
00000f10  37 2c 36 2c 31 34 0d 07  12 05 db 0d 07 1c 05 f5  |7,6,14..........|
00000f20  0d 07 26 10 63 68 61 72  3d 9a 23 20 66 69 6c 65  |..&.char=.# file|
00000f30  0d 07 30 18 e7 20 63 68  61 72 3e 33 31 20 f1 20  |..0.. char>31 . |
00000f40  bd 28 63 68 61 72 29 3b  0d 07 3a 0f e7 20 63 68  |.(char);..:.. ch|
00000f50  61 72 3d 31 33 20 f1 0d  07 44 14 e7 20 63 68 61  |ar=13 ...D.. cha|
00000f60  72 3d 32 36 20 f1 20 22  20 22 3b 0d 07 4e 0d fd  |r=26 . " ";..N..|
00000f70  20 c5 23 20 66 69 6c 65  0d 07 58 0b d9 23 20 66  | .# file..X..# f|
00000f80  69 6c 65 0d 07 62 0b 2a  46 58 31 35 2c 31 0d 07  |ile..b.*FX15,1..|
00000f90  6c 0b 64 75 6d 6d 79 3d  a5 0d 07 76 05 db 0d 07  |l.dummy=...v....|
00000fa0  80 0c f2 6f 70 74 69 6f  6e 73 0d 07 8a 05 e1 0d  |...options......|
00000fb0  07 94 05 20 0d 07 9e 13  dd 20 a4 76 61 72 28 6d  |... ..... .var(m|
00000fc0  69 6e 2c 6d 61 78 29 0d  07 a8 0e ea 20 6e 75 6d  |in,max)..... num|
00000fd0  2c 6e 75 6d 24 0d 07 b2  05 f1 0d 07 bc 0b f1 20  |,num$.......... |
00000fe0  22 3d 3e 22 3b 0d 07 c6  11 6e 75 6d 24 3d 22 22  |"=>";....num$=""|
00000ff0  3a 6e 75 6d 3d 30 0d 07  d0 05 f5 0d 07 da 09 6b  |:num=0.........k|
00001000  65 79 3d a5 0d 07 e4 5e  e7 20 6b 65 79 3e 34 37  |ey=....^. key>47|
00001010  20 80 20 6b 65 79 3c 35  38 20 80 20 a9 28 6e 75  | . key<58 . .(nu|
00001020  6d 24 29 3c a9 28 c3 28  6d 61 78 29 29 20 6e 75  |m$)<.(.(max)) nu|
00001030  6d 24 3d 6e 75 6d 24 2b  bd 28 6b 65 79 29 3a f1  |m$=num$+.(key):.|
00001040  3b 6b 65 79 2d 34 38 3b  20 8b 20 e7 20 6b 65 79  |;key-48; . . key|
00001050  3c 3e 31 33 20 80 20 6b  65 79 3c 3e 31 32 37 20  |<>13 . key<>127 |
00001060  ef 37 0d 07 ee 4f e7 20  6b 65 79 3d 31 32 37 20  |.7...O. key=127 |
00001070  8c 20 6e 75 6d 24 3d c0  6e 75 6d 24 2c a9 28 6e  |. num$=.num$,.(n|
00001080  75 6d 24 29 2d 31 29 3a  f1 8a 32 2c bc 29 3b 6e  |um$)-1):..2,.);n|
00001090  75 6d 24 3b 3a f2 63 6c  65 61 72 28 33 39 29 3a  |um$;:.clear(39):|
000010a0  f1 8a 32 2b a9 28 6e 75  6d 24 29 2c bc 2d 31 29  |..2+.(num$),.-1)|
000010b0  3b 0d 07 f8 0c fd 20 6b  65 79 3d 31 33 0d 08 02  |;..... key=13...|
000010c0  05 f1 0d 08 0c 0f 6e 75  6d 3d bb 28 6e 75 6d 24  |......num=.(num$|
000010d0  29 0d 08 16 19 e7 20 6e  75 6d 3d 30 20 f1 20 8a  |)..... num=0 . .|
000010e0  32 2c bc 2d 31 29 20 22  30 22 0d 08 20 1e e7 20  |2,.-1) "0".. .. |
000010f0  6e 75 6d 3e 3d 6d 69 6e  20 80 20 6e 75 6d 3c 3d  |num>=min . num<=|
00001100  6d 61 78 20 3d 6e 75 6d  0d 08 2a 06 ef 37 0d 08  |max =num..*..7..|
00001110  34 1d f1 20 8a 32 2c bc  2d 31 29 20 c4 a9 28 c3  |4.. .2,.-1) ..(.|
00001120  28 6e 75 6d 29 29 2c 22  20 22 29 0d 08 3e 0e f1  |(num))," ")..>..|
00001130  20 8a 30 2c bc 2d 31 29  3b 0d 08 48 0a e5 20 8d  | .0,.-1);..H.. .|
00001140  74 7c 47 0d 08 52 08 3d  6e 75 6d 0d 08 5c 05 20  |t|G..R.=num..\. |
00001150  0d 08 66 0b dd 20 f2 76  61 72 73 0d 08 70 10 e7  |..f.. .vars..p..|
00001160  20 6c 6f 61 64 3d b9 20  8c 20 e1 0d 08 7a 26 63  | load=. . ...z&c|
00001170  6c 6f 73 65 64 3d 30 3a  73 74 6f 72 65 3d 30 3a  |losed=0:store=0:|
00001180  73 61 74 69 73 3d 31 3a  79 65 61 72 3d 32 35 30  |satis=1:year=250|
00001190  30 0d 08 84 20 6d 69 6e  65 73 3d b3 28 33 29 2b  |0... mines=.(3)+|
000011a0  35 3a 70 65 6f 70 6c 65  3d b3 28 36 30 29 2b 34  |5:people=.(60)+4|
000011b0  30 0d 08 8e 1b 6d 6f 6e  65 79 3d b3 28 28 36 35  |0....money=.((65|
000011c0  29 2b 32 30 29 2a 70 65  6f 70 6c 65 0d 08 98 1a  |)+20)*people....|
000011d0  66 62 75 79 3d 31 30 30  2a 70 65 6f 70 6c 65 3a  |fbuy=100*people:|
000011e0  65 6d 70 6c 3d 30 0d 08  a2 11 70 72 6f 64 3d b3  |empl=0....prod=.|
000011f0  28 34 30 29 2b 38 30 0d  08 ac 11 73 61 6c 3d 31  |(40)+80....sal=1|
00001200  30 2a 70 65 6f 70 6c 65  0d 08 b6 05 e1 0d 08 c0  |0*people........|
00001210  05 20 0d 08 ca 0c dd 20  f2 73 65 74 75 70 0d 08  |. ..... .setup..|
00001220  d4 0c db 3a 67 6c 75 74  3d 30 0d 08 de 18 f1 20  |...:glut=0..... |
00001230  8a 31 36 2c 30 29 20 22  41 53 54 45 52 4d 45 4e  |.16,0) "ASTERMEN|
00001240  45 22 0d 08 e8 18 f1 20  8a 31 36 2c 31 29 20 22  |E"..... .16,1) "|
00001250  7e 7e 7e 7e 7e 7e 7e 7e  7e 22 0d 08 f2 22 f1 20  |~~~~~~~~~"...". |
00001260  8a 32 2c 33 29 20 22 4e  61 6d 65 3a 22 3b 8a 32  |.2,3) "Name:";.2|
00001270  30 2c 33 29 20 22 59 65  61 72 3a 22 0d 08 fc 26  |0,3) "Year:"...&|
00001280  f1 20 8a 32 2c 34 29 20  22 57 6f 72 6b 65 72 73  |. .2,4) "Workers|
00001290  3a 22 3b 8a 32 30 2c 34  29 20 22 4d 69 6e 65 73  |:";.20,4) "Mines|
000012a0  3a 22 0d 09 06 2f f1 20  8a 32 2c 35 29 20 22 4d  |:".../. .2,5) "M|
000012b0  6f 6e 65 79 3a 20 43 72  22 3b 8a 32 30 2c 35 29  |oney: Cr";.20,5)|
000012c0  20 22 53 61 74 69 73 2e  20 46 61 63 74 6f 72 3a  | "Satis. Factor:|
000012d0  22 0d 09 10 1e f1 20 8a  32 2c 37 29 20 22 4d 69  |"..... .2,7) "Mi|
000012e0  6e 65 20 50 72 6f 64 75  63 74 69 6f 6e 3a 22 0d  |ne Production:".|
000012f0  09 1a 1b f1 20 8a 32 2c  38 29 20 22 4f 72 65 20  |.... .2,8) "Ore |
00001300  69 6e 20 53 74 6f 72 65  3a 22 0d 09 24 26 f1 20  |in Store:"..$&. |
00001310  8a 32 2c 31 30 29 20 22  41 73 74 65 72 6d 65 6e  |.2,10) "Astermen|
00001320  65 20 4f 72 65 20 50 72  69 63 65 3a 20 43 72 22  |e Ore Price: Cr"|
00001330  0d 09 2e 1d f1 20 8a 32  2c 31 31 29 20 22 4d 69  |..... .2,11) "Mi|
00001340  6e 65 20 50 72 69 63 65  3a 20 43 72 22 0d 09 38  |ne Price: Cr"..8|
00001350  33 f1 20 8a 32 2c 31 32  29 20 22 5f 5f 5f 5f 5f  |3. .2,12) "_____|
00001360  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
00001370  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 22  |_______________"|
00001380  0d 09 42 35 f1 20 8a 32  2c 32 34 29 20 22 2e 2e  |..B5. .2,24) "..|
00001390  2e 54 48 45 20 42 55 53  49 4e 45 53 53 20 47 41  |.THE BUSINESS GA|
000013a0  4d 45 20 4f 46 20 54 48  45 20 46 55 54 55 52 45  |ME OF THE FUTURE|
000013b0  2e 2e 2e 22 3b 0d 09 4c  05 e1 0d 09 56 05 20 0d  |...";..L....V. .|
000013c0  09 60 0b dd 20 f2 69 6e  66 6f 0d 09 6a 1a 73 74  |.`.. .info..j.st|
000013d0  6f 72 65 3d 73 74 6f 72  65 2b 70 72 6f 64 2a 6d  |ore=store+prod*m|
000013e0  69 6e 65 73 0d 09 74 22  e7 20 6c 6f 61 64 3d a3  |ines..t". load=.|
000013f0  20 8c 20 6d 70 72 69 63  65 3d b3 28 32 30 30 30  | . mprice=.(2000|
00001400  29 2b 32 30 30 30 0d 09  7e 24 e7 20 67 6c 75 74  |)+2000..~$. glut|
00001410  3d a3 20 80 20 6c 6f 61  64 3d a3 20 6f 70 72 69  |=. . load=. opri|
00001420  63 65 3d b3 28 31 32 29  2b 37 0d 09 88 19 6d 6f  |ce=.(12)+7....mo|
00001430  6e 65 79 3d a8 28 6d 6f  6e 65 79 29 3a 6c 6f 61  |ney=.(money):loa|
00001440  64 3d a3 0d 09 92 0b f2  77 69 6e 6f 66 66 0d 09  |d=......winoff..|
00001450  9c 10 f1 8a 38 2c 33 29  3b 63 6f 6d 70 24 0d 09  |....8,3);comp$..|
00001460  a6 22 f1 8a 32 36 2c 33  29 3b 79 65 61 72 3b 22  |."..26,3);year;"|
00001470  20 41 44 22 3b 3a f2 63  6c 65 61 72 28 33 39 29  | AD";:.clear(39)|
00001480  0d 09 b0 1e f1 8a 31 31  2c 34 29 3b 70 65 6f 70  |......11,4);peop|
00001490  6c 65 3b 3a f2 63 6c 65  61 72 28 31 39 29 0d 09  |le;:.clear(19)..|
000014a0  ba 2e f1 8a 32 37 2c 34  29 3b 6d 69 6e 65 73 3b  |....27,4);mines;|
000014b0  22 2f 22 3b 6d 69 6e 65  73 2b 63 6c 6f 73 65 64  |"/";mines+closed|
000014c0  3b 3a f2 63 6c 65 61 72  28 33 39 29 0d 09 c4 1d  |;:.clear(39)....|
000014d0  f1 8a 31 31 2c 35 29 3b  6d 6f 6e 65 79 3b 3a f2  |..11,5);money;:.|
000014e0  63 6c 65 61 72 28 31 39  29 0d 09 ce 39 f1 8a 33  |clear(19)...9..3|
000014f0  35 2c 35 29 c0 c3 28 73  61 74 69 73 29 2c 33 29  |5,5)..(satis),3)|
00001500  3a f2 63 6c 65 61 72 28  33 39 29 3a e7 20 73 61  |:.clear(39):. sa|
00001510  74 69 73 3d 31 20 f1 8a  33 35 2c 35 29 22 31 2e  |tis=1 ..35,5)"1.|
00001520  30 22 0d 09 d8 29 f1 8a  31 39 2c 37 29 3b 70 72  |0"...)..19,7);pr|
00001530  6f 64 3b 22 20 74 6f 6e  73 2f 6d 69 6e 65 22 3b  |od;" tons/mine";|
00001540  3a f2 63 6c 65 61 72 28  33 39 29 0d 09 e2 25 f1  |:.clear(39)...%.|
00001550  8a 31 36 2c 38 29 3b 73  74 6f 72 65 3b 22 20 74  |.16,8);store;" t|
00001560  6f 6e 73 22 3b 3a f2 63  6c 65 61 72 28 33 39 29  |ons";:.clear(39)|
00001570  0d 09 ec 26 f1 8a 32 35  2c 31 30 29 3b 6f 70 72  |...&..25,10);opr|
00001580  69 63 65 3b 22 2f 74 6f  6e 22 3b 3a f2 63 6c 65  |ice;"/ton";:.cle|
00001590  61 72 28 33 39 29 0d 09  f6 27 f1 8a 31 36 2c 31  |ar(39)...'..16,1|
000015a0  31 29 3b 6d 70 72 69 63  65 3b 22 2f 6d 69 6e 65  |1);mprice;"/mine|
000015b0  22 3b 3a f2 63 6c 65 61  72 28 33 39 29 0d 0a 00  |";:.clear(39)...|
000015c0  0a f2 77 69 6e 6f 6e 0d  0a 0a 05 e1 0d 0a 14 05  |..winon.........|
000015d0  20 0d 0a 1e 0b dd 20 f2  6d 65 6e 75 0d 0a 28 07  | ..... .menu..(.|
000015e0  f5 3a db 0d 0a 32 1f f1  20 8a 31 32 2c 30 29 22  |.:...2.. .12,0)"|
000015f0  28 43 29 6f 6d 70 6c 65  74 65 20 53 74 61 74 27  |(C)omplete Stat'|
00001600  73 22 0d 0a 3c 17 f1 20  8a 31 32 2c 32 29 20 22  |s"..<.. .12,2) "|
00001610  28 42 29 75 79 69 6e 67  22 0d 0a 46 18 f1 20 8a  |(B)uying"..F.. .|
00001620  31 32 2c 34 29 20 22 28  53 29 65 6c 6c 69 6e 67  |12,4) "(S)elling|
00001630  22 0d 0a 50 1a f1 20 8a  31 32 2c 36 29 20 22 28  |"..P.. .12,6) "(|
00001640  57 29 6f 72 6b 66 6f 72  63 65 22 0d 0a 5a 1a f1  |W)orkforce"..Z..|
00001650  20 8a 31 32 2c 38 29 20  22 28 45 29 6e 64 20 54  | .12,8) "(E)nd T|
00001660  75 72 6e 22 3b 0d 0a 64  14 ef 31 39 2c 31 2c 37  |urn";..d..19,1,7|
00001670  3b 30 3b 3a 77 69 6e 3d  a3 0d 0a 6e 05 f5 0d 0a  |;0;:win=...n....|
00001680  78 0b 72 65 70 6c 79 3d  a5 0d 0a 82 20 70 6f 73  |x.reply=.... pos|
00001690  69 74 3d a7 22 43 63 42  62 53 73 57 77 45 65 22  |it=."CcBbSsWwEe"|
000016a0  2c bd 20 72 65 70 6c 79  29 0d 0a 8c 1c e7 20 70  |,. reply)..... p|
000016b0  6f 73 69 74 3d 30 20 80  20 72 65 70 6c 79 3c 3e  |osit=0 . reply<>|
000016c0  31 33 20 ef 37 0d 0a 96  17 e7 20 72 65 70 6c 79  |13 .7..... reply|
000016d0  3d 31 33 20 65 73 63 61  70 65 3d b9 0d 0a a0 18  |=13 escape=.....|
000016e0  fd 20 70 6f 73 69 74 3e  30 20 84 20 72 65 70 6c  |. posit>0 . repl|
000016f0  79 3d 31 33 0d 0a aa 1e  e7 20 70 6f 73 69 74 3e  |y=13..... posit>|
00001700  30 20 80 20 70 6f 73 69  74 3c 33 20 f2 73 74 61  |0 . posit<3 .sta|
00001710  74 73 0d 0a b4 1f e7 20  70 6f 73 69 74 3e 32 20  |ts..... posit>2 |
00001720  80 20 70 6f 73 69 74 3c  35 20 f2 62 75 79 69 6e  |. posit<5 .buyin|
00001730  67 0d 0a be 20 e7 20 70  6f 73 69 74 3e 34 20 80  |g... . posit>4 .|
00001740  20 70 6f 73 69 74 3c 37  20 f2 73 65 6c 6c 69 6e  | posit<7 .sellin|
00001750  67 0d 0a c8 1d e7 20 70  6f 73 69 74 3e 36 20 80  |g..... posit>6 .|
00001760  20 70 6f 73 69 74 3c 39  20 f2 77 6f 72 6b 0d 0a  | posit<9 .work..|
00001770  d2 18 fd 20 70 6f 73 69  74 3e 38 20 84 20 72 65  |... posit>8 . re|
00001780  70 6c 79 3d 31 33 0d 0a  dc 05 e1 0d 0a e6 05 20  |ply=13......... |
00001790  0d 0a f0 0d dd 20 f2 65  73 63 61 70 65 0d 0a fa  |..... .escape...|
000017a0  14 ea 20 72 65 73 70 6f  6e 73 65 2c 70 6f 73 69  |.. response,posi|
000017b0  74 0d 0b 04 05 f5 0d 0b  0e 05 db 0d 0b 18 1a f1  |t...............|
000017c0  20 22 53 65 65 64 20 4e  75 6d 62 65 72 3a 20 22  | "Seed Number: "|
000017d0  3b 73 65 65 64 0d 0b 22  1c f1 20 22 43 6f 6d 70  |;seed..".. "Comp|
000017e0  61 6e 79 20 4e 61 6d 65  3a 20 22 3b 63 6f 6d 70  |any Name: ";comp|
000017f0  24 0d 0b 2c 1e f1 20 22  53 61 6c 65 20 56 61 6c  |$..,.. "Sale Val|
00001800  75 65 3a 20 43 72 22 3b  a4 76 61 6c 75 65 27 0d  |ue: Cr";.value'.|
00001810  0b 36 1c f1 20 8a 31 32  29 20 22 28 53 29 65 6c  |.6.. .12) "(S)el|
00001820  6c 20 43 6f 6d 70 61 6e  79 22 27 0d 0b 40 19 f1  |l Company"'..@..|
00001830  20 8a 31 32 29 20 22 53  61 76 65 20 28 47 29 61  | .12) "Save (G)a|
00001840  6d 65 22 27 0d 0b 4a 1b  f1 20 8a 31 32 29 20 22  |me"'..J.. .12) "|
00001850  28 51 29 75 69 74 20 43  6f 6d 70 61 6e 79 22 0d  |(Q)uit Company".|
00001860  0b 54 05 f5 0d 0b 5e 0e  72 65 73 70 6f 6e 73 65  |.T....^.response|
00001870  3d a5 0d 0b 68 1e 70 6f  73 69 74 3d a7 22 53 73  |=...h.posit=."Ss|
00001880  47 67 51 71 22 2c bd 72  65 73 70 6f 6e 73 65 29  |GgQq",.response)|
00001890  0d 0b 72 1d e7 20 70 6f  73 69 74 3e 30 20 80 20  |..r.. posit>0 . |
000018a0  70 6f 73 69 74 3c 33 20  f2 73 65 6c 6c 0d 0b 7c  |posit<3 .sell..||
000018b0  1d e7 20 70 6f 73 69 74  3e 32 20 80 20 70 6f 73  |.. posit>2 . pos|
000018c0  69 74 3c 35 20 f2 73 61  76 65 0d 0b 86 1d e7 20  |it<5 .save..... |
000018d0  70 6f 73 69 74 3e 34 20  80 20 70 6f 73 69 74 3c  |posit>4 . posit<|
000018e0  37 20 f2 71 75 69 74 0d  0b 90 1f e7 20 70 6f 73  |7 .quit..... pos|
000018f0  69 74 3d 30 20 80 20 72  65 73 70 6f 6e 73 65 3c  |it=0 . response<|
00001900  3e 31 33 20 ef 37 0d 0b  9a 24 fd 20 70 6f 73 69  |>13 .7...$. posi|
00001910  74 3e 30 20 84 20 72 65  73 70 6f 6e 73 65 3d 31  |t>0 . response=1|
00001920  33 20 84 20 72 65 73 74  3d b9 0d 0b a4 1a fd 20  |3 . rest=...... |
00001930  72 65 73 70 6f 6e 73 65  3d 31 33 20 84 20 72 65  |response=13 . re|
00001940  73 74 3d b9 0d 0b ae 05  e1 0d 0b b8 05 20 0d 0b  |st=.......... ..|
00001950  c2 0c dd 20 f2 73 74 61  74 73 0d 0b cc 05 db 0d  |... .stats......|
00001960  0b d6 0f f1 20 22 57 4f  52 4b 45 52 53 22 0d 0b  |.... "WORKERS"..|
00001970  e0 24 f1 27 22 50 72 6f  73 70 65 63 74 69 76 65  |.$.'"Prospective|
00001980  20 45 6d 70 6c 6f 79 65  65 73 3a 20 22 3b 65 6d  | Employees: ";em|
00001990  70 6c 0d 0b ea 29 f1 20  22 46 6f 6f 64 20 42 75  |pl...). "Food Bu|
000019a0  64 67 65 74 20 28 6f 76  65 72 61 6c 6c 29 3a 20  |dget (overall): |
000019b0  43 72 22 3b a8 28 66 62  75 79 29 0d 0b f4 2d f1  |Cr";.(fbuy)...-.|
000019c0  20 22 46 6f 6f 64 20 42  75 64 67 65 74 20 28 65  | "Food Budget (e|
000019d0  61 63 68 29 3a 20 43 72  22 3b a8 28 66 62 75 79  |ach): Cr";.(fbuy|
000019e0  2f 70 65 6f 70 6c 65 29  0d 0b fe 2a f1 20 22 41  |/people)...*. "A|
000019f0  64 64 69 74 2e 20 53 61  6c 61 72 79 20 28 6f 76  |ddit. Salary (ov|
00001a00  65 72 61 6c 6c 29 3a 20  43 72 22 3b a8 28 73 61  |erall): Cr";.(sa|
00001a10  6c 29 0d 0c 08 2e f1 20  22 41 64 64 69 74 2e 20  |l)..... "Addit. |
00001a20  53 61 6c 61 72 79 20 28  65 61 63 68 29 3a 20 43  |Salary (each): C|
00001a30  72 22 3b a8 28 73 61 6c  2f 70 65 6f 70 6c 65 29  |r";.(sal/people)|
00001a40  0d 0c 12 2e f1 20 22 54  6f 74 61 6c 20 57 61 67  |..... "Total Wag|
00001a50  65 20 45 78 70 65 6e 64  69 74 75 72 65 3a 20 43  |e Expenditure: C|
00001a60  72 22 3b a8 28 66 62 75  79 2b 73 61 6c 29 0d 0c  |r";.(fbuy+sal)..|
00001a70  1c 3b f1 20 22 41 6d 6f  75 6e 74 20 6f 66 20 43  |.;. "Amount of C|
00001a80  75 72 72 65 6e 74 20 46  72 65 65 20 43 61 73 68  |urrent Free Cash|
00001a90  3a 20 43 72 22 3b a8 28  6d 6f 6e 65 79 2d 28 66  |: Cr";.(money-(f|
00001aa0  62 75 79 2b 73 61 6c 29  29 0d 0c 26 0b 64 75 6d  |buy+sal))..&.dum|
00001ab0  6d 79 3d a5 0d 0c 30 05  e1 0d 0c 3a 05 20 0d 0c  |my=...0....:. ..|
00001ac0  44 0e dd 20 f2 73 65 6c  6c 69 6e 67 0d 0c 4e 05  |D.. .selling..N.|
00001ad0  db 0d 0c 58 13 f1 20 22  4f 52 45 20 53 45 4c 4c  |...X.. "ORE SELL|
00001ae0  49 4e 47 22 0d 0c 62 1d  f1 27 22 48 6f 77 20 6d  |ING"..b..'"How m|
00001af0  75 63 68 20 6f 72 65 20  74 6f 20 73 65 6c 6c 3f  |uch ore to sell?|
00001b00  22 0d 0c 6c 17 6f 73 65  6c 6c 3d a4 76 61 72 28  |"..l.osell=.var(|
00001b10  30 2c 73 74 6f 72 65 29  0d 0c 76 20 f1 20 8a a9  |0,store)..v . ..|
00001b20  28 c3 28 6f 73 65 6c 6c  29 29 2b 33 2c bc 2d 31  |(.(osell))+3,.-1|
00001b30  29 20 22 74 6f 6e 73 22  0d 0c 80 15 73 74 6f 72  |) "tons"....stor|
00001b40  65 3d 73 74 6f 72 65 2d  6f 73 65 6c 6c 0d 0c 8a  |e=store-osell...|
00001b50  1c 6d 6f 6e 65 79 3d 6d  6f 6e 65 79 2b 6f 73 65  |.money=money+ose|
00001b60  6c 6c 2a 6f 70 72 69 63  65 0d 0c 94 10 70 6f 73  |ll*oprice....pos|
00001b70  3d b1 3a 76 70 6f 73 3d  bc 0d 0c 9e 0b f2 77 69  |=.:vpos=......wi|
00001b80  6e 6f 66 66 0d 0c a8 13  f1 20 8a 31 31 2c 35 29  |noff..... .11,5)|
00001b90  3b 6d 6f 6e 65 79 3b 0d  0c b2 0e f2 63 6c 65 61  |;money;.....clea|
00001ba0  72 28 31 39 29 0d 0c bc  1b f1 20 8a 31 36 2c 38  |r(19)..... .16,8|
00001bb0  29 3b 73 74 6f 72 65 3b  22 20 74 6f 6e 73 22 3b  |);store;" tons";|
00001bc0  0d 0c c6 0e f2 63 6c 65  61 72 28 33 39 29 0d 0c  |.....clear(39)..|
00001bd0  d0 0a f2 77 69 6e 6f 6e  0d 0c da 10 f1 8a 70 6f  |...winon......po|
00001be0  73 2c 76 70 6f 73 29 3b  0d 0c e4 05 db 0d 0c ee  |s,vpos);........|
00001bf0  14 f1 20 22 4d 49 4e 45  20 53 45 4c 4c 49 4e 47  |.. "MINE SELLING|
00001c00  22 0d 0c f8 1f f1 27 22  48 6f 77 20 6d 61 6e 79  |".....'"How many|
00001c10  20 6d 69 6e 65 73 20 74  6f 20 73 65 6c 6c 3f 22  | mines to sell?"|
00001c20  0d 0d 02 19 6d 73 65 6c  6c 3d a4 76 61 72 28 30  |....msell=.var(0|
00001c30  2c 6d 69 6e 65 73 2d 31  29 0d 0d 0c 15 6d 69 6e  |,mines-1)....min|
00001c40  65 73 3d 6d 69 6e 65 73  2d 6d 73 65 6c 6c 0d 0d  |es=mines-msell..|
00001c50  16 1c 6d 6f 6e 65 79 3d  6d 6f 6e 65 79 2b 6d 73  |..money=money+ms|
00001c60  65 6c 6c 2a 6d 70 72 69  63 65 0d 0d 20 10 70 6f  |ell*mprice.. .po|
00001c70  73 3d b1 3a 76 70 6f 73  3d bc 0d 0d 2a 0b f2 77  |s=.:vpos=...*..w|
00001c80  69 6e 6f 66 66 0d 0d 34  13 f1 20 8a 31 31 2c 35  |inoff..4.. .11,5|
00001c90  29 3b 6d 6f 6e 65 79 3b  0d 0d 3e 0e f2 63 6c 65  |);money;..>..cle|
00001ca0  61 72 28 31 39 29 0d 0d  48 24 f1 20 8a 32 37 2c  |ar(19)..H$. .27,|
00001cb0  34 29 3b 6d 69 6e 65 73  3b 22 2f 22 3b 6d 69 6e  |4);mines;"/";min|
00001cc0  65 73 2b 63 6c 6f 73 65  64 3b 0d 0d 52 0e f2 63  |es+closed;..R..c|
00001cd0  6c 65 61 72 28 33 39 29  0d 0d 5c 0a f2 77 69 6e  |lear(39)..\..win|
00001ce0  6f 6e 0d 0d 66 10 f1 8a  70 6f 73 2c 76 70 6f 73  |on..f...pos,vpos|
00001cf0  29 3b 0d 0d 70 20 f1 27  22 48 6f 77 20 6d 61 6e  |);..p .'"How man|
00001d00  79 20 6d 69 6e 65 73 20  74 6f 20 63 6c 6f 73 65  |y mines to close|
00001d10  3f 22 0d 0d 7a 1b 63 6c  6f 73 69 6e 67 3d a4 76  |?"..z.closing=.v|
00001d20  61 72 28 30 2c 6d 69 6e  65 73 2d 31 29 0d 0d 84  |ar(0,mines-1)...|
00001d30  17 6d 69 6e 65 73 3d 6d  69 6e 65 73 2d 63 6c 6f  |.mines=mines-clo|
00001d40  73 69 6e 67 0d 0d 8e 19  63 6c 6f 73 65 64 3d 63  |sing....closed=c|
00001d50  6c 6f 73 65 64 2b 63 6c  6f 73 69 6e 67 0d 0d 98  |losed+closing...|
00001d60  10 70 6f 73 3d b1 3a 76  70 6f 73 3d bc 0d 0d a2  |.pos=.:vpos=....|
00001d70  0b f2 77 69 6e 6f 66 66  0d 0d ac 24 f1 20 8a 32  |..winoff...$. .2|
00001d80  37 2c 34 29 3b 6d 69 6e  65 73 3b 22 2f 22 3b 6d  |7,4);mines;"/";m|
00001d90  69 6e 65 73 2b 63 6c 6f  73 65 64 3b 0d 0d b6 0e  |ines+closed;....|
00001da0  f2 63 6c 65 61 72 28 33  39 29 0d 0d c0 0a f2 77  |.clear(39).....w|
00001db0  69 6e 6f 6e 0d 0d ca 05  e1 0d 0d d4 05 20 0d 0d  |inon......... ..|
00001dc0  de 0d dd 20 f2 62 75 79  69 6e 67 0d 0d e8 05 db  |... .buying.....|
00001dd0  0d 0d f2 12 f1 20 22 4f  52 45 20 42 55 59 49 4e  |..... "ORE BUYIN|
00001de0  47 22 0d 0d fc 1c f1 27  22 48 6f 77 20 6d 75 63  |G".....'"How muc|
00001df0  68 20 6f 72 65 20 74 6f  20 62 75 79 3f 22 0d 0e  |h ore to buy?"..|
00001e00  06 1e 6f 62 75 79 3d a4  76 61 72 28 30 2c 6d 6f  |..obuy=.var(0,mo|
00001e10  6e 65 79 20 81 6f 70 72  69 63 65 29 0d 0e 10 1f  |ney .oprice)....|
00001e20  f1 20 8a a9 28 c3 28 6f  62 75 79 29 29 2b 33 2c  |. ..(.(obuy))+3,|
00001e30  bc 2d 31 29 20 22 74 6f  6e 73 22 0d 0e 1a 14 73  |.-1) "tons"....s|
00001e40  74 6f 72 65 3d 73 74 6f  72 65 2b 6f 62 75 79 0d  |tore=store+obuy.|
00001e50  0e 24 1b 6d 6f 6e 65 79  3d 6d 6f 6e 65 79 2d 6f  |.$.money=money-o|
00001e60  62 75 79 2a 6f 70 72 69  63 65 0d 0e 2e 10 70 6f  |buy*oprice....po|
00001e70  73 3d b1 3a 76 70 6f 73  3d bc 0d 0e 38 0b f2 77  |s=.:vpos=...8..w|
00001e80  69 6e 6f 66 66 0d 0e 42  13 f1 20 8a 31 31 2c 35  |inoff..B.. .11,5|
00001e90  29 3b 6d 6f 6e 65 79 3b  0d 0e 4c 0e f2 63 6c 65  |);money;..L..cle|
00001ea0  61 72 28 31 39 29 0d 0e  56 1b f1 20 8a 31 36 2c  |ar(19)..V.. .16,|
00001eb0  38 29 3b 73 74 6f 72 65  3b 22 20 74 6f 6e 73 22  |8);store;" tons"|
00001ec0  3b 0d 0e 60 0e f2 63 6c  65 61 72 28 33 39 29 0d  |;..`..clear(39).|
00001ed0  0e 6a 0a f2 77 69 6e 6f  6e 0d 0e 74 11 f1 20 8a  |.j..winon..t.. .|
00001ee0  70 6f 73 2c 76 70 6f 73  29 3b 0d 0e 7e 05 db 0d  |pos,vpos);..~...|
00001ef0  0e 88 14 f1 20 22 4d 49  4e 45 20 42 55 59 49 4e  |.... "MINE BUYIN|
00001f00  47 22 27 0d 0e 92 22 f1  22 48 6f 77 20 6d 61 6e  |G"'..."."How man|
00001f10  79 20 6d 6f 72 65 20 6d  69 6e 65 73 20 74 6f 20  |y more mines to |
00001f20  62 75 79 3f 22 0d 0e 9c  1e 6d 62 75 79 3d a4 76  |buy?"....mbuy=.v|
00001f30  61 72 28 30 2c 6d 6f 6e  65 79 20 81 6d 70 72 69  |ar(0,money .mpri|
00001f40  63 65 29 0d 0e a6 14 6d  69 6e 65 73 3d 6d 69 6e  |ce)....mines=min|
00001f50  65 73 2b 6d 62 75 79 0d  0e b0 1b 6d 6f 6e 65 79  |es+mbuy....money|
00001f60  3d 6d 6f 6e 65 79 2d 6d  62 75 79 2a 6d 70 72 69  |=money-mbuy*mpri|
00001f70  63 65 0d 0e ba 10 70 6f  73 3d b1 3a 76 70 6f 73  |ce....pos=.:vpos|
00001f80  3d bc 0d 0e c4 0b f2 77  69 6e 6f 66 66 0d 0e ce  |=......winoff...|
00001f90  13 f1 20 8a 31 31 2c 35  29 3b 6d 6f 6e 65 79 3b  |.. .11,5);money;|
00001fa0  0d 0e d8 0e f2 63 6c 65  61 72 28 31 39 29 0d 0e  |.....clear(19)..|
00001fb0  e2 24 f1 20 8a 32 37 2c  34 29 3b 6d 69 6e 65 73  |.$. .27,4);mines|
00001fc0  3b 22 2f 22 3b 6d 69 6e  65 73 2b 63 6c 6f 73 65  |;"/";mines+close|
00001fd0  64 3b 0d 0e ec 0e f2 63  6c 65 61 72 28 33 39 29  |d;.....clear(39)|
00001fe0  0d 0e f6 0a f2 77 69 6e  6f 6e 0d 0f 00 11 f1 20  |.....winon..... |
00001ff0  8a 70 6f 73 2c 76 70 6f  73 29 3b 0d 0f 0a 21 f1  |.pos,vpos);...!.|
00002000  27 22 48 6f 77 20 6d 61  6e 79 20 6d 69 6e 65 73  |'"How many mines|
00002010  20 74 6f 20 72 65 6f 70  65 6e 3f 22 0d 0f 14 1a  | to reopen?"....|
00002020  6f 70 65 6e 69 6e 67 3d  a4 76 61 72 28 30 2c 63  |opening=.var(0,c|
00002030  6c 6f 73 65 64 29 0d 0f  1e 17 6d 69 6e 65 73 3d  |losed)....mines=|
00002040  6d 69 6e 65 73 2b 6f 70  65 6e 69 6e 67 0d 0f 28  |mines+opening..(|
00002050  19 63 6c 6f 73 65 64 3d  63 6c 6f 73 65 64 2d 6f  |.closed=closed-o|
00002060  70 65 6e 69 6e 67 0d 0f  32 10 70 6f 73 3d b1 3a  |pening..2.pos=.:|
00002070  76 70 6f 73 3d bc 0d 0f  3c 0b f2 77 69 6e 6f 66  |vpos=...<..winof|
00002080  66 0d 0f 46 24 f1 20 8a  32 37 2c 34 29 3b 6d 69  |f..F$. .27,4);mi|
00002090  6e 65 73 3b 22 2f 22 3b  6d 69 6e 65 73 2b 63 6c  |nes;"/";mines+cl|
000020a0  6f 73 65 64 3b 0d 0f 50  0e f2 63 6c 65 61 72 28  |osed;..P..clear(|
000020b0  33 39 29 0d 0f 5a 0a f2  77 69 6e 6f 6e 0d 0f 64  |39)..Z..winon..d|
000020c0  05 e1 0d 0f 6e 05 20 0d  0f 78 0b dd 20 f2 77 6f  |....n. ..x.. .wo|
000020d0  72 6b 0d 0f 82 05 db 0d  0f 8c 1f f1 20 22 59 45  |rk.......... "YE|
000020e0  41 52 4c 59 20 50 41 59  4f 55 54 20 53 45 4c 45  |ARLY PAYOUT SELE|
000020f0  43 54 49 4f 4e 22 0d 0f  96 22 f1 27 22 48 6f 77  |CTION"...".'"How|
00002100  20 6d 75 63 68 20 74 6f  20 73 70 65 6e 64 20 6f  | much to spend o|
00002110  6e 20 66 6f 6f 64 3f 22  0d 0f a0 1c 66 74 65 6d  |n food?"....ftem|
00002120  70 3d a4 76 61 72 28 30  2c 70 65 6f 70 6c 65 2a  |p=.var(0,people*|
00002130  35 30 30 29 0d 0f aa 2c  e7 20 66 74 65 6d 70 3d  |500)...,. ftemp=|
00002140  30 20 f1 20 8a 32 2c bc  2d 31 29 3b a8 28 66 62  |0 . .2,.-1);.(fb|
00002150  75 79 29 20 8b 20 66 62  75 79 3d 66 74 65 6d 70  |uy) . fbuy=ftemp|
00002160  0d 0f b4 21 f1 20 8a a9  28 c3 28 66 62 75 79 29  |...!. ..(.(fbuy)|
00002170  29 2b 33 2c bc 2d 31 29  22 63 72 65 64 69 74 73  |)+3,.-1)"credits|
00002180  22 0d 0f be 2f f1 27 22  4d 6f 6e 65 79 20 6c 65  |".../.'"Money le|
00002190  66 74 20 61 66 74 65 72  20 66 6f 6f 64 3a 20 43  |ft after food: C|
000021a0  72 22 3b a8 28 6d 6f 6e  65 79 2d 66 62 75 79 29  |r";.(money-fbuy)|
000021b0  0d 0f c8 31 f1 20 22 46  6f 6f 64 20 62 75 64 67  |...1. "Food budg|
000021c0  65 74 20 70 65 72 20 70  65 72 73 6f 6e 3a 20 43  |et per person: C|
000021d0  72 22 3b a8 28 66 62 75  79 2f 70 65 6f 70 6c 65  |r";.(fbuy/people|
000021e0  29 0d 0f d2 0d 64 75 6d  6d 79 3d a5 3a db 0d 0f  |)....dummy=.:...|
000021f0  dc 24 f1 20 22 48 6f 77  20 6d 75 63 68 20 74 6f  |.$. "How much to|
00002200  20 73 70 65 6e 64 20 6f  6e 20 73 61 6c 61 72 79  | spend on salary|
00002210  3f 22 0d 0f e6 1b 73 74  65 6d 70 3d a4 76 61 72  |?"....stemp=.var|
00002220  28 30 2c 70 65 6f 70 6c  65 2a 35 30 29 0d 0f f0  |(0,people*50)...|
00002230  17 e7 20 73 74 65 6d 70  3e 30 20 73 61 6c 3d 73  |.. stemp>0 sal=s|
00002240  74 65 6d 70 0d 0f fa 1e  e7 20 73 74 65 6d 70 3d  |temp..... stemp=|
00002250  30 20 f1 20 8a 32 2c bc  2d 31 29 3b a8 28 73 61  |0 . .2,.-1);.(sa|
00002260  6c 29 0d 10 04 20 f1 20  8a a9 28 c3 28 73 61 6c  |l)... . ..(.(sal|
00002270  29 29 2b 33 2c bc 2d 31  29 22 63 72 65 64 69 74  |))+3,.-1)"credit|
00002280  73 22 0d 10 0e 30 f1 27  22 4d 6f 6e 65 79 20 6c  |s"...0.'"Money l|
00002290  65 66 74 20 61 66 74 65  72 20 73 61 6c 61 72 79  |eft after salary|
000022a0  3a 20 43 72 22 3b a8 28  6d 6f 6e 65 79 2d 73 61  |: Cr";.(money-sa|
000022b0  6c 29 0d 10 18 2b f1 20  22 53 61 6c 61 72 79 20  |l)...+. "Salary |
000022c0  70 65 72 20 70 65 72 73  6f 6e 3a 20 43 72 22 3b  |per person: Cr";|
000022d0  a8 28 73 61 6c 2f 70 65  6f 70 6c 65 29 0d 10 22  |.(sal/people).."|
000022e0  0d 64 75 6d 6d 79 3d a5  3a db 0d 10 2c 1a f1 20  |.dummy=.:...,.. |
000022f0  22 45 4d 50 4c 4f 59 4d  45 4e 54 20 53 45 43 54  |"EMPLOYMENT SECT|
00002300  49 4f 4e 22 0d 10 36 25  f1 27 22 52 65 63 72 75  |ION"..6%.'"Recru|
00002310  69 74 20 68 6f 77 20 6d  61 6e 79 20 6e 65 77 20  |it how many new |
00002320  77 6f 72 6b 65 72 73 3f  22 0d 10 40 12 f1 20 22  |workers?"..@.. "|
00002330  4d 61 78 3a 20 22 3b 65  6d 70 6c 0d 10 4a 14 72  |Max: ";empl..J.r|
00002340  65 63 3d a4 76 61 72 28  30 2c 65 6d 70 6c 29 0d  |ec=.var(0,empl).|
00002350  10 54 15 70 65 6f 70 6c  65 3d 70 65 6f 70 6c 65  |.T.people=people|
00002360  2b 72 65 63 0d 10 5e 11  65 6d 70 6c 3d 65 6d 70  |+rec..^.empl=emp|
00002370  6c 2d 72 65 63 0d 10 68  23 66 62 75 79 3d 28 66  |l-rec..h#fbuy=(f|
00002380  62 75 79 2f 28 70 65 6f  70 6c 65 2d 72 65 63 29  |buy/(people-rec)|
00002390  29 2a 70 65 6f 70 6c 65  0d 10 72 21 73 61 6c 3d  |)*people..r!sal=|
000023a0  28 73 61 6c 2f 28 70 65  6f 70 6c 65 2d 72 65 63  |(sal/(people-rec|
000023b0  29 29 2a 70 65 6f 70 6c  65 0d 10 7c 10 70 6f 73  |))*people..|.pos|
000023c0  3d b1 3a 76 70 6f 73 3d  bc 0d 10 86 0b f2 77 69  |=.:vpos=......wi|
000023d0  6e 6f 66 66 0d 10 90 1f  f1 20 8a 31 31 2c 34 29  |noff..... .11,4)|
000023e0  3b 70 65 6f 70 6c 65 3b  3a f2 63 6c 65 61 72 28  |;people;:.clear(|
000023f0  31 39 29 0d 10 9a 0a f2  77 69 6e 6f 6e 0d 10 a4  |19).....winon...|
00002400  11 f1 20 8a 70 6f 73 2c  76 70 6f 73 29 3b 0d 10  |.. .pos,vpos);..|
00002410  ae 05 db 0d 10 b8 28 f1  20 22 4d 61 6b 65 20 68  |......(. "Make h|
00002420  6f 77 20 6d 61 6e 79 20  77 6f 72 6b 65 72 73 20  |ow many workers |
00002430  72 65 64 75 6e 64 61 6e  74 3f 22 0d 10 c2 18 72  |redundant?"....r|
00002440  65 64 3d a4 76 61 72 28  30 2c 70 65 6f 70 6c 65  |ed=.var(0,people|
00002450  2d 31 29 0d 10 cc 15 70  65 6f 70 6c 65 3d 70 65  |-1)....people=pe|
00002460  6f 70 6c 65 2d 72 65 64  0d 10 d6 11 65 6d 70 6c  |ople-red....empl|
00002470  3d 65 6d 70 6c 2b 72 65  64 0d 10 e0 23 66 62 75  |=empl+red...#fbu|
00002480  79 3d 28 66 62 75 79 2f  28 70 65 6f 70 6c 65 2b  |y=(fbuy/(people+|
00002490  72 65 64 29 29 2a 70 65  6f 70 6c 65 0d 10 ea 21  |red))*people...!|
000024a0  73 61 6c 3d 28 73 61 6c  2f 28 70 65 6f 70 6c 65  |sal=(sal/(people|
000024b0  2b 72 65 64 29 29 2a 70  65 6f 70 6c 65 0d 10 f4  |+red))*people...|
000024c0  10 70 6f 73 3d b1 3a 76  70 6f 73 3d bc 0d 10 fe  |.pos=.:vpos=....|
000024d0  0b f2 77 69 6e 6f 66 66  0d 11 08 1f f1 20 8a 31  |..winoff..... .1|
000024e0  31 2c 34 29 3b 70 65 6f  70 6c 65 3b 3a f2 63 6c  |1,4);people;:.cl|
000024f0  65 61 72 28 31 39 29 0d  11 12 0a f2 77 69 6e 6f  |ear(19).....wino|
00002500  6e 0d 11 1c 11 f1 20 8a  70 6f 73 2c 76 70 6f 73  |n..... .pos,vpos|
00002510  29 3b 0d 11 26 05 e1 0d  11 30 05 20 0d 11 3a 0a  |);..&....0. ..:.|
00002520  dd 20 a4 70 61 79 0d 11  44 1a e7 20 73 61 6c 2b  |. .pay..D.. sal+|
00002530  66 62 75 79 3c 3d 6d 6f  6e 65 79 20 8c 20 3d b9  |fbuy<=money . =.|
00002540  0d 11 4e 05 db 0d 11 58  32 f1 20 8a 30 2c 32 29  |..N....X2. .0,2)|
00002550  20 22 59 4f 55 20 44 4f  4e 27 54 20 48 41 56 45  | "YOU DON'T HAVE|
00002560  20 45 4e 4f 55 47 48 20  4d 4f 4e 45 59 20 54 4f  | ENOUGH MONEY TO|
00002570  20 43 4f 56 45 52 22 0d  11 62 2e f1 20 8a 32 2c  | COVER"..b.. .2,|
00002580  33 29 20 22 54 48 45 20  53 41 4c 41 52 49 45 53  |3) "THE SALARIES|
00002590  20 41 4e 44 20 54 48 45  20 46 4f 4f 44 20 42 55  | AND THE FOOD BU|
000025a0  44 47 45 54 22 0d 11 6c  20 f1 20 8a 39 2c 35 29  |DGET"..l . .9,5)|
000025b0  20 22 50 4c 45 41 53 45  20 52 45 2d 45 56 41 4c  | "PLEASE RE-EVAL|
000025c0  55 41 54 45 22 0d 11 76  1c f1 20 8a 31 31 2c 36  |UATE"..v.. .11,6|
000025d0  29 20 22 41 4e 44 20 54  52 59 20 41 47 41 49 4e  |) "AND TRY AGAIN|
000025e0  22 0d 11 80 06 ef 37 0d  11 8a 0b 64 75 6d 6d 79  |".....7....dummy|
000025f0  3d a5 0d 11 94 06 3d a3  0d 11 9e 05 20 0d 11 a8  |=.....=..... ...|
00002600  0a dd 20 a4 65 6e 64 0d  11 b2 15 67 6c 75 74 3d  |.. .end....glut=|
00002610  a3 3a 6f 73 61 74 3d 73  61 74 69 73 0d 11 bc 1a  |.:osat=satis....|
00002620  6d 6f 6e 65 79 3d 6d 6f  6e 65 79 2d 28 73 61 6c  |money=money-(sal|
00002630  2b 66 62 75 79 29 0d 11  c6 37 73 61 74 69 73 3d  |+fbuy)...7satis=|
00002640  73 61 74 69 73 2d 28 28  31 30 30 2d 28 66 62 75  |satis-((100-(fbu|
00002650  79 2f 70 65 6f 70 6c 65  29 29 2f 31 30 30 29 2b  |y/people))/100)+|
00002660  28 28 b3 28 33 29 2d 32  29 2f 31 30 29 0d 11 d0  |((.(3)-2)/10)...|
00002670  25 e7 20 73 61 6c 3c 31  30 20 80 20 b3 28 31 29  |%. sal<10 . .(1)|
00002680  3e 2e 36 20 73 61 74 69  73 3d 73 61 74 69 73 2d  |>.6 satis=satis-|
00002690  2e 31 0d 11 da 1b 65 6d  70 6c 3d 28 28 73 61 74  |.1....empl=((sat|
000026a0  69 73 2d 31 29 2a b3 28  31 30 30 29 29 0d 11 e4  |is-1)*.(100))...|
000026b0  23 65 6d 70 6c 3d a8 28  65 6d 70 6c 2b 28 b3 28  |#empl=.(empl+(.(|
000026c0  65 6d 70 6c 2f 32 29 2d  65 6d 70 6c 2f 34 29 29  |empl/2)-empl/4))|
000026d0  0d 11 ee 13 e7 20 65 6d  70 6c 3c 30 20 65 6d 70  |..... empl<0 emp|
000026e0  6c 3d 30 0d 11 f8 4a e7  20 73 61 74 69 73 3c 31  |l=0...J. satis<1|
000026f0  20 72 65 73 3d b3 28 28  31 2d 73 61 74 69 73 29  | res=.((1-satis)|
00002700  2a 31 30 30 29 3a 72 65  73 3d 72 65 73 2b b3 28  |*100):res=res+.(|
00002710  31 30 29 2d 35 3a 72 65  73 3d 72 65 73 2b b3 28  |10)-5:res=res+.(|
00002720  31 30 29 2d 35 20 8b 20  72 65 73 3d 30 0d 12 02  |10)-5 . res=0...|
00002730  2b e7 20 73 61 74 69 73  3e 31 20 80 20 73 61 74  |+. satis>1 . sat|
00002740  69 73 3c 32 20 80 20 b3  28 31 29 3e 2e 34 20 72  |is<2 . .(1)>.4 r|
00002750  65 73 3d b3 28 31 30 29  0d 12 0c 1b e7 20 72 65  |es=.(10)..... re|
00002760  73 3e 70 65 6f 70 6c 65  20 72 65 73 3d 70 65 6f  |s>people res=peo|
00002770  70 6c 65 0d 12 16 23 e7  20 73 61 74 69 73 3c 2e  |ple...#. satis<.|
00002780  33 20 80 20 b3 28 31 29  3e 2e 34 20 f2 72 65 76  |3 . .(1)>.4 .rev|
00002790  6f 6c 74 3a 3d b9 0d 12  20 1f e7 20 73 61 74 69  |olt:=... .. sati|
000027a0  73 3e 31 2e 31 20 70 72  6f 64 3d 70 72 6f 64 2b  |s>1.1 prod=prod+|
000027b0  b3 28 32 30 29 0d 12 2a  1f e7 20 73 61 74 69 73  |.(20)..*.. satis|
000027c0  3e 33 2e 31 20 70 72 6f  64 3d 70 72 6f 64 2b b3  |>3.1 prod=prod+.|
000027d0  28 32 30 29 0d 12 34 1e  e7 20 73 61 74 69 73 3c  |(20)..4.. satis<|
000027e0  2e 39 20 70 72 6f 64 3d  70 72 6f 64 2d b3 28 32  |.9 prod=prod-.(2|
000027f0  30 29 0d 12 3e 1e e7 20  73 61 74 69 73 3c 2e 35  |0)..>.. satis<.5|
00002800  20 70 72 6f 64 3d 70 72  6f 64 2d b3 28 32 30 29  | prod=prod-.(20)|
00002810  0d 12 48 13 e7 20 70 72  6f 64 3c 30 20 70 72 6f  |..H.. prod<0 pro|
00002820  64 3d 30 0d 12 52 2c e7  20 70 65 6f 70 6c 65 2f  |d=0..R,. people/|
00002830  6d 69 6e 65 73 3c 31 30  20 80 20 b3 28 31 29 3e  |mines<10 . .(1)>|
00002840  2e 35 20 f2 74 61 6b 65  6f 76 65 72 3a 3d b9 0d  |.5 .takeover:=..|
00002850  12 5c 17 e7 20 79 65 61  72 3d 32 35 34 30 20 f2  |.\.. year=2540 .|
00002860  77 69 6e 3a 3d b9 0d 12  66 12 6f 70 65 6f 70 6c  |win:=...f.opeopl|
00002870  65 3d 70 65 6f 70 6c 65  0d 12 70 14 e7 20 b3 28  |e=people..p.. .(|
00002880  31 29 3c 2e 30 32 20 f2  6c 65 61 6b 0d 12 7a 2f  |1)<.02 .leak..z/|
00002890  e7 20 70 72 6f 64 3e 31  35 30 2b 28 b3 28 32 30  |. prod>150+(.(20|
000028a0  29 2d 31 30 29 20 f2 67  6c 75 74 3a 67 6c 75 74  |)-10) .glut:glut|
000028b0  3d b9 20 8b 20 67 6c 75  74 3d a3 0d 12 84 0b f2  |=. . glut=......|
000028c0  75 70 64 61 74 65 0d 12  8e 0f 79 65 61 72 3d 79  |update....year=y|
000028d0  65 61 72 2b 31 0d 12 98  06 3d a3 0d 12 a2 05 20  |ear+1....=..... |
000028e0  0d 12 ac 0b dd 20 f2 6c  65 61 6b 0d 12 b6 05 db  |..... .leak.....|
000028f0  0d 12 c0 1b f1 20 22 45  4e 44 20 4f 46 20 59 45  |..... "END OF YE|
00002900  41 52 20 4d 45 53 53 41  47 45 22 0d 12 ca 19 f1  |AR MESSAGE".....|
00002910  27 22 52 61 64 69 6f 61  63 74 69 76 65 20 6c 65  |'"Radioactive le|
00002920  61 6b 21 22 0d 12 d4 16  70 65 6f 70 6c 65 3d a8  |ak!"....people=.|
00002930  28 70 65 6f 70 6c 65 2f  32 29 0d 12 de 2b 70 65  |(people/2)...+pe|
00002940  6f 70 6c 65 3d a8 28 70  65 6f 70 6c 65 2b 28 b3  |ople=.(people+(.|
00002950  28 70 65 6f 70 6c 65 2f  32 29 2d 70 65 6f 70 6c  |(people/2)-peopl|
00002960  65 2f 34 29 29 0d 12 e8  23 f1 27 22 43 61 73 75  |e/4))...#.'"Casu|
00002970  61 6c 74 69 65 73 3a 20  22 3b 6f 70 65 6f 70 6c  |alties: ";opeopl|
00002980  65 2d 70 65 6f 70 6c 65  0d 12 f2 1c f1 27 22 50  |e-people.....'"P|
00002990  65 6f 70 6c 65 20 6c 65  66 74 3a 20 22 3b 70 65  |eople left: ";pe|
000029a0  6f 70 6c 65 0d 12 fc 1e  66 62 75 79 3d 28 66 62  |ople....fbuy=(fb|
000029b0  75 79 2f 6f 70 65 6f 70  6c 65 29 2a 70 65 6f 70  |uy/opeople)*peop|
000029c0  6c 65 0d 13 06 1c 73 61  6c 3d 28 73 61 6c 2f 6f  |le....sal=(sal/o|
000029d0  70 65 6f 70 6c 65 29 2a  70 65 6f 70 6c 65 0d 13  |people)*people..|
000029e0  10 12 73 61 74 69 73 3d  73 61 74 69 73 2d 2e 31  |..satis=satis-.1|
000029f0  0d 13 1a 0b 64 75 6d 6d  79 3d a5 0d 13 24 05 e1  |....dummy=...$..|
00002a00  0d 13 2e 05 20 0d 13 38  0b dd 20 f2 67 6c 75 74  |.... ..8.. .glut|
00002a10  0d 13 42 05 db 0d 13 4c  1b f1 20 22 45 4e 44 20  |..B....L.. "END |
00002a20  4f 46 20 59 45 41 52 20  4d 45 53 53 41 47 45 22  |OF YEAR MESSAGE"|
00002a30  0d 13 56 14 f1 27 22 4d  61 72 6b 65 74 20 67 6c  |..V..'"Market gl|
00002a40  75 74 21 22 0d 13 60 16  6f 70 72 69 63 65 3d a8  |ut!"..`.oprice=.|
00002a50  28 6f 70 72 69 63 65 2f  32 29 0d 13 6a 2b 6f 70  |(oprice/2)..j+op|
00002a60  72 69 63 65 3d a8 28 6f  70 72 69 63 65 2b 28 b3  |rice=.(oprice+(.|
00002a70  28 6f 70 72 69 63 65 2f  32 29 2d 6f 70 72 69 63  |(oprice/2)-opric|
00002a80  65 2f 34 29 29 0d 13 74  12 70 72 6f 64 3d a8 28  |e/4))..t.prod=.(|
00002a90  70 72 6f 64 2f 32 29 0d  13 7e 23 70 72 6f 64 3d  |prod/2)..~#prod=|
00002aa0  a8 28 70 72 6f 64 2b 28  b3 28 70 72 6f 64 2f 32  |.(prod+(.(prod/2|
00002ab0  29 2d 70 72 6f 64 2f 34  29 29 0d 13 88 20 f1 27  |)-prod/4))... .'|
00002ac0  22 50 72 69 63 65 20 64  72 6f 70 73 20 74 6f 20  |"Price drops to |
00002ad0  43 72 22 3b 6f 70 72 69  63 65 0d 13 92 2c f1 20  |Cr";oprice...,. |
00002ae0  22 50 72 6f 64 75 63 74  69 6f 6e 20 63 75 74 20  |"Production cut |
00002af0  74 6f 20 22 3b 70 72 6f  64 3b 22 20 74 6f 6e 73  |to ";prod;" tons|
00002b00  2f 6d 69 6e 65 22 0d 13  9c 0b 64 75 6d 6d 79 3d  |/mine"....dummy=|
00002b10  a5 0d 13 a6 05 e1 0d 13  b0 05 20 0d 13 ba 0d dd  |.......... .....|
00002b20  20 f2 75 70 64 61 74 65  0d 13 c4 05 db 0d 13 ce  | .update........|
00002b30  1a f1 20 22 45 4e 44 20  4f 46 20 59 45 41 52 20  |.. "END OF YEAR |
00002b40  55 50 44 41 54 45 22 0d  13 d8 23 f1 27 22 4e 75  |UPDATE"...#.'"Nu|
00002b50  6d 62 65 72 20 6f 66 20  77 6f 72 6b 65 72 73 3a  |mber of workers:|
00002b60  20 22 3b 6f 70 65 6f 70  6c 65 0d 13 e2 25 e7 20  | ";opeople...%. |
00002b70  72 65 73 3e 31 20 f1 3b  72 65 73 3b 22 20 77 6f  |res>1 .;res;" wo|
00002b80  72 6b 65 72 73 20 72 65  73 69 67 6e 65 64 22 0d  |rkers resigned".|
00002b90  13 ec 21 e7 20 72 65 73  3d 31 20 f1 20 22 31 20  |..!. res=1 . "1 |
00002ba0  77 6f 72 6b 65 72 20 72  65 73 69 67 6e 65 64 22  |worker resigned"|
00002bb0  0d 13 f6 23 e7 20 72 65  73 3d 30 20 f1 20 22 4e  |...#. res=0 . "N|
00002bc0  6f 20 77 6f 72 6b 65 72  73 20 72 65 73 69 67 6e  |o workers resign|
00002bd0  65 64 22 0d 14 00 34 e7  20 65 6d 70 6c 3e 31 20  |ed"...4. empl>1 |
00002be0  f1 3b 65 6d 70 6c 3b 22  20 70 65 6f 70 6c 65 20  |.;empl;" people |
00002bf0  72 65 71 75 65 73 74 20  77 6f 72 6b 20 61 74 20  |request work at |
00002c00  22 3b 63 6f 6d 70 24 0d  14 0a 32 e7 20 65 6d 70  |";comp$...2. emp|
00002c10  6c 3d 31 20 f1 20 22 31  20 70 65 72 73 6f 6e 20  |l=1 . "1 person |
00002c20  72 65 71 75 65 73 74 73  20 61 20 6a 6f 62 20 61  |requests a job a|
00002c30  74 20 22 3b 63 6f 6d 70  24 0d 14 14 2c e7 20 65  |t ";comp$...,. e|
00002c40  6d 70 6c 3d 30 20 f1 20  22 4e 6f 20 70 65 6f 70  |mpl=0 . "No peop|
00002c50  6c 65 20 61 73 6b 20 66  6f 72 20 76 61 63 61 6e  |le ask for vacan|
00002c60  63 69 65 73 22 0d 14 1e  22 f1 20 8a 30 2c 35 29  |cies"...". .0,5)|
00002c70  20 22 53 61 74 69 73 66  61 63 74 69 6f 6e 20 66  | "Satisfaction f|
00002c80  61 63 74 6f 72 22 3b 0d  14 28 1d e7 20 73 61 74  |actor";..(.. sat|
00002c90  69 73 3e 6f 73 61 74 20  f1 20 22 20 75 70 20 74  |is>osat . " up t|
00002ca0  6f 20 22 3b 0d 14 32 20  e7 20 73 61 74 69 73 3d  |o ";..2 . satis=|
00002cb0  6f 73 61 74 20 f1 20 22  20 73 74 61 79 73 20 61  |osat . " stays a|
00002cc0  74 20 22 3b 0d 14 3c 20  e7 20 73 61 74 69 73 3c  |t ";..< . satis<|
00002cd0  6f 73 61 74 20 f1 20 22  20 66 61 6c 6c 73 20 74  |osat . " falls t|
00002ce0  6f 20 22 3b 0d 14 46 12  f1 20 c0 c3 28 73 61 74  |o ";..F.. ..(sat|
00002cf0  69 73 29 2c 33 29 0d 14  50 15 70 65 6f 70 6c 65  |is),3)..P.people|
00002d00  3d 70 65 6f 70 6c 65 2d  72 65 73 0d 14 5a 23 66  |=people-res..Z#f|
00002d10  62 75 79 3d 28 66 62 75  79 2f 28 70 65 6f 70 6c  |buy=(fbuy/(peopl|
00002d20  65 2b 72 65 73 29 29 2a  70 65 6f 70 6c 65 0d 14  |e+res))*people..|
00002d30  64 21 73 61 6c 3d 28 73  61 6c 2f 28 70 65 6f 70  |d!sal=(sal/(peop|
00002d40  6c 65 2b 72 65 73 29 29  2a 70 65 6f 70 6c 65 0d  |le+res))*people.|
00002d50  14 6e 33 f1 20 22 57 6f  72 6b 65 72 73 20 63 61  |.n3. "Workers ca|
00002d60  72 72 69 65 64 20 74 6f  20 79 65 61 72 20 22 3b  |rried to year ";|
00002d70  79 65 61 72 2b 31 3b 22  3a 20 22 3b 70 65 6f 70  |year+1;": ";peop|
00002d80  6c 65 0d 14 78 2c e7 20  65 6d 70 6c 3d 30 20 f1  |le..x,. empl=0 .|
00002d90  20 22 57 6f 72 6b 66 6f  72 63 65 20 63 61 6e 6e  | "Workforce cann|
00002da0  6f 74 20 62 65 20 62 6f  6f 73 74 65 64 22 0d 14  |ot be boosted"..|
00002db0  82 39 e7 20 65 6d 70 6c  3e 30 20 f1 20 22 57 6f  |.9. empl>0 . "Wo|
00002dc0  72 6b 66 6f 72 63 65 20  63 61 6e 20 62 65 20 62  |rkforce can be b|
00002dd0  6f 6f 73 74 65 64 20 74  6f 20 22 3b 70 65 6f 70  |oosted to ";peop|
00002de0  6c 65 2b 65 6d 70 6c 0d  14 8c 0b 64 75 6d 6d 79  |le+empl....dummy|
00002df0  3d a5 0d 14 96 05 e1 0d  14 a0 05 20 0d 14 aa 0d  |=.......... ....|
00002e00  dd 20 f2 72 65 76 6f 6c  74 0d 14 b4 05 db 0d 14  |. .revolt.......|
00002e10  be 1b f1 20 22 45 4e 44  20 4f 46 20 59 45 41 52  |... "END OF YEAR|
00002e20  20 4d 45 53 53 41 47 45  22 0d 14 c8 20 f1 27 22  | MESSAGE"... .'"|
00002e30  54 68 65 72 65 20 68 61  73 20 62 65 65 6e 20 61  |There has been a|
00002e40  20 72 65 76 6f 6c 74 21  22 0d 14 d2 28 f1 20 22  | revolt!"...(. "|
00002e50  54 68 65 20 67 6f 76 65  72 6e 6d 65 6e 74 20 68  |The government h|
00002e60  61 73 20 62 65 65 6e 20  69 6e 66 6f 72 6d 65 64  |as been informed|
00002e70  22 0d 14 dc 2a f1 20 22  6f 66 20 70 6f 6f 72 20  |"...*. "of poor |
00002e80  6c 69 76 69 6e 67 20 73  74 61 6e 64 61 72 64 73  |living standards|
00002e90  2c 20 61 6e 64 20 68 61  76 65 22 0d 14 e6 23 f1  |, and have"...#.|
00002ea0  20 22 74 61 6b 65 6e 20  6f 77 6e 65 72 73 68 69  | "taken ownershi|
00002eb0  70 20 6f 66 20 22 3b 63  6f 6d 70 24 3b 22 0d 14  |p of ";comp$;"..|
00002ec0  f0 11 f1 27 22 42 41 44  20 4c 55 43 4b 21 22 0d  |...'"BAD LUCK!".|
00002ed0  14 fa 0b 64 75 6d 6d 79  3d a5 0d 15 04 05 e1 0d  |...dummy=.......|
00002ee0  15 0e 05 20 0d 15 18 0f  dd 20 f2 74 61 6b 65 6f  |... ..... .takeo|
00002ef0  76 65 72 0d 15 22 05 db  0d 15 2c 1b f1 20 22 45  |ver.."....,.. "E|
00002f00  4e 44 20 4f 46 20 59 45  41 52 20 4d 45 53 53 41  |ND OF YEAR MESSA|
00002f10  47 45 22 0d 15 36 23 f1  27 22 44 75 65 20 74 6f  |GE"..6#.'"Due to|
00002f20  20 65 78 63 65 73 73 69  76 65 20 6c 61 62 6f 75  | excessive labou|
00002f30  72 20 74 68 65 22 0d 15  40 2a f1 20 22 67 6f 76  |r the"..@*. "gov|
00002f40  65 72 6e 6d 65 6e 74 20  68 61 73 20 64 65 65 6d  |ernment has deem|
00002f50  65 64 20 69 74 20 6e 65  63 65 73 73 61 72 79 22  |ed it necessary"|
00002f60  0d 15 4a 22 f1 22 74 6f  20 74 61 6b 65 20 6f 77  |..J"."to take ow|
00002f70  6e 65 72 73 68 69 70 20  6f 66 20 22 3b 63 6f 6d  |nership of ";com|
00002f80  70 24 0d 15 54 11 f1 27  22 42 41 44 20 4c 55 43  |p$..T..'"BAD LUC|
00002f90  4b 21 22 0d 15 5e 0b 64  75 6d 6d 79 3d a5 0d 15  |K!"..^.dummy=...|
00002fa0  68 05 e1 0d 15 72 05 20  0d 15 7c 0a dd 20 f2 77  |h....r. ..|.. .w|
00002fb0  69 6e 0d 15 86 05 db 0d  15 90 2a f1 20 8a 34 2c  |in........*. .4,|
00002fc0  33 29 20 22 45 78 63 65  6c 6c 65 6e 74 20 2d 20  |3) "Excellent - |
00002fd0  59 6f 75 27 76 65 20 63  6f 6d 70 6c 65 74 65 64  |You've completed|
00002fe0  22 0d 15 9a 18 f1 20 8a  31 34 2c 35 29 20 22 74  |"..... .14,5) "t|
00002ff0  68 65 20 67 61 6d 65 21  22 0d 15 a4 0b 64 75 6d  |he game!"....dum|
00003000  6d 79 3d a5 0d 15 ae 0f  77 69 6e 3d b9 3a f2 73  |my=.....win=.:.s|
00003010  65 6c 6c 0d 15 b8 05 e1  0d 15 c2 05 20 0d 15 cc  |ell......... ...|
00003020  0b dd 20 f2 73 61 76 65  0d 15 d6 05 db 0d 15 e0  |.. .save........|
00003030  3b e7 20 77 70 3d b9 20  f1 20 8a 30 2c 34 29 20  |;. wp=. . .0,4) |
00003040  22 53 6f 72 72 79 20 2d  20 57 72 69 74 65 20 50  |"Sorry - Write P|
00003050  72 6f 74 65 63 74 20 41  63 74 69 76 65 22 3a 64  |rotect Active":d|
00003060  75 6d 6d 79 3d a5 3a e1  0d 15 ea 09 db 3a f5 3a  |ummy=.:......:.:|
00003070  f5 0d 15 f4 05 db 0d 15  fe 0e 72 65 73 70 6f 6e  |..........respon|
00003080  73 65 3d 30 0d 16 08 1f  f1 20 8a 30 2c 30 29 20  |se=0..... .0,0) |
00003090  22 53 41 56 45 20 47 41  4d 45 3a 20 22 3b 63 6f  |"SAVE GAME: ";co|
000030a0  6d 70 24 0d 16 12 0f e8  27 22 3d 3e 22 66 69 6c  |mp$.....'"=>"fil|
000030b0  65 24 0d 16 1c 11 fd 20  a9 28 66 69 6c 65 24 29  |e$..... .(file$)|
000030c0  3c 31 31 0d 16 26 35 e7  20 a9 28 66 69 6c 65 24  |<11..&5. .(file$|
000030d0  29 3d 30 20 f1 20 8a 32  2c bc 2d 31 29 20 22 64  |)=0 . .2,.-1) "d|
000030e0  65 66 61 75 6c 74 20 20  20 22 3a 66 69 6c 65 24  |efault   ":file$|
000030f0  3d 22 73 67 61 6d 65 22  0d 16 30 10 66 69 6c 65  |="sgame"..0.file|
00003100  3d 8e 20 66 69 6c 65 24  0d 16 3a 41 e7 66 69 6c  |=. file$..:A.fil|
00003110  65 3e 30 f1 27 22 46 69  6c 65 20 45 78 69 73 74  |e>0.'"File Exist|
00003120  73 3a 22 27 22 43 6f 6e  74 69 6e 75 65 3f 20 28  |s:"'"Continue? (|
00003130  59 2f 4e 29 22 3a 72 65  73 70 6f 6e 73 65 3d a7  |Y/N)":response=.|
00003140  22 59 79 4e 6e 22 2c be  29 0d 16 44 19 fd 20 72  |"YyNn",.)..D.. r|
00003150  65 73 70 6f 6e 73 65 3c  33 20 84 20 66 69 6c 65  |esponse<3 . file|
00003160  3d 30 0d 16 4e 0a 2a 43  4c 4f 53 45 0d 16 58 10  |=0..N.*CLOSE..X.|
00003170  66 69 6c 65 3d ae 20 66  69 6c 65 24 0d 16 62 16  |file=. file$..b.|
00003180  f1 23 20 66 69 6c 65 2c  63 6f 6d 70 24 2c 79 65  |.# file,comp$,ye|
00003190  61 72 0d 16 6c 18 f1 23  20 66 69 6c 65 2c 63 6c  |ar..l..# file,cl|
000031a0  6f 73 65 64 2c 73 74 6f  72 65 0d 16 76 17 f1 23  |osed,store..v..#|
000031b0  20 66 69 6c 65 2c 73 61  74 69 73 2c 6d 69 6e 65  | file,satis,mine|
000031c0  73 0d 16 80 18 f1 23 20  66 69 6c 65 2c 70 65 6f  |s.....# file,peo|
000031d0  70 6c 65 2c 6d 6f 6e 65  79 0d 16 8a 15 f1 23 20  |ple,money.....# |
000031e0  66 69 6c 65 2c 66 62 75  79 2c 65 6d 70 6c 0d 16  |file,fbuy,empl..|
000031f0  94 15 f1 23 20 66 69 6c  65 2c 70 72 6f 64 2c 67  |...# file,prod,g|
00003200  6c 75 74 0d 16 9e 15 f1  23 20 66 69 6c 65 2c 73  |lut.....# file,s|
00003210  61 6c 2c 73 74 6f 72 65  0d 16 a8 19 f1 23 20 66  |al,store.....# f|
00003220  69 6c 65 2c 6d 70 72 69  63 65 2c 6f 70 72 69 63  |ile,mprice,opric|
00003230  65 0d 16 b2 0b d9 23 20  66 69 6c 65 0d 16 bc 05  |e.....# file....|
00003240  e1 0d 16 c6 05 20 0d 16  d0 0b dd 20 f2 6c 6f 61  |..... ..... .loa|
00003250  64 0d 16 da 13 ef 20 32  38 2c 30 2c 32 31 2c 33  |d..... 28,0,21,3|
00003260  38 2c 31 38 0d 16 e4 07  f5 3a f5 0d 16 ee 05 db  |8,18.....:......|
00003270  0d 16 f8 13 66 69 6c 65  24 3d 22 22 3a 2a 43 4c  |....file$="":*CL|
00003280  4f 53 45 0d 17 02 1e e8  20 8a 30 2c 30 29 20 22  |OSE..... .0,0) "|
00003290  4c 6f 61 64 20 77 68 69  63 68 20 67 61 6d 65 3f  |Load which game?|
000032a0  22 0d 17 0c 29 f1 20 8a  30 2c 32 29 20 22 3d 3e  |"...). .0,2) "=>|
000032b0  22 3b 3a f2 63 6c 65 61  72 28 33 39 29 3a e8 20  |";:.clear(39):. |
000032c0  8a 32 2c 32 29 66 69 6c  65 24 0d 17 16 30 e7 20  |.2,2)file$...0. |
000032d0  a9 28 66 69 6c 65 24 29  3d 30 20 f1 20 8a 32 2c  |.(file$)=0 . .2,|
000032e0  32 29 20 22 64 65 66 61  75 6c 74 22 3a 66 69 6c  |2) "default":fil|
000032f0  65 24 3d 22 73 67 61 6d  65 22 0d 17 20 33 e7 20  |e$="sgame".. 3. |
00003300  a9 28 66 69 6c 65 24 29  3e 31 30 20 f1 20 8a 32  |.(file$)>10 . .2|
00003310  2c 32 29 3b 3a f2 63 6c  65 61 72 28 33 39 29 3a  |,2);:.clear(39):|
00003320  fd 20 a9 28 66 69 6c 65  24 29 3c 31 30 0d 17 2a  |. .(file$)<10..*|
00003330  10 66 69 6c 65 3d 8e 20  66 69 6c 65 24 0d 17 34  |.file=. file$..4|
00003340  0c fd 20 66 69 6c 65 3e  30 0d 17 3e 66 e7 20 a2  |.. file>0..>f. .|
00003350  23 66 69 6c 65 3c 36 37  20 f1 20 8a 30 2c 32 29  |#file<67 . .0,2)|
00003360  20 22 3d 3e 45 52 52 4f  52 21 20 46 69 6c 65 20  | "=>ERROR! File |
00003370  27 22 3b 66 69 6c 65 24  3b 22 27 20 74 6f 6f 20  |'";file$;"' too |
00003380  73 68 6f 72 74 21 22 3b  3a f2 63 6c 65 61 72 28  |short!";:.clear(|
00003390  33 39 29 3a 64 75 6d 6d  79 3d a5 3a f1 20 8a 32  |39):dummy=.:. .2|
000033a0  2c 32 29 3b 3a f2 63 6c  65 61 72 28 33 39 29 0d  |,2);:.clear(39).|
000033b0  17 48 0f fd 20 a2 23 66  69 6c 65 3e 36 36 0d 17  |.H.. .#file>66..|
000033c0  52 17 e8 23 20 66 69 6c  65 2c 6f 63 6f 6d 70 24  |R..# file,ocomp$|
000033d0  2c 79 65 61 72 0d 17 5c  18 e8 23 20 66 69 6c 65  |,year..\..# file|
000033e0  2c 63 6c 6f 73 65 64 2c  73 74 6f 72 65 0d 17 66  |,closed,store..f|
000033f0  17 e8 23 20 66 69 6c 65  2c 73 61 74 69 73 2c 6d  |..# file,satis,m|
00003400  69 6e 65 73 0d 17 70 18  e8 23 20 66 69 6c 65 2c  |ines..p..# file,|
00003410  70 65 6f 70 6c 65 2c 6d  6f 6e 65 79 0d 17 7a 15  |people,money..z.|
00003420  e8 23 20 66 69 6c 65 2c  66 62 75 79 2c 65 6d 70  |.# file,fbuy,emp|
00003430  6c 0d 17 84 15 e8 23 20  66 69 6c 65 2c 70 72 6f  |l.....# file,pro|
00003440  64 2c 67 6c 75 74 0d 17  8e 15 e8 23 20 66 69 6c  |d,glut.....# fil|
00003450  65 2c 73 61 6c 2c 73 74  6f 72 65 0d 17 98 19 e8  |e,sal,store.....|
00003460  23 20 66 69 6c 65 2c 6d  70 72 69 63 65 2c 6f 70  |# file,mprice,op|
00003470  72 69 63 65 0d 17 a2 0b  d9 23 20 66 69 6c 65 0d  |rice.....# file.|
00003480  17 ac 0a 6c 6f 61 64 3d  b9 0d 17 b6 08 ef 20 32  |...load=...... 2|
00003490  36 0d 17 c0 09 f2 6e 61  6d 65 0d 17 ca 21 e7 20  |6.....name...!. |
000034a0  c0 63 6f 6d 70 24 2c 31  29 3d bd 20 33 32 20 63  |.comp$,1)=. 32 c|
000034b0  6f 6d 70 24 3d 6f 63 6f  6d 70 24 0d 17 d4 05 e1  |omp$=ocomp$.....|
000034c0  0d 17 de 05 20 0d 17 e8  0c dd 20 a4 76 61 6c 75  |.... ..... .valu|
000034d0  65 0d 17 f2 0a 63 61 73  68 3d 30 0d 17 fc 25 63  |e....cash=0...%c|
000034e0  61 73 68 3d 63 61 73 68  2b 28 28 6d 69 6e 65 73  |ash=cash+((mines|
000034f0  2b 63 6c 6f 73 65 64 29  2a 6d 70 72 69 63 65 29  |+closed)*mprice)|
00003500  0d 18 06 1c 63 61 73 68  3d 63 61 73 68 2b 28 73  |....cash=cash+(s|
00003510  74 6f 72 65 2a 6f 70 72  69 63 65 29 0d 18 10 17  |tore*oprice)....|
00003520  63 61 73 68 3d 63 61 73  68 2b 28 70 72 6f 64 2a  |cash=cash+(prod*|
00003530  37 35 29 0d 18 1a 19 63  61 73 68 3d 63 61 73 68  |75)....cash=cash|
00003540  2b 28 73 61 74 69 73 2a  31 30 30 29 0d 18 24 19  |+(satis*100)..$.|
00003550  63 61 73 68 3d 63 61 73  68 2b 28 70 65 6f 70 6c  |cash=cash+(peopl|
00003560  65 2a 32 30 29 0d 18 2e  13 63 61 73 68 3d 63 61  |e*20)....cash=ca|
00003570  73 68 2b 6d 6f 6e 65 79  0d 18 38 0c 3d a8 28 63  |sh+money..8.=.(c|
00003580  61 73 68 29 0d 18 42 05  20 0d 18 4c 0b dd 20 f2  |ash)..B. ..L.. .|
00003590  73 65 6c 6c 0d 18 56 0f  72 65 73 70 6f 6e 73 65  |sell..V.response|
000035a0  3d 38 39 0d 18 60 13 e7  20 ac 20 77 69 6e 20 f2  |=89..`.. . win .|
000035b0  64 6f 75 62 6c 65 0d 18  6a 24 e7 20 72 65 73 70  |double..j$. resp|
000035c0  6f 6e 73 65 3c 3e 38 39  20 80 20 72 65 73 70 6f  |onse<>89 . respo|
000035d0  6e 73 65 3c 3e 31 32 31  20 e1 0d 18 74 05 db 0d  |nse<>121 ...t...|
000035e0  18 7e 16 63 61 73 68 3d  a4 76 61 6c 75 65 3a 72  |.~.cash=.value:r|
000035f0  65 73 74 3d b9 0d 18 88  22 f1 20 8a 38 2c 33 29  |est=....". .8,3)|
00003600  20 22 59 6f 75 72 20 63  6f 6d 70 61 6e 79 20 69  | "Your company i|
00003610  73 20 73 6f 6c 64 22 0d  18 92 2f f1 20 8a 31 32  |s sold".../. .12|
00003620  2d 28 a9 28 c3 28 63 61  73 68 29 29 2f 32 29 2c  |-(.(.(cash))/2),|
00003630  35 29 22 49 74 20 66 65  74 63 68 65 73 20 43 72  |5)"It fetches Cr|
00003640  22 3b 63 61 73 68 0d 18  9c 0b 64 75 6d 6d 79 3d  |";cash....dummy=|
00003650  a5 0d 18 a6 05 db 0d 18  b0 15 e7 20 77 70 3d b9  |........... wp=.|
00003660  20 f2 61 70 6f 6c 6f 67  79 3a e1 0d 18 ba 69 e7  | .apology:....i.|
00003670  20 63 61 73 68 3c 68 69  28 35 29 20 f1 20 8a 34  | cash<hi(5) . .4|
00003680  2c 33 29 20 22 55 6e 66  6f 72 74 75 6e 61 74 65  |,3) "Unfortunate|
00003690  6c 79 20 79 6f 75 20 64  6f 20 6e 6f 74 20 77 69  |ly you do not wi|
000036a0  6e 22 3b 8a 33 2c 35 29  3b 22 61 20 70 6c 61 63  |n";.3,5);"a plac|
000036b0  65 20 69 6e 20 74 68 65  20 68 69 67 68 20 73 63  |e in the high sc|
000036c0  6f 72 65 20 74 61 62 6c  65 22 3a 64 75 6d 6d 79  |ore table":dummy|
000036d0  3d a5 3a e1 0d 18 c4 2f  f1 20 8a 32 2c 33 29 20  |=.:..../. .2,3) |
000036e0  22 43 6f 6e 67 72 61 74  75 6c 61 74 69 6f 6e 73  |"Congratulations|
000036f0  20 2d 20 79 6f 75 20 77  69 6e 20 61 20 70 6c 61  | - you win a pla|
00003700  63 65 22 0d 18 ce 25 f1  20 8a 37 2c 35 29 20 22  |ce"...%. .7,5) "|
00003710  69 6e 20 74 68 65 20 68  69 67 68 20 73 63 6f 72  |in the high scor|
00003720  65 20 74 61 62 6c 65 22  0d 18 d8 09 f2 73 6f 72  |e table".....sor|
00003730  74 0d 18 e2 0d f2 6e 65  77 74 61 62 6c 65 0d 18  |t.....newtable..|
00003740  ec 05 e1 0d 18 f6 05 20  0d 19 00 0d dd 20 f2 64  |....... ..... .d|
00003750  6f 75 62 6c 65 0d 19 0a  1b f1 20 8a 31 32 2c 33  |ouble..... .12,3|
00003760  29 20 22 52 45 41 4c 4c  59 20 53 45 4c 4c 3f 22  |) "REALLY SELL?"|
00003770  0d 19 14 1b f1 20 8a 31  32 2c 35 29 20 22 50 72  |..... .12,5) "Pr|
00003780  65 73 73 20 59 20 6f 72  20 4e 22 0d 19 1e 0e 72  |ess Y or N"....r|
00003790  65 73 70 6f 6e 73 65 3d  a5 0d 19 28 05 e1 0d 19  |esponse=...(....|
000037a0  32 05 20 0d 19 3c 0e dd  20 f2 61 70 6f 6c 6f 67  |2. ..<.. .apolog|
000037b0  79 0d 19 46 2c f1 20 8a  33 2c 33 29 20 22 53 6f  |y..F,. .3,3) "So|
000037c0  72 72 79 20 62 75 74 20  79 6f 75 72 20 73 63 6f  |rry but your sco|
000037d0  72 65 20 63 61 6e 6e 6f  74 20 62 65 22 0d 19 50  |re cannot be"..P|
000037e0  28 f1 20 8a 35 2c 35 29  20 22 73 61 76 65 64 3b  |(. .5,5) "saved;|
000037f0  20 57 72 69 74 65 20 50  72 6f 74 65 63 74 20 69  | Write Protect i|
00003800  73 20 6f 6e 22 0d 19 5a  0b 64 75 6d 6d 79 3d a5  |s on"..Z.dummy=.|
00003810  0d 19 64 05 e1 0d 19 6e  05 20 0d 19 78 0b dd 20  |..d....n. ..x.. |
00003820  f2 73 6f 72 74 0d 19 82  1d 68 69 28 35 29 3d 63  |.sort....hi(5)=c|
00003830  61 73 68 3a 63 6e 61 6d  24 28 35 29 3d 63 6f 6d  |ash:cnam$(5)=com|
00003840  70 24 0d 19 8c 14 e3 20  73 77 61 70 3d 35 20 b8  |p$..... swap=5 .|
00003850  20 32 20 88 2d 31 0d 19  96 21 e7 20 68 69 28 73  | 2 .-1...!. hi(s|
00003860  77 61 70 29 3c 3d 68 69  28 73 77 61 70 2d 31 29  |wap)<=hi(swap-1)|
00003870  20 ed 20 73 77 61 70 0d  19 a0 0e e7 20 73 77 61  | . swap..... swa|
00003880  70 3d 31 20 e1 0d 19 aa  23 74 65 6d 70 3d 68 69  |p=1 ....#temp=hi|
00003890  28 73 77 61 70 29 3a 74  65 6d 70 24 3d 63 6e 61  |(swap):temp$=cna|
000038a0  6d 24 28 73 77 61 70 29  0d 19 b4 17 68 69 28 73  |m$(swap)....hi(s|
000038b0  77 61 70 29 3d 68 69 28  73 77 61 70 2d 31 29 0d  |wap)=hi(swap-1).|
000038c0  19 be 1d 63 6e 61 6d 24  28 73 77 61 70 29 3d 63  |...cnam$(swap)=c|
000038d0  6e 61 6d 24 28 73 77 61  70 2d 31 29 0d 19 c8 13  |nam$(swap-1)....|
000038e0  68 69 28 73 77 61 70 2d  31 29 3d 74 65 6d 70 0d  |hi(swap-1)=temp.|
000038f0  19 d2 17 63 6e 61 6d 24  28 73 77 61 70 2d 31 29  |...cnam$(swap-1)|
00003900  3d 74 65 6d 70 24 0d 19  dc 0a ed 20 73 77 61 70  |=temp$..... swap|
00003910  0d 19 e6 05 e1 0d 19 f0  05 20 0d 19 fa 0f dd 20  |......... ..... |
00003920  f2 6e 65 77 74 61 62 6c  65 0d 1a 04 0a 2a 43 4c  |.newtable....*CL|
00003930  4f 53 45 0d 1a 0e 14 66  69 6c 65 3d ae 20 22 68  |OSE....file=. "h|
00003940  69 73 63 6f 72 65 22 0d  1a 18 10 e3 20 73 61 76  |iscore"..... sav|
00003950  65 3d 31 20 b8 20 35 0d  1a 22 20 f1 23 20 66 69  |e=1 . 5.." .# fi|
00003960  6c 65 2c 63 6e 61 6d 24  28 73 61 76 65 29 2c 68  |le,cnam$(save),h|
00003970  69 28 73 61 76 65 29 0d  1a 2c 0a ed 20 73 61 76  |i(save)..,.. sav|
00003980  65 0d 1a 36 0b d9 23 20  66 69 6c 65 0d 1a 40 05  |e..6..# file..@.|
00003990  e1 0d 1a 4a 05 20 0d 1a  54 0b dd 20 f2 71 75 69  |...J. ..T.. .qui|
000039a0  74 0d 1a 5e 05 db 0d 1a  68 1b f1 20 8a 31 32 2c  |t..^....h.. .12,|
000039b0  33 29 20 22 52 45 41 4c  4c 59 20 51 55 49 54 3f  |3) "REALLY QUIT?|
000039c0  22 0d 1a 72 1b f1 20 8a  31 32 2c 35 29 20 22 50  |"..r.. .12,5) "P|
000039d0  72 65 73 73 20 59 20 6f  72 20 4e 22 0d 1a 7c 0e  |ress Y or N"..|.|
000039e0  72 65 73 70 6f 6e 73 65  3d a5 0d 1a 86 27 e7 20  |response=....'. |
000039f0  72 65 73 70 6f 6e 73 65  3d 38 39 20 84 20 72 65  |response=89 . re|
00003a00  73 70 6f 6e 73 65 3d 31  32 31 20 72 65 73 74 3d  |sponse=121 rest=|
00003a10  b9 0d 1a 90 05 e1 0d ff                           |........|
00003a18