� PORTFOLIO - ANALYSE
� (C) Jon Leighton Nov 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.:0.$.YEAR
�X%=�(":0.YEAR")
�� I%=0�3
��#X%,year%(I%)
��
�� f% F%=F%+256
�� h% H%=H%+256
��#X%,F%,H%
��#0
��""":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%=�(":0.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%=�(":0.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  4e 6f 76 20 31 39 38 38  0d 00 1e 05 3a 0d 00 28  |Nov 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  12 2a 44 45 4c 2e 3a 30  |ystem....*DEL.:0|
000005c0  2e 24 2e 59 45 41 52 0d  02 9e 13 58 25 3d ae 28  |.$.YEAR....X%=.(|
000005d0  22 3a 30 2e 59 45 41 52  22 29 0d 02 a8 0c e3 20  |":0.YEAR")..... |
000005e0  49 25 3d 30 b8 33 0d 02  b2 12 f1 23 58 25 2c 79  |I%=0.3.....#X%,y|
000005f0  65 61 72 25 28 49 25 29  0d 02 bc 05 ed 0d 02 c6  |ear%(I%)........|
00000600  12 e7 20 66 25 20 46 25  3d 46 25 2b 32 35 36 0d  |.. f% F%=F%+256.|
00000610  02 d0 12 e7 20 68 25 20  48 25 3d 48 25 2b 32 35  |.... h% H%=H%+25|
00000620  36 0d 02 da 0e f1 23 58  25 2c 46 25 2c 48 25 0d  |6.....#X%,F%,H%.|
00000630  02 e4 07 d9 23 30 0d 02  ee 16 d7 22 22 22 3a 30  |....#0.....""":0|
00000640  2e 24 2e 22 2b 41 24 2b  22 22 22 22 0d 02 f8 05  |.$."+A$+""""....|
00000650  e1 0d 03 02 05 3a 0d 03  0c 0b dd 20 a4 6d 65 6e  |.....:..... .men|
00000660  75 0d 03 16 14 e3 20 6c  6f 6f 70 25 3d 30 20 b8  |u..... loop%=0 .|
00000670  20 6d 61 78 25 0d 03 20  2b e7 20 a9 28 6d 24 28  | max%.. +. .(m$(|
00000680  6c 6f 6f 70 25 29 29 3e  6c 65 6e 25 20 8c 20 6c  |loop%))>len% . l|
00000690  65 6e 25 3d a9 28 6d 24  28 6c 6f 6f 70 25 29 29  |en%=.(m$(loop%))|
000006a0  0d 03 2a 05 ed 0d 03 34  0b 2a 46 58 20 34 2c 31  |..*....4.*FX 4,1|
000006b0  0d 03 3e 1f f2 6f 70 65  6e 77 28 77 78 25 2c 77  |..>..openw(wx%,w|
000006c0  79 25 2c 6c 65 6e 25 2c  6d 61 78 25 2b 31 29 0d  |y%,len%,max%+1).|
000006d0  03 48 16 e7 20 6d 65 6e  75 70 74 72 3d 37 20 e5  |.H.. menuptr=7 .|
000006e0  20 8d 44 66 43 0d 03 52  16 e7 20 6d 65 6e 75 70  | .DfC..R.. menup|
000006f0  74 72 3d 38 20 e5 20 8d  44 66 43 0d 03 5c 0d 6d  |tr=8 . .DfC..\.m|
00000700  65 6e 75 70 74 72 3d 32  0d 03 66 05 f5 0d 03 70  |enuptr=2..f....p|
00000710  0b f1 8a 30 2c 30 29 3b  0d 03 7a 14 e3 20 6c 6f  |...0,0);..z.. lo|
00000720  6f 70 25 3d 30 20 b8 20  6d 61 78 25 0d 03 84 33  |op%=0 . max%...3|
00000730  e7 20 6c 6f 6f 70 25 3d  6d 65 6e 75 70 74 72 20  |. loop%=menuptr |
00000740  84 20 6c 6f 6f 70 25 3d  30 20 fb 20 30 3a fb 20  |. loop%=0 . 0:. |
00000750  31 32 39 20 8b 20 fb 20  31 3a fb 20 31 32 38 0d  |129 . . 1:. 128.|
00000760  03 8e 27 f1 6d 24 28 6c  6f 6f 70 25 29 3b c4 6c  |..'.m$(loop%);.l|
00000770  65 6e 25 2d a9 28 6d 24  28 6c 6f 6f 70 25 29 29  |en%-.(m$(loop%))|
00000780  2c 22 20 22 29 3b 0d 03  98 05 ed 0d 03 a2 0d fb  |," ");..........|
00000790  20 31 3a fb 20 31 32 38  0d 03 ac 0b 2a 46 58 32  | 1:. 128....*FX2|
000007a0  31 2c 30 0d 03 b6 08 4b  25 3d a5 0d 03 c0 37 e7  |1,0....K%=....7.|
000007b0  20 4b 25 3d 31 33 39 20  6d 65 6e 75 70 74 72 3d  | K%=139 menuptr=|
000007c0  6d 65 6e 75 70 74 72 2d  31 3a e7 20 6d 65 6e 75  |menuptr-1:. menu|
000007d0  70 74 72 3d 31 3a 6d 65  6e 75 70 74 72 3d 6d 61  |ptr=1:menuptr=ma|
000007e0  78 25 0d 03 ca 39 e7 20  4b 25 3d 31 33 38 20 6d  |x%...9. K%=138 m|
000007f0  65 6e 75 70 74 72 3d 6d  65 6e 75 70 74 72 2b 31  |enuptr=menuptr+1|
00000800  3a e7 20 6d 65 6e 75 70  74 72 3d 6d 61 78 25 2b  |:. menuptr=max%+|
00000810  31 20 6d 65 6e 75 70 74  72 3d 32 0d 03 d4 35 e7  |1 menuptr=2...5.|
00000820  20 4b 25 3d 31 33 36 20  80 20 6d 65 6e 75 70 74  | K%=136 . menupt|
00000830  72 3d 37 20 46 25 3d 46  25 2d 31 3a f2 6f 70 74  |r=7 F%=F%-1:.opt|
00000840  28 66 25 2c 46 25 2c 37  29 3a e5 20 8d 74 62 43  |(f%,F%,7):. .tbC|
00000850  0d 03 de 35 e7 20 4b 25  3d 31 33 37 20 80 20 6d  |...5. K%=137 . m|
00000860  65 6e 75 70 74 72 3d 37  20 46 25 3d 46 25 2b 31  |enuptr=7 F%=F%+1|
00000870  3a f2 6f 70 74 28 66 25  2c 46 25 2c 37 29 3a e5  |:.opt(f%,F%,7):.|
00000880  20 8d 74 62 43 0d 03 e8  35 e7 20 4b 25 3d 31 33  | .tbC...5. K%=13|
00000890  36 20 80 20 6d 65 6e 75  70 74 72 3d 38 20 48 25  |6 . menuptr=8 H%|
000008a0  3d 48 25 2d 31 3a f2 6f  70 74 28 68 25 2c 48 25  |=H%-1:.opt(h%,H%|
000008b0  2c 38 29 3a e5 20 8d 74  62 43 0d 03 f2 35 e7 20  |,8):. .tbC...5. |
000008c0  4b 25 3d 31 33 37 20 80  20 6d 65 6e 75 70 74 72  |K%=137 . menuptr|
000008d0  3d 38 20 48 25 3d 48 25  2b 31 3a f2 6f 70 74 28  |=8 H%=H%+1:.opt(|
000008e0  68 25 2c 48 25 2c 38 29  3a e5 20 8d 74 62 43 0d  |h%,H%,8):. .tbC.|
000008f0  03 fc 34 e7 20 4b 25 3d  31 33 20 80 20 6d 65 6e  |..4. K%=13 . men|
00000900  75 70 74 72 3d 37 20 66  25 3d ac 20 66 25 3a f2  |uptr=7 f%=. f%:.|
00000910  6f 70 74 28 66 25 2c 46  25 2c 37 29 3a e5 20 8d  |opt(f%,F%,7):. .|
00000920  74 62 43 0d 04 06 34 e7  20 4b 25 3d 31 33 20 80  |tbC...4. K%=13 .|
00000930  20 6d 65 6e 75 70 74 72  3d 38 20 68 25 3d ac 20  | menuptr=8 h%=. |
00000940  68 25 3a f2 6f 70 74 28  68 25 2c 48 25 2c 38 29  |h%:.opt(h%,H%,8)|
00000950  3a e5 20 8d 74 62 43 0d  04 10 0b fd 20 4b 25 3d  |:. .tbC..... K%=|
00000960  31 33 0d 04 1a 0a 2a 46  58 34 2c 30 0d 04 24 20  |13....*FX4,0..$ |
00000970  f2 63 6c 6f 73 65 77 28  77 78 25 2c 77 79 25 2c  |.closew(wx%,wy%,|
00000980  6c 65 6e 25 2c 6d 61 78  25 2b 31 29 0d 04 2e 0c  |len%,max%+1)....|
00000990  3d 6d 65 6e 75 70 74 72  0d 04 38 05 3a 0d 04 42  |=menuptr..8.:..B|
000009a0  13 dd f2 6f 70 74 28 4a  25 2c 51 25 2c 4c 25 29  |...opt(J%,Q%,L%)|
000009b0  0d 04 4c 16 e7 20 51 25  3e 32 30 30 20 51 25 3d  |..L.. Q%>200 Q%=|
000009c0  32 30 30 3a ef 37 0d 04  56 12 e7 20 51 25 3c 31  |200:.7..V.. Q%<1|
000009d0  20 51 25 3d 31 3a ef 37  0d 04 60 0d fb 20 30 3a  | Q%=1:.7..`.. 0:|
000009e0  fb 20 31 32 39 0d 04 6a  37 6d 24 28 4c 25 29 3d  |. 129..j7m$(L%)=|
000009f0  c3 28 51 25 29 2b c4 34  2d a9 28 c3 28 51 25 29  |.(Q%)+.4-.(.(Q%)|
00000a00  29 2c 22 20 22 29 2b 22  64 61 79 20 61 76 65 72  |)," ")+"day aver|
00000a10  61 67 65 20 20 20 20 20  20 20 20 22 0d 04 74 3b  |age        "..t;|
00000a20  e7 20 4a 25 20 6d 24 28  4c 25 29 3d c0 6d 24 28  |. J% m$(L%)=.m$(|
00000a30  4c 25 29 2c 32 30 29 2b  22 4f 46 46 22 20 8b 20  |L%),20)+"OFF" . |
00000a40  6d 24 28 4c 25 29 3d c0  6d 24 28 4c 25 29 2c 32  |m$(L%)=.m$(L%),2|
00000a50  31 29 2b 22 4f 4e 22 0d  04 7e 11 f1 8a 30 2c 4c  |1)+"ON"..~...0,L|
00000a60  25 29 6d 24 28 4c 25 29  0d 04 88 16 e7 20 48 25  |%)m$(L%)..... H%|
00000a70  3e 32 30 30 20 48 25 3d  32 30 30 3a ef 37 0d 04  |>200 H%=200:.7..|
00000a80  92 12 e7 20 48 25 3c 31  20 48 25 3d 31 3a ef 37  |... H%<1 H%=1:.7|
00000a90  0d 04 9c 16 e7 20 46 25  3e 32 30 30 20 46 25 3d  |..... F%>200 F%=|
00000aa0  32 30 30 3a ef 37 0d 04  a6 12 e7 20 46 25 3c 31  |200:.7..... F%<1|
00000ab0  20 46 25 3d 31 3a ef 37  0d 04 b0 05 e1 0d 04 ba  | F%=1:.7........|
00000ac0  05 3a 0d 04 c4 1a dd 20  f2 63 6c 6f 73 65 77 28  |.:..... .closew(|
00000ad0  78 2c 79 2c 6c 65 6e 25  2c 68 74 29 0d 04 ce 08  |x,y,len%,ht)....|
00000ae0  ef 20 32 36 0d 04 d8 09  e6 20 30 2c 30 0d 04 e2  |. 26..... 0,0...|
00000af0  17 f2 6f 70 65 6e 77 28  78 2c 79 2c 6c 65 6e 25  |..openw(x,y,len%|
00000b00  2c 68 74 29 0d 04 ec 05  db 0d 04 f6 08 ef 20 32  |,ht).......... 2|
00000b10  36 0d 05 00 09 e6 20 30  2c 31 0d 05 0a 05 e1 0d  |6..... 0,1......|
00000b20  05 14 05 3a 0d 05 1e 19  dd 20 f2 6f 70 65 6e 77  |...:..... .openw|
00000b30  28 78 2c 79 2c 6c 65 6e  25 2c 68 74 29 0d 05 28  |(x,y,len%,ht)..(|
00000b40  1a ef 20 32 38 2c 78 2c  79 2b 68 74 2c 78 2b 6c  |.. 28,x,y+ht,x+l|
00000b50  65 6e 25 2d 31 2c 79 0d  05 32 36 f2 72 65 63 74  |en%-1,y..26.rect|
00000b60  28 78 2a 33 32 2d 38 2c  31 30 31 36 2d 28 79 2b  |(x*32-8,1016-(y+|
00000b70  68 74 29 2a 33 32 2c 6c  65 6e 25 2a 33 32 2b 31  |ht)*32,len%*32+1|
00000b80  32 2c 68 74 2a 33 32 2b  31 32 2c 30 29 0d 05 3c  |2,ht*32+12,0)..<|
00000b90  33 f2 72 65 63 74 28 78  2a 33 32 2b 31 36 2c 31  |3.rect(x*32+16,1|
00000ba0  30 30 30 2d 28 79 2b 68  74 29 2a 33 32 2d 38 2c  |000-(y+ht)*32-8,|
00000bb0  6c 65 6e 25 2a 33 32 2b  31 36 2c 31 36 2c 31 29  |len%*32+16,16,1)|
00000bc0  0d 05 46 35 f2 72 65 63  74 28 28 78 2b 6c 65 6e  |..F5.rect((x+len|
00000bd0  25 29 2a 33 32 2b 31 36  2c 31 30 30 30 2d 28 79  |%)*32+16,1000-(y|
00000be0  2b 68 74 29 2a 33 32 2c  31 36 2c 68 74 2a 33 32  |+ht)*32,16,ht*32|
00000bf0  2b 38 2c 31 29 0d 05 50  05 e1 0d 05 5a 05 3a 0d  |+8,1)..P....Z.:.|
00000c00  05 64 16 dd 20 f2 72 65  63 74 28 78 2c 79 2c 6c  |.d.. .rect(x,y,l|
00000c10  2c 77 2c 66 29 0d 05 6e  09 ec 20 78 2c 79 0d 05  |,w,f)..n.. x,y..|
00000c20  78 0b df 20 78 2b 6c 2c  79 0d 05 82 20 e7 20 66  |x.. x+l,y... . f|
00000c30  3d 30 20 df 20 78 2b 6c  2c 79 2b 77 20 8b 20 f0  |=0 . x+l,y+w . .|
00000c40  20 38 35 2c 78 2c 79 2b  77 0d 05 8c 20 e7 20 66  | 85,x,y+w... . f|
00000c50  3d 30 20 df 20 78 2c 79  2b 77 20 8b 20 f0 20 38  |=0 . x,y+w . . 8|
00000c60  35 2c 78 2b 6c 2c 79 2b  77 0d 05 96 0b ec 20 78  |5,x+l,y+w..... x|
00000c70  2c 79 2b 77 0d 05 a0 17  e7 20 66 3d 30 20 df 20  |,y+w..... f=0 . |
00000c80  78 2c 79 20 8b 20 ec 20  78 2c 79 0d 05 aa 05 e1  |x,y . . x,y.....|
00000c90  0d 05 b4 05 3a 0d 05 be  0d dd 20 f2 73 65 6c 65  |....:..... .sele|
00000ca0  63 74 0d 05 c8 17 ea 20  6c 6f 6f 70 25 2c 6c 65  |ct..... loop%,le|
00000cb0  6e 25 3a 6c 65 6e 25 3d  30 0d 05 d2 0c e3 20 43  |n%:len%=0..... C|
00000cc0  25 3d 30 b8 31 0d 05 dc  22 e7 20 43 25 3d 30 20  |%=0.1...". C%=0 |
00000cd0  f2 66 69 6e 64 66 69 6c  65 73 20 8b 20 f2 6c 6f  |.findfiles . .lo|
00000ce0  61 64 6e 61 6d 65 73 0d  05 e6 14 e3 20 6c 6f 6f  |adnames..... loo|
00000cf0  70 25 3d 30 20 b8 20 6d  61 78 25 0d 05 f0 2b e7  |p%=0 . max%...+.|
00000d00  20 a9 28 6d 24 28 6c 6f  6f 70 25 29 29 3e 6c 65  | .(m$(loop%))>le|
00000d10  6e 25 20 8c 20 6c 65 6e  25 3d a9 28 6d 24 28 6c  |n% . len%=.(m$(l|
00000d20  6f 6f 70 25 29 29 0d 05  fa 05 ed 0d 06 04 0b 2a  |oop%)).........*|
00000d30  46 58 20 34 2c 31 0d 06  0e 1f f2 6f 70 65 6e 77  |FX 4,1.....openw|
00000d40  28 77 78 25 2c 77 79 25  2c 6c 65 6e 25 2c 6d 61  |(wx%,wy%,len%,ma|
00000d50  78 25 2b 32 29 0d 06 18  0d 6d 65 6e 75 70 74 72  |x%+2)....menuptr|
00000d60  3d 32 0d 06 22 05 f5 0d  06 2c 0b f1 8a 30 2c 30  |=2.."....,...0,0|
00000d70  29 3b 0d 06 36 14 e3 20  6c 6f 6f 70 25 3d 30 20  |);..6.. loop%=0 |
00000d80  b8 20 6d 61 78 25 0d 06  40 33 e7 20 6c 6f 6f 70  |. max%..@3. loop|
00000d90  25 3d 6d 65 6e 75 70 74  72 20 84 20 6c 6f 6f 70  |%=menuptr . loop|
00000da0  25 3d 30 20 fb 20 30 3a  fb 20 31 32 39 20 8b 20  |%=0 . 0:. 129 . |
00000db0  fb 20 31 3a fb 20 31 32  38 0d 06 4a 27 f1 6d 24  |. 1:. 128..J'.m$|
00000dc0  28 6c 6f 6f 70 25 29 3b  c4 6c 65 6e 25 2d a9 28  |(loop%);.len%-.(|
00000dd0  6d 24 28 6c 6f 6f 70 25  29 29 2c 22 20 22 29 3b  |m$(loop%))," ");|
00000de0  0d 06 54 0f e7 20 6c 6f  6f 70 25 3d 30 20 f1 0d  |..T.. loop%=0 ..|
00000df0  06 5e 05 ed 0d 06 68 0d  fb 20 31 3a fb 20 31 32  |.^....h.. 1:. 12|
00000e00  38 0d 06 72 0b 2a 46 58  32 31 2c 30 0d 06 7c 08  |8..r.*FX21,0..|.|
00000e10  4b 25 3d a5 0d 06 86 37  e7 20 4b 25 3d 31 33 39  |K%=....7. K%=139|
00000e20  20 6d 65 6e 75 70 74 72  3d 6d 65 6e 75 70 74 72  | menuptr=menuptr|
00000e30  2d 31 3a e7 20 6d 65 6e  75 70 74 72 3d 31 3a 6d  |-1:. menuptr=1:m|
00000e40  65 6e 75 70 74 72 3d 6d  61 78 25 0d 06 90 39 e7  |enuptr=max%...9.|
00000e50  20 4b 25 3d 31 33 38 20  6d 65 6e 75 70 74 72 3d  | K%=138 menuptr=|
00000e60  6d 65 6e 75 70 74 72 2b  31 3a e7 20 6d 65 6e 75  |menuptr+1:. menu|
00000e70  70 74 72 3d 6d 61 78 25  2b 31 20 6d 65 6e 75 70  |ptr=max%+1 menup|
00000e80  74 72 3d 32 0d 06 9a 0b  fd 20 4b 25 3d 31 33 0d  |tr=2..... K%=13.|
00000e90  06 a4 5e e7 20 43 25 3d  30 20 53 25 28 63 68 6f  |..^. C%=0 S%(cho|
00000ea0  69 63 65 2d 32 2c 30 29  3d bb 28 c2 6d 24 28 6d  |ice-2,0)=.(.m$(m|
00000eb0  65 6e 75 70 74 72 29 2c  31 29 29 20 8b 20 53 25  |enuptr),1)) . S%|
00000ec0  28 63 68 6f 69 63 65 2d  32 2c 31 29 3d 6d 65 6e  |(choice-2,1)=men|
00000ed0  75 70 74 72 3a 61 24 28  63 68 6f 69 63 65 2d 32  |uptr:a$(choice-2|
00000ee0  29 3d 6d 24 28 6d 65 6e  75 70 74 72 29 0d 06 ae  |)=m$(menuptr)...|
00000ef0  31 e7 20 43 25 3d 30 20  80 20 6d 24 28 6d 65 6e  |1. C%=0 . m$(men|
00000f00  75 70 74 72 29 3d 22 49  6e 64 65 78 22 20 53 25  |uptr)="Index" S%|
00000f10  28 63 68 6f 69 63 65 2d  32 2c 30 29 3d 30 0d 06  |(choice-2,0)=0..|
00000f20  b8 0a 2a 46 58 34 2c 30  0d 06 c2 20 f2 63 6c 6f  |..*FX4,0... .clo|
00000f30  73 65 77 28 77 78 25 2c  77 79 25 2c 6c 65 6e 25  |sew(wx%,wy%,len%|
00000f40  2c 6d 61 78 25 2b 32 29  0d 06 cc 05 ed 0d 06 d6  |,max%+2)........|
00000f50  05 e1 0d 06 e0 05 3a 0d  06 ea 0f dd f2 6c 6f 61  |......:......loa|
00000f60  64 6e 61 6d 65 73 0d 06  f4 34 41 25 3d ad 28 c3  |dnames...4A%=.(.|
00000f70  28 79 65 61 72 25 28 53  25 28 63 68 6f 69 63 65  |(year%(S%(choice|
00000f80  2d 32 2c 30 29 29 29 2b  c3 28 53 25 28 63 68 6f  |-2,0)))+.(S%(cho|
00000f90  69 63 65 2d 32 2c 30 29  29 29 0d 06 fe 0a cf 23  |ice-2,0))).....#|
00000fa0  41 25 3d 30 0d 07 08 2b  e7 20 53 25 28 63 68 6f  |A%=0...+. S%(cho|
00000fb0  69 63 65 2d 32 2c 30 29  3d 30 20 6e 64 61 74 61  |ice-2,0)=0 ndata|
00000fc0  25 3d 31 20 8b 20 6e 64  61 74 61 25 3d 32 30 0d  |%=1 . ndata%=20.|
00000fd0  07 12 26 6d 24 28 30 29  3d 22 43 68 6f 6f 73 65  |..&m$(0)="Choose|
00000fe0  20 73 68 61 72 65 20 74  6f 20 62 65 20 70 6c 6f  | share to be plo|
00000ff0  74 74 65 64 22 0d 07 1c  13 e3 20 49 25 3d 32 b8  |tted"..... I%=2.|
00001000  6e 64 61 74 61 25 2b 31  0d 07 26 0d 6d 24 28 49  |ndata%+1..&.m$(I|
00001010  25 29 3d 22 22 0d 07 30  0c e3 20 4a 25 3d 30 b8  |%)=""..0.. J%=0.|
00001020  36 0d 07 3a 0b 4b 25 3d  9a 23 41 25 0d 07 44 17  |6..:.K%=.#A%..D.|
00001030  6d 24 28 49 25 29 3d 6d  24 28 49 25 29 2b bd 28  |m$(I%)=m$(I%)+.(|
00001040  4b 25 29 0d 07 4e 05 ed  0d 07 58 05 ed 0d 07 62  |K%)..N....X....b|
00001050  07 d9 23 30 0d 07 6c 11  6d 61 78 25 3d 6e 64 61  |..#0..l.max%=nda|
00001060  74 61 25 2b 31 0d 07 76  05 e1 0d 07 80 05 3a 0d  |ta%+1..v......:.|
00001070  07 8a 0f dd f2 66 69 6e  64 66 69 6c 65 73 0d 07  |.....findfiles..|
00001080  94 1d 6d 24 28 30 29 3d  22 20 20 57 68 69 63 68  |..m$(0)="  Which|
00001090  20 22 2b 70 24 2b 22 3f  20 20 22 0d 07 9e 0c 6d  | "+p$+"?  "....m|
000010a0  24 28 31 29 3d 62 24 0d  07 a8 08 59 25 3d 32 0d  |$(1)=b$....Y%=2.|
000010b0  07 b2 0c e3 20 5a 25 3d  30 b8 33 0d 07 bc 1c 41  |.... Z%=0.3....A|
000010c0  25 3d ad 28 c3 28 79 65  61 72 25 28 5a 25 29 29  |%=.(.(year%(Z%))|
000010d0  2b c3 28 5a 25 29 29 0d  07 c6 23 e7 20 41 25 3c  |+.(Z%))...#. A%<|
000010e0  3e 30 20 6d 24 28 59 25  29 3d 70 24 2b c3 28 5a  |>0 m$(Y%)=p$+.(Z|
000010f0  25 29 3a 59 25 3d 59 25  2b 31 0d 07 d0 31 e7 20  |%):Y%=Y%+1...1. |
00001100  5a 25 3d 30 20 80 20 41  25 3c 3e 30 20 59 25 3d  |Z%=0 . A%<>0 Y%=|
00001110  59 25 2d 31 3a 6d 24 28  59 25 29 3d 22 49 6e 64  |Y%-1:m$(Y%)="Ind|
00001120  65 78 22 3a 59 25 3d 59  25 2b 31 0d 07 da 07 d9  |ex":Y%=Y%+1.....|
00001130  23 30 0d 07 e4 05 ed 0d  07 ee 0d 6d 61 78 25 3d  |#0.........max%=|
00001140  59 25 2d 31 0d 07 f8 05  e1 0d 08 02 05 3a 0d 08  |Y%-1.........:..|
00001150  0c 09 dd f2 6b 65 79 0d  08 16 14 f1 27 27 22 50  |....key.....''"P|
00001160  52 45 53 53 20 41 20 4b  45 59 22 0d 08 20 0b 2a  |RESS A KEY".. .*|
00001170  46 58 32 31 2c 30 0d 08  2a 08 4b 25 3d a5 0d 08  |FX21,0..*.K%=...|
00001180  34 05 e1 0d 08 3e 05 3a  0d 08 48 0b dd a4 64 72  |4....>.:..H...dr|
00001190  69 76 65 0d 08 52 0c 62  25 3d 26 31 36 30 30 0d  |ive..R.b%=&1600.|
000011a0  08 5c 0f 58 25 3d 62 25  20 83 20 32 35 36 0d 08  |.\.X%=b% . 256..|
000011b0  66 0f 59 25 3d 62 25 20  81 20 32 35 36 0d 08 70  |f.Y%=b% . 256..p|
000011c0  08 41 25 3d 36 0d 08 7a  0d e3 20 49 25 3d 30 b8  |.A%=6..z.. I%=0.|
000011d0  31 31 0d 08 84 0b 62 25  3f 49 25 3d 30 0d 08 8e  |11....b%?I%=0...|
000011e0  05 ed 0d 08 98 0c 62 25  3f 32 3d 26 31 36 0d 08  |......b%?2=&16..|
000011f0  a2 0a 62 25 3f 31 3d 31  0d 08 ac 0b 62 25 3f 31  |..b%?1=1....b%?1|
00001200  32 3d 31 0d 08 b6 0a d6  26 46 46 44 31 0d 08 c0  |2=1.....&FFD1...|
00001210  0e 3d 3f 26 31 36 30 32  2d 34 38 0d 08 ca 05 3a  |.=?&1602-48....:|
00001220  0d 08 d4 0c dd f2 73 79  73 74 65 6d 0d 08 de 05  |......system....|
00001230  f5 0d 08 e8 0b 2a 46 58  32 31 2c 30 0d 08 f2 13  |.....*FX21,0....|
00001240  58 25 3d ad 28 22 3a 30  2e 4d 41 49 4e 22 29 0d  |X%=.(":0.MAIN").|
00001250  08 fc 07 d9 23 30 0d 09  06 58 e7 20 58 25 3d 30  |....#0...X. X%=0|
00001260  20 db 3a f1 8a 30 2c 31  30 29 22 49 6e 73 65 72  | .:..0,10)"Inser|
00001270  74 20 53 79 73 74 65 6d  20 44 69 73 63 20 69 6e  |t System Disc in|
00001280  20 64 72 69 76 65 20 30  22 27 27 22 61 6e 64 20  | drive 0"''"and |
00001290  70 72 65 73 73 20 61 6e  79 20 6b 65 79 20 74 6f  |press any key to|
000012a0  20 63 6f 6e 74 69 6e 75  65 22 3a f5 fd a5 0d 09  | continue":.....|
000012b0  10 0b fd 20 58 25 3c 3e  30 0d 09 1a 05 e1 0d 09  |... X%<>0.......|
000012c0  24 05 3a 0d 09 2e 0e dd  f2 66 69 6e 64 79 65 61  |$.:......findyea|
000012d0  72 0d 09 38 0b f2 73 79  73 74 65 6d 0d 09 42 13  |r..8..system..B.|
000012e0  58 25 3d ad 28 22 3a 30  2e 59 45 41 52 22 29 0d  |X%=.(":0.YEAR").|
000012f0  09 4c a2 e7 20 58 25 3d  30 20 db 3a f1 8a 30 2c  |.L.. X%=0 .:..0,|
00001300  31 30 29 22 46 69 6c 65  20 27 59 45 41 52 27 20  |10)"File 'YEAR' |
00001310  64 6f 65 73 20 6e 6f 74  20 65 78 69 73 74 2e 22  |does not exist."|
00001320  27 27 22 47 6f 20 74 6f  20 4d 41 49 4e 20 70 61  |''"Go to MAIN pa|
00001330  6e 65 6c 20 61 6e 64 20  73 65 6c 65 63 74 20 65  |nel and select e|
00001340  61 63 68 22 27 22 72 65  71 75 69 72 65 64 20 49  |ach"'"required I|
00001350  6e 64 65 78 2f 50 6f 72  74 66 6f 6c 69 6f 20 69  |ndex/Portfolio i|
00001360  6e 20 74 75 72 6e 2e 22  27 27 22 54 6f 20 72 65  |n turn."''"To re|
00001370  74 75 72 6e 20 74 6f 20  4d 41 49 4e 22 3a f2 6b  |turn to MAIN":.k|
00001380  65 79 3a f2 63 68 61 69  6e 28 22 4d 41 49 4e 22  |ey:.chain("MAIN"|
00001390  29 0d 09 56 17 48 25 3d  34 30 2b 32 35 36 3a 46  |)..V.H%=40+256:F|
000013a0  25 3d 32 30 2b 32 35 36  0d 09 60 0c e3 20 49 25  |%=20+256..`.. I%|
000013b0  3d 30 b8 33 0d 09 6a 12  e8 23 58 25 2c 79 65 61  |=0.3..j..#X%,yea|
000013c0  72 25 28 49 25 29 0d 09  74 05 ed 0d 09 7e 31 e7  |r%(I%)..t....~1.|
000013d0  20 a2 23 58 25 3e 26 31  34 20 e8 23 58 25 2c 46  | .#X%>&14 .#X%,F|
000013e0  25 2c 48 25 20 8b 20 48  25 3d 36 30 3a 46 25 3d  |%,H% . H%=60:F%=|
000013f0  33 30 3a 68 25 3d a3 3a  66 25 3d a3 0d 09 88 07  |30:h%=.:f%=.....|
00001400  d9 23 30 0d 09 92 22 e7  20 46 25 3e 32 30 30 20  |.#0...". F%>200 |
00001410  46 25 3d 46 25 2d 32 35  36 3a 66 25 3d b9 20 8b  |F%=F%-256:f%=. .|
00001420  20 66 25 3d a3 0d 09 9c  22 e7 20 48 25 3e 32 30  | f%=....". H%>20|
00001430  30 20 48 25 3d 48 25 2d  32 35 36 3a 68 25 3d b9  |0 H%=H%-256:h%=.|
00001440  20 8b 20 68 25 3d a3 0d  09 a6 05 e1 0d ff        | . h%=........|
0000144e