� > <BBCTape$Dir>.!RunImage

	� � �
(
2app_name$ = "BBCTape"
<
F� task% 4:$task% = "TASK"
P=ș "Wimp_Initialise",200,!task%,app_name$ � ,task_handle%
Z
d� � �error(�)
n
x�wimp_init
��prog_init
�
�� � �error(�)
�
�8� Minimise memory consumption (current end + 1 page)
�� = � + 8*1024
�
�*ș "OS_ReadMonotonicTime" � idle_time%
�idle_time% += poll_time%
�
��
�B  ș "Wimp_PollIdle",poll_mask%,wimp_block%,idle_time% � code%
�  Ȏ code% �

;    � 0     :� putting% � �null_putting � �null_getting

:                ș "OS_ReadMonotonicTime" � idle_time%

,                idle_time% += poll_time%

"2    � 2     :ș "Wimp_OpenWindow",,wimp_block%

,3    � 3     :ș "Wimp_CloseWindow",,wimp_block%

6    � 6     :�mouse_click

@    � 7     :�user_drag_box

J4    � 8     :ș "Wimp_ProcessKey",wimp_block%!24

T     � 9     :�menu_selection

^    � 17,18 :�user_message

h%    � 19    :� wimp_block%!16=3 �

r0                  ș "OS_File",6,saved_file$

|E                  �message("Data transfer failed: Receiver died")

�                �

�  �

�� pigs_can_fly%

�

��exit(�)

�

��

�

�L------------------------------------------------------------------------

�

�� �exit(must%)

�

�<� If must% is TRUE we must exit, even with unsaved files

2� hourglass% ș "Hourglass_Off":hourglass% = �

&X� modified% � � must% � � �confirm("Unsaved data: are you sure you want to Quit?") �
0
:!� Clear out the RS423 buffers
D	*FX 2
N*FX 21 1
X*FX 21 2
b
l+ș "Wimp_CloseDown",task_handle%,!task%
v
��
�
�L------------------------------------------------------------------------
�
�� �error(quit%)
�
�
� report$
�
�� �:� � �exit(�)
�
�;� Disk not found/not present - filer provides error box
�� �=&108D4 � �=&108D5 �
�
!string_buffer% = �
8report$ = �$ + " (internal error code " + �(�) + ")"
,$(string_buffer%+4) = �report$,250) + �0
 
*4ș "Wimp_ReportError",string_buffer%,1,app_name$
4
>� quit% �exit(�)
H
R�reset_state
\
f�
p
zL------------------------------------------------------------------------
�
�� �confirm(message$)
�
�� mask%,code%,end%,yes%
�
�� �
�M� � � �:ȗ ȓ 0,0,screen_x%,screen_y%:�close_window(error_window%):� �,�$
�
�#� hourglass% ș "Hourglass_Off"
�
� $error_ptr% = �message$,255)
�
��open_window(error_window%)

+ș "Wimp_GetWindowOutline",,wimp_block%
cȗ ȓ wimp_block%!4,wimp_block%!8,wimp_block%!12-wimp_block%!4-1,wimp_block%!16-wimp_block%!8-1
$
.1mask% = 1 + (%11<<4) + (%11<<11) + (%111<<17)
8
end%  = �
B
L�
V.  ș "Wimp_Poll",mask%,wimp_block% � code%
`  Ȏ code% �
j$    � 6 :end% = �yes_or_no(yes%)
t3    � 8 :� wimp_block%!24=&1B end% = �:yes% = �
~  �
�
� end%
�
�!ȗ ȓ 0,0,screen_x%,screen_y%
� �close_window(error_window%)
�
�"� hourglass% ș "Hourglass_On"
�
�
= yes%
�
�L------------------------------------------------------------------------
�
�� �yes_or_no(� yes%)


yes% = �

'� wimp_block%!12<>error_window% = �
($� wimp_block%!16=1 yes% = �: = �
2� wimp_block%!16=4 = �
<
F= �
P
ZL------------------------------------------------------------------------
d
n� �message(message$)
x
�#� hourglass% ș "Hourglass_Off"
�
�=ș "Wimp_ReportError","    "+message$+�0,%10001,app_name$
�
�"� hourglass% ș "Hourglass_On"
�
��
�
�L************************************************************************
�
�Initialisation
�
�L************************************************************************

� �wimp_init

")� wimp_block% 1023,string_buffer% 255
,� saveas_block% 88 + 3*32
6 � fileinfo_block% 88 + 17*32
@
J� Initialise various flags
T'hourglass%    = �:saving%       = �
^'modified%     = �:pigs_can_fly% = �
hDusing_scrap%  = -1   :saved_file$   = "<BBCTape$Dir>.xxxxxxxxxx"
rversion$      = "19 Mar"
|
�� Get the screen size
�+!wimp_block%   =  4:wimp_block%!4  =  5
�+wimp_block%!8  = 11:wimp_block%!12 = 12
�wimp_block%!16 = -1
�7ș "OS_ReadVduVariables",wimp_block%,wimp_block%+20
�:screen_x% = (1 << wimp_block%!20)*(wimp_block%!28 + 1)
�:screen_y% = (1 << wimp_block%!24)*(wimp_block%!32 + 1)
�
�E� Mask out null, pointer leaving/entering window, lose/gain caret
�9poll_mask% = 1 + (%11<<4) + (%11<<11):poll_time% = 10
�
�
�icon_bar

�load_templates

&�create_menu
0
:	�info
D
N�
X
bL------------------------------------------------------------------------
l
v� �icon_bar
�
�!wimp_block%   = -2
�+wimp_block%!4  =  0:wimp_block%!8  =  0
�+wimp_block%!12 = 68:wimp_block%!16 = 68
�!� Sprite, click notifies once
�%wimp_block%!20 = (1<<1) + (3<<12)
�'$(wimp_block%+24) = "!" + app_name$
�
�%ș "Wimp_CreateIcon",,wimp_block%
�
��
�
�L------------------------------------------------------------------------

� �load_templates

 � name%,ptr%,ind_buffer%,i%
*
4� name% 12,ind_buffer% 1023
>
H?ș "Wimp_OpenTemplate",,"<" + app_name$ + "$Dir>.Templates"
R
\� Save dialogue box
f$name% = "saveas"
pXș "Wimp_LoadTemplate",,wimp_block%,ind_buffer%,ind_buffer%+1023,-1,name%,0 � ,,ptr%
z� i%=0 � 88+3*32-1
�'  saveas_block%!i% = wimp_block%!i%
��
�!save_ptr% = saveas_block%!140
�3ș "Wimp_CreateWindow",,saveas_block% � saveas%
�
�� File information
�$name% = "fileInfo"
�Qș "Wimp_LoadTemplate",,wimp_block%,ptr%,ind_buffer%+1023,-1,name%,0 � ,,ptr%
�� i%=0 � 88+17*32-1
�)  fileinfo_block%!i% = wimp_block%!i%
��
�,fileinfo_block%!(108+4*32)   = save_ptr%
�4fileinfo_block%!(108+4*32+8) = saveas_block%!148
	-type_buffer% = fileinfo_block%!(108+3*32)
	7ș "Wimp_CreateWindow",,fileinfo_block% � fileinfo%
	
	$� yes/no error box
	.$name% = "error"
	8Qș "Wimp_LoadTemplate",,wimp_block%,ptr%,ind_buffer%+1023,-1,name%,0 � ,,ptr%
	B error_ptr% = wimp_block%!108
	L7ș "Wimp_CreateWindow",,wimp_block% � error_window%
	V
	`� Program info box
	j$name% = "proginfo"
	tQș "Wimp_LoadTemplate",,wimp_block%,ptr%,ind_buffer%+1023,-1,name%,0 � ,,ptr%
	~?$(wimp_block%!236) = �"1.00 (25-Feb-1991)",wimp_block%!244)
	�3ș "Wimp_CreateWindow",,wimp_block% � proginfo%
	�
	�� Status window
	�$name% = "status"
	�Hș "Wimp_LoadTemplate",,wimp_block%,ptr%,ind_buffer%+1023,-1,name%,0
	�+status_length% = wimp_block%!(108+2*32)
	�+status_bytes%  = wimp_block%!(108+3*32)
	�+status_rate%   = wimp_block%!(108+4*32)
	�+status_crc%    = wimp_block%!(108+9*32)
	�8ș "Wimp_CreateWindow",,wimp_block% � status_window%
	�
	�ș "Wimp_CloseTemplate"


�

L------------------------------------------------------------------------
(
2� �create_menu
<
F� i%,name$,width%,temp%
P
Z!� name_block% 52,name_ptr% 10
d!� type_block% 52,type_ptr%  8
n/� load_block% 52,load_ptr%  4,hex_valid% 10
x!� exec_block% 52,exec_ptr%  4
�
�$$name_ptr%  = "":$type_ptr% = ""
�$$load_ptr%  = "":$exec_ptr% = ""
�$hex_valid% = "a0-9a-fA-F"
�
�A�writeable_menu(name_block%,"File name",11,0,name_ptr%,11,-1)
�@�writeable_menu(type_block%,"File type",10,0,type_ptr%,9,-1)
�K�writeable_menu(load_block%,"Load address",13,0,load_ptr%,5,hex_valid%)
�K�writeable_menu(exec_block%,"Exec address",13,0,exec_ptr%,5,hex_valid%)
�
�� +0
�
�� menu_max%,len_menu_max%
$� menu$(len_menu_max%,menu_max%)
7� menu_block%(menu_max%),num_menu_items%(menu_max%)

"� i%=0 � menu_max%
,(  � name$,num_menu_items%(i%),width%
6)  � temp% 28 + 24*num_menu_items%(i%)
@  menu_block%(i%) = temp%
J/  �build_menu(menu_block%(i%),name$,width%)
T�
^
h� i%=0 � menu_max%
r?  �build_menu_items(menu_block%(i%),num_menu_items%(i%),i%)
|�
�
�)� No. of menus - 1, length of longest
�	� 2,8
�
�� Name, no. of items, width
�� "BBCTape",6,9
�� "Misc"   ,6,11
�� "Options",8,13
�
�2� Item text, tick, shade, dot, notify, pointer
�
�+� "Misc"        ,0,0,0,0,menu_block%(1)
�$� "Save"        ,0,0,0,1,saveas%
+� "Options"     ,0,0,0,0,menu_block%(2)
(� "Upload"      ,0,0,0,0,name_block%
� "Download"    ,0,0,1,0,-1
&� "Quit"        ,0,0,0,0,-1
0
:&� "Info"        ,0,0,0,0,proginfo%
D&� "File"        ,0,0,0,1,fileinfo%
N� "Status ..."  ,0,0,1,0,-1
X� "9600, 8n1"   ,0,0,1,0,-1
b� "Reset"       ,0,0,0,0,-1
l� "Clear"       ,0,0,0,0,-1
v
�(� "File type"   ,0,0,0,0,type_block%
�(� "Load address",1,0,0,0,load_block%
�(� "Exec address",1,0,1,0,exec_block%
�� "CR � LF"     ,0,0,0,0,-1
�� "Guess type"  ,0,0,0,0,-1
�� "Auto load"   ,0,0,0,0,-1
�� "Fast load"   ,1,0,0,0,-1
�� "Use BGET"    ,0,0,0,0,-1
�
��
�
�L------------------------------------------------------------------------
�

� �info



� mask%,scroll%

 

*� ��$,5,6)<>version$ �

4

>-mask% = (%11<<4) + (%11<<11) + (%111<<17)

H

R�open_window(proginfo%)

\$ș "Wimp_Poll",mask%,wimp_block%

f

p�wait(200)

z

�!wimp_block% = proginfo%

�)ș "Wimp_GetWindowState",,wimp_block%

�

�� scroll%=1 � 300

�  wimp_block%!24 = -scroll%

�'  ș "Wimp_OpenWindow",,wimp_block%

�)  ș "Wimp_Poll",mask%,wimp_block%+32

��

�

��wait(1000)

�

�� scroll%=300 � 0 � -1

�  wimp_block%!24 = -scroll%
'  ș "Wimp_OpenWindow",,wimp_block%
)  ș "Wimp_Poll",mask%,wimp_block%+32
�
$
.�wait(200)
8
B�close_window(proginfo%)
L
V�
`
jL------------------------------------------------------------------------
t
~� �wait(time%)
�
�time% += �
�
�� � �>time%
�
��
�
�L------------------------------------------------------------------------
�
�� �prog_init
�
��assemble_crc


� Main data block
$file_block_length% = 32*1024 - 1
$� file_block% file_block_length%
(
2� Initial option settings
<"do_crlf%    = �:one_shot%  = �
F"load_bget%  = �:load_exec% = �
P"guess_type% = �:fast_load% = �
Z
ddefault_file_type% = &FFF
n
xold_time% = 0
�
�� �reset_all
�
�2file_length% = 0     :file_ptr%  = file_block%
�$crlf_done%   = � :modified%  = �
�-$load_ptr%   = "FFFF":$exec_ptr% = "FFFF"
�
�%original_file_name$ = "<unknown>"
�
��get_file_type
�
�� �reset_state
�
+� Flush buffers and enable serial input
	*FX 2
*FX 21 1
"*FX 21 2
,*FX 2 2
6
@� Pointers etc.
J.new_ptr%     = file_ptr%:crc_errors%   = 0
T.put_ptr%     = file_ptr%:num_bytes%    = 0
^.put_end_ptr% = file_ptr%:block_length% = 0
_last_button% = 0
h
r� State machine flags
|0putting%       = �:shaking%              = �
�0getting_ok%    = �:getting_file_length%  = �
�0getting_end%   = �:getting_block_length% = �
�0getting_block% = �:getting_file_name%    = �
�0downloading%   = �:was_downloading%      = �
�0uploading%     = �:last_download%        = �
�
�poll_mask% = poll_mask% � 1
�
��menu_shade(0,"Upload",�)
��menu_shade(0,"Download",�)
�
�$�select_icon(status_window%,0,0)
�$�select_icon(status_window%,1,0)

2� hourglass% ș "Hourglass_Off":hourglass% = �

&�
0
:L------------------------------------------------------------------------
D
N� �assemble_crc
X
b;� This takes 5.31 ms, vs 2.2 sec for the Basic version!
l
v@� ptr,length,bits,count,data,lo,hi,link,nbyt,bytloop,opt%,P%
�
�� crc% 100
�
�*ptr  = 0:length = 1:bits = 2:count = 3
�+data = 4:lo     = 5:hi   = 6:link  = 14
�
�� opt%=0 � 2 � 2
�
P% = crc%
�
[OPT opt%
�          MOV     hi,#0
�          MOV     lo,#0
�          MOV     count,#0
�	.nbyt
&          LDRB    data,[ptr,count]
          �     hi,hi,data
          MOV     bits,#8
 .bytloop
*          TST     hi,#&80
4          �NE   hi,hi,#8
>          �NE   lo,lo,#&10
H"          MOV     lo,lo,LSL #1
R          ADDNE   lo,lo,#1
\"          MOV     hi,hi,LSL #1
f          TST     lo,#&100
p          ADDNE   hi,hi,#1
z"          SUBS    bits,bits,#1
�          BNE     bytloop
�
�$          ADD     count,count,#1
�"          CMP     count,length
�          BNE     nbyt
�
�          STRB    lo,crc_lo
�          STRB    hi,crc_hi
�          MOV     PC,link
�
�.crc_lo   EQUB    0
�.crc_hi   EQUB    0
�]
�

�
$
.L------------------------------------------------------------------------
8
B� �get_file_type
L
V� flags%,ptr%,temp%
`
j� String -> file type
t:ș "XOS_FSControl",31,$type_ptr% � ,,file_type%;flags%
~0� flags% � 1 file_type% = default_file_type%
�
�� File type -> string
�?ș "OS_FSControl",18,,file_type% � ,,!type_ptr%,type_ptr%!4
�type_ptr%?8 = &0D
�ptr% = type_ptr%+7
�5ȕ ?ptr%=&20 � ptr%>type_ptr%:?ptr%=&0D:ptr%-=1:�
�
�'� load_exec% file_type% = &FFFFFFFF
�
�� Read load/exec addresses
�8ș "XOS_ReadUnsigned",16,$load_ptr% � ,,temp%;flags%
�7� flags% � 1 � $load_ptr% = �~load% � load% = temp%


8ș "XOS_ReadUnsigned",16,$exec_ptr% � ,,temp%;flags%
7� flags% � 1 � $exec_ptr% = �~exec% � exec% = temp%

(�
2
<L************************************************************************
F
PMain routines
Z
dL************************************************************************
n
x� �null_putting
�
�� timeout%,flags%
�
� timeout% = � + 20*poll_time%
�
�$ș "Hourglass_On":hourglass% = �
�
��
�,  ș "OS_SerialOp",3,?put_ptr% � ;flags%
�$  � (flags% � 2)=0 put_ptr% += 1
�7� (flags% � 2) � put_ptr%=put_end_ptr% � �>timeout%
�
�%ș "Hourglass_Off":hourglass% = �

(� put_ptr%=put_end_ptr% putting% = �

"� � downloading% �
,
6� � putting% �
@  downloading% = �
J#  poll_mask%   = poll_mask% � 1
T  �menu_shade(0,"Upload",�)
^�
h
r�update_status
|
��
�
�L------------------------------------------------------------------------
�
�� �update_status
�
�8� downloading% � (was_downloading% � � uploading%) �
�  was_downloading% = �
�3  � downloading% � last_download% old_time% = �
�"  � old_time%<=0 old_time% = 1
�>  � downloading% � last_download% = � � last_download% = �
�F  ș "OS_ConvertFileSize",put_end_ptr%-file_ptr%,status_length%,12
�.  $status_bytes% = �(put_ptr% - file_ptr%)
@  $status_rate%  = �((put_ptr% - file_ptr%)*100 � old_time%)
  $status_crc%   = "0"
�
&  was_downloading% = �
0   � uploading% old_time% = �
:"  � old_time%<=0 old_time% = 1
D<  ș "OS_ConvertFileSize",file_length%,status_length%,12
N1  $status_bytes% = �(file_ptr% - file_block%)
XC  $status_rate%  = �((file_ptr% - file_block%)*100 � old_time%)
b%  $status_crc%   = �(crc_errors%)
l�
v
�.�select_icon(status_window%,0,-uploading%)
�0�select_icon(status_window%,1,-downloading%)
�"�update_icon(status_window%,2)
�"�update_icon(status_window%,3)
�"�update_icon(status_window%,4)
�"�update_icon(status_window%,9)
�
��
�
�L------------------------------------------------------------------------
�
�� �null_getting
�
+� new_bytes%,timeout%,byte%,flags%,got%

&ș "OS_Byte",&80,&FE � ,new_bytes%
 4� new_bytes%=0 � new_ptr%-file_ptr%=num_bytes% �
*
4timeout% = � + 2*poll_time%
>*� fast_load% timeout% += 98*poll_time%
H
R$ș "Hourglass_On":hourglass% = �
\
f�
p(  ș "OS_SerialOp",4 � ,byte%;flags%
z6  � (flags% � 2)=0 ?new_ptr% = byte%:new_ptr% += 1
�E  � new_ptr%-file_block%+10>file_block_length% � 1,"Data overrun"
�� (flags% � 2) � �>timeout%
�
�+num_bytes%     = new_ptr%   - file_ptr%
�/num_crc_bytes% = num_bytes% - block_length%
�
�
Ȏ � �
�<  � getting_ok%           � num_bytes%>0     :got% = �ok
�?  � shaking%              � num_bytes%>1     :got% = �shake
�E  � getting_file_length%  � num_bytes%>1     :got% = �file_length
�=  � getting_end%          � num_bytes%>0     :got% = �end
�F  � getting_block_length% � num_bytes%>2     :got% = �block_length
�?  � getting_block%        � num_crc_bytes%>1 :got% = �block
C  � getting_file_name%    � num_bytes%>8     :got% = �file_name
7                                         :got% = 0
�
$
. � num_bytes%>got% � got%>0 �
88  � new_ptr%=file_ptr% � file_ptr%+num_bytes%-got%-1
B!    ?new_ptr% = new_ptr%?got%
L  �
V�
`,new_ptr% = file_ptr% + num_bytes% - got%
j
t%ș "Hourglass_Off":hourglass% = �
~
��
�
�L------------------------------------------------------------------------
�
�� �shake
�
�� i%
�
�0� ?file_ptr%<>�("S") � file_ptr%?1<>�("B") �
�7  put_ptr%  = file_ptr%:put_end_ptr% = put_ptr% + 1
�  ?put_ptr% = �("x")
�  putting%  = �
  = num_bytes%

�

put_ptr%   = new_ptr% - 2
(+?put_ptr%  = �("s"):put_ptr%?1 = �("b")
2
<� $name_ptr%="" �
F8  � load_bget% � put_ptr%?2 = &03 � put_ptr%?2 = &0C
P!  put_end_ptr% = put_ptr% + 3
Z/  shaking%     = �:putting%             = �
d0  getting_ok%  = � :getting_file_length% = �
n�
x  put_ptr%?2   = &30
�=  � i%=0 � �($name_ptr%):put_ptr%?(i%+3) = name_ptr%?i%:�
�1  put_end_ptr% = put_ptr% + 4 + �($name_ptr%)
�  $name_ptr%   = ""
�&  putting%     = �:getting_ok% = �
��
�
�= 2
�
�L------------------------------------------------------------------------
�
�	� �ok
�
�getting_ok% = �

� �bits(?file_ptr%)<6 �
6  �message("Protocol error - transmission failed")
,  �reset_all
@	  = 0
A�
J
T-� last_button%=4 � getting_file_length% �
h-  �message("Press play on tape recorder")
r  last_button% = 0
|�
}
�= 1
�
�L------------------------------------------------------------------------
�
�� �file_length
�
�/file_length% = ?file_ptr% + 256*file_ptr%?1
�
�getting_file_length% = �
�getting_end%         = �
�
	� = 0

= 2
&
0L------------------------------------------------------------------------
:
D
� �end
N
X�update_status
b
l� �bits(?file_ptr%)<6 �
v  modified%          = �
�  getting_file_name% = �
�  � do_crlf% �do_crlf
�  �report_completion
��
�  getting_block_length% = �
��
�
�getting_end% = �
�
�= 1
�
�L------------------------------------------------------------------------
�
� �report_completion


� report$
 
*.� one_shot% report$ = "Transfer completed"
4
>� crc_errors%>0 �
H'  � report$<>"" report$ += " with "
R;  report$ += �(crc_errors%) + " CRC errors during load"
\  one_shot%   = �
f  crc_errors% = 0
p�
z
�+� file_ptr%-file_block%<>file_length% �
�=  � report$<>"" � report$ += "; data" � report$ += "Data"
�&  report$ += " may have been lost"
�  one_shot% = �
��
�
�#� report$<>"" �message(report$)
�
��
�
�L------------------------------------------------------------------------
�
�� �block_length

=block_length% = �vote(?file_ptr%,file_ptr%?1,file_ptr%?2)
+� block_length%<0 block_length% = 0:= 0
$)� block_length%=0 block_length% = 256
.
8getting_block_length% = �
Bgetting_block%        = �
L
V= 3
`
jL------------------------------------------------------------------------
t
~� �vote(l1%,l2%,l3%)
�
�� l1%=l2% � l1%=l3% = l1%
�
�%� l1%=l2% crc_errors% += 1: = l1%
�%� l1%=l3% crc_errors% += 1: = l1%
�%� l2%=l3% crc_errors% += 1: = l2%
�
�7� �confirm("Serious protocol error; continue?") = 0
�
��reset_state
�
�%original_file_name$ = "<corrupt>"


= -1

L------------------------------------------------------------------------
(
2� �block
<
F� A%,B%,crc_ptr%
P
ZA% = file_ptr%
dB% = block_length%
n
� crc%
x
�(crc_ptr% = file_ptr% + block_length%
�
�.� ?crc_ptr%=?crc_hi � crc_ptr%?1=?crc_lo �
�"  file_ptr%   += block_length%
�  put_ptr%     = file_ptr%
�  ?put_ptr%    = 255
��
�  put_ptr%     = file_ptr%
�  ?put_ptr%    = 0
�  crc_errors% += 1
��
�
�!put_end_ptr%   = put_ptr% + 1
getting_block% = �
putting%       = �
getting_end%   = �
"
,= num_bytes%
6
@L------------------------------------------------------------------------
J
T� �file_name
^
h
� fn_ptr%
r
|fn_ptr% = file_ptr% + 7
�6� fn_ptr% += 1:� ?fn_ptr%=&0D � fn_ptr%=new_ptr%-1
�� ?fn_ptr%<>&0D = 0
�
�6load% = (!file_ptr%  � &FFFF):$load_ptr% = �~load%
�6exec% = (file_ptr%!4 � &FFFF):$exec_ptr% = �~exec%
�
�� guess_type% �guess_type
�
��get_file_type
�
�(original_file_name$ = $(file_ptr%+8)
�
�,$save_ptr% = �file_valid($(file_ptr%+8))
 
 getting_file_name% = �
 
 &D� � one_shot% �save_file("<BBCTape$Dir>.BBCFiles."+$save_ptr%,�)
 0
 :� one_shot% �
 D  �reset_state
 N�
 X  �start_upload(0)
 b�
 l
 v= 0
 �
 �L------------------------------------------------------------------------
 �
 �� �guess_type
 �
 �
Ȏ � �
 �(  � load%>&C000 :$type_ptr% = "Text"
 �+  � load%>&8000 :$type_ptr% = "BBC ROM"
 �(  � exec%>&C000 :$type_ptr% = "Data"
 �)  � exec%>&8000 :$type_ptr% = "BASIC"
 �#           $type_ptr% = "Data"
 ��
 �
!�
!
!L------------------------------------------------------------------------
! 
!*� �file_valid(name$)
!4
!>� i%=1 � �(name$)
!H2  � �bad_char(�name$,i%,1)) �name$,i%,1) = "?"
!R�
!\
!fname$ = �name$,10)
!p
!z= name$
!�
!�L------------------------------------------------------------------------
!�
!�� �bad_char(char$)
!�
!�� char$<"!" = �
!�� char$>"~" = �
!� � char$>"""" � char$<"'" = �
!�� char$="*" = �
!�� char$="." = �
!�� char$=":" = �
!�� char$="<" = �
!�� char$=">" = �
"� char$="@" = �
"� char$="^" = �
"� char$="\" = �
"$             = �
".
"8L------------------------------------------------------------------------
"B
"L� �bits(byte%)
"V
"`
� num%
"j
"tnum% = 0
"~� bit%=0 � 7
"�#  � byte% � (1<<bit%) num% += 1
"��
"�
"�
= num%
"�
"�L************************************************************************
"�
"�6Routines to deal with events from the polling loop
"�
"�L************************************************************************
"�
"�� �mouse_click
#
#
� x%,y%,b%,window%,icon%
#
#Ex%      = !wimp_block%  :y%    = wimp_block%!4:b% = wimp_block%!8
#(3window% = wimp_block%!12:icon% = wimp_block%!16
#2
#<
Ȏ � �
#FE  � b%=2       :� window%=-2 y% = 96 + 44*num_menu_items%(0) + 24
#PD                   ș "Wimp_CreateMenu",,menu_block%(0),x%-64,y%
#Z?  � window%=-2 :�update_status:�open_window(status_window%)
#d  � window%=saveas%
#n    Ȏ icon% �
#x@      � 0 :� b%>15 �start_drag(window%,icon%,b%):saving% = �
#�'      � 2 :�save_file($save_ptr%,�)
#�1              � b%>1 ș "Wimp_CreateMenu",,-1
#�	    �
#��
#�
#��
#�
#�L------------------------------------------------------------------------
#�
#�(� �start_drag(window%,icon%,button%)
#�
#�
� bx%,by%
#�
$drag_button% = button%
$
$!wimp_block% = window%
$")ș "Wimp_GetWindowState",,wimp_block%
$,
$6)bx% = wimp_block%!4  - wimp_block%!20
$@)by% = wimp_block%!16 - wimp_block%!24
$Jwimp_block%!4 = icon%
$T'ș "Wimp_GetIconState",,wimp_block%
$^
$hwimp_block%!4   = 5
$rwimp_block%!8  += bx%
$|wimp_block%!12 += by%
$�wimp_block%!16 += bx%
$�wimp_block%!20 += by%
$�wimp_block%!24  = 0
$�wimp_block%!28  = 0
$�wimp_block%!32  = screen_x%
$�wimp_block%!36  = screen_y%
$�"ș "Wimp_DragBox",,wimp_block%
$�
$��
$�
$�L------------------------------------------------------------------------
$�
$�� �user_drag_box
%
%� x%,y%,window%,icon%
%
%&� � saving% �
%0
%:)ș "Wimp_GetPointerInfo",,wimp_block%
%D6x%       = !wimp_block%  :y%       = wimp_block%!4
%N7window%  = wimp_block%!12:icon%    = wimp_block%!16
%X
%bsaving%       = �
%ltransmit_ptr% = file_block%
%v
%��get_file_type
%�
%�!wimp_block%      = 256
%�3wimp_block%!12    = 0       :wimp_block%!16 = 1
%�7wimp_block%!20    = window% :wimp_block%!24 = icon%
%�4wimp_block%!28    = x%      :wimp_block%!32 = y%
%�/wimp_block%!36    = file_ptr% - file_block%
%�"wimp_block%!40    = file_type%
%�3$(wimp_block%+44) = �leaf_name($save_ptr%) + �0
%�6ș "Wimp_SendMessage",17,wimp_block%,window%,icon%
%�
%��
%�
&L------------------------------------------------------------------------
&
&� �leaf_name(path$)
& 
&*� i%,char$
&4
&>i% = �(path$)
&H�
&R
  i% -= 1
&\  char$ = �path$,i%,1)
&f"� char$="." � char$=":" � i%=1
&p
&z*� char$="." � char$=":" = �path$,i%+1)
&�
&�= path$
&�
&�L------------------------------------------------------------------------
&�
&�� �menu_selection
&�
&�� item%,sub_item%,button%
&�
&�>item% = !wimp_block%:sub_item% = wimp_block%!4:� item%<0 �
&�
&�)ș "Wimp_GetPointerInfo",,wimp_block%
&�button% = wimp_block%!8
'
'Ȏ menu$(item%,0) �
'  � "Misc"
'$    � sub_item%>=0 �
'.!      Ȏ menu$(sub_item%,1) �
'8*        � "Status ..." :�update_status
'B;                           �open_window(status_window%)
'L0        � "9600, 8n1"  :ș "OS_SerialOp",1,0
'V3                           ș "OS_SerialOp",5,0
'`3                           ș "OS_SerialOp",6,0
'j(        � "Reset"      :�reset_state
't&        � "Clear"      :�reset_all
'~      �
'�	    �
'�7  � "Save" :�get_file_type:�save_file($save_ptr%,�)
'�  � "Options"
'�    � sub_item%>=0 �
'�!      Ȏ menu$(sub_item%,2) �
'�        � "File type"
'�          � load_exec% �
'�            load_exec% = �
'�+            �menu_tick(2,"File type",1)
'�.            �menu_tick(2,"Load address",0)
'�.            �menu_tick(2,"Exec address",0)
'�          �
(+        � "Load address","Exec address"
(
          � � load_exec% �
(            load_exec% = �
(+            �menu_tick(2,"File type",0)
((.            �menu_tick(2,"Load address",1)
(2.            �menu_tick(2,"Exec address",1)
(<          �
(F3        � "CR � LF"    :do_crlf% = do_crlf% � �
(P=                           �menu_tick_toggle(2,"CR � LF")
(ZB                           � modified% � � uploading% �do_crlf
(d9        � "Guess type" :guess_type% = guess_type% � �
(n@                           �menu_tick_toggle(2,"Guess type")
(x8                           � guess_type% �guess_type
(�5        � "Auto load"  :one_shot% = one_shot% � �
(�?                           �menu_tick_toggle(2,"Auto load")
(�7        � "Fast load"  :fast_load% = fast_load% � �
(�?                           �menu_tick_toggle(2,"Fast load")
(�7        � "Use BGET"   :load_bget% = load_bget% � �
(�>                           �menu_tick_toggle(2,"Use BGET")
(�      �
(�	    �
(�*  � "Upload"   :�start_upload(button%)
(�,  � "Download" :�start_download(button%)
(�  � "Quit"     :�exit(�)
(��
(�
)4� button%=1 ș "Wimp_CreateMenu",,menu_block%(0)
)
)�
)"
),L------------------------------------------------------------------------
)6
)@� �do_crlf
)J
)T
� ptr%
)^
)h$� ptr%=file_block% � file_ptr%-1
)r5  � ?ptr%=&0A � ?ptr%=&0D � � ?ptr%=&0D ?ptr%=&0A
)|�
)�
)�crlf_done% = crlf_done% � �
)�
)��
)�
)�L------------------------------------------------------------------------
)�
)�� �start_upload(button%)
)�
)��reset_all
)�
)�last_button% = button%
)�
*put_ptr%     = file_ptr%
*?put_ptr%    = �("x")
*put_end_ptr% = put_ptr% +1
*&putting%     = �
*0shaking%     = �
*:uploading%   = �
*D)poll_mask%   = poll_mask% � &FFFFFFFE
*N
*X�menu_shade(0,"Download",�)
*b�menu_shade(0,"Upload",�)
*l�update_status
*v
*��
*�
*�L------------------------------------------------------------------------
*�
*�� �start_download(button%)
*�
*�� flag%,length%,report$
*�
*�;ș "OS_File",17,"<BBCTape$Dir>.BBCLoadBT" � ,,,,length%
*�
*�L� length%>file_block_length% �message("Can't download file - no room"):�
*�
*�:� length%>file_block_length%-(file_ptr%-file_block%) �
+9  � modified% � report$ = "Unsaved d" � report$ = "D"
+3  report$ += "ata will be destroyed; continue?"
+  � � �confirm(report$) �
+   �reset_all
+*�
+4  �reset_state
+>�
+H
+R3� "Load <BBCTape$Dir>.BBCLoadBT " + �~file_ptr%
+\
+f<� button%=4 �message("Type ""*FX 2,1"" on BBC keyboard")
+p
+zput_ptr%     = file_ptr%
+�%put_end_ptr% = put_ptr% + length%
+�putting%     = �
+�downloading% = �
+�)poll_mask%   = poll_mask% � &FFFFFFFE
+��         = 0
+�
+��menu_shade(0,"Upload",�)
+��update_status
+�
+��
+�
+�L------------------------------------------------------------------------
+�
,� �user_message
,
,Ȏ wimp_block%!16 �
,$  � 0      :�exit(�)
,.  � 2      :�data_save_ack
,88  � 4      :saved_file$ = "<BBCTape$Dir>.xxxxxxxxxx"
,B  � 6      :�ram_fetch
,L%  � 8      :� modified% �pre_quit
,V  � &400C0 :�get_file_type
,`               �save_window
,j8               � wimp_block%!20=fileinfo% �file_info
,tX               ș "Wimp_CreateSubMenu",,wimp_block%!20,wimp_block%!24,wimp_block%!28
,~  � &400C1 :�mode_change
,��
,�
,��
,�
,�L------------------------------------------------------------------------
,�
,�� �data_save_ack
,�
,�� ptr%,safe%
,�
,�ptr% = wimp_block% + 43
,�� ptr% += 1:� ?ptr%=0
-?ptr% = 13
-

-/� wimp_block%!36=-1 � safe% = � � safe% = �
-
-('�save_file($(wimp_block%+44),safe%)
-2
-<#saved_file$ = $(wimp_block%+44)
-F
-P.� drag_button%>16 ș "Wimp_CreateMenu",,-1
-Z
-d"wimp_block%!12 = wimp_block%!8
-nwimp_block%!16 = 3
-x6ș "Wimp_SendMessage",18,wimp_block%,wimp_block%!4
-�
-��
-�
-�L------------------------------------------------------------------------
-�
-�� �save_file(name$,safe%)
-�
-�
� exists%
-�
-�9� file_ptr%<=file_block% �message("No file loaded"):�
-�
-�%� �name$,".")=0 � �name$,"<")=0 �
-�C  �message("To save, drag the file icon to a directory viewer")
.  �
.�
.
."#ș "OS_File",17,name$ � exists%
.,� exists% �
.69  � � �confirm("File "+name$+" exists; overwrite?") �
.@?    � � one_shot% one_shot% = �:�menu_tick(2,"Auto load",0)
.J	    �
.T  �
.^�
.h
.rC� "Save " + name$ + " " + �~(file_block%) + " " + �~(file_ptr%)
.|
.�� load_exec% �
.�+  ș "OS_File",1,name$,load%,exec%,,%11
.��
.�&  ș "OS_File",18,name$,file_type%
.��
.�
.�-� safe% modified%  = �:$save_ptr% = name$
.�
.��
.�
.�L------------------------------------------------------------------------
.�
.�� �ram_fetch
/
/?� drag_button%>16 ș "Wimp_CreateMenu",,-1:drag_button% = 0
/
/&W� wimp_block%!24>file_ptr%-transmit_ptr% wimp_block%!24 = file_ptr% - transmit_ptr%
/0
/:u� wimp_block%!24>0 ș "Wimp_TransferBlock",task_handle%,transmit_ptr%,wimp_block%!4,wimp_block%!20,wimp_block%!24
/D
/N#transmit_ptr% += wimp_block%!24
/X
/b"wimp_block%!12 = wimp_block%!8
/lwimp_block%!16 = 7
/v6ș "Wimp_SendMessage",17,wimp_block%,wimp_block%!4
/�
/��
/�
/�L------------------------------------------------------------------------
/�
/�� �pre_quit
/�
/�� quit_task%
/�
/�quit_task% = wimp_block%!4
/�
/�"wimp_block%!12 = wimp_block%!8
/�3ș "Wimp_SendMessage",19,wimp_block%,quit_task%
0
0B� � �confirm("Unsaved data: are you sure you want to Quit?") �
0
0 modified% = �
0*
04A� This is the approved method of dealing with a pre-quit, but
0>=� doesn't deal correctly with a quit from the task window
0H
0R+ș "Wimp_GetCaretPosition",,wimp_block%
0\wimp_block%!24 = &1FC
0f2ș "Wimp_SendMessage",8,wimp_block%,quit_task%
0p
0z�
0�
0�L------------------------------------------------------------------------
0�
0�� �save_window
0�
0�� flags%,type$
0�
0�� file_type%>0 �
0�<  ș "XWimp_SpriteOp",40,,"file_"+�~file_type% � ;flags%
0�9  � flags% � 1 � type$ = "xxx" � type$ = �~file_type%
0��
0�  type$ = "xxx"
0��
1
1wimp_block%!32 = saveas%
1*ș "Wimp_DeleteWindow",,wimp_block%+32
1$
1."$(saveas_block%+88+25) = type$
18
1B3ș "Wimp_CreateWindow",,saveas_block% � saveas%
1L
1V�
1`
1jL------------------------------------------------------------------------
1t
1~� �file_info
1�
1�� saved$,flags%,crlf$
1�
1�wimp_block%!32 = fileinfo%
1�*ș "Wimp_DeleteWindow",,wimp_block%+32
1�
1�� File type icon
1�6$(fileinfo_block%+108+6*32) = $(saveas_block%+108)
1�
1�0� modified% � saved$ = "No" � saved$ = "Yes"
1�($(fileinfo_block%+108+2*32) = saved$
1�
2� file_type%>0 �
2
8  $type_buffer% = $type_ptr% + �9-�($type_ptr%)," ")
25  ș "OS_ConvertHex4",file_type%,type_buffer%+9,5
2  type_buffer%?9  = �("(")
2(  type_buffer%?13 = �(")")
22  type_buffer%?14 = &0D
2<�
2F!  $type_buffer% = "<untyped>"
2P�
2Z
2d7ș "OS_ConvertHex4",load%,fileinfo_block%+108+32,12
2n:ș "OS_ConvertHex4",exec%,fileinfo_block%+108+12*32,12
2x
2�;$(fileinfo_block%+108+10*32) = �original_file_name$,10)
2�
2�Nș "OS_ConvertFileSize",file_ptr%-file_block%,fileinfo_block%+108+14*32,12
2�
2�/� crlf_done% � crlf$ = "yes" � crlf$ = "no"
2�($(fileinfo_block%+108+15*32) = crlf$
2�
2�7ș "Wimp_CreateWindow",,fileinfo_block% � fileinfo%
2�
2��
2�
2�L------------------------------------------------------------------------
2�
3� �mode_change
3
3*!wimp_block%   =  4:wimp_block%!4  = 5
3"+wimp_block%!8  = 11:wimp_block%!12 = 12
3,wimp_block%!16 = -1
367ș "OS_ReadVduVariables",wimp_block%,wimp_block%+20
3@
3J:screen_x% = (1 << wimp_block%!20)*(wimp_block%!28 + 1)
3T:screen_y% = (1 << wimp_block%!24)*(wimp_block%!32 + 1)
3^
3h�
3r
3|L************************************************************************
3�
3�Wimp Utilities
3�
3�L************************************************************************
3�
3�� �open_window(handle%)
3�
3�!wimp_block% = handle%
3�)ș "Wimp_GetWindowState",,wimp_block%
3�wimp_block%!28 = -1
3�
3�%ș "Wimp_OpenWindow",,wimp_block%
3�
4�
4
4L------------------------------------------------------------------------
4&
40� �close_window(window%)
4:
4D!wimp_block% = window%
4N&ș "Wimp_CloseWindow",,wimp_block%
4X
4b�
4l
4vL------------------------------------------------------------------------
4�
4�'� �build_menu(block%,title$,width%)
4�
4�$block%   =  title$
4�block%?12 =  7
4�block%?13 =  2
4�block%?14 =  7
4�block%?15 =  0
4�block%!16 = 16*width%
4�block%!20 = 44
4�block%!24 =  0
4�
4��
5
5L------------------------------------------------------------------------
5
5 *� �build_menu_items(block%,num%,nsub%)
5*
548� i%,text$,tick%,shade%,dot%,notify%,sub%,last%,ptr%
5>
5H� i%=0 � num%-1
5R,  � text$,tick%,shade%,dot%,notify%,sub%
5\  menu$(i%,nsub%) = text$
5f'  � i%=num%-1 last% = 1 � last% = 0
5p   ptr% = block% + 28 + 24*i%
5zA  �menu_item(ptr%,tick%,shade%,dot%,notify%,last%,sub%,text$)
5��
5�
5��
5�
5�L------------------------------------------------------------------------
5�
5�C� �menu_item(block%,tick%,shade%,dot%,notify%,last%,sub%,text$)
5�
5�<!block%  = tick% + (dot%<<1) + (notify%<<3) + (last%<<7)
5�block%!4 = sub%
5�2block%!8 = 1 + (1<<5) + (shade%<<22) + (7<<24)
5�
5�� �(text$)<=12 �
6  $(block%+12) = text$
6�
6  � xxx% �(text$)
6$  $xxx%     = text$
6.#  block%!8  = block%!8 � (1<<8)
68  block%!12 = xxx%
6B  block%!16 = -1
6L  block%!20 = �(text$) + 1
6V�
6`
6j�
6t
6~L------------------------------------------------------------------------
6�
6�A� �writeable_menu(block%,title$,width%,cent%,buff%,len%,val%)
6�
6�$block%   =  title$
6�block%?12 =  7
6�block%?13 =  2
6�block%?14 =  7
6�block%?15 =  0
6�block%!16 = 16*width%
6�block%!20 = 44
6�block%!24 =  0
6�
7,block%!28 = (1<<2) + (cent%<<3) + (1<<7)
7
block%!32 = -1
7-block%!36 = 1 + (1<<5) + (1<<8) + (7<<24)
7block%!40 = buff%
7(block%!44 = val%
72block%!48 = len%
7<
7F�
7P
7ZL------------------------------------------------------------------------
7d
7n"� �menu_tick(menu%,name$,set%)
7x
7�� item%
7�
7�*item% = �menu_item_number(menu%,name$)
7�
7�=� item%>=0 �menu_tick_item(menu_block%(menu%),item%,set%)
7�
7��
7�
7�L------------------------------------------------------------------------
7�
7�$� �menu_tick_toggle(menu%,name$)
7�
7�� item%
8
8*item% = �menu_item_number(menu%,name$)
8
8"?� item%>=0 �menu_tick_toggle_item(menu_block%(menu%),item%)
8,
86�
8@
8JL------------------------------------------------------------------------
8T
8^#� �menu_shade(menu%,name$,set%)
8h
8r� item%
8|
8�*item% = �menu_item_number(menu%,name$)
8�
8�>� item%>=0 �menu_shade_item(menu_block%(menu%),item%,set%)
8�
8��
8�
8�L------------------------------------------------------------------------
8�
8�%� �menu_shade_toggle(menu%,name$)
8�
8�� item%
8�
8�*item% = �menu_item_number(menu%,name$)
9
9@� item%>=0 �menu_shade_toggle_item(menu_block%(menu%),item%)
9
9&�
90
9:L------------------------------------------------------------------------
9D
9N$� �menu_item_number(menu%,name$)
9X
9b� max_item%,item%
9l
9v� menu%>�(menu$(),2) = -1
9�
9�max_item% = �(menu$(),1)
9�
9�
item% = 0
9�2ȕ item%<max_item% � menu$(item%,menu%)<>name$
9�  item% += 1
9��
9�
9�&� menu$(item%,menu%)=name$ = item%
9�
9�= -1
9�
9�L------------------------------------------------------------------------
:
:(� �menu_tick_item(block%,item%,set%)
:
: 
� offset%
:*
:4offset% = 28 + 24*item%
:>
:H� set% �
:R1  block%?offset% = block%?offset% � %00000001
:\�
:f1  block%?offset% = block%?offset% � %11111110
:p�
:z
:��
:�
:�L------------------------------------------------------------------------
:�
:�*� �menu_tick_toggle_item(block%,item%)
:�
:�
� offset%
:�
:�offset% = 28 + 24*item%
:�
:�/block%?offset% = block%?offset% � %00000001
:�
:��
;
;L------------------------------------------------------------------------
;
;$)� �menu_shade_item(block%,item%,set%)
;.
;8
� offset%
;B
;L offset% = 28 + 24*item% + 10
;V
;`� set% �
;j1  block%?offset% = block%?offset% � %01000000
;t�
;~1  block%?offset% = block%?offset% � %10111111
;��
;�
;��
;�
;�L------------------------------------------------------------------------
;�
;�+� �menu_shade_toggle_item(block%,item%)
;�
;�
� offset%
;�
;� offset% = 28 + 24*item% + 10
;�
</block%?offset% = block%?offset% � %01000000
<

<�
<
<(L------------------------------------------------------------------------
<2
<<&� �select_icon(window%,icon%,set%)
<F
<P!wimp_block%   = window%
<Zwimp_block%!4  = icon%
<dwimp_block%!8  = set%<<21
<nwimp_block%!12 = 1<<21
<x'ș "Wimp_SetIconState",,wimp_block%
<�
<��
<�
<�L------------------------------------------------------------------------
<�
<�!� �update_icon(window%,icon%)
<�
<�!wimp_block%   = window%
<�wimp_block%!4  = icon%
<�wimp_block%!8  = 0
<�wimp_block%!12 = 0
<�'ș "Wimp_SetIconState",,wimp_block%
<�
=�
�

00000000  0d 00 0a 1f f4 20 3e 20  3c 42 42 43 54 61 70 65  |..... > <BBCTape|
00000010  24 44 69 72 3e 2e 21 52  75 6e 49 6d 61 67 65 0d  |$Dir>.!RunImage.|
00000020  00 14 04 0d 00 1e 09 ee  20 85 20 e0 0d 00 28 04  |........ . ...(.|
00000030  0d 00 32 19 61 70 70 5f  6e 61 6d 65 24 20 3d 20  |..2.app_name$ = |
00000040  22 42 42 43 54 61 70 65  22 0d 00 3c 04 0d 00 46  |"BBCTape"..<...F|
00000050  1d de 20 74 61 73 6b 25  20 34 3a 24 74 61 73 6b  |.. task% 4:$task|
00000060  25 20 3d 20 22 54 41 53  4b 22 0d 00 50 3d c8 99  |% = "TASK"..P=..|
00000070  20 22 57 69 6d 70 5f 49  6e 69 74 69 61 6c 69 73  | "Wimp_Initialis|
00000080  65 22 2c 32 30 30 2c 21  74 61 73 6b 25 2c 61 70  |e",200,!task%,ap|
00000090  70 5f 6e 61 6d 65 24 20  b8 20 2c 74 61 73 6b 5f  |p_name$ . ,task_|
000000a0  68 61 6e 64 6c 65 25 0d  00 5a 04 0d 00 64 11 ee  |handle%..Z...d..|
000000b0  20 85 20 f2 65 72 72 6f  72 28 b9 29 0d 00 6e 04  | . .error(.)..n.|
000000c0  0d 00 78 0e f2 77 69 6d  70 5f 69 6e 69 74 0d 00  |..x..wimp_init..|
000000d0  82 0e f2 70 72 6f 67 5f  69 6e 69 74 0d 00 8c 04  |...prog_init....|
000000e0  0d 00 96 11 ee 20 85 20  f2 65 72 72 6f 72 28 a3  |..... . .error(.|
000000f0  29 0d 00 a0 04 0d 00 aa  38 f4 20 4d 69 6e 69 6d  |).......8. Minim|
00000100  69 73 65 20 6d 65 6d 6f  72 79 20 63 6f 6e 73 75  |ise memory consu|
00000110  6d 70 74 69 6f 6e 20 28  63 75 72 72 65 6e 74 20  |mption (current |
00000120  65 6e 64 20 2b 20 31 20  70 61 67 65 29 0d 00 b4  |end + 1 page)...|
00000130  12 e0 20 3d 20 e0 20 2b  20 38 2a 31 30 32 34 0d  |.. = . + 8*1024.|
00000140  00 be 04 0d 00 c8 2a c8  99 20 22 4f 53 5f 52 65  |......*.. "OS_Re|
00000150  61 64 4d 6f 6e 6f 74 6f  6e 69 63 54 69 6d 65 22  |adMonotonicTime"|
00000160  20 b8 20 69 64 6c 65 5f  74 69 6d 65 25 0d 00 d2  | . idle_time%...|
00000170  1c 69 64 6c 65 5f 74 69  6d 65 25 20 2b 3d 20 70  |.idle_time% += p|
00000180  6f 6c 6c 5f 74 69 6d 65  25 0d 00 dc 04 0d 00 e6  |oll_time%.......|
00000190  05 f5 0d 00 f0 42 20 20  c8 99 20 22 57 69 6d 70  |.....B  .. "Wimp|
000001a0  5f 50 6f 6c 6c 49 64 6c  65 22 2c 70 6f 6c 6c 5f  |_PollIdle",poll_|
000001b0  6d 61 73 6b 25 2c 77 69  6d 70 5f 62 6c 6f 63 6b  |mask%,wimp_block|
000001c0  25 2c 69 64 6c 65 5f 74  69 6d 65 25 20 b8 20 63  |%,idle_time% . c|
000001d0  6f 64 65 25 0d 00 fa 10  20 20 c8 8e 20 63 6f 64  |ode%....  .. cod|
000001e0  65 25 20 ca 0d 01 04 3b  20 20 20 20 c9 20 30 20  |e% ....;    . 0 |
000001f0  20 20 20 20 3a e7 20 70  75 74 74 69 6e 67 25 20  |    :. putting% |
00000200  8c 20 f2 6e 75 6c 6c 5f  70 75 74 74 69 6e 67 20  |. .null_putting |
00000210  8b 20 f2 6e 75 6c 6c 5f  67 65 74 74 69 6e 67 0d  |. .null_getting.|
00000220  01 0e 3a 20 20 20 20 20  20 20 20 20 20 20 20 20  |..:             |
00000230  20 20 20 c8 99 20 22 4f  53 5f 52 65 61 64 4d 6f  |   .. "OS_ReadMo|
00000240  6e 6f 74 6f 6e 69 63 54  69 6d 65 22 20 b8 20 69  |notonicTime" . i|
00000250  64 6c 65 5f 74 69 6d 65  25 0d 01 18 2c 20 20 20  |dle_time%...,   |
00000260  20 20 20 20 20 20 20 20  20 20 20 20 20 69 64 6c  |             idl|
00000270  65 5f 74 69 6d 65 25 20  2b 3d 20 70 6f 6c 6c 5f  |e_time% += poll_|
00000280  74 69 6d 65 25 0d 01 22  32 20 20 20 20 c9 20 32  |time%.."2    . 2|
00000290  20 20 20 20 20 3a c8 99  20 22 57 69 6d 70 5f 4f  |     :.. "Wimp_O|
000002a0  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 77 69 6d 70  |penWindow",,wimp|
000002b0  5f 62 6c 6f 63 6b 25 0d  01 2c 33 20 20 20 20 c9  |_block%..,3    .|
000002c0  20 33 20 20 20 20 20 3a  c8 99 20 22 57 69 6d 70  | 3     :.. "Wimp|
000002d0  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 77  |_CloseWindow",,w|
000002e0  69 6d 70 5f 62 6c 6f 63  6b 25 0d 01 36 1d 20 20  |imp_block%..6.  |
000002f0  20 20 c9 20 36 20 20 20  20 20 3a f2 6d 6f 75 73  |  . 6     :.mous|
00000300  65 5f 63 6c 69 63 6b 0d  01 40 1f 20 20 20 20 c9  |e_click..@.    .|
00000310  20 37 20 20 20 20 20 3a  f2 75 73 65 72 5f 64 72  | 7     :.user_dr|
00000320  61 67 5f 62 6f 78 0d 01  4a 34 20 20 20 20 c9 20  |ag_box..J4    . |
00000330  38 20 20 20 20 20 3a c8  99 20 22 57 69 6d 70 5f  |8     :.. "Wimp_|
00000340  50 72 6f 63 65 73 73 4b  65 79 22 2c 77 69 6d 70  |ProcessKey",wimp|
00000350  5f 62 6c 6f 63 6b 25 21  32 34 0d 01 54 20 20 20  |_block%!24..T   |
00000360  20 20 c9 20 39 20 20 20  20 20 3a f2 6d 65 6e 75  |  . 9     :.menu|
00000370  5f 73 65 6c 65 63 74 69  6f 6e 0d 01 5e 1e 20 20  |_selection..^.  |
00000380  20 20 c9 20 31 37 2c 31  38 20 3a f2 75 73 65 72  |  . 17,18 :.user|
00000390  5f 6d 65 73 73 61 67 65  0d 01 68 25 20 20 20 20  |_message..h%    |
000003a0  c9 20 31 39 20 20 20 20  3a e7 20 77 69 6d 70 5f  |. 19    :. wimp_|
000003b0  62 6c 6f 63 6b 25 21 31  36 3d 33 20 8c 0d 01 72  |block%!16=3 ...r|
000003c0  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
000003d0  20 20 20 c8 99 20 22 4f  53 5f 46 69 6c 65 22 2c  |   .. "OS_File",|
000003e0  36 2c 73 61 76 65 64 5f  66 69 6c 65 24 0d 01 7c  |6,saved_file$..||
000003f0  45 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |E               |
00000400  20 20 20 f2 6d 65 73 73  61 67 65 28 22 44 61 74  |   .message("Dat|
00000410  61 20 74 72 61 6e 73 66  65 72 20 66 61 69 6c 65  |a transfer faile|
00000420  64 3a 20 52 65 63 65 69  76 65 72 20 64 69 65 64  |d: Receiver died|
00000430  22 29 0d 01 86 15 20 20  20 20 20 20 20 20 20 20  |")....          |
00000440  20 20 20 20 20 20 cd 0d  01 90 07 20 20 cb 0d 01  |      .....  ...|
00000450  9a 13 fd 20 70 69 67 73  5f 63 61 6e 5f 66 6c 79  |... pigs_can_fly|
00000460  25 0d 01 a4 04 0d 01 ae  0c f2 65 78 69 74 28 b9  |%.........exit(.|
00000470  29 0d 01 b8 04 0d 01 c2  05 e0 0d 01 cc 04 0d 01  |)...............|
00000480  d6 4c 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.L--------------|
00000490  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000004c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 01 e0 04 0d 01  |----------......|
000004d0  ea 12 dd 20 f2 65 78 69  74 28 6d 75 73 74 25 29  |... .exit(must%)|
000004e0  0d 01 f4 04 0d 01 fe 3c  f4 20 49 66 20 6d 75 73  |.......<. If mus|
000004f0  74 25 20 69 73 20 54 52  55 45 20 77 65 20 6d 75  |t% is TRUE we mu|
00000500  73 74 20 65 78 69 74 2c  20 65 76 65 6e 20 77 69  |st exit, even wi|
00000510  74 68 20 75 6e 73 61 76  65 64 20 66 69 6c 65 73  |th unsaved files|
00000520  0d 02 08 04 0d 02 12 32  e7 20 68 6f 75 72 67 6c  |.......2. hourgl|
00000530  61 73 73 25 20 c8 99 20  22 48 6f 75 72 67 6c 61  |ass% .. "Hourgla|
00000540  73 73 5f 4f 66 66 22 3a  68 6f 75 72 67 6c 61 73  |ss_Off":hourglas|
00000550  73 25 20 3d 20 a3 0d 02  1c 04 0d 02 26 58 e7 20  |s% = .......&X. |
00000560  6d 6f 64 69 66 69 65 64  25 20 80 20 ac 20 6d 75  |modified% . . mu|
00000570  73 74 25 20 e7 20 ac 20  a4 63 6f 6e 66 69 72 6d  |st% . . .confirm|
00000580  28 22 55 6e 73 61 76 65  64 20 64 61 74 61 3a 20  |("Unsaved data: |
00000590  61 72 65 20 79 6f 75 20  73 75 72 65 20 79 6f 75  |are you sure you|
000005a0  20 77 61 6e 74 20 74 6f  20 51 75 69 74 3f 22 29  | want to Quit?")|
000005b0  20 e1 0d 02 30 04 0d 02  3a 21 f4 20 43 6c 65 61  | ...0...:!. Clea|
000005c0  72 20 6f 75 74 20 74 68  65 20 52 53 34 32 33 20  |r out the RS423 |
000005d0  62 75 66 66 65 72 73 0d  02 44 09 2a 46 58 20 32  |buffers..D.*FX 2|
000005e0  0d 02 4e 0c 2a 46 58 20  32 31 20 31 0d 02 58 0c  |..N.*FX 21 1..X.|
000005f0  2a 46 58 20 32 31 20 32  0d 02 62 04 0d 02 6c 2b  |*FX 21 2..b...l+|
00000600  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
00000610  77 6e 22 2c 74 61 73 6b  5f 68 61 6e 64 6c 65 25  |wn",task_handle%|
00000620  2c 21 74 61 73 6b 25 0d  02 76 04 0d 02 80 05 e0  |,!task%..v......|
00000630  0d 02 8a 04 0d 02 94 4c  2d 2d 2d 2d 2d 2d 2d 2d  |.......L--------|
00000640  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000680  0d 02 9e 04 0d 02 a8 13  dd 20 f2 65 72 72 6f 72  |......... .error|
00000690  28 71 75 69 74 25 29 0d  02 b2 04 0d 02 bc 0d ea  |(quit%).........|
000006a0  20 72 65 70 6f 72 74 24  0d 02 c6 04 0d 02 d0 14  | report$........|
000006b0  ea 20 85 3a ee 20 85 20  f2 65 78 69 74 28 b9 29  |. .:. . .exit(.)|
000006c0  0d 02 da 04 0d 02 e4 3b  f4 20 44 69 73 6b 20 6e  |.......;. Disk n|
000006d0  6f 74 20 66 6f 75 6e 64  2f 6e 6f 74 20 70 72 65  |ot found/not pre|
000006e0  73 65 6e 74 20 2d 20 66  69 6c 65 72 20 70 72 6f  |sent - filer pro|
000006f0  76 69 64 65 73 20 65 72  72 6f 72 20 62 6f 78 0d  |vides error box.|
00000700  02 ee 1b e7 20 9f 3d 26  31 30 38 44 34 20 84 20  |.... .=&108D4 . |
00000710  9f 3d 26 31 30 38 44 35  20 e1 0d 02 f8 04 0d 03  |.=&108D5 .......|
00000720  02 17 21 73 74 72 69 6e  67 5f 62 75 66 66 65 72  |..!string_buffer|
00000730  25 20 3d 20 9f 0d 03 0c  38 72 65 70 6f 72 74 24  |% = ....8report$|
00000740  20 3d 20 f6 24 20 2b 20  22 20 28 69 6e 74 65 72  | = .$ + " (inter|
00000750  6e 61 6c 20 65 72 72 6f  72 20 63 6f 64 65 20 22  |nal error code "|
00000760  20 2b 20 c3 28 9e 29 20  2b 20 22 29 22 0d 03 16  | + .(.) + ")"...|
00000770  2c 24 28 73 74 72 69 6e  67 5f 62 75 66 66 65 72  |,$(string_buffer|
00000780  25 2b 34 29 20 3d 20 c0  72 65 70 6f 72 74 24 2c  |%+4) = .report$,|
00000790  32 35 30 29 20 2b 20 bd  30 0d 03 20 04 0d 03 2a  |250) + .0.. ...*|
000007a0  34 c8 99 20 22 57 69 6d  70 5f 52 65 70 6f 72 74  |4.. "Wimp_Report|
000007b0  45 72 72 6f 72 22 2c 73  74 72 69 6e 67 5f 62 75  |Error",string_bu|
000007c0  66 66 65 72 25 2c 31 2c  61 70 70 5f 6e 61 6d 65  |ffer%,1,app_name|
000007d0  24 0d 03 34 04 0d 03 3e  14 e7 20 71 75 69 74 25  |$..4...>.. quit%|
000007e0  20 f2 65 78 69 74 28 b9  29 0d 03 48 04 0d 03 52  | .exit(.)..H...R|
000007f0  10 f2 72 65 73 65 74 5f  73 74 61 74 65 0d 03 5c  |..reset_state..\|
00000800  04 0d 03 66 05 e1 0d 03  70 04 0d 03 7a 4c 2d 2d  |...f....p...zL--|
00000810  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000850  2d 2d 2d 2d 2d 2d 0d 03  84 04 0d 03 8e 18 dd 20  |------......... |
00000860  a4 63 6f 6e 66 69 72 6d  28 6d 65 73 73 61 67 65  |.confirm(message|
00000870  24 29 0d 03 98 04 0d 03  a2 1b ea 20 6d 61 73 6b  |$)......... mask|
00000880  25 2c 63 6f 64 65 25 2c  65 6e 64 25 2c 79 65 73  |%,code%,end%,yes|
00000890  25 0d 03 ac 04 0d 03 b6  07 ea 20 85 0d 03 c0 4d  |%......... ....M|
000008a0  ee 20 85 20 f7 20 85 3a  c8 97 20 c8 93 20 30 2c  |. . . .:.. .. 0,|
000008b0  30 2c 73 63 72 65 65 6e  5f 78 25 2c 73 63 72 65  |0,screen_x%,scre|
000008c0  65 6e 5f 79 25 3a f2 63  6c 6f 73 65 5f 77 69 6e  |en_y%:.close_win|
000008d0  64 6f 77 28 65 72 72 6f  72 5f 77 69 6e 64 6f 77  |dow(error_window|
000008e0  25 29 3a 85 20 9f 2c f6  24 0d 03 ca 04 0d 03 d4  |%):. .,.$.......|
000008f0  23 e7 20 68 6f 75 72 67  6c 61 73 73 25 20 c8 99  |#. hourglass% ..|
00000900  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  | "Hourglass_Off"|
00000910  0d 03 de 04 0d 03 e8 20  24 65 72 72 6f 72 5f 70  |....... $error_p|
00000920  74 72 25 20 3d 20 c0 6d  65 73 73 61 67 65 24 2c  |tr% = .message$,|
00000930  32 35 35 29 0d 03 f2 04  0d 03 fc 1f f2 6f 70 65  |255).........ope|
00000940  6e 5f 77 69 6e 64 6f 77  28 65 72 72 6f 72 5f 77  |n_window(error_w|
00000950  69 6e 64 6f 77 25 29 0d  04 06 04 0d 04 10 2b c8  |indow%).......+.|
00000960  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
00000970  77 4f 75 74 6c 69 6e 65  22 2c 2c 77 69 6d 70 5f  |wOutline",,wimp_|
00000980  62 6c 6f 63 6b 25 0d 04  1a 63 c8 97 20 c8 93 20  |block%...c.. .. |
00000990  77 69 6d 70 5f 62 6c 6f  63 6b 25 21 34 2c 77 69  |wimp_block%!4,wi|
000009a0  6d 70 5f 62 6c 6f 63 6b  25 21 38 2c 77 69 6d 70  |mp_block%!8,wimp|
000009b0  5f 62 6c 6f 63 6b 25 21  31 32 2d 77 69 6d 70 5f  |_block%!12-wimp_|
000009c0  62 6c 6f 63 6b 25 21 34  2d 31 2c 77 69 6d 70 5f  |block%!4-1,wimp_|
000009d0  62 6c 6f 63 6b 25 21 31  36 2d 77 69 6d 70 5f 62  |block%!16-wimp_b|
000009e0  6c 6f 63 6b 25 21 38 2d  31 0d 04 24 04 0d 04 2e  |lock%!8-1..$....|
000009f0  31 6d 61 73 6b 25 20 3d  20 31 20 2b 20 28 25 31  |1mask% = 1 + (%1|
00000a00  31 3c 3c 34 29 20 2b 20  28 25 31 31 3c 3c 31 31  |1<<4) + (%11<<11|
00000a10  29 20 2b 20 28 25 31 31  31 3c 3c 31 37 29 0d 04  |) + (%111<<17)..|
00000a20  38 0d 65 6e 64 25 20 20  3d 20 a3 0d 04 42 04 0d  |8.end%  = ...B..|
00000a30  04 4c 05 f5 0d 04 56 2e  20 20 c8 99 20 22 57 69  |.L....V.  .. "Wi|
00000a40  6d 70 5f 50 6f 6c 6c 22  2c 6d 61 73 6b 25 2c 77  |mp_Poll",mask%,w|
00000a50  69 6d 70 5f 62 6c 6f 63  6b 25 20 b8 20 63 6f 64  |imp_block% . cod|
00000a60  65 25 0d 04 60 10 20 20  c8 8e 20 63 6f 64 65 25  |e%..`.  .. code%|
00000a70  20 ca 0d 04 6a 24 20 20  20 20 c9 20 36 20 3a 65  | ...j$    . 6 :e|
00000a80  6e 64 25 20 3d 20 a4 79  65 73 5f 6f 72 5f 6e 6f  |nd% = .yes_or_no|
00000a90  28 79 65 73 25 29 0d 04  74 33 20 20 20 20 c9 20  |(yes%)..t3    . |
00000aa0  38 20 3a e7 20 77 69 6d  70 5f 62 6c 6f 63 6b 25  |8 :. wimp_block%|
00000ab0  21 32 34 3d 26 31 42 20  65 6e 64 25 20 3d 20 b9  |!24=&1B end% = .|
00000ac0  3a 79 65 73 25 20 3d 20  a3 0d 04 7e 07 20 20 cb  |:yes% = ...~.  .|
00000ad0  0d 04 88 0a fd 20 65 6e  64 25 0d 04 92 04 0d 04  |..... end%......|
00000ae0  9c 21 c8 97 20 c8 93 20  30 2c 30 2c 73 63 72 65  |.!.. .. 0,0,scre|
00000af0  65 6e 5f 78 25 2c 73 63  72 65 65 6e 5f 79 25 0d  |en_x%,screen_y%.|
00000b00  04 a6 20 f2 63 6c 6f 73  65 5f 77 69 6e 64 6f 77  |.. .close_window|
00000b10  28 65 72 72 6f 72 5f 77  69 6e 64 6f 77 25 29 0d  |(error_window%).|
00000b20  04 b0 04 0d 04 ba 22 e7  20 68 6f 75 72 67 6c 61  |......". hourgla|
00000b30  73 73 25 20 c8 99 20 22  48 6f 75 72 67 6c 61 73  |ss% .. "Hourglas|
00000b40  73 5f 4f 6e 22 0d 04 c4  04 0d 04 ce 0a 3d 20 79  |s_On"........= y|
00000b50  65 73 25 0d 04 d8 04 0d  04 e2 4c 2d 2d 2d 2d 2d  |es%.......L-----|
00000b60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000ba0  2d 2d 2d 0d 04 ec 04 0d  04 f6 18 dd 20 a4 79 65  |---......... .ye|
00000bb0  73 5f 6f 72 5f 6e 6f 28  f8 20 79 65 73 25 29 0d  |s_or_no(. yes%).|
00000bc0  05 00 04 0d 05 0a 0c 79  65 73 25 20 3d 20 a3 0d  |.......yes% = ..|
00000bd0  05 14 04 0d 05 1e 27 e7  20 77 69 6d 70 5f 62 6c  |......'. wimp_bl|
00000be0  6f 63 6b 25 21 31 32 3c  3e 65 72 72 6f 72 5f 77  |ock%!12<>error_w|
00000bf0  69 6e 64 6f 77 25 20 3d  20 a3 0d 05 28 24 e7 20  |indow% = ...($. |
00000c00  77 69 6d 70 5f 62 6c 6f  63 6b 25 21 31 36 3d 31  |wimp_block%!16=1|
00000c10  20 79 65 73 25 20 3d 20  b9 3a 20 3d 20 b9 0d 05  | yes% = .: = ...|
00000c20  32 1a e7 20 77 69 6d 70  5f 62 6c 6f 63 6b 25 21  |2.. wimp_block%!|
00000c30  31 36 3d 34 20 3d 20 b9  0d 05 3c 04 0d 05 46 07  |16=4 = ...<...F.|
00000c40  3d 20 a3 0d 05 50 04 0d  05 5a 4c 2d 2d 2d 2d 2d  |= ...P...ZL-----|
00000c50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000c90  2d 2d 2d 0d 05 64 04 0d  05 6e 18 dd 20 f2 6d 65  |---..d...n.. .me|
00000ca0  73 73 61 67 65 28 6d 65  73 73 61 67 65 24 29 0d  |ssage(message$).|
00000cb0  05 78 04 0d 05 82 23 e7  20 68 6f 75 72 67 6c 61  |.x....#. hourgla|
00000cc0  73 73 25 20 c8 99 20 22  48 6f 75 72 67 6c 61 73  |ss% .. "Hourglas|
00000cd0  73 5f 4f 66 66 22 0d 05  8c 04 0d 05 96 3d c8 99  |s_Off".......=..|
00000ce0  20 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  | "Wimp_ReportErr|
00000cf0  6f 72 22 2c 22 20 20 20  20 22 2b 6d 65 73 73 61  |or","    "+messa|
00000d00  67 65 24 2b bd 30 2c 25  31 30 30 30 31 2c 61 70  |ge$+.0,%10001,ap|
00000d10  70 5f 6e 61 6d 65 24 0d  05 a0 04 0d 05 aa 22 e7  |p_name$.......".|
00000d20  20 68 6f 75 72 67 6c 61  73 73 25 20 c8 99 20 22  | hourglass% .. "|
00000d30  48 6f 75 72 67 6c 61 73  73 5f 4f 6e 22 0d 05 b4  |Hourglass_On"...|
00000d40  04 0d 05 be 05 e1 0d 05  c8 04 0d 05 d2 4c 2a 2a  |.............L**|
00000d50  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000d90  2a 2a 2a 2a 2a 2a 0d 05  dc 04 0d 05 e6 12 49 6e  |******........In|
00000da0  69 74 69 61 6c 69 73 61  74 69 6f 6e 0d 05 f0 04  |itialisation....|
00000db0  0d 05 fa 4c 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...L************|
00000dc0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000df0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 06 04 04  |************....|
00000e00  0d 06 0e 10 dd 20 f2 77  69 6d 70 5f 69 6e 69 74  |..... .wimp_init|
00000e10  0d 06 18 04 0d 06 22 29  de 20 77 69 6d 70 5f 62  |......"). wimp_b|
00000e20  6c 6f 63 6b 25 20 31 30  32 33 2c 73 74 72 69 6e  |lock% 1023,strin|
00000e30  67 5f 62 75 66 66 65 72  25 20 32 35 35 0d 06 2c  |g_buffer% 255..,|
00000e40  1d de 20 73 61 76 65 61  73 5f 62 6c 6f 63 6b 25  |.. saveas_block%|
00000e50  20 38 38 20 2b 20 33 2a  33 32 0d 06 36 20 de 20  | 88 + 3*32..6 . |
00000e60  66 69 6c 65 69 6e 66 6f  5f 62 6c 6f 63 6b 25 20  |fileinfo_block% |
00000e70  38 38 20 2b 20 31 37 2a  33 32 0d 06 40 04 0d 06  |88 + 17*32..@...|
00000e80  4a 1e f4 20 49 6e 69 74  69 61 6c 69 73 65 20 76  |J.. Initialise v|
00000e90  61 72 69 6f 75 73 20 66  6c 61 67 73 0d 06 54 27  |arious flags..T'|
00000ea0  68 6f 75 72 67 6c 61 73  73 25 20 20 20 20 3d 20  |hourglass%    = |
00000eb0  a3 3a 73 61 76 69 6e 67  25 20 20 20 20 20 20 20  |.:saving%       |
00000ec0  3d 20 a3 0d 06 5e 27 6d  6f 64 69 66 69 65 64 25  |= ...^'modified%|
00000ed0  20 20 20 20 20 3d 20 a3  3a 70 69 67 73 5f 63 61  |     = .:pigs_ca|
00000ee0  6e 5f 66 6c 79 25 20 3d  20 a3 0d 06 68 44 75 73  |n_fly% = ...hDus|
00000ef0  69 6e 67 5f 73 63 72 61  70 25 20 20 3d 20 2d 31  |ing_scrap%  = -1|
00000f00  20 20 20 3a 73 61 76 65  64 5f 66 69 6c 65 24 20  |   :saved_file$ |
00000f10  20 20 3d 20 22 3c 42 42  43 54 61 70 65 24 44 69  |  = "<BBCTape$Di|
00000f20  72 3e 2e 78 78 78 78 78  78 78 78 78 78 22 0d 06  |r>.xxxxxxxxxx"..|
00000f30  72 1c 76 65 72 73 69 6f  6e 24 20 20 20 20 20 20  |r.version$      |
00000f40  3d 20 22 31 39 20 4d 61  72 22 0d 06 7c 04 0d 06  |= "19 Mar"..|...|
00000f50  86 19 f4 20 47 65 74 20  74 68 65 20 73 63 72 65  |... Get the scre|
00000f60  65 6e 20 73 69 7a 65 0d  06 90 2b 21 77 69 6d 70  |en size...+!wimp|
00000f70  5f 62 6c 6f 63 6b 25 20  20 20 3d 20 20 34 3a 77  |_block%   =  4:w|
00000f80  69 6d 70 5f 62 6c 6f 63  6b 25 21 34 20 20 3d 20  |imp_block%!4  = |
00000f90  20 35 0d 06 9a 2b 77 69  6d 70 5f 62 6c 6f 63 6b  | 5...+wimp_block|
00000fa0  25 21 38 20 20 3d 20 31  31 3a 77 69 6d 70 5f 62  |%!8  = 11:wimp_b|
00000fb0  6c 6f 63 6b 25 21 31 32  20 3d 20 31 32 0d 06 a4  |lock%!12 = 12...|
00000fc0  17 77 69 6d 70 5f 62 6c  6f 63 6b 25 21 31 36 20  |.wimp_block%!16 |
00000fd0  3d 20 2d 31 0d 06 ae 37  c8 99 20 22 4f 53 5f 52  |= -1...7.. "OS_R|
00000fe0  65 61 64 56 64 75 56 61  72 69 61 62 6c 65 73 22  |eadVduVariables"|
00000ff0  2c 77 69 6d 70 5f 62 6c  6f 63 6b 25 2c 77 69 6d  |,wimp_block%,wim|
00001000  70 5f 62 6c 6f 63 6b 25  2b 32 30 0d 06 b8 3a 73  |p_block%+20...:s|
00001010  63 72 65 65 6e 5f 78 25  20 3d 20 28 31 20 3c 3c  |creen_x% = (1 <<|
00001020  20 77 69 6d 70 5f 62 6c  6f 63 6b 25 21 32 30 29  | wimp_block%!20)|
00001030  2a 28 77 69 6d 70 5f 62  6c 6f 63 6b 25 21 32 38  |*(wimp_block%!28|
00001040  20 2b 20 31 29 0d 06 c2  3a 73 63 72 65 65 6e 5f  | + 1)...:screen_|
00001050  79 25 20 3d 20 28 31 20  3c 3c 20 77 69 6d 70 5f  |y% = (1 << wimp_|
00001060  62 6c 6f 63 6b 25 21 32  34 29 2a 28 77 69 6d 70  |block%!24)*(wimp|
00001070  5f 62 6c 6f 63 6b 25 21  33 32 20 2b 20 31 29 0d  |_block%!32 + 1).|
00001080  06 cc 04 0d 06 d6 45 f4  20 4d 61 73 6b 20 6f 75  |......E. Mask ou|
00001090  74 20 6e 75 6c 6c 2c 20  70 6f 69 6e 74 65 72 20  |t null, pointer |
000010a0  6c 65 61 76 69 6e 67 2f  65 6e 74 65 72 69 6e 67  |leaving/entering|
000010b0  20 77 69 6e 64 6f 77 2c  20 6c 6f 73 65 2f 67 61  | window, lose/ga|
000010c0  69 6e 20 63 61 72 65 74  0d 06 e0 39 70 6f 6c 6c  |in caret...9poll|
000010d0  5f 6d 61 73 6b 25 20 3d  20 31 20 2b 20 28 25 31  |_mask% = 1 + (%1|
000010e0  31 3c 3c 34 29 20 2b 20  28 25 31 31 3c 3c 31 31  |1<<4) + (%11<<11|
000010f0  29 3a 70 6f 6c 6c 5f 74  69 6d 65 25 20 3d 20 31  |):poll_time% = 1|
00001100  30 0d 06 f4 04 0d 06 fe  0d f2 69 63 6f 6e 5f 62  |0.........icon_b|
00001110  61 72 0d 07 08 04 0d 07  12 13 f2 6c 6f 61 64 5f  |ar.........load_|
00001120  74 65 6d 70 6c 61 74 65  73 0d 07 1c 04 0d 07 26  |templates......&|
00001130  10 f2 63 72 65 61 74 65  5f 6d 65 6e 75 0d 07 30  |..create_menu..0|
00001140  04 0d 07 3a 09 f2 69 6e  66 6f 0d 07 44 04 0d 07  |...:..info..D...|
00001150  4e 05 e1 0d 07 58 04 0d  07 62 4c 2d 2d 2d 2d 2d  |N....X...bL-----|
00001160  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000011a0  2d 2d 2d 0d 07 6c 04 0d  07 76 0f dd 20 f2 69 63  |---..l...v.. .ic|
000011b0  6f 6e 5f 62 61 72 0d 07  80 04 0d 07 8a 17 21 77  |on_bar........!w|
000011c0  69 6d 70 5f 62 6c 6f 63  6b 25 20 20 20 3d 20 2d  |imp_block%   = -|
000011d0  32 0d 07 94 2b 77 69 6d  70 5f 62 6c 6f 63 6b 25  |2...+wimp_block%|
000011e0  21 34 20 20 3d 20 20 30  3a 77 69 6d 70 5f 62 6c  |!4  =  0:wimp_bl|
000011f0  6f 63 6b 25 21 38 20 20  3d 20 20 30 0d 07 9e 2b  |ock%!8  =  0...+|
00001200  77 69 6d 70 5f 62 6c 6f  63 6b 25 21 31 32 20 3d  |wimp_block%!12 =|
00001210  20 36 38 3a 77 69 6d 70  5f 62 6c 6f 63 6b 25 21  | 68:wimp_block%!|
00001220  31 36 20 3d 20 36 38 0d  07 a8 21 f4 20 53 70 72  |16 = 68...!. Spr|
00001230  69 74 65 2c 20 63 6c 69  63 6b 20 6e 6f 74 69 66  |ite, click notif|
00001240  69 65 73 20 6f 6e 63 65  0d 07 b2 25 77 69 6d 70  |ies once...%wimp|
00001250  5f 62 6c 6f 63 6b 25 21  32 30 20 3d 20 28 31 3c  |_block%!20 = (1<|
00001260  3c 31 29 20 2b 20 28 33  3c 3c 31 32 29 0d 07 bc  |<1) + (3<<12)...|
00001270  27 24 28 77 69 6d 70 5f  62 6c 6f 63 6b 25 2b 32  |'$(wimp_block%+2|
00001280  34 29 20 3d 20 22 21 22  20 2b 20 61 70 70 5f 6e  |4) = "!" + app_n|
00001290  61 6d 65 24 0d 07 c6 04  0d 07 d0 25 c8 99 20 22  |ame$.......%.. "|
000012a0  57 69 6d 70 5f 43 72 65  61 74 65 49 63 6f 6e 22  |Wimp_CreateIcon"|
000012b0  2c 2c 77 69 6d 70 5f 62  6c 6f 63 6b 25 0d 07 da  |,,wimp_block%...|
000012c0  04 0d 07 e4 05 e1 0d 07  ee 04 0d 07 f8 4c 2d 2d  |.............L--|
000012d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001310  2d 2d 2d 2d 2d 2d 0d 08  02 04 0d 08 0c 15 dd 20  |------......... |
00001320  f2 6c 6f 61 64 5f 74 65  6d 70 6c 61 74 65 73 0d  |.load_templates.|
00001330  08 16 04 0d 08 20 1f ea  20 6e 61 6d 65 25 2c 70  |..... .. name%,p|
00001340  74 72 25 2c 69 6e 64 5f  62 75 66 66 65 72 25 2c  |tr%,ind_buffer%,|
00001350  69 25 0d 08 2a 04 0d 08  34 1f de 20 6e 61 6d 65  |i%..*...4.. name|
00001360  25 20 31 32 2c 69 6e 64  5f 62 75 66 66 65 72 25  |% 12,ind_buffer%|
00001370  20 31 30 32 33 0d 08 3e  04 0d 08 48 3f c8 99 20  | 1023..>...H?.. |
00001380  22 57 69 6d 70 5f 4f 70  65 6e 54 65 6d 70 6c 61  |"Wimp_OpenTempla|
00001390  74 65 22 2c 2c 22 3c 22  20 2b 20 61 70 70 5f 6e  |te",,"<" + app_n|
000013a0  61 6d 65 24 20 2b 20 22  24 44 69 72 3e 2e 54 65  |ame$ + "$Dir>.Te|
000013b0  6d 70 6c 61 74 65 73 22  0d 08 52 04 0d 08 5c 17  |mplates"..R...\.|
000013c0  f4 20 53 61 76 65 20 64  69 61 6c 6f 67 75 65 20  |. Save dialogue |
000013d0  62 6f 78 0d 08 66 15 24  6e 61 6d 65 25 20 3d 20  |box..f.$name% = |
000013e0  22 73 61 76 65 61 73 22  0d 08 70 58 c8 99 20 22  |"saveas"..pX.. "|
000013f0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00001400  65 22 2c 2c 77 69 6d 70  5f 62 6c 6f 63 6b 25 2c  |e",,wimp_block%,|
00001410  69 6e 64 5f 62 75 66 66  65 72 25 2c 69 6e 64 5f  |ind_buffer%,ind_|
00001420  62 75 66 66 65 72 25 2b  31 30 32 33 2c 2d 31 2c  |buffer%+1023,-1,|
00001430  6e 61 6d 65 25 2c 30 20  b8 20 2c 2c 70 74 72 25  |name%,0 . ,,ptr%|
00001440  0d 08 7a 16 e3 20 69 25  3d 30 20 b8 20 38 38 2b  |..z.. i%=0 . 88+|
00001450  33 2a 33 32 2d 31 0d 08  84 27 20 20 73 61 76 65  |3*32-1...'  save|
00001460  61 73 5f 62 6c 6f 63 6b  25 21 69 25 20 3d 20 77  |as_block%!i% = w|
00001470  69 6d 70 5f 62 6c 6f 63  6b 25 21 69 25 0d 08 8e  |imp_block%!i%...|
00001480  05 ed 0d 08 98 21 73 61  76 65 5f 70 74 72 25 20  |.....!save_ptr% |
00001490  3d 20 73 61 76 65 61 73  5f 62 6c 6f 63 6b 25 21  |= saveas_block%!|
000014a0  31 34 30 0d 08 a2 33 c8  99 20 22 57 69 6d 70 5f  |140...3.. "Wimp_|
000014b0  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 73  |CreateWindow",,s|
000014c0  61 76 65 61 73 5f 62 6c  6f 63 6b 25 20 b8 20 73  |aveas_block% . s|
000014d0  61 76 65 61 73 25 0d 08  ac 04 0d 08 b6 16 f4 20  |aveas%......... |
000014e0  46 69 6c 65 20 69 6e 66  6f 72 6d 61 74 69 6f 6e  |File information|
000014f0  0d 08 c0 17 24 6e 61 6d  65 25 20 3d 20 22 66 69  |....$name% = "fi|
00001500  6c 65 49 6e 66 6f 22 0d  08 ca 51 c8 99 20 22 57  |leInfo"...Q.. "W|
00001510  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00001520  22 2c 2c 77 69 6d 70 5f  62 6c 6f 63 6b 25 2c 70  |",,wimp_block%,p|
00001530  74 72 25 2c 69 6e 64 5f  62 75 66 66 65 72 25 2b  |tr%,ind_buffer%+|
00001540  31 30 32 33 2c 2d 31 2c  6e 61 6d 65 25 2c 30 20  |1023,-1,name%,0 |
00001550  b8 20 2c 2c 70 74 72 25  0d 08 d4 17 e3 20 69 25  |. ,,ptr%..... i%|
00001560  3d 30 20 b8 20 38 38 2b  31 37 2a 33 32 2d 31 0d  |=0 . 88+17*32-1.|
00001570  08 de 29 20 20 66 69 6c  65 69 6e 66 6f 5f 62 6c  |..)  fileinfo_bl|
00001580  6f 63 6b 25 21 69 25 20  3d 20 77 69 6d 70 5f 62  |ock%!i% = wimp_b|
00001590  6c 6f 63 6b 25 21 69 25  0d 08 e8 05 ed 0d 08 f2  |lock%!i%........|
000015a0  2c 66 69 6c 65 69 6e 66  6f 5f 62 6c 6f 63 6b 25  |,fileinfo_block%|
000015b0  21 28 31 30 38 2b 34 2a  33 32 29 20 20 20 3d 20  |!(108+4*32)   = |
000015c0  73 61 76 65 5f 70 74 72  25 0d 08 fc 34 66 69 6c  |save_ptr%...4fil|
000015d0  65 69 6e 66 6f 5f 62 6c  6f 63 6b 25 21 28 31 30  |einfo_block%!(10|
000015e0  38 2b 34 2a 33 32 2b 38  29 20 3d 20 73 61 76 65  |8+4*32+8) = save|
000015f0  61 73 5f 62 6c 6f 63 6b  25 21 31 34 38 0d 09 06  |as_block%!148...|
00001600  2d 74 79 70 65 5f 62 75  66 66 65 72 25 20 3d 20  |-type_buffer% = |
00001610  66 69 6c 65 69 6e 66 6f  5f 62 6c 6f 63 6b 25 21  |fileinfo_block%!|
00001620  28 31 30 38 2b 33 2a 33  32 29 0d 09 10 37 c8 99  |(108+3*32)...7..|
00001630  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00001640  64 6f 77 22 2c 2c 66 69  6c 65 69 6e 66 6f 5f 62  |dow",,fileinfo_b|
00001650  6c 6f 63 6b 25 20 b8 20  66 69 6c 65 69 6e 66 6f  |lock% . fileinfo|
00001660  25 0d 09 1a 04 0d 09 24  16 f4 20 79 65 73 2f 6e  |%......$.. yes/n|
00001670  6f 20 65 72 72 6f 72 20  62 6f 78 0d 09 2e 14 24  |o error box....$|
00001680  6e 61 6d 65 25 20 3d 20  22 65 72 72 6f 72 22 0d  |name% = "error".|
00001690  09 38 51 c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |.8Q.. "Wimp_Load|
000016a0  54 65 6d 70 6c 61 74 65  22 2c 2c 77 69 6d 70 5f  |Template",,wimp_|
000016b0  62 6c 6f 63 6b 25 2c 70  74 72 25 2c 69 6e 64 5f  |block%,ptr%,ind_|
000016c0  62 75 66 66 65 72 25 2b  31 30 32 33 2c 2d 31 2c  |buffer%+1023,-1,|
000016d0  6e 61 6d 65 25 2c 30 20  b8 20 2c 2c 70 74 72 25  |name%,0 . ,,ptr%|
000016e0  0d 09 42 20 65 72 72 6f  72 5f 70 74 72 25 20 3d  |..B error_ptr% =|
000016f0  20 77 69 6d 70 5f 62 6c  6f 63 6b 25 21 31 30 38  | wimp_block%!108|
00001700  0d 09 4c 37 c8 99 20 22  57 69 6d 70 5f 43 72 65  |..L7.. "Wimp_Cre|
00001710  61 74 65 57 69 6e 64 6f  77 22 2c 2c 77 69 6d 70  |ateWindow",,wimp|
00001720  5f 62 6c 6f 63 6b 25 20  b8 20 65 72 72 6f 72 5f  |_block% . error_|
00001730  77 69 6e 64 6f 77 25 0d  09 56 04 0d 09 60 16 f4  |window%..V...`..|
00001740  20 50 72 6f 67 72 61 6d  20 69 6e 66 6f 20 62 6f  | Program info bo|
00001750  78 0d 09 6a 17 24 6e 61  6d 65 25 20 3d 20 22 70  |x..j.$name% = "p|
00001760  72 6f 67 69 6e 66 6f 22  0d 09 74 51 c8 99 20 22  |roginfo"..tQ.. "|
00001770  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00001780  65 22 2c 2c 77 69 6d 70  5f 62 6c 6f 63 6b 25 2c  |e",,wimp_block%,|
00001790  70 74 72 25 2c 69 6e 64  5f 62 75 66 66 65 72 25  |ptr%,ind_buffer%|
000017a0  2b 31 30 32 33 2c 2d 31  2c 6e 61 6d 65 25 2c 30  |+1023,-1,name%,0|
000017b0  20 b8 20 2c 2c 70 74 72  25 0d 09 7e 3f 24 28 77  | . ,,ptr%..~?$(w|
000017c0  69 6d 70 5f 62 6c 6f 63  6b 25 21 32 33 36 29 20  |imp_block%!236) |
000017d0  3d 20 c0 22 31 2e 30 30  20 28 32 35 2d 46 65 62  |= ."1.00 (25-Feb|
000017e0  2d 31 39 39 31 29 22 2c  77 69 6d 70 5f 62 6c 6f  |-1991)",wimp_blo|
000017f0  63 6b 25 21 32 34 34 29  0d 09 88 33 c8 99 20 22  |ck%!244)...3.. "|
00001800  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00001810  77 22 2c 2c 77 69 6d 70  5f 62 6c 6f 63 6b 25 20  |w",,wimp_block% |
00001820  b8 20 70 72 6f 67 69 6e  66 6f 25 0d 09 92 04 0d  |. proginfo%.....|
00001830  09 9c 13 f4 20 53 74 61  74 75 73 20 77 69 6e 64  |.... Status wind|
00001840  6f 77 0d 09 a6 15 24 6e  61 6d 65 25 20 3d 20 22  |ow....$name% = "|
00001850  73 74 61 74 75 73 22 0d  09 b0 48 c8 99 20 22 57  |status"...H.. "W|
00001860  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00001870  22 2c 2c 77 69 6d 70 5f  62 6c 6f 63 6b 25 2c 70  |",,wimp_block%,p|
00001880  74 72 25 2c 69 6e 64 5f  62 75 66 66 65 72 25 2b  |tr%,ind_buffer%+|
00001890  31 30 32 33 2c 2d 31 2c  6e 61 6d 65 25 2c 30 0d  |1023,-1,name%,0.|
000018a0  09 ba 2b 73 74 61 74 75  73 5f 6c 65 6e 67 74 68  |..+status_length|
000018b0  25 20 3d 20 77 69 6d 70  5f 62 6c 6f 63 6b 25 21  |% = wimp_block%!|
000018c0  28 31 30 38 2b 32 2a 33  32 29 0d 09 c4 2b 73 74  |(108+2*32)...+st|
000018d0  61 74 75 73 5f 62 79 74  65 73 25 20 20 3d 20 77  |atus_bytes%  = w|
000018e0  69 6d 70 5f 62 6c 6f 63  6b 25 21 28 31 30 38 2b  |imp_block%!(108+|
000018f0  33 2a 33 32 29 0d 09 ce  2b 73 74 61 74 75 73 5f  |3*32)...+status_|
00001900  72 61 74 65 25 20 20 20  3d 20 77 69 6d 70 5f 62  |rate%   = wimp_b|
00001910  6c 6f 63 6b 25 21 28 31  30 38 2b 34 2a 33 32 29  |lock%!(108+4*32)|
00001920  0d 09 d8 2b 73 74 61 74  75 73 5f 63 72 63 25 20  |...+status_crc% |
00001930  20 20 20 3d 20 77 69 6d  70 5f 62 6c 6f 63 6b 25  |   = wimp_block%|
00001940  21 28 31 30 38 2b 39 2a  33 32 29 0d 09 e2 38 c8  |!(108+9*32)...8.|
00001950  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00001960  6e 64 6f 77 22 2c 2c 77  69 6d 70 5f 62 6c 6f 63  |ndow",,wimp_bloc|
00001970  6b 25 20 b8 20 73 74 61  74 75 73 5f 77 69 6e 64  |k% . status_wind|
00001980  6f 77 25 0d 09 ec 04 0d  09 f6 1b c8 99 20 22 57  |ow%.......... "W|
00001990  69 6d 70 5f 43 6c 6f 73  65 54 65 6d 70 6c 61 74  |imp_CloseTemplat|
000019a0  65 22 0d 0a 00 04 0d 0a  0a 05 e1 0d 0a 14 04 0d  |e"..............|
000019b0  0a 1e 4c 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..L-------------|
000019c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000019f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 0a 28 04 0d  |-----------..(..|
00001a00  0a 32 12 dd 20 f2 63 72  65 61 74 65 5f 6d 65 6e  |.2.. .create_men|
00001a10  75 0d 0a 3c 04 0d 0a 46  1b ea 20 69 25 2c 6e 61  |u..<...F.. i%,na|
00001a20  6d 65 24 2c 77 69 64 74  68 25 2c 74 65 6d 70 25  |me$,width%,temp%|
00001a30  0d 0a 50 04 0d 0a 5a 21  de 20 6e 61 6d 65 5f 62  |..P...Z!. name_b|
00001a40  6c 6f 63 6b 25 20 35 32  2c 6e 61 6d 65 5f 70 74  |lock% 52,name_pt|
00001a50  72 25 20 31 30 0d 0a 64  21 de 20 74 79 70 65 5f  |r% 10..d!. type_|
00001a60  62 6c 6f 63 6b 25 20 35  32 2c 74 79 70 65 5f 70  |block% 52,type_p|
00001a70  74 72 25 20 20 38 0d 0a  6e 2f de 20 6c 6f 61 64  |tr%  8..n/. load|
00001a80  5f 62 6c 6f 63 6b 25 20  35 32 2c 6c 6f 61 64 5f  |_block% 52,load_|
00001a90  70 74 72 25 20 20 34 2c  68 65 78 5f 76 61 6c 69  |ptr%  4,hex_vali|
00001aa0  64 25 20 31 30 0d 0a 78  21 de 20 65 78 65 63 5f  |d% 10..x!. exec_|
00001ab0  62 6c 6f 63 6b 25 20 35  32 2c 65 78 65 63 5f 70  |block% 52,exec_p|
00001ac0  74 72 25 20 20 34 0d 0a  82 04 0d 0a 8c 24 24 6e  |tr%  4.......$$n|
00001ad0  61 6d 65 5f 70 74 72 25  20 20 3d 20 22 22 3a 24  |ame_ptr%  = "":$|
00001ae0  74 79 70 65 5f 70 74 72  25 20 3d 20 22 22 0d 0a  |type_ptr% = ""..|
00001af0  96 24 24 6c 6f 61 64 5f  70 74 72 25 20 20 3d 20  |.$$load_ptr%  = |
00001b00  22 22 3a 24 65 78 65 63  5f 70 74 72 25 20 3d 20  |"":$exec_ptr% = |
00001b10  22 22 0d 0a a0 1e 24 68  65 78 5f 76 61 6c 69 64  |""....$hex_valid|
00001b20  25 20 3d 20 22 61 30 2d  39 61 2d 66 41 2d 46 22  |% = "a0-9a-fA-F"|
00001b30  0d 0a aa 04 0d 0a b4 41  f2 77 72 69 74 65 61 62  |.......A.writeab|
00001b40  6c 65 5f 6d 65 6e 75 28  6e 61 6d 65 5f 62 6c 6f  |le_menu(name_blo|
00001b50  63 6b 25 2c 22 46 69 6c  65 20 6e 61 6d 65 22 2c  |ck%,"File name",|
00001b60  31 31 2c 30 2c 6e 61 6d  65 5f 70 74 72 25 2c 31  |11,0,name_ptr%,1|
00001b70  31 2c 2d 31 29 0d 0a be  40 f2 77 72 69 74 65 61  |1,-1)...@.writea|
00001b80  62 6c 65 5f 6d 65 6e 75  28 74 79 70 65 5f 62 6c  |ble_menu(type_bl|
00001b90  6f 63 6b 25 2c 22 46 69  6c 65 20 74 79 70 65 22  |ock%,"File type"|
00001ba0  2c 31 30 2c 30 2c 74 79  70 65 5f 70 74 72 25 2c  |,10,0,type_ptr%,|
00001bb0  39 2c 2d 31 29 0d 0a c8  4b f2 77 72 69 74 65 61  |9,-1)...K.writea|
00001bc0  62 6c 65 5f 6d 65 6e 75  28 6c 6f 61 64 5f 62 6c  |ble_menu(load_bl|
00001bd0  6f 63 6b 25 2c 22 4c 6f  61 64 20 61 64 64 72 65  |ock%,"Load addre|
00001be0  73 73 22 2c 31 33 2c 30  2c 6c 6f 61 64 5f 70 74  |ss",13,0,load_pt|
00001bf0  72 25 2c 35 2c 68 65 78  5f 76 61 6c 69 64 25 29  |r%,5,hex_valid%)|
00001c00  0d 0a d2 4b f2 77 72 69  74 65 61 62 6c 65 5f 6d  |...K.writeable_m|
00001c10  65 6e 75 28 65 78 65 63  5f 62 6c 6f 63 6b 25 2c  |enu(exec_block%,|
00001c20  22 45 78 65 63 20 61 64  64 72 65 73 73 22 2c 31  |"Exec address",1|
00001c30  33 2c 30 2c 65 78 65 63  5f 70 74 72 25 2c 35 2c  |3,0,exec_ptr%,5,|
00001c40  68 65 78 5f 76 61 6c 69  64 25 29 0d 0a dc 04 0d  |hex_valid%).....|
00001c50  0a e6 08 f7 20 2b 30 0d  0a f0 04 0d 0a fa 1d f3  |.... +0.........|
00001c60  20 6d 65 6e 75 5f 6d 61  78 25 2c 6c 65 6e 5f 6d  | menu_max%,len_m|
00001c70  65 6e 75 5f 6d 61 78 25  0d 0b 04 24 de 20 6d 65  |enu_max%...$. me|
00001c80  6e 75 24 28 6c 65 6e 5f  6d 65 6e 75 5f 6d 61 78  |nu$(len_menu_max|
00001c90  25 2c 6d 65 6e 75 5f 6d  61 78 25 29 0d 0b 0e 37  |%,menu_max%)...7|
00001ca0  de 20 6d 65 6e 75 5f 62  6c 6f 63 6b 25 28 6d 65  |. menu_block%(me|
00001cb0  6e 75 5f 6d 61 78 25 29  2c 6e 75 6d 5f 6d 65 6e  |nu_max%),num_men|
00001cc0  75 5f 69 74 65 6d 73 25  28 6d 65 6e 75 5f 6d 61  |u_items%(menu_ma|
00001cd0  78 25 29 0d 0b 18 04 0d  0b 22 16 e3 20 69 25 3d  |x%)......".. i%=|
00001ce0  30 20 b8 20 6d 65 6e 75  5f 6d 61 78 25 0d 0b 2c  |0 . menu_max%..,|
00001cf0  28 20 20 f3 20 6e 61 6d  65 24 2c 6e 75 6d 5f 6d  |(  . name$,num_m|
00001d00  65 6e 75 5f 69 74 65 6d  73 25 28 69 25 29 2c 77  |enu_items%(i%),w|
00001d10  69 64 74 68 25 0d 0b 36  29 20 20 de 20 74 65 6d  |idth%..6)  . tem|
00001d20  70 25 20 32 38 20 2b 20  32 34 2a 6e 75 6d 5f 6d  |p% 28 + 24*num_m|
00001d30  65 6e 75 5f 69 74 65 6d  73 25 28 69 25 29 0d 0b  |enu_items%(i%)..|
00001d40  40 1d 20 20 6d 65 6e 75  5f 62 6c 6f 63 6b 25 28  |@.  menu_block%(|
00001d50  69 25 29 20 3d 20 74 65  6d 70 25 0d 0b 4a 2f 20  |i%) = temp%..J/ |
00001d60  20 f2 62 75 69 6c 64 5f  6d 65 6e 75 28 6d 65 6e  | .build_menu(men|
00001d70  75 5f 62 6c 6f 63 6b 25  28 69 25 29 2c 6e 61 6d  |u_block%(i%),nam|
00001d80  65 24 2c 77 69 64 74 68  25 29 0d 0b 54 05 ed 0d  |e$,width%)..T...|
00001d90  0b 5e 04 0d 0b 68 16 e3  20 69 25 3d 30 20 b8 20  |.^...h.. i%=0 . |
00001da0  6d 65 6e 75 5f 6d 61 78  25 0d 0b 72 3f 20 20 f2  |menu_max%..r?  .|
00001db0  62 75 69 6c 64 5f 6d 65  6e 75 5f 69 74 65 6d 73  |build_menu_items|
00001dc0  28 6d 65 6e 75 5f 62 6c  6f 63 6b 25 28 69 25 29  |(menu_block%(i%)|
00001dd0  2c 6e 75 6d 5f 6d 65 6e  75 5f 69 74 65 6d 73 25  |,num_menu_items%|
00001de0  28 69 25 29 2c 69 25 29  0d 0b 7c 05 ed 0d 0b 86  |(i%),i%)..|.....|
00001df0  04 0d 0b 90 29 f4 20 4e  6f 2e 20 6f 66 20 6d 65  |....). No. of me|
00001e00  6e 75 73 20 2d 20 31 2c  20 6c 65 6e 67 74 68 20  |nus - 1, length |
00001e10  6f 66 20 6c 6f 6e 67 65  73 74 0d 0b 9a 09 dc 20  |of longest..... |
00001e20  32 2c 38 0d 0b a4 04 0d  0b ae 1f f4 20 4e 61 6d  |2,8......... Nam|
00001e30  65 2c 20 6e 6f 2e 20 6f  66 20 69 74 65 6d 73 2c  |e, no. of items,|
00001e40  20 77 69 64 74 68 0d 0b  b8 13 dc 20 22 42 42 43  | width..... "BBC|
00001e50  54 61 70 65 22 2c 36 2c  39 0d 0b c2 14 dc 20 22  |Tape",6,9..... "|
00001e60  4d 69 73 63 22 20 20 20  2c 36 2c 31 31 0d 0b cc  |Misc"   ,6,11...|
00001e70  14 dc 20 22 4f 70 74 69  6f 6e 73 22 2c 38 2c 31  |.. "Options",8,1|
00001e80  33 0d 0b d6 04 0d 0b e0  32 f4 20 49 74 65 6d 20  |3.......2. Item |
00001e90  74 65 78 74 2c 20 74 69  63 6b 2c 20 73 68 61 64  |text, tick, shad|
00001ea0  65 2c 20 64 6f 74 2c 20  6e 6f 74 69 66 79 2c 20  |e, dot, notify, |
00001eb0  70 6f 69 6e 74 65 72 0d  0b ea 04 0d 0b f4 2b dc  |pointer.......+.|
00001ec0  20 22 4d 69 73 63 22 20  20 20 20 20 20 20 20 2c  | "Misc"        ,|
00001ed0  30 2c 30 2c 30 2c 30 2c  6d 65 6e 75 5f 62 6c 6f  |0,0,0,0,menu_blo|
00001ee0  63 6b 25 28 31 29 0d 0b  fe 24 dc 20 22 53 61 76  |ck%(1)...$. "Sav|
00001ef0  65 22 20 20 20 20 20 20  20 20 2c 30 2c 30 2c 30  |e"        ,0,0,0|
00001f00  2c 31 2c 73 61 76 65 61  73 25 0d 0c 08 2b dc 20  |,1,saveas%...+. |
00001f10  22 4f 70 74 69 6f 6e 73  22 20 20 20 20 20 2c 30  |"Options"     ,0|
00001f20  2c 30 2c 30 2c 30 2c 6d  65 6e 75 5f 62 6c 6f 63  |,0,0,0,menu_bloc|
00001f30  6b 25 28 32 29 0d 0c 12  28 dc 20 22 55 70 6c 6f  |k%(2)...(. "Uplo|
00001f40  61 64 22 20 20 20 20 20  20 2c 30 2c 30 2c 30 2c  |ad"      ,0,0,0,|
00001f50  30 2c 6e 61 6d 65 5f 62  6c 6f 63 6b 25 0d 0c 1c  |0,name_block%...|
00001f60  1f dc 20 22 44 6f 77 6e  6c 6f 61 64 22 20 20 20  |.. "Download"   |
00001f70  20 2c 30 2c 30 2c 31 2c  30 2c 2d 31 0d 0c 26 1f  | ,0,0,1,0,-1..&.|
00001f80  dc 20 22 51 75 69 74 22  20 20 20 20 20 20 20 20  |. "Quit"        |
00001f90  2c 30 2c 30 2c 30 2c 30  2c 2d 31 0d 0c 30 04 0d  |,0,0,0,0,-1..0..|
00001fa0  0c 3a 26 dc 20 22 49 6e  66 6f 22 20 20 20 20 20  |.:&. "Info"     |
00001fb0  20 20 20 2c 30 2c 30 2c  30 2c 30 2c 70 72 6f 67  |   ,0,0,0,0,prog|
00001fc0  69 6e 66 6f 25 0d 0c 44  26 dc 20 22 46 69 6c 65  |info%..D&. "File|
00001fd0  22 20 20 20 20 20 20 20  20 2c 30 2c 30 2c 30 2c  |"        ,0,0,0,|
00001fe0  31 2c 66 69 6c 65 69 6e  66 6f 25 0d 0c 4e 1f dc  |1,fileinfo%..N..|
00001ff0  20 22 53 74 61 74 75 73  20 2e 2e 2e 22 20 20 2c  | "Status ..."  ,|
00002000  30 2c 30 2c 31 2c 30 2c  2d 31 0d 0c 58 1f dc 20  |0,0,1,0,-1..X.. |
00002010  22 39 36 30 30 2c 20 38  6e 31 22 20 20 20 2c 30  |"9600, 8n1"   ,0|
00002020  2c 30 2c 31 2c 30 2c 2d  31 0d 0c 62 1f dc 20 22  |,0,1,0,-1..b.. "|
00002030  52 65 73 65 74 22 20 20  20 20 20 20 20 2c 30 2c  |Reset"       ,0,|
00002040  30 2c 30 2c 30 2c 2d 31  0d 0c 6c 1f dc 20 22 43  |0,0,0,-1..l.. "C|
00002050  6c 65 61 72 22 20 20 20  20 20 20 20 2c 30 2c 30  |lear"       ,0,0|
00002060  2c 30 2c 30 2c 2d 31 0d  0c 76 04 0d 0c 80 28 dc  |,0,0,-1..v....(.|
00002070  20 22 46 69 6c 65 20 74  79 70 65 22 20 20 20 2c  | "File type"   ,|
00002080  30 2c 30 2c 30 2c 30 2c  74 79 70 65 5f 62 6c 6f  |0,0,0,0,type_blo|
00002090  63 6b 25 0d 0c 8a 28 dc  20 22 4c 6f 61 64 20 61  |ck%...(. "Load a|
000020a0  64 64 72 65 73 73 22 2c  31 2c 30 2c 30 2c 30 2c  |ddress",1,0,0,0,|
000020b0  6c 6f 61 64 5f 62 6c 6f  63 6b 25 0d 0c 94 28 dc  |load_block%...(.|
000020c0  20 22 45 78 65 63 20 61  64 64 72 65 73 73 22 2c  | "Exec address",|
000020d0  31 2c 30 2c 31 2c 30 2c  65 78 65 63 5f 62 6c 6f  |1,0,1,0,exec_blo|
000020e0  63 6b 25 0d 0c 9e 1f dc  20 22 43 52 20 89 20 4c  |ck%..... "CR . L|
000020f0  46 22 20 20 20 20 20 2c  30 2c 30 2c 30 2c 30 2c  |F"     ,0,0,0,0,|
00002100  2d 31 0d 0c a8 1f dc 20  22 47 75 65 73 73 20 74  |-1..... "Guess t|
00002110  79 70 65 22 20 20 2c 30  2c 30 2c 30 2c 30 2c 2d  |ype"  ,0,0,0,0,-|
00002120  31 0d 0c b2 1f dc 20 22  41 75 74 6f 20 6c 6f 61  |1..... "Auto loa|
00002130  64 22 20 20 20 2c 30 2c  30 2c 30 2c 30 2c 2d 31  |d"   ,0,0,0,0,-1|
00002140  0d 0c bc 1f dc 20 22 46  61 73 74 20 6c 6f 61 64  |..... "Fast load|
00002150  22 20 20 20 2c 31 2c 30  2c 30 2c 30 2c 2d 31 0d  |"   ,1,0,0,0,-1.|
00002160  0c c6 1f dc 20 22 55 73  65 20 42 47 45 54 22 20  |.... "Use BGET" |
00002170  20 20 20 2c 30 2c 30 2c  30 2c 30 2c 2d 31 0d 0c  |   ,0,0,0,0,-1..|
00002180  d0 04 0d 0c da 05 e1 0d  0c e4 04 0d 0c ee 4c 2d  |..............L-|
00002190  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000021d0  2d 2d 2d 2d 2d 2d 2d 0d  0c f8 04 0d 0d 02 0b dd  |-------.........|
000021e0  20 f2 69 6e 66 6f 0d 0d  0c 04 0d 0d 16 13 ea 20  | .info......... |
000021f0  6d 61 73 6b 25 2c 73 63  72 6f 6c 6c 25 0d 0d 20  |mask%,scroll%.. |
00002200  04 0d 0d 2a 1a e7 20 c1  91 24 2c 35 2c 36 29 3c  |...*.. ..$,5,6)<|
00002210  3e 76 65 72 73 69 6f 6e  24 20 e1 0d 0d 34 04 0d  |>version$ ...4..|
00002220  0d 3e 2d 6d 61 73 6b 25  20 3d 20 28 25 31 31 3c  |.>-mask% = (%11<|
00002230  3c 34 29 20 2b 20 28 25  31 31 3c 3c 31 31 29 20  |<4) + (%11<<11) |
00002240  2b 20 28 25 31 31 31 3c  3c 31 37 29 0d 0d 48 04  |+ (%111<<17)..H.|
00002250  0d 0d 52 1b f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  |..R..open_window|
00002260  28 70 72 6f 67 69 6e 66  6f 25 29 0d 0d 5c 24 c8  |(proginfo%)..\$.|
00002270  99 20 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 6d 61  |. "Wimp_Poll",ma|
00002280  73 6b 25 2c 77 69 6d 70  5f 62 6c 6f 63 6b 25 0d  |sk%,wimp_block%.|
00002290  0d 66 04 0d 0d 70 0e f2  77 61 69 74 28 32 30 30  |.f...p..wait(200|
000022a0  29 0d 0d 7a 04 0d 0d 84  1c 21 77 69 6d 70 5f 62  |)..z.....!wimp_b|
000022b0  6c 6f 63 6b 25 20 3d 20  70 72 6f 67 69 6e 66 6f  |lock% = proginfo|
000022c0  25 0d 0d 8e 29 c8 99 20  22 57 69 6d 70 5f 47 65  |%...).. "Wimp_Ge|
000022d0  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 77  |tWindowState",,w|
000022e0  69 6d 70 5f 62 6c 6f 63  6b 25 0d 0d 98 04 0d 0d  |imp_block%......|
000022f0  a2 15 e3 20 73 63 72 6f  6c 6c 25 3d 31 20 b8 20  |... scroll%=1 . |
00002300  33 30 30 0d 0d ac 1f 20  20 77 69 6d 70 5f 62 6c  |300....  wimp_bl|
00002310  6f 63 6b 25 21 32 34 20  3d 20 2d 73 63 72 6f 6c  |ock%!24 = -scrol|
00002320  6c 25 0d 0d b6 27 20 20  c8 99 20 22 57 69 6d 70  |l%...'  .. "Wimp|
00002330  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 77 69  |_OpenWindow",,wi|
00002340  6d 70 5f 62 6c 6f 63 6b  25 0d 0d c0 29 20 20 c8  |mp_block%...)  .|
00002350  99 20 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 6d 61  |. "Wimp_Poll",ma|
00002360  73 6b 25 2c 77 69 6d 70  5f 62 6c 6f 63 6b 25 2b  |sk%,wimp_block%+|
00002370  33 32 0d 0d ca 05 ed 0d  0d d4 04 0d 0d de 0f f2  |32..............|
00002380  77 61 69 74 28 31 30 30  30 29 0d 0d e8 04 0d 0d  |wait(1000)......|
00002390  f2 1a e3 20 73 63 72 6f  6c 6c 25 3d 33 30 30 20  |... scroll%=300 |
000023a0  b8 20 30 20 88 20 2d 31  0d 0d fc 1f 20 20 77 69  |. 0 . -1....  wi|
000023b0  6d 70 5f 62 6c 6f 63 6b  25 21 32 34 20 3d 20 2d  |mp_block%!24 = -|
000023c0  73 63 72 6f 6c 6c 25 0d  0e 06 27 20 20 c8 99 20  |scroll%...'  .. |
000023d0  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
000023e0  22 2c 2c 77 69 6d 70 5f  62 6c 6f 63 6b 25 0d 0e  |",,wimp_block%..|
000023f0  10 29 20 20 c8 99 20 22  57 69 6d 70 5f 50 6f 6c  |.)  .. "Wimp_Pol|
00002400  6c 22 2c 6d 61 73 6b 25  2c 77 69 6d 70 5f 62 6c  |l",mask%,wimp_bl|
00002410  6f 63 6b 25 2b 33 32 0d  0e 1a 05 ed 0d 0e 24 04  |ock%+32.......$.|
00002420  0d 0e 2e 0e f2 77 61 69  74 28 32 30 30 29 0d 0e  |.....wait(200)..|
00002430  38 04 0d 0e 42 1c f2 63  6c 6f 73 65 5f 77 69 6e  |8...B..close_win|
00002440  64 6f 77 28 70 72 6f 67  69 6e 66 6f 25 29 0d 0e  |dow(proginfo%)..|
00002450  4c 04 0d 0e 56 05 e1 0d  0e 60 04 0d 0e 6a 4c 2d  |L...V....`...jL-|
00002460  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000024a0  2d 2d 2d 2d 2d 2d 2d 0d  0e 74 04 0d 0e 7e 12 dd  |-------..t...~..|
000024b0  20 f2 77 61 69 74 28 74  69 6d 65 25 29 0d 0e 88  | .wait(time%)...|
000024c0  04 0d 0e 92 0e 74 69 6d  65 25 20 2b 3d 20 91 0d  |.....time% += ..|
000024d0  0e 9c 04 0d 0e a6 0f f5  20 fd 20 91 3e 74 69 6d  |........ . .>tim|
000024e0  65 25 0d 0e b0 04 0d 0e  ba 05 e1 0d 0e c4 04 0d  |e%..............|
000024f0  0e ce 4c 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..L-------------|
00002500  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002530  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 0e d8 04 0d  |-----------.....|
00002540  0e e2 10 dd 20 f2 70 72  6f 67 5f 69 6e 69 74 0d  |.... .prog_init.|
00002550  0e ec 04 0d 0e f6 11 f2  61 73 73 65 6d 62 6c 65  |........assemble|
00002560  5f 63 72 63 0d 0f 00 04  0d 0f 0a 15 f4 20 4d 61  |_crc......... Ma|
00002570  69 6e 20 64 61 74 61 20  62 6c 6f 63 6b 0d 0f 14  |in data block...|
00002580  24 66 69 6c 65 5f 62 6c  6f 63 6b 5f 6c 65 6e 67  |$file_block_leng|
00002590  74 68 25 20 3d 20 33 32  2a 31 30 32 34 20 2d 20  |th% = 32*1024 - |
000025a0  31 0d 0f 1e 24 de 20 66  69 6c 65 5f 62 6c 6f 63  |1...$. file_bloc|
000025b0  6b 25 20 66 69 6c 65 5f  62 6c 6f 63 6b 5f 6c 65  |k% file_block_le|
000025c0  6e 67 74 68 25 0d 0f 28  04 0d 0f 32 1d f4 20 49  |ngth%..(...2.. I|
000025d0  6e 69 74 69 61 6c 20 6f  70 74 69 6f 6e 20 73 65  |nitial option se|
000025e0  74 74 69 6e 67 73 0d 0f  3c 22 64 6f 5f 63 72 6c  |ttings..<"do_crl|
000025f0  66 25 20 20 20 20 3d 20  a3 3a 6f 6e 65 5f 73 68  |f%    = .:one_sh|
00002600  6f 74 25 20 20 3d 20 b9  0d 0f 46 22 6c 6f 61 64  |ot%  = ...F"load|
00002610  5f 62 67 65 74 25 20 20  3d 20 a3 3a 6c 6f 61 64  |_bget%  = .:load|
00002620  5f 65 78 65 63 25 20 3d  20 b9 0d 0f 50 22 67 75  |_exec% = ...P"gu|
00002630  65 73 73 5f 74 79 70 65  25 20 3d 20 a3 3a 66 61  |ess_type% = .:fa|
00002640  73 74 5f 6c 6f 61 64 25  20 3d 20 b9 0d 0f 5a 04  |st_load% = ...Z.|
00002650  0d 0f 64 1d 64 65 66 61  75 6c 74 5f 66 69 6c 65  |..d.default_file|
00002660  5f 74 79 70 65 25 20 3d  20 26 46 46 46 0d 0f 6e  |_type% = &FFF..n|
00002670  04 0d 0f 78 11 6f 6c 64  5f 74 69 6d 65 25 20 3d  |...x.old_time% =|
00002680  20 30 0d 0f 82 04 0d 0f  8c 10 dd 20 f2 72 65 73  | 0......... .res|
00002690  65 74 5f 61 6c 6c 0d 0f  96 04 0d 0f a0 32 66 69  |et_all.......2fi|
000026a0  6c 65 5f 6c 65 6e 67 74  68 25 20 3d 20 30 20 20  |le_length% = 0  |
000026b0  20 20 20 3a 66 69 6c 65  5f 70 74 72 25 20 20 3d  |   :file_ptr%  =|
000026c0  20 66 69 6c 65 5f 62 6c  6f 63 6b 25 0d 0f aa 24  | file_block%...$|
000026d0  63 72 6c 66 5f 64 6f 6e  65 25 20 20 20 3d 20 a3  |crlf_done%   = .|
000026e0  20 3a 6d 6f 64 69 66 69  65 64 25 20 20 3d 20 a3  | :modified%  = .|
000026f0  0d 0f b4 2d 24 6c 6f 61  64 5f 70 74 72 25 20 20  |...-$load_ptr%  |
00002700  20 3d 20 22 46 46 46 46  22 3a 24 65 78 65 63 5f  | = "FFFF":$exec_|
00002710  70 74 72 25 20 3d 20 22  46 46 46 46 22 0d 0f be  |ptr% = "FFFF"...|
00002720  04 0d 0f c8 25 6f 72 69  67 69 6e 61 6c 5f 66 69  |....%original_fi|
00002730  6c 65 5f 6e 61 6d 65 24  20 3d 20 22 3c 75 6e 6b  |le_name$ = "<unk|
00002740  6e 6f 77 6e 3e 22 0d 0f  d2 04 0d 0f dc 12 f2 67  |nown>".........g|
00002750  65 74 5f 66 69 6c 65 5f  74 79 70 65 0d 0f e6 04  |et_file_type....|
00002760  0d 0f f0 12 dd 20 f2 72  65 73 65 74 5f 73 74 61  |..... .reset_sta|
00002770  74 65 0d 0f fa 04 0d 10  04 2b f4 20 46 6c 75 73  |te.......+. Flus|
00002780  68 20 62 75 66 66 65 72  73 20 61 6e 64 20 65 6e  |h buffers and en|
00002790  61 62 6c 65 20 73 65 72  69 61 6c 20 69 6e 70 75  |able serial inpu|
000027a0  74 0d 10 0e 09 2a 46 58  20 32 0d 10 18 0c 2a 46  |t....*FX 2....*F|
000027b0  58 20 32 31 20 31 0d 10  22 0c 2a 46 58 20 32 31  |X 21 1..".*FX 21|
000027c0  20 32 0d 10 2c 0b 2a 46  58 20 32 20 32 0d 10 36  | 2..,.*FX 2 2..6|
000027d0  04 0d 10 40 13 f4 20 50  6f 69 6e 74 65 72 73 20  |...@.. Pointers |
000027e0  65 74 63 2e 0d 10 4a 2e  6e 65 77 5f 70 74 72 25  |etc...J.new_ptr%|
000027f0  20 20 20 20 20 3d 20 66  69 6c 65 5f 70 74 72 25  |     = file_ptr%|
00002800  3a 63 72 63 5f 65 72 72  6f 72 73 25 20 20 20 3d  |:crc_errors%   =|
00002810  20 30 0d 10 54 2e 70 75  74 5f 70 74 72 25 20 20  | 0..T.put_ptr%  |
00002820  20 20 20 3d 20 66 69 6c  65 5f 70 74 72 25 3a 6e  |   = file_ptr%:n|
00002830  75 6d 5f 62 79 74 65 73  25 20 20 20 20 3d 20 30  |um_bytes%    = 0|
00002840  0d 10 5e 2e 70 75 74 5f  65 6e 64 5f 70 74 72 25  |..^.put_end_ptr%|
00002850  20 3d 20 66 69 6c 65 5f  70 74 72 25 3a 62 6c 6f  | = file_ptr%:blo|
00002860  63 6b 5f 6c 65 6e 67 74  68 25 20 3d 20 30 0d 10  |ck_length% = 0..|
00002870  5f 14 6c 61 73 74 5f 62  75 74 74 6f 6e 25 20 3d  |_.last_button% =|
00002880  20 30 0d 10 68 04 0d 10  72 19 f4 20 53 74 61 74  | 0..h...r.. Stat|
00002890  65 20 6d 61 63 68 69 6e  65 20 66 6c 61 67 73 0d  |e machine flags.|
000028a0  10 7c 30 70 75 74 74 69  6e 67 25 20 20 20 20 20  |.|0putting%     |
000028b0  20 20 3d 20 a3 3a 73 68  61 6b 69 6e 67 25 20 20  |  = .:shaking%  |
000028c0  20 20 20 20 20 20 20 20  20 20 20 20 3d 20 a3 0d  |            = ..|
000028d0  10 86 30 67 65 74 74 69  6e 67 5f 6f 6b 25 20 20  |..0getting_ok%  |
000028e0  20 20 3d 20 a3 3a 67 65  74 74 69 6e 67 5f 66 69  |  = .:getting_fi|
000028f0  6c 65 5f 6c 65 6e 67 74  68 25 20 20 3d 20 a3 0d  |le_length%  = ..|
00002900  10 90 30 67 65 74 74 69  6e 67 5f 65 6e 64 25 20  |..0getting_end% |
00002910  20 20 3d 20 a3 3a 67 65  74 74 69 6e 67 5f 62 6c  |  = .:getting_bl|
00002920  6f 63 6b 5f 6c 65 6e 67  74 68 25 20 3d 20 a3 0d  |ock_length% = ..|
00002930  10 9a 30 67 65 74 74 69  6e 67 5f 62 6c 6f 63 6b  |..0getting_block|
00002940  25 20 3d 20 a3 3a 67 65  74 74 69 6e 67 5f 66 69  |% = .:getting_fi|
00002950  6c 65 5f 6e 61 6d 65 25  20 20 20 20 3d 20 a3 0d  |le_name%    = ..|
00002960  10 a4 30 64 6f 77 6e 6c  6f 61 64 69 6e 67 25 20  |..0downloading% |
00002970  20 20 3d 20 a3 3a 77 61  73 5f 64 6f 77 6e 6c 6f  |  = .:was_downlo|
00002980  61 64 69 6e 67 25 20 20  20 20 20 20 3d 20 a3 0d  |ading%      = ..|
00002990  10 ae 30 75 70 6c 6f 61  64 69 6e 67 25 20 20 20  |..0uploading%   |
000029a0  20 20 3d 20 a3 3a 6c 61  73 74 5f 64 6f 77 6e 6c  |  = .:last_downl|
000029b0  6f 61 64 25 20 20 20 20  20 20 20 20 3d 20 a3 0d  |oad%        = ..|
000029c0  10 b8 04 0d 10 c2 1f 70  6f 6c 6c 5f 6d 61 73 6b  |.......poll_mask|
000029d0  25 20 3d 20 70 6f 6c 6c  5f 6d 61 73 6b 25 20 84  |% = poll_mask% .|
000029e0  20 31 0d 10 cc 04 0d 10  d6 1d f2 6d 65 6e 75 5f  | 1.........menu_|
000029f0  73 68 61 64 65 28 30 2c  22 55 70 6c 6f 61 64 22  |shade(0,"Upload"|
00002a00  2c a3 29 0d 10 e0 1f f2  6d 65 6e 75 5f 73 68 61  |,.).....menu_sha|
00002a10  64 65 28 30 2c 22 44 6f  77 6e 6c 6f 61 64 22 2c  |de(0,"Download",|
00002a20  a3 29 0d 10 ea 04 0d 10  f4 24 f2 73 65 6c 65 63  |.).......$.selec|
00002a30  74 5f 69 63 6f 6e 28 73  74 61 74 75 73 5f 77 69  |t_icon(status_wi|
00002a40  6e 64 6f 77 25 2c 30 2c  30 29 0d 10 fe 24 f2 73  |ndow%,0,0)...$.s|
00002a50  65 6c 65 63 74 5f 69 63  6f 6e 28 73 74 61 74 75  |elect_icon(statu|
00002a60  73 5f 77 69 6e 64 6f 77  25 2c 31 2c 30 29 0d 11  |s_window%,1,0)..|
00002a70  08 04 0d 11 12 32 e7 20  68 6f 75 72 67 6c 61 73  |.....2. hourglas|
00002a80  73 25 20 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |s% .. "Hourglass|
00002a90  5f 4f 66 66 22 3a 68 6f  75 72 67 6c 61 73 73 25  |_Off":hourglass%|
00002aa0  20 3d 20 a3 0d 11 1c 04  0d 11 26 05 e1 0d 11 30  | = .......&....0|
00002ab0  04 0d 11 3a 4c 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...:L-----------|
00002ac0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002af0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 11 44  |-------------..D|
00002b00  04 0d 11 4e 13 dd 20 f2  61 73 73 65 6d 62 6c 65  |...N.. .assemble|
00002b10  5f 63 72 63 0d 11 58 04  0d 11 62 3b f4 20 54 68  |_crc..X...b;. Th|
00002b20  69 73 20 74 61 6b 65 73  20 35 2e 33 31 20 6d 73  |is takes 5.31 ms|
00002b30  2c 20 76 73 20 32 2e 32  20 73 65 63 20 66 6f 72  |, vs 2.2 sec for|
00002b40  20 74 68 65 20 42 61 73  69 63 20 76 65 72 73 69  | the Basic versi|
00002b50  6f 6e 21 0d 11 6c 04 0d  11 76 40 ea 20 70 74 72  |on!..l...v@. ptr|
00002b60  2c 6c 65 6e 67 74 68 2c  62 69 74 73 2c 63 6f 75  |,length,bits,cou|
00002b70  6e 74 2c 64 61 74 61 2c  6c 6f 2c 68 69 2c 6c 69  |nt,data,lo,hi,li|
00002b80  6e 6b 2c 6e 62 79 74 2c  62 79 74 6c 6f 6f 70 2c  |nk,nbyt,bytloop,|
00002b90  6f 70 74 25 2c 50 25 0d  11 80 04 0d 11 8a 0e de  |opt%,P%.........|
00002ba0  20 63 72 63 25 20 31 30  30 0d 11 94 04 0d 11 9e  | crc% 100.......|
00002bb0  2a 70 74 72 20 20 3d 20  30 3a 6c 65 6e 67 74 68  |*ptr  = 0:length|
00002bc0  20 3d 20 31 3a 62 69 74  73 20 3d 20 32 3a 63 6f  | = 1:bits = 2:co|
00002bd0  75 6e 74 20 3d 20 33 0d  11 a8 2b 64 61 74 61 20  |unt = 3...+data |
00002be0  3d 20 34 3a 6c 6f 20 20  20 20 20 3d 20 35 3a 68  |= 4:lo     = 5:h|
00002bf0  69 20 20 20 3d 20 36 3a  6c 69 6e 6b 20 20 3d 20  |i   = 6:link  = |
00002c00  31 34 0d 11 b2 04 0d 11  bc 14 e3 20 6f 70 74 25  |14......... opt%|
00002c10  3d 30 20 b8 20 32 20 88  20 32 0d 11 c6 0d 50 25  |=0 . 2 . 2....P%|
00002c20  20 3d 20 63 72 63 25 0d  11 d0 0d 5b 4f 50 54 20  | = crc%....[OPT |
00002c30  6f 70 74 25 0d 11 da 1b  20 20 20 20 20 20 20 20  |opt%....        |
00002c40  20 20 4d 4f 56 20 20 20  20 20 68 69 2c 23 30 0d  |  MOV     hi,#0.|
00002c50  11 e4 1b 20 20 20 20 20  20 20 20 20 20 4d 4f 56  |...          MOV|
00002c60  20 20 20 20 20 6c 6f 2c  23 30 0d 11 ee 1e 20 20  |     lo,#0....  |
00002c70  20 20 20 20 20 20 20 20  4d 4f 56 20 20 20 20 20  |        MOV     |
00002c80  63 6f 75 6e 74 2c 23 30  0d 11 f8 09 2e 6e 62 79  |count,#0.....nby|
00002c90  74 0d 12 02 26 20 20 20  20 20 20 20 20 20 20 4c  |t...&          L|
00002ca0  44 52 42 20 20 20 20 64  61 74 61 2c 5b 70 74 72  |DRB    data,[ptr|
00002cb0  2c 63 6f 75 6e 74 5d 0d  12 0c 1e 20 20 20 20 20  |,count]....     |
00002cc0  20 20 20 20 20 82 20 20  20 20 20 68 69 2c 68 69  |     .     hi,hi|
00002cd0  2c 64 61 74 61 0d 12 16  1d 20 20 20 20 20 20 20  |,data....       |
00002ce0  20 20 20 4d 4f 56 20 20  20 20 20 62 69 74 73 2c  |   MOV     bits,|
00002cf0  23 38 0d 12 20 0c 2e 62  79 74 6c 6f 6f 70 0d 12  |#8.. ..bytloop..|
00002d00  2a 1d 20 20 20 20 20 20  20 20 20 20 54 53 54 20  |*.          TST |
00002d10  20 20 20 20 68 69 2c 23  26 38 30 0d 12 34 1c 20  |    hi,#&80..4. |
00002d20  20 20 20 20 20 20 20 20  20 82 4e 45 20 20 20 68  |         .NE   h|
00002d30  69 2c 68 69 2c 23 38 0d  12 3e 1e 20 20 20 20 20  |i,hi,#8..>.     |
00002d40  20 20 20 20 20 82 4e 45  20 20 20 6c 6f 2c 6c 6f  |     .NE   lo,lo|
00002d50  2c 23 26 31 30 0d 12 48  22 20 20 20 20 20 20 20  |,#&10..H"       |
00002d60  20 20 20 4d 4f 56 20 20  20 20 20 6c 6f 2c 6c 6f  |   MOV     lo,lo|
00002d70  2c 4c 53 4c 20 23 31 0d  12 52 1e 20 20 20 20 20  |,LSL #1..R.     |
00002d80  20 20 20 20 20 41 44 44  4e 45 20 20 20 6c 6f 2c  |     ADDNE   lo,|
00002d90  6c 6f 2c 23 31 0d 12 5c  22 20 20 20 20 20 20 20  |lo,#1..\"       |
00002da0  20 20 20 4d 4f 56 20 20  20 20 20 68 69 2c 68 69  |   MOV     hi,hi|
00002db0  2c 4c 53 4c 20 23 31 0d  12 66 1e 20 20 20 20 20  |,LSL #1..f.     |
00002dc0  20 20 20 20 20 54 53 54  20 20 20 20 20 6c 6f 2c  |     TST     lo,|
00002dd0  23 26 31 30 30 0d 12 70  1e 20 20 20 20 20 20 20  |#&100..p.       |
00002de0  20 20 20 41 44 44 4e 45  20 20 20 68 69 2c 68 69  |   ADDNE   hi,hi|
00002df0  2c 23 31 0d 12 7a 22 20  20 20 20 20 20 20 20 20  |,#1..z"         |
00002e00  20 53 55 42 53 20 20 20  20 62 69 74 73 2c 62 69  | SUBS    bits,bi|
00002e10  74 73 2c 23 31 0d 12 84  1d 20 20 20 20 20 20 20  |ts,#1....       |
00002e20  20 20 20 42 4e 45 20 20  20 20 20 62 79 74 6c 6f  |   BNE     bytlo|
00002e30  6f 70 0d 12 8e 04 0d 12  98 24 20 20 20 20 20 20  |op.......$      |
00002e40  20 20 20 20 41 44 44 20  20 20 20 20 63 6f 75 6e  |    ADD     coun|
00002e50  74 2c 63 6f 75 6e 74 2c  23 31 0d 12 a2 22 20 20  |t,count,#1..."  |
00002e60  20 20 20 20 20 20 20 20  43 4d 50 20 20 20 20 20  |        CMP     |
00002e70  63 6f 75 6e 74 2c 6c 65  6e 67 74 68 0d 12 ac 1a  |count,length....|
00002e80  20 20 20 20 20 20 20 20  20 20 42 4e 45 20 20 20  |          BNE   |
00002e90  20 20 6e 62 79 74 0d 12  b6 04 0d 12 c0 1f 20 20  |  nbyt........  |
00002ea0  20 20 20 20 20 20 20 20  53 54 52 42 20 20 20 20  |        STRB    |
00002eb0  6c 6f 2c 63 72 63 5f 6c  6f 0d 12 ca 1f 20 20 20  |lo,crc_lo....   |
00002ec0  20 20 20 20 20 20 20 53  54 52 42 20 20 20 20 68  |       STRB    h|
00002ed0  69 2c 63 72 63 5f 68 69  0d 12 d4 1d 20 20 20 20  |i,crc_hi....    |
00002ee0  20 20 20 20 20 20 4d 4f  56 20 20 20 20 20 50 43  |      MOV     PC|
00002ef0  2c 6c 69 6e 6b 0d 12 de  04 0d 12 e8 17 2e 63 72  |,link.........cr|
00002f00  63 5f 6c 6f 20 20 20 45  51 55 42 20 20 20 20 30  |c_lo   EQUB    0|
00002f10  0d 12 f2 17 2e 63 72 63  5f 68 69 20 20 20 45 51  |.....crc_hi   EQ|
00002f20  55 42 20 20 20 20 30 0d  12 fc 05 5d 0d 13 06 05  |UB    0....]....|
00002f30  ed 0d 13 10 04 0d 13 1a  05 e1 0d 13 24 04 0d 13  |............$...|
00002f40  2e 4c 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.L--------------|
00002f50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002f80  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 13 38 04 0d 13  |----------..8...|
00002f90  42 14 dd 20 f2 67 65 74  5f 66 69 6c 65 5f 74 79  |B.. .get_file_ty|
00002fa0  70 65 0d 13 4c 04 0d 13  56 17 ea 20 66 6c 61 67  |pe..L...V.. flag|
00002fb0  73 25 2c 70 74 72 25 2c  74 65 6d 70 25 0d 13 60  |s%,ptr%,temp%..`|
00002fc0  04 0d 13 6a 19 f4 20 53  74 72 69 6e 67 20 2d 3e  |...j.. String ->|
00002fd0  20 66 69 6c 65 20 74 79  70 65 0d 13 74 3a c8 99  | file type..t:..|
00002fe0  20 22 58 4f 53 5f 46 53  43 6f 6e 74 72 6f 6c 22  | "XOS_FSControl"|
00002ff0  2c 33 31 2c 24 74 79 70  65 5f 70 74 72 25 20 b8  |,31,$type_ptr% .|
00003000  20 2c 2c 66 69 6c 65 5f  74 79 70 65 25 3b 66 6c  | ,,file_type%;fl|
00003010  61 67 73 25 0d 13 7e 30  e7 20 66 6c 61 67 73 25  |ags%..~0. flags%|
00003020  20 80 20 31 20 66 69 6c  65 5f 74 79 70 65 25 20  | . 1 file_type% |
00003030  3d 20 64 65 66 61 75 6c  74 5f 66 69 6c 65 5f 74  |= default_file_t|
00003040  79 70 65 25 0d 13 88 04  0d 13 92 19 f4 20 46 69  |ype%......... Fi|
00003050  6c 65 20 74 79 70 65 20  2d 3e 20 73 74 72 69 6e  |le type -> strin|
00003060  67 0d 13 9c 3f c8 99 20  22 4f 53 5f 46 53 43 6f  |g...?.. "OS_FSCo|
00003070  6e 74 72 6f 6c 22 2c 31  38 2c 2c 66 69 6c 65 5f  |ntrol",18,,file_|
00003080  74 79 70 65 25 20 b8 20  2c 2c 21 74 79 70 65 5f  |type% . ,,!type_|
00003090  70 74 72 25 2c 74 79 70  65 5f 70 74 72 25 21 34  |ptr%,type_ptr%!4|
000030a0  0d 13 a6 15 74 79 70 65  5f 70 74 72 25 3f 38 20  |....type_ptr%?8 |
000030b0  3d 20 26 30 44 0d 13 b0  16 70 74 72 25 20 3d 20  |= &0D....ptr% = |
000030c0  74 79 70 65 5f 70 74 72  25 2b 37 0d 13 ba 35 c8  |type_ptr%+7...5.|
000030d0  95 20 3f 70 74 72 25 3d  26 32 30 20 80 20 70 74  |. ?ptr%=&20 . pt|
000030e0  72 25 3e 74 79 70 65 5f  70 74 72 25 3a 3f 70 74  |r%>type_ptr%:?pt|
000030f0  72 25 3d 26 30 44 3a 70  74 72 25 2d 3d 31 3a ce  |r%=&0D:ptr%-=1:.|
00003100  0d 13 c4 04 0d 13 ce 27  e7 20 6c 6f 61 64 5f 65  |.......'. load_e|
00003110  78 65 63 25 20 66 69 6c  65 5f 74 79 70 65 25 20  |xec% file_type% |
00003120  3d 20 26 46 46 46 46 46  46 46 46 0d 13 d8 04 0d  |= &FFFFFFFF.....|
00003130  13 e2 1e f4 20 52 65 61  64 20 6c 6f 61 64 2f 65  |.... Read load/e|
00003140  78 65 63 20 61 64 64 72  65 73 73 65 73 0d 13 ec  |xec addresses...|
00003150  38 c8 99 20 22 58 4f 53  5f 52 65 61 64 55 6e 73  |8.. "XOS_ReadUns|
00003160  69 67 6e 65 64 22 2c 31  36 2c 24 6c 6f 61 64 5f  |igned",16,$load_|
00003170  70 74 72 25 20 b8 20 2c  2c 74 65 6d 70 25 3b 66  |ptr% . ,,temp%;f|
00003180  6c 61 67 73 25 0d 13 f6  37 e7 20 66 6c 61 67 73  |lags%...7. flags|
00003190  25 20 80 20 31 20 8c 20  24 6c 6f 61 64 5f 70 74  |% . 1 . $load_pt|
000031a0  72 25 20 3d 20 c3 7e 6c  6f 61 64 25 20 8b 20 6c  |r% = .~load% . l|
000031b0  6f 61 64 25 20 3d 20 74  65 6d 70 25 0d 14 00 04  |oad% = temp%....|
000031c0  0d 14 0a 38 c8 99 20 22  58 4f 53 5f 52 65 61 64  |...8.. "XOS_Read|
000031d0  55 6e 73 69 67 6e 65 64  22 2c 31 36 2c 24 65 78  |Unsigned",16,$ex|
000031e0  65 63 5f 70 74 72 25 20  b8 20 2c 2c 74 65 6d 70  |ec_ptr% . ,,temp|
000031f0  25 3b 66 6c 61 67 73 25  0d 14 14 37 e7 20 66 6c  |%;flags%...7. fl|
00003200  61 67 73 25 20 80 20 31  20 8c 20 24 65 78 65 63  |ags% . 1 . $exec|
00003210  5f 70 74 72 25 20 3d 20  c3 7e 65 78 65 63 25 20  |_ptr% = .~exec% |
00003220  8b 20 65 78 65 63 25 20  3d 20 74 65 6d 70 25 0d  |. exec% = temp%.|
00003230  14 1e 04 0d 14 28 05 e1  0d 14 32 04 0d 14 3c 4c  |.....(....2...<L|
00003240  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00003280  2a 2a 2a 2a 2a 2a 2a 2a  0d 14 46 04 0d 14 50 11  |********..F...P.|
00003290  4d 61 69 6e 20 72 6f 75  74 69 6e 65 73 0d 14 5a  |Main routines..Z|
000032a0  04 0d 14 64 4c 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...dL***********|
000032b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000032e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 14 6e  |*************..n|
000032f0  04 0d 14 78 13 dd 20 f2  6e 75 6c 6c 5f 70 75 74  |...x.. .null_put|
00003300  74 69 6e 67 0d 14 82 04  0d 14 8c 15 ea 20 74 69  |ting......... ti|
00003310  6d 65 6f 75 74 25 2c 66  6c 61 67 73 25 0d 14 96  |meout%,flags%...|
00003320  04 0d 14 a0 20 74 69 6d  65 6f 75 74 25 20 3d 20  |.... timeout% = |
00003330  91 20 2b 20 32 30 2a 70  6f 6c 6c 5f 74 69 6d 65  |. + 20*poll_time|
00003340  25 0d 14 aa 04 0d 14 b4  24 c8 99 20 22 48 6f 75  |%.......$.. "Hou|
00003350  72 67 6c 61 73 73 5f 4f  6e 22 3a 68 6f 75 72 67  |rglass_On":hourg|
00003360  6c 61 73 73 25 20 3d 20  b9 0d 14 be 04 0d 14 c8  |lass% = ........|
00003370  05 f5 0d 14 d2 2c 20 20  c8 99 20 22 4f 53 5f 53  |.....,  .. "OS_S|
00003380  65 72 69 61 6c 4f 70 22  2c 33 2c 3f 70 75 74 5f  |erialOp",3,?put_|
00003390  70 74 72 25 20 b8 20 3b  66 6c 61 67 73 25 0d 14  |ptr% . ;flags%..|
000033a0  dc 24 20 20 e7 20 28 66  6c 61 67 73 25 20 80 20  |.$  . (flags% . |
000033b0  32 29 3d 30 20 70 75 74  5f 70 74 72 25 20 2b 3d  |2)=0 put_ptr% +=|
000033c0  20 31 0d 14 e6 37 fd 20  28 66 6c 61 67 73 25 20  | 1...7. (flags% |
000033d0  80 20 32 29 20 84 20 70  75 74 5f 70 74 72 25 3d  |. 2) . put_ptr%=|
000033e0  70 75 74 5f 65 6e 64 5f  70 74 72 25 20 84 20 91  |put_end_ptr% . .|
000033f0  3e 74 69 6d 65 6f 75 74  25 0d 14 f0 04 0d 14 fa  |>timeout%.......|
00003400  25 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |%.. "Hourglass_O|
00003410  66 66 22 3a 68 6f 75 72  67 6c 61 73 73 25 20 3d  |ff":hourglass% =|
00003420  20 a3 0d 15 04 04 0d 15  0e 28 e7 20 70 75 74 5f  | ........(. put_|
00003430  70 74 72 25 3d 70 75 74  5f 65 6e 64 5f 70 74 72  |ptr%=put_end_ptr|
00003440  25 20 70 75 74 74 69 6e  67 25 20 3d 20 a3 0d 15  |% putting% = ...|
00003450  18 04 0d 15 22 16 e7 20  ac 20 64 6f 77 6e 6c 6f  |....".. . downlo|
00003460  61 64 69 6e 67 25 20 e1  0d 15 2c 04 0d 15 36 12  |ading% ...,...6.|
00003470  e7 20 ac 20 70 75 74 74  69 6e 67 25 20 8c 0d 15  |. . putting% ...|
00003480  40 16 20 20 64 6f 77 6e  6c 6f 61 64 69 6e 67 25  |@.  downloading%|
00003490  20 3d 20 a3 0d 15 4a 23  20 20 70 6f 6c 6c 5f 6d  | = ...J#  poll_m|
000034a0  61 73 6b 25 20 20 20 3d  20 70 6f 6c 6c 5f 6d 61  |ask%   = poll_ma|
000034b0  73 6b 25 20 84 20 31 0d  15 54 1f 20 20 f2 6d 65  |sk% . 1..T.  .me|
000034c0  6e 75 5f 73 68 61 64 65  28 30 2c 22 55 70 6c 6f  |nu_shade(0,"Uplo|
000034d0  61 64 22 2c a3 29 0d 15  5e 05 cd 0d 15 68 04 0d  |ad",.)..^....h..|
000034e0  15 72 12 f2 75 70 64 61  74 65 5f 73 74 61 74 75  |.r..update_statu|
000034f0  73 0d 15 7c 04 0d 15 86  05 e1 0d 15 90 04 0d 15  |s..|............|
00003500  9a 4c 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.L--------------|
00003510  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003540  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 15 a4 04 0d 15  |----------......|
00003550  ae 14 dd 20 f2 75 70 64  61 74 65 5f 73 74 61 74  |... .update_stat|
00003560  75 73 0d 15 b8 04 0d 15  c2 38 e7 20 64 6f 77 6e  |us.......8. down|
00003570  6c 6f 61 64 69 6e 67 25  20 84 20 28 77 61 73 5f  |loading% . (was_|
00003580  64 6f 77 6e 6c 6f 61 64  69 6e 67 25 20 80 20 ac  |downloading% . .|
00003590  20 75 70 6c 6f 61 64 69  6e 67 25 29 20 8c 0d 15  | uploading%) ...|
000035a0  cc 1a 20 20 77 61 73 5f  64 6f 77 6e 6c 6f 61 64  |..  was_download|
000035b0  69 6e 67 25 20 3d 20 b9  0d 15 d6 33 20 20 e7 20  |ing% = ....3  . |
000035c0  64 6f 77 6e 6c 6f 61 64  69 6e 67 25 20 84 20 6c  |downloading% . l|
000035d0  61 73 74 5f 64 6f 77 6e  6c 6f 61 64 25 20 6f 6c  |ast_download% ol|
000035e0  64 5f 74 69 6d 65 25 20  3d 20 91 0d 15 e0 22 20  |d_time% = ...." |
000035f0  20 e7 20 6f 6c 64 5f 74  69 6d 65 25 3c 3d 30 20  | . old_time%<=0 |
00003600  6f 6c 64 5f 74 69 6d 65  25 20 3d 20 31 0d 15 ea  |old_time% = 1...|
00003610  3e 20 20 e7 20 64 6f 77  6e 6c 6f 61 64 69 6e 67  |>  . downloading|
00003620  25 20 8c 20 6c 61 73 74  5f 64 6f 77 6e 6c 6f 61  |% . last_downloa|
00003630  64 25 20 3d 20 b9 20 8b  20 6c 61 73 74 5f 64 6f  |d% = . . last_do|
00003640  77 6e 6c 6f 61 64 25 20  3d 20 a3 0d 15 f4 46 20  |wnload% = ....F |
00003650  20 c8 99 20 22 4f 53 5f  43 6f 6e 76 65 72 74 46  | .. "OS_ConvertF|
00003660  69 6c 65 53 69 7a 65 22  2c 70 75 74 5f 65 6e 64  |ileSize",put_end|
00003670  5f 70 74 72 25 2d 66 69  6c 65 5f 70 74 72 25 2c  |_ptr%-file_ptr%,|
00003680  73 74 61 74 75 73 5f 6c  65 6e 67 74 68 25 2c 31  |status_length%,1|
00003690  32 0d 15 fe 2e 20 20 24  73 74 61 74 75 73 5f 62  |2....  $status_b|
000036a0  79 74 65 73 25 20 3d 20  c3 28 70 75 74 5f 70 74  |ytes% = .(put_pt|
000036b0  72 25 20 2d 20 66 69 6c  65 5f 70 74 72 25 29 0d  |r% - file_ptr%).|
000036c0  16 08 40 20 20 24 73 74  61 74 75 73 5f 72 61 74  |..@  $status_rat|
000036d0  65 25 20 20 3d 20 c3 28  28 70 75 74 5f 70 74 72  |e%  = .((put_ptr|
000036e0  25 20 2d 20 66 69 6c 65  5f 70 74 72 25 29 2a 31  |% - file_ptr%)*1|
000036f0  30 30 20 81 20 6f 6c 64  5f 74 69 6d 65 25 29 0d  |00 . old_time%).|
00003700  16 12 1a 20 20 24 73 74  61 74 75 73 5f 63 72 63  |...  $status_crc|
00003710  25 20 20 20 3d 20 22 30  22 0d 16 1c 05 cc 0d 16  |%   = "0".......|
00003720  26 1a 20 20 77 61 73 5f  64 6f 77 6e 6c 6f 61 64  |&.  was_download|
00003730  69 6e 67 25 20 3d 20 a3  0d 16 30 20 20 20 e7 20  |ing% = ...0   . |
00003740  75 70 6c 6f 61 64 69 6e  67 25 20 6f 6c 64 5f 74  |uploading% old_t|
00003750  69 6d 65 25 20 3d 20 91  0d 16 3a 22 20 20 e7 20  |ime% = ...:"  . |
00003760  6f 6c 64 5f 74 69 6d 65  25 3c 3d 30 20 6f 6c 64  |old_time%<=0 old|
00003770  5f 74 69 6d 65 25 20 3d  20 31 0d 16 44 3c 20 20  |_time% = 1..D<  |
00003780  c8 99 20 22 4f 53 5f 43  6f 6e 76 65 72 74 46 69  |.. "OS_ConvertFi|
00003790  6c 65 53 69 7a 65 22 2c  66 69 6c 65 5f 6c 65 6e  |leSize",file_len|
000037a0  67 74 68 25 2c 73 74 61  74 75 73 5f 6c 65 6e 67  |gth%,status_leng|
000037b0  74 68 25 2c 31 32 0d 16  4e 31 20 20 24 73 74 61  |th%,12..N1  $sta|
000037c0  74 75 73 5f 62 79 74 65  73 25 20 3d 20 c3 28 66  |tus_bytes% = .(f|
000037d0  69 6c 65 5f 70 74 72 25  20 2d 20 66 69 6c 65 5f  |ile_ptr% - file_|
000037e0  62 6c 6f 63 6b 25 29 0d  16 58 43 20 20 24 73 74  |block%)..XC  $st|
000037f0  61 74 75 73 5f 72 61 74  65 25 20 20 3d 20 c3 28  |atus_rate%  = .(|
00003800  28 66 69 6c 65 5f 70 74  72 25 20 2d 20 66 69 6c  |(file_ptr% - fil|
00003810  65 5f 62 6c 6f 63 6b 25  29 2a 31 30 30 20 81 20  |e_block%)*100 . |
00003820  6f 6c 64 5f 74 69 6d 65  25 29 0d 16 62 25 20 20  |old_time%)..b%  |
00003830  24 73 74 61 74 75 73 5f  63 72 63 25 20 20 20 3d  |$status_crc%   =|
00003840  20 c3 28 63 72 63 5f 65  72 72 6f 72 73 25 29 0d  | .(crc_errors%).|
00003850  16 6c 05 cd 0d 16 76 04  0d 16 80 2e f2 73 65 6c  |.l....v......sel|
00003860  65 63 74 5f 69 63 6f 6e  28 73 74 61 74 75 73 5f  |ect_icon(status_|
00003870  77 69 6e 64 6f 77 25 2c  30 2c 2d 75 70 6c 6f 61  |window%,0,-uploa|
00003880  64 69 6e 67 25 29 0d 16  8a 30 f2 73 65 6c 65 63  |ding%)...0.selec|
00003890  74 5f 69 63 6f 6e 28 73  74 61 74 75 73 5f 77 69  |t_icon(status_wi|
000038a0  6e 64 6f 77 25 2c 31 2c  2d 64 6f 77 6e 6c 6f 61  |ndow%,1,-downloa|
000038b0  64 69 6e 67 25 29 0d 16  94 22 f2 75 70 64 61 74  |ding%)...".updat|
000038c0  65 5f 69 63 6f 6e 28 73  74 61 74 75 73 5f 77 69  |e_icon(status_wi|
000038d0  6e 64 6f 77 25 2c 32 29  0d 16 9e 22 f2 75 70 64  |ndow%,2)...".upd|
000038e0  61 74 65 5f 69 63 6f 6e  28 73 74 61 74 75 73 5f  |ate_icon(status_|
000038f0  77 69 6e 64 6f 77 25 2c  33 29 0d 16 a8 22 f2 75  |window%,3)...".u|
00003900  70 64 61 74 65 5f 69 63  6f 6e 28 73 74 61 74 75  |pdate_icon(statu|
00003910  73 5f 77 69 6e 64 6f 77  25 2c 34 29 0d 16 b2 22  |s_window%,4)..."|
00003920  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 73 74 61  |.update_icon(sta|
00003930  74 75 73 5f 77 69 6e 64  6f 77 25 2c 39 29 0d 16  |tus_window%,9)..|
00003940  bc 04 0d 16 c6 05 e1 0d  16 d0 04 0d 16 da 4c 2d  |..............L-|
00003950  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003990  2d 2d 2d 2d 2d 2d 2d 0d  16 e4 04 0d 16 ee 13 dd  |-------.........|
000039a0  20 f2 6e 75 6c 6c 5f 67  65 74 74 69 6e 67 0d 16  | .null_getting..|
000039b0  f8 04 0d 17 02 2b ea 20  6e 65 77 5f 62 79 74 65  |.....+. new_byte|
000039c0  73 25 2c 74 69 6d 65 6f  75 74 25 2c 62 79 74 65  |s%,timeout%,byte|
000039d0  25 2c 66 6c 61 67 73 25  2c 67 6f 74 25 0d 17 0c  |%,flags%,got%...|
000039e0  04 0d 17 16 26 c8 99 20  22 4f 53 5f 42 79 74 65  |....&.. "OS_Byte|
000039f0  22 2c 26 38 30 2c 26 46  45 20 b8 20 2c 6e 65 77  |",&80,&FE . ,new|
00003a00  5f 62 79 74 65 73 25 0d  17 20 34 e7 20 6e 65 77  |_bytes%.. 4. new|
00003a10  5f 62 79 74 65 73 25 3d  30 20 80 20 6e 65 77 5f  |_bytes%=0 . new_|
00003a20  70 74 72 25 2d 66 69 6c  65 5f 70 74 72 25 3d 6e  |ptr%-file_ptr%=n|
00003a30  75 6d 5f 62 79 74 65 73  25 20 e1 0d 17 2a 04 0d  |um_bytes% ...*..|
00003a40  17 34 1f 74 69 6d 65 6f  75 74 25 20 3d 20 91 20  |.4.timeout% = . |
00003a50  2b 20 32 2a 70 6f 6c 6c  5f 74 69 6d 65 25 0d 17  |+ 2*poll_time%..|
00003a60  3e 2a e7 20 66 61 73 74  5f 6c 6f 61 64 25 20 74  |>*. fast_load% t|
00003a70  69 6d 65 6f 75 74 25 20  2b 3d 20 39 38 2a 70 6f  |imeout% += 98*po|
00003a80  6c 6c 5f 74 69 6d 65 25  0d 17 48 04 0d 17 52 24  |ll_time%..H...R$|
00003a90  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |.. "Hourglass_On|
00003aa0  22 3a 68 6f 75 72 67 6c  61 73 73 25 20 3d 20 b9  |":hourglass% = .|
00003ab0  0d 17 5c 04 0d 17 66 05  f5 0d 17 70 28 20 20 c8  |..\...f....p(  .|
00003ac0  99 20 22 4f 53 5f 53 65  72 69 61 6c 4f 70 22 2c  |. "OS_SerialOp",|
00003ad0  34 20 b8 20 2c 62 79 74  65 25 3b 66 6c 61 67 73  |4 . ,byte%;flags|
00003ae0  25 0d 17 7a 36 20 20 e7  20 28 66 6c 61 67 73 25  |%..z6  . (flags%|
00003af0  20 80 20 32 29 3d 30 20  3f 6e 65 77 5f 70 74 72  | . 2)=0 ?new_ptr|
00003b00  25 20 3d 20 62 79 74 65  25 3a 6e 65 77 5f 70 74  |% = byte%:new_pt|
00003b10  72 25 20 2b 3d 20 31 0d  17 84 45 20 20 e7 20 6e  |r% += 1...E  . n|
00003b20  65 77 5f 70 74 72 25 2d  66 69 6c 65 5f 62 6c 6f  |ew_ptr%-file_blo|
00003b30  63 6b 25 2b 31 30 3e 66  69 6c 65 5f 62 6c 6f 63  |ck%+10>file_bloc|
00003b40  6b 5f 6c 65 6e 67 74 68  25 20 85 20 31 2c 22 44  |k_length% . 1,"D|
00003b50  61 74 61 20 6f 76 65 72  72 75 6e 22 0d 17 8e 1f  |ata overrun"....|
00003b60  fd 20 28 66 6c 61 67 73  25 20 80 20 32 29 20 84  |. (flags% . 2) .|
00003b70  20 91 3e 74 69 6d 65 6f  75 74 25 0d 17 98 04 0d  | .>timeout%.....|
00003b80  17 a2 2b 6e 75 6d 5f 62  79 74 65 73 25 20 20 20  |..+num_bytes%   |
00003b90  20 20 3d 20 6e 65 77 5f  70 74 72 25 20 20 20 2d  |  = new_ptr%   -|
00003ba0  20 66 69 6c 65 5f 70 74  72 25 0d 17 ac 2f 6e 75  | file_ptr%.../nu|
00003bb0  6d 5f 63 72 63 5f 62 79  74 65 73 25 20 3d 20 6e  |m_crc_bytes% = n|
00003bc0  75 6d 5f 62 79 74 65 73  25 20 2d 20 62 6c 6f 63  |um_bytes% - bloc|
00003bd0  6b 5f 6c 65 6e 67 74 68  25 0d 17 b6 04 0d 17 c0  |k_length%.......|
00003be0  0a c8 8e 20 b9 20 ca 0d  17 ca 3c 20 20 c9 20 67  |... . ....<  . g|
00003bf0  65 74 74 69 6e 67 5f 6f  6b 25 20 20 20 20 20 20  |etting_ok%      |
00003c00  20 20 20 20 20 80 20 6e  75 6d 5f 62 79 74 65 73  |     . num_bytes|
00003c10  25 3e 30 20 20 20 20 20  3a 67 6f 74 25 20 3d 20  |%>0     :got% = |
00003c20  a4 6f 6b 0d 17 d4 3f 20  20 c9 20 73 68 61 6b 69  |.ok...?  . shaki|
00003c30  6e 67 25 20 20 20 20 20  20 20 20 20 20 20 20 20  |ng%             |
00003c40  20 80 20 6e 75 6d 5f 62  79 74 65 73 25 3e 31 20  | . num_bytes%>1 |
00003c50  20 20 20 20 3a 67 6f 74  25 20 3d 20 a4 73 68 61  |    :got% = .sha|
00003c60  6b 65 0d 17 de 45 20 20  c9 20 67 65 74 74 69 6e  |ke...E  . gettin|
00003c70  67 5f 66 69 6c 65 5f 6c  65 6e 67 74 68 25 20 20  |g_file_length%  |
00003c80  80 20 6e 75 6d 5f 62 79  74 65 73 25 3e 31 20 20  |. num_bytes%>1  |
00003c90  20 20 20 3a 67 6f 74 25  20 3d 20 a4 66 69 6c 65  |   :got% = .file|
00003ca0  5f 6c 65 6e 67 74 68 0d  17 e8 3d 20 20 c9 20 67  |_length...=  . g|
00003cb0  65 74 74 69 6e 67 5f 65  6e 64 25 20 20 20 20 20  |etting_end%     |
00003cc0  20 20 20 20 20 80 20 6e  75 6d 5f 62 79 74 65 73  |     . num_bytes|
00003cd0  25 3e 30 20 20 20 20 20  3a 67 6f 74 25 20 3d 20  |%>0     :got% = |
00003ce0  a4 65 6e 64 0d 17 f2 46  20 20 c9 20 67 65 74 74  |.end...F  . gett|
00003cf0  69 6e 67 5f 62 6c 6f 63  6b 5f 6c 65 6e 67 74 68  |ing_block_length|
00003d00  25 20 80 20 6e 75 6d 5f  62 79 74 65 73 25 3e 32  |% . num_bytes%>2|
00003d10  20 20 20 20 20 3a 67 6f  74 25 20 3d 20 a4 62 6c  |     :got% = .bl|
00003d20  6f 63 6b 5f 6c 65 6e 67  74 68 0d 17 fc 3f 20 20  |ock_length...?  |
00003d30  c9 20 67 65 74 74 69 6e  67 5f 62 6c 6f 63 6b 25  |. getting_block%|
00003d40  20 20 20 20 20 20 20 20  80 20 6e 75 6d 5f 63 72  |        . num_cr|
00003d50  63 5f 62 79 74 65 73 25  3e 31 20 3a 67 6f 74 25  |c_bytes%>1 :got%|
00003d60  20 3d 20 a4 62 6c 6f 63  6b 0d 18 06 43 20 20 c9  | = .block...C  .|
00003d70  20 67 65 74 74 69 6e 67  5f 66 69 6c 65 5f 6e 61  | getting_file_na|
00003d80  6d 65 25 20 20 20 20 80  20 6e 75 6d 5f 62 79 74  |me%    . num_byt|
00003d90  65 73 25 3e 38 20 20 20  20 20 3a 67 6f 74 25 20  |es%>8     :got% |
00003da0  3d 20 a4 66 69 6c 65 5f  6e 61 6d 65 0d 18 10 37  |= .file_name...7|
00003db0  20 20 7f 20 20 20 20 20  20 20 20 20 20 20 20 20  |  .             |
00003dc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003dd0  20 20 20 20 20 20 20 20  20 20 3a 67 6f 74 25 20  |          :got% |
00003de0  3d 20 30 0d 18 1a 05 cb  0d 18 24 04 0d 18 2e 20  |= 0.......$.... |
00003df0  e7 20 6e 75 6d 5f 62 79  74 65 73 25 3e 67 6f 74  |. num_bytes%>got|
00003e00  25 20 80 20 67 6f 74 25  3e 30 20 8c 0d 18 38 38  |% . got%>0 ...88|
00003e10  20 20 e3 20 6e 65 77 5f  70 74 72 25 3d 66 69 6c  |  . new_ptr%=fil|
00003e20  65 5f 70 74 72 25 20 b8  20 66 69 6c 65 5f 70 74  |e_ptr% . file_pt|
00003e30  72 25 2b 6e 75 6d 5f 62  79 74 65 73 25 2d 67 6f  |r%+num_bytes%-go|
00003e40  74 25 2d 31 0d 18 42 21  20 20 20 20 3f 6e 65 77  |t%-1..B!    ?new|
00003e50  5f 70 74 72 25 20 3d 20  6e 65 77 5f 70 74 72 25  |_ptr% = new_ptr%|
00003e60  3f 67 6f 74 25 0d 18 4c  07 20 20 ed 0d 18 56 05  |?got%..L.  ...V.|
00003e70  cd 0d 18 60 2c 6e 65 77  5f 70 74 72 25 20 3d 20  |...`,new_ptr% = |
00003e80  66 69 6c 65 5f 70 74 72  25 20 2b 20 6e 75 6d 5f  |file_ptr% + num_|
00003e90  62 79 74 65 73 25 20 2d  20 67 6f 74 25 0d 18 6a  |bytes% - got%..j|
00003ea0  04 0d 18 74 25 c8 99 20  22 48 6f 75 72 67 6c 61  |...t%.. "Hourgla|
00003eb0  73 73 5f 4f 66 66 22 3a  68 6f 75 72 67 6c 61 73  |ss_Off":hourglas|
00003ec0  73 25 20 3d 20 a3 0d 18  7e 04 0d 18 88 05 e1 0d  |s% = ...~.......|
00003ed0  18 92 04 0d 18 9c 4c 2d  2d 2d 2d 2d 2d 2d 2d 2d  |......L---------|
00003ee0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003f10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00003f20  18 a6 04 0d 18 b0 0c dd  20 a4 73 68 61 6b 65 0d  |........ .shake.|
00003f30  18 ba 04 0d 18 c4 08 ea  20 69 25 0d 18 ce 04 0d  |........ i%.....|
00003f40  18 d8 30 e7 20 3f 66 69  6c 65 5f 70 74 72 25 3c  |..0. ?file_ptr%<|
00003f50  3e 97 28 22 53 22 29 20  84 20 66 69 6c 65 5f 70  |>.("S") . file_p|
00003f60  74 72 25 3f 31 3c 3e 97  28 22 42 22 29 20 8c 0d  |tr%?1<>.("B") ..|
00003f70  18 e2 37 20 20 70 75 74  5f 70 74 72 25 20 20 3d  |..7  put_ptr%  =|
00003f80  20 66 69 6c 65 5f 70 74  72 25 3a 70 75 74 5f 65  | file_ptr%:put_e|
00003f90  6e 64 5f 70 74 72 25 20  3d 20 70 75 74 5f 70 74  |nd_ptr% = put_pt|
00003fa0  72 25 20 2b 20 31 0d 18  ec 18 20 20 3f 70 75 74  |r% + 1....  ?put|
00003fb0  5f 70 74 72 25 20 3d 20  97 28 22 78 22 29 0d 18  |_ptr% = .("x")..|
00003fc0  f6 13 20 20 70 75 74 74  69 6e 67 25 20 20 3d 20  |..  putting%  = |
00003fd0  b9 0d 19 00 12 20 20 3d  20 6e 75 6d 5f 62 79 74  |.....  = num_byt|
00003fe0  65 73 25 0d 19 0a 05 cd  0d 19 14 04 0d 19 1e 1d  |es%.............|
00003ff0  70 75 74 5f 70 74 72 25  20 20 20 3d 20 6e 65 77  |put_ptr%   = new|
00004000  5f 70 74 72 25 20 2d 20  32 0d 19 28 2b 3f 70 75  |_ptr% - 2..(+?pu|
00004010  74 5f 70 74 72 25 20 20  3d 20 97 28 22 73 22 29  |t_ptr%  = .("s")|
00004020  3a 70 75 74 5f 70 74 72  25 3f 31 20 3d 20 97 28  |:put_ptr%?1 = .(|
00004030  22 62 22 29 0d 19 32 04  0d 19 3c 15 e7 20 24 6e  |"b")..2...<.. $n|
00004040  61 6d 65 5f 70 74 72 25  3d 22 22 20 8c 0d 19 46  |ame_ptr%="" ...F|
00004050  38 20 20 e7 20 6c 6f 61  64 5f 62 67 65 74 25 20  |8  . load_bget% |
00004060  8c 20 70 75 74 5f 70 74  72 25 3f 32 20 3d 20 26  |. put_ptr%?2 = &|
00004070  30 33 20 8b 20 70 75 74  5f 70 74 72 25 3f 32 20  |03 . put_ptr%?2 |
00004080  3d 20 26 30 43 0d 19 50  21 20 20 70 75 74 5f 65  |= &0C..P!  put_e|
00004090  6e 64 5f 70 74 72 25 20  3d 20 70 75 74 5f 70 74  |nd_ptr% = put_pt|
000040a0  72 25 20 2b 20 33 0d 19  5a 2f 20 20 73 68 61 6b  |r% + 3..Z/  shak|
000040b0  69 6e 67 25 20 20 20 20  20 3d 20 a3 3a 70 75 74  |ing%     = .:put|
000040c0  74 69 6e 67 25 20 20 20  20 20 20 20 20 20 20 20  |ting%           |
000040d0  20 20 3d 20 b9 0d 19 64  30 20 20 67 65 74 74 69  |  = ...d0  getti|
000040e0  6e 67 5f 6f 6b 25 20 20  3d 20 b9 20 3a 67 65 74  |ng_ok%  = . :get|
000040f0  74 69 6e 67 5f 66 69 6c  65 5f 6c 65 6e 67 74 68  |ting_file_length|
00004100  25 20 3d 20 b9 0d 19 6e  05 cc 0d 19 78 18 20 20  |% = ...n....x.  |
00004110  70 75 74 5f 70 74 72 25  3f 32 20 20 20 3d 20 26  |put_ptr%?2   = &|
00004120  33 30 0d 19 82 3d 20 20  e3 20 69 25 3d 30 20 b8  |30...=  . i%=0 .|
00004130  20 a9 28 24 6e 61 6d 65  5f 70 74 72 25 29 3a 70  | .($name_ptr%):p|
00004140  75 74 5f 70 74 72 25 3f  28 69 25 2b 33 29 20 3d  |ut_ptr%?(i%+3) =|
00004150  20 6e 61 6d 65 5f 70 74  72 25 3f 69 25 3a ed 0d  | name_ptr%?i%:..|
00004160  19 8c 31 20 20 70 75 74  5f 65 6e 64 5f 70 74 72  |..1  put_end_ptr|
00004170  25 20 3d 20 70 75 74 5f  70 74 72 25 20 2b 20 34  |% = put_ptr% + 4|
00004180  20 2b 20 a9 28 24 6e 61  6d 65 5f 70 74 72 25 29  | + .($name_ptr%)|
00004190  0d 19 96 17 20 20 24 6e  61 6d 65 5f 70 74 72 25  |....  $name_ptr%|
000041a0  20 20 20 3d 20 22 22 0d  19 a0 26 20 20 70 75 74  |   = ""...&  put|
000041b0  74 69 6e 67 25 20 20 20  20 20 3d 20 b9 3a 67 65  |ting%     = .:ge|
000041c0  74 74 69 6e 67 5f 6f 6b  25 20 3d 20 b9 0d 19 aa  |tting_ok% = ....|
000041d0  05 cd 0d 19 b4 04 0d 19  be 07 3d 20 32 0d 19 c8  |..........= 2...|
000041e0  04 0d 19 d2 4c 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |....L-----------|
000041f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004220  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 19 dc  |-------------...|
00004230  04 0d 19 e6 09 dd 20 a4  6f 6b 0d 19 f0 04 0d 19  |...... .ok......|
00004240  fa 13 67 65 74 74 69 6e  67 5f 6f 6b 25 20 3d 20  |..getting_ok% = |
00004250  a3 0d 1a 04 04 0d 1a 0e  1b e7 20 a4 62 69 74 73  |.......... .bits|
00004260  28 3f 66 69 6c 65 5f 70  74 72 25 29 3c 36 20 8c  |(?file_ptr%)<6 .|
00004270  0d 1a 18 36 20 20 f2 6d  65 73 73 61 67 65 28 22  |...6  .message("|
00004280  50 72 6f 74 6f 63 6f 6c  20 65 72 72 6f 72 20 2d  |Protocol error -|
00004290  20 74 72 61 6e 73 6d 69  73 73 69 6f 6e 20 66 61  | transmission fa|
000042a0  69 6c 65 64 22 29 0d 1a  2c 10 20 20 f2 72 65 73  |iled")..,.  .res|
000042b0  65 74 5f 61 6c 6c 0d 1a  40 09 20 20 3d 20 30 0d  |et_all..@.  = 0.|
000042c0  1a 41 05 cd 0d 1a 4a 04  0d 1a 54 2d e7 20 6c 61  |.A....J...T-. la|
000042d0  73 74 5f 62 75 74 74 6f  6e 25 3d 34 20 80 20 67  |st_button%=4 . g|
000042e0  65 74 74 69 6e 67 5f 66  69 6c 65 5f 6c 65 6e 67  |etting_file_leng|
000042f0  74 68 25 20 8c 0d 1a 68  2d 20 20 f2 6d 65 73 73  |th% ...h-  .mess|
00004300  61 67 65 28 22 50 72 65  73 73 20 70 6c 61 79 20  |age("Press play |
00004310  6f 6e 20 74 61 70 65 20  72 65 63 6f 72 64 65 72  |on tape recorder|
00004320  22 29 0d 1a 72 16 20 20  6c 61 73 74 5f 62 75 74  |")..r.  last_but|
00004330  74 6f 6e 25 20 3d 20 30  0d 1a 7c 05 cd 0d 1a 7d  |ton% = 0..|....}|
00004340  04 0d 1a 86 07 3d 20 31  0d 1a a4 04 0d 1a ae 4c  |.....= 1.......L|
00004350  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004390  2d 2d 2d 2d 2d 2d 2d 2d  0d 1a b8 04 0d 1a c2 12  |--------........|
000043a0  dd 20 a4 66 69 6c 65 5f  6c 65 6e 67 74 68 0d 1a  |. .file_length..|
000043b0  cc 04 0d 1a d6 2f 66 69  6c 65 5f 6c 65 6e 67 74  |...../file_lengt|
000043c0  68 25 20 3d 20 3f 66 69  6c 65 5f 70 74 72 25 20  |h% = ?file_ptr% |
000043d0  2b 20 32 35 36 2a 66 69  6c 65 5f 70 74 72 25 3f  |+ 256*file_ptr%?|
000043e0  31 0d 1a e0 04 0d 1a ea  1c 67 65 74 74 69 6e 67  |1........getting|
000043f0  5f 66 69 6c 65 5f 6c 65  6e 67 74 68 25 20 3d 20  |_file_length% = |
00004400  a3 0d 1a f4 1c 67 65 74  74 69 6e 67 5f 65 6e 64  |.....getting_end|
00004410  25 20 20 20 20 20 20 20  20 20 3d 20 b9 0d 1a fe  |%         = ....|
00004420  04 0d 1b 08 09 d1 20 3d  20 30 0d 1b 12 04 0d 1b  |...... = 0......|
00004430  1c 07 3d 20 32 0d 1b 26  04 0d 1b 30 4c 2d 2d 2d  |..= 2..&...0L---|
00004440  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004480  2d 2d 2d 2d 2d 0d 1b 3a  04 0d 1b 44 0a dd 20 a4  |-----..:...D.. .|
00004490  65 6e 64 0d 1b 4e 04 0d  1b 58 12 f2 75 70 64 61  |end..N...X..upda|
000044a0  74 65 5f 73 74 61 74 75  73 0d 1b 62 04 0d 1b 6c  |te_status..b...l|
000044b0  1b e7 20 a4 62 69 74 73  28 3f 66 69 6c 65 5f 70  |.. .bits(?file_p|
000044c0  74 72 25 29 3c 36 20 8c  0d 1b 76 1c 20 20 6d 6f  |tr%)<6 ...v.  mo|
000044d0  64 69 66 69 65 64 25 20  20 20 20 20 20 20 20 20  |dified%         |
000044e0  20 3d 20 b9 0d 1b 80 1c  20 20 67 65 74 74 69 6e  | = .....  gettin|
000044f0  67 5f 66 69 6c 65 5f 6e  61 6d 65 25 20 3d 20 b9  |g_file_name% = .|
00004500  0d 1b 8a 19 20 20 e7 20  64 6f 5f 63 72 6c 66 25  |....  . do_crlf%|
00004510  20 f2 64 6f 5f 63 72 6c  66 0d 1b 94 18 20 20 f2  | .do_crlf....  .|
00004520  72 65 70 6f 72 74 5f 63  6f 6d 70 6c 65 74 69 6f  |report_completio|
00004530  6e 0d 1b 9e 05 cc 0d 1b  a8 1f 20 20 67 65 74 74  |n.........  gett|
00004540  69 6e 67 5f 62 6c 6f 63  6b 5f 6c 65 6e 67 74 68  |ing_block_length|
00004550  25 20 3d 20 b9 0d 1b b2  05 cd 0d 1b bc 04 0d 1b  |% = ............|
00004560  c6 14 67 65 74 74 69 6e  67 5f 65 6e 64 25 20 3d  |..getting_end% =|
00004570  20 a3 0d 1b d0 04 0d 1b  da 07 3d 20 31 0d 1b e4  | .........= 1...|
00004580  04 0d 1b ee 4c 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |....L-----------|
00004590  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000045c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 1b f8  |-------------...|
000045d0  04 0d 1c 02 18 dd 20 f2  72 65 70 6f 72 74 5f 63  |...... .report_c|
000045e0  6f 6d 70 6c 65 74 69 6f  6e 0d 1c 0c 04 0d 1c 16  |ompletion.......|
000045f0  0d ea 20 72 65 70 6f 72  74 24 0d 1c 20 04 0d 1c  |.. report$.. ...|
00004600  2a 2e e7 20 6f 6e 65 5f  73 68 6f 74 25 20 72 65  |*.. one_shot% re|
00004610  70 6f 72 74 24 20 3d 20  22 54 72 61 6e 73 66 65  |port$ = "Transfe|
00004620  72 20 63 6f 6d 70 6c 65  74 65 64 22 0d 1c 34 04  |r completed"..4.|
00004630  0d 1c 3e 15 e7 20 63 72  63 5f 65 72 72 6f 72 73  |..>.. crc_errors|
00004640  25 3e 30 20 8c 0d 1c 48  27 20 20 e7 20 72 65 70  |%>0 ...H'  . rep|
00004650  6f 72 74 24 3c 3e 22 22  20 72 65 70 6f 72 74 24  |ort$<>"" report$|
00004660  20 2b 3d 20 22 20 77 69  74 68 20 22 0d 1c 52 3b  | += " with "..R;|
00004670  20 20 72 65 70 6f 72 74  24 20 2b 3d 20 c3 28 63  |  report$ += .(c|
00004680  72 63 5f 65 72 72 6f 72  73 25 29 20 2b 20 22 20  |rc_errors%) + " |
00004690  43 52 43 20 65 72 72 6f  72 73 20 64 75 72 69 6e  |CRC errors durin|
000046a0  67 20 6c 6f 61 64 22 0d  1c 5c 15 20 20 6f 6e 65  |g load"..\.  one|
000046b0  5f 73 68 6f 74 25 20 20  20 3d 20 b9 0d 1c 66 15  |_shot%   = ...f.|
000046c0  20 20 63 72 63 5f 65 72  72 6f 72 73 25 20 3d 20  |  crc_errors% = |
000046d0  30 0d 1c 70 05 cd 0d 1c  7a 04 0d 1c 84 2b e7 20  |0..p....z....+. |
000046e0  66 69 6c 65 5f 70 74 72  25 2d 66 69 6c 65 5f 62  |file_ptr%-file_b|
000046f0  6c 6f 63 6b 25 3c 3e 66  69 6c 65 5f 6c 65 6e 67  |lock%<>file_leng|
00004700  74 68 25 20 8c 0d 1c 8e  3d 20 20 e7 20 72 65 70  |th% ....=  . rep|
00004710  6f 72 74 24 3c 3e 22 22  20 8c 20 72 65 70 6f 72  |ort$<>"" . repor|
00004720  74 24 20 2b 3d 20 22 3b  20 64 61 74 61 22 20 8b  |t$ += "; data" .|
00004730  20 72 65 70 6f 72 74 24  20 2b 3d 20 22 44 61 74  | report$ += "Dat|
00004740  61 22 0d 1c 98 26 20 20  72 65 70 6f 72 74 24 20  |a"...&  report$ |
00004750  2b 3d 20 22 20 6d 61 79  20 68 61 76 65 20 62 65  |+= " may have be|
00004760  65 6e 20 6c 6f 73 74 22  0d 1c a2 13 20 20 6f 6e  |en lost"....  on|
00004770  65 5f 73 68 6f 74 25 20  3d 20 b9 0d 1c ac 05 cd  |e_shot% = ......|
00004780  0d 1c b6 04 0d 1c c0 23  e7 20 72 65 70 6f 72 74  |.......#. report|
00004790  24 3c 3e 22 22 20 f2 6d  65 73 73 61 67 65 28 72  |$<>"" .message(r|
000047a0  65 70 6f 72 74 24 29 0d  1c ca 04 0d 1c d4 05 e1  |eport$).........|
000047b0  0d 1c de 04 0d 1c e8 4c  2d 2d 2d 2d 2d 2d 2d 2d  |.......L--------|
000047c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004800  0d 1c f2 04 0d 1c fc 13  dd 20 a4 62 6c 6f 63 6b  |......... .block|
00004810  5f 6c 65 6e 67 74 68 0d  1d 06 04 0d 1d 10 3d 62  |_length.......=b|
00004820  6c 6f 63 6b 5f 6c 65 6e  67 74 68 25 20 3d 20 a4  |lock_length% = .|
00004830  76 6f 74 65 28 3f 66 69  6c 65 5f 70 74 72 25 2c  |vote(?file_ptr%,|
00004840  66 69 6c 65 5f 70 74 72  25 3f 31 2c 66 69 6c 65  |file_ptr%?1,file|
00004850  5f 70 74 72 25 3f 32 29  0d 1d 1a 2b e7 20 62 6c  |_ptr%?2)...+. bl|
00004860  6f 63 6b 5f 6c 65 6e 67  74 68 25 3c 30 20 62 6c  |ock_length%<0 bl|
00004870  6f 63 6b 5f 6c 65 6e 67  74 68 25 20 3d 20 30 3a  |ock_length% = 0:|
00004880  3d 20 30 0d 1d 24 29 e7  20 62 6c 6f 63 6b 5f 6c  |= 0..$). block_l|
00004890  65 6e 67 74 68 25 3d 30  20 62 6c 6f 63 6b 5f 6c  |ength%=0 block_l|
000048a0  65 6e 67 74 68 25 20 3d  20 32 35 36 0d 1d 2e 04  |ength% = 256....|
000048b0  0d 1d 38 1d 67 65 74 74  69 6e 67 5f 62 6c 6f 63  |..8.getting_bloc|
000048c0  6b 5f 6c 65 6e 67 74 68  25 20 3d 20 a3 0d 1d 42  |k_length% = ...B|
000048d0  1d 67 65 74 74 69 6e 67  5f 62 6c 6f 63 6b 25 20  |.getting_block% |
000048e0  20 20 20 20 20 20 20 3d  20 b9 0d 1d 4c 04 0d 1d  |       = ...L...|
000048f0  56 07 3d 20 33 0d 1d 60  04 0d 1d 6a 4c 2d 2d 2d  |V.= 3..`...jL---|
00004900  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004940  2d 2d 2d 2d 2d 0d 1d 74  04 0d 1d 7e 18 dd 20 a4  |-----..t...~.. .|
00004950  76 6f 74 65 28 6c 31 25  2c 6c 32 25 2c 6c 33 25  |vote(l1%,l2%,l3%|
00004960  29 0d 1d 88 04 0d 1d 92  1d e7 20 6c 31 25 3d 6c  |)......... l1%=l|
00004970  32 25 20 80 20 6c 31 25  3d 6c 33 25 20 3d 20 6c  |2% . l1%=l3% = l|
00004980  31 25 0d 1d 9c 04 0d 1d  a6 25 e7 20 6c 31 25 3d  |1%.......%. l1%=|
00004990  6c 32 25 20 63 72 63 5f  65 72 72 6f 72 73 25 20  |l2% crc_errors% |
000049a0  2b 3d 20 31 3a 20 3d 20  6c 31 25 0d 1d b0 25 e7  |+= 1: = l1%...%.|
000049b0  20 6c 31 25 3d 6c 33 25  20 63 72 63 5f 65 72 72  | l1%=l3% crc_err|
000049c0  6f 72 73 25 20 2b 3d 20  31 3a 20 3d 20 6c 31 25  |ors% += 1: = l1%|
000049d0  0d 1d ba 25 e7 20 6c 32  25 3d 6c 33 25 20 63 72  |...%. l2%=l3% cr|
000049e0  63 5f 65 72 72 6f 72 73  25 20 2b 3d 20 31 3a 20  |c_errors% += 1: |
000049f0  3d 20 6c 32 25 0d 1d c4  04 0d 1d ce 37 e7 20 a4  |= l2%.......7. .|
00004a00  63 6f 6e 66 69 72 6d 28  22 53 65 72 69 6f 75 73  |confirm("Serious|
00004a10  20 70 72 6f 74 6f 63 6f  6c 20 65 72 72 6f 72 3b  | protocol error;|
00004a20  20 63 6f 6e 74 69 6e 75  65 3f 22 29 20 3d 20 30  | continue?") = 0|
00004a30  0d 1d d8 04 0d 1d e2 10  f2 72 65 73 65 74 5f 73  |.........reset_s|
00004a40  74 61 74 65 0d 1d ec 04  0d 1d f6 25 6f 72 69 67  |tate.......%orig|
00004a50  69 6e 61 6c 5f 66 69 6c  65 5f 6e 61 6d 65 24 20  |inal_file_name$ |
00004a60  3d 20 22 3c 63 6f 72 72  75 70 74 3e 22 0d 1e 00  |= "<corrupt>"...|
00004a70  04 0d 1e 0a 08 3d 20 2d  31 0d 1e 14 04 0d 1e 1e  |.....= -1.......|
00004a80  4c 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |L---------------|
00004a90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004ac0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 1e 28 04 0d 1e 32  |---------..(...2|
00004ad0  0c dd 20 a4 62 6c 6f 63  6b 0d 1e 3c 04 0d 1e 46  |.. .block..<...F|
00004ae0  14 ea 20 41 25 2c 42 25  2c 63 72 63 5f 70 74 72  |.. A%,B%,crc_ptr|
00004af0  25 0d 1e 50 04 0d 1e 5a  12 41 25 20 3d 20 66 69  |%..P...Z.A% = fi|
00004b00  6c 65 5f 70 74 72 25 0d  1e 64 16 42 25 20 3d 20  |le_ptr%..d.B% = |
00004b10  62 6c 6f 63 6b 5f 6c 65  6e 67 74 68 25 0d 1e 6e  |block_length%..n|
00004b20  0a d6 20 63 72 63 25 0d  1e 78 04 0d 1e 82 28 63  |.. crc%..x....(c|
00004b30  72 63 5f 70 74 72 25 20  3d 20 66 69 6c 65 5f 70  |rc_ptr% = file_p|
00004b40  74 72 25 20 2b 20 62 6c  6f 63 6b 5f 6c 65 6e 67  |tr% + block_leng|
00004b50  74 68 25 0d 1e 8c 04 0d  1e 96 2e e7 20 3f 63 72  |th%......... ?cr|
00004b60  63 5f 70 74 72 25 3d 3f  63 72 63 5f 68 69 20 80  |c_ptr%=?crc_hi .|
00004b70  20 63 72 63 5f 70 74 72  25 3f 31 3d 3f 63 72 63  | crc_ptr%?1=?crc|
00004b80  5f 6c 6f 20 8c 0d 1e a0  22 20 20 66 69 6c 65 5f  |_lo ...."  file_|
00004b90  70 74 72 25 20 20 20 2b  3d 20 62 6c 6f 63 6b 5f  |ptr%   += block_|
00004ba0  6c 65 6e 67 74 68 25 0d  1e aa 1e 20 20 70 75 74  |length%....  put|
00004bb0  5f 70 74 72 25 20 20 20  20 20 3d 20 66 69 6c 65  |_ptr%     = file|
00004bc0  5f 70 74 72 25 0d 1e b4  18 20 20 3f 70 75 74 5f  |_ptr%....  ?put_|
00004bd0  70 74 72 25 20 20 20 20  3d 20 32 35 35 0d 1e be  |ptr%    = 255...|
00004be0  05 cc 0d 1e c8 1e 20 20  70 75 74 5f 70 74 72 25  |......  put_ptr%|
00004bf0  20 20 20 20 20 3d 20 66  69 6c 65 5f 70 74 72 25  |     = file_ptr%|
00004c00  0d 1e d2 16 20 20 3f 70  75 74 5f 70 74 72 25 20  |....  ?put_ptr% |
00004c10  20 20 20 3d 20 30 0d 1e  dc 16 20 20 63 72 63 5f  |   = 0....  crc_|
00004c20  65 72 72 6f 72 73 25 20  2b 3d 20 31 0d 1e e6 05  |errors% += 1....|
00004c30  cd 0d 1e f0 04 0d 1e fa  21 70 75 74 5f 65 6e 64  |........!put_end|
00004c40  5f 70 74 72 25 20 20 20  3d 20 70 75 74 5f 70 74  |_ptr%   = put_pt|
00004c50  72 25 20 2b 20 31 0d 1f  04 16 67 65 74 74 69 6e  |r% + 1....gettin|
00004c60  67 5f 62 6c 6f 63 6b 25  20 3d 20 a3 0d 1f 0e 16  |g_block% = .....|
00004c70  70 75 74 74 69 6e 67 25  20 20 20 20 20 20 20 3d  |putting%       =|
00004c80  20 b9 0d 1f 18 16 67 65  74 74 69 6e 67 5f 65 6e  | .....getting_en|
00004c90  64 25 20 20 20 3d 20 b9  0d 1f 22 04 0d 1f 2c 10  |d%   = ..."...,.|
00004ca0  3d 20 6e 75 6d 5f 62 79  74 65 73 25 0d 1f 36 04  |= num_bytes%..6.|
00004cb0  0d 1f 40 4c 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..@L------------|
00004cc0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004cf0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 1f 4a 04  |------------..J.|
00004d00  0d 1f 54 10 dd 20 a4 66  69 6c 65 5f 6e 61 6d 65  |..T.. .file_name|
00004d10  0d 1f 5e 04 0d 1f 68 0d  ea 20 66 6e 5f 70 74 72  |..^...h.. fn_ptr|
00004d20  25 0d 1f 72 04 0d 1f 7c  1b 66 6e 5f 70 74 72 25  |%..r...|.fn_ptr%|
00004d30  20 3d 20 66 69 6c 65 5f  70 74 72 25 20 2b 20 37  | = file_ptr% + 7|
00004d40  0d 1f 86 36 f5 20 66 6e  5f 70 74 72 25 20 2b 3d  |...6. fn_ptr% +=|
00004d50  20 31 3a fd 20 3f 66 6e  5f 70 74 72 25 3d 26 30  | 1:. ?fn_ptr%=&0|
00004d60  44 20 84 20 66 6e 5f 70  74 72 25 3d 6e 65 77 5f  |D . fn_ptr%=new_|
00004d70  70 74 72 25 2d 31 0d 1f  90 17 e7 20 3f 66 6e 5f  |ptr%-1..... ?fn_|
00004d80  70 74 72 25 3c 3e 26 30  44 20 3d 20 30 0d 1f 9a  |ptr%<>&0D = 0...|
00004d90  04 0d 1f a4 36 6c 6f 61  64 25 20 3d 20 28 21 66  |....6load% = (!f|
00004da0  69 6c 65 5f 70 74 72 25  20 20 80 20 26 46 46 46  |ile_ptr%  . &FFF|
00004db0  46 29 3a 24 6c 6f 61 64  5f 70 74 72 25 20 3d 20  |F):$load_ptr% = |
00004dc0  c3 7e 6c 6f 61 64 25 0d  1f ae 36 65 78 65 63 25  |.~load%...6exec%|
00004dd0  20 3d 20 28 66 69 6c 65  5f 70 74 72 25 21 34 20  | = (file_ptr%!4 |
00004de0  80 20 26 46 46 46 46 29  3a 24 65 78 65 63 5f 70  |. &FFFF):$exec_p|
00004df0  74 72 25 20 3d 20 c3 7e  65 78 65 63 25 0d 1f b8  |tr% = .~exec%...|
00004e00  04 0d 1f c2 1d e7 20 67  75 65 73 73 5f 74 79 70  |...... guess_typ|
00004e10  65 25 20 f2 67 75 65 73  73 5f 74 79 70 65 0d 1f  |e% .guess_type..|
00004e20  cc 04 0d 1f d6 12 f2 67  65 74 5f 66 69 6c 65 5f  |.......get_file_|
00004e30  74 79 70 65 0d 1f e0 04  0d 1f ea 28 6f 72 69 67  |type.......(orig|
00004e40  69 6e 61 6c 5f 66 69 6c  65 5f 6e 61 6d 65 24 20  |inal_file_name$ |
00004e50  3d 20 24 28 66 69 6c 65  5f 70 74 72 25 2b 38 29  |= $(file_ptr%+8)|
00004e60  0d 1f f4 04 0d 1f fe 2c  24 73 61 76 65 5f 70 74  |.......,$save_pt|
00004e70  72 25 20 3d 20 a4 66 69  6c 65 5f 76 61 6c 69 64  |r% = .file_valid|
00004e80  28 24 28 66 69 6c 65 5f  70 74 72 25 2b 38 29 29  |($(file_ptr%+8))|
00004e90  0d 20 08 04 0d 20 12 1a  67 65 74 74 69 6e 67 5f  |. ... ..getting_|
00004ea0  66 69 6c 65 5f 6e 61 6d  65 25 20 3d 20 a3 0d 20  |file_name% = .. |
00004eb0  1c 04 0d 20 26 44 e7 20  ac 20 6f 6e 65 5f 73 68  |... &D. . one_sh|
00004ec0  6f 74 25 20 f2 73 61 76  65 5f 66 69 6c 65 28 22  |ot% .save_file("|
00004ed0  3c 42 42 43 54 61 70 65  24 44 69 72 3e 2e 42 42  |<BBCTape$Dir>.BB|
00004ee0  43 46 69 6c 65 73 2e 22  2b 24 73 61 76 65 5f 70  |CFiles."+$save_p|
00004ef0  74 72 25 2c b9 29 0d 20  30 04 0d 20 3a 11 e7 20  |tr%,.). 0.. :.. |
00004f00  6f 6e 65 5f 73 68 6f 74  25 20 8c 0d 20 44 12 20  |one_shot% .. D. |
00004f10  20 f2 72 65 73 65 74 5f  73 74 61 74 65 0d 20 4e  | .reset_state. N|
00004f20  05 cc 0d 20 58 16 20 20  f2 73 74 61 72 74 5f 75  |... X.  .start_u|
00004f30  70 6c 6f 61 64 28 30 29  0d 20 62 05 cd 0d 20 6c  |pload(0). b... l|
00004f40  04 0d 20 76 07 3d 20 30  0d 20 80 04 0d 20 8a 4c  |.. v.= 0. ... .L|
00004f50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004f90  2d 2d 2d 2d 2d 2d 2d 2d  0d 20 94 04 0d 20 9e 11  |--------. ... ..|
00004fa0  dd 20 f2 67 75 65 73 73  5f 74 79 70 65 0d 20 a8  |. .guess_type. .|
00004fb0  04 0d 20 b2 0a c8 8e 20  b9 20 ca 0d 20 bc 28 20  |.. .... . .. .( |
00004fc0  20 c9 20 6c 6f 61 64 25  3e 26 43 30 30 30 20 3a  | . load%>&C000 :|
00004fd0  24 74 79 70 65 5f 70 74  72 25 20 3d 20 22 54 65  |$type_ptr% = "Te|
00004fe0  78 74 22 0d 20 c6 2b 20  20 c9 20 6c 6f 61 64 25  |xt". .+  . load%|
00004ff0  3e 26 38 30 30 30 20 3a  24 74 79 70 65 5f 70 74  |>&8000 :$type_pt|
00005000  72 25 20 3d 20 22 42 42  43 20 52 4f 4d 22 0d 20  |r% = "BBC ROM". |
00005010  d0 28 20 20 c9 20 65 78  65 63 25 3e 26 43 30 30  |.(  . exec%>&C00|
00005020  30 20 3a 24 74 79 70 65  5f 70 74 72 25 20 3d 20  |0 :$type_ptr% = |
00005030  22 44 61 74 61 22 0d 20  da 29 20 20 c9 20 65 78  |"Data". .)  . ex|
00005040  65 63 25 3e 26 38 30 30  30 20 3a 24 74 79 70 65  |ec%>&8000 :$type|
00005050  5f 70 74 72 25 20 3d 20  22 42 41 53 49 43 22 0d  |_ptr% = "BASIC".|
00005060  20 e4 23 20 20 7f 20 20  20 20 20 20 20 20 20 24  | .#  .         $|
00005070  74 79 70 65 5f 70 74 72  25 20 3d 20 22 44 61 74  |type_ptr% = "Dat|
00005080  61 22 0d 20 ee 05 cb 0d  20 f8 04 0d 21 02 05 e1  |a". .... ...!...|
00005090  0d 21 0c 04 0d 21 16 4c  2d 2d 2d 2d 2d 2d 2d 2d  |.!...!.L--------|
000050a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000050e0  0d 21 20 04 0d 21 2a 18  dd 20 a4 66 69 6c 65 5f  |.! ..!*.. .file_|
000050f0  76 61 6c 69 64 28 6e 61  6d 65 24 29 0d 21 34 04  |valid(name$).!4.|
00005100  0d 21 3e 15 e3 20 69 25  3d 31 20 b8 20 a9 28 6e  |.!>.. i%=1 . .(n|
00005110  61 6d 65 24 29 0d 21 48  32 20 20 e7 20 a4 62 61  |ame$).!H2  . .ba|
00005120  64 5f 63 68 61 72 28 c1  6e 61 6d 65 24 2c 69 25  |d_char(.name$,i%|
00005130  2c 31 29 29 20 c1 6e 61  6d 65 24 2c 69 25 2c 31  |,1)) .name$,i%,1|
00005140  29 20 3d 20 22 3f 22 0d  21 52 05 ed 0d 21 5c 04  |) = "?".!R...!\.|
00005150  0d 21 66 16 6e 61 6d 65  24 20 3d 20 c0 6e 61 6d  |.!f.name$ = .nam|
00005160  65 24 2c 31 30 29 0d 21  70 04 0d 21 7a 0b 3d 20  |e$,10).!p..!z.= |
00005170  6e 61 6d 65 24 0d 21 84  04 0d 21 8e 4c 2d 2d 2d  |name$.!...!.L---|
00005180  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000051c0  2d 2d 2d 2d 2d 0d 21 98  04 0d 21 a2 16 dd 20 a4  |-----.!...!... .|
000051d0  62 61 64 5f 63 68 61 72  28 63 68 61 72 24 29 0d  |bad_char(char$).|
000051e0  21 ac 04 0d 21 b6 13 e7  20 63 68 61 72 24 3c 22  |!...!... char$<"|
000051f0  21 22 20 3d 20 b9 0d 21  c0 13 e7 20 63 68 61 72  |!" = ..!... char|
00005200  24 3e 22 7e 22 20 3d 20  b9 0d 21 ca 20 e7 20 63  |$>"~" = ..!. . c|
00005210  68 61 72 24 3e 22 22 22  22 20 80 20 63 68 61 72  |har$>"""" . char|
00005220  24 3c 22 27 22 20 3d 20  b9 0d 21 d4 13 e7 20 63  |$<"'" = ..!... c|
00005230  68 61 72 24 3d 22 2a 22  20 3d 20 b9 0d 21 de 13  |har$="*" = ..!..|
00005240  e7 20 63 68 61 72 24 3d  22 2e 22 20 3d 20 b9 0d  |. char$="." = ..|
00005250  21 e8 13 e7 20 63 68 61  72 24 3d 22 3a 22 20 3d  |!... char$=":" =|
00005260  20 b9 0d 21 f2 13 e7 20  63 68 61 72 24 3d 22 3c  | ..!... char$="<|
00005270  22 20 3d 20 b9 0d 21 fc  13 e7 20 63 68 61 72 24  |" = ..!... char$|
00005280  3d 22 3e 22 20 3d 20 b9  0d 22 06 13 e7 20 63 68  |=">" = .."... ch|
00005290  61 72 24 3d 22 40 22 20  3d 20 b9 0d 22 10 13 e7  |ar$="@" = .."...|
000052a0  20 63 68 61 72 24 3d 22  5e 22 20 3d 20 b9 0d 22  | char$="^" = .."|
000052b0  1a 13 e7 20 63 68 61 72  24 3d 22 5c 22 20 3d 20  |... char$="\" = |
000052c0  b9 0d 22 24 14 20 20 20  20 20 20 20 20 20 20 20  |.."$.           |
000052d0  20 20 3d 20 a3 0d 22 2e  04 0d 22 38 4c 2d 2d 2d  |  = .."..."8L---|
000052e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00005320  2d 2d 2d 2d 2d 0d 22 42  04 0d 22 4c 12 dd 20 a4  |-----."B.."L.. .|
00005330  62 69 74 73 28 62 79 74  65 25 29 0d 22 56 04 0d  |bits(byte%)."V..|
00005340  22 60 0a ea 20 6e 75 6d  25 0d 22 6a 04 0d 22 74  |"`.. num%."j.."t|
00005350  0c 6e 75 6d 25 20 3d 20  30 0d 22 7e 10 e3 20 62  |.num% = 0."~.. b|
00005360  69 74 25 3d 30 20 b8 20  37 0d 22 88 23 20 20 e7  |it%=0 . 7.".#  .|
00005370  20 62 79 74 65 25 20 80  20 28 31 3c 3c 62 69 74  | byte% . (1<<bit|
00005380  25 29 20 6e 75 6d 25 20  2b 3d 20 31 0d 22 92 05  |%) num% += 1."..|
00005390  ed 0d 22 9c 04 0d 22 a6  0a 3d 20 6e 75 6d 25 0d  |.."..."..= num%.|
000053a0  22 b0 04 0d 22 ba 4c 2a  2a 2a 2a 2a 2a 2a 2a 2a  |"...".L*********|
000053b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000053e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  |***************.|
000053f0  22 c4 04 0d 22 ce 36 52  6f 75 74 69 6e 65 73 20  |"...".6Routines |
00005400  74 6f 20 64 65 61 6c 20  77 69 74 68 20 65 76 65  |to deal with eve|
00005410  6e 74 73 20 66 72 6f 6d  20 74 68 65 20 70 6f 6c  |nts from the pol|
00005420  6c 69 6e 67 20 6c 6f 6f  70 0d 22 d8 04 0d 22 e2  |ling loop."...".|
00005430  4c 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |L***************|
00005440  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00005470  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 22 ec 04 0d 22 f6  |*********."...".|
00005480  12 dd 20 f2 6d 6f 75 73  65 5f 63 6c 69 63 6b 0d  |.. .mouse_click.|
00005490  23 00 04 0d 23 0a 1c ea  20 78 25 2c 79 25 2c 62  |#...#... x%,y%,b|
000054a0  25 2c 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 0d  |%,window%,icon%.|
000054b0  23 14 04 0d 23 1e 45 78  25 20 20 20 20 20 20 3d  |#...#.Ex%      =|
000054c0  20 21 77 69 6d 70 5f 62  6c 6f 63 6b 25 20 20 3a  | !wimp_block%  :|
000054d0  79 25 20 20 20 20 3d 20  77 69 6d 70 5f 62 6c 6f  |y%    = wimp_blo|
000054e0  63 6b 25 21 34 3a 62 25  20 3d 20 77 69 6d 70 5f  |ck%!4:b% = wimp_|
000054f0  62 6c 6f 63 6b 25 21 38  0d 23 28 33 77 69 6e 64  |block%!8.#(3wind|
00005500  6f 77 25 20 3d 20 77 69  6d 70 5f 62 6c 6f 63 6b  |ow% = wimp_block|
00005510  25 21 31 32 3a 69 63 6f  6e 25 20 3d 20 77 69 6d  |%!12:icon% = wim|
00005520  70 5f 62 6c 6f 63 6b 25  21 31 36 0d 23 32 04 0d  |p_block%!16.#2..|
00005530  23 3c 0a c8 8e 20 b9 20  ca 0d 23 46 45 20 20 c9  |#<... . ..#FE  .|
00005540  20 62 25 3d 32 20 20 20  20 20 20 20 3a e7 20 77  | b%=2       :. w|
00005550  69 6e 64 6f 77 25 3d 2d  32 20 79 25 20 3d 20 39  |indow%=-2 y% = 9|
00005560  36 20 2b 20 34 34 2a 6e  75 6d 5f 6d 65 6e 75 5f  |6 + 44*num_menu_|
00005570  69 74 65 6d 73 25 28 30  29 20 2b 20 32 34 0d 23  |items%(0) + 24.#|
00005580  50 44 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |PD              |
00005590  20 20 20 20 20 c8 99 20  22 57 69 6d 70 5f 43 72  |     .. "Wimp_Cr|
000055a0  65 61 74 65 4d 65 6e 75  22 2c 2c 6d 65 6e 75 5f  |eateMenu",,menu_|
000055b0  62 6c 6f 63 6b 25 28 30  29 2c 78 25 2d 36 34 2c  |block%(0),x%-64,|
000055c0  79 25 0d 23 5a 3f 20 20  c9 20 77 69 6e 64 6f 77  |y%.#Z?  . window|
000055d0  25 3d 2d 32 20 3a f2 75  70 64 61 74 65 5f 73 74  |%=-2 :.update_st|
000055e0  61 74 75 73 3a f2 6f 70  65 6e 5f 77 69 6e 64 6f  |atus:.open_windo|
000055f0  77 28 73 74 61 74 75 73  5f 77 69 6e 64 6f 77 25  |w(status_window%|
00005600  29 0d 23 64 17 20 20 c9  20 77 69 6e 64 6f 77 25  |).#d.  . window%|
00005610  3d 73 61 76 65 61 73 25  0d 23 6e 12 20 20 20 20  |=saveas%.#n.    |
00005620  c8 8e 20 69 63 6f 6e 25  20 ca 0d 23 78 40 20 20  |.. icon% ..#x@  |
00005630  20 20 20 20 c9 20 30 20  3a e7 20 62 25 3e 31 35  |    . 0 :. b%>15|
00005640  20 f2 73 74 61 72 74 5f  64 72 61 67 28 77 69 6e  | .start_drag(win|
00005650  64 6f 77 25 2c 69 63 6f  6e 25 2c 62 25 29 3a 73  |dow%,icon%,b%):s|
00005660  61 76 69 6e 67 25 20 3d  20 b9 0d 23 82 27 20 20  |aving% = ..#.'  |
00005670  20 20 20 20 c9 20 32 20  3a f2 73 61 76 65 5f 66  |    . 2 :.save_f|
00005680  69 6c 65 28 24 73 61 76  65 5f 70 74 72 25 2c b9  |ile($save_ptr%,.|
00005690  29 0d 23 8c 31 20 20 20  20 20 20 20 20 20 20 20  |).#.1           |
000056a0  20 20 20 e7 20 62 25 3e  31 20 c8 99 20 22 57 69  |   . b%>1 .. "Wi|
000056b0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
000056c0  2d 31 0d 23 96 09 20 20  20 20 cb 0d 23 a0 05 cb  |-1.#..    ..#...|
000056d0  0d 23 aa 04 0d 23 b4 05  e1 0d 23 be 04 0d 23 c8  |.#...#....#...#.|
000056e0  4c 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |L---------------|
000056f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00005720  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 23 d2 04 0d 23 dc  |---------.#...#.|
00005730  28 dd 20 f2 73 74 61 72  74 5f 64 72 61 67 28 77  |(. .start_drag(w|
00005740  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c 62 75 74  |indow%,icon%,but|
00005750  74 6f 6e 25 29 0d 23 e6  04 0d 23 f0 0d ea 20 62  |ton%).#...#... b|
00005760  78 25 2c 62 79 25 0d 23  fa 04 0d 24 04 1a 64 72  |x%,by%.#...$..dr|
00005770  61 67 5f 62 75 74 74 6f  6e 25 20 3d 20 62 75 74  |ag_button% = but|
00005780  74 6f 6e 25 0d 24 0e 04  0d 24 18 1a 21 77 69 6d  |ton%.$...$..!wim|
00005790  70 5f 62 6c 6f 63 6b 25  20 3d 20 77 69 6e 64 6f  |p_block% = windo|
000057a0  77 25 0d 24 22 29 c8 99  20 22 57 69 6d 70 5f 47  |w%.$").. "Wimp_G|
000057b0  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
000057c0  77 69 6d 70 5f 62 6c 6f  63 6b 25 0d 24 2c 04 0d  |wimp_block%.$,..|
000057d0  24 36 29 62 78 25 20 3d  20 77 69 6d 70 5f 62 6c  |$6)bx% = wimp_bl|
000057e0  6f 63 6b 25 21 34 20 20  2d 20 77 69 6d 70 5f 62  |ock%!4  - wimp_b|
000057f0  6c 6f 63 6b 25 21 32 30  0d 24 40 29 62 79 25 20  |lock%!20.$@)by% |
00005800  3d 20 77 69 6d 70 5f 62  6c 6f 63 6b 25 21 31 36  |= wimp_block%!16|
00005810  20 2d 20 77 69 6d 70 5f  62 6c 6f 63 6b 25 21 32  | - wimp_block%!2|
00005820  34 0d 24 4a 19 77 69 6d  70 5f 62 6c 6f 63 6b 25  |4.$J.wimp_block%|
00005830  21 34 20 3d 20 69 63 6f  6e 25 0d 24 54 27 c8 99  |!4 = icon%.$T'..|
00005840  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00005850  61 74 65 22 2c 2c 77 69  6d 70 5f 62 6c 6f 63 6b  |ate",,wimp_block|
00005860  25 0d 24 5e 04 0d 24 68  17 77 69 6d 70 5f 62 6c  |%.$^..$h.wimp_bl|
00005870  6f 63 6b 25 21 34 20 20  20 3d 20 35 0d 24 72 19  |ock%!4   = 5.$r.|
00005880  77 69 6d 70 5f 62 6c 6f  63 6b 25 21 38 20 20 2b  |wimp_block%!8  +|
00005890  3d 20 62 78 25 0d 24 7c  19 77 69 6d 70 5f 62 6c  |= bx%.$|.wimp_bl|
000058a0  6f 63 6b 25 21 31 32 20  2b 3d 20 62 79 25 0d 24  |ock%!12 += by%.$|
000058b0  86 19 77 69 6d 70 5f 62  6c 6f 63 6b 25 21 31 36  |..wimp_block%!16|
000058c0  20 2b 3d 20 62 78 25 0d  24 90 19 77 69 6d 70 5f  | += bx%.$..wimp_|
000058d0  62 6c 6f 63 6b 25 21 32  30 20 2b 3d 20 62 79 25  |block%!20 += by%|
000058e0  0d 24 9a 17 77 69 6d 70  5f 62 6c 6f 63 6b 25 21  |.$..wimp_block%!|
000058f0  32 34 20 20 3d 20 30 0d  24 a4 17 77 69 6d 70 5f  |24  = 0.$..wimp_|
00005900  62 6c 6f 63 6b 25 21 32  38 20 20 3d 20 30 0d 24  |block%!28  = 0.$|
00005910  ae 1f 77 69 6d 70 5f 62  6c 6f 63 6b 25 21 33 32  |..wimp_block%!32|
00005920  20 20 3d 20 73 63 72 65  65 6e 5f 78 25 0d 24 b8  |  = screen_x%.$.|
00005930  1f 77 69 6d 70 5f 62 6c  6f 63 6b 25 21 33 36 20  |.wimp_block%!36 |
00005940  20 3d 20 73 63 72 65 65  6e 5f 79 25 0d 24 c2 22  | = screen_y%.$."|
00005950  c8 99 20 22 57 69 6d 70  5f 44 72 61 67 42 6f 78  |.. "Wimp_DragBox|
00005960  22 2c 2c 77 69 6d 70 5f  62 6c 6f 63 6b 25 0d 24  |",,wimp_block%.$|
00005970  cc 04 0d 24 d6 05 e1 0d  24 e0 04 0d 24 ea 4c 2d  |...$....$...$.L-|
00005980  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000059c0  2d 2d 2d 2d 2d 2d 2d 0d  24 f4 04 0d 24 fe 14 dd  |-------.$...$...|
000059d0  20 f2 75 73 65 72 5f 64  72 61 67 5f 62 6f 78 0d  | .user_drag_box.|
000059e0  25 08 04 0d 25 12 19 ea  20 78 25 2c 79 25 2c 77  |%...%... x%,y%,w|
000059f0  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 0d 25 1c 04  |indow%,icon%.%..|
00005a00  0d 25 26 11 e7 20 ac 20  73 61 76 69 6e 67 25 20  |.%&.. . saving% |
00005a10  e1 0d 25 30 04 0d 25 3a  29 c8 99 20 22 57 69 6d  |..%0..%:).. "Wim|
00005a20  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
00005a30  22 2c 2c 77 69 6d 70 5f  62 6c 6f 63 6b 25 0d 25  |",,wimp_block%.%|
00005a40  44 36 78 25 20 20 20 20  20 20 20 3d 20 21 77 69  |D6x%       = !wi|
00005a50  6d 70 5f 62 6c 6f 63 6b  25 20 20 3a 79 25 20 20  |mp_block%  :y%  |
00005a60  20 20 20 20 20 3d 20 77  69 6d 70 5f 62 6c 6f 63  |     = wimp_bloc|
00005a70  6b 25 21 34 0d 25 4e 37  77 69 6e 64 6f 77 25 20  |k%!4.%N7window% |
00005a80  20 3d 20 77 69 6d 70 5f  62 6c 6f 63 6b 25 21 31  | = wimp_block%!1|
00005a90  32 3a 69 63 6f 6e 25 20  20 20 20 3d 20 77 69 6d  |2:icon%    = wim|
00005aa0  70 5f 62 6c 6f 63 6b 25  21 31 36 0d 25 58 04 0d  |p_block%!16.%X..|
00005ab0  25 62 15 73 61 76 69 6e  67 25 20 20 20 20 20 20  |%b.saving%      |
00005ac0  20 3d 20 a3 0d 25 6c 1f  74 72 61 6e 73 6d 69 74  | = ..%l.transmit|
00005ad0  5f 70 74 72 25 20 3d 20  66 69 6c 65 5f 62 6c 6f  |_ptr% = file_blo|
00005ae0  63 6b 25 0d 25 76 04 0d  25 80 12 f2 67 65 74 5f  |ck%.%v..%...get_|
00005af0  66 69 6c 65 5f 74 79 70  65 0d 25 8a 04 0d 25 94  |file_type.%...%.|
00005b00  1b 21 77 69 6d 70 5f 62  6c 6f 63 6b 25 20 20 20  |.!wimp_block%   |
00005b10  20 20 20 3d 20 32 35 36  0d 25 9e 33 77 69 6d 70  |   = 256.%.3wimp|
00005b20  5f 62 6c 6f 63 6b 25 21  31 32 20 20 20 20 3d 20  |_block%!12    = |
00005b30  30 20 20 20 20 20 20 20  3a 77 69 6d 70 5f 62 6c  |0       :wimp_bl|
00005b40  6f 63 6b 25 21 31 36 20  3d 20 31 0d 25 a8 37 77  |ock%!16 = 1.%.7w|
00005b50  69 6d 70 5f 62 6c 6f 63  6b 25 21 32 30 20 20 20  |imp_block%!20   |
00005b60  20 3d 20 77 69 6e 64 6f  77 25 20 3a 77 69 6d 70  | = window% :wimp|
00005b70  5f 62 6c 6f 63 6b 25 21  32 34 20 3d 20 69 63 6f  |_block%!24 = ico|
00005b80  6e 25 0d 25 b2 34 77 69  6d 70 5f 62 6c 6f 63 6b  |n%.%.4wimp_block|
00005b90  25 21 32 38 20 20 20 20  3d 20 78 25 20 20 20 20  |%!28    = x%    |
00005ba0  20 20 3a 77 69 6d 70 5f  62 6c 6f 63 6b 25 21 33  |  :wimp_block%!3|
00005bb0  32 20 3d 20 79 25 0d 25  bc 2f 77 69 6d 70 5f 62  |2 = y%.%./wimp_b|
00005bc0  6c 6f 63 6b 25 21 33 36  20 20 20 20 3d 20 66 69  |lock%!36    = fi|
00005bd0  6c 65 5f 70 74 72 25 20  2d 20 66 69 6c 65 5f 62  |le_ptr% - file_b|
00005be0  6c 6f 63 6b 25 0d 25 c6  22 77 69 6d 70 5f 62 6c  |lock%.%."wimp_bl|
00005bf0  6f 63 6b 25 21 34 30 20  20 20 20 3d 20 66 69 6c  |ock%!40    = fil|
00005c00  65 5f 74 79 70 65 25 0d  25 d0 33 24 28 77 69 6d  |e_type%.%.3$(wim|
00005c10  70 5f 62 6c 6f 63 6b 25  2b 34 34 29 20 3d 20 a4  |p_block%+44) = .|
00005c20  6c 65 61 66 5f 6e 61 6d  65 28 24 73 61 76 65 5f  |leaf_name($save_|
00005c30  70 74 72 25 29 20 2b 20  bd 30 0d 25 da 36 c8 99  |ptr%) + .0.%.6..|
00005c40  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00005c50  67 65 22 2c 31 37 2c 77  69 6d 70 5f 62 6c 6f 63  |ge",17,wimp_bloc|
00005c60  6b 25 2c 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |k%,window%,icon%|
00005c70  0d 25 e4 04 0d 25 ee 05  e1 0d 25 f8 04 0d 26 02  |.%...%....%...&.|
00005c80  4c 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |L---------------|
00005c90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00005cc0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 26 0c 04 0d 26 16  |---------.&...&.|
00005cd0  17 dd 20 a4 6c 65 61 66  5f 6e 61 6d 65 28 70 61  |.. .leaf_name(pa|
00005ce0  74 68 24 29 0d 26 20 04  0d 26 2a 0e ea 20 69 25  |th$).& ..&*.. i%|
00005cf0  2c 63 68 61 72 24 0d 26  34 04 0d 26 3e 11 69 25  |,char$.&4..&>.i%|
00005d00  20 3d 20 a9 28 70 61 74  68 24 29 0d 26 48 05 f5  | = .(path$).&H..|
00005d10  0d 26 52 0d 20 20 69 25  20 2d 3d 20 31 0d 26 5c  |.&R.  i% -= 1.&\|
00005d20  1a 20 20 63 68 61 72 24  20 3d 20 c1 70 61 74 68  |.  char$ = .path|
00005d30  24 2c 69 25 2c 31 29 0d  26 66 22 fd 20 63 68 61  |$,i%,1).&f". cha|
00005d40  72 24 3d 22 2e 22 20 84  20 63 68 61 72 24 3d 22  |r$="." . char$="|
00005d50  3a 22 20 84 20 69 25 3d  31 0d 26 70 04 0d 26 7a  |:" . i%=1.&p..&z|
00005d60  2a e7 20 63 68 61 72 24  3d 22 2e 22 20 84 20 63  |*. char$="." . c|
00005d70  68 61 72 24 3d 22 3a 22  20 3d 20 c1 70 61 74 68  |har$=":" = .path|
00005d80  24 2c 69 25 2b 31 29 0d  26 84 04 0d 26 8e 0b 3d  |$,i%+1).&...&..=|
00005d90  20 70 61 74 68 24 0d 26  98 04 0d 26 a2 4c 2d 2d  | path$.&...&.L--|
00005da0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00005de0  2d 2d 2d 2d 2d 2d 0d 26  ac 04 0d 26 b6 15 dd 20  |------.&...&... |
00005df0  f2 6d 65 6e 75 5f 73 65  6c 65 63 74 69 6f 6e 0d  |.menu_selection.|
00005e00  26 c0 04 0d 26 ca 1d ea  20 69 74 65 6d 25 2c 73  |&...&... item%,s|
00005e10  75 62 5f 69 74 65 6d 25  2c 62 75 74 74 6f 6e 25  |ub_item%,button%|
00005e20  0d 26 d4 04 0d 26 de 3e  69 74 65 6d 25 20 3d 20  |.&...&.>item% = |
00005e30  21 77 69 6d 70 5f 62 6c  6f 63 6b 25 3a 73 75 62  |!wimp_block%:sub|
00005e40  5f 69 74 65 6d 25 20 3d  20 77 69 6d 70 5f 62 6c  |_item% = wimp_bl|
00005e50  6f 63 6b 25 21 34 3a e7  20 69 74 65 6d 25 3c 30  |ock%!4:. item%<0|
00005e60  20 e1 0d 26 e8 04 0d 26  f2 29 c8 99 20 22 57 69  | ..&...&.).. "Wi|
00005e70  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00005e80  6f 22 2c 2c 77 69 6d 70  5f 62 6c 6f 63 6b 25 0d  |o",,wimp_block%.|
00005e90  26 fc 1b 62 75 74 74 6f  6e 25 20 3d 20 77 69 6d  |&..button% = wim|
00005ea0  70 5f 62 6c 6f 63 6b 25  21 38 0d 27 06 04 0d 27  |p_block%!8.'...'|
00005eb0  10 17 c8 8e 20 6d 65 6e  75 24 28 69 74 65 6d 25  |.... menu$(item%|
00005ec0  2c 30 29 20 ca 0d 27 1a  0e 20 20 c9 20 22 4d 69  |,0) ..'..  . "Mi|
00005ed0  73 63 22 0d 27 24 18 20  20 20 20 e7 20 73 75 62  |sc".'$.    . sub|
00005ee0  5f 69 74 65 6d 25 3e 3d  30 20 8c 0d 27 2e 21 20  |_item%>=0 ..'.! |
00005ef0  20 20 20 20 20 c8 8e 20  6d 65 6e 75 24 28 73 75  |     .. menu$(su|
00005f00  62 5f 69 74 65 6d 25 2c  31 29 20 ca 0d 27 38 2a  |b_item%,1) ..'8*|
00005f10  20 20 20 20 20 20 20 20  c9 20 22 53 74 61 74 75  |        . "Statu|
00005f20  73 20 2e 2e 2e 22 20 3a  f2 75 70 64 61 74 65 5f  |s ..." :.update_|
00005f30  73 74 61 74 75 73 0d 27  42 3b 20 20 20 20 20 20  |status.'B;      |
00005f40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005f50  20 20 20 20 20 f2 6f 70  65 6e 5f 77 69 6e 64 6f  |     .open_windo|
00005f60  77 28 73 74 61 74 75 73  5f 77 69 6e 64 6f 77 25  |w(status_window%|
00005f70  29 0d 27 4c 30 20 20 20  20 20 20 20 20 c9 20 22  |).'L0        . "|
00005f80  39 36 30 30 2c 20 38 6e  31 22 20 20 3a c8 99 20  |9600, 8n1"  :.. |
00005f90  22 4f 53 5f 53 65 72 69  61 6c 4f 70 22 2c 31 2c  |"OS_SerialOp",1,|
00005fa0  30 0d 27 56 33 20 20 20  20 20 20 20 20 20 20 20  |0.'V3           |
00005fb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005fc0  c8 99 20 22 4f 53 5f 53  65 72 69 61 6c 4f 70 22  |.. "OS_SerialOp"|
00005fd0  2c 35 2c 30 0d 27 60 33  20 20 20 20 20 20 20 20  |,5,0.'`3        |
00005fe0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005ff0  20 20 20 c8 99 20 22 4f  53 5f 53 65 72 69 61 6c  |   .. "OS_Serial|
00006000  4f 70 22 2c 36 2c 30 0d  27 6a 28 20 20 20 20 20  |Op",6,0.'j(     |
00006010  20 20 20 c9 20 22 52 65  73 65 74 22 20 20 20 20  |   . "Reset"    |
00006020  20 20 3a f2 72 65 73 65  74 5f 73 74 61 74 65 0d  |  :.reset_state.|
00006030  27 74 26 20 20 20 20 20  20 20 20 c9 20 22 43 6c  |'t&        . "Cl|
00006040  65 61 72 22 20 20 20 20  20 20 3a f2 72 65 73 65  |ear"      :.rese|
00006050  74 5f 61 6c 6c 0d 27 7e  0b 20 20 20 20 20 20 cb  |t_all.'~.      .|
00006060  0d 27 88 09 20 20 20 20  cd 0d 27 92 37 20 20 c9  |.'..    ..'.7  .|
00006070  20 22 53 61 76 65 22 20  3a f2 67 65 74 5f 66 69  | "Save" :.get_fi|
00006080  6c 65 5f 74 79 70 65 3a  f2 73 61 76 65 5f 66 69  |le_type:.save_fi|
00006090  6c 65 28 24 73 61 76 65  5f 70 74 72 25 2c b9 29  |le($save_ptr%,.)|
000060a0  0d 27 9c 11 20 20 c9 20  22 4f 70 74 69 6f 6e 73  |.'..  . "Options|
000060b0  22 0d 27 a6 18 20 20 20  20 e7 20 73 75 62 5f 69  |".'..    . sub_i|
000060c0  74 65 6d 25 3e 3d 30 20  8c 0d 27 b0 21 20 20 20  |tem%>=0 ..'.!   |
000060d0  20 20 20 c8 8e 20 6d 65  6e 75 24 28 73 75 62 5f  |   .. menu$(sub_|
000060e0  69 74 65 6d 25 2c 32 29  20 ca 0d 27 ba 19 20 20  |item%,2) ..'..  |
000060f0  20 20 20 20 20 20 c9 20  22 46 69 6c 65 20 74 79  |      . "File ty|
00006100  70 65 22 0d 27 c4 1c 20  20 20 20 20 20 20 20 20  |pe".'..         |
00006110  20 e7 20 6c 6f 61 64 5f  65 78 65 63 25 20 8c 0d  | . load_exec% ..|
00006120  27 ce 1e 20 20 20 20 20  20 20 20 20 20 20 20 6c  |'..            l|
00006130  6f 61 64 5f 65 78 65 63  25 20 3d 20 a3 0d 27 d8  |oad_exec% = ..'.|
00006140  2b 20 20 20 20 20 20 20  20 20 20 20 20 f2 6d 65  |+            .me|
00006150  6e 75 5f 74 69 63 6b 28  32 2c 22 46 69 6c 65 20  |nu_tick(2,"File |
00006160  74 79 70 65 22 2c 31 29  0d 27 e2 2e 20 20 20 20  |type",1).'..    |
00006170  20 20 20 20 20 20 20 20  f2 6d 65 6e 75 5f 74 69  |        .menu_ti|
00006180  63 6b 28 32 2c 22 4c 6f  61 64 20 61 64 64 72 65  |ck(2,"Load addre|
00006190  73 73 22 2c 30 29 0d 27  ec 2e 20 20 20 20 20 20  |ss",0).'..      |
000061a0  20 20 20 20 20 20 f2 6d  65 6e 75 5f 74 69 63 6b  |      .menu_tick|
000061b0  28 32 2c 22 45 78 65 63  20 61 64 64 72 65 73 73  |(2,"Exec address|
000061c0  22 2c 30 29 0d 27 f6 0f  20 20 20 20 20 20 20 20  |",0).'..        |
000061d0  20 20 cd 0d 28 00 2b 20  20 20 20 20 20 20 20 c9  |  ..(.+        .|
000061e0  20 22 4c 6f 61 64 20 61  64 64 72 65 73 73 22 2c  | "Load address",|
000061f0  22 45 78 65 63 20 61 64  64 72 65 73 73 22 0d 28  |"Exec address".(|
00006200  0a 1e 20 20 20 20 20 20  20 20 20 20 e7 20 ac 20  |..          . . |
00006210  6c 6f 61 64 5f 65 78 65  63 25 20 8c 0d 28 14 1e  |load_exec% ..(..|
00006220  20 20 20 20 20 20 20 20  20 20 20 20 6c 6f 61 64  |            load|
00006230  5f 65 78 65 63 25 20 3d  20 b9 0d 28 1e 2b 20 20  |_exec% = ..(.+  |
00006240  20 20 20 20 20 20 20 20  20 20 f2 6d 65 6e 75 5f  |          .menu_|
00006250  74 69 63 6b 28 32 2c 22  46 69 6c 65 20 74 79 70  |tick(2,"File typ|
00006260  65 22 2c 30 29 0d 28 28  2e 20 20 20 20 20 20 20  |e",0).((.       |
00006270  20 20 20 20 20 f2 6d 65  6e 75 5f 74 69 63 6b 28  |     .menu_tick(|
00006280  32 2c 22 4c 6f 61 64 20  61 64 64 72 65 73 73 22  |2,"Load address"|
00006290  2c 31 29 0d 28 32 2e 20  20 20 20 20 20 20 20 20  |,1).(2.         |
000062a0  20 20 20 f2 6d 65 6e 75  5f 74 69 63 6b 28 32 2c  |   .menu_tick(2,|
000062b0  22 45 78 65 63 20 61 64  64 72 65 73 73 22 2c 31  |"Exec address",1|
000062c0  29 0d 28 3c 0f 20 20 20  20 20 20 20 20 20 20 cd  |).(<.          .|
000062d0  0d 28 46 33 20 20 20 20  20 20 20 20 c9 20 22 43  |.(F3        . "C|
000062e0  52 20 89 20 4c 46 22 20  20 20 20 3a 64 6f 5f 63  |R . LF"    :do_c|
000062f0  72 6c 66 25 20 3d 20 64  6f 5f 63 72 6c 66 25 20  |rlf% = do_crlf% |
00006300  82 20 b9 0d 28 50 3d 20  20 20 20 20 20 20 20 20  |. ..(P=         |
00006310  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006320  20 20 f2 6d 65 6e 75 5f  74 69 63 6b 5f 74 6f 67  |  .menu_tick_tog|
00006330  67 6c 65 28 32 2c 22 43  52 20 89 20 4c 46 22 29  |gle(2,"CR . LF")|
00006340  0d 28 5a 42 20 20 20 20  20 20 20 20 20 20 20 20  |.(ZB            |
00006350  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 e7  |               .|
00006360  20 6d 6f 64 69 66 69 65  64 25 20 84 20 ac 20 75  | modified% . . u|
00006370  70 6c 6f 61 64 69 6e 67  25 20 f2 64 6f 5f 63 72  |ploading% .do_cr|
00006380  6c 66 0d 28 64 39 20 20  20 20 20 20 20 20 c9 20  |lf.(d9        . |
00006390  22 47 75 65 73 73 20 74  79 70 65 22 20 3a 67 75  |"Guess type" :gu|
000063a0  65 73 73 5f 74 79 70 65  25 20 3d 20 67 75 65 73  |ess_type% = gues|
000063b0  73 5f 74 79 70 65 25 20  82 20 b9 0d 28 6e 40 20  |s_type% . ..(n@ |
000063c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000063d0  20 20 20 20 20 20 20 20  20 20 f2 6d 65 6e 75 5f  |          .menu_|
000063e0  74 69 63 6b 5f 74 6f 67  67 6c 65 28 32 2c 22 47  |tick_toggle(2,"G|
000063f0  75 65 73 73 20 74 79 70  65 22 29 0d 28 78 38 20  |uess type").(x8 |
00006400  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006410  20 20 20 20 20 20 20 20  20 20 e7 20 67 75 65 73  |          . gues|
00006420  73 5f 74 79 70 65 25 20  f2 67 75 65 73 73 5f 74  |s_type% .guess_t|
00006430  79 70 65 0d 28 82 35 20  20 20 20 20 20 20 20 c9  |ype.(.5        .|
00006440  20 22 41 75 74 6f 20 6c  6f 61 64 22 20 20 3a 6f  | "Auto load"  :o|
00006450  6e 65 5f 73 68 6f 74 25  20 3d 20 6f 6e 65 5f 73  |ne_shot% = one_s|
00006460  68 6f 74 25 20 82 20 b9  0d 28 8c 3f 20 20 20 20  |hot% . ..(.?    |
00006470  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006480  20 20 20 20 20 20 20 f2  6d 65 6e 75 5f 74 69 63  |       .menu_tic|
00006490  6b 5f 74 6f 67 67 6c 65  28 32 2c 22 41 75 74 6f  |k_toggle(2,"Auto|
000064a0  20 6c 6f 61 64 22 29 0d  28 96 37 20 20 20 20 20  | load").(.7     |
000064b0  20 20 20 c9 20 22 46 61  73 74 20 6c 6f 61 64 22  |   . "Fast load"|
000064c0  20 20 3a 66 61 73 74 5f  6c 6f 61 64 25 20 3d 20  |  :fast_load% = |
000064d0  66 61 73 74 5f 6c 6f 61  64 25 20 82 20 b9 0d 28  |fast_load% . ..(|
000064e0  a0 3f 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.?              |
000064f0  20 20 20 20 20 20 20 20  20 20 20 20 20 f2 6d 65  |             .me|
00006500  6e 75 5f 74 69 63 6b 5f  74 6f 67 67 6c 65 28 32  |nu_tick_toggle(2|
00006510  2c 22 46 61 73 74 20 6c  6f 61 64 22 29 0d 28 aa  |,"Fast load").(.|
00006520  37 20 20 20 20 20 20 20  20 c9 20 22 55 73 65 20  |7        . "Use |
00006530  42 47 45 54 22 20 20 20  3a 6c 6f 61 64 5f 62 67  |BGET"   :load_bg|
00006540  65 74 25 20 3d 20 6c 6f  61 64 5f 62 67 65 74 25  |et% = load_bget%|
00006550  20 82 20 b9 0d 28 b4 3e  20 20 20 20 20 20 20 20  | . ..(.>        |
00006560  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006570  20 20 20 f2 6d 65 6e 75  5f 74 69 63 6b 5f 74 6f  |   .menu_tick_to|
00006580  67 67 6c 65 28 32 2c 22  55 73 65 20 42 47 45 54  |ggle(2,"Use BGET|
00006590  22 29 0d 28 be 0b 20 20  20 20 20 20 cb 0d 28 c8  |").(..      ..(.|
000065a0  09 20 20 20 20 cd 0d 28  d2 2a 20 20 c9 20 22 55  |.    ..(.*  . "U|
000065b0  70 6c 6f 61 64 22 20 20  20 3a f2 73 74 61 72 74  |pload"   :.start|
000065c0  5f 75 70 6c 6f 61 64 28  62 75 74 74 6f 6e 25 29  |_upload(button%)|
000065d0  0d 28 dc 2c 20 20 c9 20  22 44 6f 77 6e 6c 6f 61  |.(.,  . "Downloa|
000065e0  64 22 20 3a f2 73 74 61  72 74 5f 64 6f 77 6e 6c  |d" :.start_downl|
000065f0  6f 61 64 28 62 75 74 74  6f 6e 25 29 0d 28 e6 1c  |oad(button%).(..|
00006600  20 20 c9 20 22 51 75 69  74 22 20 20 20 20 20 3a  |  . "Quit"     :|
00006610  f2 65 78 69 74 28 a3 29  0d 28 f0 05 cb 0d 28 fa  |.exit(.).(....(.|
00006620  04 0d 29 04 34 e7 20 62  75 74 74 6f 6e 25 3d 31  |..).4. button%=1|
00006630  20 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  | .. "Wimp_Create|
00006640  4d 65 6e 75 22 2c 2c 6d  65 6e 75 5f 62 6c 6f 63  |Menu",,menu_bloc|
00006650  6b 25 28 30 29 0d 29 0e  04 0d 29 18 05 e1 0d 29  |k%(0).)...)....)|
00006660  22 04 0d 29 2c 4c 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |"..),L----------|
00006670  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000066a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 29  |--------------.)|
000066b0  36 04 0d 29 40 0e dd 20  f2 64 6f 5f 63 72 6c 66  |6..)@.. .do_crlf|
000066c0  0d 29 4a 04 0d 29 54 0a  ea 20 70 74 72 25 0d 29  |.)J..)T.. ptr%.)|
000066d0  5e 04 0d 29 68 24 e3 20  70 74 72 25 3d 66 69 6c  |^..)h$. ptr%=fil|
000066e0  65 5f 62 6c 6f 63 6b 25  20 b8 20 66 69 6c 65 5f  |e_block% . file_|
000066f0  70 74 72 25 2d 31 0d 29  72 35 20 20 e7 20 3f 70  |ptr%-1.)r5  . ?p|
00006700  74 72 25 3d 26 30 41 20  8c 20 3f 70 74 72 25 3d  |tr%=&0A . ?ptr%=|
00006710  26 30 44 20 8b 20 e7 20  3f 70 74 72 25 3d 26 30  |&0D . . ?ptr%=&0|
00006720  44 20 3f 70 74 72 25 3d  26 30 41 0d 29 7c 05 ed  |D ?ptr%=&0A.)|..|
00006730  0d 29 86 04 0d 29 90 1f  63 72 6c 66 5f 64 6f 6e  |.)...)..crlf_don|
00006740  65 25 20 3d 20 63 72 6c  66 5f 64 6f 6e 65 25 20  |e% = crlf_done% |
00006750  82 20 b9 0d 29 9a 04 0d  29 a4 05 e1 0d 29 ae 04  |. ..)...)....)..|
00006760  0d 29 b8 4c 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.).L------------|
00006770  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000067a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 29 c2 04  |------------.)..|
000067b0  0d 29 cc 1c dd 20 f2 73  74 61 72 74 5f 75 70 6c  |.)... .start_upl|
000067c0  6f 61 64 28 62 75 74 74  6f 6e 25 29 0d 29 d6 04  |oad(button%).)..|
000067d0  0d 29 e0 0e f2 72 65 73  65 74 5f 61 6c 6c 0d 29  |.)...reset_all.)|
000067e0  ea 04 0d 29 f4 1a 6c 61  73 74 5f 62 75 74 74 6f  |...)..last_butto|
000067f0  6e 25 20 3d 20 62 75 74  74 6f 6e 25 0d 29 fe 04  |n% = button%.)..|
00006800  0d 2a 08 1c 70 75 74 5f  70 74 72 25 20 20 20 20  |.*..put_ptr%    |
00006810  20 3d 20 66 69 6c 65 5f  70 74 72 25 0d 2a 12 19  | = file_ptr%.*..|
00006820  3f 70 75 74 5f 70 74 72  25 20 20 20 20 3d 20 97  |?put_ptr%    = .|
00006830  28 22 78 22 29 0d 2a 1c  1e 70 75 74 5f 65 6e 64  |("x").*..put_end|
00006840  5f 70 74 72 25 20 3d 20  70 75 74 5f 70 74 72 25  |_ptr% = put_ptr%|
00006850  20 2b 31 0d 2a 26 14 70  75 74 74 69 6e 67 25 20  | +1.*&.putting% |
00006860  20 20 20 20 3d 20 b9 0d  2a 30 14 73 68 61 6b 69  |    = ..*0.shaki|
00006870  6e 67 25 20 20 20 20 20  3d 20 b9 0d 2a 3a 14 75  |ng%     = ..*:.u|
00006880  70 6c 6f 61 64 69 6e 67  25 20 20 20 3d 20 b9 0d  |ploading%   = ..|
00006890  2a 44 29 70 6f 6c 6c 5f  6d 61 73 6b 25 20 20 20  |*D)poll_mask%   |
000068a0  3d 20 70 6f 6c 6c 5f 6d  61 73 6b 25 20 80 20 26  |= poll_mask% . &|
000068b0  46 46 46 46 46 46 46 45  0d 2a 4e 04 0d 2a 58 1f  |FFFFFFFE.*N..*X.|
000068c0  f2 6d 65 6e 75 5f 73 68  61 64 65 28 30 2c 22 44  |.menu_shade(0,"D|
000068d0  6f 77 6e 6c 6f 61 64 22  2c b9 29 0d 2a 62 1d f2  |ownload",.).*b..|
000068e0  6d 65 6e 75 5f 73 68 61  64 65 28 30 2c 22 55 70  |menu_shade(0,"Up|
000068f0  6c 6f 61 64 22 2c b9 29  0d 2a 6c 12 f2 75 70 64  |load",.).*l..upd|
00006900  61 74 65 5f 73 74 61 74  75 73 0d 2a 76 04 0d 2a  |ate_status.*v..*|
00006910  80 05 e1 0d 2a 8a 04 0d  2a 94 4c 2d 2d 2d 2d 2d  |....*...*.L-----|
00006920  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00006960  2d 2d 2d 0d 2a 9e 04 0d  2a a8 1e dd 20 f2 73 74  |---.*...*... .st|
00006970  61 72 74 5f 64 6f 77 6e  6c 6f 61 64 28 62 75 74  |art_download(but|
00006980  74 6f 6e 25 29 0d 2a b2  04 0d 2a bc 1b ea 20 66  |ton%).*...*... f|
00006990  6c 61 67 25 2c 6c 65 6e  67 74 68 25 2c 72 65 70  |lag%,length%,rep|
000069a0  6f 72 74 24 0d 2a c6 04  0d 2a d0 3b c8 99 20 22  |ort$.*...*.;.. "|
000069b0  4f 53 5f 46 69 6c 65 22  2c 31 37 2c 22 3c 42 42  |OS_File",17,"<BB|
000069c0  43 54 61 70 65 24 44 69  72 3e 2e 42 42 43 4c 6f  |CTape$Dir>.BBCLo|
000069d0  61 64 42 54 22 20 b8 20  2c 2c 2c 2c 6c 65 6e 67  |adBT" . ,,,,leng|
000069e0  74 68 25 0d 2a da 04 0d  2a e4 4c e7 20 6c 65 6e  |th%.*...*.L. len|
000069f0  67 74 68 25 3e 66 69 6c  65 5f 62 6c 6f 63 6b 5f  |gth%>file_block_|
00006a00  6c 65 6e 67 74 68 25 20  f2 6d 65 73 73 61 67 65  |length% .message|
00006a10  28 22 43 61 6e 27 74 20  64 6f 77 6e 6c 6f 61 64  |("Can't download|
00006a20  20 66 69 6c 65 20 2d 20  6e 6f 20 72 6f 6f 6d 22  | file - no room"|
00006a30  29 3a e1 0d 2a ee 04 0d  2a f8 3a e7 20 6c 65 6e  |):..*...*.:. len|
00006a40  67 74 68 25 3e 66 69 6c  65 5f 62 6c 6f 63 6b 5f  |gth%>file_block_|
00006a50  6c 65 6e 67 74 68 25 2d  28 66 69 6c 65 5f 70 74  |length%-(file_pt|
00006a60  72 25 2d 66 69 6c 65 5f  62 6c 6f 63 6b 25 29 20  |r%-file_block%) |
00006a70  8c 0d 2b 02 39 20 20 e7  20 6d 6f 64 69 66 69 65  |..+.9  . modifie|
00006a80  64 25 20 8c 20 72 65 70  6f 72 74 24 20 3d 20 22  |d% . report$ = "|
00006a90  55 6e 73 61 76 65 64 20  64 22 20 8b 20 72 65 70  |Unsaved d" . rep|
00006aa0  6f 72 74 24 20 3d 20 22  44 22 0d 2b 0c 33 20 20  |ort$ = "D".+.3  |
00006ab0  72 65 70 6f 72 74 24 20  2b 3d 20 22 61 74 61 20  |report$ += "ata |
00006ac0  77 69 6c 6c 20 62 65 20  64 65 73 74 72 6f 79 65  |will be destroye|
00006ad0  64 3b 20 63 6f 6e 74 69  6e 75 65 3f 22 0d 2b 16  |d; continue?".+.|
00006ae0  1d 20 20 e7 20 ac 20 a4  63 6f 6e 66 69 72 6d 28  |.  . . .confirm(|
00006af0  72 65 70 6f 72 74 24 29  20 e1 0d 2b 20 10 20 20  |report$) ..+ .  |
00006b00  f2 72 65 73 65 74 5f 61  6c 6c 0d 2b 2a 05 cc 0d  |.reset_all.+*...|
00006b10  2b 34 12 20 20 f2 72 65  73 65 74 5f 73 74 61 74  |+4.  .reset_stat|
00006b20  65 0d 2b 3e 05 cd 0d 2b  48 04 0d 2b 52 33 ff 20  |e.+>...+H..+R3. |
00006b30  22 4c 6f 61 64 20 3c 42  42 43 54 61 70 65 24 44  |"Load <BBCTape$D|
00006b40  69 72 3e 2e 42 42 43 4c  6f 61 64 42 54 20 22 20  |ir>.BBCLoadBT " |
00006b50  2b 20 c3 7e 66 69 6c 65  5f 70 74 72 25 0d 2b 5c  |+ .~file_ptr%.+\|
00006b60  04 0d 2b 66 3c e7 20 62  75 74 74 6f 6e 25 3d 34  |..+f<. button%=4|
00006b70  20 f2 6d 65 73 73 61 67  65 28 22 54 79 70 65 20  | .message("Type |
00006b80  22 22 2a 46 58 20 32 2c  31 22 22 20 6f 6e 20 42  |""*FX 2,1"" on B|
00006b90  42 43 20 6b 65 79 62 6f  61 72 64 22 29 0d 2b 70  |BC keyboard").+p|
00006ba0  04 0d 2b 7a 1c 70 75 74  5f 70 74 72 25 20 20 20  |..+z.put_ptr%   |
00006bb0  20 20 3d 20 66 69 6c 65  5f 70 74 72 25 0d 2b 84  |  = file_ptr%.+.|
00006bc0  25 70 75 74 5f 65 6e 64  5f 70 74 72 25 20 3d 20  |%put_end_ptr% = |
00006bd0  70 75 74 5f 70 74 72 25  20 2b 20 6c 65 6e 67 74  |put_ptr% + lengt|
00006be0  68 25 0d 2b 8e 14 70 75  74 74 69 6e 67 25 20 20  |h%.+..putting%  |
00006bf0  20 20 20 3d 20 b9 0d 2b  98 14 64 6f 77 6e 6c 6f  |   = ..+..downlo|
00006c00  61 64 69 6e 67 25 20 3d  20 b9 0d 2b a2 29 70 6f  |ading% = ..+.)po|
00006c10  6c 6c 5f 6d 61 73 6b 25  20 20 20 3d 20 70 6f 6c  |ll_mask%   = pol|
00006c20  6c 5f 6d 61 73 6b 25 20  80 20 26 46 46 46 46 46  |l_mask% . &FFFFF|
00006c30  46 46 45 0d 2b ac 11 d1  20 20 20 20 20 20 20 20  |FFE.+...        |
00006c40  20 3d 20 30 0d 2b b6 04  0d 2b c0 1d f2 6d 65 6e  | = 0.+...+...men|
00006c50  75 5f 73 68 61 64 65 28  30 2c 22 55 70 6c 6f 61  |u_shade(0,"Uploa|
00006c60  64 22 2c b9 29 0d 2b ca  12 f2 75 70 64 61 74 65  |d",.).+...update|
00006c70  5f 73 74 61 74 75 73 0d  2b d4 04 0d 2b de 05 e1  |_status.+...+...|
00006c80  0d 2b e8 04 0d 2b f2 4c  2d 2d 2d 2d 2d 2d 2d 2d  |.+...+.L--------|
00006c90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00006cd0  0d 2b fc 04 0d 2c 06 13  dd 20 f2 75 73 65 72 5f  |.+...,... .user_|
00006ce0  6d 65 73 73 61 67 65 0d  2c 10 04 0d 2c 1a 17 c8  |message.,...,...|
00006cf0  8e 20 77 69 6d 70 5f 62  6c 6f 63 6b 25 21 31 36  |. wimp_block%!16|
00006d00  20 ca 0d 2c 24 18 20 20  c9 20 30 20 20 20 20 20  | ..,$.  . 0     |
00006d10  20 3a f2 65 78 69 74 28  b9 29 0d 2c 2e 1e 20 20  | :.exit(.).,..  |
00006d20  c9 20 32 20 20 20 20 20  20 3a f2 64 61 74 61 5f  |. 2      :.data_|
00006d30  73 61 76 65 5f 61 63 6b  0d 2c 38 38 20 20 c9 20  |save_ack.,88  . |
00006d40  34 20 20 20 20 20 20 3a  73 61 76 65 64 5f 66 69  |4      :saved_fi|
00006d50  6c 65 24 20 3d 20 22 3c  42 42 43 54 61 70 65 24  |le$ = "<BBCTape$|
00006d60  44 69 72 3e 2e 78 78 78  78 78 78 78 78 78 78 22  |Dir>.xxxxxxxxxx"|
00006d70  0d 2c 42 1a 20 20 c9 20  36 20 20 20 20 20 20 3a  |.,B.  . 6      :|
00006d80  f2 72 61 6d 5f 66 65 74  63 68 0d 2c 4c 25 20 20  |.ram_fetch.,L%  |
00006d90  c9 20 38 20 20 20 20 20  20 3a e7 20 6d 6f 64 69  |. 8      :. modi|
00006da0  66 69 65 64 25 20 f2 70  72 65 5f 71 75 69 74 0d  |fied% .pre_quit.|
00006db0  2c 56 1e 20 20 c9 20 26  34 30 30 43 30 20 3a f2  |,V.  . &400C0 :.|
00006dc0  67 65 74 5f 66 69 6c 65  5f 74 79 70 65 0d 2c 60  |get_file_type.,`|
00006dd0  1f 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00006de0  f2 73 61 76 65 5f 77 69  6e 64 6f 77 0d 2c 6a 38  |.save_window.,j8|
00006df0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 e7  |               .|
00006e00  20 77 69 6d 70 5f 62 6c  6f 63 6b 25 21 32 30 3d  | wimp_block%!20=|
00006e10  66 69 6c 65 69 6e 66 6f  25 20 f2 66 69 6c 65 5f  |fileinfo% .file_|
00006e20  69 6e 66 6f 0d 2c 74 58  20 20 20 20 20 20 20 20  |info.,tX        |
00006e30  20 20 20 20 20 20 20 c8  99 20 22 57 69 6d 70 5f  |       .. "Wimp_|
00006e40  43 72 65 61 74 65 53 75  62 4d 65 6e 75 22 2c 2c  |CreateSubMenu",,|
00006e50  77 69 6d 70 5f 62 6c 6f  63 6b 25 21 32 30 2c 77  |wimp_block%!20,w|
00006e60  69 6d 70 5f 62 6c 6f 63  6b 25 21 32 34 2c 77 69  |imp_block%!24,wi|
00006e70  6d 70 5f 62 6c 6f 63 6b  25 21 32 38 0d 2c 7e 1c  |mp_block%!28.,~.|
00006e80  20 20 c9 20 26 34 30 30  43 31 20 3a f2 6d 6f 64  |  . &400C1 :.mod|
00006e90  65 5f 63 68 61 6e 67 65  0d 2c 88 05 cb 0d 2c 92  |e_change.,....,.|
00006ea0  04 0d 2c 9c 05 e1 0d 2c  a6 04 0d 2c b0 4c 2d 2d  |..,....,...,.L--|
00006eb0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00006ef0  2d 2d 2d 2d 2d 2d 0d 2c  ba 04 0d 2c c4 14 dd 20  |------.,...,... |
00006f00  f2 64 61 74 61 5f 73 61  76 65 5f 61 63 6b 0d 2c  |.data_save_ack.,|
00006f10  ce 04 0d 2c d8 10 ea 20  70 74 72 25 2c 73 61 66  |...,... ptr%,saf|
00006f20  65 25 0d 2c e2 04 0d 2c  ec 1b 70 74 72 25 20 3d  |e%.,...,..ptr% =|
00006f30  20 77 69 6d 70 5f 62 6c  6f 63 6b 25 20 2b 20 34  | wimp_block% + 4|
00006f40  33 0d 2c f6 19 f5 20 70  74 72 25 20 2b 3d 20 31  |3.,... ptr% += 1|
00006f50  3a fd 20 3f 70 74 72 25  3d 30 0d 2d 00 0e 3f 70  |:. ?ptr%=0.-..?p|
00006f60  74 72 25 20 3d 20 31 33  0d 2d 0a 04 0d 2d 14 2f  |tr% = 13.-...-./|
00006f70  e7 20 77 69 6d 70 5f 62  6c 6f 63 6b 25 21 33 36  |. wimp_block%!36|
00006f80  3d 2d 31 20 8c 20 73 61  66 65 25 20 3d 20 a3 20  |=-1 . safe% = . |
00006f90  8b 20 73 61 66 65 25 20  3d 20 b9 0d 2d 1e 04 0d  |. safe% = ..-...|
00006fa0  2d 28 27 f2 73 61 76 65  5f 66 69 6c 65 28 24 28  |-('.save_file($(|
00006fb0  77 69 6d 70 5f 62 6c 6f  63 6b 25 2b 34 34 29 2c  |wimp_block%+44),|
00006fc0  73 61 66 65 25 29 0d 2d  32 04 0d 2d 3c 23 73 61  |safe%).-2..-<#sa|
00006fd0  76 65 64 5f 66 69 6c 65  24 20 3d 20 24 28 77 69  |ved_file$ = $(wi|
00006fe0  6d 70 5f 62 6c 6f 63 6b  25 2b 34 34 29 0d 2d 46  |mp_block%+44).-F|
00006ff0  04 0d 2d 50 2e e7 20 64  72 61 67 5f 62 75 74 74  |..-P.. drag_butt|
00007000  6f 6e 25 3e 31 36 20 c8  99 20 22 57 69 6d 70 5f  |on%>16 .. "Wimp_|
00007010  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 2d 31 0d  |CreateMenu",,-1.|
00007020  2d 5a 04 0d 2d 64 22 77  69 6d 70 5f 62 6c 6f 63  |-Z..-d"wimp_bloc|
00007030  6b 25 21 31 32 20 3d 20  77 69 6d 70 5f 62 6c 6f  |k%!12 = wimp_blo|
00007040  63 6b 25 21 38 0d 2d 6e  16 77 69 6d 70 5f 62 6c  |ck%!8.-n.wimp_bl|
00007050  6f 63 6b 25 21 31 36 20  3d 20 33 0d 2d 78 36 c8  |ock%!16 = 3.-x6.|
00007060  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
00007070  61 67 65 22 2c 31 38 2c  77 69 6d 70 5f 62 6c 6f  |age",18,wimp_blo|
00007080  63 6b 25 2c 77 69 6d 70  5f 62 6c 6f 63 6b 25 21  |ck%,wimp_block%!|
00007090  34 0d 2d 82 04 0d 2d 8c  05 e1 0d 2d 96 04 0d 2d  |4.-...-....-...-|
000070a0  a0 4c 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.L--------------|
000070b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000070e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 2d aa 04 0d 2d  |----------.-...-|
000070f0  b4 1d dd 20 f2 73 61 76  65 5f 66 69 6c 65 28 6e  |... .save_file(n|
00007100  61 6d 65 24 2c 73 61 66  65 25 29 0d 2d be 04 0d  |ame$,safe%).-...|
00007110  2d c8 0d ea 20 65 78 69  73 74 73 25 0d 2d d2 04  |-... exists%.-..|
00007120  0d 2d dc 39 e7 20 66 69  6c 65 5f 70 74 72 25 3c  |.-.9. file_ptr%<|
00007130  3d 66 69 6c 65 5f 62 6c  6f 63 6b 25 20 f2 6d 65  |=file_block% .me|
00007140  73 73 61 67 65 28 22 4e  6f 20 66 69 6c 65 20 6c  |ssage("No file l|
00007150  6f 61 64 65 64 22 29 3a  e1 0d 2d e6 04 0d 2d f0  |oaded"):..-...-.|
00007160  25 e7 20 a7 6e 61 6d 65  24 2c 22 2e 22 29 3d 30  |%. .name$,".")=0|
00007170  20 80 20 a7 6e 61 6d 65  24 2c 22 3c 22 29 3d 30  | . .name$,"<")=0|
00007180  20 8c 0d 2d fa 43 20 20  f2 6d 65 73 73 61 67 65  | ..-.C  .message|
00007190  28 22 54 6f 20 73 61 76  65 2c 20 64 72 61 67 20  |("To save, drag |
000071a0  74 68 65 20 66 69 6c 65  20 69 63 6f 6e 20 74 6f  |the file icon to|
000071b0  20 61 20 64 69 72 65 63  74 6f 72 79 20 76 69 65  | a directory vie|
000071c0  77 65 72 22 29 0d 2e 04  07 20 20 e1 0d 2e 0e 05  |wer")....  .....|
000071d0  cd 0d 2e 18 04 0d 2e 22  23 c8 99 20 22 4f 53 5f  |......."#.. "OS_|
000071e0  46 69 6c 65 22 2c 31 37  2c 6e 61 6d 65 24 20 b8  |File",17,name$ .|
000071f0  20 65 78 69 73 74 73 25  0d 2e 2c 0f e7 20 65 78  | exists%..,.. ex|
00007200  69 73 74 73 25 20 8c 0d  2e 36 39 20 20 e7 20 ac  |ists% ...69  . .|
00007210  20 a4 63 6f 6e 66 69 72  6d 28 22 46 69 6c 65 20  | .confirm("File |
00007220  22 2b 6e 61 6d 65 24 2b  22 20 65 78 69 73 74 73  |"+name$+" exists|
00007230  3b 20 6f 76 65 72 77 72  69 74 65 3f 22 29 20 8c  |; overwrite?") .|
00007240  0d 2e 40 3f 20 20 20 20  e7 20 ac 20 6f 6e 65 5f  |..@?    . . one_|
00007250  73 68 6f 74 25 20 6f 6e  65 5f 73 68 6f 74 25 20  |shot% one_shot% |
00007260  3d 20 b9 3a f2 6d 65 6e  75 5f 74 69 63 6b 28 32  |= .:.menu_tick(2|
00007270  2c 22 41 75 74 6f 20 6c  6f 61 64 22 2c 30 29 0d  |,"Auto load",0).|
00007280  2e 4a 09 20 20 20 20 e1  0d 2e 54 07 20 20 cd 0d  |.J.    ...T.  ..|
00007290  2e 5e 05 cd 0d 2e 68 04  0d 2e 72 43 ff 20 22 53  |.^....h...rC. "S|
000072a0  61 76 65 20 22 20 2b 20  6e 61 6d 65 24 20 2b 20  |ave " + name$ + |
000072b0  22 20 22 20 2b 20 c3 7e  28 66 69 6c 65 5f 62 6c  |" " + .~(file_bl|
000072c0  6f 63 6b 25 29 20 2b 20  22 20 22 20 2b 20 c3 7e  |ock%) + " " + .~|
000072d0  28 66 69 6c 65 5f 70 74  72 25 29 0d 2e 7c 04 0d  |(file_ptr%)..|..|
000072e0  2e 86 12 e7 20 6c 6f 61  64 5f 65 78 65 63 25 20  |.... load_exec% |
000072f0  8c 0d 2e 90 2b 20 20 c8  99 20 22 4f 53 5f 46 69  |....+  .. "OS_Fi|
00007300  6c 65 22 2c 31 2c 6e 61  6d 65 24 2c 6c 6f 61 64  |le",1,name$,load|
00007310  25 2c 65 78 65 63 25 2c  2c 25 31 31 0d 2e 9a 05  |%,exec%,,%11....|
00007320  cc 0d 2e a4 26 20 20 c8  99 20 22 4f 53 5f 46 69  |....&  .. "OS_Fi|
00007330  6c 65 22 2c 31 38 2c 6e  61 6d 65 24 2c 66 69 6c  |le",18,name$,fil|
00007340  65 5f 74 79 70 65 25 0d  2e ae 05 cd 0d 2e b8 04  |e_type%.........|
00007350  0d 2e c2 2d e7 20 73 61  66 65 25 20 6d 6f 64 69  |...-. safe% modi|
00007360  66 69 65 64 25 20 20 3d  20 a3 3a 24 73 61 76 65  |fied%  = .:$save|
00007370  5f 70 74 72 25 20 3d 20  6e 61 6d 65 24 0d 2e cc  |_ptr% = name$...|
00007380  04 0d 2e d6 05 e1 0d 2e  e0 04 0d 2e ea 4c 2d 2d  |.............L--|
00007390  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000073d0  2d 2d 2d 2d 2d 2d 0d 2e  f4 04 0d 2e fe 10 dd 20  |------......... |
000073e0  f2 72 61 6d 5f 66 65 74  63 68 0d 2f 08 04 0d 2f  |.ram_fetch./.../|
000073f0  12 3f e7 20 64 72 61 67  5f 62 75 74 74 6f 6e 25  |.?. drag_button%|
00007400  3e 31 36 20 c8 99 20 22  57 69 6d 70 5f 43 72 65  |>16 .. "Wimp_Cre|
00007410  61 74 65 4d 65 6e 75 22  2c 2c 2d 31 3a 64 72 61  |ateMenu",,-1:dra|
00007420  67 5f 62 75 74 74 6f 6e  25 20 3d 20 30 0d 2f 1c  |g_button% = 0./.|
00007430  04 0d 2f 26 57 e7 20 77  69 6d 70 5f 62 6c 6f 63  |../&W. wimp_bloc|
00007440  6b 25 21 32 34 3e 66 69  6c 65 5f 70 74 72 25 2d  |k%!24>file_ptr%-|
00007450  74 72 61 6e 73 6d 69 74  5f 70 74 72 25 20 77 69  |transmit_ptr% wi|
00007460  6d 70 5f 62 6c 6f 63 6b  25 21 32 34 20 3d 20 66  |mp_block%!24 = f|
00007470  69 6c 65 5f 70 74 72 25  20 2d 20 74 72 61 6e 73  |ile_ptr% - trans|
00007480  6d 69 74 5f 70 74 72 25  0d 2f 30 04 0d 2f 3a 75  |mit_ptr%./0../:u|
00007490  e7 20 77 69 6d 70 5f 62  6c 6f 63 6b 25 21 32 34  |. wimp_block%!24|
000074a0  3e 30 20 c8 99 20 22 57  69 6d 70 5f 54 72 61 6e  |>0 .. "Wimp_Tran|
000074b0  73 66 65 72 42 6c 6f 63  6b 22 2c 74 61 73 6b 5f  |sferBlock",task_|
000074c0  68 61 6e 64 6c 65 25 2c  74 72 61 6e 73 6d 69 74  |handle%,transmit|
000074d0  5f 70 74 72 25 2c 77 69  6d 70 5f 62 6c 6f 63 6b  |_ptr%,wimp_block|
000074e0  25 21 34 2c 77 69 6d 70  5f 62 6c 6f 63 6b 25 21  |%!4,wimp_block%!|
000074f0  32 30 2c 77 69 6d 70 5f  62 6c 6f 63 6b 25 21 32  |20,wimp_block%!2|
00007500  34 0d 2f 44 04 0d 2f 4e  23 74 72 61 6e 73 6d 69  |4./D../N#transmi|
00007510  74 5f 70 74 72 25 20 2b  3d 20 77 69 6d 70 5f 62  |t_ptr% += wimp_b|
00007520  6c 6f 63 6b 25 21 32 34  0d 2f 58 04 0d 2f 62 22  |lock%!24./X../b"|
00007530  77 69 6d 70 5f 62 6c 6f  63 6b 25 21 31 32 20 3d  |wimp_block%!12 =|
00007540  20 77 69 6d 70 5f 62 6c  6f 63 6b 25 21 38 0d 2f  | wimp_block%!8./|
00007550  6c 16 77 69 6d 70 5f 62  6c 6f 63 6b 25 21 31 36  |l.wimp_block%!16|
00007560  20 3d 20 37 0d 2f 76 36  c8 99 20 22 57 69 6d 70  | = 7./v6.. "Wimp|
00007570  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
00007580  2c 77 69 6d 70 5f 62 6c  6f 63 6b 25 2c 77 69 6d  |,wimp_block%,wim|
00007590  70 5f 62 6c 6f 63 6b 25  21 34 0d 2f 80 04 0d 2f  |p_block%!4./.../|
000075a0  8a 05 e1 0d 2f 94 04 0d  2f 9e 4c 2d 2d 2d 2d 2d  |..../.../.L-----|
000075b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000075f0  2d 2d 2d 0d 2f a8 04 0d  2f b2 0f dd 20 f2 70 72  |---./.../... .pr|
00007600  65 5f 71 75 69 74 0d 2f  bc 04 0d 2f c6 10 ea 20  |e_quit./.../... |
00007610  71 75 69 74 5f 74 61 73  6b 25 0d 2f d0 04 0d 2f  |quit_task%./.../|
00007620  da 1e 71 75 69 74 5f 74  61 73 6b 25 20 3d 20 77  |..quit_task% = w|
00007630  69 6d 70 5f 62 6c 6f 63  6b 25 21 34 0d 2f e4 04  |imp_block%!4./..|
00007640  0d 2f ee 22 77 69 6d 70  5f 62 6c 6f 63 6b 25 21  |./."wimp_block%!|
00007650  31 32 20 3d 20 77 69 6d  70 5f 62 6c 6f 63 6b 25  |12 = wimp_block%|
00007660  21 38 0d 2f f8 33 c8 99  20 22 57 69 6d 70 5f 53  |!8./.3.. "Wimp_S|
00007670  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 39 2c 77  |endMessage",19,w|
00007680  69 6d 70 5f 62 6c 6f 63  6b 25 2c 71 75 69 74 5f  |imp_block%,quit_|
00007690  74 61 73 6b 25 0d 30 02  04 0d 30 0c 42 e7 20 ac  |task%.0...0.B. .|
000076a0  20 a4 63 6f 6e 66 69 72  6d 28 22 55 6e 73 61 76  | .confirm("Unsav|
000076b0  65 64 20 64 61 74 61 3a  20 61 72 65 20 79 6f 75  |ed data: are you|
000076c0  20 73 75 72 65 20 79 6f  75 20 77 61 6e 74 20 74  | sure you want t|
000076d0  6f 20 51 75 69 74 3f 22  29 20 e1 0d 30 16 04 0d  |o Quit?") ..0...|
000076e0  30 20 11 6d 6f 64 69 66  69 65 64 25 20 3d 20 a3  |0 .modified% = .|
000076f0  0d 30 2a 04 0d 30 34 41  f4 20 54 68 69 73 20 69  |.0*..04A. This i|
00007700  73 20 74 68 65 20 61 70  70 72 6f 76 65 64 20 6d  |s the approved m|
00007710  65 74 68 6f 64 20 6f 66  20 64 65 61 6c 69 6e 67  |ethod of dealing|
00007720  20 77 69 74 68 20 61 20  70 72 65 2d 71 75 69 74  | with a pre-quit|
00007730  2c 20 62 75 74 0d 30 3e  3d f4 20 64 6f 65 73 6e  |, but.0>=. doesn|
00007740  27 74 20 64 65 61 6c 20  63 6f 72 72 65 63 74 6c  |'t deal correctl|
00007750  79 20 77 69 74 68 20 61  20 71 75 69 74 20 66 72  |y with a quit fr|
00007760  6f 6d 20 74 68 65 20 74  61 73 6b 20 77 69 6e 64  |om the task wind|
00007770  6f 77 0d 30 48 04 0d 30  52 2b c8 99 20 22 57 69  |ow.0H..0R+.. "Wi|
00007780  6d 70 5f 47 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_GetCaretPosit|
00007790  69 6f 6e 22 2c 2c 77 69  6d 70 5f 62 6c 6f 63 6b  |ion",,wimp_block|
000077a0  25 0d 30 5c 19 77 69 6d  70 5f 62 6c 6f 63 6b 25  |%.0\.wimp_block%|
000077b0  21 32 34 20 3d 20 26 31  46 43 0d 30 66 32 c8 99  |!24 = &1FC.0f2..|
000077c0  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
000077d0  67 65 22 2c 38 2c 77 69  6d 70 5f 62 6c 6f 63 6b  |ge",8,wimp_block|
000077e0  25 2c 71 75 69 74 5f 74  61 73 6b 25 0d 30 70 04  |%,quit_task%.0p.|
000077f0  0d 30 7a 05 e1 0d 30 84  04 0d 30 8e 4c 2d 2d 2d  |.0z...0...0.L---|
00007800  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00007840  2d 2d 2d 2d 2d 0d 30 98  04 0d 30 a2 12 dd 20 f2  |-----.0...0... .|
00007850  73 61 76 65 5f 77 69 6e  64 6f 77 0d 30 ac 04 0d  |save_window.0...|
00007860  30 b6 12 ea 20 66 6c 61  67 73 25 2c 74 79 70 65  |0... flags%,type|
00007870  24 0d 30 c0 04 0d 30 ca  14 e7 20 66 69 6c 65 5f  |$.0...0... file_|
00007880  74 79 70 65 25 3e 30 20  8c 0d 30 d4 3c 20 20 c8  |type%>0 ..0.<  .|
00007890  99 20 22 58 57 69 6d 70  5f 53 70 72 69 74 65 4f  |. "XWimp_SpriteO|
000078a0  70 22 2c 34 30 2c 2c 22  66 69 6c 65 5f 22 2b c3  |p",40,,"file_"+.|
000078b0  7e 66 69 6c 65 5f 74 79  70 65 25 20 b8 20 3b 66  |~file_type% . ;f|
000078c0  6c 61 67 73 25 0d 30 de  39 20 20 e7 20 66 6c 61  |lags%.0.9  . fla|
000078d0  67 73 25 20 80 20 31 20  8c 20 74 79 70 65 24 20  |gs% . 1 . type$ |
000078e0  3d 20 22 78 78 78 22 20  8b 20 74 79 70 65 24 20  |= "xxx" . type$ |
000078f0  3d 20 c3 7e 66 69 6c 65  5f 74 79 70 65 25 0d 30  |= .~file_type%.0|
00007900  e8 05 cc 0d 30 f2 13 20  20 74 79 70 65 24 20 3d  |....0..  type$ =|
00007910  20 22 78 78 78 22 0d 30  fc 05 cd 0d 31 06 04 0d  | "xxx".0....1...|
00007920  31 10 1c 77 69 6d 70 5f  62 6c 6f 63 6b 25 21 33  |1..wimp_block%!3|
00007930  32 20 3d 20 73 61 76 65  61 73 25 0d 31 1a 2a c8  |2 = saveas%.1.*.|
00007940  99 20 22 57 69 6d 70 5f  44 65 6c 65 74 65 57 69  |. "Wimp_DeleteWi|
00007950  6e 64 6f 77 22 2c 2c 77  69 6d 70 5f 62 6c 6f 63  |ndow",,wimp_bloc|
00007960  6b 25 2b 33 32 0d 31 24  04 0d 31 2e 22 24 28 73  |k%+32.1$..1."$(s|
00007970  61 76 65 61 73 5f 62 6c  6f 63 6b 25 2b 38 38 2b  |aveas_block%+88+|
00007980  32 35 29 20 3d 20 74 79  70 65 24 0d 31 38 04 0d  |25) = type$.18..|
00007990  31 42 33 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |1B3.. "Wimp_Crea|
000079a0  74 65 57 69 6e 64 6f 77  22 2c 2c 73 61 76 65 61  |teWindow",,savea|
000079b0  73 5f 62 6c 6f 63 6b 25  20 b8 20 73 61 76 65 61  |s_block% . savea|
000079c0  73 25 0d 31 4c 04 0d 31  56 05 e1 0d 31 60 04 0d  |s%.1L..1V...1`..|
000079d0  31 6a 4c 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |1jL-------------|
000079e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00007a10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 31 74 04 0d  |-----------.1t..|
00007a20  31 7e 10 dd 20 f2 66 69  6c 65 5f 69 6e 66 6f 0d  |1~.. .file_info.|
00007a30  31 88 04 0d 31 92 19 ea  20 73 61 76 65 64 24 2c  |1...1... saved$,|
00007a40  66 6c 61 67 73 25 2c 63  72 6c 66 24 0d 31 9c 04  |flags%,crlf$.1..|
00007a50  0d 31 a6 1e 77 69 6d 70  5f 62 6c 6f 63 6b 25 21  |.1..wimp_block%!|
00007a60  33 32 20 3d 20 66 69 6c  65 69 6e 66 6f 25 0d 31  |32 = fileinfo%.1|
00007a70  b0 2a c8 99 20 22 57 69  6d 70 5f 44 65 6c 65 74  |.*.. "Wimp_Delet|
00007a80  65 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 5f 62  |eWindow",,wimp_b|
00007a90  6c 6f 63 6b 25 2b 33 32  0d 31 ba 04 0d 31 c4 14  |lock%+32.1...1..|
00007aa0  f4 20 46 69 6c 65 20 74  79 70 65 20 69 63 6f 6e  |. File type icon|
00007ab0  0d 31 ce 36 24 28 66 69  6c 65 69 6e 66 6f 5f 62  |.1.6$(fileinfo_b|
00007ac0  6c 6f 63 6b 25 2b 31 30  38 2b 36 2a 33 32 29 20  |lock%+108+6*32) |
00007ad0  3d 20 24 28 73 61 76 65  61 73 5f 62 6c 6f 63 6b  |= $(saveas_block|
00007ae0  25 2b 31 30 38 29 0d 31  d8 04 0d 31 e2 30 e7 20  |%+108).1...1.0. |
00007af0  6d 6f 64 69 66 69 65 64  25 20 8c 20 73 61 76 65  |modified% . save|
00007b00  64 24 20 3d 20 22 4e 6f  22 20 8b 20 73 61 76 65  |d$ = "No" . save|
00007b10  64 24 20 3d 20 22 59 65  73 22 0d 31 ec 28 24 28  |d$ = "Yes".1.($(|
00007b20  66 69 6c 65 69 6e 66 6f  5f 62 6c 6f 63 6b 25 2b  |fileinfo_block%+|
00007b30  31 30 38 2b 32 2a 33 32  29 20 3d 20 73 61 76 65  |108+2*32) = save|
00007b40  64 24 0d 31 f6 04 0d 32  00 14 e7 20 66 69 6c 65  |d$.1...2... file|
00007b50  5f 74 79 70 65 25 3e 30  20 8c 0d 32 0a 38 20 20  |_type%>0 ..2.8  |
00007b60  24 74 79 70 65 5f 62 75  66 66 65 72 25 20 3d 20  |$type_buffer% = |
00007b70  24 74 79 70 65 5f 70 74  72 25 20 2b 20 c4 39 2d  |$type_ptr% + .9-|
00007b80  a9 28 24 74 79 70 65 5f  70 74 72 25 29 2c 22 20  |.($type_ptr%)," |
00007b90  22 29 0d 32 14 35 20 20  c8 99 20 22 4f 53 5f 43  |").2.5  .. "OS_C|
00007ba0  6f 6e 76 65 72 74 48 65  78 34 22 2c 66 69 6c 65  |onvertHex4",file|
00007bb0  5f 74 79 70 65 25 2c 74  79 70 65 5f 62 75 66 66  |_type%,type_buff|
00007bc0  65 72 25 2b 39 2c 35 0d  32 1e 1e 20 20 74 79 70  |er%+9,5.2..  typ|
00007bd0  65 5f 62 75 66 66 65 72  25 3f 39 20 20 3d 20 97  |e_buffer%?9  = .|
00007be0  28 22 28 22 29 0d 32 28  1e 20 20 74 79 70 65 5f  |("(").2(.  type_|
00007bf0  62 75 66 66 65 72 25 3f  31 33 20 3d 20 97 28 22  |buffer%?13 = .("|
00007c00  29 22 29 0d 32 32 1b 20  20 74 79 70 65 5f 62 75  |)").22.  type_bu|
00007c10  66 66 65 72 25 3f 31 34  20 3d 20 26 30 44 0d 32  |ffer%?14 = &0D.2|
00007c20  3c 05 cc 0d 32 46 21 20  20 24 74 79 70 65 5f 62  |<...2F!  $type_b|
00007c30  75 66 66 65 72 25 20 3d  20 22 3c 75 6e 74 79 70  |uffer% = "<untyp|
00007c40  65 64 3e 22 0d 32 50 05  cd 0d 32 5a 04 0d 32 64  |ed>".2P...2Z..2d|
00007c50  37 c8 99 20 22 4f 53 5f  43 6f 6e 76 65 72 74 48  |7.. "OS_ConvertH|
00007c60  65 78 34 22 2c 6c 6f 61  64 25 2c 66 69 6c 65 69  |ex4",load%,filei|
00007c70  6e 66 6f 5f 62 6c 6f 63  6b 25 2b 31 30 38 2b 33  |nfo_block%+108+3|
00007c80  32 2c 31 32 0d 32 6e 3a  c8 99 20 22 4f 53 5f 43  |2,12.2n:.. "OS_C|
00007c90  6f 6e 76 65 72 74 48 65  78 34 22 2c 65 78 65 63  |onvertHex4",exec|
00007ca0  25 2c 66 69 6c 65 69 6e  66 6f 5f 62 6c 6f 63 6b  |%,fileinfo_block|
00007cb0  25 2b 31 30 38 2b 31 32  2a 33 32 2c 31 32 0d 32  |%+108+12*32,12.2|
00007cc0  78 04 0d 32 82 3b 24 28  66 69 6c 65 69 6e 66 6f  |x..2.;$(fileinfo|
00007cd0  5f 62 6c 6f 63 6b 25 2b  31 30 38 2b 31 30 2a 33  |_block%+108+10*3|
00007ce0  32 29 20 3d 20 c0 6f 72  69 67 69 6e 61 6c 5f 66  |2) = .original_f|
00007cf0  69 6c 65 5f 6e 61 6d 65  24 2c 31 30 29 0d 32 8c  |ile_name$,10).2.|
00007d00  04 0d 32 96 4e c8 99 20  22 4f 53 5f 43 6f 6e 76  |..2.N.. "OS_Conv|
00007d10  65 72 74 46 69 6c 65 53  69 7a 65 22 2c 66 69 6c  |ertFileSize",fil|
00007d20  65 5f 70 74 72 25 2d 66  69 6c 65 5f 62 6c 6f 63  |e_ptr%-file_bloc|
00007d30  6b 25 2c 66 69 6c 65 69  6e 66 6f 5f 62 6c 6f 63  |k%,fileinfo_bloc|
00007d40  6b 25 2b 31 30 38 2b 31  34 2a 33 32 2c 31 32 0d  |k%+108+14*32,12.|
00007d50  32 a0 04 0d 32 aa 2f e7  20 63 72 6c 66 5f 64 6f  |2...2./. crlf_do|
00007d60  6e 65 25 20 8c 20 63 72  6c 66 24 20 3d 20 22 79  |ne% . crlf$ = "y|
00007d70  65 73 22 20 8b 20 63 72  6c 66 24 20 3d 20 22 6e  |es" . crlf$ = "n|
00007d80  6f 22 0d 32 b4 28 24 28  66 69 6c 65 69 6e 66 6f  |o".2.($(fileinfo|
00007d90  5f 62 6c 6f 63 6b 25 2b  31 30 38 2b 31 35 2a 33  |_block%+108+15*3|
00007da0  32 29 20 3d 20 63 72 6c  66 24 0d 32 be 04 0d 32  |2) = crlf$.2...2|
00007db0  c8 37 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.7.. "Wimp_Creat|
00007dc0  65 57 69 6e 64 6f 77 22  2c 2c 66 69 6c 65 69 6e  |eWindow",,filein|
00007dd0  66 6f 5f 62 6c 6f 63 6b  25 20 b8 20 66 69 6c 65  |fo_block% . file|
00007de0  69 6e 66 6f 25 0d 32 d2  04 0d 32 dc 05 e1 0d 32  |info%.2...2....2|
00007df0  e6 04 0d 32 f0 4c 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...2.L----------|
00007e00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00007e30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 32  |--------------.2|
00007e40  fa 04 0d 33 04 12 dd 20  f2 6d 6f 64 65 5f 63 68  |...3... .mode_ch|
00007e50  61 6e 67 65 0d 33 0e 04  0d 33 18 2a 21 77 69 6d  |ange.3...3.*!wim|
00007e60  70 5f 62 6c 6f 63 6b 25  20 20 20 3d 20 20 34 3a  |p_block%   =  4:|
00007e70  77 69 6d 70 5f 62 6c 6f  63 6b 25 21 34 20 20 3d  |wimp_block%!4  =|
00007e80  20 35 0d 33 22 2b 77 69  6d 70 5f 62 6c 6f 63 6b  | 5.3"+wimp_block|
00007e90  25 21 38 20 20 3d 20 31  31 3a 77 69 6d 70 5f 62  |%!8  = 11:wimp_b|
00007ea0  6c 6f 63 6b 25 21 31 32  20 3d 20 31 32 0d 33 2c  |lock%!12 = 12.3,|
00007eb0  17 77 69 6d 70 5f 62 6c  6f 63 6b 25 21 31 36 20  |.wimp_block%!16 |
00007ec0  3d 20 2d 31 0d 33 36 37  c8 99 20 22 4f 53 5f 52  |= -1.367.. "OS_R|
00007ed0  65 61 64 56 64 75 56 61  72 69 61 62 6c 65 73 22  |eadVduVariables"|
00007ee0  2c 77 69 6d 70 5f 62 6c  6f 63 6b 25 2c 77 69 6d  |,wimp_block%,wim|
00007ef0  70 5f 62 6c 6f 63 6b 25  2b 32 30 0d 33 40 04 0d  |p_block%+20.3@..|
00007f00  33 4a 3a 73 63 72 65 65  6e 5f 78 25 20 3d 20 28  |3J:screen_x% = (|
00007f10  31 20 3c 3c 20 77 69 6d  70 5f 62 6c 6f 63 6b 25  |1 << wimp_block%|
00007f20  21 32 30 29 2a 28 77 69  6d 70 5f 62 6c 6f 63 6b  |!20)*(wimp_block|
00007f30  25 21 32 38 20 2b 20 31  29 0d 33 54 3a 73 63 72  |%!28 + 1).3T:scr|
00007f40  65 65 6e 5f 79 25 20 3d  20 28 31 20 3c 3c 20 77  |een_y% = (1 << w|
00007f50  69 6d 70 5f 62 6c 6f 63  6b 25 21 32 34 29 2a 28  |imp_block%!24)*(|
00007f60  77 69 6d 70 5f 62 6c 6f  63 6b 25 21 33 32 20 2b  |wimp_block%!32 +|
00007f70  20 31 29 0d 33 5e 04 0d  33 68 05 e1 0d 33 72 04  | 1).3^..3h...3r.|
00007f80  0d 33 7c 4c 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.3|L************|
00007f90  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00007fc0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 33 86 04  |************.3..|
00007fd0  0d 33 90 12 57 69 6d 70  20 55 74 69 6c 69 74 69  |.3..Wimp Utiliti|
00007fe0  65 73 0d 33 9a 04 0d 33  a4 4c 2a 2a 2a 2a 2a 2a  |es.3...3.L******|
00007ff0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00008030  2a 2a 0d 33 ae 04 0d 33  b8 1b dd 20 f2 6f 70 65  |**.3...3... .ope|
00008040  6e 5f 77 69 6e 64 6f 77  28 68 61 6e 64 6c 65 25  |n_window(handle%|
00008050  29 0d 33 c2 04 0d 33 cc  1a 21 77 69 6d 70 5f 62  |).3...3..!wimp_b|
00008060  6c 6f 63 6b 25 20 3d 20  68 61 6e 64 6c 65 25 0d  |lock% = handle%.|
00008070  33 d6 29 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |3.).. "Wimp_GetW|
00008080  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 77 69 6d  |indowState",,wim|
00008090  70 5f 62 6c 6f 63 6b 25  0d 33 e0 17 77 69 6d 70  |p_block%.3..wimp|
000080a0  5f 62 6c 6f 63 6b 25 21  32 38 20 3d 20 2d 31 0d  |_block%!28 = -1.|
000080b0  33 ea 04 0d 33 f4 25 c8  99 20 22 57 69 6d 70 5f  |3...3.%.. "Wimp_|
000080c0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 77 69 6d  |OpenWindow",,wim|
000080d0  70 5f 62 6c 6f 63 6b 25  0d 33 fe 04 0d 34 08 05  |p_block%.3...4..|
000080e0  e1 0d 34 12 04 0d 34 1c  4c 2d 2d 2d 2d 2d 2d 2d  |..4...4.L-------|
000080f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00008130  2d 0d 34 26 04 0d 34 30  1c dd 20 f2 63 6c 6f 73  |-.4&..40.. .clos|
00008140  65 5f 77 69 6e 64 6f 77  28 77 69 6e 64 6f 77 25  |e_window(window%|
00008150  29 0d 34 3a 04 0d 34 44  1a 21 77 69 6d 70 5f 62  |).4:..4D.!wimp_b|
00008160  6c 6f 63 6b 25 20 3d 20  77 69 6e 64 6f 77 25 0d  |lock% = window%.|
00008170  34 4e 26 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |4N&.. "Wimp_Clos|
00008180  65 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 5f 62  |eWindow",,wimp_b|
00008190  6c 6f 63 6b 25 0d 34 58  04 0d 34 62 05 e1 0d 34  |lock%.4X..4b...4|
000081a0  6c 04 0d 34 76 4c 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |l..4vL----------|
000081b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000081e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 34  |--------------.4|
000081f0  80 04 0d 34 8a 27 dd 20  f2 62 75 69 6c 64 5f 6d  |...4.'. .build_m|
00008200  65 6e 75 28 62 6c 6f 63  6b 25 2c 74 69 74 6c 65  |enu(block%,title|
00008210  24 2c 77 69 64 74 68 25  29 0d 34 94 04 0d 34 9e  |$,width%).4...4.|
00008220  17 24 62 6c 6f 63 6b 25  20 20 20 3d 20 20 74 69  |.$block%   =  ti|
00008230  74 6c 65 24 0d 34 a8 12  62 6c 6f 63 6b 25 3f 31  |tle$.4..block%?1|
00008240  32 20 3d 20 20 37 0d 34  b2 12 62 6c 6f 63 6b 25  |2 =  7.4..block%|
00008250  3f 31 33 20 3d 20 20 32  0d 34 bc 12 62 6c 6f 63  |?13 =  2.4..bloc|
00008260  6b 25 3f 31 34 20 3d 20  20 37 0d 34 c6 12 62 6c  |k%?14 =  7.4..bl|
00008270  6f 63 6b 25 3f 31 35 20  3d 20 20 30 0d 34 d0 19  |ock%?15 =  0.4..|
00008280  62 6c 6f 63 6b 25 21 31  36 20 3d 20 31 36 2a 77  |block%!16 = 16*w|
00008290  69 64 74 68 25 0d 34 da  12 62 6c 6f 63 6b 25 21  |idth%.4..block%!|
000082a0  32 30 20 3d 20 34 34 0d  34 e4 12 62 6c 6f 63 6b  |20 = 44.4..block|
000082b0  25 21 32 34 20 3d 20 20  30 0d 34 ee 04 0d 34 f8  |%!24 =  0.4...4.|
000082c0  05 e1 0d 35 02 04 0d 35  0c 4c 2d 2d 2d 2d 2d 2d  |...5...5.L------|
000082d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00008310  2d 2d 0d 35 16 04 0d 35  20 2a dd 20 f2 62 75 69  |--.5...5 *. .bui|
00008320  6c 64 5f 6d 65 6e 75 5f  69 74 65 6d 73 28 62 6c  |ld_menu_items(bl|
00008330  6f 63 6b 25 2c 6e 75 6d  25 2c 6e 73 75 62 25 29  |ock%,num%,nsub%)|
00008340  0d 35 2a 04 0d 35 34 38  ea 20 69 25 2c 74 65 78  |.5*..548. i%,tex|
00008350  74 24 2c 74 69 63 6b 25  2c 73 68 61 64 65 25 2c  |t$,tick%,shade%,|
00008360  64 6f 74 25 2c 6e 6f 74  69 66 79 25 2c 73 75 62  |dot%,notify%,sub|
00008370  25 2c 6c 61 73 74 25 2c  70 74 72 25 0d 35 3e 04  |%,last%,ptr%.5>.|
00008380  0d 35 48 13 e3 20 69 25  3d 30 20 b8 20 6e 75 6d  |.5H.. i%=0 . num|
00008390  25 2d 31 0d 35 52 2c 20  20 f3 20 74 65 78 74 24  |%-1.5R,  . text$|
000083a0  2c 74 69 63 6b 25 2c 73  68 61 64 65 25 2c 64 6f  |,tick%,shade%,do|
000083b0  74 25 2c 6e 6f 74 69 66  79 25 2c 73 75 62 25 0d  |t%,notify%,sub%.|
000083c0  35 5c 1d 20 20 6d 65 6e  75 24 28 69 25 2c 6e 73  |5\.  menu$(i%,ns|
000083d0  75 62 25 29 20 3d 20 74  65 78 74 24 0d 35 66 27  |ub%) = text$.5f'|
000083e0  20 20 e7 20 69 25 3d 6e  75 6d 25 2d 31 20 6c 61  |  . i%=num%-1 la|
000083f0  73 74 25 20 3d 20 31 20  8b 20 6c 61 73 74 25 20  |st% = 1 . last% |
00008400  3d 20 30 0d 35 70 20 20  20 70 74 72 25 20 3d 20  |= 0.5p   ptr% = |
00008410  62 6c 6f 63 6b 25 20 2b  20 32 38 20 2b 20 32 34  |block% + 28 + 24|
00008420  2a 69 25 0d 35 7a 41 20  20 f2 6d 65 6e 75 5f 69  |*i%.5zA  .menu_i|
00008430  74 65 6d 28 70 74 72 25  2c 74 69 63 6b 25 2c 73  |tem(ptr%,tick%,s|
00008440  68 61 64 65 25 2c 64 6f  74 25 2c 6e 6f 74 69 66  |hade%,dot%,notif|
00008450  79 25 2c 6c 61 73 74 25  2c 73 75 62 25 2c 74 65  |y%,last%,sub%,te|
00008460  78 74 24 29 0d 35 84 05  ed 0d 35 8e 04 0d 35 98  |xt$).5....5...5.|
00008470  05 e1 0d 35 a2 04 0d 35  ac 4c 2d 2d 2d 2d 2d 2d  |...5...5.L------|
00008480  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000084c0  2d 2d 0d 35 b6 04 0d 35  c0 43 dd 20 f2 6d 65 6e  |--.5...5.C. .men|
000084d0  75 5f 69 74 65 6d 28 62  6c 6f 63 6b 25 2c 74 69  |u_item(block%,ti|
000084e0  63 6b 25 2c 73 68 61 64  65 25 2c 64 6f 74 25 2c  |ck%,shade%,dot%,|
000084f0  6e 6f 74 69 66 79 25 2c  6c 61 73 74 25 2c 73 75  |notify%,last%,su|
00008500  62 25 2c 74 65 78 74 24  29 0d 35 ca 04 0d 35 d4  |b%,text$).5...5.|
00008510  3c 21 62 6c 6f 63 6b 25  20 20 3d 20 74 69 63 6b  |<!block%  = tick|
00008520  25 20 2b 20 28 64 6f 74  25 3c 3c 31 29 20 2b 20  |% + (dot%<<1) + |
00008530  28 6e 6f 74 69 66 79 25  3c 3c 33 29 20 2b 20 28  |(notify%<<3) + (|
00008540  6c 61 73 74 25 3c 3c 37  29 0d 35 de 13 62 6c 6f  |last%<<7).5..blo|
00008550  63 6b 25 21 34 20 3d 20  73 75 62 25 0d 35 e8 32  |ck%!4 = sub%.5.2|
00008560  62 6c 6f 63 6b 25 21 38  20 3d 20 31 20 2b 20 28  |block%!8 = 1 + (|
00008570  31 3c 3c 35 29 20 2b 20  28 73 68 61 64 65 25 3c  |1<<5) + (shade%<|
00008580  3c 32 32 29 20 2b 20 28  37 3c 3c 32 34 29 0d 35  |<22) + (7<<24).5|
00008590  f2 04 0d 35 fc 14 e7 20  a9 28 74 65 78 74 24 29  |...5... .(text$)|
000085a0  3c 3d 31 32 20 8c 0d 36  06 1a 20 20 24 28 62 6c  |<=12 ..6..  $(bl|
000085b0  6f 63 6b 25 2b 31 32 29  20 3d 20 74 65 78 74 24  |ock%+12) = text$|
000085c0  0d 36 10 05 cc 0d 36 1a  15 20 20 de 20 78 78 78  |.6....6..  . xxx|
000085d0  25 20 a9 28 74 65 78 74  24 29 0d 36 24 17 20 20  |% .(text$).6$.  |
000085e0  24 78 78 78 25 20 20 20  20 20 3d 20 74 65 78 74  |$xxx%     = text|
000085f0  24 0d 36 2e 23 20 20 62  6c 6f 63 6b 25 21 38 20  |$.6.#  block%!8 |
00008600  20 3d 20 62 6c 6f 63 6b  25 21 38 20 84 20 28 31  | = block%!8 . (1|
00008610  3c 3c 38 29 0d 36 38 16  20 20 62 6c 6f 63 6b 25  |<<8).68.  block%|
00008620  21 31 32 20 3d 20 78 78  78 25 0d 36 42 14 20 20  |!12 = xxx%.6B.  |
00008630  62 6c 6f 63 6b 25 21 31  36 20 3d 20 2d 31 0d 36  |block%!16 = -1.6|
00008640  4c 1e 20 20 62 6c 6f 63  6b 25 21 32 30 20 3d 20  |L.  block%!20 = |
00008650  a9 28 74 65 78 74 24 29  20 2b 20 31 0d 36 56 05  |.(text$) + 1.6V.|
00008660  cd 0d 36 60 04 0d 36 6a  05 e1 0d 36 74 04 0d 36  |..6`..6j...6t..6|
00008670  7e 4c 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |~L--------------|
00008680  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000086b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 36 88 04 0d 36  |----------.6...6|
000086c0  92 41 dd 20 f2 77 72 69  74 65 61 62 6c 65 5f 6d  |.A. .writeable_m|
000086d0  65 6e 75 28 62 6c 6f 63  6b 25 2c 74 69 74 6c 65  |enu(block%,title|
000086e0  24 2c 77 69 64 74 68 25  2c 63 65 6e 74 25 2c 62  |$,width%,cent%,b|
000086f0  75 66 66 25 2c 6c 65 6e  25 2c 76 61 6c 25 29 0d  |uff%,len%,val%).|
00008700  36 9c 04 0d 36 a6 17 24  62 6c 6f 63 6b 25 20 20  |6...6..$block%  |
00008710  20 3d 20 20 74 69 74 6c  65 24 0d 36 b0 12 62 6c  | =  title$.6..bl|
00008720  6f 63 6b 25 3f 31 32 20  3d 20 20 37 0d 36 ba 12  |ock%?12 =  7.6..|
00008730  62 6c 6f 63 6b 25 3f 31  33 20 3d 20 20 32 0d 36  |block%?13 =  2.6|
00008740  c4 12 62 6c 6f 63 6b 25  3f 31 34 20 3d 20 20 37  |..block%?14 =  7|
00008750  0d 36 ce 12 62 6c 6f 63  6b 25 3f 31 35 20 3d 20  |.6..block%?15 = |
00008760  20 30 0d 36 d8 19 62 6c  6f 63 6b 25 21 31 36 20  | 0.6..block%!16 |
00008770  3d 20 31 36 2a 77 69 64  74 68 25 0d 36 e2 12 62  |= 16*width%.6..b|
00008780  6c 6f 63 6b 25 21 32 30  20 3d 20 34 34 0d 36 ec  |lock%!20 = 44.6.|
00008790  12 62 6c 6f 63 6b 25 21  32 34 20 3d 20 20 30 0d  |.block%!24 =  0.|
000087a0  36 f6 04 0d 37 00 2c 62  6c 6f 63 6b 25 21 32 38  |6...7.,block%!28|
000087b0  20 3d 20 28 31 3c 3c 32  29 20 2b 20 28 63 65 6e  | = (1<<2) + (cen|
000087c0  74 25 3c 3c 33 29 20 2b  20 28 31 3c 3c 37 29 0d  |t%<<3) + (1<<7).|
000087d0  37 0a 12 62 6c 6f 63 6b  25 21 33 32 20 3d 20 2d  |7..block%!32 = -|
000087e0  31 0d 37 14 2d 62 6c 6f  63 6b 25 21 33 36 20 3d  |1.7.-block%!36 =|
000087f0  20 31 20 2b 20 28 31 3c  3c 35 29 20 2b 20 28 31  | 1 + (1<<5) + (1|
00008800  3c 3c 38 29 20 2b 20 28  37 3c 3c 32 34 29 0d 37  |<<8) + (7<<24).7|
00008810  1e 15 62 6c 6f 63 6b 25  21 34 30 20 3d 20 62 75  |..block%!40 = bu|
00008820  66 66 25 0d 37 28 14 62  6c 6f 63 6b 25 21 34 34  |ff%.7(.block%!44|
00008830  20 3d 20 76 61 6c 25 0d  37 32 14 62 6c 6f 63 6b  | = val%.72.block|
00008840  25 21 34 38 20 3d 20 6c  65 6e 25 0d 37 3c 04 0d  |%!48 = len%.7<..|
00008850  37 46 05 e1 0d 37 50 04  0d 37 5a 4c 2d 2d 2d 2d  |7F...7P..7ZL----|
00008860  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000088a0  2d 2d 2d 2d 0d 37 64 04  0d 37 6e 22 dd 20 f2 6d  |----.7d..7n". .m|
000088b0  65 6e 75 5f 74 69 63 6b  28 6d 65 6e 75 25 2c 6e  |enu_tick(menu%,n|
000088c0  61 6d 65 24 2c 73 65 74  25 29 0d 37 78 04 0d 37  |ame$,set%).7x..7|
000088d0  82 0b ea 20 69 74 65 6d  25 0d 37 8c 04 0d 37 96  |... item%.7...7.|
000088e0  2a 69 74 65 6d 25 20 3d  20 a4 6d 65 6e 75 5f 69  |*item% = .menu_i|
000088f0  74 65 6d 5f 6e 75 6d 62  65 72 28 6d 65 6e 75 25  |tem_number(menu%|
00008900  2c 6e 61 6d 65 24 29 0d  37 a0 04 0d 37 aa 3d e7  |,name$).7...7.=.|
00008910  20 69 74 65 6d 25 3e 3d  30 20 f2 6d 65 6e 75 5f  | item%>=0 .menu_|
00008920  74 69 63 6b 5f 69 74 65  6d 28 6d 65 6e 75 5f 62  |tick_item(menu_b|
00008930  6c 6f 63 6b 25 28 6d 65  6e 75 25 29 2c 69 74 65  |lock%(menu%),ite|
00008940  6d 25 2c 73 65 74 25 29  0d 37 b4 04 0d 37 be 05  |m%,set%).7...7..|
00008950  e1 0d 37 c8 04 0d 37 d2  4c 2d 2d 2d 2d 2d 2d 2d  |..7...7.L-------|
00008960  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000089a0  2d 0d 37 dc 04 0d 37 e6  24 dd 20 f2 6d 65 6e 75  |-.7...7.$. .menu|
000089b0  5f 74 69 63 6b 5f 74 6f  67 67 6c 65 28 6d 65 6e  |_tick_toggle(men|
000089c0  75 25 2c 6e 61 6d 65 24  29 0d 37 f0 04 0d 37 fa  |u%,name$).7...7.|
000089d0  0b ea 20 69 74 65 6d 25  0d 38 04 04 0d 38 0e 2a  |.. item%.8...8.*|
000089e0  69 74 65 6d 25 20 3d 20  a4 6d 65 6e 75 5f 69 74  |item% = .menu_it|
000089f0  65 6d 5f 6e 75 6d 62 65  72 28 6d 65 6e 75 25 2c  |em_number(menu%,|
00008a00  6e 61 6d 65 24 29 0d 38  18 04 0d 38 22 3f e7 20  |name$).8...8"?. |
00008a10  69 74 65 6d 25 3e 3d 30  20 f2 6d 65 6e 75 5f 74  |item%>=0 .menu_t|
00008a20  69 63 6b 5f 74 6f 67 67  6c 65 5f 69 74 65 6d 28  |ick_toggle_item(|
00008a30  6d 65 6e 75 5f 62 6c 6f  63 6b 25 28 6d 65 6e 75  |menu_block%(menu|
00008a40  25 29 2c 69 74 65 6d 25  29 0d 38 2c 04 0d 38 36  |%),item%).8,..86|
00008a50  05 e1 0d 38 40 04 0d 38  4a 4c 2d 2d 2d 2d 2d 2d  |...8@..8JL------|
00008a60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00008aa0  2d 2d 0d 38 54 04 0d 38  5e 23 dd 20 f2 6d 65 6e  |--.8T..8^#. .men|
00008ab0  75 5f 73 68 61 64 65 28  6d 65 6e 75 25 2c 6e 61  |u_shade(menu%,na|
00008ac0  6d 65 24 2c 73 65 74 25  29 0d 38 68 04 0d 38 72  |me$,set%).8h..8r|
00008ad0  0b ea 20 69 74 65 6d 25  0d 38 7c 04 0d 38 86 2a  |.. item%.8|..8.*|
00008ae0  69 74 65 6d 25 20 3d 20  a4 6d 65 6e 75 5f 69 74  |item% = .menu_it|
00008af0  65 6d 5f 6e 75 6d 62 65  72 28 6d 65 6e 75 25 2c  |em_number(menu%,|
00008b00  6e 61 6d 65 24 29 0d 38  90 04 0d 38 9a 3e e7 20  |name$).8...8.>. |
00008b10  69 74 65 6d 25 3e 3d 30  20 f2 6d 65 6e 75 5f 73  |item%>=0 .menu_s|
00008b20  68 61 64 65 5f 69 74 65  6d 28 6d 65 6e 75 5f 62  |hade_item(menu_b|
00008b30  6c 6f 63 6b 25 28 6d 65  6e 75 25 29 2c 69 74 65  |lock%(menu%),ite|
00008b40  6d 25 2c 73 65 74 25 29  0d 38 a4 04 0d 38 ae 05  |m%,set%).8...8..|
00008b50  e1 0d 38 b8 04 0d 38 c2  4c 2d 2d 2d 2d 2d 2d 2d  |..8...8.L-------|
00008b60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00008ba0  2d 0d 38 cc 04 0d 38 d6  25 dd 20 f2 6d 65 6e 75  |-.8...8.%. .menu|
00008bb0  5f 73 68 61 64 65 5f 74  6f 67 67 6c 65 28 6d 65  |_shade_toggle(me|
00008bc0  6e 75 25 2c 6e 61 6d 65  24 29 0d 38 e0 04 0d 38  |nu%,name$).8...8|
00008bd0  ea 0b ea 20 69 74 65 6d  25 0d 38 f4 04 0d 38 fe  |... item%.8...8.|
00008be0  2a 69 74 65 6d 25 20 3d  20 a4 6d 65 6e 75 5f 69  |*item% = .menu_i|
00008bf0  74 65 6d 5f 6e 75 6d 62  65 72 28 6d 65 6e 75 25  |tem_number(menu%|
00008c00  2c 6e 61 6d 65 24 29 0d  39 08 04 0d 39 12 40 e7  |,name$).9...9.@.|
00008c10  20 69 74 65 6d 25 3e 3d  30 20 f2 6d 65 6e 75 5f  | item%>=0 .menu_|
00008c20  73 68 61 64 65 5f 74 6f  67 67 6c 65 5f 69 74 65  |shade_toggle_ite|
00008c30  6d 28 6d 65 6e 75 5f 62  6c 6f 63 6b 25 28 6d 65  |m(menu_block%(me|
00008c40  6e 75 25 29 2c 69 74 65  6d 25 29 0d 39 1c 04 0d  |nu%),item%).9...|
00008c50  39 26 05 e1 0d 39 30 04  0d 39 3a 4c 2d 2d 2d 2d  |9&...90..9:L----|
00008c60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00008ca0  2d 2d 2d 2d 0d 39 44 04  0d 39 4e 24 dd 20 a4 6d  |----.9D..9N$. .m|
00008cb0  65 6e 75 5f 69 74 65 6d  5f 6e 75 6d 62 65 72 28  |enu_item_number(|
00008cc0  6d 65 6e 75 25 2c 6e 61  6d 65 24 29 0d 39 58 04  |menu%,name$).9X.|
00008cd0  0d 39 62 15 ea 20 6d 61  78 5f 69 74 65 6d 25 2c  |.9b.. max_item%,|
00008ce0  69 74 65 6d 25 0d 39 6c  04 0d 39 76 1d e7 20 6d  |item%.9l..9v.. m|
00008cf0  65 6e 75 25 3e de 28 6d  65 6e 75 24 28 29 2c 32  |enu%>.(menu$(),2|
00008d00  29 20 3d 20 2d 31 0d 39  80 04 0d 39 8a 1c 6d 61  |) = -1.9...9..ma|
00008d10  78 5f 69 74 65 6d 25 20  3d 20 de 28 6d 65 6e 75  |x_item% = .(menu|
00008d20  24 28 29 2c 31 29 0d 39  94 04 0d 39 9e 0d 69 74  |$(),1).9...9..it|
00008d30  65 6d 25 20 3d 20 30 0d  39 a8 32 c8 95 20 69 74  |em% = 0.9.2.. it|
00008d40  65 6d 25 3c 6d 61 78 5f  69 74 65 6d 25 20 80 20  |em%<max_item% . |
00008d50  6d 65 6e 75 24 28 69 74  65 6d 25 2c 6d 65 6e 75  |menu$(item%,menu|
00008d60  25 29 3c 3e 6e 61 6d 65  24 0d 39 b2 10 20 20 69  |%)<>name$.9..  i|
00008d70  74 65 6d 25 20 2b 3d 20  31 0d 39 bc 05 ce 0d 39  |tem% += 1.9....9|
00008d80  c6 04 0d 39 d0 26 e7 20  6d 65 6e 75 24 28 69 74  |...9.&. menu$(it|
00008d90  65 6d 25 2c 6d 65 6e 75  25 29 3d 6e 61 6d 65 24  |em%,menu%)=name$|
00008da0  20 3d 20 69 74 65 6d 25  0d 39 da 04 0d 39 e4 08  | = item%.9...9..|
00008db0  3d 20 2d 31 0d 39 ee 04  0d 39 f8 4c 2d 2d 2d 2d  |= -1.9...9.L----|
00008dc0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00008e00  2d 2d 2d 2d 0d 3a 02 04  0d 3a 0c 28 dd 20 f2 6d  |----.:...:.(. .m|
00008e10  65 6e 75 5f 74 69 63 6b  5f 69 74 65 6d 28 62 6c  |enu_tick_item(bl|
00008e20  6f 63 6b 25 2c 69 74 65  6d 25 2c 73 65 74 25 29  |ock%,item%,set%)|
00008e30  0d 3a 16 04 0d 3a 20 0d  ea 20 6f 66 66 73 65 74  |.:...: .. offset|
00008e40  25 0d 3a 2a 04 0d 3a 34  1b 6f 66 66 73 65 74 25  |%.:*..:4.offset%|
00008e50  20 3d 20 32 38 20 2b 20  32 34 2a 69 74 65 6d 25  | = 28 + 24*item%|
00008e60  0d 3a 3e 04 0d 3a 48 0c  e7 20 73 65 74 25 20 8c  |.:>..:H.. set% .|
00008e70  0d 3a 52 31 20 20 62 6c  6f 63 6b 25 3f 6f 66 66  |.:R1  block%?off|
00008e80  73 65 74 25 20 3d 20 62  6c 6f 63 6b 25 3f 6f 66  |set% = block%?of|
00008e90  66 73 65 74 25 20 84 20  25 30 30 30 30 30 30 30  |fset% . %0000000|
00008ea0  31 0d 3a 5c 05 cc 0d 3a  66 31 20 20 62 6c 6f 63  |1.:\...:f1  bloc|
00008eb0  6b 25 3f 6f 66 66 73 65  74 25 20 3d 20 62 6c 6f  |k%?offset% = blo|
00008ec0  63 6b 25 3f 6f 66 66 73  65 74 25 20 80 20 25 31  |ck%?offset% . %1|
00008ed0  31 31 31 31 31 31 30 0d  3a 70 05 cd 0d 3a 7a 04  |1111110.:p...:z.|
00008ee0  0d 3a 84 05 e1 0d 3a 8e  04 0d 3a 98 4c 2d 2d 2d  |.:....:...:.L---|
00008ef0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00008f30  2d 2d 2d 2d 2d 0d 3a a2  04 0d 3a ac 2a dd 20 f2  |-----.:...:.*. .|
00008f40  6d 65 6e 75 5f 74 69 63  6b 5f 74 6f 67 67 6c 65  |menu_tick_toggle|
00008f50  5f 69 74 65 6d 28 62 6c  6f 63 6b 25 2c 69 74 65  |_item(block%,ite|
00008f60  6d 25 29 0d 3a b6 04 0d  3a c0 0d ea 20 6f 66 66  |m%).:...:... off|
00008f70  73 65 74 25 0d 3a ca 04  0d 3a d4 1b 6f 66 66 73  |set%.:...:..offs|
00008f80  65 74 25 20 3d 20 32 38  20 2b 20 32 34 2a 69 74  |et% = 28 + 24*it|
00008f90  65 6d 25 0d 3a de 04 0d  3a e8 2f 62 6c 6f 63 6b  |em%.:...:./block|
00008fa0  25 3f 6f 66 66 73 65 74  25 20 3d 20 62 6c 6f 63  |%?offset% = bloc|
00008fb0  6b 25 3f 6f 66 66 73 65  74 25 20 82 20 25 30 30  |k%?offset% . %00|
00008fc0  30 30 30 30 30 31 0d 3a  f2 04 0d 3a fc 05 e1 0d  |000001.:...:....|
00008fd0  3b 06 04 0d 3b 10 4c 2d  2d 2d 2d 2d 2d 2d 2d 2d  |;...;.L---------|
00008fe0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00009010  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00009020  3b 1a 04 0d 3b 24 29 dd  20 f2 6d 65 6e 75 5f 73  |;...;$). .menu_s|
00009030  68 61 64 65 5f 69 74 65  6d 28 62 6c 6f 63 6b 25  |hade_item(block%|
00009040  2c 69 74 65 6d 25 2c 73  65 74 25 29 0d 3b 2e 04  |,item%,set%).;..|
00009050  0d 3b 38 0d ea 20 6f 66  66 73 65 74 25 0d 3b 42  |.;8.. offset%.;B|
00009060  04 0d 3b 4c 20 6f 66 66  73 65 74 25 20 3d 20 32  |..;L offset% = 2|
00009070  38 20 2b 20 32 34 2a 69  74 65 6d 25 20 2b 20 31  |8 + 24*item% + 1|
00009080  30 0d 3b 56 04 0d 3b 60  0c e7 20 73 65 74 25 20  |0.;V..;`.. set% |
00009090  8c 0d 3b 6a 31 20 20 62  6c 6f 63 6b 25 3f 6f 66  |..;j1  block%?of|
000090a0  66 73 65 74 25 20 3d 20  62 6c 6f 63 6b 25 3f 6f  |fset% = block%?o|
000090b0  66 66 73 65 74 25 20 84  20 25 30 31 30 30 30 30  |ffset% . %010000|
000090c0  30 30 0d 3b 74 05 cc 0d  3b 7e 31 20 20 62 6c 6f  |00.;t...;~1  blo|
000090d0  63 6b 25 3f 6f 66 66 73  65 74 25 20 3d 20 62 6c  |ck%?offset% = bl|
000090e0  6f 63 6b 25 3f 6f 66 66  73 65 74 25 20 80 20 25  |ock%?offset% . %|
000090f0  31 30 31 31 31 31 31 31  0d 3b 88 05 cd 0d 3b 92  |10111111.;....;.|
00009100  04 0d 3b 9c 05 e1 0d 3b  a6 04 0d 3b b0 4c 2d 2d  |..;....;...;.L--|
00009110  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00009150  2d 2d 2d 2d 2d 2d 0d 3b  ba 04 0d 3b c4 2b dd 20  |------.;...;.+. |
00009160  f2 6d 65 6e 75 5f 73 68  61 64 65 5f 74 6f 67 67  |.menu_shade_togg|
00009170  6c 65 5f 69 74 65 6d 28  62 6c 6f 63 6b 25 2c 69  |le_item(block%,i|
00009180  74 65 6d 25 29 0d 3b ce  04 0d 3b d8 0d ea 20 6f  |tem%).;...;... o|
00009190  66 66 73 65 74 25 0d 3b  e2 04 0d 3b ec 20 6f 66  |ffset%.;...;. of|
000091a0  66 73 65 74 25 20 3d 20  32 38 20 2b 20 32 34 2a  |fset% = 28 + 24*|
000091b0  69 74 65 6d 25 20 2b 20  31 30 0d 3b f6 04 0d 3c  |item% + 10.;...<|
000091c0  00 2f 62 6c 6f 63 6b 25  3f 6f 66 66 73 65 74 25  |./block%?offset%|
000091d0  20 3d 20 62 6c 6f 63 6b  25 3f 6f 66 66 73 65 74  | = block%?offset|
000091e0  25 20 82 20 25 30 31 30  30 30 30 30 30 0d 3c 0a  |% . %01000000.<.|
000091f0  04 0d 3c 14 05 e1 0d 3c  1e 04 0d 3c 28 4c 2d 2d  |..<....<...<(L--|
00009200  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00009240  2d 2d 2d 2d 2d 2d 0d 3c  32 04 0d 3c 3c 26 dd 20  |------.<2..<<&. |
00009250  f2 73 65 6c 65 63 74 5f  69 63 6f 6e 28 77 69 6e  |.select_icon(win|
00009260  64 6f 77 25 2c 69 63 6f  6e 25 2c 73 65 74 25 29  |dow%,icon%,set%)|
00009270  0d 3c 46 04 0d 3c 50 1c  21 77 69 6d 70 5f 62 6c  |.<F..<P.!wimp_bl|
00009280  6f 63 6b 25 20 20 20 3d  20 77 69 6e 64 6f 77 25  |ock%   = window%|
00009290  0d 3c 5a 1a 77 69 6d 70  5f 62 6c 6f 63 6b 25 21  |.<Z.wimp_block%!|
000092a0  34 20 20 3d 20 69 63 6f  6e 25 0d 3c 64 1d 77 69  |4  = icon%.<d.wi|
000092b0  6d 70 5f 62 6c 6f 63 6b  25 21 38 20 20 3d 20 73  |mp_block%!8  = s|
000092c0  65 74 25 3c 3c 32 31 0d  3c 6e 1a 77 69 6d 70 5f  |et%<<21.<n.wimp_|
000092d0  62 6c 6f 63 6b 25 21 31  32 20 3d 20 31 3c 3c 32  |block%!12 = 1<<2|
000092e0  31 0d 3c 78 27 c8 99 20  22 57 69 6d 70 5f 53 65  |1.<x'.. "Wimp_Se|
000092f0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 77 69 6d  |tIconState",,wim|
00009300  70 5f 62 6c 6f 63 6b 25  0d 3c 82 04 0d 3c 8c 05  |p_block%.<...<..|
00009310  e1 0d 3c 96 04 0d 3c a0  4c 2d 2d 2d 2d 2d 2d 2d  |..<...<.L-------|
00009320  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00009360  2d 0d 3c aa 04 0d 3c b4  21 dd 20 f2 75 70 64 61  |-.<...<.!. .upda|
00009370  74 65 5f 69 63 6f 6e 28  77 69 6e 64 6f 77 25 2c  |te_icon(window%,|
00009380  69 63 6f 6e 25 29 0d 3c  be 04 0d 3c c8 1c 21 77  |icon%).<...<..!w|
00009390  69 6d 70 5f 62 6c 6f 63  6b 25 20 20 20 3d 20 77  |imp_block%   = w|
000093a0  69 6e 64 6f 77 25 0d 3c  d2 1a 77 69 6d 70 5f 62  |indow%.<..wimp_b|
000093b0  6c 6f 63 6b 25 21 34 20  20 3d 20 69 63 6f 6e 25  |lock%!4  = icon%|
000093c0  0d 3c dc 16 77 69 6d 70  5f 62 6c 6f 63 6b 25 21  |.<..wimp_block%!|
000093d0  38 20 20 3d 20 30 0d 3c  e6 16 77 69 6d 70 5f 62  |8  = 0.<..wimp_b|
000093e0  6c 6f 63 6b 25 21 31 32  20 3d 20 30 0d 3c f0 27  |lock%!12 = 0.<.'|
000093f0  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00009400  53 74 61 74 65 22 2c 2c  77 69 6d 70 5f 62 6c 6f  |State",,wimp_blo|
00009410  63 6b 25 0d 3c fa 04 0d  3d 04 05 e1 0d ff        |ck%.<...=.....|
0000941e