� PORTFOLIO - ANALYSE
� (C) Jon Leighton May 1988
:
(� � � �T|@
2
� �Dd@
<� ��
F;� �=197 �''"Drive ";�drive;" does not exist":�key:*DR.0
P<� �=199 �''"Disc unformatted or not in drive":�key:*DR.0
Z�
d*FX229,1
n� 4
x � m$(23),n%(1),S%(1,1),a$(1)
�� str%(1),PF%(1),year%(3)
�
�findyear
�� I%=0�1
�� J%=0�1
�S%(I%,J%)=0
��
��
�	wx%=1
�	wy%=1
�n%(0)=10
�n%(1)=4
�currentdateptr%=160
�
disc%=165

currentptr%=165


menuptr=2

a$(0)=""

"a$(1)=""

,b$="          "

6p$="Portfolio"

@
len%=0

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

T�

^�

hm$(0)="Analysis"

rm$(1)=b$

|+m$(2)="Select share/indicator 1 "+a$(0)

�+m$(3)="Select share/indicator 2 "+a$(1)

�m$(4)="Plot"

�m$(5)="Continuous plot"

�m$(6)="Overall analysis"

�jm$(7)=�(F%)+�4-�(�(F%))," ")+"day average        ":� f% m$(7)=�m$(7),20)+"OFF" � m$(7)=�m$(7),21)+"ON"

�jm$(8)=�(H%)+�4-�(�(H%))," ")+"day average        ":� h% m$(8)=�m$(8),20)+"OFF" � m$(8)=�m$(8),21)+"ON"

�m$(9)="Main menu"

�
max%=9

�Z%=�

�choice=�menu

�!� choice=2 � choice=3 �select

�'� choice=5 Z%=choice:�chain("PLOT")

� � choice=6 �chain("OVERALL")
!� choice=9 �#0:�chain("MAIN")
� choice=4
�#0
&A%=S%(0,0)
0B%=S%(1,0)
:C%=S%(0,1)
DD%=S%(1,1)
N�� C%=0 � D%=0 �:�6,10)"No share/indicator selected."'':�3)"Make your selection from next panel."'':�8)"Press a key to continue.":A%=�:�:� �D^A
X� choice=4 � �chain("PLOT")
b� �
l�
v:
���chain(A$)
��system
�*DEL. YEAR
�X%=�("YEAR")
�� I%=0�3
��#X%,year%(I%)
��
�� f% F%=F%+256
�� h% H%=H%+256
��#X%,F%,H%
��#0
�� A$
��
:
� �menu
� loop%=0 � max%
 +� �(m$(loop%))>len% � len%=�(m$(loop%))
*�
4*FX 4,1
>�openw(wx%,wy%,len%,max%+1)
H� menuptr=7 � �DfC
R� menuptr=8 � �DfC
\
menuptr=2
f�
p�0,0);
z� loop%=0 � max%
�3� loop%=menuptr � loop%=0 � 0:� 129 � � 1:� 128
�'�m$(loop%);�len%-�(m$(loop%))," ");
��
�
� 1:� 128
�*FX21,0
�K%=�
�7� K%=139 menuptr=menuptr-1:� menuptr=1:menuptr=max%
�9� K%=138 menuptr=menuptr+1:� menuptr=max%+1 menuptr=2
�5� K%=136 � menuptr=7 F%=F%-1:�opt(f%,F%,7):� �tbC
�5� K%=137 � menuptr=7 F%=F%+1:�opt(f%,F%,7):� �tbC
�5� K%=136 � menuptr=8 H%=H%-1:�opt(h%,H%,8):� �tbC
�5� K%=137 � menuptr=8 H%=H%+1:�opt(h%,H%,8):� �tbC
�4� K%=13 � menuptr=7 f%=� f%:�opt(f%,F%,7):� �tbC
4� K%=13 � menuptr=8 h%=� h%:�opt(h%,H%,8):� �tbC
� K%=13

*FX4,0
$ �closew(wx%,wy%,len%,max%+1)
.=menuptr
8:
B��opt(J%,Q%,L%)
L� Q%>200 Q%=200:�7
V� Q%<1 Q%=1:�7
`
� 0:� 129
j7m$(L%)=�(Q%)+�4-�(�(Q%))," ")+"day average        "
t;� J% m$(L%)=�m$(L%),20)+"OFF" � m$(L%)=�m$(L%),21)+"ON"
~�0,L%)m$(L%)
�� H%>200 H%=200:�7
�� H%<1 H%=1:�7
�� F%>200 F%=200:�7
�� F%<1 F%=1:�7
��
�:
�� �closew(x,y,len%,ht)
�� 26
�	� 0,0
��openw(x,y,len%,ht)
��
�� 26
	� 0,1

�
:
� �openw(x,y,len%,ht)
(� 28,x,y+ht,x+len%-1,y
26�rect(x*32-8,1016-(y+ht)*32,len%*32+12,ht*32+12,0)
<3�rect(x*32+16,1000-(y+ht)*32-8,len%*32+16,16,1)
F5�rect((x+len%)*32+16,1000-(y+ht)*32,16,ht*32+8,1)
P�
Z:
d� �rect(x,y,l,w,f)
n	� x,y
x� x+l,y
� � f=0 � x+l,y+w � � 85,x,y+w
� � f=0 � x,y+w � � 85,x+l,y+w
�� x,y+w
�� f=0 � x,y � � x,y
��
�:
�
� �select
�� loop%,len%:len%=0
�� C%=0�1
�"� C%=0 �findfiles � �loadnames
�� loop%=0 � max%
�+� �(m$(loop%))>len% � len%=�(m$(loop%))
��
*FX 4,1
�openw(wx%,wy%,len%,max%+2)

menuptr=2
"�
,�0,0);
6� loop%=0 � max%
@3� loop%=menuptr � loop%=0 � 0:� 129 � � 1:� 128
J'�m$(loop%);�len%-�(m$(loop%))," ");
T� loop%=0 �
^�
h
� 1:� 128
r*FX21,0
|K%=�
�7� K%=139 menuptr=menuptr-1:� menuptr=1:menuptr=max%
�9� K%=138 menuptr=menuptr+1:� menuptr=max%+1 menuptr=2
�� K%=13
�^� C%=0 S%(choice-2,0)=�(�m$(menuptr),1)) � S%(choice-2,1)=menuptr:a$(choice-2)=m$(menuptr)
�1� C%=0 � m$(menuptr)="Index" S%(choice-2,0)=0
�
*FX4,0
� �closew(wx%,wy%,len%,max%+2)
��
��
�:
���loadnames
�4A%=�(�(year%(S%(choice-2,0)))+�(S%(choice-2,0)))
�
�#A%=0
+� S%(choice-2,0)=0 ndata%=1 � ndata%=20
&m$(0)="Choose share to be plotted"
� I%=2�ndata%+1
&
m$(I%)=""
0� J%=0�6
:K%=�#A%
Dm$(I%)=m$(I%)+�(K%)
N�
X�
b�#0
lmax%=ndata%+1
v�
�:
���findfiles
�m$(0)="  Which "+p$+"?  "
�m$(1)=b$
�Y%=2
�� Z%=0�3
�A%=�(�(year%(Z%))+�(Z%))
�#� A%<>0 m$(Y%)=p$+�(Z%):Y%=Y%+1
�1� Z%=0 � A%<>0 Y%=Y%-1:m$(Y%)="Index":Y%=Y%+1
��#0
��
�
max%=Y%-1
��
:
	��key
�''"PRESS A KEY"
 *FX21,0
*K%=�
4�
>:
Hݤdrive
Rb%=&1600
\X%=b% � 256
fY%=b% � 256
pA%=6
z
� I%=0�11
�b%?I%=0
��
�b%?2=&16
�
b%?1=1
�b%?12=1
�
�&FFD1
�=?&1602-48
�:
���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
	8�system
	BX%=�("YEAR")
	L�� 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")
	VH%=40+256:F%=20+256
	`� I%=0�3
	j�#X%,year%(I%)
	t�
	~1� �#X%>&14 �#X%,F%,H% � H%=60:F%=30:h%=�:f%=�
	��#0
	�"� F%>200 F%=F%-256:f%=� � f%=�
	�"� H%>200 H%=H%-256:h%=� � h%=�
	��
�

00000000  0d 00 0a 19 f4 20 50 4f  52 54 46 4f 4c 49 4f 20  |..... PORTFOLIO |
00000010  2d 20 41 4e 41 4c 59 53  45 0d 00 14 1f f4 20 28  |- ANALYSE..... (|
00000020  43 29 20 4a 6f 6e 20 4c  65 69 67 68 74 6f 6e 20  |C) Jon Leighton |
00000030  4d 61 79 20 31 39 38 38  0d 00 1e 05 3a 0d 00 28  |May 1988....:..(|
00000040  0e ee 20 85 20 e5 20 8d  54 7c 40 0d 00 32 0a e5  |.. . . .T|@..2..|
00000050  20 8d 44 64 40 0d 00 3c  08 ee 20 85 87 0d 00 46  | .Dd@..<.. ....F|
00000060  3b e7 20 9f 3d 31 39 37  20 f1 27 27 22 44 72 69  |;. .=197 .''"Dri|
00000070  76 65 20 22 3b a4 64 72  69 76 65 3b 22 20 64 6f  |ve ";.drive;" do|
00000080  65 73 20 6e 6f 74 20 65  78 69 73 74 22 3a f2 6b  |es not exist":.k|
00000090  65 79 3a 2a 44 52 2e 30  0d 00 50 3c e7 20 9f 3d  |ey:*DR.0..P<. .=|
000000a0  31 39 39 20 f1 27 27 22  44 69 73 63 20 75 6e 66  |199 .''"Disc unf|
000000b0  6f 72 6d 61 74 74 65 64  20 6f 72 20 6e 6f 74 20  |ormatted or not |
000000c0  69 6e 20 64 72 69 76 65  22 3a f2 6b 65 79 3a 2a  |in drive":.key:*|
000000d0  44 52 2e 30 0d 00 5a 05  f9 0d 00 64 0c 2a 46 58  |DR.0..Z....d.*FX|
000000e0  32 32 39 2c 31 0d 00 6e  07 eb 20 34 0d 00 78 20  |229,1..n.. 4..x |
000000f0  de 20 6d 24 28 32 33 29  2c 6e 25 28 31 29 2c 53  |. m$(23),n%(1),S|
00000100  25 28 31 2c 31 29 2c 61  24 28 31 29 0d 00 82 1d  |%(1,1),a$(1)....|
00000110  de 20 73 74 72 25 28 31  29 2c 50 46 25 28 31 29  |. str%(1),PF%(1)|
00000120  2c 79 65 61 72 25 28 33  29 0d 00 8c 0d f2 66 69  |,year%(3).....fi|
00000130  6e 64 79 65 61 72 0d 00  96 0c e3 20 49 25 3d 30  |ndyear..... I%=0|
00000140  b8 31 0d 00 a0 0c e3 20  4a 25 3d 30 b8 31 0d 00  |.1..... J%=0.1..|
00000150  aa 0f 53 25 28 49 25 2c  4a 25 29 3d 30 0d 00 b4  |..S%(I%,J%)=0...|
00000160  05 ed 0d 00 be 05 ed 0d  00 c8 09 77 78 25 3d 31  |...........wx%=1|
00000170  0d 00 d2 09 77 79 25 3d  31 0d 00 dc 0c 6e 25 28  |....wy%=1....n%(|
00000180  30 29 3d 31 30 0d 00 e6  0b 6e 25 28 31 29 3d 34  |0)=10....n%(1)=4|
00000190  0d 00 f0 17 63 75 72 72  65 6e 74 64 61 74 65 70  |....currentdatep|
000001a0  74 72 25 3d 31 36 30 0d  00 fa 0d 64 69 73 63 25  |tr%=160....disc%|
000001b0  3d 31 36 35 0d 01 04 13  63 75 72 72 65 6e 74 70  |=165....currentp|
000001c0  74 72 25 3d 31 36 35 0d  01 0e 0d 6d 65 6e 75 70  |tr%=165....menup|
000001d0  74 72 3d 32 0d 01 18 0c  61 24 28 30 29 3d 22 22  |tr=2....a$(0)=""|
000001e0  0d 01 22 0c 61 24 28 31  29 3d 22 22 0d 01 2c 13  |..".a$(1)=""..,.|
000001f0  62 24 3d 22 20 20 20 20  20 20 20 20 20 20 22 0d  |b$="          ".|
00000200  01 36 12 70 24 3d 22 50  6f 72 74 66 6f 6c 69 6f  |.6.p$="Portfolio|
00000210  22 0d 01 40 0a 6c 65 6e  25 3d 30 0d 01 4a 13 ef  |"..@.len%=0..J..|
00000220  20 32 33 2c 31 2c 30 3b  30 3b 30 3b 30 3b 0d 01  | 23,1,0;0;0;0;..|
00000230  54 05 f5 0d 01 5e 05 f5  0d 01 68 14 6d 24 28 30  |T....^....h.m$(0|
00000240  29 3d 22 41 6e 61 6c 79  73 69 73 22 0d 01 72 0c  |)="Analysis"..r.|
00000250  6d 24 28 31 29 3d 62 24  0d 01 7c 2b 6d 24 28 32  |m$(1)=b$..|+m$(2|
00000260  29 3d 22 53 65 6c 65 63  74 20 73 68 61 72 65 2f  |)="Select share/|
00000270  69 6e 64 69 63 61 74 6f  72 20 31 20 22 2b 61 24  |indicator 1 "+a$|
00000280  28 30 29 0d 01 86 2b 6d  24 28 33 29 3d 22 53 65  |(0)...+m$(3)="Se|
00000290  6c 65 63 74 20 73 68 61  72 65 2f 69 6e 64 69 63  |lect share/indic|
000002a0  61 74 6f 72 20 32 20 22  2b 61 24 28 31 29 0d 01  |ator 2 "+a$(1)..|
000002b0  90 10 6d 24 28 34 29 3d  22 50 6c 6f 74 22 0d 01  |..m$(4)="Plot"..|
000002c0  9a 1b 6d 24 28 35 29 3d  22 43 6f 6e 74 69 6e 75  |..m$(5)="Continu|
000002d0  6f 75 73 20 70 6c 6f 74  22 0d 01 a4 1c 6d 24 28  |ous plot"....m$(|
000002e0  36 29 3d 22 4f 76 65 72  61 6c 6c 20 61 6e 61 6c  |6)="Overall anal|
000002f0  79 73 69 73 22 0d 01 ae  6a 6d 24 28 37 29 3d c3  |ysis"...jm$(7)=.|
00000300  28 46 25 29 2b c4 34 2d  a9 28 c3 28 46 25 29 29  |(F%)+.4-.(.(F%))|
00000310  2c 22 20 22 29 2b 22 64  61 79 20 61 76 65 72 61  |," ")+"day avera|
00000320  67 65 20 20 20 20 20 20  20 20 22 3a e7 20 66 25  |ge        ":. f%|
00000330  20 6d 24 28 37 29 3d c0  6d 24 28 37 29 2c 32 30  | m$(7)=.m$(7),20|
00000340  29 2b 22 4f 46 46 22 20  8b 20 6d 24 28 37 29 3d  |)+"OFF" . m$(7)=|
00000350  c0 6d 24 28 37 29 2c 32  31 29 2b 22 4f 4e 22 0d  |.m$(7),21)+"ON".|
00000360  01 b8 6a 6d 24 28 38 29  3d c3 28 48 25 29 2b c4  |..jm$(8)=.(H%)+.|
00000370  34 2d a9 28 c3 28 48 25  29 29 2c 22 20 22 29 2b  |4-.(.(H%))," ")+|
00000380  22 64 61 79 20 61 76 65  72 61 67 65 20 20 20 20  |"day average    |
00000390  20 20 20 20 22 3a e7 20  68 25 20 6d 24 28 38 29  |    ":. h% m$(8)|
000003a0  3d c0 6d 24 28 38 29 2c  32 30 29 2b 22 4f 46 46  |=.m$(8),20)+"OFF|
000003b0  22 20 8b 20 6d 24 28 38  29 3d c0 6d 24 28 38 29  |" . m$(8)=.m$(8)|
000003c0  2c 32 31 29 2b 22 4f 4e  22 0d 01 c2 15 6d 24 28  |,21)+"ON"....m$(|
000003d0  39 29 3d 22 4d 61 69 6e  20 6d 65 6e 75 22 0d 01  |9)="Main menu"..|
000003e0  cc 0a 6d 61 78 25 3d 39  0d 01 d6 08 5a 25 3d a3  |..max%=9....Z%=.|
000003f0  0d 01 e0 10 63 68 6f 69  63 65 3d a4 6d 65 6e 75  |....choice=.menu|
00000400  0d 01 ea 21 e7 20 63 68  6f 69 63 65 3d 32 20 84  |...!. choice=2 .|
00000410  20 63 68 6f 69 63 65 3d  33 20 f2 73 65 6c 65 63  | choice=3 .selec|
00000420  74 0d 01 f4 27 e7 20 63  68 6f 69 63 65 3d 35 20  |t...'. choice=5 |
00000430  5a 25 3d 63 68 6f 69 63  65 3a f2 63 68 61 69 6e  |Z%=choice:.chain|
00000440  28 22 50 4c 4f 54 22 29  0d 01 fe 20 e7 20 63 68  |("PLOT")... . ch|
00000450  6f 69 63 65 3d 36 20 f2  63 68 61 69 6e 28 22 4f  |oice=6 .chain("O|
00000460  56 45 52 41 4c 4c 22 29  0d 02 08 21 e7 20 63 68  |VERALL")...!. ch|
00000470  6f 69 63 65 3d 39 20 d9  23 30 3a f2 63 68 61 69  |oice=9 .#0:.chai|
00000480  6e 28 22 4d 41 49 4e 22  29 0d 02 12 0e fd 20 63  |n("MAIN")..... c|
00000490  68 6f 69 63 65 3d 34 0d  02 1c 07 d9 23 30 0d 02  |hoice=4.....#0..|
000004a0  26 0e 41 25 3d 53 25 28  30 2c 30 29 0d 02 30 0e  |&.A%=S%(0,0)..0.|
000004b0  42 25 3d 53 25 28 31 2c  30 29 0d 02 3a 0e 43 25  |B%=S%(1,0)..:.C%|
000004c0  3d 53 25 28 30 2c 31 29  0d 02 44 0e 44 25 3d 53  |=S%(0,1)..D.D%=S|
000004d0  25 28 31 2c 31 29 0d 02  4e 95 e7 20 43 25 3d 30  |%(1,1)..N.. C%=0|
000004e0  20 80 20 44 25 3d 30 20  db 3a f1 8a 36 2c 31 30  | . D%=0 .:..6,10|
000004f0  29 22 4e 6f 20 73 68 61  72 65 2f 69 6e 64 69 63  |)"No share/indic|
00000500  61 74 6f 72 20 73 65 6c  65 63 74 65 64 2e 22 27  |ator selected."'|
00000510  27 3a f1 8a 33 29 22 4d  61 6b 65 20 79 6f 75 72  |':..3)"Make your|
00000520  20 73 65 6c 65 63 74 69  6f 6e 20 66 72 6f 6d 20  | selection from |
00000530  6e 65 78 74 20 70 61 6e  65 6c 2e 22 27 27 3a f1  |next panel."'':.|
00000540  8a 38 29 22 50 72 65 73  73 20 61 20 6b 65 79 20  |.8)"Press a key |
00000550  74 6f 20 63 6f 6e 74 69  6e 75 65 2e 22 3a 41 25  |to continue.":A%|
00000560  3d a5 3a db 3a e5 20 8d  44 5e 41 0d 02 58 1f e7  |=.:.:. .D^A..X..|
00000570  20 63 68 6f 69 63 65 3d  34 20 8c 20 f2 63 68 61  | choice=4 . .cha|
00000580  69 6e 28 22 50 4c 4f 54  22 29 0d 02 62 07 fd 20  |in("PLOT")..b.. |
00000590  a3 0d 02 6c 05 e0 0d 02  76 05 3a 0d 02 80 0f dd  |...l....v.:.....|
000005a0  f2 63 68 61 69 6e 28 41  24 29 0d 02 8a 0b f2 73  |.chain(A$).....s|
000005b0  79 73 74 65 6d 0d 02 94  0e 2a 44 45 4c 2e 20 59  |ystem....*DEL. Y|
000005c0  45 41 52 0d 02 9e 10 58  25 3d ae 28 22 59 45 41  |EAR....X%=.("YEA|
000005d0  52 22 29 0d 02 a8 0c e3  20 49 25 3d 30 b8 33 0d  |R")..... I%=0.3.|
000005e0  02 b2 12 f1 23 58 25 2c  79 65 61 72 25 28 49 25  |....#X%,year%(I%|
000005f0  29 0d 02 bc 05 ed 0d 02  c6 12 e7 20 66 25 20 46  |).......... f% F|
00000600  25 3d 46 25 2b 32 35 36  0d 02 d0 12 e7 20 68 25  |%=F%+256..... h%|
00000610  20 48 25 3d 48 25 2b 32  35 36 0d 02 da 0e f1 23  | H%=H%+256.....#|
00000620  58 25 2c 46 25 2c 48 25  0d 02 e4 07 d9 23 30 0d  |X%,F%,H%.....#0.|
00000630  02 ee 08 d7 20 41 24 0d  02 f8 05 e1 0d 03 02 05  |.... A$.........|
00000640  3a 0d 03 0c 0b dd 20 a4  6d 65 6e 75 0d 03 16 14  |:..... .menu....|
00000650  e3 20 6c 6f 6f 70 25 3d  30 20 b8 20 6d 61 78 25  |. loop%=0 . max%|
00000660  0d 03 20 2b e7 20 a9 28  6d 24 28 6c 6f 6f 70 25  |.. +. .(m$(loop%|
00000670  29 29 3e 6c 65 6e 25 20  8c 20 6c 65 6e 25 3d a9  |))>len% . len%=.|
00000680  28 6d 24 28 6c 6f 6f 70  25 29 29 0d 03 2a 05 ed  |(m$(loop%))..*..|
00000690  0d 03 34 0b 2a 46 58 20  34 2c 31 0d 03 3e 1f f2  |..4.*FX 4,1..>..|
000006a0  6f 70 65 6e 77 28 77 78  25 2c 77 79 25 2c 6c 65  |openw(wx%,wy%,le|
000006b0  6e 25 2c 6d 61 78 25 2b  31 29 0d 03 48 16 e7 20  |n%,max%+1)..H.. |
000006c0  6d 65 6e 75 70 74 72 3d  37 20 e5 20 8d 44 66 43  |menuptr=7 . .DfC|
000006d0  0d 03 52 16 e7 20 6d 65  6e 75 70 74 72 3d 38 20  |..R.. menuptr=8 |
000006e0  e5 20 8d 44 66 43 0d 03  5c 0d 6d 65 6e 75 70 74  |. .DfC..\.menupt|
000006f0  72 3d 32 0d 03 66 05 f5  0d 03 70 0b f1 8a 30 2c  |r=2..f....p...0,|
00000700  30 29 3b 0d 03 7a 14 e3  20 6c 6f 6f 70 25 3d 30  |0);..z.. loop%=0|
00000710  20 b8 20 6d 61 78 25 0d  03 84 33 e7 20 6c 6f 6f  | . max%...3. loo|
00000720  70 25 3d 6d 65 6e 75 70  74 72 20 84 20 6c 6f 6f  |p%=menuptr . loo|
00000730  70 25 3d 30 20 fb 20 30  3a fb 20 31 32 39 20 8b  |p%=0 . 0:. 129 .|
00000740  20 fb 20 31 3a fb 20 31  32 38 0d 03 8e 27 f1 6d  | . 1:. 128...'.m|
00000750  24 28 6c 6f 6f 70 25 29  3b c4 6c 65 6e 25 2d a9  |$(loop%);.len%-.|
00000760  28 6d 24 28 6c 6f 6f 70  25 29 29 2c 22 20 22 29  |(m$(loop%))," ")|
00000770  3b 0d 03 98 05 ed 0d 03  a2 0d fb 20 31 3a fb 20  |;.......... 1:. |
00000780  31 32 38 0d 03 ac 0b 2a  46 58 32 31 2c 30 0d 03  |128....*FX21,0..|
00000790  b6 08 4b 25 3d a5 0d 03  c0 37 e7 20 4b 25 3d 31  |..K%=....7. K%=1|
000007a0  33 39 20 6d 65 6e 75 70  74 72 3d 6d 65 6e 75 70  |39 menuptr=menup|
000007b0  74 72 2d 31 3a e7 20 6d  65 6e 75 70 74 72 3d 31  |tr-1:. menuptr=1|
000007c0  3a 6d 65 6e 75 70 74 72  3d 6d 61 78 25 0d 03 ca  |:menuptr=max%...|
000007d0  39 e7 20 4b 25 3d 31 33  38 20 6d 65 6e 75 70 74  |9. K%=138 menupt|
000007e0  72 3d 6d 65 6e 75 70 74  72 2b 31 3a e7 20 6d 65  |r=menuptr+1:. me|
000007f0  6e 75 70 74 72 3d 6d 61  78 25 2b 31 20 6d 65 6e  |nuptr=max%+1 men|
00000800  75 70 74 72 3d 32 0d 03  d4 35 e7 20 4b 25 3d 31  |uptr=2...5. K%=1|
00000810  33 36 20 80 20 6d 65 6e  75 70 74 72 3d 37 20 46  |36 . menuptr=7 F|
00000820  25 3d 46 25 2d 31 3a f2  6f 70 74 28 66 25 2c 46  |%=F%-1:.opt(f%,F|
00000830  25 2c 37 29 3a e5 20 8d  74 62 43 0d 03 de 35 e7  |%,7):. .tbC...5.|
00000840  20 4b 25 3d 31 33 37 20  80 20 6d 65 6e 75 70 74  | K%=137 . menupt|
00000850  72 3d 37 20 46 25 3d 46  25 2b 31 3a f2 6f 70 74  |r=7 F%=F%+1:.opt|
00000860  28 66 25 2c 46 25 2c 37  29 3a e5 20 8d 74 62 43  |(f%,F%,7):. .tbC|
00000870  0d 03 e8 35 e7 20 4b 25  3d 31 33 36 20 80 20 6d  |...5. K%=136 . m|
00000880  65 6e 75 70 74 72 3d 38  20 48 25 3d 48 25 2d 31  |enuptr=8 H%=H%-1|
00000890  3a f2 6f 70 74 28 68 25  2c 48 25 2c 38 29 3a e5  |:.opt(h%,H%,8):.|
000008a0  20 8d 74 62 43 0d 03 f2  35 e7 20 4b 25 3d 31 33  | .tbC...5. K%=13|
000008b0  37 20 80 20 6d 65 6e 75  70 74 72 3d 38 20 48 25  |7 . menuptr=8 H%|
000008c0  3d 48 25 2b 31 3a f2 6f  70 74 28 68 25 2c 48 25  |=H%+1:.opt(h%,H%|
000008d0  2c 38 29 3a e5 20 8d 74  62 43 0d 03 fc 34 e7 20  |,8):. .tbC...4. |
000008e0  4b 25 3d 31 33 20 80 20  6d 65 6e 75 70 74 72 3d  |K%=13 . menuptr=|
000008f0  37 20 66 25 3d ac 20 66  25 3a f2 6f 70 74 28 66  |7 f%=. f%:.opt(f|
00000900  25 2c 46 25 2c 37 29 3a  e5 20 8d 74 62 43 0d 04  |%,F%,7):. .tbC..|
00000910  06 34 e7 20 4b 25 3d 31  33 20 80 20 6d 65 6e 75  |.4. K%=13 . menu|
00000920  70 74 72 3d 38 20 68 25  3d ac 20 68 25 3a f2 6f  |ptr=8 h%=. h%:.o|
00000930  70 74 28 68 25 2c 48 25  2c 38 29 3a e5 20 8d 74  |pt(h%,H%,8):. .t|
00000940  62 43 0d 04 10 0b fd 20  4b 25 3d 31 33 0d 04 1a  |bC..... K%=13...|
00000950  0a 2a 46 58 34 2c 30 0d  04 24 20 f2 63 6c 6f 73  |.*FX4,0..$ .clos|
00000960  65 77 28 77 78 25 2c 77  79 25 2c 6c 65 6e 25 2c  |ew(wx%,wy%,len%,|
00000970  6d 61 78 25 2b 31 29 0d  04 2e 0c 3d 6d 65 6e 75  |max%+1)....=menu|
00000980  70 74 72 0d 04 38 05 3a  0d 04 42 13 dd f2 6f 70  |ptr..8.:..B...op|
00000990  74 28 4a 25 2c 51 25 2c  4c 25 29 0d 04 4c 16 e7  |t(J%,Q%,L%)..L..|
000009a0  20 51 25 3e 32 30 30 20  51 25 3d 32 30 30 3a ef  | Q%>200 Q%=200:.|
000009b0  37 0d 04 56 12 e7 20 51  25 3c 31 20 51 25 3d 31  |7..V.. Q%<1 Q%=1|
000009c0  3a ef 37 0d 04 60 0d fb  20 30 3a fb 20 31 32 39  |:.7..`.. 0:. 129|
000009d0  0d 04 6a 37 6d 24 28 4c  25 29 3d c3 28 51 25 29  |..j7m$(L%)=.(Q%)|
000009e0  2b c4 34 2d a9 28 c3 28  51 25 29 29 2c 22 20 22  |+.4-.(.(Q%))," "|
000009f0  29 2b 22 64 61 79 20 61  76 65 72 61 67 65 20 20  |)+"day average  |
00000a00  20 20 20 20 20 20 22 0d  04 74 3b e7 20 4a 25 20  |      "..t;. J% |
00000a10  6d 24 28 4c 25 29 3d c0  6d 24 28 4c 25 29 2c 32  |m$(L%)=.m$(L%),2|
00000a20  30 29 2b 22 4f 46 46 22  20 8b 20 6d 24 28 4c 25  |0)+"OFF" . m$(L%|
00000a30  29 3d c0 6d 24 28 4c 25  29 2c 32 31 29 2b 22 4f  |)=.m$(L%),21)+"O|
00000a40  4e 22 0d 04 7e 11 f1 8a  30 2c 4c 25 29 6d 24 28  |N"..~...0,L%)m$(|
00000a50  4c 25 29 0d 04 88 16 e7  20 48 25 3e 32 30 30 20  |L%)..... H%>200 |
00000a60  48 25 3d 32 30 30 3a ef  37 0d 04 92 12 e7 20 48  |H%=200:.7..... H|
00000a70  25 3c 31 20 48 25 3d 31  3a ef 37 0d 04 9c 16 e7  |%<1 H%=1:.7.....|
00000a80  20 46 25 3e 32 30 30 20  46 25 3d 32 30 30 3a ef  | F%>200 F%=200:.|
00000a90  37 0d 04 a6 12 e7 20 46  25 3c 31 20 46 25 3d 31  |7..... F%<1 F%=1|
00000aa0  3a ef 37 0d 04 b0 05 e1  0d 04 ba 05 3a 0d 04 c4  |:.7.........:...|
00000ab0  1a dd 20 f2 63 6c 6f 73  65 77 28 78 2c 79 2c 6c  |.. .closew(x,y,l|
00000ac0  65 6e 25 2c 68 74 29 0d  04 ce 08 ef 20 32 36 0d  |en%,ht)..... 26.|
00000ad0  04 d8 09 e6 20 30 2c 30  0d 04 e2 17 f2 6f 70 65  |.... 0,0.....ope|
00000ae0  6e 77 28 78 2c 79 2c 6c  65 6e 25 2c 68 74 29 0d  |nw(x,y,len%,ht).|
00000af0  04 ec 05 db 0d 04 f6 08  ef 20 32 36 0d 05 00 09  |......... 26....|
00000b00  e6 20 30 2c 31 0d 05 0a  05 e1 0d 05 14 05 3a 0d  |. 0,1.........:.|
00000b10  05 1e 19 dd 20 f2 6f 70  65 6e 77 28 78 2c 79 2c  |.... .openw(x,y,|
00000b20  6c 65 6e 25 2c 68 74 29  0d 05 28 1a ef 20 32 38  |len%,ht)..(.. 28|
00000b30  2c 78 2c 79 2b 68 74 2c  78 2b 6c 65 6e 25 2d 31  |,x,y+ht,x+len%-1|
00000b40  2c 79 0d 05 32 36 f2 72  65 63 74 28 78 2a 33 32  |,y..26.rect(x*32|
00000b50  2d 38 2c 31 30 31 36 2d  28 79 2b 68 74 29 2a 33  |-8,1016-(y+ht)*3|
00000b60  32 2c 6c 65 6e 25 2a 33  32 2b 31 32 2c 68 74 2a  |2,len%*32+12,ht*|
00000b70  33 32 2b 31 32 2c 30 29  0d 05 3c 33 f2 72 65 63  |32+12,0)..<3.rec|
00000b80  74 28 78 2a 33 32 2b 31  36 2c 31 30 30 30 2d 28  |t(x*32+16,1000-(|
00000b90  79 2b 68 74 29 2a 33 32  2d 38 2c 6c 65 6e 25 2a  |y+ht)*32-8,len%*|
00000ba0  33 32 2b 31 36 2c 31 36  2c 31 29 0d 05 46 35 f2  |32+16,16,1)..F5.|
00000bb0  72 65 63 74 28 28 78 2b  6c 65 6e 25 29 2a 33 32  |rect((x+len%)*32|
00000bc0  2b 31 36 2c 31 30 30 30  2d 28 79 2b 68 74 29 2a  |+16,1000-(y+ht)*|
00000bd0  33 32 2c 31 36 2c 68 74  2a 33 32 2b 38 2c 31 29  |32,16,ht*32+8,1)|
00000be0  0d 05 50 05 e1 0d 05 5a  05 3a 0d 05 64 16 dd 20  |..P....Z.:..d.. |
00000bf0  f2 72 65 63 74 28 78 2c  79 2c 6c 2c 77 2c 66 29  |.rect(x,y,l,w,f)|
00000c00  0d 05 6e 09 ec 20 78 2c  79 0d 05 78 0b df 20 78  |..n.. x,y..x.. x|
00000c10  2b 6c 2c 79 0d 05 82 20  e7 20 66 3d 30 20 df 20  |+l,y... . f=0 . |
00000c20  78 2b 6c 2c 79 2b 77 20  8b 20 f0 20 38 35 2c 78  |x+l,y+w . . 85,x|
00000c30  2c 79 2b 77 0d 05 8c 20  e7 20 66 3d 30 20 df 20  |,y+w... . f=0 . |
00000c40  78 2c 79 2b 77 20 8b 20  f0 20 38 35 2c 78 2b 6c  |x,y+w . . 85,x+l|
00000c50  2c 79 2b 77 0d 05 96 0b  ec 20 78 2c 79 2b 77 0d  |,y+w..... x,y+w.|
00000c60  05 a0 17 e7 20 66 3d 30  20 df 20 78 2c 79 20 8b  |.... f=0 . x,y .|
00000c70  20 ec 20 78 2c 79 0d 05  aa 05 e1 0d 05 b4 05 3a  | . x,y.........:|
00000c80  0d 05 be 0d dd 20 f2 73  65 6c 65 63 74 0d 05 c8  |..... .select...|
00000c90  17 ea 20 6c 6f 6f 70 25  2c 6c 65 6e 25 3a 6c 65  |.. loop%,len%:le|
00000ca0  6e 25 3d 30 0d 05 d2 0c  e3 20 43 25 3d 30 b8 31  |n%=0..... C%=0.1|
00000cb0  0d 05 dc 22 e7 20 43 25  3d 30 20 f2 66 69 6e 64  |...". C%=0 .find|
00000cc0  66 69 6c 65 73 20 8b 20  f2 6c 6f 61 64 6e 61 6d  |files . .loadnam|
00000cd0  65 73 0d 05 e6 14 e3 20  6c 6f 6f 70 25 3d 30 20  |es..... loop%=0 |
00000ce0  b8 20 6d 61 78 25 0d 05  f0 2b e7 20 a9 28 6d 24  |. max%...+. .(m$|
00000cf0  28 6c 6f 6f 70 25 29 29  3e 6c 65 6e 25 20 8c 20  |(loop%))>len% . |
00000d00  6c 65 6e 25 3d a9 28 6d  24 28 6c 6f 6f 70 25 29  |len%=.(m$(loop%)|
00000d10  29 0d 05 fa 05 ed 0d 06  04 0b 2a 46 58 20 34 2c  |).........*FX 4,|
00000d20  31 0d 06 0e 1f f2 6f 70  65 6e 77 28 77 78 25 2c  |1.....openw(wx%,|
00000d30  77 79 25 2c 6c 65 6e 25  2c 6d 61 78 25 2b 32 29  |wy%,len%,max%+2)|
00000d40  0d 06 18 0d 6d 65 6e 75  70 74 72 3d 32 0d 06 22  |....menuptr=2.."|
00000d50  05 f5 0d 06 2c 0b f1 8a  30 2c 30 29 3b 0d 06 36  |....,...0,0);..6|
00000d60  14 e3 20 6c 6f 6f 70 25  3d 30 20 b8 20 6d 61 78  |.. loop%=0 . max|
00000d70  25 0d 06 40 33 e7 20 6c  6f 6f 70 25 3d 6d 65 6e  |%..@3. loop%=men|
00000d80  75 70 74 72 20 84 20 6c  6f 6f 70 25 3d 30 20 fb  |uptr . loop%=0 .|
00000d90  20 30 3a fb 20 31 32 39  20 8b 20 fb 20 31 3a fb  | 0:. 129 . . 1:.|
00000da0  20 31 32 38 0d 06 4a 27  f1 6d 24 28 6c 6f 6f 70  | 128..J'.m$(loop|
00000db0  25 29 3b c4 6c 65 6e 25  2d a9 28 6d 24 28 6c 6f  |%);.len%-.(m$(lo|
00000dc0  6f 70 25 29 29 2c 22 20  22 29 3b 0d 06 54 0f e7  |op%))," ");..T..|
00000dd0  20 6c 6f 6f 70 25 3d 30  20 f1 0d 06 5e 05 ed 0d  | loop%=0 ...^...|
00000de0  06 68 0d fb 20 31 3a fb  20 31 32 38 0d 06 72 0b  |.h.. 1:. 128..r.|
00000df0  2a 46 58 32 31 2c 30 0d  06 7c 08 4b 25 3d a5 0d  |*FX21,0..|.K%=..|
00000e00  06 86 37 e7 20 4b 25 3d  31 33 39 20 6d 65 6e 75  |..7. K%=139 menu|
00000e10  70 74 72 3d 6d 65 6e 75  70 74 72 2d 31 3a e7 20  |ptr=menuptr-1:. |
00000e20  6d 65 6e 75 70 74 72 3d  31 3a 6d 65 6e 75 70 74  |menuptr=1:menupt|
00000e30  72 3d 6d 61 78 25 0d 06  90 39 e7 20 4b 25 3d 31  |r=max%...9. K%=1|
00000e40  33 38 20 6d 65 6e 75 70  74 72 3d 6d 65 6e 75 70  |38 menuptr=menup|
00000e50  74 72 2b 31 3a e7 20 6d  65 6e 75 70 74 72 3d 6d  |tr+1:. menuptr=m|
00000e60  61 78 25 2b 31 20 6d 65  6e 75 70 74 72 3d 32 0d  |ax%+1 menuptr=2.|
00000e70  06 9a 0b fd 20 4b 25 3d  31 33 0d 06 a4 5e e7 20  |.... K%=13...^. |
00000e80  43 25 3d 30 20 53 25 28  63 68 6f 69 63 65 2d 32  |C%=0 S%(choice-2|
00000e90  2c 30 29 3d bb 28 c2 6d  24 28 6d 65 6e 75 70 74  |,0)=.(.m$(menupt|
00000ea0  72 29 2c 31 29 29 20 8b  20 53 25 28 63 68 6f 69  |r),1)) . S%(choi|
00000eb0  63 65 2d 32 2c 31 29 3d  6d 65 6e 75 70 74 72 3a  |ce-2,1)=menuptr:|
00000ec0  61 24 28 63 68 6f 69 63  65 2d 32 29 3d 6d 24 28  |a$(choice-2)=m$(|
00000ed0  6d 65 6e 75 70 74 72 29  0d 06 ae 31 e7 20 43 25  |menuptr)...1. C%|
00000ee0  3d 30 20 80 20 6d 24 28  6d 65 6e 75 70 74 72 29  |=0 . m$(menuptr)|
00000ef0  3d 22 49 6e 64 65 78 22  20 53 25 28 63 68 6f 69  |="Index" S%(choi|
00000f00  63 65 2d 32 2c 30 29 3d  30 0d 06 b8 0a 2a 46 58  |ce-2,0)=0....*FX|
00000f10  34 2c 30 0d 06 c2 20 f2  63 6c 6f 73 65 77 28 77  |4,0... .closew(w|
00000f20  78 25 2c 77 79 25 2c 6c  65 6e 25 2c 6d 61 78 25  |x%,wy%,len%,max%|
00000f30  2b 32 29 0d 06 cc 05 ed  0d 06 d6 05 e1 0d 06 e0  |+2).............|
00000f40  05 3a 0d 06 ea 0f dd f2  6c 6f 61 64 6e 61 6d 65  |.:......loadname|
00000f50  73 0d 06 f4 34 41 25 3d  8e 28 c3 28 79 65 61 72  |s...4A%=.(.(year|
00000f60  25 28 53 25 28 63 68 6f  69 63 65 2d 32 2c 30 29  |%(S%(choice-2,0)|
00000f70  29 29 2b c3 28 53 25 28  63 68 6f 69 63 65 2d 32  |))+.(S%(choice-2|
00000f80  2c 30 29 29 29 0d 06 fe  0a cf 23 41 25 3d 30 0d  |,0))).....#A%=0.|
00000f90  07 08 2b e7 20 53 25 28  63 68 6f 69 63 65 2d 32  |..+. S%(choice-2|
00000fa0  2c 30 29 3d 30 20 6e 64  61 74 61 25 3d 31 20 8b  |,0)=0 ndata%=1 .|
00000fb0  20 6e 64 61 74 61 25 3d  32 30 0d 07 12 26 6d 24  | ndata%=20...&m$|
00000fc0  28 30 29 3d 22 43 68 6f  6f 73 65 20 73 68 61 72  |(0)="Choose shar|
00000fd0  65 20 74 6f 20 62 65 20  70 6c 6f 74 74 65 64 22  |e to be plotted"|
00000fe0  0d 07 1c 13 e3 20 49 25  3d 32 b8 6e 64 61 74 61  |..... I%=2.ndata|
00000ff0  25 2b 31 0d 07 26 0d 6d  24 28 49 25 29 3d 22 22  |%+1..&.m$(I%)=""|
00001000  0d 07 30 0c e3 20 4a 25  3d 30 b8 36 0d 07 3a 0b  |..0.. J%=0.6..:.|
00001010  4b 25 3d 9a 23 41 25 0d  07 44 17 6d 24 28 49 25  |K%=.#A%..D.m$(I%|
00001020  29 3d 6d 24 28 49 25 29  2b bd 28 4b 25 29 0d 07  |)=m$(I%)+.(K%)..|
00001030  4e 05 ed 0d 07 58 05 ed  0d 07 62 07 d9 23 30 0d  |N....X....b..#0.|
00001040  07 6c 11 6d 61 78 25 3d  6e 64 61 74 61 25 2b 31  |.l.max%=ndata%+1|
00001050  0d 07 76 05 e1 0d 07 80  05 3a 0d 07 8a 0f dd f2  |..v......:......|
00001060  66 69 6e 64 66 69 6c 65  73 0d 07 94 1d 6d 24 28  |findfiles....m$(|
00001070  30 29 3d 22 20 20 57 68  69 63 68 20 22 2b 70 24  |0)="  Which "+p$|
00001080  2b 22 3f 20 20 22 0d 07  9e 0c 6d 24 28 31 29 3d  |+"?  "....m$(1)=|
00001090  62 24 0d 07 a8 08 59 25  3d 32 0d 07 b2 0c e3 20  |b$....Y%=2..... |
000010a0  5a 25 3d 30 b8 33 0d 07  bc 1c 41 25 3d 8e 28 c3  |Z%=0.3....A%=.(.|
000010b0  28 79 65 61 72 25 28 5a  25 29 29 2b c3 28 5a 25  |(year%(Z%))+.(Z%|
000010c0  29 29 0d 07 c6 23 e7 20  41 25 3c 3e 30 20 6d 24  |))...#. A%<>0 m$|
000010d0  28 59 25 29 3d 70 24 2b  c3 28 5a 25 29 3a 59 25  |(Y%)=p$+.(Z%):Y%|
000010e0  3d 59 25 2b 31 0d 07 d0  31 e7 20 5a 25 3d 30 20  |=Y%+1...1. Z%=0 |
000010f0  80 20 41 25 3c 3e 30 20  59 25 3d 59 25 2d 31 3a  |. A%<>0 Y%=Y%-1:|
00001100  6d 24 28 59 25 29 3d 22  49 6e 64 65 78 22 3a 59  |m$(Y%)="Index":Y|
00001110  25 3d 59 25 2b 31 0d 07  da 07 d9 23 30 0d 07 e4  |%=Y%+1.....#0...|
00001120  05 ed 0d 07 ee 0d 6d 61  78 25 3d 59 25 2d 31 0d  |......max%=Y%-1.|
00001130  07 f8 05 e1 0d 08 02 05  3a 0d 08 0c 09 dd f2 6b  |........:......k|
00001140  65 79 0d 08 16 14 f1 27  27 22 50 52 45 53 53 20  |ey.....''"PRESS |
00001150  41 20 4b 45 59 22 0d 08  20 0b 2a 46 58 32 31 2c  |A KEY".. .*FX21,|
00001160  30 0d 08 2a 08 4b 25 3d  a5 0d 08 34 05 e1 0d 08  |0..*.K%=...4....|
00001170  3e 05 3a 0d 08 48 0b dd  a4 64 72 69 76 65 0d 08  |>.:..H...drive..|
00001180  52 0c 62 25 3d 26 31 36  30 30 0d 08 5c 0f 58 25  |R.b%=&1600..\.X%|
00001190  3d 62 25 20 83 20 32 35  36 0d 08 66 0f 59 25 3d  |=b% . 256..f.Y%=|
000011a0  62 25 20 81 20 32 35 36  0d 08 70 08 41 25 3d 36  |b% . 256..p.A%=6|
000011b0  0d 08 7a 0d e3 20 49 25  3d 30 b8 31 31 0d 08 84  |..z.. I%=0.11...|
000011c0  0b 62 25 3f 49 25 3d 30  0d 08 8e 05 ed 0d 08 98  |.b%?I%=0........|
000011d0  0c 62 25 3f 32 3d 26 31  36 0d 08 a2 0a 62 25 3f  |.b%?2=&16....b%?|
000011e0  31 3d 31 0d 08 ac 0b 62  25 3f 31 32 3d 31 0d 08  |1=1....b%?12=1..|
000011f0  b6 0a d6 26 46 46 44 31  0d 08 c0 0e 3d 3f 26 31  |...&FFD1....=?&1|
00001200  36 30 32 2d 34 38 0d 08  ca 05 3a 0d 08 d4 0c dd  |602-48....:.....|
00001210  f2 73 79 73 74 65 6d 0d  08 de 05 f5 0d 08 e8 0b  |.system.........|
00001220  2a 46 58 32 31 2c 30 0d  08 f2 10 58 25 3d 8e 28  |*FX21,0....X%=.(|
00001230  22 4d 41 49 4e 22 29 0d  08 fc 07 d9 23 30 0d 09  |"MAIN").....#0..|
00001240  06 58 e7 20 58 25 3d 30  20 db 3a f1 8a 30 2c 31  |.X. X%=0 .:..0,1|
00001250  30 29 22 49 6e 73 65 72  74 20 53 79 73 74 65 6d  |0)"Insert System|
00001260  20 44 69 73 63 20 69 6e  20 64 72 69 76 65 20 30  | Disc in drive 0|
00001270  22 27 27 22 61 6e 64 20  70 72 65 73 73 20 61 6e  |"''"and press an|
00001280  79 20 6b 65 79 20 74 6f  20 63 6f 6e 74 69 6e 75  |y key to continu|
00001290  65 22 3a f5 fd a5 0d 09  10 0b fd 20 58 25 3c 3e  |e":........ X%<>|
000012a0  30 0d 09 1a 05 e1 0d 09  24 05 3a 0d 09 2e 0e dd  |0.......$.:.....|
000012b0  f2 66 69 6e 64 79 65 61  72 0d 09 38 0b f2 73 79  |.findyear..8..sy|
000012c0  73 74 65 6d 0d 09 42 10  58 25 3d 8e 28 22 59 45  |stem..B.X%=.("YE|
000012d0  41 52 22 29 0d 09 4c a2  e7 20 58 25 3d 30 20 db  |AR")..L.. X%=0 .|
000012e0  3a f1 8a 30 2c 31 30 29  22 46 69 6c 65 20 27 59  |:..0,10)"File 'Y|
000012f0  45 41 52 27 20 64 6f 65  73 20 6e 6f 74 20 65 78  |EAR' does not ex|
00001300  69 73 74 2e 22 27 27 22  47 6f 20 74 6f 20 4d 41  |ist."''"Go to MA|
00001310  49 4e 20 70 61 6e 65 6c  20 61 6e 64 20 73 65 6c  |IN panel and sel|
00001320  65 63 74 20 65 61 63 68  22 27 22 72 65 71 75 69  |ect each"'"requi|
00001330  72 65 64 20 49 6e 64 65  78 2f 50 6f 72 74 66 6f  |red Index/Portfo|
00001340  6c 69 6f 20 69 6e 20 74  75 72 6e 2e 22 27 27 22  |lio in turn."''"|
00001350  54 6f 20 72 65 74 75 72  6e 20 74 6f 20 4d 41 49  |To return to MAI|
00001360  4e 22 3a f2 6b 65 79 3a  f2 63 68 61 69 6e 28 22  |N":.key:.chain("|
00001370  4d 41 49 4e 22 29 0d 09  56 17 48 25 3d 34 30 2b  |MAIN")..V.H%=40+|
00001380  32 35 36 3a 46 25 3d 32  30 2b 32 35 36 0d 09 60  |256:F%=20+256..`|
00001390  0c e3 20 49 25 3d 30 b8  33 0d 09 6a 12 e8 23 58  |.. I%=0.3..j..#X|
000013a0  25 2c 79 65 61 72 25 28  49 25 29 0d 09 74 05 ed  |%,year%(I%)..t..|
000013b0  0d 09 7e 31 e7 20 a2 23  58 25 3e 26 31 34 20 e8  |..~1. .#X%>&14 .|
000013c0  23 58 25 2c 46 25 2c 48  25 20 8b 20 48 25 3d 36  |#X%,F%,H% . H%=6|
000013d0  30 3a 46 25 3d 33 30 3a  68 25 3d a3 3a 66 25 3d  |0:F%=30:h%=.:f%=|
000013e0  a3 0d 09 88 07 d9 23 30  0d 09 92 22 e7 20 46 25  |......#0...". F%|
000013f0  3e 32 30 30 20 46 25 3d  46 25 2d 32 35 36 3a 66  |>200 F%=F%-256:f|
00001400  25 3d b9 20 8b 20 66 25  3d a3 0d 09 9c 22 e7 20  |%=. . f%=....". |
00001410  48 25 3e 32 30 30 20 48  25 3d 48 25 2d 32 35 36  |H%>200 H%=H%-256|
00001420  3a 68 25 3d b9 20 8b 20  68 25 3d a3 0d 09 a6 05  |:h%=. . h%=.....|
00001430  e1 0d ff                                          |...|
00001433