Home » Archimedes archive » Acorn User » AU 1997-10 A.adf » Extras » Apple][e/PD/FileMatch/!FileMatch/!RunImage

Apple][e/PD/FileMatch/!FileMatch/!RunImage

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 » Acorn User » AU 1997-10 A.adf » Extras
Filename: Apple][e/PD/FileMatch/!FileMatch/!RunImage
Read OK:
File size: 7EB3 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM **********************************************************************
   20REM *   Title: !RunImage
   30REM * Purpose: RISC OS WIMP frontend for FileMatch
   40REM *  Author: LEN Sanjay Pattni 1989-1996
   50REM * Version: 1.01 (20-Mar-96)
   60REM **********************************************************************
   70
   80ON ERROR ON ERROR OFF:PROCerror:END
   90PROCinitialise
  100quit% = FALSE
  110REPEAT:PROCpoll:UNTIL quit%
  120PROCterminate
  130END
  140:
  230DEF PROCinitialise
  250DIM eb% 256
  260DIM time_ords% 36
  270appname$ = "File Match"
  280appnamedir$ = "<FileMatch$Dir>"
  290PROCinitialise_search_options
  310PROCinitialise_wimp
  320ENDPROC
  330:
  340DEF PROCinitialise_search_options
  350search_use_access%          = 0
  360search_access%              = 11
  370search_access_mask%         = 59
  380search_case_sensitive%      = 0
  390search_use_date%            = 0
  400search_date_match_type%     = &00 + &000
  410search_date_relative_type%  = &00+&0200
  420DIM search_date_min% 5, search_date_max% 5
  430PROCread_current_utc(search_date_min%)
  440PROCread_current_utc(search_date_max%)
  450search_use_exec_addr%       = 0
  460search_exec_addr_min%       = 20
  470search_exec_addr_max%       = 30
  490search_exec_addr_rtype%     = &01010000
  500search_use_load_addr%       = 0
  510search_load_addr_min%       = 0
  520search_load_addr_max%       = 10
  530search_load_addr_rtype%     = &01010000
  540search_use_name%            = 0
  550search_name$                = "*"
  560search_output%              = 1
  570search_obj_types%           = &5
  580search_use_start_path%      = 0
  590search_start_path$          = ""
  600search_recurse_dirs%        = 1
  610search_recurse_imgs%        = 0
  620search_use_size%            = 0
  630search_size_min%            = 40
  640search_size_max%            = 50
  650search_size_rtype%          = &00000000
  660search_use_file_type%       = 0
  670search_file_type$           = "Text"
  680search_verbose%             = 0
  690search_use_exec_command%    = 0
  700search_exec_command$        = ""
  710ENDPROC
  720:
  770DEF PROCinitialise_wimp
  790DIM pb% 512
  800DIM zero_word% 4
  810!zero_word% = 0
  820DIM msgs_file_desc% 16
  830DIM obj_ids% 24
  850SYS "Toolbox_Initialise", 0, 310, zero_word%, zero_word%, appnamedir$, msgs_file_desc%, obj_ids%
  860poll_mask% = &3833
  870toolbox_quit_event% = 1
  880match_obj_id%  = 0
  890access_obj_id% = 0
  900DIM intrange_obj_id%(3)
  910ENDPROC
  920:
  970DEF PROCterminate
  980ENDPROC
  990:
 1040DEF PROCerror
 1050LOCAL err$, err%
 1060eno% = ERR
 1070err$ = "Fatal Internal Error ("+STR$ERL+":"+STR$ERR+":"+REPORT$+")"
 1080PROCterminate
 1090PROCreport_error(eno%, err$)
 1100ENDPROC
 1110:
 1160DEF PROCreport_basic_error
 1170PROCreport_error(ERR, STR$ERL+":"+STR$ERR+":"+REPORT$+"")
 1180ENDPROC
 1190:
 1250DEF PROCreport_error(e%, e$)
 1260eb%!0 = e%
 1270$(eb%+4) = e$ + CHR$0
 1280SYS "XWimp_ReportError", eb%, 1, appname$
 1290ENDPROC
 1300:
 1360DEF FNsys_warn(r0%,flags%)
 1370IF (flags%AND1)=0 THEN =0
 1380SYS "XWimp_ReportError",r0%,17,"Warning from "+appname$
 1390=1
 1400:
 1490DEF PROCpoll
 1500LOCAL poll_event%
 1510SYS "Wimp_Poll", poll_mask%, pb% TO poll_event%
 1520CASE poll_event% OF
 1530  WHEN 6: PROCpoll_mouse_click_dispatcher
 1540  WHEN 17, 18: PROCpoll_wimp_message_dispatcher
 1550  WHEN &200: PROCpoll_toolbox_event_dispatcher
 1560ENDCASE
 1570ENDPROC
 1580:
 1630DEF PROCpoll_mouse_click_dispatcher
 1640LOCAL self_id%, cmpt_id%
 1650REM Find the Object Id of the window
 1660SYS "XWindow_WimpToToolbox",0,pb%!12,pb%!16 TO self_id%,cmpt_id%;flags%
 1670IF FNsys_warn(self_id%,flags%) ENDPROC
 1680IF self_id%=0 ENDPROC
 1690IF FNaccess_mouse_click_handler(self_id%,cmpt_id%) ENDPROC
 1700IF FNintrange_mouse_click_handler(self_id%,cmpt_id%) ENDPROC
 1710ENDPROC
 1720:
 1810DEF PROCpoll_wimp_message_dispatcher
 1820CASE pb%!16 OF
 1830  WHEN 0: quit% = TRUE
 1840  WHEN 3: PROCwimp_message_data_load_dispatcher
 1850ENDCASE
 1860ENDPROC
 1870:
 1960DEF PROCpoll_toolbox_event_dispatcher
 1970CASE pb%!8 OF
 1980  WHEN toolbox_quit_event%: quit%=TRUE: ENDPROC
 1990  WHEN &44ec0: PROCreport_error(pb%!16, $(pb%+20)): ENDPROC
 2000  WHEN &44ec1: PROCtoolbox_object_auto_created_dispatcher: ENDPROC
 2010ENDCASE
 2020PROCtoolbox_misc_event_dispatcher
 2030ENDPROC
 2040:
 2090DEF PROCtoolbox_object_auto_created_dispatcher
 2100LOCAL obj$:obj$=FNcstrtobasstr(pb%+16)
 2110IF FNmatch_dbox_auto_created_handler(obj$) ENDPROC
 2120IF FNaccess_dbox_auto_created_handler(obj$) ENDPROC
 2130IF FNintrange_dbox_auto_created_handler(obj$) ENDPROC
 2140IF FNdatestamp_dbox_auto_created_handler(obj$) ENDPROC
 2150IF FNfiletype_dbox_auto_created_handler(obj$) ENDPROC
 2160ENDPROC
 2170:
 2220DEF PROCtoolbox_misc_event_dispatcher
 2230IF FNmatch_misc_toolbox_dispatcher ENDPROC
 2240IF FNaccess_misc_toolbox_dispatcher ENDPROC
 2250IF FNintrange_misc_toolbox_dispatcher ENDPROC
 2260IF FNdatestamp_misc_toolbox_dispatcher ENDPROC
 2270IF FNfiletype_misc_toolbox_dispatcher ENDPROC
 2280IF FNoptions_menu_event_handler ENDPROC
 2290ENDPROC
 2300:
 2390DEF FNmatch_dbox_auto_created_handler(obj$)
 2400LOCAL v$
 2410IF obj$<>"match" THEN =0
 2420match_obj_id% = obj_ids%!16
 2430PROCwritablefield_set_value(obj_ids%!16,&11,"")
 2440PROCwritablefield_set_value(obj_ids%!16,&12,"")
 2450PROCwritablefield_set_value(obj_ids%!16,&13,"")
 2460PROCfiletype_set_display
 2470PROCintrange_set_display(0)
 2480PROCdatestamp_set_display
 2490PROCaccess_set_display
 2500PROCintrange_set_display(1)
 2510PROCintrange_set_display(2)
 2520=1
 2530:
 2580DEF FNmatch_misc_toolbox_dispatcher
 2590IF obj_ids%!16 <> match_obj_id% THEN =0
 2600CASE pb%!8 OF
 2610  WHEN &100: PROCmatch_dbox_click_ok_handler
 2620  WHEN &82880: PROCmatch_dbox_opening
 2640ENDCASE
 2650=1
 2660:
 2710DEF PROCmatch_dbox_click_ok_handler
 2720search_use_start_path%   = FNoptionbutton_get_value(obj_ids%!16, &21)
 2730search_use_name%         = FNoptionbutton_get_value(obj_ids%!16, &22)
 2740search_use_file_type%    = FNoptionbutton_get_value(obj_ids%!16, &23)
 2750search_use_size%         = FNoptionbutton_get_value(obj_ids%!16, &24)
 2760search_use_date%         = FNoptionbutton_get_value(obj_ids%!16, &25)
 2770search_use_access%       = FNoptionbutton_get_value(obj_ids%!16, &26)
 2780search_use_load_addr%    = FNoptionbutton_get_value(obj_ids%!16, &27)
 2790search_use_exec_addr%    = FNoptionbutton_get_value(obj_ids%!16, &28)
 2800search_use_exec_command% = FNoptionbutton_get_value(obj_ids%!16, &29)
 2810search_start_path$   = FNwritablefield_get_value(obj_ids%!16, &11)
 2820search_name$         = FNwritablefield_get_value(obj_ids%!16, &12)
 2830search_exec_command$ = FNwritablefield_get_value(obj_ids%!16, &13)
 2840PROCstart_search
 2850ENDPROC
 2860:
 2910DEF PROCmatch_dbox_opening
 2930PROCoptionbutton_set_value(obj_ids%!16,&21,search_use_start_path%)
 2940PROCoptionbutton_set_value(obj_ids%!16,&22,search_use_name%)
 2950PROCoptionbutton_set_value(obj_ids%!16,&23,search_use_file_type%)
 2960PROCoptionbutton_set_value(obj_ids%!16,&24,search_use_size%)
 2970PROCoptionbutton_set_value(obj_ids%!16,&25,search_use_date%)
 2980PROCoptionbutton_set_value(obj_ids%!16,&26,search_use_access%)
 2990PROCoptionbutton_set_value(obj_ids%!16,&27,search_use_load_addr%)
 3000PROCoptionbutton_set_value(obj_ids%!16,&28,search_use_exec_addr%)
 3010PROCoptionbutton_set_value(obj_ids%!16,&29,search_use_exec_command%)
 3020ENDPROC
 3030:
 3080DEF FNmatch_message_data_load(self_id%, cmpt_id%, obj_type%, load_addr%, exec_addr%, size%, access%)
 3090LOCAL pn$, p$, n$
 3100IF self_id% <> match_obj_id% THEN =0
 3110pn$=FNcstrtobasstr(pb%+44)
 3120PROCsplit_filename(pn$, p$, n$)
 3130CASE cmpt_id% OF
 3140  WHEN &11: REM Start path
 3150    PROCwritablefield_set_value(self_id%, cmpt_id%, p$)
 3160  WHEN &12: REM Wild name
 3170    PROCwritablefield_set_value(self_id%, cmpt_id%, n$)
 3180  WHEN &13: REM Exec command
 3190    PROCwritablefield_set_value(self_id%, cmpt_id%, "Run "+pn$+" \p.\n")
 3200  OTHERWISE
 3220    PROCwritablefield_set_value(self_id%, &12, n$)
 3230    search_file_type$ = FNfiletype_to_str((load_addr% >> 8) AND &fff)
 3240    search_obj_types% = 1 << (obj_type%-1)
 3250    PROCfiletype_set_display
 3260    search_size_min% = size%
 3270    search_size_max% = size%
 3280    search_size_rtype% = 0
 3290    PROCintrange_set_display(0)
 3300    IF (load_addr% AND &fff00000)=&fff00000 THEN
 3310      !search_date_min% = exec_addr%
 3320      !search_date_max% = exec_addr%
 3330      search_date_min%?4 = load_addr% AND &ff
 3340      search_date_max%?4 = load_addr% AND &ff
 3350      search_date_match_type% = &0001
 3360      PROCdatestamp_set_display
 3370    ENDIF
 3380    search_access% = access%
 3390    search_access_mask% = access%
 3400    PROCaccess_set_display
 3410    search_load_addr_min% = load_addr%
 3420    search_load_addr_max% = load_addr%
 3430    search_load_addr_rtype% = &01010000
 3440    PROCintrange_set_display(1)
 3450    search_exec_addr_min% = exec_addr%
 3460    search_exec_addr_max% = exec_addr%
 3470    search_exec_addr_rtype% = &01010000
 3480    PROCintrange_set_display(2)
 3490ENDCASE
 3500=1
 3510:
 3600DEF FNaccess_dbox_auto_created_handler(obj$)
 3610IF obj$<>"access" THEN =0
 3620access_obj_id% = obj_ids%!16
 3630=1
 3640:
 3690DEF FNaccess_misc_toolbox_dispatcher
 3700IF obj_ids%!16 <> access_obj_id% THEN =0
 3710CASE pb%!8 OF
 3720  WHEN &200: PROCaccess_dbox_click_ok_handler
 3730  WHEN &82880: PROCaccess_dbox_opening
 3740ENDCASE
 3750=1
 3760:
 3810DEF FNaccess_message_data_load(self_id%, access%)
 3820LOCAL state$
 3830IF self_id% <> access_obj_id% THEN =0
 3840IF (access% AND 128) THEN state$="yes" ELSE state$="no"
 3850PROCbutton_set_value(access_obj_id%, &101, state$)
 3860IF (access% AND 8) THEN state$="yes" ELSE state$="no"
 3870PROCbutton_set_value(access_obj_id%, &102, state$)
 3880IF (access% AND 2) THEN state$="yes" ELSE state$="no"
 3890PROCbutton_set_value(access_obj_id%, &103, state$)
 3900IF (access% AND 1) THEN state$="yes" ELSE state$="no"
 3910PROCbutton_set_value(access_obj_id%, &104, state$)
 3920IF (access% AND 32) THEN state$="yes" ELSE state$="no"
 3930PROCbutton_set_value(access_obj_id%, &105, state$)
 3940IF (access% AND 16) THEN state$="yes" ELSE state$="no"
 3950PROCbutton_set_value(access_obj_id%, &106, state$)
 3960=1
 3970:
 4020DEF PROCaccess_dbox_click_ok_handler
 4030LOCAL access%, mask%, i%, b%, on%
 4040access%=0:mask%=0
 4050FOR i% = 1 TO 6
 4060  CASE FNbutton_get_value(obj_ids%!16,&100+i%) OF
 4070    WHEN "yes": on% = 1
 4080    WHEN "no":  on% = 2
 4090    OTHERWISE:  on% = 3
 4100  ENDCASE
 4110  CASE i% OF
 4120    WHEN 1: b%=128
 4130    WHEN 2: b%=8
 4140    WHEN 3: b%=2
 4150    WHEN 4: b%=1
 4160    WHEN 5: b%=32
 4170    WHEN 6: b%=16
 4180  ENDCASE
 4190  IF (on%=1 OR on%=2) THEN
 4200    IF on%=1 THEN access%=(access% OR b%)
 4210    mask%=(mask% OR b%)
 4220  ENDIF
 4230NEXT
 4240search_access%=access%
 4250search_access_mask%=mask%
 4260PROCaccess_set_display
 4270ENDPROC
 4280:
 4330DEF PROCaccess_set_display
 4340PROCdisplayfield_set_value(match_obj_id%, &505, FNaccess_to_str)
 4350ENDPROC
 4360:
 4410DEF FNaccess_to_str
 4420LOCAL disp$:disp$=""
 4430IF (search_access_mask% AND 128) THEN
 4440  IF (search_access% AND 128) disp$+="P" ELSE disp$+="p"
 4450ENDIF
 4460IF (search_access_mask% AND 8) THEN
 4470  IF (search_access% AND 8)   disp$+="L" ELSE disp$+="l"
 4480ENDIF
 4490IF (search_access_mask% AND 2) THEN
 4500  IF (search_access% AND 2)   disp$+="W" ELSE disp$+="w"
 4510ENDIF
 4520IF (search_access_mask% AND 1) THEN
 4530  IF (search_access% AND 1)   disp$+="R" ELSE disp$+="r"
 4540ENDIF
 4550disp$+="/"
 4560IF (search_access_mask% AND 32) THEN
 4570  IF (search_access% AND 32)  disp$+="W" ELSE disp$+="w"
 4580ENDIF
 4590IF (search_access_mask% AND 16) THEN
 4600  IF (search_access% AND 16)  disp$+="R" ELSE disp$+="r"
 4610ENDIF
 4620=disp$
 4630:
 4680DEF PROCaccess_dbox_opening
 4690LOCAL b%, i%, s$
 4700FOR i%=1 TO 6
 4710  CASE i% OF
 4720    WHEN 1: b%=128
 4730    WHEN 2: b%=8
 4740    WHEN 3: b%=2
 4750    WHEN 4: b%=1
 4760    WHEN 5: b%=32
 4770    WHEN 6: b%=16
 4780  ENDCASE
 4790  IF ((b% AND search_access_mask%)=0) THEN
 4800    s$="dontcare"
 4810  ELSE
 4820    IF(b% AND search_access%) s$="yes" ELSEs$="no"
 4830  ENDIF
 4840  PROCbutton_set_value(obj_ids%!16,&100+i%,s$)
 4850NEXT
 4860ENDPROC
 4870:
 4920DEF FNaccess_mouse_click_handler(self_id%,cmpt_id%)
 4930IF self_id% <> access_obj_id% THEN =0
 4940IF (cmpt_id%<&101 OR cmpt_id%>&106) THEN =1
 4950PROCaccess_dbox_toggle_state(self_id%,cmpt_id%)
 4960=1
 4970:
 5020DEF PROCaccess_dbox_toggle_state(self_id%,cmpt_id%)
 5030LOCAL state$
 5040state$ = FNbutton_get_value(self_id%, cmpt_id%)
 5050IF state$="yes" state$="no" ELSE IF state$="no" state$="dontcare" ELSE state$="yes"
 5060PROCbutton_set_value(self_id%,cmpt_id%,state$)
 5070ENDPROC
 5080:
 5170DEF FNdatestamp_dbox_auto_created_handler(obj$)
 5180IF obj$<>"datestamp" THEN =0
 5190datestamp_obj_id% = obj_ids%!16
 5200=1
 5210:
 5260DEF FNdatestamp_misc_toolbox_dispatcher
 5270IF obj_ids%!16 <> datestamp_obj_id% THEN =0
 5280CASE pb%!8 OF
 5290  WHEN &200: PROCdatestamp_dbox_click_ok_handler
 5300  WHEN &82880: PROCdatestamp_dbox_opening
 5310ENDCASE
 5320=1
 5330:
 5380DEF PROCdatestamp_dbox_click_ok_handler
 5390LOCAL match_type%, rel_type%
 5400LOCAL yr%, mo%, dt%, hr%, mi%, se%
 5410match_type% = FNstringset_get_value_index(obj_ids%!16, &100)
 5420match_type% += 256*FNoptionbutton_get_value(obj_ids%!16, &3000)
 5430rel_type% = FNstringset_get_value_index(obj_ids%!16, &1001)
 5440rel_type% += 256*FNstringset_get_value_index(obj_ids%!16, &1002)
 5450
 5460yr% = FNnumberrange_get_value(obj_ids%!16, &2001)
 5470mo% = FNstringset_get_value_index(obj_ids%!16, &2002)+1
 5480dt% = FNnumberrange_get_value(obj_ids%!16, &2003)
 5490hr% = FNnumberrange_get_value(obj_ids%!16, &2004)
 5500mi% = FNnumberrange_get_value(obj_ids%!16, &2005)
 5510se% = FNnumberrange_get_value(obj_ids%!16, &2006)
 5520PROCords_to_utc(search_date_min%, yr%, mo%, dt%, hr%, mi%, se%)
 5530yr% = FNnumberrange_get_value(obj_ids%!16, &3001)
 5540mo% = FNstringset_get_value_index(obj_ids%!16, &3002)+1
 5550dt% = FNnumberrange_get_value(obj_ids%!16, &3003)
 5560hr% = FNnumberrange_get_value(obj_ids%!16, &3004)
 5570mi% = FNnumberrange_get_value(obj_ids%!16, &3005)
 5580se% = FNnumberrange_get_value(obj_ids%!16, &3006)
 5590PROCords_to_utc(search_date_max%, yr%, mo%, dt%, hr%, mi%, se%)
 5600
 5610search_date_match_type% = match_type%
 5620search_date_relative_type% = rel_type%
 5630PROCdatestamp_set_display
 5640ENDPROC
 5650:
 5700DEF FNdatestamp_message_data_load(self_id%, load_addr%, exec_addr%)
 5710LOCAL yr%, mo%, dt%, hr%, mi%, se%
 5720IF self_id% <> datestamp_obj_id% THEN =0
 5730IF (load_addr% AND &fff00000)=&fff00000 THEN
 5740  !eb% = exec_addr%:eb%?4=load_addr%
 5750  PROCutc_to_ords(eb%, yr%, mo%, dt%, hr%, mi%, se%)
 5760
 5770  PROCstringset_set_value_index(self_id%, &100, 1)
 5780
 5790  PROCnumberrange_set_value(self_id%, &2001, yr%)
 5800  PROCstringset_set_value_index(self_id%, &2002, mo%-1)
 5810  PROCnumberrange_set_value(self_id%, &2003, dt%)
 5820  PROCnumberrange_set_value(self_id%, &2004, hr%)
 5830  PROCnumberrange_set_value(self_id%, &2005, mi%)
 5840  PROCnumberrange_set_value(self_id%, &2006, se%)
 5850
 5860  PROCnumberrange_set_value(self_id%, &3001, yr%)
 5870  PROCstringset_set_value_index(self_id%, &3002, mo%-1)
 5880  PROCnumberrange_set_value(self_id%, &3003, dt%)
 5890  PROCnumberrange_set_value(self_id%, &3004, hr%)
 5900  PROCnumberrange_set_value(self_id%, &3005, mi%)
 5910  PROCnumberrange_set_value(self_id%, &3006, se%)
 5920
 5930  PROCoptionbutton_set_value(self_id%, &3000, 0)
 5940ENDIF
 5950=0
 5960:
 6010DEF PROCdatestamp_set_display
 6020IF (search_date_match_type% AND &ff) THEN
 6030  time1$=FNutc_to_str(search_date_min%)
 6040  time2$="to "+FNutc_to_str(search_date_max%)
 6050ELSE
 6060  time1$=FNrelative_time_to_str(0)
 6070  time2$="---"
 6080ENDIF
 6090PROCdisplayfield_set_value(match_obj_id%, &503, time1$)
 6100PROCdisplayfield_set_value(match_obj_id%, &504, time2$)
 6110ENDPROC
 6120:
 6130DEF FNrelative_time_to_str(is_cmd%)
 6140LOCAL t$
 6150CASE (search_date_relative_type% AND &ff) OF
 6160  WHEN 0: IF is_cmd% t$="this" ELSE t$="This"
 6170  WHEN 1: IF is_cmd% t$="last" ELSE t$="Last"
 6180  WHEN 2: IF is_cmd% t$="past" ELSE t$="Past"
 6190ENDCASE
 6200IF is_cmd%=0 THEN t$+=" "
 6210CASE (search_date_relative_type% AND &ff00)>>8 OF
 6220  WHEN 0: IF is_cmd% t$+="hour"  ELSE t$+="Hour"
 6230  WHEN 1: IF is_cmd% t$+="day"   ELSE t$+="Day"
 6240  WHEN 2: IF is_cmd% t$+="week"  ELSE t$+="Week"
 6250  WHEN 3: IF is_cmd% t$+="month" ELSE t$+="Month"
 6260  WHEN 4: IF is_cmd% t$+="year"  ELSE t$+="Year"
 6270ENDCASE
 6280=t$
 6290:
 6340DEF PROCdatestamp_dbox_opening
 6350LOCAL index%, dummy%
 6360LOCAL yr%, mo%, dt%, hr%, mi%, se%
 6370index%=search_date_match_type% AND &ff
 6380PROCstringset_set_value_index(obj_ids%!16, &100, index%)
 6390index%=search_date_relative_type% AND &ff
 6400PROCstringset_set_value_index(obj_ids%!16, &1001, index%)
 6410index%=(search_date_relative_type% AND &ff00) >> 8
 6420PROCstringset_set_value_index(obj_ids%!16, &1002, index%)
 6430dummy%=search_date_match_type% AND &100
 6440PROCoptionbutton_set_value(obj_ids%!16, &3000, dummy%)
 6450
 6460PROCutc_to_ords(search_date_min%, yr%, mo%, dt%, hr%, mi%, se%)
 6470PROCnumberrange_set_value(obj_ids%!16, &2001, yr%)
 6480PROCstringset_set_value_index(obj_ids%!16, &2002, mo%-1)
 6490PROCnumberrange_set_value(obj_ids%!16, &2003, dt%)
 6500PROCnumberrange_set_value(obj_ids%!16, &2004, hr%)
 6510PROCnumberrange_set_value(obj_ids%!16, &2005, mi%)
 6520PROCnumberrange_set_value(obj_ids%!16, &2006, se%)
 6530
 6540PROCutc_to_ords(search_date_max%, yr%, mo%, dt%, hr%, mi%, se%)
 6550PROCnumberrange_set_value(obj_ids%!16, &3001, yr%)
 6560PROCstringset_set_value_index(obj_ids%!16, &3002, mo%-1)
 6570PROCnumberrange_set_value(obj_ids%!16, &3003, dt%)
 6580PROCnumberrange_set_value(obj_ids%!16, &3004, hr%)
 6590PROCnumberrange_set_value(obj_ids%!16, &3005, mi%)
 6600PROCnumberrange_set_value(obj_ids%!16, &3006, se%)
 6610ENDPROC
 6620:
 6710DEF FNfiletype_dbox_auto_created_handler(obj$)
 6720IF obj$<>"filetype" THEN =0
 6730filetype_obj_id% = obj_ids%!16
 6740=1
 6750:
 6800DEF FNfiletype_misc_toolbox_dispatcher
 6810IF obj_ids%!16 <> filetype_obj_id% THEN =0
 6820CASE pb%!8 OF
 6830  WHEN &200: PROCfiletype_dbox_click_ok_handler
 6840  WHEN &82880: PROCfiletype_dbox_opening
 6850ENDCASE
 6860=1
 6870:
 6920DEF FNfiletype_message_data_load(self_id%, obj_type%, load_addr%)
 6930IF self_id% <> filetype_obj_id% THEN =0
 6940PROCstringset_set_value(self_id%, &100, FNfiletype_to_str((load_addr% >> 8) AND &fff))
 6950PROCoptionbutton_set_value(self_id%,&1001, obj_type%=1)
 6960PROCoptionbutton_set_value(self_id%,&1002, obj_type%=2)
 6970PROCoptionbutton_set_value(self_id%,&1003, obj_type%=3)
 6980=1
 6990:
 7040DEF PROCfiletype_dbox_click_ok_handler
 7050LOCAL file_type$, on%
 7060file_type$ = FNstringset_get_value(obj_ids%!16, &100)
 7070IF file_type$="" PROCreport_error(1,"Filetype field is empty!"):ENDPROC
 7080search_file_type$=file_type$
 7090search_obj_types% = FNoptionbutton_get_value(obj_ids%!16, &1001)
 7100search_obj_types% += 2*FNoptionbutton_get_value(obj_ids%!16, &1002)
 7110search_obj_types% += 4*FNoptionbutton_get_value(obj_ids%!16, &1003)
 7120IF search_obj_types% = 0 THEN search_obj_types% = 1
 7130PROCfiletype_set_display
 7140ENDPROC
 7150:
 7200DEF PROCfiletype_set_display
 7210LOCAL disp$, had_arg%:disp$="":had_arg%=0
 7220IF (search_obj_types% AND 1) THEN disp$="Files":had_arg%=1
 7230IF (search_obj_types% AND 2) THEN
 7240  IF had_arg% THEN disp$+="/"
 7250  disp$+="Dirs"
 7260  had_arg%=1
 7270ENDIF
 7280IF (search_obj_types% AND 4) THEN
 7290  IF had_arg% THEN disp$+="/"
 7300  disp$+="Images"
 7310ENDIF
 7320disp$+=" of: "+search_file_type$
 7330PROCdisplayfield_set_value(match_obj_id%, &501, disp$)
 7340ENDPROC
 7350:
 7400DEF PROCfiletype_dbox_opening
 7410PROCstringset_set_value(obj_ids%!16, &100, search_file_type$)
 7420PROCoptionbutton_set_value(obj_ids%!16,&1001,search_obj_types% AND 1)
 7430PROCoptionbutton_set_value(obj_ids%!16,&1002,search_obj_types% AND 2)
 7440PROCoptionbutton_set_value(obj_ids%!16,&1003,search_obj_types% AND 4)
 7450ENDPROC
 7460:
 7550DEF FNintrange_dbox_auto_created_handler(obj$)
 7560IF obj$<>"intrange" THEN =0
 7570=1
 7580:
 7630DEF FNintrange_misc_toolbox_dispatcher
 7640IF FNtoolbox_get_template_name(obj_ids%!16)<>"intrange" THEN =0
 7650CASE pb%!8 OF
 7660  WHEN &200: PROCintrange_dbox_click_ok_handler
 7670  WHEN &82880: PROCintrange_dbox_opening
 7680ENDCASE
 7690=1
 7700:
 7750DEF FNintrange_message_data_load(self_id%, load_addr%, exec_addr%, size%)
 7760LOCAL anc_id%, anc_cmpt%, hex%, min%, max%, min$, max$
 7770LOCAL ERROR:ON ERROR LOCAL:PROCreport_basic_error:=0
 7780SYS "Toolbox_GetAncestor", , self_id% TO anc_id%, anc_cmpt%
 7790IF anc_id% <> match_obj_id% THEN =0
 7791RESTORE ERROR
 7800CASE anc_cmpt% OF
 7810  WHEN &900: min% = size%:max% = size%:hex% = 0
 7830  WHEN &901: min% = load_addr%:max% = load_addr%:hex% = 1
 7841  WHEN &902: min% = exec_addr%:max% = exec_addr%:hex% = 1
 7851  OTHERWISE: =0
 7860ENDCASE
 7861IF hex% min$="&"+STR$~min%:max$="&"+STR$~max% ELSE min$=STR$min%:max$=STR$max%
 7870PROCwritablefield_set_value(self_id%, &10, min$)
 8830PROCwritablefield_set_value(self_id%, &20, max$)
 8840PROCstringset_set_value_index(self_id%, &110, 0)
 8850=1
 7880:
 7930DEF PROCintrange_dbox_click_ok_handler
 7940LOCAL client%, arg1$, arg2$, arg1%, arg2%, rtype%
 7950rtype% = FNstringset_get_value_index(obj_ids%!16, &110)
 7960arg1$  = FNwritablefield_get_value(obj_ids%!16,&10)
 7970IF LEFT$(arg1$,1)="&" THEN rtype% = rtype% OR &010000
 7980arg2$  = FNwritablefield_get_value(obj_ids%!16,&20)
 7990IF LEFT$(arg2$,1)="&" THEN rtype% = rtype% OR &01000000
 8000
 8010LOCAL ERROR:ON ERROR LOCAL PROCreport_error(1,"Bad number!"):ENDPROC
 8020arg1% = EVALarg1$
 8030arg2% = EVALarg2$
 8040RESTORE ERROR
 8050
 8060client%=obj_ids%!4 - &900
 8070CASE client% OF
 8080  WHEN 0: search_size_min%=arg1%:search_size_max%=arg2%
 8090          search_size_rtype% = rtype%
 8100  WHEN 1: search_load_addr_min%=arg1%:search_load_addr_max%=arg2%
 8110          search_load_addr_rtype% = rtype%
 8120  WHEN 2: search_exec_addr_min%=arg1%:search_exec_addr_max%=arg2%
 8130          search_exec_addr_rtype% = rtype%
 8140ENDCASE
 8150
 8160PROCintrange_set_display(client%)
 8170ENDPROC
 8180:
 8230DEF PROCintrange_set_display(client%)
 8240LOCAL disp$, cmpt%, min_hex%, max_hex%, min%, max%, rtype%
 8250CASE client% OF
 8260  WHEN 0: cmpt% = &502
 8270          min_hex%=search_size_rtype% AND &10000
 8280          max_hex%=search_size_rtype% AND &1000000
 8290          rtype%=search_size_rtype% AND &ff
 8300          min%=search_size_min%
 8310          max%=search_size_max%
 8320  WHEN 1: cmpt% = &506
 8330          min_hex%=search_load_addr_rtype% AND &10000
 8340          max_hex%=search_load_addr_rtype% AND &1000000
 8350          rtype%=search_load_addr_rtype% AND &ff
 8360          min%=search_load_addr_min%
 8370          max%=search_load_addr_max%
 8380  WHEN 2: cmpt% = &507
 8390          min_hex%=search_exec_addr_rtype% AND &10000
 8400          max_hex%=search_exec_addr_rtype% AND &1000000
 8410          rtype%=search_exec_addr_rtype% AND &ff
 8420          min%=search_exec_addr_min%
 8430          max%=search_exec_addr_max%
 8440ENDCASE
 8450
 8460CASE rtype% OF
 8470  WHEN 0: disp$="Exactly "+FNint_to_str(min%, min_hex%)
 8480  WHEN 1: disp$=FNint_to_str(min%,min_hex%)+" to "+FNint_to_str(max%,max_hex%)
 8490  WHEN 2: disp$=FNint_to_str(min%,min_hex%)+" to "+FNint_to_str(min%+max%,min_hex%)
 8500  WHEN 3: disp$=FNint_to_str(min%,min_hex%)+" to "+FNint_to_str(min%-max%,min_hex%)
 8510  WHEN 4: disp$=FNint_to_str(min%,min_hex%)+" +- "+FNint_to_str(max%,max_hex%)
 8520ENDCASE
 8530PROCdisplayfield_set_value(match_obj_id%, cmpt%, disp$)
 8540ENDPROC
 8550:
 8600DEF PROCintrange_dbox_opening
 8610LOCAL min%,max%,client%,min_hex%,max_hex%,rtype%,min$,max$,title$
 8620client%=obj_ids%!4 - &900
 8630CASE client% OF
 8640  WHEN 0: min%=search_size_min%:max%=search_size_max%
 8650          min_hex%=(search_size_rtype% AND &010000)
 8660          max_hex%=(search_size_rtype% AND &01000000)
 8670          rtype%=(search_size_rtype% AND &ff)
 8680          title$="File Size"
 8690  WHEN 1: min%=search_load_addr_min%:max%=search_load_addr_max%
 8700          min_hex%=(search_load_addr_rtype% AND &010000)
 8710          max_hex%=(search_load_addr_rtype% AND &01000000)
 8720          rtype%=(search_load_addr_rtype% AND &ff)
 8730          title$="Load Address"
 8740  WHEN 2: min%=search_exec_addr_min%:max%=search_exec_addr_max%
 8750          min_hex%=(search_exec_addr_rtype% AND &010000)
 8760          max_hex%=(search_exec_addr_rtype% AND &01000000)
 8770          rtype%=(search_exec_addr_rtype% AND &ff)
 8780          title$="Exec Address"
 8790ENDCASE
 8800IF min_hex% min$="&"+STR$~min% ELSE min$=STR$min%
 8810IF max_hex% max$="&"+STR$~max% ELSE max$=STR$max%
 8820PROCwritablefield_set_value(obj_ids%!16,&10,min$)
 8830PROCwritablefield_set_value(obj_ids%!16,&20,max$)
 8840PROCstringset_set_value_index(obj_ids%!16,&110,rtype%)
 8850PROCwindow_set_title(obj_ids%!16,title$)
 8860ENDPROC
 8870:
 8920DEF FNintrange_mouse_click_handler(self_id%,self_cmpt%)
 8930LOCAL anc_cmpt%,val$,val%,disp%,mod%
 8940IF FNtoolbox_get_template_name(self_id%)<>"intrange" THEN =0
 8950IF pb%!8<>1 AND pb%!8<>4 THEN =1
 8960LOCAL ERROR:ON ERROR LOCAL PROCreport_error(1,"Bad number!"):=1
 8970
 8980IF self_cmpt% < &11 OR self_cmpt% > &22 THEN =1
 8990mod%=1024
 9000IF self_cmpt%=&11 OR self_cmpt%=&21 mod%=mod%*-1
 9010IF pb%!8=1 mod%=mod%*-1
 9020
 9030disp% = self_cmpt% AND &f0
 9040val$=FNwritablefield_get_value(self_id%,disp%)
 9050val%=EVALval$
 9060IF mod%<0 THEN
 9070  IF (val%<1024 AND val%>=0) THEN val%=0 ELSE val%-=1024
 9080ELSE
 9090  IF (val%>=-1024 AND val%<0) THEN val%=-1 ELSE val%+=1024
 9100ENDIF
 9110IF LEFT$(val$,1)="&" THEN newval$="&"+STR$~val% ELSE newval$=STR$val%
 9120PROCwritablefield_set_value(self_id%,disp%,newval$)
 9130=1
 9140:
 9230DEF FNcstrtobasstr(s%)
 9240LOCAL b$:b$=""
 9250WHILE ?s%>31:b$+=CHR$?s%:s%+=1:ENDWHILE
 9260=b$
 9270:
 9320DEF FNint_to_str(i%, ishex%)
 9330LOCAL i$
 9340IF ishex% THEN ="&"+STR$~i%
 9350i$=STR$i%
 9360IF LEFT$(i$,1)="-" THEN="0"
 9370=i$
 9380:
 9470DEF PROCread_current_utc(utc_blk%)
 9480LOCAL r0%,flags%,dummy%
 9490utc_blk%!0 = 3
 9500SYS "XOS_Word",14,utc_blk% TO r0%;flags%
 9510dummy%=FNsys_warn(r0%, flags%)
 9520ENDPROC
 9530:
 9580DEF PROCutc_to_ords(time%, RETURN yr%, RETURN mo%, RETURN dt%, RETURN hr%, RETURN mi%, RETURN se%)
 9590LOCAL r0%,flags%,dummy%
 9600SYS "XTerritory_ConvertTimeToOrdinals",-1,time%,time_ords% TO r0%;flags%
 9610IF (FNsys_warn(r0%,flags%)) THEN
 9620  yr%=1995:mo%=1:dt%=1:hr%=12:mi%=0:se%=0
 9630ELSE
 9640  yr%=time_ords%!24:mo%=time_ords%!20:dt%=time_ords%!16
 9650  hr%=time_ords%!12:mi%=time_ords%!8
 9660  se%=100*time_ords%!4 + time_ords%!0
 9670ENDIF
 9680ENDPROC
 9690:
 9740DEF FNutc_to_str(time%)
 9750LOCAL r0%,flags%,dummy%
 9760SYS "XTerritory_ConvertDateAndTime",-1,time%,eb%,256,"%w3 %dy %m3 %ce%yr %24:%mi:%se.%cs" TO r0%;flags%
 9770IF (FNsys_warn(r0%,flags%)) THEN =""
 9780=FNcstrtobasstr(eb%)
 9790:
 9840DEF PROCords_to_utc(time%, yr%, mo%, dt%, hr%, mi%, se%)
 9850LOCAL r0%,flags%,dummy%
 9860time_ords%!0=(se% MOD 100):time_ords%!4=(se% DIV 100)
 9870time_ords%!8=mi%:time_ords%!12=hr%
 9880time_ords%!16=dt%:time_ords%!20=mo%:time_ords%!24=yr%
 9890SYS "XTerritory_ConvertOrdinalsToTime",-1,time%,time_ords% TO r0%;flags%
 9900dummy%=FNsys_warn(r0%,flags%)
 9910ENDPROC
 9920:
10010DEF PROCdisplayfield_set_value(obj%, cpt%, v$)
10020LOCAL r0%,flags%,dummy%
10030SYS "XToolbox_ObjectMiscOp",0,obj%,448,cpt%,v$ TO r0%;flags%
10040dummy%=FNsys_warn(r0%,flags%)
10050ENDPROC
10060:
10150DEF PROCoptionbutton_set_value(obj%, cpt%, on%)
10160LOCAL r0%,flags%,dummy%
10170IF on% on%=1
10180SYS "XToolbox_ObjectMiscOp",0,obj%,196,cpt%,on% TO r0%;flags%
10190dummy%=FNsys_warn(r0%, flags%)
10200ENDPROC
10210:
10260DEF FNoptionbutton_get_value(obj%, cpt%)
10270LOCAL r0%,flags%
10280SYS "XToolbox_ObjectMiscOp",0,obj%,197,cpt% TO r0%;flags%
10290IF FNsys_warn(r0%, flags%) THEN =0
10300=r0%
10310:
10400DEF PROCnumberrange_set_value(obj%, cpt%, v%)
10410LOCAL r0%,flags%,dummy%
10420SYS "XToolbox_ObjectMiscOp",0,obj%,832,cpt%,v% TO r0%;flags%
10430dummy%=FNsys_warn(r0%, flags%)
10440ENDPROC
10450:
10500DEF FNnumberrange_get_value(obj%, cpt%)
10510LOCAL r0%,flags%
10520SYS "XToolbox_ObjectMiscOp",0,obj%,833,cpt% TO r0%;flags%
10530IF FNsys_warn(r0%, flags%) THEN =1
10540=r0%
10550:
10640DEF PROCstringset_set_value_index(obj%, cpt%, index%)
10650LOCAL r0%,flags%,dummy%
10660SYS "XToolbox_ObjectMiscOp",1,obj%,898,cpt%,index% TO r0%;flags%
10670dummy%=FNsys_warn(r0%, flags%)
10680ENDPROC
10690:
10740DEF FNstringset_get_value_index(obj%, cpt%)
10750LOCAL r0%,flags%
10760SYS "XToolbox_ObjectMiscOp",1,obj%,899,cpt% TO r0%;flags%
10770IF FNsys_warn(r0%, flags%) THEN =0
10780=r0%
10790:
10840DEF PROCstringset_set_value(obj%, cpt%, v$)
10850LOCAL r0%,flags%,dummy%
10860SYS "XToolbox_ObjectMiscOp",0,obj%,898,cpt%,v$ TO r0%;flags%
10870dummy%=FNsys_warn(r0%, flags%)
10880ENDPROC
10890:
10940DEF FNstringset_get_value(obj%, cpt%)
10950LOCAL r0%,flags%
10960SYS "XToolbox_ObjectMiscOp",0,obj%,899,cpt%,eb%,256 TO r0%;flags%
10970IF FNsys_warn(r0%, flags%) THEN =""
10980=FNcstrtobasstr(eb%)
10990:
11080DEF FNwritablefield_get_value(obj%, cpt%)
11090LOCAL r0%,flags%
11100SYS "XToolbox_ObjectMiscOp",0,obj%,513,cpt%,eb%,256 TO r0%;flags%
11110IF FNsys_warn(r0%, flags%) THEN =""
11120=FNcstrtobasstr(eb%)
11130:
11180DEF PROCwritablefield_set_value(obj%, cpt%, v$)
11190LOCAL r0%,flags%,dummy%
11200SYS "XToolbox_ObjectMiscOp",0,obj%,512,cpt%,v$ TO r0%;flags%
11210dummy%=FNsys_warn(r0%, flags%)
11220ENDPROC
11230:
11320DEF PROCbutton_set_value(obj%,cpt%,v$)
11330LOCAL r0%,flags%,dummy%
11340SYS "XToolbox_ObjectMiscOp",0,obj%,962,cpt%,v$ TO r0%;flags%
11350dummy%=FNsys_warn(r0%, flags%)
11360ENDPROC
11370:
11420DEF FNbutton_get_value(obj%, cpt%)
11430LOCAL r0%,flags%
11440SYS "XToolbox_ObjectMiscOp",0,obj%,963,cpt%,eb%,256 TO r0%;flags%
11450IF FNsys_warn(r0%, flags%) THEN =""
11460=FNcstrtobasstr(eb%)
11470:
11520DEF PROCwindow_set_title(obj%,t$)
11530LOCAL r0%,flags%,dummy%
11540SYS "XToolbox_ObjectMiscOp",0,obj%,11,t$ TO r0%;flags%
11550dummy%=FNsys_warn(r0%, flags%)
11560ENDPROC
11570:
11660DEF FNtoolbox_get_template_name(obj%)
11670LOCAL r0%,flags%,dummy%
11680SYS "XToolbox_GetTemplateName",0,obj_ids%!16,eb%,256 TO r0%;flags%
11690dummy%=FNsys_warn(r0%, flags%)
11700=FNcstrtobasstr(eb%)
11710:
11800DEF PROCstart_search
11810LOCAL cmd_prefix$, cmd_suffix$, arg$
11820cmd_prefix$="Taskwindow "+CHR$34+"FileMatch"
11830cmd_suffix$=CHR$34+" 32K "+CHR$34+"File Match"+CHR$34+" -display -quit"
11840arg$=""
11850IF search_use_access%       arg$+=" -a "+FNaccess_to_str
11860IF search_case_sensitive%   arg$+=" -cs"
11870IF search_use_date% THEN
11880  arg$+=" -d "
11890  IF (search_date_match_type%=0) THEN
11900    arg$+=FNrelative_time_to_str(1)
11910  ELSE
11920    arg$+=FNutc_to_fiveb_str(search_date_min%)
11930    IF (search_date_match_type% AND &100) THEN arg$+=" "+FNutc_to_fiveb_str(search_date_max%)
11940  ENDIF
11950ENDIF
11960IF search_use_exec_addr% THEN
11970  arg$+=" -e "
11980  arg$+=FNrange_to_str(search_exec_addr_min%, search_exec_addr_max%, search_exec_addr_rtype% AND &ff, search_exec_addr_rtype% AND &10000, search_exec_addr_rtype% AND &1000000)
11990ENDIF
12000IF search_use_load_addr%    THEN
12010  arg$+=" -l "
12020  arg$+=FNrange_to_str(search_load_addr_min%, search_load_addr_max%, search_load_addr_rtype% AND &ff, search_load_addr_rtype% AND &10000, search_load_addr_rtype% AND &1000000)
12030ENDIF
12040IF search_use_name% THEN
12050  IF (search_name$<>"" AND search_name$<>"*") THEN arg$+=" -n "+search_name$
12060ENDIF
12070IF search_output%           arg$+=" -o "+STR$search_output%
12080IF search_obj_types%<>1     arg$+=" -ot "+STR$search_obj_types%
12090IF (search_use_start_path% AND search_start_path$<>"") THEN arg$+=" -p "+search_start_path$
12100IF search_recurse_dirs%     arg$+=" -r"
12110IF search_recurse_imgs%     arg$+=" -ri"
12120IF search_use_size%         THEN
12130  arg$+=" -s "
12140  arg$+=FNrange_to_str(search_size_min%, search_size_max%, search_size_rtype% AND &ff, search_size_rtype% AND &10000, search_size_rtype% AND &1000000)
12150ENDIF
12160IF search_use_file_type%    arg$+=" -t "+search_file_type$
12170IF search_verbose%          arg$+=" -v"
12180IF (search_use_exec_command% AND search_exec_command$<>"") THEN
12190  arg$+=" -x <FileMatch$Command>"
12200  OSCLI ("Set FileMatch$Command "+search_exec_command$)
12210ENDIF
12220SYS "XWimp_StartTask", cmd_prefix$+arg$+cmd_suffix$
12230ENDPROC
12240:
12250DEF FNrange_to_str(min%, max%, rtype%, min_hex%, max_hex%)
12260LOCAL s$
12270CASE rtype% OF
12280  WHEN 0: s$=FNint_to_str(min%, min_hex%)
12290  WHEN 1: s$=FNint_to_str(min%, min_hex%)+" "+FNint_to_str(max%, max_hex%)
12300  WHEN 2: s$=FNint_to_str(min%, min_hex%)+" +"+FNint_to_str(max%, max_hex%)
12310  WHEN 3: s$=FNint_to_str(min%, min_hex%)+" +-"+FNint_to_str(max%, max_hex%)
12320  WHEN 4: s$=FNint_to_str(min%, min_hex%)+" ++"+FNint_to_str(max%, max_hex%)
12330ENDCASE
12340=s$
12350:
12360DEF FNutc_to_fiveb_str(utc%)
12370LOCAL s$, i%:s$=""
12380FOR i%=4 TO 0 STEP -1
12390  IF (utc%?i%)<16 s$+="0"
12400  s$+=STR$~(utc%?i%)
12410NEXT
12420=s$
12430:
12480DEF FNoptions_menu_event_handler
12490LOCAL done%:done%=0
12500CASE pb%!8 OF
12510  WHEN &500: done%=1
12520  WHEN &501:
12530    IF search_case_sensitive% search_case_sensitive%=0 ELSE search_case_sensitive%=1
12540    done%=1
12550  WHEN &502:
12560    IF search_verbose% search_verbose%=0 ELSE search_verbose%=1
12570    done%=1
12580  WHEN &503:
12590    IF (search_output% AND 1) THEN
12600      search_output% = search_output% AND (NOT 1)
12610    ELSE
12620      search_output% = search_output% OR 1
12630    ENDIF
12640    done%=1
12650  WHEN &504:
12660    IF (search_output% AND 2) THEN
12670      search_output% = search_output% AND (NOT 2)
12680    ELSE
12690      search_output% = search_output% OR 2
12700    ENDIF
12710    done%=1
12720  WHEN &505:
12730    IF search_recurse_dirs% search_recurse_dirs%=0 ELSE search_recurse_dirs%=1
12740    done%=1
12750  WHEN &506:
12760    IF search_recurse_imgs% search_recurse_imgs%=0 ELSE search_recurse_imgs%=1
12770    done%=1
12780ENDCASE
12790IF done%=0 THEN =0
12800PROCoptions_menu_opening
12810=1
12820:
12830DEF PROCoptions_menu_opening
12840LOCAL ERROR:ON ERROR LOCAL PROCreport_basic_error:ENDPROC
12850REM Set ticks on menu appropriately
12860SYS "Toolbox_ObjectMiscOp", 0, obj_ids%!16, 0, &1, search_case_sensitive%
12870SYS "Toolbox_ObjectMiscOp", 0, obj_ids%!16, 0, &2, search_verbose%
12880SYS "Toolbox_ObjectMiscOp", 0, obj_ids%!16, 0, &3, search_output% AND 1
12890SYS "Toolbox_ObjectMiscOp", 0, obj_ids%!16, 0, &4, search_output% AND 2
12900SYS "Toolbox_ObjectMiscOp", 0, obj_ids%!16, 0, &5, search_recurse_dirs%
12910SYS "Toolbox_ObjectMiscOp", 0, obj_ids%!16, 0, &6, search_recurse_imgs%
12920ENDPROC
12930:
12970DEF PROCwimp_message_data_load_dispatcher
12980LOCAL self_id%, cmpt_id%, file$
12990LOCAL obj_type%, load_addr%, exec_addr%, size%, access%
13010SYS "XWindow_WimpToToolbox",0,pb%!20,pb%!24 TO self_id%,cmpt_id%;flags%
13020IF FNsys_warn(self_id%,flags%) ENDPROC
13030IF self_id%=0 ENDPROC
13050LOCAL ERROR:ON ERROR LOCAL:PROCreport_basic_error:ENDPROC
13060SYS "OS_File",17, pb%+44 TO obj_type%,, load_addr%, exec_addr%, size%, access%
13070file$ = CHR$34+FNcstrtobasstr(pb%+44)+CHR$34
13080IF obj_type%=0 PROCreport_error(1,"File "+file$+" does not exist!"):ENDPROC
13100IF FNmatch_message_data_load(self_id%, cmpt_id%, obj_type%, load_addr%, exec_addr%, size%, access%) ENDPROC
13110IF FNaccess_message_data_load(self_id%, access%) ENDPROC
13120IF FNfiletype_message_data_load(self_id%, obj_type%, load_addr%) ENDPROC
13130IF FNdatestamp_message_data_load(self_id%, load_addr%, exec_addr%) ENDPROC
13140IF FNintrange_message_data_load(self_id%, load_addr%, exec_addr%, size%) ENDPROC
13150ENDPROC
13160:
13170DEF PROCsplit_filename(pn$, RETURN p$, RETURN n$)
13180LOCAL colon%, break%, len%, i%
13200len%=LENpn$-1
13210IF len%<1 p$="":n$=pn$:ENDPROC
13220IF pn$="." p$="":n$="":ENDPROC
13230
13250$eb% = pn$
13260break% = FALSE
13270colon% = FALSE
13280i%=len%
13290
13310REPEAT
13320  IF eb%?i%=ASC"." THEN break%=TRUE
13330  IF eb%?i%=ASC":" THEN break%=TRUE:colon%=TRUE
13340  IF (break%=FALSE) THEN
13350    i%-=1
13360    IF i%<0 break%=TRUE
13370  ENDIF
13380UNTIL break%
13390IF i%<0 p$="":n$=pn$:ENDPROC
13400
13410IF colon% THEN
13420  IF (i%=0) THEN
13430    p$="":n$=$(eb%+1)
13440  ELSE
13450    IF (eb%?(i%-1)=ASC":") THEN
13460      eb%?i%=13
13470      p$=$eb%:n$=$(eb%+i%+1)
13480      IF (i%=1) p$=""
13490    ELSE
13500      n$=$(eb%+i%+1)
13510      eb%?(i%+1)=13
13520      p$=$eb%
13530    ENDIF
13540  ENDIF
13550ELSE
13560  eb%?i%=13
13570  p$=$eb%:n$=$(eb%+i%+1)
13580ENDIF
13590ENDPROC
13600:
13610DEF FNfiletype_to_str(type%)
13620LOCAL r2%, r3%
13630SYS "OS_FSControl", 18,, type% TO ,, r2%, r3%
13640eb%!0=r2%:eb%!4=r3%:eb%?8=0
13641FOR r2%=7 TO 0 STEP -1
13642  IF eb%?r2% = 32 eb%?r2% = 13:ELSE r2%=0
13643NEXT
13650=$eb%

L� **********************************************************************
� *   Title: !RunImage
4� * Purpose: RISC OS WIMP frontend for FileMatch
(*� *  Author: � Sanjay Pattni 1989-1996
2!� * Version: 1.01 (20-Mar-96)
<L� **********************************************************************
F
P� � � � �:�error:�
Z�initialise
d
quit% = �
n�:�poll:� quit%
x�terminate
��
�:
�� �initialise
�
� eb% 256
� time_ords% 36
appname$ = "File Match"
#appnamedir$ = "<FileMatch$Dir>"
"�initialise_search_options
6�initialise_wimp
@�
J:
T � �initialise_search_options
^#search_use_access%          = 0
h$search_access%              = 11
r$search_access_mask%         = 59
|#search_case_sensitive%      = 0
�#search_use_date%            = 0
�,search_date_match_type%     = &00 + &000
�+search_date_relative_type%  = &00+&0200
�,� search_date_min% 5, search_date_max% 5
�'�read_current_utc(search_date_min%)
�'�read_current_utc(search_date_max%)
�#search_use_exec_addr%       = 0
�$search_exec_addr_min%       = 20
�$search_exec_addr_max%       = 30
�+search_exec_addr_rtype%     = &01010000
�#search_use_load_addr%       = 0
�#search_load_addr_min%       = 0
$search_load_addr_max%       = 10
+search_load_addr_rtype%     = &01010000
#search_use_name%            = 0
&%search_name$                = "*"
0#search_output%              = 1
:$search_obj_types%           = &5
D#search_use_start_path%      = 0
N$search_start_path$          = ""
X#search_recurse_dirs%        = 1
b#search_recurse_imgs%        = 0
l#search_use_size%            = 0
v$search_size_min%            = 40
�$search_size_max%            = 50
�+search_size_rtype%          = &00000000
�#search_use_file_type%       = 0
�(search_file_type$           = "Text"
�#search_verbose%             = 0
�#search_use_exec_command%    = 0
�$search_exec_command$        = ""
��
�:
� �initialise_wimp

� pb% 512
 � zero_word% 4
*!zero_word% = 0
4� msgs_file_desc% 16
>� obj_ids% 24
Rcș "Toolbox_Initialise", 0, 310, zero_word%, zero_word%, appnamedir$, msgs_file_desc%, obj_ids%
\poll_mask% = &3833
ftoolbox_quit_event% = 1
pmatch_obj_id%  = 0
zaccess_obj_id% = 0
�� intrange_obj_id%(3)
��
�:
�� �terminate
��
�:
� �error
� err$, err%
$eno% = �
.8err$ = "Fatal Internal Error ("+Þ+":"+ß+":"+�$+")"
8�terminate
B�report_error(eno%, err$)
L�
V:
�� �report_basic_error
�)�report_error(�, Þ+":"+ß+":"+�$+"")
��
�:
�� �report_error(e%, e$)
�eb%!0 = e%
�$(eb%+4) = e$ + �0
,ș "XWimp_ReportError", eb%, 1, appname$

�
:
P� �sys_warn(r0%,flags%)
Z� (flags%�1)=0 � =0
d:ș "XWimp_ReportError",r0%,17,"Warning from "+appname$
n=1
x:
�� �poll
�� poll_event%
�1ș "Wimp_Poll", poll_mask%, pb% � poll_event%
�Ȏ poll_event% �
�'  � 6: �poll_mouse_click_dispatcher
-  � 17, 18: �poll_wimp_message_dispatcher
,  � &200: �poll_toolbox_event_dispatcher
�
"�
,:
^"� �poll_mouse_click_dispatcher
h� self_id%, cmpt_id%
r&� Find the Object Id of the window
|Iș "XWindow_WimpToToolbox",0,pb%!12,pb%!16 � self_id%,cmpt_id%;flags%
�"� �sys_warn(self_id%,flags%) �
�� self_id%=0 �
�6� �access_mouse_click_handler(self_id%,cmpt_id%) �
�8� �intrange_mouse_click_handler(self_id%,cmpt_id%) �
��
�:
#� �poll_wimp_message_dispatcher
Ȏ pb%!16 �
&  � 0: quit% = �
0-  � 3: �wimp_message_data_load_dispatcher
:�
D�
N:
�$� �poll_toolbox_event_dispatcher
�Ȏ pb%!8 �
�'  � toolbox_quit_event%: quit%=�: �
�3  � &44ec0: �report_error(pb%!16, $(pb%+20)): �
�:  � &44ec1: �toolbox_object_auto_created_dispatcher: �
��
�"�toolbox_misc_event_dispatcher
��
�:
*-� �toolbox_object_auto_created_dispatcher
4%� obj$:obj$=�cstrtobasstr(pb%+16)
>.� �match_dbox_auto_created_handler(obj$) �
H/� �access_dbox_auto_created_handler(obj$) �
R1� �intrange_dbox_auto_created_handler(obj$) �
\2� �datestamp_dbox_auto_created_handler(obj$) �
f1� �filetype_dbox_auto_created_handler(obj$) �
p�
z:
�$� �toolbox_misc_event_dispatcher
�&� �match_misc_toolbox_dispatcher �
�'� �access_misc_toolbox_dispatcher �
�)� �intrange_misc_toolbox_dispatcher �
�*� �datestamp_misc_toolbox_dispatcher �
�)� �filetype_misc_toolbox_dispatcher �
�#� �options_menu_event_handler �
��
�:
	V,� �match_dbox_auto_created_handler(obj$)
	`� v$
	j� obj$<>"match" � =0
	tmatch_obj_id% = obj_ids%!16
	~0�writablefield_set_value(obj_ids%!16,&11,"")
	�0�writablefield_set_value(obj_ids%!16,&12,"")
	�0�writablefield_set_value(obj_ids%!16,&13,"")
	��filetype_set_display
	��intrange_set_display(0)
	��datestamp_set_display
	��access_set_display
	��intrange_set_display(1)
	��intrange_set_display(2)
	�=1
	�:
$� �match_misc_toolbox_dispatcher
'� obj_ids%!16 <> match_obj_id% � =0
(Ȏ pb%!8 �
2*  � &100: �match_dbox_click_ok_handler
<#  � &82880: �match_dbox_opening
P�
Z=1
d:
�"� �match_dbox_click_ok_handler
�Hsearch_use_start_path%   = �optionbutton_get_value(obj_ids%!16, &21)
�Hsearch_use_name%         = �optionbutton_get_value(obj_ids%!16, &22)
�Hsearch_use_file_type%    = �optionbutton_get_value(obj_ids%!16, &23)
�Hsearch_use_size%         = �optionbutton_get_value(obj_ids%!16, &24)
�Hsearch_use_date%         = �optionbutton_get_value(obj_ids%!16, &25)
�Hsearch_use_access%       = �optionbutton_get_value(obj_ids%!16, &26)
�Hsearch_use_load_addr%    = �optionbutton_get_value(obj_ids%!16, &27)
�Hsearch_use_exec_addr%    = �optionbutton_get_value(obj_ids%!16, &28)
�Hsearch_use_exec_command% = �optionbutton_get_value(obj_ids%!16, &29)
�Esearch_start_path$   = �writablefield_get_value(obj_ids%!16, &11)
Esearch_name$         = �writablefield_get_value(obj_ids%!16, &12)
Esearch_exec_command$ = �writablefield_get_value(obj_ids%!16, &13)
�start_search
"�
,:
^� �match_dbox_opening
rC�optionbutton_set_value(obj_ids%!16,&21,search_use_start_path%)
|=�optionbutton_set_value(obj_ids%!16,&22,search_use_name%)
�B�optionbutton_set_value(obj_ids%!16,&23,search_use_file_type%)
�=�optionbutton_set_value(obj_ids%!16,&24,search_use_size%)
�=�optionbutton_set_value(obj_ids%!16,&25,search_use_date%)
�?�optionbutton_set_value(obj_ids%!16,&26,search_use_access%)
�B�optionbutton_set_value(obj_ids%!16,&27,search_use_load_addr%)
�B�optionbutton_set_value(obj_ids%!16,&28,search_use_exec_addr%)
�E�optionbutton_set_value(obj_ids%!16,&29,search_use_exec_command%)
��
�:
e� �match_message_data_load(self_id%, cmpt_id%, obj_type%, load_addr%, exec_addr%, size%, access%)
� pn$, p$, n$
$� self_id% <> match_obj_id% � =0
&pn$=�cstrtobasstr(pb%+44)
0 �split_filename(pn$, p$, n$)
:Ȏ cmpt_id% �
D  � &11: � Start path
N8    �writablefield_set_value(self_id%, cmpt_id%, p$)
X  � &12: � Wild name
b8    �writablefield_set_value(self_id%, cmpt_id%, n$)
l  � &13: � Exec command
vI    �writablefield_set_value(self_id%, cmpt_id%, "Run "+pn$+" \p.\n")
�  
�3    �writablefield_set_value(self_id%, &12, n$)
�F    search_file_type$ = �filetype_to_str((load_addr% >> 8) � &fff)
�.    search_obj_types% = 1 << (obj_type%-1)
�    �filetype_set_display
�     search_size_min% = size%
�     search_size_max% = size%
�    search_size_rtype% = 0
�     �intrange_set_display(0)
�.    � (load_addr% � &fff00000)=&fff00000 �
�(      !search_date_min% = exec_addr%
�(      !search_date_max% = exec_addr%

/      search_date_min%?4 = load_addr% � &ff

/      search_date_max%?4 = load_addr% � &ff

)      search_date_match_type% = &0001

        �datestamp_set_display

*	    �

4     search_access% = access%

>%    search_access_mask% = access%

H    �access_set_display

R*    search_load_addr_min% = load_addr%

\*    search_load_addr_max% = load_addr%

f+    search_load_addr_rtype% = &01010000

p     �intrange_set_display(1)

z*    search_exec_addr_min% = exec_addr%

�*    search_exec_addr_max% = exec_addr%

�+    search_exec_addr_rtype% = &01010000

�     �intrange_set_display(2)

��

�=1

�:
-� �access_dbox_auto_created_handler(obj$)
� obj$<>"access" � =0
$ access_obj_id% = obj_ids%!16
.=1
8:
j%� �access_misc_toolbox_dispatcher
t(� obj_ids%!16 <> access_obj_id% � =0
~Ȏ pb%!8 �
�+  � &200: �access_dbox_click_ok_handler
�$  � &82880: �access_dbox_opening
��
�=1
�:
�2� �access_message_data_load(self_id%, access%)
�� state$
�%� self_id% <> access_obj_id% � =0
2� (access% � 128) � state$="yes" � state$="no"

3�button_set_value(access_obj_id%, &101, state$)
0� (access% � 8) � state$="yes" � state$="no"
3�button_set_value(access_obj_id%, &102, state$)
(0� (access% � 2) � state$="yes" � state$="no"
23�button_set_value(access_obj_id%, &103, state$)
<0� (access% � 1) � state$="yes" � state$="no"
F3�button_set_value(access_obj_id%, &104, state$)
P1� (access% � 32) � state$="yes" � state$="no"
Z3�button_set_value(access_obj_id%, &105, state$)
d1� (access% � 16) � state$="yes" � state$="no"
n3�button_set_value(access_obj_id%, &106, state$)
x=1
�:
�#� �access_dbox_click_ok_handler
�!� access%, mask%, i%, b%, on%
�access%=0:mask%=0
�� i% = 1 � 6
�1  Ȏ �button_get_value(obj_ids%!16,&100+i%) �
�    � "yes": on% = 1
�    � "no":  on% = 2
�    :  on% = 3
  �

  Ȏ i% �
    � 1: b%=128
"    � 2: b%=8
,    � 3: b%=2
6    � 4: b%=1
@    � 5: b%=32
J    � 6: b%=16
T  �
^  � (on%=1 � on%=2) �
h(    � on%=1 � access%=(access% � b%)
r    mask%=(mask% � b%)
|  �
��
�search_access%=access%
�search_access_mask%=mask%
��access_set_display
��
�:
�� �access_set_display
�@�displayfield_set_value(match_obj_id%, &505, �access_to_str)
��
:
:� �access_to_str
D� disp$:disp$=""
N#� (search_access_mask% � 128) �
X6  � (search_access% � 128) disp$+="P" � disp$+="p"
b�
l!� (search_access_mask% � 8) �
v6  � (search_access% � 8)   disp$+="L" � disp$+="l"
��
�!� (search_access_mask% � 2) �
�6  � (search_access% � 2)   disp$+="W" � disp$+="w"
��
�!� (search_access_mask% � 1) �
�6  � (search_access% � 1)   disp$+="R" � disp$+="r"
��
�disp$+="/"
�"� (search_access_mask% � 32) �
�6  � (search_access% � 32)  disp$+="W" � disp$+="w"
��
�"� (search_access_mask% � 16) �
�6  � (search_access% � 16)  disp$+="R" � disp$+="r"
�

=disp$
:
H� �access_dbox_opening
R� b%, i%, s$
\� i%=1 � 6
f
  Ȏ i% �
p    � 1: b%=128
z    � 2: b%=8
�    � 3: b%=2
�    � 4: b%=1
�    � 5: b%=32
�    � 6: b%=16
�  �
�(  � ((b% � search_access_mask%)=0) �
�    s$="dontcare"
�  �
�0    �(b% � search_access%) s$="yes" �s$="no"
�  �
�/  �button_set_value(obj_ids%!16,&100+i%,s$)
��
��
:
84� �access_mouse_click_handler(self_id%,cmpt_id%)
B%� self_id% <> access_obj_id% � =0
L*� (cmpt_id%<&101 � cmpt_id%>&106) � =1
V0�access_dbox_toggle_state(self_id%,cmpt_id%)
`=1
j:
�2� �access_dbox_toggle_state(self_id%,cmpt_id%)
�� state$
�2state$ = �button_get_value(self_id%, cmpt_id%)
�O� state$="yes" state$="no" � � state$="no" state$="dontcare" � state$="yes"
�/�button_set_value(self_id%,cmpt_id%,state$)
��
�:
20� �datestamp_dbox_auto_created_handler(obj$)
<� obj$<>"datestamp" � =0
F#datestamp_obj_id% = obj_ids%!16
P=1
Z:
�(� �datestamp_misc_toolbox_dispatcher
�+� obj_ids%!16 <> datestamp_obj_id% � =0
�Ȏ pb%!8 �
�.  � &200: �datestamp_dbox_click_ok_handler
�'  � &82880: �datestamp_dbox_opening
��
�=1
�:
&� �datestamp_dbox_click_ok_handler
� match_type%, rel_type%
"� yr%, mo%, dt%, hr%, mi%, se%
"?match_type% = �stringset_get_value_index(obj_ids%!16, &100)
,Bmatch_type% += 256*�optionbutton_get_value(obj_ids%!16, &3000)
6>rel_type% = �stringset_get_value_index(obj_ids%!16, &1001)
@Crel_type% += 256*�stringset_get_value_index(obj_ids%!16, &1002)
J
T4yr% = �numberrange_get_value(obj_ids%!16, &2001)
^:mo% = �stringset_get_value_index(obj_ids%!16, &2002)+1
h4dt% = �numberrange_get_value(obj_ids%!16, &2003)
r4hr% = �numberrange_get_value(obj_ids%!16, &2004)
|4mi% = �numberrange_get_value(obj_ids%!16, &2005)
�4se% = �numberrange_get_value(obj_ids%!16, &2006)
�@�ords_to_utc(search_date_min%, yr%, mo%, dt%, hr%, mi%, se%)
�4yr% = �numberrange_get_value(obj_ids%!16, &3001)
�:mo% = �stringset_get_value_index(obj_ids%!16, &3002)+1
�4dt% = �numberrange_get_value(obj_ids%!16, &3003)
�4hr% = �numberrange_get_value(obj_ids%!16, &3004)
�4mi% = �numberrange_get_value(obj_ids%!16, &3005)
�4se% = �numberrange_get_value(obj_ids%!16, &3006)
�@�ords_to_utc(search_date_max%, yr%, mo%, dt%, hr%, mi%, se%)
�
�)search_date_match_type% = match_type%
�*search_date_relative_type% = rel_type%
��datestamp_set_display
�
:
DD� �datestamp_message_data_load(self_id%, load_addr%, exec_addr%)
N"� yr%, mo%, dt%, hr%, mi%, se%
X(� self_id% <> datestamp_obj_id% � =0
b*� (load_addr% � &fff00000)=&fff00000 �
l(  !eb% = exec_addr%:eb%?4=load_addr%
v5  �utc_to_ords(eb%, yr%, mo%, dt%, hr%, mi%, se%)
�
�3  �stringset_set_value_index(self_id%, &100, 1)
�
�2  �numberrange_set_value(self_id%, &2001, yr%)
�8  �stringset_set_value_index(self_id%, &2002, mo%-1)
�2  �numberrange_set_value(self_id%, &2003, dt%)
�2  �numberrange_set_value(self_id%, &2004, hr%)
�2  �numberrange_set_value(self_id%, &2005, mi%)
�2  �numberrange_set_value(self_id%, &2006, se%)
�
�2  �numberrange_set_value(self_id%, &3001, yr%)
�8  �stringset_set_value_index(self_id%, &3002, mo%-1)
�2  �numberrange_set_value(self_id%, &3003, dt%)
2  �numberrange_set_value(self_id%, &3004, hr%)
2  �numberrange_set_value(self_id%, &3005, mi%)
2  �numberrange_set_value(self_id%, &3006, se%)
 
*1  �optionbutton_set_value(self_id%, &3000, 0)
4�
>=0
H:
z� �datestamp_set_display
�'� (search_date_match_type% � &ff) �
�*  time1$=�utc_to_str(search_date_min%)
�0  time2$="to "+�utc_to_str(search_date_max%)
��
�%  time1$=�relative_time_to_str(0)
�  time2$="---"
��
�8�displayfield_set_value(match_obj_id%, &503, time1$)
�8�displayfield_set_value(match_obj_id%, &504, time2$)
��
�:
�$� �relative_time_to_str(is_cmd%)
�� t$
+Ȏ (search_date_relative_type% � &ff) �
*  � 0: � is_cmd% t$="this" � t$="This"
*  � 1: � is_cmd% t$="last" � t$="Last"
$*  � 2: � is_cmd% t$="past" � t$="Past"
.�
8� is_cmd%=0 � t$+=" "
B0Ȏ (search_date_relative_type% � &ff00)>>8 �
L-  � 0: � is_cmd% t$+="hour"  � t$+="Hour"
V,  � 1: � is_cmd% t$+="day"   � t$+="Day"
`-  � 2: � is_cmd% t$+="week"  � t$+="Week"
j.  � 3: � is_cmd% t$+="month" � t$+="Month"
t-  � 4: � is_cmd% t$+="year"  � t$+="Year"
~�
�=t$
�:
�� �datestamp_dbox_opening
�� index%, dummy%
�"� yr%, mo%, dt%, hr%, mi%, se%
�(index%=search_date_match_type% � &ff
�9�stringset_set_value_index(obj_ids%!16, &100, index%)
�+index%=search_date_relative_type% � &ff
:�stringset_set_value_index(obj_ids%!16, &1001, index%)

4index%=(search_date_relative_type% � &ff00) >> 8
:�stringset_set_value_index(obj_ids%!16, &1002, index%)
)dummy%=search_date_match_type% � &100
(7�optionbutton_set_value(obj_ids%!16, &3000, dummy%)
2
<@�utc_to_ords(search_date_min%, yr%, mo%, dt%, hr%, mi%, se%)
F3�numberrange_set_value(obj_ids%!16, &2001, yr%)
P9�stringset_set_value_index(obj_ids%!16, &2002, mo%-1)
Z3�numberrange_set_value(obj_ids%!16, &2003, dt%)
d3�numberrange_set_value(obj_ids%!16, &2004, hr%)
n3�numberrange_set_value(obj_ids%!16, &2005, mi%)
x3�numberrange_set_value(obj_ids%!16, &2006, se%)
�
�@�utc_to_ords(search_date_max%, yr%, mo%, dt%, hr%, mi%, se%)
�3�numberrange_set_value(obj_ids%!16, &3001, yr%)
�9�stringset_set_value_index(obj_ids%!16, &3002, mo%-1)
�3�numberrange_set_value(obj_ids%!16, &3003, dt%)
�3�numberrange_set_value(obj_ids%!16, &3004, hr%)
�3�numberrange_set_value(obj_ids%!16, &3005, mi%)
�3�numberrange_set_value(obj_ids%!16, &3006, se%)
��
�:
6/� �filetype_dbox_auto_created_handler(obj$)
@� obj$<>"filetype" � =0
J"filetype_obj_id% = obj_ids%!16
T=1
^:
�'� �filetype_misc_toolbox_dispatcher
�*� obj_ids%!16 <> filetype_obj_id% � =0
�Ȏ pb%!8 �
�-  � &200: �filetype_dbox_click_ok_handler
�&  � &82880: �filetype_dbox_opening
��
�=1
�:
B� �filetype_message_data_load(self_id%, obj_type%, load_addr%)
'� self_id% <> filetype_obj_id% � =0
T�stringset_set_value(self_id%, &100, �filetype_to_str((load_addr% >> 8) � &fff))
&8�optionbutton_set_value(self_id%,&1001, obj_type%=1)
08�optionbutton_set_value(self_id%,&1002, obj_type%=2)
:8�optionbutton_set_value(self_id%,&1003, obj_type%=3)
D=1
N:
�%� �filetype_dbox_click_ok_handler
�� file_type$, on%
�8file_type$ = �stringset_get_value(obj_ids%!16, &100)
�A� file_type$="" �report_error(1,"Filetype field is empty!"):�
� search_file_type$=file_type$
�Csearch_obj_types% = �optionbutton_get_value(obj_ids%!16, &1001)
�Fsearch_obj_types% += 2*�optionbutton_get_value(obj_ids%!16, &1002)
�Fsearch_obj_types% += 4*�optionbutton_get_value(obj_ids%!16, &1003)
�3� search_obj_types% = 0 � search_obj_types% = 1
��filetype_set_display
��
�:
 � �filetype_set_display
*)� disp$, had_arg%:disp$="":had_arg%=0
48� (search_obj_types% � 1) � disp$="Files":had_arg%=1
>� (search_obj_types% � 2) �
H  � had_arg% � disp$+="/"
R  disp$+="Dirs"
\  had_arg%=1
f�
p� (search_obj_types% � 4) �
z  � had_arg% � disp$+="/"
�  disp$+="Images"
��
�$disp$+=" of: "+search_file_type$
�7�displayfield_set_value(match_obj_id%, &501, disp$)
��
�:
�� �filetype_dbox_opening
�>�stringset_set_value(obj_ids%!16, &100, search_file_type$)
�D�optionbutton_set_value(obj_ids%!16,&1001,search_obj_types% � 1)
D�optionbutton_set_value(obj_ids%!16,&1002,search_obj_types% � 2)
D�optionbutton_set_value(obj_ids%!16,&1003,search_obj_types% � 4)
�
$:
~/� �intrange_dbox_auto_created_handler(obj$)
�� obj$<>"intrange" � =0
�=1
�:
�'� �intrange_misc_toolbox_dispatcher
�>� �toolbox_get_template_name(obj_ids%!16)<>"intrange" � =0
�Ȏ pb%!8 �
�-  � &200: �intrange_dbox_click_ok_handler
�&  � &82880: �intrange_dbox_opening
�

=1
:
FJ� �intrange_message_data_load(self_id%, load_addr%, exec_addr%, size%)
P6� anc_id%, anc_cmpt%, hex%, min%, max%, min$, max$
Z$� �:� � �:�report_basic_error:=0
d=ș "Toolbox_GetAncestor", , self_id% � anc_id%, anc_cmpt%
n#� anc_id% <> match_obj_id% � =0
o� �
xȎ anc_cmpt% �
�0  � &900: min% = size%:max% = size%:hex% = 0
�:  � &901: min% = load_addr%:max% = load_addr%:hex% = 1
�:  � &902: min% = exec_addr%:max% = exec_addr%:hex% = 1
�  : =0
��
�B� hex% min$="&"+�~min%:max$="&"+�~max% � min$=�min%:max$=�max%
�1�writablefield_set_value(self_id%, &10, min$)
"~1�writablefield_set_value(self_id%, &20, max$)
"�1�stringset_set_value_index(self_id%, &110, 0)
"�=1
�:
�%� �intrange_dbox_click_ok_handler
1� client%, arg1$, arg2$, arg1%, arg2%, rtype%
:rtype% = �stringset_get_value_index(obj_ids%!16, &110)
6arg1$  = �writablefield_get_value(obj_ids%!16,&10)
"/� �arg1$,1)="&" � rtype% = rtype% � &010000
,6arg2$  = �writablefield_get_value(obj_ids%!16,&20)
61� �arg2$,1)="&" � rtype% = rtype% � &01000000
@
J.� �:� � � �report_error(1,"Bad number!"):�
Targ1% = �arg1$
^arg2% = �arg2$
h� �
r
|client%=obj_ids%!4 - &900
�Ȏ client% �
�8  � 0: search_size_min%=arg1%:search_size_max%=arg2%
�)          search_size_rtype% = rtype%
�B  � 1: search_load_addr_min%=arg1%:search_load_addr_max%=arg2%
�.          search_load_addr_rtype% = rtype%
�B  � 2: search_exec_addr_min%=arg1%:search_exec_addr_max%=arg2%
�.          search_exec_addr_rtype% = rtype%
��
�
�"�intrange_set_display(client%)
��
�:
 &$� �intrange_set_display(client%)
 0:� disp$, cmpt%, min_hex%, max_hex%, min%, max%, rtype%
 :Ȏ client% �
 D  � 0: cmpt% = &502
 N2          min_hex%=search_size_rtype% � &10000
 X4          max_hex%=search_size_rtype% � &1000000
 b-          rtype%=search_size_rtype% � &ff
 l#          min%=search_size_min%
 v#          max%=search_size_max%
 �  � 1: cmpt% = &506
 �7          min_hex%=search_load_addr_rtype% � &10000
 �9          max_hex%=search_load_addr_rtype% � &1000000
 �2          rtype%=search_load_addr_rtype% � &ff
 �(          min%=search_load_addr_min%
 �(          max%=search_load_addr_max%
 �  � 2: cmpt% = &507
 �7          min_hex%=search_exec_addr_rtype% � &10000
 �9          max_hex%=search_exec_addr_rtype% � &1000000
 �2          rtype%=search_exec_addr_rtype% � &ff
 �(          min%=search_exec_addr_min%
 �(          max%=search_exec_addr_max%
 ��
!
!Ȏ rtype% �
!7  � 0: disp$="Exactly "+�int_to_str(min%, min_hex%)
! M  � 1: disp$=�int_to_str(min%,min_hex%)+" to "+�int_to_str(max%,max_hex%)
!*R  � 2: disp$=�int_to_str(min%,min_hex%)+" to "+�int_to_str(min%+max%,min_hex%)
!4R  � 3: disp$=�int_to_str(min%,min_hex%)+" to "+�int_to_str(min%-max%,min_hex%)
!>M  � 4: disp$=�int_to_str(min%,min_hex%)+" +- "+�int_to_str(max%,max_hex%)
!H�
!R8�displayfield_set_value(match_obj_id%, cmpt%, disp$)
!\�
!f:
!�� �intrange_dbox_opening
!�A� min%,max%,client%,min_hex%,max_hex%,rtype%,min$,max$,title$
!�client%=obj_ids%!4 - &900
!�Ȏ client% �
!�6  � 0: min%=search_size_min%:max%=search_size_max%
!�5          min_hex%=(search_size_rtype% � &010000)
!�7          max_hex%=(search_size_rtype% � &01000000)
!�/          rtype%=(search_size_rtype% � &ff)
!�           title$="File Size"
!�@  � 1: min%=search_load_addr_min%:max%=search_load_addr_max%
!�:          min_hex%=(search_load_addr_rtype% � &010000)
"<          max_hex%=(search_load_addr_rtype% � &01000000)
"4          rtype%=(search_load_addr_rtype% � &ff)
"#          title$="Load Address"
"$@  � 2: min%=search_exec_addr_min%:max%=search_exec_addr_max%
".:          min_hex%=(search_exec_addr_rtype% � &010000)
"8<          max_hex%=(search_exec_addr_rtype% � &01000000)
"B4          rtype%=(search_exec_addr_rtype% � &ff)
"L#          title$="Exec Address"
"V�
"`+� min_hex% min$="&"+�~min% � min$=�min%
"j+� max_hex% max$="&"+�~max% � max$=�max%
"t2�writablefield_set_value(obj_ids%!16,&10,min$)
"~2�writablefield_set_value(obj_ids%!16,&20,max$)
"�7�stringset_set_value_index(obj_ids%!16,&110,rtype%)
"�)�window_set_title(obj_ids%!16,title$)
"��
"�:
"�8� �intrange_mouse_click_handler(self_id%,self_cmpt%)
"�$� anc_cmpt%,val$,val%,disp%,mod%
"�;� �toolbox_get_template_name(self_id%)<>"intrange" � =0
"�� pb%!8<>1 � pb%!8<>4 � =1
#/� �:� � � �report_error(1,"Bad number!"):=1
#

#.� self_cmpt% < &11 � self_cmpt% > &22 � =1
#
mod%=1024
#(2� self_cmpt%=&11 � self_cmpt%=&21 mod%=mod%*-1
#2� pb%!8=1 mod%=mod%*-1
#<
#Fdisp% = self_cmpt% � &f0
#P1val$=�writablefield_get_value(self_id%,disp%)
#Zval%=�val$
#d� mod%<0 �
#n3  � (val%<1024 � val%>=0) � val%=0 � val%-=1024
#x�
#�5  � (val%>=-1024 � val%<0) � val%=-1 � val%+=1024
#��
#�7� �val$,1)="&" � newval$="&"+�~val% � newval$=�val%
#�4�writablefield_set_value(self_id%,disp%,newval$)
#�=1
#�:
$� �cstrtobasstr(s%)
$� b$:b$=""
$"ȕ ?s%>31:b$+=�?s%:s%+=1:�
$,=b$
$6:
$h� �int_to_str(i%, ishex%)
$r� i$
$|� ishex% � ="&"+�~i%
$�
i$=�i%
$�� �i$,1)="-" �="0"
$�=i$
$�:
$�!� �read_current_utc(utc_blk%)
%� r0%,flags%,dummy%
%utc_blk%!0 = 3
%*ș "XOS_Word",14,utc_blk% � r0%;flags%
%&!dummy%=�sys_warn(r0%, flags%)
%0�
%::
%lC� �utc_to_ords(time%, � yr%, � mo%, � dt%, � hr%, � mi%, � se%)
%v� r0%,flags%,dummy%
%�Jș "XTerritory_ConvertTimeToOrdinals",-1,time%,time_ords% � r0%;flags%
%�� (�sys_warn(r0%,flags%)) �
%�-  yr%=1995:mo%=1:dt%=1:hr%=12:mi%=0:se%=0
%��
%�;  yr%=time_ords%!24:mo%=time_ords%!20:dt%=time_ords%!16
%�(  hr%=time_ords%!12:mi%=time_ords%!8
%�)  se%=100*time_ords%!4 + time_ords%!0
%��
%��
%�:
&� �utc_to_str(time%)
&� r0%,flags%,dummy%
& iș "XTerritory_ConvertDateAndTime",-1,time%,eb%,256,"%w3 %dy %m3 %ce%yr %24:%mi:%se.%cs" � r0%;flags%
&*#� (�sys_warn(r0%,flags%)) � =""
&4=�cstrtobasstr(eb%)
&>:
&p7� �ords_to_utc(time%, yr%, mo%, dt%, hr%, mi%, se%)
&z� r0%,flags%,dummy%
&�5time_ords%!0=(se% � 100):time_ords%!4=(se% � 100)
&�&time_ords%!8=mi%:time_ords%!12=hr%
&�9time_ords%!16=dt%:time_ords%!20=mo%:time_ords%!24=yr%
&�Jș "XTerritory_ConvertOrdinalsToTime",-1,time%,time_ords% � r0%;flags%
&� dummy%=�sys_warn(r0%,flags%)
&��
&�:
'-� �displayfield_set_value(obj%, cpt%, v$)
'$� r0%,flags%,dummy%
'.>ș "XToolbox_ObjectMiscOp",0,obj%,448,cpt%,v$ � r0%;flags%
'8 dummy%=�sys_warn(r0%,flags%)
'B�
'L:
'�.� �optionbutton_set_value(obj%, cpt%, on%)
'�� r0%,flags%,dummy%
'�� on% on%=1
'�?ș "XToolbox_ObjectMiscOp",0,obj%,196,cpt%,on% � r0%;flags%
'�!dummy%=�sys_warn(r0%, flags%)
'��
'�:
()� �optionbutton_get_value(obj%, cpt%)
(� r0%,flags%
((;ș "XToolbox_ObjectMiscOp",0,obj%,197,cpt% � r0%;flags%
(2!� �sys_warn(r0%, flags%) � =0
(<=r0%
(F:
(�,� �numberrange_set_value(obj%, cpt%, v%)
(�� r0%,flags%,dummy%
(�>ș "XToolbox_ObjectMiscOp",0,obj%,832,cpt%,v% � r0%;flags%
(�!dummy%=�sys_warn(r0%, flags%)
(��
(�:
)(� �numberrange_get_value(obj%, cpt%)
)� r0%,flags%
);ș "XToolbox_ObjectMiscOp",0,obj%,833,cpt% � r0%;flags%
)"!� �sys_warn(r0%, flags%) � =1
),=r0%
)6:
)�4� �stringset_set_value_index(obj%, cpt%, index%)
)�� r0%,flags%,dummy%
)�Bș "XToolbox_ObjectMiscOp",1,obj%,898,cpt%,index% � r0%;flags%
)�!dummy%=�sys_warn(r0%, flags%)
)��
)�:
)�,� �stringset_get_value_index(obj%, cpt%)
)�� r0%,flags%
*;ș "XToolbox_ObjectMiscOp",1,obj%,899,cpt% � r0%;flags%
*!� �sys_warn(r0%, flags%) � =0
*=r0%
*&:
*X*� �stringset_set_value(obj%, cpt%, v$)
*b� r0%,flags%,dummy%
*l>ș "XToolbox_ObjectMiscOp",0,obj%,898,cpt%,v$ � r0%;flags%
*v!dummy%=�sys_warn(r0%, flags%)
*��
*�:
*�&� �stringset_get_value(obj%, cpt%)
*�� r0%,flags%
*�Cș "XToolbox_ObjectMiscOp",0,obj%,899,cpt%,eb%,256 � r0%;flags%
*�"� �sys_warn(r0%, flags%) � =""
*�=�cstrtobasstr(eb%)
*�:
+H*� �writablefield_get_value(obj%, cpt%)
+R� r0%,flags%
+\Cș "XToolbox_ObjectMiscOp",0,obj%,513,cpt%,eb%,256 � r0%;flags%
+f"� �sys_warn(r0%, flags%) � =""
+p=�cstrtobasstr(eb%)
+z:
+�.� �writablefield_set_value(obj%, cpt%, v$)
+�� r0%,flags%,dummy%
+�>ș "XToolbox_ObjectMiscOp",0,obj%,512,cpt%,v$ � r0%;flags%
+�!dummy%=�sys_warn(r0%, flags%)
+��
+�:
,8%� �button_set_value(obj%,cpt%,v$)
,B� r0%,flags%,dummy%
,L>ș "XToolbox_ObjectMiscOp",0,obj%,962,cpt%,v$ � r0%;flags%
,V!dummy%=�sys_warn(r0%, flags%)
,`�
,j:
,�#� �button_get_value(obj%, cpt%)
,�� r0%,flags%
,�Cș "XToolbox_ObjectMiscOp",0,obj%,963,cpt%,eb%,256 � r0%;flags%
,�"� �sys_warn(r0%, flags%) � =""
,�=�cstrtobasstr(eb%)
,�:
- � �window_set_title(obj%,t$)
-
� r0%,flags%,dummy%
-8ș "XToolbox_ObjectMiscOp",0,obj%,11,t$ � r0%;flags%
-!dummy%=�sys_warn(r0%, flags%)
-(�
-2:
-�&� �toolbox_get_template_name(obj%)
-�� r0%,flags%,dummy%
-�Dș "XToolbox_GetTemplateName",0,obj_ids%!16,eb%,256 � r0%;flags%
-�!dummy%=�sys_warn(r0%, flags%)
-�=�cstrtobasstr(eb%)
-�:
.� �start_search
."$� cmd_prefix$, cmd_suffix$, arg$
.,-cmd_prefix$="Taskwindow "+�34+"FileMatch"
.6Bcmd_suffix$=�34+" 32K "+�34+"File Match"+�34+" -display -quit"
.@arg$=""
.J:� search_use_access%       arg$+=" -a "+�access_to_str
.T+� search_case_sensitive%   arg$+=" -cs"
.^� search_use_date% �
.h  arg$+=" -d "
.r%  � (search_date_match_type%=0) �
.|&    arg$+=�relative_time_to_str(1)
.�  �
.�1    arg$+=�utc_to_fiveb_str(search_date_min%)
.�Z    � (search_date_match_type% � &100) � arg$+=" "+�utc_to_fiveb_str(search_date_max%)
.�  �
.��
.�� search_use_exec_addr% �
.�  arg$+=" -e "
.̬  arg$+=�range_to_str(search_exec_addr_min%, search_exec_addr_max%, search_exec_addr_rtype% � &ff, search_exec_addr_rtype% � &10000, search_exec_addr_rtype% � &1000000)
.��
.� � search_use_load_addr%    �
.�  arg$+=" -l "
.�  arg$+=�range_to_str(search_load_addr_min%, search_load_addr_max%, search_load_addr_rtype% � &ff, search_load_addr_rtype% � &10000, search_load_addr_rtype% � &1000000)
.��
/� search_use_name% �
/J  � (search_name$<>"" � search_name$<>"*") � arg$+=" -n "+search_name$
/�
/&;� search_output%           arg$+=" -o "+�search_output%
/0?� search_obj_types%<>1     arg$+=" -ot "+�search_obj_types%
/:Y� (search_use_start_path% � search_start_path$<>"") � arg$+=" -p "+search_start_path$
/D*� search_recurse_dirs%     arg$+=" -r"
/N+� search_recurse_imgs%     arg$+=" -ri"
/X � search_use_size%         �
/b  arg$+=" -s "
/l�  arg$+=�range_to_str(search_size_min%, search_size_max%, search_size_rtype% � &ff, search_size_rtype% � &10000, search_size_rtype% � &1000000)
/v�
/�=� search_use_file_type%    arg$+=" -t "+search_file_type$
/�*� search_verbose%          arg$+=" -v"
/�=� (search_use_exec_command% � search_exec_command$<>"") �
/�%  arg$+=" -x <FileMatch$Command>"
/�7  � ("Set FileMatch$Command "+search_exec_command$)
/��
/�6ș "XWimp_StartTask", cmd_prefix$+arg$+cmd_suffix$
/��
/�:
/�;� �range_to_str(min%, max%, rtype%, min_hex%, max_hex%)
/�� s$
/�Ȏ rtype% �
/�)  � 0: s$=�int_to_str(min%, min_hex%)
0I  � 1: s$=�int_to_str(min%, min_hex%)+" "+�int_to_str(max%, max_hex%)
0J  � 2: s$=�int_to_str(min%, min_hex%)+" +"+�int_to_str(max%, max_hex%)
0K  � 3: s$=�int_to_str(min%, min_hex%)+" +-"+�int_to_str(max%, max_hex%)
0 K  � 4: s$=�int_to_str(min%, min_hex%)+" ++"+�int_to_str(max%, max_hex%)
0*�
04=s$
0>:
0H� �utc_to_fiveb_str(utc%)
0R� s$, i%:s$=""
0\� i%=4 � 0 � -1
0f  � (utc%?i%)<16 s$+="0"
0p  s$+=�~(utc%?i%)
0z�
0�=s$
0�:
0�!� �options_menu_event_handler
0�� done%:done%=0
0�Ȏ pb%!8 �
0�  � &500: done%=1
0�
  � &501:
0�T    � search_case_sensitive% search_case_sensitive%=0 � search_case_sensitive%=1
0�    done%=1
1
  � &502:
1?    � search_verbose% search_verbose%=0 � search_verbose%=1
1    done%=1
1$
  � &503:
1.     � (search_output% � 1) �
181      search_output% = search_output% � (� 1)
1B	    �
1L-      search_output% = search_output% � 1
1V	    �
1`    done%=1
1j
  � &504:
1t     � (search_output% � 2) �
1~1      search_output% = search_output% � (� 2)
1�	    �
1�-      search_output% = search_output% � 2
1�	    �
1�    done%=1
1�
  � &505:
1�N    � search_recurse_dirs% search_recurse_dirs%=0 � search_recurse_dirs%=1
1�    done%=1
1�
  � &506:
1�N    � search_recurse_imgs% search_recurse_imgs%=0 � search_recurse_imgs%=1
1�    done%=1
1��
1�� done%=0 � =0
2�options_menu_opening
2
=1
2:
2� �options_menu_opening
2(#� �:� � � �report_basic_error:�
22%� Set ticks on menu appropriately
2<Lș "Toolbox_ObjectMiscOp", 0, obj_ids%!16, 0, &1, search_case_sensitive%
2FEș "Toolbox_ObjectMiscOp", 0, obj_ids%!16, 0, &2, search_verbose%
2PHș "Toolbox_ObjectMiscOp", 0, obj_ids%!16, 0, &3, search_output% � 1
2ZHș "Toolbox_ObjectMiscOp", 0, obj_ids%!16, 0, &4, search_output% � 2
2dJș "Toolbox_ObjectMiscOp", 0, obj_ids%!16, 0, &5, search_recurse_dirs%
2nJș "Toolbox_ObjectMiscOp", 0, obj_ids%!16, 0, &6, search_recurse_imgs%
2x�
2�:
2�(� �wimp_message_data_load_dispatcher
2�� self_id%, cmpt_id%, file$
2�7� obj_type%, load_addr%, exec_addr%, size%, access%
2�Iș "XWindow_WimpToToolbox",0,pb%!20,pb%!24 � self_id%,cmpt_id%;flags%
2�"� �sys_warn(self_id%,flags%) �
2�� self_id%=0 �
2�#� �:� � �:�report_basic_error:�
3Pș "OS_File",17, pb%+44 � obj_type%,, load_addr%, exec_addr%, size%, access%
3)file$ = �34+�cstrtobasstr(pb%+44)+�34
3E� obj_type%=0 �report_error(1,"File "+file$+" does not exist!"):�
3,g� �match_message_data_load(self_id%, cmpt_id%, obj_type%, load_addr%, exec_addr%, size%, access%) �
364� �access_message_data_load(self_id%, access%) �
3@D� �filetype_message_data_load(self_id%, obj_type%, load_addr%) �
3JF� �datestamp_message_data_load(self_id%, load_addr%, exec_addr%) �
3TL� �intrange_message_data_load(self_id%, load_addr%, exec_addr%, size%) �
3^�
3h:
3r&� �split_filename(pn$, � p$, � n$)
3|� colon%, break%, len%, i%
3�len%=�pn$-1
3�� len%<1 p$="":n$=pn$:�
3�� pn$="." p$="":n$="":�
3�
3�$eb% = pn$
3�break% = �
3�colon% = �
3�i%=len%
3�
3��
4  � eb%?i%=�"." � break%=�
4'  � eb%?i%=�":" � break%=�:colon%=�
4  � (break%=�) �
4&
    i%-=1
40    � i%<0 break%=�
4:  �
4D� break%
4N� i%<0 p$="":n$=pn$:�
4X
4b� colon% �
4l  � (i%=0) �
4v    p$="":n$=$(eb%+1)
4�  �
4�    � (eb%?(i%-1)=�":") �
4�      eb%?i%=13
4�       p$=$eb%:n$=$(eb%+i%+1)
4�      � (i%=1) p$=""
4�	    �
4�      n$=$(eb%+i%+1)
4�      eb%?(i%+1)=13
4�      p$=$eb%
4�	    �
4�  �
4��
4�  eb%?i%=13
5  p$=$eb%:n$=$(eb%+i%+1)
5�
5�
5 :
5*� �filetype_to_str(type%)
54� r2%, r3%
5>/ș "OS_FSControl", 18,, type% � ,, r2%, r3%
5Heb%!0=r2%:eb%!4=r3%:eb%?8=0
5I� r2%=7 � 0 � -1
5J)  � eb%?r2% = 32 eb%?r2% = 13:� r2%=0
5K�
5R	=$eb%
�
00000000  0d 00 0a 4c f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...L. **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000040  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 00 14 1a  |************....|
00000050  f4 20 2a 20 20 20 54 69  74 6c 65 3a 20 21 52 75  |. *   Title: !Ru|
00000060  6e 49 6d 61 67 65 0d 00  1e 34 f4 20 2a 20 50 75  |nImage...4. * Pu|
00000070  72 70 6f 73 65 3a 20 52  49 53 43 20 4f 53 20 57  |rpose: RISC OS W|
00000080  49 4d 50 20 66 72 6f 6e  74 65 6e 64 20 66 6f 72  |IMP frontend for|
00000090  20 46 69 6c 65 4d 61 74  63 68 0d 00 28 2a f4 20  | FileMatch..(*. |
000000a0  2a 20 20 41 75 74 68 6f  72 3a 20 a9 20 53 61 6e  |*  Author: . San|
000000b0  6a 61 79 20 50 61 74 74  6e 69 20 31 39 38 39 2d  |jay Pattni 1989-|
000000c0  31 39 39 36 0d 00 32 21  f4 20 2a 20 56 65 72 73  |1996..2!. * Vers|
000000d0  69 6f 6e 3a 20 31 2e 30  31 20 28 32 30 2d 4d 61  |ion: 1.01 (20-Ma|
000000e0  72 2d 39 36 29 0d 00 3c  4c f4 20 2a 2a 2a 2a 2a  |r-96)..<L. *****|
000000f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000130  2a 0d 00 46 04 0d 00 50  16 ee 20 85 20 ee 20 85  |*..F...P.. . . .|
00000140  20 87 3a f2 65 72 72 6f  72 3a e0 0d 00 5a 0f f2  | .:.error:...Z..|
00000150  69 6e 69 74 69 61 6c 69  73 65 0d 00 64 0d 71 75  |initialise..d.qu|
00000160  69 74 25 20 3d 20 a3 0d  00 6e 13 f5 3a f2 70 6f  |it% = ...n..:.po|
00000170  6c 6c 3a fd 20 71 75 69  74 25 0d 00 78 0e f2 74  |ll:. quit%..x..t|
00000180  65 72 6d 69 6e 61 74 65  0d 00 82 05 e0 0d 00 8c  |erminate........|
00000190  05 3a 0d 00 e6 11 dd 20  f2 69 6e 69 74 69 61 6c  |.:..... .initial|
000001a0  69 73 65 0d 00 fa 0d de  20 65 62 25 20 32 35 36  |ise..... eb% 256|
000001b0  0d 01 04 13 de 20 74 69  6d 65 5f 6f 72 64 73 25  |..... time_ords%|
000001c0  20 33 36 0d 01 0e 1b 61  70 70 6e 61 6d 65 24 20  | 36....appname$ |
000001d0  3d 20 22 46 69 6c 65 20  4d 61 74 63 68 22 0d 01  |= "File Match"..|
000001e0  18 23 61 70 70 6e 61 6d  65 64 69 72 24 20 3d 20  |.#appnamedir$ = |
000001f0  22 3c 46 69 6c 65 4d 61  74 63 68 24 44 69 72 3e  |"<FileMatch$Dir>|
00000200  22 0d 01 22 1e f2 69 6e  69 74 69 61 6c 69 73 65  |".."..initialise|
00000210  5f 73 65 61 72 63 68 5f  6f 70 74 69 6f 6e 73 0d  |_search_options.|
00000220  01 36 14 f2 69 6e 69 74  69 61 6c 69 73 65 5f 77  |.6..initialise_w|
00000230  69 6d 70 0d 01 40 05 e1  0d 01 4a 05 3a 0d 01 54  |imp..@....J.:..T|
00000240  20 dd 20 f2 69 6e 69 74  69 61 6c 69 73 65 5f 73  | . .initialise_s|
00000250  65 61 72 63 68 5f 6f 70  74 69 6f 6e 73 0d 01 5e  |earch_options..^|
00000260  23 73 65 61 72 63 68 5f  75 73 65 5f 61 63 63 65  |#search_use_acce|
00000270  73 73 25 20 20 20 20 20  20 20 20 20 20 3d 20 30  |ss%          = 0|
00000280  0d 01 68 24 73 65 61 72  63 68 5f 61 63 63 65 73  |..h$search_acces|
00000290  73 25 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |s%              |
000002a0  3d 20 31 31 0d 01 72 24  73 65 61 72 63 68 5f 61  |= 11..r$search_a|
000002b0  63 63 65 73 73 5f 6d 61  73 6b 25 20 20 20 20 20  |ccess_mask%     |
000002c0  20 20 20 20 3d 20 35 39  0d 01 7c 23 73 65 61 72  |    = 59..|#sear|
000002d0  63 68 5f 63 61 73 65 5f  73 65 6e 73 69 74 69 76  |ch_case_sensitiv|
000002e0  65 25 20 20 20 20 20 20  3d 20 30 0d 01 86 23 73  |e%      = 0...#s|
000002f0  65 61 72 63 68 5f 75 73  65 5f 64 61 74 65 25 20  |earch_use_date% |
00000300  20 20 20 20 20 20 20 20  20 20 20 3d 20 30 0d 01  |           = 0..|
00000310  90 2c 73 65 61 72 63 68  5f 64 61 74 65 5f 6d 61  |.,search_date_ma|
00000320  74 63 68 5f 74 79 70 65  25 20 20 20 20 20 3d 20  |tch_type%     = |
00000330  26 30 30 20 2b 20 26 30  30 30 0d 01 9a 2b 73 65  |&00 + &000...+se|
00000340  61 72 63 68 5f 64 61 74  65 5f 72 65 6c 61 74 69  |arch_date_relati|
00000350  76 65 5f 74 79 70 65 25  20 20 3d 20 26 30 30 2b  |ve_type%  = &00+|
00000360  26 30 32 30 30 0d 01 a4  2c de 20 73 65 61 72 63  |&0200...,. searc|
00000370  68 5f 64 61 74 65 5f 6d  69 6e 25 20 35 2c 20 73  |h_date_min% 5, s|
00000380  65 61 72 63 68 5f 64 61  74 65 5f 6d 61 78 25 20  |earch_date_max% |
00000390  35 0d 01 ae 27 f2 72 65  61 64 5f 63 75 72 72 65  |5...'.read_curre|
000003a0  6e 74 5f 75 74 63 28 73  65 61 72 63 68 5f 64 61  |nt_utc(search_da|
000003b0  74 65 5f 6d 69 6e 25 29  0d 01 b8 27 f2 72 65 61  |te_min%)...'.rea|
000003c0  64 5f 63 75 72 72 65 6e  74 5f 75 74 63 28 73 65  |d_current_utc(se|
000003d0  61 72 63 68 5f 64 61 74  65 5f 6d 61 78 25 29 0d  |arch_date_max%).|
000003e0  01 c2 23 73 65 61 72 63  68 5f 75 73 65 5f 65 78  |..#search_use_ex|
000003f0  65 63 5f 61 64 64 72 25  20 20 20 20 20 20 20 3d  |ec_addr%       =|
00000400  20 30 0d 01 cc 24 73 65  61 72 63 68 5f 65 78 65  | 0...$search_exe|
00000410  63 5f 61 64 64 72 5f 6d  69 6e 25 20 20 20 20 20  |c_addr_min%     |
00000420  20 20 3d 20 32 30 0d 01  d6 24 73 65 61 72 63 68  |  = 20...$search|
00000430  5f 65 78 65 63 5f 61 64  64 72 5f 6d 61 78 25 20  |_exec_addr_max% |
00000440  20 20 20 20 20 20 3d 20  33 30 0d 01 ea 2b 73 65  |      = 30...+se|
00000450  61 72 63 68 5f 65 78 65  63 5f 61 64 64 72 5f 72  |arch_exec_addr_r|
00000460  74 79 70 65 25 20 20 20  20 20 3d 20 26 30 31 30  |type%     = &010|
00000470  31 30 30 30 30 0d 01 f4  23 73 65 61 72 63 68 5f  |10000...#search_|
00000480  75 73 65 5f 6c 6f 61 64  5f 61 64 64 72 25 20 20  |use_load_addr%  |
00000490  20 20 20 20 20 3d 20 30  0d 01 fe 23 73 65 61 72  |     = 0...#sear|
000004a0  63 68 5f 6c 6f 61 64 5f  61 64 64 72 5f 6d 69 6e  |ch_load_addr_min|
000004b0  25 20 20 20 20 20 20 20  3d 20 30 0d 02 08 24 73  |%       = 0...$s|
000004c0  65 61 72 63 68 5f 6c 6f  61 64 5f 61 64 64 72 5f  |earch_load_addr_|
000004d0  6d 61 78 25 20 20 20 20  20 20 20 3d 20 31 30 0d  |max%       = 10.|
000004e0  02 12 2b 73 65 61 72 63  68 5f 6c 6f 61 64 5f 61  |..+search_load_a|
000004f0  64 64 72 5f 72 74 79 70  65 25 20 20 20 20 20 3d  |ddr_rtype%     =|
00000500  20 26 30 31 30 31 30 30  30 30 0d 02 1c 23 73 65  | &01010000...#se|
00000510  61 72 63 68 5f 75 73 65  5f 6e 61 6d 65 25 20 20  |arch_use_name%  |
00000520  20 20 20 20 20 20 20 20  20 20 3d 20 30 0d 02 26  |          = 0..&|
00000530  25 73 65 61 72 63 68 5f  6e 61 6d 65 24 20 20 20  |%search_name$   |
00000540  20 20 20 20 20 20 20 20  20 20 20 20 20 3d 20 22  |             = "|
00000550  2a 22 0d 02 30 23 73 65  61 72 63 68 5f 6f 75 74  |*"..0#search_out|
00000560  70 75 74 25 20 20 20 20  20 20 20 20 20 20 20 20  |put%            |
00000570  20 20 3d 20 31 0d 02 3a  24 73 65 61 72 63 68 5f  |  = 1..:$search_|
00000580  6f 62 6a 5f 74 79 70 65  73 25 20 20 20 20 20 20  |obj_types%      |
00000590  20 20 20 20 20 3d 20 26  35 0d 02 44 23 73 65 61  |     = &5..D#sea|
000005a0  72 63 68 5f 75 73 65 5f  73 74 61 72 74 5f 70 61  |rch_use_start_pa|
000005b0  74 68 25 20 20 20 20 20  20 3d 20 30 0d 02 4e 24  |th%      = 0..N$|
000005c0  73 65 61 72 63 68 5f 73  74 61 72 74 5f 70 61 74  |search_start_pat|
000005d0  68 24 20 20 20 20 20 20  20 20 20 20 3d 20 22 22  |h$          = ""|
000005e0  0d 02 58 23 73 65 61 72  63 68 5f 72 65 63 75 72  |..X#search_recur|
000005f0  73 65 5f 64 69 72 73 25  20 20 20 20 20 20 20 20  |se_dirs%        |
00000600  3d 20 31 0d 02 62 23 73  65 61 72 63 68 5f 72 65  |= 1..b#search_re|
00000610  63 75 72 73 65 5f 69 6d  67 73 25 20 20 20 20 20  |curse_imgs%     |
00000620  20 20 20 3d 20 30 0d 02  6c 23 73 65 61 72 63 68  |   = 0..l#search|
00000630  5f 75 73 65 5f 73 69 7a  65 25 20 20 20 20 20 20  |_use_size%      |
00000640  20 20 20 20 20 20 3d 20  30 0d 02 76 24 73 65 61  |      = 0..v$sea|
00000650  72 63 68 5f 73 69 7a 65  5f 6d 69 6e 25 20 20 20  |rch_size_min%   |
00000660  20 20 20 20 20 20 20 20  20 3d 20 34 30 0d 02 80  |         = 40...|
00000670  24 73 65 61 72 63 68 5f  73 69 7a 65 5f 6d 61 78  |$search_size_max|
00000680  25 20 20 20 20 20 20 20  20 20 20 20 20 3d 20 35  |%            = 5|
00000690  30 0d 02 8a 2b 73 65 61  72 63 68 5f 73 69 7a 65  |0...+search_size|
000006a0  5f 72 74 79 70 65 25 20  20 20 20 20 20 20 20 20  |_rtype%         |
000006b0  20 3d 20 26 30 30 30 30  30 30 30 30 0d 02 94 23  | = &00000000...#|
000006c0  73 65 61 72 63 68 5f 75  73 65 5f 66 69 6c 65 5f  |search_use_file_|
000006d0  74 79 70 65 25 20 20 20  20 20 20 20 3d 20 30 0d  |type%       = 0.|
000006e0  02 9e 28 73 65 61 72 63  68 5f 66 69 6c 65 5f 74  |..(search_file_t|
000006f0  79 70 65 24 20 20 20 20  20 20 20 20 20 20 20 3d  |ype$           =|
00000700  20 22 54 65 78 74 22 0d  02 a8 23 73 65 61 72 63  | "Text"...#searc|
00000710  68 5f 76 65 72 62 6f 73  65 25 20 20 20 20 20 20  |h_verbose%      |
00000720  20 20 20 20 20 20 20 3d  20 30 0d 02 b2 23 73 65  |       = 0...#se|
00000730  61 72 63 68 5f 75 73 65  5f 65 78 65 63 5f 63 6f  |arch_use_exec_co|
00000740  6d 6d 61 6e 64 25 20 20  20 20 3d 20 30 0d 02 bc  |mmand%    = 0...|
00000750  24 73 65 61 72 63 68 5f  65 78 65 63 5f 63 6f 6d  |$search_exec_com|
00000760  6d 61 6e 64 24 20 20 20  20 20 20 20 20 3d 20 22  |mand$        = "|
00000770  22 0d 02 c6 05 e1 0d 02  d0 05 3a 0d 03 02 16 dd  |".........:.....|
00000780  20 f2 69 6e 69 74 69 61  6c 69 73 65 5f 77 69 6d  | .initialise_wim|
00000790  70 0d 03 16 0d de 20 70  62 25 20 35 31 32 0d 03  |p..... pb% 512..|
000007a0  20 12 de 20 7a 65 72 6f  5f 77 6f 72 64 25 20 34  | .. zero_word% 4|
000007b0  0d 03 2a 13 21 7a 65 72  6f 5f 77 6f 72 64 25 20  |..*.!zero_word% |
000007c0  3d 20 30 0d 03 34 18 de  20 6d 73 67 73 5f 66 69  |= 0..4.. msgs_fi|
000007d0  6c 65 5f 64 65 73 63 25  20 31 36 0d 03 3e 11 de  |le_desc% 16..>..|
000007e0  20 6f 62 6a 5f 69 64 73  25 20 32 34 0d 03 52 63  | obj_ids% 24..Rc|
000007f0  c8 99 20 22 54 6f 6f 6c  62 6f 78 5f 49 6e 69 74  |.. "Toolbox_Init|
00000800  69 61 6c 69 73 65 22 2c  20 30 2c 20 33 31 30 2c  |ialise", 0, 310,|
00000810  20 7a 65 72 6f 5f 77 6f  72 64 25 2c 20 7a 65 72  | zero_word%, zer|
00000820  6f 5f 77 6f 72 64 25 2c  20 61 70 70 6e 61 6d 65  |o_word%, appname|
00000830  64 69 72 24 2c 20 6d 73  67 73 5f 66 69 6c 65 5f  |dir$, msgs_file_|
00000840  64 65 73 63 25 2c 20 6f  62 6a 5f 69 64 73 25 0d  |desc%, obj_ids%.|
00000850  03 5c 16 70 6f 6c 6c 5f  6d 61 73 6b 25 20 3d 20  |.\.poll_mask% = |
00000860  26 33 38 33 33 0d 03 66  1b 74 6f 6f 6c 62 6f 78  |&3833..f.toolbox|
00000870  5f 71 75 69 74 5f 65 76  65 6e 74 25 20 3d 20 31  |_quit_event% = 1|
00000880  0d 03 70 16 6d 61 74 63  68 5f 6f 62 6a 5f 69 64  |..p.match_obj_id|
00000890  25 20 20 3d 20 30 0d 03  7a 16 61 63 63 65 73 73  |%  = 0..z.access|
000008a0  5f 6f 62 6a 5f 69 64 25  20 3d 20 30 0d 03 84 19  |_obj_id% = 0....|
000008b0  de 20 69 6e 74 72 61 6e  67 65 5f 6f 62 6a 5f 69  |. intrange_obj_i|
000008c0  64 25 28 33 29 0d 03 8e  05 e1 0d 03 98 05 3a 0d  |d%(3).........:.|
000008d0  03 ca 10 dd 20 f2 74 65  72 6d 69 6e 61 74 65 0d  |.... .terminate.|
000008e0  03 d4 05 e1 0d 03 de 05  3a 0d 04 10 0c dd 20 f2  |........:..... .|
000008f0  65 72 72 6f 72 0d 04 1a  10 ea 20 65 72 72 24 2c  |error..... err$,|
00000900  20 65 72 72 25 0d 04 24  0c 65 6e 6f 25 20 3d 20  | err%..$.eno% = |
00000910  9f 0d 04 2e 38 65 72 72  24 20 3d 20 22 46 61 74  |....8err$ = "Fat|
00000920  61 6c 20 49 6e 74 65 72  6e 61 6c 20 45 72 72 6f  |al Internal Erro|
00000930  72 20 28 22 2b c3 9e 2b  22 3a 22 2b c3 9f 2b 22  |r ("+..+":"+..+"|
00000940  3a 22 2b f6 24 2b 22 29  22 0d 04 38 0e f2 74 65  |:"+.$+")"..8..te|
00000950  72 6d 69 6e 61 74 65 0d  04 42 1d f2 72 65 70 6f  |rminate..B..repo|
00000960  72 74 5f 65 72 72 6f 72  28 65 6e 6f 25 2c 20 65  |rt_error(eno%, e|
00000970  72 72 24 29 0d 04 4c 05  e1 0d 04 56 05 3a 0d 04  |rr$)..L....V.:..|
00000980  88 19 dd 20 f2 72 65 70  6f 72 74 5f 62 61 73 69  |... .report_basi|
00000990  63 5f 65 72 72 6f 72 0d  04 92 29 f2 72 65 70 6f  |c_error...).repo|
000009a0  72 74 5f 65 72 72 6f 72  28 9f 2c 20 c3 9e 2b 22  |rt_error(., ..+"|
000009b0  3a 22 2b c3 9f 2b 22 3a  22 2b f6 24 2b 22 22 29  |:"+..+":"+.$+"")|
000009c0  0d 04 9c 05 e1 0d 04 a6  05 3a 0d 04 e2 1b dd 20  |.........:..... |
000009d0  f2 72 65 70 6f 72 74 5f  65 72 72 6f 72 28 65 25  |.report_error(e%|
000009e0  2c 20 65 24 29 0d 04 ec  0e 65 62 25 21 30 20 3d  |, e$)....eb%!0 =|
000009f0  20 65 25 0d 04 f6 16 24  28 65 62 25 2b 34 29 20  | e%....$(eb%+4) |
00000a00  3d 20 65 24 20 2b 20 bd  30 0d 05 00 2c c8 99 20  |= e$ + .0...,.. |
00000a10  22 58 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  |"XWimp_ReportErr|
00000a20  6f 72 22 2c 20 65 62 25  2c 20 31 2c 20 61 70 70  |or", eb%, 1, app|
00000a30  6e 61 6d 65 24 0d 05 0a  05 e1 0d 05 14 05 3a 0d  |name$.........:.|
00000a40  05 50 1b dd 20 a4 73 79  73 5f 77 61 72 6e 28 72  |.P.. .sys_warn(r|
00000a50  30 25 2c 66 6c 61 67 73  25 29 0d 05 5a 17 e7 20  |0%,flags%)..Z.. |
00000a60  28 66 6c 61 67 73 25 80  31 29 3d 30 20 8c 20 3d  |(flags%.1)=0 . =|
00000a70  30 0d 05 64 3a c8 99 20  22 58 57 69 6d 70 5f 52  |0..d:.. "XWimp_R|
00000a80  65 70 6f 72 74 45 72 72  6f 72 22 2c 72 30 25 2c  |eportError",r0%,|
00000a90  31 37 2c 22 57 61 72 6e  69 6e 67 20 66 72 6f 6d  |17,"Warning from|
00000aa0  20 22 2b 61 70 70 6e 61  6d 65 24 0d 05 6e 06 3d  | "+appname$..n.=|
00000ab0  31 0d 05 78 05 3a 0d 05  d2 0b dd 20 f2 70 6f 6c  |1..x.:..... .pol|
00000ac0  6c 0d 05 dc 11 ea 20 70  6f 6c 6c 5f 65 76 65 6e  |l..... poll_even|
00000ad0  74 25 0d 05 e6 31 c8 99  20 22 57 69 6d 70 5f 50  |t%...1.. "Wimp_P|
00000ae0  6f 6c 6c 22 2c 20 70 6f  6c 6c 5f 6d 61 73 6b 25  |oll", poll_mask%|
00000af0  2c 20 70 62 25 20 b8 20  70 6f 6c 6c 5f 65 76 65  |, pb% . poll_eve|
00000b00  6e 74 25 0d 05 f0 14 c8  8e 20 70 6f 6c 6c 5f 65  |nt%...... poll_e|
00000b10  76 65 6e 74 25 20 ca 0d  05 fa 27 20 20 c9 20 36  |vent% ....'  . 6|
00000b20  3a 20 f2 70 6f 6c 6c 5f  6d 6f 75 73 65 5f 63 6c  |: .poll_mouse_cl|
00000b30  69 63 6b 5f 64 69 73 70  61 74 63 68 65 72 0d 06  |ick_dispatcher..|
00000b40  04 2d 20 20 c9 20 31 37  2c 20 31 38 3a 20 f2 70  |.-  . 17, 18: .p|
00000b50  6f 6c 6c 5f 77 69 6d 70  5f 6d 65 73 73 61 67 65  |oll_wimp_message|
00000b60  5f 64 69 73 70 61 74 63  68 65 72 0d 06 0e 2c 20  |_dispatcher..., |
00000b70  20 c9 20 26 32 30 30 3a  20 f2 70 6f 6c 6c 5f 74  | . &200: .poll_t|
00000b80  6f 6f 6c 62 6f 78 5f 65  76 65 6e 74 5f 64 69 73  |oolbox_event_dis|
00000b90  70 61 74 63 68 65 72 0d  06 18 05 cb 0d 06 22 05  |patcher.......".|
00000ba0  e1 0d 06 2c 05 3a 0d 06  5e 22 dd 20 f2 70 6f 6c  |...,.:..^". .pol|
00000bb0  6c 5f 6d 6f 75 73 65 5f  63 6c 69 63 6b 5f 64 69  |l_mouse_click_di|
00000bc0  73 70 61 74 63 68 65 72  0d 06 68 18 ea 20 73 65  |spatcher..h.. se|
00000bd0  6c 66 5f 69 64 25 2c 20  63 6d 70 74 5f 69 64 25  |lf_id%, cmpt_id%|
00000be0  0d 06 72 26 f4 20 46 69  6e 64 20 74 68 65 20 4f  |..r&. Find the O|
00000bf0  62 6a 65 63 74 20 49 64  20 6f 66 20 74 68 65 20  |bject Id of the |
00000c00  77 69 6e 64 6f 77 0d 06  7c 49 c8 99 20 22 58 57  |window..|I.. "XW|
00000c10  69 6e 64 6f 77 5f 57 69  6d 70 54 6f 54 6f 6f 6c  |indow_WimpToTool|
00000c20  62 6f 78 22 2c 30 2c 70  62 25 21 31 32 2c 70 62  |box",0,pb%!12,pb|
00000c30  25 21 31 36 20 b8 20 73  65 6c 66 5f 69 64 25 2c  |%!16 . self_id%,|
00000c40  63 6d 70 74 5f 69 64 25  3b 66 6c 61 67 73 25 0d  |cmpt_id%;flags%.|
00000c50  06 86 22 e7 20 a4 73 79  73 5f 77 61 72 6e 28 73  |..". .sys_warn(s|
00000c60  65 6c 66 5f 69 64 25 2c  66 6c 61 67 73 25 29 20  |elf_id%,flags%) |
00000c70  e1 0d 06 90 12 e7 20 73  65 6c 66 5f 69 64 25 3d  |...... self_id%=|
00000c80  30 20 e1 0d 06 9a 36 e7  20 a4 61 63 63 65 73 73  |0 ....6. .access|
00000c90  5f 6d 6f 75 73 65 5f 63  6c 69 63 6b 5f 68 61 6e  |_mouse_click_han|
00000ca0  64 6c 65 72 28 73 65 6c  66 5f 69 64 25 2c 63 6d  |dler(self_id%,cm|
00000cb0  70 74 5f 69 64 25 29 20  e1 0d 06 a4 38 e7 20 a4  |pt_id%) ....8. .|
00000cc0  69 6e 74 72 61 6e 67 65  5f 6d 6f 75 73 65 5f 63  |intrange_mouse_c|
00000cd0  6c 69 63 6b 5f 68 61 6e  64 6c 65 72 28 73 65 6c  |lick_handler(sel|
00000ce0  66 5f 69 64 25 2c 63 6d  70 74 5f 69 64 25 29 20  |f_id%,cmpt_id%) |
00000cf0  e1 0d 06 ae 05 e1 0d 06  b8 05 3a 0d 07 12 23 dd  |..........:...#.|
00000d00  20 f2 70 6f 6c 6c 5f 77  69 6d 70 5f 6d 65 73 73  | .poll_wimp_mess|
00000d10  61 67 65 5f 64 69 73 70  61 74 63 68 65 72 0d 07  |age_dispatcher..|
00000d20  1c 0f c8 8e 20 70 62 25  21 31 36 20 ca 0d 07 26  |.... pb%!16 ...&|
00000d30  14 20 20 c9 20 30 3a 20  71 75 69 74 25 20 3d 20  |.  . 0: quit% = |
00000d40  b9 0d 07 30 2d 20 20 c9  20 33 3a 20 f2 77 69 6d  |...0-  . 3: .wim|
00000d50  70 5f 6d 65 73 73 61 67  65 5f 64 61 74 61 5f 6c  |p_message_data_l|
00000d60  6f 61 64 5f 64 69 73 70  61 74 63 68 65 72 0d 07  |oad_dispatcher..|
00000d70  3a 05 cb 0d 07 44 05 e1  0d 07 4e 05 3a 0d 07 a8  |:....D....N.:...|
00000d80  24 dd 20 f2 70 6f 6c 6c  5f 74 6f 6f 6c 62 6f 78  |$. .poll_toolbox|
00000d90  5f 65 76 65 6e 74 5f 64  69 73 70 61 74 63 68 65  |_event_dispatche|
00000da0  72 0d 07 b2 0e c8 8e 20  70 62 25 21 38 20 ca 0d  |r...... pb%!8 ..|
00000db0  07 bc 27 20 20 c9 20 74  6f 6f 6c 62 6f 78 5f 71  |..'  . toolbox_q|
00000dc0  75 69 74 5f 65 76 65 6e  74 25 3a 20 71 75 69 74  |uit_event%: quit|
00000dd0  25 3d b9 3a 20 e1 0d 07  c6 33 20 20 c9 20 26 34  |%=.: ....3  . &4|
00000de0  34 65 63 30 3a 20 f2 72  65 70 6f 72 74 5f 65 72  |4ec0: .report_er|
00000df0  72 6f 72 28 70 62 25 21  31 36 2c 20 24 28 70 62  |ror(pb%!16, $(pb|
00000e00  25 2b 32 30 29 29 3a 20  e1 0d 07 d0 3a 20 20 c9  |%+20)): ....:  .|
00000e10  20 26 34 34 65 63 31 3a  20 f2 74 6f 6f 6c 62 6f  | &44ec1: .toolbo|
00000e20  78 5f 6f 62 6a 65 63 74  5f 61 75 74 6f 5f 63 72  |x_object_auto_cr|
00000e30  65 61 74 65 64 5f 64 69  73 70 61 74 63 68 65 72  |eated_dispatcher|
00000e40  3a 20 e1 0d 07 da 05 cb  0d 07 e4 22 f2 74 6f 6f  |: .........".too|
00000e50  6c 62 6f 78 5f 6d 69 73  63 5f 65 76 65 6e 74 5f  |lbox_misc_event_|
00000e60  64 69 73 70 61 74 63 68  65 72 0d 07 ee 05 e1 0d  |dispatcher......|
00000e70  07 f8 05 3a 0d 08 2a 2d  dd 20 f2 74 6f 6f 6c 62  |...:..*-. .toolb|
00000e80  6f 78 5f 6f 62 6a 65 63  74 5f 61 75 74 6f 5f 63  |ox_object_auto_c|
00000e90  72 65 61 74 65 64 5f 64  69 73 70 61 74 63 68 65  |reated_dispatche|
00000ea0  72 0d 08 34 25 ea 20 6f  62 6a 24 3a 6f 62 6a 24  |r..4%. obj$:obj$|
00000eb0  3d a4 63 73 74 72 74 6f  62 61 73 73 74 72 28 70  |=.cstrtobasstr(p|
00000ec0  62 25 2b 31 36 29 0d 08  3e 2e e7 20 a4 6d 61 74  |b%+16)..>.. .mat|
00000ed0  63 68 5f 64 62 6f 78 5f  61 75 74 6f 5f 63 72 65  |ch_dbox_auto_cre|
00000ee0  61 74 65 64 5f 68 61 6e  64 6c 65 72 28 6f 62 6a  |ated_handler(obj|
00000ef0  24 29 20 e1 0d 08 48 2f  e7 20 a4 61 63 63 65 73  |$) ...H/. .acces|
00000f00  73 5f 64 62 6f 78 5f 61  75 74 6f 5f 63 72 65 61  |s_dbox_auto_crea|
00000f10  74 65 64 5f 68 61 6e 64  6c 65 72 28 6f 62 6a 24  |ted_handler(obj$|
00000f20  29 20 e1 0d 08 52 31 e7  20 a4 69 6e 74 72 61 6e  |) ...R1. .intran|
00000f30  67 65 5f 64 62 6f 78 5f  61 75 74 6f 5f 63 72 65  |ge_dbox_auto_cre|
00000f40  61 74 65 64 5f 68 61 6e  64 6c 65 72 28 6f 62 6a  |ated_handler(obj|
00000f50  24 29 20 e1 0d 08 5c 32  e7 20 a4 64 61 74 65 73  |$) ...\2. .dates|
00000f60  74 61 6d 70 5f 64 62 6f  78 5f 61 75 74 6f 5f 63  |tamp_dbox_auto_c|
00000f70  72 65 61 74 65 64 5f 68  61 6e 64 6c 65 72 28 6f  |reated_handler(o|
00000f80  62 6a 24 29 20 e1 0d 08  66 31 e7 20 a4 66 69 6c  |bj$) ...f1. .fil|
00000f90  65 74 79 70 65 5f 64 62  6f 78 5f 61 75 74 6f 5f  |etype_dbox_auto_|
00000fa0  63 72 65 61 74 65 64 5f  68 61 6e 64 6c 65 72 28  |created_handler(|
00000fb0  6f 62 6a 24 29 20 e1 0d  08 70 05 e1 0d 08 7a 05  |obj$) ...p....z.|
00000fc0  3a 0d 08 ac 24 dd 20 f2  74 6f 6f 6c 62 6f 78 5f  |:...$. .toolbox_|
00000fd0  6d 69 73 63 5f 65 76 65  6e 74 5f 64 69 73 70 61  |misc_event_dispa|
00000fe0  74 63 68 65 72 0d 08 b6  26 e7 20 a4 6d 61 74 63  |tcher...&. .matc|
00000ff0  68 5f 6d 69 73 63 5f 74  6f 6f 6c 62 6f 78 5f 64  |h_misc_toolbox_d|
00001000  69 73 70 61 74 63 68 65  72 20 e1 0d 08 c0 27 e7  |ispatcher ....'.|
00001010  20 a4 61 63 63 65 73 73  5f 6d 69 73 63 5f 74 6f  | .access_misc_to|
00001020  6f 6c 62 6f 78 5f 64 69  73 70 61 74 63 68 65 72  |olbox_dispatcher|
00001030  20 e1 0d 08 ca 29 e7 20  a4 69 6e 74 72 61 6e 67  | ....). .intrang|
00001040  65 5f 6d 69 73 63 5f 74  6f 6f 6c 62 6f 78 5f 64  |e_misc_toolbox_d|
00001050  69 73 70 61 74 63 68 65  72 20 e1 0d 08 d4 2a e7  |ispatcher ....*.|
00001060  20 a4 64 61 74 65 73 74  61 6d 70 5f 6d 69 73 63  | .datestamp_misc|
00001070  5f 74 6f 6f 6c 62 6f 78  5f 64 69 73 70 61 74 63  |_toolbox_dispatc|
00001080  68 65 72 20 e1 0d 08 de  29 e7 20 a4 66 69 6c 65  |her ....). .file|
00001090  74 79 70 65 5f 6d 69 73  63 5f 74 6f 6f 6c 62 6f  |type_misc_toolbo|
000010a0  78 5f 64 69 73 70 61 74  63 68 65 72 20 e1 0d 08  |x_dispatcher ...|
000010b0  e8 23 e7 20 a4 6f 70 74  69 6f 6e 73 5f 6d 65 6e  |.#. .options_men|
000010c0  75 5f 65 76 65 6e 74 5f  68 61 6e 64 6c 65 72 20  |u_event_handler |
000010d0  e1 0d 08 f2 05 e1 0d 08  fc 05 3a 0d 09 56 2c dd  |..........:..V,.|
000010e0  20 a4 6d 61 74 63 68 5f  64 62 6f 78 5f 61 75 74  | .match_dbox_aut|
000010f0  6f 5f 63 72 65 61 74 65  64 5f 68 61 6e 64 6c 65  |o_created_handle|
00001100  72 28 6f 62 6a 24 29 0d  09 60 08 ea 20 76 24 0d  |r(obj$)..`.. v$.|
00001110  09 6a 18 e7 20 6f 62 6a  24 3c 3e 22 6d 61 74 63  |.j.. obj$<>"matc|
00001120  68 22 20 8c 20 3d 30 0d  09 74 1f 6d 61 74 63 68  |h" . =0..t.match|
00001130  5f 6f 62 6a 5f 69 64 25  20 3d 20 6f 62 6a 5f 69  |_obj_id% = obj_i|
00001140  64 73 25 21 31 36 0d 09  7e 30 f2 77 72 69 74 61  |ds%!16..~0.writa|
00001150  62 6c 65 66 69 65 6c 64  5f 73 65 74 5f 76 61 6c  |blefield_set_val|
00001160  75 65 28 6f 62 6a 5f 69  64 73 25 21 31 36 2c 26  |ue(obj_ids%!16,&|
00001170  31 31 2c 22 22 29 0d 09  88 30 f2 77 72 69 74 61  |11,"")...0.writa|
00001180  62 6c 65 66 69 65 6c 64  5f 73 65 74 5f 76 61 6c  |blefield_set_val|
00001190  75 65 28 6f 62 6a 5f 69  64 73 25 21 31 36 2c 26  |ue(obj_ids%!16,&|
000011a0  31 32 2c 22 22 29 0d 09  92 30 f2 77 72 69 74 61  |12,"")...0.writa|
000011b0  62 6c 65 66 69 65 6c 64  5f 73 65 74 5f 76 61 6c  |blefield_set_val|
000011c0  75 65 28 6f 62 6a 5f 69  64 73 25 21 31 36 2c 26  |ue(obj_ids%!16,&|
000011d0  31 33 2c 22 22 29 0d 09  9c 19 f2 66 69 6c 65 74  |13,"").....filet|
000011e0  79 70 65 5f 73 65 74 5f  64 69 73 70 6c 61 79 0d  |ype_set_display.|
000011f0  09 a6 1c f2 69 6e 74 72  61 6e 67 65 5f 73 65 74  |....intrange_set|
00001200  5f 64 69 73 70 6c 61 79  28 30 29 0d 09 b0 1a f2  |_display(0).....|
00001210  64 61 74 65 73 74 61 6d  70 5f 73 65 74 5f 64 69  |datestamp_set_di|
00001220  73 70 6c 61 79 0d 09 ba  17 f2 61 63 63 65 73 73  |splay.....access|
00001230  5f 73 65 74 5f 64 69 73  70 6c 61 79 0d 09 c4 1c  |_set_display....|
00001240  f2 69 6e 74 72 61 6e 67  65 5f 73 65 74 5f 64 69  |.intrange_set_di|
00001250  73 70 6c 61 79 28 31 29  0d 09 ce 1c f2 69 6e 74  |splay(1).....int|
00001260  72 61 6e 67 65 5f 73 65  74 5f 64 69 73 70 6c 61  |range_set_displa|
00001270  79 28 32 29 0d 09 d8 06  3d 31 0d 09 e2 05 3a 0d  |y(2)....=1....:.|
00001280  0a 14 24 dd 20 a4 6d 61  74 63 68 5f 6d 69 73 63  |..$. .match_misc|
00001290  5f 74 6f 6f 6c 62 6f 78  5f 64 69 73 70 61 74 63  |_toolbox_dispatc|
000012a0  68 65 72 0d 0a 1e 27 e7  20 6f 62 6a 5f 69 64 73  |her...'. obj_ids|
000012b0  25 21 31 36 20 3c 3e 20  6d 61 74 63 68 5f 6f 62  |%!16 <> match_ob|
000012c0  6a 5f 69 64 25 20 8c 20  3d 30 0d 0a 28 0e c8 8e  |j_id% . =0..(...|
000012d0  20 70 62 25 21 38 20 ca  0d 0a 32 2a 20 20 c9 20  | pb%!8 ...2*  . |
000012e0  26 31 30 30 3a 20 f2 6d  61 74 63 68 5f 64 62 6f  |&100: .match_dbo|
000012f0  78 5f 63 6c 69 63 6b 5f  6f 6b 5f 68 61 6e 64 6c  |x_click_ok_handl|
00001300  65 72 0d 0a 3c 23 20 20  c9 20 26 38 32 38 38 30  |er..<#  . &82880|
00001310  3a 20 f2 6d 61 74 63 68  5f 64 62 6f 78 5f 6f 70  |: .match_dbox_op|
00001320  65 6e 69 6e 67 0d 0a 50  05 cb 0d 0a 5a 06 3d 31  |ening..P....Z.=1|
00001330  0d 0a 64 05 3a 0d 0a 96  22 dd 20 f2 6d 61 74 63  |..d.:...". .matc|
00001340  68 5f 64 62 6f 78 5f 63  6c 69 63 6b 5f 6f 6b 5f  |h_dbox_click_ok_|
00001350  68 61 6e 64 6c 65 72 0d  0a a0 48 73 65 61 72 63  |handler...Hsearc|
00001360  68 5f 75 73 65 5f 73 74  61 72 74 5f 70 61 74 68  |h_use_start_path|
00001370  25 20 20 20 3d 20 a4 6f  70 74 69 6f 6e 62 75 74  |%   = .optionbut|
00001380  74 6f 6e 5f 67 65 74 5f  76 61 6c 75 65 28 6f 62  |ton_get_value(ob|
00001390  6a 5f 69 64 73 25 21 31  36 2c 20 26 32 31 29 0d  |j_ids%!16, &21).|
000013a0  0a aa 48 73 65 61 72 63  68 5f 75 73 65 5f 6e 61  |..Hsearch_use_na|
000013b0  6d 65 25 20 20 20 20 20  20 20 20 20 3d 20 a4 6f  |me%         = .o|
000013c0  70 74 69 6f 6e 62 75 74  74 6f 6e 5f 67 65 74 5f  |ptionbutton_get_|
000013d0  76 61 6c 75 65 28 6f 62  6a 5f 69 64 73 25 21 31  |value(obj_ids%!1|
000013e0  36 2c 20 26 32 32 29 0d  0a b4 48 73 65 61 72 63  |6, &22)...Hsearc|
000013f0  68 5f 75 73 65 5f 66 69  6c 65 5f 74 79 70 65 25  |h_use_file_type%|
00001400  20 20 20 20 3d 20 a4 6f  70 74 69 6f 6e 62 75 74  |    = .optionbut|
00001410  74 6f 6e 5f 67 65 74 5f  76 61 6c 75 65 28 6f 62  |ton_get_value(ob|
00001420  6a 5f 69 64 73 25 21 31  36 2c 20 26 32 33 29 0d  |j_ids%!16, &23).|
00001430  0a be 48 73 65 61 72 63  68 5f 75 73 65 5f 73 69  |..Hsearch_use_si|
00001440  7a 65 25 20 20 20 20 20  20 20 20 20 3d 20 a4 6f  |ze%         = .o|
00001450  70 74 69 6f 6e 62 75 74  74 6f 6e 5f 67 65 74 5f  |ptionbutton_get_|
00001460  76 61 6c 75 65 28 6f 62  6a 5f 69 64 73 25 21 31  |value(obj_ids%!1|
00001470  36 2c 20 26 32 34 29 0d  0a c8 48 73 65 61 72 63  |6, &24)...Hsearc|
00001480  68 5f 75 73 65 5f 64 61  74 65 25 20 20 20 20 20  |h_use_date%     |
00001490  20 20 20 20 3d 20 a4 6f  70 74 69 6f 6e 62 75 74  |    = .optionbut|
000014a0  74 6f 6e 5f 67 65 74 5f  76 61 6c 75 65 28 6f 62  |ton_get_value(ob|
000014b0  6a 5f 69 64 73 25 21 31  36 2c 20 26 32 35 29 0d  |j_ids%!16, &25).|
000014c0  0a d2 48 73 65 61 72 63  68 5f 75 73 65 5f 61 63  |..Hsearch_use_ac|
000014d0  63 65 73 73 25 20 20 20  20 20 20 20 3d 20 a4 6f  |cess%       = .o|
000014e0  70 74 69 6f 6e 62 75 74  74 6f 6e 5f 67 65 74 5f  |ptionbutton_get_|
000014f0  76 61 6c 75 65 28 6f 62  6a 5f 69 64 73 25 21 31  |value(obj_ids%!1|
00001500  36 2c 20 26 32 36 29 0d  0a dc 48 73 65 61 72 63  |6, &26)...Hsearc|
00001510  68 5f 75 73 65 5f 6c 6f  61 64 5f 61 64 64 72 25  |h_use_load_addr%|
00001520  20 20 20 20 3d 20 a4 6f  70 74 69 6f 6e 62 75 74  |    = .optionbut|
00001530  74 6f 6e 5f 67 65 74 5f  76 61 6c 75 65 28 6f 62  |ton_get_value(ob|
00001540  6a 5f 69 64 73 25 21 31  36 2c 20 26 32 37 29 0d  |j_ids%!16, &27).|
00001550  0a e6 48 73 65 61 72 63  68 5f 75 73 65 5f 65 78  |..Hsearch_use_ex|
00001560  65 63 5f 61 64 64 72 25  20 20 20 20 3d 20 a4 6f  |ec_addr%    = .o|
00001570  70 74 69 6f 6e 62 75 74  74 6f 6e 5f 67 65 74 5f  |ptionbutton_get_|
00001580  76 61 6c 75 65 28 6f 62  6a 5f 69 64 73 25 21 31  |value(obj_ids%!1|
00001590  36 2c 20 26 32 38 29 0d  0a f0 48 73 65 61 72 63  |6, &28)...Hsearc|
000015a0  68 5f 75 73 65 5f 65 78  65 63 5f 63 6f 6d 6d 61  |h_use_exec_comma|
000015b0  6e 64 25 20 3d 20 a4 6f  70 74 69 6f 6e 62 75 74  |nd% = .optionbut|
000015c0  74 6f 6e 5f 67 65 74 5f  76 61 6c 75 65 28 6f 62  |ton_get_value(ob|
000015d0  6a 5f 69 64 73 25 21 31  36 2c 20 26 32 39 29 0d  |j_ids%!16, &29).|
000015e0  0a fa 45 73 65 61 72 63  68 5f 73 74 61 72 74 5f  |..Esearch_start_|
000015f0  70 61 74 68 24 20 20 20  3d 20 a4 77 72 69 74 61  |path$   = .writa|
00001600  62 6c 65 66 69 65 6c 64  5f 67 65 74 5f 76 61 6c  |blefield_get_val|
00001610  75 65 28 6f 62 6a 5f 69  64 73 25 21 31 36 2c 20  |ue(obj_ids%!16, |
00001620  26 31 31 29 0d 0b 04 45  73 65 61 72 63 68 5f 6e  |&11)...Esearch_n|
00001630  61 6d 65 24 20 20 20 20  20 20 20 20 20 3d 20 a4  |ame$         = .|
00001640  77 72 69 74 61 62 6c 65  66 69 65 6c 64 5f 67 65  |writablefield_ge|
00001650  74 5f 76 61 6c 75 65 28  6f 62 6a 5f 69 64 73 25  |t_value(obj_ids%|
00001660  21 31 36 2c 20 26 31 32  29 0d 0b 0e 45 73 65 61  |!16, &12)...Esea|
00001670  72 63 68 5f 65 78 65 63  5f 63 6f 6d 6d 61 6e 64  |rch_exec_command|
00001680  24 20 3d 20 a4 77 72 69  74 61 62 6c 65 66 69 65  |$ = .writablefie|
00001690  6c 64 5f 67 65 74 5f 76  61 6c 75 65 28 6f 62 6a  |ld_get_value(obj|
000016a0  5f 69 64 73 25 21 31 36  2c 20 26 31 33 29 0d 0b  |_ids%!16, &13)..|
000016b0  18 11 f2 73 74 61 72 74  5f 73 65 61 72 63 68 0d  |...start_search.|
000016c0  0b 22 05 e1 0d 0b 2c 05  3a 0d 0b 5e 19 dd 20 f2  |."....,.:..^.. .|
000016d0  6d 61 74 63 68 5f 64 62  6f 78 5f 6f 70 65 6e 69  |match_dbox_openi|
000016e0  6e 67 0d 0b 72 43 f2 6f  70 74 69 6f 6e 62 75 74  |ng..rC.optionbut|
000016f0  74 6f 6e 5f 73 65 74 5f  76 61 6c 75 65 28 6f 62  |ton_set_value(ob|
00001700  6a 5f 69 64 73 25 21 31  36 2c 26 32 31 2c 73 65  |j_ids%!16,&21,se|
00001710  61 72 63 68 5f 75 73 65  5f 73 74 61 72 74 5f 70  |arch_use_start_p|
00001720  61 74 68 25 29 0d 0b 7c  3d f2 6f 70 74 69 6f 6e  |ath%)..|=.option|
00001730  62 75 74 74 6f 6e 5f 73  65 74 5f 76 61 6c 75 65  |button_set_value|
00001740  28 6f 62 6a 5f 69 64 73  25 21 31 36 2c 26 32 32  |(obj_ids%!16,&22|
00001750  2c 73 65 61 72 63 68 5f  75 73 65 5f 6e 61 6d 65  |,search_use_name|
00001760  25 29 0d 0b 86 42 f2 6f  70 74 69 6f 6e 62 75 74  |%)...B.optionbut|
00001770  74 6f 6e 5f 73 65 74 5f  76 61 6c 75 65 28 6f 62  |ton_set_value(ob|
00001780  6a 5f 69 64 73 25 21 31  36 2c 26 32 33 2c 73 65  |j_ids%!16,&23,se|
00001790  61 72 63 68 5f 75 73 65  5f 66 69 6c 65 5f 74 79  |arch_use_file_ty|
000017a0  70 65 25 29 0d 0b 90 3d  f2 6f 70 74 69 6f 6e 62  |pe%)...=.optionb|
000017b0  75 74 74 6f 6e 5f 73 65  74 5f 76 61 6c 75 65 28  |utton_set_value(|
000017c0  6f 62 6a 5f 69 64 73 25  21 31 36 2c 26 32 34 2c  |obj_ids%!16,&24,|
000017d0  73 65 61 72 63 68 5f 75  73 65 5f 73 69 7a 65 25  |search_use_size%|
000017e0  29 0d 0b 9a 3d f2 6f 70  74 69 6f 6e 62 75 74 74  |)...=.optionbutt|
000017f0  6f 6e 5f 73 65 74 5f 76  61 6c 75 65 28 6f 62 6a  |on_set_value(obj|
00001800  5f 69 64 73 25 21 31 36  2c 26 32 35 2c 73 65 61  |_ids%!16,&25,sea|
00001810  72 63 68 5f 75 73 65 5f  64 61 74 65 25 29 0d 0b  |rch_use_date%)..|
00001820  a4 3f f2 6f 70 74 69 6f  6e 62 75 74 74 6f 6e 5f  |.?.optionbutton_|
00001830  73 65 74 5f 76 61 6c 75  65 28 6f 62 6a 5f 69 64  |set_value(obj_id|
00001840  73 25 21 31 36 2c 26 32  36 2c 73 65 61 72 63 68  |s%!16,&26,search|
00001850  5f 75 73 65 5f 61 63 63  65 73 73 25 29 0d 0b ae  |_use_access%)...|
00001860  42 f2 6f 70 74 69 6f 6e  62 75 74 74 6f 6e 5f 73  |B.optionbutton_s|
00001870  65 74 5f 76 61 6c 75 65  28 6f 62 6a 5f 69 64 73  |et_value(obj_ids|
00001880  25 21 31 36 2c 26 32 37  2c 73 65 61 72 63 68 5f  |%!16,&27,search_|
00001890  75 73 65 5f 6c 6f 61 64  5f 61 64 64 72 25 29 0d  |use_load_addr%).|
000018a0  0b b8 42 f2 6f 70 74 69  6f 6e 62 75 74 74 6f 6e  |..B.optionbutton|
000018b0  5f 73 65 74 5f 76 61 6c  75 65 28 6f 62 6a 5f 69  |_set_value(obj_i|
000018c0  64 73 25 21 31 36 2c 26  32 38 2c 73 65 61 72 63  |ds%!16,&28,searc|
000018d0  68 5f 75 73 65 5f 65 78  65 63 5f 61 64 64 72 25  |h_use_exec_addr%|
000018e0  29 0d 0b c2 45 f2 6f 70  74 69 6f 6e 62 75 74 74  |)...E.optionbutt|
000018f0  6f 6e 5f 73 65 74 5f 76  61 6c 75 65 28 6f 62 6a  |on_set_value(obj|
00001900  5f 69 64 73 25 21 31 36  2c 26 32 39 2c 73 65 61  |_ids%!16,&29,sea|
00001910  72 63 68 5f 75 73 65 5f  65 78 65 63 5f 63 6f 6d  |rch_use_exec_com|
00001920  6d 61 6e 64 25 29 0d 0b  cc 05 e1 0d 0b d6 05 3a  |mand%).........:|
00001930  0d 0c 08 65 dd 20 a4 6d  61 74 63 68 5f 6d 65 73  |...e. .match_mes|
00001940  73 61 67 65 5f 64 61 74  61 5f 6c 6f 61 64 28 73  |sage_data_load(s|
00001950  65 6c 66 5f 69 64 25 2c  20 63 6d 70 74 5f 69 64  |elf_id%, cmpt_id|
00001960  25 2c 20 6f 62 6a 5f 74  79 70 65 25 2c 20 6c 6f  |%, obj_type%, lo|
00001970  61 64 5f 61 64 64 72 25  2c 20 65 78 65 63 5f 61  |ad_addr%, exec_a|
00001980  64 64 72 25 2c 20 73 69  7a 65 25 2c 20 61 63 63  |ddr%, size%, acc|
00001990  65 73 73 25 29 0d 0c 12  11 ea 20 70 6e 24 2c 20  |ess%)..... pn$, |
000019a0  70 24 2c 20 6e 24 0d 0c  1c 24 e7 20 73 65 6c 66  |p$, n$...$. self|
000019b0  5f 69 64 25 20 3c 3e 20  6d 61 74 63 68 5f 6f 62  |_id% <> match_ob|
000019c0  6a 5f 69 64 25 20 8c 20  3d 30 0d 0c 26 1d 70 6e  |j_id% . =0..&.pn|
000019d0  24 3d a4 63 73 74 72 74  6f 62 61 73 73 74 72 28  |$=.cstrtobasstr(|
000019e0  70 62 25 2b 34 34 29 0d  0c 30 20 f2 73 70 6c 69  |pb%+44)..0 .spli|
000019f0  74 5f 66 69 6c 65 6e 61  6d 65 28 70 6e 24 2c 20  |t_filename(pn$, |
00001a00  70 24 2c 20 6e 24 29 0d  0c 3a 11 c8 8e 20 63 6d  |p$, n$)..:... cm|
00001a10  70 74 5f 69 64 25 20 ca  0d 0c 44 19 20 20 c9 20  |pt_id% ...D.  . |
00001a20  26 31 31 3a 20 f4 20 53  74 61 72 74 20 70 61 74  |&11: . Start pat|
00001a30  68 0d 0c 4e 38 20 20 20  20 f2 77 72 69 74 61 62  |h..N8    .writab|
00001a40  6c 65 66 69 65 6c 64 5f  73 65 74 5f 76 61 6c 75  |lefield_set_valu|
00001a50  65 28 73 65 6c 66 5f 69  64 25 2c 20 63 6d 70 74  |e(self_id%, cmpt|
00001a60  5f 69 64 25 2c 20 70 24  29 0d 0c 58 18 20 20 c9  |_id%, p$)..X.  .|
00001a70  20 26 31 32 3a 20 f4 20  57 69 6c 64 20 6e 61 6d  | &12: . Wild nam|
00001a80  65 0d 0c 62 38 20 20 20  20 f2 77 72 69 74 61 62  |e..b8    .writab|
00001a90  6c 65 66 69 65 6c 64 5f  73 65 74 5f 76 61 6c 75  |lefield_set_valu|
00001aa0  65 28 73 65 6c 66 5f 69  64 25 2c 20 63 6d 70 74  |e(self_id%, cmpt|
00001ab0  5f 69 64 25 2c 20 6e 24  29 0d 0c 6c 1b 20 20 c9  |_id%, n$)..l.  .|
00001ac0  20 26 31 33 3a 20 f4 20  45 78 65 63 20 63 6f 6d  | &13: . Exec com|
00001ad0  6d 61 6e 64 0d 0c 76 49  20 20 20 20 f2 77 72 69  |mand..vI    .wri|
00001ae0  74 61 62 6c 65 66 69 65  6c 64 5f 73 65 74 5f 76  |tablefield_set_v|
00001af0  61 6c 75 65 28 73 65 6c  66 5f 69 64 25 2c 20 63  |alue(self_id%, c|
00001b00  6d 70 74 5f 69 64 25 2c  20 22 52 75 6e 20 22 2b  |mpt_id%, "Run "+|
00001b10  70 6e 24 2b 22 20 5c 70  2e 5c 6e 22 29 0d 0c 80  |pn$+" \p.\n")...|
00001b20  07 20 20 7f 0d 0c 94 33  20 20 20 20 f2 77 72 69  |.  ....3    .wri|
00001b30  74 61 62 6c 65 66 69 65  6c 64 5f 73 65 74 5f 76  |tablefield_set_v|
00001b40  61 6c 75 65 28 73 65 6c  66 5f 69 64 25 2c 20 26  |alue(self_id%, &|
00001b50  31 32 2c 20 6e 24 29 0d  0c 9e 46 20 20 20 20 73  |12, n$)...F    s|
00001b60  65 61 72 63 68 5f 66 69  6c 65 5f 74 79 70 65 24  |earch_file_type$|
00001b70  20 3d 20 a4 66 69 6c 65  74 79 70 65 5f 74 6f 5f  | = .filetype_to_|
00001b80  73 74 72 28 28 6c 6f 61  64 5f 61 64 64 72 25 20  |str((load_addr% |
00001b90  3e 3e 20 38 29 20 80 20  26 66 66 66 29 0d 0c a8  |>> 8) . &fff)...|
00001ba0  2e 20 20 20 20 73 65 61  72 63 68 5f 6f 62 6a 5f  |.    search_obj_|
00001bb0  74 79 70 65 73 25 20 3d  20 31 20 3c 3c 20 28 6f  |types% = 1 << (o|
00001bc0  62 6a 5f 74 79 70 65 25  2d 31 29 0d 0c b2 1d 20  |bj_type%-1).... |
00001bd0  20 20 20 f2 66 69 6c 65  74 79 70 65 5f 73 65 74  |   .filetype_set|
00001be0  5f 64 69 73 70 6c 61 79  0d 0c bc 20 20 20 20 20  |_display...     |
00001bf0  73 65 61 72 63 68 5f 73  69 7a 65 5f 6d 69 6e 25  |search_size_min%|
00001c00  20 3d 20 73 69 7a 65 25  0d 0c c6 20 20 20 20 20  | = size%...     |
00001c10  73 65 61 72 63 68 5f 73  69 7a 65 5f 6d 61 78 25  |search_size_max%|
00001c20  20 3d 20 73 69 7a 65 25  0d 0c d0 1e 20 20 20 20  | = size%....    |
00001c30  73 65 61 72 63 68 5f 73  69 7a 65 5f 72 74 79 70  |search_size_rtyp|
00001c40  65 25 20 3d 20 30 0d 0c  da 20 20 20 20 20 f2 69  |e% = 0...     .i|
00001c50  6e 74 72 61 6e 67 65 5f  73 65 74 5f 64 69 73 70  |ntrange_set_disp|
00001c60  6c 61 79 28 30 29 0d 0c  e4 2e 20 20 20 20 e7 20  |lay(0)....    . |
00001c70  28 6c 6f 61 64 5f 61 64  64 72 25 20 80 20 26 66  |(load_addr% . &f|
00001c80  66 66 30 30 30 30 30 29  3d 26 66 66 66 30 30 30  |ff00000)=&fff000|
00001c90  30 30 20 8c 0d 0c ee 28  20 20 20 20 20 20 21 73  |00 ....(      !s|
00001ca0  65 61 72 63 68 5f 64 61  74 65 5f 6d 69 6e 25 20  |earch_date_min% |
00001cb0  3d 20 65 78 65 63 5f 61  64 64 72 25 0d 0c f8 28  |= exec_addr%...(|
00001cc0  20 20 20 20 20 20 21 73  65 61 72 63 68 5f 64 61  |      !search_da|
00001cd0  74 65 5f 6d 61 78 25 20  3d 20 65 78 65 63 5f 61  |te_max% = exec_a|
00001ce0  64 64 72 25 0d 0d 02 2f  20 20 20 20 20 20 73 65  |ddr%.../      se|
00001cf0  61 72 63 68 5f 64 61 74  65 5f 6d 69 6e 25 3f 34  |arch_date_min%?4|
00001d00  20 3d 20 6c 6f 61 64 5f  61 64 64 72 25 20 80 20  | = load_addr% . |
00001d10  26 66 66 0d 0d 0c 2f 20  20 20 20 20 20 73 65 61  |&ff.../      sea|
00001d20  72 63 68 5f 64 61 74 65  5f 6d 61 78 25 3f 34 20  |rch_date_max%?4 |
00001d30  3d 20 6c 6f 61 64 5f 61  64 64 72 25 20 80 20 26  |= load_addr% . &|
00001d40  66 66 0d 0d 16 29 20 20  20 20 20 20 73 65 61 72  |ff...)      sear|
00001d50  63 68 5f 64 61 74 65 5f  6d 61 74 63 68 5f 74 79  |ch_date_match_ty|
00001d60  70 65 25 20 3d 20 26 30  30 30 31 0d 0d 20 20 20  |pe% = &0001..   |
00001d70  20 20 20 20 20 f2 64 61  74 65 73 74 61 6d 70 5f  |     .datestamp_|
00001d80  73 65 74 5f 64 69 73 70  6c 61 79 0d 0d 2a 09 20  |set_display..*. |
00001d90  20 20 20 cd 0d 0d 34 20  20 20 20 20 73 65 61 72  |   ...4     sear|
00001da0  63 68 5f 61 63 63 65 73  73 25 20 3d 20 61 63 63  |ch_access% = acc|
00001db0  65 73 73 25 0d 0d 3e 25  20 20 20 20 73 65 61 72  |ess%..>%    sear|
00001dc0  63 68 5f 61 63 63 65 73  73 5f 6d 61 73 6b 25 20  |ch_access_mask% |
00001dd0  3d 20 61 63 63 65 73 73  25 0d 0d 48 1b 20 20 20  |= access%..H.   |
00001de0  20 f2 61 63 63 65 73 73  5f 73 65 74 5f 64 69 73  | .access_set_dis|
00001df0  70 6c 61 79 0d 0d 52 2a  20 20 20 20 73 65 61 72  |play..R*    sear|
00001e00  63 68 5f 6c 6f 61 64 5f  61 64 64 72 5f 6d 69 6e  |ch_load_addr_min|
00001e10  25 20 3d 20 6c 6f 61 64  5f 61 64 64 72 25 0d 0d  |% = load_addr%..|
00001e20  5c 2a 20 20 20 20 73 65  61 72 63 68 5f 6c 6f 61  |\*    search_loa|
00001e30  64 5f 61 64 64 72 5f 6d  61 78 25 20 3d 20 6c 6f  |d_addr_max% = lo|
00001e40  61 64 5f 61 64 64 72 25  0d 0d 66 2b 20 20 20 20  |ad_addr%..f+    |
00001e50  73 65 61 72 63 68 5f 6c  6f 61 64 5f 61 64 64 72  |search_load_addr|
00001e60  5f 72 74 79 70 65 25 20  3d 20 26 30 31 30 31 30  |_rtype% = &01010|
00001e70  30 30 30 0d 0d 70 20 20  20 20 20 f2 69 6e 74 72  |000..p     .intr|
00001e80  61 6e 67 65 5f 73 65 74  5f 64 69 73 70 6c 61 79  |ange_set_display|
00001e90  28 31 29 0d 0d 7a 2a 20  20 20 20 73 65 61 72 63  |(1)..z*    searc|
00001ea0  68 5f 65 78 65 63 5f 61  64 64 72 5f 6d 69 6e 25  |h_exec_addr_min%|
00001eb0  20 3d 20 65 78 65 63 5f  61 64 64 72 25 0d 0d 84  | = exec_addr%...|
00001ec0  2a 20 20 20 20 73 65 61  72 63 68 5f 65 78 65 63  |*    search_exec|
00001ed0  5f 61 64 64 72 5f 6d 61  78 25 20 3d 20 65 78 65  |_addr_max% = exe|
00001ee0  63 5f 61 64 64 72 25 0d  0d 8e 2b 20 20 20 20 73  |c_addr%...+    s|
00001ef0  65 61 72 63 68 5f 65 78  65 63 5f 61 64 64 72 5f  |earch_exec_addr_|
00001f00  72 74 79 70 65 25 20 3d  20 26 30 31 30 31 30 30  |rtype% = &010100|
00001f10  30 30 0d 0d 98 20 20 20  20 20 f2 69 6e 74 72 61  |00...     .intra|
00001f20  6e 67 65 5f 73 65 74 5f  64 69 73 70 6c 61 79 28  |nge_set_display(|
00001f30  32 29 0d 0d a2 05 cb 0d  0d ac 06 3d 31 0d 0d b6  |2).........=1...|
00001f40  05 3a 0d 0e 10 2d dd 20  a4 61 63 63 65 73 73 5f  |.:...-. .access_|
00001f50  64 62 6f 78 5f 61 75 74  6f 5f 63 72 65 61 74 65  |dbox_auto_create|
00001f60  64 5f 68 61 6e 64 6c 65  72 28 6f 62 6a 24 29 0d  |d_handler(obj$).|
00001f70  0e 1a 19 e7 20 6f 62 6a  24 3c 3e 22 61 63 63 65  |.... obj$<>"acce|
00001f80  73 73 22 20 8c 20 3d 30  0d 0e 24 20 61 63 63 65  |ss" . =0..$ acce|
00001f90  73 73 5f 6f 62 6a 5f 69  64 25 20 3d 20 6f 62 6a  |ss_obj_id% = obj|
00001fa0  5f 69 64 73 25 21 31 36  0d 0e 2e 06 3d 31 0d 0e  |_ids%!16....=1..|
00001fb0  38 05 3a 0d 0e 6a 25 dd  20 a4 61 63 63 65 73 73  |8.:..j%. .access|
00001fc0  5f 6d 69 73 63 5f 74 6f  6f 6c 62 6f 78 5f 64 69  |_misc_toolbox_di|
00001fd0  73 70 61 74 63 68 65 72  0d 0e 74 28 e7 20 6f 62  |spatcher..t(. ob|
00001fe0  6a 5f 69 64 73 25 21 31  36 20 3c 3e 20 61 63 63  |j_ids%!16 <> acc|
00001ff0  65 73 73 5f 6f 62 6a 5f  69 64 25 20 8c 20 3d 30  |ess_obj_id% . =0|
00002000  0d 0e 7e 0e c8 8e 20 70  62 25 21 38 20 ca 0d 0e  |..~... pb%!8 ...|
00002010  88 2b 20 20 c9 20 26 32  30 30 3a 20 f2 61 63 63  |.+  . &200: .acc|
00002020  65 73 73 5f 64 62 6f 78  5f 63 6c 69 63 6b 5f 6f  |ess_dbox_click_o|
00002030  6b 5f 68 61 6e 64 6c 65  72 0d 0e 92 24 20 20 c9  |k_handler...$  .|
00002040  20 26 38 32 38 38 30 3a  20 f2 61 63 63 65 73 73  | &82880: .access|
00002050  5f 64 62 6f 78 5f 6f 70  65 6e 69 6e 67 0d 0e 9c  |_dbox_opening...|
00002060  05 cb 0d 0e a6 06 3d 31  0d 0e b0 05 3a 0d 0e e2  |......=1....:...|
00002070  32 dd 20 a4 61 63 63 65  73 73 5f 6d 65 73 73 61  |2. .access_messa|
00002080  67 65 5f 64 61 74 61 5f  6c 6f 61 64 28 73 65 6c  |ge_data_load(sel|
00002090  66 5f 69 64 25 2c 20 61  63 63 65 73 73 25 29 0d  |f_id%, access%).|
000020a0  0e ec 0c ea 20 73 74 61  74 65 24 0d 0e f6 25 e7  |.... state$...%.|
000020b0  20 73 65 6c 66 5f 69 64  25 20 3c 3e 20 61 63 63  | self_id% <> acc|
000020c0  65 73 73 5f 6f 62 6a 5f  69 64 25 20 8c 20 3d 30  |ess_obj_id% . =0|
000020d0  0d 0f 00 32 e7 20 28 61  63 63 65 73 73 25 20 80  |...2. (access% .|
000020e0  20 31 32 38 29 20 8c 20  73 74 61 74 65 24 3d 22  | 128) . state$="|
000020f0  79 65 73 22 20 8b 20 73  74 61 74 65 24 3d 22 6e  |yes" . state$="n|
00002100  6f 22 0d 0f 0a 33 f2 62  75 74 74 6f 6e 5f 73 65  |o"...3.button_se|
00002110  74 5f 76 61 6c 75 65 28  61 63 63 65 73 73 5f 6f  |t_value(access_o|
00002120  62 6a 5f 69 64 25 2c 20  26 31 30 31 2c 20 73 74  |bj_id%, &101, st|
00002130  61 74 65 24 29 0d 0f 14  30 e7 20 28 61 63 63 65  |ate$)...0. (acce|
00002140  73 73 25 20 80 20 38 29  20 8c 20 73 74 61 74 65  |ss% . 8) . state|
00002150  24 3d 22 79 65 73 22 20  8b 20 73 74 61 74 65 24  |$="yes" . state$|
00002160  3d 22 6e 6f 22 0d 0f 1e  33 f2 62 75 74 74 6f 6e  |="no"...3.button|
00002170  5f 73 65 74 5f 76 61 6c  75 65 28 61 63 63 65 73  |_set_value(acces|
00002180  73 5f 6f 62 6a 5f 69 64  25 2c 20 26 31 30 32 2c  |s_obj_id%, &102,|
00002190  20 73 74 61 74 65 24 29  0d 0f 28 30 e7 20 28 61  | state$)..(0. (a|
000021a0  63 63 65 73 73 25 20 80  20 32 29 20 8c 20 73 74  |ccess% . 2) . st|
000021b0  61 74 65 24 3d 22 79 65  73 22 20 8b 20 73 74 61  |ate$="yes" . sta|
000021c0  74 65 24 3d 22 6e 6f 22  0d 0f 32 33 f2 62 75 74  |te$="no"..23.but|
000021d0  74 6f 6e 5f 73 65 74 5f  76 61 6c 75 65 28 61 63  |ton_set_value(ac|
000021e0  63 65 73 73 5f 6f 62 6a  5f 69 64 25 2c 20 26 31  |cess_obj_id%, &1|
000021f0  30 33 2c 20 73 74 61 74  65 24 29 0d 0f 3c 30 e7  |03, state$)..<0.|
00002200  20 28 61 63 63 65 73 73  25 20 80 20 31 29 20 8c  | (access% . 1) .|
00002210  20 73 74 61 74 65 24 3d  22 79 65 73 22 20 8b 20  | state$="yes" . |
00002220  73 74 61 74 65 24 3d 22  6e 6f 22 0d 0f 46 33 f2  |state$="no"..F3.|
00002230  62 75 74 74 6f 6e 5f 73  65 74 5f 76 61 6c 75 65  |button_set_value|
00002240  28 61 63 63 65 73 73 5f  6f 62 6a 5f 69 64 25 2c  |(access_obj_id%,|
00002250  20 26 31 30 34 2c 20 73  74 61 74 65 24 29 0d 0f  | &104, state$)..|
00002260  50 31 e7 20 28 61 63 63  65 73 73 25 20 80 20 33  |P1. (access% . 3|
00002270  32 29 20 8c 20 73 74 61  74 65 24 3d 22 79 65 73  |2) . state$="yes|
00002280  22 20 8b 20 73 74 61 74  65 24 3d 22 6e 6f 22 0d  |" . state$="no".|
00002290  0f 5a 33 f2 62 75 74 74  6f 6e 5f 73 65 74 5f 76  |.Z3.button_set_v|
000022a0  61 6c 75 65 28 61 63 63  65 73 73 5f 6f 62 6a 5f  |alue(access_obj_|
000022b0  69 64 25 2c 20 26 31 30  35 2c 20 73 74 61 74 65  |id%, &105, state|
000022c0  24 29 0d 0f 64 31 e7 20  28 61 63 63 65 73 73 25  |$)..d1. (access%|
000022d0  20 80 20 31 36 29 20 8c  20 73 74 61 74 65 24 3d  | . 16) . state$=|
000022e0  22 79 65 73 22 20 8b 20  73 74 61 74 65 24 3d 22  |"yes" . state$="|
000022f0  6e 6f 22 0d 0f 6e 33 f2  62 75 74 74 6f 6e 5f 73  |no"..n3.button_s|
00002300  65 74 5f 76 61 6c 75 65  28 61 63 63 65 73 73 5f  |et_value(access_|
00002310  6f 62 6a 5f 69 64 25 2c  20 26 31 30 36 2c 20 73  |obj_id%, &106, s|
00002320  74 61 74 65 24 29 0d 0f  78 06 3d 31 0d 0f 82 05  |tate$)..x.=1....|
00002330  3a 0d 0f b4 23 dd 20 f2  61 63 63 65 73 73 5f 64  |:...#. .access_d|
00002340  62 6f 78 5f 63 6c 69 63  6b 5f 6f 6b 5f 68 61 6e  |box_click_ok_han|
00002350  64 6c 65 72 0d 0f be 21  ea 20 61 63 63 65 73 73  |dler...!. access|
00002360  25 2c 20 6d 61 73 6b 25  2c 20 69 25 2c 20 62 25  |%, mask%, i%, b%|
00002370  2c 20 6f 6e 25 0d 0f c8  15 61 63 63 65 73 73 25  |, on%....access%|
00002380  3d 30 3a 6d 61 73 6b 25  3d 30 0d 0f d2 10 e3 20  |=0:mask%=0..... |
00002390  69 25 20 3d 20 31 20 b8  20 36 0d 0f dc 31 20 20  |i% = 1 . 6...1  |
000023a0  c8 8e 20 a4 62 75 74 74  6f 6e 5f 67 65 74 5f 76  |.. .button_get_v|
000023b0  61 6c 75 65 28 6f 62 6a  5f 69 64 73 25 21 31 36  |alue(obj_ids%!16|
000023c0  2c 26 31 30 30 2b 69 25  29 20 ca 0d 0f e6 18 20  |,&100+i%) ..... |
000023d0  20 20 20 c9 20 22 79 65  73 22 3a 20 6f 6e 25 20  |   . "yes": on% |
000023e0  3d 20 31 0d 0f f0 18 20  20 20 20 c9 20 22 6e 6f  |= 1....    . "no|
000023f0  22 3a 20 20 6f 6e 25 20  3d 20 32 0d 0f fa 13 20  |":  on% = 2.... |
00002400  20 20 20 7f 3a 20 20 6f  6e 25 20 3d 20 33 0d 10  |   .:  on% = 3..|
00002410  04 07 20 20 cb 0d 10 0e  0d 20 20 c8 8e 20 69 25  |..  .....  .. i%|
00002420  20 ca 0d 10 18 13 20 20  20 20 c9 20 31 3a 20 62  | .....    . 1: b|
00002430  25 3d 31 32 38 0d 10 22  11 20 20 20 20 c9 20 32  |%=128..".    . 2|
00002440  3a 20 62 25 3d 38 0d 10  2c 11 20 20 20 20 c9 20  |: b%=8..,.    . |
00002450  33 3a 20 62 25 3d 32 0d  10 36 11 20 20 20 20 c9  |3: b%=2..6.    .|
00002460  20 34 3a 20 62 25 3d 31  0d 10 40 12 20 20 20 20  | 4: b%=1..@.    |
00002470  c9 20 35 3a 20 62 25 3d  33 32 0d 10 4a 12 20 20  |. 5: b%=32..J.  |
00002480  20 20 c9 20 36 3a 20 62  25 3d 31 36 0d 10 54 07  |  . 6: b%=16..T.|
00002490  20 20 cb 0d 10 5e 19 20  20 e7 20 28 6f 6e 25 3d  |  ...^.  . (on%=|
000024a0  31 20 84 20 6f 6e 25 3d  32 29 20 8c 0d 10 68 28  |1 . on%=2) ...h(|
000024b0  20 20 20 20 e7 20 6f 6e  25 3d 31 20 8c 20 61 63  |    . on%=1 . ac|
000024c0  63 65 73 73 25 3d 28 61  63 63 65 73 73 25 20 84  |cess%=(access% .|
000024d0  20 62 25 29 0d 10 72 1a  20 20 20 20 6d 61 73 6b  | b%)..r.    mask|
000024e0  25 3d 28 6d 61 73 6b 25  20 84 20 62 25 29 0d 10  |%=(mask% . b%)..|
000024f0  7c 07 20 20 cd 0d 10 86  05 ed 0d 10 90 1a 73 65  ||.  ..........se|
00002500  61 72 63 68 5f 61 63 63  65 73 73 25 3d 61 63 63  |arch_access%=acc|
00002510  65 73 73 25 0d 10 9a 1d  73 65 61 72 63 68 5f 61  |ess%....search_a|
00002520  63 63 65 73 73 5f 6d 61  73 6b 25 3d 6d 61 73 6b  |ccess_mask%=mask|
00002530  25 0d 10 a4 17 f2 61 63  63 65 73 73 5f 73 65 74  |%.....access_set|
00002540  5f 64 69 73 70 6c 61 79  0d 10 ae 05 e1 0d 10 b8  |_display........|
00002550  05 3a 0d 10 ea 19 dd 20  f2 61 63 63 65 73 73 5f  |.:..... .access_|
00002560  73 65 74 5f 64 69 73 70  6c 61 79 0d 10 f4 40 f2  |set_display...@.|
00002570  64 69 73 70 6c 61 79 66  69 65 6c 64 5f 73 65 74  |displayfield_set|
00002580  5f 76 61 6c 75 65 28 6d  61 74 63 68 5f 6f 62 6a  |_value(match_obj|
00002590  5f 69 64 25 2c 20 26 35  30 35 2c 20 a4 61 63 63  |_id%, &505, .acc|
000025a0  65 73 73 5f 74 6f 5f 73  74 72 29 0d 10 fe 05 e1  |ess_to_str).....|
000025b0  0d 11 08 05 3a 0d 11 3a  14 dd 20 a4 61 63 63 65  |....:..:.. .acce|
000025c0  73 73 5f 74 6f 5f 73 74  72 0d 11 44 14 ea 20 64  |ss_to_str..D.. d|
000025d0  69 73 70 24 3a 64 69 73  70 24 3d 22 22 0d 11 4e  |isp$:disp$=""..N|
000025e0  23 e7 20 28 73 65 61 72  63 68 5f 61 63 63 65 73  |#. (search_acces|
000025f0  73 5f 6d 61 73 6b 25 20  80 20 31 32 38 29 20 8c  |s_mask% . 128) .|
00002600  0d 11 58 36 20 20 e7 20  28 73 65 61 72 63 68 5f  |..X6  . (search_|
00002610  61 63 63 65 73 73 25 20  80 20 31 32 38 29 20 64  |access% . 128) d|
00002620  69 73 70 24 2b 3d 22 50  22 20 8b 20 64 69 73 70  |isp$+="P" . disp|
00002630  24 2b 3d 22 70 22 0d 11  62 05 cd 0d 11 6c 21 e7  |$+="p"..b....l!.|
00002640  20 28 73 65 61 72 63 68  5f 61 63 63 65 73 73 5f  | (search_access_|
00002650  6d 61 73 6b 25 20 80 20  38 29 20 8c 0d 11 76 36  |mask% . 8) ...v6|
00002660  20 20 e7 20 28 73 65 61  72 63 68 5f 61 63 63 65  |  . (search_acce|
00002670  73 73 25 20 80 20 38 29  20 20 20 64 69 73 70 24  |ss% . 8)   disp$|
00002680  2b 3d 22 4c 22 20 8b 20  64 69 73 70 24 2b 3d 22  |+="L" . disp$+="|
00002690  6c 22 0d 11 80 05 cd 0d  11 8a 21 e7 20 28 73 65  |l"........!. (se|
000026a0  61 72 63 68 5f 61 63 63  65 73 73 5f 6d 61 73 6b  |arch_access_mask|
000026b0  25 20 80 20 32 29 20 8c  0d 11 94 36 20 20 e7 20  |% . 2) ....6  . |
000026c0  28 73 65 61 72 63 68 5f  61 63 63 65 73 73 25 20  |(search_access% |
000026d0  80 20 32 29 20 20 20 64  69 73 70 24 2b 3d 22 57  |. 2)   disp$+="W|
000026e0  22 20 8b 20 64 69 73 70  24 2b 3d 22 77 22 0d 11  |" . disp$+="w"..|
000026f0  9e 05 cd 0d 11 a8 21 e7  20 28 73 65 61 72 63 68  |......!. (search|
00002700  5f 61 63 63 65 73 73 5f  6d 61 73 6b 25 20 80 20  |_access_mask% . |
00002710  31 29 20 8c 0d 11 b2 36  20 20 e7 20 28 73 65 61  |1) ....6  . (sea|
00002720  72 63 68 5f 61 63 63 65  73 73 25 20 80 20 31 29  |rch_access% . 1)|
00002730  20 20 20 64 69 73 70 24  2b 3d 22 52 22 20 8b 20  |   disp$+="R" . |
00002740  64 69 73 70 24 2b 3d 22  72 22 0d 11 bc 05 cd 0d  |disp$+="r"......|
00002750  11 c6 0e 64 69 73 70 24  2b 3d 22 2f 22 0d 11 d0  |...disp$+="/"...|
00002760  22 e7 20 28 73 65 61 72  63 68 5f 61 63 63 65 73  |". (search_acces|
00002770  73 5f 6d 61 73 6b 25 20  80 20 33 32 29 20 8c 0d  |s_mask% . 32) ..|
00002780  11 da 36 20 20 e7 20 28  73 65 61 72 63 68 5f 61  |..6  . (search_a|
00002790  63 63 65 73 73 25 20 80  20 33 32 29 20 20 64 69  |ccess% . 32)  di|
000027a0  73 70 24 2b 3d 22 57 22  20 8b 20 64 69 73 70 24  |sp$+="W" . disp$|
000027b0  2b 3d 22 77 22 0d 11 e4  05 cd 0d 11 ee 22 e7 20  |+="w"........". |
000027c0  28 73 65 61 72 63 68 5f  61 63 63 65 73 73 5f 6d  |(search_access_m|
000027d0  61 73 6b 25 20 80 20 31  36 29 20 8c 0d 11 f8 36  |ask% . 16) ....6|
000027e0  20 20 e7 20 28 73 65 61  72 63 68 5f 61 63 63 65  |  . (search_acce|
000027f0  73 73 25 20 80 20 31 36  29 20 20 64 69 73 70 24  |ss% . 16)  disp$|
00002800  2b 3d 22 52 22 20 8b 20  64 69 73 70 24 2b 3d 22  |+="R" . disp$+="|
00002810  72 22 0d 12 02 05 cd 0d  12 0c 0a 3d 64 69 73 70  |r".........=disp|
00002820  24 0d 12 16 05 3a 0d 12  48 1a dd 20 f2 61 63 63  |$....:..H.. .acc|
00002830  65 73 73 5f 64 62 6f 78  5f 6f 70 65 6e 69 6e 67  |ess_dbox_opening|
00002840  0d 12 52 10 ea 20 62 25  2c 20 69 25 2c 20 73 24  |..R.. b%, i%, s$|
00002850  0d 12 5c 0e e3 20 69 25  3d 31 20 b8 20 36 0d 12  |..\.. i%=1 . 6..|
00002860  66 0d 20 20 c8 8e 20 69  25 20 ca 0d 12 70 13 20  |f.  .. i% ...p. |
00002870  20 20 20 c9 20 31 3a 20  62 25 3d 31 32 38 0d 12  |   . 1: b%=128..|
00002880  7a 11 20 20 20 20 c9 20  32 3a 20 62 25 3d 38 0d  |z.    . 2: b%=8.|
00002890  12 84 11 20 20 20 20 c9  20 33 3a 20 62 25 3d 32  |...    . 3: b%=2|
000028a0  0d 12 8e 11 20 20 20 20  c9 20 34 3a 20 62 25 3d  |....    . 4: b%=|
000028b0  31 0d 12 98 12 20 20 20  20 c9 20 35 3a 20 62 25  |1....    . 5: b%|
000028c0  3d 33 32 0d 12 a2 12 20  20 20 20 c9 20 36 3a 20  |=32....    . 6: |
000028d0  62 25 3d 31 36 0d 12 ac  07 20 20 cb 0d 12 b6 28  |b%=16....  ....(|
000028e0  20 20 e7 20 28 28 62 25  20 80 20 73 65 61 72 63  |  . ((b% . searc|
000028f0  68 5f 61 63 63 65 73 73  5f 6d 61 73 6b 25 29 3d  |h_access_mask%)=|
00002900  30 29 20 8c 0d 12 c0 15  20 20 20 20 73 24 3d 22  |0) .....    s$="|
00002910  64 6f 6e 74 63 61 72 65  22 0d 12 ca 07 20 20 cc  |dontcare"....  .|
00002920  0d 12 d4 30 20 20 20 20  e7 28 62 25 20 80 20 73  |...0    .(b% . s|
00002930  65 61 72 63 68 5f 61 63  63 65 73 73 25 29 20 73  |earch_access%) s|
00002940  24 3d 22 79 65 73 22 20  8b 73 24 3d 22 6e 6f 22  |$="yes" .s$="no"|
00002950  0d 12 de 07 20 20 cd 0d  12 e8 2f 20 20 f2 62 75  |....  ..../  .bu|
00002960  74 74 6f 6e 5f 73 65 74  5f 76 61 6c 75 65 28 6f  |tton_set_value(o|
00002970  62 6a 5f 69 64 73 25 21  31 36 2c 26 31 30 30 2b  |bj_ids%!16,&100+|
00002980  69 25 2c 73 24 29 0d 12  f2 05 ed 0d 12 fc 05 e1  |i%,s$)..........|
00002990  0d 13 06 05 3a 0d 13 38  34 dd 20 a4 61 63 63 65  |....:..84. .acce|
000029a0  73 73 5f 6d 6f 75 73 65  5f 63 6c 69 63 6b 5f 68  |ss_mouse_click_h|
000029b0  61 6e 64 6c 65 72 28 73  65 6c 66 5f 69 64 25 2c  |andler(self_id%,|
000029c0  63 6d 70 74 5f 69 64 25  29 0d 13 42 25 e7 20 73  |cmpt_id%)..B%. s|
000029d0  65 6c 66 5f 69 64 25 20  3c 3e 20 61 63 63 65 73  |elf_id% <> acces|
000029e0  73 5f 6f 62 6a 5f 69 64  25 20 8c 20 3d 30 0d 13  |s_obj_id% . =0..|
000029f0  4c 2a e7 20 28 63 6d 70  74 5f 69 64 25 3c 26 31  |L*. (cmpt_id%<&1|
00002a00  30 31 20 84 20 63 6d 70  74 5f 69 64 25 3e 26 31  |01 . cmpt_id%>&1|
00002a10  30 36 29 20 8c 20 3d 31  0d 13 56 30 f2 61 63 63  |06) . =1..V0.acc|
00002a20  65 73 73 5f 64 62 6f 78  5f 74 6f 67 67 6c 65 5f  |ess_dbox_toggle_|
00002a30  73 74 61 74 65 28 73 65  6c 66 5f 69 64 25 2c 63  |state(self_id%,c|
00002a40  6d 70 74 5f 69 64 25 29  0d 13 60 06 3d 31 0d 13  |mpt_id%)..`.=1..|
00002a50  6a 05 3a 0d 13 9c 32 dd  20 f2 61 63 63 65 73 73  |j.:...2. .access|
00002a60  5f 64 62 6f 78 5f 74 6f  67 67 6c 65 5f 73 74 61  |_dbox_toggle_sta|
00002a70  74 65 28 73 65 6c 66 5f  69 64 25 2c 63 6d 70 74  |te(self_id%,cmpt|
00002a80  5f 69 64 25 29 0d 13 a6  0c ea 20 73 74 61 74 65  |_id%)..... state|
00002a90  24 0d 13 b0 32 73 74 61  74 65 24 20 3d 20 a4 62  |$...2state$ = .b|
00002aa0  75 74 74 6f 6e 5f 67 65  74 5f 76 61 6c 75 65 28  |utton_get_value(|
00002ab0  73 65 6c 66 5f 69 64 25  2c 20 63 6d 70 74 5f 69  |self_id%, cmpt_i|
00002ac0  64 25 29 0d 13 ba 4f e7  20 73 74 61 74 65 24 3d  |d%)...O. state$=|
00002ad0  22 79 65 73 22 20 73 74  61 74 65 24 3d 22 6e 6f  |"yes" state$="no|
00002ae0  22 20 8b 20 e7 20 73 74  61 74 65 24 3d 22 6e 6f  |" . . state$="no|
00002af0  22 20 73 74 61 74 65 24  3d 22 64 6f 6e 74 63 61  |" state$="dontca|
00002b00  72 65 22 20 8b 20 73 74  61 74 65 24 3d 22 79 65  |re" . state$="ye|
00002b10  73 22 0d 13 c4 2f f2 62  75 74 74 6f 6e 5f 73 65  |s".../.button_se|
00002b20  74 5f 76 61 6c 75 65 28  73 65 6c 66 5f 69 64 25  |t_value(self_id%|
00002b30  2c 63 6d 70 74 5f 69 64  25 2c 73 74 61 74 65 24  |,cmpt_id%,state$|
00002b40  29 0d 13 ce 05 e1 0d 13  d8 05 3a 0d 14 32 30 dd  |).........:..20.|
00002b50  20 a4 64 61 74 65 73 74  61 6d 70 5f 64 62 6f 78  | .datestamp_dbox|
00002b60  5f 61 75 74 6f 5f 63 72  65 61 74 65 64 5f 68 61  |_auto_created_ha|
00002b70  6e 64 6c 65 72 28 6f 62  6a 24 29 0d 14 3c 1c e7  |ndler(obj$)..<..|
00002b80  20 6f 62 6a 24 3c 3e 22  64 61 74 65 73 74 61 6d  | obj$<>"datestam|
00002b90  70 22 20 8c 20 3d 30 0d  14 46 23 64 61 74 65 73  |p" . =0..F#dates|
00002ba0  74 61 6d 70 5f 6f 62 6a  5f 69 64 25 20 3d 20 6f  |tamp_obj_id% = o|
00002bb0  62 6a 5f 69 64 73 25 21  31 36 0d 14 50 06 3d 31  |bj_ids%!16..P.=1|
00002bc0  0d 14 5a 05 3a 0d 14 8c  28 dd 20 a4 64 61 74 65  |..Z.:...(. .date|
00002bd0  73 74 61 6d 70 5f 6d 69  73 63 5f 74 6f 6f 6c 62  |stamp_misc_toolb|
00002be0  6f 78 5f 64 69 73 70 61  74 63 68 65 72 0d 14 96  |ox_dispatcher...|
00002bf0  2b e7 20 6f 62 6a 5f 69  64 73 25 21 31 36 20 3c  |+. obj_ids%!16 <|
00002c00  3e 20 64 61 74 65 73 74  61 6d 70 5f 6f 62 6a 5f  |> datestamp_obj_|
00002c10  69 64 25 20 8c 20 3d 30  0d 14 a0 0e c8 8e 20 70  |id% . =0...... p|
00002c20  62 25 21 38 20 ca 0d 14  aa 2e 20 20 c9 20 26 32  |b%!8 .....  . &2|
00002c30  30 30 3a 20 f2 64 61 74  65 73 74 61 6d 70 5f 64  |00: .datestamp_d|
00002c40  62 6f 78 5f 63 6c 69 63  6b 5f 6f 6b 5f 68 61 6e  |box_click_ok_han|
00002c50  64 6c 65 72 0d 14 b4 27  20 20 c9 20 26 38 32 38  |dler...'  . &828|
00002c60  38 30 3a 20 f2 64 61 74  65 73 74 61 6d 70 5f 64  |80: .datestamp_d|
00002c70  62 6f 78 5f 6f 70 65 6e  69 6e 67 0d 14 be 05 cb  |box_opening.....|
00002c80  0d 14 c8 06 3d 31 0d 14  d2 05 3a 0d 15 04 26 dd  |....=1....:...&.|
00002c90  20 f2 64 61 74 65 73 74  61 6d 70 5f 64 62 6f 78  | .datestamp_dbox|
00002ca0  5f 63 6c 69 63 6b 5f 6f  6b 5f 68 61 6e 64 6c 65  |_click_ok_handle|
00002cb0  72 0d 15 0e 1c ea 20 6d  61 74 63 68 5f 74 79 70  |r..... match_typ|
00002cc0  65 25 2c 20 72 65 6c 5f  74 79 70 65 25 0d 15 18  |e%, rel_type%...|
00002cd0  22 ea 20 79 72 25 2c 20  6d 6f 25 2c 20 64 74 25  |". yr%, mo%, dt%|
00002ce0  2c 20 68 72 25 2c 20 6d  69 25 2c 20 73 65 25 0d  |, hr%, mi%, se%.|
00002cf0  15 22 3f 6d 61 74 63 68  5f 74 79 70 65 25 20 3d  |."?match_type% =|
00002d00  20 a4 73 74 72 69 6e 67  73 65 74 5f 67 65 74 5f  | .stringset_get_|
00002d10  76 61 6c 75 65 5f 69 6e  64 65 78 28 6f 62 6a 5f  |value_index(obj_|
00002d20  69 64 73 25 21 31 36 2c  20 26 31 30 30 29 0d 15  |ids%!16, &100)..|
00002d30  2c 42 6d 61 74 63 68 5f  74 79 70 65 25 20 2b 3d  |,Bmatch_type% +=|
00002d40  20 32 35 36 2a a4 6f 70  74 69 6f 6e 62 75 74 74  | 256*.optionbutt|
00002d50  6f 6e 5f 67 65 74 5f 76  61 6c 75 65 28 6f 62 6a  |on_get_value(obj|
00002d60  5f 69 64 73 25 21 31 36  2c 20 26 33 30 30 30 29  |_ids%!16, &3000)|
00002d70  0d 15 36 3e 72 65 6c 5f  74 79 70 65 25 20 3d 20  |..6>rel_type% = |
00002d80  a4 73 74 72 69 6e 67 73  65 74 5f 67 65 74 5f 76  |.stringset_get_v|
00002d90  61 6c 75 65 5f 69 6e 64  65 78 28 6f 62 6a 5f 69  |alue_index(obj_i|
00002da0  64 73 25 21 31 36 2c 20  26 31 30 30 31 29 0d 15  |ds%!16, &1001)..|
00002db0  40 43 72 65 6c 5f 74 79  70 65 25 20 2b 3d 20 32  |@Crel_type% += 2|
00002dc0  35 36 2a a4 73 74 72 69  6e 67 73 65 74 5f 67 65  |56*.stringset_ge|
00002dd0  74 5f 76 61 6c 75 65 5f  69 6e 64 65 78 28 6f 62  |t_value_index(ob|
00002de0  6a 5f 69 64 73 25 21 31  36 2c 20 26 31 30 30 32  |j_ids%!16, &1002|
00002df0  29 0d 15 4a 04 0d 15 54  34 79 72 25 20 3d 20 a4  |)..J...T4yr% = .|
00002e00  6e 75 6d 62 65 72 72 61  6e 67 65 5f 67 65 74 5f  |numberrange_get_|
00002e10  76 61 6c 75 65 28 6f 62  6a 5f 69 64 73 25 21 31  |value(obj_ids%!1|
00002e20  36 2c 20 26 32 30 30 31  29 0d 15 5e 3a 6d 6f 25  |6, &2001)..^:mo%|
00002e30  20 3d 20 a4 73 74 72 69  6e 67 73 65 74 5f 67 65  | = .stringset_ge|
00002e40  74 5f 76 61 6c 75 65 5f  69 6e 64 65 78 28 6f 62  |t_value_index(ob|
00002e50  6a 5f 69 64 73 25 21 31  36 2c 20 26 32 30 30 32  |j_ids%!16, &2002|
00002e60  29 2b 31 0d 15 68 34 64  74 25 20 3d 20 a4 6e 75  |)+1..h4dt% = .nu|
00002e70  6d 62 65 72 72 61 6e 67  65 5f 67 65 74 5f 76 61  |mberrange_get_va|
00002e80  6c 75 65 28 6f 62 6a 5f  69 64 73 25 21 31 36 2c  |lue(obj_ids%!16,|
00002e90  20 26 32 30 30 33 29 0d  15 72 34 68 72 25 20 3d  | &2003)..r4hr% =|
00002ea0  20 a4 6e 75 6d 62 65 72  72 61 6e 67 65 5f 67 65  | .numberrange_ge|
00002eb0  74 5f 76 61 6c 75 65 28  6f 62 6a 5f 69 64 73 25  |t_value(obj_ids%|
00002ec0  21 31 36 2c 20 26 32 30  30 34 29 0d 15 7c 34 6d  |!16, &2004)..|4m|
00002ed0  69 25 20 3d 20 a4 6e 75  6d 62 65 72 72 61 6e 67  |i% = .numberrang|
00002ee0  65 5f 67 65 74 5f 76 61  6c 75 65 28 6f 62 6a 5f  |e_get_value(obj_|
00002ef0  69 64 73 25 21 31 36 2c  20 26 32 30 30 35 29 0d  |ids%!16, &2005).|
00002f00  15 86 34 73 65 25 20 3d  20 a4 6e 75 6d 62 65 72  |..4se% = .number|
00002f10  72 61 6e 67 65 5f 67 65  74 5f 76 61 6c 75 65 28  |range_get_value(|
00002f20  6f 62 6a 5f 69 64 73 25  21 31 36 2c 20 26 32 30  |obj_ids%!16, &20|
00002f30  30 36 29 0d 15 90 40 f2  6f 72 64 73 5f 74 6f 5f  |06)...@.ords_to_|
00002f40  75 74 63 28 73 65 61 72  63 68 5f 64 61 74 65 5f  |utc(search_date_|
00002f50  6d 69 6e 25 2c 20 79 72  25 2c 20 6d 6f 25 2c 20  |min%, yr%, mo%, |
00002f60  64 74 25 2c 20 68 72 25  2c 20 6d 69 25 2c 20 73  |dt%, hr%, mi%, s|
00002f70  65 25 29 0d 15 9a 34 79  72 25 20 3d 20 a4 6e 75  |e%)...4yr% = .nu|
00002f80  6d 62 65 72 72 61 6e 67  65 5f 67 65 74 5f 76 61  |mberrange_get_va|
00002f90  6c 75 65 28 6f 62 6a 5f  69 64 73 25 21 31 36 2c  |lue(obj_ids%!16,|
00002fa0  20 26 33 30 30 31 29 0d  15 a4 3a 6d 6f 25 20 3d  | &3001)...:mo% =|
00002fb0  20 a4 73 74 72 69 6e 67  73 65 74 5f 67 65 74 5f  | .stringset_get_|
00002fc0  76 61 6c 75 65 5f 69 6e  64 65 78 28 6f 62 6a 5f  |value_index(obj_|
00002fd0  69 64 73 25 21 31 36 2c  20 26 33 30 30 32 29 2b  |ids%!16, &3002)+|
00002fe0  31 0d 15 ae 34 64 74 25  20 3d 20 a4 6e 75 6d 62  |1...4dt% = .numb|
00002ff0  65 72 72 61 6e 67 65 5f  67 65 74 5f 76 61 6c 75  |errange_get_valu|
00003000  65 28 6f 62 6a 5f 69 64  73 25 21 31 36 2c 20 26  |e(obj_ids%!16, &|
00003010  33 30 30 33 29 0d 15 b8  34 68 72 25 20 3d 20 a4  |3003)...4hr% = .|
00003020  6e 75 6d 62 65 72 72 61  6e 67 65 5f 67 65 74 5f  |numberrange_get_|
00003030  76 61 6c 75 65 28 6f 62  6a 5f 69 64 73 25 21 31  |value(obj_ids%!1|
00003040  36 2c 20 26 33 30 30 34  29 0d 15 c2 34 6d 69 25  |6, &3004)...4mi%|
00003050  20 3d 20 a4 6e 75 6d 62  65 72 72 61 6e 67 65 5f  | = .numberrange_|
00003060  67 65 74 5f 76 61 6c 75  65 28 6f 62 6a 5f 69 64  |get_value(obj_id|
00003070  73 25 21 31 36 2c 20 26  33 30 30 35 29 0d 15 cc  |s%!16, &3005)...|
00003080  34 73 65 25 20 3d 20 a4  6e 75 6d 62 65 72 72 61  |4se% = .numberra|
00003090  6e 67 65 5f 67 65 74 5f  76 61 6c 75 65 28 6f 62  |nge_get_value(ob|
000030a0  6a 5f 69 64 73 25 21 31  36 2c 20 26 33 30 30 36  |j_ids%!16, &3006|
000030b0  29 0d 15 d6 40 f2 6f 72  64 73 5f 74 6f 5f 75 74  |)...@.ords_to_ut|
000030c0  63 28 73 65 61 72 63 68  5f 64 61 74 65 5f 6d 61  |c(search_date_ma|
000030d0  78 25 2c 20 79 72 25 2c  20 6d 6f 25 2c 20 64 74  |x%, yr%, mo%, dt|
000030e0  25 2c 20 68 72 25 2c 20  6d 69 25 2c 20 73 65 25  |%, hr%, mi%, se%|
000030f0  29 0d 15 e0 04 0d 15 ea  29 73 65 61 72 63 68 5f  |).......)search_|
00003100  64 61 74 65 5f 6d 61 74  63 68 5f 74 79 70 65 25  |date_match_type%|
00003110  20 3d 20 6d 61 74 63 68  5f 74 79 70 65 25 0d 15  | = match_type%..|
00003120  f4 2a 73 65 61 72 63 68  5f 64 61 74 65 5f 72 65  |.*search_date_re|
00003130  6c 61 74 69 76 65 5f 74  79 70 65 25 20 3d 20 72  |lative_type% = r|
00003140  65 6c 5f 74 79 70 65 25  0d 15 fe 1a f2 64 61 74  |el_type%.....dat|
00003150  65 73 74 61 6d 70 5f 73  65 74 5f 64 69 73 70 6c  |estamp_set_displ|
00003160  61 79 0d 16 08 05 e1 0d  16 12 05 3a 0d 16 44 44  |ay.........:..DD|
00003170  dd 20 a4 64 61 74 65 73  74 61 6d 70 5f 6d 65 73  |. .datestamp_mes|
00003180  73 61 67 65 5f 64 61 74  61 5f 6c 6f 61 64 28 73  |sage_data_load(s|
00003190  65 6c 66 5f 69 64 25 2c  20 6c 6f 61 64 5f 61 64  |elf_id%, load_ad|
000031a0  64 72 25 2c 20 65 78 65  63 5f 61 64 64 72 25 29  |dr%, exec_addr%)|
000031b0  0d 16 4e 22 ea 20 79 72  25 2c 20 6d 6f 25 2c 20  |..N". yr%, mo%, |
000031c0  64 74 25 2c 20 68 72 25  2c 20 6d 69 25 2c 20 73  |dt%, hr%, mi%, s|
000031d0  65 25 0d 16 58 28 e7 20  73 65 6c 66 5f 69 64 25  |e%..X(. self_id%|
000031e0  20 3c 3e 20 64 61 74 65  73 74 61 6d 70 5f 6f 62  | <> datestamp_ob|
000031f0  6a 5f 69 64 25 20 8c 20  3d 30 0d 16 62 2a e7 20  |j_id% . =0..b*. |
00003200  28 6c 6f 61 64 5f 61 64  64 72 25 20 80 20 26 66  |(load_addr% . &f|
00003210  66 66 30 30 30 30 30 29  3d 26 66 66 66 30 30 30  |ff00000)=&fff000|
00003220  30 30 20 8c 0d 16 6c 28  20 20 21 65 62 25 20 3d  |00 ...l(  !eb% =|
00003230  20 65 78 65 63 5f 61 64  64 72 25 3a 65 62 25 3f  | exec_addr%:eb%?|
00003240  34 3d 6c 6f 61 64 5f 61  64 64 72 25 0d 16 76 35  |4=load_addr%..v5|
00003250  20 20 f2 75 74 63 5f 74  6f 5f 6f 72 64 73 28 65  |  .utc_to_ords(e|
00003260  62 25 2c 20 79 72 25 2c  20 6d 6f 25 2c 20 64 74  |b%, yr%, mo%, dt|
00003270  25 2c 20 68 72 25 2c 20  6d 69 25 2c 20 73 65 25  |%, hr%, mi%, se%|
00003280  29 0d 16 80 04 0d 16 8a  33 20 20 f2 73 74 72 69  |).......3  .stri|
00003290  6e 67 73 65 74 5f 73 65  74 5f 76 61 6c 75 65 5f  |ngset_set_value_|
000032a0  69 6e 64 65 78 28 73 65  6c 66 5f 69 64 25 2c 20  |index(self_id%, |
000032b0  26 31 30 30 2c 20 31 29  0d 16 94 04 0d 16 9e 32  |&100, 1).......2|
000032c0  20 20 f2 6e 75 6d 62 65  72 72 61 6e 67 65 5f 73  |  .numberrange_s|
000032d0  65 74 5f 76 61 6c 75 65  28 73 65 6c 66 5f 69 64  |et_value(self_id|
000032e0  25 2c 20 26 32 30 30 31  2c 20 79 72 25 29 0d 16  |%, &2001, yr%)..|
000032f0  a8 38 20 20 f2 73 74 72  69 6e 67 73 65 74 5f 73  |.8  .stringset_s|
00003300  65 74 5f 76 61 6c 75 65  5f 69 6e 64 65 78 28 73  |et_value_index(s|
00003310  65 6c 66 5f 69 64 25 2c  20 26 32 30 30 32 2c 20  |elf_id%, &2002, |
00003320  6d 6f 25 2d 31 29 0d 16  b2 32 20 20 f2 6e 75 6d  |mo%-1)...2  .num|
00003330  62 65 72 72 61 6e 67 65  5f 73 65 74 5f 76 61 6c  |berrange_set_val|
00003340  75 65 28 73 65 6c 66 5f  69 64 25 2c 20 26 32 30  |ue(self_id%, &20|
00003350  30 33 2c 20 64 74 25 29  0d 16 bc 32 20 20 f2 6e  |03, dt%)...2  .n|
00003360  75 6d 62 65 72 72 61 6e  67 65 5f 73 65 74 5f 76  |umberrange_set_v|
00003370  61 6c 75 65 28 73 65 6c  66 5f 69 64 25 2c 20 26  |alue(self_id%, &|
00003380  32 30 30 34 2c 20 68 72  25 29 0d 16 c6 32 20 20  |2004, hr%)...2  |
00003390  f2 6e 75 6d 62 65 72 72  61 6e 67 65 5f 73 65 74  |.numberrange_set|
000033a0  5f 76 61 6c 75 65 28 73  65 6c 66 5f 69 64 25 2c  |_value(self_id%,|
000033b0  20 26 32 30 30 35 2c 20  6d 69 25 29 0d 16 d0 32  | &2005, mi%)...2|
000033c0  20 20 f2 6e 75 6d 62 65  72 72 61 6e 67 65 5f 73  |  .numberrange_s|
000033d0  65 74 5f 76 61 6c 75 65  28 73 65 6c 66 5f 69 64  |et_value(self_id|
000033e0  25 2c 20 26 32 30 30 36  2c 20 73 65 25 29 0d 16  |%, &2006, se%)..|
000033f0  da 04 0d 16 e4 32 20 20  f2 6e 75 6d 62 65 72 72  |.....2  .numberr|
00003400  61 6e 67 65 5f 73 65 74  5f 76 61 6c 75 65 28 73  |ange_set_value(s|
00003410  65 6c 66 5f 69 64 25 2c  20 26 33 30 30 31 2c 20  |elf_id%, &3001, |
00003420  79 72 25 29 0d 16 ee 38  20 20 f2 73 74 72 69 6e  |yr%)...8  .strin|
00003430  67 73 65 74 5f 73 65 74  5f 76 61 6c 75 65 5f 69  |gset_set_value_i|
00003440  6e 64 65 78 28 73 65 6c  66 5f 69 64 25 2c 20 26  |ndex(self_id%, &|
00003450  33 30 30 32 2c 20 6d 6f  25 2d 31 29 0d 16 f8 32  |3002, mo%-1)...2|
00003460  20 20 f2 6e 75 6d 62 65  72 72 61 6e 67 65 5f 73  |  .numberrange_s|
00003470  65 74 5f 76 61 6c 75 65  28 73 65 6c 66 5f 69 64  |et_value(self_id|
00003480  25 2c 20 26 33 30 30 33  2c 20 64 74 25 29 0d 17  |%, &3003, dt%)..|
00003490  02 32 20 20 f2 6e 75 6d  62 65 72 72 61 6e 67 65  |.2  .numberrange|
000034a0  5f 73 65 74 5f 76 61 6c  75 65 28 73 65 6c 66 5f  |_set_value(self_|
000034b0  69 64 25 2c 20 26 33 30  30 34 2c 20 68 72 25 29  |id%, &3004, hr%)|
000034c0  0d 17 0c 32 20 20 f2 6e  75 6d 62 65 72 72 61 6e  |...2  .numberran|
000034d0  67 65 5f 73 65 74 5f 76  61 6c 75 65 28 73 65 6c  |ge_set_value(sel|
000034e0  66 5f 69 64 25 2c 20 26  33 30 30 35 2c 20 6d 69  |f_id%, &3005, mi|
000034f0  25 29 0d 17 16 32 20 20  f2 6e 75 6d 62 65 72 72  |%)...2  .numberr|
00003500  61 6e 67 65 5f 73 65 74  5f 76 61 6c 75 65 28 73  |ange_set_value(s|
00003510  65 6c 66 5f 69 64 25 2c  20 26 33 30 30 36 2c 20  |elf_id%, &3006, |
00003520  73 65 25 29 0d 17 20 04  0d 17 2a 31 20 20 f2 6f  |se%).. ...*1  .o|
00003530  70 74 69 6f 6e 62 75 74  74 6f 6e 5f 73 65 74 5f  |ptionbutton_set_|
00003540  76 61 6c 75 65 28 73 65  6c 66 5f 69 64 25 2c 20  |value(self_id%, |
00003550  26 33 30 30 30 2c 20 30  29 0d 17 34 05 cd 0d 17  |&3000, 0)..4....|
00003560  3e 06 3d 30 0d 17 48 05  3a 0d 17 7a 1c dd 20 f2  |>.=0..H.:..z.. .|
00003570  64 61 74 65 73 74 61 6d  70 5f 73 65 74 5f 64 69  |datestamp_set_di|
00003580  73 70 6c 61 79 0d 17 84  27 e7 20 28 73 65 61 72  |splay...'. (sear|
00003590  63 68 5f 64 61 74 65 5f  6d 61 74 63 68 5f 74 79  |ch_date_match_ty|
000035a0  70 65 25 20 80 20 26 66  66 29 20 8c 0d 17 8e 2a  |pe% . &ff) ....*|
000035b0  20 20 74 69 6d 65 31 24  3d a4 75 74 63 5f 74 6f  |  time1$=.utc_to|
000035c0  5f 73 74 72 28 73 65 61  72 63 68 5f 64 61 74 65  |_str(search_date|
000035d0  5f 6d 69 6e 25 29 0d 17  98 30 20 20 74 69 6d 65  |_min%)...0  time|
000035e0  32 24 3d 22 74 6f 20 22  2b a4 75 74 63 5f 74 6f  |2$="to "+.utc_to|
000035f0  5f 73 74 72 28 73 65 61  72 63 68 5f 64 61 74 65  |_str(search_date|
00003600  5f 6d 61 78 25 29 0d 17  a2 05 cc 0d 17 ac 25 20  |_max%)........% |
00003610  20 74 69 6d 65 31 24 3d  a4 72 65 6c 61 74 69 76  | time1$=.relativ|
00003620  65 5f 74 69 6d 65 5f 74  6f 5f 73 74 72 28 30 29  |e_time_to_str(0)|
00003630  0d 17 b6 12 20 20 74 69  6d 65 32 24 3d 22 2d 2d  |....  time2$="--|
00003640  2d 22 0d 17 c0 05 cd 0d  17 ca 38 f2 64 69 73 70  |-"........8.disp|
00003650  6c 61 79 66 69 65 6c 64  5f 73 65 74 5f 76 61 6c  |layfield_set_val|
00003660  75 65 28 6d 61 74 63 68  5f 6f 62 6a 5f 69 64 25  |ue(match_obj_id%|
00003670  2c 20 26 35 30 33 2c 20  74 69 6d 65 31 24 29 0d  |, &503, time1$).|
00003680  17 d4 38 f2 64 69 73 70  6c 61 79 66 69 65 6c 64  |..8.displayfield|
00003690  5f 73 65 74 5f 76 61 6c  75 65 28 6d 61 74 63 68  |_set_value(match|
000036a0  5f 6f 62 6a 5f 69 64 25  2c 20 26 35 30 34 2c 20  |_obj_id%, &504, |
000036b0  74 69 6d 65 32 24 29 0d  17 de 05 e1 0d 17 e8 05  |time2$).........|
000036c0  3a 0d 17 f2 24 dd 20 a4  72 65 6c 61 74 69 76 65  |:...$. .relative|
000036d0  5f 74 69 6d 65 5f 74 6f  5f 73 74 72 28 69 73 5f  |_time_to_str(is_|
000036e0  63 6d 64 25 29 0d 17 fc  08 ea 20 74 24 0d 18 06  |cmd%)..... t$...|
000036f0  2b c8 8e 20 28 73 65 61  72 63 68 5f 64 61 74 65  |+.. (search_date|
00003700  5f 72 65 6c 61 74 69 76  65 5f 74 79 70 65 25 20  |_relative_type% |
00003710  80 20 26 66 66 29 20 ca  0d 18 10 2a 20 20 c9 20  |. &ff) ....*  . |
00003720  30 3a 20 e7 20 69 73 5f  63 6d 64 25 20 74 24 3d  |0: . is_cmd% t$=|
00003730  22 74 68 69 73 22 20 8b  20 74 24 3d 22 54 68 69  |"this" . t$="Thi|
00003740  73 22 0d 18 1a 2a 20 20  c9 20 31 3a 20 e7 20 69  |s"...*  . 1: . i|
00003750  73 5f 63 6d 64 25 20 74  24 3d 22 6c 61 73 74 22  |s_cmd% t$="last"|
00003760  20 8b 20 74 24 3d 22 4c  61 73 74 22 0d 18 24 2a  | . t$="Last"..$*|
00003770  20 20 c9 20 32 3a 20 e7  20 69 73 5f 63 6d 64 25  |  . 2: . is_cmd%|
00003780  20 74 24 3d 22 70 61 73  74 22 20 8b 20 74 24 3d  | t$="past" . t$=|
00003790  22 50 61 73 74 22 0d 18  2e 05 cb 0d 18 38 19 e7  |"Past".......8..|
000037a0  20 69 73 5f 63 6d 64 25  3d 30 20 8c 20 74 24 2b  | is_cmd%=0 . t$+|
000037b0  3d 22 20 22 0d 18 42 30  c8 8e 20 28 73 65 61 72  |=" "..B0.. (sear|
000037c0  63 68 5f 64 61 74 65 5f  72 65 6c 61 74 69 76 65  |ch_date_relative|
000037d0  5f 74 79 70 65 25 20 80  20 26 66 66 30 30 29 3e  |_type% . &ff00)>|
000037e0  3e 38 20 ca 0d 18 4c 2d  20 20 c9 20 30 3a 20 e7  |>8 ...L-  . 0: .|
000037f0  20 69 73 5f 63 6d 64 25  20 74 24 2b 3d 22 68 6f  | is_cmd% t$+="ho|
00003800  75 72 22 20 20 8b 20 74  24 2b 3d 22 48 6f 75 72  |ur"  . t$+="Hour|
00003810  22 0d 18 56 2c 20 20 c9  20 31 3a 20 e7 20 69 73  |"..V,  . 1: . is|
00003820  5f 63 6d 64 25 20 74 24  2b 3d 22 64 61 79 22 20  |_cmd% t$+="day" |
00003830  20 20 8b 20 74 24 2b 3d  22 44 61 79 22 0d 18 60  |  . t$+="Day"..`|
00003840  2d 20 20 c9 20 32 3a 20  e7 20 69 73 5f 63 6d 64  |-  . 2: . is_cmd|
00003850  25 20 74 24 2b 3d 22 77  65 65 6b 22 20 20 8b 20  |% t$+="week"  . |
00003860  74 24 2b 3d 22 57 65 65  6b 22 0d 18 6a 2e 20 20  |t$+="Week"..j.  |
00003870  c9 20 33 3a 20 e7 20 69  73 5f 63 6d 64 25 20 74  |. 3: . is_cmd% t|
00003880  24 2b 3d 22 6d 6f 6e 74  68 22 20 8b 20 74 24 2b  |$+="month" . t$+|
00003890  3d 22 4d 6f 6e 74 68 22  0d 18 74 2d 20 20 c9 20  |="Month"..t-  . |
000038a0  34 3a 20 e7 20 69 73 5f  63 6d 64 25 20 74 24 2b  |4: . is_cmd% t$+|
000038b0  3d 22 79 65 61 72 22 20  20 8b 20 74 24 2b 3d 22  |="year"  . t$+="|
000038c0  59 65 61 72 22 0d 18 7e  05 cb 0d 18 88 07 3d 74  |Year"..~......=t|
000038d0  24 0d 18 92 05 3a 0d 18  c4 1d dd 20 f2 64 61 74  |$....:..... .dat|
000038e0  65 73 74 61 6d 70 5f 64  62 6f 78 5f 6f 70 65 6e  |estamp_dbox_open|
000038f0  69 6e 67 0d 18 ce 14 ea  20 69 6e 64 65 78 25 2c  |ing..... index%,|
00003900  20 64 75 6d 6d 79 25 0d  18 d8 22 ea 20 79 72 25  | dummy%...". yr%|
00003910  2c 20 6d 6f 25 2c 20 64  74 25 2c 20 68 72 25 2c  |, mo%, dt%, hr%,|
00003920  20 6d 69 25 2c 20 73 65  25 0d 18 e2 28 69 6e 64  | mi%, se%...(ind|
00003930  65 78 25 3d 73 65 61 72  63 68 5f 64 61 74 65 5f  |ex%=search_date_|
00003940  6d 61 74 63 68 5f 74 79  70 65 25 20 80 20 26 66  |match_type% . &f|
00003950  66 0d 18 ec 39 f2 73 74  72 69 6e 67 73 65 74 5f  |f...9.stringset_|
00003960  73 65 74 5f 76 61 6c 75  65 5f 69 6e 64 65 78 28  |set_value_index(|
00003970  6f 62 6a 5f 69 64 73 25  21 31 36 2c 20 26 31 30  |obj_ids%!16, &10|
00003980  30 2c 20 69 6e 64 65 78  25 29 0d 18 f6 2b 69 6e  |0, index%)...+in|
00003990  64 65 78 25 3d 73 65 61  72 63 68 5f 64 61 74 65  |dex%=search_date|
000039a0  5f 72 65 6c 61 74 69 76  65 5f 74 79 70 65 25 20  |_relative_type% |
000039b0  80 20 26 66 66 0d 19 00  3a f2 73 74 72 69 6e 67  |. &ff...:.string|
000039c0  73 65 74 5f 73 65 74 5f  76 61 6c 75 65 5f 69 6e  |set_set_value_in|
000039d0  64 65 78 28 6f 62 6a 5f  69 64 73 25 21 31 36 2c  |dex(obj_ids%!16,|
000039e0  20 26 31 30 30 31 2c 20  69 6e 64 65 78 25 29 0d  | &1001, index%).|
000039f0  19 0a 34 69 6e 64 65 78  25 3d 28 73 65 61 72 63  |..4index%=(searc|
00003a00  68 5f 64 61 74 65 5f 72  65 6c 61 74 69 76 65 5f  |h_date_relative_|
00003a10  74 79 70 65 25 20 80 20  26 66 66 30 30 29 20 3e  |type% . &ff00) >|
00003a20  3e 20 38 0d 19 14 3a f2  73 74 72 69 6e 67 73 65  |> 8...:.stringse|
00003a30  74 5f 73 65 74 5f 76 61  6c 75 65 5f 69 6e 64 65  |t_set_value_inde|
00003a40  78 28 6f 62 6a 5f 69 64  73 25 21 31 36 2c 20 26  |x(obj_ids%!16, &|
00003a50  31 30 30 32 2c 20 69 6e  64 65 78 25 29 0d 19 1e  |1002, index%)...|
00003a60  29 64 75 6d 6d 79 25 3d  73 65 61 72 63 68 5f 64  |)dummy%=search_d|
00003a70  61 74 65 5f 6d 61 74 63  68 5f 74 79 70 65 25 20  |ate_match_type% |
00003a80  80 20 26 31 30 30 0d 19  28 37 f2 6f 70 74 69 6f  |. &100..(7.optio|
00003a90  6e 62 75 74 74 6f 6e 5f  73 65 74 5f 76 61 6c 75  |nbutton_set_valu|
00003aa0  65 28 6f 62 6a 5f 69 64  73 25 21 31 36 2c 20 26  |e(obj_ids%!16, &|
00003ab0  33 30 30 30 2c 20 64 75  6d 6d 79 25 29 0d 19 32  |3000, dummy%)..2|
00003ac0  04 0d 19 3c 40 f2 75 74  63 5f 74 6f 5f 6f 72 64  |...<@.utc_to_ord|
00003ad0  73 28 73 65 61 72 63 68  5f 64 61 74 65 5f 6d 69  |s(search_date_mi|
00003ae0  6e 25 2c 20 79 72 25 2c  20 6d 6f 25 2c 20 64 74  |n%, yr%, mo%, dt|
00003af0  25 2c 20 68 72 25 2c 20  6d 69 25 2c 20 73 65 25  |%, hr%, mi%, se%|
00003b00  29 0d 19 46 33 f2 6e 75  6d 62 65 72 72 61 6e 67  |)..F3.numberrang|
00003b10  65 5f 73 65 74 5f 76 61  6c 75 65 28 6f 62 6a 5f  |e_set_value(obj_|
00003b20  69 64 73 25 21 31 36 2c  20 26 32 30 30 31 2c 20  |ids%!16, &2001, |
00003b30  79 72 25 29 0d 19 50 39  f2 73 74 72 69 6e 67 73  |yr%)..P9.strings|
00003b40  65 74 5f 73 65 74 5f 76  61 6c 75 65 5f 69 6e 64  |et_set_value_ind|
00003b50  65 78 28 6f 62 6a 5f 69  64 73 25 21 31 36 2c 20  |ex(obj_ids%!16, |
00003b60  26 32 30 30 32 2c 20 6d  6f 25 2d 31 29 0d 19 5a  |&2002, mo%-1)..Z|
00003b70  33 f2 6e 75 6d 62 65 72  72 61 6e 67 65 5f 73 65  |3.numberrange_se|
00003b80  74 5f 76 61 6c 75 65 28  6f 62 6a 5f 69 64 73 25  |t_value(obj_ids%|
00003b90  21 31 36 2c 20 26 32 30  30 33 2c 20 64 74 25 29  |!16, &2003, dt%)|
00003ba0  0d 19 64 33 f2 6e 75 6d  62 65 72 72 61 6e 67 65  |..d3.numberrange|
00003bb0  5f 73 65 74 5f 76 61 6c  75 65 28 6f 62 6a 5f 69  |_set_value(obj_i|
00003bc0  64 73 25 21 31 36 2c 20  26 32 30 30 34 2c 20 68  |ds%!16, &2004, h|
00003bd0  72 25 29 0d 19 6e 33 f2  6e 75 6d 62 65 72 72 61  |r%)..n3.numberra|
00003be0  6e 67 65 5f 73 65 74 5f  76 61 6c 75 65 28 6f 62  |nge_set_value(ob|
00003bf0  6a 5f 69 64 73 25 21 31  36 2c 20 26 32 30 30 35  |j_ids%!16, &2005|
00003c00  2c 20 6d 69 25 29 0d 19  78 33 f2 6e 75 6d 62 65  |, mi%)..x3.numbe|
00003c10  72 72 61 6e 67 65 5f 73  65 74 5f 76 61 6c 75 65  |rrange_set_value|
00003c20  28 6f 62 6a 5f 69 64 73  25 21 31 36 2c 20 26 32  |(obj_ids%!16, &2|
00003c30  30 30 36 2c 20 73 65 25  29 0d 19 82 04 0d 19 8c  |006, se%).......|
00003c40  40 f2 75 74 63 5f 74 6f  5f 6f 72 64 73 28 73 65  |@.utc_to_ords(se|
00003c50  61 72 63 68 5f 64 61 74  65 5f 6d 61 78 25 2c 20  |arch_date_max%, |
00003c60  79 72 25 2c 20 6d 6f 25  2c 20 64 74 25 2c 20 68  |yr%, mo%, dt%, h|
00003c70  72 25 2c 20 6d 69 25 2c  20 73 65 25 29 0d 19 96  |r%, mi%, se%)...|
00003c80  33 f2 6e 75 6d 62 65 72  72 61 6e 67 65 5f 73 65  |3.numberrange_se|
00003c90  74 5f 76 61 6c 75 65 28  6f 62 6a 5f 69 64 73 25  |t_value(obj_ids%|
00003ca0  21 31 36 2c 20 26 33 30  30 31 2c 20 79 72 25 29  |!16, &3001, yr%)|
00003cb0  0d 19 a0 39 f2 73 74 72  69 6e 67 73 65 74 5f 73  |...9.stringset_s|
00003cc0  65 74 5f 76 61 6c 75 65  5f 69 6e 64 65 78 28 6f  |et_value_index(o|
00003cd0  62 6a 5f 69 64 73 25 21  31 36 2c 20 26 33 30 30  |bj_ids%!16, &300|
00003ce0  32 2c 20 6d 6f 25 2d 31  29 0d 19 aa 33 f2 6e 75  |2, mo%-1)...3.nu|
00003cf0  6d 62 65 72 72 61 6e 67  65 5f 73 65 74 5f 76 61  |mberrange_set_va|
00003d00  6c 75 65 28 6f 62 6a 5f  69 64 73 25 21 31 36 2c  |lue(obj_ids%!16,|
00003d10  20 26 33 30 30 33 2c 20  64 74 25 29 0d 19 b4 33  | &3003, dt%)...3|
00003d20  f2 6e 75 6d 62 65 72 72  61 6e 67 65 5f 73 65 74  |.numberrange_set|
00003d30  5f 76 61 6c 75 65 28 6f  62 6a 5f 69 64 73 25 21  |_value(obj_ids%!|
00003d40  31 36 2c 20 26 33 30 30  34 2c 20 68 72 25 29 0d  |16, &3004, hr%).|
00003d50  19 be 33 f2 6e 75 6d 62  65 72 72 61 6e 67 65 5f  |..3.numberrange_|
00003d60  73 65 74 5f 76 61 6c 75  65 28 6f 62 6a 5f 69 64  |set_value(obj_id|
00003d70  73 25 21 31 36 2c 20 26  33 30 30 35 2c 20 6d 69  |s%!16, &3005, mi|
00003d80  25 29 0d 19 c8 33 f2 6e  75 6d 62 65 72 72 61 6e  |%)...3.numberran|
00003d90  67 65 5f 73 65 74 5f 76  61 6c 75 65 28 6f 62 6a  |ge_set_value(obj|
00003da0  5f 69 64 73 25 21 31 36  2c 20 26 33 30 30 36 2c  |_ids%!16, &3006,|
00003db0  20 73 65 25 29 0d 19 d2  05 e1 0d 19 dc 05 3a 0d  | se%).........:.|
00003dc0  1a 36 2f dd 20 a4 66 69  6c 65 74 79 70 65 5f 64  |.6/. .filetype_d|
00003dd0  62 6f 78 5f 61 75 74 6f  5f 63 72 65 61 74 65 64  |box_auto_created|
00003de0  5f 68 61 6e 64 6c 65 72  28 6f 62 6a 24 29 0d 1a  |_handler(obj$)..|
00003df0  40 1b e7 20 6f 62 6a 24  3c 3e 22 66 69 6c 65 74  |@.. obj$<>"filet|
00003e00  79 70 65 22 20 8c 20 3d  30 0d 1a 4a 22 66 69 6c  |ype" . =0..J"fil|
00003e10  65 74 79 70 65 5f 6f 62  6a 5f 69 64 25 20 3d 20  |etype_obj_id% = |
00003e20  6f 62 6a 5f 69 64 73 25  21 31 36 0d 1a 54 06 3d  |obj_ids%!16..T.=|
00003e30  31 0d 1a 5e 05 3a 0d 1a  90 27 dd 20 a4 66 69 6c  |1..^.:...'. .fil|
00003e40  65 74 79 70 65 5f 6d 69  73 63 5f 74 6f 6f 6c 62  |etype_misc_toolb|
00003e50  6f 78 5f 64 69 73 70 61  74 63 68 65 72 0d 1a 9a  |ox_dispatcher...|
00003e60  2a e7 20 6f 62 6a 5f 69  64 73 25 21 31 36 20 3c  |*. obj_ids%!16 <|
00003e70  3e 20 66 69 6c 65 74 79  70 65 5f 6f 62 6a 5f 69  |> filetype_obj_i|
00003e80  64 25 20 8c 20 3d 30 0d  1a a4 0e c8 8e 20 70 62  |d% . =0...... pb|
00003e90  25 21 38 20 ca 0d 1a ae  2d 20 20 c9 20 26 32 30  |%!8 ....-  . &20|
00003ea0  30 3a 20 f2 66 69 6c 65  74 79 70 65 5f 64 62 6f  |0: .filetype_dbo|
00003eb0  78 5f 63 6c 69 63 6b 5f  6f 6b 5f 68 61 6e 64 6c  |x_click_ok_handl|
00003ec0  65 72 0d 1a b8 26 20 20  c9 20 26 38 32 38 38 30  |er...&  . &82880|
00003ed0  3a 20 f2 66 69 6c 65 74  79 70 65 5f 64 62 6f 78  |: .filetype_dbox|
00003ee0  5f 6f 70 65 6e 69 6e 67  0d 1a c2 05 cb 0d 1a cc  |_opening........|
00003ef0  06 3d 31 0d 1a d6 05 3a  0d 1b 08 42 dd 20 a4 66  |.=1....:...B. .f|
00003f00  69 6c 65 74 79 70 65 5f  6d 65 73 73 61 67 65 5f  |iletype_message_|
00003f10  64 61 74 61 5f 6c 6f 61  64 28 73 65 6c 66 5f 69  |data_load(self_i|
00003f20  64 25 2c 20 6f 62 6a 5f  74 79 70 65 25 2c 20 6c  |d%, obj_type%, l|
00003f30  6f 61 64 5f 61 64 64 72  25 29 0d 1b 12 27 e7 20  |oad_addr%)...'. |
00003f40  73 65 6c 66 5f 69 64 25  20 3c 3e 20 66 69 6c 65  |self_id% <> file|
00003f50  74 79 70 65 5f 6f 62 6a  5f 69 64 25 20 8c 20 3d  |type_obj_id% . =|
00003f60  30 0d 1b 1c 54 f2 73 74  72 69 6e 67 73 65 74 5f  |0...T.stringset_|
00003f70  73 65 74 5f 76 61 6c 75  65 28 73 65 6c 66 5f 69  |set_value(self_i|
00003f80  64 25 2c 20 26 31 30 30  2c 20 a4 66 69 6c 65 74  |d%, &100, .filet|
00003f90  79 70 65 5f 74 6f 5f 73  74 72 28 28 6c 6f 61 64  |ype_to_str((load|
00003fa0  5f 61 64 64 72 25 20 3e  3e 20 38 29 20 80 20 26  |_addr% >> 8) . &|
00003fb0  66 66 66 29 29 0d 1b 26  38 f2 6f 70 74 69 6f 6e  |fff))..&8.option|
00003fc0  62 75 74 74 6f 6e 5f 73  65 74 5f 76 61 6c 75 65  |button_set_value|
00003fd0  28 73 65 6c 66 5f 69 64  25 2c 26 31 30 30 31 2c  |(self_id%,&1001,|
00003fe0  20 6f 62 6a 5f 74 79 70  65 25 3d 31 29 0d 1b 30  | obj_type%=1)..0|
00003ff0  38 f2 6f 70 74 69 6f 6e  62 75 74 74 6f 6e 5f 73  |8.optionbutton_s|
00004000  65 74 5f 76 61 6c 75 65  28 73 65 6c 66 5f 69 64  |et_value(self_id|
00004010  25 2c 26 31 30 30 32 2c  20 6f 62 6a 5f 74 79 70  |%,&1002, obj_typ|
00004020  65 25 3d 32 29 0d 1b 3a  38 f2 6f 70 74 69 6f 6e  |e%=2)..:8.option|
00004030  62 75 74 74 6f 6e 5f 73  65 74 5f 76 61 6c 75 65  |button_set_value|
00004040  28 73 65 6c 66 5f 69 64  25 2c 26 31 30 30 33 2c  |(self_id%,&1003,|
00004050  20 6f 62 6a 5f 74 79 70  65 25 3d 33 29 0d 1b 44  | obj_type%=3)..D|
00004060  06 3d 31 0d 1b 4e 05 3a  0d 1b 80 25 dd 20 f2 66  |.=1..N.:...%. .f|
00004070  69 6c 65 74 79 70 65 5f  64 62 6f 78 5f 63 6c 69  |iletype_dbox_cli|
00004080  63 6b 5f 6f 6b 5f 68 61  6e 64 6c 65 72 0d 1b 8a  |ck_ok_handler...|
00004090  15 ea 20 66 69 6c 65 5f  74 79 70 65 24 2c 20 6f  |.. file_type$, o|
000040a0  6e 25 0d 1b 94 38 66 69  6c 65 5f 74 79 70 65 24  |n%...8file_type$|
000040b0  20 3d 20 a4 73 74 72 69  6e 67 73 65 74 5f 67 65  | = .stringset_ge|
000040c0  74 5f 76 61 6c 75 65 28  6f 62 6a 5f 69 64 73 25  |t_value(obj_ids%|
000040d0  21 31 36 2c 20 26 31 30  30 29 0d 1b 9e 41 e7 20  |!16, &100)...A. |
000040e0  66 69 6c 65 5f 74 79 70  65 24 3d 22 22 20 f2 72  |file_type$="" .r|
000040f0  65 70 6f 72 74 5f 65 72  72 6f 72 28 31 2c 22 46  |eport_error(1,"F|
00004100  69 6c 65 74 79 70 65 20  66 69 65 6c 64 20 69 73  |iletype field is|
00004110  20 65 6d 70 74 79 21 22  29 3a e1 0d 1b a8 20 73  | empty!"):.... s|
00004120  65 61 72 63 68 5f 66 69  6c 65 5f 74 79 70 65 24  |earch_file_type$|
00004130  3d 66 69 6c 65 5f 74 79  70 65 24 0d 1b b2 43 73  |=file_type$...Cs|
00004140  65 61 72 63 68 5f 6f 62  6a 5f 74 79 70 65 73 25  |earch_obj_types%|
00004150  20 3d 20 a4 6f 70 74 69  6f 6e 62 75 74 74 6f 6e  | = .optionbutton|
00004160  5f 67 65 74 5f 76 61 6c  75 65 28 6f 62 6a 5f 69  |_get_value(obj_i|
00004170  64 73 25 21 31 36 2c 20  26 31 30 30 31 29 0d 1b  |ds%!16, &1001)..|
00004180  bc 46 73 65 61 72 63 68  5f 6f 62 6a 5f 74 79 70  |.Fsearch_obj_typ|
00004190  65 73 25 20 2b 3d 20 32  2a a4 6f 70 74 69 6f 6e  |es% += 2*.option|
000041a0  62 75 74 74 6f 6e 5f 67  65 74 5f 76 61 6c 75 65  |button_get_value|
000041b0  28 6f 62 6a 5f 69 64 73  25 21 31 36 2c 20 26 31  |(obj_ids%!16, &1|
000041c0  30 30 32 29 0d 1b c6 46  73 65 61 72 63 68 5f 6f  |002)...Fsearch_o|
000041d0  62 6a 5f 74 79 70 65 73  25 20 2b 3d 20 34 2a a4  |bj_types% += 4*.|
000041e0  6f 70 74 69 6f 6e 62 75  74 74 6f 6e 5f 67 65 74  |optionbutton_get|
000041f0  5f 76 61 6c 75 65 28 6f  62 6a 5f 69 64 73 25 21  |_value(obj_ids%!|
00004200  31 36 2c 20 26 31 30 30  33 29 0d 1b d0 33 e7 20  |16, &1003)...3. |
00004210  73 65 61 72 63 68 5f 6f  62 6a 5f 74 79 70 65 73  |search_obj_types|
00004220  25 20 3d 20 30 20 8c 20  73 65 61 72 63 68 5f 6f  |% = 0 . search_o|
00004230  62 6a 5f 74 79 70 65 73  25 20 3d 20 31 0d 1b da  |bj_types% = 1...|
00004240  19 f2 66 69 6c 65 74 79  70 65 5f 73 65 74 5f 64  |..filetype_set_d|
00004250  69 73 70 6c 61 79 0d 1b  e4 05 e1 0d 1b ee 05 3a  |isplay.........:|
00004260  0d 1c 20 1b dd 20 f2 66  69 6c 65 74 79 70 65 5f  |.. .. .filetype_|
00004270  73 65 74 5f 64 69 73 70  6c 61 79 0d 1c 2a 29 ea  |set_display..*).|
00004280  20 64 69 73 70 24 2c 20  68 61 64 5f 61 72 67 25  | disp$, had_arg%|
00004290  3a 64 69 73 70 24 3d 22  22 3a 68 61 64 5f 61 72  |:disp$="":had_ar|
000042a0  67 25 3d 30 0d 1c 34 38  e7 20 28 73 65 61 72 63  |g%=0..48. (searc|
000042b0  68 5f 6f 62 6a 5f 74 79  70 65 73 25 20 80 20 31  |h_obj_types% . 1|
000042c0  29 20 8c 20 64 69 73 70  24 3d 22 46 69 6c 65 73  |) . disp$="Files|
000042d0  22 3a 68 61 64 5f 61 72  67 25 3d 31 0d 1c 3e 1f  |":had_arg%=1..>.|
000042e0  e7 20 28 73 65 61 72 63  68 5f 6f 62 6a 5f 74 79  |. (search_obj_ty|
000042f0  70 65 73 25 20 80 20 32  29 20 8c 0d 1c 48 1d 20  |pes% . 2) ...H. |
00004300  20 e7 20 68 61 64 5f 61  72 67 25 20 8c 20 64 69  | . had_arg% . di|
00004310  73 70 24 2b 3d 22 2f 22  0d 1c 52 13 20 20 64 69  |sp$+="/"..R.  di|
00004320  73 70 24 2b 3d 22 44 69  72 73 22 0d 1c 5c 10 20  |sp$+="Dirs"..\. |
00004330  20 68 61 64 5f 61 72 67  25 3d 31 0d 1c 66 05 cd  | had_arg%=1..f..|
00004340  0d 1c 70 1f e7 20 28 73  65 61 72 63 68 5f 6f 62  |..p.. (search_ob|
00004350  6a 5f 74 79 70 65 73 25  20 80 20 34 29 20 8c 0d  |j_types% . 4) ..|
00004360  1c 7a 1d 20 20 e7 20 68  61 64 5f 61 72 67 25 20  |.z.  . had_arg% |
00004370  8c 20 64 69 73 70 24 2b  3d 22 2f 22 0d 1c 84 15  |. disp$+="/"....|
00004380  20 20 64 69 73 70 24 2b  3d 22 49 6d 61 67 65 73  |  disp$+="Images|
00004390  22 0d 1c 8e 05 cd 0d 1c  98 24 64 69 73 70 24 2b  |"........$disp$+|
000043a0  3d 22 20 6f 66 3a 20 22  2b 73 65 61 72 63 68 5f  |=" of: "+search_|
000043b0  66 69 6c 65 5f 74 79 70  65 24 0d 1c a2 37 f2 64  |file_type$...7.d|
000043c0  69 73 70 6c 61 79 66 69  65 6c 64 5f 73 65 74 5f  |isplayfield_set_|
000043d0  76 61 6c 75 65 28 6d 61  74 63 68 5f 6f 62 6a 5f  |value(match_obj_|
000043e0  69 64 25 2c 20 26 35 30  31 2c 20 64 69 73 70 24  |id%, &501, disp$|
000043f0  29 0d 1c ac 05 e1 0d 1c  b6 05 3a 0d 1c e8 1c dd  |).........:.....|
00004400  20 f2 66 69 6c 65 74 79  70 65 5f 64 62 6f 78 5f  | .filetype_dbox_|
00004410  6f 70 65 6e 69 6e 67 0d  1c f2 3e f2 73 74 72 69  |opening...>.stri|
00004420  6e 67 73 65 74 5f 73 65  74 5f 76 61 6c 75 65 28  |ngset_set_value(|
00004430  6f 62 6a 5f 69 64 73 25  21 31 36 2c 20 26 31 30  |obj_ids%!16, &10|
00004440  30 2c 20 73 65 61 72 63  68 5f 66 69 6c 65 5f 74  |0, search_file_t|
00004450  79 70 65 24 29 0d 1c fc  44 f2 6f 70 74 69 6f 6e  |ype$)...D.option|
00004460  62 75 74 74 6f 6e 5f 73  65 74 5f 76 61 6c 75 65  |button_set_value|
00004470  28 6f 62 6a 5f 69 64 73  25 21 31 36 2c 26 31 30  |(obj_ids%!16,&10|
00004480  30 31 2c 73 65 61 72 63  68 5f 6f 62 6a 5f 74 79  |01,search_obj_ty|
00004490  70 65 73 25 20 80 20 31  29 0d 1d 06 44 f2 6f 70  |pes% . 1)...D.op|
000044a0  74 69 6f 6e 62 75 74 74  6f 6e 5f 73 65 74 5f 76  |tionbutton_set_v|
000044b0  61 6c 75 65 28 6f 62 6a  5f 69 64 73 25 21 31 36  |alue(obj_ids%!16|
000044c0  2c 26 31 30 30 32 2c 73  65 61 72 63 68 5f 6f 62  |,&1002,search_ob|
000044d0  6a 5f 74 79 70 65 73 25  20 80 20 32 29 0d 1d 10  |j_types% . 2)...|
000044e0  44 f2 6f 70 74 69 6f 6e  62 75 74 74 6f 6e 5f 73  |D.optionbutton_s|
000044f0  65 74 5f 76 61 6c 75 65  28 6f 62 6a 5f 69 64 73  |et_value(obj_ids|
00004500  25 21 31 36 2c 26 31 30  30 33 2c 73 65 61 72 63  |%!16,&1003,searc|
00004510  68 5f 6f 62 6a 5f 74 79  70 65 73 25 20 80 20 34  |h_obj_types% . 4|
00004520  29 0d 1d 1a 05 e1 0d 1d  24 05 3a 0d 1d 7e 2f dd  |).......$.:..~/.|
00004530  20 a4 69 6e 74 72 61 6e  67 65 5f 64 62 6f 78 5f  | .intrange_dbox_|
00004540  61 75 74 6f 5f 63 72 65  61 74 65 64 5f 68 61 6e  |auto_created_han|
00004550  64 6c 65 72 28 6f 62 6a  24 29 0d 1d 88 1b e7 20  |dler(obj$)..... |
00004560  6f 62 6a 24 3c 3e 22 69  6e 74 72 61 6e 67 65 22  |obj$<>"intrange"|
00004570  20 8c 20 3d 30 0d 1d 92  06 3d 31 0d 1d 9c 05 3a  | . =0....=1....:|
00004580  0d 1d ce 27 dd 20 a4 69  6e 74 72 61 6e 67 65 5f  |...'. .intrange_|
00004590  6d 69 73 63 5f 74 6f 6f  6c 62 6f 78 5f 64 69 73  |misc_toolbox_dis|
000045a0  70 61 74 63 68 65 72 0d  1d d8 3e e7 20 a4 74 6f  |patcher...>. .to|
000045b0  6f 6c 62 6f 78 5f 67 65  74 5f 74 65 6d 70 6c 61  |olbox_get_templa|
000045c0  74 65 5f 6e 61 6d 65 28  6f 62 6a 5f 69 64 73 25  |te_name(obj_ids%|
000045d0  21 31 36 29 3c 3e 22 69  6e 74 72 61 6e 67 65 22  |!16)<>"intrange"|
000045e0  20 8c 20 3d 30 0d 1d e2  0e c8 8e 20 70 62 25 21  | . =0...... pb%!|
000045f0  38 20 ca 0d 1d ec 2d 20  20 c9 20 26 32 30 30 3a  |8 ....-  . &200:|
00004600  20 f2 69 6e 74 72 61 6e  67 65 5f 64 62 6f 78 5f  | .intrange_dbox_|
00004610  63 6c 69 63 6b 5f 6f 6b  5f 68 61 6e 64 6c 65 72  |click_ok_handler|
00004620  0d 1d f6 26 20 20 c9 20  26 38 32 38 38 30 3a 20  |...&  . &82880: |
00004630  f2 69 6e 74 72 61 6e 67  65 5f 64 62 6f 78 5f 6f  |.intrange_dbox_o|
00004640  70 65 6e 69 6e 67 0d 1e  00 05 cb 0d 1e 0a 06 3d  |pening.........=|
00004650  31 0d 1e 14 05 3a 0d 1e  46 4a dd 20 a4 69 6e 74  |1....:..FJ. .int|
00004660  72 61 6e 67 65 5f 6d 65  73 73 61 67 65 5f 64 61  |range_message_da|
00004670  74 61 5f 6c 6f 61 64 28  73 65 6c 66 5f 69 64 25  |ta_load(self_id%|
00004680  2c 20 6c 6f 61 64 5f 61  64 64 72 25 2c 20 65 78  |, load_addr%, ex|
00004690  65 63 5f 61 64 64 72 25  2c 20 73 69 7a 65 25 29  |ec_addr%, size%)|
000046a0  0d 1e 50 36 ea 20 61 6e  63 5f 69 64 25 2c 20 61  |..P6. anc_id%, a|
000046b0  6e 63 5f 63 6d 70 74 25  2c 20 68 65 78 25 2c 20  |nc_cmpt%, hex%, |
000046c0  6d 69 6e 25 2c 20 6d 61  78 25 2c 20 6d 69 6e 24  |min%, max%, min$|
000046d0  2c 20 6d 61 78 24 0d 1e  5a 24 ea 20 85 3a ee 20  |, max$..Z$. .:. |
000046e0  85 20 ea 3a f2 72 65 70  6f 72 74 5f 62 61 73 69  |. .:.report_basi|
000046f0  63 5f 65 72 72 6f 72 3a  3d 30 0d 1e 64 3d c8 99  |c_error:=0..d=..|
00004700  20 22 54 6f 6f 6c 62 6f  78 5f 47 65 74 41 6e 63  | "Toolbox_GetAnc|
00004710  65 73 74 6f 72 22 2c 20  2c 20 73 65 6c 66 5f 69  |estor", , self_i|
00004720  64 25 20 b8 20 61 6e 63  5f 69 64 25 2c 20 61 6e  |d% . anc_id%, an|
00004730  63 5f 63 6d 70 74 25 0d  1e 6e 23 e7 20 61 6e 63  |c_cmpt%..n#. anc|
00004740  5f 69 64 25 20 3c 3e 20  6d 61 74 63 68 5f 6f 62  |_id% <> match_ob|
00004750  6a 5f 69 64 25 20 8c 20  3d 30 0d 1e 6f 07 f7 20  |j_id% . =0..o.. |
00004760  85 0d 1e 78 12 c8 8e 20  61 6e 63 5f 63 6d 70 74  |...x... anc_cmpt|
00004770  25 20 ca 0d 1e 82 30 20  20 c9 20 26 39 30 30 3a  |% ....0  . &900:|
00004780  20 6d 69 6e 25 20 3d 20  73 69 7a 65 25 3a 6d 61  | min% = size%:ma|
00004790  78 25 20 3d 20 73 69 7a  65 25 3a 68 65 78 25 20  |x% = size%:hex% |
000047a0  3d 20 30 0d 1e 96 3a 20  20 c9 20 26 39 30 31 3a  |= 0...:  . &901:|
000047b0  20 6d 69 6e 25 20 3d 20  6c 6f 61 64 5f 61 64 64  | min% = load_add|
000047c0  72 25 3a 6d 61 78 25 20  3d 20 6c 6f 61 64 5f 61  |r%:max% = load_a|
000047d0  64 64 72 25 3a 68 65 78  25 20 3d 20 31 0d 1e a1  |ddr%:hex% = 1...|
000047e0  3a 20 20 c9 20 26 39 30  32 3a 20 6d 69 6e 25 20  |:  . &902: min% |
000047f0  3d 20 65 78 65 63 5f 61  64 64 72 25 3a 6d 61 78  |= exec_addr%:max|
00004800  25 20 3d 20 65 78 65 63  5f 61 64 64 72 25 3a 68  |% = exec_addr%:h|
00004810  65 78 25 20 3d 20 31 0d  1e ab 0b 20 20 7f 3a 20  |ex% = 1....  .: |
00004820  3d 30 0d 1e b4 05 cb 0d  1e b5 42 e7 20 68 65 78  |=0........B. hex|
00004830  25 20 6d 69 6e 24 3d 22  26 22 2b c3 7e 6d 69 6e  |% min$="&"+.~min|
00004840  25 3a 6d 61 78 24 3d 22  26 22 2b c3 7e 6d 61 78  |%:max$="&"+.~max|
00004850  25 20 8b 20 6d 69 6e 24  3d c3 6d 69 6e 25 3a 6d  |% . min$=.min%:m|
00004860  61 78 24 3d c3 6d 61 78  25 0d 1e be 31 f2 77 72  |ax$=.max%...1.wr|
00004870  69 74 61 62 6c 65 66 69  65 6c 64 5f 73 65 74 5f  |itablefield_set_|
00004880  76 61 6c 75 65 28 73 65  6c 66 5f 69 64 25 2c 20  |value(self_id%, |
00004890  26 31 30 2c 20 6d 69 6e  24 29 0d 22 7e 31 f2 77  |&10, min$)."~1.w|
000048a0  72 69 74 61 62 6c 65 66  69 65 6c 64 5f 73 65 74  |ritablefield_set|
000048b0  5f 76 61 6c 75 65 28 73  65 6c 66 5f 69 64 25 2c  |_value(self_id%,|
000048c0  20 26 32 30 2c 20 6d 61  78 24 29 0d 22 88 31 f2  | &20, max$).".1.|
000048d0  73 74 72 69 6e 67 73 65  74 5f 73 65 74 5f 76 61  |stringset_set_va|
000048e0  6c 75 65 5f 69 6e 64 65  78 28 73 65 6c 66 5f 69  |lue_index(self_i|
000048f0  64 25 2c 20 26 31 31 30  2c 20 30 29 0d 22 92 06  |d%, &110, 0)."..|
00004900  3d 31 0d 1e c8 05 3a 0d  1e fa 25 dd 20 f2 69 6e  |=1....:...%. .in|
00004910  74 72 61 6e 67 65 5f 64  62 6f 78 5f 63 6c 69 63  |trange_dbox_clic|
00004920  6b 5f 6f 6b 5f 68 61 6e  64 6c 65 72 0d 1f 04 31  |k_ok_handler...1|
00004930  ea 20 63 6c 69 65 6e 74  25 2c 20 61 72 67 31 24  |. client%, arg1$|
00004940  2c 20 61 72 67 32 24 2c  20 61 72 67 31 25 2c 20  |, arg2$, arg1%, |
00004950  61 72 67 32 25 2c 20 72  74 79 70 65 25 0d 1f 0e  |arg2%, rtype%...|
00004960  3a 72 74 79 70 65 25 20  3d 20 a4 73 74 72 69 6e  |:rtype% = .strin|
00004970  67 73 65 74 5f 67 65 74  5f 76 61 6c 75 65 5f 69  |gset_get_value_i|
00004980  6e 64 65 78 28 6f 62 6a  5f 69 64 73 25 21 31 36  |ndex(obj_ids%!16|
00004990  2c 20 26 31 31 30 29 0d  1f 18 36 61 72 67 31 24  |, &110)...6arg1$|
000049a0  20 20 3d 20 a4 77 72 69  74 61 62 6c 65 66 69 65  |  = .writablefie|
000049b0  6c 64 5f 67 65 74 5f 76  61 6c 75 65 28 6f 62 6a  |ld_get_value(obj|
000049c0  5f 69 64 73 25 21 31 36  2c 26 31 30 29 0d 1f 22  |_ids%!16,&10).."|
000049d0  2f e7 20 c0 61 72 67 31  24 2c 31 29 3d 22 26 22  |/. .arg1$,1)="&"|
000049e0  20 8c 20 72 74 79 70 65  25 20 3d 20 72 74 79 70  | . rtype% = rtyp|
000049f0  65 25 20 84 20 26 30 31  30 30 30 30 0d 1f 2c 36  |e% . &010000..,6|
00004a00  61 72 67 32 24 20 20 3d  20 a4 77 72 69 74 61 62  |arg2$  = .writab|
00004a10  6c 65 66 69 65 6c 64 5f  67 65 74 5f 76 61 6c 75  |lefield_get_valu|
00004a20  65 28 6f 62 6a 5f 69 64  73 25 21 31 36 2c 26 32  |e(obj_ids%!16,&2|
00004a30  30 29 0d 1f 36 31 e7 20  c0 61 72 67 32 24 2c 31  |0)..61. .arg2$,1|
00004a40  29 3d 22 26 22 20 8c 20  72 74 79 70 65 25 20 3d  |)="&" . rtype% =|
00004a50  20 72 74 79 70 65 25 20  84 20 26 30 31 30 30 30  | rtype% . &01000|
00004a60  30 30 30 0d 1f 40 04 0d  1f 4a 2e ea 20 85 3a ee  |000..@...J.. .:.|
00004a70  20 85 20 ea 20 f2 72 65  70 6f 72 74 5f 65 72 72  | . . .report_err|
00004a80  6f 72 28 31 2c 22 42 61  64 20 6e 75 6d 62 65 72  |or(1,"Bad number|
00004a90  21 22 29 3a e1 0d 1f 54  12 61 72 67 31 25 20 3d  |!"):...T.arg1% =|
00004aa0  20 a0 61 72 67 31 24 0d  1f 5e 12 61 72 67 32 25  | .arg1$..^.arg2%|
00004ab0  20 3d 20 a0 61 72 67 32  24 0d 1f 68 07 f7 20 85  | = .arg2$..h.. .|
00004ac0  0d 1f 72 04 0d 1f 7c 1d  63 6c 69 65 6e 74 25 3d  |..r...|.client%=|
00004ad0  6f 62 6a 5f 69 64 73 25  21 34 20 2d 20 26 39 30  |obj_ids%!4 - &90|
00004ae0  30 0d 1f 86 10 c8 8e 20  63 6c 69 65 6e 74 25 20  |0...... client% |
00004af0  ca 0d 1f 90 38 20 20 c9  20 30 3a 20 73 65 61 72  |....8  . 0: sear|
00004b00  63 68 5f 73 69 7a 65 5f  6d 69 6e 25 3d 61 72 67  |ch_size_min%=arg|
00004b10  31 25 3a 73 65 61 72 63  68 5f 73 69 7a 65 5f 6d  |1%:search_size_m|
00004b20  61 78 25 3d 61 72 67 32  25 0d 1f 9a 29 20 20 20  |ax%=arg2%...)   |
00004b30  20 20 20 20 20 20 20 73  65 61 72 63 68 5f 73 69  |       search_si|
00004b40  7a 65 5f 72 74 79 70 65  25 20 3d 20 72 74 79 70  |ze_rtype% = rtyp|
00004b50  65 25 0d 1f a4 42 20 20  c9 20 31 3a 20 73 65 61  |e%...B  . 1: sea|
00004b60  72 63 68 5f 6c 6f 61 64  5f 61 64 64 72 5f 6d 69  |rch_load_addr_mi|
00004b70  6e 25 3d 61 72 67 31 25  3a 73 65 61 72 63 68 5f  |n%=arg1%:search_|
00004b80  6c 6f 61 64 5f 61 64 64  72 5f 6d 61 78 25 3d 61  |load_addr_max%=a|
00004b90  72 67 32 25 0d 1f ae 2e  20 20 20 20 20 20 20 20  |rg2%....        |
00004ba0  20 20 73 65 61 72 63 68  5f 6c 6f 61 64 5f 61 64  |  search_load_ad|
00004bb0  64 72 5f 72 74 79 70 65  25 20 3d 20 72 74 79 70  |dr_rtype% = rtyp|
00004bc0  65 25 0d 1f b8 42 20 20  c9 20 32 3a 20 73 65 61  |e%...B  . 2: sea|
00004bd0  72 63 68 5f 65 78 65 63  5f 61 64 64 72 5f 6d 69  |rch_exec_addr_mi|
00004be0  6e 25 3d 61 72 67 31 25  3a 73 65 61 72 63 68 5f  |n%=arg1%:search_|
00004bf0  65 78 65 63 5f 61 64 64  72 5f 6d 61 78 25 3d 61  |exec_addr_max%=a|
00004c00  72 67 32 25 0d 1f c2 2e  20 20 20 20 20 20 20 20  |rg2%....        |
00004c10  20 20 73 65 61 72 63 68  5f 65 78 65 63 5f 61 64  |  search_exec_ad|
00004c20  64 72 5f 72 74 79 70 65  25 20 3d 20 72 74 79 70  |dr_rtype% = rtyp|
00004c30  65 25 0d 1f cc 05 cb 0d  1f d6 04 0d 1f e0 22 f2  |e%............".|
00004c40  69 6e 74 72 61 6e 67 65  5f 73 65 74 5f 64 69 73  |intrange_set_dis|
00004c50  70 6c 61 79 28 63 6c 69  65 6e 74 25 29 0d 1f ea  |play(client%)...|
00004c60  05 e1 0d 1f f4 05 3a 0d  20 26 24 dd 20 f2 69 6e  |......:. &$. .in|
00004c70  74 72 61 6e 67 65 5f 73  65 74 5f 64 69 73 70 6c  |trange_set_displ|
00004c80  61 79 28 63 6c 69 65 6e  74 25 29 0d 20 30 3a ea  |ay(client%). 0:.|
00004c90  20 64 69 73 70 24 2c 20  63 6d 70 74 25 2c 20 6d  | disp$, cmpt%, m|
00004ca0  69 6e 5f 68 65 78 25 2c  20 6d 61 78 5f 68 65 78  |in_hex%, max_hex|
00004cb0  25 2c 20 6d 69 6e 25 2c  20 6d 61 78 25 2c 20 72  |%, min%, max%, r|
00004cc0  74 79 70 65 25 0d 20 3a  10 c8 8e 20 63 6c 69 65  |type%. :... clie|
00004cd0  6e 74 25 20 ca 0d 20 44  17 20 20 c9 20 30 3a 20  |nt% .. D.  . 0: |
00004ce0  63 6d 70 74 25 20 3d 20  26 35 30 32 0d 20 4e 32  |cmpt% = &502. N2|
00004cf0  20 20 20 20 20 20 20 20  20 20 6d 69 6e 5f 68 65  |          min_he|
00004d00  78 25 3d 73 65 61 72 63  68 5f 73 69 7a 65 5f 72  |x%=search_size_r|
00004d10  74 79 70 65 25 20 80 20  26 31 30 30 30 30 0d 20  |type% . &10000. |
00004d20  58 34 20 20 20 20 20 20  20 20 20 20 6d 61 78 5f  |X4          max_|
00004d30  68 65 78 25 3d 73 65 61  72 63 68 5f 73 69 7a 65  |hex%=search_size|
00004d40  5f 72 74 79 70 65 25 20  80 20 26 31 30 30 30 30  |_rtype% . &10000|
00004d50  30 30 0d 20 62 2d 20 20  20 20 20 20 20 20 20 20  |00. b-          |
00004d60  72 74 79 70 65 25 3d 73  65 61 72 63 68 5f 73 69  |rtype%=search_si|
00004d70  7a 65 5f 72 74 79 70 65  25 20 80 20 26 66 66 0d  |ze_rtype% . &ff.|
00004d80  20 6c 23 20 20 20 20 20  20 20 20 20 20 6d 69 6e  | l#          min|
00004d90  25 3d 73 65 61 72 63 68  5f 73 69 7a 65 5f 6d 69  |%=search_size_mi|
00004da0  6e 25 0d 20 76 23 20 20  20 20 20 20 20 20 20 20  |n%. v#          |
00004db0  6d 61 78 25 3d 73 65 61  72 63 68 5f 73 69 7a 65  |max%=search_size|
00004dc0  5f 6d 61 78 25 0d 20 80  17 20 20 c9 20 31 3a 20  |_max%. ..  . 1: |
00004dd0  63 6d 70 74 25 20 3d 20  26 35 30 36 0d 20 8a 37  |cmpt% = &506. .7|
00004de0  20 20 20 20 20 20 20 20  20 20 6d 69 6e 5f 68 65  |          min_he|
00004df0  78 25 3d 73 65 61 72 63  68 5f 6c 6f 61 64 5f 61  |x%=search_load_a|
00004e00  64 64 72 5f 72 74 79 70  65 25 20 80 20 26 31 30  |ddr_rtype% . &10|
00004e10  30 30 30 0d 20 94 39 20  20 20 20 20 20 20 20 20  |000. .9         |
00004e20  20 6d 61 78 5f 68 65 78  25 3d 73 65 61 72 63 68  | max_hex%=search|
00004e30  5f 6c 6f 61 64 5f 61 64  64 72 5f 72 74 79 70 65  |_load_addr_rtype|
00004e40  25 20 80 20 26 31 30 30  30 30 30 30 0d 20 9e 32  |% . &1000000. .2|
00004e50  20 20 20 20 20 20 20 20  20 20 72 74 79 70 65 25  |          rtype%|
00004e60  3d 73 65 61 72 63 68 5f  6c 6f 61 64 5f 61 64 64  |=search_load_add|
00004e70  72 5f 72 74 79 70 65 25  20 80 20 26 66 66 0d 20  |r_rtype% . &ff. |
00004e80  a8 28 20 20 20 20 20 20  20 20 20 20 6d 69 6e 25  |.(          min%|
00004e90  3d 73 65 61 72 63 68 5f  6c 6f 61 64 5f 61 64 64  |=search_load_add|
00004ea0  72 5f 6d 69 6e 25 0d 20  b2 28 20 20 20 20 20 20  |r_min%. .(      |
00004eb0  20 20 20 20 6d 61 78 25  3d 73 65 61 72 63 68 5f  |    max%=search_|
00004ec0  6c 6f 61 64 5f 61 64 64  72 5f 6d 61 78 25 0d 20  |load_addr_max%. |
00004ed0  bc 17 20 20 c9 20 32 3a  20 63 6d 70 74 25 20 3d  |..  . 2: cmpt% =|
00004ee0  20 26 35 30 37 0d 20 c6  37 20 20 20 20 20 20 20  | &507. .7       |
00004ef0  20 20 20 6d 69 6e 5f 68  65 78 25 3d 73 65 61 72  |   min_hex%=sear|
00004f00  63 68 5f 65 78 65 63 5f  61 64 64 72 5f 72 74 79  |ch_exec_addr_rty|
00004f10  70 65 25 20 80 20 26 31  30 30 30 30 0d 20 d0 39  |pe% . &10000. .9|
00004f20  20 20 20 20 20 20 20 20  20 20 6d 61 78 5f 68 65  |          max_he|
00004f30  78 25 3d 73 65 61 72 63  68 5f 65 78 65 63 5f 61  |x%=search_exec_a|
00004f40  64 64 72 5f 72 74 79 70  65 25 20 80 20 26 31 30  |ddr_rtype% . &10|
00004f50  30 30 30 30 30 0d 20 da  32 20 20 20 20 20 20 20  |00000. .2       |
00004f60  20 20 20 72 74 79 70 65  25 3d 73 65 61 72 63 68  |   rtype%=search|
00004f70  5f 65 78 65 63 5f 61 64  64 72 5f 72 74 79 70 65  |_exec_addr_rtype|
00004f80  25 20 80 20 26 66 66 0d  20 e4 28 20 20 20 20 20  |% . &ff. .(     |
00004f90  20 20 20 20 20 6d 69 6e  25 3d 73 65 61 72 63 68  |     min%=search|
00004fa0  5f 65 78 65 63 5f 61 64  64 72 5f 6d 69 6e 25 0d  |_exec_addr_min%.|
00004fb0  20 ee 28 20 20 20 20 20  20 20 20 20 20 6d 61 78  | .(          max|
00004fc0  25 3d 73 65 61 72 63 68  5f 65 78 65 63 5f 61 64  |%=search_exec_ad|
00004fd0  64 72 5f 6d 61 78 25 0d  20 f8 05 cb 0d 21 02 04  |dr_max%. ....!..|
00004fe0  0d 21 0c 0f c8 8e 20 72  74 79 70 65 25 20 ca 0d  |.!.... rtype% ..|
00004ff0  21 16 37 20 20 c9 20 30  3a 20 64 69 73 70 24 3d  |!.7  . 0: disp$=|
00005000  22 45 78 61 63 74 6c 79  20 22 2b a4 69 6e 74 5f  |"Exactly "+.int_|
00005010  74 6f 5f 73 74 72 28 6d  69 6e 25 2c 20 6d 69 6e  |to_str(min%, min|
00005020  5f 68 65 78 25 29 0d 21  20 4d 20 20 c9 20 31 3a  |_hex%).! M  . 1:|
00005030  20 64 69 73 70 24 3d a4  69 6e 74 5f 74 6f 5f 73  | disp$=.int_to_s|
00005040  74 72 28 6d 69 6e 25 2c  6d 69 6e 5f 68 65 78 25  |tr(min%,min_hex%|
00005050  29 2b 22 20 74 6f 20 22  2b a4 69 6e 74 5f 74 6f  |)+" to "+.int_to|
00005060  5f 73 74 72 28 6d 61 78  25 2c 6d 61 78 5f 68 65  |_str(max%,max_he|
00005070  78 25 29 0d 21 2a 52 20  20 c9 20 32 3a 20 64 69  |x%).!*R  . 2: di|
00005080  73 70 24 3d a4 69 6e 74  5f 74 6f 5f 73 74 72 28  |sp$=.int_to_str(|
00005090  6d 69 6e 25 2c 6d 69 6e  5f 68 65 78 25 29 2b 22  |min%,min_hex%)+"|
000050a0  20 74 6f 20 22 2b a4 69  6e 74 5f 74 6f 5f 73 74  | to "+.int_to_st|
000050b0  72 28 6d 69 6e 25 2b 6d  61 78 25 2c 6d 69 6e 5f  |r(min%+max%,min_|
000050c0  68 65 78 25 29 0d 21 34  52 20 20 c9 20 33 3a 20  |hex%).!4R  . 3: |
000050d0  64 69 73 70 24 3d a4 69  6e 74 5f 74 6f 5f 73 74  |disp$=.int_to_st|
000050e0  72 28 6d 69 6e 25 2c 6d  69 6e 5f 68 65 78 25 29  |r(min%,min_hex%)|
000050f0  2b 22 20 74 6f 20 22 2b  a4 69 6e 74 5f 74 6f 5f  |+" to "+.int_to_|
00005100  73 74 72 28 6d 69 6e 25  2d 6d 61 78 25 2c 6d 69  |str(min%-max%,mi|
00005110  6e 5f 68 65 78 25 29 0d  21 3e 4d 20 20 c9 20 34  |n_hex%).!>M  . 4|
00005120  3a 20 64 69 73 70 24 3d  a4 69 6e 74 5f 74 6f 5f  |: disp$=.int_to_|
00005130  73 74 72 28 6d 69 6e 25  2c 6d 69 6e 5f 68 65 78  |str(min%,min_hex|
00005140  25 29 2b 22 20 2b 2d 20  22 2b a4 69 6e 74 5f 74  |%)+" +- "+.int_t|
00005150  6f 5f 73 74 72 28 6d 61  78 25 2c 6d 61 78 5f 68  |o_str(max%,max_h|
00005160  65 78 25 29 0d 21 48 05  cb 0d 21 52 38 f2 64 69  |ex%).!H...!R8.di|
00005170  73 70 6c 61 79 66 69 65  6c 64 5f 73 65 74 5f 76  |splayfield_set_v|
00005180  61 6c 75 65 28 6d 61 74  63 68 5f 6f 62 6a 5f 69  |alue(match_obj_i|
00005190  64 25 2c 20 63 6d 70 74  25 2c 20 64 69 73 70 24  |d%, cmpt%, disp$|
000051a0  29 0d 21 5c 05 e1 0d 21  66 05 3a 0d 21 98 1c dd  |).!\...!f.:.!...|
000051b0  20 f2 69 6e 74 72 61 6e  67 65 5f 64 62 6f 78 5f  | .intrange_dbox_|
000051c0  6f 70 65 6e 69 6e 67 0d  21 a2 41 ea 20 6d 69 6e  |opening.!.A. min|
000051d0  25 2c 6d 61 78 25 2c 63  6c 69 65 6e 74 25 2c 6d  |%,max%,client%,m|
000051e0  69 6e 5f 68 65 78 25 2c  6d 61 78 5f 68 65 78 25  |in_hex%,max_hex%|
000051f0  2c 72 74 79 70 65 25 2c  6d 69 6e 24 2c 6d 61 78  |,rtype%,min$,max|
00005200  24 2c 74 69 74 6c 65 24  0d 21 ac 1d 63 6c 69 65  |$,title$.!..clie|
00005210  6e 74 25 3d 6f 62 6a 5f  69 64 73 25 21 34 20 2d  |nt%=obj_ids%!4 -|
00005220  20 26 39 30 30 0d 21 b6  10 c8 8e 20 63 6c 69 65  | &900.!.... clie|
00005230  6e 74 25 20 ca 0d 21 c0  36 20 20 c9 20 30 3a 20  |nt% ..!.6  . 0: |
00005240  6d 69 6e 25 3d 73 65 61  72 63 68 5f 73 69 7a 65  |min%=search_size|
00005250  5f 6d 69 6e 25 3a 6d 61  78 25 3d 73 65 61 72 63  |_min%:max%=searc|
00005260  68 5f 73 69 7a 65 5f 6d  61 78 25 0d 21 ca 35 20  |h_size_max%.!.5 |
00005270  20 20 20 20 20 20 20 20  20 6d 69 6e 5f 68 65 78  |         min_hex|
00005280  25 3d 28 73 65 61 72 63  68 5f 73 69 7a 65 5f 72  |%=(search_size_r|
00005290  74 79 70 65 25 20 80 20  26 30 31 30 30 30 30 29  |type% . &010000)|
000052a0  0d 21 d4 37 20 20 20 20  20 20 20 20 20 20 6d 61  |.!.7          ma|
000052b0  78 5f 68 65 78 25 3d 28  73 65 61 72 63 68 5f 73  |x_hex%=(search_s|
000052c0  69 7a 65 5f 72 74 79 70  65 25 20 80 20 26 30 31  |ize_rtype% . &01|
000052d0  30 30 30 30 30 30 29 0d  21 de 2f 20 20 20 20 20  |000000).!./     |
000052e0  20 20 20 20 20 72 74 79  70 65 25 3d 28 73 65 61  |     rtype%=(sea|
000052f0  72 63 68 5f 73 69 7a 65  5f 72 74 79 70 65 25 20  |rch_size_rtype% |
00005300  80 20 26 66 66 29 0d 21  e8 20 20 20 20 20 20 20  |. &ff).!.       |
00005310  20 20 20 20 74 69 74 6c  65 24 3d 22 46 69 6c 65  |    title$="File|
00005320  20 53 69 7a 65 22 0d 21  f2 40 20 20 c9 20 31 3a  | Size".!.@  . 1:|
00005330  20 6d 69 6e 25 3d 73 65  61 72 63 68 5f 6c 6f 61  | min%=search_loa|
00005340  64 5f 61 64 64 72 5f 6d  69 6e 25 3a 6d 61 78 25  |d_addr_min%:max%|
00005350  3d 73 65 61 72 63 68 5f  6c 6f 61 64 5f 61 64 64  |=search_load_add|
00005360  72 5f 6d 61 78 25 0d 21  fc 3a 20 20 20 20 20 20  |r_max%.!.:      |
00005370  20 20 20 20 6d 69 6e 5f  68 65 78 25 3d 28 73 65  |    min_hex%=(se|
00005380  61 72 63 68 5f 6c 6f 61  64 5f 61 64 64 72 5f 72  |arch_load_addr_r|
00005390  74 79 70 65 25 20 80 20  26 30 31 30 30 30 30 29  |type% . &010000)|
000053a0  0d 22 06 3c 20 20 20 20  20 20 20 20 20 20 6d 61  |.".<          ma|
000053b0  78 5f 68 65 78 25 3d 28  73 65 61 72 63 68 5f 6c  |x_hex%=(search_l|
000053c0  6f 61 64 5f 61 64 64 72  5f 72 74 79 70 65 25 20  |oad_addr_rtype% |
000053d0  80 20 26 30 31 30 30 30  30 30 30 29 0d 22 10 34  |. &01000000).".4|
000053e0  20 20 20 20 20 20 20 20  20 20 72 74 79 70 65 25  |          rtype%|
000053f0  3d 28 73 65 61 72 63 68  5f 6c 6f 61 64 5f 61 64  |=(search_load_ad|
00005400  64 72 5f 72 74 79 70 65  25 20 80 20 26 66 66 29  |dr_rtype% . &ff)|
00005410  0d 22 1a 23 20 20 20 20  20 20 20 20 20 20 74 69  |.".#          ti|
00005420  74 6c 65 24 3d 22 4c 6f  61 64 20 41 64 64 72 65  |tle$="Load Addre|
00005430  73 73 22 0d 22 24 40 20  20 c9 20 32 3a 20 6d 69  |ss"."$@  . 2: mi|
00005440  6e 25 3d 73 65 61 72 63  68 5f 65 78 65 63 5f 61  |n%=search_exec_a|
00005450  64 64 72 5f 6d 69 6e 25  3a 6d 61 78 25 3d 73 65  |ddr_min%:max%=se|
00005460  61 72 63 68 5f 65 78 65  63 5f 61 64 64 72 5f 6d  |arch_exec_addr_m|
00005470  61 78 25 0d 22 2e 3a 20  20 20 20 20 20 20 20 20  |ax%.".:         |
00005480  20 6d 69 6e 5f 68 65 78  25 3d 28 73 65 61 72 63  | min_hex%=(searc|
00005490  68 5f 65 78 65 63 5f 61  64 64 72 5f 72 74 79 70  |h_exec_addr_rtyp|
000054a0  65 25 20 80 20 26 30 31  30 30 30 30 29 0d 22 38  |e% . &010000)."8|
000054b0  3c 20 20 20 20 20 20 20  20 20 20 6d 61 78 5f 68  |<          max_h|
000054c0  65 78 25 3d 28 73 65 61  72 63 68 5f 65 78 65 63  |ex%=(search_exec|
000054d0  5f 61 64 64 72 5f 72 74  79 70 65 25 20 80 20 26  |_addr_rtype% . &|
000054e0  30 31 30 30 30 30 30 30  29 0d 22 42 34 20 20 20  |01000000)."B4   |
000054f0  20 20 20 20 20 20 20 72  74 79 70 65 25 3d 28 73  |       rtype%=(s|
00005500  65 61 72 63 68 5f 65 78  65 63 5f 61 64 64 72 5f  |earch_exec_addr_|
00005510  72 74 79 70 65 25 20 80  20 26 66 66 29 0d 22 4c  |rtype% . &ff)."L|
00005520  23 20 20 20 20 20 20 20  20 20 20 74 69 74 6c 65  |#          title|
00005530  24 3d 22 45 78 65 63 20  41 64 64 72 65 73 73 22  |$="Exec Address"|
00005540  0d 22 56 05 cb 0d 22 60  2b e7 20 6d 69 6e 5f 68  |."V..."`+. min_h|
00005550  65 78 25 20 6d 69 6e 24  3d 22 26 22 2b c3 7e 6d  |ex% min$="&"+.~m|
00005560  69 6e 25 20 8b 20 6d 69  6e 24 3d c3 6d 69 6e 25  |in% . min$=.min%|
00005570  0d 22 6a 2b e7 20 6d 61  78 5f 68 65 78 25 20 6d  |."j+. max_hex% m|
00005580  61 78 24 3d 22 26 22 2b  c3 7e 6d 61 78 25 20 8b  |ax$="&"+.~max% .|
00005590  20 6d 61 78 24 3d c3 6d  61 78 25 0d 22 74 32 f2  | max$=.max%."t2.|
000055a0  77 72 69 74 61 62 6c 65  66 69 65 6c 64 5f 73 65  |writablefield_se|
000055b0  74 5f 76 61 6c 75 65 28  6f 62 6a 5f 69 64 73 25  |t_value(obj_ids%|
000055c0  21 31 36 2c 26 31 30 2c  6d 69 6e 24 29 0d 22 7e  |!16,&10,min$)."~|
000055d0  32 f2 77 72 69 74 61 62  6c 65 66 69 65 6c 64 5f  |2.writablefield_|
000055e0  73 65 74 5f 76 61 6c 75  65 28 6f 62 6a 5f 69 64  |set_value(obj_id|
000055f0  73 25 21 31 36 2c 26 32  30 2c 6d 61 78 24 29 0d  |s%!16,&20,max$).|
00005600  22 88 37 f2 73 74 72 69  6e 67 73 65 74 5f 73 65  |".7.stringset_se|
00005610  74 5f 76 61 6c 75 65 5f  69 6e 64 65 78 28 6f 62  |t_value_index(ob|
00005620  6a 5f 69 64 73 25 21 31  36 2c 26 31 31 30 2c 72  |j_ids%!16,&110,r|
00005630  74 79 70 65 25 29 0d 22  92 29 f2 77 69 6e 64 6f  |type%).".).windo|
00005640  77 5f 73 65 74 5f 74 69  74 6c 65 28 6f 62 6a 5f  |w_set_title(obj_|
00005650  69 64 73 25 21 31 36 2c  74 69 74 6c 65 24 29 0d  |ids%!16,title$).|
00005660  22 9c 05 e1 0d 22 a6 05  3a 0d 22 d8 38 dd 20 a4  |"...."..:.".8. .|
00005670  69 6e 74 72 61 6e 67 65  5f 6d 6f 75 73 65 5f 63  |intrange_mouse_c|
00005680  6c 69 63 6b 5f 68 61 6e  64 6c 65 72 28 73 65 6c  |lick_handler(sel|
00005690  66 5f 69 64 25 2c 73 65  6c 66 5f 63 6d 70 74 25  |f_id%,self_cmpt%|
000056a0  29 0d 22 e2 24 ea 20 61  6e 63 5f 63 6d 70 74 25  |).".$. anc_cmpt%|
000056b0  2c 76 61 6c 24 2c 76 61  6c 25 2c 64 69 73 70 25  |,val$,val%,disp%|
000056c0  2c 6d 6f 64 25 0d 22 ec  3b e7 20 a4 74 6f 6f 6c  |,mod%.".;. .tool|
000056d0  62 6f 78 5f 67 65 74 5f  74 65 6d 70 6c 61 74 65  |box_get_template|
000056e0  5f 6e 61 6d 65 28 73 65  6c 66 5f 69 64 25 29 3c  |_name(self_id%)<|
000056f0  3e 22 69 6e 74 72 61 6e  67 65 22 20 8c 20 3d 30  |>"intrange" . =0|
00005700  0d 22 f6 1e e7 20 70 62  25 21 38 3c 3e 31 20 80  |."... pb%!8<>1 .|
00005710  20 70 62 25 21 38 3c 3e  34 20 8c 20 3d 31 0d 23  | pb%!8<>4 . =1.#|
00005720  00 2f ea 20 85 3a ee 20  85 20 ea 20 f2 72 65 70  |./. .:. . . .rep|
00005730  6f 72 74 5f 65 72 72 6f  72 28 31 2c 22 42 61 64  |ort_error(1,"Bad|
00005740  20 6e 75 6d 62 65 72 21  22 29 3a 3d 31 0d 23 0a  | number!"):=1.#.|
00005750  04 0d 23 14 2e e7 20 73  65 6c 66 5f 63 6d 70 74  |..#... self_cmpt|
00005760  25 20 3c 20 26 31 31 20  84 20 73 65 6c 66 5f 63  |% < &11 . self_c|
00005770  6d 70 74 25 20 3e 20 26  32 32 20 8c 20 3d 31 0d  |mpt% > &22 . =1.|
00005780  23 1e 0d 6d 6f 64 25 3d  31 30 32 34 0d 23 28 32  |#..mod%=1024.#(2|
00005790  e7 20 73 65 6c 66 5f 63  6d 70 74 25 3d 26 31 31  |. self_cmpt%=&11|
000057a0  20 84 20 73 65 6c 66 5f  63 6d 70 74 25 3d 26 32  | . self_cmpt%=&2|
000057b0  31 20 6d 6f 64 25 3d 6d  6f 64 25 2a 2d 31 0d 23  |1 mod%=mod%*-1.#|
000057c0  32 1a e7 20 70 62 25 21  38 3d 31 20 6d 6f 64 25  |2.. pb%!8=1 mod%|
000057d0  3d 6d 6f 64 25 2a 2d 31  0d 23 3c 04 0d 23 46 1c  |=mod%*-1.#<..#F.|
000057e0  64 69 73 70 25 20 3d 20  73 65 6c 66 5f 63 6d 70  |disp% = self_cmp|
000057f0  74 25 20 80 20 26 66 30  0d 23 50 31 76 61 6c 24  |t% . &f0.#P1val$|
00005800  3d a4 77 72 69 74 61 62  6c 65 66 69 65 6c 64 5f  |=.writablefield_|
00005810  67 65 74 5f 76 61 6c 75  65 28 73 65 6c 66 5f 69  |get_value(self_i|
00005820  64 25 2c 64 69 73 70 25  29 0d 23 5a 0e 76 61 6c  |d%,disp%).#Z.val|
00005830  25 3d a0 76 61 6c 24 0d  23 64 0e e7 20 6d 6f 64  |%=.val$.#d.. mod|
00005840  25 3c 30 20 8c 0d 23 6e  33 20 20 e7 20 28 76 61  |%<0 ..#n3  . (va|
00005850  6c 25 3c 31 30 32 34 20  80 20 76 61 6c 25 3e 3d  |l%<1024 . val%>=|
00005860  30 29 20 8c 20 76 61 6c  25 3d 30 20 8b 20 76 61  |0) . val%=0 . va|
00005870  6c 25 2d 3d 31 30 32 34  0d 23 78 05 cc 0d 23 82  |l%-=1024.#x...#.|
00005880  35 20 20 e7 20 28 76 61  6c 25 3e 3d 2d 31 30 32  |5  . (val%>=-102|
00005890  34 20 80 20 76 61 6c 25  3c 30 29 20 8c 20 76 61  |4 . val%<0) . va|
000058a0  6c 25 3d 2d 31 20 8b 20  76 61 6c 25 2b 3d 31 30  |l%=-1 . val%+=10|
000058b0  32 34 0d 23 8c 05 cd 0d  23 96 37 e7 20 c0 76 61  |24.#....#.7. .va|
000058c0  6c 24 2c 31 29 3d 22 26  22 20 8c 20 6e 65 77 76  |l$,1)="&" . newv|
000058d0  61 6c 24 3d 22 26 22 2b  c3 7e 76 61 6c 25 20 8b  |al$="&"+.~val% .|
000058e0  20 6e 65 77 76 61 6c 24  3d c3 76 61 6c 25 0d 23  | newval$=.val%.#|
000058f0  a0 34 f2 77 72 69 74 61  62 6c 65 66 69 65 6c 64  |.4.writablefield|
00005900  5f 73 65 74 5f 76 61 6c  75 65 28 73 65 6c 66 5f  |_set_value(self_|
00005910  69 64 25 2c 64 69 73 70  25 2c 6e 65 77 76 61 6c  |id%,disp%,newval|
00005920  24 29 0d 23 aa 06 3d 31  0d 23 b4 05 3a 0d 24 0e  |$).#..=1.#..:.$.|
00005930  17 dd 20 a4 63 73 74 72  74 6f 62 61 73 73 74 72  |.. .cstrtobasstr|
00005940  28 73 25 29 0d 24 18 0e  ea 20 62 24 3a 62 24 3d  |(s%).$... b$:b$=|
00005950  22 22 0d 24 22 1e c8 95  20 3f 73 25 3e 33 31 3a  |"".$"... ?s%>31:|
00005960  62 24 2b 3d bd 3f 73 25  3a 73 25 2b 3d 31 3a ce  |b$+=.?s%:s%+=1:.|
00005970  0d 24 2c 07 3d 62 24 0d  24 36 05 3a 0d 24 68 1d  |.$,.=b$.$6.:.$h.|
00005980  dd 20 a4 69 6e 74 5f 74  6f 5f 73 74 72 28 69 25  |. .int_to_str(i%|
00005990  2c 20 69 73 68 65 78 25  29 0d 24 72 08 ea 20 69  |, ishex%).$r.. i|
000059a0  24 0d 24 7c 18 e7 20 69  73 68 65 78 25 20 8c 20  |$.$|.. ishex% . |
000059b0  3d 22 26 22 2b c3 7e 69  25 0d 24 86 0a 69 24 3d  |="&"+.~i%.$..i$=|
000059c0  c3 69 25 0d 24 90 16 e7  20 c0 69 24 2c 31 29 3d  |.i%.$... .i$,1)=|
000059d0  22 2d 22 20 8c 3d 22 30  22 0d 24 9a 07 3d 69 24  |"-" .="0".$..=i$|
000059e0  0d 24 a4 05 3a 0d 24 fe  21 dd 20 f2 72 65 61 64  |.$..:.$.!. .read|
000059f0  5f 63 75 72 72 65 6e 74  5f 75 74 63 28 75 74 63  |_current_utc(utc|
00005a00  5f 62 6c 6b 25 29 0d 25  08 17 ea 20 72 30 25 2c  |_blk%).%... r0%,|
00005a10  66 6c 61 67 73 25 2c 64  75 6d 6d 79 25 0d 25 12  |flags%,dummy%.%.|
00005a20  12 75 74 63 5f 62 6c 6b  25 21 30 20 3d 20 33 0d  |.utc_blk%!0 = 3.|
00005a30  25 1c 2a c8 99 20 22 58  4f 53 5f 57 6f 72 64 22  |%.*.. "XOS_Word"|
00005a40  2c 31 34 2c 75 74 63 5f  62 6c 6b 25 20 b8 20 72  |,14,utc_blk% . r|
00005a50  30 25 3b 66 6c 61 67 73  25 0d 25 26 21 64 75 6d  |0%;flags%.%&!dum|
00005a60  6d 79 25 3d a4 73 79 73  5f 77 61 72 6e 28 72 30  |my%=.sys_warn(r0|
00005a70  25 2c 20 66 6c 61 67 73  25 29 0d 25 30 05 e1 0d  |%, flags%).%0...|
00005a80  25 3a 05 3a 0d 25 6c 43  dd 20 f2 75 74 63 5f 74  |%:.:.%lC. .utc_t|
00005a90  6f 5f 6f 72 64 73 28 74  69 6d 65 25 2c 20 f8 20  |o_ords(time%, . |
00005aa0  79 72 25 2c 20 f8 20 6d  6f 25 2c 20 f8 20 64 74  |yr%, . mo%, . dt|
00005ab0  25 2c 20 f8 20 68 72 25  2c 20 f8 20 6d 69 25 2c  |%, . hr%, . mi%,|
00005ac0  20 f8 20 73 65 25 29 0d  25 76 17 ea 20 72 30 25  | . se%).%v.. r0%|
00005ad0  2c 66 6c 61 67 73 25 2c  64 75 6d 6d 79 25 0d 25  |,flags%,dummy%.%|
00005ae0  80 4a c8 99 20 22 58 54  65 72 72 69 74 6f 72 79  |.J.. "XTerritory|
00005af0  5f 43 6f 6e 76 65 72 74  54 69 6d 65 54 6f 4f 72  |_ConvertTimeToOr|
00005b00  64 69 6e 61 6c 73 22 2c  2d 31 2c 74 69 6d 65 25  |dinals",-1,time%|
00005b10  2c 74 69 6d 65 5f 6f 72  64 73 25 20 b8 20 72 30  |,time_ords% . r0|
00005b20  25 3b 66 6c 61 67 73 25  0d 25 8a 1f e7 20 28 a4  |%;flags%.%... (.|
00005b30  73 79 73 5f 77 61 72 6e  28 72 30 25 2c 66 6c 61  |sys_warn(r0%,fla|
00005b40  67 73 25 29 29 20 8c 0d  25 94 2d 20 20 79 72 25  |gs%)) ..%.-  yr%|
00005b50  3d 31 39 39 35 3a 6d 6f  25 3d 31 3a 64 74 25 3d  |=1995:mo%=1:dt%=|
00005b60  31 3a 68 72 25 3d 31 32  3a 6d 69 25 3d 30 3a 73  |1:hr%=12:mi%=0:s|
00005b70  65 25 3d 30 0d 25 9e 05  cc 0d 25 a8 3b 20 20 79  |e%=0.%....%.;  y|
00005b80  72 25 3d 74 69 6d 65 5f  6f 72 64 73 25 21 32 34  |r%=time_ords%!24|
00005b90  3a 6d 6f 25 3d 74 69 6d  65 5f 6f 72 64 73 25 21  |:mo%=time_ords%!|
00005ba0  32 30 3a 64 74 25 3d 74  69 6d 65 5f 6f 72 64 73  |20:dt%=time_ords|
00005bb0  25 21 31 36 0d 25 b2 28  20 20 68 72 25 3d 74 69  |%!16.%.(  hr%=ti|
00005bc0  6d 65 5f 6f 72 64 73 25  21 31 32 3a 6d 69 25 3d  |me_ords%!12:mi%=|
00005bd0  74 69 6d 65 5f 6f 72 64  73 25 21 38 0d 25 bc 29  |time_ords%!8.%.)|
00005be0  20 20 73 65 25 3d 31 30  30 2a 74 69 6d 65 5f 6f  |  se%=100*time_o|
00005bf0  72 64 73 25 21 34 20 2b  20 74 69 6d 65 5f 6f 72  |rds%!4 + time_or|
00005c00  64 73 25 21 30 0d 25 c6  05 cd 0d 25 d0 05 e1 0d  |ds%!0.%....%....|
00005c10  25 da 05 3a 0d 26 0c 18  dd 20 a4 75 74 63 5f 74  |%..:.&... .utc_t|
00005c20  6f 5f 73 74 72 28 74 69  6d 65 25 29 0d 26 16 17  |o_str(time%).&..|
00005c30  ea 20 72 30 25 2c 66 6c  61 67 73 25 2c 64 75 6d  |. r0%,flags%,dum|
00005c40  6d 79 25 0d 26 20 69 c8  99 20 22 58 54 65 72 72  |my%.& i.. "XTerr|
00005c50  69 74 6f 72 79 5f 43 6f  6e 76 65 72 74 44 61 74  |itory_ConvertDat|
00005c60  65 41 6e 64 54 69 6d 65  22 2c 2d 31 2c 74 69 6d  |eAndTime",-1,tim|
00005c70  65 25 2c 65 62 25 2c 32  35 36 2c 22 25 77 33 20  |e%,eb%,256,"%w3 |
00005c80  25 64 79 20 25 6d 33 20  25 63 65 25 79 72 20 25  |%dy %m3 %ce%yr %|
00005c90  32 34 3a 25 6d 69 3a 25  73 65 2e 25 63 73 22 20  |24:%mi:%se.%cs" |
00005ca0  b8 20 72 30 25 3b 66 6c  61 67 73 25 0d 26 2a 23  |. r0%;flags%.&*#|
00005cb0  e7 20 28 a4 73 79 73 5f  77 61 72 6e 28 72 30 25  |. (.sys_warn(r0%|
00005cc0  2c 66 6c 61 67 73 25 29  29 20 8c 20 3d 22 22 0d  |,flags%)) . ="".|
00005cd0  26 34 17 3d a4 63 73 74  72 74 6f 62 61 73 73 74  |&4.=.cstrtobasst|
00005ce0  72 28 65 62 25 29 0d 26  3e 05 3a 0d 26 70 37 dd  |r(eb%).&>.:.&p7.|
00005cf0  20 f2 6f 72 64 73 5f 74  6f 5f 75 74 63 28 74 69  | .ords_to_utc(ti|
00005d00  6d 65 25 2c 20 79 72 25  2c 20 6d 6f 25 2c 20 64  |me%, yr%, mo%, d|
00005d10  74 25 2c 20 68 72 25 2c  20 6d 69 25 2c 20 73 65  |t%, hr%, mi%, se|
00005d20  25 29 0d 26 7a 17 ea 20  72 30 25 2c 66 6c 61 67  |%).&z.. r0%,flag|
00005d30  73 25 2c 64 75 6d 6d 79  25 0d 26 84 35 74 69 6d  |s%,dummy%.&.5tim|
00005d40  65 5f 6f 72 64 73 25 21  30 3d 28 73 65 25 20 83  |e_ords%!0=(se% .|
00005d50  20 31 30 30 29 3a 74 69  6d 65 5f 6f 72 64 73 25  | 100):time_ords%|
00005d60  21 34 3d 28 73 65 25 20  81 20 31 30 30 29 0d 26  |!4=(se% . 100).&|
00005d70  8e 26 74 69 6d 65 5f 6f  72 64 73 25 21 38 3d 6d  |.&time_ords%!8=m|
00005d80  69 25 3a 74 69 6d 65 5f  6f 72 64 73 25 21 31 32  |i%:time_ords%!12|
00005d90  3d 68 72 25 0d 26 98 39  74 69 6d 65 5f 6f 72 64  |=hr%.&.9time_ord|
00005da0  73 25 21 31 36 3d 64 74  25 3a 74 69 6d 65 5f 6f  |s%!16=dt%:time_o|
00005db0  72 64 73 25 21 32 30 3d  6d 6f 25 3a 74 69 6d 65  |rds%!20=mo%:time|
00005dc0  5f 6f 72 64 73 25 21 32  34 3d 79 72 25 0d 26 a2  |_ords%!24=yr%.&.|
00005dd0  4a c8 99 20 22 58 54 65  72 72 69 74 6f 72 79 5f  |J.. "XTerritory_|
00005de0  43 6f 6e 76 65 72 74 4f  72 64 69 6e 61 6c 73 54  |ConvertOrdinalsT|
00005df0  6f 54 69 6d 65 22 2c 2d  31 2c 74 69 6d 65 25 2c  |oTime",-1,time%,|
00005e00  74 69 6d 65 5f 6f 72 64  73 25 20 b8 20 72 30 25  |time_ords% . r0%|
00005e10  3b 66 6c 61 67 73 25 0d  26 ac 20 64 75 6d 6d 79  |;flags%.&. dummy|
00005e20  25 3d a4 73 79 73 5f 77  61 72 6e 28 72 30 25 2c  |%=.sys_warn(r0%,|
00005e30  66 6c 61 67 73 25 29 0d  26 b6 05 e1 0d 26 c0 05  |flags%).&....&..|
00005e40  3a 0d 27 1a 2d dd 20 f2  64 69 73 70 6c 61 79 66  |:.'.-. .displayf|
00005e50  69 65 6c 64 5f 73 65 74  5f 76 61 6c 75 65 28 6f  |ield_set_value(o|
00005e60  62 6a 25 2c 20 63 70 74  25 2c 20 76 24 29 0d 27  |bj%, cpt%, v$).'|
00005e70  24 17 ea 20 72 30 25 2c  66 6c 61 67 73 25 2c 64  |$.. r0%,flags%,d|
00005e80  75 6d 6d 79 25 0d 27 2e  3e c8 99 20 22 58 54 6f  |ummy%.'.>.. "XTo|
00005e90  6f 6c 62 6f 78 5f 4f 62  6a 65 63 74 4d 69 73 63  |olbox_ObjectMisc|
00005ea0  4f 70 22 2c 30 2c 6f 62  6a 25 2c 34 34 38 2c 63  |Op",0,obj%,448,c|
00005eb0  70 74 25 2c 76 24 20 b8  20 72 30 25 3b 66 6c 61  |pt%,v$ . r0%;fla|
00005ec0  67 73 25 0d 27 38 20 64  75 6d 6d 79 25 3d a4 73  |gs%.'8 dummy%=.s|
00005ed0  79 73 5f 77 61 72 6e 28  72 30 25 2c 66 6c 61 67  |ys_warn(r0%,flag|
00005ee0  73 25 29 0d 27 42 05 e1  0d 27 4c 05 3a 0d 27 a6  |s%).'B...'L.:.'.|
00005ef0  2e dd 20 f2 6f 70 74 69  6f 6e 62 75 74 74 6f 6e  |.. .optionbutton|
00005f00  5f 73 65 74 5f 76 61 6c  75 65 28 6f 62 6a 25 2c  |_set_value(obj%,|
00005f10  20 63 70 74 25 2c 20 6f  6e 25 29 0d 27 b0 17 ea  | cpt%, on%).'...|
00005f20  20 72 30 25 2c 66 6c 61  67 73 25 2c 64 75 6d 6d  | r0%,flags%,dumm|
00005f30  79 25 0d 27 ba 0f e7 20  6f 6e 25 20 6f 6e 25 3d  |y%.'... on% on%=|
00005f40  31 0d 27 c4 3f c8 99 20  22 58 54 6f 6f 6c 62 6f  |1.'.?.. "XToolbo|
00005f50  78 5f 4f 62 6a 65 63 74  4d 69 73 63 4f 70 22 2c  |x_ObjectMiscOp",|
00005f60  30 2c 6f 62 6a 25 2c 31  39 36 2c 63 70 74 25 2c  |0,obj%,196,cpt%,|
00005f70  6f 6e 25 20 b8 20 72 30  25 3b 66 6c 61 67 73 25  |on% . r0%;flags%|
00005f80  0d 27 ce 21 64 75 6d 6d  79 25 3d a4 73 79 73 5f  |.'.!dummy%=.sys_|
00005f90  77 61 72 6e 28 72 30 25  2c 20 66 6c 61 67 73 25  |warn(r0%, flags%|
00005fa0  29 0d 27 d8 05 e1 0d 27  e2 05 3a 0d 28 14 29 dd  |).'....'..:.(.).|
00005fb0  20 a4 6f 70 74 69 6f 6e  62 75 74 74 6f 6e 5f 67  | .optionbutton_g|
00005fc0  65 74 5f 76 61 6c 75 65  28 6f 62 6a 25 2c 20 63  |et_value(obj%, c|
00005fd0  70 74 25 29 0d 28 1e 10  ea 20 72 30 25 2c 66 6c  |pt%).(... r0%,fl|
00005fe0  61 67 73 25 0d 28 28 3b  c8 99 20 22 58 54 6f 6f  |ags%.((;.. "XToo|
00005ff0  6c 62 6f 78 5f 4f 62 6a  65 63 74 4d 69 73 63 4f  |lbox_ObjectMiscO|
00006000  70 22 2c 30 2c 6f 62 6a  25 2c 31 39 37 2c 63 70  |p",0,obj%,197,cp|
00006010  74 25 20 b8 20 72 30 25  3b 66 6c 61 67 73 25 0d  |t% . r0%;flags%.|
00006020  28 32 21 e7 20 a4 73 79  73 5f 77 61 72 6e 28 72  |(2!. .sys_warn(r|
00006030  30 25 2c 20 66 6c 61 67  73 25 29 20 8c 20 3d 30  |0%, flags%) . =0|
00006040  0d 28 3c 08 3d 72 30 25  0d 28 46 05 3a 0d 28 a0  |.(<.=r0%.(F.:.(.|
00006050  2c dd 20 f2 6e 75 6d 62  65 72 72 61 6e 67 65 5f  |,. .numberrange_|
00006060  73 65 74 5f 76 61 6c 75  65 28 6f 62 6a 25 2c 20  |set_value(obj%, |
00006070  63 70 74 25 2c 20 76 25  29 0d 28 aa 17 ea 20 72  |cpt%, v%).(... r|
00006080  30 25 2c 66 6c 61 67 73  25 2c 64 75 6d 6d 79 25  |0%,flags%,dummy%|
00006090  0d 28 b4 3e c8 99 20 22  58 54 6f 6f 6c 62 6f 78  |.(.>.. "XToolbox|
000060a0  5f 4f 62 6a 65 63 74 4d  69 73 63 4f 70 22 2c 30  |_ObjectMiscOp",0|
000060b0  2c 6f 62 6a 25 2c 38 33  32 2c 63 70 74 25 2c 76  |,obj%,832,cpt%,v|
000060c0  25 20 b8 20 72 30 25 3b  66 6c 61 67 73 25 0d 28  |% . r0%;flags%.(|
000060d0  be 21 64 75 6d 6d 79 25  3d a4 73 79 73 5f 77 61  |.!dummy%=.sys_wa|
000060e0  72 6e 28 72 30 25 2c 20  66 6c 61 67 73 25 29 0d  |rn(r0%, flags%).|
000060f0  28 c8 05 e1 0d 28 d2 05  3a 0d 29 04 28 dd 20 a4  |(....(..:.).(. .|
00006100  6e 75 6d 62 65 72 72 61  6e 67 65 5f 67 65 74 5f  |numberrange_get_|
00006110  76 61 6c 75 65 28 6f 62  6a 25 2c 20 63 70 74 25  |value(obj%, cpt%|
00006120  29 0d 29 0e 10 ea 20 72  30 25 2c 66 6c 61 67 73  |).)... r0%,flags|
00006130  25 0d 29 18 3b c8 99 20  22 58 54 6f 6f 6c 62 6f  |%.).;.. "XToolbo|
00006140  78 5f 4f 62 6a 65 63 74  4d 69 73 63 4f 70 22 2c  |x_ObjectMiscOp",|
00006150  30 2c 6f 62 6a 25 2c 38  33 33 2c 63 70 74 25 20  |0,obj%,833,cpt% |
00006160  b8 20 72 30 25 3b 66 6c  61 67 73 25 0d 29 22 21  |. r0%;flags%.)"!|
00006170  e7 20 a4 73 79 73 5f 77  61 72 6e 28 72 30 25 2c  |. .sys_warn(r0%,|
00006180  20 66 6c 61 67 73 25 29  20 8c 20 3d 31 0d 29 2c  | flags%) . =1.),|
00006190  08 3d 72 30 25 0d 29 36  05 3a 0d 29 90 34 dd 20  |.=r0%.)6.:.).4. |
000061a0  f2 73 74 72 69 6e 67 73  65 74 5f 73 65 74 5f 76  |.stringset_set_v|
000061b0  61 6c 75 65 5f 69 6e 64  65 78 28 6f 62 6a 25 2c  |alue_index(obj%,|
000061c0  20 63 70 74 25 2c 20 69  6e 64 65 78 25 29 0d 29  | cpt%, index%).)|
000061d0  9a 17 ea 20 72 30 25 2c  66 6c 61 67 73 25 2c 64  |... r0%,flags%,d|
000061e0  75 6d 6d 79 25 0d 29 a4  42 c8 99 20 22 58 54 6f  |ummy%.).B.. "XTo|
000061f0  6f 6c 62 6f 78 5f 4f 62  6a 65 63 74 4d 69 73 63  |olbox_ObjectMisc|
00006200  4f 70 22 2c 31 2c 6f 62  6a 25 2c 38 39 38 2c 63  |Op",1,obj%,898,c|
00006210  70 74 25 2c 69 6e 64 65  78 25 20 b8 20 72 30 25  |pt%,index% . r0%|
00006220  3b 66 6c 61 67 73 25 0d  29 ae 21 64 75 6d 6d 79  |;flags%.).!dummy|
00006230  25 3d a4 73 79 73 5f 77  61 72 6e 28 72 30 25 2c  |%=.sys_warn(r0%,|
00006240  20 66 6c 61 67 73 25 29  0d 29 b8 05 e1 0d 29 c2  | flags%).)....).|
00006250  05 3a 0d 29 f4 2c dd 20  a4 73 74 72 69 6e 67 73  |.:.).,. .strings|
00006260  65 74 5f 67 65 74 5f 76  61 6c 75 65 5f 69 6e 64  |et_get_value_ind|
00006270  65 78 28 6f 62 6a 25 2c  20 63 70 74 25 29 0d 29  |ex(obj%, cpt%).)|
00006280  fe 10 ea 20 72 30 25 2c  66 6c 61 67 73 25 0d 2a  |... r0%,flags%.*|
00006290  08 3b c8 99 20 22 58 54  6f 6f 6c 62 6f 78 5f 4f  |.;.. "XToolbox_O|
000062a0  62 6a 65 63 74 4d 69 73  63 4f 70 22 2c 31 2c 6f  |bjectMiscOp",1,o|
000062b0  62 6a 25 2c 38 39 39 2c  63 70 74 25 20 b8 20 72  |bj%,899,cpt% . r|
000062c0  30 25 3b 66 6c 61 67 73  25 0d 2a 12 21 e7 20 a4  |0%;flags%.*.!. .|
000062d0  73 79 73 5f 77 61 72 6e  28 72 30 25 2c 20 66 6c  |sys_warn(r0%, fl|
000062e0  61 67 73 25 29 20 8c 20  3d 30 0d 2a 1c 08 3d 72  |ags%) . =0.*..=r|
000062f0  30 25 0d 2a 26 05 3a 0d  2a 58 2a dd 20 f2 73 74  |0%.*&.:.*X*. .st|
00006300  72 69 6e 67 73 65 74 5f  73 65 74 5f 76 61 6c 75  |ringset_set_valu|
00006310  65 28 6f 62 6a 25 2c 20  63 70 74 25 2c 20 76 24  |e(obj%, cpt%, v$|
00006320  29 0d 2a 62 17 ea 20 72  30 25 2c 66 6c 61 67 73  |).*b.. r0%,flags|
00006330  25 2c 64 75 6d 6d 79 25  0d 2a 6c 3e c8 99 20 22  |%,dummy%.*l>.. "|
00006340  58 54 6f 6f 6c 62 6f 78  5f 4f 62 6a 65 63 74 4d  |XToolbox_ObjectM|
00006350  69 73 63 4f 70 22 2c 30  2c 6f 62 6a 25 2c 38 39  |iscOp",0,obj%,89|
00006360  38 2c 63 70 74 25 2c 76  24 20 b8 20 72 30 25 3b  |8,cpt%,v$ . r0%;|
00006370  66 6c 61 67 73 25 0d 2a  76 21 64 75 6d 6d 79 25  |flags%.*v!dummy%|
00006380  3d a4 73 79 73 5f 77 61  72 6e 28 72 30 25 2c 20  |=.sys_warn(r0%, |
00006390  66 6c 61 67 73 25 29 0d  2a 80 05 e1 0d 2a 8a 05  |flags%).*....*..|
000063a0  3a 0d 2a bc 26 dd 20 a4  73 74 72 69 6e 67 73 65  |:.*.&. .stringse|
000063b0  74 5f 67 65 74 5f 76 61  6c 75 65 28 6f 62 6a 25  |t_get_value(obj%|
000063c0  2c 20 63 70 74 25 29 0d  2a c6 10 ea 20 72 30 25  |, cpt%).*... r0%|
000063d0  2c 66 6c 61 67 73 25 0d  2a d0 43 c8 99 20 22 58  |,flags%.*.C.. "X|
000063e0  54 6f 6f 6c 62 6f 78 5f  4f 62 6a 65 63 74 4d 69  |Toolbox_ObjectMi|
000063f0  73 63 4f 70 22 2c 30 2c  6f 62 6a 25 2c 38 39 39  |scOp",0,obj%,899|
00006400  2c 63 70 74 25 2c 65 62  25 2c 32 35 36 20 b8 20  |,cpt%,eb%,256 . |
00006410  72 30 25 3b 66 6c 61 67  73 25 0d 2a da 22 e7 20  |r0%;flags%.*.". |
00006420  a4 73 79 73 5f 77 61 72  6e 28 72 30 25 2c 20 66  |.sys_warn(r0%, f|
00006430  6c 61 67 73 25 29 20 8c  20 3d 22 22 0d 2a e4 17  |lags%) . ="".*..|
00006440  3d a4 63 73 74 72 74 6f  62 61 73 73 74 72 28 65  |=.cstrtobasstr(e|
00006450  62 25 29 0d 2a ee 05 3a  0d 2b 48 2a dd 20 a4 77  |b%).*..:.+H*. .w|
00006460  72 69 74 61 62 6c 65 66  69 65 6c 64 5f 67 65 74  |ritablefield_get|
00006470  5f 76 61 6c 75 65 28 6f  62 6a 25 2c 20 63 70 74  |_value(obj%, cpt|
00006480  25 29 0d 2b 52 10 ea 20  72 30 25 2c 66 6c 61 67  |%).+R.. r0%,flag|
00006490  73 25 0d 2b 5c 43 c8 99  20 22 58 54 6f 6f 6c 62  |s%.+\C.. "XToolb|
000064a0  6f 78 5f 4f 62 6a 65 63  74 4d 69 73 63 4f 70 22  |ox_ObjectMiscOp"|
000064b0  2c 30 2c 6f 62 6a 25 2c  35 31 33 2c 63 70 74 25  |,0,obj%,513,cpt%|
000064c0  2c 65 62 25 2c 32 35 36  20 b8 20 72 30 25 3b 66  |,eb%,256 . r0%;f|
000064d0  6c 61 67 73 25 0d 2b 66  22 e7 20 a4 73 79 73 5f  |lags%.+f". .sys_|
000064e0  77 61 72 6e 28 72 30 25  2c 20 66 6c 61 67 73 25  |warn(r0%, flags%|
000064f0  29 20 8c 20 3d 22 22 0d  2b 70 17 3d a4 63 73 74  |) . ="".+p.=.cst|
00006500  72 74 6f 62 61 73 73 74  72 28 65 62 25 29 0d 2b  |rtobasstr(eb%).+|
00006510  7a 05 3a 0d 2b ac 2e dd  20 f2 77 72 69 74 61 62  |z.:.+... .writab|
00006520  6c 65 66 69 65 6c 64 5f  73 65 74 5f 76 61 6c 75  |lefield_set_valu|
00006530  65 28 6f 62 6a 25 2c 20  63 70 74 25 2c 20 76 24  |e(obj%, cpt%, v$|
00006540  29 0d 2b b6 17 ea 20 72  30 25 2c 66 6c 61 67 73  |).+... r0%,flags|
00006550  25 2c 64 75 6d 6d 79 25  0d 2b c0 3e c8 99 20 22  |%,dummy%.+.>.. "|
00006560  58 54 6f 6f 6c 62 6f 78  5f 4f 62 6a 65 63 74 4d  |XToolbox_ObjectM|
00006570  69 73 63 4f 70 22 2c 30  2c 6f 62 6a 25 2c 35 31  |iscOp",0,obj%,51|
00006580  32 2c 63 70 74 25 2c 76  24 20 b8 20 72 30 25 3b  |2,cpt%,v$ . r0%;|
00006590  66 6c 61 67 73 25 0d 2b  ca 21 64 75 6d 6d 79 25  |flags%.+.!dummy%|
000065a0  3d a4 73 79 73 5f 77 61  72 6e 28 72 30 25 2c 20  |=.sys_warn(r0%, |
000065b0  66 6c 61 67 73 25 29 0d  2b d4 05 e1 0d 2b de 05  |flags%).+....+..|
000065c0  3a 0d 2c 38 25 dd 20 f2  62 75 74 74 6f 6e 5f 73  |:.,8%. .button_s|
000065d0  65 74 5f 76 61 6c 75 65  28 6f 62 6a 25 2c 63 70  |et_value(obj%,cp|
000065e0  74 25 2c 76 24 29 0d 2c  42 17 ea 20 72 30 25 2c  |t%,v$).,B.. r0%,|
000065f0  66 6c 61 67 73 25 2c 64  75 6d 6d 79 25 0d 2c 4c  |flags%,dummy%.,L|
00006600  3e c8 99 20 22 58 54 6f  6f 6c 62 6f 78 5f 4f 62  |>.. "XToolbox_Ob|
00006610  6a 65 63 74 4d 69 73 63  4f 70 22 2c 30 2c 6f 62  |jectMiscOp",0,ob|
00006620  6a 25 2c 39 36 32 2c 63  70 74 25 2c 76 24 20 b8  |j%,962,cpt%,v$ .|
00006630  20 72 30 25 3b 66 6c 61  67 73 25 0d 2c 56 21 64  | r0%;flags%.,V!d|
00006640  75 6d 6d 79 25 3d a4 73  79 73 5f 77 61 72 6e 28  |ummy%=.sys_warn(|
00006650  72 30 25 2c 20 66 6c 61  67 73 25 29 0d 2c 60 05  |r0%, flags%).,`.|
00006660  e1 0d 2c 6a 05 3a 0d 2c  9c 23 dd 20 a4 62 75 74  |..,j.:.,.#. .but|
00006670  74 6f 6e 5f 67 65 74 5f  76 61 6c 75 65 28 6f 62  |ton_get_value(ob|
00006680  6a 25 2c 20 63 70 74 25  29 0d 2c a6 10 ea 20 72  |j%, cpt%).,... r|
00006690  30 25 2c 66 6c 61 67 73  25 0d 2c b0 43 c8 99 20  |0%,flags%.,.C.. |
000066a0  22 58 54 6f 6f 6c 62 6f  78 5f 4f 62 6a 65 63 74  |"XToolbox_Object|
000066b0  4d 69 73 63 4f 70 22 2c  30 2c 6f 62 6a 25 2c 39  |MiscOp",0,obj%,9|
000066c0  36 33 2c 63 70 74 25 2c  65 62 25 2c 32 35 36 20  |63,cpt%,eb%,256 |
000066d0  b8 20 72 30 25 3b 66 6c  61 67 73 25 0d 2c ba 22  |. r0%;flags%.,."|
000066e0  e7 20 a4 73 79 73 5f 77  61 72 6e 28 72 30 25 2c  |. .sys_warn(r0%,|
000066f0  20 66 6c 61 67 73 25 29  20 8c 20 3d 22 22 0d 2c  | flags%) . ="".,|
00006700  c4 17 3d a4 63 73 74 72  74 6f 62 61 73 73 74 72  |..=.cstrtobasstr|
00006710  28 65 62 25 29 0d 2c ce  05 3a 0d 2d 00 20 dd 20  |(eb%).,..:.-. . |
00006720  f2 77 69 6e 64 6f 77 5f  73 65 74 5f 74 69 74 6c  |.window_set_titl|
00006730  65 28 6f 62 6a 25 2c 74  24 29 0d 2d 0a 17 ea 20  |e(obj%,t$).-... |
00006740  72 30 25 2c 66 6c 61 67  73 25 2c 64 75 6d 6d 79  |r0%,flags%,dummy|
00006750  25 0d 2d 14 38 c8 99 20  22 58 54 6f 6f 6c 62 6f  |%.-.8.. "XToolbo|
00006760  78 5f 4f 62 6a 65 63 74  4d 69 73 63 4f 70 22 2c  |x_ObjectMiscOp",|
00006770  30 2c 6f 62 6a 25 2c 31  31 2c 74 24 20 b8 20 72  |0,obj%,11,t$ . r|
00006780  30 25 3b 66 6c 61 67 73  25 0d 2d 1e 21 64 75 6d  |0%;flags%.-.!dum|
00006790  6d 79 25 3d a4 73 79 73  5f 77 61 72 6e 28 72 30  |my%=.sys_warn(r0|
000067a0  25 2c 20 66 6c 61 67 73  25 29 0d 2d 28 05 e1 0d  |%, flags%).-(...|
000067b0  2d 32 05 3a 0d 2d 8c 26  dd 20 a4 74 6f 6f 6c 62  |-2.:.-.&. .toolb|
000067c0  6f 78 5f 67 65 74 5f 74  65 6d 70 6c 61 74 65 5f  |ox_get_template_|
000067d0  6e 61 6d 65 28 6f 62 6a  25 29 0d 2d 96 17 ea 20  |name(obj%).-... |
000067e0  72 30 25 2c 66 6c 61 67  73 25 2c 64 75 6d 6d 79  |r0%,flags%,dummy|
000067f0  25 0d 2d a0 44 c8 99 20  22 58 54 6f 6f 6c 62 6f  |%.-.D.. "XToolbo|
00006800  78 5f 47 65 74 54 65 6d  70 6c 61 74 65 4e 61 6d  |x_GetTemplateNam|
00006810  65 22 2c 30 2c 6f 62 6a  5f 69 64 73 25 21 31 36  |e",0,obj_ids%!16|
00006820  2c 65 62 25 2c 32 35 36  20 b8 20 72 30 25 3b 66  |,eb%,256 . r0%;f|
00006830  6c 61 67 73 25 0d 2d aa  21 64 75 6d 6d 79 25 3d  |lags%.-.!dummy%=|
00006840  a4 73 79 73 5f 77 61 72  6e 28 72 30 25 2c 20 66  |.sys_warn(r0%, f|
00006850  6c 61 67 73 25 29 0d 2d  b4 17 3d a4 63 73 74 72  |lags%).-..=.cstr|
00006860  74 6f 62 61 73 73 74 72  28 65 62 25 29 0d 2d be  |tobasstr(eb%).-.|
00006870  05 3a 0d 2e 18 13 dd 20  f2 73 74 61 72 74 5f 73  |.:..... .start_s|
00006880  65 61 72 63 68 0d 2e 22  24 ea 20 63 6d 64 5f 70  |earch.."$. cmd_p|
00006890  72 65 66 69 78 24 2c 20  63 6d 64 5f 73 75 66 66  |refix$, cmd_suff|
000068a0  69 78 24 2c 20 61 72 67  24 0d 2e 2c 2d 63 6d 64  |ix$, arg$..,-cmd|
000068b0  5f 70 72 65 66 69 78 24  3d 22 54 61 73 6b 77 69  |_prefix$="Taskwi|
000068c0  6e 64 6f 77 20 22 2b bd  33 34 2b 22 46 69 6c 65  |ndow "+.34+"File|
000068d0  4d 61 74 63 68 22 0d 2e  36 42 63 6d 64 5f 73 75  |Match"..6Bcmd_su|
000068e0  66 66 69 78 24 3d bd 33  34 2b 22 20 33 32 4b 20  |ffix$=.34+" 32K |
000068f0  22 2b bd 33 34 2b 22 46  69 6c 65 20 4d 61 74 63  |"+.34+"File Matc|
00006900  68 22 2b bd 33 34 2b 22  20 2d 64 69 73 70 6c 61  |h"+.34+" -displa|
00006910  79 20 2d 71 75 69 74 22  0d 2e 40 0b 61 72 67 24  |y -quit"..@.arg$|
00006920  3d 22 22 0d 2e 4a 3a e7  20 73 65 61 72 63 68 5f  |=""..J:. search_|
00006930  75 73 65 5f 61 63 63 65  73 73 25 20 20 20 20 20  |use_access%     |
00006940  20 20 61 72 67 24 2b 3d  22 20 2d 61 20 22 2b a4  |  arg$+=" -a "+.|
00006950  61 63 63 65 73 73 5f 74  6f 5f 73 74 72 0d 2e 54  |access_to_str..T|
00006960  2b e7 20 73 65 61 72 63  68 5f 63 61 73 65 5f 73  |+. search_case_s|
00006970  65 6e 73 69 74 69 76 65  25 20 20 20 61 72 67 24  |ensitive%   arg$|
00006980  2b 3d 22 20 2d 63 73 22  0d 2e 5e 18 e7 20 73 65  |+=" -cs"..^.. se|
00006990  61 72 63 68 5f 75 73 65  5f 64 61 74 65 25 20 8c  |arch_use_date% .|
000069a0  0d 2e 68 12 20 20 61 72  67 24 2b 3d 22 20 2d 64  |..h.  arg$+=" -d|
000069b0  20 22 0d 2e 72 25 20 20  e7 20 28 73 65 61 72 63  | "..r%  . (searc|
000069c0  68 5f 64 61 74 65 5f 6d  61 74 63 68 5f 74 79 70  |h_date_match_typ|
000069d0  65 25 3d 30 29 20 8c 0d  2e 7c 26 20 20 20 20 61  |e%=0) ...|&    a|
000069e0  72 67 24 2b 3d a4 72 65  6c 61 74 69 76 65 5f 74  |rg$+=.relative_t|
000069f0  69 6d 65 5f 74 6f 5f 73  74 72 28 31 29 0d 2e 86  |ime_to_str(1)...|
00006a00  07 20 20 cc 0d 2e 90 31  20 20 20 20 61 72 67 24  |.  ....1    arg$|
00006a10  2b 3d a4 75 74 63 5f 74  6f 5f 66 69 76 65 62 5f  |+=.utc_to_fiveb_|
00006a20  73 74 72 28 73 65 61 72  63 68 5f 64 61 74 65 5f  |str(search_date_|
00006a30  6d 69 6e 25 29 0d 2e 9a  5a 20 20 20 20 e7 20 28  |min%)...Z    . (|
00006a40  73 65 61 72 63 68 5f 64  61 74 65 5f 6d 61 74 63  |search_date_matc|
00006a50  68 5f 74 79 70 65 25 20  80 20 26 31 30 30 29 20  |h_type% . &100) |
00006a60  8c 20 61 72 67 24 2b 3d  22 20 22 2b a4 75 74 63  |. arg$+=" "+.utc|
00006a70  5f 74 6f 5f 66 69 76 65  62 5f 73 74 72 28 73 65  |_to_fiveb_str(se|
00006a80  61 72 63 68 5f 64 61 74  65 5f 6d 61 78 25 29 0d  |arch_date_max%).|
00006a90  2e a4 07 20 20 cd 0d 2e  ae 05 cd 0d 2e b8 1d e7  |...  ...........|
00006aa0  20 73 65 61 72 63 68 5f  75 73 65 5f 65 78 65 63  | search_use_exec|
00006ab0  5f 61 64 64 72 25 20 8c  0d 2e c2 12 20 20 61 72  |_addr% .....  ar|
00006ac0  67 24 2b 3d 22 20 2d 65  20 22 0d 2e cc ac 20 20  |g$+=" -e "....  |
00006ad0  61 72 67 24 2b 3d a4 72  61 6e 67 65 5f 74 6f 5f  |arg$+=.range_to_|
00006ae0  73 74 72 28 73 65 61 72  63 68 5f 65 78 65 63 5f  |str(search_exec_|
00006af0  61 64 64 72 5f 6d 69 6e  25 2c 20 73 65 61 72 63  |addr_min%, searc|
00006b00  68 5f 65 78 65 63 5f 61  64 64 72 5f 6d 61 78 25  |h_exec_addr_max%|
00006b10  2c 20 73 65 61 72 63 68  5f 65 78 65 63 5f 61 64  |, search_exec_ad|
00006b20  64 72 5f 72 74 79 70 65  25 20 80 20 26 66 66 2c  |dr_rtype% . &ff,|
00006b30  20 73 65 61 72 63 68 5f  65 78 65 63 5f 61 64 64  | search_exec_add|
00006b40  72 5f 72 74 79 70 65 25  20 80 20 26 31 30 30 30  |r_rtype% . &1000|
00006b50  30 2c 20 73 65 61 72 63  68 5f 65 78 65 63 5f 61  |0, search_exec_a|
00006b60  64 64 72 5f 72 74 79 70  65 25 20 80 20 26 31 30  |ddr_rtype% . &10|
00006b70  30 30 30 30 30 29 0d 2e  d6 05 cd 0d 2e e0 20 e7  |00000)........ .|
00006b80  20 73 65 61 72 63 68 5f  75 73 65 5f 6c 6f 61 64  | search_use_load|
00006b90  5f 61 64 64 72 25 20 20  20 20 8c 0d 2e ea 12 20  |_addr%    ..... |
00006ba0  20 61 72 67 24 2b 3d 22  20 2d 6c 20 22 0d 2e f4  | arg$+=" -l "...|
00006bb0  ac 20 20 61 72 67 24 2b  3d a4 72 61 6e 67 65 5f  |.  arg$+=.range_|
00006bc0  74 6f 5f 73 74 72 28 73  65 61 72 63 68 5f 6c 6f  |to_str(search_lo|
00006bd0  61 64 5f 61 64 64 72 5f  6d 69 6e 25 2c 20 73 65  |ad_addr_min%, se|
00006be0  61 72 63 68 5f 6c 6f 61  64 5f 61 64 64 72 5f 6d  |arch_load_addr_m|
00006bf0  61 78 25 2c 20 73 65 61  72 63 68 5f 6c 6f 61 64  |ax%, search_load|
00006c00  5f 61 64 64 72 5f 72 74  79 70 65 25 20 80 20 26  |_addr_rtype% . &|
00006c10  66 66 2c 20 73 65 61 72  63 68 5f 6c 6f 61 64 5f  |ff, search_load_|
00006c20  61 64 64 72 5f 72 74 79  70 65 25 20 80 20 26 31  |addr_rtype% . &1|
00006c30  30 30 30 30 2c 20 73 65  61 72 63 68 5f 6c 6f 61  |0000, search_loa|
00006c40  64 5f 61 64 64 72 5f 72  74 79 70 65 25 20 80 20  |d_addr_rtype% . |
00006c50  26 31 30 30 30 30 30 30  29 0d 2e fe 05 cd 0d 2f  |&1000000)....../|
00006c60  08 18 e7 20 73 65 61 72  63 68 5f 75 73 65 5f 6e  |... search_use_n|
00006c70  61 6d 65 25 20 8c 0d 2f  12 4a 20 20 e7 20 28 73  |ame% ../.J  . (s|
00006c80  65 61 72 63 68 5f 6e 61  6d 65 24 3c 3e 22 22 20  |earch_name$<>"" |
00006c90  80 20 73 65 61 72 63 68  5f 6e 61 6d 65 24 3c 3e  |. search_name$<>|
00006ca0  22 2a 22 29 20 8c 20 61  72 67 24 2b 3d 22 20 2d  |"*") . arg$+=" -|
00006cb0  6e 20 22 2b 73 65 61 72  63 68 5f 6e 61 6d 65 24  |n "+search_name$|
00006cc0  0d 2f 1c 05 cd 0d 2f 26  3b e7 20 73 65 61 72 63  |./..../&;. searc|
00006cd0  68 5f 6f 75 74 70 75 74  25 20 20 20 20 20 20 20  |h_output%       |
00006ce0  20 20 20 20 61 72 67 24  2b 3d 22 20 2d 6f 20 22  |    arg$+=" -o "|
00006cf0  2b c3 73 65 61 72 63 68  5f 6f 75 74 70 75 74 25  |+.search_output%|
00006d00  0d 2f 30 3f e7 20 73 65  61 72 63 68 5f 6f 62 6a  |./0?. search_obj|
00006d10  5f 74 79 70 65 73 25 3c  3e 31 20 20 20 20 20 61  |_types%<>1     a|
00006d20  72 67 24 2b 3d 22 20 2d  6f 74 20 22 2b c3 73 65  |rg$+=" -ot "+.se|
00006d30  61 72 63 68 5f 6f 62 6a  5f 74 79 70 65 73 25 0d  |arch_obj_types%.|
00006d40  2f 3a 59 e7 20 28 73 65  61 72 63 68 5f 75 73 65  |/:Y. (search_use|
00006d50  5f 73 74 61 72 74 5f 70  61 74 68 25 20 80 20 73  |_start_path% . s|
00006d60  65 61 72 63 68 5f 73 74  61 72 74 5f 70 61 74 68  |earch_start_path|
00006d70  24 3c 3e 22 22 29 20 8c  20 61 72 67 24 2b 3d 22  |$<>"") . arg$+="|
00006d80  20 2d 70 20 22 2b 73 65  61 72 63 68 5f 73 74 61  | -p "+search_sta|
00006d90  72 74 5f 70 61 74 68 24  0d 2f 44 2a e7 20 73 65  |rt_path$./D*. se|
00006da0  61 72 63 68 5f 72 65 63  75 72 73 65 5f 64 69 72  |arch_recurse_dir|
00006db0  73 25 20 20 20 20 20 61  72 67 24 2b 3d 22 20 2d  |s%     arg$+=" -|
00006dc0  72 22 0d 2f 4e 2b e7 20  73 65 61 72 63 68 5f 72  |r"./N+. search_r|
00006dd0  65 63 75 72 73 65 5f 69  6d 67 73 25 20 20 20 20  |ecurse_imgs%    |
00006de0  20 61 72 67 24 2b 3d 22  20 2d 72 69 22 0d 2f 58  | arg$+=" -ri"./X|
00006df0  20 e7 20 73 65 61 72 63  68 5f 75 73 65 5f 73 69  | . search_use_si|
00006e00  7a 65 25 20 20 20 20 20  20 20 20 20 8c 0d 2f 62  |ze%         ../b|
00006e10  12 20 20 61 72 67 24 2b  3d 22 20 2d 73 20 22 0d  |.  arg$+=" -s ".|
00006e20  2f 6c 93 20 20 61 72 67  24 2b 3d a4 72 61 6e 67  |/l.  arg$+=.rang|
00006e30  65 5f 74 6f 5f 73 74 72  28 73 65 61 72 63 68 5f  |e_to_str(search_|
00006e40  73 69 7a 65 5f 6d 69 6e  25 2c 20 73 65 61 72 63  |size_min%, searc|
00006e50  68 5f 73 69 7a 65 5f 6d  61 78 25 2c 20 73 65 61  |h_size_max%, sea|
00006e60  72 63 68 5f 73 69 7a 65  5f 72 74 79 70 65 25 20  |rch_size_rtype% |
00006e70  80 20 26 66 66 2c 20 73  65 61 72 63 68 5f 73 69  |. &ff, search_si|
00006e80  7a 65 5f 72 74 79 70 65  25 20 80 20 26 31 30 30  |ze_rtype% . &100|
00006e90  30 30 2c 20 73 65 61 72  63 68 5f 73 69 7a 65 5f  |00, search_size_|
00006ea0  72 74 79 70 65 25 20 80  20 26 31 30 30 30 30 30  |rtype% . &100000|
00006eb0  30 29 0d 2f 76 05 cd 0d  2f 80 3d e7 20 73 65 61  |0)./v.../.=. sea|
00006ec0  72 63 68 5f 75 73 65 5f  66 69 6c 65 5f 74 79 70  |rch_use_file_typ|
00006ed0  65 25 20 20 20 20 61 72  67 24 2b 3d 22 20 2d 74  |e%    arg$+=" -t|
00006ee0  20 22 2b 73 65 61 72 63  68 5f 66 69 6c 65 5f 74  | "+search_file_t|
00006ef0  79 70 65 24 0d 2f 8a 2a  e7 20 73 65 61 72 63 68  |ype$./.*. search|
00006f00  5f 76 65 72 62 6f 73 65  25 20 20 20 20 20 20 20  |_verbose%       |
00006f10  20 20 20 61 72 67 24 2b  3d 22 20 2d 76 22 0d 2f  |   arg$+=" -v"./|
00006f20  94 3d e7 20 28 73 65 61  72 63 68 5f 75 73 65 5f  |.=. (search_use_|
00006f30  65 78 65 63 5f 63 6f 6d  6d 61 6e 64 25 20 80 20  |exec_command% . |
00006f40  73 65 61 72 63 68 5f 65  78 65 63 5f 63 6f 6d 6d  |search_exec_comm|
00006f50  61 6e 64 24 3c 3e 22 22  29 20 8c 0d 2f 9e 25 20  |and$<>"") ../.% |
00006f60  20 61 72 67 24 2b 3d 22  20 2d 78 20 3c 46 69 6c  | arg$+=" -x <Fil|
00006f70  65 4d 61 74 63 68 24 43  6f 6d 6d 61 6e 64 3e 22  |eMatch$Command>"|
00006f80  0d 2f a8 37 20 20 ff 20  28 22 53 65 74 20 46 69  |./.7  . ("Set Fi|
00006f90  6c 65 4d 61 74 63 68 24  43 6f 6d 6d 61 6e 64 20  |leMatch$Command |
00006fa0  22 2b 73 65 61 72 63 68  5f 65 78 65 63 5f 63 6f  |"+search_exec_co|
00006fb0  6d 6d 61 6e 64 24 29 0d  2f b2 05 cd 0d 2f bc 36  |mmand$)./..../.6|
00006fc0  c8 99 20 22 58 57 69 6d  70 5f 53 74 61 72 74 54  |.. "XWimp_StartT|
00006fd0  61 73 6b 22 2c 20 63 6d  64 5f 70 72 65 66 69 78  |ask", cmd_prefix|
00006fe0  24 2b 61 72 67 24 2b 63  6d 64 5f 73 75 66 66 69  |$+arg$+cmd_suffi|
00006ff0  78 24 0d 2f c6 05 e1 0d  2f d0 05 3a 0d 2f da 3b  |x$./..../..:./.;|
00007000  dd 20 a4 72 61 6e 67 65  5f 74 6f 5f 73 74 72 28  |. .range_to_str(|
00007010  6d 69 6e 25 2c 20 6d 61  78 25 2c 20 72 74 79 70  |min%, max%, rtyp|
00007020  65 25 2c 20 6d 69 6e 5f  68 65 78 25 2c 20 6d 61  |e%, min_hex%, ma|
00007030  78 5f 68 65 78 25 29 0d  2f e4 08 ea 20 73 24 0d  |x_hex%)./... s$.|
00007040  2f ee 0f c8 8e 20 72 74  79 70 65 25 20 ca 0d 2f  |/.... rtype% ../|
00007050  f8 29 20 20 c9 20 30 3a  20 73 24 3d a4 69 6e 74  |.)  . 0: s$=.int|
00007060  5f 74 6f 5f 73 74 72 28  6d 69 6e 25 2c 20 6d 69  |_to_str(min%, mi|
00007070  6e 5f 68 65 78 25 29 0d  30 02 49 20 20 c9 20 31  |n_hex%).0.I  . 1|
00007080  3a 20 73 24 3d a4 69 6e  74 5f 74 6f 5f 73 74 72  |: s$=.int_to_str|
00007090  28 6d 69 6e 25 2c 20 6d  69 6e 5f 68 65 78 25 29  |(min%, min_hex%)|
000070a0  2b 22 20 22 2b a4 69 6e  74 5f 74 6f 5f 73 74 72  |+" "+.int_to_str|
000070b0  28 6d 61 78 25 2c 20 6d  61 78 5f 68 65 78 25 29  |(max%, max_hex%)|
000070c0  0d 30 0c 4a 20 20 c9 20  32 3a 20 73 24 3d a4 69  |.0.J  . 2: s$=.i|
000070d0  6e 74 5f 74 6f 5f 73 74  72 28 6d 69 6e 25 2c 20  |nt_to_str(min%, |
000070e0  6d 69 6e 5f 68 65 78 25  29 2b 22 20 2b 22 2b a4  |min_hex%)+" +"+.|
000070f0  69 6e 74 5f 74 6f 5f 73  74 72 28 6d 61 78 25 2c  |int_to_str(max%,|
00007100  20 6d 61 78 5f 68 65 78  25 29 0d 30 16 4b 20 20  | max_hex%).0.K  |
00007110  c9 20 33 3a 20 73 24 3d  a4 69 6e 74 5f 74 6f 5f  |. 3: s$=.int_to_|
00007120  73 74 72 28 6d 69 6e 25  2c 20 6d 69 6e 5f 68 65  |str(min%, min_he|
00007130  78 25 29 2b 22 20 2b 2d  22 2b a4 69 6e 74 5f 74  |x%)+" +-"+.int_t|
00007140  6f 5f 73 74 72 28 6d 61  78 25 2c 20 6d 61 78 5f  |o_str(max%, max_|
00007150  68 65 78 25 29 0d 30 20  4b 20 20 c9 20 34 3a 20  |hex%).0 K  . 4: |
00007160  73 24 3d a4 69 6e 74 5f  74 6f 5f 73 74 72 28 6d  |s$=.int_to_str(m|
00007170  69 6e 25 2c 20 6d 69 6e  5f 68 65 78 25 29 2b 22  |in%, min_hex%)+"|
00007180  20 2b 2b 22 2b a4 69 6e  74 5f 74 6f 5f 73 74 72  | ++"+.int_to_str|
00007190  28 6d 61 78 25 2c 20 6d  61 78 5f 68 65 78 25 29  |(max%, max_hex%)|
000071a0  0d 30 2a 05 cb 0d 30 34  07 3d 73 24 0d 30 3e 05  |.0*...04.=s$.0>.|
000071b0  3a 0d 30 48 1d dd 20 a4  75 74 63 5f 74 6f 5f 66  |:.0H.. .utc_to_f|
000071c0  69 76 65 62 5f 73 74 72  28 75 74 63 25 29 0d 30  |iveb_str(utc%).0|
000071d0  52 12 ea 20 73 24 2c 20  69 25 3a 73 24 3d 22 22  |R.. s$, i%:s$=""|
000071e0  0d 30 5c 13 e3 20 69 25  3d 34 20 b8 20 30 20 88  |.0\.. i%=4 . 0 .|
000071f0  20 2d 31 0d 30 66 1c 20  20 e7 20 28 75 74 63 25  | -1.0f.  . (utc%|
00007200  3f 69 25 29 3c 31 36 20  73 24 2b 3d 22 30 22 0d  |?i%)<16 s$+="0".|
00007210  30 70 15 20 20 73 24 2b  3d c3 7e 28 75 74 63 25  |0p.  s$+=.~(utc%|
00007220  3f 69 25 29 0d 30 7a 05  ed 0d 30 84 07 3d 73 24  |?i%).0z...0..=s$|
00007230  0d 30 8e 05 3a 0d 30 c0  21 dd 20 a4 6f 70 74 69  |.0..:.0.!. .opti|
00007240  6f 6e 73 5f 6d 65 6e 75  5f 65 76 65 6e 74 5f 68  |ons_menu_event_h|
00007250  61 6e 64 6c 65 72 0d 30  ca 13 ea 20 64 6f 6e 65  |andler.0... done|
00007260  25 3a 64 6f 6e 65 25 3d  30 0d 30 d4 0e c8 8e 20  |%:done%=0.0.... |
00007270  70 62 25 21 38 20 ca 0d  30 de 15 20 20 c9 20 26  |pb%!8 ..0..  . &|
00007280  35 30 30 3a 20 64 6f 6e  65 25 3d 31 0d 30 e8 0d  |500: done%=1.0..|
00007290  20 20 c9 20 26 35 30 31  3a 0d 30 f2 54 20 20 20  |  . &501:.0.T   |
000072a0  20 e7 20 73 65 61 72 63  68 5f 63 61 73 65 5f 73  | . search_case_s|
000072b0  65 6e 73 69 74 69 76 65  25 20 73 65 61 72 63 68  |ensitive% search|
000072c0  5f 63 61 73 65 5f 73 65  6e 73 69 74 69 76 65 25  |_case_sensitive%|
000072d0  3d 30 20 8b 20 73 65 61  72 63 68 5f 63 61 73 65  |=0 . search_case|
000072e0  5f 73 65 6e 73 69 74 69  76 65 25 3d 31 0d 30 fc  |_sensitive%=1.0.|
000072f0  0f 20 20 20 20 64 6f 6e  65 25 3d 31 0d 31 06 0d  |.    done%=1.1..|
00007300  20 20 c9 20 26 35 30 32  3a 0d 31 10 3f 20 20 20  |  . &502:.1.?   |
00007310  20 e7 20 73 65 61 72 63  68 5f 76 65 72 62 6f 73  | . search_verbos|
00007320  65 25 20 73 65 61 72 63  68 5f 76 65 72 62 6f 73  |e% search_verbos|
00007330  65 25 3d 30 20 8b 20 73  65 61 72 63 68 5f 76 65  |e%=0 . search_ve|
00007340  72 62 6f 73 65 25 3d 31  0d 31 1a 0f 20 20 20 20  |rbose%=1.1..    |
00007350  64 6f 6e 65 25 3d 31 0d  31 24 0d 20 20 c9 20 26  |done%=1.1$.  . &|
00007360  35 30 33 3a 0d 31 2e 20  20 20 20 20 e7 20 28 73  |503:.1.     . (s|
00007370  65 61 72 63 68 5f 6f 75  74 70 75 74 25 20 80 20  |earch_output% . |
00007380  31 29 20 8c 0d 31 38 31  20 20 20 20 20 20 73 65  |1) ..181      se|
00007390  61 72 63 68 5f 6f 75 74  70 75 74 25 20 3d 20 73  |arch_output% = s|
000073a0  65 61 72 63 68 5f 6f 75  74 70 75 74 25 20 80 20  |earch_output% . |
000073b0  28 ac 20 31 29 0d 31 42  09 20 20 20 20 cc 0d 31  |(. 1).1B.    ..1|
000073c0  4c 2d 20 20 20 20 20 20  73 65 61 72 63 68 5f 6f  |L-      search_o|
000073d0  75 74 70 75 74 25 20 3d  20 73 65 61 72 63 68 5f  |utput% = search_|
000073e0  6f 75 74 70 75 74 25 20  84 20 31 0d 31 56 09 20  |output% . 1.1V. |
000073f0  20 20 20 cd 0d 31 60 0f  20 20 20 20 64 6f 6e 65  |   ..1`.    done|
00007400  25 3d 31 0d 31 6a 0d 20  20 c9 20 26 35 30 34 3a  |%=1.1j.  . &504:|
00007410  0d 31 74 20 20 20 20 20  e7 20 28 73 65 61 72 63  |.1t     . (searc|
00007420  68 5f 6f 75 74 70 75 74  25 20 80 20 32 29 20 8c  |h_output% . 2) .|
00007430  0d 31 7e 31 20 20 20 20  20 20 73 65 61 72 63 68  |.1~1      search|
00007440  5f 6f 75 74 70 75 74 25  20 3d 20 73 65 61 72 63  |_output% = searc|
00007450  68 5f 6f 75 74 70 75 74  25 20 80 20 28 ac 20 32  |h_output% . (. 2|
00007460  29 0d 31 88 09 20 20 20  20 cc 0d 31 92 2d 20 20  |).1..    ..1.-  |
00007470  20 20 20 20 73 65 61 72  63 68 5f 6f 75 74 70 75  |    search_outpu|
00007480  74 25 20 3d 20 73 65 61  72 63 68 5f 6f 75 74 70  |t% = search_outp|
00007490  75 74 25 20 84 20 32 0d  31 9c 09 20 20 20 20 cd  |ut% . 2.1..    .|
000074a0  0d 31 a6 0f 20 20 20 20  64 6f 6e 65 25 3d 31 0d  |.1..    done%=1.|
000074b0  31 b0 0d 20 20 c9 20 26  35 30 35 3a 0d 31 ba 4e  |1..  . &505:.1.N|
000074c0  20 20 20 20 e7 20 73 65  61 72 63 68 5f 72 65 63  |    . search_rec|
000074d0  75 72 73 65 5f 64 69 72  73 25 20 73 65 61 72 63  |urse_dirs% searc|
000074e0  68 5f 72 65 63 75 72 73  65 5f 64 69 72 73 25 3d  |h_recurse_dirs%=|
000074f0  30 20 8b 20 73 65 61 72  63 68 5f 72 65 63 75 72  |0 . search_recur|
00007500  73 65 5f 64 69 72 73 25  3d 31 0d 31 c4 0f 20 20  |se_dirs%=1.1..  |
00007510  20 20 64 6f 6e 65 25 3d  31 0d 31 ce 0d 20 20 c9  |  done%=1.1..  .|
00007520  20 26 35 30 36 3a 0d 31  d8 4e 20 20 20 20 e7 20  | &506:.1.N    . |
00007530  73 65 61 72 63 68 5f 72  65 63 75 72 73 65 5f 69  |search_recurse_i|
00007540  6d 67 73 25 20 73 65 61  72 63 68 5f 72 65 63 75  |mgs% search_recu|
00007550  72 73 65 5f 69 6d 67 73  25 3d 30 20 8b 20 73 65  |rse_imgs%=0 . se|
00007560  61 72 63 68 5f 72 65 63  75 72 73 65 5f 69 6d 67  |arch_recurse_img|
00007570  73 25 3d 31 0d 31 e2 0f  20 20 20 20 64 6f 6e 65  |s%=1.1..    done|
00007580  25 3d 31 0d 31 ec 05 cb  0d 31 f6 12 e7 20 64 6f  |%=1.1....1... do|
00007590  6e 65 25 3d 30 20 8c 20  3d 30 0d 32 00 19 f2 6f  |ne%=0 . =0.2...o|
000075a0  70 74 69 6f 6e 73 5f 6d  65 6e 75 5f 6f 70 65 6e  |ptions_menu_open|
000075b0  69 6e 67 0d 32 0a 06 3d  31 0d 32 14 05 3a 0d 32  |ing.2..=1.2..:.2|
000075c0  1e 1b dd 20 f2 6f 70 74  69 6f 6e 73 5f 6d 65 6e  |... .options_men|
000075d0  75 5f 6f 70 65 6e 69 6e  67 0d 32 28 23 ea 20 85  |u_opening.2(#. .|
000075e0  3a ee 20 85 20 ea 20 f2  72 65 70 6f 72 74 5f 62  |:. . . .report_b|
000075f0  61 73 69 63 5f 65 72 72  6f 72 3a e1 0d 32 32 25  |asic_error:..22%|
00007600  f4 20 53 65 74 20 74 69  63 6b 73 20 6f 6e 20 6d  |. Set ticks on m|
00007610  65 6e 75 20 61 70 70 72  6f 70 72 69 61 74 65 6c  |enu appropriatel|
00007620  79 0d 32 3c 4c c8 99 20  22 54 6f 6f 6c 62 6f 78  |y.2<L.. "Toolbox|
00007630  5f 4f 62 6a 65 63 74 4d  69 73 63 4f 70 22 2c 20  |_ObjectMiscOp", |
00007640  30 2c 20 6f 62 6a 5f 69  64 73 25 21 31 36 2c 20  |0, obj_ids%!16, |
00007650  30 2c 20 26 31 2c 20 73  65 61 72 63 68 5f 63 61  |0, &1, search_ca|
00007660  73 65 5f 73 65 6e 73 69  74 69 76 65 25 0d 32 46  |se_sensitive%.2F|
00007670  45 c8 99 20 22 54 6f 6f  6c 62 6f 78 5f 4f 62 6a  |E.. "Toolbox_Obj|
00007680  65 63 74 4d 69 73 63 4f  70 22 2c 20 30 2c 20 6f  |ectMiscOp", 0, o|
00007690  62 6a 5f 69 64 73 25 21  31 36 2c 20 30 2c 20 26  |bj_ids%!16, 0, &|
000076a0  32 2c 20 73 65 61 72 63  68 5f 76 65 72 62 6f 73  |2, search_verbos|
000076b0  65 25 0d 32 50 48 c8 99  20 22 54 6f 6f 6c 62 6f  |e%.2PH.. "Toolbo|
000076c0  78 5f 4f 62 6a 65 63 74  4d 69 73 63 4f 70 22 2c  |x_ObjectMiscOp",|
000076d0  20 30 2c 20 6f 62 6a 5f  69 64 73 25 21 31 36 2c  | 0, obj_ids%!16,|
000076e0  20 30 2c 20 26 33 2c 20  73 65 61 72 63 68 5f 6f  | 0, &3, search_o|
000076f0  75 74 70 75 74 25 20 80  20 31 0d 32 5a 48 c8 99  |utput% . 1.2ZH..|
00007700  20 22 54 6f 6f 6c 62 6f  78 5f 4f 62 6a 65 63 74  | "Toolbox_Object|
00007710  4d 69 73 63 4f 70 22 2c  20 30 2c 20 6f 62 6a 5f  |MiscOp", 0, obj_|
00007720  69 64 73 25 21 31 36 2c  20 30 2c 20 26 34 2c 20  |ids%!16, 0, &4, |
00007730  73 65 61 72 63 68 5f 6f  75 74 70 75 74 25 20 80  |search_output% .|
00007740  20 32 0d 32 64 4a c8 99  20 22 54 6f 6f 6c 62 6f  | 2.2dJ.. "Toolbo|
00007750  78 5f 4f 62 6a 65 63 74  4d 69 73 63 4f 70 22 2c  |x_ObjectMiscOp",|
00007760  20 30 2c 20 6f 62 6a 5f  69 64 73 25 21 31 36 2c  | 0, obj_ids%!16,|
00007770  20 30 2c 20 26 35 2c 20  73 65 61 72 63 68 5f 72  | 0, &5, search_r|
00007780  65 63 75 72 73 65 5f 64  69 72 73 25 0d 32 6e 4a  |ecurse_dirs%.2nJ|
00007790  c8 99 20 22 54 6f 6f 6c  62 6f 78 5f 4f 62 6a 65  |.. "Toolbox_Obje|
000077a0  63 74 4d 69 73 63 4f 70  22 2c 20 30 2c 20 6f 62  |ctMiscOp", 0, ob|
000077b0  6a 5f 69 64 73 25 21 31  36 2c 20 30 2c 20 26 36  |j_ids%!16, 0, &6|
000077c0  2c 20 73 65 61 72 63 68  5f 72 65 63 75 72 73 65  |, search_recurse|
000077d0  5f 69 6d 67 73 25 0d 32  78 05 e1 0d 32 82 05 3a  |_imgs%.2x...2..:|
000077e0  0d 32 aa 28 dd 20 f2 77  69 6d 70 5f 6d 65 73 73  |.2.(. .wimp_mess|
000077f0  61 67 65 5f 64 61 74 61  5f 6c 6f 61 64 5f 64 69  |age_data_load_di|
00007800  73 70 61 74 63 68 65 72  0d 32 b4 1f ea 20 73 65  |spatcher.2... se|
00007810  6c 66 5f 69 64 25 2c 20  63 6d 70 74 5f 69 64 25  |lf_id%, cmpt_id%|
00007820  2c 20 66 69 6c 65 24 0d  32 be 37 ea 20 6f 62 6a  |, file$.2.7. obj|
00007830  5f 74 79 70 65 25 2c 20  6c 6f 61 64 5f 61 64 64  |_type%, load_add|
00007840  72 25 2c 20 65 78 65 63  5f 61 64 64 72 25 2c 20  |r%, exec_addr%, |
00007850  73 69 7a 65 25 2c 20 61  63 63 65 73 73 25 0d 32  |size%, access%.2|
00007860  d2 49 c8 99 20 22 58 57  69 6e 64 6f 77 5f 57 69  |.I.. "XWindow_Wi|
00007870  6d 70 54 6f 54 6f 6f 6c  62 6f 78 22 2c 30 2c 70  |mpToToolbox",0,p|
00007880  62 25 21 32 30 2c 70 62  25 21 32 34 20 b8 20 73  |b%!20,pb%!24 . s|
00007890  65 6c 66 5f 69 64 25 2c  63 6d 70 74 5f 69 64 25  |elf_id%,cmpt_id%|
000078a0  3b 66 6c 61 67 73 25 0d  32 dc 22 e7 20 a4 73 79  |;flags%.2.". .sy|
000078b0  73 5f 77 61 72 6e 28 73  65 6c 66 5f 69 64 25 2c  |s_warn(self_id%,|
000078c0  66 6c 61 67 73 25 29 20  e1 0d 32 e6 12 e7 20 73  |flags%) ..2... s|
000078d0  65 6c 66 5f 69 64 25 3d  30 20 e1 0d 32 fa 23 ea  |elf_id%=0 ..2.#.|
000078e0  20 85 3a ee 20 85 20 ea  3a f2 72 65 70 6f 72 74  | .:. . .:.report|
000078f0  5f 62 61 73 69 63 5f 65  72 72 6f 72 3a e1 0d 33  |_basic_error:..3|
00007900  04 50 c8 99 20 22 4f 53  5f 46 69 6c 65 22 2c 31  |.P.. "OS_File",1|
00007910  37 2c 20 70 62 25 2b 34  34 20 b8 20 6f 62 6a 5f  |7, pb%+44 . obj_|
00007920  74 79 70 65 25 2c 2c 20  6c 6f 61 64 5f 61 64 64  |type%,, load_add|
00007930  72 25 2c 20 65 78 65 63  5f 61 64 64 72 25 2c 20  |r%, exec_addr%, |
00007940  73 69 7a 65 25 2c 20 61  63 63 65 73 73 25 0d 33  |size%, access%.3|
00007950  0e 29 66 69 6c 65 24 20  3d 20 bd 33 34 2b a4 63  |.)file$ = .34+.c|
00007960  73 74 72 74 6f 62 61 73  73 74 72 28 70 62 25 2b  |strtobasstr(pb%+|
00007970  34 34 29 2b bd 33 34 0d  33 18 45 e7 20 6f 62 6a  |44)+.34.3.E. obj|
00007980  5f 74 79 70 65 25 3d 30  20 f2 72 65 70 6f 72 74  |_type%=0 .report|
00007990  5f 65 72 72 6f 72 28 31  2c 22 46 69 6c 65 20 22  |_error(1,"File "|
000079a0  2b 66 69 6c 65 24 2b 22  20 64 6f 65 73 20 6e 6f  |+file$+" does no|
000079b0  74 20 65 78 69 73 74 21  22 29 3a e1 0d 33 2c 67  |t exist!"):..3,g|
000079c0  e7 20 a4 6d 61 74 63 68  5f 6d 65 73 73 61 67 65  |. .match_message|
000079d0  5f 64 61 74 61 5f 6c 6f  61 64 28 73 65 6c 66 5f  |_data_load(self_|
000079e0  69 64 25 2c 20 63 6d 70  74 5f 69 64 25 2c 20 6f  |id%, cmpt_id%, o|
000079f0  62 6a 5f 74 79 70 65 25  2c 20 6c 6f 61 64 5f 61  |bj_type%, load_a|
00007a00  64 64 72 25 2c 20 65 78  65 63 5f 61 64 64 72 25  |ddr%, exec_addr%|
00007a10  2c 20 73 69 7a 65 25 2c  20 61 63 63 65 73 73 25  |, size%, access%|
00007a20  29 20 e1 0d 33 36 34 e7  20 a4 61 63 63 65 73 73  |) ..364. .access|
00007a30  5f 6d 65 73 73 61 67 65  5f 64 61 74 61 5f 6c 6f  |_message_data_lo|
00007a40  61 64 28 73 65 6c 66 5f  69 64 25 2c 20 61 63 63  |ad(self_id%, acc|
00007a50  65 73 73 25 29 20 e1 0d  33 40 44 e7 20 a4 66 69  |ess%) ..3@D. .fi|
00007a60  6c 65 74 79 70 65 5f 6d  65 73 73 61 67 65 5f 64  |letype_message_d|
00007a70  61 74 61 5f 6c 6f 61 64  28 73 65 6c 66 5f 69 64  |ata_load(self_id|
00007a80  25 2c 20 6f 62 6a 5f 74  79 70 65 25 2c 20 6c 6f  |%, obj_type%, lo|
00007a90  61 64 5f 61 64 64 72 25  29 20 e1 0d 33 4a 46 e7  |ad_addr%) ..3JF.|
00007aa0  20 a4 64 61 74 65 73 74  61 6d 70 5f 6d 65 73 73  | .datestamp_mess|
00007ab0  61 67 65 5f 64 61 74 61  5f 6c 6f 61 64 28 73 65  |age_data_load(se|
00007ac0  6c 66 5f 69 64 25 2c 20  6c 6f 61 64 5f 61 64 64  |lf_id%, load_add|
00007ad0  72 25 2c 20 65 78 65 63  5f 61 64 64 72 25 29 20  |r%, exec_addr%) |
00007ae0  e1 0d 33 54 4c e7 20 a4  69 6e 74 72 61 6e 67 65  |..3TL. .intrange|
00007af0  5f 6d 65 73 73 61 67 65  5f 64 61 74 61 5f 6c 6f  |_message_data_lo|
00007b00  61 64 28 73 65 6c 66 5f  69 64 25 2c 20 6c 6f 61  |ad(self_id%, loa|
00007b10  64 5f 61 64 64 72 25 2c  20 65 78 65 63 5f 61 64  |d_addr%, exec_ad|
00007b20  64 72 25 2c 20 73 69 7a  65 25 29 20 e1 0d 33 5e  |dr%, size%) ..3^|
00007b30  05 e1 0d 33 68 05 3a 0d  33 72 26 dd 20 f2 73 70  |...3h.:.3r&. .sp|
00007b40  6c 69 74 5f 66 69 6c 65  6e 61 6d 65 28 70 6e 24  |lit_filename(pn$|
00007b50  2c 20 f8 20 70 24 2c 20  f8 20 6e 24 29 0d 33 7c  |, . p$, . n$).3||
00007b60  1e ea 20 63 6f 6c 6f 6e  25 2c 20 62 72 65 61 6b  |.. colon%, break|
00007b70  25 2c 20 6c 65 6e 25 2c  20 69 25 0d 33 90 0f 6c  |%, len%, i%.3..l|
00007b80  65 6e 25 3d a9 70 6e 24  2d 31 0d 33 9a 1b e7 20  |en%=.pn$-1.3... |
00007b90  6c 65 6e 25 3c 31 20 70  24 3d 22 22 3a 6e 24 3d  |len%<1 p$="":n$=|
00007ba0  70 6e 24 3a e1 0d 33 a4  1b e7 20 70 6e 24 3d 22  |pn$:..3... pn$="|
00007bb0  2e 22 20 70 24 3d 22 22  3a 6e 24 3d 22 22 3a e1  |." p$="":n$="":.|
00007bc0  0d 33 ae 04 0d 33 c2 0e  24 65 62 25 20 3d 20 70  |.3...3..$eb% = p|
00007bd0  6e 24 0d 33 cc 0e 62 72  65 61 6b 25 20 3d 20 a3  |n$.3..break% = .|
00007be0  0d 33 d6 0e 63 6f 6c 6f  6e 25 20 3d 20 a3 0d 33  |.3..colon% = ..3|
00007bf0  e0 0b 69 25 3d 6c 65 6e  25 0d 33 ea 04 0d 33 fe  |..i%=len%.3...3.|
00007c00  05 f5 0d 34 08 1e 20 20  e7 20 65 62 25 3f 69 25  |...4..  . eb%?i%|
00007c10  3d 97 22 2e 22 20 8c 20  62 72 65 61 6b 25 3d b9  |=."." . break%=.|
00007c20  0d 34 12 27 20 20 e7 20  65 62 25 3f 69 25 3d 97  |.4.'  . eb%?i%=.|
00007c30  22 3a 22 20 8c 20 62 72  65 61 6b 25 3d b9 3a 63  |":" . break%=.:c|
00007c40  6f 6c 6f 6e 25 3d b9 0d  34 1c 14 20 20 e7 20 28  |olon%=..4..  . (|
00007c50  62 72 65 61 6b 25 3d a3  29 20 8c 0d 34 26 0d 20  |break%=.) ..4&. |
00007c60  20 20 20 69 25 2d 3d 31  0d 34 30 17 20 20 20 20  |   i%-=1.40.    |
00007c70  e7 20 69 25 3c 30 20 62  72 65 61 6b 25 3d b9 0d  |. i%<0 break%=..|
00007c80  34 3a 07 20 20 cd 0d 34  44 0c fd 20 62 72 65 61  |4:.  ..4D.. brea|
00007c90  6b 25 0d 34 4e 19 e7 20  69 25 3c 30 20 70 24 3d  |k%.4N.. i%<0 p$=|
00007ca0  22 22 3a 6e 24 3d 70 6e  24 3a e1 0d 34 58 04 0d  |"":n$=pn$:..4X..|
00007cb0  34 62 0e e7 20 63 6f 6c  6f 6e 25 20 8c 0d 34 6c  |4b.. colon% ..4l|
00007cc0  10 20 20 e7 20 28 69 25  3d 30 29 20 8c 0d 34 76  |.  . (i%=0) ..4v|
00007cd0  19 20 20 20 20 70 24 3d  22 22 3a 6e 24 3d 24 28  |.    p$="":n$=$(|
00007ce0  65 62 25 2b 31 29 0d 34  80 07 20 20 cc 0d 34 8a  |eb%+1).4..  ..4.|
00007cf0  1d 20 20 20 20 e7 20 28  65 62 25 3f 28 69 25 2d  |.    . (eb%?(i%-|
00007d00  31 29 3d 97 22 3a 22 29  20 8c 0d 34 94 13 20 20  |1)=.":") ..4..  |
00007d10  20 20 20 20 65 62 25 3f  69 25 3d 31 33 0d 34 9e  |    eb%?i%=13.4.|
00007d20  20 20 20 20 20 20 20 70  24 3d 24 65 62 25 3a 6e  |       p$=$eb%:n|
00007d30  24 3d 24 28 65 62 25 2b  69 25 2b 31 29 0d 34 a8  |$=$(eb%+i%+1).4.|
00007d40  18 20 20 20 20 20 20 e7  20 28 69 25 3d 31 29 20  |.      . (i%=1) |
00007d50  70 24 3d 22 22 0d 34 b2  09 20 20 20 20 cc 0d 34  |p$="".4..    ..4|
00007d60  bc 18 20 20 20 20 20 20  6e 24 3d 24 28 65 62 25  |..      n$=$(eb%|
00007d70  2b 69 25 2b 31 29 0d 34  c6 17 20 20 20 20 20 20  |+i%+1).4..      |
00007d80  65 62 25 3f 28 69 25 2b  31 29 3d 31 33 0d 34 d0  |eb%?(i%+1)=13.4.|
00007d90  11 20 20 20 20 20 20 70  24 3d 24 65 62 25 0d 34  |.      p$=$eb%.4|
00007da0  da 09 20 20 20 20 cd 0d  34 e4 07 20 20 cd 0d 34  |..    ..4..  ..4|
00007db0  ee 05 cc 0d 34 f8 0f 20  20 65 62 25 3f 69 25 3d  |....4..  eb%?i%=|
00007dc0  31 33 0d 35 02 1c 20 20  70 24 3d 24 65 62 25 3a  |13.5..  p$=$eb%:|
00007dd0  6e 24 3d 24 28 65 62 25  2b 69 25 2b 31 29 0d 35  |n$=$(eb%+i%+1).5|
00007de0  0c 05 cd 0d 35 16 05 e1  0d 35 20 05 3a 0d 35 2a  |....5....5 .:.5*|
00007df0  1d dd 20 a4 66 69 6c 65  74 79 70 65 5f 74 6f 5f  |.. .filetype_to_|
00007e00  73 74 72 28 74 79 70 65  25 29 0d 35 34 0e ea 20  |str(type%).54.. |
00007e10  72 32 25 2c 20 72 33 25  0d 35 3e 2f c8 99 20 22  |r2%, r3%.5>/.. "|
00007e20  4f 53 5f 46 53 43 6f 6e  74 72 6f 6c 22 2c 20 31  |OS_FSControl", 1|
00007e30  38 2c 2c 20 74 79 70 65  25 20 b8 20 2c 2c 20 72  |8,, type% . ,, r|
00007e40  32 25 2c 20 72 33 25 0d  35 48 1f 65 62 25 21 30  |2%, r3%.5H.eb%!0|
00007e50  3d 72 32 25 3a 65 62 25  21 34 3d 72 33 25 3a 65  |=r2%:eb%!4=r3%:e|
00007e60  62 25 3f 38 3d 30 0d 35  49 14 e3 20 72 32 25 3d  |b%?8=0.5I.. r2%=|
00007e70  37 20 b8 20 30 20 88 20  2d 31 0d 35 4a 29 20 20  |7 . 0 . -1.5J)  |
00007e80  e7 20 65 62 25 3f 72 32  25 20 3d 20 33 32 20 65  |. eb%?r2% = 32 e|
00007e90  62 25 3f 72 32 25 20 3d  20 31 33 3a 8b 20 72 32  |b%?r2% = 13:. r2|
00007ea0  25 3d 30 0d 35 4b 05 ed  0d 35 52 09 3d 24 65 62  |%=0.5K...5R.=$eb|
00007eb0  25 0d ff                                          |%..|
00007eb3