�     >!RunImage
�     Bio+ file processor
#� By  Dave Acton  Dave Lawrence
(� For 32-bit machines
2$� (c) BAU February & August 1993
<:
F
� q% &400
P$q%="TASK"
Z9ș "Wimp_Initialise",200,!q%,"Bio" � version%,mytask%
dl� � �warn("!Bio has suffered a fatal error ("+�$+" at line "+Þ+") and must exit"):ș "Wimp_CloseDown":�
n	�init
x
�init_sel
�done%=�
��
�! ș "Wimp_Poll",,q% � reason%
� Ȏ reason% �
�  � 1:�redraw(!q%)
�"  � 2:ș "Wimp_OpenWindow",,q%
�  � 3:�close(!q%)
�+  � 6:�mouse(!q%,q%!4,q%!8,q%!12,q%!16)
�  � 7:�drag
�5  � 8:�key(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24)
�  � 9:�menu_select
�  � 17,18:�message
�  � 19:�pop_up_save

 �

� done%

�close_down

"�

,:

6� �init

@>� ind% &1400,string% &100,menubuf% &300,_word% 4,_star% 12

J;� temp% &100,ic% 64,mess% &100,pixtrans% &100,scale% 16

Tind_end%=ind%+&1400

^ library$="<Bio$Dir>.Library"

hjunk$="<Bio$Junk>"

rBtype_def$="in/k,out=results/k,directory=dir/s,send/s,window/s"

|max_lib_files%=32

�
border%=8

�9� lib_file$(max_lib_files%),lib_proc$(max_lib_files%)

�:� lib_name$(max_lib_files%),lib_flags%(max_lib_files%)

�6� lib_in%(max_lib_files%),lib_out%(max_lib_files%)

�;� proc_icon%(max_lib_files%),wind_hand%(max_lib_files%)

�8� r$(max_lib_files%,10),result_hand%(max_lib_files%)

�<� running%(max_lib_files%),result_title%(max_lib_files%)

�"� result_open%(max_lib_files%)

�lib_files%=0

�lib_sprite_size%=16

��find_procedures(library$)

�#� lib_sprites% lib_sprite_size%

�"!lib_sprites%=lib_sprite_size%
lib_sprites%!4=0
lib_sprites%!8=16
lib_sprites%!12=16
&�load_palettes
0�load_data(library$)
:ȣ lib_file$()
D�init_procedures
N1ș "Wimp_OpenTemplate",,"<Bio$Dir>.Templates"
X� i%=1 � lib_files%
b  � (lib_flags%(i%) � 40)>0 �
lC  ș "Wimp_LoadTemplate",,q%,ind%,ind_end%,-1,"result" � ,,ind%
v>  � (lib_flags%(i%) � 32)>0 � q%!28=q%!28 � (%1111111<<24)
�  q%!4+=�(400)-200
�  q%!16+=�(400)-200
�  result_title%(i%)=q%!72
�3  ș "Wimp_CreateWindow",,q% � result_hand%(i%)
� �
��
�Cș "Wimp_LoadTemplate",,q%,ind%,ind_end%,-1,"progInfo" � ,,ind%
�+ș "Wimp_CreateWindow",,q% � info_hand%
�?ș "Wimp_LoadTemplate",,q%,ind%,ind_end%,-1,"save" � ,,ind%
�+ș "Wimp_CreateWindow",,q% � save_hand%
�ș "Wimp_CloseTemplate"
�&savetext=�ic_addr(save_hand%,2,28)
�&savetype=�ic_addr(save_hand%,1,32)
$savetext="Result"
menuptr%=menubuf%
menudat%=menubuf%+&300
 .proc_menu%=�make_men_raw(pmenu%,"Process")
*@main_menu%=�make_men("Info,Process,Set default,Quit,","Bio")
4&all_menu%=�make_men("All,","Quit")
>-�attach_sub_menu(info_hand%,main_menu%,0)
H-�attach_sub_menu(proc_menu%,main_menu%,1)
R,�attach_sub_menu(all_menu%,main_menu%,3)
\cur_setup_hand%=-1
f*xdragstart%=�swi("XDragASprite_Start")
psave_proc%=-1
z�
�:
�� �find_procedures(dir$)
�� n%,r%
�n%=0
�
ȕ n%<>-1
�8 ș "OS_GBPB",10,dir$,temp%,1,n%,&100,"*" � ,,,r%,n%
�
 � r%=1 �
�  file$=�get_str(temp%+20)
�  � temp%!16=2 �
�'   �find_procedures(dir$+"."+file$)
�  �
�&   Ȏ ((!temp%) � &FFF00) � &100 �
�    � &FF9:
"     lib_sprite_size%+=temp%!8
    � &FFB:
     lib_files%+=1
$)     lib_proc$(lib_files%)=�lc(file$)
.-     lib_file$(lib_files%)=dir$+"."+file$
8   �
B  �
L �
V�
`�
j:
t� �load_data(dir$)
~� n%,r%,file$
�n%=0
�
ȕ n%<>-1
�8 ș "OS_GBPB",10,dir$,temp%,1,n%,&100,"*" � ,,,r%,n%
�
 � r%=1 �
�  file$=�get_str(temp%+20)
�  � temp%!16=2 �
�!   �load_data(dir$+"."+file$)
�  �
�&   Ȏ ((!temp%) � &FFF00) � &100 �
�    � &FF9:
�:     ș "OS_SpriteOp",&10B,lib_sprites%,dir$+"."+file$
�    � &FEC:
/     ș "Wimp_OpenTemplate",,dir$+"."+file$

     wind%=0

     �
      $_star%="*"
(W      ș "Wimp_LoadTemplate",,q%,ind%,ind_end%,-1,_star%,wind% � ,,newind%,,,,wind%
2      � wind%<>0 �
<2       proc%=�find_proc(�lc(�get_str(_star%)))
F       � proc%>0 �
P        ind%=newind%
Z:        ș "Wimp_CreateWindow",,q% � wind_hand%(proc%)
d        wind%=0
n       �
x      �
�     � wind%=0
�      ș "Wimp_CloseTemplate"
�   �
�  �
� �
��
��
�:
�� �find_proc(proc$)
�� i%
�i%=lib_files%+1
��
�
 i%-=1
 � i%=0 � proc$=lib_proc$(i%)
=i%
:
"� �find_elem(e%,a%())
,� i%
6i%=lib_files%+1
@�
J
 i%-=1
T� i%=0 � e%=a%(i%)
^=i%
h:
r� �init_procedures
|(� lib_spr%(lib_files%,1),pmenu% &400
�)lib_spr%(0,0)=�sprite_address("Bio4")
�)lib_spr%(0,1)=�sprite_address("Bio2")
�pmp%=pmenu%
�� i%=1 � lib_files%
�6 lib_spr%(i%,0)=�sprite_address(lib_proc$(i%)+"4")
�6 lib_spr%(i%,1)=�sprite_address(lib_proc$(i%)+"2")
�0 lib_name$(i%)=�("FN"+lib_proc$(i%)+"_name")
�( type$=�("FN"+lib_proc$(i%)+"_args")
�- ș "OS_ReadArgs",type_def$,type$,q%,&400
� files_in%=(q%!0<>0)
� is_out%=(q%!4<>0)
� dirs_in%=(q%!8<>0)
� send_out%=(q%!12<>0)
 wind_out%=(q%!16<>0)
 files_out%=�
 data_out%=�
&7 � files_in% lib_in%(i%)=�file_type(�get_str(q%!0))
0 � is_out% �
:  out$=�get_str(q%!4)
D  � ûout$=out$ �
N   lib_out%(i%)=�out$
X   data_out%=�
b  �
l$   lib_out%(i%)=�file_type(out$)
v   files_out%=�
�  �
� �
� lib_flags%(i%)=(files_in% � 1) � (dirs_in% � 2) � (files_out% � 4) � (data_out% � 8) � (send_out% � 16) � (wind_out% � 32)
� wind_hand%=wind_hand%(i%)
�$ z=�("FN"+lib_proc$(i%)+"_init")
� $pmp%=lib_name$(i%)+","
� pmp%+=�($pmp%)
��
��
�:
�� �sprite_address(spr$)
�9ș "XOS_SpriteOp",&118,lib_sprites%,spr$ � ,,addr%;ok
�� (ok � 1)>0 addr%=0

=addr%
:
� �init_sel
 in%=�("<Bio$Dir>.!Choices")
*running%=0
4� in%<>0 �
> ȕ � �#in%
H"  proc%=�find_proc(�lc(�#in%))
RG  � proc%>0 �start_proc(proc%):running%+=1:running%(running%)=proc%
\ �
f � #in%
p�
z� running%=0 �start_proc(0)
��
�:
�� �start_proc(proc%)
�!ic%=-1
�7� �mv(5)=1 � lib_spr%(proc%,1)<>0 icon%=1 � icon%=0
�ic%!4=0
�ic%!8=0
�/ic%!12=�sprite_width(lib_spr%(proc%,icon%))
�0ic%!16=�sprite_height(lib_spr%(proc%,icon%))
�ic%!20=&7000311A
� ic%!24=lib_spr%(proc%,icon%)
�ic%!28=lib_sprites%
�ic%!32=0
	1ș "Wimp_CreateIcon",,ic% � proc_icon%(proc%)
	�
	:
	$� �select_proc(proc%,but%)
	.� proc_icon%(proc%)>0 �
	8 �kill_proc(proc%)
	B�
	L- � running%=0 �delete_icon(proc_icon%(0))
	V �start_proc(proc%)
	` running%+=1
	j running%(running%)=proc%
	t�
	~�
	�:
	�� �kill_proc(proc%)
	�#�delete_icon(proc_icon%(proc%))
	�proc_icon%(proc%)=0
	�?� cur_setup_hand%=wind_hand%(proc%) �close(cur_setup_hand%)
	�5� result_open%(proc%) �close(result_hand%(proc%))
	�)run_pos%=�find_elem(proc%,running%())
	�running%(run_pos%)=0
	�ȕ run_pos%<running%
	�, running%(run_pos%)=running%(run_pos%+1)
	� run_pos%+=1
	��
running%-=1

� running%=0 �start_proc(0)
�
:
(� �delete_icon(ic%!4)
2!ic%=-1
<ș "Wimp_DeleteIcon",,ic%
F�
P:
Z� �leaf_name(s$)
dȕ �s$,".")>0
n s$=�s$,�s$,".")+1)
x�
�=s$
�:
�� �get_str(a%)
�� a$
�ȕ ?a%>=32
� a$=a$+�?a%
�
 a%+=1
��
�=a$
�:
�"� �make_men($temp%,menutitle$)
�$=�make_men_raw(temp%,menutitle$)
�:
#� �make_men_raw(mp%,menutitle$)
� menumax%,wasptr%,item$
wasptr%=menuptr%
"menumax%=0
,menuptr%!20=44
6$menuptr%=menutitle$
@menuptr%!12=&70207
Jmaxaddr%=menuptr%+16
Tmenuptr%!24=0
^menuptr%+=28
h�
r
 item$=""
| ȕ ?mp%<>44
�  item$+=�?mp%
�  mp%+=1
� �
� mp%+=1
�* � �(item$)>menumax% menumax%=�(item$)
� menuptr%!0=0
� menuptr%!4=-1
� menuptr%!8=&7000021
� � �(item$)<12 �
�  $(menuptr%+12)=item$
� �
�  menudat%-=�(item$)+1
�  $menudat%=item$
  menuptr%!12=menudat%
  menuptr%!16=-1
  menuptr%!20=�(item$)
&  menuptr%!8+=&100
0 �
: menuptr%+=24
D
� ?mp%<32
N%menuptr%!-24=(menuptr%!-24) � &80
X!maxaddr%=menumax%*16+32
b=wasptr%
l:
v"� �attach_sub_menu(m1%,m2%,i%)
�m2%!(32+24*i%)=m1%
��
�:
�� �open_menu(m%,x%,y%)
�� i%
�� i%=1 � lib_files%
�, �tick(proc_menu%,i%-1,proc_icon%(i%)>0)
��
�
menux%=x%
�
menuy%=y%
�"ș "Wimp_CreateMenu",,m%,x%,y%
��
�:

� �menu_select

#ș "Wimp_GetPointerInfo",,temp%

redo%=((temp%!8) � 1)>0

 Ȏ !q% �

*/ � 1:� q%!4>=0 �select_proc(q%!4+1,temp%!8)

4 � 2:�set_default

>G � 3:redo%=�:� q%!4>=0 � running%=0 done%=� � �kill_proc(bar_proc%)

H�

R0� redo% �open_menu(main_menu%,menux%,menuy%)

\�

f:

p� �set_default

z
� out%

� out%=�("<Bio$Dir>.!Choices")

�� running%>0 �

� � i%=1 � running%

�)  �bput(out%,lib_proc$(running%(i%)))

� �

��

�� #out%

��

�:

�� �tick(a%,i%,c%)

�a%=a%+28+24*i%

�,� c% � !a%=!a% � 1 � !a%=!a% � &FFFFFFFE

��
:
� �warn(w$)

!temp%=17
$$(temp%+4)=w$
.'ș "Wimp_ReportError",temp%,1,"Bio"
8�
B:
L.� �mouse(mousex%,mousey%,b%,handle%,icon%)
V� shand%,proc%
`,bar_proc%=�find_elem(icon%,proc_icon%())
j� (b% � 5)>0 �
t Ȏ handle% �
~  � save_hand%:
�   Ȏ icon% �
�:    � 0:� �save(�get_str(savetext)) �close(save_hand%)
�'    � 1:�init_save_drag(save_hand%)
�   �
�  � -2:
�#   shand%=wind_hand%(bar_proc%)
�   � shand%>0 �
�5    � cur_setup_hand%<>-1 �close(cur_setup_hand%)
�    cur_setup_hand%=shand%
�    !q%=shand%
�$    ș "Wimp_GetWindowState",,q%
�    q%!28=-1
     ș "Wimp_OpenWindow",,q%

   �
  :
-   proc%=�find_elem(handle%,wind_hand%())
(   � proc%>0 �
2f    e=�("FN"+lib_proc$(proc%)+"_mouse("+�mousex%+","+�mousey%+","+�b%+","+�handle%+","+�icon%+")")
<    � e �process(proc%,"")
F   �
P �
Z�
d  � (b% � 2)>0 � handle%=-2 �
nV  � bar_proc%=0 �label_main("Bio") � �label_main(�leaf_name(lib_file$(bar_proc%)))
x+  �open_menu(main_menu%,mousex%-64,272)
� �
�G � (b% � 2)>0 � handle%<>-2 �open_spr_save(mousex%,mousey%,handle%)
��
��
�:
�� �label_main(title$)
�� i%=0 � �title$
�& main_menu%?i%=��title$+�0,i%+1,1)
��
��
�:
�� �file_type(name$)
�� type%,ok
� name$="*" � =-1
,ș "XOS_FSControl",31,name$ � ,,type%;ok
7� (ok � 1)>0 �warn("Unknown file type '"+name$+"'")
"
=type%
,:
6� �message
@� proc%
J�copy(q%,mess%,&100)
TȎ mess%!16 �
^ � 0:done%=�
h	 � 1:
r  cur_proc%=�which_proc
|)  � �allow_type(mess%!40,cur_proc%) �
�   mess%!36=-1
�$   $(mess%+44)="<Wimp$Scrap>"+�0
�   mess%!12=mess%!8
�   mess%!16=2
�   !mess%=60
�-   ș "Wimp_SendMessage",17,mess%,mess%!4
�  �
�   �bad_file_type
�  �
�	 � 2:
�#  � �save(�get_str(mess%+44)) �
�   mess%!12=mess%!8
�   mess%!16=3
-   ș "Wimp_SendMessage",17,mess%,mess%!4
   �close(save_hand%)
  �
&	 � 3:
0  proc%=�which_proc
:%  � �allow_type(mess%!40,proc%) �
D)   �process(proc%,�get_str(mess%+44))
N   mess%!12=mess%!8
X   mess%!16=4
b-   ș "Wimp_SendMessage",17,mess%,mess%!4
l  �
v   �bad_file_type
�  �
� � &502:�int_help
� � 9:�palette_change
��
��
�:
�� �bad_file_type
��warn("Invalid file type")
��
�:
�� �which_proc
�!ș "Wimp_GetPointerInfo",,ic%
�2� ic%!12=-2 � =�find_elem(ic%!16,proc_icon%())
H=�find_elem(ic%!12,wind_hand%()) � �find_elem(ic%!12,result_hand%())
:
� �allow_type(given%,proc%)
 A� (given%=&1000 � given%=&2000) � =(lib_flags%(proc%) � 2)<>0
*P� (lib_flags%(proc%) � 1) � (lib_in%(proc%)=-1 � lib_in%(proc%)=given%) � =�
4=�
>:
H� �copy(from%,to%,bytes%)
R� i%
\� i%=0 � bytes%-1 � 4
f to%!i%=from%!i%
p�
z�
�:
�� �process(proc%,file$)
�� e$,z,x,y,b,i%
�cur_proc%=proc%
�1� cur_setup_hand%<>-1 �close(cur_setup_hand%)
�5� result_open%(proc%) �close(result_hand%(proc%))
�'� save_proc%<>-1 �close(save_hand%)
�ȗ x,y,b
�-e$="FN"+lib_proc$(proc%)+"("""+file$+""""
�)makes_file%=(lib_flags%(proc%) � 4)>0
�,makes_results%=(lib_flags%(proc%) � 8)>0
�,makes_window%=(lib_flags%(proc%) � 32)>0
�(send_out%=(lib_flags%(proc%) � 16)>0

Ȏ � �
 � makes_file%:
  e$+=","""+junk$+""""
$ � makes_results%:
.  � i%=0 � lib_out%(proc%)
8$   e$+=",r$("+�proc%+","+�i%+")"
B  �
L�
Ve$+=")"
`ș "Hourglass_On"
j wind_hand%=wind_hand%(proc%)
tclaimed%=�
~z=�(e$)
�� claimed% �release_memory
�� makes_window% �
�@ � spr_base%<>0 � ș "XOS_SpriteOp",&13C,spr_base%,0,1 � z=�
��
�ș "Hourglass_Off"
�� z=0 �
� Ȏ � �
�  � makes_results%:
�C   � r$(proc%,0)="" � �r$(proc%,0),1)="<" r$(proc%,0)="Results"
�   �open_result(proc%)
�  � makes_file%:
�,   ș "OS_File",18,junk$,lib_out%(proc%)
   � send_out% �

    $q%=�44,�0)+junk$
    q%!16=5
    q%!40=lib_out%(proc%)
(#    !q%=((�(junk$)+4) � � 3)+44
2%    ș "Wimp_SendMessage",18,q%,0
<   �
F    window_title$="Result"
P3    �open_save(x-64,y-64,lib_out%(proc%),proc%)
Z   �
d3  � makes_window%:�open_output(proc%,spr_base%)
n �
x�
��
�:
�� �pop_up_save
�� x,y,b
�ȗ x,y,b
�window_title$="Result"
�7�open_save(x-64,y-64,lib_out%(cur_proc%),cur_proc%)
��
�:
�� �open_result(proc%)
�� i%,maxw%
�5� result_open%(proc%) �close(result_hand%(proc%))
�%$result_title%(proc%)=r$(proc%,0)
maxw%=0
� i%=0 � lib_out%(proc%)
2 � �(r$(proc%,i%))>maxw% maxw%=�(r$(proc%,i%))
"�
,	!q%=0
6(q%!4=-(2*border%+40*lib_out%(proc%))
@q%!8=16*maxw%+2*border%
Jq%!12=0
T.ș "Wimp_SetExtent",result_hand%(proc%),q%
^!q%=result_hand%(proc%)
h ș "Wimp_GetWindowState",,q%
r!q%!12=q%!4+16*maxw%+2*border%
|-q%!8=q%!16-(2*border%+40*lib_out%(proc%))
�q%!28=-1
�ș "Wimp_OpenWindow",,q%
�result_open%(proc%)=�
��
�:
� � �open_save(x%,y%,type%,p%)
�� w%,h%
�'$savetype="Sfile_"+�"FF"+�~type%,3)
�$savetext=window_title$
�!q%=save_hand%
�ș "Wimp_GetWindowInfo",,q%
�w%=q%!12-q%!4
�h%=q%!16-q%!8
q%!4=x%
q%!8=y%
q%!12=x%+w%
&q%!16=y%+h%
0q%!20=0
:q%!24=0
Dq%!28=-1
Nș "Wimp_OpenWindow",,q%
Xsave_proc%=p%
b�
l:
v� �drag
�,� xdragstart%<>-1 ș "XDragASprite_Stop"
� ș "Wimp_GetPointerInfo",,q%
�q%!32=q%!4:q%!28=!q%
�q%!24=q%!16:q%!20=q%!12
�q%!16=1:q%!12=0
�'� (lib_flags%(save_proc%) � 32)>0 �
� q%!40=&FF9
� q%!36=spritesize%+20
��
�)ș "OS_File",5,junk$ � ,,q%!40,,q%!36
�!q%!40=(q%!40 � &FFF00) � &100
��
�0$(q%+44)=�leaf_name(�get_str(savetext))+�(0)

!q%=60
+ș "Wimp_SendMessage",17,q%,q%!20,q%!24
�
 :
*6� �key(hand%,icon%,xcar%,ycar%,carh%,carpos%,key%)
4� proc%
>"� hand%=save_hand% � key%=13 �
H3 � �save(�get_str(savetext)) �close(save_hand%)
R�
\) proc%=�find_elem(hand%,wind_hand%())
f � proc%=0 �
p  ș "Wimp_ProcessKey",key%
z �
�v  e=�("FN"+lib_proc$(proc%)+"_key("+�hand%+","+�icon%+","+�xcar%+","+�ycar%+","+�carh%+","+�carpos%+","+�key%+")")
�  � e �process(proc%,"")
� �
��
��
�:
�!� �init_save_drag(save_hand%)
�� x%,y%,ysize%
�!q%=save_hand%
� ș "Wimp_GetWindowState",,q%
�ysize%=q%!16-q%!8
�x%=q%!4
�y%=q%!8

q%!4=1
ș "Wimp_GetIconState",,q%
q%!8+=x%
$q%!12+=y%+ysize%
.
q%!16+=x%
8q%!20+=y%+ysize%
Bq%!24=0
Lq%!28=0
Vq%!32=(�mv(11)+1)<<�mv(4)
`q%!36=(�mv(12)+1)<<�mv(5)
j	!q%=0
t
q%!4=5
~|� xdragstart%<>-1 � (�read_cmos(28) � 2)>0 � ș xdragstart%,%11000101,1,$(savetype+1),q%+8,q%+24 � ș "Wimp_DragBox",,q%
��
�:
�
� �mv(m%)
�� v%
�)ș "OS_ReadModeVariable",-1,m% � ,,v%
�=v%
�:
�� �save(save$)
�� saved%
�� �good_save_name(save$) �
�
 �save_it
�
 saved%=�
�

; �warn("To save, drag the icon to a directory viewer.")

 saved%=�
�
(=saved%
2:
<� �good_save_name(save$)
F9=save$="<Wimp$Scrap>" � �save$,":")>0 � �save$,".")>0
P:
Z � �ic_addr(hand%,icon%,off%)
d!ic%=hand%
nic%!4=icon%
xș "Wimp_GetIconState",,ic%
�
=ic%!off%
�:
�� �close(hand%)
�� proc%
�
!q%=hand%
�ș "Wimp_CloseWindow",,q%
�:� hand%=save_hand% ș "XOS_File",6,junk$:save_proc%=-1
�0� hand%=cur_setup_hand% � cur_setup_hand%=-1
�*proc%=�find_elem(hand%,result_hand%())
�� proc%>0 �close2
��
�:
�� �redraw(hand%)
� i%,more%,ax0%,ay0%,proc%
*proc%=�find_elem(hand%,result_hand%())
>� (lib_flags%(proc%) � 32)>0 �redraw_output(hand%,proc%):�
"&ș "Wimp_RedrawWindow",,q% � more%
,ȕ more%
6 ax0%=q%!4-q%!20
@ ay0%=q%!16-q%!24
J � i%=1 � lib_out%(proc%)
T-  � ax0%+border%,ay0%-8-border%-40*(i%-1)
^  � r$(proc%,i%)
h �
r' ș "Wimp_GetRectangle",,q% � more%
|�
��
�:
�
� �uc(a$)
�� i%,c$
�� i%=1 � �(a$)
� c$=�a$,i%,1)
�, � c$>="a" � c$<="z" �a$,i%,1)=�(�c$-32)
��
�=a$
�:
�
� �lc(a$)
�� i%
�� i%=1 � �(a$)
 c$=�a$,i%,1)
, � c$>="A" � c$<="Z" �a$,i%,1)=�(�c$+32)
�
&=a$
0:
:� �strip_spaces(str$)
Dȕ �str$,1)=" "
N str$=�str$,2)
X�
bȕ �str$,1)=" "
l str$=�str$)
v�
�	=str$
�:
�� �bput(f%,str$)
�� #f%,str$+�10;
��
�:
�� �wput(f%,!_word%)
�ș "OS_GBPB",2,f%,_word%,4
��
�:
�� �wget(f%)
�ș "OS_GBPB",4,f%,_word%,4
�=!_word%
:
'� �write_in_icon(hand%,icon%,text$)
#$�ic_addr(hand%,icon%,28)=text$
 ic%!8=0:ic%!12=0
*ș "Wimp_SetIconState",,ic%
4#ș "Wimp_GetCaretPosition",,ic%
>W� !ic%=hand% � ic%!4=icon% ș "Wimp_SetCaretPosition",!ic%,ic%!4,ic%!8,ic%!12,-1,-1
H�
R:
\� �icon_text(wind%,icon%)
f=$�ic_addr(wind%,icon%,28)
p:
z$� �set_button(!ic%,ic%!4,state%)
�ic%!8=state%<<21
�ic%!12=1<<21
�ș "Wimp_SetIconState",,ic%
��
�:
�� �button_state(!ic%,ic%!4)
�ș "Wimp_GetIconState",,ic%
�=�(ic%!(8+16) � 1<<21)
�:
�� �esg_state(wind%,esg%)
�Bș "Wimp_WhichIcon",wind%,ic%,%111111<<16,(esg%<<16) � (1<<21)
�	=!ic%
�:
!� �hourglass(current,maximum)
>� maximum<>0 ș "Hourglass_Percentage",current*100/maximum
�
$:
.� �sprite_width(spr%)
8� width%,mode%
B?ș "OS_SpriteOp",&228,lib_sprites%,spr% � ,,,width%,,,mode%
L=width%<<�var(mode%,4)
V:
`� �sprite_height(spr%)
j� height%,mode%
t@ș "OS_SpriteOp",&228,lib_sprites%,spr% � ,,,,height%,,mode%
~=height%<<�var(mode%,5)
�:
�� �var(mode%,var%)
�� v%
�.ș "OS_ReadModeVariable",mode%,var% � ,,v%
�=v%
�:
�� �int_help
�mess%!12=mess%!8
�mess%!16=&503
�+help$=�get_help_text(mess%!32,mess%!36)
�$(mess%+20)=�help$,232)
�!mess%=(� help$+25) � � 3
*ș "Wimp_SendMessage",17,mess%,mess%!4

�
:
#� �get_help_text(window%,icon%)
(� help$,i%
2Ȏ window% �
<
 � -2:
F'  i%=�find_elem(icon%,proc_icon%())
P  � i%=0 �
ZO   help$="This is the BIO icon. There are currently no BIO modules running"
d  �
nO   help$="This is the "+lib_name$(i%)+" icon.|M"+�help(-1,-1,lib_proc$(i%))
x  �
� � info_hand%:
�9  help$="This window displays information about BIO."
� � save_hand%
�  Ȏ icon% �
�A   � -1:help$="This box allows you to save your edited file."
��   � 0:help$="Click here to save the data with the current filename. If it is not a full pathname, you must drag the icon to a directory first."
��   � 1:help$="Drag this icon to the directory in which you want to save the file. Or, drag it to the program into which you want to transfer the data."
�   � 2:help$="This shows the filename for this data. If it is not a full pathname, drag the icon into a directory display."
�  �
�
�( i%=�find_elem(window%,wind_hand%())
�
 � i%>0 �
�^  help$="This is the "+lib_name$(i%)+" set up window|M"+�help(window%,icon%,lib_proc$(i%))
 �
+  i%=�find_elem(window%,result_hand%())
S  help$="This is the output from "+lib_name$(i%)+"|M"+�help(1,-1,lib_proc$(i%))
" �
,�
6
=help$
@:
J"� �help(window%,icon%,module$)
T� h$
^� �
h� � � � �:=""
r-h$=�("FN"+module$+"_help(window%,icon%)")
|� �
�=h$
�:
�*� �help_on_icon(window%,icon%,h1$,h2$)
�2� �button_state(window%,icon%)=0 � =h1$ � =h2$
�:
�� �swi(swi$)
�� swi%,ok%
�1ș "XOS_SWINumberFromString",,swi$ � swi%;ok%
�� (ok% � 1)>0 swi%=-1
�	=swi%
�:
�� �read_cmos(byte%)
�$ș "OS_Byte",161,byte% � ,,byte%
 
=byte%
 :
 � �close_down
 &� running%>0 �
 0 � i%=1 � running%
 :  proc%=running%(i%)
 D7  � result_open%(proc%) �close(result_hand%(proc%))
 N �
 X�
 bș "Wimp_CloseDown"
 l�
 v:
 �� �load_palettes
 �3ș "OS_File",5,"<Bio$Dir>.Palettes" � ,,,,plen%
 �� palettes% plen%+16
 �!palettes%=plen%+16
 �palettes%!8=16
 �$ș "XOS_SpriteOp",&109,palettes%
 �9ș "XOS_SpriteOp",&10A,palettes%,"<Bio$Dir>.Palettes"
 ��
 �:
 �#� �open_spr_save(x%,y%,handle%)
 �� proc%
 �,proc%=�find_elem(handle%,result_hand%())
 �� proc%<>0 �
!N � (lib_flags%(proc%) � 32)>0 �open_save(mousex%-64,mousey%-64,&FF9,proc%)
!�
!�
! :
!*� �palette_change
!4� i%,proc%
!>� i%=1 � running%
!H proc%=running%(i%)
!RZ � result_open%(proc%) � (lib_flags%(proc%) � 32)>0 �force_redraw(result_hand%(proc%))
!\�
!f�
!p:
!z� �force_redraw(hand%)
!�1ș "Wimp_ForceRedraw",hand%,-1E8,-1E8,1E8,1E8
!��
!�:
!�-� �create_window(mode%,xres%,yres%,name$)
!�7� xres%<0 xres%=-xres% � xres%=xres%>>�var(mode%,4)
!�7� yres%<0 yres%=-yres% � yres%=yres%>>�var(mode%,5)
!�5spr_base%=�make_a_sprite(name$,xres%,yres%,mode%)
!�� spr_base%=0 �
!�- �warn("Not enough RMA to create window")
!��
!�+ ș "XOS_SpriteOp",&13C,spr_base%,name$
!� window_title$=name$
!��
"=spr_base%
":
"-� �make_a_sprite(sprn$,sprx%,spry%,sprm%)
"$&� sprm%=3 � sprm%=6 � sprm%=7 � =0
".pals%=�var(sprm%,3)+1
"8log2bpp%=�var(sprm%,10)
"BAspritesize%=spry%*(((sprx%<<log2bpp%)+31)��31) � 8+44+pals%*8
"L2ș "XOS_Module",6,,,spritesize%+20 � ,,rma%;ok
"V� (ok � 1)>0 � =0
"`!rma%=spritesize%+20
"j
rma%!8=16
"tș "XOS_SpriteOp",&109,rma%
"~9ș "XOS_SpriteOp",&10F,rma%,sprn$,1,sprx%,spry%,sprm%
"�.�copy_palette(palettes%,�pals%,rma%,sprn$)
"�	=rma%
"�:
"�.� �copy_palette(base1%,spr1$,base2%,spr2$)
"�� i%,a%,b%,c%
"�5ș "XOS_SpriteOp",&125,base1%,spr1$,-1 � ,,,c%,b%
"�3ș "XOS_SpriteOp",&125,base2%,spr2$,-1 � ,,,,a%
"�� i%=0 � c%*8-1 � 4
"� a%!i%=b%!i%
"��
"��
"�:
#� �desktop_palette
#
� i%,pals%
#?ș "OS_SpriteOp",&128,spr_base%,window_title$ � ,,,,,,sprm%
#pals%=�var(sprm%,3)+1
#(O� pals%=4 � pals%=16 �copy_palette(palettes%,�pals%+"w",spr_base%,"Output")
#2�
#<:
#F� �current_palette
#P� entries%,palette%
#ZLș "XOS_SpriteOp",&125,spr_base%,window_title$,-1 � ,,,entries%,palette%
#d� entries%<>64 �
#n � i%=0 � entries%-1
#x3  ș "OS_ReadPalette",i%,16 � ,,palette%!(i%*8)
#�	 � i%
#��
#��
#�:
#�� �vdu19(c%,r%,g%,b%)
#�� entries%,palette%
#�Lș "XOS_SpriteOp",&125,spr_base%,window_title$,-1 � ,,,entries%,palette%
#�D� c%<entries% palette%!(c%*8)=16 � (r%<<8) � (g%<<16) � (b%<<24)
#��
#�:
#�� �save_it
#�(� (lib_flags%(save_proc%) � 32)<>0 �
#�: ș "XOS_SpriteOp",&10C,result_open%(save_proc%),save$
$�
$) ș "OS_FSControl",26,junk$,save$,&82
$�
$"�
$,:
$6
� �close2
$@;� (lib_flags%(proc%) � 32)>0 � result_open%(proc%)<>0 �
$J* ș "OS_Module",7,,result_open%(proc%)
$T � save_proc%<>-1 �
$^  !q%=save_hand%
$h  ș "Wimp_CloseWindow",,q%
$r  save_proc%=-1
$| �
$��
$�result_open%(proc%)=�
$��
$�:
$�!� �redraw_output(hand%,proc%)
$�� i%,more%,ax0%,ay0%
$�Oș "XOS_SpriteOp",&128,result_open%(proc%),window_title$ � ,,,,spry%,,mode%
$�xeig%=�var(mode%,4)
$�yeig%=�var(mode%,5)
$�Vș "ColourTrans_SelectTable",result_open%(proc%),window_title$,-1,-1,pixtrans%,%00
$�!scale%=1<<xeig%
$�scale%!4=1<<yeig%
$�scale%!8=1<<�var(�,4)
%scale%!12=1<<�var(�,5)
%&ș "Wimp_RedrawWindow",,q% � more%
%ax0%=q%!4-q%!20
%&#ay0%=q%!16-q%!24-(spry%<<yeig%)
%0ȕ more%
%:Z ș "XOS_SpriteOp",&134,result_open%(proc%),window_title$,ax0%,ay0%,0,scale%,pixtrans%
%D' ș "Wimp_GetRectangle",,q% � more%
%N�
%X�
%b:
%l � �open_output(proc%,sbase%)
%v'$result_title%(proc%)=window_title$
%�Gș "XOS_SpriteOp",&128,sbase%,window_title$ � ,,,sprx%,spry%,,mode%
%�sprx%=sprx%<<�var(mode%,4)
%�spry%=spry%<<�var(mode%,5)
%�	!q%=0
%�q%!4=-spry%
%�q%!8=sprx%
%�q%!12=0
%�.ș "Wimp_SetExtent",result_hand%(proc%),q%
%�!q%=result_hand%(proc%)
%� ș "Wimp_GetWindowState",,q%
%�q%!12=q%!4+sprx%
%�q%!8=q%!16-spry%
%�q%!28=-1
&ș "Wimp_OpenWindow",,q%
&result_open%(proc%)=sbase%
&�
& :
&*%� �claim_memory(� ptr%,� amount%)
&4
� mem%
&>2ș "Wimp_SlotSize",-1,-1 � wimp_current%,,mem%
&H3ș "Wimp_SlotSize",wimp_current%+mem%,-1 � mem%
&R
ptr%=�
&\amount%=mem%-ptr%
&fclaimed%=(amount%<>0)
&p
=claimed%
&z:
&�� �release_memory
&�'ș "Wimp_SlotSize",wimp_current%,-1
&�claimed%=�
&��
�

00000000  0d 00 0a 14 f4 20 20 20  20 20 3e 21 52 75 6e 49  |.....     >!RunI|
00000010  6d 61 67 65 0d 00 14 1d  f4 20 20 20 20 20 42 69  |mage.....     Bi|
00000020  6f 2b 20 66 69 6c 65 20  70 72 6f 63 65 73 73 6f  |o+ file processo|
00000030  72 0d 00 1e 23 f4 20 42  79 20 20 44 61 76 65 20  |r...#. By  Dave |
00000040  41 63 74 6f 6e 20 20 44  61 76 65 20 4c 61 77 72  |Acton  Dave Lawr|
00000050  65 6e 63 65 0d 00 28 19  f4 20 46 6f 72 20 33 32  |ence..(.. For 32|
00000060  2d 62 69 74 20 6d 61 63  68 69 6e 65 73 0d 00 32  |-bit machines..2|
00000070  24 f4 20 28 63 29 20 42  41 55 20 46 65 62 72 75  |$. (c) BAU Febru|
00000080  61 72 79 20 26 20 41 75  67 75 73 74 20 31 39 39  |ary & August 199|
00000090  33 0d 00 3c 05 3a 0d 00  46 0d de 20 71 25 20 26  |3..<.:..F.. q% &|
000000a0  34 30 30 0d 00 50 0e 24  71 25 3d 22 54 41 53 4b  |400..P.$q%="TASK|
000000b0  22 0d 00 5a 39 c8 99 20  22 57 69 6d 70 5f 49 6e  |"..Z9.. "Wimp_In|
000000c0  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 21 71  |itialise",200,!q|
000000d0  25 2c 22 42 69 6f 22 20  b8 20 76 65 72 73 69 6f  |%,"Bio" . versio|
000000e0  6e 25 2c 6d 79 74 61 73  6b 25 0d 00 64 6c ee 20  |n%,mytask%..dl. |
000000f0  85 20 f2 77 61 72 6e 28  22 21 42 69 6f 20 68 61  |. .warn("!Bio ha|
00000100  73 20 73 75 66 66 65 72  65 64 20 61 20 66 61 74  |s suffered a fat|
00000110  61 6c 20 65 72 72 6f 72  20 28 22 2b f6 24 2b 22  |al error ("+.$+"|
00000120  20 61 74 20 6c 69 6e 65  20 22 2b c3 9e 2b 22 29  | at line "+..+")|
00000130  20 61 6e 64 20 6d 75 73  74 20 65 78 69 74 22 29  | and must exit")|
00000140  3a c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |:.. "Wimp_CloseD|
00000150  6f 77 6e 22 3a e0 0d 00  6e 09 f2 69 6e 69 74 0d  |own":...n..init.|
00000160  00 78 0d f2 69 6e 69 74  5f 73 65 6c 0d 00 82 0b  |.x..init_sel....|
00000170  64 6f 6e 65 25 3d a3 0d  00 8c 05 f5 0d 00 96 21  |done%=.........!|
00000180  20 c8 99 20 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  | .. "Wimp_Poll",|
00000190  2c 71 25 20 b8 20 72 65  61 73 6f 6e 25 0d 00 a0  |,q% . reason%...|
000001a0  11 20 c8 8e 20 72 65 61  73 6f 6e 25 20 ca 0d 00  |. .. reason% ...|
000001b0  aa 16 20 20 c9 20 31 3a  f2 72 65 64 72 61 77 28  |..  . 1:.redraw(|
000001c0  21 71 25 29 0d 00 b4 22  20 20 c9 20 32 3a c8 99  |!q%)..."  . 2:..|
000001d0  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
000001e0  77 22 2c 2c 71 25 0d 00  be 15 20 20 c9 20 33 3a  |w",,q%....  . 3:|
000001f0  f2 63 6c 6f 73 65 28 21  71 25 29 0d 00 c8 2b 20  |.close(!q%)...+ |
00000200  20 c9 20 36 3a f2 6d 6f  75 73 65 28 21 71 25 2c  | . 6:.mouse(!q%,|
00000210  71 25 21 34 2c 71 25 21  38 2c 71 25 21 31 32 2c  |q%!4,q%!8,q%!12,|
00000220  71 25 21 31 36 29 0d 00  d2 0f 20 20 c9 20 37 3a  |q%!16)....  . 7:|
00000230  f2 64 72 61 67 0d 00 dc  35 20 20 c9 20 38 3a f2  |.drag...5  . 8:.|
00000240  6b 65 79 28 21 71 25 2c  71 25 21 34 2c 71 25 21  |key(!q%,q%!4,q%!|
00000250  38 2c 71 25 21 31 32 2c  71 25 21 31 36 2c 71 25  |8,q%!12,q%!16,q%|
00000260  21 32 30 2c 71 25 21 32  34 29 0d 00 e6 16 20 20  |!20,q%!24)....  |
00000270  c9 20 39 3a f2 6d 65 6e  75 5f 73 65 6c 65 63 74  |. 9:.menu_select|
00000280  0d 00 f0 16 20 20 c9 20  31 37 2c 31 38 3a f2 6d  |....  . 17,18:.m|
00000290  65 73 73 61 67 65 0d 00  fa 17 20 20 c9 20 31 39  |essage....  . 19|
000002a0  3a f2 70 6f 70 5f 75 70  5f 73 61 76 65 0d 01 04  |:.pop_up_save...|
000002b0  06 20 cb 0d 01 0e 0b fd  20 64 6f 6e 65 25 0d 01  |. ...... done%..|
000002c0  18 0f f2 63 6c 6f 73 65  5f 64 6f 77 6e 0d 01 22  |...close_down.."|
000002d0  05 e0 0d 01 2c 05 3a 0d  01 36 0b dd 20 f2 69 6e  |....,.:..6.. .in|
000002e0  69 74 0d 01 40 3e de 20  69 6e 64 25 20 26 31 34  |it..@>. ind% &14|
000002f0  30 30 2c 73 74 72 69 6e  67 25 20 26 31 30 30 2c  |00,string% &100,|
00000300  6d 65 6e 75 62 75 66 25  20 26 33 30 30 2c 5f 77  |menubuf% &300,_w|
00000310  6f 72 64 25 20 34 2c 5f  73 74 61 72 25 20 31 32  |ord% 4,_star% 12|
00000320  0d 01 4a 3b de 20 74 65  6d 70 25 20 26 31 30 30  |..J;. temp% &100|
00000330  2c 69 63 25 20 36 34 2c  6d 65 73 73 25 20 26 31  |,ic% 64,mess% &1|
00000340  30 30 2c 70 69 78 74 72  61 6e 73 25 20 26 31 30  |00,pixtrans% &10|
00000350  30 2c 73 63 61 6c 65 25  20 31 36 0d 01 54 17 69  |0,scale% 16..T.i|
00000360  6e 64 5f 65 6e 64 25 3d  69 6e 64 25 2b 26 31 34  |nd_end%=ind%+&14|
00000370  30 30 0d 01 5e 20 6c 69  62 72 61 72 79 24 3d 22  |00..^ library$="|
00000380  3c 42 69 6f 24 44 69 72  3e 2e 4c 69 62 72 61 72  |<Bio$Dir>.Librar|
00000390  79 22 0d 01 68 16 6a 75  6e 6b 24 3d 22 3c 42 69  |y"..h.junk$="<Bi|
000003a0  6f 24 4a 75 6e 6b 3e 22  0d 01 72 42 74 79 70 65  |o$Junk>"..rBtype|
000003b0  5f 64 65 66 24 3d 22 69  6e 2f 6b 2c 6f 75 74 3d  |_def$="in/k,out=|
000003c0  72 65 73 75 6c 74 73 2f  6b 2c 64 69 72 65 63 74  |results/k,direct|
000003d0  6f 72 79 3d 64 69 72 2f  73 2c 73 65 6e 64 2f 73  |ory=dir/s,send/s|
000003e0  2c 77 69 6e 64 6f 77 2f  73 22 0d 01 7c 15 6d 61  |,window/s"..|.ma|
000003f0  78 5f 6c 69 62 5f 66 69  6c 65 73 25 3d 33 32 0d  |x_lib_files%=32.|
00000400  01 86 0d 62 6f 72 64 65  72 25 3d 38 0d 01 90 39  |...border%=8...9|
00000410  de 20 6c 69 62 5f 66 69  6c 65 24 28 6d 61 78 5f  |. lib_file$(max_|
00000420  6c 69 62 5f 66 69 6c 65  73 25 29 2c 6c 69 62 5f  |lib_files%),lib_|
00000430  70 72 6f 63 24 28 6d 61  78 5f 6c 69 62 5f 66 69  |proc$(max_lib_fi|
00000440  6c 65 73 25 29 0d 01 9a  3a de 20 6c 69 62 5f 6e  |les%)...:. lib_n|
00000450  61 6d 65 24 28 6d 61 78  5f 6c 69 62 5f 66 69 6c  |ame$(max_lib_fil|
00000460  65 73 25 29 2c 6c 69 62  5f 66 6c 61 67 73 25 28  |es%),lib_flags%(|
00000470  6d 61 78 5f 6c 69 62 5f  66 69 6c 65 73 25 29 0d  |max_lib_files%).|
00000480  01 a4 36 de 20 6c 69 62  5f 69 6e 25 28 6d 61 78  |..6. lib_in%(max|
00000490  5f 6c 69 62 5f 66 69 6c  65 73 25 29 2c 6c 69 62  |_lib_files%),lib|
000004a0  5f 6f 75 74 25 28 6d 61  78 5f 6c 69 62 5f 66 69  |_out%(max_lib_fi|
000004b0  6c 65 73 25 29 0d 01 ae  3b de 20 70 72 6f 63 5f  |les%)...;. proc_|
000004c0  69 63 6f 6e 25 28 6d 61  78 5f 6c 69 62 5f 66 69  |icon%(max_lib_fi|
000004d0  6c 65 73 25 29 2c 77 69  6e 64 5f 68 61 6e 64 25  |les%),wind_hand%|
000004e0  28 6d 61 78 5f 6c 69 62  5f 66 69 6c 65 73 25 29  |(max_lib_files%)|
000004f0  0d 01 b8 38 de 20 72 24  28 6d 61 78 5f 6c 69 62  |...8. r$(max_lib|
00000500  5f 66 69 6c 65 73 25 2c  31 30 29 2c 72 65 73 75  |_files%,10),resu|
00000510  6c 74 5f 68 61 6e 64 25  28 6d 61 78 5f 6c 69 62  |lt_hand%(max_lib|
00000520  5f 66 69 6c 65 73 25 29  0d 01 c2 3c de 20 72 75  |_files%)...<. ru|
00000530  6e 6e 69 6e 67 25 28 6d  61 78 5f 6c 69 62 5f 66  |nning%(max_lib_f|
00000540  69 6c 65 73 25 29 2c 72  65 73 75 6c 74 5f 74 69  |iles%),result_ti|
00000550  74 6c 65 25 28 6d 61 78  5f 6c 69 62 5f 66 69 6c  |tle%(max_lib_fil|
00000560  65 73 25 29 0d 01 cc 22  de 20 72 65 73 75 6c 74  |es%)...". result|
00000570  5f 6f 70 65 6e 25 28 6d  61 78 5f 6c 69 62 5f 66  |_open%(max_lib_f|
00000580  69 6c 65 73 25 29 0d 01  d6 10 6c 69 62 5f 66 69  |iles%)....lib_fi|
00000590  6c 65 73 25 3d 30 0d 01  e0 17 6c 69 62 5f 73 70  |les%=0....lib_sp|
000005a0  72 69 74 65 5f 73 69 7a  65 25 3d 31 36 0d 01 ea  |rite_size%=16...|
000005b0  1e f2 66 69 6e 64 5f 70  72 6f 63 65 64 75 72 65  |..find_procedure|
000005c0  73 28 6c 69 62 72 61 72  79 24 29 0d 01 f4 23 de  |s(library$)...#.|
000005d0  20 6c 69 62 5f 73 70 72  69 74 65 73 25 20 6c 69  | lib_sprites% li|
000005e0  62 5f 73 70 72 69 74 65  5f 73 69 7a 65 25 0d 01  |b_sprite_size%..|
000005f0  fe 22 21 6c 69 62 5f 73  70 72 69 74 65 73 25 3d  |."!lib_sprites%=|
00000600  6c 69 62 5f 73 70 72 69  74 65 5f 73 69 7a 65 25  |lib_sprite_size%|
00000610  0d 02 08 14 6c 69 62 5f  73 70 72 69 74 65 73 25  |....lib_sprites%|
00000620  21 34 3d 30 0d 02 12 15  6c 69 62 5f 73 70 72 69  |!4=0....lib_spri|
00000630  74 65 73 25 21 38 3d 31  36 0d 02 1c 16 6c 69 62  |tes%!8=16....lib|
00000640  5f 73 70 72 69 74 65 73  25 21 31 32 3d 31 36 0d  |_sprites%!12=16.|
00000650  02 26 12 f2 6c 6f 61 64  5f 70 61 6c 65 74 74 65  |.&..load_palette|
00000660  73 0d 02 30 18 f2 6c 6f  61 64 5f 64 61 74 61 28  |s..0..load_data(|
00000670  6c 69 62 72 61 72 79 24  29 0d 02 3a 12 c8 a3 20  |library$)..:... |
00000680  6c 69 62 5f 66 69 6c 65  24 28 29 0d 02 44 14 f2  |lib_file$()..D..|
00000690  69 6e 69 74 5f 70 72 6f  63 65 64 75 72 65 73 0d  |init_procedures.|
000006a0  02 4e 31 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |.N1.. "Wimp_Open|
000006b0  54 65 6d 70 6c 61 74 65  22 2c 2c 22 3c 42 69 6f  |Template",,"<Bio|
000006c0  24 44 69 72 3e 2e 54 65  6d 70 6c 61 74 65 73 22  |$Dir>.Templates"|
000006d0  0d 02 58 17 e3 20 69 25  3d 31 20 b8 20 6c 69 62  |..X.. i%=1 . lib|
000006e0  5f 66 69 6c 65 73 25 0d  02 62 20 20 e7 20 28 6c  |_files%..b  . (l|
000006f0  69 62 5f 66 6c 61 67 73  25 28 69 25 29 20 80 20  |ib_flags%(i%) . |
00000700  34 30 29 3e 30 20 8c 0d  02 6c 43 20 20 c8 99 20  |40)>0 ...lC  .. |
00000710  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
00000720  74 65 22 2c 2c 71 25 2c  69 6e 64 25 2c 69 6e 64  |te",,q%,ind%,ind|
00000730  5f 65 6e 64 25 2c 2d 31  2c 22 72 65 73 75 6c 74  |_end%,-1,"result|
00000740  22 20 b8 20 2c 2c 69 6e  64 25 0d 02 76 3e 20 20  |" . ,,ind%..v>  |
00000750  e7 20 28 6c 69 62 5f 66  6c 61 67 73 25 28 69 25  |. (lib_flags%(i%|
00000760  29 20 80 20 33 32 29 3e  30 20 8c 20 71 25 21 32  |) . 32)>0 . q%!2|
00000770  38 3d 71 25 21 32 38 20  84 20 28 25 31 31 31 31  |8=q%!28 . (%1111|
00000780  31 31 31 3c 3c 32 34 29  0d 02 80 16 20 20 71 25  |111<<24)....  q%|
00000790  21 34 2b 3d b3 28 34 30  30 29 2d 32 30 30 0d 02  |!4+=.(400)-200..|
000007a0  8a 17 20 20 71 25 21 31  36 2b 3d b3 28 34 30 30  |..  q%!16+=.(400|
000007b0  29 2d 32 30 30 0d 02 94  1d 20 20 72 65 73 75 6c  |)-200....  resul|
000007c0  74 5f 74 69 74 6c 65 25  28 69 25 29 3d 71 25 21  |t_title%(i%)=q%!|
000007d0  37 32 0d 02 9e 33 20 20  c8 99 20 22 57 69 6d 70  |72...3  .. "Wimp|
000007e0  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
000007f0  71 25 20 b8 20 72 65 73  75 6c 74 5f 68 61 6e 64  |q% . result_hand|
00000800  25 28 69 25 29 0d 02 a8  06 20 cd 0d 02 b2 05 ed  |%(i%).... ......|
00000810  0d 02 bc 43 c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |...C.. "Wimp_Loa|
00000820  64 54 65 6d 70 6c 61 74  65 22 2c 2c 71 25 2c 69  |dTemplate",,q%,i|
00000830  6e 64 25 2c 69 6e 64 5f  65 6e 64 25 2c 2d 31 2c  |nd%,ind_end%,-1,|
00000840  22 70 72 6f 67 49 6e 66  6f 22 20 b8 20 2c 2c 69  |"progInfo" . ,,i|
00000850  6e 64 25 0d 02 c6 2b c8  99 20 22 57 69 6d 70 5f  |nd%...+.. "Wimp_|
00000860  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 71  |CreateWindow",,q|
00000870  25 20 b8 20 69 6e 66 6f  5f 68 61 6e 64 25 0d 02  |% . info_hand%..|
00000880  d0 3f c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |.?.. "Wimp_LoadT|
00000890  65 6d 70 6c 61 74 65 22  2c 2c 71 25 2c 69 6e 64  |emplate",,q%,ind|
000008a0  25 2c 69 6e 64 5f 65 6e  64 25 2c 2d 31 2c 22 73  |%,ind_end%,-1,"s|
000008b0  61 76 65 22 20 b8 20 2c  2c 69 6e 64 25 0d 02 da  |ave" . ,,ind%...|
000008c0  2b c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |+.. "Wimp_Create|
000008d0  57 69 6e 64 6f 77 22 2c  2c 71 25 20 b8 20 73 61  |Window",,q% . sa|
000008e0  76 65 5f 68 61 6e 64 25  0d 02 e4 1b c8 99 20 22  |ve_hand%...... "|
000008f0  57 69 6d 70 5f 43 6c 6f  73 65 54 65 6d 70 6c 61  |Wimp_CloseTempla|
00000900  74 65 22 0d 02 ee 26 73  61 76 65 74 65 78 74 3d  |te"...&savetext=|
00000910  a4 69 63 5f 61 64 64 72  28 73 61 76 65 5f 68 61  |.ic_addr(save_ha|
00000920  6e 64 25 2c 32 2c 32 38  29 0d 02 f8 26 73 61 76  |nd%,2,28)...&sav|
00000930  65 74 79 70 65 3d a4 69  63 5f 61 64 64 72 28 73  |etype=.ic_addr(s|
00000940  61 76 65 5f 68 61 6e 64  25 2c 31 2c 33 32 29 0d  |ave_hand%,1,32).|
00000950  03 02 16 24 73 61 76 65  74 65 78 74 3d 22 52 65  |...$savetext="Re|
00000960  73 75 6c 74 22 0d 03 0c  15 6d 65 6e 75 70 74 72  |sult"....menuptr|
00000970  25 3d 6d 65 6e 75 62 75  66 25 0d 03 16 1a 6d 65  |%=menubuf%....me|
00000980  6e 75 64 61 74 25 3d 6d  65 6e 75 62 75 66 25 2b  |nudat%=menubuf%+|
00000990  26 33 30 30 0d 03 20 2e  70 72 6f 63 5f 6d 65 6e  |&300.. .proc_men|
000009a0  75 25 3d a4 6d 61 6b 65  5f 6d 65 6e 5f 72 61 77  |u%=.make_men_raw|
000009b0  28 70 6d 65 6e 75 25 2c  22 50 72 6f 63 65 73 73  |(pmenu%,"Process|
000009c0  22 29 0d 03 2a 40 6d 61  69 6e 5f 6d 65 6e 75 25  |")..*@main_menu%|
000009d0  3d a4 6d 61 6b 65 5f 6d  65 6e 28 22 49 6e 66 6f  |=.make_men("Info|
000009e0  2c 50 72 6f 63 65 73 73  2c 53 65 74 20 64 65 66  |,Process,Set def|
000009f0  61 75 6c 74 2c 51 75 69  74 2c 22 2c 22 42 69 6f  |ault,Quit,","Bio|
00000a00  22 29 0d 03 34 26 61 6c  6c 5f 6d 65 6e 75 25 3d  |")..4&all_menu%=|
00000a10  a4 6d 61 6b 65 5f 6d 65  6e 28 22 41 6c 6c 2c 22  |.make_men("All,"|
00000a20  2c 22 51 75 69 74 22 29  0d 03 3e 2d f2 61 74 74  |,"Quit")..>-.att|
00000a30  61 63 68 5f 73 75 62 5f  6d 65 6e 75 28 69 6e 66  |ach_sub_menu(inf|
00000a40  6f 5f 68 61 6e 64 25 2c  6d 61 69 6e 5f 6d 65 6e  |o_hand%,main_men|
00000a50  75 25 2c 30 29 0d 03 48  2d f2 61 74 74 61 63 68  |u%,0)..H-.attach|
00000a60  5f 73 75 62 5f 6d 65 6e  75 28 70 72 6f 63 5f 6d  |_sub_menu(proc_m|
00000a70  65 6e 75 25 2c 6d 61 69  6e 5f 6d 65 6e 75 25 2c  |enu%,main_menu%,|
00000a80  31 29 0d 03 52 2c f2 61  74 74 61 63 68 5f 73 75  |1)..R,.attach_su|
00000a90  62 5f 6d 65 6e 75 28 61  6c 6c 5f 6d 65 6e 75 25  |b_menu(all_menu%|
00000aa0  2c 6d 61 69 6e 5f 6d 65  6e 75 25 2c 33 29 0d 03  |,main_menu%,3)..|
00000ab0  5c 16 63 75 72 5f 73 65  74 75 70 5f 68 61 6e 64  |\.cur_setup_hand|
00000ac0  25 3d 2d 31 0d 03 66 2a  78 64 72 61 67 73 74 61  |%=-1..f*xdragsta|
00000ad0  72 74 25 3d a4 73 77 69  28 22 58 44 72 61 67 41  |rt%=.swi("XDragA|
00000ae0  53 70 72 69 74 65 5f 53  74 61 72 74 22 29 0d 03  |Sprite_Start")..|
00000af0  70 11 73 61 76 65 5f 70  72 6f 63 25 3d 2d 31 0d  |p.save_proc%=-1.|
00000b00  03 7a 05 e1 0d 03 84 05  3a 0d 03 8e 1c dd 20 f2  |.z......:..... .|
00000b10  66 69 6e 64 5f 70 72 6f  63 65 64 75 72 65 73 28  |find_procedures(|
00000b20  64 69 72 24 29 0d 03 98  0b ea 20 6e 25 2c 72 25  |dir$)..... n%,r%|
00000b30  0d 03 a2 08 6e 25 3d 30  0d 03 ac 0d c8 95 20 6e  |....n%=0...... n|
00000b40  25 3c 3e 2d 31 0d 03 b6  38 20 c8 99 20 22 4f 53  |%<>-1...8 .. "OS|
00000b50  5f 47 42 50 42 22 2c 31  30 2c 64 69 72 24 2c 74  |_GBPB",10,dir$,t|
00000b60  65 6d 70 25 2c 31 2c 6e  25 2c 26 31 30 30 2c 22  |emp%,1,n%,&100,"|
00000b70  2a 22 20 b8 20 2c 2c 2c  72 25 2c 6e 25 0d 03 c0  |*" . ,,,r%,n%...|
00000b80  0d 20 e7 20 72 25 3d 31  20 8c 0d 03 ca 1e 20 20  |. . r%=1 .....  |
00000b90  66 69 6c 65 24 3d a4 67  65 74 5f 73 74 72 28 74  |file$=.get_str(t|
00000ba0  65 6d 70 25 2b 32 30 29  0d 03 d4 14 20 20 e7 20  |emp%+20)....  . |
00000bb0  74 65 6d 70 25 21 31 36  3d 32 20 8c 0d 03 de 27  |temp%!16=2 ....'|
00000bc0  20 20 20 f2 66 69 6e 64  5f 70 72 6f 63 65 64 75  |   .find_procedu|
00000bd0  72 65 73 28 64 69 72 24  2b 22 2e 22 2b 66 69 6c  |res(dir$+"."+fil|
00000be0  65 24 29 0d 03 e8 07 20  20 cc 0d 03 f2 26 20 20  |e$)....  ....&  |
00000bf0  20 c8 8e 20 28 28 21 74  65 6d 70 25 29 20 80 20  | .. ((!temp%) . |
00000c00  26 46 46 46 30 30 29 20  81 20 26 31 30 30 20 ca  |&FFF00) . &100 .|
00000c10  0d 03 fc 0f 20 20 20 20  c9 20 26 46 46 39 3a 0d  |....    . &FF9:.|
00000c20  04 06 22 20 20 20 20 20  6c 69 62 5f 73 70 72 69  |.."     lib_spri|
00000c30  74 65 5f 73 69 7a 65 25  2b 3d 74 65 6d 70 25 21  |te_size%+=temp%!|
00000c40  38 0d 04 10 0f 20 20 20  20 c9 20 26 46 46 42 3a  |8....    . &FFB:|
00000c50  0d 04 1a 16 20 20 20 20  20 6c 69 62 5f 66 69 6c  |....     lib_fil|
00000c60  65 73 25 2b 3d 31 0d 04  24 29 20 20 20 20 20 6c  |es%+=1..$)     l|
00000c70  69 62 5f 70 72 6f 63 24  28 6c 69 62 5f 66 69 6c  |ib_proc$(lib_fil|
00000c80  65 73 25 29 3d a4 6c 63  28 66 69 6c 65 24 29 0d  |es%)=.lc(file$).|
00000c90  04 2e 2d 20 20 20 20 20  6c 69 62 5f 66 69 6c 65  |..-     lib_file|
00000ca0  24 28 6c 69 62 5f 66 69  6c 65 73 25 29 3d 64 69  |$(lib_files%)=di|
00000cb0  72 24 2b 22 2e 22 2b 66  69 6c 65 24 0d 04 38 08  |r$+"."+file$..8.|
00000cc0  20 20 20 cb 0d 04 42 07  20 20 cd 0d 04 4c 06 20  |   ...B.  ...L. |
00000cd0  cd 0d 04 56 05 ce 0d 04  60 05 e1 0d 04 6a 05 3a  |...V....`....j.:|
00000ce0  0d 04 74 16 dd 20 f2 6c  6f 61 64 5f 64 61 74 61  |..t.. .load_data|
00000cf0  28 64 69 72 24 29 0d 04  7e 11 ea 20 6e 25 2c 72  |(dir$)..~.. n%,r|
00000d00  25 2c 66 69 6c 65 24 0d  04 88 08 6e 25 3d 30 0d  |%,file$....n%=0.|
00000d10  04 92 0d c8 95 20 6e 25  3c 3e 2d 31 0d 04 9c 38  |..... n%<>-1...8|
00000d20  20 c8 99 20 22 4f 53 5f  47 42 50 42 22 2c 31 30  | .. "OS_GBPB",10|
00000d30  2c 64 69 72 24 2c 74 65  6d 70 25 2c 31 2c 6e 25  |,dir$,temp%,1,n%|
00000d40  2c 26 31 30 30 2c 22 2a  22 20 b8 20 2c 2c 2c 72  |,&100,"*" . ,,,r|
00000d50  25 2c 6e 25 0d 04 a6 0d  20 e7 20 72 25 3d 31 20  |%,n%.... . r%=1 |
00000d60  8c 0d 04 b0 1e 20 20 66  69 6c 65 24 3d a4 67 65  |.....  file$=.ge|
00000d70  74 5f 73 74 72 28 74 65  6d 70 25 2b 32 30 29 0d  |t_str(temp%+20).|
00000d80  04 ba 14 20 20 e7 20 74  65 6d 70 25 21 31 36 3d  |...  . temp%!16=|
00000d90  32 20 8c 0d 04 c4 21 20  20 20 f2 6c 6f 61 64 5f  |2 ....!   .load_|
00000da0  64 61 74 61 28 64 69 72  24 2b 22 2e 22 2b 66 69  |data(dir$+"."+fi|
00000db0  6c 65 24 29 0d 04 ce 07  20 20 cc 0d 04 d8 26 20  |le$)....  ....& |
00000dc0  20 20 c8 8e 20 28 28 21  74 65 6d 70 25 29 20 80  |  .. ((!temp%) .|
00000dd0  20 26 46 46 46 30 30 29  20 81 20 26 31 30 30 20  | &FFF00) . &100 |
00000de0  ca 0d 04 e2 0f 20 20 20  20 c9 20 26 46 46 39 3a  |.....    . &FF9:|
00000df0  0d 04 ec 3a 20 20 20 20  20 c8 99 20 22 4f 53 5f  |...:     .. "OS_|
00000e00  53 70 72 69 74 65 4f 70  22 2c 26 31 30 42 2c 6c  |SpriteOp",&10B,l|
00000e10  69 62 5f 73 70 72 69 74  65 73 25 2c 64 69 72 24  |ib_sprites%,dir$|
00000e20  2b 22 2e 22 2b 66 69 6c  65 24 0d 04 f6 0f 20 20  |+"."+file$....  |
00000e30  20 20 c9 20 26 46 45 43  3a 0d 05 00 2f 20 20 20  |  . &FEC:.../   |
00000e40  20 20 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 54  |  .. "Wimp_OpenT|
00000e50  65 6d 70 6c 61 74 65 22  2c 2c 64 69 72 24 2b 22  |emplate",,dir$+"|
00000e60  2e 22 2b 66 69 6c 65 24  0d 05 0a 10 20 20 20 20  |."+file$....    |
00000e70  20 77 69 6e 64 25 3d 30  0d 05 14 0a 20 20 20 20  | wind%=0....    |
00000e80  20 f5 0d 05 1e 15 20 20  20 20 20 20 24 5f 73 74  | .....      $_st|
00000e90  61 72 25 3d 22 2a 22 0d  05 28 57 20 20 20 20 20  |ar%="*"..(W     |
00000ea0  20 c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  | .. "Wimp_LoadTe|
00000eb0  6d 70 6c 61 74 65 22 2c  2c 71 25 2c 69 6e 64 25  |mplate",,q%,ind%|
00000ec0  2c 69 6e 64 5f 65 6e 64  25 2c 2d 31 2c 5f 73 74  |,ind_end%,-1,_st|
00000ed0  61 72 25 2c 77 69 6e 64  25 20 b8 20 2c 2c 6e 65  |ar%,wind% . ,,ne|
00000ee0  77 69 6e 64 25 2c 2c 2c  2c 77 69 6e 64 25 0d 05  |wind%,,,,wind%..|
00000ef0  32 16 20 20 20 20 20 20  e7 20 77 69 6e 64 25 3c  |2.      . wind%<|
00000f00  3e 30 20 8c 0d 05 3c 32  20 20 20 20 20 20 20 70  |>0 ...<2       p|
00000f10  72 6f 63 25 3d a4 66 69  6e 64 5f 70 72 6f 63 28  |roc%=.find_proc(|
00000f20  a4 6c 63 28 a4 67 65 74  5f 73 74 72 28 5f 73 74  |.lc(.get_str(_st|
00000f30  61 72 25 29 29 29 0d 05  46 16 20 20 20 20 20 20  |ar%)))..F.      |
00000f40  20 e7 20 70 72 6f 63 25  3e 30 20 8c 0d 05 50 18  | . proc%>0 ...P.|
00000f50  20 20 20 20 20 20 20 20  69 6e 64 25 3d 6e 65 77  |        ind%=new|
00000f60  69 6e 64 25 0d 05 5a 3a  20 20 20 20 20 20 20 20  |ind%..Z:        |
00000f70  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000f80  69 6e 64 6f 77 22 2c 2c  71 25 20 b8 20 77 69 6e  |indow",,q% . win|
00000f90  64 5f 68 61 6e 64 25 28  70 72 6f 63 25 29 0d 05  |d_hand%(proc%)..|
00000fa0  64 13 20 20 20 20 20 20  20 20 77 69 6e 64 25 3d  |d.        wind%=|
00000fb0  30 0d 05 6e 0c 20 20 20  20 20 20 20 cd 0d 05 78  |0..n.       ...x|
00000fc0  0b 20 20 20 20 20 20 cd  0d 05 82 12 20 20 20 20  |.      .....    |
00000fd0  20 fd 20 77 69 6e 64 25  3d 30 0d 05 8c 20 20 20  | . wind%=0...   |
00000fe0  20 20 20 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |   .. "Wimp_Clos|
00000ff0  65 54 65 6d 70 6c 61 74  65 22 0d 05 96 08 20 20  |eTemplate"....  |
00001000  20 cb 0d 05 a0 07 20 20  cd 0d 05 aa 06 20 cd 0d  | .....  ..... ..|
00001010  05 b4 05 ce 0d 05 be 05  e1 0d 05 c8 05 3a 0d 05  |.............:..|
00001020  d2 17 dd 20 a4 66 69 6e  64 5f 70 72 6f 63 28 70  |... .find_proc(p|
00001030  72 6f 63 24 29 0d 05 dc  08 ea 20 69 25 0d 05 e6  |roc$)..... i%...|
00001040  13 69 25 3d 6c 69 62 5f  66 69 6c 65 73 25 2b 31  |.i%=lib_files%+1|
00001050  0d 05 f0 05 f5 0d 05 fa  0a 20 69 25 2d 3d 31 0d  |......... i%-=1.|
00001060  06 04 20 fd 20 69 25 3d  30 20 84 20 70 72 6f 63  |.. . i%=0 . proc|
00001070  24 3d 6c 69 62 5f 70 72  6f 63 24 28 69 25 29 0d  |$=lib_proc$(i%).|
00001080  06 0e 07 3d 69 25 0d 06  18 05 3a 0d 06 22 19 dd  |...=i%....:.."..|
00001090  20 a4 66 69 6e 64 5f 65  6c 65 6d 28 65 25 2c 61  | .find_elem(e%,a|
000010a0  25 28 29 29 0d 06 2c 08  ea 20 69 25 0d 06 36 13  |%())..,.. i%..6.|
000010b0  69 25 3d 6c 69 62 5f 66  69 6c 65 73 25 2b 31 0d  |i%=lib_files%+1.|
000010c0  06 40 05 f5 0d 06 4a 0a  20 69 25 2d 3d 31 0d 06  |.@....J. i%-=1..|
000010d0  54 16 fd 20 69 25 3d 30  20 84 20 65 25 3d 61 25  |T.. i%=0 . e%=a%|
000010e0  28 69 25 29 0d 06 5e 07  3d 69 25 0d 06 68 05 3a  |(i%)..^.=i%..h.:|
000010f0  0d 06 72 16 dd 20 f2 69  6e 69 74 5f 70 72 6f 63  |..r.. .init_proc|
00001100  65 64 75 72 65 73 0d 06  7c 28 de 20 6c 69 62 5f  |edures..|(. lib_|
00001110  73 70 72 25 28 6c 69 62  5f 66 69 6c 65 73 25 2c  |spr%(lib_files%,|
00001120  31 29 2c 70 6d 65 6e 75  25 20 26 34 30 30 0d 06  |1),pmenu% &400..|
00001130  86 29 6c 69 62 5f 73 70  72 25 28 30 2c 30 29 3d  |.)lib_spr%(0,0)=|
00001140  a4 73 70 72 69 74 65 5f  61 64 64 72 65 73 73 28  |.sprite_address(|
00001150  22 42 69 6f 34 22 29 0d  06 90 29 6c 69 62 5f 73  |"Bio4")...)lib_s|
00001160  70 72 25 28 30 2c 31 29  3d a4 73 70 72 69 74 65  |pr%(0,1)=.sprite|
00001170  5f 61 64 64 72 65 73 73  28 22 42 69 6f 32 22 29  |_address("Bio2")|
00001180  0d 06 9a 0f 70 6d 70 25  3d 70 6d 65 6e 75 25 0d  |....pmp%=pmenu%.|
00001190  06 a4 17 e3 20 69 25 3d  31 20 b8 20 6c 69 62 5f  |.... i%=1 . lib_|
000011a0  66 69 6c 65 73 25 0d 06  ae 36 20 6c 69 62 5f 73  |files%...6 lib_s|
000011b0  70 72 25 28 69 25 2c 30  29 3d a4 73 70 72 69 74  |pr%(i%,0)=.sprit|
000011c0  65 5f 61 64 64 72 65 73  73 28 6c 69 62 5f 70 72  |e_address(lib_pr|
000011d0  6f 63 24 28 69 25 29 2b  22 34 22 29 0d 06 b8 36  |oc$(i%)+"4")...6|
000011e0  20 6c 69 62 5f 73 70 72  25 28 69 25 2c 31 29 3d  | lib_spr%(i%,1)=|
000011f0  a4 73 70 72 69 74 65 5f  61 64 64 72 65 73 73 28  |.sprite_address(|
00001200  6c 69 62 5f 70 72 6f 63  24 28 69 25 29 2b 22 32  |lib_proc$(i%)+"2|
00001210  22 29 0d 06 c2 30 20 6c  69 62 5f 6e 61 6d 65 24  |")...0 lib_name$|
00001220  28 69 25 29 3d a0 28 22  46 4e 22 2b 6c 69 62 5f  |(i%)=.("FN"+lib_|
00001230  70 72 6f 63 24 28 69 25  29 2b 22 5f 6e 61 6d 65  |proc$(i%)+"_name|
00001240  22 29 0d 06 cc 28 20 74  79 70 65 24 3d a0 28 22  |")...( type$=.("|
00001250  46 4e 22 2b 6c 69 62 5f  70 72 6f 63 24 28 69 25  |FN"+lib_proc$(i%|
00001260  29 2b 22 5f 61 72 67 73  22 29 0d 06 d6 2d 20 c8  |)+"_args")...- .|
00001270  99 20 22 4f 53 5f 52 65  61 64 41 72 67 73 22 2c  |. "OS_ReadArgs",|
00001280  74 79 70 65 5f 64 65 66  24 2c 74 79 70 65 24 2c  |type_def$,type$,|
00001290  71 25 2c 26 34 30 30 0d  06 e0 18 20 66 69 6c 65  |q%,&400.... file|
000012a0  73 5f 69 6e 25 3d 28 71  25 21 30 3c 3e 30 29 0d  |s_in%=(q%!0<>0).|
000012b0  06 ea 16 20 69 73 5f 6f  75 74 25 3d 28 71 25 21  |... is_out%=(q%!|
000012c0  34 3c 3e 30 29 0d 06 f4  17 20 64 69 72 73 5f 69  |4<>0).... dirs_i|
000012d0  6e 25 3d 28 71 25 21 38  3c 3e 30 29 0d 06 fe 19  |n%=(q%!8<>0)....|
000012e0  20 73 65 6e 64 5f 6f 75  74 25 3d 28 71 25 21 31  | send_out%=(q%!1|
000012f0  32 3c 3e 30 29 0d 07 08  19 20 77 69 6e 64 5f 6f  |2<>0).... wind_o|
00001300  75 74 25 3d 28 71 25 21  31 36 3c 3e 30 29 0d 07  |ut%=(q%!16<>0)..|
00001310  12 11 20 66 69 6c 65 73  5f 6f 75 74 25 3d a3 0d  |.. files_out%=..|
00001320  07 1c 10 20 64 61 74 61  5f 6f 75 74 25 3d a3 0d  |... data_out%=..|
00001330  07 26 37 20 e7 20 66 69  6c 65 73 5f 69 6e 25 20  |.&7 . files_in% |
00001340  6c 69 62 5f 69 6e 25 28  69 25 29 3d a4 66 69 6c  |lib_in%(i%)=.fil|
00001350  65 5f 74 79 70 65 28 a4  67 65 74 5f 73 74 72 28  |e_type(.get_str(|
00001360  71 25 21 30 29 29 0d 07  30 10 20 e7 20 69 73 5f  |q%!0))..0. . is_|
00001370  6f 75 74 25 20 8c 0d 07  3a 19 20 20 6f 75 74 24  |out% ...:.  out$|
00001380  3d a4 67 65 74 5f 73 74  72 28 71 25 21 34 29 0d  |=.get_str(q%!4).|
00001390  07 44 15 20 20 e7 20 c3  bb 6f 75 74 24 3d 6f 75  |.D.  . ..out$=ou|
000013a0  74 24 20 8c 0d 07 4e 19  20 20 20 6c 69 62 5f 6f  |t$ ...N.   lib_o|
000013b0  75 74 25 28 69 25 29 3d  bb 6f 75 74 24 0d 07 58  |ut%(i%)=.out$..X|
000013c0  12 20 20 20 64 61 74 61  5f 6f 75 74 25 3d b9 0d  |.   data_out%=..|
000013d0  07 62 07 20 20 cc 0d 07  6c 24 20 20 20 6c 69 62  |.b.  ...l$   lib|
000013e0  5f 6f 75 74 25 28 69 25  29 3d a4 66 69 6c 65 5f  |_out%(i%)=.file_|
000013f0  74 79 70 65 28 6f 75 74  24 29 0d 07 76 13 20 20  |type(out$)..v.  |
00001400  20 66 69 6c 65 73 5f 6f  75 74 25 3d b9 0d 07 80  | files_out%=....|
00001410  07 20 20 cd 0d 07 8a 06  20 cd 0d 07 94 7f 20 6c  |.  ..... ..... l|
00001420  69 62 5f 66 6c 61 67 73  25 28 69 25 29 3d 28 66  |ib_flags%(i%)=(f|
00001430  69 6c 65 73 5f 69 6e 25  20 80 20 31 29 20 84 20  |iles_in% . 1) . |
00001440  28 64 69 72 73 5f 69 6e  25 20 80 20 32 29 20 84  |(dirs_in% . 2) .|
00001450  20 28 66 69 6c 65 73 5f  6f 75 74 25 20 80 20 34  | (files_out% . 4|
00001460  29 20 84 20 28 64 61 74  61 5f 6f 75 74 25 20 80  |) . (data_out% .|
00001470  20 38 29 20 84 20 28 73  65 6e 64 5f 6f 75 74 25  | 8) . (send_out%|
00001480  20 80 20 31 36 29 20 84  20 28 77 69 6e 64 5f 6f  | . 16) . (wind_o|
00001490  75 74 25 20 80 20 33 32  29 0d 07 9e 1e 20 77 69  |ut% . 32).... wi|
000014a0  6e 64 5f 68 61 6e 64 25  3d 77 69 6e 64 5f 68 61  |nd_hand%=wind_ha|
000014b0  6e 64 25 28 69 25 29 0d  07 a8 24 20 7a 3d a0 28  |nd%(i%)...$ z=.(|
000014c0  22 46 4e 22 2b 6c 69 62  5f 70 72 6f 63 24 28 69  |"FN"+lib_proc$(i|
000014d0  25 29 2b 22 5f 69 6e 69  74 22 29 0d 07 b2 1c 20  |%)+"_init").... |
000014e0  24 70 6d 70 25 3d 6c 69  62 5f 6e 61 6d 65 24 28  |$pmp%=lib_name$(|
000014f0  69 25 29 2b 22 2c 22 0d  07 bc 13 20 70 6d 70 25  |i%)+",".... pmp%|
00001500  2b 3d a9 28 24 70 6d 70  25 29 0d 07 c6 05 ed 0d  |+=.($pmp%)......|
00001510  07 d0 05 e1 0d 07 da 05  3a 0d 07 e4 1b dd 20 a4  |........:..... .|
00001520  73 70 72 69 74 65 5f 61  64 64 72 65 73 73 28 73  |sprite_address(s|
00001530  70 72 24 29 0d 07 ee 39  c8 99 20 22 58 4f 53 5f  |pr$)...9.. "XOS_|
00001540  53 70 72 69 74 65 4f 70  22 2c 26 31 31 38 2c 6c  |SpriteOp",&118,l|
00001550  69 62 5f 73 70 72 69 74  65 73 25 2c 73 70 72 24  |ib_sprites%,spr$|
00001560  20 b8 20 2c 2c 61 64 64  72 25 3b 6f 6b 0d 07 f8  | . ,,addr%;ok...|
00001570  18 e7 20 28 6f 6b 20 80  20 31 29 3e 30 20 61 64  |.. (ok . 1)>0 ad|
00001580  64 72 25 3d 30 0d 08 02  0a 3d 61 64 64 72 25 0d  |dr%=0....=addr%.|
00001590  08 0c 05 3a 0d 08 16 0f  dd 20 f2 69 6e 69 74 5f  |...:..... .init_|
000015a0  73 65 6c 0d 08 20 1f 69  6e 25 3d 8e 28 22 3c 42  |sel.. .in%=.("<B|
000015b0  69 6f 24 44 69 72 3e 2e  21 43 68 6f 69 63 65 73  |io$Dir>.!Choices|
000015c0  22 29 0d 08 2a 0e 72 75  6e 6e 69 6e 67 25 3d 30  |")..*.running%=0|
000015d0  0d 08 34 0e e7 20 69 6e  25 3c 3e 30 20 8c 0d 08  |..4.. in%<>0 ...|
000015e0  3e 0f 20 c8 95 20 ac 20  c5 23 69 6e 25 0d 08 48  |>. .. . .#in%..H|
000015f0  22 20 20 70 72 6f 63 25  3d a4 66 69 6e 64 5f 70  |"  proc%=.find_p|
00001600  72 6f 63 28 a4 6c 63 28  be 23 69 6e 25 29 29 0d  |roc(.lc(.#in%)).|
00001610  08 52 47 20 20 e7 20 70  72 6f 63 25 3e 30 20 f2  |.RG  . proc%>0 .|
00001620  73 74 61 72 74 5f 70 72  6f 63 28 70 72 6f 63 25  |start_proc(proc%|
00001630  29 3a 72 75 6e 6e 69 6e  67 25 2b 3d 31 3a 72 75  |):running%+=1:ru|
00001640  6e 6e 69 6e 67 25 28 72  75 6e 6e 69 6e 67 25 29  |nning%(running%)|
00001650  3d 70 72 6f 63 25 0d 08  5c 06 20 ce 0d 08 66 0b  |=proc%..\. ...f.|
00001660  20 d9 20 23 69 6e 25 0d  08 70 05 cd 0d 08 7a 1f  | . #in%..p....z.|
00001670  e7 20 72 75 6e 6e 69 6e  67 25 3d 30 20 f2 73 74  |. running%=0 .st|
00001680  61 72 74 5f 70 72 6f 63  28 30 29 0d 08 84 05 e1  |art_proc(0).....|
00001690  0d 08 8e 05 3a 0d 08 98  18 dd 20 f2 73 74 61 72  |....:..... .star|
000016a0  74 5f 70 72 6f 63 28 70  72 6f 63 25 29 0d 08 a2  |t_proc(proc%)...|
000016b0  0b 21 69 63 25 3d 2d 31  0d 08 ac 37 e7 20 a4 6d  |.!ic%=-1...7. .m|
000016c0  76 28 35 29 3d 31 20 80  20 6c 69 62 5f 73 70 72  |v(5)=1 . lib_spr|
000016d0  25 28 70 72 6f 63 25 2c  31 29 3c 3e 30 20 69 63  |%(proc%,1)<>0 ic|
000016e0  6f 6e 25 3d 31 20 8b 20  69 63 6f 6e 25 3d 30 0d  |on%=1 . icon%=0.|
000016f0  08 b6 0b 69 63 25 21 34  3d 30 0d 08 c0 0b 69 63  |...ic%!4=0....ic|
00001700  25 21 38 3d 30 0d 08 ca  2f 69 63 25 21 31 32 3d  |%!8=0.../ic%!12=|
00001710  a4 73 70 72 69 74 65 5f  77 69 64 74 68 28 6c 69  |.sprite_width(li|
00001720  62 5f 73 70 72 25 28 70  72 6f 63 25 2c 69 63 6f  |b_spr%(proc%,ico|
00001730  6e 25 29 29 0d 08 d4 30  69 63 25 21 31 36 3d a4  |n%))...0ic%!16=.|
00001740  73 70 72 69 74 65 5f 68  65 69 67 68 74 28 6c 69  |sprite_height(li|
00001750  62 5f 73 70 72 25 28 70  72 6f 63 25 2c 69 63 6f  |b_spr%(proc%,ico|
00001760  6e 25 29 29 0d 08 de 14  69 63 25 21 32 30 3d 26  |n%))....ic%!20=&|
00001770  37 30 30 30 33 31 31 41  0d 08 e8 20 69 63 25 21  |7000311A... ic%!|
00001780  32 34 3d 6c 69 62 5f 73  70 72 25 28 70 72 6f 63  |24=lib_spr%(proc|
00001790  25 2c 69 63 6f 6e 25 29  0d 08 f2 17 69 63 25 21  |%,icon%)....ic%!|
000017a0  32 38 3d 6c 69 62 5f 73  70 72 69 74 65 73 25 0d  |28=lib_sprites%.|
000017b0  08 fc 0c 69 63 25 21 33  32 3d 30 0d 09 06 31 c8  |...ic%!32=0...1.|
000017c0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
000017d0  6f 6e 22 2c 2c 69 63 25  20 b8 20 70 72 6f 63 5f  |on",,ic% . proc_|
000017e0  69 63 6f 6e 25 28 70 72  6f 63 25 29 0d 09 10 05  |icon%(proc%)....|
000017f0  e1 0d 09 1a 05 3a 0d 09  24 1e dd 20 f2 73 65 6c  |.....:..$.. .sel|
00001800  65 63 74 5f 70 72 6f 63  28 70 72 6f 63 25 2c 62  |ect_proc(proc%,b|
00001810  75 74 25 29 0d 09 2e 1b  e7 20 70 72 6f 63 5f 69  |ut%)..... proc_i|
00001820  63 6f 6e 25 28 70 72 6f  63 25 29 3e 30 20 8c 0d  |con%(proc%)>0 ..|
00001830  09 38 16 20 f2 6b 69 6c  6c 5f 70 72 6f 63 28 70  |.8. .kill_proc(p|
00001840  72 6f 63 25 29 0d 09 42  05 cc 0d 09 4c 2d 20 e7  |roc%)..B....L- .|
00001850  20 72 75 6e 6e 69 6e 67  25 3d 30 20 f2 64 65 6c  | running%=0 .del|
00001860  65 74 65 5f 69 63 6f 6e  28 70 72 6f 63 5f 69 63  |ete_icon(proc_ic|
00001870  6f 6e 25 28 30 29 29 0d  09 56 17 20 f2 73 74 61  |on%(0))..V. .sta|
00001880  72 74 5f 70 72 6f 63 28  70 72 6f 63 25 29 0d 09  |rt_proc(proc%)..|
00001890  60 10 20 72 75 6e 6e 69  6e 67 25 2b 3d 31 0d 09  |`. running%+=1..|
000018a0  6a 1d 20 72 75 6e 6e 69  6e 67 25 28 72 75 6e 6e  |j. running%(runn|
000018b0  69 6e 67 25 29 3d 70 72  6f 63 25 0d 09 74 05 cd  |ing%)=proc%..t..|
000018c0  0d 09 7e 05 e1 0d 09 88  05 3a 0d 09 92 17 dd 20  |..~......:..... |
000018d0  f2 6b 69 6c 6c 5f 70 72  6f 63 28 70 72 6f 63 25  |.kill_proc(proc%|
000018e0  29 0d 09 9c 23 f2 64 65  6c 65 74 65 5f 69 63 6f  |)...#.delete_ico|
000018f0  6e 28 70 72 6f 63 5f 69  63 6f 6e 25 28 70 72 6f  |n(proc_icon%(pro|
00001900  63 25 29 29 0d 09 a6 17  70 72 6f 63 5f 69 63 6f  |c%))....proc_ico|
00001910  6e 25 28 70 72 6f 63 25  29 3d 30 0d 09 b0 3f e7  |n%(proc%)=0...?.|
00001920  20 63 75 72 5f 73 65 74  75 70 5f 68 61 6e 64 25  | cur_setup_hand%|
00001930  3d 77 69 6e 64 5f 68 61  6e 64 25 28 70 72 6f 63  |=wind_hand%(proc|
00001940  25 29 20 f2 63 6c 6f 73  65 28 63 75 72 5f 73 65  |%) .close(cur_se|
00001950  74 75 70 5f 68 61 6e 64  25 29 0d 09 ba 35 e7 20  |tup_hand%)...5. |
00001960  72 65 73 75 6c 74 5f 6f  70 65 6e 25 28 70 72 6f  |result_open%(pro|
00001970  63 25 29 20 f2 63 6c 6f  73 65 28 72 65 73 75 6c  |c%) .close(resul|
00001980  74 5f 68 61 6e 64 25 28  70 72 6f 63 25 29 29 0d  |t_hand%(proc%)).|
00001990  09 c4 29 72 75 6e 5f 70  6f 73 25 3d a4 66 69 6e  |..)run_pos%=.fin|
000019a0  64 5f 65 6c 65 6d 28 70  72 6f 63 25 2c 72 75 6e  |d_elem(proc%,run|
000019b0  6e 69 6e 67 25 28 29 29  0d 09 ce 18 72 75 6e 6e  |ning%())....runn|
000019c0  69 6e 67 25 28 72 75 6e  5f 70 6f 73 25 29 3d 30  |ing%(run_pos%)=0|
000019d0  0d 09 d8 18 c8 95 20 72  75 6e 5f 70 6f 73 25 3c  |...... run_pos%<|
000019e0  72 75 6e 6e 69 6e 67 25  0d 09 e2 2c 20 72 75 6e  |running%..., run|
000019f0  6e 69 6e 67 25 28 72 75  6e 5f 70 6f 73 25 29 3d  |ning%(run_pos%)=|
00001a00  72 75 6e 6e 69 6e 67 25  28 72 75 6e 5f 70 6f 73  |running%(run_pos|
00001a10  25 2b 31 29 0d 09 ec 10  20 72 75 6e 5f 70 6f 73  |%+1).... run_pos|
00001a20  25 2b 3d 31 0d 09 f6 05  ce 0d 0a 00 0f 72 75 6e  |%+=1.........run|
00001a30  6e 69 6e 67 25 2d 3d 31  0d 0a 0a 1f e7 20 72 75  |ning%-=1..... ru|
00001a40  6e 6e 69 6e 67 25 3d 30  20 f2 73 74 61 72 74 5f  |nning%=0 .start_|
00001a50  70 72 6f 63 28 30 29 0d  0a 14 05 e1 0d 0a 1e 05  |proc(0).........|
00001a60  3a 0d 0a 28 19 dd 20 f2  64 65 6c 65 74 65 5f 69  |:..(.. .delete_i|
00001a70  63 6f 6e 28 69 63 25 21  34 29 0d 0a 32 0b 21 69  |con(ic%!4)..2.!i|
00001a80  63 25 3d 2d 31 0d 0a 3c  1d c8 99 20 22 57 69 6d  |c%=-1..<... "Wim|
00001a90  70 5f 44 65 6c 65 74 65  49 63 6f 6e 22 2c 2c 69  |p_DeleteIcon",,i|
00001aa0  63 25 0d 0a 46 05 e1 0d  0a 50 05 3a 0d 0a 5a 14  |c%..F....P.:..Z.|
00001ab0  dd 20 a4 6c 65 61 66 5f  6e 61 6d 65 28 73 24 29  |. .leaf_name(s$)|
00001ac0  0d 0a 64 11 c8 95 20 a7  73 24 2c 22 2e 22 29 3e  |..d... .s$,".")>|
00001ad0  30 0d 0a 6e 17 20 73 24  3d c1 73 24 2c a7 73 24  |0..n. s$=.s$,.s$|
00001ae0  2c 22 2e 22 29 2b 31 29  0d 0a 78 05 ce 0d 0a 82  |,".")+1)..x.....|
00001af0  07 3d 73 24 0d 0a 8c 05  3a 0d 0a 96 12 dd 20 a4  |.=s$....:..... .|
00001b00  67 65 74 5f 73 74 72 28  61 25 29 0d 0a a0 08 ea  |get_str(a%).....|
00001b10  20 61 24 0d 0a aa 0e c8  95 20 3f 61 25 3e 3d 33  | a$...... ?a%>=3|
00001b20  32 0d 0a b4 0f 20 61 24  3d 61 24 2b bd 3f 61 25  |2.... a$=a$+.?a%|
00001b30  0d 0a be 0a 20 61 25 2b  3d 31 0d 0a c8 05 ce 0d  |.... a%+=1......|
00001b40  0a d2 07 3d 61 24 0d 0a  dc 05 3a 0d 0a e6 22 dd  |...=a$....:...".|
00001b50  20 a4 6d 61 6b 65 5f 6d  65 6e 28 24 74 65 6d 70  | .make_men($temp|
00001b60  25 2c 6d 65 6e 75 74 69  74 6c 65 24 29 0d 0a f0  |%,menutitle$)...|
00001b70  24 3d a4 6d 61 6b 65 5f  6d 65 6e 5f 72 61 77 28  |$=.make_men_raw(|
00001b80  74 65 6d 70 25 2c 6d 65  6e 75 74 69 74 6c 65 24  |temp%,menutitle$|
00001b90  29 0d 0a fa 05 3a 0d 0b  04 23 dd 20 a4 6d 61 6b  |)....:...#. .mak|
00001ba0  65 5f 6d 65 6e 5f 72 61  77 28 6d 70 25 2c 6d 65  |e_men_raw(mp%,me|
00001bb0  6e 75 74 69 74 6c 65 24  29 0d 0b 0e 1c ea 20 6d  |nutitle$)..... m|
00001bc0  65 6e 75 6d 61 78 25 2c  77 61 73 70 74 72 25 2c  |enumax%,wasptr%,|
00001bd0  69 74 65 6d 24 0d 0b 18  14 77 61 73 70 74 72 25  |item$....wasptr%|
00001be0  3d 6d 65 6e 75 70 74 72  25 0d 0b 22 0e 6d 65 6e  |=menuptr%..".men|
00001bf0  75 6d 61 78 25 3d 30 0d  0b 2c 12 6d 65 6e 75 70  |umax%=0..,.menup|
00001c00  74 72 25 21 32 30 3d 34  34 0d 0b 36 18 24 6d 65  |tr%!20=44..6.$me|
00001c10  6e 75 70 74 72 25 3d 6d  65 6e 75 74 69 74 6c 65  |nuptr%=menutitle|
00001c20  24 0d 0b 40 16 6d 65 6e  75 70 74 72 25 21 31 32  |$..@.menuptr%!12|
00001c30  3d 26 37 30 32 30 37 0d  0b 4a 18 6d 61 78 61 64  |=&70207..J.maxad|
00001c40  64 72 25 3d 6d 65 6e 75  70 74 72 25 2b 31 36 0d  |dr%=menuptr%+16.|
00001c50  0b 54 11 6d 65 6e 75 70  74 72 25 21 32 34 3d 30  |.T.menuptr%!24=0|
00001c60  0d 0b 5e 10 6d 65 6e 75  70 74 72 25 2b 3d 32 38  |..^.menuptr%+=28|
00001c70  0d 0b 68 05 f5 0d 0b 72  0d 20 69 74 65 6d 24 3d  |..h....r. item$=|
00001c80  22 22 0d 0b 7c 10 20 c8  95 20 3f 6d 70 25 3c 3e  |""..|. .. ?mp%<>|
00001c90  34 34 0d 0b 86 12 20 20  69 74 65 6d 24 2b 3d bd  |44....  item$+=.|
00001ca0  3f 6d 70 25 0d 0b 90 0c  20 20 6d 70 25 2b 3d 31  |?mp%....  mp%+=1|
00001cb0  0d 0b 9a 06 20 ce 0d 0b  a4 0b 20 6d 70 25 2b 3d  |.... ..... mp%+=|
00001cc0  31 0d 0b ae 2a 20 e7 20  a9 28 69 74 65 6d 24 29  |1...* . .(item$)|
00001cd0  3e 6d 65 6e 75 6d 61 78  25 20 6d 65 6e 75 6d 61  |>menumax% menuma|
00001ce0  78 25 3d a9 28 69 74 65  6d 24 29 0d 0b b8 11 20  |x%=.(item$).... |
00001cf0  6d 65 6e 75 70 74 72 25  21 30 3d 30 0d 0b c2 12  |menuptr%!0=0....|
00001d00  20 6d 65 6e 75 70 74 72  25 21 34 3d 2d 31 0d 0b  | menuptr%!4=-1..|
00001d10  cc 18 20 6d 65 6e 75 70  74 72 25 21 38 3d 26 37  |.. menuptr%!8=&7|
00001d20  30 30 30 30 32 31 0d 0b  d6 14 20 e7 20 a9 28 69  |000021.... . .(i|
00001d30  74 65 6d 24 29 3c 31 32  20 8c 0d 0b e0 1a 20 20  |tem$)<12 .....  |
00001d40  24 28 6d 65 6e 75 70 74  72 25 2b 31 32 29 3d 69  |$(menuptr%+12)=i|
00001d50  74 65 6d 24 0d 0b ea 06  20 cc 0d 0b f4 1a 20 20  |tem$.... .....  |
00001d60  6d 65 6e 75 64 61 74 25  2d 3d a9 28 69 74 65 6d  |menudat%-=.(item|
00001d70  24 29 2b 31 0d 0b fe 15  20 20 24 6d 65 6e 75 64  |$)+1....  $menud|
00001d80  61 74 25 3d 69 74 65 6d  24 0d 0c 08 1a 20 20 6d  |at%=item$....  m|
00001d90  65 6e 75 70 74 72 25 21  31 32 3d 6d 65 6e 75 64  |enuptr%!12=menud|
00001da0  61 74 25 0d 0c 12 14 20  20 6d 65 6e 75 70 74 72  |at%....  menuptr|
00001db0  25 21 31 36 3d 2d 31 0d  0c 1c 1a 20 20 6d 65 6e  |%!16=-1....  men|
00001dc0  75 70 74 72 25 21 32 30  3d a9 28 69 74 65 6d 24  |uptr%!20=.(item$|
00001dd0  29 0d 0c 26 16 20 20 6d  65 6e 75 70 74 72 25 21  |)..&.  menuptr%!|
00001de0  38 2b 3d 26 31 30 30 0d  0c 30 06 20 cd 0d 0c 3a  |8+=&100..0. ...:|
00001df0  11 20 6d 65 6e 75 70 74  72 25 2b 3d 32 34 0d 0c  |. menuptr%+=24..|
00001e00  44 0d fd 20 3f 6d 70 25  3c 33 32 0d 0c 4e 25 6d  |D.. ?mp%<32..N%m|
00001e10  65 6e 75 70 74 72 25 21  2d 32 34 3d 28 6d 65 6e  |enuptr%!-24=(men|
00001e20  75 70 74 72 25 21 2d 32  34 29 20 84 20 26 38 30  |uptr%!-24) . &80|
00001e30  0d 0c 58 1c 21 6d 61 78  61 64 64 72 25 3d 6d 65  |..X.!maxaddr%=me|
00001e40  6e 75 6d 61 78 25 2a 31  36 2b 33 32 0d 0c 62 0c  |numax%*16+32..b.|
00001e50  3d 77 61 73 70 74 72 25  0d 0c 6c 05 3a 0d 0c 76  |=wasptr%..l.:..v|
00001e60  22 dd 20 f2 61 74 74 61  63 68 5f 73 75 62 5f 6d  |". .attach_sub_m|
00001e70  65 6e 75 28 6d 31 25 2c  6d 32 25 2c 69 25 29 0d  |enu(m1%,m2%,i%).|
00001e80  0c 80 16 6d 32 25 21 28  33 32 2b 32 34 2a 69 25  |...m2%!(32+24*i%|
00001e90  29 3d 6d 31 25 0d 0c 8a  05 e1 0d 0c 94 05 3a 0d  |)=m1%.........:.|
00001ea0  0c 9e 1a dd 20 f2 6f 70  65 6e 5f 6d 65 6e 75 28  |.... .open_menu(|
00001eb0  6d 25 2c 78 25 2c 79 25  29 0d 0c a8 08 ea 20 69  |m%,x%,y%)..... i|
00001ec0  25 0d 0c b2 17 e3 20 69  25 3d 31 20 b8 20 6c 69  |%..... i%=1 . li|
00001ed0  62 5f 66 69 6c 65 73 25  0d 0c bc 2c 20 f2 74 69  |b_files%..., .ti|
00001ee0  63 6b 28 70 72 6f 63 5f  6d 65 6e 75 25 2c 69 25  |ck(proc_menu%,i%|
00001ef0  2d 31 2c 70 72 6f 63 5f  69 63 6f 6e 25 28 69 25  |-1,proc_icon%(i%|
00001f00  29 3e 30 29 0d 0c c6 05  ed 0d 0c d0 0d 6d 65 6e  |)>0).........men|
00001f10  75 78 25 3d 78 25 0d 0c  da 0d 6d 65 6e 75 79 25  |ux%=x%....menuy%|
00001f20  3d 79 25 0d 0c e4 22 c8  99 20 22 57 69 6d 70 5f  |=y%...".. "Wimp_|
00001f30  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 6d 25 2c  |CreateMenu",,m%,|
00001f40  78 25 2c 79 25 0d 0c ee  05 e1 0d 0c f8 05 3a 0d  |x%,y%.........:.|
00001f50  0d 02 12 dd 20 f2 6d 65  6e 75 5f 73 65 6c 65 63  |.... .menu_selec|
00001f60  74 0d 0d 0c 23 c8 99 20  22 57 69 6d 70 5f 47 65  |t...#.. "Wimp_Ge|
00001f70  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 74  |tPointerInfo",,t|
00001f80  65 6d 70 25 0d 0d 16 1b  72 65 64 6f 25 3d 28 28  |emp%....redo%=((|
00001f90  74 65 6d 70 25 21 38 29  20 80 20 31 29 3e 30 0d  |temp%!8) . 1)>0.|
00001fa0  0d 20 0c c8 8e 20 21 71  25 20 ca 0d 0d 2a 2f 20  |. ... !q% ...*/ |
00001fb0  c9 20 31 3a e7 20 71 25  21 34 3e 3d 30 20 f2 73  |. 1:. q%!4>=0 .s|
00001fc0  65 6c 65 63 74 5f 70 72  6f 63 28 71 25 21 34 2b  |elect_proc(q%!4+|
00001fd0  31 2c 74 65 6d 70 25 21  38 29 0d 0d 34 15 20 c9  |1,temp%!8)..4. .|
00001fe0  20 32 3a f2 73 65 74 5f  64 65 66 61 75 6c 74 0d  | 2:.set_default.|
00001ff0  0d 3e 47 20 c9 20 33 3a  72 65 64 6f 25 3d a3 3a  |.>G . 3:redo%=.:|
00002000  e7 20 71 25 21 34 3e 3d  30 20 84 20 72 75 6e 6e  |. q%!4>=0 . runn|
00002010  69 6e 67 25 3d 30 20 64  6f 6e 65 25 3d b9 20 8b  |ing%=0 done%=. .|
00002020  20 f2 6b 69 6c 6c 5f 70  72 6f 63 28 62 61 72 5f  | .kill_proc(bar_|
00002030  70 72 6f 63 25 29 0d 0d  48 05 cb 0d 0d 52 30 e7  |proc%)..H....R0.|
00002040  20 72 65 64 6f 25 20 f2  6f 70 65 6e 5f 6d 65 6e  | redo% .open_men|
00002050  75 28 6d 61 69 6e 5f 6d  65 6e 75 25 2c 6d 65 6e  |u(main_menu%,men|
00002060  75 78 25 2c 6d 65 6e 75  79 25 29 0d 0d 5c 05 e1  |ux%,menuy%)..\..|
00002070  0d 0d 66 05 3a 0d 0d 70  12 dd 20 f2 73 65 74 5f  |..f.:..p.. .set_|
00002080  64 65 66 61 75 6c 74 0d  0d 7a 0a ea 20 6f 75 74  |default..z.. out|
00002090  25 0d 0d 84 20 6f 75 74  25 3d ae 28 22 3c 42 69  |%... out%=.("<Bi|
000020a0  6f 24 44 69 72 3e 2e 21  43 68 6f 69 63 65 73 22  |o$Dir>.!Choices"|
000020b0  29 0d 0d 8e 12 e7 20 72  75 6e 6e 69 6e 67 25 3e  |)..... running%>|
000020c0  30 20 8c 0d 0d 98 16 20  e3 20 69 25 3d 31 20 b8  |0 ..... . i%=1 .|
000020d0  20 72 75 6e 6e 69 6e 67  25 0d 0d a2 29 20 20 f2  | running%...)  .|
000020e0  62 70 75 74 28 6f 75 74  25 2c 6c 69 62 5f 70 72  |bput(out%,lib_pr|
000020f0  6f 63 24 28 72 75 6e 6e  69 6e 67 25 28 69 25 29  |oc$(running%(i%)|
00002100  29 29 0d 0d ac 06 20 ed  0d 0d b6 05 cd 0d 0d c0  |)).... .........|
00002110  0b d9 20 23 6f 75 74 25  0d 0d ca 05 e1 0d 0d d4  |.. #out%........|
00002120  05 3a 0d 0d de 15 dd 20  f2 74 69 63 6b 28 61 25  |.:..... .tick(a%|
00002130  2c 69 25 2c 63 25 29 0d  0d e8 12 61 25 3d 61 25  |,i%,c%)....a%=a%|
00002140  2b 32 38 2b 32 34 2a 69  25 0d 0d f2 2c e7 20 63  |+28+24*i%...,. c|
00002150  25 20 8c 20 21 61 25 3d  21 61 25 20 84 20 31 20  |% . !a%=!a% . 1 |
00002160  8b 20 21 61 25 3d 21 61  25 20 80 20 26 46 46 46  |. !a%=!a% . &FFF|
00002170  46 46 46 46 45 0d 0d fc  05 e1 0d 0e 06 05 3a 0d  |FFFFE.........:.|
00002180  0e 10 0f dd 20 f2 77 61  72 6e 28 77 24 29 0d 0e  |.... .warn(w$)..|
00002190  1a 0d 21 74 65 6d 70 25  3d 31 37 0d 0e 24 11 24  |..!temp%=17..$.$|
000021a0  28 74 65 6d 70 25 2b 34  29 3d 77 24 0d 0e 2e 27  |(temp%+4)=w$...'|
000021b0  c8 99 20 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |.. "Wimp_ReportE|
000021c0  72 72 6f 72 22 2c 74 65  6d 70 25 2c 31 2c 22 42  |rror",temp%,1,"B|
000021d0  69 6f 22 0d 0e 38 05 e1  0d 0e 42 05 3a 0d 0e 4c  |io"..8....B.:..L|
000021e0  2e dd 20 f2 6d 6f 75 73  65 28 6d 6f 75 73 65 78  |.. .mouse(mousex|
000021f0  25 2c 6d 6f 75 73 65 79  25 2c 62 25 2c 68 61 6e  |%,mousey%,b%,han|
00002200  64 6c 65 25 2c 69 63 6f  6e 25 29 0d 0e 56 12 ea  |dle%,icon%)..V..|
00002210  20 73 68 61 6e 64 25 2c  70 72 6f 63 25 0d 0e 60  | shand%,proc%..`|
00002220  2c 62 61 72 5f 70 72 6f  63 25 3d a4 66 69 6e 64  |,bar_proc%=.find|
00002230  5f 65 6c 65 6d 28 69 63  6f 6e 25 2c 70 72 6f 63  |_elem(icon%,proc|
00002240  5f 69 63 6f 6e 25 28 29  29 0d 0e 6a 12 e7 20 28  |_icon%())..j.. (|
00002250  62 25 20 80 20 35 29 3e  30 20 8c 0d 0e 74 11 20  |b% . 5)>0 ...t. |
00002260  c8 8e 20 68 61 6e 64 6c  65 25 20 ca 0d 0e 7e 13  |.. handle% ...~.|
00002270  20 20 c9 20 73 61 76 65  5f 68 61 6e 64 25 3a 0d  |  . save_hand%:.|
00002280  0e 88 11 20 20 20 c8 8e  20 69 63 6f 6e 25 20 ca  |...   .. icon% .|
00002290  0d 0e 92 3a 20 20 20 20  c9 20 30 3a e7 20 a4 73  |...:    . 0:. .s|
000022a0  61 76 65 28 a4 67 65 74  5f 73 74 72 28 73 61 76  |ave(.get_str(sav|
000022b0  65 74 65 78 74 29 29 20  f2 63 6c 6f 73 65 28 73  |etext)) .close(s|
000022c0  61 76 65 5f 68 61 6e 64  25 29 0d 0e 9c 27 20 20  |ave_hand%)...'  |
000022d0  20 20 c9 20 31 3a f2 69  6e 69 74 5f 73 61 76 65  |  . 1:.init_save|
000022e0  5f 64 72 61 67 28 73 61  76 65 5f 68 61 6e 64 25  |_drag(save_hand%|
000022f0  29 0d 0e a6 08 20 20 20  cb 0d 0e b0 0b 20 20 c9  |)....   .....  .|
00002300  20 2d 32 3a 0d 0e ba 23  20 20 20 73 68 61 6e 64  | -2:...#   shand|
00002310  25 3d 77 69 6e 64 5f 68  61 6e 64 25 28 62 61 72  |%=wind_hand%(bar|
00002320  5f 70 72 6f 63 25 29 0d  0e c4 13 20 20 20 e7 20  |_proc%)....   . |
00002330  73 68 61 6e 64 25 3e 30  20 8c 0d 0e ce 35 20 20  |shand%>0 ....5  |
00002340  20 20 e7 20 63 75 72 5f  73 65 74 75 70 5f 68 61  |  . cur_setup_ha|
00002350  6e 64 25 3c 3e 2d 31 20  f2 63 6c 6f 73 65 28 63  |nd%<>-1 .close(c|
00002360  75 72 5f 73 65 74 75 70  5f 68 61 6e 64 25 29 0d  |ur_setup_hand%).|
00002370  0e d8 1e 20 20 20 20 63  75 72 5f 73 65 74 75 70  |...    cur_setup|
00002380  5f 68 61 6e 64 25 3d 73  68 61 6e 64 25 0d 0e e2  |_hand%=shand%...|
00002390  12 20 20 20 20 21 71 25  3d 73 68 61 6e 64 25 0d  |.    !q%=shand%.|
000023a0  0e ec 24 20 20 20 20 c8  99 20 22 57 69 6d 70 5f  |..$    .. "Wimp_|
000023b0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
000023c0  2c 71 25 0d 0e f6 10 20  20 20 20 71 25 21 32 38  |,q%....    q%!28|
000023d0  3d 2d 31 0d 0f 00 20 20  20 20 20 c8 99 20 22 57  |=-1...     .. "W|
000023e0  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
000023f0  2c 71 25 0d 0f 0a 08 20  20 20 cd 0d 0f 14 08 20  |,q%....   ..... |
00002400  20 7f 3a 0d 0f 1e 2d 20  20 20 70 72 6f 63 25 3d  | .:...-   proc%=|
00002410  a4 66 69 6e 64 5f 65 6c  65 6d 28 68 61 6e 64 6c  |.find_elem(handl|
00002420  65 25 2c 77 69 6e 64 5f  68 61 6e 64 25 28 29 29  |e%,wind_hand%())|
00002430  0d 0f 28 12 20 20 20 e7  20 70 72 6f 63 25 3e 30  |..(.   . proc%>0|
00002440  20 8c 0d 0f 32 66 20 20  20 20 65 3d a0 28 22 46  | ...2f    e=.("F|
00002450  4e 22 2b 6c 69 62 5f 70  72 6f 63 24 28 70 72 6f  |N"+lib_proc$(pro|
00002460  63 25 29 2b 22 5f 6d 6f  75 73 65 28 22 2b c3 6d  |c%)+"_mouse("+.m|
00002470  6f 75 73 65 78 25 2b 22  2c 22 2b c3 6d 6f 75 73  |ousex%+","+.mous|
00002480  65 79 25 2b 22 2c 22 2b  c3 62 25 2b 22 2c 22 2b  |ey%+","+.b%+","+|
00002490  c3 68 61 6e 64 6c 65 25  2b 22 2c 22 2b c3 69 63  |.handle%+","+.ic|
000024a0  6f 6e 25 2b 22 29 22 29  0d 0f 3c 1e 20 20 20 20  |on%+")")..<.    |
000024b0  e7 20 65 20 f2 70 72 6f  63 65 73 73 28 70 72 6f  |. e .process(pro|
000024c0  63 25 2c 22 22 29 0d 0f  46 08 20 20 20 cd 0d 0f  |c%,"")..F.   ...|
000024d0  50 06 20 cb 0d 0f 5a 05  cc 0d 0f 64 20 20 e7 20  |P. ...Z....d  . |
000024e0  28 62 25 20 80 20 32 29  3e 30 20 80 20 68 61 6e  |(b% . 2)>0 . han|
000024f0  64 6c 65 25 3d 2d 32 20  8c 0d 0f 6e 56 20 20 e7  |dle%=-2 ...nV  .|
00002500  20 62 61 72 5f 70 72 6f  63 25 3d 30 20 f2 6c 61  | bar_proc%=0 .la|
00002510  62 65 6c 5f 6d 61 69 6e  28 22 42 69 6f 22 29 20  |bel_main("Bio") |
00002520  8b 20 f2 6c 61 62 65 6c  5f 6d 61 69 6e 28 a4 6c  |. .label_main(.l|
00002530  65 61 66 5f 6e 61 6d 65  28 6c 69 62 5f 66 69 6c  |eaf_name(lib_fil|
00002540  65 24 28 62 61 72 5f 70  72 6f 63 25 29 29 29 0d  |e$(bar_proc%))).|
00002550  0f 78 2b 20 20 f2 6f 70  65 6e 5f 6d 65 6e 75 28  |.x+  .open_menu(|
00002560  6d 61 69 6e 5f 6d 65 6e  75 25 2c 6d 6f 75 73 65  |main_menu%,mouse|
00002570  78 25 2d 36 34 2c 32 37  32 29 0d 0f 82 06 20 cd  |x%-64,272).... .|
00002580  0d 0f 8c 47 20 e7 20 28  62 25 20 80 20 32 29 3e  |...G . (b% . 2)>|
00002590  30 20 80 20 68 61 6e 64  6c 65 25 3c 3e 2d 32 20  |0 . handle%<>-2 |
000025a0  f2 6f 70 65 6e 5f 73 70  72 5f 73 61 76 65 28 6d  |.open_spr_save(m|
000025b0  6f 75 73 65 78 25 2c 6d  6f 75 73 65 79 25 2c 68  |ousex%,mousey%,h|
000025c0  61 6e 64 6c 65 25 29 0d  0f 96 05 cd 0d 0f a0 05  |andle%).........|
000025d0  e1 0d 0f aa 05 3a 0d 0f  b4 19 dd 20 f2 6c 61 62  |.....:..... .lab|
000025e0  65 6c 5f 6d 61 69 6e 28  74 69 74 6c 65 24 29 0d  |el_main(title$).|
000025f0  0f be 14 e3 20 69 25 3d  30 20 b8 20 a9 74 69 74  |.... i%=0 . .tit|
00002600  6c 65 24 0d 0f c8 26 20  6d 61 69 6e 5f 6d 65 6e  |le$...& main_men|
00002610  75 25 3f 69 25 3d 97 c1  74 69 74 6c 65 24 2b bd  |u%?i%=..title$+.|
00002620  30 2c 69 25 2b 31 2c 31  29 0d 0f d2 05 ed 0d 0f  |0,i%+1,1).......|
00002630  dc 05 e1 0d 0f e6 05 3a  0d 0f f0 17 dd 20 a4 66  |.......:..... .f|
00002640  69 6c 65 5f 74 79 70 65  28 6e 61 6d 65 24 29 0d  |ile_type(name$).|
00002650  0f fa 0e ea 20 74 79 70  65 25 2c 6f 6b 0d 10 04  |.... type%,ok...|
00002660  15 e7 20 6e 61 6d 65 24  3d 22 2a 22 20 8c 20 3d  |.. name$="*" . =|
00002670  2d 31 0d 10 0e 2c c8 99  20 22 58 4f 53 5f 46 53  |-1...,.. "XOS_FS|
00002680  43 6f 6e 74 72 6f 6c 22  2c 33 31 2c 6e 61 6d 65  |Control",31,name|
00002690  24 20 b8 20 2c 2c 74 79  70 65 25 3b 6f 6b 0d 10  |$ . ,,type%;ok..|
000026a0  18 37 e7 20 28 6f 6b 20  80 20 31 29 3e 30 20 f2  |.7. (ok . 1)>0 .|
000026b0  77 61 72 6e 28 22 55 6e  6b 6e 6f 77 6e 20 66 69  |warn("Unknown fi|
000026c0  6c 65 20 74 79 70 65 20  27 22 2b 6e 61 6d 65 24  |le type '"+name$|
000026d0  2b 22 27 22 29 0d 10 22  0a 3d 74 79 70 65 25 0d  |+"'")..".=type%.|
000026e0  10 2c 05 3a 0d 10 36 0e  dd 20 f2 6d 65 73 73 61  |.,.:..6.. .messa|
000026f0  67 65 0d 10 40 0b ea 20  70 72 6f 63 25 0d 10 4a  |ge..@.. proc%..J|
00002700  18 f2 63 6f 70 79 28 71  25 2c 6d 65 73 73 25 2c  |..copy(q%,mess%,|
00002710  26 31 30 30 29 0d 10 54  11 c8 8e 20 6d 65 73 73  |&100)..T... mess|
00002720  25 21 31 36 20 ca 0d 10  5e 10 20 c9 20 30 3a 64  |%!16 ...^. . 0:d|
00002730  6f 6e 65 25 3d b9 0d 10  68 09 20 c9 20 31 3a 0d  |one%=...h. . 1:.|
00002740  10 72 1b 20 20 63 75 72  5f 70 72 6f 63 25 3d a4  |.r.  cur_proc%=.|
00002750  77 68 69 63 68 5f 70 72  6f 63 0d 10 7c 29 20 20  |which_proc..|)  |
00002760  e7 20 a4 61 6c 6c 6f 77  5f 74 79 70 65 28 6d 65  |. .allow_type(me|
00002770  73 73 25 21 34 30 2c 63  75 72 5f 70 72 6f 63 25  |ss%!40,cur_proc%|
00002780  29 20 8c 0d 10 86 12 20  20 20 6d 65 73 73 25 21  |) .....   mess%!|
00002790  33 36 3d 2d 31 0d 10 90  24 20 20 20 24 28 6d 65  |36=-1...$   $(me|
000027a0  73 73 25 2b 34 34 29 3d  22 3c 57 69 6d 70 24 53  |ss%+44)="<Wimp$S|
000027b0  63 72 61 70 3e 22 2b bd  30 0d 10 9a 17 20 20 20  |crap>"+.0....   |
000027c0  6d 65 73 73 25 21 31 32  3d 6d 65 73 73 25 21 38  |mess%!12=mess%!8|
000027d0  0d 10 a4 11 20 20 20 6d  65 73 73 25 21 31 36 3d  |....   mess%!16=|
000027e0  32 0d 10 ae 10 20 20 20  21 6d 65 73 73 25 3d 36  |2....   !mess%=6|
000027f0  30 0d 10 b8 2d 20 20 20  c8 99 20 22 57 69 6d 70  |0...-   .. "Wimp|
00002800  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
00002810  2c 6d 65 73 73 25 2c 6d  65 73 73 25 21 34 0d 10  |,mess%,mess%!4..|
00002820  c2 07 20 20 cc 0d 10 cc  15 20 20 20 f2 62 61 64  |..  .....   .bad|
00002830  5f 66 69 6c 65 5f 74 79  70 65 0d 10 d6 07 20 20  |_file_type....  |
00002840  cd 0d 10 e0 09 20 c9 20  32 3a 0d 10 ea 23 20 20  |..... . 2:...#  |
00002850  e7 20 a4 73 61 76 65 28  a4 67 65 74 5f 73 74 72  |. .save(.get_str|
00002860  28 6d 65 73 73 25 2b 34  34 29 29 20 8c 0d 10 f4  |(mess%+44)) ....|
00002870  17 20 20 20 6d 65 73 73  25 21 31 32 3d 6d 65 73  |.   mess%!12=mes|
00002880  73 25 21 38 0d 10 fe 11  20 20 20 6d 65 73 73 25  |s%!8....   mess%|
00002890  21 31 36 3d 33 0d 11 08  2d 20 20 20 c8 99 20 22  |!16=3...-   .. "|
000028a0  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
000028b0  22 2c 31 37 2c 6d 65 73  73 25 2c 6d 65 73 73 25  |",17,mess%,mess%|
000028c0  21 34 0d 11 12 19 20 20  20 f2 63 6c 6f 73 65 28  |!4....   .close(|
000028d0  73 61 76 65 5f 68 61 6e  64 25 29 0d 11 1c 07 20  |save_hand%).... |
000028e0  20 cd 0d 11 26 09 20 c9  20 33 3a 0d 11 30 17 20  | ...&. . 3:..0. |
000028f0  20 70 72 6f 63 25 3d a4  77 68 69 63 68 5f 70 72  | proc%=.which_pr|
00002900  6f 63 0d 11 3a 25 20 20  e7 20 a4 61 6c 6c 6f 77  |oc..:%  . .allow|
00002910  5f 74 79 70 65 28 6d 65  73 73 25 21 34 30 2c 70  |_type(mess%!40,p|
00002920  72 6f 63 25 29 20 8c 0d  11 44 29 20 20 20 f2 70  |roc%) ...D)   .p|
00002930  72 6f 63 65 73 73 28 70  72 6f 63 25 2c a4 67 65  |rocess(proc%,.ge|
00002940  74 5f 73 74 72 28 6d 65  73 73 25 2b 34 34 29 29  |t_str(mess%+44))|
00002950  0d 11 4e 17 20 20 20 6d  65 73 73 25 21 31 32 3d  |..N.   mess%!12=|
00002960  6d 65 73 73 25 21 38 0d  11 58 11 20 20 20 6d 65  |mess%!8..X.   me|
00002970  73 73 25 21 31 36 3d 34  0d 11 62 2d 20 20 20 c8  |ss%!16=4..b-   .|
00002980  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
00002990  61 67 65 22 2c 31 37 2c  6d 65 73 73 25 2c 6d 65  |age",17,mess%,me|
000029a0  73 73 25 21 34 0d 11 6c  07 20 20 cc 0d 11 76 15  |ss%!4..l.  ...v.|
000029b0  20 20 20 f2 62 61 64 5f  66 69 6c 65 5f 74 79 70  |   .bad_file_typ|
000029c0  65 0d 11 80 07 20 20 cd  0d 11 8a 15 20 c9 20 26  |e....  ..... . &|
000029d0  35 30 32 3a f2 69 6e 74  5f 68 65 6c 70 0d 11 94  |502:.int_help...|
000029e0  18 20 c9 20 39 3a f2 70  61 6c 65 74 74 65 5f 63  |. . 9:.palette_c|
000029f0  68 61 6e 67 65 0d 11 9e  05 cb 0d 11 a8 05 e1 0d  |hange...........|
00002a00  11 b2 05 3a 0d 11 bc 14  dd 20 f2 62 61 64 5f 66  |...:..... .bad_f|
00002a10  69 6c 65 5f 74 79 70 65  0d 11 c6 1e f2 77 61 72  |ile_type.....war|
00002a20  6e 28 22 49 6e 76 61 6c  69 64 20 66 69 6c 65 20  |n("Invalid file |
00002a30  74 79 70 65 22 29 0d 11  d0 05 e1 0d 11 da 05 3a  |type").........:|
00002a40  0d 11 e4 11 dd 20 a4 77  68 69 63 68 5f 70 72 6f  |..... .which_pro|
00002a50  63 0d 11 ee 21 c8 99 20  22 57 69 6d 70 5f 47 65  |c...!.. "Wimp_Ge|
00002a60  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 69  |tPointerInfo",,i|
00002a70  63 25 0d 11 f8 32 e7 20  69 63 25 21 31 32 3d 2d  |c%...2. ic%!12=-|
00002a80  32 20 8c 20 3d a4 66 69  6e 64 5f 65 6c 65 6d 28  |2 . =.find_elem(|
00002a90  69 63 25 21 31 36 2c 70  72 6f 63 5f 69 63 6f 6e  |ic%!16,proc_icon|
00002aa0  25 28 29 29 0d 12 02 48  3d a4 66 69 6e 64 5f 65  |%())...H=.find_e|
00002ab0  6c 65 6d 28 69 63 25 21  31 32 2c 77 69 6e 64 5f  |lem(ic%!12,wind_|
00002ac0  68 61 6e 64 25 28 29 29  20 84 20 a4 66 69 6e 64  |hand%()) . .find|
00002ad0  5f 65 6c 65 6d 28 69 63  25 21 31 32 2c 72 65 73  |_elem(ic%!12,res|
00002ae0  75 6c 74 5f 68 61 6e 64  25 28 29 29 0d 12 0c 05  |ult_hand%())....|
00002af0  3a 0d 12 16 1f dd 20 a4  61 6c 6c 6f 77 5f 74 79  |:..... .allow_ty|
00002b00  70 65 28 67 69 76 65 6e  25 2c 70 72 6f 63 25 29  |pe(given%,proc%)|
00002b10  0d 12 20 41 e7 20 28 67  69 76 65 6e 25 3d 26 31  |.. A. (given%=&1|
00002b20  30 30 30 20 84 20 67 69  76 65 6e 25 3d 26 32 30  |000 . given%=&20|
00002b30  30 30 29 20 8c 20 3d 28  6c 69 62 5f 66 6c 61 67  |00) . =(lib_flag|
00002b40  73 25 28 70 72 6f 63 25  29 20 80 20 32 29 3c 3e  |s%(proc%) . 2)<>|
00002b50  30 0d 12 2a 50 e7 20 28  6c 69 62 5f 66 6c 61 67  |0..*P. (lib_flag|
00002b60  73 25 28 70 72 6f 63 25  29 20 80 20 31 29 20 80  |s%(proc%) . 1) .|
00002b70  20 28 6c 69 62 5f 69 6e  25 28 70 72 6f 63 25 29  | (lib_in%(proc%)|
00002b80  3d 2d 31 20 84 20 6c 69  62 5f 69 6e 25 28 70 72  |=-1 . lib_in%(pr|
00002b90  6f 63 25 29 3d 67 69 76  65 6e 25 29 20 8c 20 3d  |oc%)=given%) . =|
00002ba0  b9 0d 12 34 06 3d a3 0d  12 3e 05 3a 0d 12 48 1d  |...4.=...>.:..H.|
00002bb0  dd 20 f2 63 6f 70 79 28  66 72 6f 6d 25 2c 74 6f  |. .copy(from%,to|
00002bc0  25 2c 62 79 74 65 73 25  29 0d 12 52 08 ea 20 69  |%,bytes%)..R.. i|
00002bd0  25 0d 12 5c 19 e3 20 69  25 3d 30 20 b8 20 62 79  |%..\.. i%=0 . by|
00002be0  74 65 73 25 2d 31 20 88  20 34 0d 12 66 14 20 74  |tes%-1 . 4..f. t|
00002bf0  6f 25 21 69 25 3d 66 72  6f 6d 25 21 69 25 0d 12  |o%!i%=from%!i%..|
00002c00  70 05 ed 0d 12 7a 05 e1  0d 12 84 05 3a 0d 12 8e  |p....z......:...|
00002c10  1b dd 20 f2 70 72 6f 63  65 73 73 28 70 72 6f 63  |.. .process(proc|
00002c20  25 2c 66 69 6c 65 24 29  0d 12 98 13 ea 20 65 24  |%,file$)..... e$|
00002c30  2c 7a 2c 78 2c 79 2c 62  2c 69 25 0d 12 a2 13 63  |,z,x,y,b,i%....c|
00002c40  75 72 5f 70 72 6f 63 25  3d 70 72 6f 63 25 0d 12  |ur_proc%=proc%..|
00002c50  ac 31 e7 20 63 75 72 5f  73 65 74 75 70 5f 68 61  |.1. cur_setup_ha|
00002c60  6e 64 25 3c 3e 2d 31 20  f2 63 6c 6f 73 65 28 63  |nd%<>-1 .close(c|
00002c70  75 72 5f 73 65 74 75 70  5f 68 61 6e 64 25 29 0d  |ur_setup_hand%).|
00002c80  12 b6 35 e7 20 72 65 73  75 6c 74 5f 6f 70 65 6e  |..5. result_open|
00002c90  25 28 70 72 6f 63 25 29  20 f2 63 6c 6f 73 65 28  |%(proc%) .close(|
00002ca0  72 65 73 75 6c 74 5f 68  61 6e 64 25 28 70 72 6f  |result_hand%(pro|
00002cb0  63 25 29 29 0d 12 c0 27  e7 20 73 61 76 65 5f 70  |c%))...'. save_p|
00002cc0  72 6f 63 25 3c 3e 2d 31  20 f2 63 6c 6f 73 65 28  |roc%<>-1 .close(|
00002cd0  73 61 76 65 5f 68 61 6e  64 25 29 0d 12 ca 0c c8  |save_hand%).....|
00002ce0  97 20 78 2c 79 2c 62 0d  12 d4 2d 65 24 3d 22 46  |. x,y,b...-e$="F|
00002cf0  4e 22 2b 6c 69 62 5f 70  72 6f 63 24 28 70 72 6f  |N"+lib_proc$(pro|
00002d00  63 25 29 2b 22 28 22 22  22 2b 66 69 6c 65 24 2b  |c%)+"("""+file$+|
00002d10  22 22 22 22 0d 12 de 29  6d 61 6b 65 73 5f 66 69  |""""...)makes_fi|
00002d20  6c 65 25 3d 28 6c 69 62  5f 66 6c 61 67 73 25 28  |le%=(lib_flags%(|
00002d30  70 72 6f 63 25 29 20 80  20 34 29 3e 30 0d 12 e8  |proc%) . 4)>0...|
00002d40  2c 6d 61 6b 65 73 5f 72  65 73 75 6c 74 73 25 3d  |,makes_results%=|
00002d50  28 6c 69 62 5f 66 6c 61  67 73 25 28 70 72 6f 63  |(lib_flags%(proc|
00002d60  25 29 20 80 20 38 29 3e  30 0d 12 f2 2c 6d 61 6b  |%) . 8)>0...,mak|
00002d70  65 73 5f 77 69 6e 64 6f  77 25 3d 28 6c 69 62 5f  |es_window%=(lib_|
00002d80  66 6c 61 67 73 25 28 70  72 6f 63 25 29 20 80 20  |flags%(proc%) . |
00002d90  33 32 29 3e 30 0d 12 fc  28 73 65 6e 64 5f 6f 75  |32)>0...(send_ou|
00002da0  74 25 3d 28 6c 69 62 5f  66 6c 61 67 73 25 28 70  |t%=(lib_flags%(p|
00002db0  72 6f 63 25 29 20 80 20  31 36 29 3e 30 0d 13 06  |roc%) . 16)>0...|
00002dc0  0a c8 8e 20 b9 20 ca 0d  13 10 13 20 c9 20 6d 61  |... . ..... . ma|
00002dd0  6b 65 73 5f 66 69 6c 65  25 3a 0d 13 1a 1a 20 20  |kes_file%:....  |
00002de0  65 24 2b 3d 22 2c 22 22  22 2b 6a 75 6e 6b 24 2b  |e$+=","""+junk$+|
00002df0  22 22 22 22 0d 13 24 16  20 c9 20 6d 61 6b 65 73  |""""..$. . makes|
00002e00  5f 72 65 73 75 6c 74 73  25 3a 0d 13 2e 1e 20 20  |_results%:....  |
00002e10  e3 20 69 25 3d 30 20 b8  20 6c 69 62 5f 6f 75 74  |. i%=0 . lib_out|
00002e20  25 28 70 72 6f 63 25 29  0d 13 38 24 20 20 20 65  |%(proc%)..8$   e|
00002e30  24 2b 3d 22 2c 72 24 28  22 2b c3 70 72 6f 63 25  |$+=",r$("+.proc%|
00002e40  2b 22 2c 22 2b c3 69 25  2b 22 29 22 0d 13 42 07  |+","+.i%+")"..B.|
00002e50  20 20 ed 0d 13 4c 05 cb  0d 13 56 0b 65 24 2b 3d  |  ...L....V.e$+=|
00002e60  22 29 22 0d 13 60 15 c8  99 20 22 48 6f 75 72 67  |")"..`... "Hourg|
00002e70  6c 61 73 73 5f 4f 6e 22  0d 13 6a 20 77 69 6e 64  |lass_On"..j wind|
00002e80  5f 68 61 6e 64 25 3d 77  69 6e 64 5f 68 61 6e 64  |_hand%=wind_hand|
00002e90  25 28 70 72 6f 63 25 29  0d 13 74 0e 63 6c 61 69  |%(proc%)..t.clai|
00002ea0  6d 65 64 25 3d a3 0d 13  7e 0b 7a 3d a0 28 65 24  |med%=...~.z=.(e$|
00002eb0  29 0d 13 88 1e e7 20 63  6c 61 69 6d 65 64 25 20  |)..... claimed% |
00002ec0  f2 72 65 6c 65 61 73 65  5f 6d 65 6d 6f 72 79 0d  |.release_memory.|
00002ed0  13 92 15 e7 20 6d 61 6b  65 73 5f 77 69 6e 64 6f  |.... makes_windo|
00002ee0  77 25 20 8c 0d 13 9c 40  20 e7 20 73 70 72 5f 62  |w% ....@ . spr_b|
00002ef0  61 73 65 25 3c 3e 30 20  8c 20 c8 99 20 22 58 4f  |ase%<>0 . .. "XO|
00002f00  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 43  |S_SpriteOp",&13C|
00002f10  2c 73 70 72 5f 62 61 73  65 25 2c 30 2c 31 20 8b  |,spr_base%,0,1 .|
00002f20  20 7a 3d b9 0d 13 a6 05  cd 0d 13 b0 16 c8 99 20  | z=............ |
00002f30  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 0d  |"Hourglass_Off".|
00002f40  13 ba 0b e7 20 7a 3d 30  20 8c 0d 13 c4 0b 20 c8  |.... z=0 ..... .|
00002f50  8e 20 b9 20 ca 0d 13 ce  17 20 20 c9 20 6d 61 6b  |. . .....  . mak|
00002f60  65 73 5f 72 65 73 75 6c  74 73 25 3a 0d 13 d8 43  |es_results%:...C|
00002f70  20 20 20 e7 20 72 24 28  70 72 6f 63 25 2c 30 29  |   . r$(proc%,0)|
00002f80  3d 22 22 20 84 20 c0 72  24 28 70 72 6f 63 25 2c  |="" . .r$(proc%,|
00002f90  30 29 2c 31 29 3d 22 3c  22 20 72 24 28 70 72 6f  |0),1)="<" r$(pro|
00002fa0  63 25 2c 30 29 3d 22 52  65 73 75 6c 74 73 22 0d  |c%,0)="Results".|
00002fb0  13 e2 1a 20 20 20 f2 6f  70 65 6e 5f 72 65 73 75  |...   .open_resu|
00002fc0  6c 74 28 70 72 6f 63 25  29 0d 13 ec 14 20 20 c9  |lt(proc%)....  .|
00002fd0  20 6d 61 6b 65 73 5f 66  69 6c 65 25 3a 0d 13 f6  | makes_file%:...|
00002fe0  2c 20 20 20 c8 99 20 22  4f 53 5f 46 69 6c 65 22  |,   .. "OS_File"|
00002ff0  2c 31 38 2c 6a 75 6e 6b  24 2c 6c 69 62 5f 6f 75  |,18,junk$,lib_ou|
00003000  74 25 28 70 72 6f 63 25  29 0d 14 00 14 20 20 20  |t%(proc%)....   |
00003010  e7 20 73 65 6e 64 5f 6f  75 74 25 20 8c 0d 14 0a  |. send_out% ....|
00003020  19 20 20 20 20 24 71 25  3d c4 34 34 2c bd 30 29  |.    $q%=.44,.0)|
00003030  2b 6a 75 6e 6b 24 0d 14  14 0f 20 20 20 20 71 25  |+junk$....    q%|
00003040  21 31 36 3d 35 0d 14 1e  1d 20 20 20 20 71 25 21  |!16=5....    q%!|
00003050  34 30 3d 6c 69 62 5f 6f  75 74 25 28 70 72 6f 63  |40=lib_out%(proc|
00003060  25 29 0d 14 28 23 20 20  20 20 21 71 25 3d 28 28  |%)..(#    !q%=((|
00003070  a9 28 6a 75 6e 6b 24 29  2b 34 29 20 80 20 ac 20  |.(junk$)+4) . . |
00003080  33 29 2b 34 34 0d 14 32  25 20 20 20 20 c8 99 20  |3)+44..2%    .. |
00003090  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
000030a0  65 22 2c 31 38 2c 71 25  2c 30 0d 14 3c 08 20 20  |e",18,q%,0..<.  |
000030b0  20 cc 0d 14 46 1e 20 20  20 20 77 69 6e 64 6f 77  | ...F.    window|
000030c0  5f 74 69 74 6c 65 24 3d  22 52 65 73 75 6c 74 22  |_title$="Result"|
000030d0  0d 14 50 33 20 20 20 20  f2 6f 70 65 6e 5f 73 61  |..P3    .open_sa|
000030e0  76 65 28 78 2d 36 34 2c  79 2d 36 34 2c 6c 69 62  |ve(x-64,y-64,lib|
000030f0  5f 6f 75 74 25 28 70 72  6f 63 25 29 2c 70 72 6f  |_out%(proc%),pro|
00003100  63 25 29 0d 14 5a 08 20  20 20 cd 0d 14 64 33 20  |c%)..Z.   ...d3 |
00003110  20 c9 20 6d 61 6b 65 73  5f 77 69 6e 64 6f 77 25  | . makes_window%|
00003120  3a f2 6f 70 65 6e 5f 6f  75 74 70 75 74 28 70 72  |:.open_output(pr|
00003130  6f 63 25 2c 73 70 72 5f  62 61 73 65 25 29 0d 14  |oc%,spr_base%)..|
00003140  6e 06 20 cb 0d 14 78 05  cd 0d 14 82 05 e1 0d 14  |n. ...x.........|
00003150  8c 05 3a 0d 14 96 12 dd  20 f2 70 6f 70 5f 75 70  |..:..... .pop_up|
00003160  5f 73 61 76 65 0d 14 a0  0b ea 20 78 2c 79 2c 62  |_save..... x,y,b|
00003170  0d 14 aa 0c c8 97 20 78  2c 79 2c 62 0d 14 b4 1a  |...... x,y,b....|
00003180  77 69 6e 64 6f 77 5f 74  69 74 6c 65 24 3d 22 52  |window_title$="R|
00003190  65 73 75 6c 74 22 0d 14  be 37 f2 6f 70 65 6e 5f  |esult"...7.open_|
000031a0  73 61 76 65 28 78 2d 36  34 2c 79 2d 36 34 2c 6c  |save(x-64,y-64,l|
000031b0  69 62 5f 6f 75 74 25 28  63 75 72 5f 70 72 6f 63  |ib_out%(cur_proc|
000031c0  25 29 2c 63 75 72 5f 70  72 6f 63 25 29 0d 14 c8  |%),cur_proc%)...|
000031d0  05 e1 0d 14 d2 05 3a 0d  14 dc 19 dd 20 f2 6f 70  |......:..... .op|
000031e0  65 6e 5f 72 65 73 75 6c  74 28 70 72 6f 63 25 29  |en_result(proc%)|
000031f0  0d 14 e6 0e ea 20 69 25  2c 6d 61 78 77 25 0d 14  |..... i%,maxw%..|
00003200  f0 35 e7 20 72 65 73 75  6c 74 5f 6f 70 65 6e 25  |.5. result_open%|
00003210  28 70 72 6f 63 25 29 20  f2 63 6c 6f 73 65 28 72  |(proc%) .close(r|
00003220  65 73 75 6c 74 5f 68 61  6e 64 25 28 70 72 6f 63  |esult_hand%(proc|
00003230  25 29 29 0d 14 fa 25 24  72 65 73 75 6c 74 5f 74  |%))...%$result_t|
00003240  69 74 6c 65 25 28 70 72  6f 63 25 29 3d 72 24 28  |itle%(proc%)=r$(|
00003250  70 72 6f 63 25 2c 30 29  0d 15 04 0b 6d 61 78 77  |proc%,0)....maxw|
00003260  25 3d 30 0d 15 0e 1c e3  20 69 25 3d 30 20 b8 20  |%=0..... i%=0 . |
00003270  6c 69 62 5f 6f 75 74 25  28 70 72 6f 63 25 29 0d  |lib_out%(proc%).|
00003280  15 18 32 20 e7 20 a9 28  72 24 28 70 72 6f 63 25  |..2 . .(r$(proc%|
00003290  2c 69 25 29 29 3e 6d 61  78 77 25 20 6d 61 78 77  |,i%))>maxw% maxw|
000032a0  25 3d a9 28 72 24 28 70  72 6f 63 25 2c 69 25 29  |%=.(r$(proc%,i%)|
000032b0  29 0d 15 22 05 ed 0d 15  2c 09 21 71 25 3d 30 0d  |).."....,.!q%=0.|
000032c0  15 36 28 71 25 21 34 3d  2d 28 32 2a 62 6f 72 64  |.6(q%!4=-(2*bord|
000032d0  65 72 25 2b 34 30 2a 6c  69 62 5f 6f 75 74 25 28  |er%+40*lib_out%(|
000032e0  70 72 6f 63 25 29 29 0d  15 40 1b 71 25 21 38 3d  |proc%))..@.q%!8=|
000032f0  31 36 2a 6d 61 78 77 25  2b 32 2a 62 6f 72 64 65  |16*maxw%+2*borde|
00003300  72 25 0d 15 4a 0b 71 25  21 31 32 3d 30 0d 15 54  |r%..J.q%!12=0..T|
00003310  2e c8 99 20 22 57 69 6d  70 5f 53 65 74 45 78 74  |... "Wimp_SetExt|
00003320  65 6e 74 22 2c 72 65 73  75 6c 74 5f 68 61 6e 64  |ent",result_hand|
00003330  25 28 70 72 6f 63 25 29  2c 71 25 0d 15 5e 1b 21  |%(proc%),q%..^.!|
00003340  71 25 3d 72 65 73 75 6c  74 5f 68 61 6e 64 25 28  |q%=result_hand%(|
00003350  70 72 6f 63 25 29 0d 15  68 20 c8 99 20 22 57 69  |proc%)..h .. "Wi|
00003360  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00003370  65 22 2c 2c 71 25 0d 15  72 21 71 25 21 31 32 3d  |e",,q%..r!q%!12=|
00003380  71 25 21 34 2b 31 36 2a  6d 61 78 77 25 2b 32 2a  |q%!4+16*maxw%+2*|
00003390  62 6f 72 64 65 72 25 0d  15 7c 2d 71 25 21 38 3d  |border%..|-q%!8=|
000033a0  71 25 21 31 36 2d 28 32  2a 62 6f 72 64 65 72 25  |q%!16-(2*border%|
000033b0  2b 34 30 2a 6c 69 62 5f  6f 75 74 25 28 70 72 6f  |+40*lib_out%(pro|
000033c0  63 25 29 29 0d 15 86 0c  71 25 21 32 38 3d 2d 31  |c%))....q%!28=-1|
000033d0  0d 15 90 1c c8 99 20 22  57 69 6d 70 5f 4f 70 65  |...... "Wimp_Ope|
000033e0  6e 57 69 6e 64 6f 77 22  2c 2c 71 25 0d 15 9a 19  |nWindow",,q%....|
000033f0  72 65 73 75 6c 74 5f 6f  70 65 6e 25 28 70 72 6f  |result_open%(pro|
00003400  63 25 29 3d b9 0d 15 a4  05 e1 0d 15 ae 05 3a 0d  |c%)=..........:.|
00003410  15 b8 20 dd 20 f2 6f 70  65 6e 5f 73 61 76 65 28  |.. . .open_save(|
00003420  78 25 2c 79 25 2c 74 79  70 65 25 2c 70 25 29 0d  |x%,y%,type%,p%).|
00003430  15 c2 0b ea 20 77 25 2c  68 25 0d 15 cc 27 24 73  |.... w%,h%...'$s|
00003440  61 76 65 74 79 70 65 3d  22 53 66 69 6c 65 5f 22  |avetype="Sfile_"|
00003450  2b c2 22 46 46 22 2b c3  7e 74 79 70 65 25 2c 33  |+."FF"+.~type%,3|
00003460  29 0d 15 d6 1b 24 73 61  76 65 74 65 78 74 3d 77  |)....$savetext=w|
00003470  69 6e 64 6f 77 5f 74 69  74 6c 65 24 0d 15 e0 12  |indow_title$....|
00003480  21 71 25 3d 73 61 76 65  5f 68 61 6e 64 25 0d 15  |!q%=save_hand%..|
00003490  ea 1f c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |.... "Wimp_GetWi|
000034a0  6e 64 6f 77 49 6e 66 6f  22 2c 2c 71 25 0d 15 f4  |ndowInfo",,q%...|
000034b0  11 77 25 3d 71 25 21 31  32 2d 71 25 21 34 0d 15  |.w%=q%!12-q%!4..|
000034c0  fe 11 68 25 3d 71 25 21  31 36 2d 71 25 21 38 0d  |..h%=q%!16-q%!8.|
000034d0  16 08 0b 71 25 21 34 3d  78 25 0d 16 12 0b 71 25  |...q%!4=x%....q%|
000034e0  21 38 3d 79 25 0d 16 1c  0f 71 25 21 31 32 3d 78  |!8=y%....q%!12=x|
000034f0  25 2b 77 25 0d 16 26 0f  71 25 21 31 36 3d 79 25  |%+w%..&.q%!16=y%|
00003500  2b 68 25 0d 16 30 0b 71  25 21 32 30 3d 30 0d 16  |+h%..0.q%!20=0..|
00003510  3a 0b 71 25 21 32 34 3d  30 0d 16 44 0c 71 25 21  |:.q%!24=0..D.q%!|
00003520  32 38 3d 2d 31 0d 16 4e  1c c8 99 20 22 57 69 6d  |28=-1..N... "Wim|
00003530  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 71  |p_OpenWindow",,q|
00003540  25 0d 16 58 11 73 61 76  65 5f 70 72 6f 63 25 3d  |%..X.save_proc%=|
00003550  70 25 0d 16 62 05 e1 0d  16 6c 05 3a 0d 16 76 0b  |p%..b....l.:..v.|
00003560  dd 20 f2 64 72 61 67 0d  16 80 2c e7 20 78 64 72  |. .drag...,. xdr|
00003570  61 67 73 74 61 72 74 25  3c 3e 2d 31 20 c8 99 20  |agstart%<>-1 .. |
00003580  22 58 44 72 61 67 41 53  70 72 69 74 65 5f 53 74  |"XDragASprite_St|
00003590  6f 70 22 0d 16 8a 20 c8  99 20 22 57 69 6d 70 5f  |op"... .. "Wimp_|
000035a0  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
000035b0  2c 71 25 0d 16 94 18 71  25 21 33 32 3d 71 25 21  |,q%....q%!32=q%!|
000035c0  34 3a 71 25 21 32 38 3d  21 71 25 0d 16 9e 1b 71  |4:q%!28=!q%....q|
000035d0  25 21 32 34 3d 71 25 21  31 36 3a 71 25 21 32 30  |%!24=q%!16:q%!20|
000035e0  3d 71 25 21 31 32 0d 16  a8 13 71 25 21 31 36 3d  |=q%!12....q%!16=|
000035f0  31 3a 71 25 21 31 32 3d  30 0d 16 b2 27 e7 20 28  |1:q%!12=0...'. (|
00003600  6c 69 62 5f 66 6c 61 67  73 25 28 73 61 76 65 5f  |lib_flags%(save_|
00003610  70 72 6f 63 25 29 20 80  20 33 32 29 3e 30 20 8c  |proc%) . 32)>0 .|
00003620  0d 16 bc 0f 20 71 25 21  34 30 3d 26 46 46 39 0d  |.... q%!40=&FF9.|
00003630  16 c6 19 20 71 25 21 33  36 3d 73 70 72 69 74 65  |... q%!36=sprite|
00003640  73 69 7a 65 25 2b 32 30  0d 16 d0 05 cc 0d 16 da  |size%+20........|
00003650  29 c8 99 20 22 4f 53 5f  46 69 6c 65 22 2c 35 2c  |).. "OS_File",5,|
00003660  6a 75 6e 6b 24 20 b8 20  2c 2c 71 25 21 34 30 2c  |junk$ . ,,q%!40,|
00003670  2c 71 25 21 33 36 0d 16  e4 21 71 25 21 34 30 3d  |,q%!36...!q%!40=|
00003680  28 71 25 21 34 30 20 80  20 26 46 46 46 30 30 29  |(q%!40 . &FFF00)|
00003690  20 81 20 26 31 30 30 0d  16 ee 05 cd 0d 16 f8 30  | . &100........0|
000036a0  24 28 71 25 2b 34 34 29  3d a4 6c 65 61 66 5f 6e  |$(q%+44)=.leaf_n|
000036b0  61 6d 65 28 a4 67 65 74  5f 73 74 72 28 73 61 76  |ame(.get_str(sav|
000036c0  65 74 65 78 74 29 29 2b  bd 28 30 29 0d 17 02 0a  |etext))+.(0)....|
000036d0  21 71 25 3d 36 30 0d 17  0c 2b c8 99 20 22 57 69  |!q%=60...+.. "Wi|
000036e0  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
000036f0  31 37 2c 71 25 2c 71 25  21 32 30 2c 71 25 21 32  |17,q%,q%!20,q%!2|
00003700  34 0d 17 16 05 e1 0d 17  20 05 3a 0d 17 2a 36 dd  |4....... .:..*6.|
00003710  20 f2 6b 65 79 28 68 61  6e 64 25 2c 69 63 6f 6e  | .key(hand%,icon|
00003720  25 2c 78 63 61 72 25 2c  79 63 61 72 25 2c 63 61  |%,xcar%,ycar%,ca|
00003730  72 68 25 2c 63 61 72 70  6f 73 25 2c 6b 65 79 25  |rh%,carpos%,key%|
00003740  29 0d 17 34 0b ea 20 70  72 6f 63 25 0d 17 3e 22  |)..4.. proc%..>"|
00003750  e7 20 68 61 6e 64 25 3d  73 61 76 65 5f 68 61 6e  |. hand%=save_han|
00003760  64 25 20 80 20 6b 65 79  25 3d 31 33 20 8c 0d 17  |d% . key%=13 ...|
00003770  48 33 20 e7 20 a4 73 61  76 65 28 a4 67 65 74 5f  |H3 . .save(.get_|
00003780  73 74 72 28 73 61 76 65  74 65 78 74 29 29 20 f2  |str(savetext)) .|
00003790  63 6c 6f 73 65 28 73 61  76 65 5f 68 61 6e 64 25  |close(save_hand%|
000037a0  29 0d 17 52 05 cc 0d 17  5c 29 20 70 72 6f 63 25  |)..R....\) proc%|
000037b0  3d a4 66 69 6e 64 5f 65  6c 65 6d 28 68 61 6e 64  |=.find_elem(hand|
000037c0  25 2c 77 69 6e 64 5f 68  61 6e 64 25 28 29 29 0d  |%,wind_hand%()).|
000037d0  17 66 10 20 e7 20 70 72  6f 63 25 3d 30 20 8c 0d  |.f. . proc%=0 ..|
000037e0  17 70 1f 20 20 c8 99 20  22 57 69 6d 70 5f 50 72  |.p.  .. "Wimp_Pr|
000037f0  6f 63 65 73 73 4b 65 79  22 2c 6b 65 79 25 0d 17  |ocessKey",key%..|
00003800  7a 06 20 cc 0d 17 84 76  20 20 65 3d a0 28 22 46  |z. ....v  e=.("F|
00003810  4e 22 2b 6c 69 62 5f 70  72 6f 63 24 28 70 72 6f  |N"+lib_proc$(pro|
00003820  63 25 29 2b 22 5f 6b 65  79 28 22 2b c3 68 61 6e  |c%)+"_key("+.han|
00003830  64 25 2b 22 2c 22 2b c3  69 63 6f 6e 25 2b 22 2c  |d%+","+.icon%+",|
00003840  22 2b c3 78 63 61 72 25  2b 22 2c 22 2b c3 79 63  |"+.xcar%+","+.yc|
00003850  61 72 25 2b 22 2c 22 2b  c3 63 61 72 68 25 2b 22  |ar%+","+.carh%+"|
00003860  2c 22 2b c3 63 61 72 70  6f 73 25 2b 22 2c 22 2b  |,"+.carpos%+","+|
00003870  c3 6b 65 79 25 2b 22 29  22 29 0d 17 8e 1c 20 20  |.key%+")")....  |
00003880  e7 20 65 20 f2 70 72 6f  63 65 73 73 28 70 72 6f  |. e .process(pro|
00003890  63 25 2c 22 22 29 0d 17  98 06 20 cd 0d 17 a2 05  |c%,"").... .....|
000038a0  cd 0d 17 ac 05 e1 0d 17  b6 05 3a 0d 17 c0 21 dd  |..........:...!.|
000038b0  20 f2 69 6e 69 74 5f 73  61 76 65 5f 64 72 61 67  | .init_save_drag|
000038c0  28 73 61 76 65 5f 68 61  6e 64 25 29 0d 17 ca 12  |(save_hand%)....|
000038d0  ea 20 78 25 2c 79 25 2c  79 73 69 7a 65 25 0d 17  |. x%,y%,ysize%..|
000038e0  d4 12 21 71 25 3d 73 61  76 65 5f 68 61 6e 64 25  |..!q%=save_hand%|
000038f0  0d 17 de 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |... .. "Wimp_Get|
00003900  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 71 25  |WindowState",,q%|
00003910  0d 17 e8 15 79 73 69 7a  65 25 3d 71 25 21 31 36  |....ysize%=q%!16|
00003920  2d 71 25 21 38 0d 17 f2  0b 78 25 3d 71 25 21 34  |-q%!8....x%=q%!4|
00003930  0d 17 fc 0b 79 25 3d 71  25 21 38 0d 18 06 0a 71  |....y%=q%!8....q|
00003940  25 21 34 3d 31 0d 18 10  1e c8 99 20 22 57 69 6d  |%!4=1...... "Wim|
00003950  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00003960  2c 71 25 0d 18 1a 0c 71  25 21 38 2b 3d 78 25 0d  |,q%....q%!8+=x%.|
00003970  18 24 14 71 25 21 31 32  2b 3d 79 25 2b 79 73 69  |.$.q%!12+=y%+ysi|
00003980  7a 65 25 0d 18 2e 0d 71  25 21 31 36 2b 3d 78 25  |ze%....q%!16+=x%|
00003990  0d 18 38 14 71 25 21 32  30 2b 3d 79 25 2b 79 73  |..8.q%!20+=y%+ys|
000039a0  69 7a 65 25 0d 18 42 0b  71 25 21 32 34 3d 30 0d  |ize%..B.q%!24=0.|
000039b0  18 4c 0b 71 25 21 32 38  3d 30 0d 18 56 1d 71 25  |.L.q%!28=0..V.q%|
000039c0  21 33 32 3d 28 a4 6d 76  28 31 31 29 2b 31 29 3c  |!32=(.mv(11)+1)<|
000039d0  3c a4 6d 76 28 34 29 0d  18 60 1d 71 25 21 33 36  |<.mv(4)..`.q%!36|
000039e0  3d 28 a4 6d 76 28 31 32  29 2b 31 29 3c 3c a4 6d  |=(.mv(12)+1)<<.m|
000039f0  76 28 35 29 0d 18 6a 09  21 71 25 3d 30 0d 18 74  |v(5)..j.!q%=0..t|
00003a00  0a 71 25 21 34 3d 35 0d  18 7e 7c e7 20 78 64 72  |.q%!4=5..~|. xdr|
00003a10  61 67 73 74 61 72 74 25  3c 3e 2d 31 20 80 20 28  |agstart%<>-1 . (|
00003a20  a4 72 65 61 64 5f 63 6d  6f 73 28 32 38 29 20 80  |.read_cmos(28) .|
00003a30  20 32 29 3e 30 20 8c 20  c8 99 20 78 64 72 61 67  | 2)>0 . .. xdrag|
00003a40  73 74 61 72 74 25 2c 25  31 31 30 30 30 31 30 31  |start%,%11000101|
00003a50  2c 31 2c 24 28 73 61 76  65 74 79 70 65 2b 31 29  |,1,$(savetype+1)|
00003a60  2c 71 25 2b 38 2c 71 25  2b 32 34 20 8b 20 c8 99  |,q%+8,q%+24 . ..|
00003a70  20 22 57 69 6d 70 5f 44  72 61 67 42 6f 78 22 2c  | "Wimp_DragBox",|
00003a80  2c 71 25 0d 18 88 05 e1  0d 18 92 05 3a 0d 18 9c  |,q%.........:...|
00003a90  0d dd 20 a4 6d 76 28 6d  25 29 0d 18 a6 08 ea 20  |.. .mv(m%)..... |
00003aa0  76 25 0d 18 b0 29 c8 99  20 22 4f 53 5f 52 65 61  |v%...).. "OS_Rea|
00003ab0  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 2d  |dModeVariable",-|
00003ac0  31 2c 6d 25 20 b8 20 2c  2c 76 25 0d 18 ba 07 3d  |1,m% . ,,v%....=|
00003ad0  76 25 0d 18 c4 05 3a 0d  18 ce 12 dd 20 a4 73 61  |v%....:..... .sa|
00003ae0  76 65 28 73 61 76 65 24  29 0d 18 d8 0c ea 20 73  |ve(save$)..... s|
00003af0  61 76 65 64 25 0d 18 e2  1e e7 20 a4 67 6f 6f 64  |aved%..... .good|
00003b00  5f 73 61 76 65 5f 6e 61  6d 65 28 73 61 76 65 24  |_save_name(save$|
00003b10  29 20 8c 0d 18 ec 0d 20  f2 73 61 76 65 5f 69 74  |) ..... .save_it|
00003b20  0d 18 f6 0d 20 73 61 76  65 64 25 3d b9 0d 19 00  |.... saved%=....|
00003b30  05 cc 0d 19 0a 3b 20 f2  77 61 72 6e 28 22 54 6f  |.....; .warn("To|
00003b40  20 73 61 76 65 2c 20 64  72 61 67 20 74 68 65 20  | save, drag the |
00003b50  69 63 6f 6e 20 74 6f 20  61 20 64 69 72 65 63 74  |icon to a direct|
00003b60  6f 72 79 20 76 69 65 77  65 72 2e 22 29 0d 19 14  |ory viewer.")...|
00003b70  0d 20 73 61 76 65 64 25  3d a3 0d 19 1e 05 cd 0d  |. saved%=.......|
00003b80  19 28 0b 3d 73 61 76 65  64 25 0d 19 32 05 3a 0d  |.(.=saved%..2.:.|
00003b90  19 3c 1c dd 20 a4 67 6f  6f 64 5f 73 61 76 65 5f  |.<.. .good_save_|
00003ba0  6e 61 6d 65 28 73 61 76  65 24 29 0d 19 46 39 3d  |name(save$)..F9=|
00003bb0  73 61 76 65 24 3d 22 3c  57 69 6d 70 24 53 63 72  |save$="<Wimp$Scr|
00003bc0  61 70 3e 22 20 84 20 a7  73 61 76 65 24 2c 22 3a  |ap>" . .save$,":|
00003bd0  22 29 3e 30 20 84 20 a7  73 61 76 65 24 2c 22 2e  |")>0 . .save$,".|
00003be0  22 29 3e 30 0d 19 50 05  3a 0d 19 5a 20 dd 20 a4  |")>0..P.:..Z . .|
00003bf0  69 63 5f 61 64 64 72 28  68 61 6e 64 25 2c 69 63  |ic_addr(hand%,ic|
00003c00  6f 6e 25 2c 6f 66 66 25  29 0d 19 64 0e 21 69 63  |on%,off%)..d.!ic|
00003c10  25 3d 68 61 6e 64 25 0d  19 6e 0f 69 63 25 21 34  |%=hand%..n.ic%!4|
00003c20  3d 69 63 6f 6e 25 0d 19  78 1f c8 99 20 22 57 69  |=icon%..x... "Wi|
00003c30  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00003c40  2c 2c 69 63 25 0d 19 82  0d 3d 69 63 25 21 6f 66  |,,ic%....=ic%!of|
00003c50  66 25 0d 19 8c 05 3a 0d  19 96 13 dd 20 f2 63 6c  |f%....:..... .cl|
00003c60  6f 73 65 28 68 61 6e 64  25 29 0d 19 a0 0b ea 20  |ose(hand%)..... |
00003c70  70 72 6f 63 25 0d 19 aa  0d 21 71 25 3d 68 61 6e  |proc%....!q%=han|
00003c80  64 25 0d 19 b4 1d c8 99  20 22 57 69 6d 70 5f 43  |d%...... "Wimp_C|
00003c90  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 71 25 0d  |loseWindow",,q%.|
00003ca0  19 be 3a e7 20 68 61 6e  64 25 3d 73 61 76 65 5f  |..:. hand%=save_|
00003cb0  68 61 6e 64 25 20 c8 99  20 22 58 4f 53 5f 46 69  |hand% .. "XOS_Fi|
00003cc0  6c 65 22 2c 36 2c 6a 75  6e 6b 24 3a 73 61 76 65  |le",6,junk$:save|
00003cd0  5f 70 72 6f 63 25 3d 2d  31 0d 19 c8 30 e7 20 68  |_proc%=-1...0. h|
00003ce0  61 6e 64 25 3d 63 75 72  5f 73 65 74 75 70 5f 68  |and%=cur_setup_h|
00003cf0  61 6e 64 25 20 8c 20 63  75 72 5f 73 65 74 75 70  |and% . cur_setup|
00003d00  5f 68 61 6e 64 25 3d 2d  31 0d 19 d2 2a 70 72 6f  |_hand%=-1...*pro|
00003d10  63 25 3d a4 66 69 6e 64  5f 65 6c 65 6d 28 68 61  |c%=.find_elem(ha|
00003d20  6e 64 25 2c 72 65 73 75  6c 74 5f 68 61 6e 64 25  |nd%,result_hand%|
00003d30  28 29 29 0d 19 dc 15 e7  20 70 72 6f 63 25 3e 30  |())..... proc%>0|
00003d40  20 f2 63 6c 6f 73 65 32  0d 19 e6 05 e1 0d 19 f0  | .close2........|
00003d50  05 3a 0d 19 fa 14 dd 20  f2 72 65 64 72 61 77 28  |.:..... .redraw(|
00003d60  68 61 6e 64 25 29 0d 1a  04 1e ea 20 69 25 2c 6d  |hand%)..... i%,m|
00003d70  6f 72 65 25 2c 61 78 30  25 2c 61 79 30 25 2c 70  |ore%,ax0%,ay0%,p|
00003d80  72 6f 63 25 0d 1a 0e 2a  70 72 6f 63 25 3d a4 66  |roc%...*proc%=.f|
00003d90  69 6e 64 5f 65 6c 65 6d  28 68 61 6e 64 25 2c 72  |ind_elem(hand%,r|
00003da0  65 73 75 6c 74 5f 68 61  6e 64 25 28 29 29 0d 1a  |esult_hand%())..|
00003db0  18 3e e7 20 28 6c 69 62  5f 66 6c 61 67 73 25 28  |.>. (lib_flags%(|
00003dc0  70 72 6f 63 25 29 20 80  20 33 32 29 3e 30 20 f2  |proc%) . 32)>0 .|
00003dd0  72 65 64 72 61 77 5f 6f  75 74 70 75 74 28 68 61  |redraw_output(ha|
00003de0  6e 64 25 2c 70 72 6f 63  25 29 3a e1 0d 1a 22 26  |nd%,proc%):..."&|
00003df0  c8 99 20 22 57 69 6d 70  5f 52 65 64 72 61 77 57  |.. "Wimp_RedrawW|
00003e00  69 6e 64 6f 77 22 2c 2c  71 25 20 b8 20 6d 6f 72  |indow",,q% . mor|
00003e10  65 25 0d 1a 2c 0c c8 95  20 6d 6f 72 65 25 0d 1a  |e%..,... more%..|
00003e20  36 14 20 61 78 30 25 3d  71 25 21 34 2d 71 25 21  |6. ax0%=q%!4-q%!|
00003e30  32 30 0d 1a 40 15 20 61  79 30 25 3d 71 25 21 31  |20..@. ay0%=q%!1|
00003e40  36 2d 71 25 21 32 34 0d  1a 4a 1d 20 e3 20 69 25  |6-q%!24..J. . i%|
00003e50  3d 31 20 b8 20 6c 69 62  5f 6f 75 74 25 28 70 72  |=1 . lib_out%(pr|
00003e60  6f 63 25 29 0d 1a 54 2d  20 20 ec 20 61 78 30 25  |oc%)..T-  . ax0%|
00003e70  2b 62 6f 72 64 65 72 25  2c 61 79 30 25 2d 38 2d  |+border%,ay0%-8-|
00003e80  62 6f 72 64 65 72 25 2d  34 30 2a 28 69 25 2d 31  |border%-40*(i%-1|
00003e90  29 0d 1a 5e 14 20 20 f1  20 72 24 28 70 72 6f 63  |)..^.  . r$(proc|
00003ea0  25 2c 69 25 29 0d 1a 68  06 20 ed 0d 1a 72 27 20  |%,i%)..h. ...r' |
00003eb0  c8 99 20 22 57 69 6d 70  5f 47 65 74 52 65 63 74  |.. "Wimp_GetRect|
00003ec0  61 6e 67 6c 65 22 2c 2c  71 25 20 b8 20 6d 6f 72  |angle",,q% . mor|
00003ed0  65 25 0d 1a 7c 05 ce 0d  1a 86 05 e1 0d 1a 90 05  |e%..|...........|
00003ee0  3a 0d 1a 9a 0d dd 20 a4  75 63 28 61 24 29 0d 1a  |:..... .uc(a$)..|
00003ef0  a4 0b ea 20 69 25 2c 63  24 0d 1a ae 12 e3 20 69  |... i%,c$..... i|
00003f00  25 3d 31 20 b8 20 a9 28  61 24 29 0d 1a b8 11 20  |%=1 . .(a$).... |
00003f10  63 24 3d c1 61 24 2c 69  25 2c 31 29 0d 1a c2 2c  |c$=.a$,i%,1)...,|
00003f20  20 e7 20 63 24 3e 3d 22  61 22 20 80 20 63 24 3c  | . c$>="a" . c$<|
00003f30  3d 22 7a 22 20 c1 61 24  2c 69 25 2c 31 29 3d bd  |="z" .a$,i%,1)=.|
00003f40  28 97 63 24 2d 33 32 29  0d 1a cc 05 ed 0d 1a d6  |(.c$-32)........|
00003f50  07 3d 61 24 0d 1a e0 05  3a 0d 1a ea 0d dd 20 a4  |.=a$....:..... .|
00003f60  6c 63 28 61 24 29 0d 1a  f4 08 ea 20 69 25 0d 1a  |lc(a$)..... i%..|
00003f70  fe 12 e3 20 69 25 3d 31  20 b8 20 a9 28 61 24 29  |... i%=1 . .(a$)|
00003f80  0d 1b 08 11 20 63 24 3d  c1 61 24 2c 69 25 2c 31  |.... c$=.a$,i%,1|
00003f90  29 0d 1b 12 2c 20 e7 20  63 24 3e 3d 22 41 22 20  |)..., . c$>="A" |
00003fa0  80 20 63 24 3c 3d 22 5a  22 20 c1 61 24 2c 69 25  |. c$<="Z" .a$,i%|
00003fb0  2c 31 29 3d bd 28 97 63  24 2b 33 32 29 0d 1b 1c  |,1)=.(.c$+32)...|
00003fc0  05 ed 0d 1b 26 07 3d 61  24 0d 1b 30 05 3a 0d 1b  |....&.=a$..0.:..|
00003fd0  3a 19 dd 20 a4 73 74 72  69 70 5f 73 70 61 63 65  |:.. .strip_space|
00003fe0  73 28 73 74 72 24 29 0d  1b 44 13 c8 95 20 c0 73  |s(str$)..D... .s|
00003ff0  74 72 24 2c 31 29 3d 22  20 22 0d 1b 4e 12 20 73  |tr$,1)=" "..N. s|
00004000  74 72 24 3d c1 73 74 72  24 2c 32 29 0d 1b 58 05  |tr$=.str$,2)..X.|
00004010  ce 0d 1b 62 13 c8 95 20  c2 73 74 72 24 2c 31 29  |...b... .str$,1)|
00004020  3d 22 20 22 0d 1b 6c 10  20 73 74 72 24 3d c0 73  |=" "..l. str$=.s|
00004030  74 72 24 29 0d 1b 76 05  ce 0d 1b 80 09 3d 73 74  |tr$)..v......=st|
00004040  72 24 0d 1b 8a 05 3a 0d  1b 94 14 dd 20 f2 62 70  |r$....:..... .bp|
00004050  75 74 28 66 25 2c 73 74  72 24 29 0d 1b 9e 13 d5  |ut(f%,str$).....|
00004060  20 23 66 25 2c 73 74 72  24 2b bd 31 30 3b 0d 1b  | #f%,str$+.10;..|
00004070  a8 05 e1 0d 1b b2 05 3a  0d 1b bc 17 dd 20 f2 77  |.......:..... .w|
00004080  70 75 74 28 66 25 2c 21  5f 77 6f 72 64 25 29 0d  |put(f%,!_word%).|
00004090  1b c6 1e c8 99 20 22 4f  53 5f 47 42 50 42 22 2c  |..... "OS_GBPB",|
000040a0  32 2c 66 25 2c 5f 77 6f  72 64 25 2c 34 0d 1b d0  |2,f%,_word%,4...|
000040b0  05 e1 0d 1b da 05 3a 0d  1b e4 0f dd 20 a4 77 67  |......:..... .wg|
000040c0  65 74 28 66 25 29 0d 1b  ee 1e c8 99 20 22 4f 53  |et(f%)...... "OS|
000040d0  5f 47 42 50 42 22 2c 34  2c 66 25 2c 5f 77 6f 72  |_GBPB",4,f%,_wor|
000040e0  64 25 2c 34 0d 1b f8 0c  3d 21 5f 77 6f 72 64 25  |d%,4....=!_word%|
000040f0  0d 1c 02 05 3a 0d 1c 0c  27 dd 20 f2 77 72 69 74  |....:...'. .writ|
00004100  65 5f 69 6e 5f 69 63 6f  6e 28 68 61 6e 64 25 2c  |e_in_icon(hand%,|
00004110  69 63 6f 6e 25 2c 74 65  78 74 24 29 0d 1c 16 23  |icon%,text$)...#|
00004120  24 a4 69 63 5f 61 64 64  72 28 68 61 6e 64 25 2c  |$.ic_addr(hand%,|
00004130  69 63 6f 6e 25 2c 32 38  29 3d 74 65 78 74 24 0d  |icon%,28)=text$.|
00004140  1c 20 14 69 63 25 21 38  3d 30 3a 69 63 25 21 31  |. .ic%!8=0:ic%!1|
00004150  32 3d 30 0d 1c 2a 1f c8  99 20 22 57 69 6d 70 5f  |2=0..*... "Wimp_|
00004160  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 69  |SetIconState",,i|
00004170  63 25 0d 1c 34 23 c8 99  20 22 57 69 6d 70 5f 47  |c%..4#.. "Wimp_G|
00004180  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00004190  2c 2c 69 63 25 0d 1c 3e  57 e7 20 21 69 63 25 3d  |,,ic%..>W. !ic%=|
000041a0  68 61 6e 64 25 20 80 20  69 63 25 21 34 3d 69 63  |hand% . ic%!4=ic|
000041b0  6f 6e 25 20 c8 99 20 22  57 69 6d 70 5f 53 65 74  |on% .. "Wimp_Set|
000041c0  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 21  |CaretPosition",!|
000041d0  69 63 25 2c 69 63 25 21  34 2c 69 63 25 21 38 2c  |ic%,ic%!4,ic%!8,|
000041e0  69 63 25 21 31 32 2c 2d  31 2c 2d 31 0d 1c 48 05  |ic%!12,-1,-1..H.|
000041f0  e1 0d 1c 52 05 3a 0d 1c  5c 1d dd 20 a4 69 63 6f  |...R.:..\.. .ico|
00004200  6e 5f 74 65 78 74 28 77  69 6e 64 25 2c 69 63 6f  |n_text(wind%,ico|
00004210  6e 25 29 0d 1c 66 1e 3d  24 a4 69 63 5f 61 64 64  |n%)..f.=$.ic_add|
00004220  72 28 77 69 6e 64 25 2c  69 63 6f 6e 25 2c 32 38  |r(wind%,icon%,28|
00004230  29 0d 1c 70 05 3a 0d 1c  7a 24 dd 20 f2 73 65 74  |)..p.:..z$. .set|
00004240  5f 62 75 74 74 6f 6e 28  21 69 63 25 2c 69 63 25  |_button(!ic%,ic%|
00004250  21 34 2c 73 74 61 74 65  25 29 0d 1c 84 14 69 63  |!4,state%)....ic|
00004260  25 21 38 3d 73 74 61 74  65 25 3c 3c 32 31 0d 1c  |%!8=state%<<21..|
00004270  8e 10 69 63 25 21 31 32  3d 31 3c 3c 32 31 0d 1c  |..ic%!12=1<<21..|
00004280  98 1f c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |.... "Wimp_SetIc|
00004290  6f 6e 53 74 61 74 65 22  2c 2c 69 63 25 0d 1c a2  |onState",,ic%...|
000042a0  05 e1 0d 1c ac 05 3a 0d  1c b6 1f dd 20 a4 62 75  |......:..... .bu|
000042b0  74 74 6f 6e 5f 73 74 61  74 65 28 21 69 63 25 2c  |tton_state(!ic%,|
000042c0  69 63 25 21 34 29 0d 1c  c0 1f c8 99 20 22 57 69  |ic%!4)...... "Wi|
000042d0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
000042e0  2c 2c 69 63 25 0d 1c ca  1a 3d b4 28 69 63 25 21  |,,ic%....=.(ic%!|
000042f0  28 38 2b 31 36 29 20 80  20 31 3c 3c 32 31 29 0d  |(8+16) . 1<<21).|
00004300  1c d4 05 3a 0d 1c de 1c  dd 20 a4 65 73 67 5f 73  |...:..... .esg_s|
00004310  74 61 74 65 28 77 69 6e  64 25 2c 65 73 67 25 29  |tate(wind%,esg%)|
00004320  0d 1c e8 42 c8 99 20 22  57 69 6d 70 5f 57 68 69  |...B.. "Wimp_Whi|
00004330  63 68 49 63 6f 6e 22 2c  77 69 6e 64 25 2c 69 63  |chIcon",wind%,ic|
00004340  25 2c 25 31 31 31 31 31  31 3c 3c 31 36 2c 28 65  |%,%111111<<16,(e|
00004350  73 67 25 3c 3c 31 36 29  20 84 20 28 31 3c 3c 32  |sg%<<16) . (1<<2|
00004360  31 29 0d 1c f2 09 3d 21  69 63 25 0d 1c fc 05 3a  |1)....=!ic%....:|
00004370  0d 1d 06 21 dd 20 f2 68  6f 75 72 67 6c 61 73 73  |...!. .hourglass|
00004380  28 63 75 72 72 65 6e 74  2c 6d 61 78 69 6d 75 6d  |(current,maximum|
00004390  29 0d 1d 10 3e e7 20 6d  61 78 69 6d 75 6d 3c 3e  |)...>. maximum<>|
000043a0  30 20 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |0 .. "Hourglass_|
000043b0  50 65 72 63 65 6e 74 61  67 65 22 2c 63 75 72 72  |Percentage",curr|
000043c0  65 6e 74 2a 31 30 30 2f  6d 61 78 69 6d 75 6d 0d  |ent*100/maximum.|
000043d0  1d 1a 05 e1 0d 1d 24 05  3a 0d 1d 2e 19 dd 20 a4  |......$.:..... .|
000043e0  73 70 72 69 74 65 5f 77  69 64 74 68 28 73 70 72  |sprite_width(spr|
000043f0  25 29 0d 1d 38 12 ea 20  77 69 64 74 68 25 2c 6d  |%)..8.. width%,m|
00004400  6f 64 65 25 0d 1d 42 3f  c8 99 20 22 4f 53 5f 53  |ode%..B?.. "OS_S|
00004410  70 72 69 74 65 4f 70 22  2c 26 32 32 38 2c 6c 69  |priteOp",&228,li|
00004420  62 5f 73 70 72 69 74 65  73 25 2c 73 70 72 25 20  |b_sprites%,spr% |
00004430  b8 20 2c 2c 2c 77 69 64  74 68 25 2c 2c 2c 6d 6f  |. ,,,width%,,,mo|
00004440  64 65 25 0d 1d 4c 1a 3d  77 69 64 74 68 25 3c 3c  |de%..L.=width%<<|
00004450  a4 76 61 72 28 6d 6f 64  65 25 2c 34 29 0d 1d 56  |.var(mode%,4)..V|
00004460  05 3a 0d 1d 60 1a dd 20  a4 73 70 72 69 74 65 5f  |.:..`.. .sprite_|
00004470  68 65 69 67 68 74 28 73  70 72 25 29 0d 1d 6a 13  |height(spr%)..j.|
00004480  ea 20 68 65 69 67 68 74  25 2c 6d 6f 64 65 25 0d  |. height%,mode%.|
00004490  1d 74 40 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |.t@.. "OS_Sprite|
000044a0  4f 70 22 2c 26 32 32 38  2c 6c 69 62 5f 73 70 72  |Op",&228,lib_spr|
000044b0  69 74 65 73 25 2c 73 70  72 25 20 b8 20 2c 2c 2c  |ites%,spr% . ,,,|
000044c0  2c 68 65 69 67 68 74 25  2c 2c 6d 6f 64 65 25 0d  |,height%,,mode%.|
000044d0  1d 7e 1b 3d 68 65 69 67  68 74 25 3c 3c a4 76 61  |.~.=height%<<.va|
000044e0  72 28 6d 6f 64 65 25 2c  35 29 0d 1d 88 05 3a 0d  |r(mode%,5)....:.|
000044f0  1d 92 16 dd 20 a4 76 61  72 28 6d 6f 64 65 25 2c  |.... .var(mode%,|
00004500  76 61 72 25 29 0d 1d 9c  08 ea 20 76 25 0d 1d a6  |var%)..... v%...|
00004510  2e c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |... "OS_ReadMode|
00004520  56 61 72 69 61 62 6c 65  22 2c 6d 6f 64 65 25 2c  |Variable",mode%,|
00004530  76 61 72 25 20 b8 20 2c  2c 76 25 0d 1d b0 07 3d  |var% . ,,v%....=|
00004540  76 25 0d 1d ba 05 3a 0d  1d c4 0f dd 20 f2 69 6e  |v%....:..... .in|
00004550  74 5f 68 65 6c 70 0d 1d  ce 14 6d 65 73 73 25 21  |t_help....mess%!|
00004560  31 32 3d 6d 65 73 73 25  21 38 0d 1d d8 11 6d 65  |12=mess%!8....me|
00004570  73 73 25 21 31 36 3d 26  35 30 33 0d 1d e2 2b 68  |ss%!16=&503...+h|
00004580  65 6c 70 24 3d a4 67 65  74 5f 68 65 6c 70 5f 74  |elp$=.get_help_t|
00004590  65 78 74 28 6d 65 73 73  25 21 33 32 2c 6d 65 73  |ext(mess%!32,mes|
000045a0  73 25 21 33 36 29 0d 1d  ec 1b 24 28 6d 65 73 73  |s%!36)....$(mess|
000045b0  25 2b 32 30 29 3d c0 68  65 6c 70 24 2c 32 33 32  |%+20)=.help$,232|
000045c0  29 0d 1d f6 1d 21 6d 65  73 73 25 3d 28 a9 20 68  |)....!mess%=(. h|
000045d0  65 6c 70 24 2b 32 35 29  20 80 20 ac 20 33 0d 1e  |elp$+25) . . 3..|
000045e0  00 2a c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |.*.. "Wimp_SendM|
000045f0  65 73 73 61 67 65 22 2c  31 37 2c 6d 65 73 73 25  |essage",17,mess%|
00004600  2c 6d 65 73 73 25 21 34  0d 1e 0a 05 e1 0d 1e 14  |,mess%!4........|
00004610  05 3a 0d 1e 1e 23 dd 20  a4 67 65 74 5f 68 65 6c  |.:...#. .get_hel|
00004620  70 5f 74 65 78 74 28 77  69 6e 64 6f 77 25 2c 69  |p_text(window%,i|
00004630  63 6f 6e 25 29 0d 1e 28  0e ea 20 68 65 6c 70 24  |con%)..(.. help$|
00004640  2c 69 25 0d 1e 32 10 c8  8e 20 77 69 6e 64 6f 77  |,i%..2... window|
00004650  25 20 ca 0d 1e 3c 0a 20  c9 20 2d 32 3a 0d 1e 46  |% ...<. . -2:..F|
00004660  27 20 20 69 25 3d a4 66  69 6e 64 5f 65 6c 65 6d  |'  i%=.find_elem|
00004670  28 69 63 6f 6e 25 2c 70  72 6f 63 5f 69 63 6f 6e  |(icon%,proc_icon|
00004680  25 28 29 29 0d 1e 50 0e  20 20 e7 20 69 25 3d 30  |%())..P.  . i%=0|
00004690  20 8c 0d 1e 5a 4f 20 20  20 68 65 6c 70 24 3d 22  | ...ZO   help$="|
000046a0  54 68 69 73 20 69 73 20  74 68 65 20 42 49 4f 20  |This is the BIO |
000046b0  69 63 6f 6e 2e 20 54 68  65 72 65 20 61 72 65 20  |icon. There are |
000046c0  63 75 72 72 65 6e 74 6c  79 20 6e 6f 20 42 49 4f  |currently no BIO|
000046d0  20 6d 6f 64 75 6c 65 73  20 72 75 6e 6e 69 6e 67  | modules running|
000046e0  22 0d 1e 64 07 20 20 cc  0d 1e 6e 4f 20 20 20 68  |"..d.  ...nO   h|
000046f0  65 6c 70 24 3d 22 54 68  69 73 20 69 73 20 74 68  |elp$="This is th|
00004700  65 20 22 2b 6c 69 62 5f  6e 61 6d 65 24 28 69 25  |e "+lib_name$(i%|
00004710  29 2b 22 20 69 63 6f 6e  2e 7c 4d 22 2b a4 68 65  |)+" icon.|M"+.he|
00004720  6c 70 28 2d 31 2c 2d 31  2c 6c 69 62 5f 70 72 6f  |lp(-1,-1,lib_pro|
00004730  63 24 28 69 25 29 29 0d  1e 78 07 20 20 cd 0d 1e  |c$(i%))..x.  ...|
00004740  82 12 20 c9 20 69 6e 66  6f 5f 68 61 6e 64 25 3a  |.. . info_hand%:|
00004750  0d 1e 8c 39 20 20 68 65  6c 70 24 3d 22 54 68 69  |...9  help$="Thi|
00004760  73 20 77 69 6e 64 6f 77  20 64 69 73 70 6c 61 79  |s window display|
00004770  73 20 69 6e 66 6f 72 6d  61 74 69 6f 6e 20 61 62  |s information ab|
00004780  6f 75 74 20 42 49 4f 2e  22 0d 1e 96 11 20 c9 20  |out BIO.".... . |
00004790  73 61 76 65 5f 68 61 6e  64 25 0d 1e a0 10 20 20  |save_hand%....  |
000047a0  c8 8e 20 69 63 6f 6e 25  20 ca 0d 1e aa 41 20 20  |.. icon% ....A  |
000047b0  20 c9 20 2d 31 3a 68 65  6c 70 24 3d 22 54 68 69  | . -1:help$="Thi|
000047c0  73 20 62 6f 78 20 61 6c  6c 6f 77 73 20 79 6f 75  |s box allows you|
000047d0  20 74 6f 20 73 61 76 65  20 79 6f 75 72 20 65 64  | to save your ed|
000047e0  69 74 65 64 20 66 69 6c  65 2e 22 0d 1e b4 94 20  |ited file.".... |
000047f0  20 20 c9 20 30 3a 68 65  6c 70 24 3d 22 43 6c 69  |  . 0:help$="Cli|
00004800  63 6b 20 68 65 72 65 20  74 6f 20 73 61 76 65 20  |ck here to save |
00004810  74 68 65 20 64 61 74 61  20 77 69 74 68 20 74 68  |the data with th|
00004820  65 20 63 75 72 72 65 6e  74 20 66 69 6c 65 6e 61  |e current filena|
00004830  6d 65 2e 20 49 66 20 69  74 20 69 73 20 6e 6f 74  |me. If it is not|
00004840  20 61 20 66 75 6c 6c 20  70 61 74 68 6e 61 6d 65  | a full pathname|
00004850  2c 20 79 6f 75 20 6d 75  73 74 20 64 72 61 67 20  |, you must drag |
00004860  74 68 65 20 69 63 6f 6e  20 74 6f 20 61 20 64 69  |the icon to a di|
00004870  72 65 63 74 6f 72 79 20  66 69 72 73 74 2e 22 0d  |rectory first.".|
00004880  1e be 9b 20 20 20 c9 20  31 3a 68 65 6c 70 24 3d  |...   . 1:help$=|
00004890  22 44 72 61 67 20 74 68  69 73 20 69 63 6f 6e 20  |"Drag this icon |
000048a0  74 6f 20 74 68 65 20 64  69 72 65 63 74 6f 72 79  |to the directory|
000048b0  20 69 6e 20 77 68 69 63  68 20 79 6f 75 20 77 61  | in which you wa|
000048c0  6e 74 20 74 6f 20 73 61  76 65 20 74 68 65 20 66  |nt to save the f|
000048d0  69 6c 65 2e 20 4f 72 2c  20 64 72 61 67 20 69 74  |ile. Or, drag it|
000048e0  20 74 6f 20 74 68 65 20  70 72 6f 67 72 61 6d 20  | to the program |
000048f0  69 6e 74 6f 20 77 68 69  63 68 20 79 6f 75 20 77  |into which you w|
00004900  61 6e 74 20 74 6f 20 74  72 61 6e 73 66 65 72 20  |ant to transfer |
00004910  74 68 65 20 64 61 74 61  2e 22 0d 1e c8 7f 20 20  |the data."....  |
00004920  20 c9 20 32 3a 68 65 6c  70 24 3d 22 54 68 69 73  | . 2:help$="This|
00004930  20 73 68 6f 77 73 20 74  68 65 20 66 69 6c 65 6e  | shows the filen|
00004940  61 6d 65 20 66 6f 72 20  74 68 69 73 20 64 61 74  |ame for this dat|
00004950  61 2e 20 49 66 20 69 74  20 69 73 20 6e 6f 74 20  |a. If it is not |
00004960  61 20 66 75 6c 6c 20 70  61 74 68 6e 61 6d 65 2c  |a full pathname,|
00004970  20 64 72 61 67 20 74 68  65 20 69 63 6f 6e 20 69  | drag the icon i|
00004980  6e 74 6f 20 61 20 64 69  72 65 63 74 6f 72 79 20  |nto a directory |
00004990  64 69 73 70 6c 61 79 2e  22 0d 1e d2 07 20 20 cb  |display."....  .|
000049a0  0d 1e dc 05 7f 0d 1e e6  28 20 69 25 3d a4 66 69  |........( i%=.fi|
000049b0  6e 64 5f 65 6c 65 6d 28  77 69 6e 64 6f 77 25 2c  |nd_elem(window%,|
000049c0  77 69 6e 64 5f 68 61 6e  64 25 28 29 29 0d 1e f0  |wind_hand%())...|
000049d0  0d 20 e7 20 69 25 3e 30  20 8c 0d 1e fa 5e 20 20  |. . i%>0 ....^  |
000049e0  68 65 6c 70 24 3d 22 54  68 69 73 20 69 73 20 74  |help$="This is t|
000049f0  68 65 20 22 2b 6c 69 62  5f 6e 61 6d 65 24 28 69  |he "+lib_name$(i|
00004a00  25 29 2b 22 20 73 65 74  20 75 70 20 77 69 6e 64  |%)+" set up wind|
00004a10  6f 77 7c 4d 22 2b a4 68  65 6c 70 28 77 69 6e 64  |ow|M"+.help(wind|
00004a20  6f 77 25 2c 69 63 6f 6e  25 2c 6c 69 62 5f 70 72  |ow%,icon%,lib_pr|
00004a30  6f 63 24 28 69 25 29 29  0d 1f 04 06 20 cc 0d 1f  |oc$(i%)).... ...|
00004a40  0e 2b 20 20 69 25 3d a4  66 69 6e 64 5f 65 6c 65  |.+  i%=.find_ele|
00004a50  6d 28 77 69 6e 64 6f 77  25 2c 72 65 73 75 6c 74  |m(window%,result|
00004a60  5f 68 61 6e 64 25 28 29  29 0d 1f 18 53 20 20 68  |_hand%())...S  h|
00004a70  65 6c 70 24 3d 22 54 68  69 73 20 69 73 20 74 68  |elp$="This is th|
00004a80  65 20 6f 75 74 70 75 74  20 66 72 6f 6d 20 22 2b  |e output from "+|
00004a90  6c 69 62 5f 6e 61 6d 65  24 28 69 25 29 2b 22 7c  |lib_name$(i%)+"||
00004aa0  4d 22 2b a4 68 65 6c 70  28 31 2c 2d 31 2c 6c 69  |M"+.help(1,-1,li|
00004ab0  62 5f 70 72 6f 63 24 28  69 25 29 29 0d 1f 22 06  |b_proc$(i%))..".|
00004ac0  20 cd 0d 1f 2c 05 cb 0d  1f 36 0a 3d 68 65 6c 70  | ...,....6.=help|
00004ad0  24 0d 1f 40 05 3a 0d 1f  4a 22 dd 20 a4 68 65 6c  |$..@.:..J". .hel|
00004ae0  70 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2c  |p(window%,icon%,|
00004af0  6d 6f 64 75 6c 65 24 29  0d 1f 54 08 ea 20 68 24  |module$)..T.. h$|
00004b00  0d 1f 5e 07 ea 20 85 0d  1f 68 11 ee 20 85 20 ea  |..^.. ...h.. . .|
00004b10  20 f7 20 85 3a 3d 22 22  0d 1f 72 2d 68 24 3d a0  | . .:=""..r-h$=.|
00004b20  28 22 46 4e 22 2b 6d 6f  64 75 6c 65 24 2b 22 5f  |("FN"+module$+"_|
00004b30  68 65 6c 70 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |help(window%,ico|
00004b40  6e 25 29 22 29 0d 1f 7c  07 f7 20 85 0d 1f 86 07  |n%)")..|.. .....|
00004b50  3d 68 24 0d 1f 90 05 3a  0d 1f 9a 2a dd 20 a4 68  |=h$....:...*. .h|
00004b60  65 6c 70 5f 6f 6e 5f 69  63 6f 6e 28 77 69 6e 64  |elp_on_icon(wind|
00004b70  6f 77 25 2c 69 63 6f 6e  25 2c 68 31 24 2c 68 32  |ow%,icon%,h1$,h2|
00004b80  24 29 0d 1f a4 32 e7 20  a4 62 75 74 74 6f 6e 5f  |$)...2. .button_|
00004b90  73 74 61 74 65 28 77 69  6e 64 6f 77 25 2c 69 63  |state(window%,ic|
00004ba0  6f 6e 25 29 3d 30 20 8c  20 3d 68 31 24 20 8b 20  |on%)=0 . =h1$ . |
00004bb0  3d 68 32 24 0d 1f ae 05  3a 0d 1f b8 10 dd 20 a4  |=h2$....:..... .|
00004bc0  73 77 69 28 73 77 69 24  29 0d 1f c2 0e ea 20 73  |swi(swi$)..... s|
00004bd0  77 69 25 2c 6f 6b 25 0d  1f cc 31 c8 99 20 22 58  |wi%,ok%...1.. "X|
00004be0  4f 53 5f 53 57 49 4e 75  6d 62 65 72 46 72 6f 6d  |OS_SWINumberFrom|
00004bf0  53 74 72 69 6e 67 22 2c  2c 73 77 69 24 20 b8 20  |String",,swi$ . |
00004c00  73 77 69 25 3b 6f 6b 25  0d 1f d6 19 e7 20 28 6f  |swi%;ok%..... (o|
00004c10  6b 25 20 80 20 31 29 3e  30 20 73 77 69 25 3d 2d  |k% . 1)>0 swi%=-|
00004c20  31 0d 1f e0 09 3d 73 77  69 25 0d 1f ea 05 3a 0d  |1....=swi%....:.|
00004c30  1f f4 17 dd 20 a4 72 65  61 64 5f 63 6d 6f 73 28  |.... .read_cmos(|
00004c40  62 79 74 65 25 29 0d 1f  fe 24 c8 99 20 22 4f 53  |byte%)...$.. "OS|
00004c50  5f 42 79 74 65 22 2c 31  36 31 2c 62 79 74 65 25  |_Byte",161,byte%|
00004c60  20 b8 20 2c 2c 62 79 74  65 25 0d 20 08 0a 3d 62  | . ,,byte%. ..=b|
00004c70  79 74 65 25 0d 20 12 05  3a 0d 20 1c 11 dd 20 f2  |yte%. ..:. ... .|
00004c80  63 6c 6f 73 65 5f 64 6f  77 6e 0d 20 26 12 e7 20  |close_down. &.. |
00004c90  72 75 6e 6e 69 6e 67 25  3e 30 20 8c 0d 20 30 16  |running%>0 .. 0.|
00004ca0  20 e3 20 69 25 3d 31 20  b8 20 72 75 6e 6e 69 6e  | . i%=1 . runnin|
00004cb0  67 25 0d 20 3a 18 20 20  70 72 6f 63 25 3d 72 75  |g%. :.  proc%=ru|
00004cc0  6e 6e 69 6e 67 25 28 69  25 29 0d 20 44 37 20 20  |nning%(i%). D7  |
00004cd0  e7 20 72 65 73 75 6c 74  5f 6f 70 65 6e 25 28 70  |. result_open%(p|
00004ce0  72 6f 63 25 29 20 f2 63  6c 6f 73 65 28 72 65 73  |roc%) .close(res|
00004cf0  75 6c 74 5f 68 61 6e 64  25 28 70 72 6f 63 25 29  |ult_hand%(proc%)|
00004d00  29 0d 20 4e 06 20 ed 0d  20 58 05 cd 0d 20 62 17  |). N. .. X... b.|
00004d10  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
00004d20  77 6e 22 0d 20 6c 05 e1  0d 20 76 05 3a 0d 20 80  |wn". l... v.:. .|
00004d30  14 dd 20 f2 6c 6f 61 64  5f 70 61 6c 65 74 74 65  |.. .load_palette|
00004d40  73 0d 20 8a 33 c8 99 20  22 4f 53 5f 46 69 6c 65  |s. .3.. "OS_File|
00004d50  22 2c 35 2c 22 3c 42 69  6f 24 44 69 72 3e 2e 50  |",5,"<Bio$Dir>.P|
00004d60  61 6c 65 74 74 65 73 22  20 b8 20 2c 2c 2c 2c 70  |alettes" . ,,,,p|
00004d70  6c 65 6e 25 0d 20 94 18  de 20 70 61 6c 65 74 74  |len%. ... palett|
00004d80  65 73 25 20 70 6c 65 6e  25 2b 31 36 0d 20 9e 17  |es% plen%+16. ..|
00004d90  21 70 61 6c 65 74 74 65  73 25 3d 70 6c 65 6e 25  |!palettes%=plen%|
00004da0  2b 31 36 0d 20 a8 12 70  61 6c 65 74 74 65 73 25  |+16. ..palettes%|
00004db0  21 38 3d 31 36 0d 20 b2  24 c8 99 20 22 58 4f 53  |!8=16. .$.. "XOS|
00004dc0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 39 2c  |_SpriteOp",&109,|
00004dd0  70 61 6c 65 74 74 65 73  25 0d 20 bc 39 c8 99 20  |palettes%. .9.. |
00004de0  22 58 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |"XOS_SpriteOp",&|
00004df0  31 30 41 2c 70 61 6c 65  74 74 65 73 25 2c 22 3c  |10A,palettes%,"<|
00004e00  42 69 6f 24 44 69 72 3e  2e 50 61 6c 65 74 74 65  |Bio$Dir>.Palette|
00004e10  73 22 0d 20 c6 05 e1 0d  20 d0 05 3a 0d 20 da 23  |s". .... ..:. .#|
00004e20  dd 20 f2 6f 70 65 6e 5f  73 70 72 5f 73 61 76 65  |. .open_spr_save|
00004e30  28 78 25 2c 79 25 2c 68  61 6e 64 6c 65 25 29 0d  |(x%,y%,handle%).|
00004e40  20 e4 0b ea 20 70 72 6f  63 25 0d 20 ee 2c 70 72  | ... proc%. .,pr|
00004e50  6f 63 25 3d a4 66 69 6e  64 5f 65 6c 65 6d 28 68  |oc%=.find_elem(h|
00004e60  61 6e 64 6c 65 25 2c 72  65 73 75 6c 74 5f 68 61  |andle%,result_ha|
00004e70  6e 64 25 28 29 29 0d 20  f8 10 e7 20 70 72 6f 63  |nd%()). ... proc|
00004e80  25 3c 3e 30 20 8c 0d 21  02 4e 20 e7 20 28 6c 69  |%<>0 ..!.N . (li|
00004e90  62 5f 66 6c 61 67 73 25  28 70 72 6f 63 25 29 20  |b_flags%(proc%) |
00004ea0  80 20 33 32 29 3e 30 20  f2 6f 70 65 6e 5f 73 61  |. 32)>0 .open_sa|
00004eb0  76 65 28 6d 6f 75 73 65  78 25 2d 36 34 2c 6d 6f  |ve(mousex%-64,mo|
00004ec0  75 73 65 79 25 2d 36 34  2c 26 46 46 39 2c 70 72  |usey%-64,&FF9,pr|
00004ed0  6f 63 25 29 0d 21 0c 05  cd 0d 21 16 05 e1 0d 21  |oc%).!....!....!|
00004ee0  20 05 3a 0d 21 2a 15 dd  20 f2 70 61 6c 65 74 74  | .:.!*.. .palett|
00004ef0  65 5f 63 68 61 6e 67 65  0d 21 34 0e ea 20 69 25  |e_change.!4.. i%|
00004f00  2c 70 72 6f 63 25 0d 21  3e 15 e3 20 69 25 3d 31  |,proc%.!>.. i%=1|
00004f10  20 b8 20 72 75 6e 6e 69  6e 67 25 0d 21 48 17 20  | . running%.!H. |
00004f20  70 72 6f 63 25 3d 72 75  6e 6e 69 6e 67 25 28 69  |proc%=running%(i|
00004f30  25 29 0d 21 52 5a 20 e7  20 72 65 73 75 6c 74 5f  |%).!RZ . result_|
00004f40  6f 70 65 6e 25 28 70 72  6f 63 25 29 20 80 20 28  |open%(proc%) . (|
00004f50  6c 69 62 5f 66 6c 61 67  73 25 28 70 72 6f 63 25  |lib_flags%(proc%|
00004f60  29 20 80 20 33 32 29 3e  30 20 f2 66 6f 72 63 65  |) . 32)>0 .force|
00004f70  5f 72 65 64 72 61 77 28  72 65 73 75 6c 74 5f 68  |_redraw(result_h|
00004f80  61 6e 64 25 28 70 72 6f  63 25 29 29 0d 21 5c 05  |and%(proc%)).!\.|
00004f90  ed 0d 21 66 05 e1 0d 21  70 05 3a 0d 21 7a 1a dd  |..!f...!p.:.!z..|
00004fa0  20 f2 66 6f 72 63 65 5f  72 65 64 72 61 77 28 68  | .force_redraw(h|
00004fb0  61 6e 64 25 29 0d 21 84  31 c8 99 20 22 57 69 6d  |and%).!.1.. "Wim|
00004fc0  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 68  |p_ForceRedraw",h|
00004fd0  61 6e 64 25 2c 2d 31 45  38 2c 2d 31 45 38 2c 31  |and%,-1E8,-1E8,1|
00004fe0  45 38 2c 31 45 38 0d 21  8e 05 e1 0d 21 98 05 3a  |E8,1E8.!....!..:|
00004ff0  0d 21 a2 2d dd 20 a4 63  72 65 61 74 65 5f 77 69  |.!.-. .create_wi|
00005000  6e 64 6f 77 28 6d 6f 64  65 25 2c 78 72 65 73 25  |ndow(mode%,xres%|
00005010  2c 79 72 65 73 25 2c 6e  61 6d 65 24 29 0d 21 ac  |,yres%,name$).!.|
00005020  37 e7 20 78 72 65 73 25  3c 30 20 78 72 65 73 25  |7. xres%<0 xres%|
00005030  3d 2d 78 72 65 73 25 20  8b 20 78 72 65 73 25 3d  |=-xres% . xres%=|
00005040  78 72 65 73 25 3e 3e a4  76 61 72 28 6d 6f 64 65  |xres%>>.var(mode|
00005050  25 2c 34 29 0d 21 b6 37  e7 20 79 72 65 73 25 3c  |%,4).!.7. yres%<|
00005060  30 20 79 72 65 73 25 3d  2d 79 72 65 73 25 20 8b  |0 yres%=-yres% .|
00005070  20 79 72 65 73 25 3d 79  72 65 73 25 3e 3e a4 76  | yres%=yres%>>.v|
00005080  61 72 28 6d 6f 64 65 25  2c 35 29 0d 21 c0 35 73  |ar(mode%,5).!.5s|
00005090  70 72 5f 62 61 73 65 25  3d a4 6d 61 6b 65 5f 61  |pr_base%=.make_a|
000050a0  5f 73 70 72 69 74 65 28  6e 61 6d 65 24 2c 78 72  |_sprite(name$,xr|
000050b0  65 73 25 2c 79 72 65 73  25 2c 6d 6f 64 65 25 29  |es%,yres%,mode%)|
000050c0  0d 21 ca 13 e7 20 73 70  72 5f 62 61 73 65 25 3d  |.!... spr_base%=|
000050d0  30 20 8c 0d 21 d4 2d 20  f2 77 61 72 6e 28 22 4e  |0 ..!.- .warn("N|
000050e0  6f 74 20 65 6e 6f 75 67  68 20 52 4d 41 20 74 6f  |ot enough RMA to|
000050f0  20 63 72 65 61 74 65 20  77 69 6e 64 6f 77 22 29  | create window")|
00005100  0d 21 de 05 cc 0d 21 e8  2b 20 c8 99 20 22 58 4f  |.!....!.+ .. "XO|
00005110  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 43  |S_SpriteOp",&13C|
00005120  2c 73 70 72 5f 62 61 73  65 25 2c 6e 61 6d 65 24  |,spr_base%,name$|
00005130  0d 21 f2 18 20 77 69 6e  64 6f 77 5f 74 69 74 6c  |.!.. window_titl|
00005140  65 24 3d 6e 61 6d 65 24  0d 21 fc 05 cd 0d 22 06  |e$=name$.!....".|
00005150  0e 3d 73 70 72 5f 62 61  73 65 25 0d 22 10 05 3a  |.=spr_base%."..:|
00005160  0d 22 1a 2d dd 20 a4 6d  61 6b 65 5f 61 5f 73 70  |.".-. .make_a_sp|
00005170  72 69 74 65 28 73 70 72  6e 24 2c 73 70 72 78 25  |rite(sprn$,sprx%|
00005180  2c 73 70 72 79 25 2c 73  70 72 6d 25 29 0d 22 24  |,spry%,sprm%)."$|
00005190  26 e7 20 73 70 72 6d 25  3d 33 20 84 20 73 70 72  |&. sprm%=3 . spr|
000051a0  6d 25 3d 36 20 84 20 73  70 72 6d 25 3d 37 20 8c  |m%=6 . sprm%=7 .|
000051b0  20 3d 30 0d 22 2e 19 70  61 6c 73 25 3d a4 76 61  | =0."..pals%=.va|
000051c0  72 28 73 70 72 6d 25 2c  33 29 2b 31 0d 22 38 1b  |r(sprm%,3)+1."8.|
000051d0  6c 6f 67 32 62 70 70 25  3d a4 76 61 72 28 73 70  |log2bpp%=.var(sp|
000051e0  72 6d 25 2c 31 30 29 0d  22 42 41 73 70 72 69 74  |rm%,10)."BAsprit|
000051f0  65 73 69 7a 65 25 3d 73  70 72 79 25 2a 28 28 28  |esize%=spry%*(((|
00005200  73 70 72 78 25 3c 3c 6c  6f 67 32 62 70 70 25 29  |sprx%<<log2bpp%)|
00005210  2b 33 31 29 80 ac 33 31  29 20 81 20 38 2b 34 34  |+31)..31) . 8+44|
00005220  2b 70 61 6c 73 25 2a 38  0d 22 4c 32 c8 99 20 22  |+pals%*8."L2.. "|
00005230  58 4f 53 5f 4d 6f 64 75  6c 65 22 2c 36 2c 2c 2c  |XOS_Module",6,,,|
00005240  73 70 72 69 74 65 73 69  7a 65 25 2b 32 30 20 b8  |spritesize%+20 .|
00005250  20 2c 2c 72 6d 61 25 3b  6f 6b 0d 22 56 15 e7 20  | ,,rma%;ok."V.. |
00005260  28 6f 6b 20 80 20 31 29  3e 30 20 8c 20 3d 30 0d  |(ok . 1)>0 . =0.|
00005270  22 60 18 21 72 6d 61 25  3d 73 70 72 69 74 65 73  |"`.!rma%=sprites|
00005280  69 7a 65 25 2b 32 30 0d  22 6a 0d 72 6d 61 25 21  |ize%+20."j.rma%!|
00005290  38 3d 31 36 0d 22 74 1f  c8 99 20 22 58 4f 53 5f  |8=16."t... "XOS_|
000052a0  53 70 72 69 74 65 4f 70  22 2c 26 31 30 39 2c 72  |SpriteOp",&109,r|
000052b0  6d 61 25 0d 22 7e 39 c8  99 20 22 58 4f 53 5f 53  |ma%."~9.. "XOS_S|
000052c0  70 72 69 74 65 4f 70 22  2c 26 31 30 46 2c 72 6d  |priteOp",&10F,rm|
000052d0  61 25 2c 73 70 72 6e 24  2c 31 2c 73 70 72 78 25  |a%,sprn$,1,sprx%|
000052e0  2c 73 70 72 79 25 2c 73  70 72 6d 25 0d 22 88 2e  |,spry%,sprm%."..|
000052f0  f2 63 6f 70 79 5f 70 61  6c 65 74 74 65 28 70 61  |.copy_palette(pa|
00005300  6c 65 74 74 65 73 25 2c  c3 70 61 6c 73 25 2c 72  |lettes%,.pals%,r|
00005310  6d 61 25 2c 73 70 72 6e  24 29 0d 22 92 09 3d 72  |ma%,sprn$)."..=r|
00005320  6d 61 25 0d 22 9c 05 3a  0d 22 a6 2e dd 20 f2 63  |ma%."..:."... .c|
00005330  6f 70 79 5f 70 61 6c 65  74 74 65 28 62 61 73 65  |opy_palette(base|
00005340  31 25 2c 73 70 72 31 24  2c 62 61 73 65 32 25 2c  |1%,spr1$,base2%,|
00005350  73 70 72 32 24 29 0d 22  b0 11 ea 20 69 25 2c 61  |spr2$)."... i%,a|
00005360  25 2c 62 25 2c 63 25 0d  22 ba 35 c8 99 20 22 58  |%,b%,c%.".5.. "X|
00005370  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 32  |OS_SpriteOp",&12|
00005380  35 2c 62 61 73 65 31 25  2c 73 70 72 31 24 2c 2d  |5,base1%,spr1$,-|
00005390  31 20 b8 20 2c 2c 2c 63  25 2c 62 25 0d 22 c4 33  |1 . ,,,c%,b%.".3|
000053a0  c8 99 20 22 58 4f 53 5f  53 70 72 69 74 65 4f 70  |.. "XOS_SpriteOp|
000053b0  22 2c 26 31 32 35 2c 62  61 73 65 32 25 2c 73 70  |",&125,base2%,sp|
000053c0  72 32 24 2c 2d 31 20 b8  20 2c 2c 2c 2c 61 25 0d  |r2$,-1 . ,,,,a%.|
000053d0  22 ce 17 e3 20 69 25 3d  30 20 b8 20 63 25 2a 38  |"... i%=0 . c%*8|
000053e0  2d 31 20 88 20 34 0d 22  d8 10 20 61 25 21 69 25  |-1 . 4.".. a%!i%|
000053f0  3d 62 25 21 69 25 0d 22  e2 05 ed 0d 22 ec 05 e1  |=b%!i%."...."...|
00005400  0d 22 f6 05 3a 0d 23 00  16 dd 20 f2 64 65 73 6b  |."..:.#... .desk|
00005410  74 6f 70 5f 70 61 6c 65  74 74 65 0d 23 0a 0e ea  |top_palette.#...|
00005420  20 69 25 2c 70 61 6c 73  25 0d 23 14 3f c8 99 20  | i%,pals%.#.?.. |
00005430  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00005440  32 38 2c 73 70 72 5f 62  61 73 65 25 2c 77 69 6e  |28,spr_base%,win|
00005450  64 6f 77 5f 74 69 74 6c  65 24 20 b8 20 2c 2c 2c  |dow_title$ . ,,,|
00005460  2c 2c 2c 73 70 72 6d 25  0d 23 1e 19 70 61 6c 73  |,,,sprm%.#..pals|
00005470  25 3d a4 76 61 72 28 73  70 72 6d 25 2c 33 29 2b  |%=.var(sprm%,3)+|
00005480  31 0d 23 28 4f e7 20 70  61 6c 73 25 3d 34 20 84  |1.#(O. pals%=4 .|
00005490  20 70 61 6c 73 25 3d 31  36 20 f2 63 6f 70 79 5f  | pals%=16 .copy_|
000054a0  70 61 6c 65 74 74 65 28  70 61 6c 65 74 74 65 73  |palette(palettes|
000054b0  25 2c c3 70 61 6c 73 25  2b 22 77 22 2c 73 70 72  |%,.pals%+"w",spr|
000054c0  5f 62 61 73 65 25 2c 22  4f 75 74 70 75 74 22 29  |_base%,"Output")|
000054d0  0d 23 32 05 e1 0d 23 3c  05 3a 0d 23 46 16 dd 20  |.#2...#<.:.#F.. |
000054e0  f2 63 75 72 72 65 6e 74  5f 70 61 6c 65 74 74 65  |.current_palette|
000054f0  0d 23 50 17 ea 20 65 6e  74 72 69 65 73 25 2c 70  |.#P.. entries%,p|
00005500  61 6c 65 74 74 65 25 0d  23 5a 4c c8 99 20 22 58  |alette%.#ZL.. "X|
00005510  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 32  |OS_SpriteOp",&12|
00005520  35 2c 73 70 72 5f 62 61  73 65 25 2c 77 69 6e 64  |5,spr_base%,wind|
00005530  6f 77 5f 74 69 74 6c 65  24 2c 2d 31 20 b8 20 2c  |ow_title$,-1 . ,|
00005540  2c 2c 65 6e 74 72 69 65  73 25 2c 70 61 6c 65 74  |,,entries%,palet|
00005550  74 65 25 0d 23 64 14 e7  20 65 6e 74 72 69 65 73  |te%.#d.. entries|
00005560  25 3c 3e 36 34 20 8c 0d  23 6e 18 20 e3 20 69 25  |%<>64 ..#n. . i%|
00005570  3d 30 20 b8 20 65 6e 74  72 69 65 73 25 2d 31 0d  |=0 . entries%-1.|
00005580  23 78 33 20 20 c8 99 20  22 4f 53 5f 52 65 61 64  |#x3  .. "OS_Read|
00005590  50 61 6c 65 74 74 65 22  2c 69 25 2c 31 36 20 b8  |Palette",i%,16 .|
000055a0  20 2c 2c 70 61 6c 65 74  74 65 25 21 28 69 25 2a  | ,,palette%!(i%*|
000055b0  38 29 0d 23 82 09 20 ed  20 69 25 0d 23 8c 05 cd  |8).#.. . i%.#...|
000055c0  0d 23 96 05 e1 0d 23 a0  05 3a 0d 23 aa 19 dd 20  |.#....#..:.#... |
000055d0  f2 76 64 75 31 39 28 63  25 2c 72 25 2c 67 25 2c  |.vdu19(c%,r%,g%,|
000055e0  62 25 29 0d 23 b4 17 ea  20 65 6e 74 72 69 65 73  |b%).#... entries|
000055f0  25 2c 70 61 6c 65 74 74  65 25 0d 23 be 4c c8 99  |%,palette%.#.L..|
00005600  20 22 58 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  | "XOS_SpriteOp",|
00005610  26 31 32 35 2c 73 70 72  5f 62 61 73 65 25 2c 77  |&125,spr_base%,w|
00005620  69 6e 64 6f 77 5f 74 69  74 6c 65 24 2c 2d 31 20  |indow_title$,-1 |
00005630  b8 20 2c 2c 2c 65 6e 74  72 69 65 73 25 2c 70 61  |. ,,,entries%,pa|
00005640  6c 65 74 74 65 25 0d 23  c8 44 e7 20 63 25 3c 65  |lette%.#.D. c%<e|
00005650  6e 74 72 69 65 73 25 20  70 61 6c 65 74 74 65 25  |ntries% palette%|
00005660  21 28 63 25 2a 38 29 3d  31 36 20 84 20 28 72 25  |!(c%*8)=16 . (r%|
00005670  3c 3c 38 29 20 84 20 28  67 25 3c 3c 31 36 29 20  |<<8) . (g%<<16) |
00005680  84 20 28 62 25 3c 3c 32  34 29 0d 23 d2 05 e1 0d  |. (b%<<24).#....|
00005690  23 dc 05 3a 0d 23 e6 0e  dd 20 f2 73 61 76 65 5f  |#..:.#... .save_|
000056a0  69 74 0d 23 f0 28 e7 20  28 6c 69 62 5f 66 6c 61  |it.#.(. (lib_fla|
000056b0  67 73 25 28 73 61 76 65  5f 70 72 6f 63 25 29 20  |gs%(save_proc%) |
000056c0  80 20 33 32 29 3c 3e 30  20 8c 0d 23 fa 3a 20 c8  |. 32)<>0 ..#.: .|
000056d0  99 20 22 58 4f 53 5f 53  70 72 69 74 65 4f 70 22  |. "XOS_SpriteOp"|
000056e0  2c 26 31 30 43 2c 72 65  73 75 6c 74 5f 6f 70 65  |,&10C,result_ope|
000056f0  6e 25 28 73 61 76 65 5f  70 72 6f 63 25 29 2c 73  |n%(save_proc%),s|
00005700  61 76 65 24 0d 24 04 05  cc 0d 24 0e 29 20 c8 99  |ave$.$....$.) ..|
00005710  20 22 4f 53 5f 46 53 43  6f 6e 74 72 6f 6c 22 2c  | "OS_FSControl",|
00005720  32 36 2c 6a 75 6e 6b 24  2c 73 61 76 65 24 2c 26  |26,junk$,save$,&|
00005730  38 32 0d 24 18 05 cd 0d  24 22 05 e1 0d 24 2c 05  |82.$....$"...$,.|
00005740  3a 0d 24 36 0d dd 20 f2  63 6c 6f 73 65 32 0d 24  |:.$6.. .close2.$|
00005750  40 3b e7 20 28 6c 69 62  5f 66 6c 61 67 73 25 28  |@;. (lib_flags%(|
00005760  70 72 6f 63 25 29 20 80  20 33 32 29 3e 30 20 80  |proc%) . 32)>0 .|
00005770  20 72 65 73 75 6c 74 5f  6f 70 65 6e 25 28 70 72  | result_open%(pr|
00005780  6f 63 25 29 3c 3e 30 20  8c 0d 24 4a 2a 20 c8 99  |oc%)<>0 ..$J* ..|
00005790  20 22 4f 53 5f 4d 6f 64  75 6c 65 22 2c 37 2c 2c  | "OS_Module",7,,|
000057a0  72 65 73 75 6c 74 5f 6f  70 65 6e 25 28 70 72 6f  |result_open%(pro|
000057b0  63 25 29 0d 24 54 17 20  e7 20 73 61 76 65 5f 70  |c%).$T. . save_p|
000057c0  72 6f 63 25 3c 3e 2d 31  20 8c 0d 24 5e 14 20 20  |roc%<>-1 ..$^.  |
000057d0  21 71 25 3d 73 61 76 65  5f 68 61 6e 64 25 0d 24  |!q%=save_hand%.$|
000057e0  68 1f 20 20 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |h.  .. "Wimp_Clo|
000057f0  73 65 57 69 6e 64 6f 77  22 2c 2c 71 25 0d 24 72  |seWindow",,q%.$r|
00005800  13 20 20 73 61 76 65 5f  70 72 6f 63 25 3d 2d 31  |.  save_proc%=-1|
00005810  0d 24 7c 06 20 cd 0d 24  86 05 cd 0d 24 90 19 72  |.$|. ..$....$..r|
00005820  65 73 75 6c 74 5f 6f 70  65 6e 25 28 70 72 6f 63  |esult_open%(proc|
00005830  25 29 3d a3 0d 24 9a 05  e1 0d 24 a4 05 3a 0d 24  |%)=..$....$..:.$|
00005840  ae 21 dd 20 f2 72 65 64  72 61 77 5f 6f 75 74 70  |.!. .redraw_outp|
00005850  75 74 28 68 61 6e 64 25  2c 70 72 6f 63 25 29 0d  |ut(hand%,proc%).|
00005860  24 b8 18 ea 20 69 25 2c  6d 6f 72 65 25 2c 61 78  |$... i%,more%,ax|
00005870  30 25 2c 61 79 30 25 0d  24 c2 4f c8 99 20 22 58  |0%,ay0%.$.O.. "X|
00005880  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 32  |OS_SpriteOp",&12|
00005890  38 2c 72 65 73 75 6c 74  5f 6f 70 65 6e 25 28 70  |8,result_open%(p|
000058a0  72 6f 63 25 29 2c 77 69  6e 64 6f 77 5f 74 69 74  |roc%),window_tit|
000058b0  6c 65 24 20 b8 20 2c 2c  2c 2c 73 70 72 79 25 2c  |le$ . ,,,,spry%,|
000058c0  2c 6d 6f 64 65 25 0d 24  cc 17 78 65 69 67 25 3d  |,mode%.$..xeig%=|
000058d0  a4 76 61 72 28 6d 6f 64  65 25 2c 34 29 0d 24 d6  |.var(mode%,4).$.|
000058e0  17 79 65 69 67 25 3d a4  76 61 72 28 6d 6f 64 65  |.yeig%=.var(mode|
000058f0  25 2c 35 29 0d 24 e0 56  c8 99 20 22 43 6f 6c 6f  |%,5).$.V.. "Colo|
00005900  75 72 54 72 61 6e 73 5f  53 65 6c 65 63 74 54 61  |urTrans_SelectTa|
00005910  62 6c 65 22 2c 72 65 73  75 6c 74 5f 6f 70 65 6e  |ble",result_open|
00005920  25 28 70 72 6f 63 25 29  2c 77 69 6e 64 6f 77 5f  |%(proc%),window_|
00005930  74 69 74 6c 65 24 2c 2d  31 2c 2d 31 2c 70 69 78  |title$,-1,-1,pix|
00005940  74 72 61 6e 73 25 2c 25  30 30 0d 24 ea 14 21 73  |trans%,%00.$..!s|
00005950  63 61 6c 65 25 3d 31 3c  3c 78 65 69 67 25 0d 24  |cale%=1<<xeig%.$|
00005960  f4 15 73 63 61 6c 65 25  21 34 3d 31 3c 3c 79 65  |..scale%!4=1<<ye|
00005970  69 67 25 0d 24 fe 19 73  63 61 6c 65 25 21 38 3d  |ig%.$..scale%!8=|
00005980  31 3c 3c a4 76 61 72 28  eb 2c 34 29 0d 25 08 1a  |1<<.var(.,4).%..|
00005990  73 63 61 6c 65 25 21 31  32 3d 31 3c 3c a4 76 61  |scale%!12=1<<.va|
000059a0  72 28 eb 2c 35 29 0d 25  12 26 c8 99 20 22 57 69  |r(.,5).%.&.. "Wi|
000059b0  6d 70 5f 52 65 64 72 61  77 57 69 6e 64 6f 77 22  |mp_RedrawWindow"|
000059c0  2c 2c 71 25 20 b8 20 6d  6f 72 65 25 0d 25 1c 13  |,,q% . more%.%..|
000059d0  61 78 30 25 3d 71 25 21  34 2d 71 25 21 32 30 0d  |ax0%=q%!4-q%!20.|
000059e0  25 26 23 61 79 30 25 3d  71 25 21 31 36 2d 71 25  |%&#ay0%=q%!16-q%|
000059f0  21 32 34 2d 28 73 70 72  79 25 3c 3c 79 65 69 67  |!24-(spry%<<yeig|
00005a00  25 29 0d 25 30 0c c8 95  20 6d 6f 72 65 25 0d 25  |%).%0... more%.%|
00005a10  3a 5a 20 c8 99 20 22 58  4f 53 5f 53 70 72 69 74  |:Z .. "XOS_Sprit|
00005a20  65 4f 70 22 2c 26 31 33  34 2c 72 65 73 75 6c 74  |eOp",&134,result|
00005a30  5f 6f 70 65 6e 25 28 70  72 6f 63 25 29 2c 77 69  |_open%(proc%),wi|
00005a40  6e 64 6f 77 5f 74 69 74  6c 65 24 2c 61 78 30 25  |ndow_title$,ax0%|
00005a50  2c 61 79 30 25 2c 30 2c  73 63 61 6c 65 25 2c 70  |,ay0%,0,scale%,p|
00005a60  69 78 74 72 61 6e 73 25  0d 25 44 27 20 c8 99 20  |ixtrans%.%D' .. |
00005a70  22 57 69 6d 70 5f 47 65  74 52 65 63 74 61 6e 67  |"Wimp_GetRectang|
00005a80  6c 65 22 2c 2c 71 25 20  b8 20 6d 6f 72 65 25 0d  |le",,q% . more%.|
00005a90  25 4e 05 ce 0d 25 58 05  e1 0d 25 62 05 3a 0d 25  |%N...%X...%b.:.%|
00005aa0  6c 20 dd 20 f2 6f 70 65  6e 5f 6f 75 74 70 75 74  |l . .open_output|
00005ab0  28 70 72 6f 63 25 2c 73  62 61 73 65 25 29 0d 25  |(proc%,sbase%).%|
00005ac0  76 27 24 72 65 73 75 6c  74 5f 74 69 74 6c 65 25  |v'$result_title%|
00005ad0  28 70 72 6f 63 25 29 3d  77 69 6e 64 6f 77 5f 74  |(proc%)=window_t|
00005ae0  69 74 6c 65 24 0d 25 80  47 c8 99 20 22 58 4f 53  |itle$.%.G.. "XOS|
00005af0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 32 38 2c  |_SpriteOp",&128,|
00005b00  73 62 61 73 65 25 2c 77  69 6e 64 6f 77 5f 74 69  |sbase%,window_ti|
00005b10  74 6c 65 24 20 b8 20 2c  2c 2c 73 70 72 78 25 2c  |tle$ . ,,,sprx%,|
00005b20  73 70 72 79 25 2c 2c 6d  6f 64 65 25 0d 25 8a 1e  |spry%,,mode%.%..|
00005b30  73 70 72 78 25 3d 73 70  72 78 25 3c 3c a4 76 61  |sprx%=sprx%<<.va|
00005b40  72 28 6d 6f 64 65 25 2c  34 29 0d 25 94 1e 73 70  |r(mode%,4).%..sp|
00005b50  72 79 25 3d 73 70 72 79  25 3c 3c a4 76 61 72 28  |ry%=spry%<<.var(|
00005b60  6d 6f 64 65 25 2c 35 29  0d 25 9e 09 21 71 25 3d  |mode%,5).%..!q%=|
00005b70  30 0d 25 a8 0f 71 25 21  34 3d 2d 73 70 72 79 25  |0.%..q%!4=-spry%|
00005b80  0d 25 b2 0e 71 25 21 38  3d 73 70 72 78 25 0d 25  |.%..q%!8=sprx%.%|
00005b90  bc 0b 71 25 21 31 32 3d  30 0d 25 c6 2e c8 99 20  |..q%!12=0.%.... |
00005ba0  22 57 69 6d 70 5f 53 65  74 45 78 74 65 6e 74 22  |"Wimp_SetExtent"|
00005bb0  2c 72 65 73 75 6c 74 5f  68 61 6e 64 25 28 70 72  |,result_hand%(pr|
00005bc0  6f 63 25 29 2c 71 25 0d  25 d0 1b 21 71 25 3d 72  |oc%),q%.%..!q%=r|
00005bd0  65 73 75 6c 74 5f 68 61  6e 64 25 28 70 72 6f 63  |esult_hand%(proc|
00005be0  25 29 0d 25 da 20 c8 99  20 22 57 69 6d 70 5f 47  |%).%. .. "Wimp_G|
00005bf0  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00005c00  71 25 0d 25 e4 14 71 25  21 31 32 3d 71 25 21 34  |q%.%..q%!12=q%!4|
00005c10  2b 73 70 72 78 25 0d 25  ee 14 71 25 21 38 3d 71  |+sprx%.%..q%!8=q|
00005c20  25 21 31 36 2d 73 70 72  79 25 0d 25 f8 0c 71 25  |%!16-spry%.%..q%|
00005c30  21 32 38 3d 2d 31 0d 26  02 1c c8 99 20 22 57 69  |!28=-1.&.... "Wi|
00005c40  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00005c50  71 25 0d 26 0c 1e 72 65  73 75 6c 74 5f 6f 70 65  |q%.&..result_ope|
00005c60  6e 25 28 70 72 6f 63 25  29 3d 73 62 61 73 65 25  |n%(proc%)=sbase%|
00005c70  0d 26 16 05 e1 0d 26 20  05 3a 0d 26 2a 25 dd 20  |.&....& .:.&*%. |
00005c80  a4 63 6c 61 69 6d 5f 6d  65 6d 6f 72 79 28 f8 20  |.claim_memory(. |
00005c90  70 74 72 25 2c f8 20 61  6d 6f 75 6e 74 25 29 0d  |ptr%,. amount%).|
00005ca0  26 34 0a ea 20 6d 65 6d  25 0d 26 3e 32 c8 99 20  |&4.. mem%.&>2.. |
00005cb0  22 57 69 6d 70 5f 53 6c  6f 74 53 69 7a 65 22 2c  |"Wimp_SlotSize",|
00005cc0  2d 31 2c 2d 31 20 b8 20  77 69 6d 70 5f 63 75 72  |-1,-1 . wimp_cur|
00005cd0  72 65 6e 74 25 2c 2c 6d  65 6d 25 0d 26 48 33 c8  |rent%,,mem%.&H3.|
00005ce0  99 20 22 57 69 6d 70 5f  53 6c 6f 74 53 69 7a 65  |. "Wimp_SlotSize|
00005cf0  22 2c 77 69 6d 70 5f 63  75 72 72 65 6e 74 25 2b  |",wimp_current%+|
00005d00  6d 65 6d 25 2c 2d 31 20  b8 20 6d 65 6d 25 0d 26  |mem%,-1 . mem%.&|
00005d10  52 0a 70 74 72 25 3d 93  0d 26 5c 15 61 6d 6f 75  |R.ptr%=..&\.amou|
00005d20  6e 74 25 3d 6d 65 6d 25  2d 70 74 72 25 0d 26 66  |nt%=mem%-ptr%.&f|
00005d30  19 63 6c 61 69 6d 65 64  25 3d 28 61 6d 6f 75 6e  |.claimed%=(amoun|
00005d40  74 25 3c 3e 30 29 0d 26  70 0d 3d 63 6c 61 69 6d  |t%<>0).&p.=claim|
00005d50  65 64 25 0d 26 7a 05 3a  0d 26 84 15 dd 20 f2 72  |ed%.&z.:.&... .r|
00005d60  65 6c 65 61 73 65 5f 6d  65 6d 6f 72 79 0d 26 8e  |elease_memory.&.|
00005d70  27 c8 99 20 22 57 69 6d  70 5f 53 6c 6f 74 53 69  |'.. "Wimp_SlotSi|
00005d80  7a 65 22 2c 77 69 6d 70  5f 63 75 72 72 65 6e 74  |ze",wimp_current|
00005d90  25 2c 2d 31 0d 26 98 0e  63 6c 61 69 6d 65 64 25  |%,-1.&..claimed%|
00005da0  3d a3 0d 26 a2 05 e1 0d  ff                       |=..&.....|
00005da9