Home » Archimedes archive » Archimedes World » AW-1995-01-Disc2.adf » Disk2Jan95 » !AWJan95/Goodies/Event/Examples/!WinSave2/!WinSave2

!AWJan95/Goodies/Event/Examples/!WinSave2/!WinSave2

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Archimedes World » AW-1995-01-Disc2.adf » Disk2Jan95
Filename: !AWJan95/Goodies/Event/Examples/!WinSave2/!WinSave2
Read OK:
File size: 3931 bytes
Load address: 0000
Exec address: 0000
File contents
    1REM > <WinSave2$Dir>.!WinSave2
    2:
    3ON ERROR PROCshell_Error
    4:
    5LIBRARY "<EvntShell$Path>ShellLibRT"
    6:
    7SYS "Hourglass_On"
    8:
    9SYS "Wimp_SlotSize",-1,-1 TO progsize%
   10pagesize%=1<<10
   11freespace%=&8000+progsize%
   12END=freespace%+pagesize%
   13HIMEM=freespace%
   14:
   15PROCshell_HeapManagerInit("<EvntShell$Path>",freespace%)
   16PROCshell_Init
   17task%=FNshell_WimpInit_I(200,"Window Saver Util")
   18PROCshell_TraceInit("")
   19REM PROCshell_TraceOn
   20PROCshell_ResourcesInit
   21PROCapp_init
   22:
   23REM -------------------- Initialise Variables ----------------------------
   24:
   25_closedown%     =FALSE :REM Set this to TRUE when you want the program to
   26                       :REM end
   27changed%        =FALSE :REM Used to keep track of whether the data has
   28                       :REM been changed. Call PROCfile_changed() when it
   29                       :REM has. But if the program does not use data
   30                       :REM files just ignore this variable but do not
   31                       :REM delete it as the program checks it before
   32                       :REM exiting!
   33:
   34REM -------------------- Miscelleanous Initialisation --------------------
   35:
   36SYS "Hourglass_Off"
   37ON ERROR OFF
   38ON ERROR PROCshell_Error
   39REPEAT
   40  PROCshell_Action(FNshell_Poll_I(0,task%))
   41UNTIL _closedown%
   42:
   43PROCshell_Exit:END
   44:
   45REM ======================================================================
   46:
   47DEF PROCapp_init
   48DIM name_buff% 20, path% 256,fname$(77)
   49$path%=FNshell_GetAppDir+".grabbed"
   50$name_buff%="grab"
   51save_buff%=0
   52winsave_op%=0:REM keeps track of type of save selected
   53flag_GrabPending%=FALSE
   54PROCSetUp_Menus
   55PROCSetUp_Windows
   56PROCSetUp_IconBar
   57PROCshell_AttachModeChangeHandler("_modechange")
   58PROCshell_OpenWindowStatic(grab%)
   59PROCshell_WindowMoveTo(grab%,-5000,500)
   60PROCread_choices
   61PROCshell_InitHelpSystem(FNshell_GetAppName+"Res:"+FNshell_GetAppName,TRUE)
   62ENDPROC
   63:
   64
   65REM ===== Menu_Setup routines ======================================
   66
   67DEF PROCSetUp_Menus
   68LOCAL void%
   69
   70MenuHandle_IconBar%=FNshell_MenuNew(FNshell_MessageNoArgs("MTIBar"))
   71MenuItem_Info%     =FNshell_MenuAdd(0,FNshell_MessageNoArgs("Info"),"")
   72MenuItem_Help%     =FNshell_MenuAdd(0,FNshell_MessageNoArgs("Help"),"_MenuSelect_Help")
   73MenuItem_Setup%    =FNshell_MenuAdd(0,FNshell_MessageNoArgs("Setup"),"")
   74MenuItem_GetWS%    =FNshell_MenuAdd(0,FNshell_MessageNoArgs("GetWS"),"_MenuSelect_GetWindowSprite")
   75MenuItem_GetWG%    =FNshell_MenuAdd(0,FNshell_MessageNoArgs("GetWG"),"")
   76MenuItem_GetWT%    =FNshell_MenuAdd(0,FNshell_MessageNoArgs("GetWT"),"_MenuSelect_GetWindowTemplate")
   77MenuItem_GetIcon%  =FNshell_MenuAdd(0,FNshell_MessageNoArgs("GetIcon"),"")
   78MenuItem_GetSA%    =FNshell_MenuAdd(0,FNshell_MessageNoArgs("GetSA"),"")
   79MenuItem_GetWhole% =FNshell_MenuAdd(0,FNshell_MessageNoArgs("GetWhole"),"_MenuSelect_GetWholeScreen")
   80void%              =FNshell_MenuAdd(0,FNshell_MessageNoArgs("Quit"),"_MenuSelect_Quit")
   81
   82PROCshell_MenuDotted(MenuItem_Setup%,TRUE)
   83PROCshell_MenuDotted(MenuItem_GetWhole%,TRUE)
   84PROCshell_MenuShade(MenuItem_GetWG%,TRUE)
   85PROCshell_MenuShade(MenuItem_GetIcon%,TRUE)
   86PROCshell_MenuShade(MenuItem_GetSA%,TRUE)
   87
   88PROCshell_AttachMenuDBox(MenuItem_Info%,"progInfo","_PreOpenInfo","")
   89PROCshell_AttachMenuDBox(MenuItem_Setup%,"setup","_PreOpenSetup","")
   90
   91ENDPROC
   92:
   93
   94REM ===== Window_SetUp routines ====================================
   95
   96DEF PROCSetUp_Windows
   97PROCshell_CreateWindowStatic("grab",grab%)
   98PROCshell_CreateWindowStatic("xfer_send",xfer%)
   99PROCshell_AttachHotKey("S",FALSE,TRUE,FALSE,"",0,"_PrepareForGrab","")
  100PROCshell_AttachClickSelect(xfer%,0,"_ClickSelect_Xfer")
  101ENDPROC
  102:
  103
  104REM ===== IconBar_SetUp routines ===================================
  105
  106DEF PROCSetUp_IconBar
  107sicon=FNshell_Iconbar(-1,"!"+FNshell_GetAppName,"Sprite",180,MenuHandle_IconBar%,0,0,0)
  108PROCshell_AttachHelpTag(-1,sicon,"iconbar")
  109PROCshell_AttachClickAdjust(-1,sicon,"_ClickAdjust_IconBar")
  110PROCshell_AttachMenuMaker(-1,sicon,"_MenuMaker_IconBar")
  111ENDPROC
  112:
  113
  114REM ===== Dialog_PreOpen routines ==================================
  115
  116DEF FN_PreOpenInfo(wh%)
  117PROCshell_IconPutData(wh%,0,FNshell_MessageNoArgs("progInfo0"),0)
  118PROCshell_IconPutData(wh%,1,FNshell_MessageNoArgs("progInfo1"),0)
  119PROCshell_IconPutData(wh%,2,FNshell_MessageNoArgs("progInfo2"),0)
  120PROCshell_IconPutData(wh%,3,FNshell_MessageNoArgs("progInfo3"),0)
  121=0
  122:
  123DEF FN_PreOpenSetup(wh%)
  124PROCshell_AttachClickSelect(wh%,-1,"_ClickSelect_Setup")
  125PROCshell_AttachHelpTag(wh%,-1,"setup")
  126PROCshell_IconSet(wh%,2,flag_WithPalette%)
  127PROCshell_IconSet(wh%,12,flag_BringToTop%)
  128PROCshell_IconSet(wh%,13,flag_ContentsOnly%)
  129=0
  130:
  131DEF FN_PreOpenXfer(wh%,filetype$)
  132CASE filetype$ OF
  133  WHEN "sprite"
  134    PROCshell_IconPutData(wh%,1,FNshell_GetAppDataDir+"."+FNget_filename,0)
  135    PROCshell_AttachDataSave(wh%,2,save_buff%,&FF9,1,"_do_save")
  136  WHEN "template"
  137    PROCshell_IconPutData(wh%,1,FNshell_GetAppDataDir+".grabbed",0)
  138    PROCshell_AttachDataSave(wh%,2,100,&FEC,1,"_do_save_template")
  139ENDCASE
  140SYS "Wimp_GetPointerInfo",,_Q%
  141PROCshell_WindowMoveTo(wh%,_Q%!0-100,_Q%!4-140)
  142=0
  143:
  144
  145REM ===== Dialog_PostOpen routines =================================
  146
  147REM ===== Click_Select routines ====================================
  148
  149DEF FN_ClickSelect_Setup(wh%,icon%)
  150LOCAL void%,X%
  151CASE ih% OF
  152  WHEN 0:REM 'OK'
  153    REM library handles closing the menu...
  154    flag_WithPalette% =FNshell_IsIconSelected(wh%,2)
  155    flag_BringToTop%  =FNshell_IsIconSelected(wh%,12)
  156    flag_ContentsOnly%=FNshell_IsIconSelected(wh%,13)
  157  WHEN 10:REM 'Cancel'
  158    PROCshell_CloseWindow(wh%)
  159  WHEN 11:REM 'Save'
  160    flag_WithPalette% =FNshell_IsIconSelected(wh%,2)
  161    flag_BringToTop%  =FNshell_IsIconSelected(wh%,12)
  162    flag_ContentsOnly%=FNshell_IsIconSelected(wh%,13)
  163    X%=OPENOUT(FNshell_GetAppDir+".Choices")
  164      PRINT#X%,flag_WithPalette%
  165      PRINT#X%,flag_BringToTop%
  166      PRINT#X%,flag_ContentsOnly%
  167    CLOSE# X%
  168    SYS "Wimp_CreateMenu",-1
  169ENDCASE
  170=0
  171:
  172DEF FN_ClickSelect_Xfer(wh%,icon%)
  173LOCAL void%
  174CASE ih% OF
  175  WHEN 0:
  176    CASE winsave_op% OF
  177      WHEN 0:void%=FN_do_save(FNshell_IconGetData(wh%,1))
  178      WHEN 2:void%=FN_do_save_template(FNshell_IconGetData(wh%,1))
  179    ENDCASE
  180    PROCshell_CloseWindow(wh%)
  181ENDCASE
  182=0
  183:
  184
  185REM ===== Click_Adjust routines ====================================
  186
  187DEFFN_ClickAdjust_IconBar(wh%,icon%)
  188winsave_op%+=1:IF winsave_op%>5 THEN winsave_op%=0
  189PROCshell_MenuTickOnly1(MenuHandle_IconBar%,winsave_op%+3)
  190CASE winsave_op% OF
  191  WHEN 0:PROCshell_IconbarSetText(-1,sicon,"Sprite")
  192  WHEN 1:PROCshell_IconbarSetText(-1,sicon,"Group")
  193  WHEN 2:PROCshell_IconbarSetText(-1,sicon,"Template")
  194  WHEN 3:PROCshell_IconbarSetText(-1,sicon,"Icon")
  195  WHEN 4:PROCshell_IconbarSetText(-1,sicon,"Area")
  196  WHEN 5:PROCshell_IconbarSetText(-1,sicon,"Screen")
  197ENDCASE
  198=0
  199:
  200
  201REM ===== Menu_Select routines =====================================
  202
  203DEF FN_MenuSelect_Help(blk%)
  204PROCshell_HelpWord(FNshell_GetAppName+".$")
  205=0
  206:
  207DEF FN_MenuSelect_GetWindowSprite(blk%)
  208PROCshell_MenuTickOnly2(MenuItem_GetWS%)
  209winsave_op%=0
  210PROCshell_IconbarSetText(-1,sicon,"Sprite")
  211=0
  212:
  213DEF FN_MenuSelect_GetWindowTemplate(blk%)
  214PROCshell_MenuTickOnly2(MenuItem_GetWT%)
  215winsave_op%=2
  216PROCshell_IconbarSetText(-1,sicon,"Template")
  217=0
  218:
  219DEF FN_MenuSelect_GetWholeScreen(blk%)
  220PROCshell_MenuTickOnly2(MenuItem_GetWhole%)
  221winsave_op%=5
  222PROCshell_IconbarSetText(-1,sicon,"Screen")
  223=0
  224:
  225DEF FN_MenuSelect_Quit(blk%)
  226_closedown%=TRUE
  227=0
  228:
  229
  230REM ===== Menu_Warning routines ====================================
  231
  232REM ===== Menu_Maker routines ======================================
  233
  234DEFFN_MenuMaker_IconBar(wh%,ic%)
  235PROCshell_MenuTickOnly1(MenuHandle_IconBar%,winsave_op%+3)
  236=0
  237:
  238
  239REM ===== Data_Load routines =======================================
  240
  241REM ===== Data_Save routines =======================================
  242
  243REM ===== User application routines ================================
  244
  245DEF FN_modechange
  246screen_width%=0:screen_height%=0
  247PROCget_screenmaxcoords(screen_width%,screen_height%)
  248screen_buffersize%=FNget_screenbuffersize
  249=0
  250:
  251DEF FNget_screenbuffersize
  252LOCAL inblk%,outblk%,result%
  253inblk%=FNshell_HeapBlockFetch(10)
  254outblk%=FNshell_HeapBlockFetch(10)
  255inblk%!0=150:inblk%!4=-1
  256SYS "OS_ReadVduVariables",inblk%,outblk%
  257result%=outblk%!0
  258PROCshell_HeapBlockReturn(inblk%)
  259PROCshell_HeapBlockReturn(outblk%)
  260=result%
  261:
  262DEF PROCget_screenmaxcoords(RETURN X%,RETURN Y%)
  263LOCAL result%
  264REM use OS_ReadPoint to discover screen size in 'external coordinates'
  265X%=600:Y%=200
  266REPEAT
  267  X%+=1
  268  SYS &32,X%,0 TO ,,,,result%
  269UNTIL result%=-1
  270REPEAT
  271  Y%+=1
  272  SYS &32,0,Y% TO ,,,,result%
  273UNTIL result%=-1
  274ENDPROC
  275:
  276
  277DEF PROCSaveAsSpriteFile
  278LOCAL void%
  279SYS "Hourglass_On"
  280IF flag_BringToTop% THEN
  281  REM Grabbing of sprite must be deferred until the target window
  282  REM has been brought to the top of the stack. Therefore set a flag
  283  REM and use it to check the target window on the next null wimp poll..
  284  PROCshell_WindowBringToTop(targetwindow%)
  285  flag_GrabPending%=TRUE
  286ELSE
  287  REM BringToTop flag not set, so just save it anyway..
  288  flag_GrabPending%=FALSE
  289  PROCSaveSprite
  290  void%=FN_PreOpenXfer(xfer%,"sprite")
  291  PROCshell_OpenWindowStatic(xfer%)
  292ENDIF
  293SYS "Hourglass_Off"
  294ENDPROC
  295:
  296DEF PROCSaveSprite
  297REM Actually save the sprite file..
  298LOCAL est_size%
  299_Q%!0=targetwindow%
  300IF flag_ContentsOnly% THEN
  301  SYS "Wimp_GetWindowState",,_Q%
  302ELSE
  303  SYS "Wimp_GetWindowOutline",,_Q%
  304ENDIF
  305est_size%=FNget_est_savesize(_Q%!4,_Q%!8,(_Q%!12)-1,(_Q%!16)-1)
  306save_buff%=FNshell_HeapBlockFetch(est_size%)
  307save_buff%!0=outblk%!0:save_buff%!4=0:save_buff%!8=16:save_buff%!12=16
  308SYS "OS_SpriteOp",272,save_buff%,name_buff%,flag_WithPalette%,_Q%!4,_Q%!8,(_Q%!12)-1,(_Q%!16)-1
  309ENDPROC
  310:
  311DEFFNget_est_savesize(l%,b%,r%,t%)
  312LOCAL save_area%,screen_area%
  313IF l%<0 THEN l%=0
  314save_area%=(r%-l%)*(t%-b%)
  315screen_area%=screen_width%*screen_height%
  316PROCshell_Tracef0("Buffer size claimed = "+STR$(INT((screen_buffersize%*save_area%)/screen_area%)+2040))
  317=(INT((screen_buffersize%*save_area%)/screen_area%))+2048
  318:
  319DEF PROCshell_DoBackgroundTask
  320LOCAL void%
  321IF flag_GrabPending% THEN
  322  IF FNshell_WindowIsOnTop(targetwindow%) THEN
  323    flag_GrabPending%=FALSE
  324    REM Grab sprite and open file save box..
  325    PROCSaveSprite
  326    void%=FN_PreOpenXfer(xfer%,"sprite")
  327    PROCshell_OpenWindowStatic(xfer%)
  328  ELSE
  329    REM Window is not on top, go round again..
  330    PROCshell_Tracef0("DoBackgroundTask:Waiting..")
  331  ENDIF
  332ENDIF
  333ENDPROC
  334:
  335DEFFN_PrepareForGrab(void%)
  336IF save_buff%<>0 THEN PROCshell_HeapBlockReturn(save_buff%)
  337REM find handle of window under pointer (before we open the
  338REM save as box!!
  339SYS "Wimp_GetPointerInfo",,_Q%
  340targetwindow%=_Q%!12
  341CASE winsave_op% OF
  342  WHEN 0:PROCSaveAsSpriteFile
  343  WHEN 1:
  344  WHEN 2:PROCSaveAsTemplateFile
  345  WHEN 3:
  346  WHEN 4:
  347  WHEN 5:
  348    IF flag_WithPalette% THEN
  349      OSCLI("ScreenSave "+$path%)
  350    ELSE
  351    ENDIF
  352  OTHERWISE
  353  ENDCASE
  354=0
  355:
  356DEF PROCread_choices
  357LOCAL X%
  358IF FNshell_FileExists(FNshell_GetAppDir+".Choices") THEN
  359  X%=OPENIN(FNshell_GetAppDir+".Choices")
  360  INPUT# X%,flag_WithPalette%
  361  INPUT# X%,flag_BringToTop%
  362  INPUT# X%,flag_ContentsOnly%
  363  CLOSE#X%
  364ELSE
  365  flag_WithPalette%=FALSE:flag_BringToTop%=FALSE:flag_ContentsOnly%=FALSE
  366ENDIF
  367ENDPROC
  368:
  369DEFFNdir_read(name$(),dir_name$,file_name$,blk%)
  370LOCAL offset%,new_offset%
  371LOCAL loop%
  372counter% = 0
  373offset%=0:new_offset%=0:total_read%=0:nr_read%=0
  374REPEAT
  375  offset% = new_offset%
  376  SYS "OS_GBPB",9,dir_name$,blk%,77,offset%,256,file_name$ TO ,,,nr_read%,new_offset%
  377  total_read% += nr_read%
  378  IF nr_read%>0 THEN
  379    ptr%=0
  380    FOR loop% = offset% TO total_read%-1
  381      name$(loop%)=FNmem_to_string(blk%,ptr%,0)
  382      ptr%+=LEN(name$(loop%))+1
  383    NEXT loop%
  384  ENDIF
  385UNTIL new_offset% = -1
  386= total_read%
  387:
  388DEFFNget_filename
  389LOCAL nr$,blk%,nr%
  390blk%=FNshell_HeapBlockFetch(256)
  391nr%=FNdir_read(fname$(),FNshell_GetAppDataDir,"sprite*",blk%)
  392IF nr%>0 THEN
  393  PROCshell_Tracef0("files found - "+fname$(nr%-1))
  394  PROCshell_HeapBlockReturn(blk%)
  395  nr%=VAL(MID$(fname$(nr%-1),7))
  396ENDIF
  397="sprite"+RIGHT$("00000"+STR$(nr%+1),3)
  398:
  399DEF FN_do_save_template(fullname$)
  400LOCAL I%,freef%,tf_hdr%,tf_fsize%,J%,tf_dataptr%,tf_index%
  401LOCAL tf_datasize%,tf_handle%,fontbinding%,indexdata%
  402REM discard any existing file buffer..
  403IF save_buff%<>0 THEN PROCshell_HeapBlockReturn(save_buff%)
  404fontbinding%=FNshell_HeapBlockFetch(255)
  405indexdata%  =FNshell_HeapBlockFetch(32*24+20)
  406FOR I%=0 TO 255:fontbinding%?I%=0:NEXT
  407freef%=1  : REM internal font handle allocation
  408tf_hdr%=16:tf_fsize%=48:J%=1
  409tf_handle%=OPENOUT(fullname$)
  410tf_dataptr%=tf_hdr%+J%*24+4
  411FOR I%=0 TO tf_hdr%-1:indexdata%?I%=0:NEXT
  412tf_index%=indexdata%+tf_hdr%
  413FOR I%=0 TO J%-1
  414  _Q%!0=targetwindow%:SYS "Wimp_GetWindowInfo",,_Q%
  415  _Q%!68=1:REM assume common sprite area when re-loading
  416  tf_datasize%=88+32*_Q%!88
  417  PROCprocessicon(_Q%+60,_Q%+76)
  418  IF _Q%!88>0 PROCprocessicons
  419  SYS "OS_GBPB",1,tf_handle%,_Q%+4,tf_datasize%,tf_dataptr%
  420  tf_index%!0=tf_dataptr%
  421  tf_index%!4=tf_datasize%
  422  tf_index%!8=1
  423  IF fullname$="<Wimp$Scrap>" THEN
  424    $(tf_index%+12)="grabbed"
  425  ELSE
  426    $(tf_index%+12)=FNshell_Leaf(fullname$)
  427  ENDIF
  428  tf_index%+=24:tf_dataptr%+=tf_datasize%
  429NEXT I%
  430!tf_index%=0
  431IF freef%=1 !indexdata%=-1 ELSE !indexdata%=tf_dataptr%
  432SYS "OS_GBPB",1,tf_handle%,indexdata%,tf_index%+4-indexdata%,0
  433IF freef%>1 THEN
  434  FOR I%=0 TO tf_fsize%-1:indexdata%?I%=0:NEXT
  435  FOR I%=1 TO freef%-1
  436  J%=0:REPEATJ%+=1:UNTILfontbinding%?J%=I%
  437  SYS "Font_ReadDefn",J%,indexdata%+8 TO ,,indexdata%!0,indexdata%!4
  438  SYS "OS_GBPB",1,tf_handle%,indexdata%,tf_fsize%,tf_dataptr%
  439  tf_dataptr%+=tf_fsize%
  440  NEXT
  441ENDIF
  442CLOSE #tf_handle%
  443OSCLI("SetType "+fullname$+" Template")
  444PROCshell_HeapBlockReturn(fontbinding%)
  445PROCshell_HeapBlockReturn(indexdata%)
  446=0
  447:
  448DEF PROCprocessicon(fptr%,qptr%)
  449LOCAL B%,extf%,intf%
  450IF !fptr% AND &40 THEN
  451  extf%=fptr%?3:intf%=fontbinding%?extf%
  452  IF intf%=0 intf%=freef%:freef%+=1:fontbinding%?extf%=intf%
  453  fptr%?3=intf%
  454ENDIF
  455IF !fptr% AND &100 THEN
  456  B%=_Q%+4+tf_datasize%
  457  $B%=$!qptr%:!qptr%=tf_datasize%:tf_datasize%+=LEN$B%+1
  458  IF qptr%!4>0 THEN
  459    B%=_Q%+4+tf_datasize%
  460    $B%=$(qptr%!4):qptr%!4=tf_datasize%:tf_datasize%+=LEN$B%+1
  461  ENDIF
  462ENDIF
  463ENDPROC
  464:
  465DEF PROCprocessicons
  466LOCAL I%,J%
  467J%=_Q%+92
  468FOR I%=0 TO _Q%!88-1
  469  PROCprocessicon(J%+16,J%+20)
  470  J%+=32
  471NEXT I%
  472ENDPROC
  473:
  474DEF FN_do_save(fullname$)
  475SYS "OS_SpriteOp",268,save_buff%,fullname$:REM save
  476PROCshell_HeapBlockReturn(save_buff%)
  477=0
  478:
  479DEF PROCSaveAsTemplateFile
  480LOCAL void%
  481void%=FN_PreOpenXfer(xfer%,"template")
  482PROCshell_OpenWindowStatic(xfer%)
  483ENDPROC
  484:
  485
  486REM ================= End Of User Application ======================
  487:
  488DEF PROCshell_EnsurePoll
  489ENDPROC
  490:
 � > <WinSave2$Dir>.!WinSave2
:
� � �shell_Error
:
#ț "<EvntShell$Path>ShellLibRT"
:
ș "Hourglass_On"
:
	(ș "Wimp_SlotSize",-1,-1 � progsize%

pagesize%=1<<10
freespace%=&8000+progsize%
�=freespace%+pagesize%

�=freespace%
:
9�shell_HeapManagerInit("<EvntShell$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 --------------------
#:
$ș "Hourglass_Off"
%	� � �
&� � �shell_Error
'�
(+  �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  14 ee 20 85 20 f2 73 68  |....:..... . .sh|
00000030  65 6c 6c 5f 45 72 72 6f  72 0d 00 04 05 3a 0d 00  |ell_Error....:..|
00000040  05 23 c8 9b 20 22 3c 45  76 6e 74 53 68 65 6c 6c  |.#.. "<EvntShell|
00000050  24 50 61 74 68 3e 53 68  65 6c 6c 4c 69 62 52 54  |$Path>ShellLibRT|
00000060  22 0d 00 06 05 3a 0d 00  07 15 c8 99 20 22 48 6f  |"....:...... "Ho|
00000070  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 00 08 05 3a  |urglass_On"....:|
00000080  0d 00 09 28 c8 99 20 22  57 69 6d 70 5f 53 6c 6f  |...(.. "Wimp_Slo|
00000090  74 53 69 7a 65 22 2c 2d  31 2c 2d 31 20 b8 20 70  |tSize",-1,-1 . p|
000000a0  72 6f 67 73 69 7a 65 25  0d 00 0a 13 70 61 67 65  |rogsize%....page|
000000b0  73 69 7a 65 25 3d 31 3c  3c 31 30 0d 00 0b 1e 66  |size%=1<<10....f|
000000c0  72 65 65 73 70 61 63 65  25 3d 26 38 30 30 30 2b  |reespace%=&8000+|
000000d0  70 72 6f 67 73 69 7a 65  25 0d 00 0c 1a e0 3d 66  |progsize%.....=f|
000000e0  72 65 65 73 70 61 63 65  25 2b 70 61 67 65 73 69  |reespace%+pagesi|
000000f0  7a 65 25 0d 00 0d 10 d3  3d 66 72 65 65 73 70 61  |ze%.....=freespa|
00000100  63 65 25 0d 00 0e 05 3a  0d 00 0f 39 f2 73 68 65  |ce%....:...9.she|
00000110  6c 6c 5f 48 65 61 70 4d  61 6e 61 67 65 72 49 6e  |ll_HeapManagerIn|
00000120  69 74 28 22 3c 45 76 6e  74 53 68 65 6c 6c 24 50  |it("<EvntShell$P|
00000130  61 74 68 3e 22 2c 66 72  65 65 73 70 61 63 65 25  |ath>",freespace%|
00000140  29 0d 00 10 0f f2 73 68  65 6c 6c 5f 49 6e 69 74  |).....shell_Init|
00000150  0d 00 11 34 74 61 73 6b  25 3d a4 73 68 65 6c 6c  |...4task%=.shell|
00000160  5f 57 69 6d 70 49 6e 69  74 5f 49 28 32 30 30 2c  |_WimpInit_I(200,|
00000170  22 57 69 6e 64 6f 77 20  53 61 76 65 72 20 55 74  |"Window Saver Ut|
00000180  69 6c 22 29 0d 00 12 18  f2 73 68 65 6c 6c 5f 54  |il").....shell_T|
00000190  72 61 63 65 49 6e 69 74  28 22 22 29 0d 00 13 17  |raceInit("")....|
000001a0  f4 20 50 52 4f 43 73 68  65 6c 6c 5f 54 72 61 63  |. PROCshell_Trac|
000001b0  65 4f 6e 0d 00 14 18 f2  73 68 65 6c 6c 5f 52 65  |eOn.....shell_Re|
000001c0  73 6f 75 72 63 65 73 49  6e 69 74 0d 00 15 0d f2  |sourcesInit.....|
000001d0  61 70 70 5f 69 6e 69 74  0d 00 16 05 3a 0d 00 17  |app_init....:...|
000001e0  4c f4 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |L. -------------|
000001f0  2d 2d 2d 2d 2d 2d 2d 20  49 6e 69 74 69 61 6c 69  |------- Initiali|
00000200  73 65 20 56 61 72 69 61  62 6c 65 73 20 2d 2d 2d  |se Variables ---|
00000210  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000220  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 00 18 05 3a 0d 00  |---------....:..|
00000230  19 47 5f 63 6c 6f 73 65  64 6f 77 6e 25 20 20 20  |.G_closedown%   |
00000240  20 20 3d a3 20 3a f4 20  53 65 74 20 74 68 69 73  |  =. :. Set this|
00000250  20 74 6f 20 54 52 55 45  20 77 68 65 6e 20 79 6f  | to TRUE when yo|
00000260  75 20 77 61 6e 74 20 74  68 65 20 70 72 6f 67 72  |u want the progr|
00000270  61 6d 20 74 6f 0d 00 1a  21 20 20 20 20 20 20 20  |am to...!       |
00000280  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000290  3a f4 20 65 6e 64 0d 00  1b 44 63 68 61 6e 67 65  |:. end...Dchange|
000002a0  64 25 20 20 20 20 20 20  20 20 3d a3 20 3a f4 20  |d%        =. :. |
000002b0  55 73 65 64 20 74 6f 20  6b 65 65 70 20 74 72 61  |Used to keep tra|
000002c0  63 6b 20 6f 66 20 77 68  65 74 68 65 72 20 74 68  |ck of whether th|
000002d0  65 20 64 61 74 61 20 68  61 73 0d 00 1c 4b 20 20  |e data has...K  |
000002e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002f0  20 20 20 20 20 3a f4 20  62 65 65 6e 20 63 68 61  |     :. been cha|
00000300  6e 67 65 64 2e 20 43 61  6c 6c 20 50 52 4f 43 66  |nged. Call PROCf|
00000310  69 6c 65 5f 63 68 61 6e  67 65 64 28 29 20 77 68  |ile_changed() wh|
00000320  65 6e 20 69 74 0d 00 1d  47 20 20 20 20 20 20 20  |en it...G       |
00000330  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000340  3a f4 20 68 61 73 2e 20  42 75 74 20 69 66 20 74  |:. has. But if t|
00000350  68 65 20 70 72 6f 67 72  61 6d 20 64 6f 65 73 20  |he program does |
00000360  6e 6f 74 20 75 73 65 20  64 61 74 61 0d 00 1e 48  |not use data...H|
00000370  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000380  20 20 20 20 20 20 20 3a  f4 20 66 69 6c 65 73 20  |       :. files |
00000390  6a 75 73 74 20 69 67 6e  6f 72 65 20 74 68 69 73  |just ignore this|
000003a0  20 76 61 72 69 61 62 6c  65 20 62 75 74 20 64 6f  | variable but do|
000003b0  20 6e 6f 74 0d 00 1f 47  20 20 20 20 20 20 20 20  | not...G        |
000003c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
000003d0  f4 20 64 65 6c 65 74 65  20 69 74 20 61 73 20 74  |. delete it as t|
000003e0  68 65 20 70 72 6f 67 72  61 6d 20 63 68 65 63 6b  |he program check|
000003f0  73 20 69 74 20 62 65 66  6f 72 65 0d 00 20 26 20  |s it before.. & |
00000400  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000410  20 20 20 20 20 20 3a f4  20 65 78 69 74 69 6e 67  |      :. exiting|
00000420  21 0d 00 21 05 3a 0d 00  22 4c f4 20 2d 2d 2d 2d  |!..!.:.."L. ----|
00000430  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000440  20 4d 69 73 63 65 6c 6c  65 61 6e 6f 75 73 20 49  | Miscelleanous I|
00000450  6e 69 74 69 61 6c 69 73  61 74 69 6f 6e 20 2d 2d  |nitialisation --|
00000460  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000470  2d 2d 0d 00 23 05 3a 0d  00 24 16 c8 99 20 22 48  |--..#.:..$... "H|
00000480  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 0d 00 25  |ourglass_Off"..%|
00000490  09 ee 20 85 20 87 0d 00  26 14 ee 20 85 20 f2 73  |.. . ...&.. . .s|
000004a0  68 65 6c 6c 5f 45 72 72  6f 72 0d 00 27 05 f5 0d  |hell_Error..'...|
000004b0  00 28 2b 20 20 f2 73 68  65 6c 6c 5f 41 63 74 69  |.(+  .shell_Acti|
000004c0  6f 6e 28 a4 73 68 65 6c  6c 5f 50 6f 6c 6c 5f 49  |on(.shell_Poll_I|
000004d0  28 30 2c 74 61 73 6b 25  29 29 0d 00 29 11 fd 20  |(0,task%))..).. |
000004e0  5f 63 6c 6f 73 65 64 6f  77 6e 25 0d 00 2a 05 3a  |_closedown%..*.:|
000004f0  0d 00 2b 11 f2 73 68 65  6c 6c 5f 45 78 69 74 3a  |..+..shell_Exit:|
00000500  e0 0d 00 2c 05 3a 0d 00  2d 4c f4 20 3d 3d 3d 3d  |...,.:..-L. ====|
00000510  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000550  3d 3d 0d 00 2e 05 3a 0d  00 2f 0f dd 20 f2 61 70  |==....:../.. .ap|
00000560  70 5f 69 6e 69 74 0d 00  30 29 de 20 6e 61 6d 65  |p_init..0). name|
00000570  5f 62 75 66 66 25 20 32  30 2c 20 70 61 74 68 25  |_buff% 20, path%|
00000580  20 32 35 36 2c 66 6e 61  6d 65 24 28 37 37 29 0d  | 256,fname$(77).|
00000590  00 31 26 24 70 61 74 68  25 3d a4 73 68 65 6c 6c  |.1&$path%=.shell|
000005a0  5f 47 65 74 41 70 70 44  69 72 2b 22 2e 67 72 61  |_GetAppDir+".gra|
000005b0  62 62 65 64 22 0d 00 32  16 24 6e 61 6d 65 5f 62  |bbed"..2.$name_b|
000005c0  75 66 66 25 3d 22 67 72  61 62 22 0d 00 33 10 73  |uff%="grab"..3.s|
000005d0  61 76 65 5f 62 75 66 66  25 3d 30 0d 00 34 38 77  |ave_buff%=0..48w|
000005e0  69 6e 73 61 76 65 5f 6f  70 25 3d 30 3a f4 20 6b  |insave_op%=0:. k|
000005f0  65 65 70 73 20 74 72 61  63 6b 20 6f 66 20 74 79  |eeps track of ty|
00000600  70 65 20 6f 66 20 73 61  76 65 20 73 65 6c 65 63  |pe of save selec|
00000610  74 65 64 0d 00 35 17 66  6c 61 67 5f 47 72 61 62  |ted..5.flag_Grab|
00000620  50 65 6e 64 69 6e 67 25  3d a3 0d 00 36 10 f2 53  |Pending%=...6..S|
00000630  65 74 55 70 5f 4d 65 6e  75 73 0d 00 37 12 f2 53  |etUp_Menus..7..S|
00000640  65 74 55 70 5f 57 69 6e  64 6f 77 73 0d 00 38 12  |etUp_Windows..8.|
00000650  f2 53 65 74 55 70 5f 49  63 6f 6e 42 61 72 0d 00  |.SetUp_IconBar..|
00000660  39 31 f2 73 68 65 6c 6c  5f 41 74 74 61 63 68 4d  |91.shell_AttachM|
00000670  6f 64 65 43 68 61 6e 67  65 48 61 6e 64 6c 65 72  |odeChangeHandler|
00000680  28 22 5f 6d 6f 64 65 63  68 61 6e 67 65 22 29 0d  |("_modechange").|
00000690  00 3a 22 f2 73 68 65 6c  6c 5f 4f 70 65 6e 57 69  |.:".shell_OpenWi|
000006a0  6e 64 6f 77 53 74 61 74  69 63 28 67 72 61 62 25  |ndowStatic(grab%|
000006b0  29 0d 00 3b 28 f2 73 68  65 6c 6c 5f 57 69 6e 64  |)..;(.shell_Wind|
000006c0  6f 77 4d 6f 76 65 54 6f  28 67 72 61 62 25 2c 2d  |owMoveTo(grab%,-|
000006d0  35 30 30 30 2c 35 30 30  29 0d 00 3c 11 f2 72 65  |5000,500)..<..re|
000006e0  61 64 5f 63 68 6f 69 63  65 73 0d 00 3d 47 f2 73  |ad_choices..=G.s|
000006f0  68 65 6c 6c 5f 49 6e 69  74 48 65 6c 70 53 79 73  |hell_InitHelpSys|
00000700  74 65 6d 28 a4 73 68 65  6c 6c 5f 47 65 74 41 70  |tem(.shell_GetAp|
00000710  70 4e 61 6d 65 2b 22 52  65 73 3a 22 2b a4 73 68  |pName+"Res:"+.sh|
00000720  65 6c 6c 5f 47 65 74 41  70 70 4e 61 6d 65 2c b9  |ell_GetAppName,.|
00000730  29 0d 00 3e 05 e1 0d 00  3f 05 3a 0d 00 40 04 0d  |)..>....?.:..@..|
00000740  00 41 46 f4 20 3d 3d 3d  3d 3d 20 4d 65 6e 75 5f  |.AF. ===== Menu_|
00000750  53 65 74 75 70 20 72 6f  75 74 69 6e 65 73 20 3d  |Setup routines =|
00000760  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000780  3d 3d 3d 3d 3d 0d 00 42  04 0d 00 43 12 dd 20 f2  |=====..B...C.. .|
00000790  53 65 74 55 70 5f 4d 65  6e 75 73 0d 00 44 0b ea  |SetUp_Menus..D..|
000007a0  20 76 6f 69 64 25 0d 00  45 04 0d 00 46 46 4d 65  | void%..E...FFMe|
000007b0  6e 75 48 61 6e 64 6c 65  5f 49 63 6f 6e 42 61 72  |nuHandle_IconBar|
000007c0  25 3d a4 73 68 65 6c 6c  5f 4d 65 6e 75 4e 65 77  |%=.shell_MenuNew|
000007d0  28 a4 73 68 65 6c 6c 5f  4d 65 73 73 61 67 65 4e  |(.shell_MessageN|
000007e0  6f 41 72 67 73 28 22 4d  54 49 42 61 72 22 29 29  |oArgs("MTIBar"))|
000007f0  0d 00 47 49 4d 65 6e 75  49 74 65 6d 5f 49 6e 66  |..GIMenuItem_Inf|
00000800  6f 25 20 20 20 20 20 3d  a4 73 68 65 6c 6c 5f 4d  |o%     =.shell_M|
00000810  65 6e 75 41 64 64 28 30  2c a4 73 68 65 6c 6c 5f  |enuAdd(0,.shell_|
00000820  4d 65 73 73 61 67 65 4e  6f 41 72 67 73 28 22 49  |MessageNoArgs("I|
00000830  6e 66 6f 22 29 2c 22 22  29 0d 00 48 59 4d 65 6e  |nfo"),"")..HYMen|
00000840  75 49 74 65 6d 5f 48 65  6c 70 25 20 20 20 20 20  |uItem_Help%     |
00000850  3d a4 73 68 65 6c 6c 5f  4d 65 6e 75 41 64 64 28  |=.shell_MenuAdd(|
00000860  30 2c a4 73 68 65 6c 6c  5f 4d 65 73 73 61 67 65  |0,.shell_Message|
00000870  4e 6f 41 72 67 73 28 22  48 65 6c 70 22 29 2c 22  |NoArgs("Help"),"|
00000880  5f 4d 65 6e 75 53 65 6c  65 63 74 5f 48 65 6c 70  |_MenuSelect_Help|
00000890  22 29 0d 00 49 4a 4d 65  6e 75 49 74 65 6d 5f 53  |")..IJMenuItem_S|
000008a0  65 74 75 70 25 20 20 20  20 3d a4 73 68 65 6c 6c  |etup%    =.shell|
000008b0  5f 4d 65 6e 75 41 64 64  28 30 2c a4 73 68 65 6c  |_MenuAdd(0,.shel|
000008c0  6c 5f 4d 65 73 73 61 67  65 4e 6f 41 72 67 73 28  |l_MessageNoArgs(|
000008d0  22 53 65 74 75 70 22 29  2c 22 22 29 0d 00 4a 65  |"Setup"),"")..Je|
000008e0  4d 65 6e 75 49 74 65 6d  5f 47 65 74 57 53 25 20  |MenuItem_GetWS% |
000008f0  20 20 20 3d a4 73 68 65  6c 6c 5f 4d 65 6e 75 41  |   =.shell_MenuA|
00000900  64 64 28 30 2c a4 73 68  65 6c 6c 5f 4d 65 73 73  |dd(0,.shell_Mess|
00000910  61 67 65 4e 6f 41 72 67  73 28 22 47 65 74 57 53  |ageNoArgs("GetWS|
00000920  22 29 2c 22 5f 4d 65 6e  75 53 65 6c 65 63 74 5f  |"),"_MenuSelect_|
00000930  47 65 74 57 69 6e 64 6f  77 53 70 72 69 74 65 22  |GetWindowSprite"|
00000940  29 0d 00 4b 4a 4d 65 6e  75 49 74 65 6d 5f 47 65  |)..KJMenuItem_Ge|
00000950  74 57 47 25 20 20 20 20  3d a4 73 68 65 6c 6c 5f  |tWG%    =.shell_|
00000960  4d 65 6e 75 41 64 64 28  30 2c a4 73 68 65 6c 6c  |MenuAdd(0,.shell|
00000970  5f 4d 65 73 73 61 67 65  4e 6f 41 72 67 73 28 22  |_MessageNoArgs("|
00000980  47 65 74 57 47 22 29 2c  22 22 29 0d 00 4c 67 4d  |GetWG"),"")..LgM|
00000990  65 6e 75 49 74 65 6d 5f  47 65 74 57 54 25 20 20  |enuItem_GetWT%  |
000009a0  20 20 3d a4 73 68 65 6c  6c 5f 4d 65 6e 75 41 64  |  =.shell_MenuAd|
000009b0  64 28 30 2c a4 73 68 65  6c 6c 5f 4d 65 73 73 61  |d(0,.shell_Messa|
000009c0  67 65 4e 6f 41 72 67 73  28 22 47 65 74 57 54 22  |geNoArgs("GetWT"|
000009d0  29 2c 22 5f 4d 65 6e 75  53 65 6c 65 63 74 5f 47  |),"_MenuSelect_G|
000009e0  65 74 57 69 6e 64 6f 77  54 65 6d 70 6c 61 74 65  |etWindowTemplate|
000009f0  22 29 0d 00 4d 4c 4d 65  6e 75 49 74 65 6d 5f 47  |")..MLMenuItem_G|
00000a00  65 74 49 63 6f 6e 25 20  20 3d a4 73 68 65 6c 6c  |etIcon%  =.shell|
00000a10  5f 4d 65 6e 75 41 64 64  28 30 2c a4 73 68 65 6c  |_MenuAdd(0,.shel|
00000a20  6c 5f 4d 65 73 73 61 67  65 4e 6f 41 72 67 73 28  |l_MessageNoArgs(|
00000a30  22 47 65 74 49 63 6f 6e  22 29 2c 22 22 29 0d 00  |"GetIcon"),"")..|
00000a40  4e 4a 4d 65 6e 75 49 74  65 6d 5f 47 65 74 53 41  |NJMenuItem_GetSA|
00000a50  25 20 20 20 20 3d a4 73  68 65 6c 6c 5f 4d 65 6e  |%    =.shell_Men|
00000a60  75 41 64 64 28 30 2c a4  73 68 65 6c 6c 5f 4d 65  |uAdd(0,.shell_Me|
00000a70  73 73 61 67 65 4e 6f 41  72 67 73 28 22 47 65 74  |ssageNoArgs("Get|
00000a80  53 41 22 29 2c 22 22 29  0d 00 4f 67 4d 65 6e 75  |SA"),"")..OgMenu|
00000a90  49 74 65 6d 5f 47 65 74  57 68 6f 6c 65 25 20 3d  |Item_GetWhole% =|
00000aa0  a4 73 68 65 6c 6c 5f 4d  65 6e 75 41 64 64 28 30  |.shell_MenuAdd(0|
00000ab0  2c a4 73 68 65 6c 6c 5f  4d 65 73 73 61 67 65 4e  |,.shell_MessageN|
00000ac0  6f 41 72 67 73 28 22 47  65 74 57 68 6f 6c 65 22  |oArgs("GetWhole"|
00000ad0  29 2c 22 5f 4d 65 6e 75  53 65 6c 65 63 74 5f 47  |),"_MenuSelect_G|
00000ae0  65 74 57 68 6f 6c 65 53  63 72 65 65 6e 22 29 0d  |etWholeScreen").|
00000af0  00 50 59 76 6f 69 64 25  20 20 20 20 20 20 20 20  |.PYvoid%        |
00000b00  20 20 20 20 20 20 3d a4  73 68 65 6c 6c 5f 4d 65  |      =.shell_Me|
00000b10  6e 75 41 64 64 28 30 2c  a4 73 68 65 6c 6c 5f 4d  |nuAdd(0,.shell_M|
00000b20  65 73 73 61 67 65 4e 6f  41 72 67 73 28 22 51 75  |essageNoArgs("Qu|
00000b30  69 74 22 29 2c 22 5f 4d  65 6e 75 53 65 6c 65 63  |it"),"_MenuSelec|
00000b40  74 5f 51 75 69 74 22 29  0d 00 51 04 0d 00 52 28  |t_Quit")..Q...R(|
00000b50  f2 73 68 65 6c 6c 5f 4d  65 6e 75 44 6f 74 74 65  |.shell_MenuDotte|
00000b60  64 28 4d 65 6e 75 49 74  65 6d 5f 53 65 74 75 70  |d(MenuItem_Setup|
00000b70  25 2c b9 29 0d 00 53 2b  f2 73 68 65 6c 6c 5f 4d  |%,.)..S+.shell_M|
00000b80  65 6e 75 44 6f 74 74 65  64 28 4d 65 6e 75 49 74  |enuDotted(MenuIt|
00000b90  65 6d 5f 47 65 74 57 68  6f 6c 65 25 2c b9 29 0d  |em_GetWhole%,.).|
00000ba0  00 54 27 f2 73 68 65 6c  6c 5f 4d 65 6e 75 53 68  |.T'.shell_MenuSh|
00000bb0  61 64 65 28 4d 65 6e 75  49 74 65 6d 5f 47 65 74  |ade(MenuItem_Get|
00000bc0  57 47 25 2c b9 29 0d 00  55 29 f2 73 68 65 6c 6c  |WG%,.)..U).shell|
00000bd0  5f 4d 65 6e 75 53 68 61  64 65 28 4d 65 6e 75 49  |_MenuShade(MenuI|
00000be0  74 65 6d 5f 47 65 74 49  63 6f 6e 25 2c b9 29 0d  |tem_GetIcon%,.).|
00000bf0  00 56 27 f2 73 68 65 6c  6c 5f 4d 65 6e 75 53 68  |.V'.shell_MenuSh|
00000c00  61 64 65 28 4d 65 6e 75  49 74 65 6d 5f 47 65 74  |ade(MenuItem_Get|
00000c10  53 41 25 2c b9 29 0d 00  57 04 0d 00 58 46 f2 73  |SA%,.)..W...XF.s|
00000c20  68 65 6c 6c 5f 41 74 74  61 63 68 4d 65 6e 75 44  |hell_AttachMenuD|
00000c30  42 6f 78 28 4d 65 6e 75  49 74 65 6d 5f 49 6e 66  |Box(MenuItem_Inf|
00000c40  6f 25 2c 22 70 72 6f 67  49 6e 66 6f 22 2c 22 5f  |o%,"progInfo","_|
00000c50  50 72 65 4f 70 65 6e 49  6e 66 6f 22 2c 22 22 29  |PreOpenInfo","")|
00000c60  0d 00 59 45 f2 73 68 65  6c 6c 5f 41 74 74 61 63  |..YE.shell_Attac|
00000c70  68 4d 65 6e 75 44 42 6f  78 28 4d 65 6e 75 49 74  |hMenuDBox(MenuIt|
00000c80  65 6d 5f 53 65 74 75 70  25 2c 22 73 65 74 75 70  |em_Setup%,"setup|
00000c90  22 2c 22 5f 50 72 65 4f  70 65 6e 53 65 74 75 70  |","_PreOpenSetup|
00000ca0  22 2c 22 22 29 0d 00 5a  04 0d 00 5b 05 e1 0d 00  |","")..Z...[....|
00000cb0  5c 05 3a 0d 00 5d 04 0d  00 5e 46 f4 20 3d 3d 3d  |\.:..]...^F. ===|
00000cc0  3d 3d 20 57 69 6e 64 6f  77 5f 53 65 74 55 70 20  |== Window_SetUp |
00000cd0  72 6f 75 74 69 6e 65 73  20 3d 3d 3d 3d 3d 3d 3d  |routines =======|
00000ce0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000cf0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 0d 00 5f  |=============.._|
00000d00  04 0d 00 60 14 dd 20 f2  53 65 74 55 70 5f 57 69  |...`.. .SetUp_Wi|
00000d10  6e 64 6f 77 73 0d 00 61  2b f2 73 68 65 6c 6c 5f  |ndows..a+.shell_|
00000d20  43 72 65 61 74 65 57 69  6e 64 6f 77 53 74 61 74  |CreateWindowStat|
00000d30  69 63 28 22 67 72 61 62  22 2c 67 72 61 62 25 29  |ic("grab",grab%)|
00000d40  0d 00 62 30 f2 73 68 65  6c 6c 5f 43 72 65 61 74  |..b0.shell_Creat|
00000d50  65 57 69 6e 64 6f 77 53  74 61 74 69 63 28 22 78  |eWindowStatic("x|
00000d60  66 65 72 5f 73 65 6e 64  22 2c 78 66 65 72 25 29  |fer_send",xfer%)|
00000d70  0d 00 63 3c f2 73 68 65  6c 6c 5f 41 74 74 61 63  |..c<.shell_Attac|
00000d80  68 48 6f 74 4b 65 79 28  22 53 22 2c a3 2c b9 2c  |hHotKey("S",.,.,|
00000d90  a3 2c 22 22 2c 30 2c 22  5f 50 72 65 70 61 72 65  |.,"",0,"_Prepare|
00000da0  46 6f 72 47 72 61 62 22  2c 22 22 29 0d 00 64 39  |ForGrab","")..d9|
00000db0  f2 73 68 65 6c 6c 5f 41  74 74 61 63 68 43 6c 69  |.shell_AttachCli|
00000dc0  63 6b 53 65 6c 65 63 74  28 78 66 65 72 25 2c 30  |ckSelect(xfer%,0|
00000dd0  2c 22 5f 43 6c 69 63 6b  53 65 6c 65 63 74 5f 58  |,"_ClickSelect_X|
00000de0  66 65 72 22 29 0d 00 65  05 e1 0d 00 66 05 3a 0d  |fer")..e....f.:.|
00000df0  00 67 04 0d 00 68 46 f4  20 3d 3d 3d 3d 3d 20 49  |.g...hF. ===== I|
00000e00  63 6f 6e 42 61 72 5f 53  65 74 55 70 20 72 6f 75  |conBar_SetUp rou|
00000e10  74 69 6e 65 73 20 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |tines ==========|
00000e20  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000e30  3d 3d 3d 3d 3d 3d 3d 3d  3d 0d 00 69 04 0d 00 6a  |=========..i...j|
00000e40  14 dd 20 f2 53 65 74 55  70 5f 49 63 6f 6e 42 61  |.. .SetUp_IconBa|
00000e50  72 0d 00 6b 59 73 69 63  6f 6e 3d a4 73 68 65 6c  |r..kYsicon=.shel|
00000e60  6c 5f 49 63 6f 6e 62 61  72 28 2d 31 2c 22 21 22  |l_Iconbar(-1,"!"|
00000e70  2b a4 73 68 65 6c 6c 5f  47 65 74 41 70 70 4e 61  |+.shell_GetAppNa|
00000e80  6d 65 2c 22 53 70 72 69  74 65 22 2c 31 38 30 2c  |me,"Sprite",180,|
00000e90  4d 65 6e 75 48 61 6e 64  6c 65 5f 49 63 6f 6e 42  |MenuHandle_IconB|
00000ea0  61 72 25 2c 30 2c 30 2c  30 29 0d 00 6c 2c f2 73  |ar%,0,0,0)..l,.s|
00000eb0  68 65 6c 6c 5f 41 74 74  61 63 68 48 65 6c 70 54  |hell_AttachHelpT|
00000ec0  61 67 28 2d 31 2c 73 69  63 6f 6e 2c 22 69 63 6f  |ag(-1,sicon,"ico|
00000ed0  6e 62 61 72 22 29 0d 00  6d 3d f2 73 68 65 6c 6c  |nbar")..m=.shell|
00000ee0  5f 41 74 74 61 63 68 43  6c 69 63 6b 41 64 6a 75  |_AttachClickAdju|
00000ef0  73 74 28 2d 31 2c 73 69  63 6f 6e 2c 22 5f 43 6c  |st(-1,sicon,"_Cl|
00000f00  69 63 6b 41 64 6a 75 73  74 5f 49 63 6f 6e 42 61  |ickAdjust_IconBa|
00000f10  72 22 29 0d 00 6e 39 f2  73 68 65 6c 6c 5f 41 74  |r")..n9.shell_At|
00000f20  74 61 63 68 4d 65 6e 75  4d 61 6b 65 72 28 2d 31  |tachMenuMaker(-1|
00000f30  2c 73 69 63 6f 6e 2c 22  5f 4d 65 6e 75 4d 61 6b  |,sicon,"_MenuMak|
00000f40  65 72 5f 49 63 6f 6e 42  61 72 22 29 0d 00 6f 05  |er_IconBar")..o.|
00000f50  e1 0d 00 70 05 3a 0d 00  71 04 0d 00 72 46 f4 20  |...p.:..q...rF. |
00000f60  3d 3d 3d 3d 3d 20 44 69  61 6c 6f 67 5f 50 72 65  |===== Dialog_Pre|
00000f70  4f 70 65 6e 20 72 6f 75  74 69 6e 65 73 20 3d 3d  |Open routines ==|
00000f80  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000fa0  0d 00 73 04 0d 00 74 18  dd 20 a4 5f 50 72 65 4f  |..s...t.. ._PreO|
00000fb0  70 65 6e 49 6e 66 6f 28  77 68 25 29 0d 00 75 41  |penInfo(wh%)..uA|
00000fc0  f2 73 68 65 6c 6c 5f 49  63 6f 6e 50 75 74 44 61  |.shell_IconPutDa|
00000fd0  74 61 28 77 68 25 2c 30  2c a4 73 68 65 6c 6c 5f  |ta(wh%,0,.shell_|
00000fe0  4d 65 73 73 61 67 65 4e  6f 41 72 67 73 28 22 70  |MessageNoArgs("p|
00000ff0  72 6f 67 49 6e 66 6f 30  22 29 2c 30 29 0d 00 76  |rogInfo0"),0)..v|
00001000  41 f2 73 68 65 6c 6c 5f  49 63 6f 6e 50 75 74 44  |A.shell_IconPutD|
00001010  61 74 61 28 77 68 25 2c  31 2c a4 73 68 65 6c 6c  |ata(wh%,1,.shell|
00001020  5f 4d 65 73 73 61 67 65  4e 6f 41 72 67 73 28 22  |_MessageNoArgs("|
00001030  70 72 6f 67 49 6e 66 6f  31 22 29 2c 30 29 0d 00  |progInfo1"),0)..|
00001040  77 41 f2 73 68 65 6c 6c  5f 49 63 6f 6e 50 75 74  |wA.shell_IconPut|
00001050  44 61 74 61 28 77 68 25  2c 32 2c a4 73 68 65 6c  |Data(wh%,2,.shel|
00001060  6c 5f 4d 65 73 73 61 67  65 4e 6f 41 72 67 73 28  |l_MessageNoArgs(|
00001070  22 70 72 6f 67 49 6e 66  6f 32 22 29 2c 30 29 0d  |"progInfo2"),0).|
00001080  00 78 41 f2 73 68 65 6c  6c 5f 49 63 6f 6e 50 75  |.xA.shell_IconPu|
00001090  74 44 61 74 61 28 77 68  25 2c 33 2c a4 73 68 65  |tData(wh%,3,.she|
000010a0  6c 6c 5f 4d 65 73 73 61  67 65 4e 6f 41 72 67 73  |ll_MessageNoArgs|
000010b0  28 22 70 72 6f 67 49 6e  66 6f 33 22 29 2c 30 29  |("progInfo3"),0)|
000010c0  0d 00 79 06 3d 30 0d 00  7a 05 3a 0d 00 7b 19 dd  |..y.=0..z.:..{..|
000010d0  20 a4 5f 50 72 65 4f 70  65 6e 53 65 74 75 70 28  | ._PreOpenSetup(|
000010e0  77 68 25 29 0d 00 7c 39  f2 73 68 65 6c 6c 5f 41  |wh%)..|9.shell_A|
000010f0  74 74 61 63 68 43 6c 69  63 6b 53 65 6c 65 63 74  |ttachClickSelect|
00001100  28 77 68 25 2c 2d 31 2c  22 5f 43 6c 69 63 6b 53  |(wh%,-1,"_ClickS|
00001110  65 6c 65 63 74 5f 53 65  74 75 70 22 29 0d 00 7d  |elect_Setup")..}|
00001120  28 f2 73 68 65 6c 6c 5f  41 74 74 61 63 68 48 65  |(.shell_AttachHe|
00001130  6c 70 54 61 67 28 77 68  25 2c 2d 31 2c 22 73 65  |lpTag(wh%,-1,"se|
00001140  74 75 70 22 29 0d 00 7e  2b f2 73 68 65 6c 6c 5f  |tup")..~+.shell_|
00001150  49 63 6f 6e 53 65 74 28  77 68 25 2c 32 2c 66 6c  |IconSet(wh%,2,fl|
00001160  61 67 5f 57 69 74 68 50  61 6c 65 74 74 65 25 29  |ag_WithPalette%)|
00001170  0d 00 7f 2b f2 73 68 65  6c 6c 5f 49 63 6f 6e 53  |...+.shell_IconS|
00001180  65 74 28 77 68 25 2c 31  32 2c 66 6c 61 67 5f 42  |et(wh%,12,flag_B|
00001190  72 69 6e 67 54 6f 54 6f  70 25 29 0d 00 80 2d f2  |ringToTop%)...-.|
000011a0  73 68 65 6c 6c 5f 49 63  6f 6e 53 65 74 28 77 68  |shell_IconSet(wh|
000011b0  25 2c 31 33 2c 66 6c 61  67 5f 43 6f 6e 74 65 6e  |%,13,flag_Conten|
000011c0  74 73 4f 6e 6c 79 25 29  0d 00 81 06 3d 30 0d 00  |tsOnly%)....=0..|
000011d0  82 05 3a 0d 00 83 22 dd  20 a4 5f 50 72 65 4f 70  |..:...". ._PreOp|
000011e0  65 6e 58 66 65 72 28 77  68 25 2c 66 69 6c 65 74  |enXfer(wh%,filet|
000011f0  79 70 65 24 29 0d 00 84  12 c8 8e 20 66 69 6c 65  |ype$)...... file|
00001200  74 79 70 65 24 20 ca 0d  00 85 10 20 20 c9 20 22  |type$ .....  . "|
00001210  73 70 72 69 74 65 22 0d  00 86 4a 20 20 20 20 f2  |sprite"...J    .|
00001220  73 68 65 6c 6c 5f 49 63  6f 6e 50 75 74 44 61 74  |shell_IconPutDat|
00001230  61 28 77 68 25 2c 31 2c  a4 73 68 65 6c 6c 5f 47  |a(wh%,1,.shell_G|
00001240  65 74 41 70 70 44 61 74  61 44 69 72 2b 22 2e 22  |etAppDataDir+"."|
00001250  2b a4 67 65 74 5f 66 69  6c 65 6e 61 6d 65 2c 30  |+.get_filename,0|
00001260  29 0d 00 87 41 20 20 20  20 f2 73 68 65 6c 6c 5f  |)...A    .shell_|
00001270  41 74 74 61 63 68 44 61  74 61 53 61 76 65 28 77  |AttachDataSave(w|
00001280  68 25 2c 32 2c 73 61 76  65 5f 62 75 66 66 25 2c  |h%,2,save_buff%,|
00001290  26 46 46 39 2c 31 2c 22  5f 64 6f 5f 73 61 76 65  |&FF9,1,"_do_save|
000012a0  22 29 0d 00 88 12 20 20  c9 20 22 74 65 6d 70 6c  |")....  . "templ|
000012b0  61 74 65 22 0d 00 89 43  20 20 20 20 f2 73 68 65  |ate"...C    .she|
000012c0  6c 6c 5f 49 63 6f 6e 50  75 74 44 61 74 61 28 77  |ll_IconPutData(w|
000012d0  68 25 2c 31 2c a4 73 68  65 6c 6c 5f 47 65 74 41  |h%,1,.shell_GetA|
000012e0  70 70 44 61 74 61 44 69  72 2b 22 2e 67 72 61 62  |ppDataDir+".grab|
000012f0  62 65 64 22 2c 30 29 0d  00 8a 43 20 20 20 20 f2  |bed",0)...C    .|
00001300  73 68 65 6c 6c 5f 41 74  74 61 63 68 44 61 74 61  |shell_AttachData|
00001310  53 61 76 65 28 77 68 25  2c 32 2c 31 30 30 2c 26  |Save(wh%,2,100,&|
00001320  46 45 43 2c 31 2c 22 5f  64 6f 5f 73 61 76 65 5f  |FEC,1,"_do_save_|
00001330  74 65 6d 70 6c 61 74 65  22 29 0d 00 8b 05 cb 0d  |template")......|
00001340  00 8c 21 c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |..!.. "Wimp_GetP|
00001350  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 5f 51 25  |ointerInfo",,_Q%|
00001360  0d 00 8d 30 f2 73 68 65  6c 6c 5f 57 69 6e 64 6f  |...0.shell_Windo|
00001370  77 4d 6f 76 65 54 6f 28  77 68 25 2c 5f 51 25 21  |wMoveTo(wh%,_Q%!|
00001380  30 2d 31 30 30 2c 5f 51  25 21 34 2d 31 34 30 29  |0-100,_Q%!4-140)|
00001390  0d 00 8e 06 3d 30 0d 00  8f 05 3a 0d 00 90 04 0d  |....=0....:.....|
000013a0  00 91 46 f4 20 3d 3d 3d  3d 3d 20 44 69 61 6c 6f  |..F. ===== Dialo|
000013b0  67 5f 50 6f 73 74 4f 70  65 6e 20 72 6f 75 74 69  |g_PostOpen routi|
000013c0  6e 65 73 20 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |nes ============|
000013d0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
000013e0  3d 3d 3d 3d 3d 0d 00 92  04 0d 00 93 46 f4 20 3d  |=====.......F. =|
000013f0  3d 3d 3d 3d 20 43 6c 69  63 6b 5f 53 65 6c 65 63  |==== Click_Selec|
00001400  74 20 72 6f 75 74 69 6e  65 73 20 3d 3d 3d 3d 3d  |t routines =====|
00001410  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00001420  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 0d  |===============.|
00001430  00 94 04 0d 00 95 24 dd  20 a4 5f 43 6c 69 63 6b  |......$. ._Click|
00001440  53 65 6c 65 63 74 5f 53  65 74 75 70 28 77 68 25  |Select_Setup(wh%|
00001450  2c 69 63 6f 6e 25 29 0d  00 96 0e ea 20 76 6f 69  |,icon%)..... voi|
00001460  64 25 2c 58 25 0d 00 97  0c c8 8e 20 69 68 25 20  |d%,X%...... ih% |
00001470  ca 0d 00 98 10 20 20 c9  20 30 3a f4 20 27 4f 4b  |.....  . 0:. 'OK|
00001480  27 0d 00 99 2d 20 20 20  20 f4 20 6c 69 62 72 61  |'...-    . libra|
00001490  72 79 20 68 61 6e 64 6c  65 73 20 63 6c 6f 73 69  |ry handles closi|
000014a0  6e 67 20 74 68 65 20 6d  65 6e 75 2e 2e 2e 0d 00  |ng the menu.....|
000014b0  9a 37 20 20 20 20 66 6c  61 67 5f 57 69 74 68 50  |.7    flag_WithP|
000014c0  61 6c 65 74 74 65 25 20  3d a4 73 68 65 6c 6c 5f  |alette% =.shell_|
000014d0  49 73 49 63 6f 6e 53 65  6c 65 63 74 65 64 28 77  |IsIconSelected(w|
000014e0  68 25 2c 32 29 0d 00 9b  38 20 20 20 20 66 6c 61  |h%,2)...8    fla|
000014f0  67 5f 42 72 69 6e 67 54  6f 54 6f 70 25 20 20 3d  |g_BringToTop%  =|
00001500  a4 73 68 65 6c 6c 5f 49  73 49 63 6f 6e 53 65 6c  |.shell_IsIconSel|
00001510  65 63 74 65 64 28 77 68  25 2c 31 32 29 0d 00 9c  |ected(wh%,12)...|
00001520  38 20 20 20 20 66 6c 61  67 5f 43 6f 6e 74 65 6e  |8    flag_Conten|
00001530  74 73 4f 6e 6c 79 25 3d  a4 73 68 65 6c 6c 5f 49  |tsOnly%=.shell_I|
00001540  73 49 63 6f 6e 53 65 6c  65 63 74 65 64 28 77 68  |sIconSelected(wh|
00001550  25 2c 31 33 29 0d 00 9d  15 20 20 c9 20 31 30 3a  |%,13)....  . 10:|
00001560  f4 20 27 43 61 6e 63 65  6c 27 0d 00 9e 1f 20 20  |. 'Cancel'....  |
00001570  20 20 f2 73 68 65 6c 6c  5f 43 6c 6f 73 65 57 69  |  .shell_CloseWi|
00001580  6e 64 6f 77 28 77 68 25  29 0d 00 9f 13 20 20 c9  |ndow(wh%)....  .|
00001590  20 31 31 3a f4 20 27 53  61 76 65 27 0d 00 a0 37  | 11:. 'Save'...7|
000015a0  20 20 20 20 66 6c 61 67  5f 57 69 74 68 50 61 6c  |    flag_WithPal|
000015b0  65 74 74 65 25 20 3d a4  73 68 65 6c 6c 5f 49 73  |ette% =.shell_Is|
000015c0  49 63 6f 6e 53 65 6c 65  63 74 65 64 28 77 68 25  |IconSelected(wh%|
000015d0  2c 32 29 0d 00 a1 38 20  20 20 20 66 6c 61 67 5f  |,2)...8    flag_|
000015e0  42 72 69 6e 67 54 6f 54  6f 70 25 20 20 3d a4 73  |BringToTop%  =.s|
000015f0  68 65 6c 6c 5f 49 73 49  63 6f 6e 53 65 6c 65 63  |hell_IsIconSelec|
00001600  74 65 64 28 77 68 25 2c  31 32 29 0d 00 a2 38 20  |ted(wh%,12)...8 |
00001610  20 20 20 66 6c 61 67 5f  43 6f 6e 74 65 6e 74 73  |   flag_Contents|
00001620  4f 6e 6c 79 25 3d a4 73  68 65 6c 6c 5f 49 73 49  |Only%=.shell_IsI|
00001630  63 6f 6e 53 65 6c 65 63  74 65 64 28 77 68 25 2c  |conSelected(wh%,|
00001640  31 33 29 0d 00 a3 29 20  20 20 20 58 25 3d ae 28  |13)...)    X%=.(|
00001650  a4 73 68 65 6c 6c 5f 47  65 74 41 70 70 44 69 72  |.shell_GetAppDir|
00001660  2b 22 2e 43 68 6f 69 63  65 73 22 29 0d 00 a4 20  |+".Choices")... |
00001670  20 20 20 20 20 20 f1 23  58 25 2c 66 6c 61 67 5f  |      .#X%,flag_|
00001680  57 69 74 68 50 61 6c 65  74 74 65 25 0d 00 a5 1f  |WithPalette%....|
00001690  20 20 20 20 20 20 f1 23  58 25 2c 66 6c 61 67 5f  |      .#X%,flag_|
000016a0  42 72 69 6e 67 54 6f 54  6f 70 25 0d 00 a6 21 20  |BringToTop%...! |
000016b0  20 20 20 20 20 f1 23 58  25 2c 66 6c 61 67 5f 43  |     .#X%,flag_C|
000016c0  6f 6e 74 65 6e 74 73 4f  6e 6c 79 25 0d 00 a7 0d  |ontentsOnly%....|
000016d0  20 20 20 20 d9 23 20 58  25 0d 00 a8 1f 20 20 20  |    .# X%....   |
000016e0  20 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  | .. "Wimp_Create|
000016f0  4d 65 6e 75 22 2c 2d 31  0d 00 a9 05 cb 0d 00 aa  |Menu",-1........|
00001700  06 3d 30 0d 00 ab 05 3a  0d 00 ac 23 dd 20 a4 5f  |.=0....:...#. ._|
00001710  43 6c 69 63 6b 53 65 6c  65 63 74 5f 58 66 65 72  |ClickSelect_Xfer|
00001720  28 77 68 25 2c 69 63 6f  6e 25 29 0d 00 ad 0b ea  |(wh%,icon%).....|
00001730  20 76 6f 69 64 25 0d 00  ae 0c c8 8e 20 69 68 25  | void%...... ih%|
00001740  20 ca 0d 00 af 0a 20 20  c9 20 30 3a 0d 00 b0 18  | .....  . 0:....|
00001750  20 20 20 20 c8 8e 20 77  69 6e 73 61 76 65 5f 6f  |    .. winsave_o|
00001760  70 25 20 ca 0d 00 b1 38  20 20 20 20 20 20 c9 20  |p% ....8      . |
00001770  30 3a 76 6f 69 64 25 3d  a4 5f 64 6f 5f 73 61 76  |0:void%=._do_sav|
00001780  65 28 a4 73 68 65 6c 6c  5f 49 63 6f 6e 47 65 74  |e(.shell_IconGet|
00001790  44 61 74 61 28 77 68 25  2c 31 29 29 0d 00 b2 41  |Data(wh%,1))...A|
000017a0  20 20 20 20 20 20 c9 20  32 3a 76 6f 69 64 25 3d  |      . 2:void%=|
000017b0  a4 5f 64 6f 5f 73 61 76  65 5f 74 65 6d 70 6c 61  |._do_save_templa|
000017c0  74 65 28 a4 73 68 65 6c  6c 5f 49 63 6f 6e 47 65  |te(.shell_IconGe|
000017d0  74 44 61 74 61 28 77 68  25 2c 31 29 29 0d 00 b3  |tData(wh%,1))...|
000017e0  09 20 20 20 20 cb 0d 00  b4 1f 20 20 20 20 f2 73  |.    .....    .s|
000017f0  68 65 6c 6c 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |hell_CloseWindow|
00001800  28 77 68 25 29 0d 00 b5  05 cb 0d 00 b6 06 3d 30  |(wh%).........=0|
00001810  0d 00 b7 05 3a 0d 00 b8  04 0d 00 b9 46 f4 20 3d  |....:.......F. =|
00001820  3d 3d 3d 3d 20 43 6c 69  63 6b 5f 41 64 6a 75 73  |==== Click_Adjus|
00001830  74 20 72 6f 75 74 69 6e  65 73 20 3d 3d 3d 3d 3d  |t routines =====|
00001840  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00001850  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 0d  |===============.|
00001860  00 ba 04 0d 00 bb 25 dd  a4 5f 43 6c 69 63 6b 41  |......%.._ClickA|
00001870  64 6a 75 73 74 5f 49 63  6f 6e 42 61 72 28 77 68  |djust_IconBar(wh|
00001880  25 2c 69 63 6f 6e 25 29  0d 00 bc 32 77 69 6e 73  |%,icon%)...2wins|
00001890  61 76 65 5f 6f 70 25 2b  3d 31 3a e7 20 77 69 6e  |ave_op%+=1:. win|
000018a0  73 61 76 65 5f 6f 70 25  3e 35 20 8c 20 77 69 6e  |save_op%>5 . win|
000018b0  73 61 76 65 5f 6f 70 25  3d 30 0d 00 bd 3b f2 73  |save_op%=0...;.s|
000018c0  68 65 6c 6c 5f 4d 65 6e  75 54 69 63 6b 4f 6e 6c  |hell_MenuTickOnl|
000018d0  79 31 28 4d 65 6e 75 48  61 6e 64 6c 65 5f 49 63  |y1(MenuHandle_Ic|
000018e0  6f 6e 42 61 72 25 2c 77  69 6e 73 61 76 65 5f 6f  |onBar%,winsave_o|
000018f0  70 25 2b 33 29 0d 00 be  14 c8 8e 20 77 69 6e 73  |p%+3)...... wins|
00001900  61 76 65 5f 6f 70 25 20  ca 0d 00 bf 32 20 20 c9  |ave_op% ....2  .|
00001910  20 30 3a f2 73 68 65 6c  6c 5f 49 63 6f 6e 62 61  | 0:.shell_Iconba|
00001920  72 53 65 74 54 65 78 74  28 2d 31 2c 73 69 63 6f  |rSetText(-1,sico|
00001930  6e 2c 22 53 70 72 69 74  65 22 29 0d 00 c0 31 20  |n,"Sprite")...1 |
00001940  20 c9 20 31 3a f2 73 68  65 6c 6c 5f 49 63 6f 6e  | . 1:.shell_Icon|
00001950  62 61 72 53 65 74 54 65  78 74 28 2d 31 2c 73 69  |barSetText(-1,si|
00001960  63 6f 6e 2c 22 47 72 6f  75 70 22 29 0d 00 c1 34  |con,"Group")...4|
00001970  20 20 c9 20 32 3a f2 73  68 65 6c 6c 5f 49 63 6f  |  . 2:.shell_Ico|
00001980  6e 62 61 72 53 65 74 54  65 78 74 28 2d 31 2c 73  |nbarSetText(-1,s|
00001990  69 63 6f 6e 2c 22 54 65  6d 70 6c 61 74 65 22 29  |icon,"Template")|
000019a0  0d 00 c2 30 20 20 c9 20  33 3a f2 73 68 65 6c 6c  |...0  . 3:.shell|
000019b0  5f 49 63 6f 6e 62 61 72  53 65 74 54 65 78 74 28  |_IconbarSetText(|
000019c0  2d 31 2c 73 69 63 6f 6e  2c 22 49 63 6f 6e 22 29  |-1,sicon,"Icon")|
000019d0  0d 00 c3 30 20 20 c9 20  34 3a f2 73 68 65 6c 6c  |...0  . 4:.shell|
000019e0  5f 49 63 6f 6e 62 61 72  53 65 74 54 65 78 74 28  |_IconbarSetText(|
000019f0  2d 31 2c 73 69 63 6f 6e  2c 22 41 72 65 61 22 29  |-1,sicon,"Area")|
00001a00  0d 00 c4 32 20 20 c9 20  35 3a f2 73 68 65 6c 6c  |...2  . 5:.shell|
00001a10  5f 49 63 6f 6e 62 61 72  53 65 74 54 65 78 74 28  |_IconbarSetText(|
00001a20  2d 31 2c 73 69 63 6f 6e  2c 22 53 63 72 65 65 6e  |-1,sicon,"Screen|
00001a30  22 29 0d 00 c5 05 cb 0d  00 c6 06 3d 30 0d 00 c7  |").........=0...|
00001a40  05 3a 0d 00 c8 04 0d 00  c9 46 f4 20 3d 3d 3d 3d  |.:.......F. ====|
00001a50  3d 20 4d 65 6e 75 5f 53  65 6c 65 63 74 20 72 6f  |= Menu_Select ro|
00001a60  75 74 69 6e 65 73 20 3d  3d 3d 3d 3d 3d 3d 3d 3d  |utines =========|
00001a70  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00001a80  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 0d 00 ca 04  |============....|
00001a90  0d 00 cb 1d dd 20 a4 5f  4d 65 6e 75 53 65 6c 65  |..... ._MenuSele|
00001aa0  63 74 5f 48 65 6c 70 28  62 6c 6b 25 29 0d 00 cc  |ct_Help(blk%)...|
00001ab0  2b f2 73 68 65 6c 6c 5f  48 65 6c 70 57 6f 72 64  |+.shell_HelpWord|
00001ac0  28 a4 73 68 65 6c 6c 5f  47 65 74 41 70 70 4e 61  |(.shell_GetAppNa|
00001ad0  6d 65 2b 22 2e 24 22 29  0d 00 cd 06 3d 30 0d 00  |me+".$")....=0..|
00001ae0  ce 05 3a 0d 00 cf 28 dd  20 a4 5f 4d 65 6e 75 53  |..:...(. ._MenuS|
00001af0  65 6c 65 63 74 5f 47 65  74 57 69 6e 64 6f 77 53  |elect_GetWindowS|
00001b00  70 72 69 74 65 28 62 6c  6b 25 29 0d 00 d0 29 f2  |prite(blk%)...).|
00001b10  73 68 65 6c 6c 5f 4d 65  6e 75 54 69 63 6b 4f 6e  |shell_MenuTickOn|
00001b20  6c 79 32 28 4d 65 6e 75  49 74 65 6d 5f 47 65 74  |ly2(MenuItem_Get|
00001b30  57 53 25 29 0d 00 d1 11  77 69 6e 73 61 76 65 5f  |WS%)....winsave_|
00001b40  6f 70 25 3d 30 0d 00 d2  2c f2 73 68 65 6c 6c 5f  |op%=0...,.shell_|
00001b50  49 63 6f 6e 62 61 72 53  65 74 54 65 78 74 28 2d  |IconbarSetText(-|
00001b60  31 2c 73 69 63 6f 6e 2c  22 53 70 72 69 74 65 22  |1,sicon,"Sprite"|
00001b70  29 0d 00 d3 06 3d 30 0d  00 d4 05 3a 0d 00 d5 2a  |)....=0....:...*|
00001b80  dd 20 a4 5f 4d 65 6e 75  53 65 6c 65 63 74 5f 47  |. ._MenuSelect_G|
00001b90  65 74 57 69 6e 64 6f 77  54 65 6d 70 6c 61 74 65  |etWindowTemplate|
00001ba0  28 62 6c 6b 25 29 0d 00  d6 29 f2 73 68 65 6c 6c  |(blk%)...).shell|
00001bb0  5f 4d 65 6e 75 54 69 63  6b 4f 6e 6c 79 32 28 4d  |_MenuTickOnly2(M|
00001bc0  65 6e 75 49 74 65 6d 5f  47 65 74 57 54 25 29 0d  |enuItem_GetWT%).|
00001bd0  00 d7 11 77 69 6e 73 61  76 65 5f 6f 70 25 3d 32  |...winsave_op%=2|
00001be0  0d 00 d8 2e f2 73 68 65  6c 6c 5f 49 63 6f 6e 62  |.....shell_Iconb|
00001bf0  61 72 53 65 74 54 65 78  74 28 2d 31 2c 73 69 63  |arSetText(-1,sic|
00001c00  6f 6e 2c 22 54 65 6d 70  6c 61 74 65 22 29 0d 00  |on,"Template")..|
00001c10  d9 06 3d 30 0d 00 da 05  3a 0d 00 db 27 dd 20 a4  |..=0....:...'. .|
00001c20  5f 4d 65 6e 75 53 65 6c  65 63 74 5f 47 65 74 57  |_MenuSelect_GetW|
00001c30  68 6f 6c 65 53 63 72 65  65 6e 28 62 6c 6b 25 29  |holeScreen(blk%)|
00001c40  0d 00 dc 2c f2 73 68 65  6c 6c 5f 4d 65 6e 75 54  |...,.shell_MenuT|
00001c50  69 63 6b 4f 6e 6c 79 32  28 4d 65 6e 75 49 74 65  |ickOnly2(MenuIte|
00001c60  6d 5f 47 65 74 57 68 6f  6c 65 25 29 0d 00 dd 11  |m_GetWhole%)....|
00001c70  77 69 6e 73 61 76 65 5f  6f 70 25 3d 35 0d 00 de  |winsave_op%=5...|
00001c80  2c f2 73 68 65 6c 6c 5f  49 63 6f 6e 62 61 72 53  |,.shell_IconbarS|
00001c90  65 74 54 65 78 74 28 2d  31 2c 73 69 63 6f 6e 2c  |etText(-1,sicon,|
00001ca0  22 53 63 72 65 65 6e 22  29 0d 00 df 06 3d 30 0d  |"Screen")....=0.|
00001cb0  00 e0 05 3a 0d 00 e1 1d  dd 20 a4 5f 4d 65 6e 75  |...:..... ._Menu|
00001cc0  53 65 6c 65 63 74 5f 51  75 69 74 28 62 6c 6b 25  |Select_Quit(blk%|
00001cd0  29 0d 00 e2 11 5f 63 6c  6f 73 65 64 6f 77 6e 25  |)...._closedown%|
00001ce0  3d b9 0d 00 e3 06 3d 30  0d 00 e4 05 3a 0d 00 e5  |=.....=0....:...|
00001cf0  04 0d 00 e6 46 f4 20 3d  3d 3d 3d 3d 20 4d 65 6e  |....F. ===== Men|
00001d00  75 5f 57 61 72 6e 69 6e  67 20 72 6f 75 74 69 6e  |u_Warning routin|
00001d10  65 73 20 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |es =============|
00001d20  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00001d30  3d 3d 3d 3d 3d 3d 3d 0d  00 e7 04 0d 00 e8 46 f4  |=======.......F.|
00001d40  20 3d 3d 3d 3d 3d 20 4d  65 6e 75 5f 4d 61 6b 65  | ===== Menu_Make|
00001d50  72 20 72 6f 75 74 69 6e  65 73 20 3d 3d 3d 3d 3d  |r routines =====|
00001d60  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001d80  3d 0d 00 e9 04 0d 00 ea  21 dd a4 5f 4d 65 6e 75  |=.......!.._Menu|
00001d90  4d 61 6b 65 72 5f 49 63  6f 6e 42 61 72 28 77 68  |Maker_IconBar(wh|
00001da0  25 2c 69 63 25 29 0d 00  eb 3b f2 73 68 65 6c 6c  |%,ic%)...;.shell|
00001db0  5f 4d 65 6e 75 54 69 63  6b 4f 6e 6c 79 31 28 4d  |_MenuTickOnly1(M|
00001dc0  65 6e 75 48 61 6e 64 6c  65 5f 49 63 6f 6e 42 61  |enuHandle_IconBa|
00001dd0  72 25 2c 77 69 6e 73 61  76 65 5f 6f 70 25 2b 33  |r%,winsave_op%+3|
00001de0  29 0d 00 ec 06 3d 30 0d  00 ed 05 3a 0d 00 ee 04  |)....=0....:....|
00001df0  0d 00 ef 46 f4 20 3d 3d  3d 3d 3d 20 44 61 74 61  |...F. ===== Data|
00001e00  5f 4c 6f 61 64 20 72 6f  75 74 69 6e 65 73 20 3d  |_Load routines =|
00001e10  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001e30  3d 3d 3d 3d 3d 3d 0d 00  f0 04 0d 00 f1 46 f4 20  |======.......F. |
00001e40  3d 3d 3d 3d 3d 20 44 61  74 61 5f 53 61 76 65 20  |===== Data_Save |
00001e50  72 6f 75 74 69 6e 65 73  20 3d 3d 3d 3d 3d 3d 3d  |routines =======|
00001e60  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001e80  0d 00 f2 04 0d 00 f3 46  f4 20 3d 3d 3d 3d 3d 20  |.......F. ===== |
00001e90  55 73 65 72 20 61 70 70  6c 69 63 61 74 69 6f 6e  |User application|
00001ea0  20 72 6f 75 74 69 6e 65  73 20 3d 3d 3d 3d 3d 3d  | routines ======|
00001eb0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00001ec0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 0d 00 f4 04 0d 00  |==========......|
00001ed0  f5 12 dd 20 a4 5f 6d 6f  64 65 63 68 61 6e 67 65  |... ._modechange|
00001ee0  0d 00 f6 24 73 63 72 65  65 6e 5f 77 69 64 74 68  |...$screen_width|
00001ef0  25 3d 30 3a 73 63 72 65  65 6e 5f 68 65 69 67 68  |%=0:screen_heigh|
00001f00  74 25 3d 30 0d 00 f7 36  f2 67 65 74 5f 73 63 72  |t%=0...6.get_scr|
00001f10  65 65 6e 6d 61 78 63 6f  6f 72 64 73 28 73 63 72  |eenmaxcoords(scr|
00001f20  65 65 6e 5f 77 69 64 74  68 25 2c 73 63 72 65 65  |een_width%,scree|
00001f30  6e 5f 68 65 69 67 68 74  25 29 0d 00 f8 2c 73 63  |n_height%)...,sc|
00001f40  72 65 65 6e 5f 62 75 66  66 65 72 73 69 7a 65 25  |reen_buffersize%|
00001f50  3d a4 67 65 74 5f 73 63  72 65 65 6e 62 75 66 66  |=.get_screenbuff|
00001f60  65 72 73 69 7a 65 0d 00  f9 06 3d 30 0d 00 fa 05  |ersize....=0....|
00001f70  3a 0d 00 fb 1b dd 20 a4  67 65 74 5f 73 63 72 65  |:..... .get_scre|
00001f80  65 6e 62 75 66 66 65 72  73 69 7a 65 0d 00 fc 1c  |enbuffersize....|
00001f90  ea 20 69 6e 62 6c 6b 25  2c 6f 75 74 62 6c 6b 25  |. inblk%,outblk%|
00001fa0  2c 72 65 73 75 6c 74 25  0d 00 fd 24 69 6e 62 6c  |,result%...$inbl|
00001fb0  6b 25 3d a4 73 68 65 6c  6c 5f 48 65 61 70 42 6c  |k%=.shell_HeapBl|
00001fc0  6f 63 6b 46 65 74 63 68  28 31 30 29 0d 00 fe 25  |ockFetch(10)...%|
00001fd0  6f 75 74 62 6c 6b 25 3d  a4 73 68 65 6c 6c 5f 48  |outblk%=.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 ff 1c 69 6e 62  6c 6b 25 21 30 3d 31 35  |)....inblk%!0=15|
00002000  30 3a 69 6e 62 6c 6b 25  21 34 3d 2d 31 0d 01 00  |0:inblk%!4=-1...|
00002010  2b c8 99 20 22 4f 53 5f  52 65 61 64 56 64 75 56  |+.. "OS_ReadVduV|
00002020  61 72 69 61 62 6c 65 73  22 2c 69 6e 62 6c 6b 25  |ariables",inblk%|
00002030  2c 6f 75 74 62 6c 6b 25  0d 01 01 15 72 65 73 75  |,outblk%....resu|
00002040  6c 74 25 3d 6f 75 74 62  6c 6b 25 21 30 0d 01 02  |lt%=outblk%!0...|
00002050  22 f2 73 68 65 6c 6c 5f  48 65 61 70 42 6c 6f 63  |".shell_HeapBloc|
00002060  6b 52 65 74 75 72 6e 28  69 6e 62 6c 6b 25 29 0d  |kReturn(inblk%).|
00002070  01 03 23 f2 73 68 65 6c  6c 5f 48 65 61 70 42 6c  |..#.shell_HeapBl|
00002080  6f 63 6b 52 65 74 75 72  6e 28 6f 75 74 62 6c 6b  |ockReturn(outblk|
00002090  25 29 0d 01 04 0c 3d 72  65 73 75 6c 74 25 0d 01  |%)....=result%..|
000020a0  05 05 3a 0d 01 06 25 dd  20 f2 67 65 74 5f 73 63  |..:...%. .get_sc|
000020b0  72 65 65 6e 6d 61 78 63  6f 6f 72 64 73 28 f8 20  |reenmaxcoords(. |
000020c0  58 25 2c f8 20 59 25 29  0d 01 07 0d ea 20 72 65  |X%,. Y%)..... re|
000020d0  73 75 6c 74 25 0d 01 08  48 f4 20 75 73 65 20 4f  |sult%...H. use O|
000020e0  53 5f 52 65 61 64 50 6f  69 6e 74 20 74 6f 20 64  |S_ReadPoint to d|
000020f0  69 73 63 6f 76 65 72 20  73 63 72 65 65 6e 20 73  |iscover screen s|
00002100  69 7a 65 20 69 6e 20 27  65 78 74 65 72 6e 61 6c  |ize in 'external|
00002110  20 63 6f 6f 72 64 69 6e  61 74 65 73 27 0d 01 09  | coordinates'...|
00002120  11 58 25 3d 36 30 30 3a  59 25 3d 32 30 30 0d 01  |.X%=600:Y%=200..|
00002130  0a 05 f5 0d 01 0b 0b 20  20 58 25 2b 3d 31 0d 01  |.......  X%+=1..|
00002140  0c 1f 20 20 c8 99 20 26  33 32 2c 58 25 2c 30 20  |..  .. &32,X%,0 |
00002150  b8 20 2c 2c 2c 2c 72 65  73 75 6c 74 25 0d 01 0d  |. ,,,,result%...|
00002160  10 fd 20 72 65 73 75 6c  74 25 3d 2d 31 0d 01 0e  |.. result%=-1...|
00002170  05 f5 0d 01 0f 0b 20 20  59 25 2b 3d 31 0d 01 10  |......  Y%+=1...|
00002180  1f 20 20 c8 99 20 26 33  32 2c 30 2c 59 25 20 b8  |.  .. &32,0,Y% .|
00002190  20 2c 2c 2c 2c 72 65 73  75 6c 74 25 0d 01 11 10  | ,,,,result%....|
000021a0  fd 20 72 65 73 75 6c 74  25 3d 2d 31 0d 01 12 05  |. result%=-1....|
000021b0  e1 0d 01 13 05 3a 0d 01  14 04 0d 01 15 17 dd 20  |.....:......... |
000021c0  f2 53 61 76 65 41 73 53  70 72 69 74 65 46 69 6c  |.SaveAsSpriteFil|
000021d0  65 0d 01 16 0b ea 20 76  6f 69 64 25 0d 01 17 15  |e..... void%....|
000021e0  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |.. "Hourglass_On|
000021f0  22 0d 01 18 18 e7 20 66  6c 61 67 5f 42 72 69 6e  |"..... flag_Brin|
00002200  67 54 6f 54 6f 70 25 20  8c 0d 01 19 43 20 20 f4  |gToTop% ....C  .|
00002210  20 47 72 61 62 62 69 6e  67 20 6f 66 20 73 70 72  | Grabbing of spr|
00002220  69 74 65 20 6d 75 73 74  20 62 65 20 64 65 66 65  |ite must be defe|
00002230  72 72 65 64 20 75 6e 74  69 6c 20 74 68 65 20 74  |rred until the t|
00002240  61 72 67 65 74 20 77 69  6e 64 6f 77 0d 01 1a 46  |arget window...F|
00002250  20 20 f4 20 68 61 73 20  62 65 65 6e 20 62 72 6f  |  . has been bro|
00002260  75 67 68 74 20 74 6f 20  74 68 65 20 74 6f 70 20  |ught to the top |
00002270  6f 66 20 74 68 65 20 73  74 61 63 6b 2e 20 54 68  |of the stack. Th|
00002280  65 72 65 66 6f 72 65 20  73 65 74 20 61 20 66 6c  |erefore set a fl|
00002290  61 67 0d 01 1b 4a 20 20  f4 20 61 6e 64 20 75 73  |ag...J  . and us|
000022a0  65 20 69 74 20 74 6f 20  63 68 65 63 6b 20 74 68  |e it to check th|
000022b0  65 20 74 61 72 67 65 74  20 77 69 6e 64 6f 77 20  |e target window |
000022c0  6f 6e 20 74 68 65 20 6e  65 78 74 20 6e 75 6c 6c  |on the next null|
000022d0  20 77 69 6d 70 20 70 6f  6c 6c 2e 2e 0d 01 1c 2c  | wimp poll.....,|
000022e0  20 20 f2 73 68 65 6c 6c  5f 57 69 6e 64 6f 77 42  |  .shell_WindowB|
000022f0  72 69 6e 67 54 6f 54 6f  70 28 74 61 72 67 65 74  |ringToTop(target|
00002300  77 69 6e 64 6f 77 25 29  0d 01 1d 19 20 20 66 6c  |window%)....  fl|
00002310  61 67 5f 47 72 61 62 50  65 6e 64 69 6e 67 25 3d  |ag_GrabPending%=|
00002320  b9 0d 01 1e 05 cc 0d 01  1f 39 20 20 f4 20 42 72  |.........9  . Br|
00002330  69 6e 67 54 6f 54 6f 70  20 66 6c 61 67 20 6e 6f  |ingToTop flag no|
00002340  74 20 73 65 74 2c 20 73  6f 20 6a 75 73 74 20 73  |t set, so just s|
00002350  61 76 65 20 69 74 20 61  6e 79 77 61 79 2e 2e 0d  |ave it anyway...|
00002360  01 20 19 20 20 66 6c 61  67 5f 47 72 61 62 50 65  |. .  flag_GrabPe|
00002370  6e 64 69 6e 67 25 3d a3  0d 01 21 11 20 20 f2 53  |nding%=...!.  .S|
00002380  61 76 65 53 70 72 69 74  65 0d 01 22 29 20 20 76  |aveSprite..")  v|
00002390  6f 69 64 25 3d a4 5f 50  72 65 4f 70 65 6e 58 66  |oid%=._PreOpenXf|
000023a0  65 72 28 78 66 65 72 25  2c 22 73 70 72 69 74 65  |er(xfer%,"sprite|
000023b0  22 29 0d 01 23 24 20 20  f2 73 68 65 6c 6c 5f 4f  |")..#$  .shell_O|
000023c0  70 65 6e 57 69 6e 64 6f  77 53 74 61 74 69 63 28  |penWindowStatic(|
000023d0  78 66 65 72 25 29 0d 01  24 05 cd 0d 01 25 16 c8  |xfer%)..$....%..|
000023e0  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |. "Hourglass_Off|
000023f0  22 0d 01 26 05 e1 0d 01  27 05 3a 0d 01 28 11 dd  |"..&....'.:..(..|
00002400  20 f2 53 61 76 65 53 70  72 69 74 65 0d 01 29 25  | .SaveSprite..)%|
00002410  f4 20 41 63 74 75 61 6c  6c 79 20 73 61 76 65 20  |. Actually save |
00002420  74 68 65 20 73 70 72 69  74 65 20 66 69 6c 65 2e  |the sprite file.|
00002430  2e 0d 01 2a 0f ea 20 65  73 74 5f 73 69 7a 65 25  |...*.. est_size%|
00002440  0d 01 2b 17 5f 51 25 21  30 3d 74 61 72 67 65 74  |..+._Q%!0=target|
00002450  77 69 6e 64 6f 77 25 0d  01 2c 1a e7 20 66 6c 61  |window%..,.. fla|
00002460  67 5f 43 6f 6e 74 65 6e  74 73 4f 6e 6c 79 25 20  |g_ContentsOnly% |
00002470  8c 0d 01 2d 23 20 20 c8  99 20 22 57 69 6d 70 5f  |...-#  .. "Wimp_|
00002480  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00002490  2c 5f 51 25 0d 01 2e 05  cc 0d 01 2f 25 20 20 c8  |,_Q%......./%  .|
000024a0  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
000024b0  77 4f 75 74 6c 69 6e 65  22 2c 2c 5f 51 25 0d 01  |wOutline",,_Q%..|
000024c0  30 05 cd 0d 01 31 42 65  73 74 5f 73 69 7a 65 25  |0....1Best_size%|
000024d0  3d a4 67 65 74 5f 65 73  74 5f 73 61 76 65 73 69  |=.get_est_savesi|
000024e0  7a 65 28 5f 51 25 21 34  2c 5f 51 25 21 38 2c 28  |ze(_Q%!4,_Q%!8,(|
000024f0  5f 51 25 21 31 32 29 2d  31 2c 28 5f 51 25 21 31  |_Q%!12)-1,(_Q%!1|
00002500  36 29 2d 31 29 0d 01 32  2f 73 61 76 65 5f 62 75  |6)-1)..2/save_bu|
00002510  66 66 25 3d a4 73 68 65  6c 6c 5f 48 65 61 70 42  |ff%=.shell_HeapB|
00002520  6c 6f 63 6b 46 65 74 63  68 28 65 73 74 5f 73 69  |lockFetch(est_si|
00002530  7a 65 25 29 0d 01 33 4a  73 61 76 65 5f 62 75 66  |ze%)..3Jsave_buf|
00002540  66 25 21 30 3d 6f 75 74  62 6c 6b 25 21 30 3a 73  |f%!0=outblk%!0:s|
00002550  61 76 65 5f 62 75 66 66  25 21 34 3d 30 3a 73 61  |ave_buff%!4=0:sa|
00002560  76 65 5f 62 75 66 66 25  21 38 3d 31 36 3a 73 61  |ve_buff%!8=16:sa|
00002570  76 65 5f 62 75 66 66 25  21 31 32 3d 31 36 0d 01  |ve_buff%!12=16..|
00002580  34 62 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |4b.. "OS_SpriteO|
00002590  70 22 2c 32 37 32 2c 73  61 76 65 5f 62 75 66 66  |p",272,save_buff|
000025a0  25 2c 6e 61 6d 65 5f 62  75 66 66 25 2c 66 6c 61  |%,name_buff%,fla|
000025b0  67 5f 57 69 74 68 50 61  6c 65 74 74 65 25 2c 5f  |g_WithPalette%,_|
000025c0  51 25 21 34 2c 5f 51 25  21 38 2c 28 5f 51 25 21  |Q%!4,_Q%!8,(_Q%!|
000025d0  31 32 29 2d 31 2c 28 5f  51 25 21 31 36 29 2d 31  |12)-1,(_Q%!16)-1|
000025e0  0d 01 35 05 e1 0d 01 36  05 3a 0d 01 37 23 dd a4  |..5....6.:..7#..|
000025f0  67 65 74 5f 65 73 74 5f  73 61 76 65 73 69 7a 65  |get_est_savesize|
00002600  28 6c 25 2c 62 25 2c 72  25 2c 74 25 29 0d 01 38  |(l%,b%,r%,t%)..8|
00002610  1d ea 20 73 61 76 65 5f  61 72 65 61 25 2c 73 63  |.. save_area%,sc|
00002620  72 65 65 6e 5f 61 72 65  61 25 0d 01 39 11 e7 20  |reen_area%..9.. |
00002630  6c 25 3c 30 20 8c 20 6c  25 3d 30 0d 01 3a 1e 73  |l%<0 . l%=0..:.s|
00002640  61 76 65 5f 61 72 65 61  25 3d 28 72 25 2d 6c 25  |ave_area%=(r%-l%|
00002650  29 2a 28 74 25 2d 62 25  29 0d 01 3b 2d 73 63 72  |)*(t%-b%)..;-scr|
00002660  65 65 6e 5f 61 72 65 61  25 3d 73 63 72 65 65 6e  |een_area%=screen|
00002670  5f 77 69 64 74 68 25 2a  73 63 72 65 65 6e 5f 68  |_width%*screen_h|
00002680  65 69 67 68 74 25 0d 01  3c 64 f2 73 68 65 6c 6c  |eight%..<d.shell|
00002690  5f 54 72 61 63 65 66 30  28 22 42 75 66 66 65 72  |_Tracef0("Buffer|
000026a0  20 73 69 7a 65 20 63 6c  61 69 6d 65 64 20 3d 20  | size claimed = |
000026b0  22 2b c3 28 a8 28 28 73  63 72 65 65 6e 5f 62 75  |"+.(.((screen_bu|
000026c0  66 66 65 72 73 69 7a 65  25 2a 73 61 76 65 5f 61  |ffersize%*save_a|
000026d0  72 65 61 25 29 2f 73 63  72 65 65 6e 5f 61 72 65  |rea%)/screen_are|
000026e0  61 25 29 2b 32 30 34 30  29 29 0d 01 3d 3b 3d 28  |a%)+2040))..=;=(|
000026f0  a8 28 28 73 63 72 65 65  6e 5f 62 75 66 66 65 72  |.((screen_buffer|
00002700  73 69 7a 65 25 2a 73 61  76 65 5f 61 72 65 61 25  |size%*save_area%|
00002710  29 2f 73 63 72 65 65 6e  5f 61 72 65 61 25 29 29  |)/screen_area%))|
00002720  2b 32 30 34 38 0d 01 3e  05 3a 0d 01 3f 1d dd 20  |+2048..>.:..?.. |
00002730  f2 73 68 65 6c 6c 5f 44  6f 42 61 63 6b 67 72 6f  |.shell_DoBackgro|
00002740  75 6e 64 54 61 73 6b 0d  01 40 0b ea 20 76 6f 69  |undTask..@.. voi|
00002750  64 25 0d 01 41 19 e7 20  66 6c 61 67 5f 47 72 61  |d%..A.. flag_Gra|
00002760  62 50 65 6e 64 69 6e 67  25 20 8c 0d 01 42 2d 20  |bPending% ...B- |
00002770  20 e7 20 a4 73 68 65 6c  6c 5f 57 69 6e 64 6f 77  | . .shell_Window|
00002780  49 73 4f 6e 54 6f 70 28  74 61 72 67 65 74 77 69  |IsOnTop(targetwi|
00002790  6e 64 6f 77 25 29 20 8c  0d 01 43 1b 20 20 20 20  |ndow%) ...C.    |
000027a0  66 6c 61 67 5f 47 72 61  62 50 65 6e 64 69 6e 67  |flag_GrabPending|
000027b0  25 3d a3 0d 01 44 2e 20  20 20 20 f4 20 47 72 61  |%=...D.    . Gra|
000027c0  62 20 73 70 72 69 74 65  20 61 6e 64 20 6f 70 65  |b sprite and ope|
000027d0  6e 20 66 69 6c 65 20 73  61 76 65 20 62 6f 78 2e  |n file save box.|
000027e0  2e 0d 01 45 13 20 20 20  20 f2 53 61 76 65 53 70  |...E.    .SaveSp|
000027f0  72 69 74 65 0d 01 46 2b  20 20 20 20 76 6f 69 64  |rite..F+    void|
00002800  25 3d a4 5f 50 72 65 4f  70 65 6e 58 66 65 72 28  |%=._PreOpenXfer(|
00002810  78 66 65 72 25 2c 22 73  70 72 69 74 65 22 29 0d  |xfer%,"sprite").|
00002820  01 47 26 20 20 20 20 f2  73 68 65 6c 6c 5f 4f 70  |.G&    .shell_Op|
00002830  65 6e 57 69 6e 64 6f 77  53 74 61 74 69 63 28 78  |enWindowStatic(x|
00002840  66 65 72 25 29 0d 01 48  07 20 20 cc 0d 01 49 30  |fer%)..H.  ...I0|
00002850  20 20 20 20 f4 20 57 69  6e 64 6f 77 20 69 73 20  |    . Window is |
00002860  6e 6f 74 20 6f 6e 20 74  6f 70 2c 20 67 6f 20 72  |not on top, go r|
00002870  6f 75 6e 64 20 61 67 61  69 6e 2e 2e 0d 01 4a 34  |ound again....J4|
00002880  20 20 20 20 f2 73 68 65  6c 6c 5f 54 72 61 63 65  |    .shell_Trace|
00002890  66 30 28 22 44 6f 42 61  63 6b 67 72 6f 75 6e 64  |f0("DoBackground|
000028a0  54 61 73 6b 3a 57 61 69  74 69 6e 67 2e 2e 22 29  |Task:Waiting..")|
000028b0  0d 01 4b 07 20 20 cd 0d  01 4c 05 cd 0d 01 4d 05  |..K.  ...L....M.|
000028c0  e1 0d 01 4e 05 3a 0d 01  4f 1c dd a4 5f 50 72 65  |...N.:..O..._Pre|
000028d0  70 61 72 65 46 6f 72 47  72 61 62 28 76 6f 69 64  |pareForGrab(void|
000028e0  25 29 0d 01 50 38 e7 20  73 61 76 65 5f 62 75 66  |%)..P8. save_buf|
000028f0  66 25 3c 3e 30 20 8c 20  f2 73 68 65 6c 6c 5f 48  |f%<>0 . .shell_H|
00002900  65 61 70 42 6c 6f 63 6b  52 65 74 75 72 6e 28 73  |eapBlockReturn(s|
00002910  61 76 65 5f 62 75 66 66  25 29 0d 01 51 3d f4 20  |ave_buff%)..Q=. |
00002920  66 69 6e 64 20 68 61 6e  64 6c 65 20 6f 66 20 77  |find handle of w|
00002930  69 6e 64 6f 77 20 75 6e  64 65 72 20 70 6f 69 6e  |indow under poin|
00002940  74 65 72 20 28 62 65 66  6f 72 65 20 77 65 20 6f  |ter (before we o|
00002950  70 65 6e 20 74 68 65 0d  01 52 13 f4 20 73 61 76  |pen the..R.. sav|
00002960  65 20 61 73 20 62 6f 78  21 21 0d 01 53 21 c8 99  |e as box!!..S!..|
00002970  20 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  | "Wimp_GetPointe|
00002980  72 49 6e 66 6f 22 2c 2c  5f 51 25 0d 01 54 18 74  |rInfo",,_Q%..T.t|
00002990  61 72 67 65 74 77 69 6e  64 6f 77 25 3d 5f 51 25  |argetwindow%=_Q%|
000029a0  21 31 32 0d 01 55 14 c8  8e 20 77 69 6e 73 61 76  |!12..U... winsav|
000029b0  65 5f 6f 70 25 20 ca 0d  01 56 1b 20 20 c9 20 30  |e_op% ...V.  . 0|
000029c0  3a f2 53 61 76 65 41 73  53 70 72 69 74 65 46 69  |:.SaveAsSpriteFi|
000029d0  6c 65 0d 01 57 0a 20 20  c9 20 31 3a 0d 01 58 1d  |le..W.  . 1:..X.|
000029e0  20 20 c9 20 32 3a f2 53  61 76 65 41 73 54 65 6d  |  . 2:.SaveAsTem|
000029f0  70 6c 61 74 65 46 69 6c  65 0d 01 59 0a 20 20 c9  |plateFile..Y.  .|
00002a00  20 33 3a 0d 01 5a 0a 20  20 c9 20 34 3a 0d 01 5b  | 3:..Z.  . 4:..[|
00002a10  0a 20 20 c9 20 35 3a 0d  01 5c 1d 20 20 20 20 e7  |.  . 5:..\.    .|
00002a20  20 66 6c 61 67 5f 57 69  74 68 50 61 6c 65 74 74  | flag_WithPalett|
00002a30  65 25 20 8c 0d 01 5d 21  20 20 20 20 20 20 ff 28  |e% ...]!      .(|
00002a40  22 53 63 72 65 65 6e 53  61 76 65 20 22 2b 24 70  |"ScreenSave "+$p|
00002a50  61 74 68 25 29 0d 01 5e  09 20 20 20 20 cc 0d 01  |ath%)..^.    ...|
00002a60  5f 09 20 20 20 20 cd 0d  01 60 07 20 20 7f 0d 01  |_.    ...`.  ...|
00002a70  61 07 20 20 cb 0d 01 62  06 3d 30 0d 01 63 05 3a  |a.  ...b.=0..c.:|
00002a80  0d 01 64 13 dd 20 f2 72  65 61 64 5f 63 68 6f 69  |..d.. .read_choi|
00002a90  63 65 73 0d 01 65 08 ea  20 58 25 0d 01 66 36 e7  |ces..e.. X%..f6.|
00002aa0  20 a4 73 68 65 6c 6c 5f  46 69 6c 65 45 78 69 73  | .shell_FileExis|
00002ab0  74 73 28 a4 73 68 65 6c  6c 5f 47 65 74 41 70 70  |ts(.shell_GetApp|
00002ac0  44 69 72 2b 22 2e 43 68  6f 69 63 65 73 22 29 20  |Dir+".Choices") |
00002ad0  8c 0d 01 67 27 20 20 58  25 3d 8e 28 a4 73 68 65  |...g'  X%=.(.she|
00002ae0  6c 6c 5f 47 65 74 41 70  70 44 69 72 2b 22 2e 43  |ll_GetAppDir+".C|
00002af0  68 6f 69 63 65 73 22 29  0d 01 68 1d 20 20 e8 23  |hoices")..h.  .#|
00002b00  20 58 25 2c 66 6c 61 67  5f 57 69 74 68 50 61 6c  | X%,flag_WithPal|
00002b10  65 74 74 65 25 0d 01 69  1c 20 20 e8 23 20 58 25  |ette%..i.  .# X%|
00002b20  2c 66 6c 61 67 5f 42 72  69 6e 67 54 6f 54 6f 70  |,flag_BringToTop|
00002b30  25 0d 01 6a 1e 20 20 e8  23 20 58 25 2c 66 6c 61  |%..j.  .# X%,fla|
00002b40  67 5f 43 6f 6e 74 65 6e  74 73 4f 6e 6c 79 25 0d  |g_ContentsOnly%.|
00002b50  01 6b 0a 20 20 d9 23 58  25 0d 01 6c 05 cc 0d 01  |.k.  .#X%..l....|
00002b60  6d 41 20 20 66 6c 61 67  5f 57 69 74 68 50 61 6c  |mA  flag_WithPal|
00002b70  65 74 74 65 25 3d a3 3a  66 6c 61 67 5f 42 72 69  |ette%=.:flag_Bri|
00002b80  6e 67 54 6f 54 6f 70 25  3d a3 3a 66 6c 61 67 5f  |ngToTop%=.:flag_|
00002b90  43 6f 6e 74 65 6e 74 73  4f 6e 6c 79 25 3d a3 0d  |ContentsOnly%=..|
00002ba0  01 6e 05 cd 0d 01 6f 05  e1 0d 01 70 05 3a 0d 01  |.n....o....p.:..|
00002bb0  71 31 dd a4 64 69 72 5f  72 65 61 64 28 6e 61 6d  |q1..dir_read(nam|
00002bc0  65 24 28 29 2c 64 69 72  5f 6e 61 6d 65 24 2c 66  |e$(),dir_name$,f|
00002bd0  69 6c 65 5f 6e 61 6d 65  24 2c 62 6c 6b 25 29 0d  |ile_name$,blk%).|
00002be0  01 72 19 ea 20 6f 66 66  73 65 74 25 2c 6e 65 77  |.r.. offset%,new|
00002bf0  5f 6f 66 66 73 65 74 25  0d 01 73 0b ea 20 6c 6f  |_offset%..s.. lo|
00002c00  6f 70 25 0d 01 74 10 63  6f 75 6e 74 65 72 25 20  |op%..t.counter% |
00002c10  3d 20 30 0d 01 75 34 6f  66 66 73 65 74 25 3d 30  |= 0..u4offset%=0|
00002c20  3a 6e 65 77 5f 6f 66 66  73 65 74 25 3d 30 3a 74  |:new_offset%=0:t|
00002c30  6f 74 61 6c 5f 72 65 61  64 25 3d 30 3a 6e 72 5f  |otal_read%=0:nr_|
00002c40  72 65 61 64 25 3d 30 0d  01 76 05 f5 0d 01 77 1b  |read%=0..v....w.|
00002c50  20 20 6f 66 66 73 65 74  25 20 3d 20 6e 65 77 5f  |  offset% = new_|
00002c60  6f 66 66 73 65 74 25 0d  01 78 57 20 20 c8 99 20  |offset%..xW  .. |
00002c70  22 4f 53 5f 47 42 50 42  22 2c 39 2c 64 69 72 5f  |"OS_GBPB",9,dir_|
00002c80  6e 61 6d 65 24 2c 62 6c  6b 25 2c 37 37 2c 6f 66  |name$,blk%,77,of|
00002c90  66 73 65 74 25 2c 32 35  36 2c 66 69 6c 65 5f 6e  |fset%,256,file_n|
00002ca0  61 6d 65 24 20 b8 20 2c  2c 2c 6e 72 5f 72 65 61  |ame$ . ,,,nr_rea|
00002cb0  64 25 2c 6e 65 77 5f 6f  66 66 73 65 74 25 0d 01  |d%,new_offset%..|
00002cc0  79 1d 20 20 74 6f 74 61  6c 5f 72 65 61 64 25 20  |y.  total_read% |
00002cd0  2b 3d 20 6e 72 5f 72 65  61 64 25 0d 01 7a 14 20  |+= nr_read%..z. |
00002ce0  20 e7 20 6e 72 5f 72 65  61 64 25 3e 30 20 8c 0d  | . nr_read%>0 ..|
00002cf0  01 7b 0e 20 20 20 20 70  74 72 25 3d 30 0d 01 7c  |.{.    ptr%=0..||
00002d00  29 20 20 20 20 e3 20 6c  6f 6f 70 25 20 3d 20 6f  |)    . loop% = o|
00002d10  66 66 73 65 74 25 20 b8  20 74 6f 74 61 6c 5f 72  |ffset% . total_r|
00002d20  65 61 64 25 2d 31 0d 01  7d 32 20 20 20 20 20 20  |ead%-1..}2      |
00002d30  6e 61 6d 65 24 28 6c 6f  6f 70 25 29 3d a4 6d 65  |name$(loop%)=.me|
00002d40  6d 5f 74 6f 5f 73 74 72  69 6e 67 28 62 6c 6b 25  |m_to_string(blk%|
00002d50  2c 70 74 72 25 2c 30 29  0d 01 7e 21 20 20 20 20  |,ptr%,0)..~!    |
00002d60  20 20 70 74 72 25 2b 3d  a9 28 6e 61 6d 65 24 28  |  ptr%+=.(name$(|
00002d70  6c 6f 6f 70 25 29 29 2b  31 0d 01 7f 0f 20 20 20  |loop%))+1....   |
00002d80  20 ed 20 6c 6f 6f 70 25  0d 01 80 07 20 20 cd 0d  | . loop%....  ..|
00002d90  01 81 16 fd 20 6e 65 77  5f 6f 66 66 73 65 74 25  |.... new_offset%|
00002da0  20 3d 20 2d 31 0d 01 82  11 3d 20 74 6f 74 61 6c  | = -1....= total|
00002db0  5f 72 65 61 64 25 0d 01  83 05 3a 0d 01 84 12 dd  |_read%....:.....|
00002dc0  a4 67 65 74 5f 66 69 6c  65 6e 61 6d 65 0d 01 85  |.get_filename...|
00002dd0  12 ea 20 6e 72 24 2c 62  6c 6b 25 2c 6e 72 25 0d  |.. nr$,blk%,nr%.|
00002de0  01 86 23 62 6c 6b 25 3d  a4 73 68 65 6c 6c 5f 48  |..#blk%=.shell_H|
00002df0  65 61 70 42 6c 6f 63 6b  46 65 74 63 68 28 32 35  |eapBlockFetch(25|
00002e00  36 29 0d 01 87 3f 6e 72  25 3d a4 64 69 72 5f 72  |6)...?nr%=.dir_r|
00002e10  65 61 64 28 66 6e 61 6d  65 24 28 29 2c a4 73 68  |ead(fname$(),.sh|
00002e20  65 6c 6c 5f 47 65 74 41  70 70 44 61 74 61 44 69  |ell_GetAppDataDi|
00002e30  72 2c 22 73 70 72 69 74  65 2a 22 2c 62 6c 6b 25  |r,"sprite*",blk%|
00002e40  29 0d 01 88 0d e7 20 6e  72 25 3e 30 20 8c 0d 01  |)..... nr%>0 ...|
00002e50  89 34 20 20 f2 73 68 65  6c 6c 5f 54 72 61 63 65  |.4  .shell_Trace|
00002e60  66 30 28 22 66 69 6c 65  73 20 66 6f 75 6e 64 20  |f0("files found |
00002e70  2d 20 22 2b 66 6e 61 6d  65 24 28 6e 72 25 2d 31  |- "+fname$(nr%-1|
00002e80  29 29 0d 01 8a 22 20 20  f2 73 68 65 6c 6c 5f 48  |))..."  .shell_H|
00002e90  65 61 70 42 6c 6f 63 6b  52 65 74 75 72 6e 28 62  |eapBlockReturn(b|
00002ea0  6c 6b 25 29 0d 01 8b 1e  20 20 6e 72 25 3d bb 28  |lk%)....  nr%=.(|
00002eb0  c1 66 6e 61 6d 65 24 28  6e 72 25 2d 31 29 2c 37  |.fname$(nr%-1),7|
00002ec0  29 29 0d 01 8c 05 cd 0d  01 8d 22 3d 22 73 70 72  |))........"="spr|
00002ed0  69 74 65 22 2b c2 22 30  30 30 30 30 22 2b c3 28  |ite"+."00000"+.(|
00002ee0  6e 72 25 2b 31 29 2c 33  29 0d 01 8e 05 3a 0d 01  |nr%+1),3)....:..|
00002ef0  8f 23 dd 20 a4 5f 64 6f  5f 73 61 76 65 5f 74 65  |.#. ._do_save_te|
00002f00  6d 70 6c 61 74 65 28 66  75 6c 6c 6e 61 6d 65 24  |mplate(fullname$|
00002f10  29 0d 01 90 3a ea 20 49  25 2c 66 72 65 65 66 25  |)...:. I%,freef%|
00002f20  2c 74 66 5f 68 64 72 25  2c 74 66 5f 66 73 69 7a  |,tf_hdr%,tf_fsiz|
00002f30  65 25 2c 4a 25 2c 74 66  5f 64 61 74 61 70 74 72  |e%,J%,tf_dataptr|
00002f40  25 2c 74 66 5f 69 6e 64  65 78 25 0d 01 91 35 ea  |%,tf_index%...5.|
00002f50  20 74 66 5f 64 61 74 61  73 69 7a 65 25 2c 74 66  | tf_datasize%,tf|
00002f60  5f 68 61 6e 64 6c 65 25  2c 66 6f 6e 74 62 69 6e  |_handle%,fontbin|
00002f70  64 69 6e 67 25 2c 69 6e  64 65 78 64 61 74 61 25  |ding%,indexdata%|
00002f80  0d 01 92 28 f4 20 64 69  73 63 61 72 64 20 61 6e  |...(. discard an|
00002f90  79 20 65 78 69 73 74 69  6e 67 20 66 69 6c 65 20  |y existing file |
00002fa0  62 75 66 66 65 72 2e 2e  0d 01 93 38 e7 20 73 61  |buffer.....8. sa|
00002fb0  76 65 5f 62 75 66 66 25  3c 3e 30 20 8c 20 f2 73  |ve_buff%<>0 . .s|
00002fc0  68 65 6c 6c 5f 48 65 61  70 42 6c 6f 63 6b 52 65  |hell_HeapBlockRe|
00002fd0  74 75 72 6e 28 73 61 76  65 5f 62 75 66 66 25 29  |turn(save_buff%)|
00002fe0  0d 01 94 2b 66 6f 6e 74  62 69 6e 64 69 6e 67 25  |...+fontbinding%|
00002ff0  3d a4 73 68 65 6c 6c 5f  48 65 61 70 42 6c 6f 63  |=.shell_HeapBloc|
00003000  6b 46 65 74 63 68 28 32  35 35 29 0d 01 95 30 69  |kFetch(255)...0i|
00003010  6e 64 65 78 64 61 74 61  25 20 20 3d a4 73 68 65  |ndexdata%  =.she|
00003020  6c 6c 5f 48 65 61 70 42  6c 6f 63 6b 46 65 74 63  |ll_HeapBlockFetc|
00003030  68 28 33 32 2a 32 34 2b  32 30 29 0d 01 96 24 e3  |h(32*24+20)...$.|
00003040  20 49 25 3d 30 20 b8 20  32 35 35 3a 66 6f 6e 74  | I%=0 . 255:font|
00003050  62 69 6e 64 69 6e 67 25  3f 49 25 3d 30 3a ed 0d  |binding%?I%=0:..|
00003060  01 97 31 66 72 65 65 66  25 3d 31 20 20 3a 20 f4  |..1freef%=1  : .|
00003070  20 69 6e 74 65 72 6e 61  6c 20 66 6f 6e 74 20 68  | internal font h|
00003080  61 6e 64 6c 65 20 61 6c  6c 6f 63 61 74 69 6f 6e  |andle allocation|
00003090  0d 01 98 20 74 66 5f 68  64 72 25 3d 31 36 3a 74  |... tf_hdr%=16:t|
000030a0  66 5f 66 73 69 7a 65 25  3d 34 38 3a 4a 25 3d 31  |f_fsize%=48:J%=1|
000030b0  0d 01 99 1b 74 66 5f 68  61 6e 64 6c 65 25 3d ae  |....tf_handle%=.|
000030c0  28 66 75 6c 6c 6e 61 6d  65 24 29 0d 01 9a 1f 74  |(fullname$)....t|
000030d0  66 5f 64 61 74 61 70 74  72 25 3d 74 66 5f 68 64  |f_dataptr%=tf_hd|
000030e0  72 25 2b 4a 25 2a 32 34  2b 34 0d 01 9b 28 e3 20  |r%+J%*24+4...(. |
000030f0  49 25 3d 30 20 b8 20 74  66 5f 68 64 72 25 2d 31  |I%=0 . tf_hdr%-1|
00003100  3a 69 6e 64 65 78 64 61  74 61 25 3f 49 25 3d 30  |:indexdata%?I%=0|
00003110  3a ed 0d 01 9c 20 74 66  5f 69 6e 64 65 78 25 3d  |:.... tf_index%=|
00003120  69 6e 64 65 78 64 61 74  61 25 2b 74 66 5f 68 64  |indexdata%+tf_hd|
00003130  72 25 0d 01 9d 11 e3 20  49 25 3d 30 20 b8 20 4a  |r%..... I%=0 . J|
00003140  25 2d 31 0d 01 9e 36 20  20 5f 51 25 21 30 3d 74  |%-1...6  _Q%!0=t|
00003150  61 72 67 65 74 77 69 6e  64 6f 77 25 3a c8 99 20  |argetwindow%:.. |
00003160  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 49  |"Wimp_GetWindowI|
00003170  6e 66 6f 22 2c 2c 5f 51  25 0d 01 9f 3a 20 20 5f  |nfo",,_Q%...:  _|
00003180  51 25 21 36 38 3d 31 3a  f4 20 61 73 73 75 6d 65  |Q%!68=1:. assume|
00003190  20 63 6f 6d 6d 6f 6e 20  73 70 72 69 74 65 20 61  | common sprite a|
000031a0  72 65 61 20 77 68 65 6e  20 72 65 2d 6c 6f 61 64  |rea when re-load|
000031b0  69 6e 67 0d 01 a0 1f 20  20 74 66 5f 64 61 74 61  |ing....  tf_data|
000031c0  73 69 7a 65 25 3d 38 38  2b 33 32 2a 5f 51 25 21  |size%=88+32*_Q%!|
000031d0  38 38 0d 01 a1 21 20 20  f2 70 72 6f 63 65 73 73  |88...!  .process|
000031e0  69 63 6f 6e 28 5f 51 25  2b 36 30 2c 5f 51 25 2b  |icon(_Q%+60,_Q%+|
000031f0  37 36 29 0d 01 a2 1e 20  20 e7 20 5f 51 25 21 38  |76)....  . _Q%!8|
00003200  38 3e 30 20 f2 70 72 6f  63 65 73 73 69 63 6f 6e  |8>0 .processicon|
00003210  73 0d 01 a3 3e 20 20 c8  99 20 22 4f 53 5f 47 42  |s...>  .. "OS_GB|
00003220  50 42 22 2c 31 2c 74 66  5f 68 61 6e 64 6c 65 25  |PB",1,tf_handle%|
00003230  2c 5f 51 25 2b 34 2c 74  66 5f 64 61 74 61 73 69  |,_Q%+4,tf_datasi|
00003240  7a 65 25 2c 74 66 5f 64  61 74 61 70 74 72 25 0d  |ze%,tf_dataptr%.|
00003250  01 a4 1d 20 20 74 66 5f  69 6e 64 65 78 25 21 30  |...  tf_index%!0|
00003260  3d 74 66 5f 64 61 74 61  70 74 72 25 0d 01 a5 1e  |=tf_dataptr%....|
00003270  20 20 74 66 5f 69 6e 64  65 78 25 21 34 3d 74 66  |  tf_index%!4=tf|
00003280  5f 64 61 74 61 73 69 7a  65 25 0d 01 a6 13 20 20  |_datasize%....  |
00003290  74 66 5f 69 6e 64 65 78  25 21 38 3d 31 0d 01 a7  |tf_index%!8=1...|
000032a0  22 20 20 e7 20 66 75 6c  6c 6e 61 6d 65 24 3d 22  |"  . fullname$="|
000032b0  3c 57 69 6d 70 24 53 63  72 61 70 3e 22 20 8c 0d  |<Wimp$Scrap>" ..|
000032c0  01 a8 21 20 20 20 20 24  28 74 66 5f 69 6e 64 65  |..!    $(tf_inde|
000032d0  78 25 2b 31 32 29 3d 22  67 72 61 62 62 65 64 22  |x%+12)="grabbed"|
000032e0  0d 01 a9 07 20 20 cc 0d  01 aa 2e 20 20 20 20 24  |....  .....    $|
000032f0  28 74 66 5f 69 6e 64 65  78 25 2b 31 32 29 3d a4  |(tf_index%+12)=.|
00003300  73 68 65 6c 6c 5f 4c 65  61 66 28 66 75 6c 6c 6e  |shell_Leaf(fulln|
00003310  61 6d 65 24 29 0d 01 ab  07 20 20 cd 0d 01 ac 2d  |ame$)....  ....-|
00003320  20 20 74 66 5f 69 6e 64  65 78 25 2b 3d 32 34 3a  |  tf_index%+=24:|
00003330  74 66 5f 64 61 74 61 70  74 72 25 2b 3d 74 66 5f  |tf_dataptr%+=tf_|
00003340  64 61 74 61 73 69 7a 65  25 0d 01 ad 08 ed 20 49  |datasize%..... I|
00003350  25 0d 01 ae 10 21 74 66  5f 69 6e 64 65 78 25 3d  |%....!tf_index%=|
00003360  30 0d 01 af 37 e7 20 66  72 65 65 66 25 3d 31 20  |0...7. freef%=1 |
00003370  21 69 6e 64 65 78 64 61  74 61 25 3d 2d 31 20 8b  |!indexdata%=-1 .|
00003380  20 21 69 6e 64 65 78 64  61 74 61 25 3d 74 66 5f  | !indexdata%=tf_|
00003390  64 61 74 61 70 74 72 25  0d 01 b0 41 c8 99 20 22  |dataptr%...A.. "|
000033a0  4f 53 5f 47 42 50 42 22  2c 31 2c 74 66 5f 68 61  |OS_GBPB",1,tf_ha|
000033b0  6e 64 6c 65 25 2c 69 6e  64 65 78 64 61 74 61 25  |ndle%,indexdata%|
000033c0  2c 74 66 5f 69 6e 64 65  78 25 2b 34 2d 69 6e 64  |,tf_index%+4-ind|
000033d0  65 78 64 61 74 61 25 2c  30 0d 01 b1 10 e7 20 66  |exdata%,0..... f|
000033e0  72 65 65 66 25 3e 31 20  8c 0d 01 b2 2c 20 20 e3  |reef%>1 ....,  .|
000033f0  20 49 25 3d 30 20 b8 20  74 66 5f 66 73 69 7a 65  | I%=0 . tf_fsize|
00003400  25 2d 31 3a 69 6e 64 65  78 64 61 74 61 25 3f 49  |%-1:indexdata%?I|
00003410  25 3d 30 3a ed 0d 01 b3  17 20 20 e3 20 49 25 3d  |%=0:.....  . I%=|
00003420  31 20 b8 20 66 72 65 65  66 25 2d 31 0d 01 b4 25  |1 . freef%-1...%|
00003430  20 20 4a 25 3d 30 3a f5  4a 25 2b 3d 31 3a fd 66  |  J%=0:.J%+=1:.f|
00003440  6f 6e 74 62 69 6e 64 69  6e 67 25 3f 4a 25 3d 49  |ontbinding%?J%=I|
00003450  25 0d 01 b5 46 20 20 c8  99 20 22 46 6f 6e 74 5f  |%...F  .. "Font_|
00003460  52 65 61 64 44 65 66 6e  22 2c 4a 25 2c 69 6e 64  |ReadDefn",J%,ind|
00003470  65 78 64 61 74 61 25 2b  38 20 b8 20 2c 2c 69 6e  |exdata%+8 . ,,in|
00003480  64 65 78 64 61 74 61 25  21 30 2c 69 6e 64 65 78  |dexdata%!0,index|
00003490  64 61 74 61 25 21 34 0d  01 b6 40 20 20 c8 99 20  |data%!4...@  .. |
000034a0  22 4f 53 5f 47 42 50 42  22 2c 31 2c 74 66 5f 68  |"OS_GBPB",1,tf_h|
000034b0  61 6e 64 6c 65 25 2c 69  6e 64 65 78 64 61 74 61  |andle%,indexdata|
000034c0  25 2c 74 66 5f 66 73 69  7a 65 25 2c 74 66 5f 64  |%,tf_fsize%,tf_d|
000034d0  61 74 61 70 74 72 25 0d  01 b7 1c 20 20 74 66 5f  |ataptr%....  tf_|
000034e0  64 61 74 61 70 74 72 25  2b 3d 74 66 5f 66 73 69  |dataptr%+=tf_fsi|
000034f0  7a 65 25 0d 01 b8 07 20  20 ed 0d 01 b9 05 cd 0d  |ze%....  .......|
00003500  01 ba 11 d9 20 23 74 66  5f 68 61 6e 64 6c 65 25  |.... #tf_handle%|
00003510  0d 01 bb 27 ff 28 22 53  65 74 54 79 70 65 20 22  |...'.("SetType "|
00003520  2b 66 75 6c 6c 6e 61 6d  65 24 2b 22 20 54 65 6d  |+fullname$+" Tem|
00003530  70 6c 61 74 65 22 29 0d  01 bc 28 f2 73 68 65 6c  |plate")...(.shel|
00003540  6c 5f 48 65 61 70 42 6c  6f 63 6b 52 65 74 75 72  |l_HeapBlockRetur|
00003550  6e 28 66 6f 6e 74 62 69  6e 64 69 6e 67 25 29 0d  |n(fontbinding%).|
00003560  01 bd 26 f2 73 68 65 6c  6c 5f 48 65 61 70 42 6c  |..&.shell_HeapBl|
00003570  6f 63 6b 52 65 74 75 72  6e 28 69 6e 64 65 78 64  |ockReturn(indexd|
00003580  61 74 61 25 29 0d 01 be  06 3d 30 0d 01 bf 05 3a  |ata%)....=0....:|
00003590  0d 01 c0 1f dd 20 f2 70  72 6f 63 65 73 73 69 63  |..... .processic|
000035a0  6f 6e 28 66 70 74 72 25  2c 71 70 74 72 25 29 0d  |on(fptr%,qptr%).|
000035b0  01 c1 14 ea 20 42 25 2c  65 78 74 66 25 2c 69 6e  |.... B%,extf%,in|
000035c0  74 66 25 0d 01 c2 14 e7  20 21 66 70 74 72 25 20  |tf%..... !fptr% |
000035d0  80 20 26 34 30 20 8c 0d  01 c3 2c 20 20 65 78 74  |. &40 ....,  ext|
000035e0  66 25 3d 66 70 74 72 25  3f 33 3a 69 6e 74 66 25  |f%=fptr%?3:intf%|
000035f0  3d 66 6f 6e 74 62 69 6e  64 69 6e 67 25 3f 65 78  |=fontbinding%?ex|
00003600  74 66 25 0d 01 c4 3f 20  20 e7 20 69 6e 74 66 25  |tf%...?  . intf%|
00003610  3d 30 20 69 6e 74 66 25  3d 66 72 65 65 66 25 3a  |=0 intf%=freef%:|
00003620  66 72 65 65 66 25 2b 3d  31 3a 66 6f 6e 74 62 69  |freef%+=1:fontbi|
00003630  6e 64 69 6e 67 25 3f 65  78 74 66 25 3d 69 6e 74  |nding%?extf%=int|
00003640  66 25 0d 01 c5 13 20 20  66 70 74 72 25 3f 33 3d  |f%....  fptr%?3=|
00003650  69 6e 74 66 25 0d 01 c6  05 cd 0d 01 c7 15 e7 20  |intf%.......... |
00003660  21 66 70 74 72 25 20 80  20 26 31 30 30 20 8c 0d  |!fptr% . &100 ..|
00003670  01 c8 1b 20 20 42 25 3d  5f 51 25 2b 34 2b 74 66  |...  B%=_Q%+4+tf|
00003680  5f 64 61 74 61 73 69 7a  65 25 0d 01 c9 3a 20 20  |_datasize%...:  |
00003690  24 42 25 3d 24 21 71 70  74 72 25 3a 21 71 70 74  |$B%=$!qptr%:!qpt|
000036a0  72 25 3d 74 66 5f 64 61  74 61 73 69 7a 65 25 3a  |r%=tf_datasize%:|
000036b0  74 66 5f 64 61 74 61 73  69 7a 65 25 2b 3d a9 24  |tf_datasize%+=.$|
000036c0  42 25 2b 31 0d 01 ca 13  20 20 e7 20 71 70 74 72  |B%+1....  . qptr|
000036d0  25 21 34 3e 30 20 8c 0d  01 cb 1d 20 20 20 20 42  |%!4>0 .....    B|
000036e0  25 3d 5f 51 25 2b 34 2b  74 66 5f 64 61 74 61 73  |%=_Q%+4+tf_datas|
000036f0  69 7a 65 25 0d 01 cc 40  20 20 20 20 24 42 25 3d  |ize%...@    $B%=|
00003700  24 28 71 70 74 72 25 21  34 29 3a 71 70 74 72 25  |$(qptr%!4):qptr%|
00003710  21 34 3d 74 66 5f 64 61  74 61 73 69 7a 65 25 3a  |!4=tf_datasize%:|
00003720  74 66 5f 64 61 74 61 73  69 7a 65 25 2b 3d a9 24  |tf_datasize%+=.$|
00003730  42 25 2b 31 0d 01 cd 07  20 20 cd 0d 01 ce 05 cd  |B%+1....  ......|
00003740  0d 01 cf 05 e1 0d 01 d0  05 3a 0d 01 d1 13 dd 20  |.........:..... |
00003750  f2 70 72 6f 63 65 73 73  69 63 6f 6e 73 0d 01 d2  |.processicons...|
00003760  0b ea 20 49 25 2c 4a 25  0d 01 d3 0d 4a 25 3d 5f  |.. I%,J%....J%=_|
00003770  51 25 2b 39 32 0d 01 d4  15 e3 20 49 25 3d 30 20  |Q%+92..... I%=0 |
00003780  b8 20 5f 51 25 21 38 38  2d 31 0d 01 d5 1f 20 20  |. _Q%!88-1....  |
00003790  f2 70 72 6f 63 65 73 73  69 63 6f 6e 28 4a 25 2b  |.processicon(J%+|
000037a0  31 36 2c 4a 25 2b 32 30  29 0d 01 d6 0c 20 20 4a  |16,J%+20)....  J|
000037b0  25 2b 3d 33 32 0d 01 d7  08 ed 20 49 25 0d 01 d8  |%+=32..... I%...|
000037c0  05 e1 0d 01 d9 05 3a 0d  01 da 1a dd 20 a4 5f 64  |......:..... ._d|
000037d0  6f 5f 73 61 76 65 28 66  75 6c 6c 6e 61 6d 65 24  |o_save(fullname$|
000037e0  29 0d 01 db 34 c8 99 20  22 4f 53 5f 53 70 72 69  |)...4.. "OS_Spri|
000037f0  74 65 4f 70 22 2c 32 36  38 2c 73 61 76 65 5f 62  |teOp",268,save_b|
00003800  75 66 66 25 2c 66 75 6c  6c 6e 61 6d 65 24 3a f4  |uff%,fullname$:.|
00003810  20 73 61 76 65 0d 01 dc  26 f2 73 68 65 6c 6c 5f  | save...&.shell_|
00003820  48 65 61 70 42 6c 6f 63  6b 52 65 74 75 72 6e 28  |HeapBlockReturn(|
00003830  73 61 76 65 5f 62 75 66  66 25 29 0d 01 dd 06 3d  |save_buff%)....=|
00003840  30 0d 01 de 05 3a 0d 01  df 19 dd 20 f2 53 61 76  |0....:..... .Sav|
00003850  65 41 73 54 65 6d 70 6c  61 74 65 46 69 6c 65 0d  |eAsTemplateFile.|
00003860  01 e0 0b ea 20 76 6f 69  64 25 0d 01 e1 29 76 6f  |.... void%...)vo|
00003870  69 64 25 3d a4 5f 50 72  65 4f 70 65 6e 58 66 65  |id%=._PreOpenXfe|
00003880  72 28 78 66 65 72 25 2c  22 74 65 6d 70 6c 61 74  |r(xfer%,"templat|
00003890  65 22 29 0d 01 e2 22 f2  73 68 65 6c 6c 5f 4f 70  |e")...".shell_Op|
000038a0  65 6e 57 69 6e 64 6f 77  53 74 61 74 69 63 28 78  |enWindowStatic(x|
000038b0  66 65 72 25 29 0d 01 e3  05 e1 0d 01 e4 05 3a 0d  |fer%).........:.|
000038c0  01 e5 04 0d 01 e6 46 f4  20 3d 3d 3d 3d 3d 3d 3d  |......F. =======|
000038d0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 20 45 6e 64 20 4f  |========== End O|
000038e0  66 20 55 73 65 72 20 41  70 70 6c 69 63 61 74 69  |f User Applicati|
000038f0  6f 6e 20 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |on =============|
00003900  3d 3d 3d 3d 3d 3d 3d 3d  3d 0d 01 e7 05 3a 0d 01  |=========....:..|
00003910  e8 17 dd 20 f2 73 68 65  6c 6c 5f 45 6e 73 75 72  |... .shell_Ensur|
00003920  65 50 6f 6c 6c 0d 01 e9  05 e1 0d 01 ea 05 3a 0d  |ePoll.........:.|
00003930  ff                                                |.|
00003931