� > <WinSave2$Dir>.!WinSave2
:
3� � �12:ș"Hourglass_Smash":�:�" at line: ";�:�
:
'ț "<EvntShellSystem$Path>ShellLib"
:
ș "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("")
� PROCshell_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
%:
&ș "Hourglass_Off"
'�
(+  �shell_Action(�shell_Poll_I(0,task%))
)� _closedown%
*:
+�shell_Exit:�
,:
-L� ======================================================================
.:
/� �app_init
0)� name_buff% 20, path% 256,fname$(77)
1&$path%=�shell_GetAppDir+".grabbed"
2$name_buff%="grab"
3save_buff%=0
48winsave_op%=0:� keeps track of type of save selected
5flag_GrabPending%=�
6�SetUp_Menus
7�SetUp_Windows
8�SetUp_IconBar
91�shell_AttachModeChangeHandler("_modechange")
:"�shell_OpenWindowStatic(grab%)
;(�shell_WindowMoveTo(grab%,-5000,500)
<�read_choices
=G�shell_InitHelpSystem(�shell_GetAppName+"Res:"+�shell_GetAppName,�)
>�
?:
@
AF� ===== Menu_Setup routines ======================================
B
C� �SetUp_Menus
D� void%
E
FFMenuHandle_IconBar%=�shell_MenuNew(�shell_MessageNoArgs("MTIBar"))
GIMenuItem_Info%     =�shell_MenuAdd(0,�shell_MessageNoArgs("Info"),"")
HYMenuItem_Help%     =�shell_MenuAdd(0,�shell_MessageNoArgs("Help"),"_MenuSelect_Help")
IJMenuItem_Setup%    =�shell_MenuAdd(0,�shell_MessageNoArgs("Setup"),"")
JeMenuItem_GetWS%    =�shell_MenuAdd(0,�shell_MessageNoArgs("GetWS"),"_MenuSelect_GetWindowSprite")
KJMenuItem_GetWG%    =�shell_MenuAdd(0,�shell_MessageNoArgs("GetWG"),"")
LgMenuItem_GetWT%    =�shell_MenuAdd(0,�shell_MessageNoArgs("GetWT"),"_MenuSelect_GetWindowTemplate")
MLMenuItem_GetIcon%  =�shell_MenuAdd(0,�shell_MessageNoArgs("GetIcon"),"")
NJMenuItem_GetSA%    =�shell_MenuAdd(0,�shell_MessageNoArgs("GetSA"),"")
OgMenuItem_GetWhole% =�shell_MenuAdd(0,�shell_MessageNoArgs("GetWhole"),"_MenuSelect_GetWholeScreen")
PYvoid%              =�shell_MenuAdd(0,�shell_MessageNoArgs("Quit"),"_MenuSelect_Quit")
Q
R(�shell_MenuDotted(MenuItem_Setup%,�)
S+�shell_MenuDotted(MenuItem_GetWhole%,�)
T'�shell_MenuShade(MenuItem_GetWG%,�)
U)�shell_MenuShade(MenuItem_GetIcon%,�)
V'�shell_MenuShade(MenuItem_GetSA%,�)
W
XF�shell_AttachMenuDBox(MenuItem_Info%,"progInfo","_PreOpenInfo","")
YE�shell_AttachMenuDBox(MenuItem_Setup%,"setup","_PreOpenSetup","")
Z
[�
\:
]
^F� ===== Window_SetUp routines ====================================
_
`� �SetUp_Windows
a+�shell_CreateWindowStatic("grab",grab%)
b0�shell_CreateWindowStatic("xfer_send",xfer%)
c<�shell_AttachHotKey("S",�,�,�,"",0,"_PrepareForGrab","")
d9�shell_AttachClickSelect(xfer%,0,"_ClickSelect_Xfer")
e�
f:
g
hF� ===== IconBar_SetUp routines ===================================
i
j� �SetUp_IconBar
kYsicon=�shell_Iconbar(-1,"!"+�shell_GetAppName,"Sprite",180,MenuHandle_IconBar%,0,0,0)
l,�shell_AttachHelpTag(-1,sicon,"iconbar")
m=�shell_AttachClickAdjust(-1,sicon,"_ClickAdjust_IconBar")
n9�shell_AttachMenuMaker(-1,sicon,"_MenuMaker_IconBar")
o�
p:
q
rF� ===== Dialog_PreOpen routines ==================================
s
t� �_PreOpenInfo(wh%)
uA�shell_IconPutData(wh%,0,�shell_MessageNoArgs("progInfo0"),0)
vA�shell_IconPutData(wh%,1,�shell_MessageNoArgs("progInfo1"),0)
wA�shell_IconPutData(wh%,2,�shell_MessageNoArgs("progInfo2"),0)
xA�shell_IconPutData(wh%,3,�shell_MessageNoArgs("progInfo3"),0)
y=0
z:
{� �_PreOpenSetup(wh%)
|9�shell_AttachClickSelect(wh%,-1,"_ClickSelect_Setup")
}(�shell_AttachHelpTag(wh%,-1,"setup")
~+�shell_IconSet(wh%,2,flag_WithPalette%)
+�shell_IconSet(wh%,12,flag_BringToTop%)
�-�shell_IconSet(wh%,13,flag_ContentsOnly%)
�=0
�:
�"� �_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
�:
�
�F� ===== Dialog_PostOpen routines =================================
�
�F� ===== Click_Select routines ====================================
�
�$� �_ClickSelect_Setup(wh%,icon%)
�� void%,X%
�Ȏ ih% �
�  � 0:� 'OK'
�-    � library handles closing the menu...
�7    flag_WithPalette% =�shell_IsIconSelected(wh%,2)
�8    flag_BringToTop%  =�shell_IsIconSelected(wh%,12)
�8    flag_ContentsOnly%=�shell_IsIconSelected(wh%,13)
�  � 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
�:
�#� �_ClickSelect_Xfer(wh%,icon%)
�� void%
�Ȏ ih% �
�
  � 0:
�    Ȏ winsave_op% �
�8      � 0:void%=�_do_save(�shell_IconGetData(wh%,1))
�A      � 2:void%=�_do_save_template(�shell_IconGetData(wh%,1))
�	    �
�    �shell_CloseWindow(wh%)
��
�=0
�:
�
�F� ===== Click_Adjust routines ====================================
�
�%ݤ_ClickAdjust_IconBar(wh%,icon%)
�2winsave_op%+=1:� winsave_op%>5 � winsave_op%=0
�;�shell_MenuTickOnly1(MenuHandle_IconBar%,winsave_op%+3)
�Ȏ winsave_op% �
�2  � 0:�shell_IconbarSetText(-1,sicon,"Sprite")
�1  � 1:�shell_IconbarSetText(-1,sicon,"Group")
�4  � 2:�shell_IconbarSetText(-1,sicon,"Template")
�0  � 3:�shell_IconbarSetText(-1,sicon,"Icon")
�0  � 4:�shell_IconbarSetText(-1,sicon,"Area")
�2  � 5:�shell_IconbarSetText(-1,sicon,"Screen")
��
�=0
�:
�
�F� ===== Menu_Select routines =====================================
�
�� �_MenuSelect_Help(blk%)
�+�shell_HelpWord(�shell_GetAppName+".$")
�=0
�:
�(� �_MenuSelect_GetWindowSprite(blk%)
�)�shell_MenuTickOnly2(MenuItem_GetWS%)
�winsave_op%=0
�,�shell_IconbarSetText(-1,sicon,"Sprite")
�=0
�:
�*� �_MenuSelect_GetWindowTemplate(blk%)
�)�shell_MenuTickOnly2(MenuItem_GetWT%)
�winsave_op%=2
�.�shell_IconbarSetText(-1,sicon,"Template")
�=0
�:
�'� �_MenuSelect_GetWholeScreen(blk%)
�,�shell_MenuTickOnly2(MenuItem_GetWhole%)
�winsave_op%=5
�,�shell_IconbarSetText(-1,sicon,"Screen")
�=0
�:
�� �_MenuSelect_Quit(blk%)
�_closedown%=�
�=0
�:
�
�F� ===== Menu_Warning routines ====================================
�
�F� ===== Menu_Maker routines ======================================
�
�!ݤ_MenuMaker_IconBar(wh%,ic%)
�;�shell_MenuTickOnly1(MenuHandle_IconBar%,winsave_op%+3)
�=0
�:
�
�F� ===== Data_Load routines =======================================
�
�F� ===== Data_Save routines =======================================
�
�F� ===== User application routines ================================
�
�� �_modechange
�$screen_width%=0:screen_height%=0
�6�get_screenmaxcoords(screen_width%,screen_height%)
�,screen_buffersize%=�get_screenbuffersize
�=0
�:
�� �get_screenbuffersize
�� inblk%,outblk%,result%
�$inblk%=�shell_HeapBlockFetch(10)
�%outblk%=�shell_HeapBlockFetch(10)
�inblk%!0=150:inblk%!4=-1

+ș "OS_ReadVduVariables",inblk%,outblk%


result%=outblk%!0

"�shell_HeapBlockReturn(inblk%)

#�shell_HeapBlockReturn(outblk%)

=result%

:

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


� result%

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

	X%=600:Y%=200


�

  X%+=1

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


� result%=-1

�

  Y%+=1

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

� result%=-1

�

:



� �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%

0�

1Best_size%=�get_est_savesize(_Q%!4,_Q%!8,(_Q%!12)-1,(_Q%!16)-1)

2/save_buff%=�shell_HeapBlockFetch(est_size%)

3Jsave_buff%!0=outblk%!0:save_buff%!4=0:save_buff%!8=16:save_buff%!12=16

4bș "OS_SpriteOp",272,save_buff%,name_buff%,flag_WithPalette%,_Q%!4,_Q%!8,(_Q%!12)-1,(_Q%!16)-1

5�

6:

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

8� save_area%,screen_area%

9� l%<0 � l%=0

:save_area%=(r%-l%)*(t%-b%)

;-screen_area%=screen_width%*screen_height%

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

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

>:

?� �shell_DoBackgroundTask

@� void%

A� flag_GrabPending% �

B-  � �shell_WindowIsOnTop(targetwindow%) �

C    flag_GrabPending%=�

D.    � Grab sprite and open file save box..

E    �SaveSprite

F+    void%=�_PreOpenXfer(xfer%,"sprite")

G&    �shell_OpenWindowStatic(xfer%)

H  �

I0    � Window is not on top, go round again..

J4    �shell_Tracef0("DoBackgroundTask:Waiting..")

K  �

L�

M�

N:

Oݤ_PrepareForGrab(void%)

P8� save_buff%<>0 � �shell_HeapBlockReturn(save_buff%)

Q=� find handle of window under pointer (before we open the

R� save as box!!

S!ș "Wimp_GetPointerInfo",,_Q%

Ttargetwindow%=_Q%!12

UȎ winsave_op% �

V  � 0:�SaveAsSpriteFile

W
  � 1:

X  � 2:�SaveAsTemplateFile

Y
  � 3:

Z
  � 4:

[
  � 5:

\    � flag_WithPalette% �

]!      �("ScreenSave "+$path%)

^	    �

_	    �

`  

a  �

b=0

c:

d� �read_choices

e� X%

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

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

h  �# X%,flag_WithPalette%

i  �# X%,flag_BringToTop%

j  �# X%,flag_ContentsOnly%

k
  �#X%

l�

mA  flag_WithPalette%=�:flag_BringToTop%=�:flag_ContentsOnly%=�

n�

o�

p:

q1ݤdir_read(name$(),dir_name$,file_name$,blk%)

r� offset%,new_offset%

s� loop%

tcounter% = 0

u4offset%=0:new_offset%=0:total_read%=0:nr_read%=0

v�

w  offset% = new_offset%

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

y  total_read% += nr_read%

z  � 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%

�:

�ݤget_filename

�� nr$,blk%,nr%

�#blk%=�shell_HeapBlockFetch(256)

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

�
� nr%>0 �

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

�"  �shell_HeapBlockReturn(blk%)

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

��

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

�:

�#� �_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%

��

�:

�� �_do_save(fullname$)

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

�&�shell_HeapBlockReturn(save_buff%)

�=0

�:

�� �SaveAsTemplateFile

�� void%

�)void%=�_PreOpenXfer(xfer%,"template")

�"�shell_OpenWindowStatic(xfer%)

��

�:

�

�F� ================= End Of User Application ======================

�:

�� �shell_EnsurePoll

��

�:
�

00000000  0d 00 01 20 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 32  |2$Dir>.!WinSave2|
00000020  0d 00 02 05 3a 0d 00 03  33 ee 20 85 20 eb 31 32  |....:...3. . .12|
00000030  3a c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 53 6d  |:.."Hourglass_Sm|
00000040  61 73 68 22 3a f6 3a f1  22 20 61 74 20 6c 69 6e  |ash":.:." at lin|
00000050  65 3a 20 22 3b 9e 3a e0  0d 00 04 05 3a 0d 00 05  |e: ";.:.....:...|
00000060  27 c8 9b 20 22 3c 45 76  6e 74 53 68 65 6c 6c 53  |'.. "<EvntShellS|
00000070  79 73 74 65 6d 24 50 61  74 68 3e 53 68 65 6c 6c  |ystem$Path>Shell|
00000080  4c 69 62 22 0d 00 06 05  3a 0d 00 07 15 c8 99 20  |Lib"....:...... |
00000090  22 48 6f 75 72 67 6c 61  73 73 5f 4f 6e 22 0d 00  |"Hourglass_On"..|
000000a0  08 05 3a 0d 00 09 28 c8  99 20 22 57 69 6d 70 5f  |..:...(.. "Wimp_|
000000b0  53 6c 6f 74 53 69 7a 65  22 2c 2d 31 2c 2d 31 20  |SlotSize",-1,-1 |
000000c0  b8 20 70 72 6f 67 73 69  7a 65 25 0d 00 0a 13 70  |. progsize%....p|
000000d0  61 67 65 73 69 7a 65 25  3d 31 3c 3c 31 30 0d 00  |agesize%=1<<10..|
000000e0  0b 1e 66 72 65 65 73 70  61 63 65 25 3d 26 38 30  |..freespace%=&80|
000000f0  30 30 2b 70 72 6f 67 73  69 7a 65 25 0d 00 0c 1a  |00+progsize%....|
00000100  e0 3d 66 72 65 65 73 70  61 63 65 25 2b 70 61 67  |.=freespace%+pag|
00000110  65 73 69 7a 65 25 0d 00  0d 10 d3 3d 66 72 65 65  |esize%.....=free|
00000120  73 70 61 63 65 25 0d 00  0e 05 3a 0d 00 0f 3f f2  |space%....:...?.|
00000130  73 68 65 6c 6c 5f 48 65  61 70 4d 61 6e 61 67 65  |shell_HeapManage|
00000140  72 49 6e 69 74 28 22 3c  45 76 6e 74 53 68 65 6c  |rInit("<EvntShel|
00000150  6c 53 79 73 74 65 6d 24  50 61 74 68 3e 22 2c 66  |lSystem$Path>",f|
00000160  72 65 65 73 70 61 63 65  25 29 0d 00 10 0f f2 73  |reespace%).....s|
00000170  68 65 6c 6c 5f 49 6e 69  74 0d 00 11 34 74 61 73  |hell_Init...4tas|
00000180  6b 25 3d a4 73 68 65 6c  6c 5f 57 69 6d 70 49 6e  |k%=.shell_WimpIn|
00000190  69 74 5f 49 28 32 30 30  2c 22 57 69 6e 64 6f 77  |it_I(200,"Window|
000001a0  20 53 61 76 65 72 20 55  74 69 6c 22 29 0d 00 12  | Saver Util")...|
000001b0  18 f2 73 68 65 6c 6c 5f  54 72 61 63 65 49 6e 69  |..shell_TraceIni|
000001c0  74 28 22 22 29 0d 00 13  17 f4 20 50 52 4f 43 73  |t("")..... PROCs|
000001d0  68 65 6c 6c 5f 54 72 61  63 65 4f 6e 0d 00 14 18  |hell_TraceOn....|
000001e0  f2 73 68 65 6c 6c 5f 52  65 73 6f 75 72 63 65 73  |.shell_Resources|
000001f0  49 6e 69 74 0d 00 15 0d  f2 61 70 70 5f 69 6e 69  |Init.....app_ini|
00000200  74 0d 00 16 05 3a 0d 00  17 4c f4 20 2d 2d 2d 2d  |t....:...L. ----|
00000210  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000220  20 49 6e 69 74 69 61 6c  69 73 65 20 56 61 72 69  | Initialise Vari|
00000230  61 62 6c 65 73 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ables ----------|
00000240  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000250  2d 2d 0d 00 18 05 3a 0d  00 19 47 5f 63 6c 6f 73  |--....:...G_clos|
00000260  65 64 6f 77 6e 25 20 20  20 20 20 3d a3 20 3a f4  |edown%     =. :.|
00000270  20 53 65 74 20 74 68 69  73 20 74 6f 20 54 52 55  | Set this to TRU|
00000280  45 20 77 68 65 6e 20 79  6f 75 20 77 61 6e 74 20  |E when you want |
00000290  74 68 65 20 70 72 6f 67  72 61 6d 20 74 6f 0d 00  |the program to..|
000002a0  1a 21 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.!              |
000002b0  20 20 20 20 20 20 20 20  20 3a f4 20 65 6e 64 0d  |         :. end.|
000002c0  00 1b 44 63 68 61 6e 67  65 64 25 20 20 20 20 20  |..Dchanged%     |
000002d0  20 20 20 3d a3 20 3a f4  20 55 73 65 64 20 74 6f  |   =. :. Used to|
000002e0  20 6b 65 65 70 20 74 72  61 63 6b 20 6f 66 20 77  | keep track of w|
000002f0  68 65 74 68 65 72 20 74  68 65 20 64 61 74 61 20  |hether the data |
00000300  68 61 73 0d 00 1c 4b 20  20 20 20 20 20 20 20 20  |has...K         |
00000310  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a f4  |              :.|
00000320  20 62 65 65 6e 20 63 68  61 6e 67 65 64 2e 20 43  | been changed. C|
00000330  61 6c 6c 20 50 52 4f 43  66 69 6c 65 5f 63 68 61  |all PROCfile_cha|
00000340  6e 67 65 64 28 29 20 77  68 65 6e 20 69 74 0d 00  |nged() when it..|
00000350  1d 47 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.G              |
00000360  20 20 20 20 20 20 20 20  20 3a f4 20 68 61 73 2e  |         :. has.|
00000370  20 42 75 74 20 69 66 20  74 68 65 20 70 72 6f 67  | But if the prog|
00000380  72 61 6d 20 64 6f 65 73  20 6e 6f 74 20 75 73 65  |ram does not use|
00000390  20 64 61 74 61 0d 00 1e  48 20 20 20 20 20 20 20  | data...H       |
000003a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000003b0  3a f4 20 66 69 6c 65 73  20 6a 75 73 74 20 69 67  |:. files just ig|
000003c0  6e 6f 72 65 20 74 68 69  73 20 76 61 72 69 61 62  |nore this variab|
000003d0  6c 65 20 62 75 74 20 64  6f 20 6e 6f 74 0d 00 1f  |le but do not...|
000003e0  47 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |G               |
000003f0  20 20 20 20 20 20 20 20  3a f4 20 64 65 6c 65 74  |        :. delet|
00000400  65 20 69 74 20 61 73 20  74 68 65 20 70 72 6f 67  |e it as the prog|
00000410  72 61 6d 20 63 68 65 63  6b 73 20 69 74 20 62 65  |ram checks it be|
00000420  66 6f 72 65 0d 00 20 26  20 20 20 20 20 20 20 20  |fore.. &        |
00000430  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00000440  f4 20 65 78 69 74 69 6e  67 21 0d 00 21 05 3a 0d  |. exiting!..!.:.|
00000450  00 22 4c f4 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |."L. -----------|
00000460  2d 2d 2d 2d 2d 2d 2d 2d  2d 20 4d 69 73 63 65 6c  |--------- Miscel|
00000470  6c 65 61 6e 6f 75 73 20  49 6e 69 74 69 61 6c 69  |leanous Initiali|
00000480  73 61 74 69 6f 6e 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |sation ---------|
00000490  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 00 23 05 3a  |-----------..#.:|
000004a0  0d 00 24 14 ee 20 85 20  f2 73 68 65 6c 6c 5f 45  |..$.. . .shell_E|
000004b0  72 72 6f 72 0d 00 25 05  3a 0d 00 26 16 c8 99 20  |rror..%.:..&... |
000004c0  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 0d  |"Hourglass_Off".|
000004d0  00 27 05 f5 0d 00 28 2b  20 20 f2 73 68 65 6c 6c  |.'....(+  .shell|
000004e0  5f 41 63 74 69 6f 6e 28  a4 73 68 65 6c 6c 5f 50  |_Action(.shell_P|
000004f0  6f 6c 6c 5f 49 28 30 2c  74 61 73 6b 25 29 29 0d  |oll_I(0,task%)).|
00000500  00 29 11 fd 20 5f 63 6c  6f 73 65 64 6f 77 6e 25  |.).. _closedown%|
00000510  0d 00 2a 05 3a 0d 00 2b  11 f2 73 68 65 6c 6c 5f  |..*.:..+..shell_|
00000520  45 78 69 74 3a e0 0d 00  2c 05 3a 0d 00 2d 4c f4  |Exit:...,.:..-L.|
00000530  20 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  | ===============|
00000540  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000570  3d 3d 3d 3d 3d 3d 3d 0d  00 2e 05 3a 0d 00 2f 0f  |=======....:../.|
00000580  dd 20 f2 61 70 70 5f 69  6e 69 74 0d 00 30 29 de  |. .app_init..0).|
00000590  20 6e 61 6d 65 5f 62 75  66 66 25 20 32 30 2c 20  | name_buff% 20, |
000005a0  70 61 74 68 25 20 32 35  36 2c 66 6e 61 6d 65 24  |path% 256,fname$|
000005b0  28 37 37 29 0d 00 31 26  24 70 61 74 68 25 3d a4  |(77)..1&$path%=.|
000005c0  73 68 65 6c 6c 5f 47 65  74 41 70 70 44 69 72 2b  |shell_GetAppDir+|
000005d0  22 2e 67 72 61 62 62 65  64 22 0d 00 32 16 24 6e  |".grabbed"..2.$n|
000005e0  61 6d 65 5f 62 75 66 66  25 3d 22 67 72 61 62 22  |ame_buff%="grab"|
000005f0  0d 00 33 10 73 61 76 65  5f 62 75 66 66 25 3d 30  |..3.save_buff%=0|
00000600  0d 00 34 38 77 69 6e 73  61 76 65 5f 6f 70 25 3d  |..48winsave_op%=|
00000610  30 3a f4 20 6b 65 65 70  73 20 74 72 61 63 6b 20  |0:. keeps track |
00000620  6f 66 20 74 79 70 65 20  6f 66 20 73 61 76 65 20  |of type of save |
00000630  73 65 6c 65 63 74 65 64  0d 00 35 17 66 6c 61 67  |selected..5.flag|
00000640  5f 47 72 61 62 50 65 6e  64 69 6e 67 25 3d a3 0d  |_GrabPending%=..|
00000650  00 36 10 f2 53 65 74 55  70 5f 4d 65 6e 75 73 0d  |.6..SetUp_Menus.|
00000660  00 37 12 f2 53 65 74 55  70 5f 57 69 6e 64 6f 77  |.7..SetUp_Window|
00000670  73 0d 00 38 12 f2 53 65  74 55 70 5f 49 63 6f 6e  |s..8..SetUp_Icon|
00000680  42 61 72 0d 00 39 31 f2  73 68 65 6c 6c 5f 41 74  |Bar..91.shell_At|
00000690  74 61 63 68 4d 6f 64 65  43 68 61 6e 67 65 48 61  |tachModeChangeHa|
000006a0  6e 64 6c 65 72 28 22 5f  6d 6f 64 65 63 68 61 6e  |ndler("_modechan|
000006b0  67 65 22 29 0d 00 3a 22  f2 73 68 65 6c 6c 5f 4f  |ge")..:".shell_O|
000006c0  70 65 6e 57 69 6e 64 6f  77 53 74 61 74 69 63 28  |penWindowStatic(|
000006d0  67 72 61 62 25 29 0d 00  3b 28 f2 73 68 65 6c 6c  |grab%)..;(.shell|
000006e0  5f 57 69 6e 64 6f 77 4d  6f 76 65 54 6f 28 67 72  |_WindowMoveTo(gr|
000006f0  61 62 25 2c 2d 35 30 30  30 2c 35 30 30 29 0d 00  |ab%,-5000,500)..|
00000700  3c 11 f2 72 65 61 64 5f  63 68 6f 69 63 65 73 0d  |<..read_choices.|
00000710  00 3d 47 f2 73 68 65 6c  6c 5f 49 6e 69 74 48 65  |.=G.shell_InitHe|
00000720  6c 70 53 79 73 74 65 6d  28 a4 73 68 65 6c 6c 5f  |lpSystem(.shell_|
00000730  47 65 74 41 70 70 4e 61  6d 65 2b 22 52 65 73 3a  |GetAppName+"Res:|
00000740  22 2b a4 73 68 65 6c 6c  5f 47 65 74 41 70 70 4e  |"+.shell_GetAppN|
00000750  61 6d 65 2c b9 29 0d 00  3e 05 e1 0d 00 3f 05 3a  |ame,.)..>....?.:|
00000760  0d 00 40 04 0d 00 41 46  f4 20 3d 3d 3d 3d 3d 20  |..@...AF. ===== |
00000770  4d 65 6e 75 5f 53 65 74  75 70 20 72 6f 75 74 69  |Menu_Setup routi|
00000780  6e 65 73 20 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |nes ============|
00000790  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
000007a0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 0d 00 42 04 0d 00  |==========..B...|
000007b0  43 12 dd 20 f2 53 65 74  55 70 5f 4d 65 6e 75 73  |C.. .SetUp_Menus|
000007c0  0d 00 44 0b ea 20 76 6f  69 64 25 0d 00 45 04 0d  |..D.. void%..E..|
000007d0  00 46 46 4d 65 6e 75 48  61 6e 64 6c 65 5f 49 63  |.FFMenuHandle_Ic|
000007e0  6f 6e 42 61 72 25 3d a4  73 68 65 6c 6c 5f 4d 65  |onBar%=.shell_Me|
000007f0  6e 75 4e 65 77 28 a4 73  68 65 6c 6c 5f 4d 65 73  |nuNew(.shell_Mes|
00000800  73 61 67 65 4e 6f 41 72  67 73 28 22 4d 54 49 42  |sageNoArgs("MTIB|
00000810  61 72 22 29 29 0d 00 47  49 4d 65 6e 75 49 74 65  |ar"))..GIMenuIte|
00000820  6d 5f 49 6e 66 6f 25 20  20 20 20 20 3d a4 73 68  |m_Info%     =.sh|
00000830  65 6c 6c 5f 4d 65 6e 75  41 64 64 28 30 2c a4 73  |ell_MenuAdd(0,.s|
00000840  68 65 6c 6c 5f 4d 65 73  73 61 67 65 4e 6f 41 72  |hell_MessageNoAr|
00000850  67 73 28 22 49 6e 66 6f  22 29 2c 22 22 29 0d 00  |gs("Info"),"")..|
00000860  48 59 4d 65 6e 75 49 74  65 6d 5f 48 65 6c 70 25  |HYMenuItem_Help%|
00000870  20 20 20 20 20 3d a4 73  68 65 6c 6c 5f 4d 65 6e  |     =.shell_Men|
00000880  75 41 64 64 28 30 2c a4  73 68 65 6c 6c 5f 4d 65  |uAdd(0,.shell_Me|
00000890  73 73 61 67 65 4e 6f 41  72 67 73 28 22 48 65 6c  |ssageNoArgs("Hel|
000008a0  70 22 29 2c 22 5f 4d 65  6e 75 53 65 6c 65 63 74  |p"),"_MenuSelect|
000008b0  5f 48 65 6c 70 22 29 0d  00 49 4a 4d 65 6e 75 49  |_Help")..IJMenuI|
000008c0  74 65 6d 5f 53 65 74 75  70 25 20 20 20 20 3d a4  |tem_Setup%    =.|
000008d0  73 68 65 6c 6c 5f 4d 65  6e 75 41 64 64 28 30 2c  |shell_MenuAdd(0,|
000008e0  a4 73 68 65 6c 6c 5f 4d  65 73 73 61 67 65 4e 6f  |.shell_MessageNo|
000008f0  41 72 67 73 28 22 53 65  74 75 70 22 29 2c 22 22  |Args("Setup"),""|
00000900  29 0d 00 4a 65 4d 65 6e  75 49 74 65 6d 5f 47 65  |)..JeMenuItem_Ge|
00000910  74 57 53 25 20 20 20 20  3d a4 73 68 65 6c 6c 5f  |tWS%    =.shell_|
00000920  4d 65 6e 75 41 64 64 28  30 2c a4 73 68 65 6c 6c  |MenuAdd(0,.shell|
00000930  5f 4d 65 73 73 61 67 65  4e 6f 41 72 67 73 28 22  |_MessageNoArgs("|
00000940  47 65 74 57 53 22 29 2c  22 5f 4d 65 6e 75 53 65  |GetWS"),"_MenuSe|
00000950  6c 65 63 74 5f 47 65 74  57 69 6e 64 6f 77 53 70  |lect_GetWindowSp|
00000960  72 69 74 65 22 29 0d 00  4b 4a 4d 65 6e 75 49 74  |rite")..KJMenuIt|
00000970  65 6d 5f 47 65 74 57 47  25 20 20 20 20 3d a4 73  |em_GetWG%    =.s|
00000980  68 65 6c 6c 5f 4d 65 6e  75 41 64 64 28 30 2c a4  |hell_MenuAdd(0,.|
00000990  73 68 65 6c 6c 5f 4d 65  73 73 61 67 65 4e 6f 41  |shell_MessageNoA|
000009a0  72 67 73 28 22 47 65 74  57 47 22 29 2c 22 22 29  |rgs("GetWG"),"")|
000009b0  0d 00 4c 67 4d 65 6e 75  49 74 65 6d 5f 47 65 74  |..LgMenuItem_Get|
000009c0  57 54 25 20 20 20 20 3d  a4 73 68 65 6c 6c 5f 4d  |WT%    =.shell_M|
000009d0  65 6e 75 41 64 64 28 30  2c a4 73 68 65 6c 6c 5f  |enuAdd(0,.shell_|
000009e0  4d 65 73 73 61 67 65 4e  6f 41 72 67 73 28 22 47  |MessageNoArgs("G|
000009f0  65 74 57 54 22 29 2c 22  5f 4d 65 6e 75 53 65 6c  |etWT"),"_MenuSel|
00000a00  65 63 74 5f 47 65 74 57  69 6e 64 6f 77 54 65 6d  |ect_GetWindowTem|
00000a10  70 6c 61 74 65 22 29 0d  00 4d 4c 4d 65 6e 75 49  |plate")..MLMenuI|
00000a20  74 65 6d 5f 47 65 74 49  63 6f 6e 25 20 20 3d a4  |tem_GetIcon%  =.|
00000a30  73 68 65 6c 6c 5f 4d 65  6e 75 41 64 64 28 30 2c  |shell_MenuAdd(0,|
00000a40  a4 73 68 65 6c 6c 5f 4d  65 73 73 61 67 65 4e 6f  |.shell_MessageNo|
00000a50  41 72 67 73 28 22 47 65  74 49 63 6f 6e 22 29 2c  |Args("GetIcon"),|
00000a60  22 22 29 0d 00 4e 4a 4d  65 6e 75 49 74 65 6d 5f  |"")..NJMenuItem_|
00000a70  47 65 74 53 41 25 20 20  20 20 3d a4 73 68 65 6c  |GetSA%    =.shel|
00000a80  6c 5f 4d 65 6e 75 41 64  64 28 30 2c a4 73 68 65  |l_MenuAdd(0,.she|
00000a90  6c 6c 5f 4d 65 73 73 61  67 65 4e 6f 41 72 67 73  |ll_MessageNoArgs|
00000aa0  28 22 47 65 74 53 41 22  29 2c 22 22 29 0d 00 4f  |("GetSA"),"")..O|
00000ab0  67 4d 65 6e 75 49 74 65  6d 5f 47 65 74 57 68 6f  |gMenuItem_GetWho|
00000ac0  6c 65 25 20 3d a4 73 68  65 6c 6c 5f 4d 65 6e 75  |le% =.shell_Menu|
00000ad0  41 64 64 28 30 2c a4 73  68 65 6c 6c 5f 4d 65 73  |Add(0,.shell_Mes|
00000ae0  73 61 67 65 4e 6f 41 72  67 73 28 22 47 65 74 57  |sageNoArgs("GetW|
00000af0  68 6f 6c 65 22 29 2c 22  5f 4d 65 6e 75 53 65 6c  |hole"),"_MenuSel|
00000b00  65 63 74 5f 47 65 74 57  68 6f 6c 65 53 63 72 65  |ect_GetWholeScre|
00000b10  65 6e 22 29 0d 00 50 59  76 6f 69 64 25 20 20 20  |en")..PYvoid%   |
00000b20  20 20 20 20 20 20 20 20  20 20 20 3d a4 73 68 65  |           =.she|
00000b30  6c 6c 5f 4d 65 6e 75 41  64 64 28 30 2c a4 73 68  |ll_MenuAdd(0,.sh|
00000b40  65 6c 6c 5f 4d 65 73 73  61 67 65 4e 6f 41 72 67  |ell_MessageNoArg|
00000b50  73 28 22 51 75 69 74 22  29 2c 22 5f 4d 65 6e 75  |s("Quit"),"_Menu|
00000b60  53 65 6c 65 63 74 5f 51  75 69 74 22 29 0d 00 51  |Select_Quit")..Q|
00000b70  04 0d 00 52 28 f2 73 68  65 6c 6c 5f 4d 65 6e 75  |...R(.shell_Menu|
00000b80  44 6f 74 74 65 64 28 4d  65 6e 75 49 74 65 6d 5f  |Dotted(MenuItem_|
00000b90  53 65 74 75 70 25 2c b9  29 0d 00 53 2b f2 73 68  |Setup%,.)..S+.sh|
00000ba0  65 6c 6c 5f 4d 65 6e 75  44 6f 74 74 65 64 28 4d  |ell_MenuDotted(M|
00000bb0  65 6e 75 49 74 65 6d 5f  47 65 74 57 68 6f 6c 65  |enuItem_GetWhole|
00000bc0  25 2c b9 29 0d 00 54 27  f2 73 68 65 6c 6c 5f 4d  |%,.)..T'.shell_M|
00000bd0  65 6e 75 53 68 61 64 65  28 4d 65 6e 75 49 74 65  |enuShade(MenuIte|
00000be0  6d 5f 47 65 74 57 47 25  2c b9 29 0d 00 55 29 f2  |m_GetWG%,.)..U).|
00000bf0  73 68 65 6c 6c 5f 4d 65  6e 75 53 68 61 64 65 28  |shell_MenuShade(|
00000c00  4d 65 6e 75 49 74 65 6d  5f 47 65 74 49 63 6f 6e  |MenuItem_GetIcon|
00000c10  25 2c b9 29 0d 00 56 27  f2 73 68 65 6c 6c 5f 4d  |%,.)..V'.shell_M|
00000c20  65 6e 75 53 68 61 64 65  28 4d 65 6e 75 49 74 65  |enuShade(MenuIte|
00000c30  6d 5f 47 65 74 53 41 25  2c b9 29 0d 00 57 04 0d  |m_GetSA%,.)..W..|
00000c40  00 58 46 f2 73 68 65 6c  6c 5f 41 74 74 61 63 68  |.XF.shell_Attach|
00000c50  4d 65 6e 75 44 42 6f 78  28 4d 65 6e 75 49 74 65  |MenuDBox(MenuIte|
00000c60  6d 5f 49 6e 66 6f 25 2c  22 70 72 6f 67 49 6e 66  |m_Info%,"progInf|
00000c70  6f 22 2c 22 5f 50 72 65  4f 70 65 6e 49 6e 66 6f  |o","_PreOpenInfo|
00000c80  22 2c 22 22 29 0d 00 59  45 f2 73 68 65 6c 6c 5f  |","")..YE.shell_|
00000c90  41 74 74 61 63 68 4d 65  6e 75 44 42 6f 78 28 4d  |AttachMenuDBox(M|
00000ca0  65 6e 75 49 74 65 6d 5f  53 65 74 75 70 25 2c 22  |enuItem_Setup%,"|
00000cb0  73 65 74 75 70 22 2c 22  5f 50 72 65 4f 70 65 6e  |setup","_PreOpen|
00000cc0  53 65 74 75 70 22 2c 22  22 29 0d 00 5a 04 0d 00  |Setup","")..Z...|
00000cd0  5b 05 e1 0d 00 5c 05 3a  0d 00 5d 04 0d 00 5e 46  |[....\.:..]...^F|
00000ce0  f4 20 3d 3d 3d 3d 3d 20  57 69 6e 64 6f 77 5f 53  |. ===== Window_S|
00000cf0  65 74 55 70 20 72 6f 75  74 69 6e 65 73 20 3d 3d  |etUp routines ==|
00000d00  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000d20  3d 3d 0d 00 5f 04 0d 00  60 14 dd 20 f2 53 65 74  |==.._...`.. .Set|
00000d30  55 70 5f 57 69 6e 64 6f  77 73 0d 00 61 2b f2 73  |Up_Windows..a+.s|
00000d40  68 65 6c 6c 5f 43 72 65  61 74 65 57 69 6e 64 6f  |hell_CreateWindo|
00000d50  77 53 74 61 74 69 63 28  22 67 72 61 62 22 2c 67  |wStatic("grab",g|
00000d60  72 61 62 25 29 0d 00 62  30 f2 73 68 65 6c 6c 5f  |rab%)..b0.shell_|
00000d70  43 72 65 61 74 65 57 69  6e 64 6f 77 53 74 61 74  |CreateWindowStat|
00000d80  69 63 28 22 78 66 65 72  5f 73 65 6e 64 22 2c 78  |ic("xfer_send",x|
00000d90  66 65 72 25 29 0d 00 63  3c f2 73 68 65 6c 6c 5f  |fer%)..c<.shell_|
00000da0  41 74 74 61 63 68 48 6f  74 4b 65 79 28 22 53 22  |AttachHotKey("S"|
00000db0  2c a3 2c b9 2c a3 2c 22  22 2c 30 2c 22 5f 50 72  |,.,.,.,"",0,"_Pr|
00000dc0  65 70 61 72 65 46 6f 72  47 72 61 62 22 2c 22 22  |epareForGrab",""|
00000dd0  29 0d 00 64 39 f2 73 68  65 6c 6c 5f 41 74 74 61  |)..d9.shell_Atta|
00000de0  63 68 43 6c 69 63 6b 53  65 6c 65 63 74 28 78 66  |chClickSelect(xf|
00000df0  65 72 25 2c 30 2c 22 5f  43 6c 69 63 6b 53 65 6c  |er%,0,"_ClickSel|
00000e00  65 63 74 5f 58 66 65 72  22 29 0d 00 65 05 e1 0d  |ect_Xfer")..e...|
00000e10  00 66 05 3a 0d 00 67 04  0d 00 68 46 f4 20 3d 3d  |.f.:..g...hF. ==|
00000e20  3d 3d 3d 20 49 63 6f 6e  42 61 72 5f 53 65 74 55  |=== IconBar_SetU|
00000e30  70 20 72 6f 75 74 69 6e  65 73 20 3d 3d 3d 3d 3d  |p routines =====|
00000e40  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000e50  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 0d 00  |==============..|
00000e60  69 04 0d 00 6a 14 dd 20  f2 53 65 74 55 70 5f 49  |i...j.. .SetUp_I|
00000e70  63 6f 6e 42 61 72 0d 00  6b 59 73 69 63 6f 6e 3d  |conBar..kYsicon=|
00000e80  a4 73 68 65 6c 6c 5f 49  63 6f 6e 62 61 72 28 2d  |.shell_Iconbar(-|
00000e90  31 2c 22 21 22 2b a4 73  68 65 6c 6c 5f 47 65 74  |1,"!"+.shell_Get|
00000ea0  41 70 70 4e 61 6d 65 2c  22 53 70 72 69 74 65 22  |AppName,"Sprite"|
00000eb0  2c 31 38 30 2c 4d 65 6e  75 48 61 6e 64 6c 65 5f  |,180,MenuHandle_|
00000ec0  49 63 6f 6e 42 61 72 25  2c 30 2c 30 2c 30 29 0d  |IconBar%,0,0,0).|
00000ed0  00 6c 2c f2 73 68 65 6c  6c 5f 41 74 74 61 63 68  |.l,.shell_Attach|
00000ee0  48 65 6c 70 54 61 67 28  2d 31 2c 73 69 63 6f 6e  |HelpTag(-1,sicon|
00000ef0  2c 22 69 63 6f 6e 62 61  72 22 29 0d 00 6d 3d f2  |,"iconbar")..m=.|
00000f00  73 68 65 6c 6c 5f 41 74  74 61 63 68 43 6c 69 63  |shell_AttachClic|
00000f10  6b 41 64 6a 75 73 74 28  2d 31 2c 73 69 63 6f 6e  |kAdjust(-1,sicon|
00000f20  2c 22 5f 43 6c 69 63 6b  41 64 6a 75 73 74 5f 49  |,"_ClickAdjust_I|
00000f30  63 6f 6e 42 61 72 22 29  0d 00 6e 39 f2 73 68 65  |conBar")..n9.she|
00000f40  6c 6c 5f 41 74 74 61 63  68 4d 65 6e 75 4d 61 6b  |ll_AttachMenuMak|
00000f50  65 72 28 2d 31 2c 73 69  63 6f 6e 2c 22 5f 4d 65  |er(-1,sicon,"_Me|
00000f60  6e 75 4d 61 6b 65 72 5f  49 63 6f 6e 42 61 72 22  |nuMaker_IconBar"|
00000f70  29 0d 00 6f 05 e1 0d 00  70 05 3a 0d 00 71 04 0d  |)..o....p.:..q..|
00000f80  00 72 46 f4 20 3d 3d 3d  3d 3d 20 44 69 61 6c 6f  |.rF. ===== Dialo|
00000f90  67 5f 50 72 65 4f 70 65  6e 20 72 6f 75 74 69 6e  |g_PreOpen routin|
00000fa0  65 73 20 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |es =============|
00000fb0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000fc0  3d 3d 3d 3d 3d 0d 00 73  04 0d 00 74 18 dd 20 a4  |=====..s...t.. .|
00000fd0  5f 50 72 65 4f 70 65 6e  49 6e 66 6f 28 77 68 25  |_PreOpenInfo(wh%|
00000fe0  29 0d 00 75 41 f2 73 68  65 6c 6c 5f 49 63 6f 6e  |)..uA.shell_Icon|
00000ff0  50 75 74 44 61 74 61 28  77 68 25 2c 30 2c a4 73  |PutData(wh%,0,.s|
00001000  68 65 6c 6c 5f 4d 65 73  73 61 67 65 4e 6f 41 72  |hell_MessageNoAr|
00001010  67 73 28 22 70 72 6f 67  49 6e 66 6f 30 22 29 2c  |gs("progInfo0"),|
00001020  30 29 0d 00 76 41 f2 73  68 65 6c 6c 5f 49 63 6f  |0)..vA.shell_Ico|
00001030  6e 50 75 74 44 61 74 61  28 77 68 25 2c 31 2c a4  |nPutData(wh%,1,.|
00001040  73 68 65 6c 6c 5f 4d 65  73 73 61 67 65 4e 6f 41  |shell_MessageNoA|
00001050  72 67 73 28 22 70 72 6f  67 49 6e 66 6f 31 22 29  |rgs("progInfo1")|
00001060  2c 30 29 0d 00 77 41 f2  73 68 65 6c 6c 5f 49 63  |,0)..wA.shell_Ic|
00001070  6f 6e 50 75 74 44 61 74  61 28 77 68 25 2c 32 2c  |onPutData(wh%,2,|
00001080  a4 73 68 65 6c 6c 5f 4d  65 73 73 61 67 65 4e 6f  |.shell_MessageNo|
00001090  41 72 67 73 28 22 70 72  6f 67 49 6e 66 6f 32 22  |Args("progInfo2"|
000010a0  29 2c 30 29 0d 00 78 41  f2 73 68 65 6c 6c 5f 49  |),0)..xA.shell_I|
000010b0  63 6f 6e 50 75 74 44 61  74 61 28 77 68 25 2c 33  |conPutData(wh%,3|
000010c0  2c a4 73 68 65 6c 6c 5f  4d 65 73 73 61 67 65 4e  |,.shell_MessageN|
000010d0  6f 41 72 67 73 28 22 70  72 6f 67 49 6e 66 6f 33  |oArgs("progInfo3|
000010e0  22 29 2c 30 29 0d 00 79  06 3d 30 0d 00 7a 05 3a  |"),0)..y.=0..z.:|
000010f0  0d 00 7b 19 dd 20 a4 5f  50 72 65 4f 70 65 6e 53  |..{.. ._PreOpenS|
00001100  65 74 75 70 28 77 68 25  29 0d 00 7c 39 f2 73 68  |etup(wh%)..|9.sh|
00001110  65 6c 6c 5f 41 74 74 61  63 68 43 6c 69 63 6b 53  |ell_AttachClickS|
00001120  65 6c 65 63 74 28 77 68  25 2c 2d 31 2c 22 5f 43  |elect(wh%,-1,"_C|
00001130  6c 69 63 6b 53 65 6c 65  63 74 5f 53 65 74 75 70  |lickSelect_Setup|
00001140  22 29 0d 00 7d 28 f2 73  68 65 6c 6c 5f 41 74 74  |")..}(.shell_Att|
00001150  61 63 68 48 65 6c 70 54  61 67 28 77 68 25 2c 2d  |achHelpTag(wh%,-|
00001160  31 2c 22 73 65 74 75 70  22 29 0d 00 7e 2b f2 73  |1,"setup")..~+.s|
00001170  68 65 6c 6c 5f 49 63 6f  6e 53 65 74 28 77 68 25  |hell_IconSet(wh%|
00001180  2c 32 2c 66 6c 61 67 5f  57 69 74 68 50 61 6c 65  |,2,flag_WithPale|
00001190  74 74 65 25 29 0d 00 7f  2b f2 73 68 65 6c 6c 5f  |tte%)...+.shell_|
000011a0  49 63 6f 6e 53 65 74 28  77 68 25 2c 31 32 2c 66  |IconSet(wh%,12,f|
000011b0  6c 61 67 5f 42 72 69 6e  67 54 6f 54 6f 70 25 29  |lag_BringToTop%)|
000011c0  0d 00 80 2d f2 73 68 65  6c 6c 5f 49 63 6f 6e 53  |...-.shell_IconS|
000011d0  65 74 28 77 68 25 2c 31  33 2c 66 6c 61 67 5f 43  |et(wh%,13,flag_C|
000011e0  6f 6e 74 65 6e 74 73 4f  6e 6c 79 25 29 0d 00 81  |ontentsOnly%)...|
000011f0  06 3d 30 0d 00 82 05 3a  0d 00 83 22 dd 20 a4 5f  |.=0....:...". ._|
00001200  50 72 65 4f 70 65 6e 58  66 65 72 28 77 68 25 2c  |PreOpenXfer(wh%,|
00001210  66 69 6c 65 74 79 70 65  24 29 0d 00 84 12 c8 8e  |filetype$)......|
00001220  20 66 69 6c 65 74 79 70  65 24 20 ca 0d 00 85 10  | filetype$ .....|
00001230  20 20 c9 20 22 73 70 72  69 74 65 22 0d 00 86 4a  |  . "sprite"...J|
00001240  20 20 20 20 f2 73 68 65  6c 6c 5f 49 63 6f 6e 50  |    .shell_IconP|
00001250  75 74 44 61 74 61 28 77  68 25 2c 31 2c a4 73 68  |utData(wh%,1,.sh|
00001260  65 6c 6c 5f 47 65 74 41  70 70 44 61 74 61 44 69  |ell_GetAppDataDi|
00001270  72 2b 22 2e 22 2b a4 67  65 74 5f 66 69 6c 65 6e  |r+"."+.get_filen|
00001280  61 6d 65 2c 30 29 0d 00  87 41 20 20 20 20 f2 73  |ame,0)...A    .s|
00001290  68 65 6c 6c 5f 41 74 74  61 63 68 44 61 74 61 53  |hell_AttachDataS|
000012a0  61 76 65 28 77 68 25 2c  32 2c 73 61 76 65 5f 62  |ave(wh%,2,save_b|
000012b0  75 66 66 25 2c 26 46 46  39 2c 31 2c 22 5f 64 6f  |uff%,&FF9,1,"_do|
000012c0  5f 73 61 76 65 22 29 0d  00 88 12 20 20 c9 20 22  |_save")....  . "|
000012d0  74 65 6d 70 6c 61 74 65  22 0d 00 89 43 20 20 20  |template"...C   |
000012e0  20 f2 73 68 65 6c 6c 5f  49 63 6f 6e 50 75 74 44  | .shell_IconPutD|
000012f0  61 74 61 28 77 68 25 2c  31 2c a4 73 68 65 6c 6c  |ata(wh%,1,.shell|
00001300  5f 47 65 74 41 70 70 44  61 74 61 44 69 72 2b 22  |_GetAppDataDir+"|
00001310  2e 67 72 61 62 62 65 64  22 2c 30 29 0d 00 8a 43  |.grabbed",0)...C|
00001320  20 20 20 20 f2 73 68 65  6c 6c 5f 41 74 74 61 63  |    .shell_Attac|
00001330  68 44 61 74 61 53 61 76  65 28 77 68 25 2c 32 2c  |hDataSave(wh%,2,|
00001340  31 30 30 2c 26 46 45 43  2c 31 2c 22 5f 64 6f 5f  |100,&FEC,1,"_do_|
00001350  73 61 76 65 5f 74 65 6d  70 6c 61 74 65 22 29 0d  |save_template").|
00001360  00 8b 05 cb 0d 00 8c 21  c8 99 20 22 57 69 6d 70  |.......!.. "Wimp|
00001370  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00001380  2c 2c 5f 51 25 0d 00 8d  30 f2 73 68 65 6c 6c 5f  |,,_Q%...0.shell_|
00001390  57 69 6e 64 6f 77 4d 6f  76 65 54 6f 28 77 68 25  |WindowMoveTo(wh%|
000013a0  2c 5f 51 25 21 30 2d 31  30 30 2c 5f 51 25 21 34  |,_Q%!0-100,_Q%!4|
000013b0  2d 31 34 30 29 0d 00 8e  06 3d 30 0d 00 8f 05 3a  |-140)....=0....:|
000013c0  0d 00 90 04 0d 00 91 46  f4 20 3d 3d 3d 3d 3d 20  |.......F. ===== |
000013d0  44 69 61 6c 6f 67 5f 50  6f 73 74 4f 70 65 6e 20  |Dialog_PostOpen |
000013e0  72 6f 75 74 69 6e 65 73  20 3d 3d 3d 3d 3d 3d 3d  |routines =======|
000013f0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00001400  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 0d 00 92 04 0d 00  |==========......|
00001410  93 46 f4 20 3d 3d 3d 3d  3d 20 43 6c 69 63 6b 5f  |.F. ===== Click_|
00001420  53 65 6c 65 63 74 20 72  6f 75 74 69 6e 65 73 20  |Select routines |
00001430  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001450  3d 3d 3d 3d 0d 00 94 04  0d 00 95 24 dd 20 a4 5f  |====.......$. ._|
00001460  43 6c 69 63 6b 53 65 6c  65 63 74 5f 53 65 74 75  |ClickSelect_Setu|
00001470  70 28 77 68 25 2c 69 63  6f 6e 25 29 0d 00 96 0e  |p(wh%,icon%)....|
00001480  ea 20 76 6f 69 64 25 2c  58 25 0d 00 97 0c c8 8e  |. void%,X%......|
00001490  20 69 68 25 20 ca 0d 00  98 10 20 20 c9 20 30 3a  | ih% .....  . 0:|
000014a0  f4 20 27 4f 4b 27 0d 00  99 2d 20 20 20 20 f4 20  |. 'OK'...-    . |
000014b0  6c 69 62 72 61 72 79 20  68 61 6e 64 6c 65 73 20  |library handles |
000014c0  63 6c 6f 73 69 6e 67 20  74 68 65 20 6d 65 6e 75  |closing the menu|
000014d0  2e 2e 2e 0d 00 9a 37 20  20 20 20 66 6c 61 67 5f  |......7    flag_|
000014e0  57 69 74 68 50 61 6c 65  74 74 65 25 20 3d a4 73  |WithPalette% =.s|
000014f0  68 65 6c 6c 5f 49 73 49  63 6f 6e 53 65 6c 65 63  |hell_IsIconSelec|
00001500  74 65 64 28 77 68 25 2c  32 29 0d 00 9b 38 20 20  |ted(wh%,2)...8  |
00001510  20 20 66 6c 61 67 5f 42  72 69 6e 67 54 6f 54 6f  |  flag_BringToTo|
00001520  70 25 20 20 3d a4 73 68  65 6c 6c 5f 49 73 49 63  |p%  =.shell_IsIc|
00001530  6f 6e 53 65 6c 65 63 74  65 64 28 77 68 25 2c 31  |onSelected(wh%,1|
00001540  32 29 0d 00 9c 38 20 20  20 20 66 6c 61 67 5f 43  |2)...8    flag_C|
00001550  6f 6e 74 65 6e 74 73 4f  6e 6c 79 25 3d a4 73 68  |ontentsOnly%=.sh|
00001560  65 6c 6c 5f 49 73 49 63  6f 6e 53 65 6c 65 63 74  |ell_IsIconSelect|
00001570  65 64 28 77 68 25 2c 31  33 29 0d 00 9d 15 20 20  |ed(wh%,13)....  |
00001580  c9 20 31 30 3a f4 20 27  43 61 6e 63 65 6c 27 0d  |. 10:. 'Cancel'.|
00001590  00 9e 1f 20 20 20 20 f2  73 68 65 6c 6c 5f 43 6c  |...    .shell_Cl|
000015a0  6f 73 65 57 69 6e 64 6f  77 28 77 68 25 29 0d 00  |oseWindow(wh%)..|
000015b0  9f 13 20 20 c9 20 31 31  3a f4 20 27 53 61 76 65  |..  . 11:. 'Save|
000015c0  27 0d 00 a0 37 20 20 20  20 66 6c 61 67 5f 57 69  |'...7    flag_Wi|
000015d0  74 68 50 61 6c 65 74 74  65 25 20 3d a4 73 68 65  |thPalette% =.she|
000015e0  6c 6c 5f 49 73 49 63 6f  6e 53 65 6c 65 63 74 65  |ll_IsIconSelecte|
000015f0  64 28 77 68 25 2c 32 29  0d 00 a1 38 20 20 20 20  |d(wh%,2)...8    |
00001600  66 6c 61 67 5f 42 72 69  6e 67 54 6f 54 6f 70 25  |flag_BringToTop%|
00001610  20 20 3d a4 73 68 65 6c  6c 5f 49 73 49 63 6f 6e  |  =.shell_IsIcon|
00001620  53 65 6c 65 63 74 65 64  28 77 68 25 2c 31 32 29  |Selected(wh%,12)|
00001630  0d 00 a2 38 20 20 20 20  66 6c 61 67 5f 43 6f 6e  |...8    flag_Con|
00001640  74 65 6e 74 73 4f 6e 6c  79 25 3d a4 73 68 65 6c  |tentsOnly%=.shel|
00001650  6c 5f 49 73 49 63 6f 6e  53 65 6c 65 63 74 65 64  |l_IsIconSelected|
00001660  28 77 68 25 2c 31 33 29  0d 00 a3 29 20 20 20 20  |(wh%,13)...)    |
00001670  58 25 3d ae 28 a4 73 68  65 6c 6c 5f 47 65 74 41  |X%=.(.shell_GetA|
00001680  70 70 44 69 72 2b 22 2e  43 68 6f 69 63 65 73 22  |ppDir+".Choices"|
00001690  29 0d 00 a4 20 20 20 20  20 20 20 f1 23 58 25 2c  |)...       .#X%,|
000016a0  66 6c 61 67 5f 57 69 74  68 50 61 6c 65 74 74 65  |flag_WithPalette|
000016b0  25 0d 00 a5 1f 20 20 20  20 20 20 f1 23 58 25 2c  |%....      .#X%,|
000016c0  66 6c 61 67 5f 42 72 69  6e 67 54 6f 54 6f 70 25  |flag_BringToTop%|
000016d0  0d 00 a6 21 20 20 20 20  20 20 f1 23 58 25 2c 66  |...!      .#X%,f|
000016e0  6c 61 67 5f 43 6f 6e 74  65 6e 74 73 4f 6e 6c 79  |lag_ContentsOnly|
000016f0  25 0d 00 a7 0d 20 20 20  20 d9 23 20 58 25 0d 00  |%....    .# X%..|
00001700  a8 1f 20 20 20 20 c8 99  20 22 57 69 6d 70 5f 43  |..    .. "Wimp_C|
00001710  72 65 61 74 65 4d 65 6e  75 22 2c 2d 31 0d 00 a9  |reateMenu",-1...|
00001720  05 cb 0d 00 aa 06 3d 30  0d 00 ab 05 3a 0d 00 ac  |......=0....:...|
00001730  23 dd 20 a4 5f 43 6c 69  63 6b 53 65 6c 65 63 74  |#. ._ClickSelect|
00001740  5f 58 66 65 72 28 77 68  25 2c 69 63 6f 6e 25 29  |_Xfer(wh%,icon%)|
00001750  0d 00 ad 0b ea 20 76 6f  69 64 25 0d 00 ae 0c c8  |..... void%.....|
00001760  8e 20 69 68 25 20 ca 0d  00 af 0a 20 20 c9 20 30  |. ih% .....  . 0|
00001770  3a 0d 00 b0 18 20 20 20  20 c8 8e 20 77 69 6e 73  |:....    .. wins|
00001780  61 76 65 5f 6f 70 25 20  ca 0d 00 b1 38 20 20 20  |ave_op% ....8   |
00001790  20 20 20 c9 20 30 3a 76  6f 69 64 25 3d a4 5f 64  |   . 0:void%=._d|
000017a0  6f 5f 73 61 76 65 28 a4  73 68 65 6c 6c 5f 49 63  |o_save(.shell_Ic|
000017b0  6f 6e 47 65 74 44 61 74  61 28 77 68 25 2c 31 29  |onGetData(wh%,1)|
000017c0  29 0d 00 b2 41 20 20 20  20 20 20 c9 20 32 3a 76  |)...A      . 2:v|
000017d0  6f 69 64 25 3d a4 5f 64  6f 5f 73 61 76 65 5f 74  |oid%=._do_save_t|
000017e0  65 6d 70 6c 61 74 65 28  a4 73 68 65 6c 6c 5f 49  |emplate(.shell_I|
000017f0  63 6f 6e 47 65 74 44 61  74 61 28 77 68 25 2c 31  |conGetData(wh%,1|
00001800  29 29 0d 00 b3 09 20 20  20 20 cb 0d 00 b4 1f 20  |))....    ..... |
00001810  20 20 20 f2 73 68 65 6c  6c 5f 43 6c 6f 73 65 57  |   .shell_CloseW|
00001820  69 6e 64 6f 77 28 77 68  25 29 0d 00 b5 05 cb 0d  |indow(wh%)......|
00001830  00 b6 06 3d 30 0d 00 b7  05 3a 0d 00 b8 04 0d 00  |...=0....:......|
00001840  b9 46 f4 20 3d 3d 3d 3d  3d 20 43 6c 69 63 6b 5f  |.F. ===== Click_|
00001850  41 64 6a 75 73 74 20 72  6f 75 74 69 6e 65 73 20  |Adjust routines |
00001860  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001880  3d 3d 3d 3d 0d 00 ba 04  0d 00 bb 25 dd a4 5f 43  |====.......%.._C|
00001890  6c 69 63 6b 41 64 6a 75  73 74 5f 49 63 6f 6e 42  |lickAdjust_IconB|
000018a0  61 72 28 77 68 25 2c 69  63 6f 6e 25 29 0d 00 bc  |ar(wh%,icon%)...|
000018b0  32 77 69 6e 73 61 76 65  5f 6f 70 25 2b 3d 31 3a  |2winsave_op%+=1:|
000018c0  e7 20 77 69 6e 73 61 76  65 5f 6f 70 25 3e 35 20  |. winsave_op%>5 |
000018d0  8c 20 77 69 6e 73 61 76  65 5f 6f 70 25 3d 30 0d  |. winsave_op%=0.|
000018e0  00 bd 3b f2 73 68 65 6c  6c 5f 4d 65 6e 75 54 69  |..;.shell_MenuTi|
000018f0  63 6b 4f 6e 6c 79 31 28  4d 65 6e 75 48 61 6e 64  |ckOnly1(MenuHand|
00001900  6c 65 5f 49 63 6f 6e 42  61 72 25 2c 77 69 6e 73  |le_IconBar%,wins|
00001910  61 76 65 5f 6f 70 25 2b  33 29 0d 00 be 14 c8 8e  |ave_op%+3)......|
00001920  20 77 69 6e 73 61 76 65  5f 6f 70 25 20 ca 0d 00  | winsave_op% ...|
00001930  bf 32 20 20 c9 20 30 3a  f2 73 68 65 6c 6c 5f 49  |.2  . 0:.shell_I|
00001940  63 6f 6e 62 61 72 53 65  74 54 65 78 74 28 2d 31  |conbarSetText(-1|
00001950  2c 73 69 63 6f 6e 2c 22  53 70 72 69 74 65 22 29  |,sicon,"Sprite")|
00001960  0d 00 c0 31 20 20 c9 20  31 3a f2 73 68 65 6c 6c  |...1  . 1:.shell|
00001970  5f 49 63 6f 6e 62 61 72  53 65 74 54 65 78 74 28  |_IconbarSetText(|
00001980  2d 31 2c 73 69 63 6f 6e  2c 22 47 72 6f 75 70 22  |-1,sicon,"Group"|
00001990  29 0d 00 c1 34 20 20 c9  20 32 3a f2 73 68 65 6c  |)...4  . 2:.shel|
000019a0  6c 5f 49 63 6f 6e 62 61  72 53 65 74 54 65 78 74  |l_IconbarSetText|
000019b0  28 2d 31 2c 73 69 63 6f  6e 2c 22 54 65 6d 70 6c  |(-1,sicon,"Templ|
000019c0  61 74 65 22 29 0d 00 c2  30 20 20 c9 20 33 3a f2  |ate")...0  . 3:.|
000019d0  73 68 65 6c 6c 5f 49 63  6f 6e 62 61 72 53 65 74  |shell_IconbarSet|
000019e0  54 65 78 74 28 2d 31 2c  73 69 63 6f 6e 2c 22 49  |Text(-1,sicon,"I|
000019f0  63 6f 6e 22 29 0d 00 c3  30 20 20 c9 20 34 3a f2  |con")...0  . 4:.|
00001a00  73 68 65 6c 6c 5f 49 63  6f 6e 62 61 72 53 65 74  |shell_IconbarSet|
00001a10  54 65 78 74 28 2d 31 2c  73 69 63 6f 6e 2c 22 41  |Text(-1,sicon,"A|
00001a20  72 65 61 22 29 0d 00 c4  32 20 20 c9 20 35 3a f2  |rea")...2  . 5:.|
00001a30  73 68 65 6c 6c 5f 49 63  6f 6e 62 61 72 53 65 74  |shell_IconbarSet|
00001a40  54 65 78 74 28 2d 31 2c  73 69 63 6f 6e 2c 22 53  |Text(-1,sicon,"S|
00001a50  63 72 65 65 6e 22 29 0d  00 c5 05 cb 0d 00 c6 06  |creen").........|
00001a60  3d 30 0d 00 c7 05 3a 0d  00 c8 04 0d 00 c9 46 f4  |=0....:.......F.|
00001a70  20 3d 3d 3d 3d 3d 20 4d  65 6e 75 5f 53 65 6c 65  | ===== Menu_Sele|
00001a80  63 74 20 72 6f 75 74 69  6e 65 73 20 3d 3d 3d 3d  |ct routines ====|
00001a90  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001ab0  3d 0d 00 ca 04 0d 00 cb  1d dd 20 a4 5f 4d 65 6e  |=......... ._Men|
00001ac0  75 53 65 6c 65 63 74 5f  48 65 6c 70 28 62 6c 6b  |uSelect_Help(blk|
00001ad0  25 29 0d 00 cc 2b f2 73  68 65 6c 6c 5f 48 65 6c  |%)...+.shell_Hel|
00001ae0  70 57 6f 72 64 28 a4 73  68 65 6c 6c 5f 47 65 74  |pWord(.shell_Get|
00001af0  41 70 70 4e 61 6d 65 2b  22 2e 24 22 29 0d 00 cd  |AppName+".$")...|
00001b00  06 3d 30 0d 00 ce 05 3a  0d 00 cf 28 dd 20 a4 5f  |.=0....:...(. ._|
00001b10  4d 65 6e 75 53 65 6c 65  63 74 5f 47 65 74 57 69  |MenuSelect_GetWi|
00001b20  6e 64 6f 77 53 70 72 69  74 65 28 62 6c 6b 25 29  |ndowSprite(blk%)|
00001b30  0d 00 d0 29 f2 73 68 65  6c 6c 5f 4d 65 6e 75 54  |...).shell_MenuT|
00001b40  69 63 6b 4f 6e 6c 79 32  28 4d 65 6e 75 49 74 65  |ickOnly2(MenuIte|
00001b50  6d 5f 47 65 74 57 53 25  29 0d 00 d1 11 77 69 6e  |m_GetWS%)....win|
00001b60  73 61 76 65 5f 6f 70 25  3d 30 0d 00 d2 2c f2 73  |save_op%=0...,.s|
00001b70  68 65 6c 6c 5f 49 63 6f  6e 62 61 72 53 65 74 54  |hell_IconbarSetT|
00001b80  65 78 74 28 2d 31 2c 73  69 63 6f 6e 2c 22 53 70  |ext(-1,sicon,"Sp|
00001b90  72 69 74 65 22 29 0d 00  d3 06 3d 30 0d 00 d4 05  |rite")....=0....|
00001ba0  3a 0d 00 d5 2a dd 20 a4  5f 4d 65 6e 75 53 65 6c  |:...*. ._MenuSel|
00001bb0  65 63 74 5f 47 65 74 57  69 6e 64 6f 77 54 65 6d  |ect_GetWindowTem|
00001bc0  70 6c 61 74 65 28 62 6c  6b 25 29 0d 00 d6 29 f2  |plate(blk%)...).|
00001bd0  73 68 65 6c 6c 5f 4d 65  6e 75 54 69 63 6b 4f 6e  |shell_MenuTickOn|
00001be0  6c 79 32 28 4d 65 6e 75  49 74 65 6d 5f 47 65 74  |ly2(MenuItem_Get|
00001bf0  57 54 25 29 0d 00 d7 11  77 69 6e 73 61 76 65 5f  |WT%)....winsave_|
00001c00  6f 70 25 3d 32 0d 00 d8  2e f2 73 68 65 6c 6c 5f  |op%=2.....shell_|
00001c10  49 63 6f 6e 62 61 72 53  65 74 54 65 78 74 28 2d  |IconbarSetText(-|
00001c20  31 2c 73 69 63 6f 6e 2c  22 54 65 6d 70 6c 61 74  |1,sicon,"Templat|
00001c30  65 22 29 0d 00 d9 06 3d  30 0d 00 da 05 3a 0d 00  |e")....=0....:..|
00001c40  db 27 dd 20 a4 5f 4d 65  6e 75 53 65 6c 65 63 74  |.'. ._MenuSelect|
00001c50  5f 47 65 74 57 68 6f 6c  65 53 63 72 65 65 6e 28  |_GetWholeScreen(|
00001c60  62 6c 6b 25 29 0d 00 dc  2c f2 73 68 65 6c 6c 5f  |blk%)...,.shell_|
00001c70  4d 65 6e 75 54 69 63 6b  4f 6e 6c 79 32 28 4d 65  |MenuTickOnly2(Me|
00001c80  6e 75 49 74 65 6d 5f 47  65 74 57 68 6f 6c 65 25  |nuItem_GetWhole%|
00001c90  29 0d 00 dd 11 77 69 6e  73 61 76 65 5f 6f 70 25  |)....winsave_op%|
00001ca0  3d 35 0d 00 de 2c f2 73  68 65 6c 6c 5f 49 63 6f  |=5...,.shell_Ico|
00001cb0  6e 62 61 72 53 65 74 54  65 78 74 28 2d 31 2c 73  |nbarSetText(-1,s|
00001cc0  69 63 6f 6e 2c 22 53 63  72 65 65 6e 22 29 0d 00  |icon,"Screen")..|
00001cd0  df 06 3d 30 0d 00 e0 05  3a 0d 00 e1 1d dd 20 a4  |..=0....:..... .|
00001ce0  5f 4d 65 6e 75 53 65 6c  65 63 74 5f 51 75 69 74  |_MenuSelect_Quit|
00001cf0  28 62 6c 6b 25 29 0d 00  e2 11 5f 63 6c 6f 73 65  |(blk%)...._close|
00001d00  64 6f 77 6e 25 3d b9 0d  00 e3 06 3d 30 0d 00 e4  |down%=.....=0...|
00001d10  05 3a 0d 00 e5 04 0d 00  e6 46 f4 20 3d 3d 3d 3d  |.:.......F. ====|
00001d20  3d 20 4d 65 6e 75 5f 57  61 72 6e 69 6e 67 20 72  |= Menu_Warning r|
00001d30  6f 75 74 69 6e 65 73 20  3d 3d 3d 3d 3d 3d 3d 3d  |outines ========|
00001d40  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00001d50  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 0d 00 e7 04  |============....|
00001d60  0d 00 e8 46 f4 20 3d 3d  3d 3d 3d 20 4d 65 6e 75  |...F. ===== Menu|
00001d70  5f 4d 61 6b 65 72 20 72  6f 75 74 69 6e 65 73 20  |_Maker routines |
00001d80  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001da0  3d 3d 3d 3d 3d 3d 0d 00  e9 04 0d 00 ea 21 dd a4  |======.......!..|
00001db0  5f 4d 65 6e 75 4d 61 6b  65 72 5f 49 63 6f 6e 42  |_MenuMaker_IconB|
00001dc0  61 72 28 77 68 25 2c 69  63 25 29 0d 00 eb 3b f2  |ar(wh%,ic%)...;.|
00001dd0  73 68 65 6c 6c 5f 4d 65  6e 75 54 69 63 6b 4f 6e  |shell_MenuTickOn|
00001de0  6c 79 31 28 4d 65 6e 75  48 61 6e 64 6c 65 5f 49  |ly1(MenuHandle_I|
00001df0  63 6f 6e 42 61 72 25 2c  77 69 6e 73 61 76 65 5f  |conBar%,winsave_|
00001e00  6f 70 25 2b 33 29 0d 00  ec 06 3d 30 0d 00 ed 05  |op%+3)....=0....|
00001e10  3a 0d 00 ee 04 0d 00 ef  46 f4 20 3d 3d 3d 3d 3d  |:.......F. =====|
00001e20  20 44 61 74 61 5f 4c 6f  61 64 20 72 6f 75 74 69  | Data_Load routi|
00001e30  6e 65 73 20 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |nes ============|
00001e40  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00001e50  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 0d 00 f0 04 0d  |===========.....|
00001e60  00 f1 46 f4 20 3d 3d 3d  3d 3d 20 44 61 74 61 5f  |..F. ===== Data_|
00001e70  53 61 76 65 20 72 6f 75  74 69 6e 65 73 20 3d 3d  |Save routines ==|
00001e80  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001ea0  3d 3d 3d 3d 3d 0d 00 f2  04 0d 00 f3 46 f4 20 3d  |=====.......F. =|
00001eb0  3d 3d 3d 3d 20 55 73 65  72 20 61 70 70 6c 69 63  |==== User applic|
00001ec0  61 74 69 6f 6e 20 72 6f  75 74 69 6e 65 73 20 3d  |ation routines =|
00001ed0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00001ee0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 0d  |===============.|
00001ef0  00 f4 04 0d 00 f5 12 dd  20 a4 5f 6d 6f 64 65 63  |........ ._modec|
00001f00  68 61 6e 67 65 0d 00 f6  24 73 63 72 65 65 6e 5f  |hange...$screen_|
00001f10  77 69 64 74 68 25 3d 30  3a 73 63 72 65 65 6e 5f  |width%=0:screen_|
00001f20  68 65 69 67 68 74 25 3d  30 0d 00 f7 36 f2 67 65  |height%=0...6.ge|
00001f30  74 5f 73 63 72 65 65 6e  6d 61 78 63 6f 6f 72 64  |t_screenmaxcoord|
00001f40  73 28 73 63 72 65 65 6e  5f 77 69 64 74 68 25 2c  |s(screen_width%,|
00001f50  73 63 72 65 65 6e 5f 68  65 69 67 68 74 25 29 0d  |screen_height%).|
00001f60  00 f8 2c 73 63 72 65 65  6e 5f 62 75 66 66 65 72  |..,screen_buffer|
00001f70  73 69 7a 65 25 3d a4 67  65 74 5f 73 63 72 65 65  |size%=.get_scree|
00001f80  6e 62 75 66 66 65 72 73  69 7a 65 0d 00 f9 06 3d  |nbuffersize....=|
00001f90  30 0d 00 fa 05 3a 0d 00  fb 1b dd 20 a4 67 65 74  |0....:..... .get|
00001fa0  5f 73 63 72 65 65 6e 62  75 66 66 65 72 73 69 7a  |_screenbuffersiz|
00001fb0  65 0d 00 fc 1c ea 20 69  6e 62 6c 6b 25 2c 6f 75  |e..... inblk%,ou|
00001fc0  74 62 6c 6b 25 2c 72 65  73 75 6c 74 25 0d 00 fd  |tblk%,result%...|
00001fd0  24 69 6e 62 6c 6b 25 3d  a4 73 68 65 6c 6c 5f 48  |$inblk%=.shell_H|
00001fe0  65 61 70 42 6c 6f 63 6b  46 65 74 63 68 28 31 30  |eapBlockFetch(10|
00001ff0  29 0d 00 fe 25 6f 75 74  62 6c 6b 25 3d a4 73 68  |)...%outblk%=.sh|
00002000  65 6c 6c 5f 48 65 61 70  42 6c 6f 63 6b 46 65 74  |ell_HeapBlockFet|
00002010  63 68 28 31 30 29 0d 00  ff 1c 69 6e 62 6c 6b 25  |ch(10)....inblk%|
00002020  21 30 3d 31 35 30 3a 69  6e 62 6c 6b 25 21 34 3d  |!0=150:inblk%!4=|
00002030  2d 31 0d 01 00 2b c8 99  20 22 4f 53 5f 52 65 61  |-1...+.. "OS_Rea|
00002040  64 56 64 75 56 61 72 69  61 62 6c 65 73 22 2c 69  |dVduVariables",i|
00002050  6e 62 6c 6b 25 2c 6f 75  74 62 6c 6b 25 0d 01 01  |nblk%,outblk%...|
00002060  15 72 65 73 75 6c 74 25  3d 6f 75 74 62 6c 6b 25  |.result%=outblk%|
00002070  21 30 0d 01 02 22 f2 73  68 65 6c 6c 5f 48 65 61  |!0...".shell_Hea|
00002080  70 42 6c 6f 63 6b 52 65  74 75 72 6e 28 69 6e 62  |pBlockReturn(inb|
00002090  6c 6b 25 29 0d 01 03 23  f2 73 68 65 6c 6c 5f 48  |lk%)...#.shell_H|
000020a0  65 61 70 42 6c 6f 63 6b  52 65 74 75 72 6e 28 6f  |eapBlockReturn(o|
000020b0  75 74 62 6c 6b 25 29 0d  01 04 0c 3d 72 65 73 75  |utblk%)....=resu|
000020c0  6c 74 25 0d 01 05 05 3a  0d 01 06 25 dd 20 f2 67  |lt%....:...%. .g|
000020d0  65 74 5f 73 63 72 65 65  6e 6d 61 78 63 6f 6f 72  |et_screenmaxcoor|
000020e0  64 73 28 f8 20 58 25 2c  f8 20 59 25 29 0d 01 07  |ds(. X%,. Y%)...|
000020f0  0d ea 20 72 65 73 75 6c  74 25 0d 01 08 48 f4 20  |.. result%...H. |
00002100  75 73 65 20 4f 53 5f 52  65 61 64 50 6f 69 6e 74  |use OS_ReadPoint|
00002110  20 74 6f 20 64 69 73 63  6f 76 65 72 20 73 63 72  | to discover scr|
00002120  65 65 6e 20 73 69 7a 65  20 69 6e 20 27 65 78 74  |een size in 'ext|
00002130  65 72 6e 61 6c 20 63 6f  6f 72 64 69 6e 61 74 65  |ernal coordinate|
00002140  73 27 0d 01 09 11 58 25  3d 36 30 30 3a 59 25 3d  |s'....X%=600:Y%=|
00002150  32 30 30 0d 01 0a 05 f5  0d 01 0b 0b 20 20 58 25  |200.........  X%|
00002160  2b 3d 31 0d 01 0c 1f 20  20 c8 99 20 26 33 32 2c  |+=1....  .. &32,|
00002170  58 25 2c 30 20 b8 20 2c  2c 2c 2c 72 65 73 75 6c  |X%,0 . ,,,,resul|
00002180  74 25 0d 01 0d 10 fd 20  72 65 73 75 6c 74 25 3d  |t%..... result%=|
00002190  2d 31 0d 01 0e 05 f5 0d  01 0f 0b 20 20 59 25 2b  |-1.........  Y%+|
000021a0  3d 31 0d 01 10 1f 20 20  c8 99 20 26 33 32 2c 30  |=1....  .. &32,0|
000021b0  2c 59 25 20 b8 20 2c 2c  2c 2c 72 65 73 75 6c 74  |,Y% . ,,,,result|
000021c0  25 0d 01 11 10 fd 20 72  65 73 75 6c 74 25 3d 2d  |%..... result%=-|
000021d0  31 0d 01 12 05 e1 0d 01  13 05 3a 0d 01 14 04 0d  |1.........:.....|
000021e0  01 15 17 dd 20 f2 53 61  76 65 41 73 53 70 72 69  |.... .SaveAsSpri|
000021f0  74 65 46 69 6c 65 0d 01  16 0b ea 20 76 6f 69 64  |teFile..... void|
00002200  25 0d 01 17 15 c8 99 20  22 48 6f 75 72 67 6c 61  |%...... "Hourgla|
00002210  73 73 5f 4f 6e 22 0d 01  18 18 e7 20 66 6c 61 67  |ss_On"..... flag|
00002220  5f 42 72 69 6e 67 54 6f  54 6f 70 25 20 8c 0d 01  |_BringToTop% ...|
00002230  19 43 20 20 f4 20 47 72  61 62 62 69 6e 67 20 6f  |.C  . Grabbing o|
00002240  66 20 73 70 72 69 74 65  20 6d 75 73 74 20 62 65  |f sprite must be|
00002250  20 64 65 66 65 72 72 65  64 20 75 6e 74 69 6c 20  | deferred until |
00002260  74 68 65 20 74 61 72 67  65 74 20 77 69 6e 64 6f  |the target windo|
00002270  77 0d 01 1a 46 20 20 f4  20 68 61 73 20 62 65 65  |w...F  . has bee|
00002280  6e 20 62 72 6f 75 67 68  74 20 74 6f 20 74 68 65  |n brought to the|
00002290  20 74 6f 70 20 6f 66 20  74 68 65 20 73 74 61 63  | top of the stac|
000022a0  6b 2e 20 54 68 65 72 65  66 6f 72 65 20 73 65 74  |k. Therefore set|
000022b0  20 61 20 66 6c 61 67 0d  01 1b 4a 20 20 f4 20 61  | a flag...J  . a|
000022c0  6e 64 20 75 73 65 20 69  74 20 74 6f 20 63 68 65  |nd use it to che|
000022d0  63 6b 20 74 68 65 20 74  61 72 67 65 74 20 77 69  |ck the target wi|
000022e0  6e 64 6f 77 20 6f 6e 20  74 68 65 20 6e 65 78 74  |ndow on the next|
000022f0  20 6e 75 6c 6c 20 77 69  6d 70 20 70 6f 6c 6c 2e  | null wimp poll.|
00002300  2e 0d 01 1c 2c 20 20 f2  73 68 65 6c 6c 5f 57 69  |....,  .shell_Wi|
00002310  6e 64 6f 77 42 72 69 6e  67 54 6f 54 6f 70 28 74  |ndowBringToTop(t|
00002320  61 72 67 65 74 77 69 6e  64 6f 77 25 29 0d 01 1d  |argetwindow%)...|
00002330  19 20 20 66 6c 61 67 5f  47 72 61 62 50 65 6e 64  |.  flag_GrabPend|
00002340  69 6e 67 25 3d b9 0d 01  1e 05 cc 0d 01 1f 39 20  |ing%=.........9 |
00002350  20 f4 20 42 72 69 6e 67  54 6f 54 6f 70 20 66 6c  | . BringToTop fl|
00002360  61 67 20 6e 6f 74 20 73  65 74 2c 20 73 6f 20 6a  |ag not set, so j|
00002370  75 73 74 20 73 61 76 65  20 69 74 20 61 6e 79 77  |ust save it anyw|
00002380  61 79 2e 2e 0d 01 20 19  20 20 66 6c 61 67 5f 47  |ay.... .  flag_G|
00002390  72 61 62 50 65 6e 64 69  6e 67 25 3d a3 0d 01 21  |rabPending%=...!|
000023a0  11 20 20 f2 53 61 76 65  53 70 72 69 74 65 0d 01  |.  .SaveSprite..|
000023b0  22 29 20 20 76 6f 69 64  25 3d a4 5f 50 72 65 4f  |")  void%=._PreO|
000023c0  70 65 6e 58 66 65 72 28  78 66 65 72 25 2c 22 73  |penXfer(xfer%,"s|
000023d0  70 72 69 74 65 22 29 0d  01 23 24 20 20 f2 73 68  |prite")..#$  .sh|
000023e0  65 6c 6c 5f 4f 70 65 6e  57 69 6e 64 6f 77 53 74  |ell_OpenWindowSt|
000023f0  61 74 69 63 28 78 66 65  72 25 29 0d 01 24 05 cd  |atic(xfer%)..$..|
00002400  0d 01 25 16 c8 99 20 22  48 6f 75 72 67 6c 61 73  |..%... "Hourglas|
00002410  73 5f 4f 66 66 22 0d 01  26 05 e1 0d 01 27 05 3a  |s_Off"..&....'.:|
00002420  0d 01 28 11 dd 20 f2 53  61 76 65 53 70 72 69 74  |..(.. .SaveSprit|
00002430  65 0d 01 29 25 f4 20 41  63 74 75 61 6c 6c 79 20  |e..)%. Actually |
00002440  73 61 76 65 20 74 68 65  20 73 70 72 69 74 65 20  |save the sprite |
00002450  66 69 6c 65 2e 2e 0d 01  2a 0f ea 20 65 73 74 5f  |file....*.. est_|
00002460  73 69 7a 65 25 0d 01 2b  17 5f 51 25 21 30 3d 74  |size%..+._Q%!0=t|
00002470  61 72 67 65 74 77 69 6e  64 6f 77 25 0d 01 2c 1a  |argetwindow%..,.|
00002480  e7 20 66 6c 61 67 5f 43  6f 6e 74 65 6e 74 73 4f  |. flag_ContentsO|
00002490  6e 6c 79 25 20 8c 0d 01  2d 23 20 20 c8 99 20 22  |nly% ...-#  .. "|
000024a0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
000024b0  61 74 65 22 2c 2c 5f 51  25 0d 01 2e 05 cc 0d 01  |ate",,_Q%.......|
000024c0  2f 25 20 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |/%  .. "Wimp_Get|
000024d0  57 69 6e 64 6f 77 4f 75  74 6c 69 6e 65 22 2c 2c  |WindowOutline",,|
000024e0  5f 51 25 0d 01 30 05 cd  0d 01 31 42 65 73 74 5f  |_Q%..0....1Best_|
000024f0  73 69 7a 65 25 3d a4 67  65 74 5f 65 73 74 5f 73  |size%=.get_est_s|
00002500  61 76 65 73 69 7a 65 28  5f 51 25 21 34 2c 5f 51  |avesize(_Q%!4,_Q|
00002510  25 21 38 2c 28 5f 51 25  21 31 32 29 2d 31 2c 28  |%!8,(_Q%!12)-1,(|
00002520  5f 51 25 21 31 36 29 2d  31 29 0d 01 32 2f 73 61  |_Q%!16)-1)..2/sa|
00002530  76 65 5f 62 75 66 66 25  3d a4 73 68 65 6c 6c 5f  |ve_buff%=.shell_|
00002540  48 65 61 70 42 6c 6f 63  6b 46 65 74 63 68 28 65  |HeapBlockFetch(e|
00002550  73 74 5f 73 69 7a 65 25  29 0d 01 33 4a 73 61 76  |st_size%)..3Jsav|
00002560  65 5f 62 75 66 66 25 21  30 3d 6f 75 74 62 6c 6b  |e_buff%!0=outblk|
00002570  25 21 30 3a 73 61 76 65  5f 62 75 66 66 25 21 34  |%!0:save_buff%!4|
00002580  3d 30 3a 73 61 76 65 5f  62 75 66 66 25 21 38 3d  |=0:save_buff%!8=|
00002590  31 36 3a 73 61 76 65 5f  62 75 66 66 25 21 31 32  |16:save_buff%!12|
000025a0  3d 31 36 0d 01 34 62 c8  99 20 22 4f 53 5f 53 70  |=16..4b.. "OS_Sp|
000025b0  72 69 74 65 4f 70 22 2c  32 37 32 2c 73 61 76 65  |riteOp",272,save|
000025c0  5f 62 75 66 66 25 2c 6e  61 6d 65 5f 62 75 66 66  |_buff%,name_buff|
000025d0  25 2c 66 6c 61 67 5f 57  69 74 68 50 61 6c 65 74  |%,flag_WithPalet|
000025e0  74 65 25 2c 5f 51 25 21  34 2c 5f 51 25 21 38 2c  |te%,_Q%!4,_Q%!8,|
000025f0  28 5f 51 25 21 31 32 29  2d 31 2c 28 5f 51 25 21  |(_Q%!12)-1,(_Q%!|
00002600  31 36 29 2d 31 0d 01 35  05 e1 0d 01 36 05 3a 0d  |16)-1..5....6.:.|
00002610  01 37 23 dd a4 67 65 74  5f 65 73 74 5f 73 61 76  |.7#..get_est_sav|
00002620  65 73 69 7a 65 28 6c 25  2c 62 25 2c 72 25 2c 74  |esize(l%,b%,r%,t|
00002630  25 29 0d 01 38 1d ea 20  73 61 76 65 5f 61 72 65  |%)..8.. save_are|
00002640  61 25 2c 73 63 72 65 65  6e 5f 61 72 65 61 25 0d  |a%,screen_area%.|
00002650  01 39 11 e7 20 6c 25 3c  30 20 8c 20 6c 25 3d 30  |.9.. l%<0 . l%=0|
00002660  0d 01 3a 1e 73 61 76 65  5f 61 72 65 61 25 3d 28  |..:.save_area%=(|
00002670  72 25 2d 6c 25 29 2a 28  74 25 2d 62 25 29 0d 01  |r%-l%)*(t%-b%)..|
00002680  3b 2d 73 63 72 65 65 6e  5f 61 72 65 61 25 3d 73  |;-screen_area%=s|
00002690  63 72 65 65 6e 5f 77 69  64 74 68 25 2a 73 63 72  |creen_width%*scr|
000026a0  65 65 6e 5f 68 65 69 67  68 74 25 0d 01 3c 64 f2  |een_height%..<d.|
000026b0  73 68 65 6c 6c 5f 54 72  61 63 65 66 30 28 22 42  |shell_Tracef0("B|
000026c0  75 66 66 65 72 20 73 69  7a 65 20 63 6c 61 69 6d  |uffer size claim|
000026d0  65 64 20 3d 20 22 2b c3  28 a8 28 28 73 63 72 65  |ed = "+.(.((scre|
000026e0  65 6e 5f 62 75 66 66 65  72 73 69 7a 65 25 2a 73  |en_buffersize%*s|
000026f0  61 76 65 5f 61 72 65 61  25 29 2f 73 63 72 65 65  |ave_area%)/scree|
00002700  6e 5f 61 72 65 61 25 29  2b 32 30 34 30 29 29 0d  |n_area%)+2040)).|
00002710  01 3d 3b 3d 28 a8 28 28  73 63 72 65 65 6e 5f 62  |.=;=(.((screen_b|
00002720  75 66 66 65 72 73 69 7a  65 25 2a 73 61 76 65 5f  |uffersize%*save_|
00002730  61 72 65 61 25 29 2f 73  63 72 65 65 6e 5f 61 72  |area%)/screen_ar|
00002740  65 61 25 29 29 2b 32 30  34 38 0d 01 3e 05 3a 0d  |ea%))+2048..>.:.|
00002750  01 3f 1d dd 20 f2 73 68  65 6c 6c 5f 44 6f 42 61  |.?.. .shell_DoBa|
00002760  63 6b 67 72 6f 75 6e 64  54 61 73 6b 0d 01 40 0b  |ckgroundTask..@.|
00002770  ea 20 76 6f 69 64 25 0d  01 41 19 e7 20 66 6c 61  |. void%..A.. fla|
00002780  67 5f 47 72 61 62 50 65  6e 64 69 6e 67 25 20 8c  |g_GrabPending% .|
00002790  0d 01 42 2d 20 20 e7 20  a4 73 68 65 6c 6c 5f 57  |..B-  . .shell_W|
000027a0  69 6e 64 6f 77 49 73 4f  6e 54 6f 70 28 74 61 72  |indowIsOnTop(tar|
000027b0  67 65 74 77 69 6e 64 6f  77 25 29 20 8c 0d 01 43  |getwindow%) ...C|
000027c0  1b 20 20 20 20 66 6c 61  67 5f 47 72 61 62 50 65  |.    flag_GrabPe|
000027d0  6e 64 69 6e 67 25 3d a3  0d 01 44 2e 20 20 20 20  |nding%=...D.    |
000027e0  f4 20 47 72 61 62 20 73  70 72 69 74 65 20 61 6e  |. Grab sprite an|
000027f0  64 20 6f 70 65 6e 20 66  69 6c 65 20 73 61 76 65  |d open file save|
00002800  20 62 6f 78 2e 2e 0d 01  45 13 20 20 20 20 f2 53  | box....E.    .S|
00002810  61 76 65 53 70 72 69 74  65 0d 01 46 2b 20 20 20  |aveSprite..F+   |
00002820  20 76 6f 69 64 25 3d a4  5f 50 72 65 4f 70 65 6e  | void%=._PreOpen|
00002830  58 66 65 72 28 78 66 65  72 25 2c 22 73 70 72 69  |Xfer(xfer%,"spri|
00002840  74 65 22 29 0d 01 47 26  20 20 20 20 f2 73 68 65  |te")..G&    .she|
00002850  6c 6c 5f 4f 70 65 6e 57  69 6e 64 6f 77 53 74 61  |ll_OpenWindowSta|
00002860  74 69 63 28 78 66 65 72  25 29 0d 01 48 07 20 20  |tic(xfer%)..H.  |
00002870  cc 0d 01 49 30 20 20 20  20 f4 20 57 69 6e 64 6f  |...I0    . Windo|
00002880  77 20 69 73 20 6e 6f 74  20 6f 6e 20 74 6f 70 2c  |w is not on top,|
00002890  20 67 6f 20 72 6f 75 6e  64 20 61 67 61 69 6e 2e  | go round again.|
000028a0  2e 0d 01 4a 34 20 20 20  20 f2 73 68 65 6c 6c 5f  |...J4    .shell_|
000028b0  54 72 61 63 65 66 30 28  22 44 6f 42 61 63 6b 67  |Tracef0("DoBackg|
000028c0  72 6f 75 6e 64 54 61 73  6b 3a 57 61 69 74 69 6e  |roundTask:Waitin|
000028d0  67 2e 2e 22 29 0d 01 4b  07 20 20 cd 0d 01 4c 05  |g..")..K.  ...L.|
000028e0  cd 0d 01 4d 05 e1 0d 01  4e 05 3a 0d 01 4f 1c dd  |...M....N.:..O..|
000028f0  a4 5f 50 72 65 70 61 72  65 46 6f 72 47 72 61 62  |._PrepareForGrab|
00002900  28 76 6f 69 64 25 29 0d  01 50 38 e7 20 73 61 76  |(void%)..P8. sav|
00002910  65 5f 62 75 66 66 25 3c  3e 30 20 8c 20 f2 73 68  |e_buff%<>0 . .sh|
00002920  65 6c 6c 5f 48 65 61 70  42 6c 6f 63 6b 52 65 74  |ell_HeapBlockRet|
00002930  75 72 6e 28 73 61 76 65  5f 62 75 66 66 25 29 0d  |urn(save_buff%).|
00002940  01 51 3d f4 20 66 69 6e  64 20 68 61 6e 64 6c 65  |.Q=. find handle|
00002950  20 6f 66 20 77 69 6e 64  6f 77 20 75 6e 64 65 72  | of window under|
00002960  20 70 6f 69 6e 74 65 72  20 28 62 65 66 6f 72 65  | pointer (before|
00002970  20 77 65 20 6f 70 65 6e  20 74 68 65 0d 01 52 13  | we open the..R.|
00002980  f4 20 73 61 76 65 20 61  73 20 62 6f 78 21 21 0d  |. save as box!!.|
00002990  01 53 21 c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |.S!.. "Wimp_GetP|
000029a0  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 5f 51 25  |ointerInfo",,_Q%|
000029b0  0d 01 54 18 74 61 72 67  65 74 77 69 6e 64 6f 77  |..T.targetwindow|
000029c0  25 3d 5f 51 25 21 31 32  0d 01 55 14 c8 8e 20 77  |%=_Q%!12..U... w|
000029d0  69 6e 73 61 76 65 5f 6f  70 25 20 ca 0d 01 56 1b  |insave_op% ...V.|
000029e0  20 20 c9 20 30 3a f2 53  61 76 65 41 73 53 70 72  |  . 0:.SaveAsSpr|
000029f0  69 74 65 46 69 6c 65 0d  01 57 0a 20 20 c9 20 31  |iteFile..W.  . 1|
00002a00  3a 0d 01 58 1d 20 20 c9  20 32 3a f2 53 61 76 65  |:..X.  . 2:.Save|
00002a10  41 73 54 65 6d 70 6c 61  74 65 46 69 6c 65 0d 01  |AsTemplateFile..|
00002a20  59 0a 20 20 c9 20 33 3a  0d 01 5a 0a 20 20 c9 20  |Y.  . 3:..Z.  . |
00002a30  34 3a 0d 01 5b 0a 20 20  c9 20 35 3a 0d 01 5c 1d  |4:..[.  . 5:..\.|
00002a40  20 20 20 20 e7 20 66 6c  61 67 5f 57 69 74 68 50  |    . flag_WithP|
00002a50  61 6c 65 74 74 65 25 20  8c 0d 01 5d 21 20 20 20  |alette% ...]!   |
00002a60  20 20 20 ff 28 22 53 63  72 65 65 6e 53 61 76 65  |   .("ScreenSave|
00002a70  20 22 2b 24 70 61 74 68  25 29 0d 01 5e 09 20 20  | "+$path%)..^.  |
00002a80  20 20 cc 0d 01 5f 09 20  20 20 20 cd 0d 01 60 07  |  ..._.    ...`.|
00002a90  20 20 7f 0d 01 61 07 20  20 cb 0d 01 62 06 3d 30  |  ...a.  ...b.=0|
00002aa0  0d 01 63 05 3a 0d 01 64  13 dd 20 f2 72 65 61 64  |..c.:..d.. .read|
00002ab0  5f 63 68 6f 69 63 65 73  0d 01 65 08 ea 20 58 25  |_choices..e.. X%|
00002ac0  0d 01 66 36 e7 20 a4 73  68 65 6c 6c 5f 46 69 6c  |..f6. .shell_Fil|
00002ad0  65 45 78 69 73 74 73 28  a4 73 68 65 6c 6c 5f 47  |eExists(.shell_G|
00002ae0  65 74 41 70 70 44 69 72  2b 22 2e 43 68 6f 69 63  |etAppDir+".Choic|
00002af0  65 73 22 29 20 8c 0d 01  67 27 20 20 58 25 3d 8e  |es") ...g'  X%=.|
00002b00  28 a4 73 68 65 6c 6c 5f  47 65 74 41 70 70 44 69  |(.shell_GetAppDi|
00002b10  72 2b 22 2e 43 68 6f 69  63 65 73 22 29 0d 01 68  |r+".Choices")..h|
00002b20  1d 20 20 e8 23 20 58 25  2c 66 6c 61 67 5f 57 69  |.  .# X%,flag_Wi|
00002b30  74 68 50 61 6c 65 74 74  65 25 0d 01 69 1c 20 20  |thPalette%..i.  |
00002b40  e8 23 20 58 25 2c 66 6c  61 67 5f 42 72 69 6e 67  |.# X%,flag_Bring|
00002b50  54 6f 54 6f 70 25 0d 01  6a 1e 20 20 e8 23 20 58  |ToTop%..j.  .# X|
00002b60  25 2c 66 6c 61 67 5f 43  6f 6e 74 65 6e 74 73 4f  |%,flag_ContentsO|
00002b70  6e 6c 79 25 0d 01 6b 0a  20 20 d9 23 58 25 0d 01  |nly%..k.  .#X%..|
00002b80  6c 05 cc 0d 01 6d 41 20  20 66 6c 61 67 5f 57 69  |l....mA  flag_Wi|
00002b90  74 68 50 61 6c 65 74 74  65 25 3d a3 3a 66 6c 61  |thPalette%=.:fla|
00002ba0  67 5f 42 72 69 6e 67 54  6f 54 6f 70 25 3d a3 3a  |g_BringToTop%=.:|
00002bb0  66 6c 61 67 5f 43 6f 6e  74 65 6e 74 73 4f 6e 6c  |flag_ContentsOnl|
00002bc0  79 25 3d a3 0d 01 6e 05  cd 0d 01 6f 05 e1 0d 01  |y%=...n....o....|
00002bd0  70 05 3a 0d 01 71 31 dd  a4 64 69 72 5f 72 65 61  |p.:..q1..dir_rea|
00002be0  64 28 6e 61 6d 65 24 28  29 2c 64 69 72 5f 6e 61  |d(name$(),dir_na|
00002bf0  6d 65 24 2c 66 69 6c 65  5f 6e 61 6d 65 24 2c 62  |me$,file_name$,b|
00002c00  6c 6b 25 29 0d 01 72 19  ea 20 6f 66 66 73 65 74  |lk%)..r.. offset|
00002c10  25 2c 6e 65 77 5f 6f 66  66 73 65 74 25 0d 01 73  |%,new_offset%..s|
00002c20  0b ea 20 6c 6f 6f 70 25  0d 01 74 10 63 6f 75 6e  |.. loop%..t.coun|
00002c30  74 65 72 25 20 3d 20 30  0d 01 75 34 6f 66 66 73  |ter% = 0..u4offs|
00002c40  65 74 25 3d 30 3a 6e 65  77 5f 6f 66 66 73 65 74  |et%=0:new_offset|
00002c50  25 3d 30 3a 74 6f 74 61  6c 5f 72 65 61 64 25 3d  |%=0:total_read%=|
00002c60  30 3a 6e 72 5f 72 65 61  64 25 3d 30 0d 01 76 05  |0:nr_read%=0..v.|
00002c70  f5 0d 01 77 1b 20 20 6f  66 66 73 65 74 25 20 3d  |...w.  offset% =|
00002c80  20 6e 65 77 5f 6f 66 66  73 65 74 25 0d 01 78 57  | new_offset%..xW|
00002c90  20 20 c8 99 20 22 4f 53  5f 47 42 50 42 22 2c 39  |  .. "OS_GBPB",9|
00002ca0  2c 64 69 72 5f 6e 61 6d  65 24 2c 62 6c 6b 25 2c  |,dir_name$,blk%,|
00002cb0  37 37 2c 6f 66 66 73 65  74 25 2c 32 35 36 2c 66  |77,offset%,256,f|
00002cc0  69 6c 65 5f 6e 61 6d 65  24 20 b8 20 2c 2c 2c 6e  |ile_name$ . ,,,n|
00002cd0  72 5f 72 65 61 64 25 2c  6e 65 77 5f 6f 66 66 73  |r_read%,new_offs|
00002ce0  65 74 25 0d 01 79 1d 20  20 74 6f 74 61 6c 5f 72  |et%..y.  total_r|
00002cf0  65 61 64 25 20 2b 3d 20  6e 72 5f 72 65 61 64 25  |ead% += nr_read%|
00002d00  0d 01 7a 14 20 20 e7 20  6e 72 5f 72 65 61 64 25  |..z.  . nr_read%|
00002d10  3e 30 20 8c 0d 01 7b 0e  20 20 20 20 70 74 72 25  |>0 ...{.    ptr%|
00002d20  3d 30 0d 01 7c 29 20 20  20 20 e3 20 6c 6f 6f 70  |=0..|)    . loop|
00002d30  25 20 3d 20 6f 66 66 73  65 74 25 20 b8 20 74 6f  |% = offset% . to|
00002d40  74 61 6c 5f 72 65 61 64  25 2d 31 0d 01 7d 32 20  |tal_read%-1..}2 |
00002d50  20 20 20 20 20 6e 61 6d  65 24 28 6c 6f 6f 70 25  |     name$(loop%|
00002d60  29 3d a4 6d 65 6d 5f 74  6f 5f 73 74 72 69 6e 67  |)=.mem_to_string|
00002d70  28 62 6c 6b 25 2c 70 74  72 25 2c 30 29 0d 01 7e  |(blk%,ptr%,0)..~|
00002d80  21 20 20 20 20 20 20 70  74 72 25 2b 3d a9 28 6e  |!      ptr%+=.(n|
00002d90  61 6d 65 24 28 6c 6f 6f  70 25 29 29 2b 31 0d 01  |ame$(loop%))+1..|
00002da0  7f 0f 20 20 20 20 ed 20  6c 6f 6f 70 25 0d 01 80  |..    . loop%...|
00002db0  07 20 20 cd 0d 01 81 16  fd 20 6e 65 77 5f 6f 66  |.  ...... new_of|
00002dc0  66 73 65 74 25 20 3d 20  2d 31 0d 01 82 11 3d 20  |fset% = -1....= |
00002dd0  74 6f 74 61 6c 5f 72 65  61 64 25 0d 01 83 05 3a  |total_read%....:|
00002de0  0d 01 84 12 dd a4 67 65  74 5f 66 69 6c 65 6e 61  |......get_filena|
00002df0  6d 65 0d 01 85 12 ea 20  6e 72 24 2c 62 6c 6b 25  |me..... nr$,blk%|
00002e00  2c 6e 72 25 0d 01 86 23  62 6c 6b 25 3d a4 73 68  |,nr%...#blk%=.sh|
00002e10  65 6c 6c 5f 48 65 61 70  42 6c 6f 63 6b 46 65 74  |ell_HeapBlockFet|
00002e20  63 68 28 32 35 36 29 0d  01 87 3f 6e 72 25 3d a4  |ch(256)...?nr%=.|
00002e30  64 69 72 5f 72 65 61 64  28 66 6e 61 6d 65 24 28  |dir_read(fname$(|
00002e40  29 2c a4 73 68 65 6c 6c  5f 47 65 74 41 70 70 44  |),.shell_GetAppD|
00002e50  61 74 61 44 69 72 2c 22  73 70 72 69 74 65 2a 22  |ataDir,"sprite*"|
00002e60  2c 62 6c 6b 25 29 0d 01  88 0d e7 20 6e 72 25 3e  |,blk%)..... nr%>|
00002e70  30 20 8c 0d 01 89 34 20  20 f2 73 68 65 6c 6c 5f  |0 ....4  .shell_|
00002e80  54 72 61 63 65 66 30 28  22 66 69 6c 65 73 20 66  |Tracef0("files f|
00002e90  6f 75 6e 64 20 2d 20 22  2b 66 6e 61 6d 65 24 28  |ound - "+fname$(|
00002ea0  6e 72 25 2d 31 29 29 0d  01 8a 22 20 20 f2 73 68  |nr%-1))..."  .sh|
00002eb0  65 6c 6c 5f 48 65 61 70  42 6c 6f 63 6b 52 65 74  |ell_HeapBlockRet|
00002ec0  75 72 6e 28 62 6c 6b 25  29 0d 01 8b 1e 20 20 6e  |urn(blk%)....  n|
00002ed0  72 25 3d bb 28 c1 66 6e  61 6d 65 24 28 6e 72 25  |r%=.(.fname$(nr%|
00002ee0  2d 31 29 2c 37 29 29 0d  01 8c 05 cd 0d 01 8d 22  |-1),7))........"|
00002ef0  3d 22 73 70 72 69 74 65  22 2b c2 22 30 30 30 30  |="sprite"+."0000|
00002f00  30 22 2b c3 28 6e 72 25  2b 31 29 2c 33 29 0d 01  |0"+.(nr%+1),3)..|
00002f10  8e 05 3a 0d 01 8f 23 dd  20 a4 5f 64 6f 5f 73 61  |..:...#. ._do_sa|
00002f20  76 65 5f 74 65 6d 70 6c  61 74 65 28 66 75 6c 6c  |ve_template(full|
00002f30  6e 61 6d 65 24 29 0d 01  90 3a ea 20 49 25 2c 66  |name$)...:. I%,f|
00002f40  72 65 65 66 25 2c 74 66  5f 68 64 72 25 2c 74 66  |reef%,tf_hdr%,tf|
00002f50  5f 66 73 69 7a 65 25 2c  4a 25 2c 74 66 5f 64 61  |_fsize%,J%,tf_da|
00002f60  74 61 70 74 72 25 2c 74  66 5f 69 6e 64 65 78 25  |taptr%,tf_index%|
00002f70  0d 01 91 35 ea 20 74 66  5f 64 61 74 61 73 69 7a  |...5. tf_datasiz|
00002f80  65 25 2c 74 66 5f 68 61  6e 64 6c 65 25 2c 66 6f  |e%,tf_handle%,fo|
00002f90  6e 74 62 69 6e 64 69 6e  67 25 2c 69 6e 64 65 78  |ntbinding%,index|
00002fa0  64 61 74 61 25 0d 01 92  28 f4 20 64 69 73 63 61  |data%...(. disca|
00002fb0  72 64 20 61 6e 79 20 65  78 69 73 74 69 6e 67 20  |rd any existing |
00002fc0  66 69 6c 65 20 62 75 66  66 65 72 2e 2e 0d 01 93  |file buffer.....|
00002fd0  38 e7 20 73 61 76 65 5f  62 75 66 66 25 3c 3e 30  |8. save_buff%<>0|
00002fe0  20 8c 20 f2 73 68 65 6c  6c 5f 48 65 61 70 42 6c  | . .shell_HeapBl|
00002ff0  6f 63 6b 52 65 74 75 72  6e 28 73 61 76 65 5f 62  |ockReturn(save_b|
00003000  75 66 66 25 29 0d 01 94  2b 66 6f 6e 74 62 69 6e  |uff%)...+fontbin|
00003010  64 69 6e 67 25 3d a4 73  68 65 6c 6c 5f 48 65 61  |ding%=.shell_Hea|
00003020  70 42 6c 6f 63 6b 46 65  74 63 68 28 32 35 35 29  |pBlockFetch(255)|
00003030  0d 01 95 30 69 6e 64 65  78 64 61 74 61 25 20 20  |...0indexdata%  |
00003040  3d a4 73 68 65 6c 6c 5f  48 65 61 70 42 6c 6f 63  |=.shell_HeapBloc|
00003050  6b 46 65 74 63 68 28 33  32 2a 32 34 2b 32 30 29  |kFetch(32*24+20)|
00003060  0d 01 96 24 e3 20 49 25  3d 30 20 b8 20 32 35 35  |...$. I%=0 . 255|
00003070  3a 66 6f 6e 74 62 69 6e  64 69 6e 67 25 3f 49 25  |:fontbinding%?I%|
00003080  3d 30 3a ed 0d 01 97 31  66 72 65 65 66 25 3d 31  |=0:....1freef%=1|
00003090  20 20 3a 20 f4 20 69 6e  74 65 72 6e 61 6c 20 66  |  : . internal f|
000030a0  6f 6e 74 20 68 61 6e 64  6c 65 20 61 6c 6c 6f 63  |ont handle alloc|
000030b0  61 74 69 6f 6e 0d 01 98  20 74 66 5f 68 64 72 25  |ation... tf_hdr%|
000030c0  3d 31 36 3a 74 66 5f 66  73 69 7a 65 25 3d 34 38  |=16:tf_fsize%=48|
000030d0  3a 4a 25 3d 31 0d 01 99  1b 74 66 5f 68 61 6e 64  |:J%=1....tf_hand|
000030e0  6c 65 25 3d ae 28 66 75  6c 6c 6e 61 6d 65 24 29  |le%=.(fullname$)|
000030f0  0d 01 9a 1f 74 66 5f 64  61 74 61 70 74 72 25 3d  |....tf_dataptr%=|
00003100  74 66 5f 68 64 72 25 2b  4a 25 2a 32 34 2b 34 0d  |tf_hdr%+J%*24+4.|
00003110  01 9b 28 e3 20 49 25 3d  30 20 b8 20 74 66 5f 68  |..(. I%=0 . tf_h|
00003120  64 72 25 2d 31 3a 69 6e  64 65 78 64 61 74 61 25  |dr%-1:indexdata%|
00003130  3f 49 25 3d 30 3a ed 0d  01 9c 20 74 66 5f 69 6e  |?I%=0:.... tf_in|
00003140  64 65 78 25 3d 69 6e 64  65 78 64 61 74 61 25 2b  |dex%=indexdata%+|
00003150  74 66 5f 68 64 72 25 0d  01 9d 11 e3 20 49 25 3d  |tf_hdr%..... I%=|
00003160  30 20 b8 20 4a 25 2d 31  0d 01 9e 36 20 20 5f 51  |0 . J%-1...6  _Q|
00003170  25 21 30 3d 74 61 72 67  65 74 77 69 6e 64 6f 77  |%!0=targetwindow|
00003180  25 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |%:.. "Wimp_GetWi|
00003190  6e 64 6f 77 49 6e 66 6f  22 2c 2c 5f 51 25 0d 01  |ndowInfo",,_Q%..|
000031a0  9f 3a 20 20 5f 51 25 21  36 38 3d 31 3a f4 20 61  |.:  _Q%!68=1:. a|
000031b0  73 73 75 6d 65 20 63 6f  6d 6d 6f 6e 20 73 70 72  |ssume common spr|
000031c0  69 74 65 20 61 72 65 61  20 77 68 65 6e 20 72 65  |ite area when re|
000031d0  2d 6c 6f 61 64 69 6e 67  0d 01 a0 1f 20 20 74 66  |-loading....  tf|
000031e0  5f 64 61 74 61 73 69 7a  65 25 3d 38 38 2b 33 32  |_datasize%=88+32|
000031f0  2a 5f 51 25 21 38 38 0d  01 a1 21 20 20 f2 70 72  |*_Q%!88...!  .pr|
00003200  6f 63 65 73 73 69 63 6f  6e 28 5f 51 25 2b 36 30  |ocessicon(_Q%+60|
00003210  2c 5f 51 25 2b 37 36 29  0d 01 a2 1e 20 20 e7 20  |,_Q%+76)....  . |
00003220  5f 51 25 21 38 38 3e 30  20 f2 70 72 6f 63 65 73  |_Q%!88>0 .proces|
00003230  73 69 63 6f 6e 73 0d 01  a3 3e 20 20 c8 99 20 22  |sicons...>  .. "|
00003240  4f 53 5f 47 42 50 42 22  2c 31 2c 74 66 5f 68 61  |OS_GBPB",1,tf_ha|
00003250  6e 64 6c 65 25 2c 5f 51  25 2b 34 2c 74 66 5f 64  |ndle%,_Q%+4,tf_d|
00003260  61 74 61 73 69 7a 65 25  2c 74 66 5f 64 61 74 61  |atasize%,tf_data|
00003270  70 74 72 25 0d 01 a4 1d  20 20 74 66 5f 69 6e 64  |ptr%....  tf_ind|
00003280  65 78 25 21 30 3d 74 66  5f 64 61 74 61 70 74 72  |ex%!0=tf_dataptr|
00003290  25 0d 01 a5 1e 20 20 74  66 5f 69 6e 64 65 78 25  |%....  tf_index%|
000032a0  21 34 3d 74 66 5f 64 61  74 61 73 69 7a 65 25 0d  |!4=tf_datasize%.|
000032b0  01 a6 13 20 20 74 66 5f  69 6e 64 65 78 25 21 38  |...  tf_index%!8|
000032c0  3d 31 0d 01 a7 22 20 20  e7 20 66 75 6c 6c 6e 61  |=1..."  . fullna|
000032d0  6d 65 24 3d 22 3c 57 69  6d 70 24 53 63 72 61 70  |me$="<Wimp$Scrap|
000032e0  3e 22 20 8c 0d 01 a8 21  20 20 20 20 24 28 74 66  |>" ....!    $(tf|
000032f0  5f 69 6e 64 65 78 25 2b  31 32 29 3d 22 67 72 61  |_index%+12)="gra|
00003300  62 62 65 64 22 0d 01 a9  07 20 20 cc 0d 01 aa 2e  |bbed"....  .....|
00003310  20 20 20 20 24 28 74 66  5f 69 6e 64 65 78 25 2b  |    $(tf_index%+|
00003320  31 32 29 3d a4 73 68 65  6c 6c 5f 4c 65 61 66 28  |12)=.shell_Leaf(|
00003330  66 75 6c 6c 6e 61 6d 65  24 29 0d 01 ab 07 20 20  |fullname$)....  |
00003340  cd 0d 01 ac 2d 20 20 74  66 5f 69 6e 64 65 78 25  |....-  tf_index%|
00003350  2b 3d 32 34 3a 74 66 5f  64 61 74 61 70 74 72 25  |+=24:tf_dataptr%|
00003360  2b 3d 74 66 5f 64 61 74  61 73 69 7a 65 25 0d 01  |+=tf_datasize%..|
00003370  ad 08 ed 20 49 25 0d 01  ae 10 21 74 66 5f 69 6e  |... I%....!tf_in|
00003380  64 65 78 25 3d 30 0d 01  af 37 e7 20 66 72 65 65  |dex%=0...7. free|
00003390  66 25 3d 31 20 21 69 6e  64 65 78 64 61 74 61 25  |f%=1 !indexdata%|
000033a0  3d 2d 31 20 8b 20 21 69  6e 64 65 78 64 61 74 61  |=-1 . !indexdata|
000033b0  25 3d 74 66 5f 64 61 74  61 70 74 72 25 0d 01 b0  |%=tf_dataptr%...|
000033c0  41 c8 99 20 22 4f 53 5f  47 42 50 42 22 2c 31 2c  |A.. "OS_GBPB",1,|
000033d0  74 66 5f 68 61 6e 64 6c  65 25 2c 69 6e 64 65 78  |tf_handle%,index|
000033e0  64 61 74 61 25 2c 74 66  5f 69 6e 64 65 78 25 2b  |data%,tf_index%+|
000033f0  34 2d 69 6e 64 65 78 64  61 74 61 25 2c 30 0d 01  |4-indexdata%,0..|
00003400  b1 10 e7 20 66 72 65 65  66 25 3e 31 20 8c 0d 01  |... freef%>1 ...|
00003410  b2 2c 20 20 e3 20 49 25  3d 30 20 b8 20 74 66 5f  |.,  . I%=0 . tf_|
00003420  66 73 69 7a 65 25 2d 31  3a 69 6e 64 65 78 64 61  |fsize%-1:indexda|
00003430  74 61 25 3f 49 25 3d 30  3a ed 0d 01 b3 17 20 20  |ta%?I%=0:.....  |
00003440  e3 20 49 25 3d 31 20 b8  20 66 72 65 65 66 25 2d  |. I%=1 . freef%-|
00003450  31 0d 01 b4 25 20 20 4a  25 3d 30 3a f5 4a 25 2b  |1...%  J%=0:.J%+|
00003460  3d 31 3a fd 66 6f 6e 74  62 69 6e 64 69 6e 67 25  |=1:.fontbinding%|
00003470  3f 4a 25 3d 49 25 0d 01  b5 46 20 20 c8 99 20 22  |?J%=I%...F  .. "|
00003480  46 6f 6e 74 5f 52 65 61  64 44 65 66 6e 22 2c 4a  |Font_ReadDefn",J|
00003490  25 2c 69 6e 64 65 78 64  61 74 61 25 2b 38 20 b8  |%,indexdata%+8 .|
000034a0  20 2c 2c 69 6e 64 65 78  64 61 74 61 25 21 30 2c  | ,,indexdata%!0,|
000034b0  69 6e 64 65 78 64 61 74  61 25 21 34 0d 01 b6 40  |indexdata%!4...@|
000034c0  20 20 c8 99 20 22 4f 53  5f 47 42 50 42 22 2c 31  |  .. "OS_GBPB",1|
000034d0  2c 74 66 5f 68 61 6e 64  6c 65 25 2c 69 6e 64 65  |,tf_handle%,inde|
000034e0  78 64 61 74 61 25 2c 74  66 5f 66 73 69 7a 65 25  |xdata%,tf_fsize%|
000034f0  2c 74 66 5f 64 61 74 61  70 74 72 25 0d 01 b7 1c  |,tf_dataptr%....|
00003500  20 20 74 66 5f 64 61 74  61 70 74 72 25 2b 3d 74  |  tf_dataptr%+=t|
00003510  66 5f 66 73 69 7a 65 25  0d 01 b8 07 20 20 ed 0d  |f_fsize%....  ..|
00003520  01 b9 05 cd 0d 01 ba 11  d9 20 23 74 66 5f 68 61  |......... #tf_ha|
00003530  6e 64 6c 65 25 0d 01 bb  27 ff 28 22 53 65 74 54  |ndle%...'.("SetT|
00003540  79 70 65 20 22 2b 66 75  6c 6c 6e 61 6d 65 24 2b  |ype "+fullname$+|
00003550  22 20 54 65 6d 70 6c 61  74 65 22 29 0d 01 bc 28  |" Template")...(|
00003560  f2 73 68 65 6c 6c 5f 48  65 61 70 42 6c 6f 63 6b  |.shell_HeapBlock|
00003570  52 65 74 75 72 6e 28 66  6f 6e 74 62 69 6e 64 69  |Return(fontbindi|
00003580  6e 67 25 29 0d 01 bd 26  f2 73 68 65 6c 6c 5f 48  |ng%)...&.shell_H|
00003590  65 61 70 42 6c 6f 63 6b  52 65 74 75 72 6e 28 69  |eapBlockReturn(i|
000035a0  6e 64 65 78 64 61 74 61  25 29 0d 01 be 06 3d 30  |ndexdata%)....=0|
000035b0  0d 01 bf 05 3a 0d 01 c0  1f dd 20 f2 70 72 6f 63  |....:..... .proc|
000035c0  65 73 73 69 63 6f 6e 28  66 70 74 72 25 2c 71 70  |essicon(fptr%,qp|
000035d0  74 72 25 29 0d 01 c1 14  ea 20 42 25 2c 65 78 74  |tr%)..... B%,ext|
000035e0  66 25 2c 69 6e 74 66 25  0d 01 c2 14 e7 20 21 66  |f%,intf%..... !f|
000035f0  70 74 72 25 20 80 20 26  34 30 20 8c 0d 01 c3 2c  |ptr% . &40 ....,|
00003600  20 20 65 78 74 66 25 3d  66 70 74 72 25 3f 33 3a  |  extf%=fptr%?3:|
00003610  69 6e 74 66 25 3d 66 6f  6e 74 62 69 6e 64 69 6e  |intf%=fontbindin|
00003620  67 25 3f 65 78 74 66 25  0d 01 c4 3f 20 20 e7 20  |g%?extf%...?  . |
00003630  69 6e 74 66 25 3d 30 20  69 6e 74 66 25 3d 66 72  |intf%=0 intf%=fr|
00003640  65 65 66 25 3a 66 72 65  65 66 25 2b 3d 31 3a 66  |eef%:freef%+=1:f|
00003650  6f 6e 74 62 69 6e 64 69  6e 67 25 3f 65 78 74 66  |ontbinding%?extf|
00003660  25 3d 69 6e 74 66 25 0d  01 c5 13 20 20 66 70 74  |%=intf%....  fpt|
00003670  72 25 3f 33 3d 69 6e 74  66 25 0d 01 c6 05 cd 0d  |r%?3=intf%......|
00003680  01 c7 15 e7 20 21 66 70  74 72 25 20 80 20 26 31  |.... !fptr% . &1|
00003690  30 30 20 8c 0d 01 c8 1b  20 20 42 25 3d 5f 51 25  |00 .....  B%=_Q%|
000036a0  2b 34 2b 74 66 5f 64 61  74 61 73 69 7a 65 25 0d  |+4+tf_datasize%.|
000036b0  01 c9 3a 20 20 24 42 25  3d 24 21 71 70 74 72 25  |..:  $B%=$!qptr%|
000036c0  3a 21 71 70 74 72 25 3d  74 66 5f 64 61 74 61 73  |:!qptr%=tf_datas|
000036d0  69 7a 65 25 3a 74 66 5f  64 61 74 61 73 69 7a 65  |ize%:tf_datasize|
000036e0  25 2b 3d a9 24 42 25 2b  31 0d 01 ca 13 20 20 e7  |%+=.$B%+1....  .|
000036f0  20 71 70 74 72 25 21 34  3e 30 20 8c 0d 01 cb 1d  | qptr%!4>0 .....|
00003700  20 20 20 20 42 25 3d 5f  51 25 2b 34 2b 74 66 5f  |    B%=_Q%+4+tf_|
00003710  64 61 74 61 73 69 7a 65  25 0d 01 cc 40 20 20 20  |datasize%...@   |
00003720  20 24 42 25 3d 24 28 71  70 74 72 25 21 34 29 3a  | $B%=$(qptr%!4):|
00003730  71 70 74 72 25 21 34 3d  74 66 5f 64 61 74 61 73  |qptr%!4=tf_datas|
00003740  69 7a 65 25 3a 74 66 5f  64 61 74 61 73 69 7a 65  |ize%:tf_datasize|
00003750  25 2b 3d a9 24 42 25 2b  31 0d 01 cd 07 20 20 cd  |%+=.$B%+1....  .|
00003760  0d 01 ce 05 cd 0d 01 cf  05 e1 0d 01 d0 05 3a 0d  |..............:.|
00003770  01 d1 13 dd 20 f2 70 72  6f 63 65 73 73 69 63 6f  |.... .processico|
00003780  6e 73 0d 01 d2 0b ea 20  49 25 2c 4a 25 0d 01 d3  |ns..... I%,J%...|
00003790  0d 4a 25 3d 5f 51 25 2b  39 32 0d 01 d4 15 e3 20  |.J%=_Q%+92..... |
000037a0  49 25 3d 30 20 b8 20 5f  51 25 21 38 38 2d 31 0d  |I%=0 . _Q%!88-1.|
000037b0  01 d5 1f 20 20 f2 70 72  6f 63 65 73 73 69 63 6f  |...  .processico|
000037c0  6e 28 4a 25 2b 31 36 2c  4a 25 2b 32 30 29 0d 01  |n(J%+16,J%+20)..|
000037d0  d6 0c 20 20 4a 25 2b 3d  33 32 0d 01 d7 08 ed 20  |..  J%+=32..... |
000037e0  49 25 0d 01 d8 05 e1 0d  01 d9 05 3a 0d 01 da 1a  |I%.........:....|
000037f0  dd 20 a4 5f 64 6f 5f 73  61 76 65 28 66 75 6c 6c  |. ._do_save(full|
00003800  6e 61 6d 65 24 29 0d 01  db 34 c8 99 20 22 4f 53  |name$)...4.. "OS|
00003810  5f 53 70 72 69 74 65 4f  70 22 2c 32 36 38 2c 73  |_SpriteOp",268,s|
00003820  61 76 65 5f 62 75 66 66  25 2c 66 75 6c 6c 6e 61  |ave_buff%,fullna|
00003830  6d 65 24 3a f4 20 73 61  76 65 0d 01 dc 26 f2 73  |me$:. save...&.s|
00003840  68 65 6c 6c 5f 48 65 61  70 42 6c 6f 63 6b 52 65  |hell_HeapBlockRe|
00003850  74 75 72 6e 28 73 61 76  65 5f 62 75 66 66 25 29  |turn(save_buff%)|
00003860  0d 01 dd 06 3d 30 0d 01  de 05 3a 0d 01 df 19 dd  |....=0....:.....|
00003870  20 f2 53 61 76 65 41 73  54 65 6d 70 6c 61 74 65  | .SaveAsTemplate|
00003880  46 69 6c 65 0d 01 e0 0b  ea 20 76 6f 69 64 25 0d  |File..... void%.|
00003890  01 e1 29 76 6f 69 64 25  3d a4 5f 50 72 65 4f 70  |..)void%=._PreOp|
000038a0  65 6e 58 66 65 72 28 78  66 65 72 25 2c 22 74 65  |enXfer(xfer%,"te|
000038b0  6d 70 6c 61 74 65 22 29  0d 01 e2 22 f2 73 68 65  |mplate")...".she|
000038c0  6c 6c 5f 4f 70 65 6e 57  69 6e 64 6f 77 53 74 61  |ll_OpenWindowSta|
000038d0  74 69 63 28 78 66 65 72  25 29 0d 01 e3 05 e1 0d  |tic(xfer%)......|
000038e0  01 e4 05 3a 0d 01 e5 04  0d 01 e6 46 f4 20 3d 3d  |...:.......F. ==|
000038f0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 20  |=============== |
00003900  45 6e 64 20 4f 66 20 55  73 65 72 20 41 70 70 6c  |End Of User Appl|
00003910  69 63 61 74 69 6f 6e 20  3d 3d 3d 3d 3d 3d 3d 3d  |ication ========|
00003920  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 0d 01  |==============..|
00003930  e7 05 3a 0d 01 e8 17 dd  20 f2 73 68 65 6c 6c 5f  |..:..... .shell_|
00003940  45 6e 73 75 72 65 50 6f  6c 6c 0d 01 e9 05 e1 0d  |EnsurePoll......|
00003950  01 ea 05 3a 0d ff                                 |...:..|
00003956