Home » Personal collection » Acorn tapes » Commercial_Releases » boxed_acornsoft_tape11b_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_tape11b_acorn_business_games.wav
Filename: .
Read OK: ✔
File size: 19A7 bytes
Load address: 1900
Exec address: 325E
Duplicates

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

File contents

�

�STOKMARK

��:�T|@
(�=&31DF
2*FX200,2
<�6:*FX12,0
F�
P��''"This is a game about trading in shares  to make a profit. You also receive      dividends based on the original price atwhich the shares are offered - that is, 100p."'
ZR�"Therefore, 10% dividend on a share      originally valued at 100p. is 10p."'
dv�"But 10% dividend on a share whose price has risen in the market to 150p. is     still 10p. (100/10 not 150/10)"'
n
� �tPF
x�
���'"Don't worry. You will soon get the idea.It is not necessary to understand these notes in order to play and enjoy the    game."'
�/�"Yield on the market price is also shown."
�`� "For example, 10% dividend on a share    priced in the market at 150p. yields    6.67%."''
�$� �4);"Nominal value X dividend"
�.� �3);"__________________________ = Yield"
�� �10);"Market price"''
�
� �tPF
��
�v�''"The ratio between prices and earnings isalso shown (P/E).This is the share pricedivided by profit per share."'
�o� "For example, a profit of 20p. per share at a share price of 200p. gives a P/E of10 (200 divided by 20)"'
�S�"The Yield and P/E indicate whether a    share is worth investing in or not."'
�K� "In this game all companies declare half their profits as dividend."'
�J� "Each player starts with `1200. The firstto reach over `5000 wins."'

� �tPF
�
(�'''"Press RETURN after each input"'
".�"Up to eight people can play at a time."'
,� "How many are playing?"'
6� P$
@&P=��P$:�P<1�P>8��"ERROR"':�7:�TbA
J6�K(P),S(P),F(P+1),D(4),A(P+1),V(4+4*P),V$(4),N$(P)
TV$(1)="C) Colemine"
^V$(2)="D) Derfoods"
hV$(3)="E) Electrix"
rV$(4)="F) Fintrust"
|� N=1�4
�� V(N)=100
�
� D(N)=10
�� N
�!�'"Name the players please."'
�� M=1� P
�� N$(M)
�b� �(N$(M))>12 � �"The name should not exceed 12 letters.  Please use a shorter name.":�7:�txA
�
K(M)=1200
�� M
�
� �tPF
�� U=1� 4
�� T=1� P
��CLS
2�'�YL;N$(T);", your cash is `";�K(T)�(39-�);U;
2�'�YL"SHARES"�BL;�15)"Price  Div.  Yield P/E"'
� N=1� 4
&\�BL;V$(N);�15);V(N);"p";�22);D(N);�28);�(100*(100*D(N)/V(N)))/100;�35);�(V(N)/(D(N)*2))
0�
:�'�YL"HOLDINGS"�BL;
D1�15);"(C)";�21);"(D)";�27);"(E)";�33);"(F)"'
NJ=0
X� N=5�(4+P*4)�4
b	J=J+1
l�BL;N$(J);
v2�15);V(N);�21);V(N+1);�27);V(N+2);�33);V(N+3)
��
��I%=0�2:�0,21+I%)�YL;:�
�R1=1:�W
�0��'"Which shares will you trade? "C$:�C$<>""
��C$="M"��TdD
�R=�"CDEF",�C$,1))
�Q�R ��26:�BL;�38,R1+4)"  "�38,R+4)"<=":R1=R:�W ��"ERROR. Try again.":�7:�t^B
�Q=T*4+R
�E�K(T)=0�V(Q)=0��"ERROR. You have no cash to buy "�C$,1):�7:�t^B
��V(Q)=0�O%=1:�T`C
��K(T)=0�O%=2:�T`C
�$�'"Do you want to buy or sell? "
���"Answer B or S. "B$
O%=�"BS",�B$,1))
"�O%=0�'"ERROR. Try again."':�7
�O%
 �O%=1�BS$="buy"�BS$="sell"
*$�'"How many do you wish to "BS$;
4�"? "X$
>4�(X$)>9��"ERROR. That's far too many!":�7:�TjC
H<�X$<48��X$>57��"Please input positive numbers":�7:�TjC
R
X=��X$
\�O%=2��tDC
fQ�K(T)<(V(R)/100)*X ��"ERROR. You can afford ";�(K(T)/(V(R)/100));".":�7:�TjC
p	�drC
z	�tlC
�(�X>V(Q)��"That's too many!":�7:�TjC
�X=-X
�	�drC
��V(R)<5�V(R)=5
�� T
��O=1�P:� K(O)>4999��DPE:�O
�� U � �tnF,�tnF,�DPE,�DVD
�� U>2 � �d^C
��
�� U
�
� �djA
�K(T)=K(T)-(V(R)/100)*X
�V(Q)=V(Q)+X
 V(R)=�(V(R)+(�(20)-5)*X/400)
� V(R)<5�V(R)=5
�
$�:�7:�BL:�CLS:�14,3)N$(T)","'''�BL" pressing M now means miss a turn."''" If you are sure press M again."''"     Otherwise press RETURN."
.�23,1,0;0;0;0;
8A$=�:�23,1,1,0;0;0;0;
B�A$="M"� � �tlC
L	�d~A
V�CLS
` �'�YL"DIVIDENDS PAID";�39);U
j� L=1�4
tE=� �(5)-2
~D(L)=D(L)+E
�� D(L)<0 � D(L)=0
�(�BL;V$(L);" pays ";D(L);" per cent"
�V(L)=V(L)+D(L)
�� L
� �''�YL"DIVIDENDS RECEIVED "'
�B�BL;�14);"(C)";�19);"(D)";�24);"(E)";�29);"(F)";�34);"Total"'
�� Y=1� P
�
S(Y)=0
�� L=1�4
�#S(Y)=S(Y)+((D(L)/100)*V(L+4*Y))
�� L
���BL;N$(Y);�14);�((D(1)/100)*V(1+4*Y));�19);�((D(2)/100)*V(2+4*Y));�24);�((D(3)/100)*V(3+4*Y));�29);�((D(4)/100)*V(4+4*Y));�34);�S(Y)
K(Y)=K(Y)+S(Y)

� Y
�
� L=1�4
(V(L)=V(L)-8
2� V(L)<5�V(L)=5
<� L
F	�tPF
P�CLS
Z!�'�YL"WHO IS WINNING?";�39);U
d&�19,3);�BL;"Punter     Valuation"
n#�19,4);"------     ---------"'
x� Y=1� P
�
A(Y)=0
�� L=1�4
�#A(Y)=A(Y)+((V(L)/100)*V(L+4*Y))
�� L
�A(Y)=A(Y)+K(Y)
�� Y
�� O=1� P+1
�
F(O)=A(O)
�� O
�C=0
�� O=1� P
�� F(O)>=F(O+1)� �TbF
�
J=F(O)
F(O)=F(O+1)
F(O+1)=J
	C=C+1
"� O
,� C>0� � �d\E
6� O=1� P
@� L=1� P
J� F(O)=F(O-1)� � �D^F
T7� A(L)=F(O)� �BL;�16);O;")";�19);N$(L);�32);� A(L)
^� L
h� O
r� F(1)>4999� �TVH
|�26:�0,20);
�s�BL;"NOTE: Dividends are paid after the"'"next round, the 4th. Rounds are"'"numbered in the top right corner."
�*�5,24);"Press SPACE BAR to continue";
�
���=32
��
��WB:�BL:�26,12
��'�13);"DAILY NEWS";�39);U
�0�"________________________________________"'
�F=�(10)
�;� F � �tTG,�t^G,�thG,�trG,�t|G,�dFG,�dPG,�dZG,�ddG,�dxG
�
� �TLH
�� F>8� �TzG
�� F/2<>�(F/2)� �T\G
�$� �V$(F/2),8);"  -";�(V(F/2)/10)
V(F/2)=V(F/2)-�(V(F/2)/10)
	�tPF
,� �V$(F/2+0.5),8);" + ";�(V(F/2+0.5)/10)
&*V(F/2+0.5)=V(F/2+0.5)+�(V(F/2+0.5)/10)
0	�tPF
:� S=1�4
D� F>9 � �DlG
N � �V$(S),8);"  -";�(V(S)/20)
XV(S)=V(S)-�(V(S)/20)
b	�t@G
l � �V$(S),8);" + ";�(V(S)/20)
vV(S)=V(S)+�(V(S)/20)
��S
�	�tPF
��"COAL PRICES ROCKET.":�
�(�"NEW POWER STATION TO BE NUCLEAR":�
�#�"TAKEOVER BID FOR DERFOODS.":�
��"STRIKE HITS DERFOODS":�
�#�"ELECTRIX WINS BIG CONTRACT":�
�!�"FIRE AT ELECTRIX FACTORY":�
�+� "UNIT TRUST PRICES BEAT INFLATION.":�
�0�"FINTRUST ACCUSED OF TRUST FUND SCANDAL.":�
�(�"MINISTER'S$ENT UPSETS CITY."
�'�"Bear market on Stock Exchange.":�
� �"FAVOURABLE TRADE BALANCE."
'�"Bull market on Stock Exchange.":�
%�'"Yesterday's Price changes."':�
�3,6)�&88"The winner"�&89
 � M=1�4
*�1,-15,128,4:�1,-15,40,8
4� M
>*FX21,0
H*FX11,0
R*� �6,23);"Press SPACE BAR to continue"
\	�BL;
f�=32��DfH
p�:�15,10);"THE  END"
z.�4,23);"Press SPACE BAR for another game"
�*FX21,0
��=32�:�T|@��tNH
��
� 
�	��CLS
��YB:�BL:�26,12:�
�&��W �YL:�28,0,23,39,21,12,10,10:�
�ݤBL:�1:�128:=""
�ݤYL:�0:�129:=""
�"��YB:�19,0,4,0;0;19,1,3,0;0;:�
�"��WB:�19,0,0,0;0;19,1,7,0;0;:�
�/��FIND(A$)A%=�:��$(A%+4),A$)�256*A%?1+A%?2
�A%=A%+A%?3:�A%?1>&7F
��B2��C2���2���A2� ����� ������� �X�2L��L��@2�A2�D2�A2���B2��C2��@2`PAGE=&1900
OLD
RUN
BASIC
����� ����Ȣ� ���ʆp���2�]�p�p�����q��p�p���q$qP�l��L�1
00000000  0d 00 0a 08 f4 0c 15 03  0d 00 14 0d f4 53 54 4f  |.............STO|
00000010  4b 4d 41 52 4b 0d 00 1e  0d ee 85 d8 3a e5 8d 54  |KMARK.......:..T|
00000020  7c 40 0d 00 28 0b d2 3d  26 33 31 44 46 0d 00 32  ||@..(..=&31DF..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 05 f5 0d 00 50 af  |*FX12,0..F....P.|
00000050  f1 27 27 22 54 68 69 73  20 69 73 20 61 20 67 61  |.''"This is a ga|
00000060  6d 65 20 61 62 6f 75 74  20 74 72 61 64 69 6e 67  |me about trading|
00000070  20 69 6e 20 73 68 61 72  65 73 20 20 74 6f 20 6d  | in shares  to m|
00000080  61 6b 65 20 61 20 70 72  6f 66 69 74 2e 20 59 6f  |ake a profit. Yo|
00000090  75 20 61 6c 73 6f 20 72  65 63 65 69 76 65 20 20  |u also receive  |
000000a0  20 20 20 20 64 69 76 69  64 65 6e 64 73 20 62 61  |    dividends ba|
000000b0  73 65 64 20 6f 6e 20 74  68 65 20 6f 72 69 67 69  |sed on the origi|
000000c0  6e 61 6c 20 70 72 69 63  65 20 61 74 77 68 69 63  |nal price atwhic|
000000d0  68 20 74 68 65 20 73 68  61 72 65 73 20 61 72 65  |h the shares are|
000000e0  20 6f 66 66 65 72 65 64  20 2d 20 74 68 61 74 20  | offered - that |
000000f0  69 73 2c 20 31 30 30 70  2e 22 27 0d 00 5a 52 f1  |is, 100p."'..ZR.|
00000100  22 54 68 65 72 65 66 6f  72 65 2c 20 31 30 25 20  |"Therefore, 10% |
00000110  64 69 76 69 64 65 6e 64  20 6f 6e 20 61 20 73 68  |dividend on a sh|
00000120  61 72 65 20 20 20 20 20  20 6f 72 69 67 69 6e 61  |are      origina|
00000130  6c 6c 79 20 76 61 6c 75  65 64 20 61 74 20 31 30  |lly valued at 10|
00000140  30 70 2e 20 69 73 20 31  30 70 2e 22 27 0d 00 64  |0p. is 10p."'..d|
00000150  76 f1 22 42 75 74 20 31  30 25 20 64 69 76 69 64  |v."But 10% divid|
00000160  65 6e 64 20 6f 6e 20 61  20 73 68 61 72 65 20 77  |end on a share w|
00000170  68 6f 73 65 20 70 72 69  63 65 20 68 61 73 20 72  |hose price has r|
00000180  69 73 65 6e 20 69 6e 20  74 68 65 20 6d 61 72 6b  |isen in the mark|
00000190  65 74 20 74 6f 20 31 35  30 70 2e 20 69 73 20 20  |et to 150p. is  |
000001a0  20 20 20 73 74 69 6c 6c  20 31 30 70 2e 20 28 31  |   still 10p. (1|
000001b0  30 30 2f 31 30 20 6e 6f  74 20 31 35 30 2f 31 30  |00/10 not 150/10|
000001c0  29 22 27 0d 00 6e 0a e4  20 8d 74 50 46 0d 00 78  |)"'..n.. .tPF..x|
000001d0  05 db 0d 00 82 86 f1 27  22 44 6f 6e 27 74 20 77  |.......'"Don't w|
000001e0  6f 72 72 79 2e 20 59 6f  75 20 77 69 6c 6c 20 73  |orry. You will s|
000001f0  6f 6f 6e 20 67 65 74 20  74 68 65 20 69 64 65 61  |oon get the idea|
00000200  2e 49 74 20 69 73 20 6e  6f 74 20 6e 65 63 65 73  |.It is not neces|
00000210  73 61 72 79 20 74 6f 20  75 6e 64 65 72 73 74 61  |sary to understa|
00000220  6e 64 20 74 68 65 73 65  20 6e 6f 74 65 73 20 69  |nd these notes i|
00000230  6e 20 6f 72 64 65 72 20  74 6f 20 70 6c 61 79 20  |n order to play |
00000240  61 6e 64 20 65 6e 6a 6f  79 20 74 68 65 20 20 20  |and enjoy the   |
00000250  20 67 61 6d 65 2e 22 27  0d 00 8c 2f f1 22 59 69  | game."'.../."Yi|
00000260  65 6c 64 20 6f 6e 20 74  68 65 20 6d 61 72 6b 65  |eld on the marke|
00000270  74 20 70 72 69 63 65 20  69 73 20 61 6c 73 6f 20  |t price is also |
00000280  73 68 6f 77 6e 2e 22 0d  00 96 60 f1 20 22 46 6f  |shown."...`. "Fo|
00000290  72 20 65 78 61 6d 70 6c  65 2c 20 31 30 25 20 64  |r example, 10% d|
000002a0  69 76 69 64 65 6e 64 20  6f 6e 20 61 20 73 68 61  |ividend on a sha|
000002b0  72 65 20 20 20 20 70 72  69 63 65 64 20 69 6e 20  |re    priced in |
000002c0  74 68 65 20 6d 61 72 6b  65 74 20 61 74 20 31 35  |the market at 15|
000002d0  30 70 2e 20 79 69 65 6c  64 73 20 20 20 20 36 2e  |0p. yields    6.|
000002e0  36 37 25 2e 22 27 27 0d  00 a0 24 f1 20 8a 34 29  |67%."''...$. .4)|
000002f0  3b 22 4e 6f 6d 69 6e 61  6c 20 76 61 6c 75 65 20  |;"Nominal value |
00000300  58 20 64 69 76 69 64 65  6e 64 22 0d 00 aa 2e f1  |X dividend".....|
00000310  20 8a 33 29 3b 22 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  | .3);"__________|
00000320  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
00000330  20 3d 20 59 69 65 6c 64  22 0d 00 b4 1b f1 20 8a  | = Yield"..... .|
00000340  31 30 29 3b 22 4d 61 72  6b 65 74 20 70 72 69 63  |10);"Market pric|
00000350  65 22 27 27 0d 00 be 0a  e4 20 8d 74 50 46 0d 00  |e"''..... .tPF..|
00000360  c8 05 db 0d 00 d2 76 f1  27 27 22 54 68 65 20 72  |......v.''"The r|
00000370  61 74 69 6f 20 62 65 74  77 65 65 6e 20 70 72 69  |atio between pri|
00000380  63 65 73 20 61 6e 64 20  65 61 72 6e 69 6e 67 73  |ces and earnings|
00000390  20 69 73 61 6c 73 6f 20  73 68 6f 77 6e 20 28 50  | isalso shown (P|
000003a0  2f 45 29 2e 54 68 69 73  20 69 73 20 74 68 65 20  |/E).This is the |
000003b0  73 68 61 72 65 20 70 72  69 63 65 64 69 76 69 64  |share pricedivid|
000003c0  65 64 20 62 79 20 70 72  6f 66 69 74 20 70 65 72  |ed by profit per|
000003d0  20 73 68 61 72 65 2e 22  27 0d 00 dc 6f f1 20 22  | share."'...o. "|
000003e0  46 6f 72 20 65 78 61 6d  70 6c 65 2c 20 61 20 70  |For example, a p|
000003f0  72 6f 66 69 74 20 6f 66  20 32 30 70 2e 20 70 65  |rofit of 20p. pe|
00000400  72 20 73 68 61 72 65 20  61 74 20 61 20 73 68 61  |r share at a sha|
00000410  72 65 20 70 72 69 63 65  20 6f 66 20 32 30 30 70  |re price of 200p|
00000420  2e 20 67 69 76 65 73 20  61 20 50 2f 45 20 6f 66  |. gives a P/E of|
00000430  31 30 20 28 32 30 30 20  64 69 76 69 64 65 64 20  |10 (200 divided |
00000440  62 79 20 32 30 29 22 27  0d 00 e6 53 f1 22 54 68  |by 20)"'...S."Th|
00000450  65 20 59 69 65 6c 64 20  61 6e 64 20 50 2f 45 20  |e Yield and P/E |
00000460  69 6e 64 69 63 61 74 65  20 77 68 65 74 68 65 72  |indicate whether|
00000470  20 61 20 20 20 20 73 68  61 72 65 20 69 73 20 77  | a    share is w|
00000480  6f 72 74 68 20 69 6e 76  65 73 74 69 6e 67 20 69  |orth investing i|
00000490  6e 20 6f 72 20 6e 6f 74  2e 22 27 0d 00 f0 4b f1  |n or not."'...K.|
000004a0  20 22 49 6e 20 74 68 69  73 20 67 61 6d 65 20 61  | "In this game a|
000004b0  6c 6c 20 63 6f 6d 70 61  6e 69 65 73 20 64 65 63  |ll companies dec|
000004c0  6c 61 72 65 20 68 61 6c  66 20 74 68 65 69 72 20  |lare half their |
000004d0  70 72 6f 66 69 74 73 20  61 73 20 64 69 76 69 64  |profits as divid|
000004e0  65 6e 64 2e 22 27 0d 00  fa 4a f1 20 22 45 61 63  |end."'...J. "Eac|
000004f0  68 20 70 6c 61 79 65 72  20 73 74 61 72 74 73 20  |h player starts |
00000500  77 69 74 68 20 60 31 32  30 30 2e 20 54 68 65 20  |with `1200. The |
00000510  66 69 72 73 74 74 6f 20  72 65 61 63 68 20 6f 76  |firstto reach ov|
00000520  65 72 20 60 35 30 30 30  20 77 69 6e 73 2e 22 27  |er `5000 wins."'|
00000530  0d 01 04 0a e4 20 8d 74  50 46 0d 01 0e 05 db 0d  |..... .tPF......|
00000540  01 18 28 f1 27 27 27 22  50 72 65 73 73 20 52 45  |..(.'''"Press RE|
00000550  54 55 52 4e 20 61 66 74  65 72 20 65 61 63 68 20  |TURN after each |
00000560  69 6e 70 75 74 22 27 0d  01 22 2e f1 22 55 70 20  |input"'..".."Up |
00000570  74 6f 20 65 69 67 68 74  20 70 65 6f 70 6c 65 20  |to eight people |
00000580  63 61 6e 20 70 6c 61 79  20 61 74 20 61 20 74 69  |can play at a ti|
00000590  6d 65 2e 22 27 0d 01 2c  1e f1 20 22 48 6f 77 20  |me."'..,.. "How |
000005a0  6d 61 6e 79 20 61 72 65  20 70 6c 61 79 69 6e 67  |many are playing|
000005b0  3f 22 27 0d 01 36 08 e8  20 50 24 0d 01 40 26 50  |?"'..6.. P$..@&P|
000005c0  3d a8 bb 50 24 3a e7 50  3c 31 84 50 3e 38 8c f1  |=..P$:.P<1.P>8..|
000005d0  22 45 52 52 4f 52 22 27  3a ef 37 3a e5 8d 54 62  |"ERROR"':.7:..Tb|
000005e0  41 0d 01 4a 36 de 4b 28  50 29 2c 53 28 50 29 2c  |A..J6.K(P),S(P),|
000005f0  46 28 50 2b 31 29 2c 44  28 34 29 2c 41 28 50 2b  |F(P+1),D(4),A(P+|
00000600  31 29 2c 56 28 34 2b 34  2a 50 29 2c 56 24 28 34  |1),V(4+4*P),V$(4|
00000610  29 2c 4e 24 28 50 29 0d  01 54 17 56 24 28 31 29  |),N$(P)..T.V$(1)|
00000620  3d 22 43 29 20 43 6f 6c  65 6d 69 6e 65 22 0d 01  |="C) Colemine"..|
00000630  5e 17 56 24 28 32 29 3d  22 44 29 20 44 65 72 66  |^.V$(2)="D) Derf|
00000640  6f 6f 64 73 22 0d 01 68  17 56 24 28 33 29 3d 22  |oods"..h.V$(3)="|
00000650  45 29 20 45 6c 65 63 74  72 69 78 22 0d 01 72 17  |E) Electrix"..r.|
00000660  56 24 28 34 29 3d 22 46  29 20 46 69 6e 74 72 75  |V$(4)="F) Fintru|
00000670  73 74 22 0d 01 7c 0b e3  20 4e 3d 31 b8 34 0d 01  |st"..|.. N=1.4..|
00000680  86 0e e9 20 56 28 4e 29  3d 31 30 30 0d 01 90 0d  |... V(N)=100....|
00000690  e9 20 44 28 4e 29 3d 31  30 0d 01 9a 07 ed 20 4e  |. D(N)=10..... N|
000006a0  0d 01 a4 21 f1 27 22 4e  61 6d 65 20 74 68 65 20  |...!.'"Name the |
000006b0  70 6c 61 79 65 72 73 20  70 6c 65 61 73 65 2e 22  |players please."|
000006c0  27 0d 01 ae 0c e3 20 4d  3d 31 b8 20 50 0d 01 b8  |'..... M=1. P...|
000006d0  0c e8 86 20 4e 24 28 4d  29 0d 01 c2 62 e7 20 a9  |... N$(M)...b. .|
000006e0  28 4e 24 28 4d 29 29 3e  31 32 20 8c 20 f1 22 54  |(N$(M))>12 . ."T|
000006f0  68 65 20 6e 61 6d 65 20  73 68 6f 75 6c 64 20 6e  |he name should n|
00000700  6f 74 20 65 78 63 65 65  64 20 31 32 20 6c 65 74  |ot exceed 12 let|
00000710  74 65 72 73 2e 20 20 50  6c 65 61 73 65 20 75 73  |ters.  Please us|
00000720  65 20 61 20 73 68 6f 72  74 65 72 20 6e 61 6d 65  |e a shorter name|
00000730  2e 22 3a ef 37 3a e5 8d  74 78 41 0d 01 cc 0d 4b  |.":.7:..txA....K|
00000740  28 4d 29 3d 31 32 30 30  0d 01 d6 07 ed 20 4d 0d  |(M)=1200..... M.|
00000750  01 e0 0a e4 20 8d 74 50  46 0d 01 ea 0c e3 20 55  |.... .tPF..... U|
00000760  3d 31 b8 20 34 0d 01 f4  0c e3 20 54 3d 31 b8 20  |=1. 4..... T=1. |
00000770  50 0d 01 fe 08 f2 43 4c  53 0d 02 08 32 f1 27 a4  |P.....CLS...2.'.|
00000780  59 4c 3b 4e 24 28 54 29  3b 22 2c 20 79 6f 75 72  |YL;N$(T);", your|
00000790  20 63 61 73 68 20 69 73  20 60 22 3b a8 4b 28 54  | cash is `";.K(T|
000007a0  29 89 28 33 39 2d b1 29  3b 55 3b 0d 02 12 32 f1  |).(39-.);U;...2.|
000007b0  27 a4 59 4c 22 53 48 41  52 45 53 22 a4 42 4c 3b  |'.YL"SHARES".BL;|
000007c0  8a 31 35 29 22 50 72 69  63 65 20 20 44 69 76 2e  |.15)"Price  Div.|
000007d0  20 20 59 69 65 6c 64 20  50 2f 45 22 27 0d 02 1c  |  Yield P/E"'...|
000007e0  0c e3 20 4e 3d 31 b8 20  34 0d 02 26 5c f1 a4 42  |.. N=1. 4..&\..B|
000007f0  4c 3b 56 24 28 4e 29 3b  8a 31 35 29 3b 56 28 4e  |L;V$(N);.15);V(N|
00000800  29 3b 22 70 22 3b 8a 32  32 29 3b 44 28 4e 29 3b  |);"p";.22);D(N);|
00000810  8a 32 38 29 3b a8 28 31  30 30 2a 28 31 30 30 2a  |.28);.(100*(100*|
00000820  44 28 4e 29 2f 56 28 4e  29 29 29 2f 31 30 30 3b  |D(N)/V(N)))/100;|
00000830  8a 33 35 29 3b a8 28 56  28 4e 29 2f 28 44 28 4e  |.35);.(V(N)/(D(N|
00000840  29 2a 32 29 29 0d 02 30  05 ed 0d 02 3a 17 f1 27  |)*2))..0....:..'|
00000850  a4 59 4c 22 48 4f 4c 44  49 4e 47 53 22 a4 42 4c  |.YL"HOLDINGS".BL|
00000860  3b 0d 02 44 31 f1 8a 31  35 29 3b 22 28 43 29 22  |;..D1..15);"(C)"|
00000870  3b 8a 32 31 29 3b 22 28  44 29 22 3b 8a 32 37 29  |;.21);"(D)";.27)|
00000880  3b 22 28 45 29 22 3b 8a  33 33 29 3b 22 28 46 29  |;"(E)";.33);"(F)|
00000890  22 27 0d 02 4e 07 4a 3d  30 0d 02 58 13 e3 20 4e  |"'..N.J=0..X.. N|
000008a0  3d 35 b8 28 34 2b 50 2a  34 29 88 34 0d 02 62 09  |=5.(4+P*4).4..b.|
000008b0  4a 3d 4a 2b 31 0d 02 6c  0f f1 a4 42 4c 3b 4e 24  |J=J+1..l...BL;N$|
000008c0  28 4a 29 3b 0d 02 76 32  f1 8a 31 35 29 3b 56 28  |(J);..v2..15);V(|
000008d0  4e 29 3b 8a 32 31 29 3b  56 28 4e 2b 31 29 3b 8a  |N);.21);V(N+1);.|
000008e0  32 37 29 3b 56 28 4e 2b  32 29 3b 8a 33 33 29 3b  |27);V(N+2);.33);|
000008f0  56 28 4e 2b 33 29 0d 02  80 05 ed 0d 02 8a 1c e3  |V(N+3)..........|
00000900  49 25 3d 30 b8 32 3a f1  8a 30 2c 32 31 2b 49 25  |I%=0.2:..0,21+I%|
00000910  29 a4 59 4c 3b 3a ed 0d  02 94 0b 52 31 3d 31 3a  |).YL;:.....R1=1:|
00000920  f2 57 0d 02 9e 30 f5 e8  27 22 57 68 69 63 68 20  |.W...0..'"Which |
00000930  73 68 61 72 65 73 20 77  69 6c 6c 20 79 6f 75 20  |shares will you |
00000940  74 72 61 64 65 3f 20 22  43 24 3a fd 43 24 3c 3e  |trade? "C$:.C$<>|
00000950  22 22 0d 02 a8 10 e7 43  24 3d 22 4d 22 8c 8d 54  |"".....C$="M"..T|
00000960  64 44 0d 02 b2 15 52 3d  a7 22 43 44 45 46 22 2c  |dD....R=."CDEF",|
00000970  c0 43 24 2c 31 29 29 0d  02 bc 51 e7 52 20 8c ef  |.C$,1))...Q.R ..|
00000980  32 36 3a f1 a4 42 4c 3b  8a 33 38 2c 52 31 2b 34  |26:..BL;.38,R1+4|
00000990  29 22 20 20 22 8a 33 38  2c 52 2b 34 29 22 3c 3d  |)"  ".38,R+4)"<=|
000009a0  22 3a 52 31 3d 52 3a f2  57 20 8b f1 22 45 52 52  |":R1=R:.W .."ERR|
000009b0  4f 52 2e 20 54 72 79 20  61 67 61 69 6e 2e 22 3a  |OR. Try again.":|
000009c0  ef 37 3a e5 8d 74 5e 42  0d 02 c6 0b 51 3d 54 2a  |.7:..t^B....Q=T*|
000009d0  34 2b 52 0d 02 d0 45 e7  a8 4b 28 54 29 3d 30 80  |4+R...E..K(T)=0.|
000009e0  56 28 51 29 3d 30 8c f1  22 45 52 52 4f 52 2e 20  |V(Q)=0.."ERROR. |
000009f0  59 6f 75 20 68 61 76 65  20 6e 6f 20 63 61 73 68  |You have no cash|
00000a00  20 74 6f 20 62 75 79 20  22 c0 43 24 2c 31 29 3a  | to buy ".C$,1):|
00000a10  ef 37 3a e5 8d 74 5e 42  0d 02 da 16 e7 56 28 51  |.7:..t^B.....V(Q|
00000a20  29 3d 30 8c 4f 25 3d 31  3a e5 8d 54 60 43 0d 02  |)=0.O%=1:..T`C..|
00000a30  e4 17 e7 a8 4b 28 54 29  3d 30 8c 4f 25 3d 32 3a  |....K(T)=0.O%=2:|
00000a40  e5 8d 54 60 43 0d 02 ee  24 f1 27 22 44 6f 20 79  |..T`C...$.'"Do y|
00000a50  6f 75 20 77 61 6e 74 20  74 6f 20 62 75 79 20 6f  |ou want to buy o|
00000a60  72 20 73 65 6c 6c 3f 20  22 0d 02 f8 19 f5 e8 22  |r sell? "......"|
00000a70  41 6e 73 77 65 72 20 42  20 6f 72 20 53 2e 20 22  |Answer B or S. "|
00000a80  42 24 0d 03 02 14 4f 25  3d a7 22 42 53 22 2c c0  |B$....O%=."BS",.|
00000a90  42 24 2c 31 29 29 0d 03  0c 22 e7 4f 25 3d 30 f1  |B$,1))...".O%=0.|
00000aa0  27 22 45 52 52 4f 52 2e  20 54 72 79 20 61 67 61  |'"ERROR. Try aga|
00000ab0  69 6e 2e 22 27 3a ef 37  0d 03 16 07 fd 4f 25 0d  |in."':.7.....O%.|
00000ac0  03 20 1e e7 4f 25 3d 31  8c 42 53 24 3d 22 62 75  |. ..O%=1.BS$="bu|
00000ad0  79 22 8b 42 53 24 3d 22  73 65 6c 6c 22 0d 03 2a  |y".BS$="sell"..*|
00000ae0  24 f1 27 22 48 6f 77 20  6d 61 6e 79 20 64 6f 20  |$.'"How many do |
00000af0  79 6f 75 20 77 69 73 68  20 74 6f 20 22 42 53 24  |you wish to "BS$|
00000b00  3b 0d 03 34 0b e8 22 3f  20 22 58 24 0d 03 3e 34  |;..4.."? "X$..>4|
00000b10  e7 a9 28 58 24 29 3e 39  8c f1 22 45 52 52 4f 52  |..(X$)>9.."ERROR|
00000b20  2e 20 54 68 61 74 27 73  20 66 61 72 20 74 6f 6f  |. That's far too|
00000b30  20 6d 61 6e 79 21 22 3a  ef 37 3a e5 8d 54 6a 43  | many!":.7:..TjC|
00000b40  0d 03 48 3c e7 97 58 24  3c 34 38 84 97 58 24 3e  |..H<..X$<48..X$>|
00000b50  35 37 8c f1 22 50 6c 65  61 73 65 20 69 6e 70 75  |57.."Please inpu|
00000b60  74 20 70 6f 73 69 74 69  76 65 20 6e 75 6d 62 65  |t positive numbe|
00000b70  72 73 22 3a ef 37 3a e5  8d 54 6a 43 0d 03 52 0a  |rs":.7:..TjC..R.|
00000b80  58 3d a8 bb 58 24 0d 03  5c 0e e7 4f 25 3d 32 8c  |X=..X$..\..O%=2.|
00000b90  8d 74 44 43 0d 03 66 51  e7 4b 28 54 29 3c 28 56  |.tDC..fQ.K(T)<(V|
00000ba0  28 52 29 2f 31 30 30 29  2a 58 20 8c f1 22 45 52  |(R)/100)*X .."ER|
00000bb0  52 4f 52 2e 20 59 6f 75  20 63 61 6e 20 61 66 66  |ROR. You can aff|
00000bc0  6f 72 64 20 22 3b a8 28  4b 28 54 29 2f 28 56 28  |ord ";.(K(T)/(V(|
00000bd0  52 29 2f 31 30 30 29 29  3b 22 2e 22 3a ef 37 3a  |R)/100));".":.7:|
00000be0  e5 8d 54 6a 43 0d 03 70  09 e4 8d 64 72 43 0d 03  |..TjC..p...drC..|
00000bf0  7a 09 e5 8d 74 6c 43 0d  03 84 28 e7 58 3e 56 28  |z...tlC...(.X>V(|
00000c00  51 29 8c f1 22 54 68 61  74 27 73 20 74 6f 6f 20  |Q).."That's too |
00000c10  6d 61 6e 79 21 22 3a ef  37 3a e5 8d 54 6a 43 0d  |many!":.7:..TjC.|
00000c20  03 8e 08 58 3d 2d 58 0d  03 98 09 e4 8d 64 72 43  |...X=-X......drC|
00000c30  0d 03 a2 12 e7 56 28 52  29 3c 35 8c 56 28 52 29  |.....V(R)<5.V(R)|
00000c40  3d 35 0d 03 ac 07 ed 20  54 0d 03 b6 1f e3 4f 3d  |=5..... T.....O=|
00000c50  31 b8 50 3a e7 20 4b 28  4f 29 3e 34 39 39 39 8c  |1.P:. K(O)>4999.|
00000c60  e5 8d 44 50 45 3a ed 4f  0d 03 c0 1d ee 20 55 20  |..DPE:.O..... U |
00000c70  e4 20 8d 74 6e 46 2c 8d  74 6e 46 2c 8d 44 50 45  |. .tnF,.tnF,.DPE|
00000c80  2c 8d 44 56 44 0d 03 ca  11 e7 20 55 3e 32 20 8c  |,.DVD..... U>2 .|
00000c90  20 e5 8d 64 5e 43 0d 03  d4 05 db 0d 03 de 07 ed  | ..d^C..........|
00000ca0  20 55 0d 03 e8 0a e5 20  8d 64 6a 41 0d 03 f2 1a  | U..... .djA....|
00000cb0  4b 28 54 29 3d 4b 28 54  29 2d 28 56 28 52 29 2f  |K(T)=K(T)-(V(R)/|
00000cc0  31 30 30 29 2a 58 0d 03  fc 0f 56 28 51 29 3d 56  |100)*X....V(Q)=V|
00000cd0  28 51 29 2b 58 0d 04 06  20 56 28 52 29 3d a8 28  |(Q)+X... V(R)=.(|
00000ce0  56 28 52 29 2b 28 b3 28  32 30 29 2d 35 29 2a 58  |V(R)+(.(20)-5)*X|
00000cf0  2f 34 30 30 29 0d 04 10  13 e7 20 56 28 52 29 3c  |/400)..... V(R)<|
00000d00  35 8c 56 28 52 29 3d 35  0d 04 1a 05 f8 0d 04 24  |5.V(R)=5.......$|
00000d10  8e 3a ef 37 3a f1 a4 42  4c 3a f2 43 4c 53 3a f1  |.:.7:..BL:.CLS:.|
00000d20  8a 31 34 2c 33 29 4e 24  28 54 29 22 2c 22 27 27  |.14,3)N$(T)","''|
00000d30  27 a4 42 4c 22 20 70 72  65 73 73 69 6e 67 20 4d  |'.BL" pressing M|
00000d40  20 6e 6f 77 20 6d 65 61  6e 73 20 6d 69 73 73 20  | now means miss |
00000d50  61 20 74 75 72 6e 2e 22  27 27 22 20 49 66 20 79  |a turn."''" If y|
00000d60  6f 75 20 61 72 65 20 73  75 72 65 20 70 72 65 73  |ou are sure pres|
00000d70  73 20 4d 20 61 67 61 69  6e 2e 22 27 27 22 20 20  |s M again."''"  |
00000d80  20 20 20 4f 74 68 65 72  77 69 73 65 20 70 72 65  |   Otherwise pre|
00000d90  73 73 20 52 45 54 55 52  4e 2e 22 0d 04 2e 12 ef  |ss RETURN.".....|
00000da0  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 0d 04 38  |23,1,0;0;0;0;..8|
00000db0  19 41 24 3d be 3a ef 32  33 2c 31 2c 31 2c 30 3b  |.A$=.:.23,1,1,0;|
00000dc0  30 3b 30 3b 30 3b 0d 04  42 13 e7 41 24 3d 22 4d  |0;0;0;..B..A$="M|
00000dd0  22 8c 20 e5 20 8d 74 6c  43 0d 04 4c 09 e5 8d 64  |". . .tlC..L...d|
00000de0  7e 41 0d 04 56 08 f2 43  4c 53 0d 04 60 20 f1 27  |~A..V..CLS..` .'|
00000df0  a4 59 4c 22 44 49 56 49  44 45 4e 44 53 20 50 41  |.YL"DIVIDENDS PA|
00000e00  49 44 22 3b 8a 33 39 29  3b 55 0d 04 6a 0b e3 20  |ID";.39);U..j.. |
00000e10  4c 3d 31 b8 34 0d 04 74  0e 45 3d a8 20 b3 28 35  |L=1.4..t.E=. .(5|
00000e20  29 2d 32 0d 04 7e 0f 44  28 4c 29 3d 44 28 4c 29  |)-2..~.D(L)=D(L)|
00000e30  2b 45 0d 04 88 15 e7 20  44 28 4c 29 3c 30 20 8c  |+E..... D(L)<0 .|
00000e40  20 44 28 4c 29 3d 30 0d  04 92 28 f1 a4 42 4c 3b  | D(L)=0...(..BL;|
00000e50  56 24 28 4c 29 3b 22 20  70 61 79 73 20 22 3b 44  |V$(L);" pays ";D|
00000e60  28 4c 29 3b 22 20 70 65  72 20 63 65 6e 74 22 0d  |(L);" per cent".|
00000e70  04 9c 12 56 28 4c 29 3d  56 28 4c 29 2b 44 28 4c  |...V(L)=V(L)+D(L|
00000e80  29 0d 04 a6 07 ed 20 4c  0d 04 b0 20 f1 27 27 a4  |)..... L... .''.|
00000e90  59 4c 22 44 49 56 49 44  45 4e 44 53 20 52 45 43  |YL"DIVIDENDS REC|
00000ea0  45 49 56 45 44 20 22 27  0d 04 ba 42 f1 a4 42 4c  |EIVED "'...B..BL|
00000eb0  3b 8a 31 34 29 3b 22 28  43 29 22 3b 8a 31 39 29  |;.14);"(C)";.19)|
00000ec0  3b 22 28 44 29 22 3b 8a  32 34 29 3b 22 28 45 29  |;"(D)";.24);"(E)|
00000ed0  22 3b 8a 32 39 29 3b 22  28 46 29 22 3b 8a 33 34  |";.29);"(F)";.34|
00000ee0  29 3b 22 54 6f 74 61 6c  22 27 0d 04 c4 0c e3 20  |);"Total"'..... |
00000ef0  59 3d 31 b8 20 50 0d 04  ce 0a 53 28 59 29 3d 30  |Y=1. P....S(Y)=0|
00000f00  0d 04 d8 0b e3 20 4c 3d  31 b8 34 0d 04 e2 23 53  |..... L=1.4...#S|
00000f10  28 59 29 3d 53 28 59 29  2b 28 28 44 28 4c 29 2f  |(Y)=S(Y)+((D(L)/|
00000f20  31 30 30 29 2a 56 28 4c  2b 34 2a 59 29 29 0d 04  |100)*V(L+4*Y))..|
00000f30  ec 07 ed 20 4c 0d 04 f6  89 f1 a4 42 4c 3b 4e 24  |... L......BL;N$|
00000f40  28 59 29 3b 8a 31 34 29  3b a8 28 28 44 28 31 29  |(Y);.14);.((D(1)|
00000f50  2f 31 30 30 29 2a 56 28  31 2b 34 2a 59 29 29 3b  |/100)*V(1+4*Y));|
00000f60  8a 31 39 29 3b a8 28 28  44 28 32 29 2f 31 30 30  |.19);.((D(2)/100|
00000f70  29 2a 56 28 32 2b 34 2a  59 29 29 3b 8a 32 34 29  |)*V(2+4*Y));.24)|
00000f80  3b a8 28 28 44 28 33 29  2f 31 30 30 29 2a 56 28  |;.((D(3)/100)*V(|
00000f90  33 2b 34 2a 59 29 29 3b  8a 32 39 29 3b a8 28 28  |3+4*Y));.29);.((|
00000fa0  44 28 34 29 2f 31 30 30  29 2a 56 28 34 2b 34 2a  |D(4)/100)*V(4+4*|
00000fb0  59 29 29 3b 8a 33 34 29  3b a8 53 28 59 29 0d 05  |Y));.34);.S(Y)..|
00000fc0  00 12 4b 28 59 29 3d 4b  28 59 29 2b 53 28 59 29  |..K(Y)=K(Y)+S(Y)|
00000fd0  0d 05 0a 07 ed 20 59 0d  05 14 05 f1 0d 05 1e 0b  |..... Y.........|
00000fe0  e3 20 4c 3d 31 b8 34 0d  05 28 0f 56 28 4c 29 3d  |. L=1.4..(.V(L)=|
00000ff0  56 28 4c 29 2d 38 0d 05  32 13 e7 20 56 28 4c 29  |V(L)-8..2.. V(L)|
00001000  3c 35 8c 56 28 4c 29 3d  35 0d 05 3c 07 ed 20 4c  |<5.V(L)=5..<.. L|
00001010  0d 05 46 09 e5 8d 74 50  46 0d 05 50 08 f2 43 4c  |..F...tPF..P..CL|
00001020  53 0d 05 5a 21 f1 27 a4  59 4c 22 57 48 4f 20 49  |S..Z!.'.YL"WHO I|
00001030  53 20 57 49 4e 4e 49 4e  47 3f 22 3b 8a 33 39 29  |S WINNING?";.39)|
00001040  3b 55 0d 05 64 26 f1 8a  31 39 2c 33 29 3b a4 42  |;U..d&..19,3);.B|
00001050  4c 3b 22 50 75 6e 74 65  72 20 20 20 20 20 56 61  |L;"Punter     Va|
00001060  6c 75 61 74 69 6f 6e 22  0d 05 6e 23 f1 8a 31 39  |luation"..n#..19|
00001070  2c 34 29 3b 22 2d 2d 2d  2d 2d 2d 20 20 20 20 20  |,4);"------     |
00001080  2d 2d 2d 2d 2d 2d 2d 2d  2d 22 27 0d 05 78 0c e3  |---------"'..x..|
00001090  20 59 3d 31 b8 20 50 0d  05 82 0a 41 28 59 29 3d  | Y=1. P....A(Y)=|
000010a0  30 0d 05 8c 0b e3 20 4c  3d 31 b8 34 0d 05 96 23  |0..... L=1.4...#|
000010b0  41 28 59 29 3d 41 28 59  29 2b 28 28 56 28 4c 29  |A(Y)=A(Y)+((V(L)|
000010c0  2f 31 30 30 29 2a 56 28  4c 2b 34 2a 59 29 29 0d  |/100)*V(L+4*Y)).|
000010d0  05 a0 07 ed 20 4c 0d 05  aa 12 41 28 59 29 3d 41  |.... L....A(Y)=A|
000010e0  28 59 29 2b 4b 28 59 29  0d 05 b4 07 ed 20 59 0d  |(Y)+K(Y)..... Y.|
000010f0  05 be 0e e3 20 4f 3d 31  b8 20 50 2b 31 0d 05 c8  |.... O=1. P+1...|
00001100  0d 46 28 4f 29 3d 41 28  4f 29 0d 05 d2 07 ed 20  |.F(O)=A(O)..... |
00001110  4f 0d 05 dc 07 43 3d 30  0d 05 e6 0c e3 20 4f 3d  |O....C=0..... O=|
00001120  31 b8 20 50 0d 05 f0 19  e7 20 46 28 4f 29 3e 3d  |1. P..... F(O)>=|
00001130  46 28 4f 2b 31 29 8c 20  e5 8d 54 62 46 0d 05 fa  |F(O+1). ..TbF...|
00001140  0a 4a 3d 46 28 4f 29 0d  06 04 0f 46 28 4f 29 3d  |.J=F(O)....F(O)=|
00001150  46 28 4f 2b 31 29 0d 06  0e 0c 46 28 4f 2b 31 29  |F(O+1)....F(O+1)|
00001160  3d 4a 0d 06 18 09 43 3d  43 2b 31 0d 06 22 07 ed  |=J....C=C+1.."..|
00001170  20 4f 0d 06 2c 11 e7 20  43 3e 30 8c 20 e5 20 8d  | O..,.. C>0. . .|
00001180  64 5c 45 0d 06 36 0c e3  20 4f 3d 31 b8 20 50 0d  |d\E..6.. O=1. P.|
00001190  06 40 0c e3 20 4c 3d 31  b8 20 50 0d 06 4a 19 e7  |.@.. L=1. P..J..|
000011a0  20 46 28 4f 29 3d 46 28  4f 2d 31 29 8c 20 e5 20  | F(O)=F(O-1). . |
000011b0  8d 44 5e 46 0d 06 54 37  e7 20 41 28 4c 29 3d 46  |.D^F..T7. A(L)=F|
000011c0  28 4f 29 8c 20 f1 a4 42  4c 3b 8a 31 36 29 3b 4f  |(O). ..BL;.16);O|
000011d0  3b 22 29 22 3b 8a 31 39  29 3b 4e 24 28 4c 29 3b  |;")";.19);N$(L);|
000011e0  8a 33 32 29 3b a8 20 41  28 4c 29 0d 06 5e 07 ed  |.32);. A(L)..^..|
000011f0  20 4c 0d 06 68 07 ed 20  4f 0d 06 72 16 e7 20 46  | L..h.. O..r.. F|
00001200  28 31 29 3e 34 39 39 39  8c 20 e5 8d 54 56 48 0d  |(1)>4999. ..TVH.|
00001210  06 7c 10 ef 32 36 3a f1  8a 30 2c 32 30 29 3b 0d  |.|..26:..0,20);.|
00001220  06 86 73 f1 a4 42 4c 3b  22 4e 4f 54 45 3a 20 44  |..s..BL;"NOTE: D|
00001230  69 76 69 64 65 6e 64 73  20 61 72 65 20 70 61 69  |ividends are pai|
00001240  64 20 61 66 74 65 72 20  74 68 65 22 27 22 6e 65  |d after the"'"ne|
00001250  78 74 20 72 6f 75 6e 64  2c 20 74 68 65 20 34 74  |xt round, the 4t|
00001260  68 2e 20 52 6f 75 6e 64  73 20 61 72 65 22 27 22  |h. Rounds are"'"|
00001270  6e 75 6d 62 65 72 65 64  20 69 6e 20 74 68 65 20  |numbered in the |
00001280  74 6f 70 20 72 69 67 68  74 20 63 6f 72 6e 65 72  |top right corner|
00001290  2e 22 0d 06 90 2a f1 8a  35 2c 32 34 29 3b 22 50  |."...*..5,24);"P|
000012a0  72 65 73 73 20 53 50 41  43 45 20 42 41 52 20 74  |ress SPACE BAR t|
000012b0  6f 20 63 6f 6e 74 69 6e  75 65 22 3b 0d 06 9a 0a  |o continue";....|
000012c0  f5 fd a5 3d 33 32 0d 06  a4 05 f8 0d 06 ae 13 f2  |...=32..........|
000012d0  57 42 3a f1 a4 42 4c 3a  ef 32 36 2c 31 32 0d 06  |WB:..BL:.26,12..|
000012e0  b8 1e f1 27 8a 31 33 29  3b 22 44 41 49 4c 59 20  |...'.13);"DAILY |
000012f0  4e 45 57 53 22 3b 8a 33  39 29 3b 55 0d 06 c2 30  |NEWS";.39);U...0|
00001300  f1 22 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |."______________|
00001310  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
00001320  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 22 27 0d 06 cc 0b  |__________"'....|
00001330  46 3d b3 28 31 30 29 0d  06 d6 3b ee 20 46 20 e4  |F=.(10)...;. F .|
00001340  20 8d 74 54 47 2c 8d 74  5e 47 2c 8d 74 68 47 2c  | .tTG,.t^G,.thG,|
00001350  8d 74 72 47 2c 8d 74 7c  47 2c 8d 64 46 47 2c 8d  |.trG,.t|G,.dFG,.|
00001360  64 50 47 2c 8d 64 5a 47  2c 8d 64 64 47 2c 8d 64  |dPG,.dZG,.ddG,.d|
00001370  78 47 0d 06 e0 0a e4 20  8d 54 4c 48 0d 06 ea 10  |xG..... .TLH....|
00001380  e7 20 46 3e 38 8c 20 e5  8d 54 7a 47 0d 06 f4 18  |. F>8. ..TzG....|
00001390  e7 20 46 2f 32 3c 3e a8  28 46 2f 32 29 8c 20 e5  |. F/2<>.(F/2). .|
000013a0  8d 54 5c 47 0d 06 fe 24  f1 20 c2 56 24 28 46 2f  |.T\G...$. .V$(F/|
000013b0  32 29 2c 38 29 3b 22 20  20 2d 22 3b a8 28 56 28  |2),8);"  -";.(V(|
000013c0  46 2f 32 29 2f 31 30 29  0d 07 08 1e 56 28 46 2f  |F/2)/10)....V(F/|
000013d0  32 29 3d 56 28 46 2f 32  29 2d a8 28 56 28 46 2f  |2)=V(F/2)-.(V(F/|
000013e0  32 29 2f 31 30 29 0d 07  12 09 e5 8d 74 50 46 0d  |2)/10)......tPF.|
000013f0  07 1c 2c f1 20 c2 56 24  28 46 2f 32 2b 30 2e 35  |..,. .V$(F/2+0.5|
00001400  29 2c 38 29 3b 22 20 2b  20 22 3b a8 28 56 28 46  |),8);" + ";.(V(F|
00001410  2f 32 2b 30 2e 35 29 2f  31 30 29 0d 07 26 2a 56  |/2+0.5)/10)..&*V|
00001420  28 46 2f 32 2b 30 2e 35  29 3d 56 28 46 2f 32 2b  |(F/2+0.5)=V(F/2+|
00001430  30 2e 35 29 2b a8 28 56  28 46 2f 32 2b 30 2e 35  |0.5)+.(V(F/2+0.5|
00001440  29 2f 31 30 29 0d 07 30  09 e5 8d 74 50 46 0d 07  |)/10)..0...tPF..|
00001450  3a 0b e3 20 53 3d 31 b8  34 0d 07 44 11 e7 20 46  |:.. S=1.4..D.. F|
00001460  3e 39 20 8c 20 e5 8d 44  6c 47 0d 07 4e 20 f1 20  |>9 . ..DlG..N . |
00001470  c2 56 24 28 53 29 2c 38  29 3b 22 20 20 2d 22 3b  |.V$(S),8);"  -";|
00001480  a8 28 56 28 53 29 2f 32  30 29 0d 07 58 18 56 28  |.(V(S)/20)..X.V(|
00001490  53 29 3d 56 28 53 29 2d  a8 28 56 28 53 29 2f 32  |S)=V(S)-.(V(S)/2|
000014a0  30 29 0d 07 62 09 e5 8d  74 40 47 0d 07 6c 20 f1  |0)..b...t@G..l .|
000014b0  20 c2 56 24 28 53 29 2c  38 29 3b 22 20 2b 20 22  | .V$(S),8);" + "|
000014c0  3b a8 28 56 28 53 29 2f  32 30 29 0d 07 76 18 56  |;.(V(S)/20)..v.V|
000014d0  28 53 29 3d 56 28 53 29  2b a8 28 56 28 53 29 2f  |(S)=V(S)+.(V(S)/|
000014e0  32 30 29 0d 07 80 06 ed  53 0d 07 8a 09 e5 8d 74  |20).....S......t|
000014f0  50 46 0d 07 94 1c f1 22  43 4f 41 4c 20 50 52 49  |PF....."COAL PRI|
00001500  43 45 53 20 52 4f 43 4b  45 54 2e 22 3a f8 0d 07  |CES ROCKET.":...|
00001510  9e 28 f1 22 4e 45 57 20  50 4f 57 45 52 20 53 54  |.(."NEW POWER ST|
00001520  41 54 49 4f 4e 20 54 4f  20 42 45 20 4e 55 43 4c  |ATION TO BE NUCL|
00001530  45 41 52 22 3a f8 0d 07  a8 23 f1 22 54 41 4b 45  |EAR":....#."TAKE|
00001540  4f 56 45 52 20 42 49 44  20 46 4f 52 20 44 45 52  |OVER BID FOR DER|
00001550  46 4f 4f 44 53 2e 22 3a  f8 0d 07 b2 1d f1 22 53  |FOODS.":......"S|
00001560  54 52 49 4b 45 20 48 49  54 53 20 44 45 52 46 4f  |TRIKE HITS DERFO|
00001570  4f 44 53 22 3a f8 0d 07  bc 23 f1 22 45 4c 45 43  |ODS":....#."ELEC|
00001580  54 52 49 58 20 57 49 4e  53 20 42 49 47 20 43 4f  |TRIX WINS BIG CO|
00001590  4e 54 52 41 43 54 22 3a  f8 0d 07 c6 21 f1 22 46  |NTRACT":....!."F|
000015a0  49 52 45 20 41 54 20 45  4c 45 43 54 52 49 58 20  |IRE AT ELECTRIX |
000015b0  46 41 43 54 4f 52 59 22  3a f8 0d 07 d0 2b f1 20  |FACTORY":....+. |
000015c0  22 55 4e 49 54 20 54 52  55 53 54 20 50 52 49 43  |"UNIT TRUST PRIC|
000015d0  45 53 20 42 45 41 54 20  49 4e 46 4c 41 54 49 4f  |ES BEAT INFLATIO|
000015e0  4e 2e 22 3a f8 0d 07 da  30 f1 22 46 49 4e 54 52  |N.":....0."FINTR|
000015f0  55 53 54 20 41 43 43 55  53 45 44 20 4f 46 20 54  |UST ACCUSED OF T|
00001600  52 55 53 54 20 46 55 4e  44 20 53 43 41 4e 44 41  |RUST FUND SCANDA|
00001610  4c 2e 22 3a f8 0d 07 e4  28 f1 22 4d 49 4e 49 53  |L.":....(."MINIS|
00001620  54 45 52 27 53 00 24 00  00 00 00 00 45 4e 54 20  |TER'S.$.....ENT |
00001630  55 50 53 45 54 53 20 43  49 54 59 2e 22 0d 07 ee  |UPSETS CITY."...|
00001640  27 f1 22 42 65 61 72 20  6d 61 72 6b 65 74 20 6f  |'."Bear market o|
00001650  6e 20 53 74 6f 63 6b 20  45 78 63 68 61 6e 67 65  |n Stock Exchange|
00001660  2e 22 3a f8 0d 07 f8 20  f1 22 46 41 56 4f 55 52  |.":.... ."FAVOUR|
00001670  41 42 4c 45 20 54 52 41  44 45 20 42 41 4c 41 4e  |ABLE TRADE BALAN|
00001680  43 45 2e 22 0d 08 02 27  f1 22 42 75 6c 6c 20 6d  |CE."...'."Bull m|
00001690  61 72 6b 65 74 20 6f 6e  20 53 74 6f 63 6b 20 45  |arket on Stock E|
000016a0  78 63 68 61 6e 67 65 2e  22 3a f8 0d 08 0c 25 f1  |xchange.":....%.|
000016b0  27 22 59 65 73 74 65 72  64 61 79 27 73 20 50 72  |'"Yesterday's Pr|
000016c0  69 63 65 20 63 68 61 6e  67 65 73 2e 22 27 3a f8  |ice changes."':.|
000016d0  0d 08 16 1e f1 8a 33 2c  36 29 bd 26 38 38 22 54  |......3,6).&88"T|
000016e0  68 65 20 77 69 6e 6e 65  72 22 bd 26 38 39 0d 08  |he winner".&89..|
000016f0  20 0b e3 20 4d 3d 31 b8  34 0d 08 2a 1c d4 31 2c  | .. M=1.4..*..1,|
00001700  2d 31 35 2c 31 32 38 2c  34 3a d4 31 2c 2d 31 35  |-15,128,4:.1,-15|
00001710  2c 34 30 2c 38 0d 08 34  07 ed 20 4d 0d 08 3e 0b  |,40,8..4.. M..>.|
00001720  2a 46 58 32 31 2c 30 0d  08 48 0b 2a 46 58 31 31  |*FX21,0..H.*FX11|
00001730  2c 30 0d 08 52 2a f1 20  8a 36 2c 32 33 29 3b 22  |,0..R*. .6,23);"|
00001740  50 72 65 73 73 20 53 50  41 43 45 20 42 41 52 20  |Press SPACE BAR |
00001750  74 6f 20 63 6f 6e 74 69  6e 75 65 22 0d 08 5c 09  |to continue"..\.|
00001760  f1 a4 42 4c 3b 0d 08 66  0f e7 a5 3d 33 32 8b e5  |..BL;..f...=32..|
00001770  8d 44 66 48 0d 08 70 19  db 3a f1 8a 31 35 2c 31  |.DfH..p..:..15,1|
00001780  30 29 3b 22 54 48 45 20  20 45 4e 44 22 0d 08 7a  |0);"THE  END"..z|
00001790  2e f1 8a 34 2c 32 33 29  3b 22 50 72 65 73 73 20  |...4,23);"Press |
000017a0  53 50 41 43 45 20 42 41  52 20 66 6f 72 20 61 6e  |SPACE BAR for an|
000017b0  6f 74 68 65 72 20 67 61  6d 65 22 0d 08 84 0b 2a  |other game"....*|
000017c0  46 58 32 31 2c 30 0d 08  8e 16 e7 a5 3d 33 32 d8  |FX21,0......=32.|
000017d0  3a e5 8d 54 7c 40 8b e5  8d 74 4e 48 0d 08 98 05  |:..T|@...tNH....|
000017e0  e0 0d 08 a2 05 20 0d 08  ac 09 dd f2 43 4c 53 0d  |..... ......CLS.|
000017f0  08 b6 15 f2 59 42 3a f1  a4 42 4c 3a ef 32 36 2c  |....YB:..BL:.26,|
00001800  31 32 3a e1 0d 08 c0 26  dd f2 57 20 f1 a4 59 4c  |12:....&..W ..YL|
00001810  3a ef 32 38 2c 30 2c 32  33 2c 33 39 2c 32 31 2c  |:.28,0,23,39,21,|
00001820  31 32 2c 31 30 2c 31 30  3a e1 0d 08 ca 14 dd a4  |12,10,10:.......|
00001830  42 4c 3a fb 31 3a fb 31  32 38 3a 3d 22 22 0d 08  |BL:.1:.128:=""..|
00001840  d4 14 dd a4 59 4c 3a fb  30 3a fb 31 32 39 3a 3d  |....YL:.0:.129:=|
00001850  22 22 0d 08 de 22 dd f2  59 42 3a ef 31 39 2c 30  |""..."..YB:.19,0|
00001860  2c 34 2c 30 3b 30 3b 31  39 2c 31 2c 33 2c 30 3b  |,4,0;0;19,1,3,0;|
00001870  30 3b 3a e1 0d 08 e8 22  dd f2 57 42 3a ef 31 39  |0;:...."..WB:.19|
00001880  2c 30 2c 30 2c 30 3b 30  3b 31 39 2c 31 2c 37 2c  |,0,0,0;0;19,1,7,|
00001890  30 3b 30 3b 3a e1 0d 08  f2 2f dd f2 46 49 4e 44  |0;0;:..../..FIND|
000018a0  28 41 24 29 41 25 3d 90  3a f5 e7 a7 24 28 41 25  |(A$)A%=.:...$(A%|
000018b0  2b 34 29 2c 41 24 29 f1  32 35 36 2a 41 25 3f 31  |+4),A$).256*A%?1|
000018c0  2b 41 25 3f 32 0d 08 fc  18 41 25 3d 41 25 2b 41  |+A%?2....A%=A%+A|
000018d0  25 3f 33 3a fd 41 25 3f  31 3e 26 37 46 0d 00 ad  |%?3:.A%?1>&7F...|
000018e0  10 02 8d 42 32 ad 11 02  8d 43 32 a9 1f 8d 10 02  |...B2....C2.....|
000018f0  a9 32 8d 11 02 a9 00 8d  41 32 a9 15 20 ee ff a9  |.2......A2.. ...|
00001900  81 a2 00 a0 ff 20 f4 ff  e0 00 f0 10 a9 b4 a2 0e  |..... ..........|
00001910  a0 00 20 f4 ff a2 58 a0  32 4c f7 ff 4c 00 80 8e  |.. ...X.2L..L...|
00001920  40 32 ae 41 32 bd 44 32  ee 41 32 e0 13 d0 0c ae  |@2.A2.D2.A2.....|
00001930  42 32 8e 10 02 ae 43 32  8e 11 02 ae 40 32 18 60  |B2....C2....@2.`|
00001940  00 00 00 00 50 41 47 45  3d 26 31 39 30 30 0d 4f  |....PAGE=&1900.O|
00001950  4c 44 0d 52 55 4e 06 0d  42 41 53 49 43 0d a9 81  |LD.RUN..BASIC...|
00001960  a2 00 a0 ff 20 f4 ff e0  00 f0 0c a9 c8 a2 03 a0  |.... ...........|
00001970  00 20 f4 ff ca ca ca 86  70 a2 15 bd 8e 32 9d 00  |. ......p....2..|
00001980  01 5d 86 05 05 70 85 70  ca 10 f0 aa f0 16 a9 0e  |.]...p.p........|
00001990  85 71 a0 00 84 70 91 70  c8 d0 fb e6 71 24 71 50  |.q...p.p....q$qP|
000019a0  f5 6c fc ff 4c df 31                              |.l..L.1|
000019a7
..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 .