� PORTFOLIO - MAIN
� (C) Jon Leighton Nov 1988

*FX119
(
*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%=�(":0.YEAR")

��#X%

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

�X%=�(":0.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%=�(":0.YEAR")
b� I%=0�3
l�#X%,year%(I%)
v�
��#0
��
�:
���chain(A$)
��system
��""":0.$."+A$+""""
��
�:
���system
��
�*FX21,0
�A%=�(":0.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%=�(":0.!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 � �DXG
��131;"Yes"
��
�A%=�(":0.!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 4e 6f 76  |Jon Leighton Nov|
00000030  20 31 39 38 38 0d 00 1e  0a 2a 46 58 31 31 39 0d  | 1988....*FX119.|
00000040  00 28 0a 2a 54 56 30 2c  31 0d 00 32 0c 2a 46 58  |.(.*TV0,1..2.*FX|
00000050  32 32 39 2c 31 0d 00 3c  0b 2a 46 58 32 31 2c 30  |229,1..<.*FX21,0|
00000060  0d 00 46 06 eb 37 0d 00  50 13 ef 32 33 3b 38 32  |..F..7..P..23;82|
00000070  30 32 3b 30 3b 30 3b 30  3b 0d 00 5a 09 f2 62 6f  |02;0;0;0;..Z..bo|
00000080  6f 74 0d 00 64 14 de 20  6d 24 28 36 29 2c 79 65  |ot..d.. m$(6),ye|
00000090  61 72 25 28 33 29 0d 00  6e 09 f2 79 65 61 72 0d  |ar%(3)..n..year.|
000000a0  00 78 07 eb 20 34 0d 00  82 09 77 78 25 3d 31 0d  |.x.. 4....wx%=1.|
000000b0  00 8c 09 77 79 25 3d 31  0d 00 96 13 70 24 3d 22  |...wy%=1....p$="|
000000c0  50 6f 72 74 66 6f 6c 69  6f 20 22 0d 00 a0 08 54  |Portfolio "....T|
000000d0  25 3d a3 0d 00 aa 05 f5  0d 00 b4 05 f5 0d 00 be  |%=..............|
000000e0  0a 6d 61 78 25 3d 36 0d  00 c8 6a e7 20 54 25 3d  |.max%=6...j. T%=|
000000f0  a3 20 8c 20 6d 24 28 30  29 3d 22 4d 61 69 6e 20  |. . m$(0)="Main |
00000100  4d 65 6e 75 20 20 50 6f  72 74 66 6f 6c 69 6f 20  |Menu  Portfolio |
00000110  6e 6f 74 20 79 65 74 20  6f 70 65 6e 65 64 22 20  |not yet opened" |
00000120  8b 20 6d 24 28 30 29 3d  22 4d 61 69 6e 20 4d 65  |. m$(0)="Main Me|
00000130  6e 75 20 20 50 6f 72 74  66 6f 6c 69 6f 20 22 2b  |nu  Portfolio "+|
00000140  c3 28 51 25 29 2b 22 20  73 65 6c 65 63 74 65 64  |.(Q%)+" selected|
00000150  22 0d 00 d2 31 e7 20 51  25 3d 30 20 6d 24 28 30  |"...1. Q%=0 m$(0|
00000160  29 3d 22 4d 61 69 6e 20  4d 65 6e 75 20 20 49 6e  |)="Main Menu  In|
00000170  64 65 78 20 66 69 6c 65  20 73 65 6c 65 63 74 65  |dex file selecte|
00000180  64 22 0d 00 dc 1c 6d 24  28 31 29 3d 22 53 65 6c  |d"....m$(1)="Sel|
00000190  65 63 74 20 50 6f 72 74  66 6f 6c 69 6f 22 0d 00  |ect Portfolio"..|
000001a0  e6 16 6d 24 28 32 29 3d  22 44 61 74 61 20 65 6e  |..m$(2)="Data en|
000001b0  74 72 79 22 0d 00 f0 16  6d 24 28 33 29 3d 22 41  |try"....m$(3)="A|
000001c0  75 74 6f 20 65 6e 74 72  79 22 0d 00 fa 13 6d 24  |uto entry"....m$|
000001d0  28 34 29 3d 22 41 6e 61  6c 79 73 65 22 0d 01 04  |(4)="Analyse"...|
000001e0  33 6d 24 28 35 29 3d 22  44 61 74 61 20 64 72 69  |3m$(5)="Data dri|
000001f0  76 65 20 2d 20 63 75 72  72 65 6e 74 6c 79 20 64  |ve - currently d|
00000200  72 69 76 65 20 22 2b c3  28 a4 64 72 69 76 65 29  |rive "+.(.drive)|
00000210  0d 01 0e 0f 6d 24 28 36  29 3d 22 45 4e 44 22 0d  |....m$(6)="END".|
00000220  01 18 0c 43 25 3d a4 6d  65 6e 75 0d 01 22 14 e7  |...C%=.menu.."..|
00000230  20 43 25 3d 31 20 f2 6f  70 65 6e 66 69 6c 65 0d  | C%=1 .openfile.|
00000240  01 2c 11 fd 20 43 25 3e  31 20 80 20 43 25 3c 37  |.,.. C%>1 . C%<7|
00000250  0d 01 36 20 f2 63 77 69  6e 64 6f 77 28 77 78 25  |..6 .cwindow(wx%|
00000260  2c 77 79 25 2c 6c 65 6e  2c 6d 61 78 25 2b 32 29  |,wy%,len,max%+2)|
00000270  0d 01 40 1a e7 20 43 25  3d 32 20 f2 63 68 61 69  |..@.. C%=2 .chai|
00000280  6e 28 22 45 4e 54 52 59  22 29 0d 01 4a 19 e7 20  |n("ENTRY")..J.. |
00000290  43 25 3d 33 20 f2 63 68  61 69 6e 28 22 41 55 54  |C%=3 .chain("AUT|
000002a0  4f 22 29 0d 01 54 1c e7  20 43 25 3d 34 20 f2 63  |O")..T.. C%=4 .c|
000002b0  68 61 69 6e 28 22 41 4e  41 4c 59 53 45 22 29 0d  |hain("ANALYSE").|
000002c0  01 5e 11 e7 20 43 25 3d  35 20 f2 64 72 69 76 65  |.^.. C%=5 .drive|
000002d0  0d 01 68 15 e7 20 43 25  3d 36 20 8c 20 2a 46 58  |..h.. C%=6 . *FX|
000002e0  32 32 39 2c 30 0d 01 69  13 e7 20 43 25 3d 36 20  |229,0..i.. C%=6 |
000002f0  8c 20 2a 42 41 53 49 43  0d 01 72 06 fd a3 0d 01  |. *BASIC..r.....|
00000300  7c 05 e0 0d 01 86 05 3a  0d 01 90 0a dd f2 79 65  ||......:......ye|
00000310  61 72 0d 01 9a 19 e3 49  25 3d 30 b8 33 3a 79 65  |ar.....I%=0.3:ye|
00000320  61 72 25 28 49 25 29 3d  30 3a ed 0d 01 a4 0b f2  |ar%(I%)=0:......|
00000330  73 79 73 74 65 6d 0d 01  ae 13 58 25 3d ad 28 22  |system....X%=.("|
00000340  3a 30 2e 59 45 41 52 22  29 0d 01 b8 08 d9 23 58  |:0.YEAR").....#X|
00000350  25 0d 01 c2 1a e7 20 58  25 3d 30 20 8c 20 f2 77  |%..... X%=0 . .w|
00000360  68 69 63 68 3a e5 20 8d  64 7e 41 0d 01 cc 13 58  |hich:. .d~A....X|
00000370  25 3d ad 28 22 3a 30 2e  59 45 41 52 22 29 0d 01  |%=.(":0.YEAR")..|
00000380  d6 0c e3 20 49 25 3d 30  b8 33 0d 01 e0 12 e8 23  |... I%=0.3.....#|
00000390  58 25 2c 79 65 61 72 25  28 49 25 29 0d 01 ea 05  |X%,year%(I%)....|
000003a0  ed 0d 01 f4 07 d9 23 30  0d 01 fe 05 db 0d 02 08  |......#0........|
000003b0  05 e1 0d 02 12 05 3a 0d  02 1c 0b dd f2 77 68 69  |......:......whi|
000003c0  63 68 0d 02 26 0c e3 20  49 25 3d 30 b8 33 0d 02  |ch..&.. I%=0.3..|
000003d0  30 3c e7 20 49 25 3d 30  20 70 24 3d bd 31 33 31  |0<. I%=0 p$=.131|
000003e0  2b 22 49 6e 64 65 78 20  66 69 6c 65 22 20 8b 20  |+"Index file" . |
000003f0  70 24 3d bd 31 33 31 2b  22 50 6f 72 74 66 6f 6c  |p$=.131+"Portfol|
00000400  69 6f 20 22 2b c3 28 49  25 29 0d 02 3a 98 db 3a  |io "+.(I%)..:..:|
00000410  f1 8a 30 2c 38 29 bd 31  33 34 22 45 6e 74 65 72  |..0,8).134"Enter|
00000420  20 59 65 61 72 20 66 72  6f 6d 20 77 68 69 63 68  | Year from which|
00000430  22 3b 70 24 3b 27 27 bd  31 33 34 22 69 73 20 74  |";p$;''.134"is t|
00000440  6f 20 72 75 6e 2e 20 65  67 2e 22 3b bd 31 33 31  |o run. eg.";.131|
00000450  3b 22 31 39 38 37 22 27  27 bd 31 33 34 22 45 6e  |;"1987"''.134"En|
00000460  74 65 72 20 30 20 69 66  22 3b 70 24 3b bd 31 33  |ter 0 if";p$;.13|
00000470  34 3b 22 69 73 20 6e 6f  74 20 72 65 71 75 69 72  |4;"is not requir|
00000480  65 64 2e 22 27 27 8a 31  30 29 bd 31 33 34 3b bd  |ed."''.10).134;.|
00000490  31 33 36 3b 22 3e 22 3b  bd 31 33 31 3b bd 31 33  |136;">";.131;.13|
000004a0  37 3b 0d 02 44 10 e8 22  22 79 65 61 72 25 28 49  |7;..D..""year%(I|
000004b0  25 29 0d 02 4e 05 ed 0d  02 58 13 58 25 3d ae 28  |%)..N....X.X%=.(|
000004c0  22 3a 30 2e 59 45 41 52  22 29 0d 02 62 0c e3 20  |":0.YEAR")..b.. |
000004d0  49 25 3d 30 b8 33 0d 02  6c 12 f1 23 58 25 2c 79  |I%=0.3..l..#X%,y|
000004e0  65 61 72 25 28 49 25 29  0d 02 76 05 ed 0d 02 80  |ear%(I%)..v.....|
000004f0  07 d9 23 30 0d 02 8a 05  e1 0d 02 94 05 3a 0d 02  |..#0.........:..|
00000500  9e 0f dd f2 63 68 61 69  6e 28 41 24 29 0d 02 a8  |....chain(A$)...|
00000510  0b f2 73 79 73 74 65 6d  0d 02 b2 16 d7 22 22 22  |..system....."""|
00000520  3a 30 2e 24 2e 22 2b 41  24 2b 22 22 22 22 0d 02  |:0.$."+A$+""""..|
00000530  bc 05 e1 0d 02 c6 05 3a  0d 02 d0 0c dd f2 73 79  |.......:......sy|
00000540  73 74 65 6d 0d 02 da 05  f5 0d 02 e4 0b 2a 46 58  |stem.........*FX|
00000550  32 31 2c 30 0d 02 ee 13  41 25 3d ad 28 22 3a 30  |21,0....A%=.(":0|
00000560  2e 4d 41 49 4e 22 29 0d  02 f8 07 d9 23 30 0d 03  |.MAIN").....#0..|
00000570  02 58 e7 20 41 25 3d 30  20 db 3a f1 8a 30 2c 31  |.X. A%=0 .:..0,1|
00000580  30 29 22 49 6e 73 65 72  74 20 53 79 73 74 65 6d  |0)"Insert System|
00000590  20 44 69 73 63 20 69 6e  20 64 72 69 76 65 20 30  | Disc in drive 0|
000005a0  22 27 27 22 61 6e 64 20  70 72 65 73 73 20 61 6e  |"''"and press an|
000005b0  79 20 6b 65 79 20 74 6f  20 63 6f 6e 74 69 6e 75  |y key to continu|
000005c0  65 22 3a f5 fd a5 0d 03  0c 0b fd 20 41 25 3c 3e  |e":........ A%<>|
000005d0  30 0d 03 16 05 e1 0d 03  20 05 3a 0d 03 2a 0b dd  |0....... .:..*..|
000005e0  20 a4 6d 65 6e 75 0d 03  34 1e ea 20 6c 6f 6f 70  | .menu..4.. loop|
000005f0  25 2c 6d 65 6e 75 70 74  72 25 2c 6c 65 6e 3a 6c  |%,menuptr%,len:l|
00000600  65 6e 3d 30 0d 03 3e 14  e3 20 6c 6f 6f 70 25 3d  |en=0..>.. loop%=|
00000610  30 20 b8 20 6d 61 78 25  0d 03 48 29 e7 20 a9 28  |0 . max%..H). .(|
00000620  6d 24 28 6c 6f 6f 70 25  29 29 3e 6c 65 6e 20 8c  |m$(loop%))>len .|
00000630  20 6c 65 6e 3d a9 28 6d  24 28 6c 6f 6f 70 25 29  | len=.(m$(loop%)|
00000640  29 0d 03 52 05 ed 0d 03  5c 13 ef 20 32 33 2c 31  |)..R....\.. 23,1|
00000650  2c 30 3b 30 3b 30 3b 30  3b 0d 03 66 0b 2a 46 58  |,0;0;0;0;..f.*FX|
00000660  20 34 2c 31 0d 03 70 20  f2 6f 77 69 6e 64 6f 77  | 4,1..p .owindow|
00000670  28 77 78 25 2c 77 79 25  2c 6c 65 6e 2c 6d 61 78  |(wx%,wy%,len,max|
00000680  25 2b 32 29 0d 03 7a 0e  6d 65 6e 75 70 74 72 25  |%+2)..z.menuptr%|
00000690  3d 31 0d 03 84 05 f5 0d  03 8e 0b f1 8a 30 2c 30  |=1...........0,0|
000006a0  29 3b 0d 03 98 14 e3 20  6c 6f 6f 70 25 3d 30 20  |);..... loop%=0 |
000006b0  b8 20 6d 61 78 25 0d 03  a2 34 e7 20 6c 6f 6f 70  |. max%...4. loop|
000006c0  25 3d 6d 65 6e 75 70 74  72 25 20 84 20 6c 6f 6f  |%=menuptr% . loo|
000006d0  70 25 3d 30 20 fb 20 30  3a fb 20 31 32 39 20 8b  |p%=0 . 0:. 129 .|
000006e0  20 fb 20 31 3a fb 20 31  32 38 0d 03 ac 26 f1 6d  | . 1:. 128...&.m|
000006f0  24 28 6c 6f 6f 70 25 29  3b c4 6c 65 6e 2d a9 28  |$(loop%);.len-.(|
00000700  6d 24 28 6c 6f 6f 70 25  29 29 2c 22 20 22 29 3b  |m$(loop%))," ");|
00000710  0d 03 b6 0f e7 20 6c 6f  6f 70 25 3d 30 20 f1 0d  |..... loop%=0 ..|
00000720  03 c0 05 ed 0d 03 ca 0d  fb 20 31 3a fb 20 31 32  |......... 1:. 12|
00000730  38 0d 03 d4 0b 2a 46 58  32 31 2c 30 0d 03 de 0a  |8....*FX21,0....|
00000740  6b 65 79 25 3d a5 0d 03  e8 3d e7 20 6b 65 79 25  |key%=....=. key%|
00000750  3d 31 33 39 20 6d 65 6e  75 70 74 72 25 3d 6d 65  |=139 menuptr%=me|
00000760  6e 75 70 74 72 25 2d 31  3a e7 20 6d 65 6e 75 70  |nuptr%-1:. menup|
00000770  74 72 25 3d 30 3a 6d 65  6e 75 70 74 72 25 3d 6d  |tr%=0:menuptr%=m|
00000780  61 78 25 0d 03 f2 3f e7  20 6b 65 79 25 3d 31 33  |ax%...?. key%=13|
00000790  38 20 6d 65 6e 75 70 74  72 25 3d 6d 65 6e 75 70  |8 menuptr%=menup|
000007a0  74 72 25 2b 31 3a e7 20  6d 65 6e 75 70 74 72 25  |tr%+1:. menuptr%|
000007b0  3d 6d 61 78 25 2b 31 20  6d 65 6e 75 70 74 72 25  |=max%+1 menuptr%|
000007c0  3d 31 0d 03 fc 17 fd 20  6b 65 79 25 3d 31 33 20  |=1..... key%=13 |
000007d0  84 20 6b 65 79 25 3d 32  37 0d 04 06 0a 2a 46 58  |. key%=27....*FX|
000007e0  34 2c 30 0d 04 10 20 f2  63 77 69 6e 64 6f 77 28  |4,0... .cwindow(|
000007f0  77 78 25 2c 77 79 25 2c  6c 65 6e 2c 6d 61 78 25  |wx%,wy%,len,max%|
00000800  2b 32 29 0d 04 1a 0d 3d  6d 65 6e 75 70 74 72 25  |+2)....=menuptr%|
00000810  0d 04 24 05 3a 0d 04 2e  1a dd 20 f2 63 77 69 6e  |..$.:..... .cwin|
00000820  64 6f 77 28 78 2c 79 2c  6c 65 6e 2c 68 74 29 0d  |dow(x,y,len,ht).|
00000830  04 38 08 ef 20 32 36 0d  04 42 09 e6 20 30 2c 30  |.8.. 26..B.. 0,0|
00000840  0d 04 4c 18 f2 6f 77 69  6e 64 6f 77 28 78 2c 79  |..L..owindow(x,y|
00000850  2c 6c 65 6e 2c 68 74 29  0d 04 56 05 db 0d 04 60  |,len,ht)..V....`|
00000860  08 ef 20 32 36 0d 04 6a  09 e6 20 30 2c 31 0d 04  |.. 26..j.. 0,1..|
00000870  74 05 e1 0d 04 7e 05 3a  0d 04 88 1a dd 20 f2 6f  |t....~.:..... .o|
00000880  77 69 6e 64 6f 77 28 78  2c 79 2c 6c 65 6e 2c 68  |window(x,y,len,h|
00000890  74 29 0d 04 92 19 ef 20  32 38 2c 78 2c 79 2b 68  |t)..... 28,x,y+h|
000008a0  74 2c 78 2b 6c 65 6e 2d  31 2c 79 0d 04 9c 35 f2  |t,x+len-1,y...5.|
000008b0  72 65 63 74 28 78 2a 33  32 2d 38 2c 31 30 31 36  |rect(x*32-8,1016|
000008c0  2d 28 79 2b 68 74 29 2a  33 32 2c 6c 65 6e 2a 33  |-(y+ht)*32,len*3|
000008d0  32 2b 31 32 2c 68 74 2a  33 32 2b 31 32 2c 30 29  |2+12,ht*32+12,0)|
000008e0  0d 04 a6 32 f2 72 65 63  74 28 78 2a 33 32 2b 31  |...2.rect(x*32+1|
000008f0  36 2c 31 30 30 30 2d 28  79 2b 68 74 29 2a 33 32  |6,1000-(y+ht)*32|
00000900  2d 38 2c 6c 65 6e 2a 33  32 2b 31 36 2c 31 36 2c  |-8,len*32+16,16,|
00000910  31 29 0d 04 b0 34 f2 72  65 63 74 28 28 78 2b 6c  |1)...4.rect((x+l|
00000920  65 6e 29 2a 33 32 2b 31  36 2c 31 30 30 30 2d 28  |en)*32+16,1000-(|
00000930  79 2b 68 74 29 2a 33 32  2c 31 36 2c 68 74 2a 33  |y+ht)*32,16,ht*3|
00000940  32 2b 38 2c 31 29 0d 04  ba 05 e1 0d 04 c4 05 3a  |2+8,1).........:|
00000950  0d 04 ce 16 dd 20 f2 72  65 63 74 28 78 2c 79 2c  |..... .rect(x,y,|
00000960  6c 2c 77 2c 66 29 0d 04  d8 09 ec 20 78 2c 79 0d  |l,w,f)..... x,y.|
00000970  04 e2 0b df 20 78 2b 6c  2c 79 0d 04 ec 20 e7 20  |.... x+l,y... . |
00000980  66 3d 30 20 df 20 78 2b  6c 2c 79 2b 77 20 8b 20  |f=0 . x+l,y+w . |
00000990  f0 20 38 35 2c 78 2c 79  2b 77 0d 04 f6 20 e7 20  |. 85,x,y+w... . |
000009a0  66 3d 30 20 df 20 78 2c  79 2b 77 20 8b 20 f0 20  |f=0 . x,y+w . . |
000009b0  38 35 2c 78 2b 6c 2c 79  2b 77 0d 05 00 0b ec 20  |85,x+l,y+w..... |
000009c0  78 2c 79 2b 77 0d 05 0a  17 e7 20 66 3d 30 20 df  |x,y+w..... f=0 .|
000009d0  20 78 2c 79 20 8b 20 ec  20 78 2c 79 0d 05 14 05  | x,y . . x,y....|
000009e0  e1 0d 05 1e 05 3a 0d 05  28 0e dd f2 6f 70 65 6e  |.....:..(...open|
000009f0  66 69 6c 65 0d 05 32 08  54 25 3d b9 0d 05 3c 1a  |file..2.T%=...<.|
00000a00  6d 24 28 30 29 3d 22 46  69 6c 65 20 73 65 6c 65  |m$(0)="File sele|
00000a10  63 74 69 6f 6e 22 0d 05  46 11 6d 24 28 31 29 3d  |ction"..F.m$(1)=|
00000a20  22 49 6e 64 65 78 22 0d  05 50 0c e3 20 49 25 3d  |"Index"..P.. I%=|
00000a30  32 b8 34 0d 05 5a 15 6d  24 28 49 25 29 3d 70 24  |2.4..Z.m$(I%)=p$|
00000a40  2b c3 28 49 25 2d 31 29  0d 05 64 05 ed 0d 05 6e  |+.(I%-1)..d....n|
00000a50  0a 6d 61 78 25 3d 34 0d  05 78 0e 51 25 3d a4 6d  |.max%=4..x.Q%=.m|
00000a60  65 6e 75 2d 31 0d 05 82  05 e1 0d 05 8c 05 3a 0d  |enu-1.........:.|
00000a70  05 96 0b dd f2 64 72 69  76 65 0d 05 a0 0a 6d 61  |.....drive....ma|
00000a80  78 25 3d 34 0d 05 aa 20  6d 24 28 30 29 3d 22 44  |x%=4... m$(0)="D|
00000a90  61 74 61 20 64 72 69 76  65 20 73 65 6c 65 63 74  |ata drive select|
00000aa0  69 6f 6e 22 0d 05 b4 0c  e3 20 49 25 3d 30 b8 33  |ion"..... I%=0.3|
00000ab0  0d 05 be 1b 6d 24 28 49  25 2b 31 29 3d 22 44 72  |....m$(I%+1)="Dr|
00000ac0  69 76 65 20 22 2b c3 28  49 25 29 0d 05 c8 05 ed  |ive "+.(I%).....|
00000ad0  0d 05 d2 05 f5 0d 05 dc  0c 43 25 3d a4 6d 65 6e  |.........C%=.men|
00000ae0  75 0d 05 e6 0a fd 20 43  25 3c 35 0d 05 f0 32 e7  |u..... C%<5...2.|
00000af0  20 43 25 3c 35 20 24 26  43 31 30 3d 22 44 52 2e  | C%<5 $&C10="DR.|
00000b00  22 2b c3 28 43 25 2d 31  29 3a 58 25 3d 26 31 30  |"+.(C%-1):X%=&10|
00000b10  3a 59 25 3d 26 43 3a d6  26 46 46 46 37 0d 05 fa  |:Y%=&C:.&FFF7...|
00000b20  20 f2 63 77 69 6e 64 6f  77 28 77 78 25 2c 77 79  | .cwindow(wx%,wy|
00000b30  25 2c 6c 65 6e 2c 6d 61  78 25 2b 32 29 0d 06 04  |%,len,max%+2)...|
00000b40  05 e1 0d 06 0e 05 3a 0d  06 18 0b dd a4 64 72 69  |......:......dri|
00000b50  76 65 0d 06 22 0b 62 25  3d 26 43 31 30 0d 06 2c  |ve..".b%=&C10..,|
00000b60  0f 58 25 3d 62 25 20 83  20 32 35 36 0d 06 36 0f  |.X%=b% . 256..6.|
00000b70  59 25 3d 62 25 20 81 20  32 35 36 0d 06 40 08 41  |Y%=b% . 256..@.A|
00000b80  25 3d 36 0d 06 4a 0d e3  20 49 25 3d 30 b8 31 31  |%=6..J.. I%=0.11|
00000b90  0d 06 54 0b 62 25 3f 49  25 3d 30 0d 06 5e 05 ed  |..T.b%?I%=0..^..|
00000ba0  0d 06 68 0b 62 25 3f 32  3d 26 43 0d 06 72 0c 62  |..h.b%?2=&C..r.b|
00000bb0  25 3f 31 3d 26 31 30 0d  06 7c 0b 62 25 3f 31 32  |%?1=&10..|.b%?12|
00000bc0  3d 31 0d 06 86 0a d6 26  46 46 44 31 0d 06 90 0d  |=1.....&FFD1....|
00000bd0  3d 3f 26 43 31 31 2d 34  38 0d 06 9a 05 3a 0d 06  |=?&C11-48....:..|
00000be0  a4 0a dd f2 62 6f 6f 74  0d 06 ae 14 41 25 3d ad  |....boot....A%=.|
00000bf0  28 22 3a 30 2e 21 42 4f  4f 54 22 29 0d 06 b8 07  |(":0.!BOOT")....|
00000c00  d9 23 30 0d 06 c2 0f e7  20 41 25 3c 3e 30 20 8c  |.#0..... A%<>0 .|
00000c10  20 e1 0d 06 cc 60 f1 8a  30 2c 38 29 bd 31 33 31  | ....`..0,8).131|
00000c20  3b 22 54 68 65 72 65 20  69 73 20 6e 6f 20 21 42  |;"There is no !B|
00000c30  4f 4f 54 20 66 69 6c 65  2e 22 27 27 bd 31 33 31  |OOT file."''.131|
00000c40  3b 22 4f 6e 65 20 77 69  6c 6c 20 62 65 20 63 72  |;"One will be cr|
00000c50  65 61 74 65 64 20 66 6f  72 20 79 6f 75 2e 22 27  |eated for you."'|
00000c60  27 bd 31 33 31 3b 22 4f  4b 20 28 59 2f 4e 29 3f  |'.131;"OK (Y/N)?|
00000c70  22 3b 0d 06 d6 0e 41 25  3d a5 20 80 20 26 44 46  |";....A%=. . &DF|
00000c80  0d 06 e0 13 e7 20 41 25  3c 3e 38 39 20 8c 20 8d  |..... A%<>89 . .|
00000c90  44 58 47 0d 06 ea 0f f1  bd 31 33 31 3b 22 59 65  |DXG......131;"Ye|
00000ca0  73 22 0d 06 f4 05 f7 0d  06 fe 14 41 25 3d ae 28  |s".........A%=.(|
00000cb0  22 3a 30 2e 21 42 4f 4f  54 22 29 0d 07 08 05 f5  |":0.!BOOT").....|
00000cc0  0d 07 12 08 f3 20 49 25  0d 07 1c 13 e7 20 49 25  |..... I%..... I%|
00000cd0  3d 26 46 46 20 e5 20 8d  54 70 47 0d 07 26 0b d5  |=&FF . .TpG..&..|
00000ce0  23 41 25 2c 49 25 0d 07  30 0c fd 20 49 25 3d 26  |#A%,I%..0.. I%=&|
00000cf0  46 46 0d 07 3a 25 f1 8a  30 2c 31 35 29 bd 31 33  |FF..:%..0,15).13|
00000d00  30 3b 22 21 42 4f 4f 54  20 66 69 6c 65 20 63 72  |0;"!BOOT file cr|
00000d10  65 61 74 65 64 2e 22 0d  07 44 07 d9 23 30 0d 07  |eated."..D..#0..|
00000d20  4e 0b 2a 4f 50 54 34 2c  33 0d 07 58 05 e1 0d 07  |N.*OPT4,3..X....|
00000d30  62 05 3a 0d 07 6c 5a dc  20 34 32 2c 36 36 2c 34  |b.:..lZ. 42,66,4|
00000d40  36 2c 31 33 2c 38 30 2c  36 35 2c 34 36 2c 36 31  |6,13,80,65,46,61|
00000d50  2c 33 38 2c 34 39 2c 36  35 2c 34 38 2c 34 38 2c  |,38,49,65,48,48,|
00000d60  31 33 2c 36 37 2c 37 32  2c 34 36 2c 33 34 2c 35  |13,67,72,46,34,5|
00000d70  38 2c 34 38 2c 34 36 2c  37 37 2c 36 35 2c 37 33  |8,48,46,77,65,73|
00000d80  2c 37 38 2c 33 34 2c 31  33 2c 26 46 46 0d ff     |,78,34,13,&FF..|
00000d8f