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