� PORTFOLIO - OVERALL
� (C) Jon Leighton Nov 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
��""":0.$."+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%=�(":0.MAIN")
��#0
�X� X%=0 �:�0,10)"Insert System Disc in drive 0"''"and press any key to continue":���
�� X%<>0
�
:
��findyear
 �system
*X%=�(":0.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
�*:0.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  4e 6f 76 20 31 39 38 37  0d 00 1e 05 3a 0d 00 28  |Nov 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  16 d7 22 22 22 3a 30 2e  24 2e 22 2b 41 24 2b 22  |..""":0.$."+A$+"|
000001b0  22 22 22 0d 00 f0 05 e1  0d 00 fa 05 3a 0d 01 04  |""".........:...|
000001c0  0a dd f2 6f 70 65 6e 0d  01 0e 0e f2 66 69 6e 64  |...open.....find|
000001d0  66 69 6c 65 73 0d 01 18  13 e7 20 6e 79 65 61 72  |files..... nyear|
000001e0  73 25 3c 30 20 8c 20 e1  0d 01 22 15 6e 79 65 61  |s%<0 . ...".nyea|
000001f0  72 73 25 3d 6e 79 65 61  72 73 25 2d 31 0d 01 2c  |rs%=nyears%-1..,|
00000200  13 f2 6f 70 65 6e 32 28  6e 79 65 61 72 73 25 29  |..open2(nyears%)|
00000210  0d 01 36 0b f2 67 65 74  64 6d 79 0d 01 40 05 e1  |..6..getdmy..@..|
00000220  0d 01 4a 05 3a 0d 01 54  0f dd f2 66 69 6e 64 66  |..J.:..T...findf|
00000230  69 6c 65 73 0d 01 5e 0d  6e 79 65 61 72 73 25 3d  |iles..^.nyears%=|
00000240  30 0d 01 68 05 f5 0d 01  72 24 46 25 3d ad 28 c3  |0..h....r$F%=.(.|
00000250  28 79 65 61 72 25 28 50  25 29 2d 6e 79 65 61 72  |(year%(P%)-nyear|
00000260  73 25 29 2b c3 28 50 25  29 29 0d 01 7c 07 d9 23  |s%)+.(P%))..|..#|
00000270  30 0d 01 86 11 e7 20 46  25 3d 30 20 e5 20 8d 74  |0..... F%=0 . .t|
00000280  5a 41 0d 01 90 15 6e 79  65 61 72 73 25 3d 6e 79  |ZA....nyears%=ny|
00000290  65 61 72 73 25 2b 31 0d  01 9a 0a fd 20 46 25 3d  |ears%+1..... F%=|
000002a0  30 0d 01 a4 22 e7 20 6e  79 65 61 72 73 25 3d 30  |0...". nyears%=0|
000002b0  20 6e 79 65 61 72 73 25  3d 2d 31 30 3a e5 20 8d  | nyears%=-10:. .|
000002c0  54 52 42 0d 01 ae 0b 6e  70 74 73 25 3d 30 0d 01  |TRB....npts%=0..|
000002d0  b8 14 e3 20 4b 25 3d 30  b8 6e 79 65 61 72 73 25  |... K%=0.nyears%|
000002e0  2d 31 0d 01 c2 1f 46 25  3d ad 28 c3 28 79 65 61  |-1....F%=.(.(yea|
000002f0  72 25 28 50 25 29 2d 4b  25 29 2b c3 28 50 25 29  |r%(P%)-K%)+.(P%)|
00000300  29 0d 01 cc 12 cf 23 46  25 3d 66 69 72 73 74 70  |).....#F%=firstp|
00000310  74 72 25 0d 01 d6 20 66  69 72 73 74 72 65 63 6f  |tr%... firstreco|
00000320  72 64 25 3d 28 9a 23 46  25 29 2a 32 35 36 2b 9a  |rd%=(.#F%)*256+.|
00000330  23 46 25 0d 01 e0 0e cf  23 46 25 3d 64 69 73 63  |#F%.....#F%=disc|
00000340  25 0d 01 ea 1f 63 75 72  72 65 6e 74 70 74 72 25  |%....currentptr%|
00000350  3d 28 9a 23 46 25 29 2a  32 35 36 2b 9a 23 46 25  |=(.#F%)*256+.#F%|
00000360  0d 01 f4 39 6e 70 74 73  25 3d 6e 70 74 73 25 2b  |...9npts%=npts%+|
00000370  31 2b 28 63 75 72 72 65  6e 74 70 74 72 25 2d 66  |1+(currentptr%-f|
00000380  69 72 73 74 72 65 63 6f  72 64 25 29 20 81 20 28  |irstrecord%) . (|
00000390  6e 64 61 74 61 25 2a 32  29 0d 01 fe 07 d9 23 30  |ndata%*2).....#0|
000003a0  0d 02 08 05 ed 0d 02 12  05 e1 0d 02 1c 05 3a 0d  |..............:.|
000003b0  02 26 0f dd f2 6f 70 65  6e 32 28 49 25 29 0d 02  |.&...open2(I%)..|
000003c0  30 07 d9 23 30 0d 02 3a  1f 46 25 3d ad 28 c3 28  |0..#0..:.F%=.(.(|
000003d0  79 65 61 72 25 28 50 25  29 2d 49 25 29 2b c3 28  |year%(P%)-I%)+.(|
000003e0  50 25 29 29 0d 02 44 12  cf 23 46 25 3d 66 69 72  |P%))..D..#F%=fir|
000003f0  73 74 70 74 72 25 0d 02  4e 20 66 69 72 73 74 72  |stptr%..N firstr|
00000400  65 63 6f 72 64 25 3d 28  9a 23 46 25 29 2a 32 35  |ecord%=(.#F%)*25|
00000410  36 2b 9a 23 46 25 0d 02  58 0e cf 23 46 25 3d 64  |6+.#F%..X..#F%=d|
00000420  69 73 63 25 0d 02 62 1f  63 75 72 72 65 6e 74 70  |isc%..b.currentp|
00000430  74 72 25 3d 28 9a 23 46  25 29 2a 32 35 36 2b 9a  |tr%=(.#F%)*256+.|
00000440  23 46 25 0d 02 6c 05 e1  0d 02 76 05 3a 0d 02 80  |#F%..l....v.:...|
00000450  0c dd f2 67 65 74 64 6d  79 0d 02 8a 0e cf 23 46  |...getdmy.....#F|
00000460  25 3d 64 69 73 63 25 0d  02 94 1f 63 75 72 72 65  |%=disc%....curre|
00000470  6e 74 70 74 72 25 3d 28  9a 23 46 25 29 2a 32 35  |ntptr%=(.#F%)*25|
00000480  36 2b 9a 23 46 25 0d 02  9e 0a 64 3d 9a 23 46 25  |6+.#F%....d=.#F%|
00000490  0d 02 a8 0a 6d 3d 9a 23  46 25 0d 02 b2 15 79 3d  |....m=.#F%....y=|
000004a0  28 9a 23 46 25 29 2a 32  35 36 2b 9a 23 46 25 0d  |(.#F%)*256+.#F%.|
000004b0  02 bc 16 e7 20 6e 79 65  61 72 73 25 3d 30 20 e5  |.... nyears%=0 .|
000004c0  20 8d 64 5a 42 0d 02 c6  07 d9 23 30 0d 02 d0 1c  | .dZB.....#0....|
000004d0  46 25 3d ad 28 c3 28 79  65 61 72 25 28 50 25 29  |F%=.(.(year%(P%)|
000004e0  29 2b c3 28 50 25 29 29  0d 02 da 18 cf 23 46 25  |)+.(P%)).....#F%|
000004f0  3d 63 75 72 72 65 6e 74  64 61 74 65 70 74 72 25  |=currentdateptr%|
00000500  0d 02 e4 0a 44 3d 9a 23  46 25 0d 02 ee 0a 4d 3d  |....D=.#F%....M=|
00000510  9a 23 46 25 0d 02 f8 15  59 3d 28 9a 23 46 25 29  |.#F%....Y=(.#F%)|
00000520  2a 32 35 36 2b 9a 23 46  25 0d 03 02 07 d9 23 30  |*256+.#F%.....#0|
00000530  0d 03 0c 05 e1 0d 03 16  05 3a 0d 03 20 0a dd f2  |.........:.. ...|
00000540  64 61 74 65 0d 03 2a 39  f1 c3 28 64 29 2b 22 2f  |date..*9..(d)+"/|
00000550  22 2b c3 28 6d 29 2b 22  2f 22 2b c3 28 79 29 2b  |"+.(m)+"/"+.(y)+|
00000560  22 20 74 6f 20 22 2b c3  28 44 29 2b 22 2f 22 2b  |" to "+.(D)+"/"+|
00000570  c3 28 4d 29 2b 22 2f 22  2b c3 28 59 29 0d 03 34  |.(M)+"/"+.(Y)..4|
00000580  05 e1 0d 03 3e 05 3a 0d  03 48 0d dd f2 6f 76 65  |....>.:..H...ove|
00000590  72 61 6c 6c 0d 03 52 0d  6e 64 61 74 61 25 3d 32  |rall..R.ndata%=2|
000005a0  30 0d 03 5c 0c e3 20 50  25 3d 31 b8 33 0d 03 66  |0..\.. P%=1.3..f|
000005b0  09 f2 6f 70 65 6e 0d 03  70 16 e7 20 6e 79 65 61  |..open..p.. nyea|
000005c0  72 73 25 3c 30 20 e5 20  8d 74 7a 44 0d 03 7a 14  |rs%<0 . .tzD..z.|
000005d0  e7 20 6e 70 74 73 25 3c  32 20 e5 20 8d 74 52 44  |. npts%<2 . .tRD|
000005e0  0d 03 84 09 ef 32 32 2c  30 0d 03 8e 13 ef 32 33  |.....22,0.....23|
000005f0  3b 38 32 30 32 3b 30 3b  30 3b 30 3b 0d 03 98 17  |;8202;0;0;0;....|
00000600  58 44 49 46 3d 31 30 30  30 2f 28 6e 70 74 73 25  |XDIF=1000/(npts%|
00000610  2d 31 29 0d 03 a2 23 f1  8a 32 35 2c 31 35 29 22  |-1)...#..25,15)"|
00000620  50 6c 65 61 73 65 20 77  61 69 74 2c 20 73 63 61  |Please wait, sca|
00000630  6c 69 6e 67 2e 22 0d 03  ac 0f f2 66 69 6e 64 6d  |ling.".....findm|
00000640  61 78 6d 69 6e 0d 03 b6  05 db 0d 03 c0 0b f2 62  |axmin..........b|
00000650  6f 72 64 65 72 0d 03 ca  0d f2 6f 76 65 72 61 78  |order.....overax|
00000660  69 73 0d 03 d4 13 f2 6f  70 65 6e 32 28 6e 79 65  |is.....open2(nye|
00000670  61 72 73 25 29 0d 03 de  15 cf 23 46 25 3d 66 69  |ars%).....#F%=fi|
00000680  72 73 74 72 65 63 6f 72  64 25 0d 03 e8 0d 4f 3d  |rstrecord%....O=|
00000690  a4 67 65 74 73 75 6d 0d  03 f2 09 58 3d 31 30 30  |.getsum....X=100|
000006a0  0d 03 fc 1a 7a 65 72 6f  3d 2d 28 6d 69 6e 25 2a  |....zero=-(min%*|
000006b0  73 63 61 6c 65 29 2b 31  30 30 0d 04 06 0c ec 20  |scale)+100..... |
000006c0  58 2c 7a 65 72 6f 0d 04  10 05 f5 0d 04 1a 13 f2  |X,zero..........|
000006d0  6f 70 65 6e 32 28 6e 79  65 61 72 73 25 29 0d 04  |open2(nyears%)..|
000006e0  24 15 cf 23 46 25 3d 66  69 72 73 74 72 65 63 6f  |$..#F%=firstreco|
000006f0  72 64 25 0d 04 2e 05 f5  0d 04 38 0c 58 3d 58 2b  |rd%.......8.X=X+|
00000700  58 44 49 46 0d 04 42 0d  53 3d a4 67 65 74 73 75  |XDIF..B.S=.getsu|
00000710  6d 0d 04 4c 10 e7 20 53  3d 30 20 e5 20 8d 44 6a  |m..L.. S=0 . .Dj|
00000720  44 0d 04 56 1e 50 3d 7a  65 72 6f 2b 28 28 53 2d  |D..V.P=zero+((S-|
00000730  4f 29 2a 31 30 30 2f 53  29 2a 73 63 61 6c 65 0d  |O)*100/S)*scale.|
00000740  04 60 09 df 20 58 2c 50  0d 04 6a 16 fd 20 8f 23  |.`.. X,P..j.. .#|
00000750  46 25 3e 63 75 72 72 65  6e 74 70 74 72 25 0d 04  |F%>currentptr%..|
00000760  74 15 6e 79 65 61 72 73  25 3d 6e 79 65 61 72 73  |t.nyears%=nyears|
00000770  25 2d 31 0d 04 7e 0f fd  20 6e 79 65 61 72 73 25  |%-1..~.. nyears%|
00000780  3c 30 0d 04 88 07 d9 23  30 0d 04 92 12 f1 8a 36  |<0.....#0......6|
00000790  2c 33 30 29 70 72 65 73  73 24 3b 0d 04 9c 0b 2a  |,30)press$;....*|
000007a0  46 58 32 31 2c 30 0d 04  a6 0e 41 25 3d a5 20 80  |FX21,0....A%=. .|
000007b0  20 26 44 46 0d 04 b0 11  e7 20 41 25 3d 38 30 20  | &DF..... A%=80 |
000007c0  f2 64 75 6d 70 0d 04 ba  05 db 0d 04 c4 05 ed 0d  |.dump...........|
000007d0  04 ce 05 e1 0d 04 d8 05  3a 0d 04 e2 10 dd f2 66  |........:......f|
000007e0  69 6e 64 6d 61 78 6d 69  6e 0d 04 ec 24 46 25 3d  |indmaxmin...$F%=|
000007f0  ad 28 c3 28 79 65 61 72  25 28 50 25 29 2d 6e 79  |.(.(year%(P%)-ny|
00000800  65 61 72 73 25 29 2b c3  28 50 25 29 29 0d 04 f6  |ears%)+.(P%))...|
00000810  15 cf 23 46 25 3d 66 69  72 73 74 72 65 63 6f 72  |..#F%=firstrecor|
00000820  64 25 0d 05 00 0e 6d 61  78 25 3d 2d 39 39 39 39  |d%....max%=-9999|
00000830  0d 05 0a 0d 6d 69 6e 25  3d 39 39 39 39 0d 05 14  |....min%=9999...|
00000840  0e 4f 25 3d a4 67 65 74  73 75 6d 0d 05 1e 07 d9  |.O%=.getsum.....|
00000850  23 30 0d 05 28 19 e3 20  49 25 3d 6e 79 65 61 72  |#0..(.. I%=nyear|
00000860  73 25 20 b8 20 30 20 88  20 2d 31 0d 05 32 0e f2  |s% . 0 . -1..2..|
00000870  6f 70 65 6e 32 28 49 25  29 0d 05 3c 15 cf 23 46  |open2(I%)..<..#F|
00000880  25 3d 66 69 72 73 74 72  65 63 6f 72 64 25 0d 05  |%=firstrecord%..|
00000890  46 2a e3 20 57 25 3d 30  20 b8 20 28 63 75 72 72  |F*. W%=0 . (curr|
000008a0  65 6e 74 70 74 72 25 2d  66 69 72 73 74 72 65 63  |entptr%-firstrec|
000008b0  6f 72 64 25 29 2f 32 30  0d 05 50 0e 53 25 3d a4  |ord%)/20..P.S%=.|
000008c0  67 65 74 73 75 6d 0d 05  5a 11 e7 20 53 25 3d 30  |getsum..Z.. S%=0|
000008d0  20 e5 20 8d 74 4c 45 0d  05 64 15 54 25 3d 28 53  | . .tLE..d.T%=(S|
000008e0  25 2d 4f 25 29 2a 31 30  30 2f 53 25 0d 05 6e 11  |%-O%)*100/S%..n.|
000008f0  e7 20 54 25 3d 30 20 e5  20 8d 74 4c 45 0d 05 78  |. T%=0 . .tLE..x|
00000900  15 e7 20 54 25 3e 6d 61  78 25 20 6d 61 78 25 3d  |.. T%>max% max%=|
00000910  54 25 0d 05 82 15 e7 20  54 25 3c 6d 69 6e 25 20  |T%..... T%<min% |
00000920  6d 69 6e 25 3d 54 25 0d  05 8c 05 ed 0d 05 96 05  |min%=T%.........|
00000930  ed 0d 05 a0 1c 6d 69 6e  25 3d 28 28 6d 69 6e 25  |.....min%=((min%|
00000940  20 81 20 31 30 29 2a 31  30 29 2d 31 30 0d 05 aa  | . 10)*10)-10...|
00000950  1c 6d 61 78 25 3d 28 28  6d 61 78 25 20 81 20 31  |.max%=((max% . 1|
00000960  30 29 2a 31 30 29 2b 32  30 0d 05 b4 19 73 63 61  |0)*10)+20....sca|
00000970  6c 65 3d 39 30 30 2f 28  6d 61 78 25 2d 6d 69 6e  |le=900/(max%-min|
00000980  25 29 0d 05 be 05 e1 0d  05 c8 05 3a 0d 05 d2 0e  |%).........:....|
00000990  dd f2 6f 76 65 72 61 78  69 73 0d 05 dc 24 f1 8a  |..overaxis...$..|
000009a0  37 2c 31 29 22 50 6f 72  74 66 6f 6c 69 6f 20 22  |7,1)"Portfolio "|
000009b0  3b 50 25 3b 22 20 22 3b  3a f2 64 61 74 65 0d 05  |;P%;" ";:.date..|
000009c0  e6 06 ef 35 0d 05 f0 0c  ec 20 31 30 2c 35 36 36  |...5..... 10,566|
000009d0  0d 05 fa 08 f1 22 25 22  0d 06 04 0a 54 25 3d 38  |....."%"....T%=8|
000009e0  35 30 0d 06 0e 08 53 25  3d 31 0d 06 18 05 f5 0d  |50....S%=1......|
000009f0  06 22 05 f5 0d 06 2c 0b  ec 20 31 30 2c 54 25 0d  |."....,.. 10,T%.|
00000a00  06 36 13 f1 20 c1 74 69  74 6c 65 24 2c 53 25 2c  |.6.. .title$,S%,|
00000a10  31 29 0d 06 40 0b 53 25  3d 53 25 2b 31 0d 06 4a  |1)..@.S%=S%+1..J|
00000a20  0c 54 25 3d 54 25 2d 32  35 0d 06 54 11 fd 20 53  |.T%=T%-25..T.. S|
00000a30  25 3d 35 20 84 20 53 25  3d 39 0d 06 5e 0a 54 25  |%=5 . S%=9..^.T%|
00000a40  3d 34 30 30 0d 06 68 0a  fd 20 53 25 3d 39 0d 06  |=400..h.. S%=9..|
00000a50  72 28 e3 20 49 25 3d 6d  69 6e 25 20 b8 20 6d 61  |r(. I%=min% . ma|
00000a60  78 25 20 88 20 a8 28 28  6d 61 78 25 2d 6d 69 6e  |x% . .((max%-min|
00000a70  25 29 2f 31 32 29 0d 06  7c 24 59 25 3d 31 30 30  |%)/12)..|$Y%=100|
00000a80  2b 28 49 25 2d 6d 69 6e  25 29 2a 39 30 30 2f 28  |+(I%-min%)*900/(|
00000a90  6d 61 78 25 2d 6d 69 6e  25 29 0d 06 86 13 ec 20  |max%-min%)..... |
00000aa0  35 30 2c 31 36 2b 59 25  3a f1 3b 49 25 0d 06 90  |50,16+Y%:.;I%...|
00000ab0  0c ec 20 31 30 30 2c 59  25 0d 06 9a 0c df 20 31  |.. 100,Y%..... 1|
00000ac0  32 30 2c 59 25 0d 06 a4  15 ec 20 31 31 31 30 2c  |20,Y%..... 1110,|
00000ad0  31 36 2b 59 25 3a f1 3b  49 25 0d 06 ae 0d ec 20  |16+Y%:.;I%..... |
00000ae0  31 31 30 30 2c 59 25 0d  06 b8 0d df 20 31 30 38  |1100,Y%..... 108|
00000af0  30 2c 59 25 0d 06 c2 05  ed 0d 06 cc 22 59 25 3d  |0,Y%........"Y%=|
00000b00  31 30 30 2b 28 2d 6d 69  6e 25 29 2a 39 30 30 2f  |100+(-min%)*900/|
00000b10  28 6d 61 78 25 2d 6d 69  6e 25 29 0d 06 d6 16 ec  |(max%-min%).....|
00000b20  20 31 30 30 2c 59 25 3a  df 20 31 31 30 30 2c 59  | 100,Y%:. 1100,Y|
00000b30  25 0d 06 e0 06 ef 34 0d  06 ea 05 e1 0d 06 f4 05  |%.....4.........|
00000b40  3a 0d 06 fe 0c dd f2 62  6f 72 64 65 72 0d 07 08  |:......border...|
00000b50  39 ec 20 31 30 30 2c 31  30 30 3a df 20 31 31 30  |9. 100,100:. 110|
00000b60  30 2c 31 30 30 3a df 20  31 31 30 30 2c 31 30 30  |0,100:. 1100,100|
00000b70  30 3a df 20 31 30 30 2c  31 30 30 30 3a df 20 31  |0:. 100,1000:. 1|
00000b80  30 30 2c 31 30 30 0d 07  12 05 e1 0d 07 1c 05 3a  |00,100.........:|
00000b90  0d 07 26 0c dd a4 67 65  74 73 75 6d 0d 07 30 19  |..&...getsum..0.|
00000ba0  e7 20 8f 23 46 25 3e 63  75 72 72 65 6e 74 70 74  |. .#F%>currentpt|
00000bb0  72 25 20 3d 30 0d 07 3a  08 4e 25 3d 30 0d 07 44  |r% =0..:.N%=0..D|
00000bc0  08 51 25 3d 30 0d 07 4e  08 52 25 3d 30 0d 07 58  |.Q%=0..N.R%=0..X|
00000bd0  11 e3 20 56 25 3d 31 b8  6e 64 61 74 61 25 0d 07  |.. V%=1.ndata%..|
00000be0  62 16 51 25 3d 28 9a 23  46 25 29 2a 31 30 30 2b  |b.Q%=(.#F%)*100+|
00000bf0  9a 23 46 25 0d 07 6c 11  e7 20 51 25 3d 30 20 e5  |.#F%..l.. Q%=0 .|
00000c00  20 8d 74 4a 47 0d 07 76  0c 4e 25 3d 4e 25 2b 51  | .tJG..v.N%=N%+Q|
00000c10  25 0d 07 80 0b 52 25 3d  52 25 2b 31 0d 07 8a 05  |%....R%=R%+1....|
00000c20  ed 0d 07 94 0d e7 20 52  25 3d 30 20 3d 30 0d 07  |...... R%=0 =0..|
00000c30  9e 0c 4e 25 3d 4e 25 2f  52 25 0d 07 a8 07 3d 4e  |..N%=N%/R%....=N|
00000c40  25 0d 07 b2 05 3a 0d 07  bc 0c dd f2 73 79 73 74  |%....:......syst|
00000c50  65 6d 0d 07 c6 05 f5 0d  07 d0 0b 2a 46 58 32 31  |em.........*FX21|
00000c60  2c 30 0d 07 da 13 58 25  3d ad 28 22 3a 30 2e 4d  |,0....X%=.(":0.M|
00000c70  41 49 4e 22 29 0d 07 e4  07 d9 23 30 0d 07 ee 58  |AIN").....#0...X|
00000c80  e7 20 58 25 3d 30 20 db  3a f1 8a 30 2c 31 30 29  |. X%=0 .:..0,10)|
00000c90  22 49 6e 73 65 72 74 20  53 79 73 74 65 6d 20 44  |"Insert System D|
00000ca0  69 73 63 20 69 6e 20 64  72 69 76 65 20 30 22 27  |isc in drive 0"'|
00000cb0  27 22 61 6e 64 20 70 72  65 73 73 20 61 6e 79 20  |'"and press any |
00000cc0  6b 65 79 20 74 6f 20 63  6f 6e 74 69 6e 75 65 22  |key to continue"|
00000cd0  3a f5 fd a5 0d 07 f8 0b  fd 20 58 25 3c 3e 30 0d  |:........ X%<>0.|
00000ce0  08 02 05 e1 0d 08 0c 05  3a 0d 08 16 0e dd f2 66  |........:......f|
00000cf0  69 6e 64 79 65 61 72 0d  08 20 0b f2 73 79 73 74  |indyear.. ..syst|
00000d00  65 6d 0d 08 2a 13 58 25  3d ad 28 22 3a 30 2e 59  |em..*.X%=.(":0.Y|
00000d10  45 41 52 22 29 0d 08 34  a2 e7 20 58 25 3d 30 20  |EAR")..4.. X%=0 |
00000d20  db 3a f1 8a 30 2c 31 30  29 22 46 69 6c 65 20 27  |.:..0,10)"File '|
00000d30  59 45 41 52 27 20 64 6f  65 73 20 6e 6f 74 20 65  |YEAR' does not e|
00000d40  78 69 73 74 2e 22 27 27  22 47 6f 20 74 6f 20 4d  |xist."''"Go to M|
00000d50  41 49 4e 20 70 61 6e 65  6c 20 61 6e 64 20 73 65  |AIN panel and se|
00000d60  6c 65 63 74 20 65 61 63  68 22 27 22 72 65 71 75  |lect each"'"requ|
00000d70  69 72 65 64 20 49 6e 64  65 78 2f 50 6f 72 74 66  |ired Index/Portf|
00000d80  6f 6c 69 6f 20 69 6e 20  74 75 72 6e 2e 22 27 27  |olio in turn."''|
00000d90  22 54 6f 20 72 65 74 75  72 6e 20 74 6f 20 4d 41  |"To return to MA|
00000da0  49 4e 22 3a f2 6b 65 79  3a f2 63 68 61 69 6e 28  |IN":.key:.chain(|
00000db0  22 4d 41 49 4e 22 29 0d  08 3e 0c e3 20 49 25 3d  |"MAIN")..>.. I%=|
00000dc0  30 b8 33 0d 08 48 12 e8  23 58 25 2c 79 65 61 72  |0.3..H..#X%,year|
00000dd0  25 28 49 25 29 0d 08 52  05 ed 0d 08 5c 07 d9 23  |%(I%)..R....\..#|
00000de0  30 0d 08 66 05 e1 0d 08  70 05 3a 0d 08 7a 09 dd  |0..f....p.:..z..|
00000df0  f2 6b 65 79 0d 08 84 14  f1 27 27 22 50 52 45 53  |.key.....''"PRES|
00000e00  53 20 41 20 4b 45 59 22  0d 08 8e 0b 2a 46 58 32  |S A KEY"....*FX2|
00000e10  31 2c 30 0d 08 98 08 4b  25 3d a5 0d 08 a2 05 e1  |1,0....K%=......|
00000e20  0d 08 ac 05 3a 0d 08 b6  0a dd f2 64 75 6d 70 0d  |....:......dump.|
00000e30  08 c0 0f 2a 3a 30 2e 50  52 49 4e 54 31 36 0d 08  |...*:0.PRINT16..|
00000e40  ca 05 e1 0d ff                                    |.....|
00000e45