� PORTFOLIO - OVERALL
� (C) Jon Leighton Aug 1987
:
(*FX229,0
2� �#0:�:�chain("ANALYSE")
<�0
F�23;8202;0;0;0;
P� year%(3)
Z
�findyear
dtitle$="GainLoss"
nMpress$="Press <ESCAPE> to exit, <P> to print, any other key to continue."
xcurrentptr%=0
�scale=0:Y=0
�firstptr%=158
�currentdateptr%=160
�
disc%=165
�npts%=0
��overall
��chain("ANALYSE")
�:
���chain(A$)
��system
�� A$
��
�:


��open

�findfiles

� nyears%<0 � �

"nyears%=nyears%-1

,�open2(nyears%)

6�getdmy

@�

J:

T��findfiles

^
nyears%=0

h�

r$F%=�(�(year%(P%)-nyears%)+�(P%))

|�#0

�� F%=0 � �tZA

�nyears%=nyears%+1

�
� F%=0

�"� nyears%=0 nyears%=-10:� �TRB

�npts%=0

�� K%=0�nyears%-1

�F%=�(�(year%(P%)-K%)+�(P%))

��#F%=firstptr%

� firstrecord%=(�#F%)*256+�#F%

��#F%=disc%

�currentptr%=(�#F%)*256+�#F%

�9npts%=npts%+1+(currentptr%-firstrecord%) � (ndata%*2)

��#0
�
�
:
&��open2(I%)
0�#0
:F%=�(�(year%(P%)-I%)+�(P%))
D�#F%=firstptr%
N firstrecord%=(�#F%)*256+�#F%
X�#F%=disc%
bcurrentptr%=(�#F%)*256+�#F%
l�
v:
���getdmy
��#F%=disc%
�currentptr%=(�#F%)*256+�#F%
�
d=�#F%
�
m=�#F%
�y=(�#F%)*256+�#F%
�� nyears%=0 � �dZB
��#0
�F%=�(�(year%(P%))+�(P%))
��#F%=currentdateptr%
�
D=�#F%
�
M=�#F%
�Y=(�#F%)*256+�#F%
�#0
�
:
 
��date
*9��(d)+"/"+�(m)+"/"+�(y)+" to "+�(D)+"/"+�(M)+"/"+�(Y)
4�
>:
H
��overall
R
ndata%=20
\� P%=1�3
f	�open
p� nyears%<0 � �tzD
z� npts%<2 � �tRD
�	�22,0
��23;8202;0;0;0;
�XDIF=1000/(npts%-1)
�#�25,15)"Please wait, scaling."
��findmaxmin
��
��border
�
�overaxis
��open2(nyears%)
��#F%=firstrecord%
�
O=�getsum
�	X=100
�zero=-(min%*scale)+100
� X,zero
�
�open2(nyears%)
$�#F%=firstrecord%
.�
8X=X+XDIF
B
S=�getsum
L� S=0 � �DjD
VP=zero+((S-O)*100/S)*scale
`	� X,P
j� �#F%>currentptr%
tnyears%=nyears%-1
~� nyears%<0
��#0
��6,30)press$;
�*FX21,0
�A%=� � &DF
�� A%=80 �dump
��
��
��
�:
���findmaxmin
�$F%=�(�(year%(P%)-nyears%)+�(P%))
��#F%=firstrecord%
max%=-9999


min%=9999
O%=�getsum
�#0
(� I%=nyears% � 0 � -1
2�open2(I%)
<�#F%=firstrecord%
F*� W%=0 � (currentptr%-firstrecord%)/20
PS%=�getsum
Z� S%=0 � �tLE
dT%=(S%-O%)*100/S%
n� T%=0 � �tLE
x� T%>max% max%=T%
�� T%<min% min%=T%
��
��
�min%=((min% � 10)*10)-10
�max%=((max% � 10)*10)+20
�scale=900/(max%-min%)
��
�:
���overaxis
�$�7,1)"Portfolio ";P%;" ";:�date
��5
�� 10,566
��"%"

T%=850
S%=1
�
"�
,� 10,T%
6� �title$,S%,1)
@S%=S%+1
JT%=T%-25
T� S%=5 � S%=9
^
T%=400
h
� S%=9
r(� I%=min% � max% � �((max%-min%)/12)
|$Y%=100+(I%-min%)*900/(max%-min%)
�� 50,16+Y%:�;I%
�� 100,Y%
�� 120,Y%
�� 1110,16+Y%:�;I%
�
� 1100,Y%
�
� 1080,Y%
��
�"Y%=100+(-min%)*900/(max%-min%)
�� 100,Y%:� 1100,Y%
��4
��
�:
���border
9� 100,100:� 1100,100:� 1100,1000:� 100,1000:� 100,100
�
:
&ݤgetsum
0� �#F%>currentptr% =0
:N%=0
DQ%=0
NR%=0
X� V%=1�ndata%
bQ%=(�#F%)*100+�#F%
l� Q%=0 � �tJG
vN%=N%+Q%
�R%=R%+1
��
�
� R%=0 =0
�N%=N%/R%
�=N%
�:
���system
��
�*FX21,0
�X%=�("MAIN")
��#0
�X� X%=0 �:�0,10)"Insert System Disc in drive 0"''"and press any key to continue":���
�� X%<>0
�
:
��findyear
 �system
*X%=�("YEAR")
4�� X%=0 �:�0,10)"File 'YEAR' does not exist."''"Go to MAIN panel and select each"'"required Index/Portfolio in turn."''"To return to MAIN":�key:�chain("MAIN")
>� I%=0�3
H�#X%,year%(I%)
R�
\�#0
f�
p:
z	��key
��''"PRESS A KEY"
�*FX21,0
�K%=�
��
�:
�
��dump
�
*/PRINT16
��
�

00000000  0d 00 0a 19 f4 20 50 4f  52 54 46 4f 4c 49 4f 20  |..... PORTFOLIO |
00000010  2d 20 4f 56 45 52 41 4c  4c 0d 00 14 1f f4 20 28  |- OVERALL..... (|
00000020  43 29 20 4a 6f 6e 20 4c  65 69 67 68 74 6f 6e 20  |C) Jon Leighton |
00000030  41 75 67 20 31 39 38 37  0d 00 1e 05 3a 0d 00 28  |Aug 1987....:..(|
00000040  0c 2a 46 58 32 32 39 2c  30 0d 00 32 1e ee 85 20  |.*FX229,0..2... |
00000050  d9 23 30 3a db 3a f2 63  68 61 69 6e 28 22 41 4e  |.#0:.:.chain("AN|
00000060  41 4c 59 53 45 22 29 0d  00 3c 06 eb 30 0d 00 46  |ALYSE")..<..0..F|
00000070  13 ef 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |..23;8202;0;0;0;|
00000080  0d 00 50 0e de 20 79 65  61 72 25 28 33 29 0d 00  |..P.. year%(3)..|
00000090  5a 0d f2 66 69 6e 64 79  65 61 72 0d 00 64 15 74  |Z..findyear..d.t|
000000a0  69 74 6c 65 24 3d 22 47  61 69 6e 4c 6f 73 73 22  |itle$="GainLoss"|
000000b0  0d 00 6e 4d 70 72 65 73  73 24 3d 22 50 72 65 73  |..nMpress$="Pres|
000000c0  73 20 3c 45 53 43 41 50  45 3e 20 74 6f 20 65 78  |s <ESCAPE> to ex|
000000d0  69 74 2c 20 3c 50 3e 20  74 6f 20 70 72 69 6e 74  |it, <P> to print|
000000e0  2c 20 61 6e 79 20 6f 74  68 65 72 20 6b 65 79 20  |, any other key |
000000f0  74 6f 20 63 6f 6e 74 69  6e 75 65 2e 22 0d 00 78  |to continue."..x|
00000100  11 63 75 72 72 65 6e 74  70 74 72 25 3d 30 0d 00  |.currentptr%=0..|
00000110  82 0f 73 63 61 6c 65 3d  30 3a 59 3d 30 0d 00 8c  |..scale=0:Y=0...|
00000120  11 66 69 72 73 74 70 74  72 25 3d 31 35 38 0d 00  |.firstptr%=158..|
00000130  96 17 63 75 72 72 65 6e  74 64 61 74 65 70 74 72  |..currentdateptr|
00000140  25 3d 31 36 30 0d 00 a0  0d 64 69 73 63 25 3d 31  |%=160....disc%=1|
00000150  36 35 0d 00 aa 0b 6e 70  74 73 25 3d 30 0d 00 b4  |65....npts%=0...|
00000160  0c f2 6f 76 65 72 61 6c  6c 0d 00 be 15 f2 63 68  |..overall.....ch|
00000170  61 69 6e 28 22 41 4e 41  4c 59 53 45 22 29 0d 00  |ain("ANALYSE")..|
00000180  c8 05 3a 0d 00 d2 0f dd  f2 63 68 61 69 6e 28 41  |..:......chain(A|
00000190  24 29 0d 00 dc 0b f2 73  79 73 74 65 6d 0d 00 e6  |$).....system...|
000001a0  08 d7 20 41 24 0d 00 f0  05 e1 0d 00 fa 05 3a 0d  |.. A$.........:.|
000001b0  01 04 0a dd f2 6f 70 65  6e 0d 01 0e 0e f2 66 69  |.....open.....fi|
000001c0  6e 64 66 69 6c 65 73 0d  01 18 13 e7 20 6e 79 65  |ndfiles..... nye|
000001d0  61 72 73 25 3c 30 20 8c  20 e1 0d 01 22 15 6e 79  |ars%<0 . ...".ny|
000001e0  65 61 72 73 25 3d 6e 79  65 61 72 73 25 2d 31 0d  |ears%=nyears%-1.|
000001f0  01 2c 13 f2 6f 70 65 6e  32 28 6e 79 65 61 72 73  |.,..open2(nyears|
00000200  25 29 0d 01 36 0b f2 67  65 74 64 6d 79 0d 01 40  |%)..6..getdmy..@|
00000210  05 e1 0d 01 4a 05 3a 0d  01 54 0f dd f2 66 69 6e  |....J.:..T...fin|
00000220  64 66 69 6c 65 73 0d 01  5e 0d 6e 79 65 61 72 73  |dfiles..^.nyears|
00000230  25 3d 30 0d 01 68 05 f5  0d 01 72 24 46 25 3d 8e  |%=0..h....r$F%=.|
00000240  28 c3 28 79 65 61 72 25  28 50 25 29 2d 6e 79 65  |(.(year%(P%)-nye|
00000250  61 72 73 25 29 2b c3 28  50 25 29 29 0d 01 7c 07  |ars%)+.(P%))..|.|
00000260  d9 23 30 0d 01 86 11 e7  20 46 25 3d 30 20 e5 20  |.#0..... F%=0 . |
00000270  8d 74 5a 41 0d 01 90 15  6e 79 65 61 72 73 25 3d  |.tZA....nyears%=|
00000280  6e 79 65 61 72 73 25 2b  31 0d 01 9a 0a fd 20 46  |nyears%+1..... F|
00000290  25 3d 30 0d 01 a4 22 e7  20 6e 79 65 61 72 73 25  |%=0...". nyears%|
000002a0  3d 30 20 6e 79 65 61 72  73 25 3d 2d 31 30 3a e5  |=0 nyears%=-10:.|
000002b0  20 8d 54 52 42 0d 01 ae  0b 6e 70 74 73 25 3d 30  | .TRB....npts%=0|
000002c0  0d 01 b8 14 e3 20 4b 25  3d 30 b8 6e 79 65 61 72  |..... K%=0.nyear|
000002d0  73 25 2d 31 0d 01 c2 1f  46 25 3d 8e 28 c3 28 79  |s%-1....F%=.(.(y|
000002e0  65 61 72 25 28 50 25 29  2d 4b 25 29 2b c3 28 50  |ear%(P%)-K%)+.(P|
000002f0  25 29 29 0d 01 cc 12 cf  23 46 25 3d 66 69 72 73  |%)).....#F%=firs|
00000300  74 70 74 72 25 0d 01 d6  20 66 69 72 73 74 72 65  |tptr%... firstre|
00000310  63 6f 72 64 25 3d 28 9a  23 46 25 29 2a 32 35 36  |cord%=(.#F%)*256|
00000320  2b 9a 23 46 25 0d 01 e0  0e cf 23 46 25 3d 64 69  |+.#F%.....#F%=di|
00000330  73 63 25 0d 01 ea 1f 63  75 72 72 65 6e 74 70 74  |sc%....currentpt|
00000340  72 25 3d 28 9a 23 46 25  29 2a 32 35 36 2b 9a 23  |r%=(.#F%)*256+.#|
00000350  46 25 0d 01 f4 39 6e 70  74 73 25 3d 6e 70 74 73  |F%...9npts%=npts|
00000360  25 2b 31 2b 28 63 75 72  72 65 6e 74 70 74 72 25  |%+1+(currentptr%|
00000370  2d 66 69 72 73 74 72 65  63 6f 72 64 25 29 20 81  |-firstrecord%) .|
00000380  20 28 6e 64 61 74 61 25  2a 32 29 0d 01 fe 07 d9  | (ndata%*2).....|
00000390  23 30 0d 02 08 05 ed 0d  02 12 05 e1 0d 02 1c 05  |#0..............|
000003a0  3a 0d 02 26 0f dd f2 6f  70 65 6e 32 28 49 25 29  |:..&...open2(I%)|
000003b0  0d 02 30 07 d9 23 30 0d  02 3a 1f 46 25 3d 8e 28  |..0..#0..:.F%=.(|
000003c0  c3 28 79 65 61 72 25 28  50 25 29 2d 49 25 29 2b  |.(year%(P%)-I%)+|
000003d0  c3 28 50 25 29 29 0d 02  44 12 cf 23 46 25 3d 66  |.(P%))..D..#F%=f|
000003e0  69 72 73 74 70 74 72 25  0d 02 4e 20 66 69 72 73  |irstptr%..N firs|
000003f0  74 72 65 63 6f 72 64 25  3d 28 9a 23 46 25 29 2a  |trecord%=(.#F%)*|
00000400  32 35 36 2b 9a 23 46 25  0d 02 58 0e cf 23 46 25  |256+.#F%..X..#F%|
00000410  3d 64 69 73 63 25 0d 02  62 1f 63 75 72 72 65 6e  |=disc%..b.curren|
00000420  74 70 74 72 25 3d 28 9a  23 46 25 29 2a 32 35 36  |tptr%=(.#F%)*256|
00000430  2b 9a 23 46 25 0d 02 6c  05 e1 0d 02 76 05 3a 0d  |+.#F%..l....v.:.|
00000440  02 80 0c dd f2 67 65 74  64 6d 79 0d 02 8a 0e cf  |.....getdmy.....|
00000450  23 46 25 3d 64 69 73 63  25 0d 02 94 1f 63 75 72  |#F%=disc%....cur|
00000460  72 65 6e 74 70 74 72 25  3d 28 9a 23 46 25 29 2a  |rentptr%=(.#F%)*|
00000470  32 35 36 2b 9a 23 46 25  0d 02 9e 0a 64 3d 9a 23  |256+.#F%....d=.#|
00000480  46 25 0d 02 a8 0a 6d 3d  9a 23 46 25 0d 02 b2 15  |F%....m=.#F%....|
00000490  79 3d 28 9a 23 46 25 29  2a 32 35 36 2b 9a 23 46  |y=(.#F%)*256+.#F|
000004a0  25 0d 02 bc 16 e7 20 6e  79 65 61 72 73 25 3d 30  |%..... nyears%=0|
000004b0  20 e5 20 8d 64 5a 42 0d  02 c6 07 d9 23 30 0d 02  | . .dZB.....#0..|
000004c0  d0 1c 46 25 3d 8e 28 c3  28 79 65 61 72 25 28 50  |..F%=.(.(year%(P|
000004d0  25 29 29 2b c3 28 50 25  29 29 0d 02 da 18 cf 23  |%))+.(P%)).....#|
000004e0  46 25 3d 63 75 72 72 65  6e 74 64 61 74 65 70 74  |F%=currentdatept|
000004f0  72 25 0d 02 e4 0a 44 3d  9a 23 46 25 0d 02 ee 0a  |r%....D=.#F%....|
00000500  4d 3d 9a 23 46 25 0d 02  f8 15 59 3d 28 9a 23 46  |M=.#F%....Y=(.#F|
00000510  25 29 2a 32 35 36 2b 9a  23 46 25 0d 03 02 07 d9  |%)*256+.#F%.....|
00000520  23 30 0d 03 0c 05 e1 0d  03 16 05 3a 0d 03 20 0a  |#0.........:.. .|
00000530  dd f2 64 61 74 65 0d 03  2a 39 f1 c3 28 64 29 2b  |..date..*9..(d)+|
00000540  22 2f 22 2b c3 28 6d 29  2b 22 2f 22 2b c3 28 79  |"/"+.(m)+"/"+.(y|
00000550  29 2b 22 20 74 6f 20 22  2b c3 28 44 29 2b 22 2f  |)+" to "+.(D)+"/|
00000560  22 2b c3 28 4d 29 2b 22  2f 22 2b c3 28 59 29 0d  |"+.(M)+"/"+.(Y).|
00000570  03 34 05 e1 0d 03 3e 05  3a 0d 03 48 0d dd f2 6f  |.4....>.:..H...o|
00000580  76 65 72 61 6c 6c 0d 03  52 0d 6e 64 61 74 61 25  |verall..R.ndata%|
00000590  3d 32 30 0d 03 5c 0c e3  20 50 25 3d 31 b8 33 0d  |=20..\.. P%=1.3.|
000005a0  03 66 09 f2 6f 70 65 6e  0d 03 70 16 e7 20 6e 79  |.f..open..p.. ny|
000005b0  65 61 72 73 25 3c 30 20  e5 20 8d 74 7a 44 0d 03  |ears%<0 . .tzD..|
000005c0  7a 14 e7 20 6e 70 74 73  25 3c 32 20 e5 20 8d 74  |z.. npts%<2 . .t|
000005d0  52 44 0d 03 84 09 ef 32  32 2c 30 0d 03 8e 13 ef  |RD.....22,0.....|
000005e0  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 0d 03  |23;8202;0;0;0;..|
000005f0  98 17 58 44 49 46 3d 31  30 30 30 2f 28 6e 70 74  |..XDIF=1000/(npt|
00000600  73 25 2d 31 29 0d 03 a2  23 f1 8a 32 35 2c 31 35  |s%-1)...#..25,15|
00000610  29 22 50 6c 65 61 73 65  20 77 61 69 74 2c 20 73  |)"Please wait, s|
00000620  63 61 6c 69 6e 67 2e 22  0d 03 ac 0f f2 66 69 6e  |caling.".....fin|
00000630  64 6d 61 78 6d 69 6e 0d  03 b6 05 db 0d 03 c0 0b  |dmaxmin.........|
00000640  f2 62 6f 72 64 65 72 0d  03 ca 0d f2 6f 76 65 72  |.border.....over|
00000650  61 78 69 73 0d 03 d4 13  f2 6f 70 65 6e 32 28 6e  |axis.....open2(n|
00000660  79 65 61 72 73 25 29 0d  03 de 15 cf 23 46 25 3d  |years%).....#F%=|
00000670  66 69 72 73 74 72 65 63  6f 72 64 25 0d 03 e8 0d  |firstrecord%....|
00000680  4f 3d a4 67 65 74 73 75  6d 0d 03 f2 09 58 3d 31  |O=.getsum....X=1|
00000690  30 30 0d 03 fc 1a 7a 65  72 6f 3d 2d 28 6d 69 6e  |00....zero=-(min|
000006a0  25 2a 73 63 61 6c 65 29  2b 31 30 30 0d 04 06 0c  |%*scale)+100....|
000006b0  ec 20 58 2c 7a 65 72 6f  0d 04 10 05 f5 0d 04 1a  |. X,zero........|
000006c0  13 f2 6f 70 65 6e 32 28  6e 79 65 61 72 73 25 29  |..open2(nyears%)|
000006d0  0d 04 24 15 cf 23 46 25  3d 66 69 72 73 74 72 65  |..$..#F%=firstre|
000006e0  63 6f 72 64 25 0d 04 2e  05 f5 0d 04 38 0c 58 3d  |cord%.......8.X=|
000006f0  58 2b 58 44 49 46 0d 04  42 0d 53 3d a4 67 65 74  |X+XDIF..B.S=.get|
00000700  73 75 6d 0d 04 4c 10 e7  20 53 3d 30 20 e5 20 8d  |sum..L.. S=0 . .|
00000710  44 6a 44 0d 04 56 1e 50  3d 7a 65 72 6f 2b 28 28  |DjD..V.P=zero+((|
00000720  53 2d 4f 29 2a 31 30 30  2f 53 29 2a 73 63 61 6c  |S-O)*100/S)*scal|
00000730  65 0d 04 60 09 df 20 58  2c 50 0d 04 6a 16 fd 20  |e..`.. X,P..j.. |
00000740  8f 23 46 25 3e 63 75 72  72 65 6e 74 70 74 72 25  |.#F%>currentptr%|
00000750  0d 04 74 15 6e 79 65 61  72 73 25 3d 6e 79 65 61  |..t.nyears%=nyea|
00000760  72 73 25 2d 31 0d 04 7e  0f fd 20 6e 79 65 61 72  |rs%-1..~.. nyear|
00000770  73 25 3c 30 0d 04 88 07  d9 23 30 0d 04 92 12 f1  |s%<0.....#0.....|
00000780  8a 36 2c 33 30 29 70 72  65 73 73 24 3b 0d 04 9c  |.6,30)press$;...|
00000790  0b 2a 46 58 32 31 2c 30  0d 04 a6 0e 41 25 3d a5  |.*FX21,0....A%=.|
000007a0  20 80 20 26 44 46 0d 04  b0 11 e7 20 41 25 3d 38  | . &DF..... A%=8|
000007b0  30 20 f2 64 75 6d 70 0d  04 ba 05 db 0d 04 c4 05  |0 .dump.........|
000007c0  ed 0d 04 ce 05 e1 0d 04  d8 05 3a 0d 04 e2 10 dd  |..........:.....|
000007d0  f2 66 69 6e 64 6d 61 78  6d 69 6e 0d 04 ec 24 46  |.findmaxmin...$F|
000007e0  25 3d 8e 28 c3 28 79 65  61 72 25 28 50 25 29 2d  |%=.(.(year%(P%)-|
000007f0  6e 79 65 61 72 73 25 29  2b c3 28 50 25 29 29 0d  |nyears%)+.(P%)).|
00000800  04 f6 15 cf 23 46 25 3d  66 69 72 73 74 72 65 63  |....#F%=firstrec|
00000810  6f 72 64 25 0d 05 00 0e  6d 61 78 25 3d 2d 39 39  |ord%....max%=-99|
00000820  39 39 0d 05 0a 0d 6d 69  6e 25 3d 39 39 39 39 0d  |99....min%=9999.|
00000830  05 14 0e 4f 25 3d a4 67  65 74 73 75 6d 0d 05 1e  |...O%=.getsum...|
00000840  07 d9 23 30 0d 05 28 19  e3 20 49 25 3d 6e 79 65  |..#0..(.. I%=nye|
00000850  61 72 73 25 20 b8 20 30  20 88 20 2d 31 0d 05 32  |ars% . 0 . -1..2|
00000860  0e f2 6f 70 65 6e 32 28  49 25 29 0d 05 3c 15 cf  |..open2(I%)..<..|
00000870  23 46 25 3d 66 69 72 73  74 72 65 63 6f 72 64 25  |#F%=firstrecord%|
00000880  0d 05 46 2a e3 20 57 25  3d 30 20 b8 20 28 63 75  |..F*. W%=0 . (cu|
00000890  72 72 65 6e 74 70 74 72  25 2d 66 69 72 73 74 72  |rrentptr%-firstr|
000008a0  65 63 6f 72 64 25 29 2f  32 30 0d 05 50 0e 53 25  |ecord%)/20..P.S%|
000008b0  3d a4 67 65 74 73 75 6d  0d 05 5a 11 e7 20 53 25  |=.getsum..Z.. S%|
000008c0  3d 30 20 e5 20 8d 74 4c  45 0d 05 64 15 54 25 3d  |=0 . .tLE..d.T%=|
000008d0  28 53 25 2d 4f 25 29 2a  31 30 30 2f 53 25 0d 05  |(S%-O%)*100/S%..|
000008e0  6e 11 e7 20 54 25 3d 30  20 e5 20 8d 74 4c 45 0d  |n.. T%=0 . .tLE.|
000008f0  05 78 15 e7 20 54 25 3e  6d 61 78 25 20 6d 61 78  |.x.. T%>max% max|
00000900  25 3d 54 25 0d 05 82 15  e7 20 54 25 3c 6d 69 6e  |%=T%..... T%<min|
00000910  25 20 6d 69 6e 25 3d 54  25 0d 05 8c 05 ed 0d 05  |% min%=T%.......|
00000920  96 05 ed 0d 05 a0 1c 6d  69 6e 25 3d 28 28 6d 69  |.......min%=((mi|
00000930  6e 25 20 81 20 31 30 29  2a 31 30 29 2d 31 30 0d  |n% . 10)*10)-10.|
00000940  05 aa 1c 6d 61 78 25 3d  28 28 6d 61 78 25 20 81  |...max%=((max% .|
00000950  20 31 30 29 2a 31 30 29  2b 32 30 0d 05 b4 19 73  | 10)*10)+20....s|
00000960  63 61 6c 65 3d 39 30 30  2f 28 6d 61 78 25 2d 6d  |cale=900/(max%-m|
00000970  69 6e 25 29 0d 05 be 05  e1 0d 05 c8 05 3a 0d 05  |in%).........:..|
00000980  d2 0e dd f2 6f 76 65 72  61 78 69 73 0d 05 dc 24  |....overaxis...$|
00000990  f1 8a 37 2c 31 29 22 50  6f 72 74 66 6f 6c 69 6f  |..7,1)"Portfolio|
000009a0  20 22 3b 50 25 3b 22 20  22 3b 3a f2 64 61 74 65  | ";P%;" ";:.date|
000009b0  0d 05 e6 06 ef 35 0d 05  f0 0c ec 20 31 30 2c 35  |.....5..... 10,5|
000009c0  36 36 0d 05 fa 08 f1 22  25 22 0d 06 04 0a 54 25  |66....."%"....T%|
000009d0  3d 38 35 30 0d 06 0e 08  53 25 3d 31 0d 06 18 05  |=850....S%=1....|
000009e0  f5 0d 06 22 05 f5 0d 06  2c 0b ec 20 31 30 2c 54  |..."....,.. 10,T|
000009f0  25 0d 06 36 13 f1 20 c1  74 69 74 6c 65 24 2c 53  |%..6.. .title$,S|
00000a00  25 2c 31 29 0d 06 40 0b  53 25 3d 53 25 2b 31 0d  |%,1)..@.S%=S%+1.|
00000a10  06 4a 0c 54 25 3d 54 25  2d 32 35 0d 06 54 11 fd  |.J.T%=T%-25..T..|
00000a20  20 53 25 3d 35 20 84 20  53 25 3d 39 0d 06 5e 0a  | S%=5 . S%=9..^.|
00000a30  54 25 3d 34 30 30 0d 06  68 0a fd 20 53 25 3d 39  |T%=400..h.. S%=9|
00000a40  0d 06 72 28 e3 20 49 25  3d 6d 69 6e 25 20 b8 20  |..r(. I%=min% . |
00000a50  6d 61 78 25 20 88 20 a8  28 28 6d 61 78 25 2d 6d  |max% . .((max%-m|
00000a60  69 6e 25 29 2f 31 32 29  0d 06 7c 24 59 25 3d 31  |in%)/12)..|$Y%=1|
00000a70  30 30 2b 28 49 25 2d 6d  69 6e 25 29 2a 39 30 30  |00+(I%-min%)*900|
00000a80  2f 28 6d 61 78 25 2d 6d  69 6e 25 29 0d 06 86 13  |/(max%-min%)....|
00000a90  ec 20 35 30 2c 31 36 2b  59 25 3a f1 3b 49 25 0d  |. 50,16+Y%:.;I%.|
00000aa0  06 90 0c ec 20 31 30 30  2c 59 25 0d 06 9a 0c df  |.... 100,Y%.....|
00000ab0  20 31 32 30 2c 59 25 0d  06 a4 15 ec 20 31 31 31  | 120,Y%..... 111|
00000ac0  30 2c 31 36 2b 59 25 3a  f1 3b 49 25 0d 06 ae 0d  |0,16+Y%:.;I%....|
00000ad0  ec 20 31 31 30 30 2c 59  25 0d 06 b8 0d df 20 31  |. 1100,Y%..... 1|
00000ae0  30 38 30 2c 59 25 0d 06  c2 05 ed 0d 06 cc 22 59  |080,Y%........"Y|
00000af0  25 3d 31 30 30 2b 28 2d  6d 69 6e 25 29 2a 39 30  |%=100+(-min%)*90|
00000b00  30 2f 28 6d 61 78 25 2d  6d 69 6e 25 29 0d 06 d6  |0/(max%-min%)...|
00000b10  16 ec 20 31 30 30 2c 59  25 3a df 20 31 31 30 30  |.. 100,Y%:. 1100|
00000b20  2c 59 25 0d 06 e0 06 ef  34 0d 06 ea 05 e1 0d 06  |,Y%.....4.......|
00000b30  f4 05 3a 0d 06 fe 0c dd  f2 62 6f 72 64 65 72 0d  |..:......border.|
00000b40  07 08 39 ec 20 31 30 30  2c 31 30 30 3a df 20 31  |..9. 100,100:. 1|
00000b50  31 30 30 2c 31 30 30 3a  df 20 31 31 30 30 2c 31  |100,100:. 1100,1|
00000b60  30 30 30 3a df 20 31 30  30 2c 31 30 30 30 3a df  |000:. 100,1000:.|
00000b70  20 31 30 30 2c 31 30 30  0d 07 12 05 e1 0d 07 1c  | 100,100........|
00000b80  05 3a 0d 07 26 0c dd a4  67 65 74 73 75 6d 0d 07  |.:..&...getsum..|
00000b90  30 19 e7 20 8f 23 46 25  3e 63 75 72 72 65 6e 74  |0.. .#F%>current|
00000ba0  70 74 72 25 20 3d 30 0d  07 3a 08 4e 25 3d 30 0d  |ptr% =0..:.N%=0.|
00000bb0  07 44 08 51 25 3d 30 0d  07 4e 08 52 25 3d 30 0d  |.D.Q%=0..N.R%=0.|
00000bc0  07 58 11 e3 20 56 25 3d  31 b8 6e 64 61 74 61 25  |.X.. V%=1.ndata%|
00000bd0  0d 07 62 16 51 25 3d 28  9a 23 46 25 29 2a 31 30  |..b.Q%=(.#F%)*10|
00000be0  30 2b 9a 23 46 25 0d 07  6c 11 e7 20 51 25 3d 30  |0+.#F%..l.. Q%=0|
00000bf0  20 e5 20 8d 74 4a 47 0d  07 76 0c 4e 25 3d 4e 25  | . .tJG..v.N%=N%|
00000c00  2b 51 25 0d 07 80 0b 52  25 3d 52 25 2b 31 0d 07  |+Q%....R%=R%+1..|
00000c10  8a 05 ed 0d 07 94 0d e7  20 52 25 3d 30 20 3d 30  |........ R%=0 =0|
00000c20  0d 07 9e 0c 4e 25 3d 4e  25 2f 52 25 0d 07 a8 07  |....N%=N%/R%....|
00000c30  3d 4e 25 0d 07 b2 05 3a  0d 07 bc 0c dd f2 73 79  |=N%....:......sy|
00000c40  73 74 65 6d 0d 07 c6 05  f5 0d 07 d0 0b 2a 46 58  |stem.........*FX|
00000c50  32 31 2c 30 0d 07 da 10  58 25 3d 8e 28 22 4d 41  |21,0....X%=.("MA|
00000c60  49 4e 22 29 0d 07 e4 07  d9 23 30 0d 07 ee 58 e7  |IN").....#0...X.|
00000c70  20 58 25 3d 30 20 db 3a  f1 8a 30 2c 31 30 29 22  | X%=0 .:..0,10)"|
00000c80  49 6e 73 65 72 74 20 53  79 73 74 65 6d 20 44 69  |Insert System Di|
00000c90  73 63 20 69 6e 20 64 72  69 76 65 20 30 22 27 27  |sc in drive 0"''|
00000ca0  22 61 6e 64 20 70 72 65  73 73 20 61 6e 79 20 6b  |"and press any k|
00000cb0  65 79 20 74 6f 20 63 6f  6e 74 69 6e 75 65 22 3a  |ey to continue":|
00000cc0  f5 fd a5 0d 07 f8 0b fd  20 58 25 3c 3e 30 0d 08  |........ X%<>0..|
00000cd0  02 05 e1 0d 08 0c 05 3a  0d 08 16 0e dd f2 66 69  |.......:......fi|
00000ce0  6e 64 79 65 61 72 0d 08  20 0b f2 73 79 73 74 65  |ndyear.. ..syste|
00000cf0  6d 0d 08 2a 10 58 25 3d  8e 28 22 59 45 41 52 22  |m..*.X%=.("YEAR"|
00000d00  29 0d 08 34 a2 e7 20 58  25 3d 30 20 db 3a f1 8a  |)..4.. X%=0 .:..|
00000d10  30 2c 31 30 29 22 46 69  6c 65 20 27 59 45 41 52  |0,10)"File 'YEAR|
00000d20  27 20 64 6f 65 73 20 6e  6f 74 20 65 78 69 73 74  |' does not exist|
00000d30  2e 22 27 27 22 47 6f 20  74 6f 20 4d 41 49 4e 20  |."''"Go to MAIN |
00000d40  70 61 6e 65 6c 20 61 6e  64 20 73 65 6c 65 63 74  |panel and select|
00000d50  20 65 61 63 68 22 27 22  72 65 71 75 69 72 65 64  | each"'"required|
00000d60  20 49 6e 64 65 78 2f 50  6f 72 74 66 6f 6c 69 6f  | Index/Portfolio|
00000d70  20 69 6e 20 74 75 72 6e  2e 22 27 27 22 54 6f 20  | in turn."''"To |
00000d80  72 65 74 75 72 6e 20 74  6f 20 4d 41 49 4e 22 3a  |return to MAIN":|
00000d90  f2 6b 65 79 3a f2 63 68  61 69 6e 28 22 4d 41 49  |.key:.chain("MAI|
00000da0  4e 22 29 0d 08 3e 0c e3  20 49 25 3d 30 b8 33 0d  |N")..>.. I%=0.3.|
00000db0  08 48 12 e8 23 58 25 2c  79 65 61 72 25 28 49 25  |.H..#X%,year%(I%|
00000dc0  29 0d 08 52 05 ed 0d 08  5c 07 d9 23 30 0d 08 66  |)..R....\..#0..f|
00000dd0  05 e1 0d 08 70 05 3a 0d  08 7a 09 dd f2 6b 65 79  |....p.:..z...key|
00000de0  0d 08 84 14 f1 27 27 22  50 52 45 53 53 20 41 20  |.....''"PRESS A |
00000df0  4b 45 59 22 0d 08 8e 0b  2a 46 58 32 31 2c 30 0d  |KEY"....*FX21,0.|
00000e00  08 98 08 4b 25 3d a5 0d  08 a2 05 e1 0d 08 ac 05  |...K%=..........|
00000e10  3a 0d 08 b6 0a dd f2 64  75 6d 70 0d 08 c0 0d 2a  |:......dump....*|
00000e20  2f 50 52 49 4e 54 31 36  0d 08 ca 05 e1 0d ff     |/PRINT16.......|
00000e2f