� PORTFOLIO - MAIN
� (C) Jon Leighton Aug 1987
:
(
*TV0,1
2*FX229,1
<*FX21,0
F�7
P�23;8202;0;0;0;
Z	�boot
d� m$(6),year%(3)
n	�year
x� 4
�	wx%=1
�	wy%=1
�p$="Portfolio "
�T%=�
��
��
�
max%=6
�j� T%=� � m$(0)="Main Menu  Portfolio not yet opened" � m$(0)="Main Menu  Portfolio "+�(Q%)+" selected"
�1� Q%=0 m$(0)="Main Menu  Index file selected"
�m$(1)="Select Portfolio"
�m$(2)="Data entry"
�m$(3)="Auto entry"
�m$(4)="Analyse"

3m$(5)="Data drive - currently drive "+�(�drive)

m$(6)="END"

C%=�menu

"� C%=1 �openfile

,� C%>1 � C%<7

6 �cwindow(wx%,wy%,len,max%+2)

@� C%=2 �chain("ENTRY")

J� C%=3 �chain("AUTO")

T� C%=4 �chain("ANALYSE")

^� C%=5 �drive

h� C%=6 � *FX229,0

i� C%=6 � *BASIC

r��

|�

�:

�
��year

��I%=0�3:year%(I%)=0:�

��system

�X%=�("YEAR")

��#X%

�� X%=0 � �which:� �d~A

�X%=�("YEAR")

�� I%=0�3

��#X%,year%(I%)

��

��#0

��
�
:
��which
&� I%=0�3
0<� I%=0 p$=�131+"Index file" � p$=�131+"Portfolio "+�(I%)
:��:�0,8)�134"Enter Year from which";p$;''�134"is to run. eg.";�131;"1987"''�134"Enter 0 if";p$;�134;"is not required."''�10)�134;�136;">";�131;�137;
D�""year%(I%)
N�
XX%=�("YEAR")
b� I%=0�3
l�#X%,year%(I%)
v�
��#0
��
�:
���chain(A$)
��system
�� A$
��
�:
���system
��
�*FX21,0
�A%=�("MAIN")
��#0
X� A%=0 �:�0,10)"Insert System Disc in drive 0"''"and press any key to continue":���
� A%<>0
�
 :
*� �menu
4� loop%,menuptr%,len:len=0
>� loop%=0 � max%
H)� �(m$(loop%))>len � len=�(m$(loop%))
R�
\� 23,1,0;0;0;0;
f*FX 4,1
p �owindow(wx%,wy%,len,max%+2)
zmenuptr%=1
��
��0,0);
�� loop%=0 � max%
�4� loop%=menuptr% � loop%=0 � 0:� 129 � � 1:� 128
�&�m$(loop%);�len-�(m$(loop%))," ");
�� loop%=0 �
��
�
� 1:� 128
�*FX21,0
�
key%=�
�=� key%=139 menuptr%=menuptr%-1:� menuptr%=0:menuptr%=max%
�?� key%=138 menuptr%=menuptr%+1:� menuptr%=max%+1 menuptr%=1
�� key%=13 � key%=27

*FX4,0
 �cwindow(wx%,wy%,len,max%+2)

=menuptr%
$:
.� �cwindow(x,y,len,ht)
8� 26
B	� 0,0
L�owindow(x,y,len,ht)
V�
`� 26
j	� 0,1
t�
~:
�� �owindow(x,y,len,ht)
�� 28,x,y+ht,x+len-1,y
�5�rect(x*32-8,1016-(y+ht)*32,len*32+12,ht*32+12,0)
�2�rect(x*32+16,1000-(y+ht)*32-8,len*32+16,16,1)
�4�rect((x+len)*32+16,1000-(y+ht)*32,16,ht*32+8,1)
��
�:
�� �rect(x,y,l,w,f)
�	� x,y
�� 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
�
:
(��openfile
2T%=�
<m$(0)="File selection"
Fm$(1)="Index"
P� I%=2�4
Zm$(I%)=p$+�(I%-1)
d�
n
max%=4
xQ%=�menu-1
��
�:
���drive
�
max%=4
� m$(0)="Data drive selection"
�� I%=0�3
�m$(I%+1)="Drive "+�(I%)
��
��
�C%=�menu
�
� C%<5
�2� C%<5 $&C10="DR."+�(C%-1):X%=&10:Y%=&C:�&FFF7
� �cwindow(wx%,wy%,len,max%+2)
�
:
ݤdrive
"b%=&C10
,X%=b% � 256
6Y%=b% � 256
@A%=6
J
� I%=0�11
Tb%?I%=0
^�
hb%?2=&C
rb%?1=&10
|b%?12=1
�
�&FFD1
�
=?&C11-48
�:
�
��boot
�A%=�("!BOOT")
��#0
�� A%<>0 � �
�`�0,8)�131;"There is no !BOOT file."''�131;"One will be created for you."''�131;"OK (Y/N)?";
�A%=� � &DF
�� A%<>89 � �
��131;"Yes"
��
�A%=�("!BOOT")
�
� I%
� I%=&FF � �TpG
&�#A%,I%
0� I%=&FF
:%�0,15)�130;"!BOOT file created."
D�#0
N*OPT4,3
X�
b:
lZ� 42,66,46,13,80,65,46,61,38,49,65,48,48,13,67,72,46,34,58,48,46,77,65,73,78,34,13,&FF
�

00000000  0d 00 0a 16 f4 20 50 4f  52 54 46 4f 4c 49 4f 20  |..... PORTFOLIO |
00000010  2d 20 4d 41 49 4e 0d 00  14 1f f4 20 28 43 29 20  |- MAIN..... (C) |
00000020  4a 6f 6e 20 4c 65 69 67  68 74 6f 6e 20 41 75 67  |Jon Leighton Aug|
00000030  20 31 39 38 37 0d 00 1e  05 3a 0d 00 28 0a 2a 54  | 1987....:..(.*T|
00000040  56 30 2c 31 0d 00 32 0c  2a 46 58 32 32 39 2c 31  |V0,1..2.*FX229,1|
00000050  0d 00 3c 0b 2a 46 58 32  31 2c 30 0d 00 46 06 eb  |..<.*FX21,0..F..|
00000060  37 0d 00 50 13 ef 32 33  3b 38 32 30 32 3b 30 3b  |7..P..23;8202;0;|
00000070  30 3b 30 3b 0d 00 5a 09  f2 62 6f 6f 74 0d 00 64  |0;0;..Z..boot..d|
00000080  14 de 20 6d 24 28 36 29  2c 79 65 61 72 25 28 33  |.. m$(6),year%(3|
00000090  29 0d 00 6e 09 f2 79 65  61 72 0d 00 78 07 eb 20  |)..n..year..x.. |
000000a0  34 0d 00 82 09 77 78 25  3d 31 0d 00 8c 09 77 79  |4....wx%=1....wy|
000000b0  25 3d 31 0d 00 96 13 70  24 3d 22 50 6f 72 74 66  |%=1....p$="Portf|
000000c0  6f 6c 69 6f 20 22 0d 00  a0 08 54 25 3d a3 0d 00  |olio "....T%=...|
000000d0  aa 05 f5 0d 00 b4 05 f5  0d 00 be 0a 6d 61 78 25  |............max%|
000000e0  3d 36 0d 00 c8 6a e7 20  54 25 3d a3 20 8c 20 6d  |=6...j. T%=. . m|
000000f0  24 28 30 29 3d 22 4d 61  69 6e 20 4d 65 6e 75 20  |$(0)="Main Menu |
00000100  20 50 6f 72 74 66 6f 6c  69 6f 20 6e 6f 74 20 79  | Portfolio not y|
00000110  65 74 20 6f 70 65 6e 65  64 22 20 8b 20 6d 24 28  |et opened" . m$(|
00000120  30 29 3d 22 4d 61 69 6e  20 4d 65 6e 75 20 20 50  |0)="Main Menu  P|
00000130  6f 72 74 66 6f 6c 69 6f  20 22 2b c3 28 51 25 29  |ortfolio "+.(Q%)|
00000140  2b 22 20 73 65 6c 65 63  74 65 64 22 0d 00 d2 31  |+" selected"...1|
00000150  e7 20 51 25 3d 30 20 6d  24 28 30 29 3d 22 4d 61  |. Q%=0 m$(0)="Ma|
00000160  69 6e 20 4d 65 6e 75 20  20 49 6e 64 65 78 20 66  |in Menu  Index f|
00000170  69 6c 65 20 73 65 6c 65  63 74 65 64 22 0d 00 dc  |ile selected"...|
00000180  1c 6d 24 28 31 29 3d 22  53 65 6c 65 63 74 20 50  |.m$(1)="Select P|
00000190  6f 72 74 66 6f 6c 69 6f  22 0d 00 e6 16 6d 24 28  |ortfolio"....m$(|
000001a0  32 29 3d 22 44 61 74 61  20 65 6e 74 72 79 22 0d  |2)="Data entry".|
000001b0  00 f0 16 6d 24 28 33 29  3d 22 41 75 74 6f 20 65  |...m$(3)="Auto e|
000001c0  6e 74 72 79 22 0d 00 fa  13 6d 24 28 34 29 3d 22  |ntry"....m$(4)="|
000001d0  41 6e 61 6c 79 73 65 22  0d 01 04 33 6d 24 28 35  |Analyse"...3m$(5|
000001e0  29 3d 22 44 61 74 61 20  64 72 69 76 65 20 2d 20  |)="Data drive - |
000001f0  63 75 72 72 65 6e 74 6c  79 20 64 72 69 76 65 20  |currently drive |
00000200  22 2b c3 28 a4 64 72 69  76 65 29 0d 01 0e 0f 6d  |"+.(.drive)....m|
00000210  24 28 36 29 3d 22 45 4e  44 22 0d 01 18 0c 43 25  |$(6)="END"....C%|
00000220  3d a4 6d 65 6e 75 0d 01  22 14 e7 20 43 25 3d 31  |=.menu..".. C%=1|
00000230  20 f2 6f 70 65 6e 66 69  6c 65 0d 01 2c 11 fd 20  | .openfile..,.. |
00000240  43 25 3e 31 20 80 20 43  25 3c 37 0d 01 36 20 f2  |C%>1 . C%<7..6 .|
00000250  63 77 69 6e 64 6f 77 28  77 78 25 2c 77 79 25 2c  |cwindow(wx%,wy%,|
00000260  6c 65 6e 2c 6d 61 78 25  2b 32 29 0d 01 40 1a e7  |len,max%+2)..@..|
00000270  20 43 25 3d 32 20 f2 63  68 61 69 6e 28 22 45 4e  | C%=2 .chain("EN|
00000280  54 52 59 22 29 0d 01 4a  19 e7 20 43 25 3d 33 20  |TRY")..J.. C%=3 |
00000290  f2 63 68 61 69 6e 28 22  41 55 54 4f 22 29 0d 01  |.chain("AUTO")..|
000002a0  54 1c e7 20 43 25 3d 34  20 f2 63 68 61 69 6e 28  |T.. C%=4 .chain(|
000002b0  22 41 4e 41 4c 59 53 45  22 29 0d 01 5e 11 e7 20  |"ANALYSE")..^.. |
000002c0  43 25 3d 35 20 f2 64 72  69 76 65 0d 01 68 15 e7  |C%=5 .drive..h..|
000002d0  20 43 25 3d 36 20 8c 20  2a 46 58 32 32 39 2c 30  | C%=6 . *FX229,0|
000002e0  0d 01 69 13 e7 20 43 25  3d 36 20 8c 20 2a 42 41  |..i.. C%=6 . *BA|
000002f0  53 49 43 0d 01 72 06 fd  a3 0d 01 7c 05 e0 0d 01  |SIC..r.....|....|
00000300  86 05 3a 0d 01 90 0a dd  f2 79 65 61 72 0d 01 9a  |..:......year...|
00000310  19 e3 49 25 3d 30 b8 33  3a 79 65 61 72 25 28 49  |..I%=0.3:year%(I|
00000320  25 29 3d 30 3a ed 0d 01  a4 0b f2 73 79 73 74 65  |%)=0:......syste|
00000330  6d 0d 01 ae 10 58 25 3d  8e 28 22 59 45 41 52 22  |m....X%=.("YEAR"|
00000340  29 0d 01 b8 08 d9 23 58  25 0d 01 c2 1a e7 20 58  |).....#X%..... X|
00000350  25 3d 30 20 8c 20 f2 77  68 69 63 68 3a e5 20 8d  |%=0 . .which:. .|
00000360  64 7e 41 0d 01 cc 10 58  25 3d 8e 28 22 59 45 41  |d~A....X%=.("YEA|
00000370  52 22 29 0d 01 d6 0c e3  20 49 25 3d 30 b8 33 0d  |R")..... I%=0.3.|
00000380  01 e0 12 e8 23 58 25 2c  79 65 61 72 25 28 49 25  |....#X%,year%(I%|
00000390  29 0d 01 ea 05 ed 0d 01  f4 07 d9 23 30 0d 01 fe  |)..........#0...|
000003a0  05 db 0d 02 08 05 e1 0d  02 12 05 3a 0d 02 1c 0b  |...........:....|
000003b0  dd f2 77 68 69 63 68 0d  02 26 0c e3 20 49 25 3d  |..which..&.. I%=|
000003c0  30 b8 33 0d 02 30 3c e7  20 49 25 3d 30 20 70 24  |0.3..0<. I%=0 p$|
000003d0  3d bd 31 33 31 2b 22 49  6e 64 65 78 20 66 69 6c  |=.131+"Index fil|
000003e0  65 22 20 8b 20 70 24 3d  bd 31 33 31 2b 22 50 6f  |e" . p$=.131+"Po|
000003f0  72 74 66 6f 6c 69 6f 20  22 2b c3 28 49 25 29 0d  |rtfolio "+.(I%).|
00000400  02 3a 98 db 3a f1 8a 30  2c 38 29 bd 31 33 34 22  |.:..:..0,8).134"|
00000410  45 6e 74 65 72 20 59 65  61 72 20 66 72 6f 6d 20  |Enter Year from |
00000420  77 68 69 63 68 22 3b 70  24 3b 27 27 bd 31 33 34  |which";p$;''.134|
00000430  22 69 73 20 74 6f 20 72  75 6e 2e 20 65 67 2e 22  |"is to run. eg."|
00000440  3b bd 31 33 31 3b 22 31  39 38 37 22 27 27 bd 31  |;.131;"1987"''.1|
00000450  33 34 22 45 6e 74 65 72  20 30 20 69 66 22 3b 70  |34"Enter 0 if";p|
00000460  24 3b bd 31 33 34 3b 22  69 73 20 6e 6f 74 20 72  |$;.134;"is not r|
00000470  65 71 75 69 72 65 64 2e  22 27 27 8a 31 30 29 bd  |equired."''.10).|
00000480  31 33 34 3b bd 31 33 36  3b 22 3e 22 3b bd 31 33  |134;.136;">";.13|
00000490  31 3b bd 31 33 37 3b 0d  02 44 10 e8 22 22 79 65  |1;.137;..D..""ye|
000004a0  61 72 25 28 49 25 29 0d  02 4e 05 ed 0d 02 58 10  |ar%(I%)..N....X.|
000004b0  58 25 3d ae 28 22 59 45  41 52 22 29 0d 02 62 0c  |X%=.("YEAR")..b.|
000004c0  e3 20 49 25 3d 30 b8 33  0d 02 6c 12 f1 23 58 25  |. I%=0.3..l..#X%|
000004d0  2c 79 65 61 72 25 28 49  25 29 0d 02 76 05 ed 0d  |,year%(I%)..v...|
000004e0  02 80 07 d9 23 30 0d 02  8a 05 e1 0d 02 94 05 3a  |....#0.........:|
000004f0  0d 02 9e 0f dd f2 63 68  61 69 6e 28 41 24 29 0d  |......chain(A$).|
00000500  02 a8 0b f2 73 79 73 74  65 6d 0d 02 b2 08 d7 20  |....system..... |
00000510  41 24 0d 02 bc 05 e1 0d  02 c6 05 3a 0d 02 d0 0c  |A$.........:....|
00000520  dd f2 73 79 73 74 65 6d  0d 02 da 05 f5 0d 02 e4  |..system........|
00000530  0b 2a 46 58 32 31 2c 30  0d 02 ee 10 41 25 3d 8e  |.*FX21,0....A%=.|
00000540  28 22 4d 41 49 4e 22 29  0d 02 f8 07 d9 23 30 0d  |("MAIN").....#0.|
00000550  03 02 58 e7 20 41 25 3d  30 20 db 3a f1 8a 30 2c  |..X. A%=0 .:..0,|
00000560  31 30 29 22 49 6e 73 65  72 74 20 53 79 73 74 65  |10)"Insert Syste|
00000570  6d 20 44 69 73 63 20 69  6e 20 64 72 69 76 65 20  |m Disc in drive |
00000580  30 22 27 27 22 61 6e 64  20 70 72 65 73 73 20 61  |0"''"and press a|
00000590  6e 79 20 6b 65 79 20 74  6f 20 63 6f 6e 74 69 6e  |ny key to contin|
000005a0  75 65 22 3a f5 fd a5 0d  03 0c 0b fd 20 41 25 3c  |ue":........ A%<|
000005b0  3e 30 0d 03 16 05 e1 0d  03 20 05 3a 0d 03 2a 0b  |>0....... .:..*.|
000005c0  dd 20 a4 6d 65 6e 75 0d  03 34 1e ea 20 6c 6f 6f  |. .menu..4.. loo|
000005d0  70 25 2c 6d 65 6e 75 70  74 72 25 2c 6c 65 6e 3a  |p%,menuptr%,len:|
000005e0  6c 65 6e 3d 30 0d 03 3e  14 e3 20 6c 6f 6f 70 25  |len=0..>.. loop%|
000005f0  3d 30 20 b8 20 6d 61 78  25 0d 03 48 29 e7 20 a9  |=0 . max%..H). .|
00000600  28 6d 24 28 6c 6f 6f 70  25 29 29 3e 6c 65 6e 20  |(m$(loop%))>len |
00000610  8c 20 6c 65 6e 3d a9 28  6d 24 28 6c 6f 6f 70 25  |. len=.(m$(loop%|
00000620  29 29 0d 03 52 05 ed 0d  03 5c 13 ef 20 32 33 2c  |))..R....\.. 23,|
00000630  31 2c 30 3b 30 3b 30 3b  30 3b 0d 03 66 0b 2a 46  |1,0;0;0;0;..f.*F|
00000640  58 20 34 2c 31 0d 03 70  20 f2 6f 77 69 6e 64 6f  |X 4,1..p .owindo|
00000650  77 28 77 78 25 2c 77 79  25 2c 6c 65 6e 2c 6d 61  |w(wx%,wy%,len,ma|
00000660  78 25 2b 32 29 0d 03 7a  0e 6d 65 6e 75 70 74 72  |x%+2)..z.menuptr|
00000670  25 3d 31 0d 03 84 05 f5  0d 03 8e 0b f1 8a 30 2c  |%=1...........0,|
00000680  30 29 3b 0d 03 98 14 e3  20 6c 6f 6f 70 25 3d 30  |0);..... loop%=0|
00000690  20 b8 20 6d 61 78 25 0d  03 a2 34 e7 20 6c 6f 6f  | . max%...4. loo|
000006a0  70 25 3d 6d 65 6e 75 70  74 72 25 20 84 20 6c 6f  |p%=menuptr% . lo|
000006b0  6f 70 25 3d 30 20 fb 20  30 3a fb 20 31 32 39 20  |op%=0 . 0:. 129 |
000006c0  8b 20 fb 20 31 3a fb 20  31 32 38 0d 03 ac 26 f1  |. . 1:. 128...&.|
000006d0  6d 24 28 6c 6f 6f 70 25  29 3b c4 6c 65 6e 2d a9  |m$(loop%);.len-.|
000006e0  28 6d 24 28 6c 6f 6f 70  25 29 29 2c 22 20 22 29  |(m$(loop%))," ")|
000006f0  3b 0d 03 b6 0f e7 20 6c  6f 6f 70 25 3d 30 20 f1  |;..... loop%=0 .|
00000700  0d 03 c0 05 ed 0d 03 ca  0d fb 20 31 3a fb 20 31  |.......... 1:. 1|
00000710  32 38 0d 03 d4 0b 2a 46  58 32 31 2c 30 0d 03 de  |28....*FX21,0...|
00000720  0a 6b 65 79 25 3d a5 0d  03 e8 3d e7 20 6b 65 79  |.key%=....=. key|
00000730  25 3d 31 33 39 20 6d 65  6e 75 70 74 72 25 3d 6d  |%=139 menuptr%=m|
00000740  65 6e 75 70 74 72 25 2d  31 3a e7 20 6d 65 6e 75  |enuptr%-1:. menu|
00000750  70 74 72 25 3d 30 3a 6d  65 6e 75 70 74 72 25 3d  |ptr%=0:menuptr%=|
00000760  6d 61 78 25 0d 03 f2 3f  e7 20 6b 65 79 25 3d 31  |max%...?. key%=1|
00000770  33 38 20 6d 65 6e 75 70  74 72 25 3d 6d 65 6e 75  |38 menuptr%=menu|
00000780  70 74 72 25 2b 31 3a e7  20 6d 65 6e 75 70 74 72  |ptr%+1:. menuptr|
00000790  25 3d 6d 61 78 25 2b 31  20 6d 65 6e 75 70 74 72  |%=max%+1 menuptr|
000007a0  25 3d 31 0d 03 fc 17 fd  20 6b 65 79 25 3d 31 33  |%=1..... key%=13|
000007b0  20 84 20 6b 65 79 25 3d  32 37 0d 04 06 0a 2a 46  | . key%=27....*F|
000007c0  58 34 2c 30 0d 04 10 20  f2 63 77 69 6e 64 6f 77  |X4,0... .cwindow|
000007d0  28 77 78 25 2c 77 79 25  2c 6c 65 6e 2c 6d 61 78  |(wx%,wy%,len,max|
000007e0  25 2b 32 29 0d 04 1a 0d  3d 6d 65 6e 75 70 74 72  |%+2)....=menuptr|
000007f0  25 0d 04 24 05 3a 0d 04  2e 1a dd 20 f2 63 77 69  |%..$.:..... .cwi|
00000800  6e 64 6f 77 28 78 2c 79  2c 6c 65 6e 2c 68 74 29  |ndow(x,y,len,ht)|
00000810  0d 04 38 08 ef 20 32 36  0d 04 42 09 e6 20 30 2c  |..8.. 26..B.. 0,|
00000820  30 0d 04 4c 18 f2 6f 77  69 6e 64 6f 77 28 78 2c  |0..L..owindow(x,|
00000830  79 2c 6c 65 6e 2c 68 74  29 0d 04 56 05 db 0d 04  |y,len,ht)..V....|
00000840  60 08 ef 20 32 36 0d 04  6a 09 e6 20 30 2c 31 0d  |`.. 26..j.. 0,1.|
00000850  04 74 05 e1 0d 04 7e 05  3a 0d 04 88 1a dd 20 f2  |.t....~.:..... .|
00000860  6f 77 69 6e 64 6f 77 28  78 2c 79 2c 6c 65 6e 2c  |owindow(x,y,len,|
00000870  68 74 29 0d 04 92 19 ef  20 32 38 2c 78 2c 79 2b  |ht)..... 28,x,y+|
00000880  68 74 2c 78 2b 6c 65 6e  2d 31 2c 79 0d 04 9c 35  |ht,x+len-1,y...5|
00000890  f2 72 65 63 74 28 78 2a  33 32 2d 38 2c 31 30 31  |.rect(x*32-8,101|
000008a0  36 2d 28 79 2b 68 74 29  2a 33 32 2c 6c 65 6e 2a  |6-(y+ht)*32,len*|
000008b0  33 32 2b 31 32 2c 68 74  2a 33 32 2b 31 32 2c 30  |32+12,ht*32+12,0|
000008c0  29 0d 04 a6 32 f2 72 65  63 74 28 78 2a 33 32 2b  |)...2.rect(x*32+|
000008d0  31 36 2c 31 30 30 30 2d  28 79 2b 68 74 29 2a 33  |16,1000-(y+ht)*3|
000008e0  32 2d 38 2c 6c 65 6e 2a  33 32 2b 31 36 2c 31 36  |2-8,len*32+16,16|
000008f0  2c 31 29 0d 04 b0 34 f2  72 65 63 74 28 28 78 2b  |,1)...4.rect((x+|
00000900  6c 65 6e 29 2a 33 32 2b  31 36 2c 31 30 30 30 2d  |len)*32+16,1000-|
00000910  28 79 2b 68 74 29 2a 33  32 2c 31 36 2c 68 74 2a  |(y+ht)*32,16,ht*|
00000920  33 32 2b 38 2c 31 29 0d  04 ba 05 e1 0d 04 c4 05  |32+8,1).........|
00000930  3a 0d 04 ce 16 dd 20 f2  72 65 63 74 28 78 2c 79  |:..... .rect(x,y|
00000940  2c 6c 2c 77 2c 66 29 0d  04 d8 09 ec 20 78 2c 79  |,l,w,f)..... x,y|
00000950  0d 04 e2 0b df 20 78 2b  6c 2c 79 0d 04 ec 20 e7  |..... x+l,y... .|
00000960  20 66 3d 30 20 df 20 78  2b 6c 2c 79 2b 77 20 8b  | f=0 . x+l,y+w .|
00000970  20 f0 20 38 35 2c 78 2c  79 2b 77 0d 04 f6 20 e7  | . 85,x,y+w... .|
00000980  20 66 3d 30 20 df 20 78  2c 79 2b 77 20 8b 20 f0  | f=0 . x,y+w . .|
00000990  20 38 35 2c 78 2b 6c 2c  79 2b 77 0d 05 00 0b ec  | 85,x+l,y+w.....|
000009a0  20 78 2c 79 2b 77 0d 05  0a 17 e7 20 66 3d 30 20  | x,y+w..... f=0 |
000009b0  df 20 78 2c 79 20 8b 20  ec 20 78 2c 79 0d 05 14  |. x,y . . x,y...|
000009c0  05 e1 0d 05 1e 05 3a 0d  05 28 0e dd f2 6f 70 65  |......:..(...ope|
000009d0  6e 66 69 6c 65 0d 05 32  08 54 25 3d b9 0d 05 3c  |nfile..2.T%=...<|
000009e0  1a 6d 24 28 30 29 3d 22  46 69 6c 65 20 73 65 6c  |.m$(0)="File sel|
000009f0  65 63 74 69 6f 6e 22 0d  05 46 11 6d 24 28 31 29  |ection"..F.m$(1)|
00000a00  3d 22 49 6e 64 65 78 22  0d 05 50 0c e3 20 49 25  |="Index"..P.. I%|
00000a10  3d 32 b8 34 0d 05 5a 15  6d 24 28 49 25 29 3d 70  |=2.4..Z.m$(I%)=p|
00000a20  24 2b c3 28 49 25 2d 31  29 0d 05 64 05 ed 0d 05  |$+.(I%-1)..d....|
00000a30  6e 0a 6d 61 78 25 3d 34  0d 05 78 0e 51 25 3d a4  |n.max%=4..x.Q%=.|
00000a40  6d 65 6e 75 2d 31 0d 05  82 05 e1 0d 05 8c 05 3a  |menu-1.........:|
00000a50  0d 05 96 0b dd f2 64 72  69 76 65 0d 05 a0 0a 6d  |......drive....m|
00000a60  61 78 25 3d 34 0d 05 aa  20 6d 24 28 30 29 3d 22  |ax%=4... m$(0)="|
00000a70  44 61 74 61 20 64 72 69  76 65 20 73 65 6c 65 63  |Data drive selec|
00000a80  74 69 6f 6e 22 0d 05 b4  0c e3 20 49 25 3d 30 b8  |tion"..... I%=0.|
00000a90  33 0d 05 be 1b 6d 24 28  49 25 2b 31 29 3d 22 44  |3....m$(I%+1)="D|
00000aa0  72 69 76 65 20 22 2b c3  28 49 25 29 0d 05 c8 05  |rive "+.(I%)....|
00000ab0  ed 0d 05 d2 05 f5 0d 05  dc 0c 43 25 3d a4 6d 65  |..........C%=.me|
00000ac0  6e 75 0d 05 e6 0a fd 20  43 25 3c 35 0d 05 f0 32  |nu..... C%<5...2|
00000ad0  e7 20 43 25 3c 35 20 24  26 43 31 30 3d 22 44 52  |. C%<5 $&C10="DR|
00000ae0  2e 22 2b c3 28 43 25 2d  31 29 3a 58 25 3d 26 31  |."+.(C%-1):X%=&1|
00000af0  30 3a 59 25 3d 26 43 3a  d6 26 46 46 46 37 0d 05  |0:Y%=&C:.&FFF7..|
00000b00  fa 20 f2 63 77 69 6e 64  6f 77 28 77 78 25 2c 77  |. .cwindow(wx%,w|
00000b10  79 25 2c 6c 65 6e 2c 6d  61 78 25 2b 32 29 0d 06  |y%,len,max%+2)..|
00000b20  04 05 e1 0d 06 0e 05 3a  0d 06 18 0b dd a4 64 72  |.......:......dr|
00000b30  69 76 65 0d 06 22 0b 62  25 3d 26 43 31 30 0d 06  |ive..".b%=&C10..|
00000b40  2c 0f 58 25 3d 62 25 20  83 20 32 35 36 0d 06 36  |,.X%=b% . 256..6|
00000b50  0f 59 25 3d 62 25 20 81  20 32 35 36 0d 06 40 08  |.Y%=b% . 256..@.|
00000b60  41 25 3d 36 0d 06 4a 0d  e3 20 49 25 3d 30 b8 31  |A%=6..J.. I%=0.1|
00000b70  31 0d 06 54 0b 62 25 3f  49 25 3d 30 0d 06 5e 05  |1..T.b%?I%=0..^.|
00000b80  ed 0d 06 68 0b 62 25 3f  32 3d 26 43 0d 06 72 0c  |...h.b%?2=&C..r.|
00000b90  62 25 3f 31 3d 26 31 30  0d 06 7c 0b 62 25 3f 31  |b%?1=&10..|.b%?1|
00000ba0  32 3d 31 0d 06 86 0a d6  26 46 46 44 31 0d 06 90  |2=1.....&FFD1...|
00000bb0  0d 3d 3f 26 43 31 31 2d  34 38 0d 06 9a 05 3a 0d  |.=?&C11-48....:.|
00000bc0  06 a4 0a dd f2 62 6f 6f  74 0d 06 ae 11 41 25 3d  |.....boot....A%=|
00000bd0  8e 28 22 21 42 4f 4f 54  22 29 0d 06 b8 07 d9 23  |.("!BOOT").....#|
00000be0  30 0d 06 c2 0f e7 20 41  25 3c 3e 30 20 8c 20 e1  |0..... A%<>0 . .|
00000bf0  0d 06 cc 60 f1 8a 30 2c  38 29 bd 31 33 31 3b 22  |...`..0,8).131;"|
00000c00  54 68 65 72 65 20 69 73  20 6e 6f 20 21 42 4f 4f  |There is no !BOO|
00000c10  54 20 66 69 6c 65 2e 22  27 27 bd 31 33 31 3b 22  |T file."''.131;"|
00000c20  4f 6e 65 20 77 69 6c 6c  20 62 65 20 63 72 65 61  |One will be crea|
00000c30  74 65 64 20 66 6f 72 20  79 6f 75 2e 22 27 27 bd  |ted for you."''.|
00000c40  31 33 31 3b 22 4f 4b 20  28 59 2f 4e 29 3f 22 3b  |131;"OK (Y/N)?";|
00000c50  0d 06 d6 0e 41 25 3d a5  20 80 20 26 44 46 0d 06  |....A%=. . &DF..|
00000c60  e0 10 e7 20 41 25 3c 3e  38 39 20 8c 20 e0 0d 06  |... A%<>89 . ...|
00000c70  ea 0f f1 bd 31 33 31 3b  22 59 65 73 22 0d 06 f4  |....131;"Yes"...|
00000c80  05 f7 0d 06 fe 11 41 25  3d ae 28 22 21 42 4f 4f  |......A%=.("!BOO|
00000c90  54 22 29 0d 07 08 05 f5  0d 07 12 08 f3 20 49 25  |T").......... I%|
00000ca0  0d 07 1c 13 e7 20 49 25  3d 26 46 46 20 e5 20 8d  |..... I%=&FF . .|
00000cb0  54 70 47 0d 07 26 0b d5  23 41 25 2c 49 25 0d 07  |TpG..&..#A%,I%..|
00000cc0  30 0c fd 20 49 25 3d 26  46 46 0d 07 3a 25 f1 8a  |0.. I%=&FF..:%..|
00000cd0  30 2c 31 35 29 bd 31 33  30 3b 22 21 42 4f 4f 54  |0,15).130;"!BOOT|
00000ce0  20 66 69 6c 65 20 63 72  65 61 74 65 64 2e 22 0d  | file created.".|
00000cf0  07 44 07 d9 23 30 0d 07  4e 0b 2a 4f 50 54 34 2c  |.D..#0..N.*OPT4,|
00000d00  33 0d 07 58 05 e1 0d 07  62 05 3a 0d 07 6c 5a dc  |3..X....b.:..lZ.|
00000d10  20 34 32 2c 36 36 2c 34  36 2c 31 33 2c 38 30 2c  | 42,66,46,13,80,|
00000d20  36 35 2c 34 36 2c 36 31  2c 33 38 2c 34 39 2c 36  |65,46,61,38,49,6|
00000d30  35 2c 34 38 2c 34 38 2c  31 33 2c 36 37 2c 37 32  |5,48,48,13,67,72|
00000d40  2c 34 36 2c 33 34 2c 35  38 2c 34 38 2c 34 36 2c  |,46,34,58,48,46,|
00000d50  37 37 2c 36 35 2c 37 33  2c 37 38 2c 33 34 2c 31  |77,65,73,78,34,1|
00000d60  33 2c 26 46 46 0d ff                              |3,&FF..|
00000d67