Home » Personal collection » Acorn tapes » Commercial_Releases » boxed_acornsoft_tape11a_acorn_business_games.wav » .

.

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Commercial_Releases » boxed_acornsoft_tape11a_acorn_business_games.wav
Filename: .
Read OK: ✔
File size: 27E8 bytes
Load address: 1900
Exec address: 409F
Duplicates

There are 4 duplicate copies of this file in the archive:

File contents

�

�TELEMARK

��:�T|@
(�=&4020
2*FX200,2
<�6:*FX12,0
F��''"The object of this game is for each of"''"four players or teams to try to make the"'"largest profit, or to win more than"''"half the market share for televisions.":�s
P��:�''"You simply respond to the prompts shown"''"on the screen. But you will learn more"''"if you work out ' break-even' and"''"'cash-flow' on paper."
Z��''"To make this simpler all values are"''"shown in round thousands indicated by"''"the letter 'k'.":�s:�:�''"Four people can play at a time."
d�T5=0:�A$(4),A(4),B(4),C(8),D(4),E(4),F(4),G(4),H(4),I(4),J(4),K(8),L(4),M(8),P(5),Q(4),R(5),r(4),S(4),V(4),X(4),B$(8),J$(4),E$(4)
n@�U=1�4:�B$(U),J$(U),E$(U):�:�U=5�8:�B$(U):�:�':V%=�:P%=�:T=4
x��23,224,&F0,&F0,&F0,&0F,&0F,&0F,&F0,&F0,23,225,&F0,&0F,&0F,&0F,&F0,&F0,&F0,&FF,23,226,&F0,&F0,&F0,&F0,&F0,&F0,&F0,&F0,23,227,&FF,&FF,&FF,&FF,&FF,&FF,&FF,&FF,23,228,&FF,&FF,&FF,&0F,&0F,&0F,&FF,&FF
�x�"Please name the players in order of play":�Y=1�T:��A$(Y)':�(A$(Y))>9�"Please use a name with up to 9 letters.":�7
�*��A$(Y)<12:K(Y)=2165:M(Y)=12:�:P(5)=51
�A�L=1�T:C(L)=S(L)*20:B(L)=0:P(L)=0:Q(L)=0:J(L)=0:�r(L)=8r(L)=0
��L:T5=T5+1
�k� larger screen size.,maintenance.,a test fault.,an extra TV channel.,quality assurance.,bad publicity.
�]� wider screen TV.,negotiating skill.,break-down.,"colour TV.",marketing skill.,a strike!
�E� stereo sound TV.,remote control TV.,three-D TV.,hi-fi sound TV.
��N=1�T:�:�C(N+T)=1��d^C
�<�'A$(N)", it's your turn."':�1,-15,128,4:�K(N)<1000�TbA
��'" BUYING A FACTORY "'
�?�ans(�,"Do you want to pay 1000k for a factory?")=� � �TXA
�A�K(N)<1400 �ans(�,"Are you sure you can afford it?")=� ��TXA
��F(N)+12>36�plan:�TXA
*K(N)=K(N)-1000:F(N)=F(N)+12:�4:�gra:�6
H(N)=H(N)+120:D(N)=D(N)+500
�
"�K(N)<400�DhA
, �'" BUYING AN EXTENSION "'' 
6W�ans(�,A$(N)+", Do you want to pay 400k"+�10+�10+�13+"for an extension?")=� � �D^A
@Y�F(N)<T �"ERROR. You cannot build an extension"'"unless you have a factory.":�7:�df@
J�F(N)+T>36�plan:�D^A
TCK(N)=K(N)-400:F(N)=F(N)+T:X(N)=X(N)+10:D(N)=D(N)+200:�4:�gra:�6
^�
heZ$="":�'" TRAINING AND PRODUCT DEVELOPMENT"'':�K(N)<25�"You cannot afford improvements."'':� �D|A
rf�ans(�,A$(N)+", will you pay 25k"+�10+�10+�13+"for better management?"):K(N)=K(N)-25:C(N)=C(N)+25
|lYY=�(8):YI=�(8):VA=(YI+1)�2:�YY>6 � T5>2�''"You are liable to suffer "E$(VA)':� VA � �dtA,�TpB,�d`A,�T\B
��YY>3�tZA
���Z$="Y"I(N)=I(N)+2:r(N)=r(N)+1:�''"Your R & D Department has"''"developed "B$(r(N))''"The price advantage is 2k per batch.":�DDB
�9�Z$<>"Y"�''"You have not suffered as a result.":�DDB
�7�''"You benefit. Your managers have better"''J$(VA)
�� VA �txA,�dBA,�dLA,�dVA
�A(N)=A(N)+1:�DDB
�L(N)=L(N)+1:�DDB
�E(N)=E(N)+1:�DDB
�G(N)=G(N)+1:�DDB
�J�A(N)<1�"Sub-contracting cost you 50k":C(N)=C(N)+50:K(N)=K(N)-50:�DDB
�A(N)=A(N)-1:f=1:�TzB
��L(N)<1�THB�L(N)=L(N)-1
�
f=2:�TzB
 �M(N)>=T M(N)=M(N)-T �M(N)=0
4�"Your market shares are reduced to ";M(N):�DDB
��E(N)<1�"You lose cost advantages of 2k per batch"'"and all production for this round.":�7:I(N)=I(N)-2:M(N+T)=M(N):M(N)=S(N):�DDB
&E(N)=E(N)-1:f=3:�TzB
0 �G(N)<1�THB�G(N)=G(N)-1:f=4
:=�"But you have good ";J$(f);''"So you have not suffered."
D�s
N��:�'" PAYING FOR OVERHEADS "''A$(N)''"you have: factories ";�25);H(N)/120:�'�10)"extensions";�25);X(N)/10''"Overhead costs are ";X(N)+H(N);"k":K(N)=K(N)-H(N)-X(N)
X�s
b�C(N+T)>0�T\G
l�K(N)<0�T\G
vC(N)=C(N)+H(N)+X(N)
� �:�'" MAKING TELEVISIONS "''
��M(N+T)>0�dPB
� � A$(N);", you have:"':R$=""
��fac
�a�'"You can afford to build ";�(K(N)/20);".":�m<48�'"There are ";48-�m;" market shares free."
�,�'"But your market shares are ";M(N);"."
�;�'"How many do you want to build"''"at 20k each batch?"
��K(N)>19�dZB
�'�'"You can build none.":�7:�s:�TBC
���'Q(N):�Q(N)>=0
��Q(N)*20>K(N)�TVC
��Q(N)>F(N)-S(N)�T`C
�=K(N)=K(N)-Q(N)*20:S(N)=S(N)+Q(N):C(N)=C(N)+Q(N)*20:Q(N)=0
�S(N)<=M(N)+3�D\C
	�TjC
+�:�'"ERROR. Not enough cash!"':�7:�thB
 4�:�'"ERROR. Not enough factory space!"':�7:�t^B
*W�:�'" PAYING FOR MARKETING"'':�K(N)<25�"You cannot afford market bids.":�7:�s:�D\C
4P�A$(N)",you have ";S(N);" batches in stock"''"and ";M(N);" market shares. ";
>c�ans(�,"Do you want to"+�10+�10+�13+"bid for four more market shares at 25k?"+�13+�10)=� ��D\C
HAK(N)=K(N)-25:B(N)=B(N)+T:C(N)=C(N)+25:�M(N)+B(N)+3>=S(N)�D\C
R8�ans(�,"Do you want to bid for another four?")��DHC
\�:�'" THE SELLING PRICE "''
f�S(N)<1�dJC
p(�"Please input your selling price."'
z0�T5<3�"It will be concealed on the screen."'
�
N$="0"
�-�I$=�:�I$=�(127)� �N$>1�127:N$=�N$,�N$-1)
�)�I$>="0"�I$<="9"� �N$<3�"#";:N$=N$+I$
��I$=�13
�P(N)=�(N$)
�_�:�P(N)>=51�'"If you charge more than 50k an importer"''"takes all your market shares."':�7
�=�ans(�,�10+�13+"Do you want to change your price?")��DpC
�O�P(N)<=0�'A$(N);" Black market raises your"''"prices to 50k.":P(N)=50:�7:�s
�+:�:�'A$(N)", its the end of your turn."
��N
��'" SORTING PRICES "
��O=1�5:R(O)=P(O):�
�=�U=0:�O=1�T:�R(O)>R(O+1)A=R(O):R(O)=R(O+1):R(O+1)=A:U=U+1
�:�U<=0
I�'�4)"Player"�20)"Prices"�30)"Bids"'�4)"------"�20)"------"�30)"----"

�J=1�T
$
�Z=1�T
.�S(Z)<M(Z)M(Z)=S(Z)
8
�J=1��DLD
B�R(J)=R(J-1)��DVD
L+�P(Z)=R(J)�3)A$(Z);�20)P(Z);�30)B(Z)/T
V�Z
`�J
j!�'" CHANGING MARKET SHARES "'
t�m>44��dXD
~
�V=1�T
��W=1�T:�m>44��dDD
��E=1�T:�B(E)<T �tzD
�
�W=1��tpD
��R(W)=R(W-1)��tzD
�F�P(E)=R(W)�A$(E)" claims 4 market shares.":M(E)=M(E)+T:B(E)=B(E)-T
��E
��W
��V
�
�E=1�T
��R(E)=0R(E)=R(E+1)
��R(E)=0R(E)=R(E+2)
��B(E)<T ��TTE
�P(E)>R(1)��TTE

.�A$(E)" wins 4 market shares.":M(E)=M(E)+T
�M(E+T)>0M(E)=M(E+T)
�E
(�m<=48��tjE
2!Sa=0:�V=1�T:�P(V)=R(T)Sa=Sa+1
<�V:�Sa=0� Sa=1
FSb=�(((�m-48)/Sa)+0.5)
P�V=1�T:�P(V)<R(T)��t`E
Z�M(V)<=0�tVE
d�Y=1�Sb
n4�M(V)=Y �A$(V)" loses ";Y" market ";:M(V)=M(V)-Y
x�Y
�7�M(V)>Sb �A$(V)" loses ";Sb" market ";:M(V)=M(V)-Sb
��Sb=1�"share."� �"shares."
��M(V)<0 M(V)=0
��V
�
�E=1�T
�g�P(E)>50�A$(E)" loses all other market shares"'"to the importer for this round.":M(E+T)=M(E):M(E)=0
��E
�@�" No more market changes":�s:�:�'" MARKET SHARES REPORT "''
�S�"    4   8   12  16  20  24  28  32";�41)"___+___+___+___+___+___+___+___+__"'
�M�V=1�T:�A$(V);"  ";M(V)'�M(V),�227)':�:�s:�:�'" PROFIT AND LOSS ACCOUNT "
�
�G=1�T
��P(G)>50��TNF
��M(G+T)>0M(G+T)=M(G)
�M(G+T)>0M(G)=S(G)
#�'A$(G)" sold ";M(G)" batches."
#�14)"Revenue";�-(�è�t)+38)��t
"S(G)=S(G)-M(G)
,4�14)"Profit";�38-� �(�(�t-�c+0.5)))�(�t-�c+0.5)
6W�14)"After depreciation";�-(� �(�(�t-(�c+D(G)/10)+0.5)))+38)�(�t-(�c+D(G)/10)+0.5)
@#K(G+4)=K(G+4)+(�t-(�c+D(G)/10))
J"K(G)=K(G)+�t:D(G)=D(G)-D(G)/10
T�M(G+T)=0�DhF
^M(G)=M(G+T):M(G+T)=0
h�G:�s:�
r7A=0:�J=1�T:A=A+C(J+T):�K(J)-C(J+T)>0 � M(J)>24��tPF
|�J:�trG:�A=3 � A=4��dLF
�	�tV@
�@a$="****":�'" THE WINNER"'a$;�12);A$(J);�32);a$:�1,-15,128,4
�0�a$;�11);"is the winner";�32);a$:�1,-15,40,8
�?�a$;�7);"with ";M(J);" market shares.";�32);a$:�1,-15,128,8
��:�t|G
�*FX21,0
�*FX11,0
�&�'�6)"Press SPACE BAR to continue"
��=32��dVF
��:�15,10);"THE END"
�.�4,23);"Press SPACE BAR for another game"
�*FX21,0
��=32�:�T|@��d~F
�
 
�:�'" CASH CRISIS"''
&�C(N+T)>0�DXG
0,�A$(N);", You have run out of cash."':�7
:\�ans(�,"Do you want a loan of 500k for a round"+�10+�10+�13+"at 12 per cent?")=� � �DXG
D�'"O.K. Repay next round."
N,K(N)=K(N)+500:C(N+T)=C(N+T)+500:�s:�DvB
Xo�K(N)<515�'"Sorry, "A$(N)", you must retire."''"Thanks for playing.":K(N)=0:M(N)=0:C(N+T)=1:D(N)=0:�s:�dTC
bP�"Loan repaid. Thankyou.":K(N)=K(N)-515:C(N)=C(N)+15:C(N+T)=C(N+T)-500:�DXB
l)��gra �a%:�:�'''' A$(N);"'S FACTORY";
v �F(N)>12�" with extensions."
��23,1,0;0;0;0;:�2,9)"/"
�*��TnI:�i%=10�17:�a%,x:�f(�,�a%,x,i%):�
�
�W=2�F(N)
�+��TxI:�i%=13�17:�a%:�f(�,�(a%),W,i%):�,
��s:�23,1,1,0;0;0;0;:�
�I�'" TOTAL PROFIT "''"The winning player has the largest totalprofit"'
�_� �14);"Cash";�25);"Total";�51);"less loans";�65);"profit";�91);"----------";�105);"------"
�� E=1� T
�� C(E+T)=1��ddG
�5�'A$(E);�14);�(K(E)-C(E+T));"k";�26);� K(E+T);"k"
�� E
�N�''"Do you want to see the balance sheets?"''"Answer Y or N."Z$:�Z$="Y"�bs
��
��bs �G=1�T:�G=1� G=3�
�C(G+T)=1� G=T �DfH
�C(G+T)=1� G=2��DfH
 �C(G+T)=1��DpH
*_�'" BALANCE SHEET";" for ";A$(G)''" Liabilities";�20);"Assets"'" ___________";�20);"______"
4��" Shares";�11);2165;�20)"Buildings";�38-� � ��o);��o'" P & L";�15-� � � K(G+T));� K(G+T);�20);"Plant";�38-� � �D(G));� D(G)
>+�20);"Stock";�38-� �(S(G)*20));S(G)*20
HY�" Loans";�15-� �C(G+T));C(G+T);�20);"Cash";�38-� � K(G));K(G)'�11);"____";�34)"____"
R��" Total";�15-� � �(2165+K(G+T)+C(G+T)));�(2165+K(G+T)+C(G+T));�-� � �((�o+D(G)+S(G)*20)+K(G))+38);�(�o+D(G)+(S(G)*20)+K(G))
\�G=1� G=3�:�DpH
f�s
p
�G:�:�
z4��plan �'"Planning Permission not granted.":�s:�
�8��s �5,24)"Press SPACE BAR to continue";:� � �=32:�
�dݤans(f,a$)� � a$;:�f �''"Type Y for YES; or"'�5)"N for NO; or"'�5)"Q if you want information."'
�� Z$:�f �Z$="Q"�rep
�a=�"YN",Z$):�a:=a-2
�r��rep �:�'"FOR A REPORT ON:"''"Finance";�20);"press F"'"Production";�20);"press P"'"Marketing";�20);"press M"'
��R$:�R$="F"��dTH
��R$="P"�fac
��R$="M"�dhH��TFI
�W�"Cash";�20);K(N)'"Current spend";�20)+�C(N)'"Depreciation";�20);�(D(N)/10):�d|H:�
�h��fac �"Factory space";�20);F(N)'"Stock";�20);S(N)'"Batches being made";�20);Q(N):�R$="P"�d|H��TPI
�l�"Innovations";�20);I(N)/2'"Market bids";�20);B(N)/T'"Market shares";�20);M(N)'"Selling price";�20);P(N)
�J�P(N)>0�"Break-even (for ";S(N)")";�20)�((C(N)+D(N)/10)/S(N)-I(N)+0.5)
��s
	�
	�:�
	��f(f,a$,x,y)
	$�x,y)a$:�
	.4�226,2,226,2,226,2,227,1,227,1,227,1,227,1,227,1
	8�224,225,227,228,227
	Bݤm=M(1)+M(2)+M(3)+M(4)
	Lݤo=(H(G)/12*50+X(G)*20)
	Vݤt=(P(G)+I(G))*M(G)
	`ݤc=(C(G)-S(G)*20)
	j/��FIND(A$)A%=�:��$(A%+4),A$)�256*A%?1+A%?2
	tA%=A%+A%?3:�A%?1>&7F
���@���@�`��@����@� ����� ������� ��@L��L���@��@��@�@����@���@���@`PAGE=&1900
OLD
RUN
BASIC
����� ����Ȣ� ���ʆp���@�]�p�p�����q��p�p���q$qP�l��L @
00000000  0d 00 0a 08 f4 0c 15 03  0d 00 14 0d f4 54 45 4c  |.............TEL|
00000010  45 4d 41 52 4b 0d 00 1e  0d ee 85 d8 3a e5 8d 54  |EMARK.......:..T|
00000020  7c 40 0d 00 28 0b d2 3d  26 34 30 32 30 0d 00 32  ||@..(..=&4020..2|
00000030  0c 2a 46 58 32 30 30 2c  32 0d 00 3c 0e eb 36 3a  |.*FX200,2..<..6:|
00000040  2a 46 58 31 32 2c 30 0d  00 46 ae f1 27 27 22 54  |*FX12,0..F..''"T|
00000050  68 65 20 6f 62 6a 65 63  74 20 6f 66 20 74 68 69  |he object of thi|
00000060  73 20 67 61 6d 65 20 69  73 20 66 6f 72 20 65 61  |s game is for ea|
00000070  63 68 20 6f 66 22 27 27  22 66 6f 75 72 20 70 6c  |ch of"''"four pl|
00000080  61 79 65 72 73 20 6f 72  20 74 65 61 6d 73 20 74  |ayers or teams t|
00000090  6f 20 74 72 79 20 74 6f  20 6d 61 6b 65 20 74 68  |o try to make th|
000000a0  65 22 27 22 6c 61 72 67  65 73 74 20 70 72 6f 66  |e"'"largest prof|
000000b0  69 74 2c 20 6f 72 20 74  6f 20 77 69 6e 20 6d 6f  |it, or to win mo|
000000c0  72 65 20 74 68 61 6e 22  27 27 22 68 61 6c 66 20  |re than"''"half |
000000d0  74 68 65 20 6d 61 72 6b  65 74 20 73 68 61 72 65  |the market share|
000000e0  20 66 6f 72 20 74 65 6c  65 76 69 73 69 6f 6e 73  | for televisions|
000000f0  2e 22 3a f2 73 0d 00 50  9a db 3a f1 27 27 22 59  |.":.s..P..:.''"Y|
00000100  6f 75 20 73 69 6d 70 6c  79 20 72 65 73 70 6f 6e  |ou simply respon|
00000110  64 20 74 6f 20 74 68 65  20 70 72 6f 6d 70 74 73  |d to the prompts|
00000120  20 73 68 6f 77 6e 22 27  27 22 6f 6e 20 74 68 65  | shown"''"on the|
00000130  20 73 63 72 65 65 6e 2e  20 42 75 74 20 79 6f 75  | screen. But you|
00000140  20 77 69 6c 6c 20 6c 65  61 72 6e 20 6d 6f 72 65  | will learn more|
00000150  22 27 27 22 69 66 20 79  6f 75 20 77 6f 72 6b 20  |"''"if you work |
00000160  6f 75 74 20 27 20 62 72  65 61 6b 2d 65 76 65 6e  |out ' break-even|
00000170  27 20 61 6e 64 22 27 27  22 27 63 61 73 68 2d 66  |' and"''"'cash-f|
00000180  6c 6f 77 27 20 6f 6e 20  70 61 70 65 72 2e 22 0d  |low' on paper.".|
00000190  00 5a 92 f1 27 27 22 54  6f 20 6d 61 6b 65 20 74  |.Z..''"To make t|
000001a0  68 69 73 20 73 69 6d 70  6c 65 72 20 61 6c 6c 20  |his simpler all |
000001b0  76 61 6c 75 65 73 20 61  72 65 22 27 27 22 73 68  |values are"''"sh|
000001c0  6f 77 6e 20 69 6e 20 72  6f 75 6e 64 20 74 68 6f  |own in round tho|
000001d0  75 73 61 6e 64 73 20 69  6e 64 69 63 61 74 65 64  |usands indicated|
000001e0  20 62 79 22 27 27 22 74  68 65 20 6c 65 74 74 65  | by"''"the lette|
000001f0  72 20 27 6b 27 2e 22 3a  f2 73 3a db 3a f1 27 27  |r 'k'.":.s:.:.''|
00000200  22 46 6f 75 72 20 70 65  6f 70 6c 65 20 63 61 6e  |"Four people can|
00000210  20 70 6c 61 79 20 61 74  20 61 20 74 69 6d 65 2e  | play at a time.|
00000220  22 0d 00 64 85 54 35 3d  30 3a de 41 24 28 34 29  |"..d.T5=0:.A$(4)|
00000230  2c 41 28 34 29 2c 42 28  34 29 2c 43 28 38 29 2c  |,A(4),B(4),C(8),|
00000240  44 28 34 29 2c 45 28 34  29 2c 46 28 34 29 2c 47  |D(4),E(4),F(4),G|
00000250  28 34 29 2c 48 28 34 29  2c 49 28 34 29 2c 4a 28  |(4),H(4),I(4),J(|
00000260  34 29 2c 4b 28 38 29 2c  4c 28 34 29 2c 4d 28 38  |4),K(8),L(4),M(8|
00000270  29 2c 50 28 35 29 2c 51  28 34 29 2c 52 28 35 29  |),P(5),Q(4),R(5)|
00000280  2c 72 28 34 29 2c 53 28  34 29 2c 56 28 34 29 2c  |,r(4),S(4),V(4),|
00000290  58 28 34 29 2c 42 24 28  38 29 2c 4a 24 28 34 29  |X(4),B$(8),J$(4)|
000002a0  2c 45 24 28 34 29 0d 00  6e 40 e3 55 3d 31 b8 34  |,E$(4)..n@.U=1.4|
000002b0  3a f3 42 24 28 55 29 2c  4a 24 28 55 29 2c 45 24  |:.B$(U),J$(U),E$|
000002c0  28 55 29 3a ed 3a e3 55  3d 35 b8 38 3a f3 42 24  |(U):.:.U=5.8:.B$|
000002d0  28 55 29 3a ed 3a f1 27  3a 56 25 3d bc 3a 50 25  |(U):.:.':V%=.:P%|
000002e0  3d b1 3a 54 3d 34 0d 00  78 c7 ef 32 33 2c 32 32  |=.:T=4..x..23,22|
000002f0  34 2c 26 46 30 2c 26 46  30 2c 26 46 30 2c 26 30  |4,&F0,&F0,&F0,&0|
00000300  46 2c 26 30 46 2c 26 30  46 2c 26 46 30 2c 26 46  |F,&0F,&0F,&F0,&F|
00000310  30 2c 32 33 2c 32 32 35  2c 26 46 30 2c 26 30 46  |0,23,225,&F0,&0F|
00000320  2c 26 30 46 2c 26 30 46  2c 26 46 30 2c 26 46 30  |,&0F,&0F,&F0,&F0|
00000330  2c 26 46 30 2c 26 46 46  2c 32 33 2c 32 32 36 2c  |,&F0,&FF,23,226,|
00000340  26 46 30 2c 26 46 30 2c  26 46 30 2c 26 46 30 2c  |&F0,&F0,&F0,&F0,|
*
00000360  32 33 2c 32 32 37 2c 26  46 46 2c 26 46 46 2c 26  |23,227,&FF,&FF,&|
00000370  46 46 2c 26 46 46 2c 26  46 46 2c 26 46 46 2c 26  |FF,&FF,&FF,&FF,&|
00000380  46 46 2c 26 46 46 2c 32  33 2c 32 32 38 2c 26 46  |FF,&FF,23,228,&F|
00000390  46 2c 26 46 46 2c 26 46  46 2c 26 30 46 2c 26 30  |F,&FF,&FF,&0F,&0|
000003a0  46 2c 26 30 46 2c 26 46  46 2c 26 46 46 0d 00 82  |F,&0F,&FF,&FF...|
000003b0  78 f1 22 50 6c 65 61 73  65 20 6e 61 6d 65 20 74  |x."Please name t|
000003c0  68 65 20 70 6c 61 79 65  72 73 20 69 6e 20 6f 72  |he players in or|
000003d0  64 65 72 20 6f 66 20 70  6c 61 79 22 3a e3 59 3d  |der of play":.Y=|
000003e0  31 b8 54 3a f5 e8 41 24  28 59 29 27 3a e7 a9 28  |1.T:..A$(Y)':..(|
000003f0  41 24 28 59 29 29 3e 39  f1 22 50 6c 65 61 73 65  |A$(Y))>9."Please|
00000400  20 75 73 65 20 61 20 6e  61 6d 65 20 77 69 74 68  | use a name with|
00000410  20 75 70 20 74 6f 20 39  20 6c 65 74 74 65 72 73  | up to 9 letters|
00000420  2e 22 3a ef 37 0d 00 8c  2a fd a9 41 24 28 59 29  |.":.7...*..A$(Y)|
00000430  3c 31 32 3a 4b 28 59 29  3d 32 31 36 35 3a 4d 28  |<12:K(Y)=2165:M(|
00000440  59 29 3d 31 32 3a ed 3a  50 28 35 29 3d 35 31 0d  |Y)=12:.:P(5)=51.|
00000450  00 96 41 e3 4c 3d 31 b8  54 3a 43 28 4c 29 3d 53  |..A.L=1.T:C(L)=S|
00000460  28 4c 29 2a 32 30 3a 42  28 4c 29 3d 30 3a 50 28  |(L)*20:B(L)=0:P(|
00000470  4c 29 3d 30 3a 51 28 4c  29 3d 30 3a 4a 28 4c 29  |L)=0:Q(L)=0:J(L)|
00000480  3d 30 3a e7 72 28 4c 29  3d 38 72 28 4c 29 3d 30  |=0:.r(L)=8r(L)=0|
00000490  0d 00 a0 0e ed 4c 3a 54  35 3d 54 35 2b 31 0d 00  |.....L:T5=T5+1..|
000004a0  aa 6b dc 20 6c 61 72 67  65 72 20 73 63 72 65 65  |.k. larger scree|
000004b0  6e 20 73 69 7a 65 2e 2c  6d 61 69 6e 74 65 6e 61  |n size.,maintena|
000004c0  6e 63 65 2e 2c 61 20 74  65 73 74 20 66 61 75 6c  |nce.,a test faul|
000004d0  74 2e 2c 61 6e 20 65 78  74 72 61 20 54 56 20 63  |t.,an extra TV c|
000004e0  68 61 6e 6e 65 6c 2e 2c  71 75 61 6c 69 74 79 20  |hannel.,quality |
000004f0  61 73 73 75 72 61 6e 63  65 2e 2c 62 61 64 20 70  |assurance.,bad p|
00000500  75 62 6c 69 63 69 74 79  2e 0d 00 b4 5d dc 20 77  |ublicity....]. w|
00000510  69 64 65 72 20 73 63 72  65 65 6e 20 54 56 2e 2c  |ider screen TV.,|
00000520  6e 65 67 6f 74 69 61 74  69 6e 67 20 73 6b 69 6c  |negotiating skil|
00000530  6c 2e 2c 62 72 65 61 6b  2d 64 6f 77 6e 2e 2c 22  |l.,break-down.,"|
00000540  63 6f 6c 6f 75 72 20 54  56 2e 22 2c 6d 61 72 6b  |colour TV.",mark|
00000550  65 74 69 6e 67 20 73 6b  69 6c 6c 2e 2c 61 20 73  |eting skill.,a s|
00000560  74 72 69 6b 65 21 0d 00  be 45 dc 20 73 74 65 72  |trike!...E. ster|
00000570  65 6f 20 73 6f 75 6e 64  20 54 56 2e 2c 72 65 6d  |eo sound TV.,rem|
00000580  6f 74 65 20 63 6f 6e 74  72 6f 6c 20 54 56 2e 2c  |ote control TV.,|
00000590  74 68 72 65 65 2d 44 20  54 56 2e 2c 68 69 2d 66  |three-D TV.,hi-f|
000005a0  69 20 73 6f 75 6e 64 20  54 56 2e 0d 00 c8 1b e3  |i sound TV......|
000005b0  4e 3d 31 b8 54 3a db 3a  e7 43 28 4e 2b 54 29 3d  |N=1.T:.:.C(N+T)=|
000005c0  31 8c 8d 64 5e 43 0d 00  d2 3c f1 27 41 24 28 4e  |1..d^C...<.'A$(N|
000005d0  29 22 2c 20 69 74 27 73  20 79 6f 75 72 20 74 75  |)", it's your tu|
000005e0  72 6e 2e 22 27 3a d4 31  2c 2d 31 35 2c 31 32 38  |rn."':.1,-15,128|
000005f0  2c 34 3a e7 4b 28 4e 29  3c 31 30 30 30 e5 8d 54  |,4:.K(N)<1000..T|
00000600  62 41 0d 00 dc 1b f1 27  22 20 42 55 59 49 4e 47  |bA.....'" BUYING|
00000610  20 41 20 46 41 43 54 4f  52 59 20 22 27 0d 00 e6  | A FACTORY "'...|
00000620  3f e7 a4 61 6e 73 28 b9  2c 22 44 6f 20 79 6f 75  |?..ans(.,"Do you|
00000630  20 77 61 6e 74 20 74 6f  20 70 61 79 20 31 30 30  | want to pay 100|
00000640  30 6b 20 66 6f 72 20 61  20 66 61 63 74 6f 72 79  |0k for a factory|
00000650  3f 22 29 3d a3 20 8c 20  8d 54 58 41 0d 00 f0 41  |?")=. . .TXA...A|
00000660  e7 4b 28 4e 29 3c 31 34  30 30 20 e7 a4 61 6e 73  |.K(N)<1400 ..ans|
00000670  28 b9 2c 22 41 72 65 20  79 6f 75 20 73 75 72 65  |(.,"Are you sure|
00000680  20 79 6f 75 20 63 61 6e  20 61 66 66 6f 72 64 20  | you can afford |
00000690  69 74 3f 22 29 3d a3 20  8c 8d 54 58 41 0d 00 fa  |it?")=. ..TXA...|
000006a0  1a e7 46 28 4e 29 2b 31  32 3e 33 36 f2 70 6c 61  |..F(N)+12>36.pla|
000006b0  6e 3a e5 8d 54 58 41 0d  01 04 2a 4b 28 4e 29 3d  |n:..TXA...*K(N)=|
000006c0  4b 28 4e 29 2d 31 30 30  30 3a 46 28 4e 29 3d 46  |K(N)-1000:F(N)=F|
000006d0  28 4e 29 2b 31 32 3a eb  34 3a f2 67 72 61 3a eb  |(N)+12:.4:.gra:.|
000006e0  36 0d 01 0e 1f 48 28 4e  29 3d 48 28 4e 29 2b 31  |6....H(N)=H(N)+1|
000006f0  32 30 3a 44 28 4e 29 3d  44 28 4e 29 2b 35 30 30  |20:D(N)=D(N)+500|
00000700  0d 01 18 05 db 0d 01 22  12 e7 4b 28 4e 29 3c 34  |......."..K(N)<4|
00000710  30 30 e5 8d 44 68 41 0d  01 2c 20 f1 27 22 20 42  |00..DhA.., .'" B|
00000720  55 59 49 4e 47 20 41 4e  20 45 58 54 45 4e 53 49  |UYING AN EXTENSI|
00000730  4f 4e 20 22 27 27 20 0d  01 36 57 e7 a4 61 6e 73  |ON "'' ..6W..ans|
00000740  28 b9 2c 41 24 28 4e 29  2b 22 2c 20 44 6f 20 79  |(.,A$(N)+", Do y|
00000750  6f 75 20 77 61 6e 74 20  74 6f 20 70 61 79 20 34  |ou want to pay 4|
00000760  30 30 6b 22 2b bd 31 30  2b bd 31 30 2b bd 31 33  |00k"+.10+.10+.13|
00000770  2b 22 66 6f 72 20 61 6e  20 65 78 74 65 6e 73 69  |+"for an extensi|
00000780  6f 6e 3f 22 29 3d a3 20  8c 20 8d 44 5e 41 0d 01  |on?")=. . .D^A..|
00000790  40 59 e7 46 28 4e 29 3c  54 20 f1 22 45 52 52 4f  |@Y.F(N)<T ."ERRO|
000007a0  52 2e 20 59 6f 75 20 63  61 6e 6e 6f 74 20 62 75  |R. You cannot bu|
000007b0  69 6c 64 20 61 6e 20 65  78 74 65 6e 73 69 6f 6e  |ild an extension|
000007c0  22 27 22 75 6e 6c 65 73  73 20 79 6f 75 20 68 61  |"'"unless you ha|
000007d0  76 65 20 61 20 66 61 63  74 6f 72 79 2e 22 3a ef  |ve a factory.":.|
000007e0  37 3a e5 8d 64 66 40 0d  01 4a 19 e7 46 28 4e 29  |7:..df@..J..F(N)|
000007f0  2b 54 3e 33 36 f2 70 6c  61 6e 3a e5 8d 44 5e 41  |+T>36.plan:..D^A|
00000800  0d 01 54 43 4b 28 4e 29  3d 4b 28 4e 29 2d 34 30  |..TCK(N)=K(N)-40|
00000810  30 3a 46 28 4e 29 3d 46  28 4e 29 2b 54 3a 58 28  |0:F(N)=F(N)+T:X(|
00000820  4e 29 3d 58 28 4e 29 2b  31 30 3a 44 28 4e 29 3d  |N)=X(N)+10:D(N)=|
00000830  44 28 4e 29 2b 32 30 30  3a eb 34 3a f2 67 72 61  |D(N)+200:.4:.gra|
00000840  3a eb 36 0d 01 5e 05 db  0d 01 68 65 5a 24 3d 22  |:.6..^....heZ$="|
00000850  22 3a f1 27 22 20 54 52  41 49 4e 49 4e 47 20 41  |":.'" TRAINING A|
00000860  4e 44 20 50 52 4f 44 55  43 54 20 44 45 56 45 4c  |ND PRODUCT DEVEL|
00000870  4f 50 4d 45 4e 54 22 27  27 3a e7 4b 28 4e 29 3c  |OPMENT"'':.K(N)<|
00000880  32 35 f1 22 59 6f 75 20  63 61 6e 6e 6f 74 20 61  |25."You cannot a|
00000890  66 66 6f 72 64 20 69 6d  70 72 6f 76 65 6d 65 6e  |fford improvemen|
000008a0  74 73 2e 22 27 27 3a e5  20 8d 44 7c 41 0d 01 72  |ts."'':. .D|A..r|
000008b0  66 e7 a4 61 6e 73 28 b9  2c 41 24 28 4e 29 2b 22  |f..ans(.,A$(N)+"|
000008c0  2c 20 77 69 6c 6c 20 79  6f 75 20 70 61 79 20 32  |, will you pay 2|
000008d0  35 6b 22 2b bd 31 30 2b  bd 31 30 2b bd 31 33 2b  |5k"+.10+.10+.13+|
000008e0  22 66 6f 72 20 62 65 74  74 65 72 20 6d 61 6e 61  |"for better mana|
000008f0  67 65 6d 65 6e 74 3f 22  29 3a 4b 28 4e 29 3d 4b  |gement?"):K(N)=K|
00000900  28 4e 29 2d 32 35 3a 43  28 4e 29 3d 43 28 4e 29  |(N)-25:C(N)=C(N)|
00000910  2b 32 35 0d 01 7c 6c 59  59 3d b3 28 38 29 3a 59  |+25..|lYY=.(8):Y|
00000920  49 3d b3 28 38 29 3a 56  41 3d 28 59 49 2b 31 29  |I=.(8):VA=(YI+1)|
00000930  81 32 3a e7 59 59 3e 36  20 80 20 54 35 3e 32 f1  |.2:.YY>6 . T5>2.|
00000940  27 27 22 59 6f 75 20 61  72 65 20 6c 69 61 62 6c  |''"You are liabl|
00000950  65 20 74 6f 20 73 75 66  66 65 72 20 22 45 24 28  |e to suffer "E$(|
00000960  56 41 29 27 3a ee 20 56  41 20 e5 20 8d 64 74 41  |VA)':. VA . .dtA|
00000970  2c 8d 54 70 42 2c 8d 64  60 41 2c 8d 54 5c 42 0d  |,.TpB,.d`A,.T\B.|
00000980  01 86 0e e7 59 59 3e 33  e5 8d 74 5a 41 0d 01 90  |....YY>3..tZA...|
00000990  85 e7 5a 24 3d 22 59 22  49 28 4e 29 3d 49 28 4e  |..Z$="Y"I(N)=I(N|
000009a0  29 2b 32 3a 72 28 4e 29  3d 72 28 4e 29 2b 31 3a  |)+2:r(N)=r(N)+1:|
000009b0  f1 27 27 22 59 6f 75 72  20 52 20 26 20 44 20 44  |.''"Your R & D D|
000009c0  65 70 61 72 74 6d 65 6e  74 20 68 61 73 22 27 27  |epartment has"''|
000009d0  22 64 65 76 65 6c 6f 70  65 64 20 22 42 24 28 72  |"developed "B$(r|
000009e0  28 4e 29 29 27 27 22 54  68 65 20 70 72 69 63 65  |(N))''"The price|
000009f0  20 61 64 76 61 6e 74 61  67 65 20 69 73 20 32 6b  | advantage is 2k|
00000a00  20 70 65 72 20 62 61 74  63 68 2e 22 3a e5 8d 44  | per batch.":..D|
00000a10  44 42 0d 01 9a 39 e7 5a  24 3c 3e 22 59 22 f1 27  |DB...9.Z$<>"Y".'|
00000a20  27 22 59 6f 75 20 68 61  76 65 20 6e 6f 74 20 73  |'"You have not s|
00000a30  75 66 66 65 72 65 64 20  61 73 20 61 20 72 65 73  |uffered as a res|
00000a40  75 6c 74 2e 22 3a e5 8d  44 44 42 0d 01 a4 37 f1  |ult.":..DDB...7.|
00000a50  27 27 22 59 6f 75 20 62  65 6e 65 66 69 74 2e 20  |''"You benefit. |
00000a60  59 6f 75 72 20 6d 61 6e  61 67 65 72 73 20 68 61  |Your managers ha|
00000a70  76 65 20 62 65 74 74 65  72 22 27 27 4a 24 28 56  |ve better"''J$(V|
00000a80  41 29 0d 01 ae 1d ee 20  56 41 20 e5 8d 74 78 41  |A)..... VA ..txA|
00000a90  2c 8d 64 42 41 2c 8d 64  4c 41 2c 8d 64 56 41 0d  |,.dBA,.dLA,.dVA.|
00000aa0  01 b8 15 41 28 4e 29 3d  41 28 4e 29 2b 31 3a e5  |...A(N)=A(N)+1:.|
00000ab0  8d 44 44 42 0d 01 c2 15  4c 28 4e 29 3d 4c 28 4e  |.DDB....L(N)=L(N|
00000ac0  29 2b 31 3a e5 8d 44 44  42 0d 01 cc 15 45 28 4e  |)+1:..DDB....E(N|
00000ad0  29 3d 45 28 4e 29 2b 31  3a e5 8d 44 44 42 0d 01  |)=E(N)+1:..DDB..|
00000ae0  d6 15 47 28 4e 29 3d 47  28 4e 29 2b 31 3a e5 8d  |..G(N)=G(N)+1:..|
00000af0  44 44 42 0d 01 e0 4a e7  41 28 4e 29 3c 31 f1 22  |DDB...J.A(N)<1."|
00000b00  53 75 62 2d 63 6f 6e 74  72 61 63 74 69 6e 67 20  |Sub-contracting |
00000b10  63 6f 73 74 20 79 6f 75  20 35 30 6b 22 3a 43 28  |cost you 50k":C(|
00000b20  4e 29 3d 43 28 4e 29 2b  35 30 3a 4b 28 4e 29 3d  |N)=C(N)+50:K(N)=|
00000b30  4b 28 4e 29 2d 35 30 3a  e5 8d 44 44 42 0d 01 ea  |K(N)-50:..DDB...|
00000b40  19 41 28 4e 29 3d 41 28  4e 29 2d 31 3a 66 3d 31  |.A(N)=A(N)-1:f=1|
00000b50  3a e5 8d 54 7a 42 0d 01  f4 1c e7 4c 28 4e 29 3c  |:..TzB.....L(N)<|
00000b60  31 e5 8d 54 48 42 8b 4c  28 4e 29 3d 4c 28 4e 29  |1..THB.L(N)=L(N)|
00000b70  2d 31 0d 01 fe 0d 66 3d  32 3a e5 8d 54 7a 42 0d  |-1....f=2:..TzB.|
00000b80  02 08 20 e7 4d 28 4e 29  3e 3d 54 20 4d 28 4e 29  |.. .M(N)>=T M(N)|
00000b90  3d 4d 28 4e 29 2d 54 20  8b 4d 28 4e 29 3d 30 0d  |=M(N)-T .M(N)=0.|
00000ba0  02 12 34 f1 22 59 6f 75  72 20 6d 61 72 6b 65 74  |..4."Your market|
00000bb0  20 73 68 61 72 65 73 20  61 72 65 20 72 65 64 75  | shares are redu|
00000bc0  63 65 64 20 74 6f 20 22  3b 4d 28 4e 29 3a e5 8d  |ced to ";M(N):..|
00000bd0  44 44 42 0d 02 1c 86 e7  45 28 4e 29 3c 31 f1 22  |DDB.....E(N)<1."|
00000be0  59 6f 75 20 6c 6f 73 65  20 63 6f 73 74 20 61 64  |You lose cost ad|
00000bf0  76 61 6e 74 61 67 65 73  20 6f 66 20 32 6b 20 70  |vantages of 2k p|
00000c00  65 72 20 62 61 74 63 68  22 27 22 61 6e 64 20 61  |er batch"'"and a|
00000c10  6c 6c 20 70 72 6f 64 75  63 74 69 6f 6e 20 66 6f  |ll production fo|
00000c20  72 20 74 68 69 73 20 72  6f 75 6e 64 2e 22 3a ef  |r this round.":.|
00000c30  37 3a 49 28 4e 29 3d 49  28 4e 29 2d 32 3a 4d 28  |7:I(N)=I(N)-2:M(|
00000c40  4e 2b 54 29 3d 4d 28 4e  29 3a 4d 28 4e 29 3d 53  |N+T)=M(N):M(N)=S|
00000c50  28 4e 29 3a e5 8d 44 44  42 0d 02 26 19 45 28 4e  |(N):..DDB..&.E(N|
00000c60  29 3d 45 28 4e 29 2d 31  3a 66 3d 33 3a e5 8d 54  |)=E(N)-1:f=3:..T|
00000c70  7a 42 0d 02 30 20 e7 47  28 4e 29 3c 31 e5 8d 54  |zB..0 .G(N)<1..T|
00000c80  48 42 8b 47 28 4e 29 3d  47 28 4e 29 2d 31 3a 66  |HB.G(N)=G(N)-1:f|
00000c90  3d 34 0d 02 3a 3d f1 22  42 75 74 20 79 6f 75 20  |=4..:=."But you |
00000ca0  68 61 76 65 20 67 6f 6f  64 20 22 3b 4a 24 28 66  |have good ";J$(f|
00000cb0  29 3b 27 27 22 53 6f 20  79 6f 75 20 68 61 76 65  |);''"So you have|
00000cc0  20 6e 6f 74 20 73 75 66  66 65 72 65 64 2e 22 0d  | not suffered.".|
00000cd0  02 44 06 f2 73 0d 02 4e  a6 db 3a f1 27 22 20 50  |.D..s..N..:.'" P|
00000ce0  41 59 49 4e 47 20 46 4f  52 20 4f 56 45 52 48 45  |AYING FOR OVERHE|
00000cf0  41 44 53 20 22 27 27 41  24 28 4e 29 27 27 22 79  |ADS "''A$(N)''"y|
00000d00  6f 75 20 68 61 76 65 3a  20 66 61 63 74 6f 72 69  |ou have: factori|
00000d10  65 73 20 22 3b 8a 32 35  29 3b 48 28 4e 29 2f 31  |es ";.25);H(N)/1|
00000d20  32 30 3a f1 27 8a 31 30  29 22 65 78 74 65 6e 73  |20:.'.10)"extens|
00000d30  69 6f 6e 73 22 3b 8a 32  35 29 3b 58 28 4e 29 2f  |ions";.25);X(N)/|
00000d40  31 30 27 27 22 4f 76 65  72 68 65 61 64 20 63 6f  |10''"Overhead co|
00000d50  73 74 73 20 61 72 65 20  22 3b 58 28 4e 29 2b 48  |sts are ";X(N)+H|
00000d60  28 4e 29 3b 22 6b 22 3a  4b 28 4e 29 3d 4b 28 4e  |(N);"k":K(N)=K(N|
00000d70  29 2d 48 28 4e 29 2d 58  28 4e 29 0d 02 58 06 f2  |)-H(N)-X(N)..X..|
00000d80  73 0d 02 62 12 e7 43 28  4e 2b 54 29 3e 30 e5 8d  |s..b..C(N+T)>0..|
00000d90  54 5c 47 0d 02 6c 10 e7  4b 28 4e 29 3c 30 e5 8d  |T\G..l..K(N)<0..|
00000da0  54 5c 47 0d 02 76 17 43  28 4e 29 3d 43 28 4e 29  |T\G..v.C(N)=C(N)|
00000db0  2b 48 28 4e 29 2b 58 28  4e 29 0d 02 80 20 db 3a  |+H(N)+X(N)... .:|
00000dc0  f1 27 22 20 4d 41 4b 49  4e 47 20 54 45 4c 45 56  |.'" MAKING TELEV|
00000dd0  49 53 49 4f 4e 53 20 22  27 27 0d 02 8a 12 e7 4d  |ISIONS "''.....M|
00000de0  28 4e 2b 54 29 3e 30 e5  8d 64 50 42 0d 02 94 20  |(N+T)>0..dPB... |
00000df0  f1 20 41 24 28 4e 29 3b  22 2c 20 79 6f 75 20 68  |. A$(N);", you h|
00000e00  61 76 65 3a 22 27 3a 52  24 3d 22 22 0d 02 9e 08  |ave:"':R$=""....|
00000e10  f2 66 61 63 0d 02 a8 61  f1 27 22 59 6f 75 20 63  |.fac...a.'"You c|
00000e20  61 6e 20 61 66 66 6f 72  64 20 74 6f 20 62 75 69  |an afford to bui|
00000e30  6c 64 20 22 3b a8 28 4b  28 4e 29 2f 32 30 29 3b  |ld ";.(K(N)/20);|
00000e40  22 2e 22 3a e7 a4 6d 3c  34 38 f1 27 22 54 68 65  |".":..m<48.'"The|
00000e50  72 65 20 61 72 65 20 22  3b 34 38 2d a4 6d 3b 22  |re are ";48-.m;"|
00000e60  20 6d 61 72 6b 65 74 20  73 68 61 72 65 73 20 66  | market shares f|
00000e70  72 65 65 2e 22 0d 02 b2  2c f1 27 22 42 75 74 20  |ree."...,.'"But |
00000e80  79 6f 75 72 20 6d 61 72  6b 65 74 20 73 68 61 72  |your market shar|
00000e90  65 73 20 61 72 65 20 22  3b 4d 28 4e 29 3b 22 2e  |es are ";M(N);".|
00000ea0  22 0d 02 bc 3b f1 27 22  48 6f 77 20 6d 61 6e 79  |"...;.'"How many|
00000eb0  20 64 6f 20 79 6f 75 20  77 61 6e 74 20 74 6f 20  | do you want to |
00000ec0  62 75 69 6c 64 22 27 27  22 61 74 20 32 30 6b 20  |build"''"at 20k |
00000ed0  65 61 63 68 20 62 61 74  63 68 3f 22 0d 02 c6 11  |each batch?"....|
00000ee0  e7 4b 28 4e 29 3e 31 39  e5 8d 64 5a 42 0d 02 d0  |.K(N)>19..dZB...|
00000ef0  27 f1 27 22 59 6f 75 20  63 61 6e 20 62 75 69 6c  |'.'"You can buil|
00000f00  64 20 6e 6f 6e 65 2e 22  3a ef 37 3a f2 73 3a e5  |d none.":.7:.s:.|
00000f10  8d 54 42 43 0d 02 da 14  f5 e8 27 51 28 4e 29 3a  |.TBC......'Q(N):|
00000f20  fd 51 28 4e 29 3e 3d 30  0d 02 e4 16 e7 51 28 4e  |.Q(N)>=0.....Q(N|
00000f30  29 2a 32 30 3e 4b 28 4e  29 e5 8d 54 56 43 0d 02  |)*20>K(N)..TVC..|
00000f40  ee 18 e7 51 28 4e 29 3e  46 28 4e 29 2d 53 28 4e  |...Q(N)>F(N)-S(N|
00000f50  29 e5 8d 54 60 43 0d 02  f8 3d 4b 28 4e 29 3d 4b  |)..T`C...=K(N)=K|
00000f60  28 4e 29 2d 51 28 4e 29  2a 32 30 3a 53 28 4e 29  |(N)-Q(N)*20:S(N)|
00000f70  3d 53 28 4e 29 2b 51 28  4e 29 3a 43 28 4e 29 3d  |=S(N)+Q(N):C(N)=|
00000f80  43 28 4e 29 2b 51 28 4e  29 2a 32 30 3a 51 28 4e  |C(N)+Q(N)*20:Q(N|
00000f90  29 3d 30 0d 03 02 16 e7  53 28 4e 29 3c 3d 4d 28  |)=0.....S(N)<=M(|
00000fa0  4e 29 2b 33 e5 8d 44 5c  43 0d 03 0c 09 e5 8d 54  |N)+3..D\C......T|
00000fb0  6a 43 0d 03 16 2b db 3a  f1 27 22 45 52 52 4f 52  |jC...+.:.'"ERROR|
00000fc0  2e 20 4e 6f 74 20 65 6e  6f 75 67 68 20 63 61 73  |. Not enough cas|
00000fd0  68 21 22 27 3a ef 37 3a  e5 8d 74 68 42 0d 03 20  |h!"':.7:..thB.. |
00000fe0  34 db 3a f1 27 22 45 52  52 4f 52 2e 20 4e 6f 74  |4.:.'"ERROR. Not|
00000ff0  20 65 6e 6f 75 67 68 20  66 61 63 74 6f 72 79 20  | enough factory |
00001000  73 70 61 63 65 21 22 27  3a ef 37 3a e5 8d 74 5e  |space!"':.7:..t^|
00001010  42 0d 03 2a 57 db 3a f1  27 22 20 50 41 59 49 4e  |B..*W.:.'" PAYIN|
00001020  47 20 46 4f 52 20 4d 41  52 4b 45 54 49 4e 47 22  |G FOR MARKETING"|
00001030  27 27 3a e7 4b 28 4e 29  3c 32 35 f1 22 59 6f 75  |'':.K(N)<25."You|
00001040  20 63 61 6e 6e 6f 74 20  61 66 66 6f 72 64 20 6d  | cannot afford m|
00001050  61 72 6b 65 74 20 62 69  64 73 2e 22 3a ef 37 3a  |arket bids.":.7:|
00001060  f2 73 3a e5 8d 44 5c 43  0d 03 34 50 f1 41 24 28  |.s:..D\C..4P.A$(|
00001070  4e 29 22 2c 79 6f 75 20  68 61 76 65 20 22 3b 53  |N)",you have ";S|
00001080  28 4e 29 3b 22 20 62 61  74 63 68 65 73 20 69 6e  |(N);" batches in|
00001090  20 73 74 6f 63 6b 22 27  27 22 61 6e 64 20 22 3b  | stock"''"and ";|
000010a0  4d 28 4e 29 3b 22 20 6d  61 72 6b 65 74 20 73 68  |M(N);" market sh|
000010b0  61 72 65 73 2e 20 22 3b  0d 03 3e 63 e7 a4 61 6e  |ares. ";..>c..an|
000010c0  73 28 b9 2c 22 44 6f 20  79 6f 75 20 77 61 6e 74  |s(.,"Do you want|
000010d0  20 74 6f 22 2b bd 31 30  2b bd 31 30 2b bd 31 33  | to"+.10+.10+.13|
000010e0  2b 22 62 69 64 20 66 6f  72 20 66 6f 75 72 20 6d  |+"bid for four m|
000010f0  6f 72 65 20 6d 61 72 6b  65 74 20 73 68 61 72 65  |ore market share|
00001100  73 20 61 74 20 32 35 6b  3f 22 2b bd 31 33 2b bd  |s at 25k?"+.13+.|
00001110  31 30 29 3d a3 20 8c 8d  44 5c 43 0d 03 48 41 4b  |10)=. ..D\C..HAK|
00001120  28 4e 29 3d 4b 28 4e 29  2d 32 35 3a 42 28 4e 29  |(N)=K(N)-25:B(N)|
00001130  3d 42 28 4e 29 2b 54 3a  43 28 4e 29 3d 43 28 4e  |=B(N)+T:C(N)=C(N|
00001140  29 2b 32 35 3a e7 4d 28  4e 29 2b 42 28 4e 29 2b  |)+25:.M(N)+B(N)+|
00001150  33 3e 3d 53 28 4e 29 e5  8d 44 5c 43 0d 03 52 38  |3>=S(N)..D\C..R8|
00001160  e7 a4 61 6e 73 28 b9 2c  22 44 6f 20 79 6f 75 20  |..ans(.,"Do you |
00001170  77 61 6e 74 20 74 6f 20  62 69 64 20 66 6f 72 20  |want to bid for |
00001180  61 6e 6f 74 68 65 72 20  66 6f 75 72 3f 22 29 8c  |another four?").|
00001190  8d 44 48 43 0d 03 5c 1f  db 3a f1 27 22 20 54 48  |.DHC..\..:.'" TH|
000011a0  45 20 53 45 4c 4c 49 4e  47 20 50 52 49 43 45 20  |E SELLING PRICE |
000011b0  22 27 27 0d 03 66 10 e7  53 28 4e 29 3c 31 e5 8d  |"''..f..S(N)<1..|
000011c0  64 4a 43 0d 03 70 28 f1  22 50 6c 65 61 73 65 20  |dJC..p(."Please |
000011d0  69 6e 70 75 74 20 79 6f  75 72 20 73 65 6c 6c 69  |input your selli|
000011e0  6e 67 20 70 72 69 63 65  2e 22 27 0d 03 7a 30 e7  |ng price."'..z0.|
000011f0  54 35 3c 33 f1 22 49 74  20 77 69 6c 6c 20 62 65  |T5<3."It will be|
00001200  20 63 6f 6e 63 65 61 6c  65 64 20 6f 6e 20 74 68  | concealed on th|
00001210  65 20 73 63 72 65 65 6e  2e 22 27 0d 03 84 0a 4e  |e screen."'....N|
00001220  24 3d 22 30 22 0d 03 8e  2d f5 49 24 3d be 3a e7  |$="0"...-.I$=.:.|
00001230  49 24 3d bd 28 31 32 37  29 e7 20 a9 4e 24 3e 31  |I$=.(127). .N$>1|
00001240  ef 31 32 37 3a 4e 24 3d  c0 4e 24 2c a9 4e 24 2d  |.127:N$=.N$,.N$-|
00001250  31 29 0d 03 98 29 e7 49  24 3e 3d 22 30 22 e7 49  |1)...).I$>="0".I|
00001260  24 3c 3d 22 39 22 e7 20  a9 4e 24 3c 33 f1 22 23  |$<="9". .N$<3."#|
00001270  22 3b 3a 4e 24 3d 4e 24  2b 49 24 0d 03 a2 0b fd  |";:N$=N$+I$.....|
00001280  49 24 3d bd 31 33 0d 03  ac 0e 50 28 4e 29 3d bb  |I$=.13....P(N)=.|
00001290  28 4e 24 29 0d 03 b6 5f  db 3a e7 50 28 4e 29 3e  |(N$)..._.:.P(N)>|
000012a0  3d 35 31 f1 27 22 49 66  20 79 6f 75 20 63 68 61  |=51.'"If you cha|
000012b0  72 67 65 20 6d 6f 72 65  20 74 68 61 6e 20 35 30  |rge more than 50|
000012c0  6b 20 61 6e 20 69 6d 70  6f 72 74 65 72 22 27 27  |k an importer"''|
000012d0  22 74 61 6b 65 73 20 61  6c 6c 20 79 6f 75 72 20  |"takes all your |
000012e0  6d 61 72 6b 65 74 20 73  68 61 72 65 73 2e 22 27  |market shares."'|
000012f0  3a ef 37 0d 03 c0 3d e7  a4 61 6e 73 28 b9 2c bd  |:.7...=..ans(.,.|
00001300  31 30 2b bd 31 33 2b 22  44 6f 20 79 6f 75 20 77  |10+.13+"Do you w|
00001310  61 6e 74 20 74 6f 20 63  68 61 6e 67 65 20 79 6f  |ant to change yo|
00001320  75 72 20 70 72 69 63 65  3f 22 29 8c 8d 44 70 43  |ur price?")..DpC|
00001330  0d 03 ca 4f e7 50 28 4e  29 3c 3d 30 f1 27 41 24  |...O.P(N)<=0.'A$|
00001340  28 4e 29 3b 22 20 42 6c  61 63 6b 20 6d 61 72 6b  |(N);" Black mark|
00001350  65 74 20 72 61 69 73 65  73 20 79 6f 75 72 22 27  |et raises your"'|
00001360  27 22 70 72 69 63 65 73  20 74 6f 20 35 30 6b 2e  |'"prices to 50k.|
00001370  22 3a 50 28 4e 29 3d 35  30 3a ef 37 3a f2 73 0d  |":P(N)=50:.7:.s.|
00001380  03 d4 2b 3a db 3a f1 27  41 24 28 4e 29 22 2c 20  |..+:.:.'A$(N)", |
00001390  69 74 73 20 74 68 65 20  65 6e 64 20 6f 66 20 79  |its the end of y|
000013a0  6f 75 72 20 74 75 72 6e  2e 22 0d 03 de 06 ed 4e  |our turn.".....N|
000013b0  0d 03 e8 18 f1 27 22 20  53 4f 52 54 49 4e 47 20  |.....'" SORTING |
000013c0  50 52 49 43 45 53 20 22  0d 03 f2 16 e3 4f 3d 31  |PRICES ".....O=1|
000013d0  b8 35 3a 52 28 4f 29 3d  50 28 4f 29 3a ed 0d 03  |.5:R(O)=P(O):...|
000013e0  fc 3d f5 55 3d 30 3a e3  4f 3d 31 b8 54 3a e7 52  |.=.U=0:.O=1.T:.R|
000013f0  28 4f 29 3e 52 28 4f 2b  31 29 41 3d 52 28 4f 29  |(O)>R(O+1)A=R(O)|
00001400  3a 52 28 4f 29 3d 52 28  4f 2b 31 29 3a 52 28 4f  |:R(O)=R(O+1):R(O|
00001410  2b 31 29 3d 41 3a 55 3d  55 2b 31 0d 04 06 0b ed  |+1)=A:U=U+1.....|
00001420  3a fd 55 3c 3d 30 0d 04  10 49 f1 27 8a 34 29 22  |:.U<=0...I.'.4)"|
00001430  50 6c 61 79 65 72 22 8a  32 30 29 22 50 72 69 63  |Player".20)"Pric|
00001440  65 73 22 8a 33 30 29 22  42 69 64 73 22 27 8a 34  |es".30)"Bids"'.4|
00001450  29 22 2d 2d 2d 2d 2d 2d  22 8a 32 30 29 22 2d 2d  |)"------".20)"--|
00001460  2d 2d 2d 2d 22 8a 33 30  29 22 2d 2d 2d 2d 22 0d  |----".30)"----".|
00001470  04 1a 0a e3 4a 3d 31 b8  54 0d 04 24 0a e3 5a 3d  |....J=1.T..$..Z=|
00001480  31 b8 54 0d 04 2e 17 e7  53 28 5a 29 3c 4d 28 5a  |1.T.....S(Z)<M(Z|
00001490  29 4d 28 5a 29 3d 53 28  5a 29 0d 04 38 0d e7 4a  |)M(Z)=S(Z)..8..J|
000014a0  3d 31 8c 8d 44 4c 44 0d  04 42 15 e7 52 28 4a 29  |=1..DLD..B..R(J)|
000014b0  3d 52 28 4a 2d 31 29 8c  8d 44 56 44 0d 04 4c 2b  |=R(J-1)..DVD..L+|
000014c0  e7 50 28 5a 29 3d 52 28  4a 29 f1 8a 33 29 41 24  |.P(Z)=R(J)..3)A$|
000014d0  28 5a 29 3b 8a 32 30 29  50 28 5a 29 3b 8a 33 30  |(Z);.20)P(Z);.30|
000014e0  29 42 28 5a 29 2f 54 0d  04 56 06 ed 5a 0d 04 60  |)B(Z)/T..V..Z..`|
000014f0  06 ed 4a 0d 04 6a 21 f1  27 22 20 43 48 41 4e 47  |..J..j!.'" CHANG|
00001500  49 4e 47 20 4d 41 52 4b  45 54 20 53 48 41 52 45  |ING MARKET SHARE|
00001510  53 20 22 27 0d 04 74 0f  e7 a4 6d 3e 34 34 8c 8d  |S "'..t...m>44..|
00001520  64 58 44 0d 04 7e 0a e3  56 3d 31 b8 54 0d 04 88  |dXD..~..V=1.T...|
00001530  16 e3 57 3d 31 b8 54 3a  e7 a4 6d 3e 34 34 8c 8d  |..W=1.T:..m>44..|
00001540  64 44 44 0d 04 92 18 e3  45 3d 31 b8 54 3a e7 42  |dDD.....E=1.T:.B|
00001550  28 45 29 3c 54 20 e5 8d  74 7a 44 0d 04 9c 0d e7  |(E)<T ..tzD.....|
00001560  57 3d 31 8c 8d 74 70 44  0d 04 a6 15 e7 52 28 57  |W=1..tpD.....R(W|
00001570  29 3d 52 28 57 2d 31 29  8c 8d 74 7a 44 0d 04 b0  |)=R(W-1)..tzD...|
00001580  46 e7 50 28 45 29 3d 52  28 57 29 f1 41 24 28 45  |F.P(E)=R(W).A$(E|
00001590  29 22 20 63 6c 61 69 6d  73 20 34 20 6d 61 72 6b  |)" claims 4 mark|
000015a0  65 74 20 73 68 61 72 65  73 2e 22 3a 4d 28 45 29  |et shares.":M(E)|
000015b0  3d 4d 28 45 29 2b 54 3a  42 28 45 29 3d 42 28 45  |=M(E)+T:B(E)=B(E|
000015c0  29 2d 54 0d 04 ba 06 ed  45 0d 04 c4 06 ed 57 0d  |)-T.....E.....W.|
000015d0  04 ce 06 ed 56 0d 04 d8  0a e3 45 3d 31 b8 54 0d  |....V.....E=1.T.|
000015e0  04 e2 16 e7 52 28 45 29  3d 30 52 28 45 29 3d 52  |....R(E)=0R(E)=R|
000015f0  28 45 2b 31 29 0d 04 ec  16 e7 52 28 45 29 3d 30  |(E+1).....R(E)=0|
00001600  52 28 45 29 3d 52 28 45  2b 32 29 0d 04 f6 11 e7  |R(E)=R(E+2).....|
00001610  42 28 45 29 3c 54 20 8c  8d 54 54 45 0d 05 00 13  |B(E)<T ..TTE....|
00001620  e7 50 28 45 29 3e 52 28  31 29 8c 8d 54 54 45 0d  |.P(E)>R(1)..TTE.|
00001630  05 0a 2e f1 41 24 28 45  29 22 20 77 69 6e 73 20  |....A$(E)" wins |
00001640  34 20 6d 61 72 6b 65 74  20 73 68 61 72 65 73 2e  |4 market shares.|
00001650  22 3a 4d 28 45 29 3d 4d  28 45 29 2b 54 0d 05 14  |":M(E)=M(E)+T...|
00001660  18 e7 4d 28 45 2b 54 29  3e 30 4d 28 45 29 3d 4d  |..M(E+T)>0M(E)=M|
00001670  28 45 2b 54 29 0d 05 1e  06 ed 45 0d 05 28 10 e7  |(E+T).....E..(..|
00001680  a4 6d 3c 3d 34 38 8c 8d  74 6a 45 0d 05 32 21 53  |.m<=48..tjE..2!S|
00001690  61 3d 30 3a e3 56 3d 31  b8 54 3a e7 50 28 56 29  |a=0:.V=1.T:.P(V)|
000016a0  3d 52 28 54 29 53 61 3d  53 61 2b 31 0d 05 3c 12  |=R(T)Sa=Sa+1..<.|
000016b0  ed 56 3a e7 53 61 3d 30  8c 20 53 61 3d 31 0d 05  |.V:.Sa=0. Sa=1..|
000016c0  46 1a 53 62 3d a8 28 28  28 a4 6d 2d 34 38 29 2f  |F.Sb=.(((.m-48)/|
000016d0  53 61 29 2b 30 2e 35 29  0d 05 50 1a e3 56 3d 31  |Sa)+0.5)..P..V=1|
000016e0  b8 54 3a e7 50 28 56 29  3c 52 28 54 29 8c 8d 74  |.T:.P(V)<R(T)..t|
000016f0  60 45 0d 05 5a 11 e7 4d  28 56 29 3c 3d 30 e5 8d  |`E..Z..M(V)<=0..|
00001700  74 56 45 0d 05 64 0b e3  59 3d 31 b8 53 62 0d 05  |tVE..d..Y=1.Sb..|
00001710  6e 34 e7 4d 28 56 29 3d  59 20 f1 41 24 28 56 29  |n4.M(V)=Y .A$(V)|
00001720  22 20 6c 6f 73 65 73 20  22 3b 59 22 20 6d 61 72  |" loses ";Y" mar|
00001730  6b 65 74 20 22 3b 3a 4d  28 56 29 3d 4d 28 56 29  |ket ";:M(V)=M(V)|
00001740  2d 59 0d 05 78 06 ed 59  0d 05 82 37 e7 4d 28 56  |-Y..x..Y...7.M(V|
00001750  29 3e 53 62 20 f1 41 24  28 56 29 22 20 6c 6f 73  |)>Sb .A$(V)" los|
00001760  65 73 20 22 3b 53 62 22  20 6d 61 72 6b 65 74 20  |es ";Sb" market |
00001770  22 3b 3a 4d 28 56 29 3d  4d 28 56 29 2d 53 62 0d  |";:M(V)=M(V)-Sb.|
00001780  05 8c 1e e7 53 62 3d 31  f1 22 73 68 61 72 65 2e  |....Sb=1."share.|
00001790  22 8b 20 f1 22 73 68 61  72 65 73 2e 22 0d 05 96  |". ."shares."...|
000017a0  12 e7 4d 28 56 29 3c 30  20 4d 28 56 29 3d 30 0d  |..M(V)<0 M(V)=0.|
000017b0  05 a0 06 ed 56 0d 05 aa  0a e3 45 3d 31 b8 54 0d  |....V.....E=1.T.|
000017c0  05 b4 67 e7 50 28 45 29  3e 35 30 f1 41 24 28 45  |..g.P(E)>50.A$(E|
000017d0  29 22 20 6c 6f 73 65 73  20 61 6c 6c 20 6f 74 68  |)" loses all oth|
000017e0  65 72 20 6d 61 72 6b 65  74 20 73 68 61 72 65 73  |er market shares|
000017f0  22 27 22 74 6f 20 74 68  65 20 69 6d 70 6f 72 74  |"'"to the import|
00001800  65 72 20 66 6f 72 20 74  68 69 73 20 72 6f 75 6e  |er for this roun|
00001810  64 2e 22 3a 4d 28 45 2b  54 29 3d 4d 28 45 29 3a  |d.":M(E+T)=M(E):|
00001820  4d 28 45 29 3d 30 0d 05  be 06 ed 45 0d 05 c8 40  |M(E)=0.....E...@|
00001830  f1 22 20 4e 6f 20 6d 6f  72 65 20 6d 61 72 6b 65  |." No more marke|
00001840  74 20 63 68 61 6e 67 65  73 22 3a f2 73 3a db 3a  |t changes":.s:.:|
00001850  f1 27 22 20 4d 41 52 4b  45 54 20 53 48 41 52 45  |.'" MARKET SHARE|
00001860  53 20 52 45 50 4f 52 54  20 22 27 27 0d 05 d2 53  |S REPORT "''...S|
00001870  f1 22 20 20 20 20 34 20  20 20 38 20 20 20 31 32  |."    4   8   12|
00001880  20 20 31 36 20 20 32 30  20 20 32 34 20 20 32 38  |  16  20  24  28|
00001890  20 20 33 32 22 3b 8a 34  31 29 22 5f 5f 5f 2b 5f  |  32";.41)"___+_|
000018a0  5f 5f 2b 5f 5f 5f 2b 5f  5f 5f 2b 5f 5f 5f 2b 5f  |__+___+___+___+_|
000018b0  5f 5f 2b 5f 5f 5f 2b 5f  5f 5f 2b 5f 5f 22 27 0d  |__+___+___+__"'.|
000018c0  05 dc 4d e3 56 3d 31 b8  54 3a f1 41 24 28 56 29  |..M.V=1.T:.A$(V)|
000018d0  3b 22 20 20 22 3b 4d 28  56 29 27 c4 4d 28 56 29  |;"  ";M(V)'.M(V)|
000018e0  2c bd 32 32 37 29 27 3a  ed 3a f2 73 3a db 3a f1  |,.227)':.:.s:.:.|
000018f0  27 22 20 50 52 4f 46 49  54 20 41 4e 44 20 4c 4f  |'" PROFIT AND LO|
00001900  53 53 20 41 43 43 4f 55  4e 54 20 22 0d 05 e6 0a  |SS ACCOUNT "....|
00001910  e3 47 3d 31 b8 54 0d 05  f0 11 e7 50 28 47 29 3e  |.G=1.T.....P(G)>|
00001920  35 30 8c 8d 54 4e 46 0d  05 fa 18 e7 4d 28 47 2b  |50..TNF.....M(G+|
00001930  54 29 3e 30 4d 28 47 2b  54 29 3d 4d 28 47 29 0d  |T)>0M(G+T)=M(G).|
00001940  06 04 16 e7 4d 28 47 2b  54 29 3e 30 4d 28 47 29  |....M(G+T)>0M(G)|
00001950  3d 53 28 47 29 0d 06 0e  23 f1 27 41 24 28 47 29  |=S(G)...#.'A$(G)|
00001960  22 20 73 6f 6c 64 20 22  3b 4d 28 47 29 22 20 62  |" sold ";M(G)" b|
00001970  61 74 63 68 65 73 2e 22  0d 06 18 23 f1 8a 31 34  |atches."...#..14|
00001980  29 22 52 65 76 65 6e 75  65 22 3b 8a 2d 28 a9 c3  |)"Revenue";.-(..|
00001990  a8 a4 74 29 2b 33 38 29  a8 a4 74 0d 06 22 12 53  |..t)+38)..t..".S|
000019a0  28 47 29 3d 53 28 47 29  2d 4d 28 47 29 0d 06 2c  |(G)=S(G)-M(G)..,|
000019b0  34 f1 8a 31 34 29 22 50  72 6f 66 69 74 22 3b 8a  |4..14)"Profit";.|
000019c0  33 38 2d a9 20 c3 28 a8  28 a4 74 2d a4 63 2b 30  |38-. .(.(.t-.c+0|
000019d0  2e 35 29 29 29 a8 28 a4  74 2d a4 63 2b 30 2e 35  |.5))).(.t-.c+0.5|
000019e0  29 0d 06 36 57 f1 8a 31  34 29 22 41 66 74 65 72  |)..6W..14)"After|
000019f0  20 64 65 70 72 65 63 69  61 74 69 6f 6e 22 3b 8a  | depreciation";.|
00001a00  2d 28 a9 20 c3 28 a8 28  a4 74 2d 28 a4 63 2b 44  |-(. .(.(.t-(.c+D|
00001a10  28 47 29 2f 31 30 29 2b  30 2e 35 29 29 29 2b 33  |(G)/10)+0.5)))+3|
00001a20  38 29 a8 28 a4 74 2d 28  a4 63 2b 44 28 47 29 2f  |8).(.t-(.c+D(G)/|
00001a30  31 30 29 2b 30 2e 35 29  0d 06 40 23 4b 28 47 2b  |10)+0.5)..@#K(G+|
00001a40  34 29 3d 4b 28 47 2b 34  29 2b 28 a4 74 2d 28 a4  |4)=K(G+4)+(.t-(.|
00001a50  63 2b 44 28 47 29 2f 31  30 29 29 0d 06 4a 22 4b  |c+D(G)/10))..J"K|
00001a60  28 47 29 3d 4b 28 47 29  2b a4 74 3a 44 28 47 29  |(G)=K(G)+.t:D(G)|
00001a70  3d 44 28 47 29 2d 44 28  47 29 2f 31 30 0d 06 54  |=D(G)-D(G)/10..T|
00001a80  12 e7 4d 28 47 2b 54 29  3d 30 e5 8d 44 68 46 0d  |..M(G+T)=0..DhF.|
00001a90  06 5e 18 4d 28 47 29 3d  4d 28 47 2b 54 29 3a 4d  |.^.M(G)=M(G+T):M|
00001aa0  28 47 2b 54 29 3d 30 0d  06 68 0b ed 47 3a f2 73  |(G+T)=0..h..G:.s|
00001ab0  3a db 0d 06 72 37 41 3d  30 3a e3 4a 3d 31 b8 54  |:...r7A=0:.J=1.T|
00001ac0  3a 41 3d 41 2b 43 28 4a  2b 54 29 3a e7 4b 28 4a  |:A=A+C(J+T):.K(J|
00001ad0  29 2d 43 28 4a 2b 54 29  3e 30 20 80 20 4d 28 4a  |)-C(J+T)>0 . M(J|
00001ae0  29 3e 32 34 8c 8d 74 50  46 0d 06 7c 1c ed 4a 3a  |)>24..tPF..|..J:|
00001af0  e4 8d 74 72 47 3a e7 41  3d 33 20 84 20 41 3d 34  |..trG:.A=3 . A=4|
00001b00  8c 8d 64 4c 46 0d 06 86  09 e5 8d 74 56 40 0d 06  |..dLF......tV@..|
00001b10  90 40 61 24 3d 22 2a 2a  2a 2a 22 3a f1 27 22 20  |.@a$="****":.'" |
00001b20  54 48 45 20 57 49 4e 4e  45 52 22 27 61 24 3b 8a  |THE WINNER"'a$;.|
00001b30  31 32 29 3b 41 24 28 4a  29 3b 8a 33 32 29 3b 61  |12);A$(J);.32);a|
00001b40  24 3a d4 31 2c 2d 31 35  2c 31 32 38 2c 34 0d 06  |$:.1,-15,128,4..|
00001b50  9a 30 f1 61 24 3b 8a 31  31 29 3b 22 69 73 20 74  |.0.a$;.11);"is t|
00001b60  68 65 20 77 69 6e 6e 65  72 22 3b 8a 33 32 29 3b  |he winner";.32);|
00001b70  61 24 3a d4 31 2c 2d 31  35 2c 34 30 2c 38 0d 06  |a$:.1,-15,40,8..|
00001b80  a4 3f f1 61 24 3b 8a 37  29 3b 22 77 69 74 68 20  |.?.a$;.7);"with |
00001b90  22 3b 4d 28 4a 29 3b 22  20 6d 61 72 6b 65 74 20  |";M(J);" market |
00001ba0  73 68 61 72 65 73 2e 22  3b 8a 33 32 29 3b 61 24  |shares.";.32);a$|
00001bb0  3a d4 31 2c 2d 31 35 2c  31 32 38 2c 38 0d 06 ae  |:.1,-15,128,8...|
00001bc0  0b f1 3a e4 8d 74 7c 47  0d 06 b8 0b 2a 46 58 32  |..:..t|G....*FX2|
00001bd0  31 2c 30 0d 06 c2 0b 2a  46 58 31 31 2c 30 0d 06  |1,0....*FX11,0..|
00001be0  cc 26 f1 27 8a 36 29 22  50 72 65 73 73 20 53 50  |.&.'.6)"Press SP|
00001bf0  41 43 45 20 42 41 52 20  74 6f 20 63 6f 6e 74 69  |ACE BAR to conti|
00001c00  6e 75 65 22 0d 06 d6 0f  e7 a5 3d 33 32 8b e5 8d  |nue"......=32...|
00001c10  64 56 46 0d 06 e0 18 db  3a f1 8a 31 35 2c 31 30  |dVF.....:..15,10|
00001c20  29 3b 22 54 48 45 20 45  4e 44 22 0d 06 ea 2e f1  |);"THE END".....|
00001c30  8a 34 2c 32 33 29 3b 22  50 72 65 73 73 20 53 50  |.4,23);"Press SP|
00001c40  41 43 45 20 42 41 52 20  66 6f 72 20 61 6e 6f 74  |ACE BAR for anot|
00001c50  68 65 72 20 67 61 6d 65  22 0d 06 f4 0b 2a 46 58  |her game"....*FX|
00001c60  32 31 2c 30 0d 06 fe 16  e7 a5 3d 33 32 d8 3a e5  |21,0......=32.:.|
00001c70  8d 54 7c 40 8b e5 8d 64  7e 46 0d 07 08 05 e0 0d  |.T|@...d~F......|
00001c80  07 12 05 20 0d 07 1c 18  db 3a f1 27 22 20 43 41  |... .....:.'" CA|
00001c90  53 48 20 43 52 49 53 49  53 22 27 27 0d 07 26 12  |SH CRISIS"''..&.|
00001ca0  e7 43 28 4e 2b 54 29 3e  30 e5 8d 44 58 47 0d 07  |.C(N+T)>0..DXG..|
00001cb0  30 2c f1 41 24 28 4e 29  3b 22 2c 20 59 6f 75 20  |0,.A$(N);", You |
00001cc0  68 61 76 65 20 72 75 6e  20 6f 75 74 20 6f 66 20  |have run out of |
00001cd0  63 61 73 68 2e 22 27 3a  ef 37 0d 07 3a 5c e7 a4  |cash."':.7..:\..|
00001ce0  61 6e 73 28 b9 2c 22 44  6f 20 79 6f 75 20 77 61  |ans(.,"Do you wa|
00001cf0  6e 74 20 61 20 6c 6f 61  6e 20 6f 66 20 35 30 30  |nt a loan of 500|
00001d00  6b 20 66 6f 72 20 61 20  72 6f 75 6e 64 22 2b bd  |k for a round"+.|
00001d10  31 30 2b bd 31 30 2b bd  31 33 2b 22 61 74 20 31  |10+.10+.13+"at 1|
00001d20  32 20 70 65 72 20 63 65  6e 74 3f 22 29 3d a3 20  |2 per cent?")=. |
00001d30  8c 20 8d 44 58 47 0d 07  44 1e f1 27 22 4f 2e 4b  |. .DXG..D..'"O.K|
00001d40  2e 20 52 65 70 61 79 20  6e 65 78 74 20 72 6f 75  |. Repay next rou|
00001d50  6e 64 2e 22 0d 07 4e 2c  4b 28 4e 29 3d 4b 28 4e  |nd."..N,K(N)=K(N|
00001d60  29 2b 35 30 30 3a 43 28  4e 2b 54 29 3d 43 28 4e  |)+500:C(N+T)=C(N|
00001d70  2b 54 29 2b 35 30 30 3a  f2 73 3a e5 8d 44 76 42  |+T)+500:.s:..DvB|
00001d80  0d 07 58 6f e7 4b 28 4e  29 3c 35 31 35 f1 27 22  |..Xo.K(N)<515.'"|
00001d90  53 6f 72 72 79 2c 20 22  41 24 28 4e 29 22 2c 20  |Sorry, "A$(N)", |
00001da0  79 6f 75 20 6d 75 73 74  20 72 65 74 69 72 65 2e  |you must retire.|
00001db0  22 27 27 22 54 68 61 6e  6b 73 20 66 6f 72 20 70  |"''"Thanks for p|
00001dc0  6c 61 79 69 6e 67 2e 22  3a 4b 28 4e 29 3d 30 3a  |laying.":K(N)=0:|
00001dd0  4d 28 4e 29 3d 30 3a 43  28 4e 2b 54 29 3d 31 3a  |M(N)=0:C(N+T)=1:|
00001de0  44 28 4e 29 3d 30 3a f2  73 3a e5 8d 64 54 43 0d  |D(N)=0:.s:..dTC.|
00001df0  07 62 50 f1 22 4c 6f 61  6e 20 72 65 70 61 69 64  |.bP."Loan repaid|
00001e00  2e 20 54 68 61 6e 6b 79  6f 75 2e 22 3a 4b 28 4e  |. Thankyou.":K(N|
00001e10  29 3d 4b 28 4e 29 2d 35  31 35 3a 43 28 4e 29 3d  |)=K(N)-515:C(N)=|
00001e20  43 28 4e 29 2b 31 35 3a  43 28 4e 2b 54 29 3d 43  |C(N)+15:C(N+T)=C|
00001e30  28 4e 2b 54 29 2d 35 30  30 3a e5 8d 44 58 42 0d  |(N+T)-500:..DXB.|
00001e40  07 6c 29 dd f2 67 72 61  20 ea 61 25 3a db 3a f1  |.l)..gra .a%:.:.|
00001e50  27 27 27 27 20 41 24 28  4e 29 3b 22 27 53 20 46  |'''' A$(N);"'S F|
00001e60  41 43 54 4f 52 59 22 3b  0d 07 76 20 e7 46 28 4e  |ACTORY";..v .F(N|
00001e70  29 3e 31 32 f1 22 20 77  69 74 68 20 65 78 74 65  |)>12." with exte|
00001e80  6e 73 69 6f 6e 73 2e 22  0d 07 80 1c ef 32 33 2c  |nsions.".....23,|
00001e90  31 2c 30 3b 30 3b 30 3b  30 3b 3a f1 8a 32 2c 39  |1,0;0;0;0;:..2,9|
00001ea0  29 22 2f 22 0d 07 8a 2a  f7 8d 54 6e 49 3a e3 69  |)"/"...*..TnI:.i|
00001eb0  25 3d 31 30 b8 31 37 3a  f3 61 25 2c 78 3a f2 66  |%=10.17:.a%,x:.f|
00001ec0  28 b9 2c bd 61 25 2c 78  2c 69 25 29 3a ed 0d 07  |(.,.a%,x,i%):...|
00001ed0  94 0d e3 57 3d 32 b8 46  28 4e 29 0d 07 9e 2b f7  |...W=2.F(N)...+.|
00001ee0  8d 54 78 49 3a e3 69 25  3d 31 33 b8 31 37 3a f3  |.TxI:.i%=13.17:.|
00001ef0  61 25 3a f2 66 28 b9 2c  bd 28 61 25 29 2c 57 2c  |a%:.f(.,.(a%),W,|
00001f00  69 25 29 3a ed 2c 0d 07  a8 19 f2 73 3a ef 32 33  |i%):.,.....s:.23|
00001f10  2c 31 2c 31 2c 30 3b 30  3b 30 3b 30 3b 3a e1 0d  |,1,1,0;0;0;0;:..|
00001f20  07 b2 49 f1 27 22 20 54  4f 54 41 4c 20 50 52 4f  |..I.'" TOTAL PRO|
00001f30  46 49 54 20 22 27 27 22  54 68 65 20 77 69 6e 6e  |FIT "''"The winn|
00001f40  69 6e 67 20 70 6c 61 79  65 72 20 68 61 73 20 74  |ing player has t|
00001f50  68 65 20 6c 61 72 67 65  73 74 20 74 6f 74 61 6c  |he largest total|
00001f60  70 72 6f 66 69 74 22 27  0d 07 bc 5f f1 20 8a 31  |profit"'..._. .1|
00001f70  34 29 3b 22 43 61 73 68  22 3b 8a 32 35 29 3b 22  |4);"Cash";.25);"|
00001f80  54 6f 74 61 6c 22 3b 8a  35 31 29 3b 22 6c 65 73  |Total";.51);"les|
00001f90  73 20 6c 6f 61 6e 73 22  3b 8a 36 35 29 3b 22 70  |s loans";.65);"p|
00001fa0  72 6f 66 69 74 22 3b 8a  39 31 29 3b 22 2d 2d 2d  |rofit";.91);"---|
00001fb0  2d 2d 2d 2d 2d 2d 2d 22  3b 8a 31 30 35 29 3b 22  |-------";.105);"|
00001fc0  2d 2d 2d 2d 2d 2d 22 0d  07 c6 0c e3 20 45 3d 31  |------"..... E=1|
00001fd0  b8 20 54 0d 07 d0 13 e7  20 43 28 45 2b 54 29 3d  |. T..... C(E+T)=|
00001fe0  31 8c 8d 64 64 47 0d 07  da 35 f1 27 41 24 28 45  |1..ddG...5.'A$(E|
00001ff0  29 3b 8a 31 34 29 3b a8  28 4b 28 45 29 2d 43 28  |);.14);.(K(E)-C(|
00002000  45 2b 54 29 29 3b 22 6b  22 3b 8a 32 36 29 3b a8  |E+T));"k";.26);.|
00002010  20 4b 28 45 2b 54 29 3b  22 6b 22 0d 07 e4 07 ed  | K(E+T);"k".....|
00002020  20 45 0d 07 ee 4e e8 27  27 22 44 6f 20 79 6f 75  | E...N.''"Do you|
00002030  20 77 61 6e 74 20 74 6f  20 73 65 65 20 74 68 65  | want to see the|
00002040  20 62 61 6c 61 6e 63 65  20 73 68 65 65 74 73 3f  | balance sheets?|
00002050  22 27 27 22 41 6e 73 77  65 72 20 59 20 6f 72 20  |"''"Answer Y or |
00002060  4e 2e 22 5a 24 3a e7 5a  24 3d 22 59 22 f2 62 73  |N."Z$:.Z$="Y".bs|
00002070  0d 07 f8 05 f8 0d 08 02  1a dd f2 62 73 20 e3 47  |...........bs .G|
00002080  3d 31 b8 54 3a e7 47 3d  31 84 20 47 3d 33 db 0d  |=1.T:.G=1. G=3..|
00002090  08 0c 18 e7 43 28 47 2b  54 29 3d 31 80 20 47 3d  |....C(G+T)=1. G=|
000020a0  54 20 e5 8d 44 66 48 0d  08 16 17 e7 43 28 47 2b  |T ..DfH.....C(G+|
000020b0  54 29 3d 31 80 20 47 3d  32 8c 8d 44 66 48 0d 08  |T)=1. G=2..DfH..|
000020c0  20 12 e7 43 28 47 2b 54  29 3d 31 8c 8d 44 70 48  | ..C(G+T)=1..DpH|
000020d0  0d 08 2a 5f f1 27 22 20  42 41 4c 41 4e 43 45 20  |..*_.'" BALANCE |
000020e0  53 48 45 45 54 22 3b 22  20 66 6f 72 20 22 3b 41  |SHEET";" for ";A|
000020f0  24 28 47 29 27 27 22 20  4c 69 61 62 69 6c 69 74  |$(G)''" Liabilit|
00002100  69 65 73 22 3b 8a 32 30  29 3b 22 41 73 73 65 74  |ies";.20);"Asset|
00002110  73 22 27 22 20 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |s"'" ___________|
00002120  22 3b 8a 32 30 29 3b 22  5f 5f 5f 5f 5f 5f 22 0d  |";.20);"______".|
00002130  08 34 80 f1 22 20 53 68  61 72 65 73 22 3b 8a 31  |.4.." Shares";.1|
00002140  31 29 3b 32 31 36 35 3b  8a 32 30 29 22 42 75 69  |1);2165;.20)"Bui|
00002150  6c 64 69 6e 67 73 22 3b  8a 33 38 2d a9 20 c3 20  |ldings";.38-. . |
00002160  a8 a4 6f 29 3b a8 a4 6f  27 22 20 50 20 26 20 4c  |..o);..o'" P & L|
00002170  22 3b 8a 31 35 2d a9 20  c3 20 a8 20 4b 28 47 2b  |";.15-. . . K(G+|
00002180  54 29 29 3b a8 20 4b 28  47 2b 54 29 3b 8a 32 30  |T));. K(G+T);.20|
00002190  29 3b 22 50 6c 61 6e 74  22 3b 8a 33 38 2d a9 20  |);"Plant";.38-. |
000021a0  c3 20 a8 44 28 47 29 29  3b a8 20 44 28 47 29 0d  |. .D(G));. D(G).|
000021b0  08 3e 2b f1 8a 32 30 29  3b 22 53 74 6f 63 6b 22  |.>+..20);"Stock"|
000021c0  3b 8a 33 38 2d a9 20 c3  28 53 28 47 29 2a 32 30  |;.38-. .(S(G)*20|
000021d0  29 29 3b 53 28 47 29 2a  32 30 0d 08 48 59 f1 22  |));S(G)*20..HY."|
000021e0  20 4c 6f 61 6e 73 22 3b  8a 31 35 2d a9 20 c3 43  | Loans";.15-. .C|
000021f0  28 47 2b 54 29 29 3b 43  28 47 2b 54 29 3b 8a 32  |(G+T));C(G+T);.2|
00002200  30 29 3b 22 43 61 73 68  22 3b 8a 33 38 2d a9 20  |0);"Cash";.38-. |
00002210  c3 20 4b 28 47 29 29 3b  4b 28 47 29 27 8a 31 31  |. K(G));K(G)'.11|
00002220  29 3b 22 5f 5f 5f 5f 22  3b 8a 33 34 29 22 5f 5f  |);"____";.34)"__|
00002230  5f 5f 22 0d 08 52 80 f1  22 20 54 6f 74 61 6c 22  |__"..R.." Total"|
00002240  3b 8a 31 35 2d a9 20 c3  20 a8 28 32 31 36 35 2b  |;.15-. . .(2165+|
00002250  4b 28 47 2b 54 29 2b 43  28 47 2b 54 29 29 29 3b  |K(G+T)+C(G+T)));|
00002260  a8 28 32 31 36 35 2b 4b  28 47 2b 54 29 2b 43 28  |.(2165+K(G+T)+C(|
00002270  47 2b 54 29 29 3b 8a 2d  a9 20 c3 20 a8 28 28 a4  |G+T));.-. . .((.|
00002280  6f 2b 44 28 47 29 2b 53  28 47 29 2a 32 30 29 2b  |o+D(G)+S(G)*20)+|
00002290  4b 28 47 29 29 2b 33 38  29 3b a8 28 a4 6f 2b 44  |K(G))+38);.(.o+D|
000022a0  28 47 29 2b 28 53 28 47  29 2a 32 30 29 2b 4b 28  |(G)+(S(G)*20)+K(|
000022b0  47 29 29 0d 08 5c 14 e7  47 3d 31 84 20 47 3d 33  |G))..\..G=1. G=3|
000022c0  f1 3a e5 8d 44 70 48 0d  08 66 06 f2 73 0d 08 70  |.:..DpH..f..s..p|
000022d0  0a ed 47 3a db 3a e1 0d  08 7a 34 dd f2 70 6c 61  |..G:.:...z4..pla|
000022e0  6e 20 f1 27 22 50 6c 61  6e 6e 69 6e 67 20 50 65  |n .'"Planning Pe|
000022f0  72 6d 69 73 73 69 6f 6e  20 6e 6f 74 20 67 72 61  |rmission not gra|
00002300  6e 74 65 64 2e 22 3a f2  73 3a e1 0d 08 84 38 dd  |nted.":.s:....8.|
00002310  f2 73 20 f1 8a 35 2c 32  34 29 22 50 72 65 73 73  |.s ..5,24)"Press|
00002320  20 53 50 41 43 45 20 42  41 52 20 74 6f 20 63 6f  | SPACE BAR to co|
00002330  6e 74 69 6e 75 65 22 3b  3a f5 20 fd 20 a5 3d 33  |ntinue";:. . .=3|
00002340  32 3a e1 0d 08 8e 64 dd  a4 61 6e 73 28 66 2c 61  |2:....d..ans(f,a|
00002350  24 29 f5 20 f1 20 61 24  3b 3a e7 66 20 f1 27 27  |$). . a$;:.f .''|
00002360  22 54 79 70 65 20 59 20  66 6f 72 20 59 45 53 3b  |"Type Y for YES;|
00002370  20 6f 72 22 27 8a 35 29  22 4e 20 66 6f 72 20 4e  | or"'.5)"N for N|
00002380  4f 3b 20 6f 72 22 27 8a  35 29 22 51 20 69 66 20  |O; or"'.5)"Q if |
00002390  79 6f 75 20 77 61 6e 74  20 69 6e 66 6f 72 6d 61  |you want informa|
000023a0  74 69 6f 6e 2e 22 27 0d  08 98 17 e8 20 5a 24 3a  |tion."'..... Z$:|
000023b0  e7 66 20 80 5a 24 3d 22  51 22 f2 72 65 70 0d 08  |.f .Z$="Q".rep..|
000023c0  a2 17 61 3d a7 22 59 4e  22 2c 5a 24 29 3a fd 61  |..a=."YN",Z$):.a|
000023d0  3a 3d 61 2d 32 0d 08 ac  72 dd f2 72 65 70 20 db  |:=a-2...r..rep .|
000023e0  3a f1 27 22 46 4f 52 20  41 20 52 45 50 4f 52 54  |:.'"FOR A REPORT|
000023f0  20 4f 4e 3a 22 27 27 22  46 69 6e 61 6e 63 65 22  | ON:"''"Finance"|
00002400  3b 8a 32 30 29 3b 22 70  72 65 73 73 20 46 22 27  |;.20);"press F"'|
00002410  22 50 72 6f 64 75 63 74  69 6f 6e 22 3b 8a 32 30  |"Production";.20|
00002420  29 3b 22 70 72 65 73 73  20 50 22 27 22 4d 61 72  |);"press P"'"Mar|
00002430  6b 65 74 69 6e 67 22 3b  8a 32 30 29 3b 22 70 72  |keting";.20);"pr|
00002440  65 73 73 20 4d 22 27 0d  08 b6 14 e8 52 24 3a e7  |ess M"'.....R$:.|
00002450  52 24 3d 22 46 22 8c 8d  64 54 48 0d 08 c0 0f e7  |R$="F"..dTH.....|
00002460  52 24 3d 22 50 22 f2 66  61 63 0d 08 ca 16 e7 52  |R$="P".fac.....R|
00002470  24 3d 22 4d 22 e5 8d 64  68 48 8b e5 8d 54 46 49  |$="M"..dhH...TFI|
00002480  0d 08 d4 57 f1 22 43 61  73 68 22 3b 8a 32 30 29  |...W."Cash";.20)|
00002490  3b 4b 28 4e 29 27 22 43  75 72 72 65 6e 74 20 73  |;K(N)'"Current s|
000024a0  70 65 6e 64 22 3b 8a 32  30 29 2b a8 43 28 4e 29  |pend";.20)+.C(N)|
000024b0  27 22 44 65 70 72 65 63  69 61 74 69 6f 6e 22 3b  |'"Depreciation";|
000024c0  8a 32 30 29 3b a8 28 44  28 4e 29 2f 31 30 29 3a  |.20);.(D(N)/10):|
000024d0  e5 8d 64 7c 48 3a e1 0d  08 de 68 dd f2 66 61 63  |..d|H:....h..fac|
000024e0  20 f1 22 46 61 63 74 6f  72 79 20 73 70 61 63 65  | ."Factory space|
000024f0  22 3b 8a 32 30 29 3b 46  28 4e 29 27 22 53 74 6f  |";.20);F(N)'"Sto|
00002500  63 6b 22 3b 8a 32 30 29  3b 53 28 4e 29 27 22 42  |ck";.20);S(N)'"B|
00002510  61 74 63 68 65 73 20 62  65 69 6e 67 20 6d 61 64  |atches being mad|
00002520  65 22 3b 8a 32 30 29 3b  51 28 4e 29 3a e7 52 24  |e";.20);Q(N):.R$|
00002530  3d 22 50 22 e5 8d 64 7c  48 8b e5 8d 54 50 49 0d  |="P"..d|H...TPI.|
00002540  08 e8 6c f1 22 49 6e 6e  6f 76 61 74 69 6f 6e 73  |..l."Innovations|
00002550  22 3b 8a 32 30 29 3b 49  28 4e 29 2f 32 27 22 4d  |";.20);I(N)/2'"M|
00002560  61 72 6b 65 74 20 62 69  64 73 22 3b 8a 32 30 29  |arket bids";.20)|
00002570  3b 42 28 4e 29 2f 54 27  22 4d 61 72 6b 65 74 20  |;B(N)/T'"Market |
00002580  73 68 61 72 65 73 22 3b  8a 32 30 29 3b 4d 28 4e  |shares";.20);M(N|
00002590  29 27 22 53 65 6c 6c 69  6e 67 20 70 72 69 63 65  |)'"Selling price|
000025a0  22 3b 8a 32 30 29 3b 50  28 4e 29 0d 08 f2 4a e7  |";.20);P(N)...J.|
000025b0  50 28 4e 29 3e 30 f1 22  42 72 65 61 6b 2d 65 76  |P(N)>0."Break-ev|
000025c0  65 6e 20 28 66 6f 72 20  22 3b 53 28 4e 29 22 29  |en (for ";S(N)")|
000025d0  22 3b 8a 32 30 29 a8 28  28 43 28 4e 29 2b 44 28  |";.20).((C(N)+D(|
000025e0  4e 29 2f 31 30 29 2f 53  28 4e 29 2d 49 28 4e 29  |N)/10)/S(N)-I(N)|
000025f0  2b 30 2e 35 29 0d 08 fc  06 f2 73 0d 09 06 05 db  |+0.5).....s.....|
00002600  0d 09 10 07 f1 3a e1 0d  09 1a 11 dd f2 66 28 66  |.....:.......f(f|
00002610  2c 61 24 2c 78 2c 79 29  0d 09 24 0e f1 8a 78 2c  |,a$,x,y)..$...x,|
00002620  79 29 61 24 3a e1 0d 09  2e 34 dc 32 32 36 2c 32  |y)a$:....4.226,2|
00002630  2c 32 32 36 2c 32 2c 32  32 36 2c 32 2c 32 32 37  |,226,2,226,2,227|
00002640  2c 31 2c 32 32 37 2c 31  2c 32 32 37 2c 31 2c 32  |,1,227,1,227,1,2|
00002650  32 37 2c 31 2c 32 32 37  2c 31 0d 09 38 18 dc 32  |27,1,227,1..8..2|
00002660  32 34 2c 32 32 35 2c 32  32 37 2c 32 32 38 2c 32  |24,225,227,228,2|
00002670  32 37 0d 09 42 1b dd a4  6d 3d 4d 28 31 29 2b 4d  |27..B...m=M(1)+M|
00002680  28 32 29 2b 4d 28 33 29  2b 4d 28 34 29 0d 09 4c  |(2)+M(3)+M(4)..L|
00002690  1c dd a4 6f 3d 28 48 28  47 29 2f 31 32 2a 35 30  |...o=(H(G)/12*50|
000026a0  2b 58 28 47 29 2a 32 30  29 0d 09 56 18 dd a4 74  |+X(G)*20)..V...t|
000026b0  3d 28 50 28 47 29 2b 49  28 47 29 29 2a 4d 28 47  |=(P(G)+I(G))*M(G|
000026c0  29 0d 09 60 16 dd a4 63  3d 28 43 28 47 29 2d 53  |)..`...c=(C(G)-S|
000026d0  28 47 29 2a 32 30 29 0d  09 6a 2f dd f2 46 49 4e  |(G)*20)..j/..FIN|
000026e0  44 28 41 24 29 41 25 3d  90 3a f5 e7 a7 24 28 41  |D(A$)A%=.:...$(A|
000026f0  25 2b 34 29 2c 41 24 29  f1 32 35 36 2a 41 25 3f  |%+4),A$).256*A%?|
00002700  31 2b 41 25 3f 32 0d 09  74 18 41 25 3d 41 25 2b  |1+A%?2..t.A%=A%+|
00002710  41 25 3f 33 3a fd 41 25  3f 31 3e 26 37 46 0d 00  |A%?3:.A%?1>&7F..|
00002720  ad 10 02 8d 83 40 ad 11  02 8d 84 40 a9 60 8d 10  |.....@.....@.`..|
00002730  02 a9 40 8d 11 02 a9 00  8d 82 40 a9 15 20 ee ff  |..@.......@.. ..|
00002740  a9 81 a2 00 a0 ff 20 f4  ff e0 00 f0 10 a9 b4 a2  |...... .........|
00002750  0e a0 00 20 f4 ff a2 99  a0 40 4c f7 ff 4c 00 80  |... .....@L..L..|
00002760  8e 81 40 ae 82 40 bd 85  40 ee 82 40 e0 13 d0 0c  |..@..@..@..@....|
00002770  ae 83 40 8e 10 02 ae 84  40 8e 11 02 ae 81 40 18  |..@.....@.....@.|
00002780  60 00 00 00 00 50 41 47  45 3d 26 31 39 30 30 0d  |`....PAGE=&1900.|
00002790  4f 4c 44 0d 52 55 4e 06  0d 42 41 53 49 43 0d a9  |OLD.RUN..BASIC..|
000027a0  81 a2 00 a0 ff 20 f4 ff  e0 00 f0 0c a9 c8 a2 03  |..... ..........|
000027b0  a0 00 20 f4 ff ca ca ca  86 70 a2 15 bd cf 40 9d  |.. ......p....@.|
000027c0  00 01 5d 86 05 05 70 85  70 ca 10 f0 aa f0 16 a9  |..]...p.p.......|
000027d0  0e 85 71 a0 00 84 70 91  70 c8 d0 fb e6 71 24 71  |..q...p.p....q$q|
000027e0  50 f5 6c fc ff 4c 20 40                           |P.l..L @|
000027e8
..m0
..m1
..m2
..m4
..m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .