� >$.!Safe.!RunImage
 � File encoder/decoder V1.40
#� � Mike Ironmonger, April 1991
(:
2%� � �error(�,�$+" at line "+Þ):�
<�initialise
F� � �error(�,�$)
P:
Z�
d$ș "Wimp_Poll",&1833,block% � R%
nȎ R% �
x' � 2 : ș "Wimp_OpenWindow",,block%
� � 3 : �close_window
�6 � 6 : �button_click(block%!8,block%!12,block%!16)
� � 7 : �drag_done
�  � 8 : �key_press(block%!24)
� � 9 : quit%=(!block%=1)
�" � 17,18 : �message(block%!16)
� � 19 : �no_acknowledge
��
�� quit%
�ș "Wimp_CloseDown"
��
�:
�*** reason codes

:

��close_window

1!block%=w_main%:ș "Wimp_CloseWindow",,block%

"�slot_extra(0)

,�

6:

@��button_click(B%,W%,I%)

JȎ B% �

T= � 2 : � W%=-2 ș "Wimp_CreateMenu",,menu%,!block%-64,184

^# � 1,4 : � I%=2 �string_entered

h, � 16,64 : � state%=3 �drag_click(W%,I%)

r�

|�

�:

���drag_done

�-M%=block%+64:ș "Wimp_GetPointerInfo",,M%

�
B%=block%

�B%!0=56:B%!12=0:B%!16=1

�B%!20=M%!12:B%!24=M%!16

�B%!28=M%!0:B%!32=M%!4

�B%!36=end_addr%-start_addr%

�B%!40=type%

�$(B%+44)=�leaf($b_fname%)

�+ș "Wimp_SendMessage",18,B%,B%!20,B%!24

��

�:
��key_press(C%)
5� C%=13 �string_entered � ș "Wimp_ProcessKey",C%
�
&:
0��message(M%)
:Ȏ M% �
D � 0 : quit%=�
N � 1 : �load_from_app
X- � 2 : �drag_save(�get_string(block%+44))
b7 � 3 : �drag_load(block%!40,�get_string(block%+44))
l# � 5 : �double_click(block%!40)
v) � 6 : �send_ram(block%!20,block%!24)
�" � 7 : �receive_ram(block%!24)
��
��
�:
���no_acknowledge
�Ȏ state% �
�  � 4 : �revert_to_wimp_scrap
� � 5 : �close_window
�9 � 6 : �new_state(3):� 1,"Data transmission aborted."
��
��
�:
�*** button clicks
:
��drag_click(W%,I%)

B%=block%
 '!B%=W%:ș "Wimp_GetWindowState",,B%
*X%=B%!4:Y%=B%!16
4&B%!4=I%:ș "Wimp_GetIconState",,B%
>
B%!4=5
HB%!08+=X%-4:B%!16+=X%+4
RB%!12+=Y%-4:B%!20+=Y%+4
\B%!24=0:B%!32=&7FFFFFFF
fB%!28=0:B%!36=&7FFFFFFF
pș "Wimp_DragBox",,B%
z�
�:
�*** string entered
�:
���string_entered
�
Ȏ � �
�3 � state%=3 : �save_file(�get_string(b_fname%))
�= � state%<3 : �password_entered(�get_string(b_password%))
��
��
�:
�!��password_entered(password$)
�-� password$="" � 1,"No password entered."
�Ȏ state% �
 � 0 : �decode_file
0 � 1 : old_password$=password$:�new_state(2)
w � 2 : � password$=old_password$ �encode_file � �error(1,"Passwords didn't match, please try again."):�new_state(1)
$�
.�
8:
B*** work
L:
V��new_state(S%)
`;� S%<0 S%=-(type%<>encoded_type%):�show_window(w_main%)
j
state%=S%
tș "Wimp_CreateMenu",,-1
~$b_type%="file_"+�~type%
�Dș "XWimp_SpriteOp",40,,b_type% � ;E%:� E%�1 $b_type%="file_xxx"
�"�set_icon_state(w_main%,0,0,0)
�Ȏ state% �
�7 � 0 : �retitle("Decode file:"):$b_ask%="Password?"
�7 � 1 : �retitle("Encode file:"):$b_ask%="Password?"
� � 2 : $b_ask%=" Confirm?"
�3 � 3 : �retitle("Save as:"):$b_ask%="Password:"
��
�"�set_icon_state(w_main%,3,0,0)
�(C%=1:� state%<3 C%=4:$b_password%=""
�+�set_icon_state(w_main%,C%,&F000,&F000)
�)�set_icon_state(w_main%,C%�5,0,&F000)
5ș "Wimp_SetCaretPosition",w_main%,C%,300,0,-1,-1

�
:
*** encode/decode
(:
2��decode_file
<&G%=�eor_code:H%=end_addr%:�convert
F<� !file_buffer%<>�(checksum) �convert:�7:�new_state(0):�
P'start_addr%+=8:type%=file_buffer%!4
Z�new_state(3)
d�
n:
x��encode_file
�H%=end_addr%
�start_addr%-=8
�start_addr%!0=�(checksum)
�start_addr%!4=type%
�G%=�eor_code:� convert
�type%=encoded_type%
��new_state(3)
��
�:
�ݤeor_code
�C%=0:P%=b_password%
��
� C%+=(C%<<8)+?P%^2:P%+=1
� ?P%<32
=C%
:
"*** load file
,:
6��drag_load(T%,fname$)
@5� T%>&FFF � 1,"Safe can only encode typed files."
Jtype%=T%
T�message_reply(17,4)
^�load_file(fname$)
h�
r:
|��double_click(T%)
�<� T%=encoded_type% �drag_load(T%,�get_string(block%+44))
��
�:
���load_file(fname$)
�(ș "OS_File",13,fname$ � ,,,,length%
�(add%=0:� type%<>encoded_type% add%=8
��slot_extra(length%+add%)
�!start_addr%=file_buffer%+add%
�!end_addr%=start_addr%+length%
�(ș "OS_File",12,fname$,start_addr%,0
�E� fname$="<Wimp$Scrap>" ș "OS_File",6,fname$:fname$="<Untitled>"
�$b_fname%=fname$
��new_state(-1)
�
:
*** save file
&:
0��drag_save(fname$)
:�message_reply(18,3)
D�save_file(fname$)
N�
X:
b��save_file(fname$)
lI� �fname$,".")=0 � 1,"To save, drag file icon to a directory viewer."
v.� type%=encoded_type% �check_for_overwrite
�7ș "OS_File",10,fname$,type%,,start_addr%,end_addr%
��close_window
��
�:
���check_for_overwrite
�&ș "OS_File",5,fname$ � found%,,B%
�exist%=(B%>>8)�&FFF
�s� found%<>0 � exist%<>encoded_type% � 1,"'"+fname$+"' exists already, can't overwrite it with an encoded file."
��
�:
�*** ram transfer
�:
�%��send_ram(buff_addr%,buff_size%)
� state%=3 ptr%=start_addr%
state%=6
bytes%=end_addr%-ptr%
 )� bytes%>buff_size% bytes%=buff_size%
*Dș "Wimp_TransferBlock",my_task%,ptr%,block%!4,buff_addr%,bytes%
4'ptr%+=bytes%:last%=(ptr%=end_addr%)
>block%!24=bytes%
H�message_reply(18+last%,7)
R� last% �close_window
\�
f:
p��load_from_app
zfrom_task%=block%!4
�� from_task%=my_task% �
�state%=4
�type%=block%!40
�5start_addr%=file_buffer%-8*(type%<>encoded_type%)
�end_addr%=start_addr%
�$$b_fname%=�get_string(block%+44)
��ram_fetch(block%!36)
��
�:
���receive_ram(bytes%)
�state%=5
�end_addr%+=bytes%
�6� bytes%<>fetch% �new_state(-1) � �ram_fetch(1024)
	�
	:
	��ram_fetch(bytes%)
	$fetch%=bytes%
	..�slot_extra(end_addr%-file_buffer%+fetch%)
	8block%!20=end_addr%
	Bblock%!24=fetch%
	L�message_reply(18,6)
	V�
	`:
	j��revert_to_wimp_scrap
	t/ș "XOS_ReadVarVal","Wimp$Scrap",,-1 � ,,E%
	~F� E%=0 � 1,"Can't transfer file (use *Set Wimp$Scrap <filename>)."
	�!block%=60:block%!16=2
	� block%!36=-1:block%!40=type%
	�$(block%+44)="<Wimp$Scrap>"
	�.ș "Wimp_SendMessage",17,block%,from_task%
	��
	�:
	�
*** utils
	�:
	�ݤget_string(P%)
	�	A$=""
	�
ȕ ?P%>31
	� A$+=�?P%:P%+=1
�

=A$
:
ݤleaf(A$)
(ȕ �A$,".")>0
2 A$=�A$,�A$,".")+1)
<�
F=A$
P:
Z9��set_icon_state(!block%,block%!4,block%!8,block%!12)
d"ș "Wimp_SetIconState",,block%
n�
x:
���slot_extra(extra%)
�-ș "Wimp_SlotSize",slot%+extra%,-1 � got%
�� got%>=slot%+extra% �
��close_window
�9� 1,"Unable to claim sufficient memory to load file."
��
�:
���retitle(T$)
�$b_title%=T$
�4!block%=w_main%:ș "Wimp_GetWindowState",,block%
�Kș "Wimp_ForceRedraw",-1,block%!4+80,block%!16+4,block%!12,block%!16+36
��
�:
��message_reply(code%,num%)
block%!12=block%!8
block%!16=num%
"/ș "Wimp_SendMessage",code%,block%,block%!4
,�
6:
@ ��error(!block%,$(block%+4))
J)ș "Wimp_ReportError",block%,1,"Safe"
T�
^:
h*** initialisation
r:
|��initialise
�� block% 1023
�9ș "Wimp_Initialise",200,&4B534154,"Safe" � ,my_task%
�:
�quit%=�
�encoded_type%=&7FD
�$ș "Wimp_SlotSize",-1,-1 � slot%
�file_buffer%=&8000+slot%
�:
�
�assemble
��load_templates
�:
��create_menu("Safe",80,2)
� �menu_item("Info",0,w_info%)
�menu_item("Quit",&80,-1)
:
ș "OS_GetEnv" � A$
&A$=�A$,�A$,""" ")+2)
0/� A$<>"" type%=encoded_type%:�load_file(A$)
:�
D:
N��assemble
X� code% 79
b� A%=0 � 2 � 2
lP%=code%
v[OPT A%
�!.convert  ;R6=eor code,R7=end
�LDR R5,start
�
.loop1
�ADD R6,R6,R6,ROR#25
�LDR R1,[R5]
�� R1,R1,R6
�STR R1,[R5],#4
�
CMP R5,R7
�
BLO loop1
�MOV PC,R14
�:
�.checksum ;R7=end
�
MOV R0,#0

LDR R5,start


.loop2

LDR R1,[R5],#4

 
CMP R5,R7

*ADDLS R0,R0,R1

4
BLO loop2

>MOV PC,R14

H:

R.start EQUD file_buffer%+8

\]:�

f�

p:

z*** wimp creators

�:

���load_templates

�� b_ind% 500:ind%=b_ind%

�2ș "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"

��create_iconbar_icon

�"�create_window("Info",w_info%)

�"�create_window("Main",w_main%)

� b_title%=block%!72

�! b_type%=�ind_addr(w_main%,0)

�" b_fname%=�ind_addr(w_main%,1)

�  b_ask%=�ind_addr(w_main%,3)

�% b_password%=�ind_addr(w_main%,4)

�ș "Wimp_CloseTemplate"
�
:
$��create_window(name$,� handle%)
$Fș "Wimp_LoadTemplate",,block%,ind%,b_ind%+500,-1,name$,0 � ,,ind%
.#� name$="Main" block%!(88+24)=1
8,ș "Wimp_CreateWindow",,block% � handle%
B�
L:
V��create_iconbar_icon
`3ș "Wimp_LoadTemplate",,block%,,,-1,"Iconbar",0
jblock%!84=-1
t#ș "Wimp_CreateIcon",,block%+84
~�
�:
� ݤind_addr(!block%,block%!4)
�"ș "Wimp_GetIconState",,block%
�=block%!28
�:
���show_window(!block%)
�$ș "Wimp_GetWindowState",,block%
�-B%=block%+64:ș "Wimp_GetPointerInfo",,B%
�(block%!4=B%!0-150:block%!12=B%!0+152
�(block%!8=B%!4-108:block%!16=B%!4+108
�block%!28=-1
� ș "Wimp_OpenWindow",,block%
�

:
'��create_menu(title$,width%,items%)
� menu% 27+24*items%
(M%=menu%:$M%=title$
2M%!12=&70207:M%!16=width%
<M%!20=44:M%!24=0:I%=M%+28
F�
P:
Z!��menu_item(item$,flag%,sub%)
d%!I%=flag%:I%!4=sub%:I%!8=&7000021
n$(I%+12)=item$:I%+=24
x�
�

00000000  0d 00 0a 18 f4 20 3e 24  2e 21 53 61 66 65 2e 21  |..... >$.!Safe.!|
00000010  52 75 6e 49 6d 61 67 65  0d 00 14 20 f4 20 46 69  |RunImage... . Fi|
00000020  6c 65 20 65 6e 63 6f 64  65 72 2f 64 65 63 6f 64  |le encoder/decod|
00000030  65 72 20 56 31 2e 34 30  0d 00 1e 23 f4 20 a9 20  |er V1.40...#. . |
00000040  4d 69 6b 65 20 49 72 6f  6e 6d 6f 6e 67 65 72 2c  |Mike Ironmonger,|
00000050  20 41 70 72 69 6c 20 31  39 39 31 0d 00 28 05 3a  | April 1991..(.:|
00000060  0d 00 32 25 ee 20 85 20  f2 65 72 72 6f 72 28 9f  |..2%. . .error(.|
00000070  2c f6 24 2b 22 20 61 74  20 6c 69 6e 65 20 22 2b  |,.$+" at line "+|
00000080  c3 9e 29 3a e0 0d 00 3c  0f f2 69 6e 69 74 69 61  |..):...<..initia|
00000090  6c 69 73 65 0d 00 46 14  ee 20 85 20 f2 65 72 72  |lise..F.. . .err|
000000a0  6f 72 28 9f 2c f6 24 29  0d 00 50 05 3a 0d 00 5a  |or(.,.$)..P.:..Z|
000000b0  05 f5 0d 00 64 24 c8 99  20 22 57 69 6d 70 5f 50  |....d$.. "Wimp_P|
000000c0  6f 6c 6c 22 2c 26 31 38  33 33 2c 62 6c 6f 63 6b  |oll",&1833,block|
000000d0  25 20 b8 20 52 25 0d 00  6e 0b c8 8e 20 52 25 20  |% . R%..n... R% |
000000e0  ca 0d 00 78 27 20 c9 20  32 20 3a 20 c8 99 20 22  |...x' . 2 : .. "|
000000f0  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00000100  2c 2c 62 6c 6f 63 6b 25  0d 00 82 18 20 c9 20 33  |,,block%.... . 3|
00000110  20 3a 20 f2 63 6c 6f 73  65 5f 77 69 6e 64 6f 77  | : .close_window|
00000120  0d 00 8c 36 20 c9 20 36  20 3a 20 f2 62 75 74 74  |...6 . 6 : .butt|
00000130  6f 6e 5f 63 6c 69 63 6b  28 62 6c 6f 63 6b 25 21  |on_click(block%!|
00000140  38 2c 62 6c 6f 63 6b 25  21 31 32 2c 62 6c 6f 63  |8,block%!12,bloc|
00000150  6b 25 21 31 36 29 0d 00  96 15 20 c9 20 37 20 3a  |k%!16).... . 7 :|
00000160  20 f2 64 72 61 67 5f 64  6f 6e 65 0d 00 a0 20 20  | .drag_done...  |
00000170  c9 20 38 20 3a 20 f2 6b  65 79 5f 70 72 65 73 73  |. 8 : .key_press|
00000180  28 62 6c 6f 63 6b 25 21  32 34 29 0d 00 aa 1c 20  |(block%!24).... |
00000190  c9 20 39 20 3a 20 71 75  69 74 25 3d 28 21 62 6c  |. 9 : quit%=(!bl|
000001a0  6f 63 6b 25 3d 31 29 0d  00 b4 22 20 c9 20 31 37  |ock%=1)..." . 17|
000001b0  2c 31 38 20 3a 20 f2 6d  65 73 73 61 67 65 28 62  |,18 : .message(b|
000001c0  6c 6f 63 6b 25 21 31 36  29 0d 00 be 1b 20 c9 20  |lock%!16).... . |
000001d0  31 39 20 3a 20 f2 6e 6f  5f 61 63 6b 6e 6f 77 6c  |19 : .no_acknowl|
000001e0  65 64 67 65 0d 00 c8 05  cb 0d 00 d2 0b fd 20 71  |edge.......... q|
000001f0  75 69 74 25 0d 00 dc 17  c8 99 20 22 57 69 6d 70  |uit%...... "Wimp|
00000200  5f 43 6c 6f 73 65 44 6f  77 6e 22 0d 00 e6 05 e0  |_CloseDown".....|
00000210  0d 00 f0 05 3a 0d 00 fa  14 2a 2a 2a 20 72 65 61  |....:....*** rea|
00000220  73 6f 6e 20 63 6f 64 65  73 0d 01 04 05 3a 0d 01  |son codes....:..|
00000230  0e 12 dd f2 63 6c 6f 73  65 5f 77 69 6e 64 6f 77  |....close_window|
00000240  0d 01 18 31 21 62 6c 6f  63 6b 25 3d 77 5f 6d 61  |...1!block%=w_ma|
00000250  69 6e 25 3a c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |in%:.. "Wimp_Clo|
00000260  73 65 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |seWindow",,block|
00000270  25 0d 01 22 12 f2 73 6c  6f 74 5f 65 78 74 72 61  |%.."..slot_extra|
00000280  28 30 29 0d 01 2c 05 e1  0d 01 36 05 3a 0d 01 40  |(0)..,....6.:..@|
00000290  1c dd f2 62 75 74 74 6f  6e 5f 63 6c 69 63 6b 28  |...button_click(|
000002a0  42 25 2c 57 25 2c 49 25  29 0d 01 4a 0b c8 8e 20  |B%,W%,I%)..J... |
000002b0  42 25 20 ca 0d 01 54 3d  20 c9 20 32 20 3a 20 e7  |B% ...T= . 2 : .|
000002c0  20 57 25 3d 2d 32 20 c8  99 20 22 57 69 6d 70 5f  | W%=-2 .. "Wimp_|
000002d0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 6d 65 6e  |CreateMenu",,men|
000002e0  75 25 2c 21 62 6c 6f 63  6b 25 2d 36 34 2c 31 38  |u%,!block%-64,18|
000002f0  34 0d 01 5e 23 20 c9 20  31 2c 34 20 3a 20 e7 20  |4..^# . 1,4 : . |
00000300  49 25 3d 32 20 f2 73 74  72 69 6e 67 5f 65 6e 74  |I%=2 .string_ent|
00000310  65 72 65 64 0d 01 68 2c  20 c9 20 31 36 2c 36 34  |ered..h, . 16,64|
00000320  20 3a 20 e7 20 73 74 61  74 65 25 3d 33 20 f2 64  | : . state%=3 .d|
00000330  72 61 67 5f 63 6c 69 63  6b 28 57 25 2c 49 25 29  |rag_click(W%,I%)|
00000340  0d 01 72 05 cb 0d 01 7c  05 e1 0d 01 86 05 3a 0d  |..r....|......:.|
00000350  01 90 0f dd f2 64 72 61  67 5f 64 6f 6e 65 0d 01  |.....drag_done..|
00000360  9a 2d 4d 25 3d 62 6c 6f  63 6b 25 2b 36 34 3a c8  |.-M%=block%+64:.|
00000370  99 20 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |. "Wimp_GetPoint|
00000380  65 72 49 6e 66 6f 22 2c  2c 4d 25 0d 01 a4 0d 42  |erInfo",,M%....B|
00000390  25 3d 62 6c 6f 63 6b 25  0d 01 ae 1b 42 25 21 30  |%=block%....B%!0|
000003a0  3d 35 36 3a 42 25 21 31  32 3d 30 3a 42 25 21 31  |=56:B%!12=0:B%!1|
000003b0  36 3d 31 0d 01 b8 1b 42  25 21 32 30 3d 4d 25 21  |6=1....B%!20=M%!|
000003c0  31 32 3a 42 25 21 32 34  3d 4d 25 21 31 36 0d 01  |12:B%!24=M%!16..|
000003d0  c2 19 42 25 21 32 38 3d  4d 25 21 30 3a 42 25 21  |..B%!28=M%!0:B%!|
000003e0  33 32 3d 4d 25 21 34 0d  01 cc 1f 42 25 21 33 36  |32=M%!4....B%!36|
000003f0  3d 65 6e 64 5f 61 64 64  72 25 2d 73 74 61 72 74  |=end_addr%-start|
00000400  5f 61 64 64 72 25 0d 01  d6 0f 42 25 21 34 30 3d  |_addr%....B%!40=|
00000410  74 79 70 65 25 0d 01 e0  1d 24 28 42 25 2b 34 34  |type%....$(B%+44|
00000420  29 3d a4 6c 65 61 66 28  24 62 5f 66 6e 61 6d 65  |)=.leaf($b_fname|
00000430  25 29 0d 01 ea 2b c8 99  20 22 57 69 6d 70 5f 53  |%)...+.. "Wimp_S|
00000440  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 38 2c 42  |endMessage",18,B|
00000450  25 2c 42 25 21 32 30 2c  42 25 21 32 34 0d 01 f4  |%,B%!20,B%!24...|
00000460  05 e1 0d 01 fe 05 3a 0d  02 08 13 dd f2 6b 65 79  |......:......key|
00000470  5f 70 72 65 73 73 28 43  25 29 0d 02 12 35 e7 20  |_press(C%)...5. |
00000480  43 25 3d 31 33 20 f2 73  74 72 69 6e 67 5f 65 6e  |C%=13 .string_en|
00000490  74 65 72 65 64 20 8b 20  c8 99 20 22 57 69 6d 70  |tered . .. "Wimp|
000004a0  5f 50 72 6f 63 65 73 73  4b 65 79 22 2c 43 25 0d  |_ProcessKey",C%.|
000004b0  02 1c 05 e1 0d 02 26 05  3a 0d 02 30 11 dd f2 6d  |......&.:..0...m|
000004c0  65 73 73 61 67 65 28 4d  25 29 0d 02 3a 0b c8 8e  |essage(M%)..:...|
000004d0  20 4d 25 20 ca 0d 02 44  12 20 c9 20 30 20 3a 20  | M% ...D. . 0 : |
000004e0  71 75 69 74 25 3d b9 0d  02 4e 19 20 c9 20 31 20  |quit%=...N. . 1 |
000004f0  3a 20 f2 6c 6f 61 64 5f  66 72 6f 6d 5f 61 70 70  |: .load_from_app|
00000500  0d 02 58 2d 20 c9 20 32  20 3a 20 f2 64 72 61 67  |..X- . 2 : .drag|
00000510  5f 73 61 76 65 28 a4 67  65 74 5f 73 74 72 69 6e  |_save(.get_strin|
00000520  67 28 62 6c 6f 63 6b 25  2b 34 34 29 29 0d 02 62  |g(block%+44))..b|
00000530  37 20 c9 20 33 20 3a 20  f2 64 72 61 67 5f 6c 6f  |7 . 3 : .drag_lo|
00000540  61 64 28 62 6c 6f 63 6b  25 21 34 30 2c a4 67 65  |ad(block%!40,.ge|
00000550  74 5f 73 74 72 69 6e 67  28 62 6c 6f 63 6b 25 2b  |t_string(block%+|
00000560  34 34 29 29 0d 02 6c 23  20 c9 20 35 20 3a 20 f2  |44))..l# . 5 : .|
00000570  64 6f 75 62 6c 65 5f 63  6c 69 63 6b 28 62 6c 6f  |double_click(blo|
00000580  63 6b 25 21 34 30 29 0d  02 76 29 20 c9 20 36 20  |ck%!40)..v) . 6 |
00000590  3a 20 f2 73 65 6e 64 5f  72 61 6d 28 62 6c 6f 63  |: .send_ram(bloc|
000005a0  6b 25 21 32 30 2c 62 6c  6f 63 6b 25 21 32 34 29  |k%!20,block%!24)|
000005b0  0d 02 80 22 20 c9 20 37  20 3a 20 f2 72 65 63 65  |..." . 7 : .rece|
000005c0  69 76 65 5f 72 61 6d 28  62 6c 6f 63 6b 25 21 32  |ive_ram(block%!2|
000005d0  34 29 0d 02 8a 05 cb 0d  02 94 05 e1 0d 02 9e 05  |4)..............|
000005e0  3a 0d 02 a8 14 dd f2 6e  6f 5f 61 63 6b 6e 6f 77  |:......no_acknow|
000005f0  6c 65 64 67 65 0d 02 b2  0f c8 8e 20 73 74 61 74  |ledge...... stat|
00000600  65 25 20 ca 0d 02 bc 20  20 c9 20 34 20 3a 20 f2  |e% ....  . 4 : .|
00000610  72 65 76 65 72 74 5f 74  6f 5f 77 69 6d 70 5f 73  |revert_to_wimp_s|
00000620  63 72 61 70 0d 02 c6 18  20 c9 20 35 20 3a 20 f2  |crap.... . 5 : .|
00000630  63 6c 6f 73 65 5f 77 69  6e 64 6f 77 0d 02 d0 39  |close_window...9|
00000640  20 c9 20 36 20 3a 20 f2  6e 65 77 5f 73 74 61 74  | . 6 : .new_stat|
00000650  65 28 33 29 3a 85 20 31  2c 22 44 61 74 61 20 74  |e(3):. 1,"Data t|
00000660  72 61 6e 73 6d 69 73 73  69 6f 6e 20 61 62 6f 72  |ransmission abor|
00000670  74 65 64 2e 22 0d 02 da  05 cb 0d 02 e4 05 e1 0d  |ted."...........|
00000680  02 ee 05 3a 0d 02 f8 15  2a 2a 2a 20 62 75 74 74  |...:....*** butt|
00000690  6f 6e 20 63 6c 69 63 6b  73 0d 03 02 05 3a 0d 03  |on clicks....:..|
000006a0  0c 17 dd f2 64 72 61 67  5f 63 6c 69 63 6b 28 57  |....drag_click(W|
000006b0  25 2c 49 25 29 0d 03 16  0d 42 25 3d 62 6c 6f 63  |%,I%)....B%=bloc|
000006c0  6b 25 0d 03 20 27 21 42  25 3d 57 25 3a c8 99 20  |k%.. '!B%=W%:.. |
000006d0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
000006e0  74 61 74 65 22 2c 2c 42  25 0d 03 2a 14 58 25 3d  |tate",,B%..*.X%=|
000006f0  42 25 21 34 3a 59 25 3d  42 25 21 31 36 0d 03 34  |B%!4:Y%=B%!16..4|
00000700  26 42 25 21 34 3d 49 25  3a c8 99 20 22 57 69 6d  |&B%!4=I%:.. "Wim|
00000710  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00000720  2c 42 25 0d 03 3e 0a 42  25 21 34 3d 35 0d 03 48  |,B%..>.B%!4=5..H|
00000730  1b 42 25 21 30 38 2b 3d  58 25 2d 34 3a 42 25 21  |.B%!08+=X%-4:B%!|
00000740  31 36 2b 3d 58 25 2b 34  0d 03 52 1b 42 25 21 31  |16+=X%+4..R.B%!1|
00000750  32 2b 3d 59 25 2d 34 3a  42 25 21 32 30 2b 3d 59  |2+=Y%-4:B%!20+=Y|
00000760  25 2b 34 0d 03 5c 1b 42  25 21 32 34 3d 30 3a 42  |%+4..\.B%!24=0:B|
00000770  25 21 33 32 3d 26 37 46  46 46 46 46 46 46 0d 03  |%!32=&7FFFFFFF..|
00000780  66 1b 42 25 21 32 38 3d  30 3a 42 25 21 33 36 3d  |f.B%!28=0:B%!36=|
00000790  26 37 46 46 46 46 46 46  46 0d 03 70 19 c8 99 20  |&7FFFFFFF..p... |
000007a0  22 57 69 6d 70 5f 44 72  61 67 42 6f 78 22 2c 2c  |"Wimp_DragBox",,|
000007b0  42 25 0d 03 7a 05 e1 0d  03 84 05 3a 0d 03 8e 16  |B%..z......:....|
000007c0  2a 2a 2a 20 73 74 72 69  6e 67 20 65 6e 74 65 72  |*** string enter|
000007d0  65 64 0d 03 98 05 3a 0d  03 a2 14 dd f2 73 74 72  |ed....:......str|
000007e0  69 6e 67 5f 65 6e 74 65  72 65 64 0d 03 ac 0a c8  |ing_entered.....|
000007f0  8e 20 b9 20 ca 0d 03 b6  33 20 c9 20 73 74 61 74  |. . ....3 . stat|
00000800  65 25 3d 33 20 3a 20 f2  73 61 76 65 5f 66 69 6c  |e%=3 : .save_fil|
00000810  65 28 a4 67 65 74 5f 73  74 72 69 6e 67 28 62 5f  |e(.get_string(b_|
00000820  66 6e 61 6d 65 25 29 29  0d 03 c0 3d 20 c9 20 73  |fname%))...= . s|
00000830  74 61 74 65 25 3c 33 20  3a 20 f2 70 61 73 73 77  |tate%<3 : .passw|
00000840  6f 72 64 5f 65 6e 74 65  72 65 64 28 a4 67 65 74  |ord_entered(.get|
00000850  5f 73 74 72 69 6e 67 28  62 5f 70 61 73 73 77 6f  |_string(b_passwo|
00000860  72 64 25 29 29 0d 03 ca  05 cb 0d 03 d4 05 e1 0d  |rd%))...........|
00000870  03 de 05 3a 0d 03 e8 21  dd f2 70 61 73 73 77 6f  |...:...!..passwo|
00000880  72 64 5f 65 6e 74 65 72  65 64 28 70 61 73 73 77  |rd_entered(passw|
00000890  6f 72 64 24 29 0d 03 f2  2d e7 20 70 61 73 73 77  |ord$)...-. passw|
000008a0  6f 72 64 24 3d 22 22 20  85 20 31 2c 22 4e 6f 20  |ord$="" . 1,"No |
000008b0  70 61 73 73 77 6f 72 64  20 65 6e 74 65 72 65 64  |password entered|
000008c0  2e 22 0d 03 fc 0f c8 8e  20 73 74 61 74 65 25 20  |."...... state% |
000008d0  ca 0d 04 06 17 20 c9 20  30 20 3a 20 f2 64 65 63  |..... . 0 : .dec|
000008e0  6f 64 65 5f 66 69 6c 65  0d 04 10 30 20 c9 20 31  |ode_file...0 . 1|
000008f0  20 3a 20 6f 6c 64 5f 70  61 73 73 77 6f 72 64 24  | : old_password$|
00000900  3d 70 61 73 73 77 6f 72  64 24 3a f2 6e 65 77 5f  |=password$:.new_|
00000910  73 74 61 74 65 28 32 29  0d 04 1a 77 20 c9 20 32  |state(2)...w . 2|
00000920  20 3a 20 e7 20 70 61 73  73 77 6f 72 64 24 3d 6f  | : . password$=o|
00000930  6c 64 5f 70 61 73 73 77  6f 72 64 24 20 f2 65 6e  |ld_password$ .en|
00000940  63 6f 64 65 5f 66 69 6c  65 20 8b 20 f2 65 72 72  |code_file . .err|
00000950  6f 72 28 31 2c 22 50 61  73 73 77 6f 72 64 73 20  |or(1,"Passwords |
00000960  64 69 64 6e 27 74 20 6d  61 74 63 68 2c 20 70 6c  |didn't match, pl|
00000970  65 61 73 65 20 74 72 79  20 61 67 61 69 6e 2e 22  |ease try again."|
00000980  29 3a f2 6e 65 77 5f 73  74 61 74 65 28 31 29 0d  |):.new_state(1).|
00000990  04 24 05 cb 0d 04 2e 05  e1 0d 04 38 05 3a 0d 04  |.$.........8.:..|
000009a0  42 0c 2a 2a 2a 20 77 6f  72 6b 0d 04 4c 05 3a 0d  |B.*** work..L.:.|
000009b0  04 56 13 dd f2 6e 65 77  5f 73 74 61 74 65 28 53  |.V...new_state(S|
000009c0  25 29 0d 04 60 3b e7 20  53 25 3c 30 20 53 25 3d  |%)..`;. S%<0 S%=|
000009d0  2d 28 74 79 70 65 25 3c  3e 65 6e 63 6f 64 65 64  |-(type%<>encoded|
000009e0  5f 74 79 70 65 25 29 3a  f2 73 68 6f 77 5f 77 69  |_type%):.show_wi|
000009f0  6e 64 6f 77 28 77 5f 6d  61 69 6e 25 29 0d 04 6a  |ndow(w_main%)..j|
00000a00  0d 73 74 61 74 65 25 3d  53 25 0d 04 74 1c c8 99  |.state%=S%..t...|
00000a10  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00000a20  75 22 2c 2c 2d 31 0d 04  7e 1c 24 62 5f 74 79 70  |u",,-1..~.$b_typ|
00000a30  65 25 3d 22 66 69 6c 65  5f 22 2b c3 7e 74 79 70  |e%="file_"+.~typ|
00000a40  65 25 0d 04 88 44 c8 99  20 22 58 57 69 6d 70 5f  |e%...D.. "XWimp_|
00000a50  53 70 72 69 74 65 4f 70  22 2c 34 30 2c 2c 62 5f  |SpriteOp",40,,b_|
00000a60  74 79 70 65 25 20 b8 20  3b 45 25 3a e7 20 45 25  |type% . ;E%:. E%|
00000a70  80 31 20 24 62 5f 74 79  70 65 25 3d 22 66 69 6c  |.1 $b_type%="fil|
00000a80  65 5f 78 78 78 22 0d 04  92 22 f2 73 65 74 5f 69  |e_xxx"...".set_i|
00000a90  63 6f 6e 5f 73 74 61 74  65 28 77 5f 6d 61 69 6e  |con_state(w_main|
00000aa0  25 2c 30 2c 30 2c 30 29  0d 04 9c 0f c8 8e 20 73  |%,0,0,0)...... s|
00000ab0  74 61 74 65 25 20 ca 0d  04 a6 37 20 c9 20 30 20  |tate% ....7 . 0 |
00000ac0  3a 20 f2 72 65 74 69 74  6c 65 28 22 44 65 63 6f  |: .retitle("Deco|
00000ad0  64 65 20 66 69 6c 65 3a  22 29 3a 24 62 5f 61 73  |de file:"):$b_as|
00000ae0  6b 25 3d 22 50 61 73 73  77 6f 72 64 3f 22 0d 04  |k%="Password?"..|
00000af0  b0 37 20 c9 20 31 20 3a  20 f2 72 65 74 69 74 6c  |.7 . 1 : .retitl|
00000b00  65 28 22 45 6e 63 6f 64  65 20 66 69 6c 65 3a 22  |e("Encode file:"|
00000b10  29 3a 24 62 5f 61 73 6b  25 3d 22 50 61 73 73 77  |):$b_ask%="Passw|
00000b20  6f 72 64 3f 22 0d 04 ba  1e 20 c9 20 32 20 3a 20  |ord?".... . 2 : |
00000b30  24 62 5f 61 73 6b 25 3d  22 20 43 6f 6e 66 69 72  |$b_ask%=" Confir|
00000b40  6d 3f 22 0d 04 c4 33 20  c9 20 33 20 3a 20 f2 72  |m?"...3 . 3 : .r|
00000b50  65 74 69 74 6c 65 28 22  53 61 76 65 20 61 73 3a  |etitle("Save as:|
00000b60  22 29 3a 24 62 5f 61 73  6b 25 3d 22 50 61 73 73  |"):$b_ask%="Pass|
00000b70  77 6f 72 64 3a 22 0d 04  ce 05 cb 0d 04 d8 22 f2  |word:"........".|
00000b80  73 65 74 5f 69 63 6f 6e  5f 73 74 61 74 65 28 77  |set_icon_state(w|
00000b90  5f 6d 61 69 6e 25 2c 33  2c 30 2c 30 29 0d 04 e2  |_main%,3,0,0)...|
00000ba0  28 43 25 3d 31 3a e7 20  73 74 61 74 65 25 3c 33  |(C%=1:. state%<3|
00000bb0  20 43 25 3d 34 3a 24 62  5f 70 61 73 73 77 6f 72  | C%=4:$b_passwor|
00000bc0  64 25 3d 22 22 0d 04 ec  2b f2 73 65 74 5f 69 63  |d%=""...+.set_ic|
00000bd0  6f 6e 5f 73 74 61 74 65  28 77 5f 6d 61 69 6e 25  |on_state(w_main%|
00000be0  2c 43 25 2c 26 46 30 30  30 2c 26 46 30 30 30 29  |,C%,&F000,&F000)|
00000bf0  0d 04 f6 29 f2 73 65 74  5f 69 63 6f 6e 5f 73 74  |...).set_icon_st|
00000c00  61 74 65 28 77 5f 6d 61  69 6e 25 2c 43 25 82 35  |ate(w_main%,C%.5|
00000c10  2c 30 2c 26 46 30 30 30  29 0d 05 00 35 c8 99 20  |,0,&F000)...5.. |
00000c20  22 57 69 6d 70 5f 53 65  74 43 61 72 65 74 50 6f  |"Wimp_SetCaretPo|
00000c30  73 69 74 69 6f 6e 22 2c  77 5f 6d 61 69 6e 25 2c  |sition",w_main%,|
00000c40  43 25 2c 33 30 30 2c 30  2c 2d 31 2c 2d 31 0d 05  |C%,300,0,-1,-1..|
00000c50  0a 05 e1 0d 05 14 05 3a  0d 05 1e 15 2a 2a 2a 20  |.......:....*** |
00000c60  65 6e 63 6f 64 65 2f 64  65 63 6f 64 65 0d 05 28  |encode/decode..(|
00000c70  05 3a 0d 05 32 11 dd f2  64 65 63 6f 64 65 5f 66  |.:..2...decode_f|
00000c80  69 6c 65 0d 05 3c 26 47  25 3d a4 65 6f 72 5f 63  |ile..<&G%=.eor_c|
00000c90  6f 64 65 3a 48 25 3d 65  6e 64 5f 61 64 64 72 25  |ode:H%=end_addr%|
00000ca0  3a d6 63 6f 6e 76 65 72  74 0d 05 46 3c e7 20 21  |:.convert..F<. !|
00000cb0  66 69 6c 65 5f 62 75 66  66 65 72 25 3c 3e ba 28  |file_buffer%<>.(|
00000cc0  63 68 65 63 6b 73 75 6d  29 20 d6 63 6f 6e 76 65  |checksum) .conve|
00000cd0  72 74 3a ef 37 3a f2 6e  65 77 5f 73 74 61 74 65  |rt:.7:.new_state|
00000ce0  28 30 29 3a e1 0d 05 50  27 73 74 61 72 74 5f 61  |(0):...P'start_a|
00000cf0  64 64 72 25 2b 3d 38 3a  74 79 70 65 25 3d 66 69  |ddr%+=8:type%=fi|
00000d00  6c 65 5f 62 75 66 66 65  72 25 21 34 0d 05 5a 11  |le_buffer%!4..Z.|
00000d10  f2 6e 65 77 5f 73 74 61  74 65 28 33 29 0d 05 64  |.new_state(3)..d|
00000d20  05 e1 0d 05 6e 05 3a 0d  05 78 11 dd f2 65 6e 63  |....n.:..x...enc|
00000d30  6f 64 65 5f 66 69 6c 65  0d 05 82 10 48 25 3d 65  |ode_file....H%=e|
00000d40  6e 64 5f 61 64 64 72 25  0d 05 8c 12 73 74 61 72  |nd_addr%....star|
00000d50  74 5f 61 64 64 72 25 2d  3d 38 0d 05 96 1d 73 74  |t_addr%-=8....st|
00000d60  61 72 74 5f 61 64 64 72  25 21 30 3d ba 28 63 68  |art_addr%!0=.(ch|
00000d70  65 63 6b 73 75 6d 29 0d  05 a0 17 73 74 61 72 74  |ecksum)....start|
00000d80  5f 61 64 64 72 25 21 34  3d 74 79 70 65 25 0d 05  |_addr%!4=type%..|
00000d90  aa 1a 47 25 3d a4 65 6f  72 5f 63 6f 64 65 3a d6  |..G%=.eor_code:.|
00000da0  20 63 6f 6e 76 65 72 74  0d 05 b4 17 74 79 70 65  | convert....type|
00000db0  25 3d 65 6e 63 6f 64 65  64 5f 74 79 70 65 25 0d  |%=encoded_type%.|
00000dc0  05 be 11 f2 6e 65 77 5f  73 74 61 74 65 28 33 29  |....new_state(3)|
00000dd0  0d 05 c8 05 e1 0d 05 d2  05 3a 0d 05 dc 0e dd a4  |.........:......|
00000de0  65 6f 72 5f 63 6f 64 65  0d 05 e6 17 43 25 3d 30  |eor_code....C%=0|
00000df0  3a 50 25 3d 62 5f 70 61  73 73 77 6f 72 64 25 0d  |:P%=b_password%.|
00000e00  05 f0 05 f5 0d 05 fa 1c  20 43 25 2b 3d 28 43 25  |........ C%+=(C%|
00000e10  3c 3c 38 29 2b 3f 50 25  5e 32 3a 50 25 2b 3d 31  |<<8)+?P%^2:P%+=1|
00000e20  0d 06 04 0c fd 20 3f 50  25 3c 33 32 0d 06 0e 07  |..... ?P%<32....|
00000e30  3d 43 25 0d 06 18 05 3a  0d 06 22 11 2a 2a 2a 20  |=C%....:..".*** |
00000e40  6c 6f 61 64 20 66 69 6c  65 0d 06 2c 05 3a 0d 06  |load file..,.:..|
00000e50  36 1a dd f2 64 72 61 67  5f 6c 6f 61 64 28 54 25  |6...drag_load(T%|
00000e60  2c 66 6e 61 6d 65 24 29  0d 06 40 35 e7 20 54 25  |,fname$)..@5. T%|
00000e70  3e 26 46 46 46 20 85 20  31 2c 22 53 61 66 65 20  |>&FFF . 1,"Safe |
00000e80  63 61 6e 20 6f 6e 6c 79  20 65 6e 63 6f 64 65 20  |can only encode |
00000e90  74 79 70 65 64 20 66 69  6c 65 73 2e 22 0d 06 4a  |typed files."..J|
00000ea0  0c 74 79 70 65 25 3d 54  25 0d 06 54 18 f2 6d 65  |.type%=T%..T..me|
00000eb0  73 73 61 67 65 5f 72 65  70 6c 79 28 31 37 2c 34  |ssage_reply(17,4|
00000ec0  29 0d 06 5e 16 f2 6c 6f  61 64 5f 66 69 6c 65 28  |)..^..load_file(|
00000ed0  66 6e 61 6d 65 24 29 0d  06 68 05 e1 0d 06 72 05  |fname$)..h....r.|
00000ee0  3a 0d 06 7c 16 dd f2 64  6f 75 62 6c 65 5f 63 6c  |:..|...double_cl|
00000ef0  69 63 6b 28 54 25 29 0d  06 86 3c e7 20 54 25 3d  |ick(T%)...<. T%=|
00000f00  65 6e 63 6f 64 65 64 5f  74 79 70 65 25 20 f2 64  |encoded_type% .d|
00000f10  72 61 67 5f 6c 6f 61 64  28 54 25 2c a4 67 65 74  |rag_load(T%,.get|
00000f20  5f 73 74 72 69 6e 67 28  62 6c 6f 63 6b 25 2b 34  |_string(block%+4|
00000f30  34 29 29 0d 06 90 05 e1  0d 06 9a 05 3a 0d 06 a4  |4)).........:...|
00000f40  17 dd f2 6c 6f 61 64 5f  66 69 6c 65 28 66 6e 61  |...load_file(fna|
00000f50  6d 65 24 29 0d 06 ae 28  c8 99 20 22 4f 53 5f 46  |me$)...(.. "OS_F|
00000f60  69 6c 65 22 2c 31 33 2c  66 6e 61 6d 65 24 20 b8  |ile",13,fname$ .|
00000f70  20 2c 2c 2c 2c 6c 65 6e  67 74 68 25 0d 06 b8 28  | ,,,,length%...(|
00000f80  61 64 64 25 3d 30 3a e7  20 74 79 70 65 25 3c 3e  |add%=0:. type%<>|
00000f90  65 6e 63 6f 64 65 64 5f  74 79 70 65 25 20 61 64  |encoded_type% ad|
00000fa0  64 25 3d 38 0d 06 c2 1d  f2 73 6c 6f 74 5f 65 78  |d%=8.....slot_ex|
00000fb0  74 72 61 28 6c 65 6e 67  74 68 25 2b 61 64 64 25  |tra(length%+add%|
00000fc0  29 0d 06 cc 21 73 74 61  72 74 5f 61 64 64 72 25  |)...!start_addr%|
00000fd0  3d 66 69 6c 65 5f 62 75  66 66 65 72 25 2b 61 64  |=file_buffer%+ad|
00000fe0  64 25 0d 06 d6 21 65 6e  64 5f 61 64 64 72 25 3d  |d%...!end_addr%=|
00000ff0  73 74 61 72 74 5f 61 64  64 72 25 2b 6c 65 6e 67  |start_addr%+leng|
00001000  74 68 25 0d 06 e0 28 c8  99 20 22 4f 53 5f 46 69  |th%...(.. "OS_Fi|
00001010  6c 65 22 2c 31 32 2c 66  6e 61 6d 65 24 2c 73 74  |le",12,fname$,st|
00001020  61 72 74 5f 61 64 64 72  25 2c 30 0d 06 ea 45 e7  |art_addr%,0...E.|
00001030  20 66 6e 61 6d 65 24 3d  22 3c 57 69 6d 70 24 53  | fname$="<Wimp$S|
00001040  63 72 61 70 3e 22 20 c8  99 20 22 4f 53 5f 46 69  |crap>" .. "OS_Fi|
00001050  6c 65 22 2c 36 2c 66 6e  61 6d 65 24 3a 66 6e 61  |le",6,fname$:fna|
00001060  6d 65 24 3d 22 3c 55 6e  74 69 74 6c 65 64 3e 22  |me$="<Untitled>"|
00001070  0d 06 f4 14 24 62 5f 66  6e 61 6d 65 25 3d 66 6e  |....$b_fname%=fn|
00001080  61 6d 65 24 0d 06 fe 12  f2 6e 65 77 5f 73 74 61  |ame$.....new_sta|
00001090  74 65 28 2d 31 29 0d 07  08 05 e1 0d 07 12 05 3a  |te(-1).........:|
000010a0  0d 07 1c 11 2a 2a 2a 20  73 61 76 65 20 66 69 6c  |....*** save fil|
000010b0  65 0d 07 26 05 3a 0d 07  30 17 dd f2 64 72 61 67  |e..&.:..0...drag|
000010c0  5f 73 61 76 65 28 66 6e  61 6d 65 24 29 0d 07 3a  |_save(fname$)..:|
000010d0  18 f2 6d 65 73 73 61 67  65 5f 72 65 70 6c 79 28  |..message_reply(|
000010e0  31 38 2c 33 29 0d 07 44  16 f2 73 61 76 65 5f 66  |18,3)..D..save_f|
000010f0  69 6c 65 28 66 6e 61 6d  65 24 29 0d 07 4e 05 e1  |ile(fname$)..N..|
00001100  0d 07 58 05 3a 0d 07 62  17 dd f2 73 61 76 65 5f  |..X.:..b...save_|
00001110  66 69 6c 65 28 66 6e 61  6d 65 24 29 0d 07 6c 49  |file(fname$)..lI|
00001120  e7 20 a7 66 6e 61 6d 65  24 2c 22 2e 22 29 3d 30  |. .fname$,".")=0|
00001130  20 85 20 31 2c 22 54 6f  20 73 61 76 65 2c 20 64  | . 1,"To save, d|
00001140  72 61 67 20 66 69 6c 65  20 69 63 6f 6e 20 74 6f  |rag file icon to|
00001150  20 61 20 64 69 72 65 63  74 6f 72 79 20 76 69 65  | a directory vie|
00001160  77 65 72 2e 22 0d 07 76  2e e7 20 74 79 70 65 25  |wer."..v.. type%|
00001170  3d 65 6e 63 6f 64 65 64  5f 74 79 70 65 25 20 f2  |=encoded_type% .|
00001180  63 68 65 63 6b 5f 66 6f  72 5f 6f 76 65 72 77 72  |check_for_overwr|
00001190  69 74 65 0d 07 80 37 c8  99 20 22 4f 53 5f 46 69  |ite...7.. "OS_Fi|
000011a0  6c 65 22 2c 31 30 2c 66  6e 61 6d 65 24 2c 74 79  |le",10,fname$,ty|
000011b0  70 65 25 2c 2c 73 74 61  72 74 5f 61 64 64 72 25  |pe%,,start_addr%|
000011c0  2c 65 6e 64 5f 61 64 64  72 25 0d 07 8a 11 f2 63  |,end_addr%.....c|
000011d0  6c 6f 73 65 5f 77 69 6e  64 6f 77 0d 07 94 05 e1  |lose_window.....|
000011e0  0d 07 9e 05 3a 0d 07 a8  19 dd f2 63 68 65 63 6b  |....:......check|
000011f0  5f 66 6f 72 5f 6f 76 65  72 77 72 69 74 65 0d 07  |_for_overwrite..|
00001200  b2 26 c8 99 20 22 4f 53  5f 46 69 6c 65 22 2c 35  |.&.. "OS_File",5|
00001210  2c 66 6e 61 6d 65 24 20  b8 20 66 6f 75 6e 64 25  |,fname$ . found%|
00001220  2c 2c 42 25 0d 07 bc 17  65 78 69 73 74 25 3d 28  |,,B%....exist%=(|
00001230  42 25 3e 3e 38 29 80 26  46 46 46 0d 07 c6 73 e7  |B%>>8).&FFF...s.|
00001240  20 66 6f 75 6e 64 25 3c  3e 30 20 80 20 65 78 69  | found%<>0 . exi|
00001250  73 74 25 3c 3e 65 6e 63  6f 64 65 64 5f 74 79 70  |st%<>encoded_typ|
00001260  65 25 20 85 20 31 2c 22  27 22 2b 66 6e 61 6d 65  |e% . 1,"'"+fname|
00001270  24 2b 22 27 20 65 78 69  73 74 73 20 61 6c 72 65  |$+"' exists alre|
00001280  61 64 79 2c 20 63 61 6e  27 74 20 6f 76 65 72 77  |ady, can't overw|
00001290  72 69 74 65 20 69 74 20  77 69 74 68 20 61 6e 20  |rite it with an |
000012a0  65 6e 63 6f 64 65 64 20  66 69 6c 65 2e 22 0d 07  |encoded file."..|
000012b0  d0 05 e1 0d 07 da 05 3a  0d 07 e4 14 2a 2a 2a 20  |.......:....*** |
000012c0  72 61 6d 20 74 72 61 6e  73 66 65 72 0d 07 ee 05  |ram transfer....|
000012d0  3a 0d 07 f8 25 dd f2 73  65 6e 64 5f 72 61 6d 28  |:...%..send_ram(|
000012e0  62 75 66 66 5f 61 64 64  72 25 2c 62 75 66 66 5f  |buff_addr%,buff_|
000012f0  73 69 7a 65 25 29 0d 08  02 1f e7 20 73 74 61 74  |size%)..... stat|
00001300  65 25 3d 33 20 70 74 72  25 3d 73 74 61 72 74 5f  |e%=3 ptr%=start_|
00001310  61 64 64 72 25 0d 08 0c  0c 73 74 61 74 65 25 3d  |addr%....state%=|
00001320  36 0d 08 16 19 62 79 74  65 73 25 3d 65 6e 64 5f  |6....bytes%=end_|
00001330  61 64 64 72 25 2d 70 74  72 25 0d 08 20 29 e7 20  |addr%-ptr%.. ). |
00001340  62 79 74 65 73 25 3e 62  75 66 66 5f 73 69 7a 65  |bytes%>buff_size|
00001350  25 20 62 79 74 65 73 25  3d 62 75 66 66 5f 73 69  |% bytes%=buff_si|
00001360  7a 65 25 0d 08 2a 44 c8  99 20 22 57 69 6d 70 5f  |ze%..*D.. "Wimp_|
00001370  54 72 61 6e 73 66 65 72  42 6c 6f 63 6b 22 2c 6d  |TransferBlock",m|
00001380  79 5f 74 61 73 6b 25 2c  70 74 72 25 2c 62 6c 6f  |y_task%,ptr%,blo|
00001390  63 6b 25 21 34 2c 62 75  66 66 5f 61 64 64 72 25  |ck%!4,buff_addr%|
000013a0  2c 62 79 74 65 73 25 0d  08 34 27 70 74 72 25 2b  |,bytes%..4'ptr%+|
000013b0  3d 62 79 74 65 73 25 3a  6c 61 73 74 25 3d 28 70  |=bytes%:last%=(p|
000013c0  74 72 25 3d 65 6e 64 5f  61 64 64 72 25 29 0d 08  |tr%=end_addr%)..|
000013d0  3e 14 62 6c 6f 63 6b 25  21 32 34 3d 62 79 74 65  |>.block%!24=byte|
000013e0  73 25 0d 08 48 1e f2 6d  65 73 73 61 67 65 5f 72  |s%..H..message_r|
000013f0  65 70 6c 79 28 31 38 2b  6c 61 73 74 25 2c 37 29  |eply(18+last%,7)|
00001400  0d 08 52 19 e7 20 6c 61  73 74 25 20 f2 63 6c 6f  |..R.. last% .clo|
00001410  73 65 5f 77 69 6e 64 6f  77 0d 08 5c 05 e1 0d 08  |se_window..\....|
00001420  66 05 3a 0d 08 70 13 dd  f2 6c 6f 61 64 5f 66 72  |f.:..p...load_fr|
00001430  6f 6d 5f 61 70 70 0d 08  7a 17 66 72 6f 6d 5f 74  |om_app..z.from_t|
00001440  61 73 6b 25 3d 62 6c 6f  63 6b 25 21 34 0d 08 84  |ask%=block%!4...|
00001450  1b e7 20 66 72 6f 6d 5f  74 61 73 6b 25 3d 6d 79  |.. from_task%=my|
00001460  5f 74 61 73 6b 25 20 e1  0d 08 8e 0c 73 74 61 74  |_task% .....stat|
00001470  65 25 3d 34 0d 08 98 13  74 79 70 65 25 3d 62 6c  |e%=4....type%=bl|
00001480  6f 63 6b 25 21 34 30 0d  08 a2 35 73 74 61 72 74  |ock%!40...5start|
00001490  5f 61 64 64 72 25 3d 66  69 6c 65 5f 62 75 66 66  |_addr%=file_buff|
000014a0  65 72 25 2d 38 2a 28 74  79 70 65 25 3c 3e 65 6e  |er%-8*(type%<>en|
000014b0  63 6f 64 65 64 5f 74 79  70 65 25 29 0d 08 ac 19  |coded_type%)....|
000014c0  65 6e 64 5f 61 64 64 72  25 3d 73 74 61 72 74 5f  |end_addr%=start_|
000014d0  61 64 64 72 25 0d 08 b6  24 24 62 5f 66 6e 61 6d  |addr%...$$b_fnam|
000014e0  65 25 3d a4 67 65 74 5f  73 74 72 69 6e 67 28 62  |e%=.get_string(b|
000014f0  6c 6f 63 6b 25 2b 34 34  29 0d 08 c0 19 f2 72 61  |lock%+44).....ra|
00001500  6d 5f 66 65 74 63 68 28  62 6c 6f 63 6b 25 21 33  |m_fetch(block%!3|
00001510  36 29 0d 08 ca 05 e1 0d  08 d4 05 3a 0d 08 de 19  |6).........:....|
00001520  dd f2 72 65 63 65 69 76  65 5f 72 61 6d 28 62 79  |..receive_ram(by|
00001530  74 65 73 25 29 0d 08 e8  0c 73 74 61 74 65 25 3d  |tes%)....state%=|
00001540  35 0d 08 f2 15 65 6e 64  5f 61 64 64 72 25 2b 3d  |5....end_addr%+=|
00001550  62 79 74 65 73 25 0d 08  fc 36 e7 20 62 79 74 65  |bytes%...6. byte|
00001560  73 25 3c 3e 66 65 74 63  68 25 20 f2 6e 65 77 5f  |s%<>fetch% .new_|
00001570  73 74 61 74 65 28 2d 31  29 20 8b 20 f2 72 61 6d  |state(-1) . .ram|
00001580  5f 66 65 74 63 68 28 31  30 32 34 29 0d 09 06 05  |_fetch(1024)....|
00001590  e1 0d 09 10 05 3a 0d 09  1a 17 dd f2 72 61 6d 5f  |.....:......ram_|
000015a0  66 65 74 63 68 28 62 79  74 65 73 25 29 0d 09 24  |fetch(bytes%)..$|
000015b0  11 66 65 74 63 68 25 3d  62 79 74 65 73 25 0d 09  |.fetch%=bytes%..|
000015c0  2e 2e f2 73 6c 6f 74 5f  65 78 74 72 61 28 65 6e  |...slot_extra(en|
000015d0  64 5f 61 64 64 72 25 2d  66 69 6c 65 5f 62 75 66  |d_addr%-file_buf|
000015e0  66 65 72 25 2b 66 65 74  63 68 25 29 0d 09 38 17  |fer%+fetch%)..8.|
000015f0  62 6c 6f 63 6b 25 21 32  30 3d 65 6e 64 5f 61 64  |block%!20=end_ad|
00001600  64 72 25 0d 09 42 14 62  6c 6f 63 6b 25 21 32 34  |dr%..B.block%!24|
00001610  3d 66 65 74 63 68 25 0d  09 4c 18 f2 6d 65 73 73  |=fetch%..L..mess|
00001620  61 67 65 5f 72 65 70 6c  79 28 31 38 2c 36 29 0d  |age_reply(18,6).|
00001630  09 56 05 e1 0d 09 60 05  3a 0d 09 6a 1a dd f2 72  |.V....`.:..j...r|
00001640  65 76 65 72 74 5f 74 6f  5f 77 69 6d 70 5f 73 63  |evert_to_wimp_sc|
00001650  72 61 70 0d 09 74 2f c8  99 20 22 58 4f 53 5f 52  |rap..t/.. "XOS_R|
00001660  65 61 64 56 61 72 56 61  6c 22 2c 22 57 69 6d 70  |eadVarVal","Wimp|
00001670  24 53 63 72 61 70 22 2c  2c 2d 31 20 b8 20 2c 2c  |$Scrap",,-1 . ,,|
00001680  45 25 0d 09 7e 46 e7 20  45 25 3d 30 20 85 20 31  |E%..~F. E%=0 . 1|
00001690  2c 22 43 61 6e 27 74 20  74 72 61 6e 73 66 65 72  |,"Can't transfer|
000016a0  20 66 69 6c 65 20 28 75  73 65 20 2a 53 65 74 20  | file (use *Set |
000016b0  57 69 6d 70 24 53 63 72  61 70 20 3c 66 69 6c 65  |Wimp$Scrap <file|
000016c0  6e 61 6d 65 3e 29 2e 22  0d 09 88 1a 21 62 6c 6f  |name>)."....!blo|
000016d0  63 6b 25 3d 36 30 3a 62  6c 6f 63 6b 25 21 31 36  |ck%=60:block%!16|
000016e0  3d 32 0d 09 92 20 62 6c  6f 63 6b 25 21 33 36 3d  |=2... block%!36=|
000016f0  2d 31 3a 62 6c 6f 63 6b  25 21 34 30 3d 74 79 70  |-1:block%!40=typ|
00001700  65 25 0d 09 9c 1f 24 28  62 6c 6f 63 6b 25 2b 34  |e%....$(block%+4|
00001710  34 29 3d 22 3c 57 69 6d  70 24 53 63 72 61 70 3e  |4)="<Wimp$Scrap>|
00001720  22 0d 09 a6 2e c8 99 20  22 57 69 6d 70 5f 53 65  |"...... "Wimp_Se|
00001730  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 62 6c  |ndMessage",17,bl|
00001740  6f 63 6b 25 2c 66 72 6f  6d 5f 74 61 73 6b 25 0d  |ock%,from_task%.|
00001750  09 b0 05 e1 0d 09 ba 05  3a 0d 09 c4 0d 2a 2a 2a  |........:....***|
00001760  20 75 74 69 6c 73 0d 09  ce 05 3a 0d 09 d8 14 dd  | utils....:.....|
00001770  a4 67 65 74 5f 73 74 72  69 6e 67 28 50 25 29 0d  |.get_string(P%).|
00001780  09 e2 09 41 24 3d 22 22  0d 09 ec 0d c8 95 20 3f  |...A$=""...... ?|
00001790  50 25 3e 33 31 0d 09 f6  13 20 41 24 2b 3d bd 3f  |P%>31.... A$+=.?|
000017a0  50 25 3a 50 25 2b 3d 31  0d 0a 00 05 ce 0d 0a 0a  |P%:P%+=1........|
000017b0  07 3d 41 24 0d 0a 14 05  3a 0d 0a 1e 0e dd a4 6c  |.=A$....:......l|
000017c0  65 61 66 28 41 24 29 0d  0a 28 11 c8 95 20 a7 41  |eaf(A$)..(... .A|
000017d0  24 2c 22 2e 22 29 3e 30  0d 0a 32 17 20 41 24 3d  |$,".")>0..2. A$=|
000017e0  c1 41 24 2c a7 41 24 2c  22 2e 22 29 2b 31 29 0d  |.A$,.A$,".")+1).|
000017f0  0a 3c 05 ce 0d 0a 46 07  3d 41 24 0d 0a 50 05 3a  |.<....F.=A$..P.:|
00001800  0d 0a 5a 39 dd f2 73 65  74 5f 69 63 6f 6e 5f 73  |..Z9..set_icon_s|
00001810  74 61 74 65 28 21 62 6c  6f 63 6b 25 2c 62 6c 6f  |tate(!block%,blo|
00001820  63 6b 25 21 34 2c 62 6c  6f 63 6b 25 21 38 2c 62  |ck%!4,block%!8,b|
00001830  6c 6f 63 6b 25 21 31 32  29 0d 0a 64 22 c8 99 20  |lock%!12)..d".. |
00001840  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00001850  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 0a 6e 05 e1  |te",,block%..n..|
00001860  0d 0a 78 05 3a 0d 0a 82  18 dd f2 73 6c 6f 74 5f  |..x.:......slot_|
00001870  65 78 74 72 61 28 65 78  74 72 61 25 29 0d 0a 8c  |extra(extra%)...|
00001880  2d c8 99 20 22 57 69 6d  70 5f 53 6c 6f 74 53 69  |-.. "Wimp_SlotSi|
00001890  7a 65 22 2c 73 6c 6f 74  25 2b 65 78 74 72 61 25  |ze",slot%+extra%|
000018a0  2c 2d 31 20 b8 20 67 6f  74 25 0d 0a 96 1a e7 20  |,-1 . got%..... |
000018b0  67 6f 74 25 3e 3d 73 6c  6f 74 25 2b 65 78 74 72  |got%>=slot%+extr|
000018c0  61 25 20 e1 0d 0a a0 11  f2 63 6c 6f 73 65 5f 77  |a% ......close_w|
000018d0  69 6e 64 6f 77 0d 0a aa  39 85 20 31 2c 22 55 6e  |indow...9. 1,"Un|
000018e0  61 62 6c 65 20 74 6f 20  63 6c 61 69 6d 20 73 75  |able to claim su|
000018f0  66 66 69 63 69 65 6e 74  20 6d 65 6d 6f 72 79 20  |fficient memory |
00001900  74 6f 20 6c 6f 61 64 20  66 69 6c 65 2e 22 0d 0a  |to load file."..|
00001910  b4 05 e1 0d 0a be 05 3a  0d 0a c8 11 dd f2 72 65  |.......:......re|
00001920  74 69 74 6c 65 28 54 24  29 0d 0a d2 10 24 62 5f  |title(T$)....$b_|
00001930  74 69 74 6c 65 25 3d 54  24 0d 0a dc 34 21 62 6c  |title%=T$...4!bl|
00001940  6f 63 6b 25 3d 77 5f 6d  61 69 6e 25 3a c8 99 20  |ock%=w_main%:.. |
00001950  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00001960  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 0a e6  |tate",,block%...|
00001970  4b c8 99 20 22 57 69 6d  70 5f 46 6f 72 63 65 52  |K.. "Wimp_ForceR|
00001980  65 64 72 61 77 22 2c 2d  31 2c 62 6c 6f 63 6b 25  |edraw",-1,block%|
00001990  21 34 2b 38 30 2c 62 6c  6f 63 6b 25 21 31 36 2b  |!4+80,block%!16+|
000019a0  34 2c 62 6c 6f 63 6b 25  21 31 32 2c 62 6c 6f 63  |4,block%!12,bloc|
000019b0  6b 25 21 31 36 2b 33 36  0d 0a f0 05 e1 0d 0a fa  |k%!16+36........|
000019c0  05 3a 0d 0b 04 1f dd f2  6d 65 73 73 61 67 65 5f  |.:......message_|
000019d0  72 65 70 6c 79 28 63 6f  64 65 25 2c 6e 75 6d 25  |reply(code%,num%|
000019e0  29 0d 0b 0e 16 62 6c 6f  63 6b 25 21 31 32 3d 62  |)....block%!12=b|
000019f0  6c 6f 63 6b 25 21 38 0d  0b 18 12 62 6c 6f 63 6b  |lock%!8....block|
00001a00  25 21 31 36 3d 6e 75 6d  25 0d 0b 22 2f c8 99 20  |%!16=num%.."/.. |
00001a10  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00001a20  65 22 2c 63 6f 64 65 25  2c 62 6c 6f 63 6b 25 2c  |e",code%,block%,|
00001a30  62 6c 6f 63 6b 25 21 34  0d 0b 2c 05 e1 0d 0b 36  |block%!4..,....6|
00001a40  05 3a 0d 0b 40 20 dd f2  65 72 72 6f 72 28 21 62  |.:..@ ..error(!b|
00001a50  6c 6f 63 6b 25 2c 24 28  62 6c 6f 63 6b 25 2b 34  |lock%,$(block%+4|
00001a60  29 29 0d 0b 4a 29 c8 99  20 22 57 69 6d 70 5f 52  |))..J).. "Wimp_R|
00001a70  65 70 6f 72 74 45 72 72  6f 72 22 2c 62 6c 6f 63  |eportError",bloc|
00001a80  6b 25 2c 31 2c 22 53 61  66 65 22 0d 0b 54 05 e1  |k%,1,"Safe"..T..|
00001a90  0d 0b 5e 05 3a 0d 0b 68  16 2a 2a 2a 20 69 6e 69  |..^.:..h.*** ini|
00001aa0  74 69 61 6c 69 73 61 74  69 6f 6e 0d 0b 72 05 3a  |tialisation..r.:|
00001ab0  0d 0b 7c 10 dd f2 69 6e  69 74 69 61 6c 69 73 65  |..|...initialise|
00001ac0  0d 0b 86 11 de 20 62 6c  6f 63 6b 25 20 31 30 32  |..... block% 102|
00001ad0  33 0d 0b 90 39 c8 99 20  22 57 69 6d 70 5f 49 6e  |3...9.. "Wimp_In|
00001ae0  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 26 34  |itialise",200,&4|
00001af0  42 35 33 34 31 35 34 2c  22 53 61 66 65 22 20 b8  |B534154,"Safe" .|
00001b00  20 2c 6d 79 5f 74 61 73  6b 25 0d 0b 9a 05 3a 0d  | ,my_task%....:.|
00001b10  0b a4 0b 71 75 69 74 25  3d a3 0d 0b ae 16 65 6e  |...quit%=.....en|
00001b20  63 6f 64 65 64 5f 74 79  70 65 25 3d 26 37 46 44  |coded_type%=&7FD|
00001b30  0d 0b b8 24 c8 99 20 22  57 69 6d 70 5f 53 6c 6f  |...$.. "Wimp_Slo|
00001b40  74 53 69 7a 65 22 2c 2d  31 2c 2d 31 20 b8 20 73  |tSize",-1,-1 . s|
00001b50  6c 6f 74 25 0d 0b c2 1c  66 69 6c 65 5f 62 75 66  |lot%....file_buf|
00001b60  66 65 72 25 3d 26 38 30  30 30 2b 73 6c 6f 74 25  |fer%=&8000+slot%|
00001b70  0d 0b cc 05 3a 0d 0b d6  0d f2 61 73 73 65 6d 62  |....:.....assemb|
00001b80  6c 65 0d 0b e0 13 f2 6c  6f 61 64 5f 74 65 6d 70  |le.....load_temp|
00001b90  6c 61 74 65 73 0d 0b ea  05 3a 0d 0b f4 1d f2 63  |lates....:.....c|
00001ba0  72 65 61 74 65 5f 6d 65  6e 75 28 22 53 61 66 65  |reate_menu("Safe|
00001bb0  22 2c 38 30 2c 32 29 0d  0b fe 20 f2 6d 65 6e 75  |",80,2)... .menu|
00001bc0  5f 69 74 65 6d 28 22 49  6e 66 6f 22 2c 30 2c 77  |_item("Info",0,w|
00001bd0  5f 69 6e 66 6f 25 29 0d  0c 08 1d f2 6d 65 6e 75  |_info%).....menu|
00001be0  5f 69 74 65 6d 28 22 51  75 69 74 22 2c 26 38 30  |_item("Quit",&80|
00001bf0  2c 2d 31 29 0d 0c 12 05  3a 0d 0c 1c 17 c8 99 20  |,-1)....:...... |
00001c00  22 4f 53 5f 47 65 74 45  6e 76 22 20 b8 20 41 24  |"OS_GetEnv" . A$|
00001c10  0d 0c 26 18 41 24 3d c1  41 24 2c a7 41 24 2c 22  |..&.A$=.A$,.A$,"|
00001c20  22 22 20 22 29 2b 32 29  0d 0c 30 2f e7 20 41 24  |"" ")+2)..0/. A$|
00001c30  3c 3e 22 22 20 74 79 70  65 25 3d 65 6e 63 6f 64  |<>"" type%=encod|
00001c40  65 64 5f 74 79 70 65 25  3a f2 6c 6f 61 64 5f 66  |ed_type%:.load_f|
00001c50  69 6c 65 28 41 24 29 0d  0c 3a 05 e1 0d 0c 44 05  |ile(A$)..:....D.|
00001c60  3a 0d 0c 4e 0e dd f2 61  73 73 65 6d 62 6c 65 0d  |:..N...assemble.|
00001c70  0c 58 0e de 20 63 6f 64  65 25 20 37 39 0d 0c 62  |.X.. code% 79..b|
00001c80  12 e3 20 41 25 3d 30 20  b8 20 32 20 88 20 32 0d  |.. A%=0 . 2 . 2.|
00001c90  0c 6c 0c 50 25 3d 63 6f  64 65 25 0d 0c 76 0b 5b  |.l.P%=code%..v.[|
00001ca0  4f 50 54 20 41 25 0d 0c  80 21 2e 63 6f 6e 76 65  |OPT A%...!.conve|
00001cb0  72 74 20 20 3b 52 36 3d  65 6f 72 20 63 6f 64 65  |rt  ;R6=eor code|
00001cc0  2c 52 37 3d 65 6e 64 0d  0c 8a 10 4c 44 52 20 52  |,R7=end....LDR R|
00001cd0  35 2c 73 74 61 72 74 0d  0c 94 0a 2e 6c 6f 6f 70  |5,start.....loop|
00001ce0  31 0d 0c 9e 17 41 44 44  20 52 36 2c 52 36 2c 52  |1....ADD R6,R6,R|
00001cf0  36 2c 52 4f 52 23 32 35  0d 0c a8 0f 4c 44 52 20  |6,ROR#25....LDR |
00001d00  52 31 2c 5b 52 35 5d 0d  0c b2 0e 82 20 52 31 2c  |R1,[R5]..... R1,|
00001d10  52 31 2c 52 36 0d 0c bc  12 53 54 52 20 52 31 2c  |R1,R6....STR R1,|
00001d20  5b 52 35 5d 2c 23 34 0d  0c c6 0d 43 4d 50 20 52  |[R5],#4....CMP R|
00001d30  35 2c 52 37 0d 0c d0 0d  42 4c 4f 20 6c 6f 6f 70  |5,R7....BLO loop|
00001d40  31 0d 0c da 0e 4d 4f 56  20 50 43 2c 52 31 34 0d  |1....MOV PC,R14.|
00001d50  0c e4 05 3a 0d 0c ee 15  2e 63 68 65 63 6b 73 75  |...:.....checksu|
00001d60  6d 20 3b 52 37 3d 65 6e  64 0d 0c f8 0d 4d 4f 56  |m ;R7=end....MOV|
00001d70  20 52 30 2c 23 30 0d 0d  02 10 4c 44 52 20 52 35  | R0,#0....LDR R5|
00001d80  2c 73 74 61 72 74 0d 0d  0c 0a 2e 6c 6f 6f 70 32  |,start.....loop2|
00001d90  0d 0d 16 12 4c 44 52 20  52 31 2c 5b 52 35 5d 2c  |....LDR R1,[R5],|
00001da0  23 34 0d 0d 20 0d 43 4d  50 20 52 35 2c 52 37 0d  |#4.. .CMP R5,R7.|
00001db0  0d 2a 12 41 44 44 4c 53  20 52 30 2c 52 30 2c 52  |.*.ADDLS R0,R0,R|
00001dc0  31 0d 0d 34 0d 42 4c 4f  20 6c 6f 6f 70 32 0d 0d  |1..4.BLO loop2..|
00001dd0  3e 0e 4d 4f 56 20 50 43  2c 52 31 34 0d 0d 48 05  |>.MOV PC,R14..H.|
00001de0  3a 0d 0d 52 1e 2e 73 74  61 72 74 20 45 51 55 44  |:..R..start EQUD|
00001df0  20 66 69 6c 65 5f 62 75  66 66 65 72 25 2b 38 0d  | file_buffer%+8.|
00001e00  0d 5c 07 5d 3a ed 0d 0d  66 05 e1 0d 0d 70 05 3a  |.\.]:...f....p.:|
00001e10  0d 0d 7a 15 2a 2a 2a 20  77 69 6d 70 20 63 72 65  |..z.*** wimp cre|
00001e20  61 74 6f 72 73 0d 0d 84  05 3a 0d 0d 8e 14 dd f2  |ators....:......|
00001e30  6c 6f 61 64 5f 74 65 6d  70 6c 61 74 65 73 0d 0d  |load_templates..|
00001e40  98 1c de 20 62 5f 69 6e  64 25 20 35 30 30 3a 69  |... b_ind% 500:i|
00001e50  6e 64 25 3d 62 5f 69 6e  64 25 0d 0d a2 32 c8 99  |nd%=b_ind%...2..|
00001e60  20 22 57 69 6d 70 5f 4f  70 65 6e 54 65 6d 70 6c  | "Wimp_OpenTempl|
00001e70  61 74 65 22 2c 2c 22 3c  4f 62 65 79 24 44 69 72  |ate",,"<Obey$Dir|
00001e80  3e 2e 54 65 6d 70 6c 61  74 65 73 22 0d 0d ac 18  |>.Templates"....|
00001e90  f2 63 72 65 61 74 65 5f  69 63 6f 6e 62 61 72 5f  |.create_iconbar_|
00001ea0  69 63 6f 6e 0d 0d b6 22  f2 63 72 65 61 74 65 5f  |icon...".create_|
00001eb0  77 69 6e 64 6f 77 28 22  49 6e 66 6f 22 2c 77 5f  |window("Info",w_|
00001ec0  69 6e 66 6f 25 29 0d 0d  c0 22 f2 63 72 65 61 74  |info%)...".creat|
00001ed0  65 5f 77 69 6e 64 6f 77  28 22 4d 61 69 6e 22 2c  |e_window("Main",|
00001ee0  77 5f 6d 61 69 6e 25 29  0d 0d ca 17 20 62 5f 74  |w_main%).... b_t|
00001ef0  69 74 6c 65 25 3d 62 6c  6f 63 6b 25 21 37 32 0d  |itle%=block%!72.|
00001f00  0d d4 21 20 62 5f 74 79  70 65 25 3d a4 69 6e 64  |..! b_type%=.ind|
00001f10  5f 61 64 64 72 28 77 5f  6d 61 69 6e 25 2c 30 29  |_addr(w_main%,0)|
00001f20  0d 0d de 22 20 62 5f 66  6e 61 6d 65 25 3d a4 69  |..." b_fname%=.i|
00001f30  6e 64 5f 61 64 64 72 28  77 5f 6d 61 69 6e 25 2c  |nd_addr(w_main%,|
00001f40  31 29 0d 0d e8 20 20 62  5f 61 73 6b 25 3d a4 69  |1)...  b_ask%=.i|
00001f50  6e 64 5f 61 64 64 72 28  77 5f 6d 61 69 6e 25 2c  |nd_addr(w_main%,|
00001f60  33 29 0d 0d f2 25 20 62  5f 70 61 73 73 77 6f 72  |3)...% b_passwor|
00001f70  64 25 3d a4 69 6e 64 5f  61 64 64 72 28 77 5f 6d  |d%=.ind_addr(w_m|
00001f80  61 69 6e 25 2c 34 29 0d  0d fc 1b c8 99 20 22 57  |ain%,4)...... "W|
00001f90  69 6d 70 5f 43 6c 6f 73  65 54 65 6d 70 6c 61 74  |imp_CloseTemplat|
00001fa0  65 22 0d 0e 06 05 e1 0d  0e 10 05 3a 0d 0e 1a 24  |e".........:...$|
00001fb0  dd f2 63 72 65 61 74 65  5f 77 69 6e 64 6f 77 28  |..create_window(|
00001fc0  6e 61 6d 65 24 2c f8 20  68 61 6e 64 6c 65 25 29  |name$,. handle%)|
00001fd0  0d 0e 24 46 c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |..$F.. "Wimp_Loa|
00001fe0  64 54 65 6d 70 6c 61 74  65 22 2c 2c 62 6c 6f 63  |dTemplate",,bloc|
00001ff0  6b 25 2c 69 6e 64 25 2c  62 5f 69 6e 64 25 2b 35  |k%,ind%,b_ind%+5|
00002000  30 30 2c 2d 31 2c 6e 61  6d 65 24 2c 30 20 b8 20  |00,-1,name$,0 . |
00002010  2c 2c 69 6e 64 25 0d 0e  2e 23 e7 20 6e 61 6d 65  |,,ind%...#. name|
00002020  24 3d 22 4d 61 69 6e 22  20 62 6c 6f 63 6b 25 21  |$="Main" block%!|
00002030  28 38 38 2b 32 34 29 3d  31 0d 0e 38 2c c8 99 20  |(88+24)=1..8,.. |
00002040  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00002050  6f 77 22 2c 2c 62 6c 6f  63 6b 25 20 b8 20 68 61  |ow",,block% . ha|
00002060  6e 64 6c 65 25 0d 0e 42  05 e1 0d 0e 4c 05 3a 0d  |ndle%..B....L.:.|
00002070  0e 56 19 dd f2 63 72 65  61 74 65 5f 69 63 6f 6e  |.V...create_icon|
00002080  62 61 72 5f 69 63 6f 6e  0d 0e 60 33 c8 99 20 22  |bar_icon..`3.. "|
00002090  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
000020a0  65 22 2c 2c 62 6c 6f 63  6b 25 2c 2c 2c 2d 31 2c  |e",,block%,,,-1,|
000020b0  22 49 63 6f 6e 62 61 72  22 2c 30 0d 0e 6a 10 62  |"Iconbar",0..j.b|
000020c0  6c 6f 63 6b 25 21 38 34  3d 2d 31 0d 0e 74 23 c8  |lock%!84=-1..t#.|
000020d0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
000020e0  6f 6e 22 2c 2c 62 6c 6f  63 6b 25 2b 38 34 0d 0e  |on",,block%+84..|
000020f0  7e 05 e1 0d 0e 88 05 3a  0d 0e 92 20 dd a4 69 6e  |~......:... ..in|
00002100  64 5f 61 64 64 72 28 21  62 6c 6f 63 6b 25 2c 62  |d_addr(!block%,b|
00002110  6c 6f 63 6b 25 21 34 29  0d 0e 9c 22 c8 99 20 22  |lock%!4)...".. "|
00002120  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00002130  65 22 2c 2c 62 6c 6f 63  6b 25 0d 0e a6 0e 3d 62  |e",,block%....=b|
00002140  6c 6f 63 6b 25 21 32 38  0d 0e b0 05 3a 0d 0e ba  |lock%!28....:...|
00002150  1a dd f2 73 68 6f 77 5f  77 69 6e 64 6f 77 28 21  |...show_window(!|
00002160  62 6c 6f 63 6b 25 29 0d  0e c4 24 c8 99 20 22 57  |block%)...$.. "W|
00002170  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00002180  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 0e ce 2d 42  |te",,block%...-B|
00002190  25 3d 62 6c 6f 63 6b 25  2b 36 34 3a c8 99 20 22  |%=block%+64:.. "|
000021a0  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
000021b0  6e 66 6f 22 2c 2c 42 25  0d 0e d8 28 62 6c 6f 63  |nfo",,B%...(bloc|
000021c0  6b 25 21 34 3d 42 25 21  30 2d 31 35 30 3a 62 6c  |k%!4=B%!0-150:bl|
000021d0  6f 63 6b 25 21 31 32 3d  42 25 21 30 2b 31 35 32  |ock%!12=B%!0+152|
000021e0  0d 0e e2 28 62 6c 6f 63  6b 25 21 38 3d 42 25 21  |...(block%!8=B%!|
000021f0  34 2d 31 30 38 3a 62 6c  6f 63 6b 25 21 31 36 3d  |4-108:block%!16=|
00002200  42 25 21 34 2b 31 30 38  0d 0e ec 10 62 6c 6f 63  |B%!4+108....bloc|
00002210  6b 25 21 32 38 3d 2d 31  0d 0e f6 20 c8 99 20 22  |k%!28=-1... .. "|
00002220  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00002230  2c 2c 62 6c 6f 63 6b 25  0d 0f 00 05 e1 0d 0f 0a  |,,block%........|
00002240  05 3a 0d 0f 14 27 dd f2  63 72 65 61 74 65 5f 6d  |.:...'..create_m|
00002250  65 6e 75 28 74 69 74 6c  65 24 2c 77 69 64 74 68  |enu(title$,width|
00002260  25 2c 69 74 65 6d 73 25  29 0d 0f 1e 18 de 20 6d  |%,items%)..... m|
00002270  65 6e 75 25 20 32 37 2b  32 34 2a 69 74 65 6d 73  |enu% 27+24*items|
00002280  25 0d 0f 28 17 4d 25 3d  6d 65 6e 75 25 3a 24 4d  |%..(.M%=menu%:$M|
00002290  25 3d 74 69 74 6c 65 24  0d 0f 32 1d 4d 25 21 31  |%=title$..2.M%!1|
000022a0  32 3d 26 37 30 32 30 37  3a 4d 25 21 31 36 3d 77  |2=&70207:M%!16=w|
000022b0  69 64 74 68 25 0d 0f 3c  1d 4d 25 21 32 30 3d 34  |idth%..<.M%!20=4|
000022c0  34 3a 4d 25 21 32 34 3d  30 3a 49 25 3d 4d 25 2b  |4:M%!24=0:I%=M%+|
000022d0  32 38 0d 0f 46 05 e1 0d  0f 50 05 3a 0d 0f 5a 21  |28..F....P.:..Z!|
000022e0  dd f2 6d 65 6e 75 5f 69  74 65 6d 28 69 74 65 6d  |..menu_item(item|
000022f0  24 2c 66 6c 61 67 25 2c  73 75 62 25 29 0d 0f 64  |$,flag%,sub%)..d|
00002300  25 21 49 25 3d 66 6c 61  67 25 3a 49 25 21 34 3d  |%!I%=flag%:I%!4=|
00002310  73 75 62 25 3a 49 25 21  38 3d 26 37 30 30 30 30  |sub%:I%!8=&70000|
00002320  32 31 0d 0f 6e 19 24 28  49 25 2b 31 32 29 3d 69  |21..n.$(I%+12)=i|
00002330  74 65 6d 24 3a 49 25 2b  3d 32 34 0d 0f 78 05 e1  |tem$:I%+=24..x..|
00002340  0d ff                                             |..|
00002342