� > <WinSave2$Dir>.!WinSave
:
debugging%=�
.� Copyright Paul Hobbs 1990,1991,1992,1993
� Rheinpfalzstrasse 2
�    85049 Ingolstadt
�             Germany
:
	>� This program and parts thereof may be freely distributed

@� under the terms stated in the help files (use the supplied
*� StrongHlp application to read these.
:

3� � �12:ș"Hourglass_Smash":�:�" at line: ";�:�
:
)ț "<EvntShellSystem$Path>ShellLibRT"
:
ș "Hourglass_On"
:
(ș "Wimp_SlotSize",-1,-1 � progsize%
pagesize%=1<<10
freespace%=&8000+progsize%
�=freespace%+pagesize%
�=freespace%
:
?�shell_HeapManagerInit("<EvntShellSystem$Path>",freespace%)
�shell_Init
4task%=�shell_WimpInit_I(200,"Window Saver Util")
�shell_TraceInit("")
�shell_TraceOn
�shell_ResourcesInit

�app_init
 :
!L� -------------------- Initialise Variables ----------------------------
":
#G_closedown%     =� :� Set this to TRUE when you want the program to
$!                       :� end
%Dchanged%        =� :� Used to keep track of whether the data has
&K                       :� been changed. Call PROCfile_changed() when it
'G                       :� has. But if the program does not use data
(H                       :� files just ignore this variable but do not
)G                       :� delete it as the program checks it before
*&                       :� exiting!
+:
,L� -------------------- Miscelleanous Initialisation --------------------
-:
.� � �shell_Error
/:
0ș "Hourglass_Off"
1�
2+  �shell_Action(�shell_Poll_I(0,task%))
3� _closedown%
4:
5�shell_Exit:�
6:
7L� ======================================================================
8:
9ݤget_op
:� m$
;Ȏ winsave_op% �
<<  � 0:m$=�shell_MenuDecode("WinSave2.Get Window Sprite")
=;  � 1:m$=�shell_MenuDecode("WinSave2.Get Window Group")
>>  � 2:m$=�shell_MenuDecode("WinSave2.Get Window Template")
?3  � 3:m$=�shell_MenuDecode("WinSave2.Get Icon")
@:  � 4:m$=�shell_MenuDecode("WinSave2.Get Screen Area")
A;  � 5:m$=�shell_MenuDecode("WinSave2.Get Whole Screen")
B�
C=m$
D:
E!ݤ_menumaker_iconbar(wh%,ic%)
F� m$
G?ș "Menu_Tick",�shell_MenuBase,�shell_MenuString(�get_op),1
H=0
I:
Jݤ_adjusticonbar(wh%,icon%)
K� m$
L?ș "Menu_Tick",�shell_MenuBase,�shell_MenuString(�get_op),0
M2winsave_op%+=1:� winsave_op%>5 � winsave_op%=0
NȎ winsave_op% �
O2  � 0:�shell_IconbarSetText(-1,sicon,"Sprite")
P1  � 1:�shell_IconbarSetText(-1,sicon,"Group")
Q4  � 2:�shell_IconbarSetText(-1,sicon,"Template")
R0  � 3:�shell_IconbarSetText(-1,sicon,"Icon")
S0  � 4:�shell_IconbarSetText(-1,sicon,"Area")
T2  � 5:�shell_IconbarSetText(-1,sicon,"Screen")
U�
V=0
W:
Xݤ_PreOpenInfo(wh%)
YA�shell_IconPutData(wh%,0,�shell_MessageNoArgs("progInfo0"),0)
ZA�shell_IconPutData(wh%,1,�shell_MessageNoArgs("progInfo1"),0)
[A�shell_IconPutData(wh%,2,�shell_MessageNoArgs("progInfo2"),0)
\A�shell_IconPutData(wh%,3,�shell_MessageNoArgs("progInfo3"),0)
]=0
^:
_ݤ_PreOpenSetUp(wh%)
`2�shell_AttachClickSelect(wh%,-1,"_clicksetup")
a(�shell_AttachHelpTag(wh%,-1,"setup")
b+�shell_IconSet(wh%,2,flag_WithPalette%)
c+�shell_IconSet(wh%,12,flag_BringToTop%)
d-�shell_IconSet(wh%,13,flag_ContentsOnly%)
e=0
f:
gݤ_clickxfer(wh%,ih%)
h� void%
iȎ ih% �
j
  � 0:
k    Ȏ winsave_op% �
l8      � 0:void%=�_do_save(�shell_IconGetData(wh%,1))
mA      � 2:void%=�_do_save_template(�shell_IconGetData(wh%,1))
n  �
o�
p=0
q:
rݤ_clicksetup(wh%,ih%)
s� void%,X%
tȎ ih% �
u  � 0:� 'OK'
v-    � library handles closing the menu...
w7    flag_WithPalette% =�shell_IsIconSelected(wh%,2)
x8    flag_BringToTop%  =�shell_IsIconSelected(wh%,12)
y8    flag_ContentsOnly%=�shell_IsIconSelected(wh%,13)
z  � 10:� 'Cancel'
{    �shell_CloseWindow(wh%)
|  � 11:� 'Save'
}7    flag_WithPalette% =�shell_IsIconSelected(wh%,2)
~8    flag_BringToTop%  =�shell_IsIconSelected(wh%,12)
8    flag_ContentsOnly%=�shell_IsIconSelected(wh%,13)
�)    X%=�(�shell_GetAppDir+".Choices")
�       �#X%,flag_WithPalette%
�      �#X%,flag_BringToTop%
�!      �#X%,flag_ContentsOnly%
�
    �# X%
�    ș "Wimp_CreateMenu",-1
��
�=0
�:
�ݤ_PrepareForGrab(void%)
�8� save_buff%<>0 � �shell_HeapBlockReturn(save_buff%)
�=� find handle of window under pointer (before we open the
�� save as box!!
�!ș "Wimp_GetPointerInfo",,_Q%
�targetwindow%=_Q%!12
�Ȏ winsave_op% �
�  � 0:�SaveAsSpriteFile
�
  � 1:
�  � 2:�SaveAsTemplateFile
�
  � 3:
�
  � 4:
�
  � 5:
�    � flag_WithPalette% �
�!      �("ScreenSave "+$path%)
�	    �
�	    �
�  
�  �
�=0
�:
�� �shell_DoBackgroundTask
�� void%
�� flag_GrabPending% �
�-  � �shell_WindowIsOnTop(targetwindow%) �
�    flag_GrabPending%=�
�.    � Grab sprite and open file save box..
�    �SaveSprite
�+    void%=�_PreOpenXfer(xfer%,"sprite")
�&    �shell_OpenWindowStatic(xfer%)
�  �
�0    � Window is not on top, go round again..
�4    �shell_Tracef0("DoBackgroundTask:Waiting..")
�  �
��
��
�:
�� �SaveAsSpriteFile
�� void%
�ș "Hourglass_On"
�� flag_BringToTop% �
�C  � Grabbing of sprite must be deferred until the target window
�F  � has been brought to the top of the stack. Therefore set a flag
�J  � and use it to check the target window on the next null wimp poll..
�,  �shell_WindowBringToTop(targetwindow%)
�  flag_GrabPending%=�
��
�9  � BringToTop flag not set, so just save it anyway..
�  flag_GrabPending%=�
�  �SaveSprite
�)  void%=�_PreOpenXfer(xfer%,"sprite")
�$  �shell_OpenWindowStatic(xfer%)
��
�ș "Hourglass_Off"
��
�:
�� �SaveSprite
�%� Actually save the sprite file..
�� est_size%
�_Q%!0=targetwindow%
�� flag_ContentsOnly% �
�#  ș "Wimp_GetWindowState",,_Q%
��
�%  ș "Wimp_GetWindowOutline",,_Q%
��
�Best_size%=�get_est_savesize(_Q%!4,_Q%!8,(_Q%!12)-1,(_Q%!16)-1)
�/save_buff%=�shell_HeapBlockFetch(est_size%)
�Jsave_buff%!0=outblk%!0:save_buff%!4=0:save_buff%!8=16:save_buff%!12=16
�bș "OS_SpriteOp",272,save_buff%,name_buff%,flag_WithPalette%,_Q%!4,_Q%!8,(_Q%!12)-1,(_Q%!16)-1
��
�:
�"� �_PreOpenXfer(wh%,filetype$)
�Ȏ filetype$ �
�  � "sprite"
�J    �shell_IconPutData(wh%,1,�shell_GetAppDataDir+"."+�get_filename,0)
�A    �shell_AttachDataSave(wh%,2,save_buff%,&FF9,1,"_do_save")
�  � "template"
�C    �shell_IconPutData(wh%,1,�shell_GetAppDataDir+".grabbed",0)
�C    �shell_AttachDataSave(wh%,2,100,&FEC,1,"_do_save_template")
��
�!ș "Wimp_GetPointerInfo",,_Q%
�0�shell_WindowMoveTo(wh%,_Q%!0-100,_Q%!4-140)
�=0
�:
�� �SaveAsTemplateFile
�� void%
�)void%=�_PreOpenXfer(xfer%,"template")
�"�shell_OpenWindowStatic(xfer%)
��
�:
�#� �_do_save_template(fullname$)
�:� I%,freef%,tf_hdr%,tf_fsize%,J%,tf_dataptr%,tf_index%
�5� tf_datasize%,tf_handle%,fontbinding%,indexdata%
�(� discard any existing file buffer..
�8� save_buff%<>0 � �shell_HeapBlockReturn(save_buff%)
�+fontbinding%=�shell_HeapBlockFetch(255)
�0indexdata%  =�shell_HeapBlockFetch(32*24+20)
�$� I%=0 � 255:fontbinding%?I%=0:�
�1freef%=1  : � internal font handle allocation
� tf_hdr%=16:tf_fsize%=48:J%=1
�tf_handle%=�(fullname$)
�tf_dataptr%=tf_hdr%+J%*24+4
�(� I%=0 � tf_hdr%-1:indexdata%?I%=0:�
� tf_index%=indexdata%+tf_hdr%
�� I%=0 � J%-1
�6  _Q%!0=targetwindow%:ș "Wimp_GetWindowInfo",,_Q%
�:  _Q%!68=1:� assume common sprite area when re-loading
�  tf_datasize%=88+32*_Q%!88
�!  �processicon(_Q%+60,_Q%+76)
�  � _Q%!88>0 �processicons
�>  ș "OS_GBPB",1,tf_handle%,_Q%+4,tf_datasize%,tf_dataptr%
�  tf_index%!0=tf_dataptr%
�  tf_index%!4=tf_datasize%
�  tf_index%!8=1
�"  � fullname$="<Wimp$Scrap>" �
�!    $(tf_index%+12)="grabbed"
�  �
�.    $(tf_index%+12)=�shell_Leaf(fullname$)
�  �

-  tf_index%+=24:tf_dataptr%+=tf_datasize%


� I%

!tf_index%=0

7� freef%=1 !indexdata%=-1 � !indexdata%=tf_dataptr%

Aș "OS_GBPB",1,tf_handle%,indexdata%,tf_index%+4-indexdata%,0

� freef%>1 �

,  � I%=0 � tf_fsize%-1:indexdata%?I%=0:�

  � I%=1 � freef%-1

%  J%=0:�J%+=1:�fontbinding%?J%=I%

	F  ș "Font_ReadDefn",J%,indexdata%+8 � ,,indexdata%!0,indexdata%!4


@  ș "OS_GBPB",1,tf_handle%,indexdata%,tf_fsize%,tf_dataptr%

  tf_dataptr%+=tf_fsize%

  �


�

� #tf_handle%

'�("SetType "+fullname$+" Template")

(�shell_HeapBlockReturn(fontbinding%)

&�shell_HeapBlockReturn(indexdata%)

=0

:

� �processicon(fptr%,qptr%)

� B%,extf%,intf%

� !fptr% � &40 �

,  extf%=fptr%?3:intf%=fontbinding%?extf%

?  � intf%=0 intf%=freef%:freef%+=1:fontbinding%?extf%=intf%

  fptr%?3=intf%

�

� !fptr% � &100 �

  B%=_Q%+4+tf_datasize%

:  $B%=$!qptr%:!qptr%=tf_datasize%:tf_datasize%+=�$B%+1

  � qptr%!4>0 �

    B%=_Q%+4+tf_datasize%

 @    $B%=$(qptr%!4):qptr%!4=tf_datasize%:tf_datasize%+=�$B%+1

!  �

"�

#�

$:

%� �processicons

&� I%,J%

'
J%=_Q%+92

(� I%=0 � _Q%!88-1

)  �processicon(J%+16,J%+20)

*  J%+=32

+� I%

,�

-:

.ݤget_filename

/� nr$,blk%,nr%

0#blk%=�shell_HeapBlockFetch(256)

1?nr%=�dir_read(fname$(),�shell_GetAppDataDir,"sprite*",blk%)

2
� nr%>0 �

34  �shell_Tracef0("files found - "+fname$(nr%-1))

4"  �shell_HeapBlockReturn(blk%)

5  nr%=�(�fname$(nr%-1),7))

6�

7"="sprite"+�"00000"+�(nr%+1),3)

8:

9ݤ_do_save(fullname$)

:4ș "OS_SpriteOp",268,save_buff%,fullname$:� save

;&�shell_HeapBlockReturn(save_buff%)

<=0

=:

>#ݤget_est_savesize(l%,b%,r%,t%)

?� save_area%,screen_area%

@� l%<0 � l%=0

Asave_area%=(r%-l%)*(t%-b%)

B-screen_area%=screen_width%*screen_height%

Cd�shell_Tracef0("Buffer size claimed = "+�(�((screen_buffersize%*save_area%)/screen_area%)+2040))

D;=(�((screen_buffersize%*save_area%)/screen_area%))+2048

E:

F� �_modechange

G$screen_width%=0:screen_height%=0

H6�get_screenmaxcoords(screen_width%,screen_height%)

I,screen_buffersize%=�get_screenbuffersize

J=0

K:

Lݤget_screenbuffersize

M� inblk%,outblk%,result%

N$inblk%=�shell_HeapBlockFetch(10)

O%outblk%=�shell_HeapBlockFetch(10)

Pinblk%!0=150:inblk%!4=-1

Q+ș "OS_ReadVduVariables",inblk%,outblk%

Rresult%=outblk%!0

S"�shell_HeapBlockReturn(inblk%)

T#�shell_HeapBlockReturn(outblk%)

U=result%

V:

W$��get_screenmaxcoords(� X%,� Y%)

X
� result%

YH� use OS_ReadPoint to discover screen size in 'external coordinates'

ZX%=600:Y%=200

[�

\  X%+=1

]  ș &32,X%,0 � ,,,,result%

^� result%=-1

_�

`  Y%+=1

a  ș &32,0,Y% � ,,,,result%

b� result%=-1

c�

d:

e#ݤ_menuselect_sicon(selection$)

fȎ selection$ �

g$  � �shell_MessageNoArgs("Help")

h/    �shell_HelpWord(�shell_GetAppName+".$")

i  � "Get Window Sprite"

jC    ș "Menu_Tick",�shell_MenuBase,�shell_MenuString(�get_op),0

k    winsave_op%=0

l0    �shell_IconbarSetText(-1,sicon,"Sprite")

m  � "Get Window Template"

nC    ș "Menu_Tick",�shell_MenuBase,�shell_MenuString(�get_op),0

o    winsave_op%=2

p4    �shell_IconbarSetText(-1,sicon,"Template")  

q  � "Get Whole Screen"

rC    ș "Menu_Tick",�shell_MenuBase,�shell_MenuString(�get_op),0

s    winsave_op%=5

t0    �shell_IconbarSetText(-1,sicon,"Screen")

u$  � �shell_MessageNoArgs("Quit")

v    _closedown%=�

w�

x=0

y:

z��app_init

{)� name_buff% 20, path% 256,fname$(77)

|&$path%=�shell_GetAppDir+".grabbed"

}$name_buff%="grab"

~save_buff%=0

8winsave_op%=0:� keeps track of type of save selected

�flag_GrabPending%=�

�zsicon=�shell_Iconbar(-1,"!"+�shell_GetAppName,"Sprite",120,�shell_MessageNoArgs("WinSave2"),0,0,0,"_menuselect_sicon")

�,�shell_AttachHelpTag(-1,sicon,"iconbar")

�7�shell_AttachClickAdjust(-1,sicon,"_adjusticonbar")

�9�shell_AttachMenuMaker(-1,sicon,"_menumaker_iconbar")

�Z�shell_AttachMenuDBox(�shell_MenuDecode("WinSave2.Info"),"progInfo","_PreOpenInfo","")

�Y�shell_AttachMenuDBox(�shell_MenuDecode("WinSave2.Setup"),"setup","_PreOpenSetUp","")

�+�shell_CreateWindowStatic("grab",grab%)

�0�shell_CreateWindowStatic("xfer_send",xfer%)

�B� Don't open a window when the hot key is detected as we might

�8� have to bring the target window to the top first..

�<�shell_AttachHotKey("S",�,�,�,"",0,"_PrepareForGrab","")

�2�shell_AttachClickSelect(xfer%,0,"_clickxfer")

�1�shell_AttachModeChangeHandler("_modechange")

�"�shell_OpenWindowStatic(grab%)

�(�shell_WindowMoveTo(grab%,-5000,500)

��read_choices

�C�shell_InitHelpSystem(�shell_GetAppDir+"."+�shell_GetAppName,�)

��

�:

�� �read_choices

�� X%

�6� �shell_FileExists(�shell_GetAppDir+".Choices") �

�'  X%=�(�shell_GetAppDir+".Choices")

�  �# X%,flag_WithPalette%

�  �# X%,flag_BringToTop%

�  �# X%,flag_ContentsOnly%

�
  �#X%

��

�A  flag_WithPalette%=�:flag_BringToTop%=�:flag_ContentsOnly%=�

��

��

�:

�1ݤdir_read(name$(),dir_name$,file_name$,blk%)

�� offset%,new_offset%

�� loop%

�counter% = 0

�4offset%=0:new_offset%=0:total_read%=0:nr_read%=0

��

�  offset% = new_offset%

�W  ș "OS_GBPB",9,dir_name$,blk%,77,offset%,256,file_name$ � ,,,nr_read%,new_offset%

�  total_read% += nr_read%

�  � nr_read%>0 �

�    ptr%=0

�)    � loop% = offset% � total_read%-1

�2      name$(loop%)=�mem_to_string(blk%,ptr%,0)

�!      ptr%+=�(name$(loop%))+1

�    � loop%

�  �

�� new_offset% = -1

�= total_read%

�:

�J� =================== Routines to go in the library ==================

�:

�

�
�

00000000  0d 00 01 1f f4 20 3e 20  3c 57 69 6e 53 61 76 65  |..... > <WinSave|
00000010  32 24 44 69 72 3e 2e 21  57 69 6e 53 61 76 65 0d  |2$Dir>.!WinSave.|
00000020  00 02 05 3a 0d 00 03 10  64 65 62 75 67 67 69 6e  |...:....debuggin|
00000030  67 25 3d a3 0d 00 04 2e  f4 20 43 6f 70 79 72 69  |g%=...... Copyri|
00000040  67 68 74 20 50 61 75 6c  20 48 6f 62 62 73 20 31  |ght Paul Hobbs 1|
00000050  39 39 30 2c 31 39 39 31  2c 31 39 39 32 2c 31 39  |990,1991,1992,19|
00000060  39 33 0d 00 05 19 f4 20  52 68 65 69 6e 70 66 61  |93..... Rheinpfa|
00000070  6c 7a 73 74 72 61 73 73  65 20 32 0d 00 06 19 f4  |lzstrasse 2.....|
00000080  20 20 20 20 38 35 30 34  39 20 49 6e 67 6f 6c 73  |    85049 Ingols|
00000090  74 61 64 74 0d 00 07 19  f4 20 20 20 20 20 20 20  |tadt.....       |
000000a0  20 20 20 20 20 20 47 65  72 6d 61 6e 79 0d 00 08  |      Germany...|
000000b0  05 3a 0d 00 09 3e f4 20  54 68 69 73 20 70 72 6f  |.:...>. This pro|
000000c0  67 72 61 6d 20 61 6e 64  20 70 61 72 74 73 20 74  |gram and parts t|
000000d0  68 65 72 65 6f 66 20 6d  61 79 20 62 65 20 66 72  |hereof may be fr|
000000e0  65 65 6c 79 20 64 69 73  74 72 69 62 75 74 65 64  |eely distributed|
000000f0  0d 00 0a 40 f4 20 75 6e  64 65 72 20 74 68 65 20  |...@. under the |
00000100  74 65 72 6d 73 20 73 74  61 74 65 64 20 69 6e 20  |terms stated in |
00000110  74 68 65 20 68 65 6c 70  20 66 69 6c 65 73 20 28  |the help files (|
00000120  75 73 65 20 74 68 65 20  73 75 70 70 6c 69 65 64  |use the supplied|
00000130  0d 00 0b 2a f4 20 53 74  72 6f 6e 67 48 6c 70 20  |...*. StrongHlp |
00000140  61 70 70 6c 69 63 61 74  69 6f 6e 20 74 6f 20 72  |application to r|
00000150  65 61 64 20 74 68 65 73  65 2e 0d 00 0c 05 3a 0d  |ead these.....:.|
00000160  00 0d 33 ee 20 85 20 eb  31 32 3a c8 99 22 48 6f  |..3. . .12:.."Ho|
00000170  75 72 67 6c 61 73 73 5f  53 6d 61 73 68 22 3a f6  |urglass_Smash":.|
00000180  3a f1 22 20 61 74 20 6c  69 6e 65 3a 20 22 3b 9e  |:." at line: ";.|
00000190  3a e0 0d 00 0e 05 3a 0d  00 0f 29 c8 9b 20 22 3c  |:.....:...).. "<|
000001a0  45 76 6e 74 53 68 65 6c  6c 53 79 73 74 65 6d 24  |EvntShellSystem$|
000001b0  50 61 74 68 3e 53 68 65  6c 6c 4c 69 62 52 54 22  |Path>ShellLibRT"|
000001c0  0d 00 10 05 3a 0d 00 11  15 c8 99 20 22 48 6f 75  |....:...... "Hou|
000001d0  72 67 6c 61 73 73 5f 4f  6e 22 0d 00 12 05 3a 0d  |rglass_On"....:.|
000001e0  00 13 28 c8 99 20 22 57  69 6d 70 5f 53 6c 6f 74  |..(.. "Wimp_Slot|
000001f0  53 69 7a 65 22 2c 2d 31  2c 2d 31 20 b8 20 70 72  |Size",-1,-1 . pr|
00000200  6f 67 73 69 7a 65 25 0d  00 14 13 70 61 67 65 73  |ogsize%....pages|
00000210  69 7a 65 25 3d 31 3c 3c  31 30 0d 00 15 1e 66 72  |ize%=1<<10....fr|
00000220  65 65 73 70 61 63 65 25  3d 26 38 30 30 30 2b 70  |eespace%=&8000+p|
00000230  72 6f 67 73 69 7a 65 25  0d 00 16 1a e0 3d 66 72  |rogsize%.....=fr|
00000240  65 65 73 70 61 63 65 25  2b 70 61 67 65 73 69 7a  |eespace%+pagesiz|
00000250  65 25 0d 00 17 10 d3 3d  66 72 65 65 73 70 61 63  |e%.....=freespac|
00000260  65 25 0d 00 18 05 3a 0d  00 19 3f f2 73 68 65 6c  |e%....:...?.shel|
00000270  6c 5f 48 65 61 70 4d 61  6e 61 67 65 72 49 6e 69  |l_HeapManagerIni|
00000280  74 28 22 3c 45 76 6e 74  53 68 65 6c 6c 53 79 73  |t("<EvntShellSys|
00000290  74 65 6d 24 50 61 74 68  3e 22 2c 66 72 65 65 73  |tem$Path>",frees|
000002a0  70 61 63 65 25 29 0d 00  1a 0f f2 73 68 65 6c 6c  |pace%).....shell|
000002b0  5f 49 6e 69 74 0d 00 1b  34 74 61 73 6b 25 3d a4  |_Init...4task%=.|
000002c0  73 68 65 6c 6c 5f 57 69  6d 70 49 6e 69 74 5f 49  |shell_WimpInit_I|
000002d0  28 32 30 30 2c 22 57 69  6e 64 6f 77 20 53 61 76  |(200,"Window Sav|
000002e0  65 72 20 55 74 69 6c 22  29 0d 00 1c 18 f2 73 68  |er Util").....sh|
000002f0  65 6c 6c 5f 54 72 61 63  65 49 6e 69 74 28 22 22  |ell_TraceInit(""|
00000300  29 0d 00 1d 12 f2 73 68  65 6c 6c 5f 54 72 61 63  |).....shell_Trac|
00000310  65 4f 6e 0d 00 1e 18 f2  73 68 65 6c 6c 5f 52 65  |eOn.....shell_Re|
00000320  73 6f 75 72 63 65 73 49  6e 69 74 0d 00 1f 0d f2  |sourcesInit.....|
00000330  61 70 70 5f 69 6e 69 74  0d 00 20 05 3a 0d 00 21  |app_init.. .:..!|
00000340  4c f4 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |L. -------------|
00000350  2d 2d 2d 2d 2d 2d 2d 20  49 6e 69 74 69 61 6c 69  |------- Initiali|
00000360  73 65 20 56 61 72 69 61  62 6c 65 73 20 2d 2d 2d  |se Variables ---|
00000370  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000380  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 00 22 05 3a 0d 00  |---------..".:..|
00000390  23 47 5f 63 6c 6f 73 65  64 6f 77 6e 25 20 20 20  |#G_closedown%   |
000003a0  20 20 3d a3 20 3a f4 20  53 65 74 20 74 68 69 73  |  =. :. Set this|
000003b0  20 74 6f 20 54 52 55 45  20 77 68 65 6e 20 79 6f  | to TRUE when yo|
000003c0  75 20 77 61 6e 74 20 74  68 65 20 70 72 6f 67 72  |u want the progr|
000003d0  61 6d 20 74 6f 0d 00 24  21 20 20 20 20 20 20 20  |am to..$!       |
000003e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000003f0  3a f4 20 65 6e 64 0d 00  25 44 63 68 61 6e 67 65  |:. end..%Dchange|
00000400  64 25 20 20 20 20 20 20  20 20 3d a3 20 3a f4 20  |d%        =. :. |
00000410  55 73 65 64 20 74 6f 20  6b 65 65 70 20 74 72 61  |Used to keep tra|
00000420  63 6b 20 6f 66 20 77 68  65 74 68 65 72 20 74 68  |ck of whether th|
00000430  65 20 64 61 74 61 20 68  61 73 0d 00 26 4b 20 20  |e data has..&K  |
00000440  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000450  20 20 20 20 20 3a f4 20  62 65 65 6e 20 63 68 61  |     :. been cha|
00000460  6e 67 65 64 2e 20 43 61  6c 6c 20 50 52 4f 43 66  |nged. Call PROCf|
00000470  69 6c 65 5f 63 68 61 6e  67 65 64 28 29 20 77 68  |ile_changed() wh|
00000480  65 6e 20 69 74 0d 00 27  47 20 20 20 20 20 20 20  |en it..'G       |
00000490  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000004a0  3a f4 20 68 61 73 2e 20  42 75 74 20 69 66 20 74  |:. has. But if t|
000004b0  68 65 20 70 72 6f 67 72  61 6d 20 64 6f 65 73 20  |he program does |
000004c0  6e 6f 74 20 75 73 65 20  64 61 74 61 0d 00 28 48  |not use data..(H|
000004d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000004e0  20 20 20 20 20 20 20 3a  f4 20 66 69 6c 65 73 20  |       :. files |
000004f0  6a 75 73 74 20 69 67 6e  6f 72 65 20 74 68 69 73  |just ignore this|
00000500  20 76 61 72 69 61 62 6c  65 20 62 75 74 20 64 6f  | variable but do|
00000510  20 6e 6f 74 0d 00 29 47  20 20 20 20 20 20 20 20  | not..)G        |
00000520  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00000530  f4 20 64 65 6c 65 74 65  20 69 74 20 61 73 20 74  |. delete it as t|
00000540  68 65 20 70 72 6f 67 72  61 6d 20 63 68 65 63 6b  |he program check|
00000550  73 20 69 74 20 62 65 66  6f 72 65 0d 00 2a 26 20  |s it before..*& |
00000560  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000570  20 20 20 20 20 20 3a f4  20 65 78 69 74 69 6e 67  |      :. exiting|
00000580  21 0d 00 2b 05 3a 0d 00  2c 4c f4 20 2d 2d 2d 2d  |!..+.:..,L. ----|
00000590  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000005a0  20 4d 69 73 63 65 6c 6c  65 61 6e 6f 75 73 20 49  | Miscelleanous I|
000005b0  6e 69 74 69 61 6c 69 73  61 74 69 6f 6e 20 2d 2d  |nitialisation --|
000005c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000005d0  2d 2d 0d 00 2d 05 3a 0d  00 2e 14 ee 20 85 20 f2  |--..-.:..... . .|
000005e0  73 68 65 6c 6c 5f 45 72  72 6f 72 0d 00 2f 05 3a  |shell_Error../.:|
000005f0  0d 00 30 16 c8 99 20 22  48 6f 75 72 67 6c 61 73  |..0... "Hourglas|
00000600  73 5f 4f 66 66 22 0d 00  31 05 f5 0d 00 32 2b 20  |s_Off"..1....2+ |
00000610  20 f2 73 68 65 6c 6c 5f  41 63 74 69 6f 6e 28 a4  | .shell_Action(.|
00000620  73 68 65 6c 6c 5f 50 6f  6c 6c 5f 49 28 30 2c 74  |shell_Poll_I(0,t|
00000630  61 73 6b 25 29 29 0d 00  33 11 fd 20 5f 63 6c 6f  |ask%))..3.. _clo|
00000640  73 65 64 6f 77 6e 25 0d  00 34 05 3a 0d 00 35 11  |sedown%..4.:..5.|
00000650  f2 73 68 65 6c 6c 5f 45  78 69 74 3a e0 0d 00 36  |.shell_Exit:...6|
00000660  05 3a 0d 00 37 4c f4 20  3d 3d 3d 3d 3d 3d 3d 3d  |.:..7L. ========|
00000670  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
000006a0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 0d 00  |==============..|
000006b0  38 05 3a 0d 00 39 0c dd  a4 67 65 74 5f 6f 70 0d  |8.:..9...get_op.|
000006c0  00 3a 08 ea 20 6d 24 0d  00 3b 14 c8 8e 20 77 69  |.:.. m$..;... wi|
000006d0  6e 73 61 76 65 5f 6f 70  25 20 ca 0d 00 3c 3c 20  |nsave_op% ...<< |
000006e0  20 c9 20 30 3a 6d 24 3d  a4 73 68 65 6c 6c 5f 4d  | . 0:m$=.shell_M|
000006f0  65 6e 75 44 65 63 6f 64  65 28 22 57 69 6e 53 61  |enuDecode("WinSa|
00000700  76 65 32 2e 47 65 74 20  57 69 6e 64 6f 77 20 53  |ve2.Get Window S|
00000710  70 72 69 74 65 22 29 0d  00 3d 3b 20 20 c9 20 31  |prite")..=;  . 1|
00000720  3a 6d 24 3d a4 73 68 65  6c 6c 5f 4d 65 6e 75 44  |:m$=.shell_MenuD|
00000730  65 63 6f 64 65 28 22 57  69 6e 53 61 76 65 32 2e  |ecode("WinSave2.|
00000740  47 65 74 20 57 69 6e 64  6f 77 20 47 72 6f 75 70  |Get Window Group|
00000750  22 29 0d 00 3e 3e 20 20  c9 20 32 3a 6d 24 3d a4  |")..>>  . 2:m$=.|
00000760  73 68 65 6c 6c 5f 4d 65  6e 75 44 65 63 6f 64 65  |shell_MenuDecode|
00000770  28 22 57 69 6e 53 61 76  65 32 2e 47 65 74 20 57  |("WinSave2.Get W|
00000780  69 6e 64 6f 77 20 54 65  6d 70 6c 61 74 65 22 29  |indow Template")|
00000790  0d 00 3f 33 20 20 c9 20  33 3a 6d 24 3d a4 73 68  |..?3  . 3:m$=.sh|
000007a0  65 6c 6c 5f 4d 65 6e 75  44 65 63 6f 64 65 28 22  |ell_MenuDecode("|
000007b0  57 69 6e 53 61 76 65 32  2e 47 65 74 20 49 63 6f  |WinSave2.Get Ico|
000007c0  6e 22 29 0d 00 40 3a 20  20 c9 20 34 3a 6d 24 3d  |n")..@:  . 4:m$=|
000007d0  a4 73 68 65 6c 6c 5f 4d  65 6e 75 44 65 63 6f 64  |.shell_MenuDecod|
000007e0  65 28 22 57 69 6e 53 61  76 65 32 2e 47 65 74 20  |e("WinSave2.Get |
000007f0  53 63 72 65 65 6e 20 41  72 65 61 22 29 0d 00 41  |Screen Area")..A|
00000800  3b 20 20 c9 20 35 3a 6d  24 3d a4 73 68 65 6c 6c  |;  . 5:m$=.shell|
00000810  5f 4d 65 6e 75 44 65 63  6f 64 65 28 22 57 69 6e  |_MenuDecode("Win|
00000820  53 61 76 65 32 2e 47 65  74 20 57 68 6f 6c 65 20  |Save2.Get Whole |
00000830  53 63 72 65 65 6e 22 29  0d 00 42 05 cb 0d 00 43  |Screen")..B....C|
00000840  07 3d 6d 24 0d 00 44 05  3a 0d 00 45 21 dd a4 5f  |.=m$..D.:..E!.._|
00000850  6d 65 6e 75 6d 61 6b 65  72 5f 69 63 6f 6e 62 61  |menumaker_iconba|
00000860  72 28 77 68 25 2c 69 63  25 29 0d 00 46 08 ea 20  |r(wh%,ic%)..F.. |
00000870  6d 24 0d 00 47 3f c8 99  20 22 4d 65 6e 75 5f 54  |m$..G?.. "Menu_T|
00000880  69 63 6b 22 2c a4 73 68  65 6c 6c 5f 4d 65 6e 75  |ick",.shell_Menu|
00000890  42 61 73 65 2c a4 73 68  65 6c 6c 5f 4d 65 6e 75  |Base,.shell_Menu|
000008a0  53 74 72 69 6e 67 28 a4  67 65 74 5f 6f 70 29 2c  |String(.get_op),|
000008b0  31 0d 00 48 06 3d 30 0d  00 49 05 3a 0d 00 4a 1f  |1..H.=0..I.:..J.|
000008c0  dd a4 5f 61 64 6a 75 73  74 69 63 6f 6e 62 61 72  |.._adjusticonbar|
000008d0  28 77 68 25 2c 69 63 6f  6e 25 29 0d 00 4b 08 ea  |(wh%,icon%)..K..|
000008e0  20 6d 24 0d 00 4c 3f c8  99 20 22 4d 65 6e 75 5f  | m$..L?.. "Menu_|
000008f0  54 69 63 6b 22 2c a4 73  68 65 6c 6c 5f 4d 65 6e  |Tick",.shell_Men|
00000900  75 42 61 73 65 2c a4 73  68 65 6c 6c 5f 4d 65 6e  |uBase,.shell_Men|
00000910  75 53 74 72 69 6e 67 28  a4 67 65 74 5f 6f 70 29  |uString(.get_op)|
00000920  2c 30 0d 00 4d 32 77 69  6e 73 61 76 65 5f 6f 70  |,0..M2winsave_op|
00000930  25 2b 3d 31 3a e7 20 77  69 6e 73 61 76 65 5f 6f  |%+=1:. winsave_o|
00000940  70 25 3e 35 20 8c 20 77  69 6e 73 61 76 65 5f 6f  |p%>5 . winsave_o|
00000950  70 25 3d 30 0d 00 4e 14  c8 8e 20 77 69 6e 73 61  |p%=0..N... winsa|
00000960  76 65 5f 6f 70 25 20 ca  0d 00 4f 32 20 20 c9 20  |ve_op% ...O2  . |
00000970  30 3a f2 73 68 65 6c 6c  5f 49 63 6f 6e 62 61 72  |0:.shell_Iconbar|
00000980  53 65 74 54 65 78 74 28  2d 31 2c 73 69 63 6f 6e  |SetText(-1,sicon|
00000990  2c 22 53 70 72 69 74 65  22 29 0d 00 50 31 20 20  |,"Sprite")..P1  |
000009a0  c9 20 31 3a f2 73 68 65  6c 6c 5f 49 63 6f 6e 62  |. 1:.shell_Iconb|
000009b0  61 72 53 65 74 54 65 78  74 28 2d 31 2c 73 69 63  |arSetText(-1,sic|
000009c0  6f 6e 2c 22 47 72 6f 75  70 22 29 0d 00 51 34 20  |on,"Group")..Q4 |
000009d0  20 c9 20 32 3a f2 73 68  65 6c 6c 5f 49 63 6f 6e  | . 2:.shell_Icon|
000009e0  62 61 72 53 65 74 54 65  78 74 28 2d 31 2c 73 69  |barSetText(-1,si|
000009f0  63 6f 6e 2c 22 54 65 6d  70 6c 61 74 65 22 29 0d  |con,"Template").|
00000a00  00 52 30 20 20 c9 20 33  3a f2 73 68 65 6c 6c 5f  |.R0  . 3:.shell_|
00000a10  49 63 6f 6e 62 61 72 53  65 74 54 65 78 74 28 2d  |IconbarSetText(-|
00000a20  31 2c 73 69 63 6f 6e 2c  22 49 63 6f 6e 22 29 0d  |1,sicon,"Icon").|
00000a30  00 53 30 20 20 c9 20 34  3a f2 73 68 65 6c 6c 5f  |.S0  . 4:.shell_|
00000a40  49 63 6f 6e 62 61 72 53  65 74 54 65 78 74 28 2d  |IconbarSetText(-|
00000a50  31 2c 73 69 63 6f 6e 2c  22 41 72 65 61 22 29 0d  |1,sicon,"Area").|
00000a60  00 54 32 20 20 c9 20 35  3a f2 73 68 65 6c 6c 5f  |.T2  . 5:.shell_|
00000a70  49 63 6f 6e 62 61 72 53  65 74 54 65 78 74 28 2d  |IconbarSetText(-|
00000a80  31 2c 73 69 63 6f 6e 2c  22 53 63 72 65 65 6e 22  |1,sicon,"Screen"|
00000a90  29 0d 00 55 05 cb 0d 00  56 06 3d 30 0d 00 57 05  |)..U....V.=0..W.|
00000aa0  3a 0d 00 58 17 dd a4 5f  50 72 65 4f 70 65 6e 49  |:..X..._PreOpenI|
00000ab0  6e 66 6f 28 77 68 25 29  0d 00 59 41 f2 73 68 65  |nfo(wh%)..YA.she|
00000ac0  6c 6c 5f 49 63 6f 6e 50  75 74 44 61 74 61 28 77  |ll_IconPutData(w|
00000ad0  68 25 2c 30 2c a4 73 68  65 6c 6c 5f 4d 65 73 73  |h%,0,.shell_Mess|
00000ae0  61 67 65 4e 6f 41 72 67  73 28 22 70 72 6f 67 49  |ageNoArgs("progI|
00000af0  6e 66 6f 30 22 29 2c 30  29 0d 00 5a 41 f2 73 68  |nfo0"),0)..ZA.sh|
00000b00  65 6c 6c 5f 49 63 6f 6e  50 75 74 44 61 74 61 28  |ell_IconPutData(|
00000b10  77 68 25 2c 31 2c a4 73  68 65 6c 6c 5f 4d 65 73  |wh%,1,.shell_Mes|
00000b20  73 61 67 65 4e 6f 41 72  67 73 28 22 70 72 6f 67  |sageNoArgs("prog|
00000b30  49 6e 66 6f 31 22 29 2c  30 29 0d 00 5b 41 f2 73  |Info1"),0)..[A.s|
00000b40  68 65 6c 6c 5f 49 63 6f  6e 50 75 74 44 61 74 61  |hell_IconPutData|
00000b50  28 77 68 25 2c 32 2c a4  73 68 65 6c 6c 5f 4d 65  |(wh%,2,.shell_Me|
00000b60  73 73 61 67 65 4e 6f 41  72 67 73 28 22 70 72 6f  |ssageNoArgs("pro|
00000b70  67 49 6e 66 6f 32 22 29  2c 30 29 0d 00 5c 41 f2  |gInfo2"),0)..\A.|
00000b80  73 68 65 6c 6c 5f 49 63  6f 6e 50 75 74 44 61 74  |shell_IconPutDat|
00000b90  61 28 77 68 25 2c 33 2c  a4 73 68 65 6c 6c 5f 4d  |a(wh%,3,.shell_M|
00000ba0  65 73 73 61 67 65 4e 6f  41 72 67 73 28 22 70 72  |essageNoArgs("pr|
00000bb0  6f 67 49 6e 66 6f 33 22  29 2c 30 29 0d 00 5d 06  |ogInfo3"),0)..].|
00000bc0  3d 30 0d 00 5e 05 3a 0d  00 5f 18 dd a4 5f 50 72  |=0..^.:.._..._Pr|
00000bd0  65 4f 70 65 6e 53 65 74  55 70 28 77 68 25 29 0d  |eOpenSetUp(wh%).|
00000be0  00 60 32 f2 73 68 65 6c  6c 5f 41 74 74 61 63 68  |.`2.shell_Attach|
00000bf0  43 6c 69 63 6b 53 65 6c  65 63 74 28 77 68 25 2c  |ClickSelect(wh%,|
00000c00  2d 31 2c 22 5f 63 6c 69  63 6b 73 65 74 75 70 22  |-1,"_clicksetup"|
00000c10  29 0d 00 61 28 f2 73 68  65 6c 6c 5f 41 74 74 61  |)..a(.shell_Atta|
00000c20  63 68 48 65 6c 70 54 61  67 28 77 68 25 2c 2d 31  |chHelpTag(wh%,-1|
00000c30  2c 22 73 65 74 75 70 22  29 0d 00 62 2b f2 73 68  |,"setup")..b+.sh|
00000c40  65 6c 6c 5f 49 63 6f 6e  53 65 74 28 77 68 25 2c  |ell_IconSet(wh%,|
00000c50  32 2c 66 6c 61 67 5f 57  69 74 68 50 61 6c 65 74  |2,flag_WithPalet|
00000c60  74 65 25 29 0d 00 63 2b  f2 73 68 65 6c 6c 5f 49  |te%)..c+.shell_I|
00000c70  63 6f 6e 53 65 74 28 77  68 25 2c 31 32 2c 66 6c  |conSet(wh%,12,fl|
00000c80  61 67 5f 42 72 69 6e 67  54 6f 54 6f 70 25 29 0d  |ag_BringToTop%).|
00000c90  00 64 2d f2 73 68 65 6c  6c 5f 49 63 6f 6e 53 65  |.d-.shell_IconSe|
00000ca0  74 28 77 68 25 2c 31 33  2c 66 6c 61 67 5f 43 6f  |t(wh%,13,flag_Co|
00000cb0  6e 74 65 6e 74 73 4f 6e  6c 79 25 29 0d 00 65 06  |ntentsOnly%)..e.|
00000cc0  3d 30 0d 00 66 05 3a 0d  00 67 19 dd a4 5f 63 6c  |=0..f.:..g..._cl|
00000cd0  69 63 6b 78 66 65 72 28  77 68 25 2c 69 68 25 29  |ickxfer(wh%,ih%)|
00000ce0  0d 00 68 0b ea 20 76 6f  69 64 25 0d 00 69 0c c8  |..h.. void%..i..|
00000cf0  8e 20 69 68 25 20 ca 0d  00 6a 0a 20 20 c9 20 30  |. ih% ...j.  . 0|
00000d00  3a 0d 00 6b 18 20 20 20  20 c8 8e 20 77 69 6e 73  |:..k.    .. wins|
00000d10  61 76 65 5f 6f 70 25 20  ca 0d 00 6c 38 20 20 20  |ave_op% ...l8   |
00000d20  20 20 20 c9 20 30 3a 76  6f 69 64 25 3d a4 5f 64  |   . 0:void%=._d|
00000d30  6f 5f 73 61 76 65 28 a4  73 68 65 6c 6c 5f 49 63  |o_save(.shell_Ic|
00000d40  6f 6e 47 65 74 44 61 74  61 28 77 68 25 2c 31 29  |onGetData(wh%,1)|
00000d50  29 0d 00 6d 41 20 20 20  20 20 20 c9 20 32 3a 76  |)..mA      . 2:v|
00000d60  6f 69 64 25 3d a4 5f 64  6f 5f 73 61 76 65 5f 74  |oid%=._do_save_t|
00000d70  65 6d 70 6c 61 74 65 28  a4 73 68 65 6c 6c 5f 49  |emplate(.shell_I|
00000d80  63 6f 6e 47 65 74 44 61  74 61 28 77 68 25 2c 31  |conGetData(wh%,1|
00000d90  29 29 0d 00 6e 07 20 20  cb 0d 00 6f 05 cb 0d 00  |))..n.  ...o....|
00000da0  70 06 3d 30 0d 00 71 05  3a 0d 00 72 1a dd a4 5f  |p.=0..q.:..r..._|
00000db0  63 6c 69 63 6b 73 65 74  75 70 28 77 68 25 2c 69  |clicksetup(wh%,i|
00000dc0  68 25 29 0d 00 73 0e ea  20 76 6f 69 64 25 2c 58  |h%)..s.. void%,X|
00000dd0  25 0d 00 74 0c c8 8e 20  69 68 25 20 ca 0d 00 75  |%..t... ih% ...u|
00000de0  10 20 20 c9 20 30 3a f4  20 27 4f 4b 27 0d 00 76  |.  . 0:. 'OK'..v|
00000df0  2d 20 20 20 20 f4 20 6c  69 62 72 61 72 79 20 68  |-    . library h|
00000e00  61 6e 64 6c 65 73 20 63  6c 6f 73 69 6e 67 20 74  |andles closing t|
00000e10  68 65 20 6d 65 6e 75 2e  2e 2e 0d 00 77 37 20 20  |he menu.....w7  |
00000e20  20 20 66 6c 61 67 5f 57  69 74 68 50 61 6c 65 74  |  flag_WithPalet|
00000e30  74 65 25 20 3d a4 73 68  65 6c 6c 5f 49 73 49 63  |te% =.shell_IsIc|
00000e40  6f 6e 53 65 6c 65 63 74  65 64 28 77 68 25 2c 32  |onSelected(wh%,2|
00000e50  29 0d 00 78 38 20 20 20  20 66 6c 61 67 5f 42 72  |)..x8    flag_Br|
00000e60  69 6e 67 54 6f 54 6f 70  25 20 20 3d a4 73 68 65  |ingToTop%  =.she|
00000e70  6c 6c 5f 49 73 49 63 6f  6e 53 65 6c 65 63 74 65  |ll_IsIconSelecte|
00000e80  64 28 77 68 25 2c 31 32  29 0d 00 79 38 20 20 20  |d(wh%,12)..y8   |
00000e90  20 66 6c 61 67 5f 43 6f  6e 74 65 6e 74 73 4f 6e  | flag_ContentsOn|
00000ea0  6c 79 25 3d a4 73 68 65  6c 6c 5f 49 73 49 63 6f  |ly%=.shell_IsIco|
00000eb0  6e 53 65 6c 65 63 74 65  64 28 77 68 25 2c 31 33  |nSelected(wh%,13|
00000ec0  29 0d 00 7a 15 20 20 c9  20 31 30 3a f4 20 27 43  |)..z.  . 10:. 'C|
00000ed0  61 6e 63 65 6c 27 0d 00  7b 1f 20 20 20 20 f2 73  |ancel'..{.    .s|
00000ee0  68 65 6c 6c 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |hell_CloseWindow|
00000ef0  28 77 68 25 29 0d 00 7c  13 20 20 c9 20 31 31 3a  |(wh%)..|.  . 11:|
00000f00  f4 20 27 53 61 76 65 27  0d 00 7d 37 20 20 20 20  |. 'Save'..}7    |
00000f10  66 6c 61 67 5f 57 69 74  68 50 61 6c 65 74 74 65  |flag_WithPalette|
00000f20  25 20 3d a4 73 68 65 6c  6c 5f 49 73 49 63 6f 6e  |% =.shell_IsIcon|
00000f30  53 65 6c 65 63 74 65 64  28 77 68 25 2c 32 29 0d  |Selected(wh%,2).|
00000f40  00 7e 38 20 20 20 20 66  6c 61 67 5f 42 72 69 6e  |.~8    flag_Brin|
00000f50  67 54 6f 54 6f 70 25 20  20 3d a4 73 68 65 6c 6c  |gToTop%  =.shell|
00000f60  5f 49 73 49 63 6f 6e 53  65 6c 65 63 74 65 64 28  |_IsIconSelected(|
00000f70  77 68 25 2c 31 32 29 0d  00 7f 38 20 20 20 20 66  |wh%,12)...8    f|
00000f80  6c 61 67 5f 43 6f 6e 74  65 6e 74 73 4f 6e 6c 79  |lag_ContentsOnly|
00000f90  25 3d a4 73 68 65 6c 6c  5f 49 73 49 63 6f 6e 53  |%=.shell_IsIconS|
00000fa0  65 6c 65 63 74 65 64 28  77 68 25 2c 31 33 29 0d  |elected(wh%,13).|
00000fb0  00 80 29 20 20 20 20 58  25 3d ae 28 a4 73 68 65  |..)    X%=.(.she|
00000fc0  6c 6c 5f 47 65 74 41 70  70 44 69 72 2b 22 2e 43  |ll_GetAppDir+".C|
00000fd0  68 6f 69 63 65 73 22 29  0d 00 81 20 20 20 20 20  |hoices")...     |
00000fe0  20 20 f1 23 58 25 2c 66  6c 61 67 5f 57 69 74 68  |  .#X%,flag_With|
00000ff0  50 61 6c 65 74 74 65 25  0d 00 82 1f 20 20 20 20  |Palette%....    |
00001000  20 20 f1 23 58 25 2c 66  6c 61 67 5f 42 72 69 6e  |  .#X%,flag_Brin|
00001010  67 54 6f 54 6f 70 25 0d  00 83 21 20 20 20 20 20  |gToTop%...!     |
00001020  20 f1 23 58 25 2c 66 6c  61 67 5f 43 6f 6e 74 65  | .#X%,flag_Conte|
00001030  6e 74 73 4f 6e 6c 79 25  0d 00 84 0d 20 20 20 20  |ntsOnly%....    |
00001040  d9 23 20 58 25 0d 00 85  1f 20 20 20 20 c8 99 20  |.# X%....    .. |
00001050  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00001060  22 2c 2d 31 0d 00 86 05  cb 0d 00 87 06 3d 30 0d  |",-1.........=0.|
00001070  00 88 05 3a 0d 00 89 1c  dd a4 5f 50 72 65 70 61  |...:......_Prepa|
00001080  72 65 46 6f 72 47 72 61  62 28 76 6f 69 64 25 29  |reForGrab(void%)|
00001090  0d 00 8a 38 e7 20 73 61  76 65 5f 62 75 66 66 25  |...8. save_buff%|
000010a0  3c 3e 30 20 8c 20 f2 73  68 65 6c 6c 5f 48 65 61  |<>0 . .shell_Hea|
000010b0  70 42 6c 6f 63 6b 52 65  74 75 72 6e 28 73 61 76  |pBlockReturn(sav|
000010c0  65 5f 62 75 66 66 25 29  0d 00 8b 3d f4 20 66 69  |e_buff%)...=. fi|
000010d0  6e 64 20 68 61 6e 64 6c  65 20 6f 66 20 77 69 6e  |nd handle of win|
000010e0  64 6f 77 20 75 6e 64 65  72 20 70 6f 69 6e 74 65  |dow under pointe|
000010f0  72 20 28 62 65 66 6f 72  65 20 77 65 20 6f 70 65  |r (before we ope|
00001100  6e 20 74 68 65 0d 00 8c  13 f4 20 73 61 76 65 20  |n the..... save |
00001110  61 73 20 62 6f 78 21 21  0d 00 8d 21 c8 99 20 22  |as box!!...!.. "|
00001120  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00001130  6e 66 6f 22 2c 2c 5f 51  25 0d 00 8e 18 74 61 72  |nfo",,_Q%....tar|
00001140  67 65 74 77 69 6e 64 6f  77 25 3d 5f 51 25 21 31  |getwindow%=_Q%!1|
00001150  32 0d 00 8f 14 c8 8e 20  77 69 6e 73 61 76 65 5f  |2...... winsave_|
00001160  6f 70 25 20 ca 0d 00 90  1b 20 20 c9 20 30 3a f2  |op% .....  . 0:.|
00001170  53 61 76 65 41 73 53 70  72 69 74 65 46 69 6c 65  |SaveAsSpriteFile|
00001180  0d 00 91 0a 20 20 c9 20  31 3a 0d 00 92 1d 20 20  |....  . 1:....  |
00001190  c9 20 32 3a f2 53 61 76  65 41 73 54 65 6d 70 6c  |. 2:.SaveAsTempl|
000011a0  61 74 65 46 69 6c 65 0d  00 93 0a 20 20 c9 20 33  |ateFile....  . 3|
000011b0  3a 0d 00 94 0a 20 20 c9  20 34 3a 0d 00 95 0a 20  |:....  . 4:.... |
000011c0  20 c9 20 35 3a 0d 00 96  1d 20 20 20 20 e7 20 66  | . 5:....    . f|
000011d0  6c 61 67 5f 57 69 74 68  50 61 6c 65 74 74 65 25  |lag_WithPalette%|
000011e0  20 8c 0d 00 97 21 20 20  20 20 20 20 ff 28 22 53  | ....!      .("S|
000011f0  63 72 65 65 6e 53 61 76  65 20 22 2b 24 70 61 74  |creenSave "+$pat|
00001200  68 25 29 0d 00 98 09 20  20 20 20 cc 0d 00 99 09  |h%)....    .....|
00001210  20 20 20 20 cd 0d 00 9a  07 20 20 7f 0d 00 9b 07  |    .....  .....|
00001220  20 20 cb 0d 00 9c 06 3d  30 0d 00 9d 05 3a 0d 00  |  .....=0....:..|
00001230  9e 1d dd 20 f2 73 68 65  6c 6c 5f 44 6f 42 61 63  |... .shell_DoBac|
00001240  6b 67 72 6f 75 6e 64 54  61 73 6b 0d 00 9f 0b ea  |kgroundTask.....|
00001250  20 76 6f 69 64 25 0d 00  a0 19 e7 20 66 6c 61 67  | void%..... flag|
00001260  5f 47 72 61 62 50 65 6e  64 69 6e 67 25 20 8c 0d  |_GrabPending% ..|
00001270  00 a1 2d 20 20 e7 20 a4  73 68 65 6c 6c 5f 57 69  |..-  . .shell_Wi|
00001280  6e 64 6f 77 49 73 4f 6e  54 6f 70 28 74 61 72 67  |ndowIsOnTop(targ|
00001290  65 74 77 69 6e 64 6f 77  25 29 20 8c 0d 00 a2 1b  |etwindow%) .....|
000012a0  20 20 20 20 66 6c 61 67  5f 47 72 61 62 50 65 6e  |    flag_GrabPen|
000012b0  64 69 6e 67 25 3d a3 0d  00 a3 2e 20 20 20 20 f4  |ding%=.....    .|
000012c0  20 47 72 61 62 20 73 70  72 69 74 65 20 61 6e 64  | Grab sprite and|
000012d0  20 6f 70 65 6e 20 66 69  6c 65 20 73 61 76 65 20  | open file save |
000012e0  62 6f 78 2e 2e 0d 00 a4  13 20 20 20 20 f2 53 61  |box......    .Sa|
000012f0  76 65 53 70 72 69 74 65  0d 00 a5 2b 20 20 20 20  |veSprite...+    |
00001300  76 6f 69 64 25 3d a4 5f  50 72 65 4f 70 65 6e 58  |void%=._PreOpenX|
00001310  66 65 72 28 78 66 65 72  25 2c 22 73 70 72 69 74  |fer(xfer%,"sprit|
00001320  65 22 29 0d 00 a6 26 20  20 20 20 f2 73 68 65 6c  |e")...&    .shel|
00001330  6c 5f 4f 70 65 6e 57 69  6e 64 6f 77 53 74 61 74  |l_OpenWindowStat|
00001340  69 63 28 78 66 65 72 25  29 0d 00 a7 07 20 20 cc  |ic(xfer%)....  .|
00001350  0d 00 a8 30 20 20 20 20  f4 20 57 69 6e 64 6f 77  |...0    . Window|
00001360  20 69 73 20 6e 6f 74 20  6f 6e 20 74 6f 70 2c 20  | is not on top, |
00001370  67 6f 20 72 6f 75 6e 64  20 61 67 61 69 6e 2e 2e  |go round again..|
00001380  0d 00 a9 34 20 20 20 20  f2 73 68 65 6c 6c 5f 54  |...4    .shell_T|
00001390  72 61 63 65 66 30 28 22  44 6f 42 61 63 6b 67 72  |racef0("DoBackgr|
000013a0  6f 75 6e 64 54 61 73 6b  3a 57 61 69 74 69 6e 67  |oundTask:Waiting|
000013b0  2e 2e 22 29 0d 00 aa 07  20 20 cd 0d 00 ab 05 cd  |..")....  ......|
000013c0  0d 00 ac 05 e1 0d 00 ad  05 3a 0d 00 ae 17 dd 20  |.........:..... |
000013d0  f2 53 61 76 65 41 73 53  70 72 69 74 65 46 69 6c  |.SaveAsSpriteFil|
000013e0  65 0d 00 af 0b ea 20 76  6f 69 64 25 0d 00 b0 15  |e..... void%....|
000013f0  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |.. "Hourglass_On|
00001400  22 0d 00 b1 18 e7 20 66  6c 61 67 5f 42 72 69 6e  |"..... flag_Brin|
00001410  67 54 6f 54 6f 70 25 20  8c 0d 00 b2 43 20 20 f4  |gToTop% ....C  .|
00001420  20 47 72 61 62 62 69 6e  67 20 6f 66 20 73 70 72  | Grabbing of spr|
00001430  69 74 65 20 6d 75 73 74  20 62 65 20 64 65 66 65  |ite must be defe|
00001440  72 72 65 64 20 75 6e 74  69 6c 20 74 68 65 20 74  |rred until the t|
00001450  61 72 67 65 74 20 77 69  6e 64 6f 77 0d 00 b3 46  |arget window...F|
00001460  20 20 f4 20 68 61 73 20  62 65 65 6e 20 62 72 6f  |  . has been bro|
00001470  75 67 68 74 20 74 6f 20  74 68 65 20 74 6f 70 20  |ught to the top |
00001480  6f 66 20 74 68 65 20 73  74 61 63 6b 2e 20 54 68  |of the stack. Th|
00001490  65 72 65 66 6f 72 65 20  73 65 74 20 61 20 66 6c  |erefore set a fl|
000014a0  61 67 0d 00 b4 4a 20 20  f4 20 61 6e 64 20 75 73  |ag...J  . and us|
000014b0  65 20 69 74 20 74 6f 20  63 68 65 63 6b 20 74 68  |e it to check th|
000014c0  65 20 74 61 72 67 65 74  20 77 69 6e 64 6f 77 20  |e target window |
000014d0  6f 6e 20 74 68 65 20 6e  65 78 74 20 6e 75 6c 6c  |on the next null|
000014e0  20 77 69 6d 70 20 70 6f  6c 6c 2e 2e 0d 00 b5 2c  | wimp poll.....,|
000014f0  20 20 f2 73 68 65 6c 6c  5f 57 69 6e 64 6f 77 42  |  .shell_WindowB|
00001500  72 69 6e 67 54 6f 54 6f  70 28 74 61 72 67 65 74  |ringToTop(target|
00001510  77 69 6e 64 6f 77 25 29  0d 00 b6 19 20 20 66 6c  |window%)....  fl|
00001520  61 67 5f 47 72 61 62 50  65 6e 64 69 6e 67 25 3d  |ag_GrabPending%=|
00001530  b9 0d 00 b7 05 cc 0d 00  b8 39 20 20 f4 20 42 72  |.........9  . Br|
00001540  69 6e 67 54 6f 54 6f 70  20 66 6c 61 67 20 6e 6f  |ingToTop flag no|
00001550  74 20 73 65 74 2c 20 73  6f 20 6a 75 73 74 20 73  |t set, so just s|
00001560  61 76 65 20 69 74 20 61  6e 79 77 61 79 2e 2e 0d  |ave it anyway...|
00001570  00 b9 19 20 20 66 6c 61  67 5f 47 72 61 62 50 65  |...  flag_GrabPe|
00001580  6e 64 69 6e 67 25 3d a3  0d 00 ba 11 20 20 f2 53  |nding%=.....  .S|
00001590  61 76 65 53 70 72 69 74  65 0d 00 bb 29 20 20 76  |aveSprite...)  v|
000015a0  6f 69 64 25 3d a4 5f 50  72 65 4f 70 65 6e 58 66  |oid%=._PreOpenXf|
000015b0  65 72 28 78 66 65 72 25  2c 22 73 70 72 69 74 65  |er(xfer%,"sprite|
000015c0  22 29 0d 00 bc 24 20 20  f2 73 68 65 6c 6c 5f 4f  |")...$  .shell_O|
000015d0  70 65 6e 57 69 6e 64 6f  77 53 74 61 74 69 63 28  |penWindowStatic(|
000015e0  78 66 65 72 25 29 0d 00  bd 05 cd 0d 00 be 16 c8  |xfer%)..........|
000015f0  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |. "Hourglass_Off|
00001600  22 0d 00 bf 05 e1 0d 00  c0 05 3a 0d 00 c1 11 dd  |".........:.....|
00001610  20 f2 53 61 76 65 53 70  72 69 74 65 0d 00 c2 25  | .SaveSprite...%|
00001620  f4 20 41 63 74 75 61 6c  6c 79 20 73 61 76 65 20  |. Actually save |
00001630  74 68 65 20 73 70 72 69  74 65 20 66 69 6c 65 2e  |the sprite file.|
00001640  2e 0d 00 c3 0f ea 20 65  73 74 5f 73 69 7a 65 25  |...... est_size%|
00001650  0d 00 c4 17 5f 51 25 21  30 3d 74 61 72 67 65 74  |...._Q%!0=target|
00001660  77 69 6e 64 6f 77 25 0d  00 c5 1a e7 20 66 6c 61  |window%..... fla|
00001670  67 5f 43 6f 6e 74 65 6e  74 73 4f 6e 6c 79 25 20  |g_ContentsOnly% |
00001680  8c 0d 00 c6 23 20 20 c8  99 20 22 57 69 6d 70 5f  |....#  .. "Wimp_|
00001690  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
000016a0  2c 5f 51 25 0d 00 c7 05  cc 0d 00 c8 25 20 20 c8  |,_Q%........%  .|
000016b0  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
000016c0  77 4f 75 74 6c 69 6e 65  22 2c 2c 5f 51 25 0d 00  |wOutline",,_Q%..|
000016d0  c9 05 cd 0d 00 ca 42 65  73 74 5f 73 69 7a 65 25  |......Best_size%|
000016e0  3d a4 67 65 74 5f 65 73  74 5f 73 61 76 65 73 69  |=.get_est_savesi|
000016f0  7a 65 28 5f 51 25 21 34  2c 5f 51 25 21 38 2c 28  |ze(_Q%!4,_Q%!8,(|
00001700  5f 51 25 21 31 32 29 2d  31 2c 28 5f 51 25 21 31  |_Q%!12)-1,(_Q%!1|
00001710  36 29 2d 31 29 0d 00 cb  2f 73 61 76 65 5f 62 75  |6)-1).../save_bu|
00001720  66 66 25 3d a4 73 68 65  6c 6c 5f 48 65 61 70 42  |ff%=.shell_HeapB|
00001730  6c 6f 63 6b 46 65 74 63  68 28 65 73 74 5f 73 69  |lockFetch(est_si|
00001740  7a 65 25 29 0d 00 cc 4a  73 61 76 65 5f 62 75 66  |ze%)...Jsave_buf|
00001750  66 25 21 30 3d 6f 75 74  62 6c 6b 25 21 30 3a 73  |f%!0=outblk%!0:s|
00001760  61 76 65 5f 62 75 66 66  25 21 34 3d 30 3a 73 61  |ave_buff%!4=0:sa|
00001770  76 65 5f 62 75 66 66 25  21 38 3d 31 36 3a 73 61  |ve_buff%!8=16:sa|
00001780  76 65 5f 62 75 66 66 25  21 31 32 3d 31 36 0d 00  |ve_buff%!12=16..|
00001790  cd 62 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |.b.. "OS_SpriteO|
000017a0  70 22 2c 32 37 32 2c 73  61 76 65 5f 62 75 66 66  |p",272,save_buff|
000017b0  25 2c 6e 61 6d 65 5f 62  75 66 66 25 2c 66 6c 61  |%,name_buff%,fla|
000017c0  67 5f 57 69 74 68 50 61  6c 65 74 74 65 25 2c 5f  |g_WithPalette%,_|
000017d0  51 25 21 34 2c 5f 51 25  21 38 2c 28 5f 51 25 21  |Q%!4,_Q%!8,(_Q%!|
000017e0  31 32 29 2d 31 2c 28 5f  51 25 21 31 36 29 2d 31  |12)-1,(_Q%!16)-1|
000017f0  0d 00 ce 05 e1 0d 00 cf  05 3a 0d 00 d0 22 dd 20  |.........:...". |
00001800  a4 5f 50 72 65 4f 70 65  6e 58 66 65 72 28 77 68  |._PreOpenXfer(wh|
00001810  25 2c 66 69 6c 65 74 79  70 65 24 29 0d 00 d1 12  |%,filetype$)....|
00001820  c8 8e 20 66 69 6c 65 74  79 70 65 24 20 ca 0d 00  |.. filetype$ ...|
00001830  d2 10 20 20 c9 20 22 73  70 72 69 74 65 22 0d 00  |..  . "sprite"..|
00001840  d3 4a 20 20 20 20 f2 73  68 65 6c 6c 5f 49 63 6f  |.J    .shell_Ico|
00001850  6e 50 75 74 44 61 74 61  28 77 68 25 2c 31 2c a4  |nPutData(wh%,1,.|
00001860  73 68 65 6c 6c 5f 47 65  74 41 70 70 44 61 74 61  |shell_GetAppData|
00001870  44 69 72 2b 22 2e 22 2b  a4 67 65 74 5f 66 69 6c  |Dir+"."+.get_fil|
00001880  65 6e 61 6d 65 2c 30 29  0d 00 d4 41 20 20 20 20  |ename,0)...A    |
00001890  f2 73 68 65 6c 6c 5f 41  74 74 61 63 68 44 61 74  |.shell_AttachDat|
000018a0  61 53 61 76 65 28 77 68  25 2c 32 2c 73 61 76 65  |aSave(wh%,2,save|
000018b0  5f 62 75 66 66 25 2c 26  46 46 39 2c 31 2c 22 5f  |_buff%,&FF9,1,"_|
000018c0  64 6f 5f 73 61 76 65 22  29 0d 00 d5 12 20 20 c9  |do_save")....  .|
000018d0  20 22 74 65 6d 70 6c 61  74 65 22 0d 00 d6 43 20  | "template"...C |
000018e0  20 20 20 f2 73 68 65 6c  6c 5f 49 63 6f 6e 50 75  |   .shell_IconPu|
000018f0  74 44 61 74 61 28 77 68  25 2c 31 2c a4 73 68 65  |tData(wh%,1,.she|
00001900  6c 6c 5f 47 65 74 41 70  70 44 61 74 61 44 69 72  |ll_GetAppDataDir|
00001910  2b 22 2e 67 72 61 62 62  65 64 22 2c 30 29 0d 00  |+".grabbed",0)..|
00001920  d7 43 20 20 20 20 f2 73  68 65 6c 6c 5f 41 74 74  |.C    .shell_Att|
00001930  61 63 68 44 61 74 61 53  61 76 65 28 77 68 25 2c  |achDataSave(wh%,|
00001940  32 2c 31 30 30 2c 26 46  45 43 2c 31 2c 22 5f 64  |2,100,&FEC,1,"_d|
00001950  6f 5f 73 61 76 65 5f 74  65 6d 70 6c 61 74 65 22  |o_save_template"|
00001960  29 0d 00 d8 05 cb 0d 00  d9 21 c8 99 20 22 57 69  |)........!.. "Wi|
00001970  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00001980  6f 22 2c 2c 5f 51 25 0d  00 da 30 f2 73 68 65 6c  |o",,_Q%...0.shel|
00001990  6c 5f 57 69 6e 64 6f 77  4d 6f 76 65 54 6f 28 77  |l_WindowMoveTo(w|
000019a0  68 25 2c 5f 51 25 21 30  2d 31 30 30 2c 5f 51 25  |h%,_Q%!0-100,_Q%|
000019b0  21 34 2d 31 34 30 29 0d  00 db 06 3d 30 0d 00 dc  |!4-140)....=0...|
000019c0  05 3a 0d 00 dd 19 dd 20  f2 53 61 76 65 41 73 54  |.:..... .SaveAsT|
000019d0  65 6d 70 6c 61 74 65 46  69 6c 65 0d 00 de 0b ea  |emplateFile.....|
000019e0  20 76 6f 69 64 25 0d 00  df 29 76 6f 69 64 25 3d  | void%...)void%=|
000019f0  a4 5f 50 72 65 4f 70 65  6e 58 66 65 72 28 78 66  |._PreOpenXfer(xf|
00001a00  65 72 25 2c 22 74 65 6d  70 6c 61 74 65 22 29 0d  |er%,"template").|
00001a10  00 e0 22 f2 73 68 65 6c  6c 5f 4f 70 65 6e 57 69  |..".shell_OpenWi|
00001a20  6e 64 6f 77 53 74 61 74  69 63 28 78 66 65 72 25  |ndowStatic(xfer%|
00001a30  29 0d 00 e1 05 e1 0d 00  e2 05 3a 0d 00 e3 23 dd  |).........:...#.|
00001a40  20 a4 5f 64 6f 5f 73 61  76 65 5f 74 65 6d 70 6c  | ._do_save_templ|
00001a50  61 74 65 28 66 75 6c 6c  6e 61 6d 65 24 29 0d 00  |ate(fullname$)..|
00001a60  e4 3a ea 20 49 25 2c 66  72 65 65 66 25 2c 74 66  |.:. I%,freef%,tf|
00001a70  5f 68 64 72 25 2c 74 66  5f 66 73 69 7a 65 25 2c  |_hdr%,tf_fsize%,|
00001a80  4a 25 2c 74 66 5f 64 61  74 61 70 74 72 25 2c 74  |J%,tf_dataptr%,t|
00001a90  66 5f 69 6e 64 65 78 25  0d 00 e5 35 ea 20 74 66  |f_index%...5. tf|
00001aa0  5f 64 61 74 61 73 69 7a  65 25 2c 74 66 5f 68 61  |_datasize%,tf_ha|
00001ab0  6e 64 6c 65 25 2c 66 6f  6e 74 62 69 6e 64 69 6e  |ndle%,fontbindin|
00001ac0  67 25 2c 69 6e 64 65 78  64 61 74 61 25 0d 00 e6  |g%,indexdata%...|
00001ad0  28 f4 20 64 69 73 63 61  72 64 20 61 6e 79 20 65  |(. discard any e|
00001ae0  78 69 73 74 69 6e 67 20  66 69 6c 65 20 62 75 66  |xisting file buf|
00001af0  66 65 72 2e 2e 0d 00 e7  38 e7 20 73 61 76 65 5f  |fer.....8. save_|
00001b00  62 75 66 66 25 3c 3e 30  20 8c 20 f2 73 68 65 6c  |buff%<>0 . .shel|
00001b10  6c 5f 48 65 61 70 42 6c  6f 63 6b 52 65 74 75 72  |l_HeapBlockRetur|
00001b20  6e 28 73 61 76 65 5f 62  75 66 66 25 29 0d 00 e8  |n(save_buff%)...|
00001b30  2b 66 6f 6e 74 62 69 6e  64 69 6e 67 25 3d a4 73  |+fontbinding%=.s|
00001b40  68 65 6c 6c 5f 48 65 61  70 42 6c 6f 63 6b 46 65  |hell_HeapBlockFe|
00001b50  74 63 68 28 32 35 35 29  0d 00 e9 30 69 6e 64 65  |tch(255)...0inde|
00001b60  78 64 61 74 61 25 20 20  3d a4 73 68 65 6c 6c 5f  |xdata%  =.shell_|
00001b70  48 65 61 70 42 6c 6f 63  6b 46 65 74 63 68 28 33  |HeapBlockFetch(3|
00001b80  32 2a 32 34 2b 32 30 29  0d 00 ea 24 e3 20 49 25  |2*24+20)...$. I%|
00001b90  3d 30 20 b8 20 32 35 35  3a 66 6f 6e 74 62 69 6e  |=0 . 255:fontbin|
00001ba0  64 69 6e 67 25 3f 49 25  3d 30 3a ed 0d 00 eb 31  |ding%?I%=0:....1|
00001bb0  66 72 65 65 66 25 3d 31  20 20 3a 20 f4 20 69 6e  |freef%=1  : . in|
00001bc0  74 65 72 6e 61 6c 20 66  6f 6e 74 20 68 61 6e 64  |ternal font hand|
00001bd0  6c 65 20 61 6c 6c 6f 63  61 74 69 6f 6e 0d 00 ec  |le allocation...|
00001be0  20 74 66 5f 68 64 72 25  3d 31 36 3a 74 66 5f 66  | tf_hdr%=16:tf_f|
00001bf0  73 69 7a 65 25 3d 34 38  3a 4a 25 3d 31 0d 00 ed  |size%=48:J%=1...|
00001c00  1b 74 66 5f 68 61 6e 64  6c 65 25 3d ae 28 66 75  |.tf_handle%=.(fu|
00001c10  6c 6c 6e 61 6d 65 24 29  0d 00 ee 1f 74 66 5f 64  |llname$)....tf_d|
00001c20  61 74 61 70 74 72 25 3d  74 66 5f 68 64 72 25 2b  |ataptr%=tf_hdr%+|
00001c30  4a 25 2a 32 34 2b 34 0d  00 ef 28 e3 20 49 25 3d  |J%*24+4...(. I%=|
00001c40  30 20 b8 20 74 66 5f 68  64 72 25 2d 31 3a 69 6e  |0 . tf_hdr%-1:in|
00001c50  64 65 78 64 61 74 61 25  3f 49 25 3d 30 3a ed 0d  |dexdata%?I%=0:..|
00001c60  00 f0 20 74 66 5f 69 6e  64 65 78 25 3d 69 6e 64  |.. tf_index%=ind|
00001c70  65 78 64 61 74 61 25 2b  74 66 5f 68 64 72 25 0d  |exdata%+tf_hdr%.|
00001c80  00 f1 11 e3 20 49 25 3d  30 20 b8 20 4a 25 2d 31  |.... I%=0 . J%-1|
00001c90  0d 00 f2 36 20 20 5f 51  25 21 30 3d 74 61 72 67  |...6  _Q%!0=targ|
00001ca0  65 74 77 69 6e 64 6f 77  25 3a c8 99 20 22 57 69  |etwindow%:.. "Wi|
00001cb0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 49 6e 66 6f  |mp_GetWindowInfo|
00001cc0  22 2c 2c 5f 51 25 0d 00  f3 3a 20 20 5f 51 25 21  |",,_Q%...:  _Q%!|
00001cd0  36 38 3d 31 3a f4 20 61  73 73 75 6d 65 20 63 6f  |68=1:. assume co|
00001ce0  6d 6d 6f 6e 20 73 70 72  69 74 65 20 61 72 65 61  |mmon sprite area|
00001cf0  20 77 68 65 6e 20 72 65  2d 6c 6f 61 64 69 6e 67  | when re-loading|
00001d00  0d 00 f4 1f 20 20 74 66  5f 64 61 74 61 73 69 7a  |....  tf_datasiz|
00001d10  65 25 3d 38 38 2b 33 32  2a 5f 51 25 21 38 38 0d  |e%=88+32*_Q%!88.|
00001d20  00 f5 21 20 20 f2 70 72  6f 63 65 73 73 69 63 6f  |..!  .processico|
00001d30  6e 28 5f 51 25 2b 36 30  2c 5f 51 25 2b 37 36 29  |n(_Q%+60,_Q%+76)|
00001d40  0d 00 f6 1e 20 20 e7 20  5f 51 25 21 38 38 3e 30  |....  . _Q%!88>0|
00001d50  20 f2 70 72 6f 63 65 73  73 69 63 6f 6e 73 0d 00  | .processicons..|
00001d60  f7 3e 20 20 c8 99 20 22  4f 53 5f 47 42 50 42 22  |.>  .. "OS_GBPB"|
00001d70  2c 31 2c 74 66 5f 68 61  6e 64 6c 65 25 2c 5f 51  |,1,tf_handle%,_Q|
00001d80  25 2b 34 2c 74 66 5f 64  61 74 61 73 69 7a 65 25  |%+4,tf_datasize%|
00001d90  2c 74 66 5f 64 61 74 61  70 74 72 25 0d 00 f8 1d  |,tf_dataptr%....|
00001da0  20 20 74 66 5f 69 6e 64  65 78 25 21 30 3d 74 66  |  tf_index%!0=tf|
00001db0  5f 64 61 74 61 70 74 72  25 0d 00 f9 1e 20 20 74  |_dataptr%....  t|
00001dc0  66 5f 69 6e 64 65 78 25  21 34 3d 74 66 5f 64 61  |f_index%!4=tf_da|
00001dd0  74 61 73 69 7a 65 25 0d  00 fa 13 20 20 74 66 5f  |tasize%....  tf_|
00001de0  69 6e 64 65 78 25 21 38  3d 31 0d 00 fb 22 20 20  |index%!8=1..."  |
00001df0  e7 20 66 75 6c 6c 6e 61  6d 65 24 3d 22 3c 57 69  |. fullname$="<Wi|
00001e00  6d 70 24 53 63 72 61 70  3e 22 20 8c 0d 00 fc 21  |mp$Scrap>" ....!|
00001e10  20 20 20 20 24 28 74 66  5f 69 6e 64 65 78 25 2b  |    $(tf_index%+|
00001e20  31 32 29 3d 22 67 72 61  62 62 65 64 22 0d 00 fd  |12)="grabbed"...|
00001e30  07 20 20 cc 0d 00 fe 2e  20 20 20 20 24 28 74 66  |.  .....    $(tf|
00001e40  5f 69 6e 64 65 78 25 2b  31 32 29 3d a4 73 68 65  |_index%+12)=.she|
00001e50  6c 6c 5f 4c 65 61 66 28  66 75 6c 6c 6e 61 6d 65  |ll_Leaf(fullname|
00001e60  24 29 0d 00 ff 07 20 20  cd 0d 01 00 2d 20 20 74  |$)....  ....-  t|
00001e70  66 5f 69 6e 64 65 78 25  2b 3d 32 34 3a 74 66 5f  |f_index%+=24:tf_|
00001e80  64 61 74 61 70 74 72 25  2b 3d 74 66 5f 64 61 74  |dataptr%+=tf_dat|
00001e90  61 73 69 7a 65 25 0d 01  01 08 ed 20 49 25 0d 01  |asize%..... I%..|
00001ea0  02 10 21 74 66 5f 69 6e  64 65 78 25 3d 30 0d 01  |..!tf_index%=0..|
00001eb0  03 37 e7 20 66 72 65 65  66 25 3d 31 20 21 69 6e  |.7. freef%=1 !in|
00001ec0  64 65 78 64 61 74 61 25  3d 2d 31 20 8b 20 21 69  |dexdata%=-1 . !i|
00001ed0  6e 64 65 78 64 61 74 61  25 3d 74 66 5f 64 61 74  |ndexdata%=tf_dat|
00001ee0  61 70 74 72 25 0d 01 04  41 c8 99 20 22 4f 53 5f  |aptr%...A.. "OS_|
00001ef0  47 42 50 42 22 2c 31 2c  74 66 5f 68 61 6e 64 6c  |GBPB",1,tf_handl|
00001f00  65 25 2c 69 6e 64 65 78  64 61 74 61 25 2c 74 66  |e%,indexdata%,tf|
00001f10  5f 69 6e 64 65 78 25 2b  34 2d 69 6e 64 65 78 64  |_index%+4-indexd|
00001f20  61 74 61 25 2c 30 0d 01  05 10 e7 20 66 72 65 65  |ata%,0..... free|
00001f30  66 25 3e 31 20 8c 0d 01  06 2c 20 20 e3 20 49 25  |f%>1 ....,  . I%|
00001f40  3d 30 20 b8 20 74 66 5f  66 73 69 7a 65 25 2d 31  |=0 . tf_fsize%-1|
00001f50  3a 69 6e 64 65 78 64 61  74 61 25 3f 49 25 3d 30  |:indexdata%?I%=0|
00001f60  3a ed 0d 01 07 17 20 20  e3 20 49 25 3d 31 20 b8  |:.....  . I%=1 .|
00001f70  20 66 72 65 65 66 25 2d  31 0d 01 08 25 20 20 4a  | freef%-1...%  J|
00001f80  25 3d 30 3a f5 4a 25 2b  3d 31 3a fd 66 6f 6e 74  |%=0:.J%+=1:.font|
00001f90  62 69 6e 64 69 6e 67 25  3f 4a 25 3d 49 25 0d 01  |binding%?J%=I%..|
00001fa0  09 46 20 20 c8 99 20 22  46 6f 6e 74 5f 52 65 61  |.F  .. "Font_Rea|
00001fb0  64 44 65 66 6e 22 2c 4a  25 2c 69 6e 64 65 78 64  |dDefn",J%,indexd|
00001fc0  61 74 61 25 2b 38 20 b8  20 2c 2c 69 6e 64 65 78  |ata%+8 . ,,index|
00001fd0  64 61 74 61 25 21 30 2c  69 6e 64 65 78 64 61 74  |data%!0,indexdat|
00001fe0  61 25 21 34 0d 01 0a 40  20 20 c8 99 20 22 4f 53  |a%!4...@  .. "OS|
00001ff0  5f 47 42 50 42 22 2c 31  2c 74 66 5f 68 61 6e 64  |_GBPB",1,tf_hand|
00002000  6c 65 25 2c 69 6e 64 65  78 64 61 74 61 25 2c 74  |le%,indexdata%,t|
00002010  66 5f 66 73 69 7a 65 25  2c 74 66 5f 64 61 74 61  |f_fsize%,tf_data|
00002020  70 74 72 25 0d 01 0b 1c  20 20 74 66 5f 64 61 74  |ptr%....  tf_dat|
00002030  61 70 74 72 25 2b 3d 74  66 5f 66 73 69 7a 65 25  |aptr%+=tf_fsize%|
00002040  0d 01 0c 07 20 20 ed 0d  01 0d 05 cd 0d 01 0e 11  |....  ..........|
00002050  d9 20 23 74 66 5f 68 61  6e 64 6c 65 25 0d 01 0f  |. #tf_handle%...|
00002060  27 ff 28 22 53 65 74 54  79 70 65 20 22 2b 66 75  |'.("SetType "+fu|
00002070  6c 6c 6e 61 6d 65 24 2b  22 20 54 65 6d 70 6c 61  |llname$+" Templa|
00002080  74 65 22 29 0d 01 10 28  f2 73 68 65 6c 6c 5f 48  |te")...(.shell_H|
00002090  65 61 70 42 6c 6f 63 6b  52 65 74 75 72 6e 28 66  |eapBlockReturn(f|
000020a0  6f 6e 74 62 69 6e 64 69  6e 67 25 29 0d 01 11 26  |ontbinding%)...&|
000020b0  f2 73 68 65 6c 6c 5f 48  65 61 70 42 6c 6f 63 6b  |.shell_HeapBlock|
000020c0  52 65 74 75 72 6e 28 69  6e 64 65 78 64 61 74 61  |Return(indexdata|
000020d0  25 29 0d 01 12 06 3d 30  0d 01 13 05 3a 0d 01 14  |%)....=0....:...|
000020e0  1f dd 20 f2 70 72 6f 63  65 73 73 69 63 6f 6e 28  |.. .processicon(|
000020f0  66 70 74 72 25 2c 71 70  74 72 25 29 0d 01 15 14  |fptr%,qptr%)....|
00002100  ea 20 42 25 2c 65 78 74  66 25 2c 69 6e 74 66 25  |. B%,extf%,intf%|
00002110  0d 01 16 14 e7 20 21 66  70 74 72 25 20 80 20 26  |..... !fptr% . &|
00002120  34 30 20 8c 0d 01 17 2c  20 20 65 78 74 66 25 3d  |40 ....,  extf%=|
00002130  66 70 74 72 25 3f 33 3a  69 6e 74 66 25 3d 66 6f  |fptr%?3:intf%=fo|
00002140  6e 74 62 69 6e 64 69 6e  67 25 3f 65 78 74 66 25  |ntbinding%?extf%|
00002150  0d 01 18 3f 20 20 e7 20  69 6e 74 66 25 3d 30 20  |...?  . intf%=0 |
00002160  69 6e 74 66 25 3d 66 72  65 65 66 25 3a 66 72 65  |intf%=freef%:fre|
00002170  65 66 25 2b 3d 31 3a 66  6f 6e 74 62 69 6e 64 69  |ef%+=1:fontbindi|
00002180  6e 67 25 3f 65 78 74 66  25 3d 69 6e 74 66 25 0d  |ng%?extf%=intf%.|
00002190  01 19 13 20 20 66 70 74  72 25 3f 33 3d 69 6e 74  |...  fptr%?3=int|
000021a0  66 25 0d 01 1a 05 cd 0d  01 1b 15 e7 20 21 66 70  |f%.......... !fp|
000021b0  74 72 25 20 80 20 26 31  30 30 20 8c 0d 01 1c 1b  |tr% . &100 .....|
000021c0  20 20 42 25 3d 5f 51 25  2b 34 2b 74 66 5f 64 61  |  B%=_Q%+4+tf_da|
000021d0  74 61 73 69 7a 65 25 0d  01 1d 3a 20 20 24 42 25  |tasize%...:  $B%|
000021e0  3d 24 21 71 70 74 72 25  3a 21 71 70 74 72 25 3d  |=$!qptr%:!qptr%=|
000021f0  74 66 5f 64 61 74 61 73  69 7a 65 25 3a 74 66 5f  |tf_datasize%:tf_|
00002200  64 61 74 61 73 69 7a 65  25 2b 3d a9 24 42 25 2b  |datasize%+=.$B%+|
00002210  31 0d 01 1e 13 20 20 e7  20 71 70 74 72 25 21 34  |1....  . qptr%!4|
00002220  3e 30 20 8c 0d 01 1f 1d  20 20 20 20 42 25 3d 5f  |>0 .....    B%=_|
00002230  51 25 2b 34 2b 74 66 5f  64 61 74 61 73 69 7a 65  |Q%+4+tf_datasize|
00002240  25 0d 01 20 40 20 20 20  20 24 42 25 3d 24 28 71  |%.. @    $B%=$(q|
00002250  70 74 72 25 21 34 29 3a  71 70 74 72 25 21 34 3d  |ptr%!4):qptr%!4=|
00002260  74 66 5f 64 61 74 61 73  69 7a 65 25 3a 74 66 5f  |tf_datasize%:tf_|
00002270  64 61 74 61 73 69 7a 65  25 2b 3d a9 24 42 25 2b  |datasize%+=.$B%+|
00002280  31 0d 01 21 07 20 20 cd  0d 01 22 05 cd 0d 01 23  |1..!.  ..."....#|
00002290  05 e1 0d 01 24 05 3a 0d  01 25 13 dd 20 f2 70 72  |....$.:..%.. .pr|
000022a0  6f 63 65 73 73 69 63 6f  6e 73 0d 01 26 0b ea 20  |ocessicons..&.. |
000022b0  49 25 2c 4a 25 0d 01 27  0d 4a 25 3d 5f 51 25 2b  |I%,J%..'.J%=_Q%+|
000022c0  39 32 0d 01 28 15 e3 20  49 25 3d 30 20 b8 20 5f  |92..(.. I%=0 . _|
000022d0  51 25 21 38 38 2d 31 0d  01 29 1f 20 20 f2 70 72  |Q%!88-1..).  .pr|
000022e0  6f 63 65 73 73 69 63 6f  6e 28 4a 25 2b 31 36 2c  |ocessicon(J%+16,|
000022f0  4a 25 2b 32 30 29 0d 01  2a 0c 20 20 4a 25 2b 3d  |J%+20)..*.  J%+=|
00002300  33 32 0d 01 2b 08 ed 20  49 25 0d 01 2c 05 e1 0d  |32..+.. I%..,...|
00002310  01 2d 05 3a 0d 01 2e 12  dd a4 67 65 74 5f 66 69  |.-.:......get_fi|
00002320  6c 65 6e 61 6d 65 0d 01  2f 12 ea 20 6e 72 24 2c  |lename../.. nr$,|
00002330  62 6c 6b 25 2c 6e 72 25  0d 01 30 23 62 6c 6b 25  |blk%,nr%..0#blk%|
00002340  3d a4 73 68 65 6c 6c 5f  48 65 61 70 42 6c 6f 63  |=.shell_HeapBloc|
00002350  6b 46 65 74 63 68 28 32  35 36 29 0d 01 31 3f 6e  |kFetch(256)..1?n|
00002360  72 25 3d a4 64 69 72 5f  72 65 61 64 28 66 6e 61  |r%=.dir_read(fna|
00002370  6d 65 24 28 29 2c a4 73  68 65 6c 6c 5f 47 65 74  |me$(),.shell_Get|
00002380  41 70 70 44 61 74 61 44  69 72 2c 22 73 70 72 69  |AppDataDir,"spri|
00002390  74 65 2a 22 2c 62 6c 6b  25 29 0d 01 32 0d e7 20  |te*",blk%)..2.. |
000023a0  6e 72 25 3e 30 20 8c 0d  01 33 34 20 20 f2 73 68  |nr%>0 ...34  .sh|
000023b0  65 6c 6c 5f 54 72 61 63  65 66 30 28 22 66 69 6c  |ell_Tracef0("fil|
000023c0  65 73 20 66 6f 75 6e 64  20 2d 20 22 2b 66 6e 61  |es found - "+fna|
000023d0  6d 65 24 28 6e 72 25 2d  31 29 29 0d 01 34 22 20  |me$(nr%-1))..4" |
000023e0  20 f2 73 68 65 6c 6c 5f  48 65 61 70 42 6c 6f 63  | .shell_HeapBloc|
000023f0  6b 52 65 74 75 72 6e 28  62 6c 6b 25 29 0d 01 35  |kReturn(blk%)..5|
00002400  1e 20 20 6e 72 25 3d bb  28 c1 66 6e 61 6d 65 24  |.  nr%=.(.fname$|
00002410  28 6e 72 25 2d 31 29 2c  37 29 29 0d 01 36 05 cd  |(nr%-1),7))..6..|
00002420  0d 01 37 22 3d 22 73 70  72 69 74 65 22 2b c2 22  |..7"="sprite"+."|
00002430  30 30 30 30 30 22 2b c3  28 6e 72 25 2b 31 29 2c  |00000"+.(nr%+1),|
00002440  33 29 0d 01 38 05 3a 0d  01 39 19 dd a4 5f 64 6f  |3)..8.:..9..._do|
00002450  5f 73 61 76 65 28 66 75  6c 6c 6e 61 6d 65 24 29  |_save(fullname$)|
00002460  0d 01 3a 34 c8 99 20 22  4f 53 5f 53 70 72 69 74  |..:4.. "OS_Sprit|
00002470  65 4f 70 22 2c 32 36 38  2c 73 61 76 65 5f 62 75  |eOp",268,save_bu|
00002480  66 66 25 2c 66 75 6c 6c  6e 61 6d 65 24 3a f4 20  |ff%,fullname$:. |
00002490  73 61 76 65 0d 01 3b 26  f2 73 68 65 6c 6c 5f 48  |save..;&.shell_H|
000024a0  65 61 70 42 6c 6f 63 6b  52 65 74 75 72 6e 28 73  |eapBlockReturn(s|
000024b0  61 76 65 5f 62 75 66 66  25 29 0d 01 3c 06 3d 30  |ave_buff%)..<.=0|
000024c0  0d 01 3d 05 3a 0d 01 3e  23 dd a4 67 65 74 5f 65  |..=.:..>#..get_e|
000024d0  73 74 5f 73 61 76 65 73  69 7a 65 28 6c 25 2c 62  |st_savesize(l%,b|
000024e0  25 2c 72 25 2c 74 25 29  0d 01 3f 1d ea 20 73 61  |%,r%,t%)..?.. sa|
000024f0  76 65 5f 61 72 65 61 25  2c 73 63 72 65 65 6e 5f  |ve_area%,screen_|
00002500  61 72 65 61 25 0d 01 40  11 e7 20 6c 25 3c 30 20  |area%..@.. l%<0 |
00002510  8c 20 6c 25 3d 30 0d 01  41 1e 73 61 76 65 5f 61  |. l%=0..A.save_a|
00002520  72 65 61 25 3d 28 72 25  2d 6c 25 29 2a 28 74 25  |rea%=(r%-l%)*(t%|
00002530  2d 62 25 29 0d 01 42 2d  73 63 72 65 65 6e 5f 61  |-b%)..B-screen_a|
00002540  72 65 61 25 3d 73 63 72  65 65 6e 5f 77 69 64 74  |rea%=screen_widt|
00002550  68 25 2a 73 63 72 65 65  6e 5f 68 65 69 67 68 74  |h%*screen_height|
00002560  25 0d 01 43 64 f2 73 68  65 6c 6c 5f 54 72 61 63  |%..Cd.shell_Trac|
00002570  65 66 30 28 22 42 75 66  66 65 72 20 73 69 7a 65  |ef0("Buffer size|
00002580  20 63 6c 61 69 6d 65 64  20 3d 20 22 2b c3 28 a8  | claimed = "+.(.|
00002590  28 28 73 63 72 65 65 6e  5f 62 75 66 66 65 72 73  |((screen_buffers|
000025a0  69 7a 65 25 2a 73 61 76  65 5f 61 72 65 61 25 29  |ize%*save_area%)|
000025b0  2f 73 63 72 65 65 6e 5f  61 72 65 61 25 29 2b 32  |/screen_area%)+2|
000025c0  30 34 30 29 29 0d 01 44  3b 3d 28 a8 28 28 73 63  |040))..D;=(.((sc|
000025d0  72 65 65 6e 5f 62 75 66  66 65 72 73 69 7a 65 25  |reen_buffersize%|
000025e0  2a 73 61 76 65 5f 61 72  65 61 25 29 2f 73 63 72  |*save_area%)/scr|
000025f0  65 65 6e 5f 61 72 65 61  25 29 29 2b 32 30 34 38  |een_area%))+2048|
00002600  0d 01 45 05 3a 0d 01 46  12 dd 20 a4 5f 6d 6f 64  |..E.:..F.. ._mod|
00002610  65 63 68 61 6e 67 65 0d  01 47 24 73 63 72 65 65  |echange..G$scree|
00002620  6e 5f 77 69 64 74 68 25  3d 30 3a 73 63 72 65 65  |n_width%=0:scree|
00002630  6e 5f 68 65 69 67 68 74  25 3d 30 0d 01 48 36 f2  |n_height%=0..H6.|
00002640  67 65 74 5f 73 63 72 65  65 6e 6d 61 78 63 6f 6f  |get_screenmaxcoo|
00002650  72 64 73 28 73 63 72 65  65 6e 5f 77 69 64 74 68  |rds(screen_width|
00002660  25 2c 73 63 72 65 65 6e  5f 68 65 69 67 68 74 25  |%,screen_height%|
00002670  29 0d 01 49 2c 73 63 72  65 65 6e 5f 62 75 66 66  |)..I,screen_buff|
00002680  65 72 73 69 7a 65 25 3d  a4 67 65 74 5f 73 63 72  |ersize%=.get_scr|
00002690  65 65 6e 62 75 66 66 65  72 73 69 7a 65 0d 01 4a  |eenbuffersize..J|
000026a0  06 3d 30 0d 01 4b 05 3a  0d 01 4c 1a dd a4 67 65  |.=0..K.:..L...ge|
000026b0  74 5f 73 63 72 65 65 6e  62 75 66 66 65 72 73 69  |t_screenbuffersi|
000026c0  7a 65 0d 01 4d 1c ea 20  69 6e 62 6c 6b 25 2c 6f  |ze..M.. inblk%,o|
000026d0  75 74 62 6c 6b 25 2c 72  65 73 75 6c 74 25 0d 01  |utblk%,result%..|
000026e0  4e 24 69 6e 62 6c 6b 25  3d a4 73 68 65 6c 6c 5f  |N$inblk%=.shell_|
000026f0  48 65 61 70 42 6c 6f 63  6b 46 65 74 63 68 28 31  |HeapBlockFetch(1|
00002700  30 29 0d 01 4f 25 6f 75  74 62 6c 6b 25 3d a4 73  |0)..O%outblk%=.s|
00002710  68 65 6c 6c 5f 48 65 61  70 42 6c 6f 63 6b 46 65  |hell_HeapBlockFe|
00002720  74 63 68 28 31 30 29 0d  01 50 1c 69 6e 62 6c 6b  |tch(10)..P.inblk|
00002730  25 21 30 3d 31 35 30 3a  69 6e 62 6c 6b 25 21 34  |%!0=150:inblk%!4|
00002740  3d 2d 31 0d 01 51 2b c8  99 20 22 4f 53 5f 52 65  |=-1..Q+.. "OS_Re|
00002750  61 64 56 64 75 56 61 72  69 61 62 6c 65 73 22 2c  |adVduVariables",|
00002760  69 6e 62 6c 6b 25 2c 6f  75 74 62 6c 6b 25 0d 01  |inblk%,outblk%..|
00002770  52 15 72 65 73 75 6c 74  25 3d 6f 75 74 62 6c 6b  |R.result%=outblk|
00002780  25 21 30 0d 01 53 22 f2  73 68 65 6c 6c 5f 48 65  |%!0..S".shell_He|
00002790  61 70 42 6c 6f 63 6b 52  65 74 75 72 6e 28 69 6e  |apBlockReturn(in|
000027a0  62 6c 6b 25 29 0d 01 54  23 f2 73 68 65 6c 6c 5f  |blk%)..T#.shell_|
000027b0  48 65 61 70 42 6c 6f 63  6b 52 65 74 75 72 6e 28  |HeapBlockReturn(|
000027c0  6f 75 74 62 6c 6b 25 29  0d 01 55 0c 3d 72 65 73  |outblk%)..U.=res|
000027d0  75 6c 74 25 0d 01 56 05  3a 0d 01 57 24 dd f2 67  |ult%..V.:..W$..g|
000027e0  65 74 5f 73 63 72 65 65  6e 6d 61 78 63 6f 6f 72  |et_screenmaxcoor|
000027f0  64 73 28 f8 20 58 25 2c  f8 20 59 25 29 0d 01 58  |ds(. X%,. Y%)..X|
00002800  0d ea 20 72 65 73 75 6c  74 25 0d 01 59 48 f4 20  |.. result%..YH. |
00002810  75 73 65 20 4f 53 5f 52  65 61 64 50 6f 69 6e 74  |use OS_ReadPoint|
00002820  20 74 6f 20 64 69 73 63  6f 76 65 72 20 73 63 72  | to discover scr|
00002830  65 65 6e 20 73 69 7a 65  20 69 6e 20 27 65 78 74  |een size in 'ext|
00002840  65 72 6e 61 6c 20 63 6f  6f 72 64 69 6e 61 74 65  |ernal coordinate|
00002850  73 27 0d 01 5a 11 58 25  3d 36 30 30 3a 59 25 3d  |s'..Z.X%=600:Y%=|
00002860  32 30 30 0d 01 5b 05 f5  0d 01 5c 0b 20 20 58 25  |200..[....\.  X%|
00002870  2b 3d 31 0d 01 5d 1f 20  20 c8 99 20 26 33 32 2c  |+=1..].  .. &32,|
00002880  58 25 2c 30 20 b8 20 2c  2c 2c 2c 72 65 73 75 6c  |X%,0 . ,,,,resul|
00002890  74 25 0d 01 5e 10 fd 20  72 65 73 75 6c 74 25 3d  |t%..^.. result%=|
000028a0  2d 31 0d 01 5f 05 f5 0d  01 60 0b 20 20 59 25 2b  |-1.._....`.  Y%+|
000028b0  3d 31 0d 01 61 1f 20 20  c8 99 20 26 33 32 2c 30  |=1..a.  .. &32,0|
000028c0  2c 59 25 20 b8 20 2c 2c  2c 2c 72 65 73 75 6c 74  |,Y% . ,,,,result|
000028d0  25 0d 01 62 10 fd 20 72  65 73 75 6c 74 25 3d 2d  |%..b.. result%=-|
000028e0  31 0d 01 63 05 e1 0d 01  64 05 3a 0d 01 65 23 dd  |1..c....d.:..e#.|
000028f0  a4 5f 6d 65 6e 75 73 65  6c 65 63 74 5f 73 69 63  |._menuselect_sic|
00002900  6f 6e 28 73 65 6c 65 63  74 69 6f 6e 24 29 0d 01  |on(selection$)..|
00002910  66 13 c8 8e 20 73 65 6c  65 63 74 69 6f 6e 24 20  |f... selection$ |
00002920  ca 0d 01 67 24 20 20 c9  20 a4 73 68 65 6c 6c 5f  |...g$  . .shell_|
00002930  4d 65 73 73 61 67 65 4e  6f 41 72 67 73 28 22 48  |MessageNoArgs("H|
00002940  65 6c 70 22 29 0d 01 68  2f 20 20 20 20 f2 73 68  |elp")..h/    .sh|
00002950  65 6c 6c 5f 48 65 6c 70  57 6f 72 64 28 a4 73 68  |ell_HelpWord(.sh|
00002960  65 6c 6c 5f 47 65 74 41  70 70 4e 61 6d 65 2b 22  |ell_GetAppName+"|
00002970  2e 24 22 29 0d 01 69 1b  20 20 c9 20 22 47 65 74  |.$")..i.  . "Get|
00002980  20 57 69 6e 64 6f 77 20  53 70 72 69 74 65 22 0d  | Window Sprite".|
00002990  01 6a 43 20 20 20 20 c8  99 20 22 4d 65 6e 75 5f  |.jC    .. "Menu_|
000029a0  54 69 63 6b 22 2c a4 73  68 65 6c 6c 5f 4d 65 6e  |Tick",.shell_Men|
000029b0  75 42 61 73 65 2c a4 73  68 65 6c 6c 5f 4d 65 6e  |uBase,.shell_Men|
000029c0  75 53 74 72 69 6e 67 28  a4 67 65 74 5f 6f 70 29  |uString(.get_op)|
000029d0  2c 30 0d 01 6b 15 20 20  20 20 77 69 6e 73 61 76  |,0..k.    winsav|
000029e0  65 5f 6f 70 25 3d 30 0d  01 6c 30 20 20 20 20 f2  |e_op%=0..l0    .|
000029f0  73 68 65 6c 6c 5f 49 63  6f 6e 62 61 72 53 65 74  |shell_IconbarSet|
00002a00  54 65 78 74 28 2d 31 2c  73 69 63 6f 6e 2c 22 53  |Text(-1,sicon,"S|
00002a10  70 72 69 74 65 22 29 0d  01 6d 1d 20 20 c9 20 22  |prite")..m.  . "|
00002a20  47 65 74 20 57 69 6e 64  6f 77 20 54 65 6d 70 6c  |Get Window Templ|
00002a30  61 74 65 22 0d 01 6e 43  20 20 20 20 c8 99 20 22  |ate"..nC    .. "|
00002a40  4d 65 6e 75 5f 54 69 63  6b 22 2c a4 73 68 65 6c  |Menu_Tick",.shel|
00002a50  6c 5f 4d 65 6e 75 42 61  73 65 2c a4 73 68 65 6c  |l_MenuBase,.shel|
00002a60  6c 5f 4d 65 6e 75 53 74  72 69 6e 67 28 a4 67 65  |l_MenuString(.ge|
00002a70  74 5f 6f 70 29 2c 30 0d  01 6f 15 20 20 20 20 77  |t_op),0..o.    w|
00002a80  69 6e 73 61 76 65 5f 6f  70 25 3d 32 0d 01 70 34  |insave_op%=2..p4|
00002a90  20 20 20 20 f2 73 68 65  6c 6c 5f 49 63 6f 6e 62  |    .shell_Iconb|
00002aa0  61 72 53 65 74 54 65 78  74 28 2d 31 2c 73 69 63  |arSetText(-1,sic|
00002ab0  6f 6e 2c 22 54 65 6d 70  6c 61 74 65 22 29 20 20  |on,"Template")  |
00002ac0  0d 01 71 1a 20 20 c9 20  22 47 65 74 20 57 68 6f  |..q.  . "Get Who|
00002ad0  6c 65 20 53 63 72 65 65  6e 22 0d 01 72 43 20 20  |le Screen"..rC  |
00002ae0  20 20 c8 99 20 22 4d 65  6e 75 5f 54 69 63 6b 22  |  .. "Menu_Tick"|
00002af0  2c a4 73 68 65 6c 6c 5f  4d 65 6e 75 42 61 73 65  |,.shell_MenuBase|
00002b00  2c a4 73 68 65 6c 6c 5f  4d 65 6e 75 53 74 72 69  |,.shell_MenuStri|
00002b10  6e 67 28 a4 67 65 74 5f  6f 70 29 2c 30 0d 01 73  |ng(.get_op),0..s|
00002b20  15 20 20 20 20 77 69 6e  73 61 76 65 5f 6f 70 25  |.    winsave_op%|
00002b30  3d 35 0d 01 74 30 20 20  20 20 f2 73 68 65 6c 6c  |=5..t0    .shell|
00002b40  5f 49 63 6f 6e 62 61 72  53 65 74 54 65 78 74 28  |_IconbarSetText(|
00002b50  2d 31 2c 73 69 63 6f 6e  2c 22 53 63 72 65 65 6e  |-1,sicon,"Screen|
00002b60  22 29 0d 01 75 24 20 20  c9 20 a4 73 68 65 6c 6c  |")..u$  . .shell|
00002b70  5f 4d 65 73 73 61 67 65  4e 6f 41 72 67 73 28 22  |_MessageNoArgs("|
00002b80  51 75 69 74 22 29 0d 01  76 15 20 20 20 20 5f 63  |Quit")..v.    _c|
00002b90  6c 6f 73 65 64 6f 77 6e  25 3d b9 0d 01 77 05 cb  |losedown%=...w..|
00002ba0  0d 01 78 06 3d 30 0d 01  79 05 3a 0d 01 7a 0e dd  |..x.=0..y.:..z..|
00002bb0  f2 61 70 70 5f 69 6e 69  74 0d 01 7b 29 de 20 6e  |.app_init..{). n|
00002bc0  61 6d 65 5f 62 75 66 66  25 20 32 30 2c 20 70 61  |ame_buff% 20, pa|
00002bd0  74 68 25 20 32 35 36 2c  66 6e 61 6d 65 24 28 37  |th% 256,fname$(7|
00002be0  37 29 0d 01 7c 26 24 70  61 74 68 25 3d a4 73 68  |7)..|&$path%=.sh|
00002bf0  65 6c 6c 5f 47 65 74 41  70 70 44 69 72 2b 22 2e  |ell_GetAppDir+".|
00002c00  67 72 61 62 62 65 64 22  0d 01 7d 16 24 6e 61 6d  |grabbed"..}.$nam|
00002c10  65 5f 62 75 66 66 25 3d  22 67 72 61 62 22 0d 01  |e_buff%="grab"..|
00002c20  7e 10 73 61 76 65 5f 62  75 66 66 25 3d 30 0d 01  |~.save_buff%=0..|
00002c30  7f 38 77 69 6e 73 61 76  65 5f 6f 70 25 3d 30 3a  |.8winsave_op%=0:|
00002c40  f4 20 6b 65 65 70 73 20  74 72 61 63 6b 20 6f 66  |. keeps track of|
00002c50  20 74 79 70 65 20 6f 66  20 73 61 76 65 20 73 65  | type of save se|
00002c60  6c 65 63 74 65 64 0d 01  80 17 66 6c 61 67 5f 47  |lected....flag_G|
00002c70  72 61 62 50 65 6e 64 69  6e 67 25 3d a3 0d 01 81  |rabPending%=....|
00002c80  7a 73 69 63 6f 6e 3d a4  73 68 65 6c 6c 5f 49 63  |zsicon=.shell_Ic|
00002c90  6f 6e 62 61 72 28 2d 31  2c 22 21 22 2b a4 73 68  |onbar(-1,"!"+.sh|
00002ca0  65 6c 6c 5f 47 65 74 41  70 70 4e 61 6d 65 2c 22  |ell_GetAppName,"|
00002cb0  53 70 72 69 74 65 22 2c  31 32 30 2c a4 73 68 65  |Sprite",120,.she|
00002cc0  6c 6c 5f 4d 65 73 73 61  67 65 4e 6f 41 72 67 73  |ll_MessageNoArgs|
00002cd0  28 22 57 69 6e 53 61 76  65 32 22 29 2c 30 2c 30  |("WinSave2"),0,0|
00002ce0  2c 30 2c 22 5f 6d 65 6e  75 73 65 6c 65 63 74 5f  |,0,"_menuselect_|
00002cf0  73 69 63 6f 6e 22 29 0d  01 82 2c f2 73 68 65 6c  |sicon")...,.shel|
00002d00  6c 5f 41 74 74 61 63 68  48 65 6c 70 54 61 67 28  |l_AttachHelpTag(|
00002d10  2d 31 2c 73 69 63 6f 6e  2c 22 69 63 6f 6e 62 61  |-1,sicon,"iconba|
00002d20  72 22 29 0d 01 83 37 f2  73 68 65 6c 6c 5f 41 74  |r")...7.shell_At|
00002d30  74 61 63 68 43 6c 69 63  6b 41 64 6a 75 73 74 28  |tachClickAdjust(|
00002d40  2d 31 2c 73 69 63 6f 6e  2c 22 5f 61 64 6a 75 73  |-1,sicon,"_adjus|
00002d50  74 69 63 6f 6e 62 61 72  22 29 0d 01 84 39 f2 73  |ticonbar")...9.s|
00002d60  68 65 6c 6c 5f 41 74 74  61 63 68 4d 65 6e 75 4d  |hell_AttachMenuM|
00002d70  61 6b 65 72 28 2d 31 2c  73 69 63 6f 6e 2c 22 5f  |aker(-1,sicon,"_|
00002d80  6d 65 6e 75 6d 61 6b 65  72 5f 69 63 6f 6e 62 61  |menumaker_iconba|
00002d90  72 22 29 0d 01 85 5a f2  73 68 65 6c 6c 5f 41 74  |r")...Z.shell_At|
00002da0  74 61 63 68 4d 65 6e 75  44 42 6f 78 28 a4 73 68  |tachMenuDBox(.sh|
00002db0  65 6c 6c 5f 4d 65 6e 75  44 65 63 6f 64 65 28 22  |ell_MenuDecode("|
00002dc0  57 69 6e 53 61 76 65 32  2e 49 6e 66 6f 22 29 2c  |WinSave2.Info"),|
00002dd0  22 70 72 6f 67 49 6e 66  6f 22 2c 22 5f 50 72 65  |"progInfo","_Pre|
00002de0  4f 70 65 6e 49 6e 66 6f  22 2c 22 22 29 0d 01 86  |OpenInfo","")...|
00002df0  59 f2 73 68 65 6c 6c 5f  41 74 74 61 63 68 4d 65  |Y.shell_AttachMe|
00002e00  6e 75 44 42 6f 78 28 a4  73 68 65 6c 6c 5f 4d 65  |nuDBox(.shell_Me|
00002e10  6e 75 44 65 63 6f 64 65  28 22 57 69 6e 53 61 76  |nuDecode("WinSav|
00002e20  65 32 2e 53 65 74 75 70  22 29 2c 22 73 65 74 75  |e2.Setup"),"setu|
00002e30  70 22 2c 22 5f 50 72 65  4f 70 65 6e 53 65 74 55  |p","_PreOpenSetU|
00002e40  70 22 2c 22 22 29 0d 01  87 2b f2 73 68 65 6c 6c  |p","")...+.shell|
00002e50  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 53 74 61  |_CreateWindowSta|
00002e60  74 69 63 28 22 67 72 61  62 22 2c 67 72 61 62 25  |tic("grab",grab%|
00002e70  29 0d 01 88 30 f2 73 68  65 6c 6c 5f 43 72 65 61  |)...0.shell_Crea|
00002e80  74 65 57 69 6e 64 6f 77  53 74 61 74 69 63 28 22  |teWindowStatic("|
00002e90  78 66 65 72 5f 73 65 6e  64 22 2c 78 66 65 72 25  |xfer_send",xfer%|
00002ea0  29 0d 01 89 42 f4 20 44  6f 6e 27 74 20 6f 70 65  |)...B. Don't ope|
00002eb0  6e 20 61 20 77 69 6e 64  6f 77 20 77 68 65 6e 20  |n a window when |
00002ec0  74 68 65 20 68 6f 74 20  6b 65 79 20 69 73 20 64  |the hot key is d|
00002ed0  65 74 65 63 74 65 64 20  61 73 20 77 65 20 6d 69  |etected as we mi|
00002ee0  67 68 74 0d 01 8a 38 f4  20 68 61 76 65 20 74 6f  |ght...8. have to|
00002ef0  20 62 72 69 6e 67 20 74  68 65 20 74 61 72 67 65  | bring the targe|
00002f00  74 20 77 69 6e 64 6f 77  20 74 6f 20 74 68 65 20  |t window to the |
00002f10  74 6f 70 20 66 69 72 73  74 2e 2e 0d 01 8b 3c f2  |top first.....<.|
00002f20  73 68 65 6c 6c 5f 41 74  74 61 63 68 48 6f 74 4b  |shell_AttachHotK|
00002f30  65 79 28 22 53 22 2c a3  2c b9 2c a3 2c 22 22 2c  |ey("S",.,.,.,"",|
00002f40  30 2c 22 5f 50 72 65 70  61 72 65 46 6f 72 47 72  |0,"_PrepareForGr|
00002f50  61 62 22 2c 22 22 29 0d  01 8c 32 f2 73 68 65 6c  |ab","")...2.shel|
00002f60  6c 5f 41 74 74 61 63 68  43 6c 69 63 6b 53 65 6c  |l_AttachClickSel|
00002f70  65 63 74 28 78 66 65 72  25 2c 30 2c 22 5f 63 6c  |ect(xfer%,0,"_cl|
00002f80  69 63 6b 78 66 65 72 22  29 0d 01 8d 31 f2 73 68  |ickxfer")...1.sh|
00002f90  65 6c 6c 5f 41 74 74 61  63 68 4d 6f 64 65 43 68  |ell_AttachModeCh|
00002fa0  61 6e 67 65 48 61 6e 64  6c 65 72 28 22 5f 6d 6f  |angeHandler("_mo|
00002fb0  64 65 63 68 61 6e 67 65  22 29 0d 01 8e 22 f2 73  |dechange")...".s|
00002fc0  68 65 6c 6c 5f 4f 70 65  6e 57 69 6e 64 6f 77 53  |hell_OpenWindowS|
00002fd0  74 61 74 69 63 28 67 72  61 62 25 29 0d 01 8f 28  |tatic(grab%)...(|
00002fe0  f2 73 68 65 6c 6c 5f 57  69 6e 64 6f 77 4d 6f 76  |.shell_WindowMov|
00002ff0  65 54 6f 28 67 72 61 62  25 2c 2d 35 30 30 30 2c  |eTo(grab%,-5000,|
00003000  35 30 30 29 0d 01 90 11  f2 72 65 61 64 5f 63 68  |500).....read_ch|
00003010  6f 69 63 65 73 0d 01 91  43 f2 73 68 65 6c 6c 5f  |oices...C.shell_|
00003020  49 6e 69 74 48 65 6c 70  53 79 73 74 65 6d 28 a4  |InitHelpSystem(.|
00003030  73 68 65 6c 6c 5f 47 65  74 41 70 70 44 69 72 2b  |shell_GetAppDir+|
00003040  22 2e 22 2b a4 73 68 65  6c 6c 5f 47 65 74 41 70  |"."+.shell_GetAp|
00003050  70 4e 61 6d 65 2c b9 29  0d 01 92 05 e1 0d 01 93  |pName,.)........|
00003060  05 3a 0d 01 94 13 dd 20  f2 72 65 61 64 5f 63 68  |.:..... .read_ch|
00003070  6f 69 63 65 73 0d 01 95  08 ea 20 58 25 0d 01 96  |oices..... X%...|
00003080  36 e7 20 a4 73 68 65 6c  6c 5f 46 69 6c 65 45 78  |6. .shell_FileEx|
00003090  69 73 74 73 28 a4 73 68  65 6c 6c 5f 47 65 74 41  |ists(.shell_GetA|
000030a0  70 70 44 69 72 2b 22 2e  43 68 6f 69 63 65 73 22  |ppDir+".Choices"|
000030b0  29 20 8c 0d 01 97 27 20  20 58 25 3d 8e 28 a4 73  |) ....'  X%=.(.s|
000030c0  68 65 6c 6c 5f 47 65 74  41 70 70 44 69 72 2b 22  |hell_GetAppDir+"|
000030d0  2e 43 68 6f 69 63 65 73  22 29 0d 01 98 1d 20 20  |.Choices")....  |
000030e0  e8 23 20 58 25 2c 66 6c  61 67 5f 57 69 74 68 50  |.# X%,flag_WithP|
000030f0  61 6c 65 74 74 65 25 0d  01 99 1c 20 20 e8 23 20  |alette%....  .# |
00003100  58 25 2c 66 6c 61 67 5f  42 72 69 6e 67 54 6f 54  |X%,flag_BringToT|
00003110  6f 70 25 0d 01 9a 1e 20  20 e8 23 20 58 25 2c 66  |op%....  .# X%,f|
00003120  6c 61 67 5f 43 6f 6e 74  65 6e 74 73 4f 6e 6c 79  |lag_ContentsOnly|
00003130  25 0d 01 9b 0a 20 20 d9  23 58 25 0d 01 9c 05 cc  |%....  .#X%.....|
00003140  0d 01 9d 41 20 20 66 6c  61 67 5f 57 69 74 68 50  |...A  flag_WithP|
00003150  61 6c 65 74 74 65 25 3d  a3 3a 66 6c 61 67 5f 42  |alette%=.:flag_B|
00003160  72 69 6e 67 54 6f 54 6f  70 25 3d a3 3a 66 6c 61  |ringToTop%=.:fla|
00003170  67 5f 43 6f 6e 74 65 6e  74 73 4f 6e 6c 79 25 3d  |g_ContentsOnly%=|
00003180  a3 0d 01 9e 05 cd 0d 01  9f 05 e1 0d 01 a0 05 3a  |...............:|
00003190  0d 01 a1 31 dd a4 64 69  72 5f 72 65 61 64 28 6e  |...1..dir_read(n|
000031a0  61 6d 65 24 28 29 2c 64  69 72 5f 6e 61 6d 65 24  |ame$(),dir_name$|
000031b0  2c 66 69 6c 65 5f 6e 61  6d 65 24 2c 62 6c 6b 25  |,file_name$,blk%|
000031c0  29 0d 01 a2 19 ea 20 6f  66 66 73 65 74 25 2c 6e  |)..... offset%,n|
000031d0  65 77 5f 6f 66 66 73 65  74 25 0d 01 a3 0b ea 20  |ew_offset%..... |
000031e0  6c 6f 6f 70 25 0d 01 a4  10 63 6f 75 6e 74 65 72  |loop%....counter|
000031f0  25 20 3d 20 30 0d 01 a5  34 6f 66 66 73 65 74 25  |% = 0...4offset%|
00003200  3d 30 3a 6e 65 77 5f 6f  66 66 73 65 74 25 3d 30  |=0:new_offset%=0|
00003210  3a 74 6f 74 61 6c 5f 72  65 61 64 25 3d 30 3a 6e  |:total_read%=0:n|
00003220  72 5f 72 65 61 64 25 3d  30 0d 01 a6 05 f5 0d 01  |r_read%=0.......|
00003230  a7 1b 20 20 6f 66 66 73  65 74 25 20 3d 20 6e 65  |..  offset% = ne|
00003240  77 5f 6f 66 66 73 65 74  25 0d 01 a8 57 20 20 c8  |w_offset%...W  .|
00003250  99 20 22 4f 53 5f 47 42  50 42 22 2c 39 2c 64 69  |. "OS_GBPB",9,di|
00003260  72 5f 6e 61 6d 65 24 2c  62 6c 6b 25 2c 37 37 2c  |r_name$,blk%,77,|
00003270  6f 66 66 73 65 74 25 2c  32 35 36 2c 66 69 6c 65  |offset%,256,file|
00003280  5f 6e 61 6d 65 24 20 b8  20 2c 2c 2c 6e 72 5f 72  |_name$ . ,,,nr_r|
00003290  65 61 64 25 2c 6e 65 77  5f 6f 66 66 73 65 74 25  |ead%,new_offset%|
000032a0  0d 01 a9 1d 20 20 74 6f  74 61 6c 5f 72 65 61 64  |....  total_read|
000032b0  25 20 2b 3d 20 6e 72 5f  72 65 61 64 25 0d 01 aa  |% += nr_read%...|
000032c0  14 20 20 e7 20 6e 72 5f  72 65 61 64 25 3e 30 20  |.  . nr_read%>0 |
000032d0  8c 0d 01 ab 0e 20 20 20  20 70 74 72 25 3d 30 0d  |.....    ptr%=0.|
000032e0  01 ac 29 20 20 20 20 e3  20 6c 6f 6f 70 25 20 3d  |..)    . loop% =|
000032f0  20 6f 66 66 73 65 74 25  20 b8 20 74 6f 74 61 6c  | offset% . total|
00003300  5f 72 65 61 64 25 2d 31  0d 01 ad 32 20 20 20 20  |_read%-1...2    |
00003310  20 20 6e 61 6d 65 24 28  6c 6f 6f 70 25 29 3d a4  |  name$(loop%)=.|
00003320  6d 65 6d 5f 74 6f 5f 73  74 72 69 6e 67 28 62 6c  |mem_to_string(bl|
00003330  6b 25 2c 70 74 72 25 2c  30 29 0d 01 ae 21 20 20  |k%,ptr%,0)...!  |
00003340  20 20 20 20 70 74 72 25  2b 3d a9 28 6e 61 6d 65  |    ptr%+=.(name|
00003350  24 28 6c 6f 6f 70 25 29  29 2b 31 0d 01 af 0f 20  |$(loop%))+1.... |
00003360  20 20 20 ed 20 6c 6f 6f  70 25 0d 01 b0 07 20 20  |   . loop%....  |
00003370  cd 0d 01 b1 16 fd 20 6e  65 77 5f 6f 66 66 73 65  |...... new_offse|
00003380  74 25 20 3d 20 2d 31 0d  01 b2 11 3d 20 74 6f 74  |t% = -1....= tot|
00003390  61 6c 5f 72 65 61 64 25  0d 01 b3 05 3a 0d 01 b4  |al_read%....:...|
000033a0  4a f4 20 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |J. =============|
000033b0  3d 3d 3d 3d 3d 3d 20 52  6f 75 74 69 6e 65 73 20  |====== Routines |
000033c0  74 6f 20 67 6f 20 69 6e  20 74 68 65 20 6c 69 62  |to go in the lib|
000033d0  72 61 72 79 20 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |rary ===========|
000033e0  3d 3d 3d 3d 3d 3d 3d 0d  01 b5 05 3a 0d 01 b6 04  |=======....:....|
000033f0  0d 01 b7 04 0d ff                                 |......|
000033f6