� >!Analyse.!RunImage

HM%=�:�=�-1024
(4�Include$(1):Include$(0)="":Include$(1)="Kernel"
2.�Parameters$(1):Parameters$(1)="4000,0,16"
<��Info$(3):Info$(0)="Analyse":Info$(1)="ARCHWARE application":Info$(2)="copyright SIMTRON, 1990":Info$(3)="1.00 (Mon,30 Dec 1991)"
F;�Ovl$(1):Ovl$(0)="<Analyse$Dir>.ArchSys.Init":ȣ Ovl$()
P� WinHead_% 150
Z�init:�poll
d�
n
x#---\/---\/---(BUTTON FUNCTIONS)
�ݤmainW_:=�
�
�---\/---('' window)
�ݤdummy_:=�
�
�---\/---('' menu)
�
�
�---\/---\/---(MENUS)
�ݤm_:=�
�
�ݤsm_:=�
�


ݤsma_:=�



---\/---\/---(WINDOWS)

"ݤw_:=�

,

6---\/---\/---(BACKGROUND)

@ݤb_:=�

J

T ---\/---\/---(EVENT HANDLER)

^ݤe_:=�

h

r---\/---\/---(KEYS)

|ݤpK_:=�

�

�---\/---\/---(MESSAGES)

�ݤh_:Ȏ$wn%�

�F�"EditIt":="This is the main window of the 'Analyse' application."

��

�Q�!h%=-2�="This is the 'Analyse' icon.|MClick SELECT to open the main window."

�=""

�

�ݤrM_:=�

�

�ݤrB_:=�

�

�---\/---\/---(ȗ BUTTONS)
ݤpB_:=�

---\/---\/---(SUB-ROUTINES)
&� �string(ptr_%)
0� S$:S$=""
:ȕ ?ptr_%:S$+=�(?ptr_%)
Dptr_%+=1:�:=S$
N
X��Process_(Z_$)
bFile_% = �OpenFile_(Z_$)
l+$WinHead_% = "Record layout for " + Z_$
v%ș "Wimp_CommandWindow",WinHead_%
��
�:  VarType_% = �Type_:Corrupt_% = �TypeDesc_(VarType_%)
�,  � � Corrupt_% � �ReadValue_(VarType_%)
�� (�#File_%) � (Corrupt_%)
�ș "Wimp_CommandWindow",0
��#File_%
��
�:
�ݤOpenFile_(Y_$):� A_%
�A_% = �(File_$)
�=A_%
�:
�ݤType_:=�#File_%
:
(ݤTypeDesc_(Z_%):� A_$:� A_%:A_% = �
$� Z_% = &00 � � "STRING":A_% = �
 %� Z_% = &40 � � "INTEGER":A_% = �
*,� Z_% = &80 � � "FLOATING POINT":A_% = �
43� A_% � � "File Corrupt at byte " + �(�#File_%)
>=A_%
H:
R"��ReadValue_(Z_%):� A_$,A_%,A_
\�#File_% = �#File_% -1
f� "  Value = ";
p$� Z_% = &00 � �#File_%,A_$:� A_$
z$� Z_% = &40 � �#File_%,A_%:� A_%
�"� Z_% = &80 � �#File_%,A_:� A_
��
��
�%---\/---\/---(OVER-RIDE ROUTINES)
���rM
�	� Z_%
�ȎQ%!16�
�� 3
�File_$ = �string(Q%+44)
�FileType_% = !(Q%+40)
�� FileType_% <> &FFD �
�Q  Z_$ = �alert("You can only look at data files (type &FFD)","","Ok","","",0)
��
  �Process_(File_$)
�
�
$�
.
8"---\/---\/---(DEBUG AIDS, ETC)
B� PROCbrkPnt("Debug",1)
L� PROCbeep:PROCpause(100)
V
`---\/---\/---(INITIALISE)
jݤi_(A$,B%):�A%,C$
t
~�---\/---(Init constants)
�
��---\/---(Init variables)
�
� �---\/---(Install resources)
��iRes(A$,B%)
�
��---\/---(Init menus)
�
��---\/---(Init misc)
�
�=�
�
=��rM_OLD:!c%=�:!t0%=Q%!4:!r0%=Q%!8:!a0%=Q%!16:Ȏ!a0%��63�

�&500:Ȏ!a0%�63�
�2:�Help%�
0!h%=Q%!32:W%=�wS(!h%):�W%>0�$wn%=$W%�$wn%=""
(�!i%=Q%!36:Z$=��("FNh"+z$),235):�Z$<>""�!Q%=256:Q%!12=!r0%:Q%!16=&503:$(Q%+20)=Z$:?(Q%+20+�Z$)=0:ș&400E7,17,Q%,!t0%:!r%=Q%!8
2�
<�
F�&80D00:!c%=!a0%�63:Ȏ!a0%�
P
:Z%=�rM_
Z�
d�&400C0:Ȏ!a0%�63�
n(�0:!x0%=Q%!24:!y0%=Q%!28:�dM1(Q%+32)
x�1:R%=259:�e_ �cM
�
:Z%=�rM_
��
��0:Ȏ!a0%�
�
�0:�fin:�
�-�1,2,3,4,5:!f0%=Q%!40:�vFt �rM_ Z%=�dtM
��6,7:�rM_ Z%=�dtM
��8:�S%!192=0�S%!192=�
�Z%=�quit
�!�9:�rM_ �S%!176�(1<<7)��cP_g
�
:Z%=�rM_
��
��&80140:Ȏ!a0%�63�
�,�0,1,4,5:!f0%=Q%!40:�vFt �rM_ Z%=�ptrM

:Z%=�rM_
�

:Z%=�rM_
"�:�
,:
6� �receive_mess(block%)
@Ȏ (block%!16) �
J� 3:
T%$(File_Ptr%) = �string(block%+44)
^,� select% <> 0 � �Close_Win(select%) : �
h�Create_Window(1)
r$�Check_File_Type(&FFB,File_Ptr%)
|� File_Valid% �
�   �Open_Window(select%)
��
��
��
�:
�

00000000  0d 00 0a 19 f4 20 3e 21  41 6e 61 6c 79 73 65 2e  |..... >!Analyse.|
00000010  21 52 75 6e 49 6d 61 67  65 0d 00 14 04 0d 00 1e  |!RunImage.......|
00000020  12 48 4d 25 3d 93 3a d3  3d 93 2d 31 30 32 34 0d  |.HM%=.:.=.-1024.|
00000030  00 28 34 de 49 6e 63 6c  75 64 65 24 28 31 29 3a  |.(4.Include$(1):|
00000040  49 6e 63 6c 75 64 65 24  28 30 29 3d 22 22 3a 49  |Include$(0)="":I|
00000050  6e 63 6c 75 64 65 24 28  31 29 3d 22 4b 65 72 6e  |nclude$(1)="Kern|
00000060  65 6c 22 0d 00 32 2e de  50 61 72 61 6d 65 74 65  |el"..2..Paramete|
00000070  72 73 24 28 31 29 3a 50  61 72 61 6d 65 74 65 72  |rs$(1):Parameter|
00000080  73 24 28 31 29 3d 22 34  30 30 30 2c 30 2c 31 36  |s$(1)="4000,0,16|
00000090  22 0d 00 3c 85 de 49 6e  66 6f 24 28 33 29 3a 49  |"..<..Info$(3):I|
000000a0  6e 66 6f 24 28 30 29 3d  22 41 6e 61 6c 79 73 65  |nfo$(0)="Analyse|
000000b0  22 3a 49 6e 66 6f 24 28  31 29 3d 22 41 52 43 48  |":Info$(1)="ARCH|
000000c0  57 41 52 45 20 61 70 70  6c 69 63 61 74 69 6f 6e  |WARE application|
000000d0  22 3a 49 6e 66 6f 24 28  32 29 3d 22 63 6f 70 79  |":Info$(2)="copy|
000000e0  72 69 67 68 74 20 53 49  4d 54 52 4f 4e 2c 20 31  |right SIMTRON, 1|
000000f0  39 39 30 22 3a 49 6e 66  6f 24 28 33 29 3d 22 31  |990":Info$(3)="1|
00000100  2e 30 30 20 28 4d 6f 6e  2c 33 30 20 44 65 63 20  |.00 (Mon,30 Dec |
00000110  31 39 39 31 29 22 0d 00  46 3b de 4f 76 6c 24 28  |1991)"..F;.Ovl$(|
00000120  31 29 3a 4f 76 6c 24 28  30 29 3d 22 3c 41 6e 61  |1):Ovl$(0)="<Ana|
00000130  6c 79 73 65 24 44 69 72  3e 2e 41 72 63 68 53 79  |lyse$Dir>.ArchSy|
00000140  73 2e 49 6e 69 74 22 3a  c8 a3 20 4f 76 6c 24 28  |s.Init":.. Ovl$(|
00000150  29 0d 00 50 13 de 20 57  69 6e 48 65 61 64 5f 25  |)..P.. WinHead_%|
00000160  20 31 35 30 0d 00 5a 0f  f2 69 6e 69 74 3a f2 70  | 150..Z..init:.p|
00000170  6f 6c 6c 0d 00 64 05 e0  0d 00 6e 04 0d 00 78 23  |oll..d....n...x#|
00000180  2d 2d 2d 5c 2f 2d 2d 2d  5c 2f 2d 2d 2d 28 42 55  |---\/---\/---(BU|
00000190  54 54 4f 4e 20 46 55 4e  43 54 49 4f 4e 53 29 0d  |TTON FUNCTIONS).|
000001a0  00 82 0f dd a4 6d 61 69  6e 57 5f 3a 3d b9 0d 00  |.....mainW_:=...|
000001b0  8c 04 0d 00 96 17 2d 2d  2d 5c 2f 2d 2d 2d 28 27  |......---\/---('|
000001c0  27 20 77 69 6e 64 6f 77  29 0d 00 a0 0f dd a4 64  |' window)......d|
000001d0  75 6d 6d 79 5f 3a 3d b9  0d 00 aa 04 0d 00 b4 15  |ummy_:=.........|
000001e0  2d 2d 2d 5c 2f 2d 2d 2d  28 27 27 20 6d 65 6e 75  |---\/---('' menu|
000001f0  29 0d 00 be 04 0d 00 c8  04 0d 00 d2 18 2d 2d 2d  |)............---|
00000200  5c 2f 2d 2d 2d 5c 2f 2d  2d 2d 28 4d 45 4e 55 53  |\/---\/---(MENUS|
00000210  29 0d 00 dc 0b dd a4 6d  5f 3a 3d b9 0d 00 e6 04  |)......m_:=.....|
00000220  0d 00 f0 0c dd a4 73 6d  5f 3a 3d b9 0d 00 fa 04  |......sm_:=.....|
00000230  0d 01 04 0d dd a4 73 6d  61 5f 3a 3d a3 0d 01 0e  |......sma_:=....|
00000240  04 0d 01 18 1a 2d 2d 2d  5c 2f 2d 2d 2d 5c 2f 2d  |.....---\/---\/-|
00000250  2d 2d 28 57 49 4e 44 4f  57 53 29 0d 01 22 0b dd  |--(WINDOWS).."..|
00000260  a4 77 5f 3a 3d b9 0d 01  2c 04 0d 01 36 1d 2d 2d  |.w_:=...,...6.--|
00000270  2d 5c 2f 2d 2d 2d 5c 2f  2d 2d 2d 28 42 41 43 4b  |-\/---\/---(BACK|
00000280  47 52 4f 55 4e 44 29 0d  01 40 0b dd a4 62 5f 3a  |GROUND)..@...b_:|
00000290  3d b9 0d 01 4a 04 0d 01  54 20 2d 2d 2d 5c 2f 2d  |=...J...T ---\/-|
000002a0  2d 2d 5c 2f 2d 2d 2d 28  45 56 45 4e 54 20 48 41  |--\/---(EVENT HA|
000002b0  4e 44 4c 45 52 29 0d 01  5e 0b dd a4 65 5f 3a 3d  |NDLER)..^...e_:=|
000002c0  b9 0d 01 68 04 0d 01 72  17 2d 2d 2d 5c 2f 2d 2d  |...h...r.---\/--|
000002d0  2d 5c 2f 2d 2d 2d 28 4b  45 59 53 29 0d 01 7c 0c  |-\/---(KEYS)..|.|
000002e0  dd a4 70 4b 5f 3a 3d a3  0d 01 86 04 0d 01 90 1b  |..pK_:=.........|
000002f0  2d 2d 2d 5c 2f 2d 2d 2d  5c 2f 2d 2d 2d 28 4d 45  |---\/---\/---(ME|
00000300  53 53 41 47 45 53 29 0d  01 9a 10 dd a4 68 5f 3a  |SSAGES)......h_:|
00000310  c8 8e 24 77 6e 25 ca 0d  01 a4 46 c9 22 45 64 69  |..$wn%....F."Edi|
00000320  74 49 74 22 3a 3d 22 54  68 69 73 20 69 73 20 74  |tIt":="This is t|
00000330  68 65 20 6d 61 69 6e 20  77 69 6e 64 6f 77 20 6f  |he main window o|
00000340  66 20 74 68 65 20 27 41  6e 61 6c 79 73 65 27 20  |f the 'Analyse' |
00000350  61 70 70 6c 69 63 61 74  69 6f 6e 2e 22 0d 01 ae  |application."...|
00000360  05 cb 0d 01 b8 51 e7 21  68 25 3d 2d 32 8c 3d 22  |.....Q.!h%=-2.="|
00000370  54 68 69 73 20 69 73 20  74 68 65 20 27 41 6e 61  |This is the 'Ana|
00000380  6c 79 73 65 27 20 69 63  6f 6e 2e 7c 4d 43 6c 69  |lyse' icon.|MCli|
00000390  63 6b 20 53 45 4c 45 43  54 20 74 6f 20 6f 70 65  |ck SELECT to ope|
000003a0  6e 20 74 68 65 20 6d 61  69 6e 20 77 69 6e 64 6f  |n the main windo|
000003b0  77 2e 22 0d 01 c2 07 3d  22 22 0d 01 cc 04 0d 01  |w."....=""......|
000003c0  d6 0c dd a4 72 4d 5f 3a  3d b9 0d 01 e0 04 0d 01  |....rM_:=.......|
000003d0  ea 0c dd a4 72 42 5f 3a  3d b9 0d 01 f4 04 0d 01  |....rB_:=.......|
000003e0  fe 1d 2d 2d 2d 5c 2f 2d  2d 2d 5c 2f 2d 2d 2d 28  |..---\/---\/---(|
000003f0  c8 97 20 42 55 54 54 4f  4e 53 29 0d 02 08 0c dd  |.. BUTTONS).....|
00000400  a4 70 42 5f 3a 3d b9 0d  02 12 04 0d 02 1c 1f 2d  |.pB_:=.........-|
00000410  2d 2d 5c 2f 2d 2d 2d 5c  2f 2d 2d 2d 28 53 55 42  |--\/---\/---(SUB|
00000420  2d 52 4f 55 54 49 4e 45  53 29 0d 02 26 14 dd 20  |-ROUTINES)..&.. |
00000430  a4 73 74 72 69 6e 67 28  70 74 72 5f 25 29 0d 02  |.string(ptr_%)..|
00000440  30 0e ea 20 53 24 3a 53  24 3d 22 22 0d 02 3a 1b  |0.. S$:S$=""..:.|
00000450  c8 95 20 3f 70 74 72 5f  25 3a 53 24 2b 3d bd 28  |.. ?ptr_%:S$+=.(|
00000460  3f 70 74 72 5f 25 29 0d  02 44 12 70 74 72 5f 25  |?ptr_%)..D.ptr_%|
00000470  2b 3d 31 3a ce 3a 3d 53  24 0d 02 4e 04 0d 02 58  |+=1:.:=S$..N...X|
00000480  13 dd f2 50 72 6f 63 65  73 73 5f 28 5a 5f 24 29  |...Process_(Z_$)|
00000490  0d 02 62 1c 46 69 6c 65  5f 25 20 3d 20 a4 4f 70  |..b.File_% = .Op|
000004a0  65 6e 46 69 6c 65 5f 28  5a 5f 24 29 0d 02 6c 2b  |enFile_(Z_$)..l+|
000004b0  24 57 69 6e 48 65 61 64  5f 25 20 3d 20 22 52 65  |$WinHead_% = "Re|
000004c0  63 6f 72 64 20 6c 61 79  6f 75 74 20 66 6f 72 20  |cord layout for |
000004d0  22 20 2b 20 5a 5f 24 0d  02 76 25 c8 99 20 22 57  |" + Z_$..v%.. "W|
000004e0  69 6d 70 5f 43 6f 6d 6d  61 6e 64 57 69 6e 64 6f  |imp_CommandWindo|
000004f0  77 22 2c 57 69 6e 48 65  61 64 5f 25 0d 02 80 05  |w",WinHead_%....|
00000500  f5 0d 02 8a 3a 20 20 56  61 72 54 79 70 65 5f 25  |....:  VarType_%|
00000510  20 3d 20 a4 54 79 70 65  5f 3a 43 6f 72 72 75 70  | = .Type_:Corrup|
00000520  74 5f 25 20 3d 20 a4 54  79 70 65 44 65 73 63 5f  |t_% = .TypeDesc_|
00000530  28 56 61 72 54 79 70 65  5f 25 29 0d 02 94 2c 20  |(VarType_%)..., |
00000540  20 e7 20 ac 20 43 6f 72  72 75 70 74 5f 25 20 8c  | . . Corrupt_% .|
00000550  20 f2 52 65 61 64 56 61  6c 75 65 5f 28 56 61 72  | .ReadValue_(Var|
00000560  54 79 70 65 5f 25 29 0d  02 9e 1e fd 20 28 c5 23  |Type_%)..... (.#|
00000570  46 69 6c 65 5f 25 29 20  84 20 28 43 6f 72 72 75  |File_%) . (Corru|
00000580  70 74 5f 25 29 0d 02 a8  1d c8 99 20 22 57 69 6d  |pt_%)...... "Wim|
00000590  70 5f 43 6f 6d 6d 61 6e  64 57 69 6e 64 6f 77 22  |p_CommandWindow"|
000005a0  2c 30 0d 02 b2 0c d9 23  46 69 6c 65 5f 25 0d 02  |,0.....#File_%..|
000005b0  bc 05 e1 0d 02 c6 05 3a  0d 02 d0 1a dd a4 4f 70  |.......:......Op|
000005c0  65 6e 46 69 6c 65 5f 28  59 5f 24 29 3a ea 20 41  |enFile_(Y_$):. A|
000005d0  5f 25 0d 02 da 13 41 5f  25 20 3d 20 8e 28 46 69  |_%....A_% = .(Fi|
000005e0  6c 65 5f 24 29 0d 02 e4  08 3d 41 5f 25 0d 02 ee  |le_$)....=A_%...|
000005f0  05 3a 0d 02 f8 15 dd a4  54 79 70 65 5f 3a 3d 9a  |.:......Type_:=.|
00000600  23 46 69 6c 65 5f 25 0d  03 02 05 3a 0d 03 0c 28  |#File_%....:...(|
00000610  dd a4 54 79 70 65 44 65  73 63 5f 28 5a 5f 25 29  |..TypeDesc_(Z_%)|
00000620  3a ea 20 41 5f 24 3a ea  20 41 5f 25 3a 41 5f 25  |:. A_$:. A_%:A_%|
00000630  20 3d 20 b9 0d 03 16 24  e7 20 5a 5f 25 20 3d 20  | = ....$. Z_% = |
00000640  26 30 30 20 8c 20 f1 20  22 53 54 52 49 4e 47 22  |&00 . . "STRING"|
00000650  3a 41 5f 25 20 3d 20 a3  0d 03 20 25 e7 20 5a 5f  |:A_% = ... %. Z_|
00000660  25 20 3d 20 26 34 30 20  8c 20 f1 20 22 49 4e 54  |% = &40 . . "INT|
00000670  45 47 45 52 22 3a 41 5f  25 20 3d 20 a3 0d 03 2a  |EGER":A_% = ...*|
00000680  2c e7 20 5a 5f 25 20 3d  20 26 38 30 20 8c 20 f1  |,. Z_% = &80 . .|
00000690  20 22 46 4c 4f 41 54 49  4e 47 20 50 4f 49 4e 54  | "FLOATING POINT|
000006a0  22 3a 41 5f 25 20 3d 20  a3 0d 03 34 33 e7 20 41  |":A_% = ...43. A|
000006b0  5f 25 20 8c 20 f1 20 22  46 69 6c 65 20 43 6f 72  |_% . . "File Cor|
000006c0  72 75 70 74 20 61 74 20  62 79 74 65 20 22 20 2b  |rupt at byte " +|
000006d0  20 c3 28 8f 23 46 69 6c  65 5f 25 29 0d 03 3e 08  | .(.#File_%)..>.|
000006e0  3d 41 5f 25 0d 03 48 05  3a 0d 03 52 22 dd f2 52  |=A_%..H.:..R"..R|
000006f0  65 61 64 56 61 6c 75 65  5f 28 5a 5f 25 29 3a ea  |eadValue_(Z_%):.|
00000700  20 41 5f 24 2c 41 5f 25  2c 41 5f 0d 03 5c 1a cf  | A_$,A_%,A_..\..|
00000710  23 46 69 6c 65 5f 25 20  3d 20 8f 23 46 69 6c 65  |#File_% = .#File|
00000720  5f 25 20 2d 31 0d 03 66  13 f1 20 22 20 20 56 61  |_% -1..f.. "  Va|
00000730  6c 75 65 20 3d 20 22 3b  0d 03 70 24 e7 20 5a 5f  |lue = ";..p$. Z_|
00000740  25 20 3d 20 26 30 30 20  8c 20 e8 23 46 69 6c 65  |% = &00 . .#File|
00000750  5f 25 2c 41 5f 24 3a f1  20 41 5f 24 0d 03 7a 24  |_%,A_$:. A_$..z$|
00000760  e7 20 5a 5f 25 20 3d 20  26 34 30 20 8c 20 e8 23  |. Z_% = &40 . .#|
00000770  46 69 6c 65 5f 25 2c 41  5f 25 3a f1 20 41 5f 25  |File_%,A_%:. A_%|
00000780  0d 03 84 22 e7 20 5a 5f  25 20 3d 20 26 38 30 20  |...". Z_% = &80 |
00000790  8c 20 e8 23 46 69 6c 65  5f 25 2c 41 5f 3a f1 20  |. .#File_%,A_:. |
000007a0  41 5f 0d 03 8e 05 f1 0d  03 98 05 e1 0d 03 a2 25  |A_.............%|
000007b0  2d 2d 2d 5c 2f 2d 2d 2d  5c 2f 2d 2d 2d 28 4f 56  |---\/---\/---(OV|
000007c0  45 52 2d 52 49 44 45 20  52 4f 55 54 49 4e 45 53  |ER-RIDE ROUTINES|
000007d0  29 0d 03 ac 08 dd f2 72  4d 0d 03 b6 09 ea 20 5a  |)......rM..... Z|
000007e0  5f 25 0d 03 c0 0c c8 8e  51 25 21 31 36 ca 0d 03  |_%......Q%!16...|
000007f0  ca 07 c9 20 33 0d 03 d4  1b 46 69 6c 65 5f 24 20  |... 3....File_$ |
00000800  3d 20 a4 73 74 72 69 6e  67 28 51 25 2b 34 34 29  |= .string(Q%+44)|
00000810  0d 03 de 19 46 69 6c 65  54 79 70 65 5f 25 20 3d  |....FileType_% =|
00000820  20 21 28 51 25 2b 34 30  29 0d 03 e8 1a e7 20 46  | !(Q%+40)..... F|
00000830  69 6c 65 54 79 70 65 5f  25 20 3c 3e 20 26 46 46  |ileType_% <> &FF|
00000840  44 20 8c 0d 03 f2 51 20  20 5a 5f 24 20 3d 20 a4  |D ....Q  Z_$ = .|
00000850  61 6c 65 72 74 28 22 59  6f 75 20 63 61 6e 20 6f  |alert("You can o|
00000860  6e 6c 79 20 6c 6f 6f 6b  20 61 74 20 64 61 74 61  |nly look at data|
00000870  20 66 69 6c 65 73 20 28  74 79 70 65 20 26 46 46  | files (type &FF|
00000880  44 29 22 2c 22 22 2c 22  4f 6b 22 2c 22 22 2c 22  |D)","","Ok","","|
00000890  22 2c 30 29 0d 03 fc 05  cc 0d 04 06 17 20 20 f2  |",0).........  .|
000008a0  50 72 6f 63 65 73 73 5f  28 46 69 6c 65 5f 24 29  |Process_(File_$)|
000008b0  0d 04 10 05 cd 0d 04 1a  05 cb 0d 04 24 05 e1 0d  |............$...|
000008c0  04 2e 04 0d 04 38 22 2d  2d 2d 5c 2f 2d 2d 2d 5c  |.....8"---\/---\|
000008d0  2f 2d 2d 2d 28 44 45 42  55 47 20 41 49 44 53 2c  |/---(DEBUG AIDS,|
000008e0  20 45 54 43 29 0d 04 42  1b f4 20 50 52 4f 43 62  | ETC)..B.. PROCb|
000008f0  72 6b 50 6e 74 28 22 44  65 62 75 67 22 2c 31 29  |rkPnt("Debug",1)|
00000900  0d 04 4c 1d f4 20 50 52  4f 43 62 65 65 70 3a 50  |..L.. PROCbeep:P|
00000910  52 4f 43 70 61 75 73 65  28 31 30 30 29 0d 04 56  |ROCpause(100)..V|
00000920  04 0d 04 60 1d 2d 2d 2d  5c 2f 2d 2d 2d 5c 2f 2d  |...`.---\/---\/-|
00000930  2d 2d 28 49 4e 49 54 49  41 4c 49 53 45 29 0d 04  |--(INITIALISE)..|
00000940  6a 16 dd a4 69 5f 28 41  24 2c 42 25 29 3a ea 41  |j...i_(A$,B%):.A|
00000950  25 2c 43 24 0d 04 74 04  0d 04 7e 1d f4 2d 2d 2d  |%,C$..t...~..---|
00000960  5c 2f 2d 2d 2d 28 49 6e  69 74 20 63 6f 6e 73 74  |\/---(Init const|
00000970  61 6e 74 73 29 0d 04 88  04 0d 04 92 1d f4 2d 2d  |ants).........--|
00000980  2d 5c 2f 2d 2d 2d 28 49  6e 69 74 20 76 61 72 69  |-\/---(Init vari|
00000990  61 62 6c 65 73 29 0d 04  9c 04 0d 04 a6 20 f4 2d  |ables)....... .-|
000009a0  2d 2d 5c 2f 2d 2d 2d 28  49 6e 73 74 61 6c 6c 20  |--\/---(Install |
000009b0  72 65 73 6f 75 72 63 65  73 29 0d 04 b0 10 f2 69  |resources).....i|
000009c0  52 65 73 28 41 24 2c 42  25 29 0d 04 ba 04 0d 04  |Res(A$,B%)......|
000009d0  c4 19 f4 2d 2d 2d 5c 2f  2d 2d 2d 28 49 6e 69 74  |...---\/---(Init|
000009e0  20 6d 65 6e 75 73 29 0d  04 ce 04 0d 04 d8 18 f4  | menus).........|
000009f0  2d 2d 2d 5c 2f 2d 2d 2d  28 49 6e 69 74 20 6d 69  |---\/---(Init mi|
00000a00  73 63 29 0d 04 e2 04 0d  04 ec 06 3d b9 0d 04 f6  |sc)........=....|
00000a10  04 0d 05 00 3d dd f2 72  4d 5f 4f 4c 44 3a 21 63  |....=..rM_OLD:!c|
00000a20  25 3d b9 3a 21 74 30 25  3d 51 25 21 34 3a 21 72  |%=.:!t0%=Q%!4:!r|
00000a30  30 25 3d 51 25 21 38 3a  21 61 30 25 3d 51 25 21  |0%=Q%!8:!a0%=Q%!|
00000a40  31 36 3a c8 8e 21 61 30  25 80 ac 36 33 ca 0d 05  |16:..!a0%..63...|
00000a50  0a 14 c9 26 35 30 30 3a  c8 8e 21 61 30 25 80 36  |...&500:..!a0%.6|
00000a60  33 ca 0d 05 14 0e c9 32  3a e7 48 65 6c 70 25 8c  |3......2:.Help%.|
00000a70  0d 05 1e 30 21 68 25 3d  51 25 21 33 32 3a 57 25  |...0!h%=Q%!32:W%|
00000a80  3d a4 77 53 28 21 68 25  29 3a e7 57 25 3e 30 8c  |=.wS(!h%):.W%>0.|
00000a90  24 77 6e 25 3d 24 57 25  8b 24 77 6e 25 3d 22 22  |$wn%=$W%.$wn%=""|
00000aa0  0d 05 28 80 21 69 25 3d  51 25 21 33 36 3a 5a 24  |..(.!i%=Q%!36:Z$|
00000ab0  3d c0 a0 28 22 46 4e 68  22 2b 7a 24 29 2c 32 33  |=..("FNh"+z$),23|
00000ac0  35 29 3a e7 5a 24 3c 3e  22 22 8c 21 51 25 3d 32  |5):.Z$<>"".!Q%=2|
00000ad0  35 36 3a 51 25 21 31 32  3d 21 72 30 25 3a 51 25  |56:Q%!12=!r0%:Q%|
00000ae0  21 31 36 3d 26 35 30 33  3a 24 28 51 25 2b 32 30  |!16=&503:$(Q%+20|
00000af0  29 3d 5a 24 3a 3f 28 51  25 2b 32 30 2b a9 5a 24  |)=Z$:?(Q%+20+.Z$|
00000b00  29 3d 30 3a c8 99 26 34  30 30 45 37 2c 31 37 2c  |)=0:..&400E7,17,|
00000b10  51 25 2c 21 74 30 25 3a  21 72 25 3d 51 25 21 38  |Q%,!t0%:!r%=Q%!8|
00000b20  0d 05 32 05 cd 0d 05 3c  05 cb 0d 05 46 1f c9 26  |..2....<....F..&|
00000b30  38 30 44 30 30 3a 21 63  25 3d 21 61 30 25 80 36  |80D00:!c%=!a0%.6|
00000b40  33 3a c8 8e 21 61 30 25  ca 0d 05 50 0d 7f 3a 5a  |3:..!a0%...P..:Z|
00000b50  25 3d a4 72 4d 5f 0d 05  5a 05 cb 0d 05 64 16 c9  |%=.rM_..Z....d..|
00000b60  26 34 30 30 43 30 3a c8  8e 21 61 30 25 80 36 33  |&400C0:..!a0%.63|
00000b70  ca 0d 05 6e 28 c9 30 3a  21 78 30 25 3d 51 25 21  |...n(.0:!x0%=Q%!|
00000b80  32 34 3a 21 79 30 25 3d  51 25 21 32 38 3a f2 64  |24:!y0%=Q%!28:.d|
00000b90  4d 31 28 51 25 2b 33 32  29 0d 05 78 16 c9 31 3a  |M1(Q%+32)..x..1:|
00000ba0  52 25 3d 32 35 39 3a e7  a4 65 5f 20 f2 63 4d 0d  |R%=259:..e_ .cM.|
00000bb0  05 82 0d 7f 3a 5a 25 3d  a4 72 4d 5f 0d 05 8c 05  |....:Z%=.rM_....|
00000bc0  cb 0d 05 96 0e c9 30 3a  c8 8e 21 61 30 25 ca 0d  |......0:..!a0%..|
00000bd0  05 a0 0d c9 30 3a f2 66  69 6e 3a e0 0d 05 aa 2d  |....0:.fin:....-|
00000be0  c9 31 2c 32 2c 33 2c 34  2c 35 3a 21 66 30 25 3d  |.1,2,3,4,5:!f0%=|
00000bf0  51 25 21 34 30 3a e7 a4  76 46 74 20 e7 a4 72 4d  |Q%!40:..vFt ..rM|
00000c00  5f 20 5a 25 3d a4 64 74  4d 0d 05 b4 16 c9 36 2c  |_ Z%=.dtM.....6,|
00000c10  37 3a e7 a4 72 4d 5f 20  5a 25 3d a4 64 74 4d 0d  |7:..rM_ Z%=.dtM.|
00000c20  05 be 19 c9 38 3a e7 53  25 21 31 39 32 3d 30 8c  |....8:.S%!192=0.|
00000c30  53 25 21 31 39 32 3d b9  0d 05 c8 0c 5a 25 3d a4  |S%!192=.....Z%=.|
00000c40  71 75 69 74 0d 05 d2 21  c9 39 3a e7 a4 72 4d 5f  |quit...!.9:..rM_|
00000c50  20 e7 53 25 21 31 37 36  80 28 31 3c 3c 37 29 8c  | .S%!176.(1<<7).|
00000c60  f2 63 50 5f 67 0d 05 dc  0d 7f 3a 5a 25 3d a4 72  |.cP_g.....:Z%=.r|
00000c70  4d 5f 0d 05 e6 05 cb 0d  05 f0 16 c9 26 38 30 31  |M_..........&801|
00000c80  34 30 3a c8 8e 21 61 30  25 80 36 33 ca 0d 05 fa  |40:..!a0%.63....|
00000c90  2c c9 30 2c 31 2c 34 2c  35 3a 21 66 30 25 3d 51  |,.0,1,4,5:!f0%=Q|
00000ca0  25 21 34 30 3a e7 a4 76  46 74 20 e7 a4 72 4d 5f  |%!40:..vFt ..rM_|
00000cb0  20 5a 25 3d a4 70 74 72  4d 0d 06 04 0d 7f 3a 5a  | Z%=.ptrM.....:Z|
00000cc0  25 3d a4 72 4d 5f 0d 06  0e 05 cb 0d 06 18 0d 7f  |%=.rM_..........|
00000cd0  3a 5a 25 3d a4 72 4d 5f  0d 06 22 07 cb 3a e1 0d  |:Z%=.rM_.."..:..|
00000ce0  06 2c 05 3a 0d 06 36 1b  dd 20 f2 72 65 63 65 69  |.,.:..6.. .recei|
00000cf0  76 65 5f 6d 65 73 73 28  62 6c 6f 63 6b 25 29 0d  |ve_mess(block%).|
00000d00  06 40 14 c8 8e 20 28 62  6c 6f 63 6b 25 21 31 36  |.@... (block%!16|
00000d10  29 20 ca 0d 06 4a 08 c9  20 33 3a 0d 06 54 25 24  |) ...J.. 3:..T%$|
00000d20  28 46 69 6c 65 5f 50 74  72 25 29 20 3d 20 a4 73  |(File_Ptr%) = .s|
00000d30  74 72 69 6e 67 28 62 6c  6f 63 6b 25 2b 34 34 29  |tring(block%+44)|
00000d40  0d 06 5e 2c e7 20 73 65  6c 65 63 74 25 20 3c 3e  |..^,. select% <>|
00000d50  20 30 20 8c 20 f2 43 6c  6f 73 65 5f 57 69 6e 28  | 0 . .Close_Win(|
00000d60  73 65 6c 65 63 74 25 29  20 3a 20 cd 0d 06 68 15  |select%) : ...h.|
00000d70  f2 43 72 65 61 74 65 5f  57 69 6e 64 6f 77 28 31  |.Create_Window(1|
00000d80  29 0d 06 72 24 f2 43 68  65 63 6b 5f 46 69 6c 65  |)..r$.Check_File|
00000d90  5f 54 79 70 65 28 26 46  46 42 2c 46 69 6c 65 5f  |_Type(&FFB,File_|
00000da0  50 74 72 25 29 0d 06 7c  13 e7 20 46 69 6c 65 5f  |Ptr%)..|.. File_|
00000db0  56 61 6c 69 64 25 20 8c  0d 06 86 1c 20 20 20 f2  |Valid% .....   .|
00000dc0  4f 70 65 6e 5f 57 69 6e  64 6f 77 28 73 65 6c 65  |Open_Window(sele|
00000dd0  63 74 25 29 0d 06 90 05  cd 0d 06 9a 05 cb 0d 06  |ct%)............|
00000de0  a4 05 e1 0d 06 ae 05 3a  0d ff                    |.......:..|
00000dea