� >!RunImage
� !Bio file processor
%� by Dave Acton and Dave Lawrence
(� for 32-bit machines
2� (c) BAU February 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% &600,_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%+&600
 .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%
�6�IF cur_setup_hand%<>-1 PROCclose(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 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 19 f4 20 21 42  69 6f 20 66 69 6c 65 20  |..... !Bio file |
00000020  70 72 6f 63 65 73 73 6f  72 0d 00 1e 25 f4 20 62  |processor...%. b|
00000030  79 20 44 61 76 65 20 41  63 74 6f 6e 20 61 6e 64  |y Dave Acton and|
00000040  20 44 61 76 65 20 4c 61  77 72 65 6e 63 65 0d 00  | Dave Lawrence..|
00000050  28 19 f4 20 66 6f 72 20  33 32 2d 62 69 74 20 6d  |(.. for 32-bit m|
00000060  61 63 68 69 6e 65 73 0d  00 32 1b f4 20 28 63 29  |achines..2.. (c)|
00000070  20 42 41 55 20 46 65 62  72 75 61 72 79 20 31 39  | BAU February 19|
00000080  39 33 0d 00 3c 05 3a 0d  00 46 0d de 20 71 25 20  |93..<.:..F.. q% |
00000090  26 34 30 30 0d 00 50 0e  24 71 25 3d 22 54 41 53  |&400..P.$q%="TAS|
000000a0  4b 22 0d 00 5a 39 c8 99  20 22 57 69 6d 70 5f 49  |K"..Z9.. "Wimp_I|
000000b0  6e 69 74 69 61 6c 69 73  65 22 2c 32 30 30 2c 21  |nitialise",200,!|
000000c0  71 25 2c 22 42 69 6f 22  20 b8 20 76 65 72 73 69  |q%,"Bio" . versi|
000000d0  6f 6e 25 2c 6d 79 74 61  73 6b 25 0d 00 64 6c ee  |on%,mytask%..dl.|
000000e0  20 85 20 f2 77 61 72 6e  28 22 21 42 69 6f 20 68  | . .warn("!Bio h|
000000f0  61 73 20 73 75 66 66 65  72 65 64 20 61 20 66 61  |as suffered a fa|
00000100  74 61 6c 20 65 72 72 6f  72 20 28 22 2b f6 24 2b  |tal error ("+.$+|
00000110  22 20 61 74 20 6c 69 6e  65 20 22 2b c3 9e 2b 22  |" at line "+..+"|
00000120  29 20 61 6e 64 20 6d 75  73 74 20 65 78 69 74 22  |) and must exit"|
00000130  29 3a c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |):.. "Wimp_Close|
00000140  44 6f 77 6e 22 3a e0 0d  00 6e 09 f2 69 6e 69 74  |Down":...n..init|
00000150  0d 00 78 0d f2 69 6e 69  74 5f 73 65 6c 0d 00 82  |..x..init_sel...|
00000160  0b 64 6f 6e 65 25 3d a3  0d 00 8c 05 f5 0d 00 96  |.done%=.........|
00000170  21 20 c8 99 20 22 57 69  6d 70 5f 50 6f 6c 6c 22  |! .. "Wimp_Poll"|
00000180  2c 2c 71 25 20 b8 20 72  65 61 73 6f 6e 25 0d 00  |,,q% . reason%..|
00000190  a0 11 20 c8 8e 20 72 65  61 73 6f 6e 25 20 ca 0d  |.. .. reason% ..|
000001a0  00 aa 16 20 20 c9 20 31  3a f2 72 65 64 72 61 77  |...  . 1:.redraw|
000001b0  28 21 71 25 29 0d 00 b4  22 20 20 c9 20 32 3a c8  |(!q%)..."  . 2:.|
000001c0  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
000001d0  6f 77 22 2c 2c 71 25 0d  00 be 15 20 20 c9 20 33  |ow",,q%....  . 3|
000001e0  3a f2 63 6c 6f 73 65 28  21 71 25 29 0d 00 c8 2b  |:.close(!q%)...+|
000001f0  20 20 c9 20 36 3a f2 6d  6f 75 73 65 28 21 71 25  |  . 6:.mouse(!q%|
00000200  2c 71 25 21 34 2c 71 25  21 38 2c 71 25 21 31 32  |,q%!4,q%!8,q%!12|
00000210  2c 71 25 21 31 36 29 0d  00 d2 0f 20 20 c9 20 37  |,q%!16)....  . 7|
00000220  3a f2 64 72 61 67 0d 00  dc 35 20 20 c9 20 38 3a  |:.drag...5  . 8:|
00000230  f2 6b 65 79 28 21 71 25  2c 71 25 21 34 2c 71 25  |.key(!q%,q%!4,q%|
00000240  21 38 2c 71 25 21 31 32  2c 71 25 21 31 36 2c 71  |!8,q%!12,q%!16,q|
00000250  25 21 32 30 2c 71 25 21  32 34 29 0d 00 e6 16 20  |%!20,q%!24).... |
00000260  20 c9 20 39 3a f2 6d 65  6e 75 5f 73 65 6c 65 63  | . 9:.menu_selec|
00000270  74 0d 00 f0 16 20 20 c9  20 31 37 2c 31 38 3a f2  |t....  . 17,18:.|
00000280  6d 65 73 73 61 67 65 0d  00 fa 17 20 20 c9 20 31  |message....  . 1|
00000290  39 3a f2 70 6f 70 5f 75  70 5f 73 61 76 65 0d 01  |9:.pop_up_save..|
000002a0  04 06 20 cb 0d 01 0e 0b  fd 20 64 6f 6e 65 25 0d  |.. ...... done%.|
000002b0  01 18 0f f2 63 6c 6f 73  65 5f 64 6f 77 6e 0d 01  |....close_down..|
000002c0  22 05 e0 0d 01 2c 05 3a  0d 01 36 0b dd 20 f2 69  |"....,.:..6.. .i|
000002d0  6e 69 74 0d 01 40 3e de  20 69 6e 64 25 20 26 31  |nit..@>. ind% &1|
000002e0  34 30 30 2c 73 74 72 69  6e 67 25 20 26 31 30 30  |400,string% &100|
000002f0  2c 6d 65 6e 75 62 75 66  25 20 26 36 30 30 2c 5f  |,menubuf% &600,_|
00000300  77 6f 72 64 25 20 34 2c  5f 73 74 61 72 25 20 31  |word% 4,_star% 1|
00000310  32 0d 01 4a 3b de 20 74  65 6d 70 25 20 26 31 30  |2..J;. temp% &10|
00000320  30 2c 69 63 25 20 36 34  2c 6d 65 73 73 25 20 26  |0,ic% 64,mess% &|
00000330  31 30 30 2c 70 69 78 74  72 61 6e 73 25 20 26 31  |100,pixtrans% &1|
00000340  30 30 2c 73 63 61 6c 65  25 20 31 36 0d 01 54 17  |00,scale% 16..T.|
00000350  69 6e 64 5f 65 6e 64 25  3d 69 6e 64 25 2b 26 31  |ind_end%=ind%+&1|
00000360  34 30 30 0d 01 5e 20 6c  69 62 72 61 72 79 24 3d  |400..^ library$=|
00000370  22 3c 42 69 6f 24 44 69  72 3e 2e 4c 69 62 72 61  |"<Bio$Dir>.Libra|
00000380  72 79 22 0d 01 68 16 6a  75 6e 6b 24 3d 22 3c 42  |ry"..h.junk$="<B|
00000390  69 6f 24 4a 75 6e 6b 3e  22 0d 01 72 42 74 79 70  |io$Junk>"..rBtyp|
000003a0  65 5f 64 65 66 24 3d 22  69 6e 2f 6b 2c 6f 75 74  |e_def$="in/k,out|
000003b0  3d 72 65 73 75 6c 74 73  2f 6b 2c 64 69 72 65 63  |=results/k,direc|
000003c0  74 6f 72 79 3d 64 69 72  2f 73 2c 73 65 6e 64 2f  |tory=dir/s,send/|
000003d0  73 2c 77 69 6e 64 6f 77  2f 73 22 0d 01 7c 15 6d  |s,window/s"..|.m|
000003e0  61 78 5f 6c 69 62 5f 66  69 6c 65 73 25 3d 33 32  |ax_lib_files%=32|
000003f0  0d 01 86 0d 62 6f 72 64  65 72 25 3d 38 0d 01 90  |....border%=8...|
00000400  39 de 20 6c 69 62 5f 66  69 6c 65 24 28 6d 61 78  |9. lib_file$(max|
00000410  5f 6c 69 62 5f 66 69 6c  65 73 25 29 2c 6c 69 62  |_lib_files%),lib|
00000420  5f 70 72 6f 63 24 28 6d  61 78 5f 6c 69 62 5f 66  |_proc$(max_lib_f|
00000430  69 6c 65 73 25 29 0d 01  9a 3a de 20 6c 69 62 5f  |iles%)...:. lib_|
00000440  6e 61 6d 65 24 28 6d 61  78 5f 6c 69 62 5f 66 69  |name$(max_lib_fi|
00000450  6c 65 73 25 29 2c 6c 69  62 5f 66 6c 61 67 73 25  |les%),lib_flags%|
00000460  28 6d 61 78 5f 6c 69 62  5f 66 69 6c 65 73 25 29  |(max_lib_files%)|
00000470  0d 01 a4 36 de 20 6c 69  62 5f 69 6e 25 28 6d 61  |...6. lib_in%(ma|
00000480  78 5f 6c 69 62 5f 66 69  6c 65 73 25 29 2c 6c 69  |x_lib_files%),li|
00000490  62 5f 6f 75 74 25 28 6d  61 78 5f 6c 69 62 5f 66  |b_out%(max_lib_f|
000004a0  69 6c 65 73 25 29 0d 01  ae 3b de 20 70 72 6f 63  |iles%)...;. proc|
000004b0  5f 69 63 6f 6e 25 28 6d  61 78 5f 6c 69 62 5f 66  |_icon%(max_lib_f|
000004c0  69 6c 65 73 25 29 2c 77  69 6e 64 5f 68 61 6e 64  |iles%),wind_hand|
000004d0  25 28 6d 61 78 5f 6c 69  62 5f 66 69 6c 65 73 25  |%(max_lib_files%|
000004e0  29 0d 01 b8 38 de 20 72  24 28 6d 61 78 5f 6c 69  |)...8. r$(max_li|
000004f0  62 5f 66 69 6c 65 73 25  2c 31 30 29 2c 72 65 73  |b_files%,10),res|
00000500  75 6c 74 5f 68 61 6e 64  25 28 6d 61 78 5f 6c 69  |ult_hand%(max_li|
00000510  62 5f 66 69 6c 65 73 25  29 0d 01 c2 3c de 20 72  |b_files%)...<. r|
00000520  75 6e 6e 69 6e 67 25 28  6d 61 78 5f 6c 69 62 5f  |unning%(max_lib_|
00000530  66 69 6c 65 73 25 29 2c  72 65 73 75 6c 74 5f 74  |files%),result_t|
00000540  69 74 6c 65 25 28 6d 61  78 5f 6c 69 62 5f 66 69  |itle%(max_lib_fi|
00000550  6c 65 73 25 29 0d 01 cc  22 de 20 72 65 73 75 6c  |les%)...". resul|
00000560  74 5f 6f 70 65 6e 25 28  6d 61 78 5f 6c 69 62 5f  |t_open%(max_lib_|
00000570  66 69 6c 65 73 25 29 0d  01 d6 10 6c 69 62 5f 66  |files%)....lib_f|
00000580  69 6c 65 73 25 3d 30 0d  01 e0 17 6c 69 62 5f 73  |iles%=0....lib_s|
00000590  70 72 69 74 65 5f 73 69  7a 65 25 3d 31 36 0d 01  |prite_size%=16..|
000005a0  ea 1e f2 66 69 6e 64 5f  70 72 6f 63 65 64 75 72  |...find_procedur|
000005b0  65 73 28 6c 69 62 72 61  72 79 24 29 0d 01 f4 23  |es(library$)...#|
000005c0  de 20 6c 69 62 5f 73 70  72 69 74 65 73 25 20 6c  |. lib_sprites% l|
000005d0  69 62 5f 73 70 72 69 74  65 5f 73 69 7a 65 25 0d  |ib_sprite_size%.|
000005e0  01 fe 22 21 6c 69 62 5f  73 70 72 69 74 65 73 25  |.."!lib_sprites%|
000005f0  3d 6c 69 62 5f 73 70 72  69 74 65 5f 73 69 7a 65  |=lib_sprite_size|
00000600  25 0d 02 08 14 6c 69 62  5f 73 70 72 69 74 65 73  |%....lib_sprites|
00000610  25 21 34 3d 30 0d 02 12  15 6c 69 62 5f 73 70 72  |%!4=0....lib_spr|
00000620  69 74 65 73 25 21 38 3d  31 36 0d 02 1c 16 6c 69  |ites%!8=16....li|
00000630  62 5f 73 70 72 69 74 65  73 25 21 31 32 3d 31 36  |b_sprites%!12=16|
00000640  0d 02 26 12 f2 6c 6f 61  64 5f 70 61 6c 65 74 74  |..&..load_palett|
00000650  65 73 0d 02 30 18 f2 6c  6f 61 64 5f 64 61 74 61  |es..0..load_data|
00000660  28 6c 69 62 72 61 72 79  24 29 0d 02 3a 12 c8 a3  |(library$)..:...|
00000670  20 6c 69 62 5f 66 69 6c  65 24 28 29 0d 02 44 14  | lib_file$()..D.|
00000680  f2 69 6e 69 74 5f 70 72  6f 63 65 64 75 72 65 73  |.init_procedures|
00000690  0d 02 4e 31 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |..N1.. "Wimp_Ope|
000006a0  6e 54 65 6d 70 6c 61 74  65 22 2c 2c 22 3c 42 69  |nTemplate",,"<Bi|
000006b0  6f 24 44 69 72 3e 2e 54  65 6d 70 6c 61 74 65 73  |o$Dir>.Templates|
000006c0  22 0d 02 58 17 e3 20 69  25 3d 31 20 b8 20 6c 69  |"..X.. i%=1 . li|
000006d0  62 5f 66 69 6c 65 73 25  0d 02 62 20 20 e7 20 28  |b_files%..b  . (|
000006e0  6c 69 62 5f 66 6c 61 67  73 25 28 69 25 29 20 80  |lib_flags%(i%) .|
000006f0  20 34 30 29 3e 30 20 8c  0d 02 6c 43 20 20 c8 99  | 40)>0 ...lC  ..|
00000700  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
00000710  61 74 65 22 2c 2c 71 25  2c 69 6e 64 25 2c 69 6e  |ate",,q%,ind%,in|
00000720  64 5f 65 6e 64 25 2c 2d  31 2c 22 72 65 73 75 6c  |d_end%,-1,"resul|
00000730  74 22 20 b8 20 2c 2c 69  6e 64 25 0d 02 76 3e 20  |t" . ,,ind%..v> |
00000740  20 e7 20 28 6c 69 62 5f  66 6c 61 67 73 25 28 69  | . (lib_flags%(i|
00000750  25 29 20 80 20 33 32 29  3e 30 20 8c 20 71 25 21  |%) . 32)>0 . q%!|
00000760  32 38 3d 71 25 21 32 38  20 84 20 28 25 31 31 31  |28=q%!28 . (%111|
00000770  31 31 31 31 3c 3c 32 34  29 0d 02 80 16 20 20 71  |1111<<24)....  q|
00000780  25 21 34 2b 3d b3 28 34  30 30 29 2d 32 30 30 0d  |%!4+=.(400)-200.|
00000790  02 8a 17 20 20 71 25 21  31 36 2b 3d b3 28 34 30  |...  q%!16+=.(40|
000007a0  30 29 2d 32 30 30 0d 02  94 1d 20 20 72 65 73 75  |0)-200....  resu|
000007b0  6c 74 5f 74 69 74 6c 65  25 28 69 25 29 3d 71 25  |lt_title%(i%)=q%|
000007c0  21 37 32 0d 02 9e 33 20  20 c8 99 20 22 57 69 6d  |!72...3  .. "Wim|
000007d0  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
000007e0  2c 71 25 20 b8 20 72 65  73 75 6c 74 5f 68 61 6e  |,q% . result_han|
000007f0  64 25 28 69 25 29 0d 02  a8 06 20 cd 0d 02 b2 05  |d%(i%).... .....|
00000800  ed 0d 02 bc 43 c8 99 20  22 57 69 6d 70 5f 4c 6f  |....C.. "Wimp_Lo|
00000810  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 71 25 2c  |adTemplate",,q%,|
00000820  69 6e 64 25 2c 69 6e 64  5f 65 6e 64 25 2c 2d 31  |ind%,ind_end%,-1|
00000830  2c 22 70 72 6f 67 49 6e  66 6f 22 20 b8 20 2c 2c  |,"progInfo" . ,,|
00000840  69 6e 64 25 0d 02 c6 2b  c8 99 20 22 57 69 6d 70  |ind%...+.. "Wimp|
00000850  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00000860  71 25 20 b8 20 69 6e 66  6f 5f 68 61 6e 64 25 0d  |q% . info_hand%.|
00000870  02 d0 3f c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |..?.. "Wimp_Load|
00000880  54 65 6d 70 6c 61 74 65  22 2c 2c 71 25 2c 69 6e  |Template",,q%,in|
00000890  64 25 2c 69 6e 64 5f 65  6e 64 25 2c 2d 31 2c 22  |d%,ind_end%,-1,"|
000008a0  73 61 76 65 22 20 b8 20  2c 2c 69 6e 64 25 0d 02  |save" . ,,ind%..|
000008b0  da 2b c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.+.. "Wimp_Creat|
000008c0  65 57 69 6e 64 6f 77 22  2c 2c 71 25 20 b8 20 73  |eWindow",,q% . s|
000008d0  61 76 65 5f 68 61 6e 64  25 0d 02 e4 1b c8 99 20  |ave_hand%...... |
000008e0  22 57 69 6d 70 5f 43 6c  6f 73 65 54 65 6d 70 6c  |"Wimp_CloseTempl|
000008f0  61 74 65 22 0d 02 ee 26  73 61 76 65 74 65 78 74  |ate"...&savetext|
00000900  3d a4 69 63 5f 61 64 64  72 28 73 61 76 65 5f 68  |=.ic_addr(save_h|
00000910  61 6e 64 25 2c 32 2c 32  38 29 0d 02 f8 26 73 61  |and%,2,28)...&sa|
00000920  76 65 74 79 70 65 3d a4  69 63 5f 61 64 64 72 28  |vetype=.ic_addr(|
00000930  73 61 76 65 5f 68 61 6e  64 25 2c 31 2c 33 32 29  |save_hand%,1,32)|
00000940  0d 03 02 16 24 73 61 76  65 74 65 78 74 3d 22 52  |....$savetext="R|
00000950  65 73 75 6c 74 22 0d 03  0c 15 6d 65 6e 75 70 74  |esult"....menupt|
00000960  72 25 3d 6d 65 6e 75 62  75 66 25 0d 03 16 1a 6d  |r%=menubuf%....m|
00000970  65 6e 75 64 61 74 25 3d  6d 65 6e 75 62 75 66 25  |enudat%=menubuf%|
00000980  2b 26 36 30 30 0d 03 20  2e 70 72 6f 63 5f 6d 65  |+&600.. .proc_me|
00000990  6e 75 25 3d a4 6d 61 6b  65 5f 6d 65 6e 5f 72 61  |nu%=.make_men_ra|
000009a0  77 28 70 6d 65 6e 75 25  2c 22 50 72 6f 63 65 73  |w(pmenu%,"Proces|
000009b0  73 22 29 0d 03 2a 40 6d  61 69 6e 5f 6d 65 6e 75  |s")..*@main_menu|
000009c0  25 3d a4 6d 61 6b 65 5f  6d 65 6e 28 22 49 6e 66  |%=.make_men("Inf|
000009d0  6f 2c 50 72 6f 63 65 73  73 2c 53 65 74 20 64 65  |o,Process,Set de|
000009e0  66 61 75 6c 74 2c 51 75  69 74 2c 22 2c 22 42 69  |fault,Quit,","Bi|
000009f0  6f 22 29 0d 03 34 26 61  6c 6c 5f 6d 65 6e 75 25  |o")..4&all_menu%|
00000a00  3d a4 6d 61 6b 65 5f 6d  65 6e 28 22 41 6c 6c 2c  |=.make_men("All,|
00000a10  22 2c 22 51 75 69 74 22  29 0d 03 3e 2d f2 61 74  |","Quit")..>-.at|
00000a20  74 61 63 68 5f 73 75 62  5f 6d 65 6e 75 28 69 6e  |tach_sub_menu(in|
00000a30  66 6f 5f 68 61 6e 64 25  2c 6d 61 69 6e 5f 6d 65  |fo_hand%,main_me|
00000a40  6e 75 25 2c 30 29 0d 03  48 2d f2 61 74 74 61 63  |nu%,0)..H-.attac|
00000a50  68 5f 73 75 62 5f 6d 65  6e 75 28 70 72 6f 63 5f  |h_sub_menu(proc_|
00000a60  6d 65 6e 75 25 2c 6d 61  69 6e 5f 6d 65 6e 75 25  |menu%,main_menu%|
00000a70  2c 31 29 0d 03 52 2c f2  61 74 74 61 63 68 5f 73  |,1)..R,.attach_s|
00000a80  75 62 5f 6d 65 6e 75 28  61 6c 6c 5f 6d 65 6e 75  |ub_menu(all_menu|
00000a90  25 2c 6d 61 69 6e 5f 6d  65 6e 75 25 2c 33 29 0d  |%,main_menu%,3).|
00000aa0  03 5c 16 63 75 72 5f 73  65 74 75 70 5f 68 61 6e  |.\.cur_setup_han|
00000ab0  64 25 3d 2d 31 0d 03 66  2a 78 64 72 61 67 73 74  |d%=-1..f*xdragst|
00000ac0  61 72 74 25 3d a4 73 77  69 28 22 58 44 72 61 67  |art%=.swi("XDrag|
00000ad0  41 53 70 72 69 74 65 5f  53 74 61 72 74 22 29 0d  |ASprite_Start").|
00000ae0  03 70 11 73 61 76 65 5f  70 72 6f 63 25 3d 2d 31  |.p.save_proc%=-1|
00000af0  0d 03 7a 05 e1 0d 03 84  05 3a 0d 03 8e 1c dd 20  |..z......:..... |
00000b00  f2 66 69 6e 64 5f 70 72  6f 63 65 64 75 72 65 73  |.find_procedures|
00000b10  28 64 69 72 24 29 0d 03  98 0b ea 20 6e 25 2c 72  |(dir$)..... n%,r|
00000b20  25 0d 03 a2 08 6e 25 3d  30 0d 03 ac 0d c8 95 20  |%....n%=0...... |
00000b30  6e 25 3c 3e 2d 31 0d 03  b6 38 20 c8 99 20 22 4f  |n%<>-1...8 .. "O|
00000b40  53 5f 47 42 50 42 22 2c  31 30 2c 64 69 72 24 2c  |S_GBPB",10,dir$,|
00000b50  74 65 6d 70 25 2c 31 2c  6e 25 2c 26 31 30 30 2c  |temp%,1,n%,&100,|
00000b60  22 2a 22 20 b8 20 2c 2c  2c 72 25 2c 6e 25 0d 03  |"*" . ,,,r%,n%..|
00000b70  c0 0d 20 e7 20 72 25 3d  31 20 8c 0d 03 ca 1e 20  |.. . r%=1 ..... |
00000b80  20 66 69 6c 65 24 3d a4  67 65 74 5f 73 74 72 28  | file$=.get_str(|
00000b90  74 65 6d 70 25 2b 32 30  29 0d 03 d4 14 20 20 e7  |temp%+20)....  .|
00000ba0  20 74 65 6d 70 25 21 31  36 3d 32 20 8c 0d 03 de  | temp%!16=2 ....|
00000bb0  27 20 20 20 f2 66 69 6e  64 5f 70 72 6f 63 65 64  |'   .find_proced|
00000bc0  75 72 65 73 28 64 69 72  24 2b 22 2e 22 2b 66 69  |ures(dir$+"."+fi|
00000bd0  6c 65 24 29 0d 03 e8 07  20 20 cc 0d 03 f2 26 20  |le$)....  ....& |
00000be0  20 20 c8 8e 20 28 28 21  74 65 6d 70 25 29 20 80  |  .. ((!temp%) .|
00000bf0  20 26 46 46 46 30 30 29  20 81 20 26 31 30 30 20  | &FFF00) . &100 |
00000c00  ca 0d 03 fc 0f 20 20 20  20 c9 20 26 46 46 39 3a  |.....    . &FF9:|
00000c10  0d 04 06 22 20 20 20 20  20 6c 69 62 5f 73 70 72  |..."     lib_spr|
00000c20  69 74 65 5f 73 69 7a 65  25 2b 3d 74 65 6d 70 25  |ite_size%+=temp%|
00000c30  21 38 0d 04 10 0f 20 20  20 20 c9 20 26 46 46 42  |!8....    . &FFB|
00000c40  3a 0d 04 1a 16 20 20 20  20 20 6c 69 62 5f 66 69  |:....     lib_fi|
00000c50  6c 65 73 25 2b 3d 31 0d  04 24 29 20 20 20 20 20  |les%+=1..$)     |
00000c60  6c 69 62 5f 70 72 6f 63  24 28 6c 69 62 5f 66 69  |lib_proc$(lib_fi|
00000c70  6c 65 73 25 29 3d a4 6c  63 28 66 69 6c 65 24 29  |les%)=.lc(file$)|
00000c80  0d 04 2e 2d 20 20 20 20  20 6c 69 62 5f 66 69 6c  |...-     lib_fil|
00000c90  65 24 28 6c 69 62 5f 66  69 6c 65 73 25 29 3d 64  |e$(lib_files%)=d|
00000ca0  69 72 24 2b 22 2e 22 2b  66 69 6c 65 24 0d 04 38  |ir$+"."+file$..8|
00000cb0  08 20 20 20 cb 0d 04 42  07 20 20 cd 0d 04 4c 06  |.   ...B.  ...L.|
00000cc0  20 cd 0d 04 56 05 ce 0d  04 60 05 e1 0d 04 6a 05  | ...V....`....j.|
00000cd0  3a 0d 04 74 16 dd 20 f2  6c 6f 61 64 5f 64 61 74  |:..t.. .load_dat|
00000ce0  61 28 64 69 72 24 29 0d  04 7e 11 ea 20 6e 25 2c  |a(dir$)..~.. n%,|
00000cf0  72 25 2c 66 69 6c 65 24  0d 04 88 08 6e 25 3d 30  |r%,file$....n%=0|
00000d00  0d 04 92 0d c8 95 20 6e  25 3c 3e 2d 31 0d 04 9c  |...... n%<>-1...|
00000d10  38 20 c8 99 20 22 4f 53  5f 47 42 50 42 22 2c 31  |8 .. "OS_GBPB",1|
00000d20  30 2c 64 69 72 24 2c 74  65 6d 70 25 2c 31 2c 6e  |0,dir$,temp%,1,n|
00000d30  25 2c 26 31 30 30 2c 22  2a 22 20 b8 20 2c 2c 2c  |%,&100,"*" . ,,,|
00000d40  72 25 2c 6e 25 0d 04 a6  0d 20 e7 20 72 25 3d 31  |r%,n%.... . r%=1|
00000d50  20 8c 0d 04 b0 1e 20 20  66 69 6c 65 24 3d a4 67  | .....  file$=.g|
00000d60  65 74 5f 73 74 72 28 74  65 6d 70 25 2b 32 30 29  |et_str(temp%+20)|
00000d70  0d 04 ba 14 20 20 e7 20  74 65 6d 70 25 21 31 36  |....  . temp%!16|
00000d80  3d 32 20 8c 0d 04 c4 21  20 20 20 f2 6c 6f 61 64  |=2 ....!   .load|
00000d90  5f 64 61 74 61 28 64 69  72 24 2b 22 2e 22 2b 66  |_data(dir$+"."+f|
00000da0  69 6c 65 24 29 0d 04 ce  07 20 20 cc 0d 04 d8 26  |ile$)....  ....&|
00000db0  20 20 20 c8 8e 20 28 28  21 74 65 6d 70 25 29 20  |   .. ((!temp%) |
00000dc0  80 20 26 46 46 46 30 30  29 20 81 20 26 31 30 30  |. &FFF00) . &100|
00000dd0  20 ca 0d 04 e2 0f 20 20  20 20 c9 20 26 46 46 39  | .....    . &FF9|
00000de0  3a 0d 04 ec 3a 20 20 20  20 20 c8 99 20 22 4f 53  |:...:     .. "OS|
00000df0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 42 2c  |_SpriteOp",&10B,|
00000e00  6c 69 62 5f 73 70 72 69  74 65 73 25 2c 64 69 72  |lib_sprites%,dir|
00000e10  24 2b 22 2e 22 2b 66 69  6c 65 24 0d 04 f6 0f 20  |$+"."+file$.... |
00000e20  20 20 20 c9 20 26 46 45  43 3a 0d 05 00 2f 20 20  |   . &FEC:.../  |
00000e30  20 20 20 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |   .. "Wimp_Open|
00000e40  54 65 6d 70 6c 61 74 65  22 2c 2c 64 69 72 24 2b  |Template",,dir$+|
00000e50  22 2e 22 2b 66 69 6c 65  24 0d 05 0a 10 20 20 20  |"."+file$....   |
00000e60  20 20 77 69 6e 64 25 3d  30 0d 05 14 0a 20 20 20  |  wind%=0....   |
00000e70  20 20 f5 0d 05 1e 15 20  20 20 20 20 20 24 5f 73  |  .....      $_s|
00000e80  74 61 72 25 3d 22 2a 22  0d 05 28 57 20 20 20 20  |tar%="*"..(W    |
00000e90  20 20 c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |  .. "Wimp_LoadT|
00000ea0  65 6d 70 6c 61 74 65 22  2c 2c 71 25 2c 69 6e 64  |emplate",,q%,ind|
00000eb0  25 2c 69 6e 64 5f 65 6e  64 25 2c 2d 31 2c 5f 73  |%,ind_end%,-1,_s|
00000ec0  74 61 72 25 2c 77 69 6e  64 25 20 b8 20 2c 2c 6e  |tar%,wind% . ,,n|
00000ed0  65 77 69 6e 64 25 2c 2c  2c 2c 77 69 6e 64 25 0d  |ewind%,,,,wind%.|
00000ee0  05 32 16 20 20 20 20 20  20 e7 20 77 69 6e 64 25  |.2.      . wind%|
00000ef0  3c 3e 30 20 8c 0d 05 3c  32 20 20 20 20 20 20 20  |<>0 ...<2       |
00000f00  70 72 6f 63 25 3d a4 66  69 6e 64 5f 70 72 6f 63  |proc%=.find_proc|
00000f10  28 a4 6c 63 28 a4 67 65  74 5f 73 74 72 28 5f 73  |(.lc(.get_str(_s|
00000f20  74 61 72 25 29 29 29 0d  05 46 16 20 20 20 20 20  |tar%)))..F.     |
00000f30  20 20 e7 20 70 72 6f 63  25 3e 30 20 8c 0d 05 50  |  . proc%>0 ...P|
00000f40  18 20 20 20 20 20 20 20  20 69 6e 64 25 3d 6e 65  |.        ind%=ne|
00000f50  77 69 6e 64 25 0d 05 5a  3a 20 20 20 20 20 20 20  |wind%..Z:       |
00000f60  20 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  | .. "Wimp_Create|
00000f70  57 69 6e 64 6f 77 22 2c  2c 71 25 20 b8 20 77 69  |Window",,q% . wi|
00000f80  6e 64 5f 68 61 6e 64 25  28 70 72 6f 63 25 29 0d  |nd_hand%(proc%).|
00000f90  05 64 13 20 20 20 20 20  20 20 20 77 69 6e 64 25  |.d.        wind%|
00000fa0  3d 30 0d 05 6e 0c 20 20  20 20 20 20 20 cd 0d 05  |=0..n.       ...|
00000fb0  78 0b 20 20 20 20 20 20  cd 0d 05 82 12 20 20 20  |x.      .....   |
00000fc0  20 20 fd 20 77 69 6e 64  25 3d 30 0d 05 8c 20 20  |  . wind%=0...  |
00000fd0  20 20 20 20 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |    .. "Wimp_Clo|
00000fe0  73 65 54 65 6d 70 6c 61  74 65 22 0d 05 96 08 20  |seTemplate".... |
00000ff0  20 20 cb 0d 05 a0 07 20  20 cd 0d 05 aa 06 20 cd  |  .....  ..... .|
00001000  0d 05 b4 05 ce 0d 05 be  05 e1 0d 05 c8 05 3a 0d  |..............:.|
00001010  05 d2 17 dd 20 a4 66 69  6e 64 5f 70 72 6f 63 28  |.... .find_proc(|
00001020  70 72 6f 63 24 29 0d 05  dc 08 ea 20 69 25 0d 05  |proc$)..... i%..|
00001030  e6 13 69 25 3d 6c 69 62  5f 66 69 6c 65 73 25 2b  |..i%=lib_files%+|
00001040  31 0d 05 f0 05 f5 0d 05  fa 0a 20 69 25 2d 3d 31  |1......... i%-=1|
00001050  0d 06 04 20 fd 20 69 25  3d 30 20 84 20 70 72 6f  |... . i%=0 . pro|
00001060  63 24 3d 6c 69 62 5f 70  72 6f 63 24 28 69 25 29  |c$=lib_proc$(i%)|
00001070  0d 06 0e 07 3d 69 25 0d  06 18 05 3a 0d 06 22 19  |....=i%....:..".|
00001080  dd 20 a4 66 69 6e 64 5f  65 6c 65 6d 28 65 25 2c  |. .find_elem(e%,|
00001090  61 25 28 29 29 0d 06 2c  08 ea 20 69 25 0d 06 36  |a%())..,.. i%..6|
000010a0  13 69 25 3d 6c 69 62 5f  66 69 6c 65 73 25 2b 31  |.i%=lib_files%+1|
000010b0  0d 06 40 05 f5 0d 06 4a  0a 20 69 25 2d 3d 31 0d  |..@....J. i%-=1.|
000010c0  06 54 16 fd 20 69 25 3d  30 20 84 20 65 25 3d 61  |.T.. i%=0 . e%=a|
000010d0  25 28 69 25 29 0d 06 5e  07 3d 69 25 0d 06 68 05  |%(i%)..^.=i%..h.|
000010e0  3a 0d 06 72 16 dd 20 f2  69 6e 69 74 5f 70 72 6f  |:..r.. .init_pro|
000010f0  63 65 64 75 72 65 73 0d  06 7c 28 de 20 6c 69 62  |cedures..|(. lib|
00001100  5f 73 70 72 25 28 6c 69  62 5f 66 69 6c 65 73 25  |_spr%(lib_files%|
00001110  2c 31 29 2c 70 6d 65 6e  75 25 20 26 34 30 30 0d  |,1),pmenu% &400.|
00001120  06 86 29 6c 69 62 5f 73  70 72 25 28 30 2c 30 29  |..)lib_spr%(0,0)|
00001130  3d a4 73 70 72 69 74 65  5f 61 64 64 72 65 73 73  |=.sprite_address|
00001140  28 22 42 69 6f 34 22 29  0d 06 90 29 6c 69 62 5f  |("Bio4")...)lib_|
00001150  73 70 72 25 28 30 2c 31  29 3d a4 73 70 72 69 74  |spr%(0,1)=.sprit|
00001160  65 5f 61 64 64 72 65 73  73 28 22 42 69 6f 32 22  |e_address("Bio2"|
00001170  29 0d 06 9a 0f 70 6d 70  25 3d 70 6d 65 6e 75 25  |)....pmp%=pmenu%|
00001180  0d 06 a4 17 e3 20 69 25  3d 31 20 b8 20 6c 69 62  |..... i%=1 . lib|
00001190  5f 66 69 6c 65 73 25 0d  06 ae 36 20 6c 69 62 5f  |_files%...6 lib_|
000011a0  73 70 72 25 28 69 25 2c  30 29 3d a4 73 70 72 69  |spr%(i%,0)=.spri|
000011b0  74 65 5f 61 64 64 72 65  73 73 28 6c 69 62 5f 70  |te_address(lib_p|
000011c0  72 6f 63 24 28 69 25 29  2b 22 34 22 29 0d 06 b8  |roc$(i%)+"4")...|
000011d0  36 20 6c 69 62 5f 73 70  72 25 28 69 25 2c 31 29  |6 lib_spr%(i%,1)|
000011e0  3d a4 73 70 72 69 74 65  5f 61 64 64 72 65 73 73  |=.sprite_address|
000011f0  28 6c 69 62 5f 70 72 6f  63 24 28 69 25 29 2b 22  |(lib_proc$(i%)+"|
00001200  32 22 29 0d 06 c2 30 20  6c 69 62 5f 6e 61 6d 65  |2")...0 lib_name|
00001210  24 28 69 25 29 3d a0 28  22 46 4e 22 2b 6c 69 62  |$(i%)=.("FN"+lib|
00001220  5f 70 72 6f 63 24 28 69  25 29 2b 22 5f 6e 61 6d  |_proc$(i%)+"_nam|
00001230  65 22 29 0d 06 cc 28 20  74 79 70 65 24 3d a0 28  |e")...( type$=.(|
00001240  22 46 4e 22 2b 6c 69 62  5f 70 72 6f 63 24 28 69  |"FN"+lib_proc$(i|
00001250  25 29 2b 22 5f 61 72 67  73 22 29 0d 06 d6 2d 20  |%)+"_args")...- |
00001260  c8 99 20 22 4f 53 5f 52  65 61 64 41 72 67 73 22  |.. "OS_ReadArgs"|
00001270  2c 74 79 70 65 5f 64 65  66 24 2c 74 79 70 65 24  |,type_def$,type$|
00001280  2c 71 25 2c 26 34 30 30  0d 06 e0 18 20 66 69 6c  |,q%,&400.... fil|
00001290  65 73 5f 69 6e 25 3d 28  71 25 21 30 3c 3e 30 29  |es_in%=(q%!0<>0)|
000012a0  0d 06 ea 16 20 69 73 5f  6f 75 74 25 3d 28 71 25  |.... is_out%=(q%|
000012b0  21 34 3c 3e 30 29 0d 06  f4 17 20 64 69 72 73 5f  |!4<>0).... dirs_|
000012c0  69 6e 25 3d 28 71 25 21  38 3c 3e 30 29 0d 06 fe  |in%=(q%!8<>0)...|
000012d0  19 20 73 65 6e 64 5f 6f  75 74 25 3d 28 71 25 21  |. send_out%=(q%!|
000012e0  31 32 3c 3e 30 29 0d 07  08 19 20 77 69 6e 64 5f  |12<>0).... wind_|
000012f0  6f 75 74 25 3d 28 71 25  21 31 36 3c 3e 30 29 0d  |out%=(q%!16<>0).|
00001300  07 12 11 20 66 69 6c 65  73 5f 6f 75 74 25 3d a3  |... files_out%=.|
00001310  0d 07 1c 10 20 64 61 74  61 5f 6f 75 74 25 3d a3  |.... data_out%=.|
00001320  0d 07 26 37 20 e7 20 66  69 6c 65 73 5f 69 6e 25  |..&7 . files_in%|
00001330  20 6c 69 62 5f 69 6e 25  28 69 25 29 3d a4 66 69  | lib_in%(i%)=.fi|
00001340  6c 65 5f 74 79 70 65 28  a4 67 65 74 5f 73 74 72  |le_type(.get_str|
00001350  28 71 25 21 30 29 29 0d  07 30 10 20 e7 20 69 73  |(q%!0))..0. . is|
00001360  5f 6f 75 74 25 20 8c 0d  07 3a 19 20 20 6f 75 74  |_out% ...:.  out|
00001370  24 3d a4 67 65 74 5f 73  74 72 28 71 25 21 34 29  |$=.get_str(q%!4)|
00001380  0d 07 44 15 20 20 e7 20  c3 bb 6f 75 74 24 3d 6f  |..D.  . ..out$=o|
00001390  75 74 24 20 8c 0d 07 4e  19 20 20 20 6c 69 62 5f  |ut$ ...N.   lib_|
000013a0  6f 75 74 25 28 69 25 29  3d bb 6f 75 74 24 0d 07  |out%(i%)=.out$..|
000013b0  58 12 20 20 20 64 61 74  61 5f 6f 75 74 25 3d b9  |X.   data_out%=.|
000013c0  0d 07 62 07 20 20 cc 0d  07 6c 24 20 20 20 6c 69  |..b.  ...l$   li|
000013d0  62 5f 6f 75 74 25 28 69  25 29 3d a4 66 69 6c 65  |b_out%(i%)=.file|
000013e0  5f 74 79 70 65 28 6f 75  74 24 29 0d 07 76 13 20  |_type(out$)..v. |
000013f0  20 20 66 69 6c 65 73 5f  6f 75 74 25 3d b9 0d 07  |  files_out%=...|
00001400  80 07 20 20 cd 0d 07 8a  06 20 cd 0d 07 94 7f 20  |..  ..... ..... |
00001410  6c 69 62 5f 66 6c 61 67  73 25 28 69 25 29 3d 28  |lib_flags%(i%)=(|
00001420  66 69 6c 65 73 5f 69 6e  25 20 80 20 31 29 20 84  |files_in% . 1) .|
00001430  20 28 64 69 72 73 5f 69  6e 25 20 80 20 32 29 20  | (dirs_in% . 2) |
00001440  84 20 28 66 69 6c 65 73  5f 6f 75 74 25 20 80 20  |. (files_out% . |
00001450  34 29 20 84 20 28 64 61  74 61 5f 6f 75 74 25 20  |4) . (data_out% |
00001460  80 20 38 29 20 84 20 28  73 65 6e 64 5f 6f 75 74  |. 8) . (send_out|
00001470  25 20 80 20 31 36 29 20  84 20 28 77 69 6e 64 5f  |% . 16) . (wind_|
00001480  6f 75 74 25 20 80 20 33  32 29 0d 07 9e 1e 20 77  |out% . 32).... w|
00001490  69 6e 64 5f 68 61 6e 64  25 3d 77 69 6e 64 5f 68  |ind_hand%=wind_h|
000014a0  61 6e 64 25 28 69 25 29  0d 07 a8 24 20 7a 3d a0  |and%(i%)...$ z=.|
000014b0  28 22 46 4e 22 2b 6c 69  62 5f 70 72 6f 63 24 28  |("FN"+lib_proc$(|
000014c0  69 25 29 2b 22 5f 69 6e  69 74 22 29 0d 07 b2 1c  |i%)+"_init")....|
000014d0  20 24 70 6d 70 25 3d 6c  69 62 5f 6e 61 6d 65 24  | $pmp%=lib_name$|
000014e0  28 69 25 29 2b 22 2c 22  0d 07 bc 13 20 70 6d 70  |(i%)+",".... pmp|
000014f0  25 2b 3d a9 28 24 70 6d  70 25 29 0d 07 c6 05 ed  |%+=.($pmp%).....|
00001500  0d 07 d0 05 e1 0d 07 da  05 3a 0d 07 e4 1b dd 20  |.........:..... |
00001510  a4 73 70 72 69 74 65 5f  61 64 64 72 65 73 73 28  |.sprite_address(|
00001520  73 70 72 24 29 0d 07 ee  39 c8 99 20 22 58 4f 53  |spr$)...9.. "XOS|
00001530  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 31 38 2c  |_SpriteOp",&118,|
00001540  6c 69 62 5f 73 70 72 69  74 65 73 25 2c 73 70 72  |lib_sprites%,spr|
00001550  24 20 b8 20 2c 2c 61 64  64 72 25 3b 6f 6b 0d 07  |$ . ,,addr%;ok..|
00001560  f8 18 e7 20 28 6f 6b 20  80 20 31 29 3e 30 20 61  |... (ok . 1)>0 a|
00001570  64 64 72 25 3d 30 0d 08  02 0a 3d 61 64 64 72 25  |ddr%=0....=addr%|
00001580  0d 08 0c 05 3a 0d 08 16  0f dd 20 f2 69 6e 69 74  |....:..... .init|
00001590  5f 73 65 6c 0d 08 20 1f  69 6e 25 3d 8e 28 22 3c  |_sel.. .in%=.("<|
000015a0  42 69 6f 24 44 69 72 3e  2e 21 43 68 6f 69 63 65  |Bio$Dir>.!Choice|
000015b0  73 22 29 0d 08 2a 0e 72  75 6e 6e 69 6e 67 25 3d  |s")..*.running%=|
000015c0  30 0d 08 34 0e e7 20 69  6e 25 3c 3e 30 20 8c 0d  |0..4.. in%<>0 ..|
000015d0  08 3e 0f 20 c8 95 20 ac  20 c5 23 69 6e 25 0d 08  |.>. .. . .#in%..|
000015e0  48 22 20 20 70 72 6f 63  25 3d a4 66 69 6e 64 5f  |H"  proc%=.find_|
000015f0  70 72 6f 63 28 a4 6c 63  28 be 23 69 6e 25 29 29  |proc(.lc(.#in%))|
00001600  0d 08 52 47 20 20 e7 20  70 72 6f 63 25 3e 30 20  |..RG  . proc%>0 |
00001610  f2 73 74 61 72 74 5f 70  72 6f 63 28 70 72 6f 63  |.start_proc(proc|
00001620  25 29 3a 72 75 6e 6e 69  6e 67 25 2b 3d 31 3a 72  |%):running%+=1:r|
00001630  75 6e 6e 69 6e 67 25 28  72 75 6e 6e 69 6e 67 25  |unning%(running%|
00001640  29 3d 70 72 6f 63 25 0d  08 5c 06 20 ce 0d 08 66  |)=proc%..\. ...f|
00001650  0b 20 d9 20 23 69 6e 25  0d 08 70 05 cd 0d 08 7a  |. . #in%..p....z|
00001660  1f e7 20 72 75 6e 6e 69  6e 67 25 3d 30 20 f2 73  |.. running%=0 .s|
00001670  74 61 72 74 5f 70 72 6f  63 28 30 29 0d 08 84 05  |tart_proc(0)....|
00001680  e1 0d 08 8e 05 3a 0d 08  98 18 dd 20 f2 73 74 61  |.....:..... .sta|
00001690  72 74 5f 70 72 6f 63 28  70 72 6f 63 25 29 0d 08  |rt_proc(proc%)..|
000016a0  a2 0b 21 69 63 25 3d 2d  31 0d 08 ac 37 e7 20 a4  |..!ic%=-1...7. .|
000016b0  6d 76 28 35 29 3d 31 20  80 20 6c 69 62 5f 73 70  |mv(5)=1 . lib_sp|
000016c0  72 25 28 70 72 6f 63 25  2c 31 29 3c 3e 30 20 69  |r%(proc%,1)<>0 i|
000016d0  63 6f 6e 25 3d 31 20 8b  20 69 63 6f 6e 25 3d 30  |con%=1 . icon%=0|
000016e0  0d 08 b6 0b 69 63 25 21  34 3d 30 0d 08 c0 0b 69  |....ic%!4=0....i|
000016f0  63 25 21 38 3d 30 0d 08  ca 2f 69 63 25 21 31 32  |c%!8=0.../ic%!12|
00001700  3d a4 73 70 72 69 74 65  5f 77 69 64 74 68 28 6c  |=.sprite_width(l|
00001710  69 62 5f 73 70 72 25 28  70 72 6f 63 25 2c 69 63  |ib_spr%(proc%,ic|
00001720  6f 6e 25 29 29 0d 08 d4  30 69 63 25 21 31 36 3d  |on%))...0ic%!16=|
00001730  a4 73 70 72 69 74 65 5f  68 65 69 67 68 74 28 6c  |.sprite_height(l|
00001740  69 62 5f 73 70 72 25 28  70 72 6f 63 25 2c 69 63  |ib_spr%(proc%,ic|
00001750  6f 6e 25 29 29 0d 08 de  14 69 63 25 21 32 30 3d  |on%))....ic%!20=|
00001760  26 37 30 30 30 33 31 31  41 0d 08 e8 20 69 63 25  |&7000311A... ic%|
00001770  21 32 34 3d 6c 69 62 5f  73 70 72 25 28 70 72 6f  |!24=lib_spr%(pro|
00001780  63 25 2c 69 63 6f 6e 25  29 0d 08 f2 17 69 63 25  |c%,icon%)....ic%|
00001790  21 32 38 3d 6c 69 62 5f  73 70 72 69 74 65 73 25  |!28=lib_sprites%|
000017a0  0d 08 fc 0c 69 63 25 21  33 32 3d 30 0d 09 06 31  |....ic%!32=0...1|
000017b0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |.. "Wimp_CreateI|
000017c0  63 6f 6e 22 2c 2c 69 63  25 20 b8 20 70 72 6f 63  |con",,ic% . proc|
000017d0  5f 69 63 6f 6e 25 28 70  72 6f 63 25 29 0d 09 10  |_icon%(proc%)...|
000017e0  05 e1 0d 09 1a 05 3a 0d  09 24 1e dd 20 f2 73 65  |......:..$.. .se|
000017f0  6c 65 63 74 5f 70 72 6f  63 28 70 72 6f 63 25 2c  |lect_proc(proc%,|
00001800  62 75 74 25 29 0d 09 2e  1b e7 20 70 72 6f 63 5f  |but%)..... proc_|
00001810  69 63 6f 6e 25 28 70 72  6f 63 25 29 3e 30 20 8c  |icon%(proc%)>0 .|
00001820  0d 09 38 16 20 f2 6b 69  6c 6c 5f 70 72 6f 63 28  |..8. .kill_proc(|
00001830  70 72 6f 63 25 29 0d 09  42 05 cc 0d 09 4c 2d 20  |proc%)..B....L- |
00001840  e7 20 72 75 6e 6e 69 6e  67 25 3d 30 20 f2 64 65  |. running%=0 .de|
00001850  6c 65 74 65 5f 69 63 6f  6e 28 70 72 6f 63 5f 69  |lete_icon(proc_i|
00001860  63 6f 6e 25 28 30 29 29  0d 09 56 17 20 f2 73 74  |con%(0))..V. .st|
00001870  61 72 74 5f 70 72 6f 63  28 70 72 6f 63 25 29 0d  |art_proc(proc%).|
00001880  09 60 10 20 72 75 6e 6e  69 6e 67 25 2b 3d 31 0d  |.`. running%+=1.|
00001890  09 6a 1d 20 72 75 6e 6e  69 6e 67 25 28 72 75 6e  |.j. running%(run|
000018a0  6e 69 6e 67 25 29 3d 70  72 6f 63 25 0d 09 74 05  |ning%)=proc%..t.|
000018b0  cd 0d 09 7e 05 e1 0d 09  88 05 3a 0d 09 92 17 dd  |...~......:.....|
000018c0  20 f2 6b 69 6c 6c 5f 70  72 6f 63 28 70 72 6f 63  | .kill_proc(proc|
000018d0  25 29 0d 09 9c 23 f2 64  65 6c 65 74 65 5f 69 63  |%)...#.delete_ic|
000018e0  6f 6e 28 70 72 6f 63 5f  69 63 6f 6e 25 28 70 72  |on(proc_icon%(pr|
000018f0  6f 63 25 29 29 0d 09 a6  17 70 72 6f 63 5f 69 63  |oc%))....proc_ic|
00001900  6f 6e 25 28 70 72 6f 63  25 29 3d 30 0d 09 b0 3f  |on%(proc%)=0...?|
00001910  e7 20 63 75 72 5f 73 65  74 75 70 5f 68 61 6e 64  |. cur_setup_hand|
00001920  25 3d 77 69 6e 64 5f 68  61 6e 64 25 28 70 72 6f  |%=wind_hand%(pro|
00001930  63 25 29 20 f2 63 6c 6f  73 65 28 63 75 72 5f 73  |c%) .close(cur_s|
00001940  65 74 75 70 5f 68 61 6e  64 25 29 0d 09 ba 35 e7  |etup_hand%)...5.|
00001950  20 72 65 73 75 6c 74 5f  6f 70 65 6e 25 28 70 72  | result_open%(pr|
00001960  6f 63 25 29 20 f2 63 6c  6f 73 65 28 72 65 73 75  |oc%) .close(resu|
00001970  6c 74 5f 68 61 6e 64 25  28 70 72 6f 63 25 29 29  |lt_hand%(proc%))|
00001980  0d 09 c4 29 72 75 6e 5f  70 6f 73 25 3d a4 66 69  |...)run_pos%=.fi|
00001990  6e 64 5f 65 6c 65 6d 28  70 72 6f 63 25 2c 72 75  |nd_elem(proc%,ru|
000019a0  6e 6e 69 6e 67 25 28 29  29 0d 09 ce 18 72 75 6e  |nning%())....run|
000019b0  6e 69 6e 67 25 28 72 75  6e 5f 70 6f 73 25 29 3d  |ning%(run_pos%)=|
000019c0  30 0d 09 d8 18 c8 95 20  72 75 6e 5f 70 6f 73 25  |0...... run_pos%|
000019d0  3c 72 75 6e 6e 69 6e 67  25 0d 09 e2 2c 20 72 75  |<running%..., ru|
000019e0  6e 6e 69 6e 67 25 28 72  75 6e 5f 70 6f 73 25 29  |nning%(run_pos%)|
000019f0  3d 72 75 6e 6e 69 6e 67  25 28 72 75 6e 5f 70 6f  |=running%(run_po|
00001a00  73 25 2b 31 29 0d 09 ec  10 20 72 75 6e 5f 70 6f  |s%+1).... run_po|
00001a10  73 25 2b 3d 31 0d 09 f6  05 ce 0d 0a 00 0f 72 75  |s%+=1.........ru|
00001a20  6e 6e 69 6e 67 25 2d 3d  31 0d 0a 0a 1f e7 20 72  |nning%-=1..... r|
00001a30  75 6e 6e 69 6e 67 25 3d  30 20 f2 73 74 61 72 74  |unning%=0 .start|
00001a40  5f 70 72 6f 63 28 30 29  0d 0a 14 05 e1 0d 0a 1e  |_proc(0)........|
00001a50  05 3a 0d 0a 28 19 dd 20  f2 64 65 6c 65 74 65 5f  |.:..(.. .delete_|
00001a60  69 63 6f 6e 28 69 63 25  21 34 29 0d 0a 32 0b 21  |icon(ic%!4)..2.!|
00001a70  69 63 25 3d 2d 31 0d 0a  3c 1d c8 99 20 22 57 69  |ic%=-1..<... "Wi|
00001a80  6d 70 5f 44 65 6c 65 74  65 49 63 6f 6e 22 2c 2c  |mp_DeleteIcon",,|
00001a90  69 63 25 0d 0a 46 05 e1  0d 0a 50 05 3a 0d 0a 5a  |ic%..F....P.:..Z|
00001aa0  14 dd 20 a4 6c 65 61 66  5f 6e 61 6d 65 28 73 24  |.. .leaf_name(s$|
00001ab0  29 0d 0a 64 11 c8 95 20  a7 73 24 2c 22 2e 22 29  |)..d... .s$,".")|
00001ac0  3e 30 0d 0a 6e 17 20 73  24 3d c1 73 24 2c a7 73  |>0..n. s$=.s$,.s|
00001ad0  24 2c 22 2e 22 29 2b 31  29 0d 0a 78 05 ce 0d 0a  |$,".")+1)..x....|
00001ae0  82 07 3d 73 24 0d 0a 8c  05 3a 0d 0a 96 12 dd 20  |..=s$....:..... |
00001af0  a4 67 65 74 5f 73 74 72  28 61 25 29 0d 0a a0 08  |.get_str(a%)....|
00001b00  ea 20 61 24 0d 0a aa 0e  c8 95 20 3f 61 25 3e 3d  |. a$...... ?a%>=|
00001b10  33 32 0d 0a b4 0f 20 61  24 3d 61 24 2b bd 3f 61  |32.... a$=a$+.?a|
00001b20  25 0d 0a be 0a 20 61 25  2b 3d 31 0d 0a c8 05 ce  |%.... a%+=1.....|
00001b30  0d 0a d2 07 3d 61 24 0d  0a dc 05 3a 0d 0a e6 22  |....=a$....:..."|
00001b40  dd 20 a4 6d 61 6b 65 5f  6d 65 6e 28 24 74 65 6d  |. .make_men($tem|
00001b50  70 25 2c 6d 65 6e 75 74  69 74 6c 65 24 29 0d 0a  |p%,menutitle$)..|
00001b60  f0 24 3d a4 6d 61 6b 65  5f 6d 65 6e 5f 72 61 77  |.$=.make_men_raw|
00001b70  28 74 65 6d 70 25 2c 6d  65 6e 75 74 69 74 6c 65  |(temp%,menutitle|
00001b80  24 29 0d 0a fa 05 3a 0d  0b 04 23 dd 20 a4 6d 61  |$)....:...#. .ma|
00001b90  6b 65 5f 6d 65 6e 5f 72  61 77 28 6d 70 25 2c 6d  |ke_men_raw(mp%,m|
00001ba0  65 6e 75 74 69 74 6c 65  24 29 0d 0b 0e 1c ea 20  |enutitle$)..... |
00001bb0  6d 65 6e 75 6d 61 78 25  2c 77 61 73 70 74 72 25  |menumax%,wasptr%|
00001bc0  2c 69 74 65 6d 24 0d 0b  18 14 77 61 73 70 74 72  |,item$....wasptr|
00001bd0  25 3d 6d 65 6e 75 70 74  72 25 0d 0b 22 0e 6d 65  |%=menuptr%..".me|
00001be0  6e 75 6d 61 78 25 3d 30  0d 0b 2c 12 6d 65 6e 75  |numax%=0..,.menu|
00001bf0  70 74 72 25 21 32 30 3d  34 34 0d 0b 36 18 24 6d  |ptr%!20=44..6.$m|
00001c00  65 6e 75 70 74 72 25 3d  6d 65 6e 75 74 69 74 6c  |enuptr%=menutitl|
00001c10  65 24 0d 0b 40 16 6d 65  6e 75 70 74 72 25 21 31  |e$..@.menuptr%!1|
00001c20  32 3d 26 37 30 32 30 37  0d 0b 4a 18 6d 61 78 61  |2=&70207..J.maxa|
00001c30  64 64 72 25 3d 6d 65 6e  75 70 74 72 25 2b 31 36  |ddr%=menuptr%+16|
00001c40  0d 0b 54 11 6d 65 6e 75  70 74 72 25 21 32 34 3d  |..T.menuptr%!24=|
00001c50  30 0d 0b 5e 10 6d 65 6e  75 70 74 72 25 2b 3d 32  |0..^.menuptr%+=2|
00001c60  38 0d 0b 68 05 f5 0d 0b  72 0d 20 69 74 65 6d 24  |8..h....r. item$|
00001c70  3d 22 22 0d 0b 7c 10 20  c8 95 20 3f 6d 70 25 3c  |=""..|. .. ?mp%<|
00001c80  3e 34 34 0d 0b 86 12 20  20 69 74 65 6d 24 2b 3d  |>44....  item$+=|
00001c90  bd 3f 6d 70 25 0d 0b 90  0c 20 20 6d 70 25 2b 3d  |.?mp%....  mp%+=|
00001ca0  31 0d 0b 9a 06 20 ce 0d  0b a4 0b 20 6d 70 25 2b  |1.... ..... mp%+|
00001cb0  3d 31 0d 0b ae 2a 20 e7  20 a9 28 69 74 65 6d 24  |=1...* . .(item$|
00001cc0  29 3e 6d 65 6e 75 6d 61  78 25 20 6d 65 6e 75 6d  |)>menumax% menum|
00001cd0  61 78 25 3d a9 28 69 74  65 6d 24 29 0d 0b b8 11  |ax%=.(item$)....|
00001ce0  20 6d 65 6e 75 70 74 72  25 21 30 3d 30 0d 0b c2  | menuptr%!0=0...|
00001cf0  12 20 6d 65 6e 75 70 74  72 25 21 34 3d 2d 31 0d  |. menuptr%!4=-1.|
00001d00  0b cc 18 20 6d 65 6e 75  70 74 72 25 21 38 3d 26  |... menuptr%!8=&|
00001d10  37 30 30 30 30 32 31 0d  0b d6 14 20 e7 20 a9 28  |7000021.... . .(|
00001d20  69 74 65 6d 24 29 3c 31  32 20 8c 0d 0b e0 1a 20  |item$)<12 ..... |
00001d30  20 24 28 6d 65 6e 75 70  74 72 25 2b 31 32 29 3d  | $(menuptr%+12)=|
00001d40  69 74 65 6d 24 0d 0b ea  06 20 cc 0d 0b f4 1a 20  |item$.... ..... |
00001d50  20 6d 65 6e 75 64 61 74  25 2d 3d a9 28 69 74 65  | menudat%-=.(ite|
00001d60  6d 24 29 2b 31 0d 0b fe  15 20 20 24 6d 65 6e 75  |m$)+1....  $menu|
00001d70  64 61 74 25 3d 69 74 65  6d 24 0d 0c 08 1a 20 20  |dat%=item$....  |
00001d80  6d 65 6e 75 70 74 72 25  21 31 32 3d 6d 65 6e 75  |menuptr%!12=menu|
00001d90  64 61 74 25 0d 0c 12 14  20 20 6d 65 6e 75 70 74  |dat%....  menupt|
00001da0  72 25 21 31 36 3d 2d 31  0d 0c 1c 1a 20 20 6d 65  |r%!16=-1....  me|
00001db0  6e 75 70 74 72 25 21 32  30 3d a9 28 69 74 65 6d  |nuptr%!20=.(item|
00001dc0  24 29 0d 0c 26 16 20 20  6d 65 6e 75 70 74 72 25  |$)..&.  menuptr%|
00001dd0  21 38 2b 3d 26 31 30 30  0d 0c 30 06 20 cd 0d 0c  |!8+=&100..0. ...|
00001de0  3a 11 20 6d 65 6e 75 70  74 72 25 2b 3d 32 34 0d  |:. menuptr%+=24.|
00001df0  0c 44 0d fd 20 3f 6d 70  25 3c 33 32 0d 0c 4e 25  |.D.. ?mp%<32..N%|
00001e00  6d 65 6e 75 70 74 72 25  21 2d 32 34 3d 28 6d 65  |menuptr%!-24=(me|
00001e10  6e 75 70 74 72 25 21 2d  32 34 29 20 84 20 26 38  |nuptr%!-24) . &8|
00001e20  30 0d 0c 58 1c 21 6d 61  78 61 64 64 72 25 3d 6d  |0..X.!maxaddr%=m|
00001e30  65 6e 75 6d 61 78 25 2a  31 36 2b 33 32 0d 0c 62  |enumax%*16+32..b|
00001e40  0c 3d 77 61 73 70 74 72  25 0d 0c 6c 05 3a 0d 0c  |.=wasptr%..l.:..|
00001e50  76 22 dd 20 f2 61 74 74  61 63 68 5f 73 75 62 5f  |v". .attach_sub_|
00001e60  6d 65 6e 75 28 6d 31 25  2c 6d 32 25 2c 69 25 29  |menu(m1%,m2%,i%)|
00001e70  0d 0c 80 16 6d 32 25 21  28 33 32 2b 32 34 2a 69  |....m2%!(32+24*i|
00001e80  25 29 3d 6d 31 25 0d 0c  8a 05 e1 0d 0c 94 05 3a  |%)=m1%.........:|
00001e90  0d 0c 9e 1a dd 20 f2 6f  70 65 6e 5f 6d 65 6e 75  |..... .open_menu|
00001ea0  28 6d 25 2c 78 25 2c 79  25 29 0d 0c a8 08 ea 20  |(m%,x%,y%)..... |
00001eb0  69 25 0d 0c b2 17 e3 20  69 25 3d 31 20 b8 20 6c  |i%..... i%=1 . l|
00001ec0  69 62 5f 66 69 6c 65 73  25 0d 0c bc 2c 20 f2 74  |ib_files%..., .t|
00001ed0  69 63 6b 28 70 72 6f 63  5f 6d 65 6e 75 25 2c 69  |ick(proc_menu%,i|
00001ee0  25 2d 31 2c 70 72 6f 63  5f 69 63 6f 6e 25 28 69  |%-1,proc_icon%(i|
00001ef0  25 29 3e 30 29 0d 0c c6  05 ed 0d 0c d0 0d 6d 65  |%)>0).........me|
00001f00  6e 75 78 25 3d 78 25 0d  0c da 0d 6d 65 6e 75 79  |nux%=x%....menuy|
00001f10  25 3d 79 25 0d 0c e4 22  c8 99 20 22 57 69 6d 70  |%=y%...".. "Wimp|
00001f20  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 6d 25  |_CreateMenu",,m%|
00001f30  2c 78 25 2c 79 25 0d 0c  ee 05 e1 0d 0c f8 05 3a  |,x%,y%.........:|
00001f40  0d 0d 02 12 dd 20 f2 6d  65 6e 75 5f 73 65 6c 65  |..... .menu_sele|
00001f50  63 74 0d 0d 0c 23 c8 99  20 22 57 69 6d 70 5f 47  |ct...#.. "Wimp_G|
00001f60  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
00001f70  74 65 6d 70 25 0d 0d 16  1b 72 65 64 6f 25 3d 28  |temp%....redo%=(|
00001f80  28 74 65 6d 70 25 21 38  29 20 80 20 31 29 3e 30  |(temp%!8) . 1)>0|
00001f90  0d 0d 20 0c c8 8e 20 21  71 25 20 ca 0d 0d 2a 2f  |.. ... !q% ...*/|
00001fa0  20 c9 20 31 3a e7 20 71  25 21 34 3e 3d 30 20 f2  | . 1:. q%!4>=0 .|
00001fb0  73 65 6c 65 63 74 5f 70  72 6f 63 28 71 25 21 34  |select_proc(q%!4|
00001fc0  2b 31 2c 74 65 6d 70 25  21 38 29 0d 0d 34 15 20  |+1,temp%!8)..4. |
00001fd0  c9 20 32 3a f2 73 65 74  5f 64 65 66 61 75 6c 74  |. 2:.set_default|
00001fe0  0d 0d 3e 47 20 c9 20 33  3a 72 65 64 6f 25 3d a3  |..>G . 3:redo%=.|
00001ff0  3a e7 20 71 25 21 34 3e  3d 30 20 84 20 72 75 6e  |:. q%!4>=0 . run|
00002000  6e 69 6e 67 25 3d 30 20  64 6f 6e 65 25 3d b9 20  |ning%=0 done%=. |
00002010  8b 20 f2 6b 69 6c 6c 5f  70 72 6f 63 28 62 61 72  |. .kill_proc(bar|
00002020  5f 70 72 6f 63 25 29 0d  0d 48 05 cb 0d 0d 52 30  |_proc%)..H....R0|
00002030  e7 20 72 65 64 6f 25 20  f2 6f 70 65 6e 5f 6d 65  |. redo% .open_me|
00002040  6e 75 28 6d 61 69 6e 5f  6d 65 6e 75 25 2c 6d 65  |nu(main_menu%,me|
00002050  6e 75 78 25 2c 6d 65 6e  75 79 25 29 0d 0d 5c 05  |nux%,menuy%)..\.|
00002060  e1 0d 0d 66 05 3a 0d 0d  70 12 dd 20 f2 73 65 74  |...f.:..p.. .set|
00002070  5f 64 65 66 61 75 6c 74  0d 0d 7a 0a ea 20 6f 75  |_default..z.. ou|
00002080  74 25 0d 0d 84 20 6f 75  74 25 3d ae 28 22 3c 42  |t%... out%=.("<B|
00002090  69 6f 24 44 69 72 3e 2e  21 43 68 6f 69 63 65 73  |io$Dir>.!Choices|
000020a0  22 29 0d 0d 8e 12 e7 20  72 75 6e 6e 69 6e 67 25  |")..... running%|
000020b0  3e 30 20 8c 0d 0d 98 16  20 e3 20 69 25 3d 31 20  |>0 ..... . i%=1 |
000020c0  b8 20 72 75 6e 6e 69 6e  67 25 0d 0d a2 29 20 20  |. running%...)  |
000020d0  f2 62 70 75 74 28 6f 75  74 25 2c 6c 69 62 5f 70  |.bput(out%,lib_p|
000020e0  72 6f 63 24 28 72 75 6e  6e 69 6e 67 25 28 69 25  |roc$(running%(i%|
000020f0  29 29 29 0d 0d ac 06 20  ed 0d 0d b6 05 cd 0d 0d  |))).... ........|
00002100  c0 0b d9 20 23 6f 75 74  25 0d 0d ca 05 e1 0d 0d  |... #out%.......|
00002110  d4 05 3a 0d 0d de 15 dd  20 f2 74 69 63 6b 28 61  |..:..... .tick(a|
00002120  25 2c 69 25 2c 63 25 29  0d 0d e8 12 61 25 3d 61  |%,i%,c%)....a%=a|
00002130  25 2b 32 38 2b 32 34 2a  69 25 0d 0d f2 2c e7 20  |%+28+24*i%...,. |
00002140  63 25 20 8c 20 21 61 25  3d 21 61 25 20 84 20 31  |c% . !a%=!a% . 1|
00002150  20 8b 20 21 61 25 3d 21  61 25 20 80 20 26 46 46  | . !a%=!a% . &FF|
00002160  46 46 46 46 46 45 0d 0d  fc 05 e1 0d 0e 06 05 3a  |FFFFFE.........:|
00002170  0d 0e 10 0f dd 20 f2 77  61 72 6e 28 77 24 29 0d  |..... .warn(w$).|
00002180  0e 1a 0d 21 74 65 6d 70  25 3d 31 37 0d 0e 24 11  |...!temp%=17..$.|
00002190  24 28 74 65 6d 70 25 2b  34 29 3d 77 24 0d 0e 2e  |$(temp%+4)=w$...|
000021a0  27 c8 99 20 22 57 69 6d  70 5f 52 65 70 6f 72 74  |'.. "Wimp_Report|
000021b0  45 72 72 6f 72 22 2c 74  65 6d 70 25 2c 31 2c 22  |Error",temp%,1,"|
000021c0  42 69 6f 22 0d 0e 38 05  e1 0d 0e 42 05 3a 0d 0e  |Bio"..8....B.:..|
000021d0  4c 2e dd 20 f2 6d 6f 75  73 65 28 6d 6f 75 73 65  |L.. .mouse(mouse|
000021e0  78 25 2c 6d 6f 75 73 65  79 25 2c 62 25 2c 68 61  |x%,mousey%,b%,ha|
000021f0  6e 64 6c 65 25 2c 69 63  6f 6e 25 29 0d 0e 56 12  |ndle%,icon%)..V.|
00002200  ea 20 73 68 61 6e 64 25  2c 70 72 6f 63 25 0d 0e  |. shand%,proc%..|
00002210  60 2c 62 61 72 5f 70 72  6f 63 25 3d a4 66 69 6e  |`,bar_proc%=.fin|
00002220  64 5f 65 6c 65 6d 28 69  63 6f 6e 25 2c 70 72 6f  |d_elem(icon%,pro|
00002230  63 5f 69 63 6f 6e 25 28  29 29 0d 0e 6a 12 e7 20  |c_icon%())..j.. |
00002240  28 62 25 20 80 20 35 29  3e 30 20 8c 0d 0e 74 11  |(b% . 5)>0 ...t.|
00002250  20 c8 8e 20 68 61 6e 64  6c 65 25 20 ca 0d 0e 7e  | .. handle% ...~|
00002260  13 20 20 c9 20 73 61 76  65 5f 68 61 6e 64 25 3a  |.  . save_hand%:|
00002270  0d 0e 88 11 20 20 20 c8  8e 20 69 63 6f 6e 25 20  |....   .. icon% |
00002280  ca 0d 0e 92 3a 20 20 20  20 c9 20 30 3a e7 20 a4  |....:    . 0:. .|
00002290  73 61 76 65 28 a4 67 65  74 5f 73 74 72 28 73 61  |save(.get_str(sa|
000022a0  76 65 74 65 78 74 29 29  20 f2 63 6c 6f 73 65 28  |vetext)) .close(|
000022b0  73 61 76 65 5f 68 61 6e  64 25 29 0d 0e 9c 27 20  |save_hand%)...' |
000022c0  20 20 20 c9 20 31 3a f2  69 6e 69 74 5f 73 61 76  |   . 1:.init_sav|
000022d0  65 5f 64 72 61 67 28 73  61 76 65 5f 68 61 6e 64  |e_drag(save_hand|
000022e0  25 29 0d 0e a6 08 20 20  20 cb 0d 0e b0 0b 20 20  |%)....   .....  |
000022f0  c9 20 2d 32 3a 0d 0e ba  23 20 20 20 73 68 61 6e  |. -2:...#   shan|
00002300  64 25 3d 77 69 6e 64 5f  68 61 6e 64 25 28 62 61  |d%=wind_hand%(ba|
00002310  72 5f 70 72 6f 63 25 29  0d 0e c4 13 20 20 20 e7  |r_proc%)....   .|
00002320  20 73 68 61 6e 64 25 3e  30 20 8c 0d 0e ce 35 20  | shand%>0 ....5 |
00002330  20 20 20 e7 20 63 75 72  5f 73 65 74 75 70 5f 68  |   . cur_setup_h|
00002340  61 6e 64 25 3c 3e 2d 31  20 f2 63 6c 6f 73 65 28  |and%<>-1 .close(|
00002350  63 75 72 5f 73 65 74 75  70 5f 68 61 6e 64 25 29  |cur_setup_hand%)|
00002360  0d 0e d8 1e 20 20 20 20  63 75 72 5f 73 65 74 75  |....    cur_setu|
00002370  70 5f 68 61 6e 64 25 3d  73 68 61 6e 64 25 0d 0e  |p_hand%=shand%..|
00002380  e2 12 20 20 20 20 21 71  25 3d 73 68 61 6e 64 25  |..    !q%=shand%|
00002390  0d 0e ec 24 20 20 20 20  c8 99 20 22 57 69 6d 70  |...$    .. "Wimp|
000023a0  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
000023b0  2c 2c 71 25 0d 0e f6 10  20 20 20 20 71 25 21 32  |,,q%....    q%!2|
000023c0  38 3d 2d 31 0d 0f 00 20  20 20 20 20 c8 99 20 22  |8=-1...     .. "|
000023d0  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
000023e0  2c 2c 71 25 0d 0f 0a 08  20 20 20 cd 0d 0f 14 08  |,,q%....   .....|
000023f0  20 20 7f 3a 0d 0f 1e 2d  20 20 20 70 72 6f 63 25  |  .:...-   proc%|
00002400  3d a4 66 69 6e 64 5f 65  6c 65 6d 28 68 61 6e 64  |=.find_elem(hand|
00002410  6c 65 25 2c 77 69 6e 64  5f 68 61 6e 64 25 28 29  |le%,wind_hand%()|
00002420  29 0d 0f 28 12 20 20 20  e7 20 70 72 6f 63 25 3e  |)..(.   . proc%>|
00002430  30 20 8c 0d 0f 32 66 20  20 20 20 65 3d a0 28 22  |0 ...2f    e=.("|
00002440  46 4e 22 2b 6c 69 62 5f  70 72 6f 63 24 28 70 72  |FN"+lib_proc$(pr|
00002450  6f 63 25 29 2b 22 5f 6d  6f 75 73 65 28 22 2b c3  |oc%)+"_mouse("+.|
00002460  6d 6f 75 73 65 78 25 2b  22 2c 22 2b c3 6d 6f 75  |mousex%+","+.mou|
00002470  73 65 79 25 2b 22 2c 22  2b c3 62 25 2b 22 2c 22  |sey%+","+.b%+","|
00002480  2b c3 68 61 6e 64 6c 65  25 2b 22 2c 22 2b c3 69  |+.handle%+","+.i|
00002490  63 6f 6e 25 2b 22 29 22  29 0d 0f 3c 1e 20 20 20  |con%+")")..<.   |
000024a0  20 e7 20 65 20 f2 70 72  6f 63 65 73 73 28 70 72  | . e .process(pr|
000024b0  6f 63 25 2c 22 22 29 0d  0f 46 08 20 20 20 cd 0d  |oc%,"")..F.   ..|
000024c0  0f 50 06 20 cb 0d 0f 5a  05 cc 0d 0f 64 20 20 e7  |.P. ...Z....d  .|
000024d0  20 28 62 25 20 80 20 32  29 3e 30 20 80 20 68 61  | (b% . 2)>0 . ha|
000024e0  6e 64 6c 65 25 3d 2d 32  20 8c 0d 0f 6e 56 20 20  |ndle%=-2 ...nV  |
000024f0  e7 20 62 61 72 5f 70 72  6f 63 25 3d 30 20 f2 6c  |. bar_proc%=0 .l|
00002500  61 62 65 6c 5f 6d 61 69  6e 28 22 42 69 6f 22 29  |abel_main("Bio")|
00002510  20 8b 20 f2 6c 61 62 65  6c 5f 6d 61 69 6e 28 a4  | . .label_main(.|
00002520  6c 65 61 66 5f 6e 61 6d  65 28 6c 69 62 5f 66 69  |leaf_name(lib_fi|
00002530  6c 65 24 28 62 61 72 5f  70 72 6f 63 25 29 29 29  |le$(bar_proc%)))|
00002540  0d 0f 78 2b 20 20 f2 6f  70 65 6e 5f 6d 65 6e 75  |..x+  .open_menu|
00002550  28 6d 61 69 6e 5f 6d 65  6e 75 25 2c 6d 6f 75 73  |(main_menu%,mous|
00002560  65 78 25 2d 36 34 2c 32  37 32 29 0d 0f 82 06 20  |ex%-64,272).... |
00002570  cd 0d 0f 8c 47 20 e7 20  28 62 25 20 80 20 32 29  |....G . (b% . 2)|
00002580  3e 30 20 80 20 68 61 6e  64 6c 65 25 3c 3e 2d 32  |>0 . handle%<>-2|
00002590  20 f2 6f 70 65 6e 5f 73  70 72 5f 73 61 76 65 28  | .open_spr_save(|
000025a0  6d 6f 75 73 65 78 25 2c  6d 6f 75 73 65 79 25 2c  |mousex%,mousey%,|
000025b0  68 61 6e 64 6c 65 25 29  0d 0f 96 05 cd 0d 0f a0  |handle%)........|
000025c0  05 e1 0d 0f aa 05 3a 0d  0f b4 19 dd 20 f2 6c 61  |......:..... .la|
000025d0  62 65 6c 5f 6d 61 69 6e  28 74 69 74 6c 65 24 29  |bel_main(title$)|
000025e0  0d 0f be 14 e3 20 69 25  3d 30 20 b8 20 a9 74 69  |..... i%=0 . .ti|
000025f0  74 6c 65 24 0d 0f c8 26  20 6d 61 69 6e 5f 6d 65  |tle$...& main_me|
00002600  6e 75 25 3f 69 25 3d 97  c1 74 69 74 6c 65 24 2b  |nu%?i%=..title$+|
00002610  bd 30 2c 69 25 2b 31 2c  31 29 0d 0f d2 05 ed 0d  |.0,i%+1,1)......|
00002620  0f dc 05 e1 0d 0f e6 05  3a 0d 0f f0 17 dd 20 a4  |........:..... .|
00002630  66 69 6c 65 5f 74 79 70  65 28 6e 61 6d 65 24 29  |file_type(name$)|
00002640  0d 0f fa 0e ea 20 74 79  70 65 25 2c 6f 6b 0d 10  |..... type%,ok..|
00002650  04 15 e7 20 6e 61 6d 65  24 3d 22 2a 22 20 8c 20  |... name$="*" . |
00002660  3d 2d 31 0d 10 0e 2c c8  99 20 22 58 4f 53 5f 46  |=-1...,.. "XOS_F|
00002670  53 43 6f 6e 74 72 6f 6c  22 2c 33 31 2c 6e 61 6d  |SControl",31,nam|
00002680  65 24 20 b8 20 2c 2c 74  79 70 65 25 3b 6f 6b 0d  |e$ . ,,type%;ok.|
00002690  10 18 37 e7 20 28 6f 6b  20 80 20 31 29 3e 30 20  |..7. (ok . 1)>0 |
000026a0  f2 77 61 72 6e 28 22 55  6e 6b 6e 6f 77 6e 20 66  |.warn("Unknown f|
000026b0  69 6c 65 20 74 79 70 65  20 27 22 2b 6e 61 6d 65  |ile type '"+name|
000026c0  24 2b 22 27 22 29 0d 10  22 0a 3d 74 79 70 65 25  |$+"'")..".=type%|
000026d0  0d 10 2c 05 3a 0d 10 36  0e dd 20 f2 6d 65 73 73  |..,.:..6.. .mess|
000026e0  61 67 65 0d 10 40 0b ea  20 70 72 6f 63 25 0d 10  |age..@.. proc%..|
000026f0  4a 18 f2 63 6f 70 79 28  71 25 2c 6d 65 73 73 25  |J..copy(q%,mess%|
00002700  2c 26 31 30 30 29 0d 10  54 11 c8 8e 20 6d 65 73  |,&100)..T... mes|
00002710  73 25 21 31 36 20 ca 0d  10 5e 10 20 c9 20 30 3a  |s%!16 ...^. . 0:|
00002720  64 6f 6e 65 25 3d b9 0d  10 68 09 20 c9 20 31 3a  |done%=...h. . 1:|
00002730  0d 10 72 1b 20 20 63 75  72 5f 70 72 6f 63 25 3d  |..r.  cur_proc%=|
00002740  a4 77 68 69 63 68 5f 70  72 6f 63 0d 10 7c 29 20  |.which_proc..|) |
00002750  20 e7 20 a4 61 6c 6c 6f  77 5f 74 79 70 65 28 6d  | . .allow_type(m|
00002760  65 73 73 25 21 34 30 2c  63 75 72 5f 70 72 6f 63  |ess%!40,cur_proc|
00002770  25 29 20 8c 0d 10 86 12  20 20 20 6d 65 73 73 25  |%) .....   mess%|
00002780  21 33 36 3d 2d 31 0d 10  90 24 20 20 20 24 28 6d  |!36=-1...$   $(m|
00002790  65 73 73 25 2b 34 34 29  3d 22 3c 57 69 6d 70 24  |ess%+44)="<Wimp$|
000027a0  53 63 72 61 70 3e 22 2b  bd 30 0d 10 9a 17 20 20  |Scrap>"+.0....  |
000027b0  20 6d 65 73 73 25 21 31  32 3d 6d 65 73 73 25 21  | mess%!12=mess%!|
000027c0  38 0d 10 a4 11 20 20 20  6d 65 73 73 25 21 31 36  |8....   mess%!16|
000027d0  3d 32 0d 10 ae 10 20 20  20 21 6d 65 73 73 25 3d  |=2....   !mess%=|
000027e0  36 30 0d 10 b8 2d 20 20  20 c8 99 20 22 57 69 6d  |60...-   .. "Wim|
000027f0  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00002800  37 2c 6d 65 73 73 25 2c  6d 65 73 73 25 21 34 0d  |7,mess%,mess%!4.|
00002810  10 c2 07 20 20 cc 0d 10  cc 15 20 20 20 f2 62 61  |...  .....   .ba|
00002820  64 5f 66 69 6c 65 5f 74  79 70 65 0d 10 d6 07 20  |d_file_type.... |
00002830  20 cd 0d 10 e0 09 20 c9  20 32 3a 0d 10 ea 23 20  | ..... . 2:...# |
00002840  20 e7 20 a4 73 61 76 65  28 a4 67 65 74 5f 73 74  | . .save(.get_st|
00002850  72 28 6d 65 73 73 25 2b  34 34 29 29 20 8c 0d 10  |r(mess%+44)) ...|
00002860  f4 17 20 20 20 6d 65 73  73 25 21 31 32 3d 6d 65  |..   mess%!12=me|
00002870  73 73 25 21 38 0d 10 fe  11 20 20 20 6d 65 73 73  |ss%!8....   mess|
00002880  25 21 31 36 3d 33 0d 11  08 2d 20 20 20 c8 99 20  |%!16=3...-   .. |
00002890  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
000028a0  65 22 2c 31 37 2c 6d 65  73 73 25 2c 6d 65 73 73  |e",17,mess%,mess|
000028b0  25 21 34 0d 11 12 19 20  20 20 f2 63 6c 6f 73 65  |%!4....   .close|
000028c0  28 73 61 76 65 5f 68 61  6e 64 25 29 0d 11 1c 07  |(save_hand%)....|
000028d0  20 20 cd 0d 11 26 09 20  c9 20 33 3a 0d 11 30 17  |  ...&. . 3:..0.|
000028e0  20 20 70 72 6f 63 25 3d  a4 77 68 69 63 68 5f 70  |  proc%=.which_p|
000028f0  72 6f 63 0d 11 3a 25 20  20 e7 20 a4 61 6c 6c 6f  |roc..:%  . .allo|
00002900  77 5f 74 79 70 65 28 6d  65 73 73 25 21 34 30 2c  |w_type(mess%!40,|
00002910  70 72 6f 63 25 29 20 8c  0d 11 44 29 20 20 20 f2  |proc%) ...D)   .|
00002920  70 72 6f 63 65 73 73 28  70 72 6f 63 25 2c a4 67  |process(proc%,.g|
00002930  65 74 5f 73 74 72 28 6d  65 73 73 25 2b 34 34 29  |et_str(mess%+44)|
00002940  29 0d 11 4e 17 20 20 20  6d 65 73 73 25 21 31 32  |)..N.   mess%!12|
00002950  3d 6d 65 73 73 25 21 38  0d 11 58 11 20 20 20 6d  |=mess%!8..X.   m|
00002960  65 73 73 25 21 31 36 3d  34 0d 11 62 2d 20 20 20  |ess%!16=4..b-   |
00002970  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
00002980  73 61 67 65 22 2c 31 37  2c 6d 65 73 73 25 2c 6d  |sage",17,mess%,m|
00002990  65 73 73 25 21 34 0d 11  6c 07 20 20 cc 0d 11 76  |ess%!4..l.  ...v|
000029a0  15 20 20 20 f2 62 61 64  5f 66 69 6c 65 5f 74 79  |.   .bad_file_ty|
000029b0  70 65 0d 11 80 07 20 20  cd 0d 11 8a 15 20 c9 20  |pe....  ..... . |
000029c0  26 35 30 32 3a f2 69 6e  74 5f 68 65 6c 70 0d 11  |&502:.int_help..|
000029d0  94 18 20 c9 20 39 3a f2  70 61 6c 65 74 74 65 5f  |.. . 9:.palette_|
000029e0  63 68 61 6e 67 65 0d 11  9e 05 cb 0d 11 a8 05 e1  |change..........|
000029f0  0d 11 b2 05 3a 0d 11 bc  14 dd 20 f2 62 61 64 5f  |....:..... .bad_|
00002a00  66 69 6c 65 5f 74 79 70  65 0d 11 c6 1e f2 77 61  |file_type.....wa|
00002a10  72 6e 28 22 49 6e 76 61  6c 69 64 20 66 69 6c 65  |rn("Invalid file|
00002a20  20 74 79 70 65 22 29 0d  11 d0 05 e1 0d 11 da 05  | type").........|
00002a30  3a 0d 11 e4 11 dd 20 a4  77 68 69 63 68 5f 70 72  |:..... .which_pr|
00002a40  6f 63 0d 11 ee 21 c8 99  20 22 57 69 6d 70 5f 47  |oc...!.. "Wimp_G|
00002a50  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
00002a60  69 63 25 0d 11 f8 32 e7  20 69 63 25 21 31 32 3d  |ic%...2. ic%!12=|
00002a70  2d 32 20 8c 20 3d a4 66  69 6e 64 5f 65 6c 65 6d  |-2 . =.find_elem|
00002a80  28 69 63 25 21 31 36 2c  70 72 6f 63 5f 69 63 6f  |(ic%!16,proc_ico|
00002a90  6e 25 28 29 29 0d 12 02  48 3d a4 66 69 6e 64 5f  |n%())...H=.find_|
00002aa0  65 6c 65 6d 28 69 63 25  21 31 32 2c 77 69 6e 64  |elem(ic%!12,wind|
00002ab0  5f 68 61 6e 64 25 28 29  29 20 84 20 a4 66 69 6e  |_hand%()) . .fin|
00002ac0  64 5f 65 6c 65 6d 28 69  63 25 21 31 32 2c 72 65  |d_elem(ic%!12,re|
00002ad0  73 75 6c 74 5f 68 61 6e  64 25 28 29 29 0d 12 0c  |sult_hand%())...|
00002ae0  05 3a 0d 12 16 1f dd 20  a4 61 6c 6c 6f 77 5f 74  |.:..... .allow_t|
00002af0  79 70 65 28 67 69 76 65  6e 25 2c 70 72 6f 63 25  |ype(given%,proc%|
00002b00  29 0d 12 20 41 e7 20 28  67 69 76 65 6e 25 3d 26  |).. A. (given%=&|
00002b10  31 30 30 30 20 84 20 67  69 76 65 6e 25 3d 26 32  |1000 . given%=&2|
00002b20  30 30 30 29 20 8c 20 3d  28 6c 69 62 5f 66 6c 61  |000) . =(lib_fla|
00002b30  67 73 25 28 70 72 6f 63  25 29 20 80 20 32 29 3c  |gs%(proc%) . 2)<|
00002b40  3e 30 0d 12 2a 50 e7 20  28 6c 69 62 5f 66 6c 61  |>0..*P. (lib_fla|
00002b50  67 73 25 28 70 72 6f 63  25 29 20 80 20 31 29 20  |gs%(proc%) . 1) |
00002b60  80 20 28 6c 69 62 5f 69  6e 25 28 70 72 6f 63 25  |. (lib_in%(proc%|
00002b70  29 3d 2d 31 20 84 20 6c  69 62 5f 69 6e 25 28 70  |)=-1 . lib_in%(p|
00002b80  72 6f 63 25 29 3d 67 69  76 65 6e 25 29 20 8c 20  |roc%)=given%) . |
00002b90  3d b9 0d 12 34 06 3d a3  0d 12 3e 05 3a 0d 12 48  |=...4.=...>.:..H|
00002ba0  1d dd 20 f2 63 6f 70 79  28 66 72 6f 6d 25 2c 74  |.. .copy(from%,t|
00002bb0  6f 25 2c 62 79 74 65 73  25 29 0d 12 52 08 ea 20  |o%,bytes%)..R.. |
00002bc0  69 25 0d 12 5c 19 e3 20  69 25 3d 30 20 b8 20 62  |i%..\.. i%=0 . b|
00002bd0  79 74 65 73 25 2d 31 20  88 20 34 0d 12 66 14 20  |ytes%-1 . 4..f. |
00002be0  74 6f 25 21 69 25 3d 66  72 6f 6d 25 21 69 25 0d  |to%!i%=from%!i%.|
00002bf0  12 70 05 ed 0d 12 7a 05  e1 0d 12 84 05 3a 0d 12  |.p....z......:..|
00002c00  8e 1b dd 20 f2 70 72 6f  63 65 73 73 28 70 72 6f  |... .process(pro|
00002c10  63 25 2c 66 69 6c 65 24  29 0d 12 98 13 ea 20 65  |c%,file$)..... e|
00002c20  24 2c 7a 2c 78 2c 79 2c  62 2c 69 25 0d 12 a2 13  |$,z,x,y,b,i%....|
00002c30  63 75 72 5f 70 72 6f 63  25 3d 70 72 6f 63 25 0d  |cur_proc%=proc%.|
00002c40  12 ac 36 f4 49 46 20 63  75 72 5f 73 65 74 75 70  |..6.IF cur_setup|
00002c50  5f 68 61 6e 64 25 3c 3e  2d 31 20 50 52 4f 43 63  |_hand%<>-1 PROCc|
00002c60  6c 6f 73 65 28 63 75 72  5f 73 65 74 75 70 5f 68  |lose(cur_setup_h|
00002c70  61 6e 64 25 29 0d 12 b6  35 e7 20 72 65 73 75 6c  |and%)...5. resul|
00002c80  74 5f 6f 70 65 6e 25 28  70 72 6f 63 25 29 20 f2  |t_open%(proc%) .|
00002c90  63 6c 6f 73 65 28 72 65  73 75 6c 74 5f 68 61 6e  |close(result_han|
00002ca0  64 25 28 70 72 6f 63 25  29 29 0d 12 c0 27 e7 20  |d%(proc%))...'. |
00002cb0  73 61 76 65 5f 70 72 6f  63 25 3c 3e 2d 31 20 f2  |save_proc%<>-1 .|
00002cc0  63 6c 6f 73 65 28 73 61  76 65 5f 68 61 6e 64 25  |close(save_hand%|
00002cd0  29 0d 12 ca 0c c8 97 20  78 2c 79 2c 62 0d 12 d4  |)...... x,y,b...|
00002ce0  2d 65 24 3d 22 46 4e 22  2b 6c 69 62 5f 70 72 6f  |-e$="FN"+lib_pro|
00002cf0  63 24 28 70 72 6f 63 25  29 2b 22 28 22 22 22 2b  |c$(proc%)+"("""+|
00002d00  66 69 6c 65 24 2b 22 22  22 22 0d 12 de 29 6d 61  |file$+""""...)ma|
00002d10  6b 65 73 5f 66 69 6c 65  25 3d 28 6c 69 62 5f 66  |kes_file%=(lib_f|
00002d20  6c 61 67 73 25 28 70 72  6f 63 25 29 20 80 20 34  |lags%(proc%) . 4|
00002d30  29 3e 30 0d 12 e8 2c 6d  61 6b 65 73 5f 72 65 73  |)>0...,makes_res|
00002d40  75 6c 74 73 25 3d 28 6c  69 62 5f 66 6c 61 67 73  |ults%=(lib_flags|
00002d50  25 28 70 72 6f 63 25 29  20 80 20 38 29 3e 30 0d  |%(proc%) . 8)>0.|
00002d60  12 f2 2c 6d 61 6b 65 73  5f 77 69 6e 64 6f 77 25  |..,makes_window%|
00002d70  3d 28 6c 69 62 5f 66 6c  61 67 73 25 28 70 72 6f  |=(lib_flags%(pro|
00002d80  63 25 29 20 80 20 33 32  29 3e 30 0d 12 fc 28 73  |c%) . 32)>0...(s|
00002d90  65 6e 64 5f 6f 75 74 25  3d 28 6c 69 62 5f 66 6c  |end_out%=(lib_fl|
00002da0  61 67 73 25 28 70 72 6f  63 25 29 20 80 20 31 36  |ags%(proc%) . 16|
00002db0  29 3e 30 0d 13 06 0a c8  8e 20 b9 20 ca 0d 13 10  |)>0...... . ....|
00002dc0  13 20 c9 20 6d 61 6b 65  73 5f 66 69 6c 65 25 3a  |. . makes_file%:|
00002dd0  0d 13 1a 1a 20 20 65 24  2b 3d 22 2c 22 22 22 2b  |....  e$+=","""+|
00002de0  6a 75 6e 6b 24 2b 22 22  22 22 0d 13 24 16 20 c9  |junk$+""""..$. .|
00002df0  20 6d 61 6b 65 73 5f 72  65 73 75 6c 74 73 25 3a  | makes_results%:|
00002e00  0d 13 2e 1e 20 20 e3 20  69 25 3d 30 20 b8 20 6c  |....  . i%=0 . l|
00002e10  69 62 5f 6f 75 74 25 28  70 72 6f 63 25 29 0d 13  |ib_out%(proc%)..|
00002e20  38 24 20 20 20 65 24 2b  3d 22 2c 72 24 28 22 2b  |8$   e$+=",r$("+|
00002e30  c3 70 72 6f 63 25 2b 22  2c 22 2b c3 69 25 2b 22  |.proc%+","+.i%+"|
00002e40  29 22 0d 13 42 07 20 20  ed 0d 13 4c 05 cb 0d 13  |)"..B.  ...L....|
00002e50  56 0b 65 24 2b 3d 22 29  22 0d 13 60 15 c8 99 20  |V.e$+=")"..`... |
00002e60  22 48 6f 75 72 67 6c 61  73 73 5f 4f 6e 22 0d 13  |"Hourglass_On"..|
00002e70  6a 20 77 69 6e 64 5f 68  61 6e 64 25 3d 77 69 6e  |j wind_hand%=win|
00002e80  64 5f 68 61 6e 64 25 28  70 72 6f 63 25 29 0d 13  |d_hand%(proc%)..|
00002e90  74 0e 63 6c 61 69 6d 65  64 25 3d a3 0d 13 7e 0b  |t.claimed%=...~.|
00002ea0  7a 3d a0 28 65 24 29 0d  13 88 1e e7 20 63 6c 61  |z=.(e$)..... cla|
00002eb0  69 6d 65 64 25 20 f2 72  65 6c 65 61 73 65 5f 6d  |imed% .release_m|
00002ec0  65 6d 6f 72 79 0d 13 92  15 e7 20 6d 61 6b 65 73  |emory..... makes|
00002ed0  5f 77 69 6e 64 6f 77 25  20 8c 0d 13 9c 40 20 e7  |_window% ....@ .|
00002ee0  20 73 70 72 5f 62 61 73  65 25 3c 3e 30 20 8c 20  | spr_base%<>0 . |
00002ef0  c8 99 20 22 58 4f 53 5f  53 70 72 69 74 65 4f 70  |.. "XOS_SpriteOp|
00002f00  22 2c 26 31 33 43 2c 73  70 72 5f 62 61 73 65 25  |",&13C,spr_base%|
00002f10  2c 30 2c 31 20 8b 20 7a  3d b9 0d 13 a6 05 cd 0d  |,0,1 . z=.......|
00002f20  13 b0 16 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |..... "Hourglass|
00002f30  5f 4f 66 66 22 0d 13 ba  0b e7 20 7a 3d 30 20 8c  |_Off"..... z=0 .|
00002f40  0d 13 c4 0b 20 c8 8e 20  b9 20 ca 0d 13 ce 17 20  |.... .. . ..... |
00002f50  20 c9 20 6d 61 6b 65 73  5f 72 65 73 75 6c 74 73  | . makes_results|
00002f60  25 3a 0d 13 d8 43 20 20  20 e7 20 72 24 28 70 72  |%:...C   . r$(pr|
00002f70  6f 63 25 2c 30 29 3d 22  22 20 84 20 c0 72 24 28  |oc%,0)="" . .r$(|
00002f80  70 72 6f 63 25 2c 30 29  2c 31 29 3d 22 3c 22 20  |proc%,0),1)="<" |
00002f90  72 24 28 70 72 6f 63 25  2c 30 29 3d 22 52 65 73  |r$(proc%,0)="Res|
00002fa0  75 6c 74 73 22 0d 13 e2  1a 20 20 20 f2 6f 70 65  |ults"....   .ope|
00002fb0  6e 5f 72 65 73 75 6c 74  28 70 72 6f 63 25 29 0d  |n_result(proc%).|
00002fc0  13 ec 14 20 20 c9 20 6d  61 6b 65 73 5f 66 69 6c  |...  . makes_fil|
00002fd0  65 25 3a 0d 13 f6 2c 20  20 20 c8 99 20 22 4f 53  |e%:...,   .. "OS|
00002fe0  5f 46 69 6c 65 22 2c 31  38 2c 6a 75 6e 6b 24 2c  |_File",18,junk$,|
00002ff0  6c 69 62 5f 6f 75 74 25  28 70 72 6f 63 25 29 0d  |lib_out%(proc%).|
00003000  14 00 14 20 20 20 e7 20  73 65 6e 64 5f 6f 75 74  |...   . send_out|
00003010  25 20 8c 0d 14 0a 19 20  20 20 20 24 71 25 3d c4  |% .....    $q%=.|
00003020  34 34 2c bd 30 29 2b 6a  75 6e 6b 24 0d 14 14 0f  |44,.0)+junk$....|
00003030  20 20 20 20 71 25 21 31  36 3d 35 0d 14 1e 1d 20  |    q%!16=5.... |
00003040  20 20 20 71 25 21 34 30  3d 6c 69 62 5f 6f 75 74  |   q%!40=lib_out|
00003050  25 28 70 72 6f 63 25 29  0d 14 28 23 20 20 20 20  |%(proc%)..(#    |
00003060  21 71 25 3d 28 28 a9 28  6a 75 6e 6b 24 29 2b 34  |!q%=((.(junk$)+4|
00003070  29 20 80 20 ac 20 33 29  2b 34 34 0d 14 32 25 20  |) . . 3)+44..2% |
00003080  20 20 20 c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |   .. "Wimp_Send|
00003090  4d 65 73 73 61 67 65 22  2c 31 38 2c 71 25 2c 30  |Message",18,q%,0|
000030a0  0d 14 3c 08 20 20 20 cc  0d 14 46 1e 20 20 20 20  |..<.   ...F.    |
000030b0  77 69 6e 64 6f 77 5f 74  69 74 6c 65 24 3d 22 52  |window_title$="R|
000030c0  65 73 75 6c 74 22 0d 14  50 33 20 20 20 20 f2 6f  |esult"..P3    .o|
000030d0  70 65 6e 5f 73 61 76 65  28 78 2d 36 34 2c 79 2d  |pen_save(x-64,y-|
000030e0  36 34 2c 6c 69 62 5f 6f  75 74 25 28 70 72 6f 63  |64,lib_out%(proc|
000030f0  25 29 2c 70 72 6f 63 25  29 0d 14 5a 08 20 20 20  |%),proc%)..Z.   |
00003100  cd 0d 14 64 33 20 20 c9  20 6d 61 6b 65 73 5f 77  |...d3  . makes_w|
00003110  69 6e 64 6f 77 25 3a f2  6f 70 65 6e 5f 6f 75 74  |indow%:.open_out|
00003120  70 75 74 28 70 72 6f 63  25 2c 73 70 72 5f 62 61  |put(proc%,spr_ba|
00003130  73 65 25 29 0d 14 6e 06  20 cb 0d 14 78 05 cd 0d  |se%)..n. ...x...|
00003140  14 82 05 e1 0d 14 8c 05  3a 0d 14 96 12 dd 20 f2  |........:..... .|
00003150  70 6f 70 5f 75 70 5f 73  61 76 65 0d 14 a0 0b ea  |pop_up_save.....|
00003160  20 78 2c 79 2c 62 0d 14  aa 0c c8 97 20 78 2c 79  | x,y,b...... x,y|
00003170  2c 62 0d 14 b4 1a 77 69  6e 64 6f 77 5f 74 69 74  |,b....window_tit|
00003180  6c 65 24 3d 22 52 65 73  75 6c 74 22 0d 14 be 37  |le$="Result"...7|
00003190  f2 6f 70 65 6e 5f 73 61  76 65 28 78 2d 36 34 2c  |.open_save(x-64,|
000031a0  79 2d 36 34 2c 6c 69 62  5f 6f 75 74 25 28 63 75  |y-64,lib_out%(cu|
000031b0  72 5f 70 72 6f 63 25 29  2c 63 75 72 5f 70 72 6f  |r_proc%),cur_pro|
000031c0  63 25 29 0d 14 c8 05 e1  0d 14 d2 05 3a 0d 14 dc  |c%).........:...|
000031d0  19 dd 20 f2 6f 70 65 6e  5f 72 65 73 75 6c 74 28  |.. .open_result(|
000031e0  70 72 6f 63 25 29 0d 14  e6 0e ea 20 69 25 2c 6d  |proc%)..... i%,m|
000031f0  61 78 77 25 0d 14 f0 35  e7 20 72 65 73 75 6c 74  |axw%...5. result|
00003200  5f 6f 70 65 6e 25 28 70  72 6f 63 25 29 20 f2 63  |_open%(proc%) .c|
00003210  6c 6f 73 65 28 72 65 73  75 6c 74 5f 68 61 6e 64  |lose(result_hand|
00003220  25 28 70 72 6f 63 25 29  29 0d 14 fa 25 24 72 65  |%(proc%))...%$re|
00003230  73 75 6c 74 5f 74 69 74  6c 65 25 28 70 72 6f 63  |sult_title%(proc|
00003240  25 29 3d 72 24 28 70 72  6f 63 25 2c 30 29 0d 15  |%)=r$(proc%,0)..|
00003250  04 0b 6d 61 78 77 25 3d  30 0d 15 0e 1c e3 20 69  |..maxw%=0..... i|
00003260  25 3d 30 20 b8 20 6c 69  62 5f 6f 75 74 25 28 70  |%=0 . lib_out%(p|
00003270  72 6f 63 25 29 0d 15 18  32 20 e7 20 a9 28 72 24  |roc%)...2 . .(r$|
00003280  28 70 72 6f 63 25 2c 69  25 29 29 3e 6d 61 78 77  |(proc%,i%))>maxw|
00003290  25 20 6d 61 78 77 25 3d  a9 28 72 24 28 70 72 6f  |% maxw%=.(r$(pro|
000032a0  63 25 2c 69 25 29 29 0d  15 22 05 ed 0d 15 2c 09  |c%,i%)).."....,.|
000032b0  21 71 25 3d 30 0d 15 36  28 71 25 21 34 3d 2d 28  |!q%=0..6(q%!4=-(|
000032c0  32 2a 62 6f 72 64 65 72  25 2b 34 30 2a 6c 69 62  |2*border%+40*lib|
000032d0  5f 6f 75 74 25 28 70 72  6f 63 25 29 29 0d 15 40  |_out%(proc%))..@|
000032e0  1b 71 25 21 38 3d 31 36  2a 6d 61 78 77 25 2b 32  |.q%!8=16*maxw%+2|
000032f0  2a 62 6f 72 64 65 72 25  0d 15 4a 0b 71 25 21 31  |*border%..J.q%!1|
00003300  32 3d 30 0d 15 54 2e c8  99 20 22 57 69 6d 70 5f  |2=0..T... "Wimp_|
00003310  53 65 74 45 78 74 65 6e  74 22 2c 72 65 73 75 6c  |SetExtent",resul|
00003320  74 5f 68 61 6e 64 25 28  70 72 6f 63 25 29 2c 71  |t_hand%(proc%),q|
00003330  25 0d 15 5e 1b 21 71 25  3d 72 65 73 75 6c 74 5f  |%..^.!q%=result_|
00003340  68 61 6e 64 25 28 70 72  6f 63 25 29 0d 15 68 20  |hand%(proc%)..h |
00003350  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
00003360  6f 77 53 74 61 74 65 22  2c 2c 71 25 0d 15 72 21  |owState",,q%..r!|
00003370  71 25 21 31 32 3d 71 25  21 34 2b 31 36 2a 6d 61  |q%!12=q%!4+16*ma|
00003380  78 77 25 2b 32 2a 62 6f  72 64 65 72 25 0d 15 7c  |xw%+2*border%..||
00003390  2d 71 25 21 38 3d 71 25  21 31 36 2d 28 32 2a 62  |-q%!8=q%!16-(2*b|
000033a0  6f 72 64 65 72 25 2b 34  30 2a 6c 69 62 5f 6f 75  |order%+40*lib_ou|
000033b0  74 25 28 70 72 6f 63 25  29 29 0d 15 86 0c 71 25  |t%(proc%))....q%|
000033c0  21 32 38 3d 2d 31 0d 15  90 1c c8 99 20 22 57 69  |!28=-1...... "Wi|
000033d0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
000033e0  71 25 0d 15 9a 19 72 65  73 75 6c 74 5f 6f 70 65  |q%....result_ope|
000033f0  6e 25 28 70 72 6f 63 25  29 3d b9 0d 15 a4 05 e1  |n%(proc%)=......|
00003400  0d 15 ae 05 3a 0d 15 b8  20 dd 20 f2 6f 70 65 6e  |....:... . .open|
00003410  5f 73 61 76 65 28 78 25  2c 79 25 2c 74 79 70 65  |_save(x%,y%,type|
00003420  25 2c 70 25 29 0d 15 c2  0b ea 20 77 25 2c 68 25  |%,p%)..... w%,h%|
00003430  0d 15 cc 27 24 73 61 76  65 74 79 70 65 3d 22 53  |...'$savetype="S|
00003440  66 69 6c 65 5f 22 2b c2  22 46 46 22 2b c3 7e 74  |file_"+."FF"+.~t|
00003450  79 70 65 25 2c 33 29 0d  15 d6 1b 24 73 61 76 65  |ype%,3)....$save|
00003460  74 65 78 74 3d 77 69 6e  64 6f 77 5f 74 69 74 6c  |text=window_titl|
00003470  65 24 0d 15 e0 12 21 71  25 3d 73 61 76 65 5f 68  |e$....!q%=save_h|
00003480  61 6e 64 25 0d 15 ea 1f  c8 99 20 22 57 69 6d 70  |and%...... "Wimp|
00003490  5f 47 65 74 57 69 6e 64  6f 77 49 6e 66 6f 22 2c  |_GetWindowInfo",|
000034a0  2c 71 25 0d 15 f4 11 77  25 3d 71 25 21 31 32 2d  |,q%....w%=q%!12-|
000034b0  71 25 21 34 0d 15 fe 11  68 25 3d 71 25 21 31 36  |q%!4....h%=q%!16|
000034c0  2d 71 25 21 38 0d 16 08  0b 71 25 21 34 3d 78 25  |-q%!8....q%!4=x%|
000034d0  0d 16 12 0b 71 25 21 38  3d 79 25 0d 16 1c 0f 71  |....q%!8=y%....q|
000034e0  25 21 31 32 3d 78 25 2b  77 25 0d 16 26 0f 71 25  |%!12=x%+w%..&.q%|
000034f0  21 31 36 3d 79 25 2b 68  25 0d 16 30 0b 71 25 21  |!16=y%+h%..0.q%!|
00003500  32 30 3d 30 0d 16 3a 0b  71 25 21 32 34 3d 30 0d  |20=0..:.q%!24=0.|
00003510  16 44 0c 71 25 21 32 38  3d 2d 31 0d 16 4e 1c c8  |.D.q%!28=-1..N..|
00003520  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00003530  6f 77 22 2c 2c 71 25 0d  16 58 11 73 61 76 65 5f  |ow",,q%..X.save_|
00003540  70 72 6f 63 25 3d 70 25  0d 16 62 05 e1 0d 16 6c  |proc%=p%..b....l|
00003550  05 3a 0d 16 76 0b dd 20  f2 64 72 61 67 0d 16 80  |.:..v.. .drag...|
00003560  2c e7 20 78 64 72 61 67  73 74 61 72 74 25 3c 3e  |,. xdragstart%<>|
00003570  2d 31 20 c8 99 20 22 58  44 72 61 67 41 53 70 72  |-1 .. "XDragASpr|
00003580  69 74 65 5f 53 74 6f 70  22 0d 16 8a 20 c8 99 20  |ite_Stop"... .. |
00003590  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
000035a0  49 6e 66 6f 22 2c 2c 71  25 0d 16 94 18 71 25 21  |Info",,q%....q%!|
000035b0  33 32 3d 71 25 21 34 3a  71 25 21 32 38 3d 21 71  |32=q%!4:q%!28=!q|
000035c0  25 0d 16 9e 1b 71 25 21  32 34 3d 71 25 21 31 36  |%....q%!24=q%!16|
000035d0  3a 71 25 21 32 30 3d 71  25 21 31 32 0d 16 a8 13  |:q%!20=q%!12....|
000035e0  71 25 21 31 36 3d 31 3a  71 25 21 31 32 3d 30 0d  |q%!16=1:q%!12=0.|
000035f0  16 b2 27 e7 20 28 6c 69  62 5f 66 6c 61 67 73 25  |..'. (lib_flags%|
00003600  28 73 61 76 65 5f 70 72  6f 63 25 29 20 80 20 33  |(save_proc%) . 3|
00003610  32 29 3e 30 20 8c 0d 16  bc 0f 20 71 25 21 34 30  |2)>0 ..... q%!40|
00003620  3d 26 46 46 39 0d 16 c6  19 20 71 25 21 33 36 3d  |=&FF9.... q%!36=|
00003630  73 70 72 69 74 65 73 69  7a 65 25 2b 32 30 0d 16  |spritesize%+20..|
00003640  d0 05 cc 0d 16 da 29 c8  99 20 22 4f 53 5f 46 69  |......).. "OS_Fi|
00003650  6c 65 22 2c 35 2c 6a 75  6e 6b 24 20 b8 20 2c 2c  |le",5,junk$ . ,,|
00003660  71 25 21 34 30 2c 2c 71  25 21 33 36 0d 16 e4 21  |q%!40,,q%!36...!|
00003670  71 25 21 34 30 3d 28 71  25 21 34 30 20 80 20 26  |q%!40=(q%!40 . &|
00003680  46 46 46 30 30 29 20 81  20 26 31 30 30 0d 16 ee  |FFF00) . &100...|
00003690  05 cd 0d 16 f8 30 24 28  71 25 2b 34 34 29 3d a4  |.....0$(q%+44)=.|
000036a0  6c 65 61 66 5f 6e 61 6d  65 28 a4 67 65 74 5f 73  |leaf_name(.get_s|
000036b0  74 72 28 73 61 76 65 74  65 78 74 29 29 2b bd 28  |tr(savetext))+.(|
000036c0  30 29 0d 17 02 0a 21 71  25 3d 36 30 0d 17 0c 2b  |0)....!q%=60...+|
000036d0  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
000036e0  73 61 67 65 22 2c 31 37  2c 71 25 2c 71 25 21 32  |sage",17,q%,q%!2|
000036f0  30 2c 71 25 21 32 34 0d  17 16 05 e1 0d 17 20 05  |0,q%!24....... .|
00003700  3a 0d 17 2a 36 dd 20 f2  6b 65 79 28 68 61 6e 64  |:..*6. .key(hand|
00003710  25 2c 69 63 6f 6e 25 2c  78 63 61 72 25 2c 79 63  |%,icon%,xcar%,yc|
00003720  61 72 25 2c 63 61 72 68  25 2c 63 61 72 70 6f 73  |ar%,carh%,carpos|
00003730  25 2c 6b 65 79 25 29 0d  17 34 0b ea 20 70 72 6f  |%,key%)..4.. pro|
00003740  63 25 0d 17 3e 22 e7 20  68 61 6e 64 25 3d 73 61  |c%..>". hand%=sa|
00003750  76 65 5f 68 61 6e 64 25  20 80 20 6b 65 79 25 3d  |ve_hand% . key%=|
00003760  31 33 20 8c 0d 17 48 33  20 e7 20 a4 73 61 76 65  |13 ...H3 . .save|
00003770  28 a4 67 65 74 5f 73 74  72 28 73 61 76 65 74 65  |(.get_str(savete|
00003780  78 74 29 29 20 f2 63 6c  6f 73 65 28 73 61 76 65  |xt)) .close(save|
00003790  5f 68 61 6e 64 25 29 0d  17 52 05 cc 0d 17 5c 29  |_hand%)..R....\)|
000037a0  20 70 72 6f 63 25 3d a4  66 69 6e 64 5f 65 6c 65  | proc%=.find_ele|
000037b0  6d 28 68 61 6e 64 25 2c  77 69 6e 64 5f 68 61 6e  |m(hand%,wind_han|
000037c0  64 25 28 29 29 0d 17 66  10 20 e7 20 70 72 6f 63  |d%())..f. . proc|
000037d0  25 3d 30 20 8c 0d 17 70  1f 20 20 c8 99 20 22 57  |%=0 ...p.  .. "W|
000037e0  69 6d 70 5f 50 72 6f 63  65 73 73 4b 65 79 22 2c  |imp_ProcessKey",|
000037f0  6b 65 79 25 0d 17 7a 06  20 cc 0d 17 84 76 20 20  |key%..z. ....v  |
00003800  65 3d a0 28 22 46 4e 22  2b 6c 69 62 5f 70 72 6f  |e=.("FN"+lib_pro|
00003810  63 24 28 70 72 6f 63 25  29 2b 22 5f 6b 65 79 28  |c$(proc%)+"_key(|
00003820  22 2b c3 68 61 6e 64 25  2b 22 2c 22 2b c3 69 63  |"+.hand%+","+.ic|
00003830  6f 6e 25 2b 22 2c 22 2b  c3 78 63 61 72 25 2b 22  |on%+","+.xcar%+"|
00003840  2c 22 2b c3 79 63 61 72  25 2b 22 2c 22 2b c3 63  |,"+.ycar%+","+.c|
00003850  61 72 68 25 2b 22 2c 22  2b c3 63 61 72 70 6f 73  |arh%+","+.carpos|
00003860  25 2b 22 2c 22 2b c3 6b  65 79 25 2b 22 29 22 29  |%+","+.key%+")")|
00003870  0d 17 8e 1c 20 20 e7 20  65 20 f2 70 72 6f 63 65  |....  . e .proce|
00003880  73 73 28 70 72 6f 63 25  2c 22 22 29 0d 17 98 06  |ss(proc%,"")....|
00003890  20 cd 0d 17 a2 05 cd 0d  17 ac 05 e1 0d 17 b6 05  | ...............|
000038a0  3a 0d 17 c0 21 dd 20 f2  69 6e 69 74 5f 73 61 76  |:...!. .init_sav|
000038b0  65 5f 64 72 61 67 28 73  61 76 65 5f 68 61 6e 64  |e_drag(save_hand|
000038c0  25 29 0d 17 ca 12 ea 20  78 25 2c 79 25 2c 79 73  |%)..... x%,y%,ys|
000038d0  69 7a 65 25 0d 17 d4 12  21 71 25 3d 73 61 76 65  |ize%....!q%=save|
000038e0  5f 68 61 6e 64 25 0d 17  de 20 c8 99 20 22 57 69  |_hand%... .. "Wi|
000038f0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00003900  65 22 2c 2c 71 25 0d 17  e8 15 79 73 69 7a 65 25  |e",,q%....ysize%|
00003910  3d 71 25 21 31 36 2d 71  25 21 38 0d 17 f2 0b 78  |=q%!16-q%!8....x|
00003920  25 3d 71 25 21 34 0d 17  fc 0b 79 25 3d 71 25 21  |%=q%!4....y%=q%!|
00003930  38 0d 18 06 0a 71 25 21  34 3d 31 0d 18 10 1e c8  |8....q%!4=1.....|
00003940  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00003950  74 61 74 65 22 2c 2c 71  25 0d 18 1a 0c 71 25 21  |tate",,q%....q%!|
00003960  38 2b 3d 78 25 0d 18 24  14 71 25 21 31 32 2b 3d  |8+=x%..$.q%!12+=|
00003970  79 25 2b 79 73 69 7a 65  25 0d 18 2e 0d 71 25 21  |y%+ysize%....q%!|
00003980  31 36 2b 3d 78 25 0d 18  38 14 71 25 21 32 30 2b  |16+=x%..8.q%!20+|
00003990  3d 79 25 2b 79 73 69 7a  65 25 0d 18 42 0b 71 25  |=y%+ysize%..B.q%|
000039a0  21 32 34 3d 30 0d 18 4c  0b 71 25 21 32 38 3d 30  |!24=0..L.q%!28=0|
000039b0  0d 18 56 1d 71 25 21 33  32 3d 28 a4 6d 76 28 31  |..V.q%!32=(.mv(1|
000039c0  31 29 2b 31 29 3c 3c a4  6d 76 28 34 29 0d 18 60  |1)+1)<<.mv(4)..`|
000039d0  1d 71 25 21 33 36 3d 28  a4 6d 76 28 31 32 29 2b  |.q%!36=(.mv(12)+|
000039e0  31 29 3c 3c a4 6d 76 28  35 29 0d 18 6a 09 21 71  |1)<<.mv(5)..j.!q|
000039f0  25 3d 30 0d 18 74 0a 71  25 21 34 3d 35 0d 18 7e  |%=0..t.q%!4=5..~|
00003a00  7c e7 20 78 64 72 61 67  73 74 61 72 74 25 3c 3e  ||. xdragstart%<>|
00003a10  2d 31 20 80 20 28 a4 72  65 61 64 5f 63 6d 6f 73  |-1 . (.read_cmos|
00003a20  28 32 38 29 20 80 20 32  29 3e 30 20 8c 20 c8 99  |(28) . 2)>0 . ..|
00003a30  20 78 64 72 61 67 73 74  61 72 74 25 2c 25 31 31  | xdragstart%,%11|
00003a40  30 30 30 31 30 31 2c 31  2c 24 28 73 61 76 65 74  |000101,1,$(savet|
00003a50  79 70 65 2b 31 29 2c 71  25 2b 38 2c 71 25 2b 32  |ype+1),q%+8,q%+2|
00003a60  34 20 8b 20 c8 99 20 22  57 69 6d 70 5f 44 72 61  |4 . .. "Wimp_Dra|
00003a70  67 42 6f 78 22 2c 2c 71  25 0d 18 88 05 e1 0d 18  |gBox",,q%.......|
00003a80  92 05 3a 0d 18 9c 0d dd  20 a4 6d 76 28 6d 25 29  |..:..... .mv(m%)|
00003a90  0d 18 a6 08 ea 20 76 25  0d 18 b0 29 c8 99 20 22  |..... v%...).. "|
00003aa0  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00003ab0  62 6c 65 22 2c 2d 31 2c  6d 25 20 b8 20 2c 2c 76  |ble",-1,m% . ,,v|
00003ac0  25 0d 18 ba 07 3d 76 25  0d 18 c4 05 3a 0d 18 ce  |%....=v%....:...|
00003ad0  12 dd 20 a4 73 61 76 65  28 73 61 76 65 24 29 0d  |.. .save(save$).|
00003ae0  18 d8 0c ea 20 73 61 76  65 64 25 0d 18 e2 1e e7  |.... saved%.....|
00003af0  20 a4 67 6f 6f 64 5f 73  61 76 65 5f 6e 61 6d 65  | .good_save_name|
00003b00  28 73 61 76 65 24 29 20  8c 0d 18 ec 0d 20 f2 73  |(save$) ..... .s|
00003b10  61 76 65 5f 69 74 0d 18  f6 0d 20 73 61 76 65 64  |ave_it.... saved|
00003b20  25 3d b9 0d 19 00 05 cc  0d 19 0a 3b 20 f2 77 61  |%=.........; .wa|
00003b30  72 6e 28 22 54 6f 20 73  61 76 65 2c 20 64 72 61  |rn("To save, dra|
00003b40  67 20 74 68 65 20 69 63  6f 6e 20 74 6f 20 61 20  |g the icon to a |
00003b50  64 69 72 65 63 74 6f 72  79 20 76 69 65 77 65 72  |directory viewer|
00003b60  2e 22 29 0d 19 14 0d 20  73 61 76 65 64 25 3d a3  |.").... saved%=.|
00003b70  0d 19 1e 05 cd 0d 19 28  0b 3d 73 61 76 65 64 25  |.......(.=saved%|
00003b80  0d 19 32 05 3a 0d 19 3c  1c dd 20 a4 67 6f 6f 64  |..2.:..<.. .good|
00003b90  5f 73 61 76 65 5f 6e 61  6d 65 28 73 61 76 65 24  |_save_name(save$|
00003ba0  29 0d 19 46 39 3d 73 61  76 65 24 3d 22 3c 57 69  |)..F9=save$="<Wi|
00003bb0  6d 70 24 53 63 72 61 70  3e 22 20 84 20 a7 73 61  |mp$Scrap>" . .sa|
00003bc0  76 65 24 2c 22 3a 22 29  3e 30 20 84 20 a7 73 61  |ve$,":")>0 . .sa|
00003bd0  76 65 24 2c 22 2e 22 29  3e 30 0d 19 50 05 3a 0d  |ve$,".")>0..P.:.|
00003be0  19 5a 20 dd 20 a4 69 63  5f 61 64 64 72 28 68 61  |.Z . .ic_addr(ha|
00003bf0  6e 64 25 2c 69 63 6f 6e  25 2c 6f 66 66 25 29 0d  |nd%,icon%,off%).|
00003c00  19 64 0e 21 69 63 25 3d  68 61 6e 64 25 0d 19 6e  |.d.!ic%=hand%..n|
00003c10  0f 69 63 25 21 34 3d 69  63 6f 6e 25 0d 19 78 1f  |.ic%!4=icon%..x.|
00003c20  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00003c30  53 74 61 74 65 22 2c 2c  69 63 25 0d 19 82 0d 3d  |State",,ic%....=|
00003c40  69 63 25 21 6f 66 66 25  0d 19 8c 05 3a 0d 19 96  |ic%!off%....:...|
00003c50  13 dd 20 f2 63 6c 6f 73  65 28 68 61 6e 64 25 29  |.. .close(hand%)|
00003c60  0d 19 a0 0b ea 20 70 72  6f 63 25 0d 19 aa 0d 21  |..... proc%....!|
00003c70  71 25 3d 68 61 6e 64 25  0d 19 b4 1d c8 99 20 22  |q%=hand%...... "|
00003c80  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
00003c90  22 2c 2c 71 25 0d 19 be  3a e7 20 68 61 6e 64 25  |",,q%...:. hand%|
00003ca0  3d 73 61 76 65 5f 68 61  6e 64 25 20 c8 99 20 22  |=save_hand% .. "|
00003cb0  58 4f 53 5f 46 69 6c 65  22 2c 36 2c 6a 75 6e 6b  |XOS_File",6,junk|
00003cc0  24 3a 73 61 76 65 5f 70  72 6f 63 25 3d 2d 31 0d  |$:save_proc%=-1.|
00003cd0  19 c8 30 e7 20 68 61 6e  64 25 3d 63 75 72 5f 73  |..0. hand%=cur_s|
00003ce0  65 74 75 70 5f 68 61 6e  64 25 20 8c 20 63 75 72  |etup_hand% . cur|
00003cf0  5f 73 65 74 75 70 5f 68  61 6e 64 25 3d 2d 31 0d  |_setup_hand%=-1.|
00003d00  19 d2 2a 70 72 6f 63 25  3d a4 66 69 6e 64 5f 65  |..*proc%=.find_e|
00003d10  6c 65 6d 28 68 61 6e 64  25 2c 72 65 73 75 6c 74  |lem(hand%,result|
00003d20  5f 68 61 6e 64 25 28 29  29 0d 19 dc 15 e7 20 70  |_hand%())..... p|
00003d30  72 6f 63 25 3e 30 20 f2  63 6c 6f 73 65 32 0d 19  |roc%>0 .close2..|
00003d40  e6 05 e1 0d 19 f0 05 3a  0d 19 fa 14 dd 20 f2 72  |.......:..... .r|
00003d50  65 64 72 61 77 28 68 61  6e 64 25 29 0d 1a 04 1e  |edraw(hand%)....|
00003d60  ea 20 69 25 2c 6d 6f 72  65 25 2c 61 78 30 25 2c  |. i%,more%,ax0%,|
00003d70  61 79 30 25 2c 70 72 6f  63 25 0d 1a 0e 2a 70 72  |ay0%,proc%...*pr|
00003d80  6f 63 25 3d a4 66 69 6e  64 5f 65 6c 65 6d 28 68  |oc%=.find_elem(h|
00003d90  61 6e 64 25 2c 72 65 73  75 6c 74 5f 68 61 6e 64  |and%,result_hand|
00003da0  25 28 29 29 0d 1a 18 3e  e7 20 28 6c 69 62 5f 66  |%())...>. (lib_f|
00003db0  6c 61 67 73 25 28 70 72  6f 63 25 29 20 80 20 33  |lags%(proc%) . 3|
00003dc0  32 29 3e 30 20 f2 72 65  64 72 61 77 5f 6f 75 74  |2)>0 .redraw_out|
00003dd0  70 75 74 28 68 61 6e 64  25 2c 70 72 6f 63 25 29  |put(hand%,proc%)|
00003de0  3a e1 0d 1a 22 26 c8 99  20 22 57 69 6d 70 5f 52  |:..."&.. "Wimp_R|
00003df0  65 64 72 61 77 57 69 6e  64 6f 77 22 2c 2c 71 25  |edrawWindow",,q%|
00003e00  20 b8 20 6d 6f 72 65 25  0d 1a 2c 0c c8 95 20 6d  | . more%..,... m|
00003e10  6f 72 65 25 0d 1a 36 14  20 61 78 30 25 3d 71 25  |ore%..6. ax0%=q%|
00003e20  21 34 2d 71 25 21 32 30  0d 1a 40 15 20 61 79 30  |!4-q%!20..@. ay0|
00003e30  25 3d 71 25 21 31 36 2d  71 25 21 32 34 0d 1a 4a  |%=q%!16-q%!24..J|
00003e40  1d 20 e3 20 69 25 3d 31  20 b8 20 6c 69 62 5f 6f  |. . i%=1 . lib_o|
00003e50  75 74 25 28 70 72 6f 63  25 29 0d 1a 54 2d 20 20  |ut%(proc%)..T-  |
00003e60  ec 20 61 78 30 25 2b 62  6f 72 64 65 72 25 2c 61  |. ax0%+border%,a|
00003e70  79 30 25 2d 38 2d 62 6f  72 64 65 72 25 2d 34 30  |y0%-8-border%-40|
00003e80  2a 28 69 25 2d 31 29 0d  1a 5e 14 20 20 f1 20 72  |*(i%-1)..^.  . r|
00003e90  24 28 70 72 6f 63 25 2c  69 25 29 0d 1a 68 06 20  |$(proc%,i%)..h. |
00003ea0  ed 0d 1a 72 27 20 c8 99  20 22 57 69 6d 70 5f 47  |...r' .. "Wimp_G|
00003eb0  65 74 52 65 63 74 61 6e  67 6c 65 22 2c 2c 71 25  |etRectangle",,q%|
00003ec0  20 b8 20 6d 6f 72 65 25  0d 1a 7c 05 ce 0d 1a 86  | . more%..|.....|
00003ed0  05 e1 0d 1a 90 05 3a 0d  1a 9a 0d dd 20 a4 75 63  |......:..... .uc|
00003ee0  28 61 24 29 0d 1a a4 0b  ea 20 69 25 2c 63 24 0d  |(a$)..... i%,c$.|
00003ef0  1a ae 12 e3 20 69 25 3d  31 20 b8 20 a9 28 61 24  |.... i%=1 . .(a$|
00003f00  29 0d 1a b8 11 20 63 24  3d c1 61 24 2c 69 25 2c  |).... c$=.a$,i%,|
00003f10  31 29 0d 1a c2 2c 20 e7  20 63 24 3e 3d 22 61 22  |1)..., . c$>="a"|
00003f20  20 80 20 63 24 3c 3d 22  7a 22 20 c1 61 24 2c 69  | . c$<="z" .a$,i|
00003f30  25 2c 31 29 3d bd 28 97  63 24 2d 33 32 29 0d 1a  |%,1)=.(.c$-32)..|
00003f40  cc 05 ed 0d 1a d6 07 3d  61 24 0d 1a e0 05 3a 0d  |.......=a$....:.|
00003f50  1a ea 0d dd 20 a4 6c 63  28 61 24 29 0d 1a f4 08  |.... .lc(a$)....|
00003f60  ea 20 69 25 0d 1a fe 12  e3 20 69 25 3d 31 20 b8  |. i%..... i%=1 .|
00003f70  20 a9 28 61 24 29 0d 1b  08 11 20 63 24 3d c1 61  | .(a$).... c$=.a|
00003f80  24 2c 69 25 2c 31 29 0d  1b 12 2c 20 e7 20 63 24  |$,i%,1)..., . c$|
00003f90  3e 3d 22 41 22 20 80 20  63 24 3c 3d 22 5a 22 20  |>="A" . c$<="Z" |
00003fa0  c1 61 24 2c 69 25 2c 31  29 3d bd 28 97 63 24 2b  |.a$,i%,1)=.(.c$+|
00003fb0  33 32 29 0d 1b 1c 05 ed  0d 1b 26 07 3d 61 24 0d  |32).......&.=a$.|
00003fc0  1b 30 05 3a 0d 1b 3a 19  dd 20 a4 73 74 72 69 70  |.0.:..:.. .strip|
00003fd0  5f 73 70 61 63 65 73 28  73 74 72 24 29 0d 1b 44  |_spaces(str$)..D|
00003fe0  13 c8 95 20 c0 73 74 72  24 2c 31 29 3d 22 20 22  |... .str$,1)=" "|
00003ff0  0d 1b 4e 12 20 73 74 72  24 3d c1 73 74 72 24 2c  |..N. str$=.str$,|
00004000  32 29 0d 1b 58 05 ce 0d  1b 62 13 c8 95 20 c2 73  |2)..X....b... .s|
00004010  74 72 24 2c 31 29 3d 22  20 22 0d 1b 6c 10 20 73  |tr$,1)=" "..l. s|
00004020  74 72 24 3d c0 73 74 72  24 29 0d 1b 76 05 ce 0d  |tr$=.str$)..v...|
00004030  1b 80 09 3d 73 74 72 24  0d 1b 8a 05 3a 0d 1b 94  |...=str$....:...|
00004040  14 dd 20 f2 62 70 75 74  28 66 25 2c 73 74 72 24  |.. .bput(f%,str$|
00004050  29 0d 1b 9e 13 d5 20 23  66 25 2c 73 74 72 24 2b  |)..... #f%,str$+|
00004060  bd 31 30 3b 0d 1b a8 05  e1 0d 1b b2 05 3a 0d 1b  |.10;.........:..|
00004070  bc 17 dd 20 f2 77 70 75  74 28 66 25 2c 21 5f 77  |... .wput(f%,!_w|
00004080  6f 72 64 25 29 0d 1b c6  1e c8 99 20 22 4f 53 5f  |ord%)...... "OS_|
00004090  47 42 50 42 22 2c 32 2c  66 25 2c 5f 77 6f 72 64  |GBPB",2,f%,_word|
000040a0  25 2c 34 0d 1b d0 05 e1  0d 1b da 05 3a 0d 1b e4  |%,4.........:...|
000040b0  0f dd 20 a4 77 67 65 74  28 66 25 29 0d 1b ee 1e  |.. .wget(f%)....|
000040c0  c8 99 20 22 4f 53 5f 47  42 50 42 22 2c 34 2c 66  |.. "OS_GBPB",4,f|
000040d0  25 2c 5f 77 6f 72 64 25  2c 34 0d 1b f8 0c 3d 21  |%,_word%,4....=!|
000040e0  5f 77 6f 72 64 25 0d 1c  02 05 3a 0d 1c 0c 27 dd  |_word%....:...'.|
000040f0  20 f2 77 72 69 74 65 5f  69 6e 5f 69 63 6f 6e 28  | .write_in_icon(|
00004100  68 61 6e 64 25 2c 69 63  6f 6e 25 2c 74 65 78 74  |hand%,icon%,text|
00004110  24 29 0d 1c 16 23 24 a4  69 63 5f 61 64 64 72 28  |$)...#$.ic_addr(|
00004120  68 61 6e 64 25 2c 69 63  6f 6e 25 2c 32 38 29 3d  |hand%,icon%,28)=|
00004130  74 65 78 74 24 0d 1c 20  14 69 63 25 21 38 3d 30  |text$.. .ic%!8=0|
00004140  3a 69 63 25 21 31 32 3d  30 0d 1c 2a 1f c8 99 20  |:ic%!12=0..*... |
00004150  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00004160  74 65 22 2c 2c 69 63 25  0d 1c 34 23 c8 99 20 22  |te",,ic%..4#.. "|
00004170  57 69 6d 70 5f 47 65 74  43 61 72 65 74 50 6f 73  |Wimp_GetCaretPos|
00004180  69 74 69 6f 6e 22 2c 2c  69 63 25 0d 1c 3e 57 e7  |ition",,ic%..>W.|
00004190  20 21 69 63 25 3d 68 61  6e 64 25 20 80 20 69 63  | !ic%=hand% . ic|
000041a0  25 21 34 3d 69 63 6f 6e  25 20 c8 99 20 22 57 69  |%!4=icon% .. "Wi|
000041b0  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
000041c0  69 6f 6e 22 2c 21 69 63  25 2c 69 63 25 21 34 2c  |ion",!ic%,ic%!4,|
000041d0  69 63 25 21 38 2c 69 63  25 21 31 32 2c 2d 31 2c  |ic%!8,ic%!12,-1,|
000041e0  2d 31 0d 1c 48 05 e1 0d  1c 52 05 3a 0d 1c 5c 1d  |-1..H....R.:..\.|
000041f0  dd 20 a4 69 63 6f 6e 5f  74 65 78 74 28 77 69 6e  |. .icon_text(win|
00004200  64 25 2c 69 63 6f 6e 25  29 0d 1c 66 1e 3d 24 a4  |d%,icon%)..f.=$.|
00004210  69 63 5f 61 64 64 72 28  77 69 6e 64 25 2c 69 63  |ic_addr(wind%,ic|
00004220  6f 6e 25 2c 32 38 29 0d  1c 70 05 3a 0d 1c 7a 24  |on%,28)..p.:..z$|
00004230  dd 20 f2 73 65 74 5f 62  75 74 74 6f 6e 28 21 69  |. .set_button(!i|
00004240  63 25 2c 69 63 25 21 34  2c 73 74 61 74 65 25 29  |c%,ic%!4,state%)|
00004250  0d 1c 84 14 69 63 25 21  38 3d 73 74 61 74 65 25  |....ic%!8=state%|
00004260  3c 3c 32 31 0d 1c 8e 10  69 63 25 21 31 32 3d 31  |<<21....ic%!12=1|
00004270  3c 3c 32 31 0d 1c 98 1f  c8 99 20 22 57 69 6d 70  |<<21...... "Wimp|
00004280  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00004290  69 63 25 0d 1c a2 05 e1  0d 1c ac 05 3a 0d 1c b6  |ic%.........:...|
000042a0  1f dd 20 a4 62 75 74 74  6f 6e 5f 73 74 61 74 65  |.. .button_state|
000042b0  28 21 69 63 25 2c 69 63  25 21 34 29 0d 1c c0 1f  |(!ic%,ic%!4)....|
000042c0  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
000042d0  53 74 61 74 65 22 2c 2c  69 63 25 0d 1c ca 1a 3d  |State",,ic%....=|
000042e0  b4 28 69 63 25 21 28 38  2b 31 36 29 20 80 20 31  |.(ic%!(8+16) . 1|
000042f0  3c 3c 32 31 29 0d 1c d4  05 3a 0d 1c de 1c dd 20  |<<21)....:..... |
00004300  a4 65 73 67 5f 73 74 61  74 65 28 77 69 6e 64 25  |.esg_state(wind%|
00004310  2c 65 73 67 25 29 0d 1c  e8 42 c8 99 20 22 57 69  |,esg%)...B.. "Wi|
00004320  6d 70 5f 57 68 69 63 68  49 63 6f 6e 22 2c 77 69  |mp_WhichIcon",wi|
00004330  6e 64 25 2c 69 63 25 2c  25 31 31 31 31 31 31 3c  |nd%,ic%,%111111<|
00004340  3c 31 36 2c 28 65 73 67  25 3c 3c 31 36 29 20 84  |<16,(esg%<<16) .|
00004350  20 28 31 3c 3c 32 31 29  0d 1c f2 09 3d 21 69 63  | (1<<21)....=!ic|
00004360  25 0d 1c fc 05 3a 0d 1d  06 21 dd 20 f2 68 6f 75  |%....:...!. .hou|
00004370  72 67 6c 61 73 73 28 63  75 72 72 65 6e 74 2c 6d  |rglass(current,m|
00004380  61 78 69 6d 75 6d 29 0d  1d 10 3e e7 20 6d 61 78  |aximum)...>. max|
00004390  69 6d 75 6d 3c 3e 30 20  c8 99 20 22 48 6f 75 72  |imum<>0 .. "Hour|
000043a0  67 6c 61 73 73 5f 50 65  72 63 65 6e 74 61 67 65  |glass_Percentage|
000043b0  22 2c 63 75 72 72 65 6e  74 2a 31 30 30 2f 6d 61  |",current*100/ma|
000043c0  78 69 6d 75 6d 0d 1d 1a  05 e1 0d 1d 24 05 3a 0d  |ximum.......$.:.|
000043d0  1d 2e 19 dd 20 a4 73 70  72 69 74 65 5f 77 69 64  |.... .sprite_wid|
000043e0  74 68 28 73 70 72 25 29  0d 1d 38 12 ea 20 77 69  |th(spr%)..8.. wi|
000043f0  64 74 68 25 2c 6d 6f 64  65 25 0d 1d 42 3f c8 99  |dth%,mode%..B?..|
00004400  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
00004410  32 32 38 2c 6c 69 62 5f  73 70 72 69 74 65 73 25  |228,lib_sprites%|
00004420  2c 73 70 72 25 20 b8 20  2c 2c 2c 77 69 64 74 68  |,spr% . ,,,width|
00004430  25 2c 2c 2c 6d 6f 64 65  25 0d 1d 4c 1a 3d 77 69  |%,,,mode%..L.=wi|
00004440  64 74 68 25 3c 3c a4 76  61 72 28 6d 6f 64 65 25  |dth%<<.var(mode%|
00004450  2c 34 29 0d 1d 56 05 3a  0d 1d 60 1a dd 20 a4 73  |,4)..V.:..`.. .s|
00004460  70 72 69 74 65 5f 68 65  69 67 68 74 28 73 70 72  |prite_height(spr|
00004470  25 29 0d 1d 6a 13 ea 20  68 65 69 67 68 74 25 2c  |%)..j.. height%,|
00004480  6d 6f 64 65 25 0d 1d 74  40 c8 99 20 22 4f 53 5f  |mode%..t@.. "OS_|
00004490  53 70 72 69 74 65 4f 70  22 2c 26 32 32 38 2c 6c  |SpriteOp",&228,l|
000044a0  69 62 5f 73 70 72 69 74  65 73 25 2c 73 70 72 25  |ib_sprites%,spr%|
000044b0  20 b8 20 2c 2c 2c 2c 68  65 69 67 68 74 25 2c 2c  | . ,,,,height%,,|
000044c0  6d 6f 64 65 25 0d 1d 7e  1b 3d 68 65 69 67 68 74  |mode%..~.=height|
000044d0  25 3c 3c a4 76 61 72 28  6d 6f 64 65 25 2c 35 29  |%<<.var(mode%,5)|
000044e0  0d 1d 88 05 3a 0d 1d 92  16 dd 20 a4 76 61 72 28  |....:..... .var(|
000044f0  6d 6f 64 65 25 2c 76 61  72 25 29 0d 1d 9c 08 ea  |mode%,var%).....|
00004500  20 76 25 0d 1d a6 2e c8  99 20 22 4f 53 5f 52 65  | v%...... "OS_Re|
00004510  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
00004520  6d 6f 64 65 25 2c 76 61  72 25 20 b8 20 2c 2c 76  |mode%,var% . ,,v|
00004530  25 0d 1d b0 07 3d 76 25  0d 1d ba 05 3a 0d 1d c4  |%....=v%....:...|
00004540  0f dd 20 f2 69 6e 74 5f  68 65 6c 70 0d 1d ce 14  |.. .int_help....|
00004550  6d 65 73 73 25 21 31 32  3d 6d 65 73 73 25 21 38  |mess%!12=mess%!8|
00004560  0d 1d d8 11 6d 65 73 73  25 21 31 36 3d 26 35 30  |....mess%!16=&50|
00004570  33 0d 1d e2 2b 68 65 6c  70 24 3d a4 67 65 74 5f  |3...+help$=.get_|
00004580  68 65 6c 70 5f 74 65 78  74 28 6d 65 73 73 25 21  |help_text(mess%!|
00004590  33 32 2c 6d 65 73 73 25  21 33 36 29 0d 1d ec 1b  |32,mess%!36)....|
000045a0  24 28 6d 65 73 73 25 2b  32 30 29 3d c0 68 65 6c  |$(mess%+20)=.hel|
000045b0  70 24 2c 32 33 32 29 0d  1d f6 1d 21 6d 65 73 73  |p$,232)....!mess|
000045c0  25 3d 28 a9 20 68 65 6c  70 24 2b 32 35 29 20 80  |%=(. help$+25) .|
000045d0  20 ac 20 33 0d 1e 00 2a  c8 99 20 22 57 69 6d 70  | . 3...*.. "Wimp|
000045e0  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
000045f0  2c 6d 65 73 73 25 2c 6d  65 73 73 25 21 34 0d 1e  |,mess%,mess%!4..|
00004600  0a 05 e1 0d 1e 14 05 3a  0d 1e 1e 23 dd 20 a4 67  |.......:...#. .g|
00004610  65 74 5f 68 65 6c 70 5f  74 65 78 74 28 77 69 6e  |et_help_text(win|
00004620  64 6f 77 25 2c 69 63 6f  6e 25 29 0d 1e 28 0e ea  |dow%,icon%)..(..|
00004630  20 68 65 6c 70 24 2c 69  25 0d 1e 32 10 c8 8e 20  | help$,i%..2... |
00004640  77 69 6e 64 6f 77 25 20  ca 0d 1e 3c 0a 20 c9 20  |window% ...<. . |
00004650  2d 32 3a 0d 1e 46 27 20  20 69 25 3d a4 66 69 6e  |-2:..F'  i%=.fin|
00004660  64 5f 65 6c 65 6d 28 69  63 6f 6e 25 2c 70 72 6f  |d_elem(icon%,pro|
00004670  63 5f 69 63 6f 6e 25 28  29 29 0d 1e 50 0e 20 20  |c_icon%())..P.  |
00004680  e7 20 69 25 3d 30 20 8c  0d 1e 5a 4f 20 20 20 68  |. i%=0 ...ZO   h|
00004690  65 6c 70 24 3d 22 54 68  69 73 20 69 73 20 74 68  |elp$="This is th|
000046a0  65 20 42 49 4f 20 69 63  6f 6e 2e 20 54 68 65 72  |e BIO icon. Ther|
000046b0  65 20 61 72 65 20 63 75  72 72 65 6e 74 6c 79 20  |e are currently |
000046c0  6e 6f 20 42 49 4f 20 6d  6f 64 75 6c 65 73 20 72  |no BIO modules r|
000046d0  75 6e 6e 69 6e 67 22 0d  1e 64 07 20 20 cc 0d 1e  |unning"..d.  ...|
000046e0  6e 4f 20 20 20 68 65 6c  70 24 3d 22 54 68 69 73  |nO   help$="This|
000046f0  20 69 73 20 74 68 65 20  22 2b 6c 69 62 5f 6e 61  | is the "+lib_na|
00004700  6d 65 24 28 69 25 29 2b  22 20 69 63 6f 6e 2e 7c  |me$(i%)+" icon.||
00004710  4d 22 2b a4 68 65 6c 70  28 2d 31 2c 2d 31 2c 6c  |M"+.help(-1,-1,l|
00004720  69 62 5f 70 72 6f 63 24  28 69 25 29 29 0d 1e 78  |ib_proc$(i%))..x|
00004730  07 20 20 cd 0d 1e 82 12  20 c9 20 69 6e 66 6f 5f  |.  ..... . info_|
00004740  68 61 6e 64 25 3a 0d 1e  8c 39 20 20 68 65 6c 70  |hand%:...9  help|
00004750  24 3d 22 54 68 69 73 20  77 69 6e 64 6f 77 20 64  |$="This window d|
00004760  69 73 70 6c 61 79 73 20  69 6e 66 6f 72 6d 61 74  |isplays informat|
00004770  69 6f 6e 20 61 62 6f 75  74 20 42 49 4f 2e 22 0d  |ion about BIO.".|
00004780  1e 96 11 20 c9 20 73 61  76 65 5f 68 61 6e 64 25  |... . save_hand%|
00004790  0d 1e a0 10 20 20 c8 8e  20 69 63 6f 6e 25 20 ca  |....  .. icon% .|
000047a0  0d 1e aa 41 20 20 20 c9  20 2d 31 3a 68 65 6c 70  |...A   . -1:help|
000047b0  24 3d 22 54 68 69 73 20  62 6f 78 20 61 6c 6c 6f  |$="This box allo|
000047c0  77 73 20 79 6f 75 20 74  6f 20 73 61 76 65 20 79  |ws you to save y|
000047d0  6f 75 72 20 65 64 69 74  65 64 20 66 69 6c 65 2e  |our edited file.|
000047e0  22 0d 1e b4 94 20 20 20  c9 20 30 3a 68 65 6c 70  |"....   . 0:help|
000047f0  24 3d 22 43 6c 69 63 6b  20 68 65 72 65 20 74 6f  |$="Click here to|
00004800  20 73 61 76 65 20 74 68  65 20 64 61 74 61 20 77  | save the data w|
00004810  69 74 68 20 74 68 65 20  63 75 72 72 65 6e 74 20  |ith the current |
00004820  66 69 6c 65 6e 61 6d 65  2e 20 49 66 20 69 74 20  |filename. If it |
00004830  69 73 20 6e 6f 74 20 61  20 66 75 6c 6c 20 70 61  |is not a full pa|
00004840  74 68 6e 61 6d 65 2c 20  79 6f 75 20 6d 75 73 74  |thname, you must|
00004850  20 64 72 61 67 20 74 68  65 20 69 63 6f 6e 20 74  | drag the icon t|
00004860  6f 20 61 20 64 69 72 65  63 74 6f 72 79 20 66 69  |o a directory fi|
00004870  72 73 74 2e 22 0d 1e be  9b 20 20 20 c9 20 31 3a  |rst."....   . 1:|
00004880  68 65 6c 70 24 3d 22 44  72 61 67 20 74 68 69 73  |help$="Drag this|
00004890  20 69 63 6f 6e 20 74 6f  20 74 68 65 20 64 69 72  | icon to the dir|
000048a0  65 63 74 6f 72 79 20 69  6e 20 77 68 69 63 68 20  |ectory in which |
000048b0  79 6f 75 20 77 61 6e 74  20 74 6f 20 73 61 76 65  |you want to save|
000048c0  20 74 68 65 20 66 69 6c  65 2e 20 4f 72 2c 20 64  | the file. Or, d|
000048d0  72 61 67 20 69 74 20 74  6f 20 74 68 65 20 70 72  |rag it to the pr|
000048e0  6f 67 72 61 6d 20 69 6e  74 6f 20 77 68 69 63 68  |ogram into which|
000048f0  20 79 6f 75 20 77 61 6e  74 20 74 6f 20 74 72 61  | you want to tra|
00004900  6e 73 66 65 72 20 74 68  65 20 64 61 74 61 2e 22  |nsfer the data."|
00004910  0d 1e c8 7f 20 20 20 c9  20 32 3a 68 65 6c 70 24  |....   . 2:help$|
00004920  3d 22 54 68 69 73 20 73  68 6f 77 73 20 74 68 65  |="This shows the|
00004930  20 66 69 6c 65 6e 61 6d  65 20 66 6f 72 20 74 68  | filename for th|
00004940  69 73 20 64 61 74 61 2e  20 49 66 20 69 74 20 69  |is data. If it i|
00004950  73 20 6e 6f 74 20 61 20  66 75 6c 6c 20 70 61 74  |s not a full pat|
00004960  68 6e 61 6d 65 2c 20 64  72 61 67 20 74 68 65 20  |hname, drag the |
00004970  69 63 6f 6e 20 69 6e 74  6f 20 61 20 64 69 72 65  |icon into a dire|
00004980  63 74 6f 72 79 20 64 69  73 70 6c 61 79 2e 22 0d  |ctory display.".|
00004990  1e d2 07 20 20 cb 0d 1e  dc 05 7f 0d 1e e6 28 20  |...  .........( |
000049a0  69 25 3d a4 66 69 6e 64  5f 65 6c 65 6d 28 77 69  |i%=.find_elem(wi|
000049b0  6e 64 6f 77 25 2c 77 69  6e 64 5f 68 61 6e 64 25  |ndow%,wind_hand%|
000049c0  28 29 29 0d 1e f0 0d 20  e7 20 69 25 3e 30 20 8c  |()).... . i%>0 .|
000049d0  0d 1e fa 5e 20 20 68 65  6c 70 24 3d 22 54 68 69  |...^  help$="Thi|
000049e0  73 20 69 73 20 74 68 65  20 22 2b 6c 69 62 5f 6e  |s is the "+lib_n|
000049f0  61 6d 65 24 28 69 25 29  2b 22 20 73 65 74 20 75  |ame$(i%)+" set u|
00004a00  70 20 77 69 6e 64 6f 77  7c 4d 22 2b a4 68 65 6c  |p window|M"+.hel|
00004a10  70 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2c  |p(window%,icon%,|
00004a20  6c 69 62 5f 70 72 6f 63  24 28 69 25 29 29 0d 1f  |lib_proc$(i%))..|
00004a30  04 06 20 cc 0d 1f 0e 2b  20 20 69 25 3d a4 66 69  |.. ....+  i%=.fi|
00004a40  6e 64 5f 65 6c 65 6d 28  77 69 6e 64 6f 77 25 2c  |nd_elem(window%,|
00004a50  72 65 73 75 6c 74 5f 68  61 6e 64 25 28 29 29 0d  |result_hand%()).|
00004a60  1f 18 53 20 20 68 65 6c  70 24 3d 22 54 68 69 73  |..S  help$="This|
00004a70  20 69 73 20 74 68 65 20  6f 75 74 70 75 74 20 66  | is the output f|
00004a80  72 6f 6d 20 22 2b 6c 69  62 5f 6e 61 6d 65 24 28  |rom "+lib_name$(|
00004a90  69 25 29 2b 22 7c 4d 22  2b a4 68 65 6c 70 28 31  |i%)+"|M"+.help(1|
00004aa0  2c 2d 31 2c 6c 69 62 5f  70 72 6f 63 24 28 69 25  |,-1,lib_proc$(i%|
00004ab0  29 29 0d 1f 22 06 20 cd  0d 1f 2c 05 cb 0d 1f 36  |))..". ...,....6|
00004ac0  0a 3d 68 65 6c 70 24 0d  1f 40 05 3a 0d 1f 4a 22  |.=help$..@.:..J"|
00004ad0  dd 20 a4 68 65 6c 70 28  77 69 6e 64 6f 77 25 2c  |. .help(window%,|
00004ae0  69 63 6f 6e 25 2c 6d 6f  64 75 6c 65 24 29 0d 1f  |icon%,module$)..|
00004af0  54 08 ea 20 68 24 0d 1f  5e 07 ea 20 85 0d 1f 68  |T.. h$..^.. ...h|
00004b00  11 ee 20 85 20 ea 20 f7  20 85 3a 3d 22 22 0d 1f  |.. . . . .:=""..|
00004b10  72 2d 68 24 3d a0 28 22  46 4e 22 2b 6d 6f 64 75  |r-h$=.("FN"+modu|
00004b20  6c 65 24 2b 22 5f 68 65  6c 70 28 77 69 6e 64 6f  |le$+"_help(windo|
00004b30  77 25 2c 69 63 6f 6e 25  29 22 29 0d 1f 7c 07 f7  |w%,icon%)")..|..|
00004b40  20 85 0d 1f 86 07 3d 68  24 0d 1f 90 05 3a 0d 1f  | .....=h$....:..|
00004b50  9a 2a dd 20 a4 68 65 6c  70 5f 6f 6e 5f 69 63 6f  |.*. .help_on_ico|
00004b60  6e 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2c  |n(window%,icon%,|
00004b70  68 31 24 2c 68 32 24 29  0d 1f a4 32 e7 20 a4 62  |h1$,h2$)...2. .b|
00004b80  75 74 74 6f 6e 5f 73 74  61 74 65 28 77 69 6e 64  |utton_state(wind|
00004b90  6f 77 25 2c 69 63 6f 6e  25 29 3d 30 20 8c 20 3d  |ow%,icon%)=0 . =|
00004ba0  68 31 24 20 8b 20 3d 68  32 24 0d 1f ae 05 3a 0d  |h1$ . =h2$....:.|
00004bb0  1f b8 10 dd 20 a4 73 77  69 28 73 77 69 24 29 0d  |.... .swi(swi$).|
00004bc0  1f c2 0e ea 20 73 77 69  25 2c 6f 6b 25 0d 1f cc  |.... swi%,ok%...|
00004bd0  31 c8 99 20 22 58 4f 53  5f 53 57 49 4e 75 6d 62  |1.. "XOS_SWINumb|
00004be0  65 72 46 72 6f 6d 53 74  72 69 6e 67 22 2c 2c 73  |erFromString",,s|
00004bf0  77 69 24 20 b8 20 73 77  69 25 3b 6f 6b 25 0d 1f  |wi$ . swi%;ok%..|
00004c00  d6 19 e7 20 28 6f 6b 25  20 80 20 31 29 3e 30 20  |... (ok% . 1)>0 |
00004c10  73 77 69 25 3d 2d 31 0d  1f e0 09 3d 73 77 69 25  |swi%=-1....=swi%|
00004c20  0d 1f ea 05 3a 0d 1f f4  17 dd 20 a4 72 65 61 64  |....:..... .read|
00004c30  5f 63 6d 6f 73 28 62 79  74 65 25 29 0d 1f fe 24  |_cmos(byte%)...$|
00004c40  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 36 31  |.. "OS_Byte",161|
00004c50  2c 62 79 74 65 25 20 b8  20 2c 2c 62 79 74 65 25  |,byte% . ,,byte%|
00004c60  0d 20 08 0a 3d 62 79 74  65 25 0d 20 12 05 3a 0d  |. ..=byte%. ..:.|
00004c70  20 1c 11 dd 20 f2 63 6c  6f 73 65 5f 64 6f 77 6e  | ... .close_down|
00004c80  0d 20 26 12 e7 20 72 75  6e 6e 69 6e 67 25 3e 30  |. &.. running%>0|
00004c90  20 8c 0d 20 30 16 20 e3  20 69 25 3d 31 20 b8 20  | .. 0. . i%=1 . |
00004ca0  72 75 6e 6e 69 6e 67 25  0d 20 3a 18 20 20 70 72  |running%. :.  pr|
00004cb0  6f 63 25 3d 72 75 6e 6e  69 6e 67 25 28 69 25 29  |oc%=running%(i%)|
00004cc0  0d 20 44 37 20 20 e7 20  72 65 73 75 6c 74 5f 6f  |. D7  . result_o|
00004cd0  70 65 6e 25 28 70 72 6f  63 25 29 20 f2 63 6c 6f  |pen%(proc%) .clo|
00004ce0  73 65 28 72 65 73 75 6c  74 5f 68 61 6e 64 25 28  |se(result_hand%(|
00004cf0  70 72 6f 63 25 29 29 0d  20 4e 06 20 ed 0d 20 58  |proc%)). N. .. X|
00004d00  05 cd 0d 20 62 17 c8 99  20 22 57 69 6d 70 5f 43  |... b... "Wimp_C|
00004d10  6c 6f 73 65 44 6f 77 6e  22 0d 20 6c 05 e1 0d 20  |loseDown". l... |
00004d20  76 05 3a 0d 20 80 14 dd  20 f2 6c 6f 61 64 5f 70  |v.:. ... .load_p|
00004d30  61 6c 65 74 74 65 73 0d  20 8a 33 c8 99 20 22 4f  |alettes. .3.. "O|
00004d40  53 5f 46 69 6c 65 22 2c  35 2c 22 3c 42 69 6f 24  |S_File",5,"<Bio$|
00004d50  44 69 72 3e 2e 50 61 6c  65 74 74 65 73 22 20 b8  |Dir>.Palettes" .|
00004d60  20 2c 2c 2c 2c 70 6c 65  6e 25 0d 20 94 18 de 20  | ,,,,plen%. ... |
00004d70  70 61 6c 65 74 74 65 73  25 20 70 6c 65 6e 25 2b  |palettes% plen%+|
00004d80  31 36 0d 20 9e 17 21 70  61 6c 65 74 74 65 73 25  |16. ..!palettes%|
00004d90  3d 70 6c 65 6e 25 2b 31  36 0d 20 a8 12 70 61 6c  |=plen%+16. ..pal|
00004da0  65 74 74 65 73 25 21 38  3d 31 36 0d 20 b2 24 c8  |ettes%!8=16. .$.|
00004db0  99 20 22 58 4f 53 5f 53  70 72 69 74 65 4f 70 22  |. "XOS_SpriteOp"|
00004dc0  2c 26 31 30 39 2c 70 61  6c 65 74 74 65 73 25 0d  |,&109,palettes%.|
00004dd0  20 bc 39 c8 99 20 22 58  4f 53 5f 53 70 72 69 74  | .9.. "XOS_Sprit|
00004de0  65 4f 70 22 2c 26 31 30  41 2c 70 61 6c 65 74 74  |eOp",&10A,palett|
00004df0  65 73 25 2c 22 3c 42 69  6f 24 44 69 72 3e 2e 50  |es%,"<Bio$Dir>.P|
00004e00  61 6c 65 74 74 65 73 22  0d 20 c6 05 e1 0d 20 d0  |alettes". .... .|
00004e10  05 3a 0d 20 da 23 dd 20  f2 6f 70 65 6e 5f 73 70  |.:. .#. .open_sp|
00004e20  72 5f 73 61 76 65 28 78  25 2c 79 25 2c 68 61 6e  |r_save(x%,y%,han|
00004e30  64 6c 65 25 29 0d 20 e4  0b ea 20 70 72 6f 63 25  |dle%). ... proc%|
00004e40  0d 20 ee 2c 70 72 6f 63  25 3d a4 66 69 6e 64 5f  |. .,proc%=.find_|
00004e50  65 6c 65 6d 28 68 61 6e  64 6c 65 25 2c 72 65 73  |elem(handle%,res|
00004e60  75 6c 74 5f 68 61 6e 64  25 28 29 29 0d 20 f8 10  |ult_hand%()). ..|
00004e70  e7 20 70 72 6f 63 25 3c  3e 30 20 8c 0d 21 02 4e  |. proc%<>0 ..!.N|
00004e80  20 e7 20 28 6c 69 62 5f  66 6c 61 67 73 25 28 70  | . (lib_flags%(p|
00004e90  72 6f 63 25 29 20 80 20  33 32 29 3e 30 20 f2 6f  |roc%) . 32)>0 .o|
00004ea0  70 65 6e 5f 73 61 76 65  28 6d 6f 75 73 65 78 25  |pen_save(mousex%|
00004eb0  2d 36 34 2c 6d 6f 75 73  65 79 25 2d 36 34 2c 26  |-64,mousey%-64,&|
00004ec0  46 46 39 2c 70 72 6f 63  25 29 0d 21 0c 05 cd 0d  |FF9,proc%).!....|
00004ed0  21 16 05 e1 0d 21 20 05  3a 0d 21 2a 15 dd 20 f2  |!....! .:.!*.. .|
00004ee0  70 61 6c 65 74 74 65 5f  63 68 61 6e 67 65 0d 21  |palette_change.!|
00004ef0  34 0e ea 20 69 25 2c 70  72 6f 63 25 0d 21 3e 15  |4.. i%,proc%.!>.|
00004f00  e3 20 69 25 3d 31 20 b8  20 72 75 6e 6e 69 6e 67  |. i%=1 . running|
00004f10  25 0d 21 48 17 20 70 72  6f 63 25 3d 72 75 6e 6e  |%.!H. proc%=runn|
00004f20  69 6e 67 25 28 69 25 29  0d 21 52 5a 20 e7 20 72  |ing%(i%).!RZ . r|
00004f30  65 73 75 6c 74 5f 6f 70  65 6e 25 28 70 72 6f 63  |esult_open%(proc|
00004f40  25 29 20 80 20 28 6c 69  62 5f 66 6c 61 67 73 25  |%) . (lib_flags%|
00004f50  28 70 72 6f 63 25 29 20  80 20 33 32 29 3e 30 20  |(proc%) . 32)>0 |
00004f60  f2 66 6f 72 63 65 5f 72  65 64 72 61 77 28 72 65  |.force_redraw(re|
00004f70  73 75 6c 74 5f 68 61 6e  64 25 28 70 72 6f 63 25  |sult_hand%(proc%|
00004f80  29 29 0d 21 5c 05 ed 0d  21 66 05 e1 0d 21 70 05  |)).!\...!f...!p.|
00004f90  3a 0d 21 7a 1a dd 20 f2  66 6f 72 63 65 5f 72 65  |:.!z.. .force_re|
00004fa0  64 72 61 77 28 68 61 6e  64 25 29 0d 21 84 31 c8  |draw(hand%).!.1.|
00004fb0  99 20 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |. "Wimp_ForceRed|
00004fc0  72 61 77 22 2c 68 61 6e  64 25 2c 2d 31 45 38 2c  |raw",hand%,-1E8,|
00004fd0  2d 31 45 38 2c 31 45 38  2c 31 45 38 0d 21 8e 05  |-1E8,1E8,1E8.!..|
00004fe0  e1 0d 21 98 05 3a 0d 21  a2 2d dd 20 a4 63 72 65  |..!..:.!.-. .cre|
00004ff0  61 74 65 5f 77 69 6e 64  6f 77 28 6d 6f 64 65 25  |ate_window(mode%|
00005000  2c 78 72 65 73 25 2c 79  72 65 73 25 2c 6e 61 6d  |,xres%,yres%,nam|
00005010  65 24 29 0d 21 ac 37 e7  20 78 72 65 73 25 3c 30  |e$).!.7. xres%<0|
00005020  20 78 72 65 73 25 3d 2d  78 72 65 73 25 20 8b 20  | xres%=-xres% . |
00005030  78 72 65 73 25 3d 78 72  65 73 25 3e 3e a4 76 61  |xres%=xres%>>.va|
00005040  72 28 6d 6f 64 65 25 2c  34 29 0d 21 b6 37 e7 20  |r(mode%,4).!.7. |
00005050  79 72 65 73 25 3c 30 20  79 72 65 73 25 3d 2d 79  |yres%<0 yres%=-y|
00005060  72 65 73 25 20 8b 20 79  72 65 73 25 3d 79 72 65  |res% . yres%=yre|
00005070  73 25 3e 3e a4 76 61 72  28 6d 6f 64 65 25 2c 35  |s%>>.var(mode%,5|
00005080  29 0d 21 c0 35 73 70 72  5f 62 61 73 65 25 3d a4  |).!.5spr_base%=.|
00005090  6d 61 6b 65 5f 61 5f 73  70 72 69 74 65 28 6e 61  |make_a_sprite(na|
000050a0  6d 65 24 2c 78 72 65 73  25 2c 79 72 65 73 25 2c  |me$,xres%,yres%,|
000050b0  6d 6f 64 65 25 29 0d 21  ca 13 e7 20 73 70 72 5f  |mode%).!... spr_|
000050c0  62 61 73 65 25 3d 30 20  8c 0d 21 d4 2d 20 f2 77  |base%=0 ..!.- .w|
000050d0  61 72 6e 28 22 4e 6f 74  20 65 6e 6f 75 67 68 20  |arn("Not enough |
000050e0  52 4d 41 20 74 6f 20 63  72 65 61 74 65 20 77 69  |RMA to create wi|
000050f0  6e 64 6f 77 22 29 0d 21  de 05 cc 0d 21 e8 2b 20  |ndow").!....!.+ |
00005100  c8 99 20 22 58 4f 53 5f  53 70 72 69 74 65 4f 70  |.. "XOS_SpriteOp|
00005110  22 2c 26 31 33 43 2c 73  70 72 5f 62 61 73 65 25  |",&13C,spr_base%|
00005120  2c 6e 61 6d 65 24 0d 21  f2 18 20 77 69 6e 64 6f  |,name$.!.. windo|
00005130  77 5f 74 69 74 6c 65 24  3d 6e 61 6d 65 24 0d 21  |w_title$=name$.!|
00005140  fc 05 cd 0d 22 06 0e 3d  73 70 72 5f 62 61 73 65  |...."..=spr_base|
00005150  25 0d 22 10 05 3a 0d 22  1a 2d dd 20 a4 6d 61 6b  |%."..:.".-. .mak|
00005160  65 5f 61 5f 73 70 72 69  74 65 28 73 70 72 6e 24  |e_a_sprite(sprn$|
00005170  2c 73 70 72 78 25 2c 73  70 72 79 25 2c 73 70 72  |,sprx%,spry%,spr|
00005180  6d 25 29 0d 22 24 26 e7  20 73 70 72 6d 25 3d 33  |m%)."$&. sprm%=3|
00005190  20 84 20 73 70 72 6d 25  3d 36 20 84 20 73 70 72  | . sprm%=6 . spr|
000051a0  6d 25 3d 37 20 8c 20 3d  30 0d 22 2e 19 70 61 6c  |m%=7 . =0."..pal|
000051b0  73 25 3d a4 76 61 72 28  73 70 72 6d 25 2c 33 29  |s%=.var(sprm%,3)|
000051c0  2b 31 0d 22 38 1b 6c 6f  67 32 62 70 70 25 3d a4  |+1."8.log2bpp%=.|
000051d0  76 61 72 28 73 70 72 6d  25 2c 31 30 29 0d 22 42  |var(sprm%,10)."B|
000051e0  41 73 70 72 69 74 65 73  69 7a 65 25 3d 73 70 72  |Aspritesize%=spr|
000051f0  79 25 2a 28 28 28 73 70  72 78 25 3c 3c 6c 6f 67  |y%*(((sprx%<<log|
00005200  32 62 70 70 25 29 2b 33  31 29 80 ac 33 31 29 20  |2bpp%)+31)..31) |
00005210  81 20 38 2b 34 34 2b 70  61 6c 73 25 2a 38 0d 22  |. 8+44+pals%*8."|
00005220  4c 32 c8 99 20 22 58 4f  53 5f 4d 6f 64 75 6c 65  |L2.. "XOS_Module|
00005230  22 2c 36 2c 2c 2c 73 70  72 69 74 65 73 69 7a 65  |",6,,,spritesize|
00005240  25 2b 32 30 20 b8 20 2c  2c 72 6d 61 25 3b 6f 6b  |%+20 . ,,rma%;ok|
00005250  0d 22 56 15 e7 20 28 6f  6b 20 80 20 31 29 3e 30  |."V.. (ok . 1)>0|
00005260  20 8c 20 3d 30 0d 22 60  18 21 72 6d 61 25 3d 73  | . =0."`.!rma%=s|
00005270  70 72 69 74 65 73 69 7a  65 25 2b 32 30 0d 22 6a  |pritesize%+20."j|
00005280  0d 72 6d 61 25 21 38 3d  31 36 0d 22 74 1f c8 99  |.rma%!8=16."t...|
00005290  20 22 58 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  | "XOS_SpriteOp",|
000052a0  26 31 30 39 2c 72 6d 61  25 0d 22 7e 39 c8 99 20  |&109,rma%."~9.. |
000052b0  22 58 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |"XOS_SpriteOp",&|
000052c0  31 30 46 2c 72 6d 61 25  2c 73 70 72 6e 24 2c 31  |10F,rma%,sprn$,1|
000052d0  2c 73 70 72 78 25 2c 73  70 72 79 25 2c 73 70 72  |,sprx%,spry%,spr|
000052e0  6d 25 0d 22 88 2e f2 63  6f 70 79 5f 70 61 6c 65  |m%."...copy_pale|
000052f0  74 74 65 28 70 61 6c 65  74 74 65 73 25 2c c3 70  |tte(palettes%,.p|
00005300  61 6c 73 25 2c 72 6d 61  25 2c 73 70 72 6e 24 29  |als%,rma%,sprn$)|
00005310  0d 22 92 09 3d 72 6d 61  25 0d 22 9c 05 3a 0d 22  |."..=rma%."..:."|
00005320  a6 2e dd 20 f2 63 6f 70  79 5f 70 61 6c 65 74 74  |... .copy_palett|
00005330  65 28 62 61 73 65 31 25  2c 73 70 72 31 24 2c 62  |e(base1%,spr1$,b|
00005340  61 73 65 32 25 2c 73 70  72 32 24 29 0d 22 b0 11  |ase2%,spr2$)."..|
00005350  ea 20 69 25 2c 61 25 2c  62 25 2c 63 25 0d 22 ba  |. i%,a%,b%,c%.".|
00005360  35 c8 99 20 22 58 4f 53  5f 53 70 72 69 74 65 4f  |5.. "XOS_SpriteO|
00005370  70 22 2c 26 31 32 35 2c  62 61 73 65 31 25 2c 73  |p",&125,base1%,s|
00005380  70 72 31 24 2c 2d 31 20  b8 20 2c 2c 2c 63 25 2c  |pr1$,-1 . ,,,c%,|
00005390  62 25 0d 22 c4 33 c8 99  20 22 58 4f 53 5f 53 70  |b%.".3.. "XOS_Sp|
000053a0  72 69 74 65 4f 70 22 2c  26 31 32 35 2c 62 61 73  |riteOp",&125,bas|
000053b0  65 32 25 2c 73 70 72 32  24 2c 2d 31 20 b8 20 2c  |e2%,spr2$,-1 . ,|
000053c0  2c 2c 2c 61 25 0d 22 ce  17 e3 20 69 25 3d 30 20  |,,,a%."... i%=0 |
000053d0  b8 20 63 25 2a 38 2d 31  20 88 20 34 0d 22 d8 10  |. c%*8-1 . 4."..|
000053e0  20 61 25 21 69 25 3d 62  25 21 69 25 0d 22 e2 05  | a%!i%=b%!i%."..|
000053f0  ed 0d 22 ec 05 e1 0d 22  f6 05 3a 0d 23 00 16 dd  |.."...."..:.#...|
00005400  20 f2 64 65 73 6b 74 6f  70 5f 70 61 6c 65 74 74  | .desktop_palett|
00005410  65 0d 23 0a 0e ea 20 69  25 2c 70 61 6c 73 25 0d  |e.#... i%,pals%.|
00005420  23 14 3f c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |#.?.. "OS_Sprite|
00005430  4f 70 22 2c 26 31 32 38  2c 73 70 72 5f 62 61 73  |Op",&128,spr_bas|
00005440  65 25 2c 77 69 6e 64 6f  77 5f 74 69 74 6c 65 24  |e%,window_title$|
00005450  20 b8 20 2c 2c 2c 2c 2c  2c 73 70 72 6d 25 0d 23  | . ,,,,,,sprm%.#|
00005460  1e 19 70 61 6c 73 25 3d  a4 76 61 72 28 73 70 72  |..pals%=.var(spr|
00005470  6d 25 2c 33 29 2b 31 0d  23 28 4f e7 20 70 61 6c  |m%,3)+1.#(O. pal|
00005480  73 25 3d 34 20 84 20 70  61 6c 73 25 3d 31 36 20  |s%=4 . pals%=16 |
00005490  f2 63 6f 70 79 5f 70 61  6c 65 74 74 65 28 70 61  |.copy_palette(pa|
000054a0  6c 65 74 74 65 73 25 2c  c3 70 61 6c 73 25 2b 22  |lettes%,.pals%+"|
000054b0  77 22 2c 73 70 72 5f 62  61 73 65 25 2c 22 4f 75  |w",spr_base%,"Ou|
000054c0  74 70 75 74 22 29 0d 23  32 05 e1 0d 23 3c 05 3a  |tput").#2...#<.:|
000054d0  0d 23 46 16 dd 20 f2 63  75 72 72 65 6e 74 5f 70  |.#F.. .current_p|
000054e0  61 6c 65 74 74 65 0d 23  50 17 ea 20 65 6e 74 72  |alette.#P.. entr|
000054f0  69 65 73 25 2c 70 61 6c  65 74 74 65 25 0d 23 5a  |ies%,palette%.#Z|
00005500  4c c8 99 20 22 58 4f 53  5f 53 70 72 69 74 65 4f  |L.. "XOS_SpriteO|
00005510  70 22 2c 26 31 32 35 2c  73 70 72 5f 62 61 73 65  |p",&125,spr_base|
00005520  25 2c 77 69 6e 64 6f 77  5f 74 69 74 6c 65 24 2c  |%,window_title$,|
00005530  2d 31 20 b8 20 2c 2c 2c  65 6e 74 72 69 65 73 25  |-1 . ,,,entries%|
00005540  2c 70 61 6c 65 74 74 65  25 0d 23 64 14 e7 20 65  |,palette%.#d.. e|
00005550  6e 74 72 69 65 73 25 3c  3e 36 34 20 8c 0d 23 6e  |ntries%<>64 ..#n|
00005560  18 20 e3 20 69 25 3d 30  20 b8 20 65 6e 74 72 69  |. . i%=0 . entri|
00005570  65 73 25 2d 31 0d 23 78  33 20 20 c8 99 20 22 4f  |es%-1.#x3  .. "O|
00005580  53 5f 52 65 61 64 50 61  6c 65 74 74 65 22 2c 69  |S_ReadPalette",i|
00005590  25 2c 31 36 20 b8 20 2c  2c 70 61 6c 65 74 74 65  |%,16 . ,,palette|
000055a0  25 21 28 69 25 2a 38 29  0d 23 82 09 20 ed 20 69  |%!(i%*8).#.. . i|
000055b0  25 0d 23 8c 05 cd 0d 23  96 05 e1 0d 23 a0 05 3a  |%.#....#....#..:|
000055c0  0d 23 aa 19 dd 20 f2 76  64 75 31 39 28 63 25 2c  |.#... .vdu19(c%,|
000055d0  72 25 2c 67 25 2c 62 25  29 0d 23 b4 17 ea 20 65  |r%,g%,b%).#... e|
000055e0  6e 74 72 69 65 73 25 2c  70 61 6c 65 74 74 65 25  |ntries%,palette%|
000055f0  0d 23 be 4c c8 99 20 22  58 4f 53 5f 53 70 72 69  |.#.L.. "XOS_Spri|
00005600  74 65 4f 70 22 2c 26 31  32 35 2c 73 70 72 5f 62  |teOp",&125,spr_b|
00005610  61 73 65 25 2c 77 69 6e  64 6f 77 5f 74 69 74 6c  |ase%,window_titl|
00005620  65 24 2c 2d 31 20 b8 20  2c 2c 2c 65 6e 74 72 69  |e$,-1 . ,,,entri|
00005630  65 73 25 2c 70 61 6c 65  74 74 65 25 0d 23 c8 44  |es%,palette%.#.D|
00005640  e7 20 63 25 3c 65 6e 74  72 69 65 73 25 20 70 61  |. c%<entries% pa|
00005650  6c 65 74 74 65 25 21 28  63 25 2a 38 29 3d 31 36  |lette%!(c%*8)=16|
00005660  20 84 20 28 72 25 3c 3c  38 29 20 84 20 28 67 25  | . (r%<<8) . (g%|
00005670  3c 3c 31 36 29 20 84 20  28 62 25 3c 3c 32 34 29  |<<16) . (b%<<24)|
00005680  0d 23 d2 05 e1 0d 23 dc  05 3a 0d 23 e6 0e dd 20  |.#....#..:.#... |
00005690  f2 73 61 76 65 5f 69 74  0d 23 f0 28 e7 20 28 6c  |.save_it.#.(. (l|
000056a0  69 62 5f 66 6c 61 67 73  25 28 73 61 76 65 5f 70  |ib_flags%(save_p|
000056b0  72 6f 63 25 29 20 80 20  33 32 29 3c 3e 30 20 8c  |roc%) . 32)<>0 .|
000056c0  0d 23 fa 3a 20 c8 99 20  22 58 4f 53 5f 53 70 72  |.#.: .. "XOS_Spr|
000056d0  69 74 65 4f 70 22 2c 26  31 30 43 2c 72 65 73 75  |iteOp",&10C,resu|
000056e0  6c 74 5f 6f 70 65 6e 25  28 73 61 76 65 5f 70 72  |lt_open%(save_pr|
000056f0  6f 63 25 29 2c 73 61 76  65 24 0d 24 04 05 cc 0d  |oc%),save$.$....|
00005700  24 0e 29 20 c8 99 20 22  4f 53 5f 46 53 43 6f 6e  |$.) .. "OS_FSCon|
00005710  74 72 6f 6c 22 2c 32 36  2c 6a 75 6e 6b 24 2c 73  |trol",26,junk$,s|
00005720  61 76 65 24 2c 26 38 32  0d 24 18 05 cd 0d 24 22  |ave$,&82.$....$"|
00005730  05 e1 0d 24 2c 05 3a 0d  24 36 0d dd 20 f2 63 6c  |...$,.:.$6.. .cl|
00005740  6f 73 65 32 0d 24 40 3b  e7 20 28 6c 69 62 5f 66  |ose2.$@;. (lib_f|
00005750  6c 61 67 73 25 28 70 72  6f 63 25 29 20 80 20 33  |lags%(proc%) . 3|
00005760  32 29 3e 30 20 80 20 72  65 73 75 6c 74 5f 6f 70  |2)>0 . result_op|
00005770  65 6e 25 28 70 72 6f 63  25 29 3c 3e 30 20 8c 0d  |en%(proc%)<>0 ..|
00005780  24 4a 2a 20 c8 99 20 22  4f 53 5f 4d 6f 64 75 6c  |$J* .. "OS_Modul|
00005790  65 22 2c 37 2c 2c 72 65  73 75 6c 74 5f 6f 70 65  |e",7,,result_ope|
000057a0  6e 25 28 70 72 6f 63 25  29 0d 24 54 17 20 e7 20  |n%(proc%).$T. . |
000057b0  73 61 76 65 5f 70 72 6f  63 25 3c 3e 2d 31 20 8c  |save_proc%<>-1 .|
000057c0  0d 24 5e 14 20 20 21 71  25 3d 73 61 76 65 5f 68  |.$^.  !q%=save_h|
000057d0  61 6e 64 25 0d 24 68 1f  20 20 c8 99 20 22 57 69  |and%.$h.  .. "Wi|
000057e0  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
000057f0  2c 71 25 0d 24 72 13 20  20 73 61 76 65 5f 70 72  |,q%.$r.  save_pr|
00005800  6f 63 25 3d 2d 31 0d 24  7c 06 20 cd 0d 24 86 05  |oc%=-1.$|. ..$..|
00005810  cd 0d 24 90 19 72 65 73  75 6c 74 5f 6f 70 65 6e  |..$..result_open|
00005820  25 28 70 72 6f 63 25 29  3d a3 0d 24 9a 05 e1 0d  |%(proc%)=..$....|
00005830  24 a4 05 3a 0d 24 ae 21  dd 20 f2 72 65 64 72 61  |$..:.$.!. .redra|
00005840  77 5f 6f 75 74 70 75 74  28 68 61 6e 64 25 2c 70  |w_output(hand%,p|
00005850  72 6f 63 25 29 0d 24 b8  18 ea 20 69 25 2c 6d 6f  |roc%).$... i%,mo|
00005860  72 65 25 2c 61 78 30 25  2c 61 79 30 25 0d 24 c2  |re%,ax0%,ay0%.$.|
00005870  4f c8 99 20 22 58 4f 53  5f 53 70 72 69 74 65 4f  |O.. "XOS_SpriteO|
00005880  70 22 2c 26 31 32 38 2c  72 65 73 75 6c 74 5f 6f  |p",&128,result_o|
00005890  70 65 6e 25 28 70 72 6f  63 25 29 2c 77 69 6e 64  |pen%(proc%),wind|
000058a0  6f 77 5f 74 69 74 6c 65  24 20 b8 20 2c 2c 2c 2c  |ow_title$ . ,,,,|
000058b0  73 70 72 79 25 2c 2c 6d  6f 64 65 25 0d 24 cc 17  |spry%,,mode%.$..|
000058c0  78 65 69 67 25 3d a4 76  61 72 28 6d 6f 64 65 25  |xeig%=.var(mode%|
000058d0  2c 34 29 0d 24 d6 17 79  65 69 67 25 3d a4 76 61  |,4).$..yeig%=.va|
000058e0  72 28 6d 6f 64 65 25 2c  35 29 0d 24 e0 56 c8 99  |r(mode%,5).$.V..|
000058f0  20 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 53 65  | "ColourTrans_Se|
00005900  6c 65 63 74 54 61 62 6c  65 22 2c 72 65 73 75 6c  |lectTable",resul|
00005910  74 5f 6f 70 65 6e 25 28  70 72 6f 63 25 29 2c 77  |t_open%(proc%),w|
00005920  69 6e 64 6f 77 5f 74 69  74 6c 65 24 2c 2d 31 2c  |indow_title$,-1,|
00005930  2d 31 2c 70 69 78 74 72  61 6e 73 25 2c 25 30 30  |-1,pixtrans%,%00|
00005940  0d 24 ea 14 21 73 63 61  6c 65 25 3d 31 3c 3c 78  |.$..!scale%=1<<x|
00005950  65 69 67 25 0d 24 f4 15  73 63 61 6c 65 25 21 34  |eig%.$..scale%!4|
00005960  3d 31 3c 3c 79 65 69 67  25 0d 24 fe 19 73 63 61  |=1<<yeig%.$..sca|
00005970  6c 65 25 21 38 3d 31 3c  3c a4 76 61 72 28 eb 2c  |le%!8=1<<.var(.,|
00005980  34 29 0d 25 08 1a 73 63  61 6c 65 25 21 31 32 3d  |4).%..scale%!12=|
00005990  31 3c 3c a4 76 61 72 28  eb 2c 35 29 0d 25 12 26  |1<<.var(.,5).%.&|
000059a0  c8 99 20 22 57 69 6d 70  5f 52 65 64 72 61 77 57  |.. "Wimp_RedrawW|
000059b0  69 6e 64 6f 77 22 2c 2c  71 25 20 b8 20 6d 6f 72  |indow",,q% . mor|
000059c0  65 25 0d 25 1c 13 61 78  30 25 3d 71 25 21 34 2d  |e%.%..ax0%=q%!4-|
000059d0  71 25 21 32 30 0d 25 26  23 61 79 30 25 3d 71 25  |q%!20.%&#ay0%=q%|
000059e0  21 31 36 2d 71 25 21 32  34 2d 28 73 70 72 79 25  |!16-q%!24-(spry%|
000059f0  3c 3c 79 65 69 67 25 29  0d 25 30 0c c8 95 20 6d  |<<yeig%).%0... m|
00005a00  6f 72 65 25 0d 25 3a 5a  20 c8 99 20 22 58 4f 53  |ore%.%:Z .. "XOS|
00005a10  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 33 34 2c  |_SpriteOp",&134,|
00005a20  72 65 73 75 6c 74 5f 6f  70 65 6e 25 28 70 72 6f  |result_open%(pro|
00005a30  63 25 29 2c 77 69 6e 64  6f 77 5f 74 69 74 6c 65  |c%),window_title|
00005a40  24 2c 61 78 30 25 2c 61  79 30 25 2c 30 2c 73 63  |$,ax0%,ay0%,0,sc|
00005a50  61 6c 65 25 2c 70 69 78  74 72 61 6e 73 25 0d 25  |ale%,pixtrans%.%|
00005a60  44 27 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 52  |D' .. "Wimp_GetR|
00005a70  65 63 74 61 6e 67 6c 65  22 2c 2c 71 25 20 b8 20  |ectangle",,q% . |
00005a80  6d 6f 72 65 25 0d 25 4e  05 ce 0d 25 58 05 e1 0d  |more%.%N...%X...|
00005a90  25 62 05 3a 0d 25 6c 20  dd 20 f2 6f 70 65 6e 5f  |%b.:.%l . .open_|
00005aa0  6f 75 74 70 75 74 28 70  72 6f 63 25 2c 73 62 61  |output(proc%,sba|
00005ab0  73 65 25 29 0d 25 76 27  24 72 65 73 75 6c 74 5f  |se%).%v'$result_|
00005ac0  74 69 74 6c 65 25 28 70  72 6f 63 25 29 3d 77 69  |title%(proc%)=wi|
00005ad0  6e 64 6f 77 5f 74 69 74  6c 65 24 0d 25 80 47 c8  |ndow_title$.%.G.|
00005ae0  99 20 22 58 4f 53 5f 53  70 72 69 74 65 4f 70 22  |. "XOS_SpriteOp"|
00005af0  2c 26 31 32 38 2c 73 62  61 73 65 25 2c 77 69 6e  |,&128,sbase%,win|
00005b00  64 6f 77 5f 74 69 74 6c  65 24 20 b8 20 2c 2c 2c  |dow_title$ . ,,,|
00005b10  73 70 72 78 25 2c 73 70  72 79 25 2c 2c 6d 6f 64  |sprx%,spry%,,mod|
00005b20  65 25 0d 25 8a 1e 73 70  72 78 25 3d 73 70 72 78  |e%.%..sprx%=sprx|
00005b30  25 3c 3c a4 76 61 72 28  6d 6f 64 65 25 2c 34 29  |%<<.var(mode%,4)|
00005b40  0d 25 94 1e 73 70 72 79  25 3d 73 70 72 79 25 3c  |.%..spry%=spry%<|
00005b50  3c a4 76 61 72 28 6d 6f  64 65 25 2c 35 29 0d 25  |<.var(mode%,5).%|
00005b60  9e 09 21 71 25 3d 30 0d  25 a8 0f 71 25 21 34 3d  |..!q%=0.%..q%!4=|
00005b70  2d 73 70 72 79 25 0d 25  b2 0e 71 25 21 38 3d 73  |-spry%.%..q%!8=s|
00005b80  70 72 78 25 0d 25 bc 0b  71 25 21 31 32 3d 30 0d  |prx%.%..q%!12=0.|
00005b90  25 c6 2e c8 99 20 22 57  69 6d 70 5f 53 65 74 45  |%.... "Wimp_SetE|
00005ba0  78 74 65 6e 74 22 2c 72  65 73 75 6c 74 5f 68 61  |xtent",result_ha|
00005bb0  6e 64 25 28 70 72 6f 63  25 29 2c 71 25 0d 25 d0  |nd%(proc%),q%.%.|
00005bc0  1b 21 71 25 3d 72 65 73  75 6c 74 5f 68 61 6e 64  |.!q%=result_hand|
00005bd0  25 28 70 72 6f 63 25 29  0d 25 da 20 c8 99 20 22  |%(proc%).%. .. "|
00005be0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00005bf0  61 74 65 22 2c 2c 71 25  0d 25 e4 14 71 25 21 31  |ate",,q%.%..q%!1|
00005c00  32 3d 71 25 21 34 2b 73  70 72 78 25 0d 25 ee 14  |2=q%!4+sprx%.%..|
00005c10  71 25 21 38 3d 71 25 21  31 36 2d 73 70 72 79 25  |q%!8=q%!16-spry%|
00005c20  0d 25 f8 0c 71 25 21 32  38 3d 2d 31 0d 26 02 1c  |.%..q%!28=-1.&..|
00005c30  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
00005c40  64 6f 77 22 2c 2c 71 25  0d 26 0c 1e 72 65 73 75  |dow",,q%.&..resu|
00005c50  6c 74 5f 6f 70 65 6e 25  28 70 72 6f 63 25 29 3d  |lt_open%(proc%)=|
00005c60  73 62 61 73 65 25 0d 26  16 05 e1 0d 26 20 05 3a  |sbase%.&....& .:|
00005c70  0d 26 2a 25 dd 20 a4 63  6c 61 69 6d 5f 6d 65 6d  |.&*%. .claim_mem|
00005c80  6f 72 79 28 f8 20 70 74  72 25 2c f8 20 61 6d 6f  |ory(. ptr%,. amo|
00005c90  75 6e 74 25 29 0d 26 34  0a ea 20 6d 65 6d 25 0d  |unt%).&4.. mem%.|
00005ca0  26 3e 32 c8 99 20 22 57  69 6d 70 5f 53 6c 6f 74  |&>2.. "Wimp_Slot|
00005cb0  53 69 7a 65 22 2c 2d 31  2c 2d 31 20 b8 20 77 69  |Size",-1,-1 . wi|
00005cc0  6d 70 5f 63 75 72 72 65  6e 74 25 2c 2c 6d 65 6d  |mp_current%,,mem|
00005cd0  25 0d 26 48 33 c8 99 20  22 57 69 6d 70 5f 53 6c  |%.&H3.. "Wimp_Sl|
00005ce0  6f 74 53 69 7a 65 22 2c  77 69 6d 70 5f 63 75 72  |otSize",wimp_cur|
00005cf0  72 65 6e 74 25 2b 6d 65  6d 25 2c 2d 31 20 b8 20  |rent%+mem%,-1 . |
00005d00  6d 65 6d 25 0d 26 52 0a  70 74 72 25 3d 93 0d 26  |mem%.&R.ptr%=..&|
00005d10  5c 15 61 6d 6f 75 6e 74  25 3d 6d 65 6d 25 2d 70  |\.amount%=mem%-p|
00005d20  74 72 25 0d 26 66 19 63  6c 61 69 6d 65 64 25 3d  |tr%.&f.claimed%=|
00005d30  28 61 6d 6f 75 6e 74 25  3c 3e 30 29 0d 26 70 0d  |(amount%<>0).&p.|
00005d40  3d 63 6c 61 69 6d 65 64  25 0d 26 7a 05 3a 0d 26  |=claimed%.&z.:.&|
00005d50  84 15 dd 20 f2 72 65 6c  65 61 73 65 5f 6d 65 6d  |... .release_mem|
00005d60  6f 72 79 0d 26 8e 27 c8  99 20 22 57 69 6d 70 5f  |ory.&.'.. "Wimp_|
00005d70  53 6c 6f 74 53 69 7a 65  22 2c 77 69 6d 70 5f 63  |SlotSize",wimp_c|
00005d80  75 72 72 65 6e 74 25 2c  2d 31 0d 26 98 0e 63 6c  |urrent%,-1.&..cl|
00005d90  61 69 6d 65 64 25 3d a3  0d 26 a2 05 e1 0d ff     |aimed%=..&.....|
00005d9f