Home » Archimedes archive » Acorn User » AU 1994-02.adf » !Larger_Larger » !Larger/!RunImage

!Larger/!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 1994-02.adf » !Larger_Larger
Filename: !Larger/!RunImage
Read OK:
File size: 66FE bytes
Load address: 0000
Exec address: 0000
File contents
   10REM>!Larger.!RunImage
   20ONERRORMODE0:REPORT:PRINT" at line ";ERL:END
   30DIMA%(255),A$(255):DIMZ$(255),M$(255),F$(3):DIMrunwithbuffer%85,S$(255):leaf%=FNZ(255*12):sprite%=FNZ(255*12):moved%=FNZ(255):menublock%=FNZ(2500):xy0%=FNZ(512):xy1%=FNZ(512):ixy0%=FNZ(256):ixy1%=FNZ(256):spritearea%=FNZ(21000)
   40code%=FNZ(3600+2048):block%=code%+3600:hotkeys%=FNZ(1024):dragonto%=FNZ(256):block2%=FNZ(200):type%=FNZ(256):select%=FNZ(256):indir%=FNZ(4000):backdrop%=FNZ(256):caretblock%=FNZ(28)
   50F$()="<Larger$Dir>.Setup","<Larger$Dir>.Assemble","<Larger$Dir>.IOOverlay","<Larger$Dir>.Overlay3":OVERLAYF$():PROCF_:PROCL_:PROCj_:PROCoy:PROCt_:PROCjy:F$()="<Larger$Dir>.IOOverlay","<Larger$Dir>.Overlay3","","":PROCt:PROCe_:PROCh:ONERRORPROCB_:IFNOTclosedown%THENPROCRy:ELSEPROCk:END
   60PROCRy:END
   70DEFPROCRy:REPEAT:PROCw_:MOUSEx%,y%,b%:UNTILclosedown%:PROCky:PROCk:ENDPROC
   80DEFFNZ(size%):LOCALptr%,flags%:SYS&2001e,6,,,size%TO,,ptr%;flags%:IF(flags%AND1)=1THENERROR0,"Couldn't Claim workspace from RMA"
   90=ptr%
  100DEFPROCF(RETURNptr%):SYS&2001e,7,,ptr%:ptr%=0:ENDPROC
  110DEFPROCk:SYS&41504,messagefd%:*RMKill LargerSupport
  120PROCF(leaf%):PROCF(sprite%):PROCF(moved%):PROCF(backdrop%):PROCF(code%):PROCF(hotkeys%):PROCF(messagefd%):PROCF(dragonto%):PROCF(block2%):PROCF(type%):PROCF(select%):PROCF(indir%):PROCF(spritearea%):PROCF(menublock%):PROCF(xy0%):PROCF(xy1%):PROCF(usermenu%):PROCF(ixy0%):PROCF(ixy1%):PROCF(caretblock%)
  130IFumwrite%<>0THENPROCF(umwrite%)
  140PROCq:SYSwimpclosedown%,task%,&4b534154:ENDPROC
  150DEFPROCz(m$):LOCALw%,h%:SYSwimpspriteop%,40+256,,m$TO,,,w%,h%:block%!0=-2:block%!4=-4:block%!8=-20:block%!12=w%*2+4:block%!16=h%*4-20:block%!20=(3<<12)+2:block%!24=0:block%!28=0:block%!32=0:PROCZ(m$,block%+24):SYSwimpcreateicon%,,block%TOiconbaricon%:ENDPROC
  160DEFPROCw_:LOCAL!reason%,messageno%:CALLpoll%:shift%=INKEY(-1):CASE!reason%OF
  170WHEN0:CASETRUEOF
  180WHEN!fastscrollleft%<>0OR!fastscrolldown%<>0:PROCk_
  190OTHERWISE:PROCpy:loadinprogress%=FALSE:v$="":IFfollowcaret%THENPROCf_
  200ENDCASE
  210WHEN1:PROCb_
  220WHEN2:PROCV_
  230WHEN3:IF!block%=mapwindow%THEN
  240mapwindowopen%=FALSE:SYS&446c3
  250ENDIF:SYSwimpclosewindow%,,block%
  260WHEN6:PROCy_
  270WHEN7:PROCp_
  280WHEN8:PROCgy
  290WHEN9:PROCm_
  300WHEN13:PROCN_
  310WHEN17,18,19:messageno%=block%!16:SYS&406c0:CASEmessageno%OF
  320WHEN0:closedown%=TRUE
  330WHEN1:PROCu_
  340WHEN2:IFfilersave%THENPROCs_
  350WHEN3:IFrunscrapwhensaved%THENPROCT(runscraponto%,"<Wimp$Scrap>")
  360runscrapwhensaved%=FALSE:IFloadinprogress%THEN
  370PROCa_
  380ELSE:PROCP_
  390ENDIF:loadinprogress%=FALSE
  400WHEN4:IFfilersave%THENfilersave%=FALSE
  410WHEN9:PROCv
  420WHEN1282:PROCuy
  430WHEN&400c0:PROChy
  440WHEN&400c1:resizeneeded%=TRUE:PROCt
  450WHEN&400c3:PROCv_
  460WHEN&400ca:IFcurrenticoniser%THENPROCty
  470WHEN&400cb:IFcurrenticoniser%THENPROCyy
  480WHEN&400cc:IFcurrenticoniser%THENPROCM_
  490ENDCASE:SYS&406c1
  500ENDCASE:ENDPROC
  510DEFPROCV_:CASETRUEOF
  520WHENresizeneeded%AND!block%=backg%:PROCt:resizeneeded%=FALSE
  530WHEN!block%=config%:PROCo
  540WHEN!block%=config2%:PROCS_
  550WHEN!block%=mapwindow%:SYS&446c2:SYSwimpopenwindow%,,block%
  560OTHERWISE:SYSwimpopenwindow%,,block%
  570ENDCASE:ENDPROC
  580DEFPROCo:block%!68=block%!28:block%!32=config2%:SYSwimpgws%,,block%+32:block%!44=block%!4+block%!44-block%!36+16:block%!48=block%!8+block%!48-block%!40+16:block%!36=block%!4+16:block%!40=block%!8+16:block%!60=block%!68:SYSwimpopenwindow%,,block%+32
  590block%!28=config2%:SYSwimpopenwindow%,,block%:ENDPROC
  600DEFPROCS_:configpaneheight%=block%!16-block%!8:IFconfigpaneheight%>(!ymax%-88)THEN
  610block%!16-=configpaneheight%-(!ymax%-88):configpaneheight%=!ymax%-88
  620ENDIF:SYSwimpopenwindow%,,block%:block%!40=config%:SYSwimpgws%,,block%+40:IFconfigpaneheight%<>oldconfigpaneheight%ORblock%!28<>config2%THEN
  630oldconfigpaneheight%=configpaneheight%:block%!48=block%!8-16:block%!56=block%!48+configpaneheight%+32:block%!64=-442:block%!68=config2%:SYSwimpopenwindow%,,block%+40
  640ENDIF:ENDPROC
  650DEFFNB(a%,b%):IFa%<b%THEN=b%ELSE=a%
  660=0
  670DEFFNQ(a%,b%):IFa%>b%THEN=b%ELSE=a%
  680=0
  690DEFPROCm_:LOCALD,G,t,m:D=block%!0:G=block%!4:t=block%!8:m=block%!12:SYSwimpgetpointerinfo%,,block%+1024:but%=block%!1032:CASEmenuopen%OF
  700WHEN0:PROCYy(block%,but%)
  710WHEN1:PROCCy(block%,but%)
  720OTHERWISE:CASEDOF
  730WHEN0:PROCYy(block%+4,but%)
  740WHEN1:CASEGOF
  750WHEN1:PROCg_
  760WHEN2:PROCCJ
  770WHEN3:PROCPy(TRUE)
  780WHEN4:PROCAJ
  790WHEN5:PROC__
  800WHEN7:PROCJ_
  810WHEN8:PROCU_
  820WHEN9:PROCMJ
  830WHEN10:PROCPJ
  840WHEN11:PROCD_
  850WHEN12:PROCC_
  860WHEN13:PROCQ_
  870WHEN14:PROCK_
  880WHEN15:PROCey
  890ENDCASE
  900WHEN2:PROCe(1)
  910WHEN3:PROCe(0)
  920WHEN4:CASEGOF
  930WHEN0:fileroptions%=fileroptions%EOR2
  940WHEN1:fileroptions%=fileroptions%EOR1
  950WHEN2:fileroptions%=fileroptions%EOR4
  960WHEN3:fileroptions%=fileroptions%EOR8
  970ENDCASE:PROCBJ
  980WHEN5:IFG<>-1THENPROCZ_
  990WHEN6:PROCZy
 1000ENDCASE
 1010ENDCASE:IF(but%AND1)=1THEN
 1020PROCH(FALSE,menuopen%,FALSE)
 1030ENDIF:ENDPROC
 1040DEFPROCYy(blk%,but%):LOCALD,G:D=blk%!0:G=blk%!4:CASEDOF
 1050WHEN1:CASEGOF
 1060WHEN0:PROCn_
 1070WHEN1:PROCY_
 1080WHEN2:PROCWJ
 1090ENDCASE
 1100WHEN2:CASEGOF
 1110WHEN0:PROCwy
 1120WHEN1:PROCTy
 1130WHEN2:PROCj
 1140ENDCASE
 1150WHEN3:PROCCy(blk%+4,but%)
 1160WHEN4:IFG<>-1THENPROCd_(blk%+4)
 1170WHEN5:PROCJy
 1180WHEN6:PROCVy
 1190WHEN7:closedown%=TRUE
 1200ENDCASE:ENDPROC
 1210DEFPROCCy(blk%,but%):CASE!blk%OF
 1220WHEN0:PROCq_
 1230WHEN1:PROCiy
 1240WHEN2:PROCWy
 1250WHEN3:PROCNy
 1260ENDCASE:ENDPROC
 1270DEFPROCPJ:LOCALl%,on%:on%=-1:FORl%=0TO!noapps%:IFselect%?l%=1ANDon%=-1THENon%=1-dragonto%?l%
 1280NEXT:FORl%=0TO!noapps%:IFselect%?l%=1THENdragonto%?l%=on%
 1290NEXT:ENDPROC
 1300DEFPROCB_:SYSwimpdragbox%,,0:!block%=ERR:error%=TRUE:CASEERROF
 1310OTHERWISE:PROCZ("(Internal Error code "+STR$(ERL)+") "+REPORT$+" (OK to continue, Cancel to quit program)",block%+4)
 1320ENDCASE:SYSwimperr%,block%,3,"Larger"TO,error%:IFerror%=2THENclosedown%=TRUE
 1330ENDPROC
 1340DEFFNA(add%):LOCALU$:U$="":WHILE?add%>31:U$+=CHR$(?add%):add%+=1:ENDWHILE:=U$
 1350DEFFNa(add%):LOCALU$:U$="":WHILE?add%>0:CASETRUEOF
 1360WHEN?add%<32:U$+="|"+CHR$((?add%)+64):add%+=1
 1370WHEN?add%=ASC"""":U$+="|""":add%+=1
 1380WHEN?add%=ASC"|":U$+="||":add%+=1
 1390OTHERWISE:U$+=CHR$(?add%):add%+=1
 1400ENDCASE:ENDWHILE:=U$
 1410DEFPROCIy(RETURNfindx%,RETURNfindy%,RETURNfindnoneflag%):SYS&446cb,F,,findnoneflag%,block%TOfindx%,findy%,findnoneflag%:ENDPROC
 1420DEFPROCx_(RETURNfindx%,RETURNfindy%):SYS&446c7,FTOfindx%,findy%:ENDPROC
 1430DEFPROCvy(RETURNfindx%,RETURNfindy%):SYS&446c8,FTOfindx%,findy%:ENDPROC
 1440DEFPROCG_(RETURNfindx%,RETURNfindy%):SYS&446c9,FTOfindx%,findy%:ENDPROC
 1450DEFPROCcy(RETURNfindx%,RETURNfindy%):SYS&446ca,FTOfindx%,findy%:ENDPROC
 1460DEFPROCU:SYSwimpforceredraw%,backg%,0,0,!xmax%+!xpix%*2,!ymax%:ENDPROC
 1470DEFPROCS(x%,y%):SYSwimpforceredraw%,backg%,x%*!xpix%*80*!xmult%/!xdiv%,y%*32*!ypix%*!ymult%/!ydiv%,(x%+1)*80*!xpix%*!xmult%/!xdiv%+!xpix%,(y%+1)*32*!ypix%*!ymult%/!ydiv%:ENDPROC
 1480DEFPROCDJ(B$):PROCO("WIPE "+B$+" ~C FR ~V"):ENDPROC
 1490DEFPROCD_:LOCALS$,p%,obj%:IF!noapps%>-1THEN
 1500FORobj%=0TO!noapps%:IFselect%?obj%=1THEN
 1510S$=FNF(A$(obj%)):IFS$<>""THEN
 1520PROCO("Filer_OpenDir "+S$)
 1530ENDIF
 1540ENDIF:NEXT
 1550ENDIF:ENDPROC
 1560DEFPROCO(Ay$):LOCALERROR:ONERRORLOCALENDPROC
 1570OSCLI(Ay$):RESTOREERROR:ENDPROC
 1580DEFPROCgy:LOCALcode%,flag%,l%:code%=block%!24:CASETRUEOF
 1590WHEN!block%=config2%OR!block%=config%:CASEblock%!4OF
 1600WHEN59:hidetaskkey%=FNS(hidetaskkey%,code%,59)
 1610WHEN60:setcsdkey%=FNS(setcsdkey%,code%,60)
 1620WHEN61:cyclewindowskey%=FNS(cyclewindowskey%,code%,61)
 1630WHEN62:cycletaskskey%=FNS(cycletaskskey%,code%,62)
 1640WHEN67:bringtofrontkey%=FNS(bringtofrontkey%,code%,67)
 1650WHEN70:hotkeyhotkey%=FNS(hotkeyhotkey%,code%,70)
 1660OTHERWISE:PROCDy(code%)
 1670ENDCASE
 1680WHEN!block%=savewindow%:IFcode%=13THENPROCn(0,0)
 1690OTHERWISE:PROCDy(code%)
 1700ENDCASE:ENDPROC
 1710DEFPROCDy(code%):CASETRUEOF
 1720WHENcode%=setcsdkey%:PROCX_:PROCX
 1730WHENcode%=hidetaskkey%:PROCO_:PROCX
 1740WHENcode%=cyclewindowskey%:PROCWy:PROCX
 1750WHENcode%=cycletaskskey%:PROCNy:PROCX
 1760WHENcode%=bringtofrontkey%:PROCmy:PROCX
 1770WHENcode%=hotkeyhotkey%:PROCT_
 1780OTHERWISE:flag%=FALSE:IF!noapps%>-1THEN
 1790FORl%=0TO!noapps%:IFhotkeys%!(l%*4)-64+13=code%THEN
 1800flag%=TRUE:PROCT(l%,"")
 1810ENDIF:NEXT
 1820ENDIF:PROCX:IFNOTflag%THEN
 1830SYSwimpprocesskey%,code%
 1840ENDIF
 1850ENDCASE:ENDPROC
 1860DEFPROCX:IFgrabbinghotkeys%THEN
 1870SYS&400d2,!caretblock%,caretblock%!4,caretblock%!8,caretblock%!12,caretblock%!16,caretblock%!20:grabbinghotkeys%=FALSE
 1880ENDIF:ENDPROC
 1890DEFFNS(oldcode%,code%,icnum%):LOCALA$,pos%,alt%,ans%:CASETRUEOF
 1900WHENcode%=65535ORcode%=127:code%=127:A$="Not Set"
 1910WHENcode%=27:A$="Escape"
 1920WHENcode%=30:A$="Home"
 1930WHENcode%=8:A$="BackSpace"
 1940WHENcode%>=0ANDcode%<=31ANDcode%<>13:A$="Ctrl-"+CHR$(code%+64)
 1950WHEN(code%>=384ANDcode%<=395)OR(code%>=458ANDcode%<=461):A$=FNI(code%)
 1960WHEN(code%>=400ANDcode%<=415)OR(code%>=474ANDcode%<=477):A$="Shift-"+FNI(code%-16)
 1970WHEN(code%>=416ANDcode%<=431)OR(code%>=490ANDcode%<=493):A$="Ctrl-"+FNI(code%-32)
 1980WHEN(code%>=432ANDcode%<=447)OR(code%>=506ANDcode%<=509):A$="Ctrl-Shift-"+FNI(code%-48)
 1990ENDCASE:pos%=INSTR(A$,"Shift-"+CHR$(139)):IFpos%>0THEN
 2000A$=LEFT$(A$,pos%-1)+"Page Up"
 2010ENDIF:pos%=INSTR(A$,"Shift-"+CHR$(138)):IFpos%>0THEN
 2020A$=LEFT$(A$,pos%-1)+"Page Down"
 2030ENDIF:IFLENA$>14THEN
 2040pos%=INSTR(A$,"Shift"):IFpos%>0THENA$=LEFT$(A$,pos%-1)+"S"+MID$(A$,pos%+5)
 2050ENDIF:IFLENA$>14THEN
 2060pos%=INSTR(A$,"Ctrl"):IFpos%>0THENA$=LEFT$(A$,pos%-1)+"C"+MID$(A$,pos%+4)
 2070ENDIF:IFA$=""ORINSTR(A$,"Bogus")>0THEN
 2080ans%=oldcode%
 2090ELSE:PROCI(icnum%,A$):ans%=code%
 2100ENDIF:=ans%
 2110DEFFNI(code%):LOCALR$:CASEcode%OF
 2120WHEN384:R$="Print"
 2130WHEN385,386,387,388,389,390,391,392,393:R$="F"+CHR$(code%-336)
 2140WHEN394:R$="Tab"
 2150WHEN395:R$="Copy"
 2160WHEN396,397,398,399:R$=CHR$(code%-260)
 2170WHEN458,459,460:R$="F1"+CHR$(code%-410)
 2180WHEN461:R$="Insert"
 2190OTHERWISER$="Bogus"
 2200ENDCASE:=R$
 2210DEFPROCT_:LOCALnext%:IFreturncaretnexttime%THEN
 2220SYSwimpprocesskey%,hotkeyhotkey%:returncaretnexttime%=FALSE
 2230ELSE:IFgrabbinghotkeys%THEN
 2240PROCX:returncaretnexttime%=TRUE:caretblock%!24=hotkeyhotkey%:SYSwimpsm%,8,caretblock%,!caretblock%
 2250ELSE:grabbinghotkeys%=TRUE:SYS&400d3,,caretblock%:SYS&400d2,backg%,-1,-50,50,32,0
 2260ENDIF
 2270ENDIF:ENDPROC
 2280DEFPROCX_:LOCALC$,source%,W$,objecttype%,pos%:LOCALERROR:ONERRORLOCALENDPROC
 2290SYSwimpgetpointerinfo%,,block%:!block%=block%!12:IF!block%<>backg%AND!block%<>-1AND!block%<>-2THEN
 2300SYSwimpgwi%,,block%:IF(block%!60AND3)=1THEN
 2310IF(block%!60AND256)=256THEN
 2320block%!256=20:block%!260=0:block%!264=0:block%!268=0:block%!272=0:SYSwimpsm%,19,block%+256,!block%TO,,source%:SYSwimptransblk%,source%,block%!76,task%,block%,256:C$=FNA(block%)
 2330ELSE:C$=FNA(block%+76)
 2340ENDIF:WHILELEFT$(C$,1)=" ":C$=MID$(C$,2):ENDWHILE:IFINSTR(C$," ")>0THENC$=LEFT$(C$,INSTR(C$," ")-1)
 2350W$=C$:WHILEINSTR(W$,".")>0:W$=MID$(W$,INSTR(W$,".")+1):ENDWHILE:C$=LEFT$(C$,LENC$-LENW$-1):IFC$<>""ANDW$<>""THEN
 2360SYS&20008,13,W$,,,C$+"."TOobjecttype%:pos%=INSTR(C$,"::"):IF(objecttype%AND2)=0THEN
 2370PROCO("Dir "+C$+"."+W$):VDU7:IFpos%>0THENOSCLI(LEFT$(C$,pos%-1))
 2380ELSE:IF(objecttype%AND2)=2THENC$+="."+W$
 2390PROCO("Dir "+C$):VDU7:IFpos%>0THENOSCLI(LEFT$(C$,pos%-1))
 2400ENDIF
 2410ENDIF
 2420ENDIF
 2430ENDIF:RESTOREERROR:ENDPROC
 2440DEFPROCC_:hotkeys%!(remove%*4)=(?hotbuffer%)-13:ENDPROC
 2450DEFPROCWy:LOCALnext%:next%=FNM(backg%):IFnext%<>-1THEN
 2460block%!0=next%:SYSwimpgws%,,block%:IF(block%!32AND32)<>32THEN
 2470block%!28=-1:SYSwimpsm%,2,block%,next%
 2480ENDIF
 2490ENDIF:ENDPROC
 2500DEFPROCUJ:!block%=0:Q$="Really Clear the backdrop? (OK to continue, CANCEL to keep)":PROCZ(Q$,block%+4):?(block%+4+LENQ$)=0:SYSwimperr%,block%,31,"Larger"TO,click%:IFclick%=1THEN
 2510!noapps%=-1:k"LargerSupport_Reorganise",F:PROCSy:PROCU
 2520ENDIF:ENDPROC
 2530DEFFNG(A$,n%):WHILEn%>=0:A$=MID$(A$,INSTR(A$,":")+1):n%-=1:ENDWHILE:=LEFT$(A$,INSTR(A$,":")-1)
 2540DEFPROCuy:LOCALmx%,my%,whandle%,ihandle%,nx%,ny%,found%,H$,myref%,send%,J$:send%=block%!4:myref%=block%!8:SYSwimpgetpointerinfo%,,block%+28:mx%=block%!28:my%=block%!32:whandle%=block%!40:ihandle%=block%!34:mess%=FALSE:J$="":SYS&400f4,0,block%:IF!block%<>-1THEN
 2550CASEmenuopen%OF
 2560WHEN0:PROCzy(block%)
 2570WHEN1:PROCQy(block%)
 2580OTHERWISE:CASE!block%OF
 2590WHEN-1
 2600WHEN0:PROCzy(block%+4)
 2610WHEN1:CASEblock%!4OF
 2620OTHERWISE:H$=FNG("MFile:MCopy:MRename:MAccess:MCount:MHelp:MFileInfo:MFind:MSetType:MStamp:MDragOnto:MOpenParent:MCtrlKey:MPreParams:MPostParams:MRunWith:",block%!4)
 2630ENDCASE
 2640WHEN4:H$=FNG("MOptions:MConfirm:MVerbose:MForce:MNewer:",block%!4)
 2650OTHERWISE:H$=FNG("MLarger:MLarger:MFile:MSelAll:MClearSel:MOptions:MNewBackdrop:MOpenParent:",!block%)
 2660ENDCASE
 2670ENDCASE:IFH$<>""THENJ$=FNW(H$,"","","","")+CHR$(13)+CHR$(0)
 2680ELSE:CASEwhandle%OF
 2690WHENbackg%:nx%=mx%DIV(!xpix%*80*!xmult%/!xdiv%):ny%=(my%-!barheight%)DIV(!ypix%*32*!ymult%/!ydiv%):found%=-1:FORl%=0TO!noapps%:IFxy0%?l%=nx%ANDxy1%?l%=ny%ANDbackdrop%?l%=!ATHENfound%=l%
 2700NEXT:IFfound%=-1THEN
 2710J$=FNW("BareBackdrop","","","","")
 2720ELSE:CASEtype%?found%OF
 2730WHEN1:J$="File: "+FNH(A$(found%))+"|M":J$+=FNW("File","","","","")+"|M"
 2740WHEN2:J$="Pathname: "+FNH(A$(found%))+"|M":J$+=FNW("Directory","","","","")+"|M"
 2750WHEN3:J$="Application: "+FNH(A$(found%))+"|M":J$+=FNW("Application","","","","")+"|M"
 2760WHEN5:J$="Iconised Task: "+FNA(leaf%+12*found%)+"|M":J$+=FNW("IconisedTask","","","","")+"|M"
 2770WHEN6:J$="Iconised Window: "+FNA(leaf%+12*found%)+"|M":J$+=FNW("IconisedWindow","","","","")+"|M"
 2780WHEN7:J$="Backdrop: "+FNA(leaf%+12*found%)+"|M":J$+=FNW("Backdrop","","","","")+"|M"
 2790OTHERWISE:J$="Pathname: "+FNH(A$(found%))+"|M"
 2800ENDCASE:IFhotkeys%!(found%*4)=-13ORhotkeys%!(found%*4)=0THEN
 2810J$+="No Ctrl Key Set|M"
 2820ELSE:J$+="Ctrl Key: "+CHR$(hotkeys%!(found%*4)+13)+"|M"
 2830ENDIF:IFdragonto%?found%=1THEN
 2840J$+="Drag Onto Set|M"
 2850ELSE:J$+="Drag Onto Not Set|M"
 2860ENDIF
 2870ENDIF
 2880ENDCASE
 2890ENDIF:IFH$<>""ORJ$<>""THEN
 2900block%!12=myref%:block%!16=1283:PROCZ(J$,block%+20):!block%=24+(LEN(J$)DIV4)*4:SYSwimpsm%,17,block%,send%
 2910ENDIF:ENDPROC
 2920DEFFNH(t$):LOCALU$:IFLENt$>60THEN
 2930U$=LEFT$(t$,57)+"..."
 2940ELSE:U$=t$
 2950ENDIF:=U$
 2960DEFPROCzy(block%):CASE!block%OF
 2970WHEN1:H$=FNG("MSave:MSaveBack:MSaveSysVar:MSaveSprites:",block%!4)
 2980WHEN2:H$=FNG("MLoad:MLoadBack:MLoadSysVar:MLoadSprites:",block%!4)
 2990WHEN3:PROCQy(block%+4)
 3000OTHERWISE:H$=FNG("MLarger:MInfo:MSave:MLoad:MDesktop:MUser:MMap:MConfig:MQuit",!block%)
 3010ENDCASE:ENDPROC
 3020DEFPROCQy(block%):H$=FNG("MDesktop:MHome:MRetrieve:MCycleWin:MCycleTasks:",!block%):ENDPROC
 3030DEFPROCQ_:Z$(remove%)=FNA(prebuffer%):ENDPROC
 3040DEFPROCK_:M$(remove%)=FNA(postbuffer%):ENDPROC
 3050DEFPROCey:PROCT(remove%,FNA(runwithbuffer%)):ENDPROC
 3060DEFPROCc:IFinstallicon%THEN
 3070IFlargeicon%THEN
 3080PROCz("largeplint")
 3090ELSE:PROCz("smallplint")
 3100ENDIF
 3110ELSE:PROCK
 3120ENDIF:ENDPROC
 3130DEFPROCK:IFiconbaricon%<>-1THEN
 3140block%!0=-2:block%!4=iconbaricon%:SYSwimpdeleteicon%,,block%
 3150ENDIF:ENDPROC
 3160DEFPROCLJ:largeicon%=TRUE:IFinstallicon%THEN
 3170PROCK:PROCz("largeplint")
 3180ENDIF:ENDPROC
 3190DEFPROCNJ:largeicon%=FALSE:IFinstallicon%THEN
 3200PROCK:PROCz("smallplint")
 3210ENDIF:ENDPROC
 3220DEFPROCVy:!block%=config%:SYSwimpgws%,,block%:PROCo:block%!28=-1:SYSwimpopenwindow%,,block%:!block%=config2%:SYSwimpgws%,,block%:block%!28=-1:SYSwimpopenwindow%,,block%:ENDPROC
 3230DEFPROCu:CASEblock%!16OF
 3240WHEN0:!block%=config%:SYSwimpclosewindow%,,block%:!block%=config2%:SYSwimpclosewindow%,,block%
 3250WHEN1:PROCz_
 3260WHEN2:PROCKy
 3270ENDCASE:ENDPROC
 3280DEFPROC_y:CASEblock%!16OF
 3290WHEN2:!organise%=FALSE:PROCA(config2%,2,1):PROCQ
 3300WHEN3:!organise%=FALSE:PROCA(config2%,3,1):PROCQ
 3310WHEN4:!organise%=TRUE:PROCA(config2%,4,1):PROCQ
 3320WHEN7,8,9,10,11:!appsgrav%=(block%!16)-7:PROCQ:PROCA(config2%,block%!16,1):PROCN(12,!appsgrav%)
 3330WHEN15,16,17,18,19:!dirsgrav%=(block%!16)-15:PROCQ:PROCA(config2%,block%!16,1):PROCN(20,!dirsgrav%)
 3340WHEN23:PROCU:!icontext%=NOT!icontext%:PROCA(config2%,block%!16,-!icontext%)
 3350WHEN24:PROCU:!showplinths%=1-!showplinths%:PROCA(config2%,block%!16,!showplinths%)
 3360WHEN25:installicon%=NOTinstallicon%:PROCA(config2%,25,-installicon%):PROCW(config2%,26,1+installicon%):IFNOTinstallicon%THEN
 3370PROCK
 3380ELSE:PROCc
 3390ENDIF
 3400WHEN26:largeicon%=NOTlargeicon%:PROCA(config2%,26,-largeicon%):PROCK:PROCc
 3410WHEN27:!invertsel%=1-!invertsel%:PROCA(config2%,27,!invertsel%):PROCxy
 3420WHEN28:!slabsel%=1-!slabsel%:PROCA(config2%,28,!slabsel%):PROCxy
 3430WHEN31:openfiler%=NOTopenfiler%
 3440WHEN32:setcsd%=NOTsetcsd%
 3450WHEN35:scroll%=NOTscroll%:SYSlargersuppwsh%,-scroll%,-withshift%:PROCA(config2%,35,-scroll%):PROCW(config2%,36,1+scroll%):PROCW(config2%,37,1+scroll%)
 3460WHEN36:IFscroll%THEN
 3470withshift%=TRUE:SYSlargersuppwsh%,-scroll%,-withshift%:PROCA(config2%,36,1):PROCA(config2%,37,0)
 3480ENDIF
 3490WHEN37:IFscroll%THEN
 3500withshift%=FALSE:SYSlargersuppwsh%,-scroll%,-withshift%:PROCA(config2%,36,0):PROCA(config2%,37,1)
 3510ENDIF
 3520WHEN38:followcaret%=NOTfollowcaret%:PROCA(config2%,18,-followcaret%)
 3530WHEN41:selective%=NOTselective%
 3540WHEN42:filetypespr%=NOTfiletypespr%
 3550WHEN45:IF!S=1THEN
 3560!block%=config2%:block%!4=49:SYSwimpgis%,,block%:PROCA(config2%,49,0):PROCZ("",block%!28):PROCq:PROCU:PROCW(config2%,46,1):PROCW(config2%,47,1):PROCW(config2%,48,1)
 3570ENDIF:PROCA(config2%,45,0)
 3580WHEN46,47,48:PROCXy((block%!16)-45)
 3590WHEN65:!P=1:PROCA(config2%,block%!16,1)
 3600WHEN66:!P=0:PROCA(config2%,block%!16,1)
 3610WHEN73:openmapatstartup%=NOTopenmapatstartup%:PROCA(config2%,block%!16,-openmapatstartup%)
 3620WHEN76,77,78,79,80:!backgrav%=(block%!16)-76:PROCQ:PROCA(config2%,block%!16,1):PROCN(81,!backgrav%)
 3630WHEN84,85,86,87,88:!windgrav%=(block%!16)-84:PROCQ:PROCA(config2%,block%!16,1):PROCN(89,!windgrav%)
 3640ENDCASE:ENDPROC
 3650DEFPROCxy:IF!noapps%>0THEN
 3660FORl%=0TO!noapps%:IFselect%?l%=1THEN
 3670PROCS(xy0%?l%,xy1%?l%)
 3680ENDIF:NEXT
 3690ENDIF:ENDPROC
 3700DEFPROCh:LOCALl%:PROCA(config2%,2,1+!organise%):PROCA(config2%,3,0):PROCA(config2%,4,-!organise%):PROCA(config2%,35,-scroll%):PROCW(config2%,36,1+scroll%):PROCA(config2%,36,-(scroll%ANDwithshift%)):PROCW(config2%,36,1+scroll%):PROCA(config2%,37,-(scroll%ANDNOTwithshift%))
 3710PROCA(config2%,25,-installicon%):PROCW(config2%,26,1+installicon%):PROCA(config2%,26,-largeicon%):PROCA(config2%,38,-followcaret%):PROCA(config2%,23,-!icontext%):PROCA(config2%,24,!showplinths%):PROCA(config2%,31,-openfiler%):PROCA(config2%,32,-setcsd%)
 3720PROCA(config2%,41,-selective%):PROCA(config2%,42,-filetypespr%):FORl%=7TO11:PROCA(config2%,l%,0):NEXT:FORl%=15TO19:PROCA(config2%,l%,0):NEXT:FORl%=76TO80:PROCA(config2%,l%,0):NEXT:FORl%=84TO88:PROCA(config2%,l%,0):NEXT:PROCA(config2%,7+!appsgrav%,1):PROCN(12,!appsgrav%)
 3730PROCA(config2%,15+!dirsgrav%,1):PROCN(20,!dirsgrav%):PROCA(config2%,76+!backgrav%,1):PROCN(81,!backgrav%):PROCA(config2%,84+!windgrav%,1):PROCN(89,!windgrav%):PROCA(config2%,27,!invertsel%):PROCA(config2%,28,!slabsel%):PROCA(config2%,45,!S):PROCW(config2%,46,1-!S)
 3740PROCW(config2%,47,1-!S):PROCW(config2%,48,1-!S):PROCW(config2%,49,1-!S):PROCA(config2%,46,-(!W=0)):PROCA(config2%,47,-(!W=1)):PROCA(config2%,48,-(!W=2)):PROCA(config2%,65,!P):PROCA(config2%,66,1-!P):PROCA(config2%,73,-openmapatstartup%)
 3750hidetaskkey%=FNS(hidetaskkey%,hidetaskkey%,59):setcsdkey%=FNS(setcsdkey%,setcsdkey%,60):cyclewindowskey%=FNS(cyclewindowskey%,cyclewindowskey%,61):cycletaskskey%=FNS(cycletaskskey%,cycletaskskey%,62)
 3760bringtofrontkey%=FNS(bringtofrontkey%,bringtofrontkey%,67):hotkeyhotkey%=FNS(hotkeyhotkey%,hotkeyhotkey%,70):ENDPROC
 3770DEFPROCN(ic%,dir%):CASEdir%OF
 3780WHEN0:PROCI(ic%,"None")
 3790WHEN1:PROCI(ic%,"Left")
 3800WHEN2:PROCI(ic%,"Right")
 3810WHEN3:PROCI(ic%,"Up")
 3820WHEN4:PROCI(ic%,"Down")
 3830ENDCASE:ENDPROC
 3840DEFPROCI(icnum%,`$):block%!4=icnum%:!block%=config2%:SYSwimpgis%,,block%:PROCZ(`$,(block%!28)):block%!12=0:block%!8=0:SYSwimpsis%,,block%:SYS&400d3,,block%:IF!block%=config2%ANDicnum%=block%!4THEN
 3850SYS&400d2,config2%,icnum%,0,0,-1,0
 3860ENDIF:ENDPROC
 3870DEFPROCA(!block%,block%!4,state%):block%!12=1<<21:block%!8=state%<<21:SYSwimpsis%,,block%:ENDPROC
 3880DEFPROCW(!block%,block%!4,state%):block%!12=1<<22:block%!8=state%<<22:SYSwimpsis%,,block%:ENDPROC
 3890DEFFNM(handle%):LOCALflags%:!block%=handle%:SYSwimpgws%+(1<<17),,block%TO;flags%:IF(flags%AND1)=1THEN=-1
 3900IFblock%!28=dummywindow%THEN=FNM(dummywindow%)
 3910=block%!28
 3920DEFPROCay(b%):LOCALgx%,gy%,l%,found%:gx%=block%!0+!xpix%:gy%=block%!4+!ypix%:x%=(gx%-!xpix%)*!xdiv%DIV!xmult%DIV!xpix%DIV80:y%=(gy%-!ypix%-!barheight%)*!ydiv%DIV!ymult%DIV!ypix%DIV32:found%=FALSE:IF!noapps%>-1THEN
 3930FORl%=0TO!noapps%:IFxy0%?l%=x%ANDxy1%?l%=y%ANDbackdrop%?l%=!AANDNOTfound%THEN
 3940select%?l%=0:PROCS(xy0%?l%,xy1%?l%):PROCT(l%,""):found%=TRUE
 3950ENDIF:NEXT:IFNOTfound%THEN
 3960IF(b%AND1)=1THENPROCZy
 3970FORl%=0TO!noapps%:IFselect%?l%=1THEN
 3980select%?l%=0:PROCS(xy0%?l%,xy1%?l%)
 3990ENDIF:NEXT
 4000ENDIF
 4010ENDIF:ENDPROC
 4020DEFPROCT(app%,Y$):LOCALB$,Z$,b%:IFY$<>""ANDZ$(app%)<>""THENY$=Z$(app%)+" "+Y$
 4030IFY$<>""ANDM$(app%)<>""THENY$+=" "+M$(app%)
 4040CASEtype%?app%OF
 4050WHEN5:PROCd(app%):PROCC(app%)
 4060WHEN6:PROCY(app%):PROCC(app%)
 4070WHEN7:PROCr(EVAL(A$(app%)))
 4080OTHERWISE:v$=A$(app%):IFY$<>""THEN
 4090OSCLI("WimpTask Run "+A$(app%)+" "+Y$)
 4100ELSE:IFopenfiler%THENOSCLI("Filer_Run "+A$(app%))
 4110IFsetcsd%THENOSCLI("Dir "+A$(app%))
 4120ENDIF
 4130ENDCASE:ENDPROC
 4140DEFPROCv_:LOCALl%,tasktolose%,n%,ictaskh%:tasktolose%=block%!4:IF!noapps%>-1THEN
 4150FORl%=!noapps%TO0STEP-1:IFl%<=!noapps%THEN
 4160CASEtype%?l%OF
 4170WHEN5:IFEVAL(A$(l%))=tasktolose%THEN
 4180PROCd(l%):PROCC(l%)
 4190ENDIF
 4200WHEN6:pos%=0:pos%=INSTR(A$(l%)," ",pos%)+1:ictaskh%=EVAL(MID$(A$(l%),pos%)):IFictaskh%=tasktolose%THEN
 4210PROCY(l%):PROCC(l%)
 4220ENDIF
 4230ENDCASE
 4240ENDIF:NEXT
 4250ENDIF:ENDPROC
 4260DEFFNP(Z$):LOCALflags%:SYSxwimpspriteop%,40,,Z$TO;flags%:=((flags%AND1)=0)
 4270DEFPROCp(RETURNx%,RETURNy%,flag%,grav%):IF!organise%THEN
 4280CASEgrav%OF
 4290WHEN0:PROCIy(x%,y%,flag%)
 4300WHEN1:PROCx_(x%,y%)
 4310WHEN2:PROCvy(x%,y%)
 4320WHEN3:PROCG_(x%,y%)
 4330WHEN4:PROCcy(x%,y%)
 4340ENDCASE
 4350ELSE:PROCIy(x%,y%,flag%)
 4360ENDIF:ENDPROC
 4370DEFPROCD(ft%,A$,Z$,flag%):LOCALpresent%,objtype%:A$(!noapps%+1)=A$:A%(!noapps%+1)=0:CASETRUEOF
 4380WHENft%=-4:A$(!noapps%+1)=A$:PROCR("backdrop",7,!backgrav%)
 4390WHENft%=-3:A$(!noapps%+1)=MID$(A$,INSTR(A$," ")+1):k$=LEFT$(A$,INSTR(A$," ")-1):PROCR(k$,6,!windgrav%)
 4400WHENft%=-2:IFFNP("ic_"+LEFT$(Z$,FNQ(9,INSTR(Z$," ")-1)))THEN
 4410PROCR("ic_"+LEFT$(Z$,FNQ(9,INSTR(Z$," ")-1)),5,!windgrav%)
 4420ELSE:PROCR("hidden",5,!windapp%)
 4430ENDIF
 4440WHENft%=8192:PROCR(Z$,3,!appsgrav%):SYS8,13,"!Help",,,A$+"."TOpresent%:A%(!noapps%+1)=(present%>0)
 4450WHENft%=4096:PROCGy("directory")
 4460OTHERWISE:SYS8,13,Z$,,,LEFT$(A$,LENA$-LENZ$)TOobjtype%,,ft%:ft%=(ft%AND&fff00)>>8:CASEobjtype%OF
 4470WHEN3:PROCGy("file_"+RIGHT$("000"+STR$~(ft%),3))
 4480WHEN1:PROCR("file_"+RIGHT$("000"+STR$~(ft%),3),1,!appsgrav%)
 4490ENDCASE
 4500ENDCASE:!noapps%+=1:PROCZ(Z$,leaf%+12*!noapps%):xy0%?(!noapps%)=x%:xy1%?(!noapps%)=y%:ixy0%?(!noapps%)=x%:ixy1%?(!noapps%)=y%:type%?!noapps%=filetype%:dragonto%?!noapps%=0:hotkeys%!((!noapps%)*4)=-13:Z$(!noapps%)="":M$(!noapps%)="":select%?(!noapps%)=0
 4510backdrop%?(!noapps%)=!A:PROCS(xy0%?(!noapps%),xy1%?(!noapps%)):ENDPROC
 4520DEFPROCGy(X$):filetype%=2:PROCZ(X$,sprite%+12*(!noapps%+1)):PROCp(x%,y%,flag%,!dirsgrav%):ENDPROC
 4530DEFPROCR(X$,ft%,grav%):filetype%=ft%:PROCZ(X$,sprite%+12*(!noapps%+1)):PROCp(x%,y%,flag%,grav%):ENDPROC
 4540DEFPROCy_:LOCALh%,b%,i%:i%=block%!16:h%=block%!12:b%=block%!8:shift%=INKEY(-1):mousex%=block%!0:mousey%=block%!4:CASEh%OF
 4550WHENfileaccess%:IF(b%AND4)=4ANDi%=0THEN
 4560SYSwimpcreatemenu%,,-1
 4570ENDIF:IF(b%AND2)=0ANDi%=0THENPROCPy(FALSE)
 4580IF(b%AND2)=0ANDi%=6THENPROCA(fileaccess%,6,0)
 4590WHENfileinfo%
 4600WHENbackg%:IFshift%AND(b%AND2)=2THENPROCGJ
 4610IF(b%AND64)=64THENPROCUy(64)
 4620IF(b%AND16)=16THENPROCUy(16)
 4630IFNOTshift%AND(b%AND2)=2THENPROCH(TRUE,7,TRUE)
 4640IF(b%AND4)=4THENPROCay(b%)
 4650IF(b%AND1)=1THENPROCay(b%)
 4660IF(b%AND1024)=1024THENPROCFy(4)
 4670IF(b%AND256)=256THENPROCFy(1)
 4680WHENconfig%:IF(b%AND2)=2THENPROCH(TRUE,0,TRUE)
 4690IF(b%AND1)=1THENPROCu
 4700IF(b%AND4)=4THENPROCu
 4710WHENconfig2%:IF(b%AND2)=2THENPROCH(TRUE,0,TRUE)
 4720IF(b%AND1)=1THENPROC_y
 4730IF(b%AND4)=4THENPROC_y
 4740WHENinfo%
 4750WHENsavewindow%:IF(b%AND4)=4THENPROCn(b%,block%!16)
 4760IF(b%AND1)=1THENPROCn(b%,block%!16)
 4770IF(b%AND16)=16THENPROCLy
 4780IF(b%AND64)=64THENPROCLy
 4790WHENmapwindow%:IF(b%AND4)=4THENPROCHy
 4800IF(b%AND1)=1THENPROCHy
 4810IF(b%AND2)=2THENPROCH(TRUE,1,TRUE)
 4820IF(b%AND16)=16THENPROCOy
 4830IF(b%AND64)=64THENPROCOy
 4840OTHERWISE:IF(b%AND2)=2THENPROCH(TRUE,0,TRUE)
 4850IF(b%AND4)=4THENPROCVy
 4860IF(b%AND1)=1THENPROCJy
 4870ENDCASE:ENDPROC
 4880DEFPROCB(RETURNM$):WHILELEFT$(M$,1)=" ":M$=MID$(M$,2):ENDWHILE:WHILERIGHT$(M$,1)=" ":M$=LEFT$(M$,LENM$-1):ENDWHILE:ENDPROC
 4890DEFPROCZ(A$,ptr%):LOCALl%:IFLENA$>0THEN
 4900FORl%=0TO(LENA$)-1:ptr%?l%=ASC(MID$(A$,l%+1,1)):NEXT
 4910ENDIF:ptr%?(LENA$)=0:ENDPROC
 4920DEFFNF(S$):LOCALp%:p%=0:WHILEINSTR(S$,".",p%+1)>0:p%=INSTR(S$,".",p%+1):ENDWHILE:=LEFT$(S$,p%-1)
 4930DEFPROCC(remove%):LOCALl%:PROCS(xy0%?remove%,xy1%?remove%):IFtype%?remove%=7PROCc_(remove%)
 4940IFremove%<!noapps%THEN
 4950FORl%=remove%TO!noapps%-1:type%?l%=type%?(l%+1):dragonto%?l%=dragonto%?(l%+1):A$(l%)=A$(l%+1):PROCZ(FNA(sprite%+12*(l%+1)),sprite%+12*l%):PROCZ(FNA(leaf%+12*(l%+1)),leaf%+l%*12):xy0%?l%=xy0%?(l%+1):xy1%?l%=xy1%?(l%+1):ixy0%?l%=ixy0%?(l%+1)
 4960ixy1%?l%=ixy1%?(l%+1):A%(l%)=A%(l%+1):hotkeys%!(l%*4)=hotkeys%!(l%*4+4):select%?l%=select%?(l%+1):backdrop%?l%=backdrop%?(l%+1):NEXT
 4970ENDIF:!noapps%-=1:SYS&446c6,F:ENDPROC
 4980DEFPROCv:LOCALsprx%,spry%,mode%,cols%:IF!S=1THEN
 4990SYS46,552,backdropspritearea%,!backdropspritenameptr%TO,,,sprx%,spry%,,mode%:SYS53,mode%,3TO,,cols%:SYS53,-1,3TO,,cols2%:IFcols%=63THEN
 5000SYS&40740,mode%,0,-1,-1,colourtransblock%
 5010ELSE:SYS&400ed,512,backdropspritearea%,!backdropspritenameptr%,,,,backdroptomodescalef%,colourtransblock%
 5020ENDIF:!backdropspritewidth%=(sprx%<<xeig%)*(!backdroptomodescalef%)/(backdroptomodescalef%!8):!backdropspriteheight%=(spry%<<yeig%)*(backdroptomodescalef%!4)/(backdroptomodescalef%!12):!backdropspritecentrex%=((!xmax%)-(!backdropspritewidth%))DIV2
 5030!backdropspritecentrey%=((!ymax%)-134-(!backdropspriteheight%))DIV2+134:!backdropspritescalef%=!xmax%:backdropspritescalef%!4=!ymax%-133:backdropspritescalef%!8=sprx%<<xeig%:backdropspritescalef%!12=spry%<<yeig%
 5040ENDIF:ENDPROC
 5050DEFPROCg(S$):PROCq:path%=LENFNF(S$):more%=0:REPEAT:SYS&2000c,11,LEFT$(S$,path%),block%,1,more%,256,MID$(S$,path%+2)TO,,,read%,more%;flags%:UNTILmore%=-1ORread%=1:IFread%=1THEN
 5060size%=block%!8:block%!8=0:block%!12=0:SYS&2001e,6,,,size%+30TO,,backdropspritearea%;flags%:IF(flags%AND1)=1THEN
 5070backdropspritearea%=0:PROCq
 5080ELSE:!backdropspriteareaptr%=backdropspritearea%:!backdropspritearea%=size%+30:backdropspritearea%!4=0:backdropspritearea%!8=16:backdropspritearea%!12=16:SYS46,266,backdropspritearea%,S$:!block%=config2%:block%!4=49:SYSwimpgis%,,block%:PROCZ(S$,block%!28)
 5090z$=S$:!backdropspritenameptr%=backdropspritearea%+(backdropspritearea%!8):!S=1:PROCh:PROCv:PROCU
 5100ENDIF
 5110ENDIF:ENDPROC
 5120DEFPROCq:IFbackdropspritearea%<>0THENPROCF(backdropspritearea%)
 5130backdropspritearea%=0:!backdropspriteareaptr%=0:z$="":!S=0:ENDPROC
 5140DEFPROCJy:mapwindowopen%=TRUE:!block%=mapwindow%:SYSwimpgws%,,block%:IFblock%!12>!xmax%THEN
 5150block%!4+=!xmax%-block%!12:block%!12=!xmax%
 5160ENDIF:IFblock%!4<0THEN
 5170block%!12-=block%!4:block%!4=0
 5180ENDIF:IFblock%!16>!ymax%-40THEN
 5190block%!8+=!ymax%-40-block%!16:block%!16=!ymax%-40
 5200ENDIF:IFblock%!8<0THEN
 5210block%!16-=block%!8:block%!8=0
 5220ENDIF:block%!28=-1:SYSwimpopenwindow%,,block%:SYS&446c2:ENDPROC
 5230DEFPROCb_:LOCALmore%,next%,orx%,ory%,minx%,miny%,max%,maxy%,M,Z,xoff%,yoff%:!block%=mapwindow%:SYS&400c8,,block%TOmore%:orx%=block%!4:ory%=block%!8:IFmore%<>0THENPROCy(block%!28,block%!32,block%!36,block%!40,FALSE)
 5240VDU29,0;0;26:ENDPROC
 5250DEFPROCm(x0%,y0%,x1%,y1%):LOCALmore%,next%,orx%,ory%,minx%,miny%,max%,maxy%,M,Z,xoff%,yoff%:!block%=mapwindow%:block%!4=x0%:block%!8=y0%:block%!12=x1%:block%!16=y1%:SYS&400c9,,block%TOmore%:orx%=block%!4:ory%=block%!8
 5260IFmore%<>0THENPROCy(block%!28,block%!32,block%!36,block%!40,TRUE)
 5270VDU29,0;0;26:ENDPROC
 5280DEFPROCy(x1%,y1%,x2%,y2%,update%):IFmore%<>0THEN
 5290SYS&400ca,,block%TOmore%:IFmore%<>0THENPROCy(block%!28,block%!32,block%!36,block%!40,update%)
 5300ENDIF:IFmore%=0THENPROCx
 5310VDU29,0;0;24,x1%;y1%;x2%-!xpix%;y2%-!ypix%;29,orx%+xoff%;ory%+yoff%;:IFupdate%THENGCOL0,1:CLG
 5320next%=FNM(backg%):gx1%=FNU((-minx%)*M):gy1%=FNN((-miny%)*Z):gx2%=FNU((!xmax%-minx%)*M-gx1%):gy2%=FNN((!ymax%-miny%)*Z-gy1%):SYS&400e6,15:RECTANGLEFILLgx1%,gy1%,gx2%,gy2%:WHILEnext%<>-1:!block%=next%:SYSwimpgws%,,block%:IF(block%!32AND4098)<>4098THEN
 5330IF(block%!32AND32)=0THEN
 5340gx1%=FNU((block%!4-minx%)*M):gy1%=FNN((block%!8-miny%)*Z):gx2%=FNU((block%!12-minx%)*M-gx1%-!xpix%):gy2%=FNN((block%!16-miny%)*Z-gy1%-!ypix%):SYS&400e6,0:RECTANGLEFILLgx1%,gy1%,gx2%,gy2%:SYS&400e6,7:RECTANGLEgx1%,gy1%,gx2%,gy2%
 5350ENDIF
 5360ENDIF:next%=block%!28:ENDWHILE:ENDPROC
 5370DEFPROCx:minx%=0:miny%=0:maxx%=!xmax%:maxy%=!ymax%:next%=FNM(backg%):WHILEnext%<>-1ANDnext%<>-2:!block%=next%:SYSwimpgws%,,block%:IF(block%!32AND4098)<>4098THEN
 5380IF(block%!32AND32)=0THEN
 5390minx%=FNQ(minx%,block%!4):miny%=FNQ(miny%,block%!8):maxx%=FNB(maxx%,block%!12):maxy%=FNB(maxy%,block%!16)
 5400ENDIF
 5410ENDIF:next%=block%!28:ENDWHILE:minx%-=!xmax%/2:miny%-=!ymax%/2:maxx%+=!xmax%/2:maxy%+=!ymax%/2:M=476/(maxx%-minx%):Z=214/(maxy%-miny%):IFM>ZTHEN
 5420xoff%=(M-Z)*(maxx%-minx%)/2:yoff%=0:M=Z
 5430ELSE:yoff%=(Z-M)*(maxy%-miny%)/2:xoff%=0:Z=M
 5440ENDIF:xoff%-=(xoff%MOD!xpix%):yoff%-=(yoff%MOD!ypix%):ENDPROC
 5450DEFFNU(a%):=(a%-(a%MOD!xpix%))
 5460DEFFNN(a%):=(a%-(a%MOD!ypix%))
 5470DEFPROCqy:LOCALnewer%,force%,verbose%,confirm%:force%=(FND(198)AND16)DIV16:confirm%=(FND(198)AND32)DIV32:verbose%=(FND(198)AND64)DIV64:newer%=(FND(198)AND128)DIV128:fileroptions%=verbose%+(confirm%<<1)+(force%<<2)+(newer%<<3):ENDPROC
 5480DEFPROCBJ:LOCALnewer%,force%,verbose%,confirm%:verbose%=fileroptions%AND1:confirm%=(fileroptions%AND2)DIV2:force%=(fileroptions%AND4)DIV4:newer%=(fileroptions%AND8)DIV8:PROCw(198,force%<<4,16):PROCw(198,confirm%<<5,32):PROCw(198,verbose%<<6,64):PROCw(198,newer%<<7,128):ENDPROC
 5490DEFFND(add%):LOCALbyte%:SYS6,161,add%TO,,byte%:=byte%
 5500DEFPROCw(add%,byte%,mask%):LOCALbyte2%:SYS6,161,add%TO,,byte2%:byte2%=(byte2%ANDNOTmask%)ORbyte%:SYS6,162,add%,byte2%:ENDPROC
 5510DEFPROCr(nb%):LOCALl%:IF!noapps%>-1THEN
 5520FORl%=0TO!noapps%:IF(backdrop%?l%)=nb%OR(backdrop%?l%)=!ATHEN
 5530PROCS(xy0%?l%,xy1%?l%)
 5540ENDIF:NEXT
 5550ENDIF:!A=nb%:PROCe(0):SYS&446c6,F:ENDPROC
 5560DEFPROCc_(m%):LOCALn%,l%:n%=EVAL(A$(m%)):IF!noapps%>-1THEN
 5570FORl%=0TO!noapps%:IFl%<=!noapps%ANDl%<>m%THEN
 5580CASETRUEOF
 5590WHENbackdrop%?l%>n%:backdrop%?l%-=1
 5600WHENbackdrop%?l%=n%:CASEtype%?l%OF
 5610WHEN5:PROCd(l%)
 5620WHEN6:PROCY(l%)
 5630ENDCASE:PROCC(l%):l%-=1
 5640ENDCASE:IFl%>=0THEN
 5650IFtype%?l%=7THEN
 5660IFEVAL(A$(l%))>n%THEN
 5670A$(l%)=STR$(EVAL(A$(l%))-1)
 5680ENDIF
 5690ENDIF
 5700ENDIF
 5710ENDIF:NEXT
 5720ENDIF:nextfreebackdrop%-=1:ENDPROC
 5730DEFFNO(gx%,gy%):LOCALonicon%:onicon%=TRUE:IF(gx%MOD(!xpix%*80*!xmult%/!xdiv%))<(!xpix%*23*!xmult%/!xdiv%)THENonicon%=FALSE
 5740IF(gx%MOD(!xpix%*80*!xmult%/!xdiv%))>(!xpix%*57*!xmult%/!xdiv%)THENonicon%=FALSE
 5750IFNOT!icontext%AND(gy%MOD(!ypix%*32*!ymult%/!ydiv%))<(!ypix%*10*!ymult%/!ydiv%)THENonicon%=FALSE
 5760IFNOT!icontext%AND(gy%MOD(!ypix%*32*!ymult%/!ydiv%))>(!ypix%*26*!ymult%/!ydiv%)THENonicon%=FALSE
 5770=onicon%
 5780DEFPROCQ:LOCALcb%,l%:cb%=!A:FOR!A=0TOnextfreebackdrop%-1:SYS&446c6,F:NEXT:!A=cb%:ENDPROC
 5790DEFPROCN_:LOCALaddr%,val%:SYS&446c5TO,,,addr%:val%=!addr%:IF(val%AND1)=1THEN
 5800PROCr_
 5810ENDIF:IF(val%AND2)=2THEN
 5820PROCo_
 5830ENDIF:ENDPROC
 5840DEFPROCXy(n%):PROCA(config2%,46,0):PROCA(config2%,47,0):PROCA(config2%,48,0):PROCA(config2%,n%+45,1):!W=n%-1:PROCU:ENDPROC
 5850DEFFNW(A$,s$,p$,_$,Zy$):LOCALres%,trm%:SYS&41502,messagefd%,A$+":Token not found",block%+1024,1024,s$,p$,_$,Zy$TO,,res%,trm%:res%?trm%=0:=FNA(res%)
 5860DEFPROCe(n%):LOCALl%:IF!noapps%>-1THEN
 5870FORl%=0TO!noapps%:IFselect%?l%<>n%THEN
 5880IFn%=0ORbackdrop%?l%=!ATHEN
 5890select%?l%=n%:PROCS(xy0%?l%,xy1%?l%)
 5900ENDIF
 5910ENDIF:NEXT
 5920ENDIF:temporaryselect%=FALSE:ENDPROC
 5930DEFFNs:=12345

�>!Larger.!RunImage
��0:�:�" at line ";�:�
��A%(255),A$(255):�Z$(255),M$(255),F$(3):�runwithbuffer%85,S$(255):leaf%=�Z(255*12):sprite%=�Z(255*12):moved%=�Z(255):menublock%=�Z(2500):xy0%=�Z(512):xy1%=�Z(512):ixy0%=�Z(256):ixy1%=�Z(256):spritearea%=�Z(21000)
(�code%=�Z(3600+2048):block%=code%+3600:hotkeys%=�Z(1024):dragonto%=�Z(256):block2%=�Z(200):type%=�Z(256):select%=�Z(256):indir%=�Z(4000):backdrop%=�Z(256):caretblock%=�Z(28)
2�F$()="<Larger$Dir>.Setup","<Larger$Dir>.Assemble","<Larger$Dir>.IOOverlay","<Larger$Dir>.Overlay3":ȣF$():�F_:�L_:�j_:�oy:�t_:�jy:F$()="<Larger$Dir>.IOOverlay","<Larger$Dir>.Overlay3","","":�t:�e_:�h:��B_:�closedown%��Ry:��k:�
<	�Ry:�
F.��Ry:�:�w_:ȗx%,y%,b%:�closedown%:�ky:�k:�
PqݤZ(size%):�ptr%,flags%:ș&2001e,6,,,size%�,,ptr%;flags%:�(flags%�1)=1��0,"Couldn't Claim workspace from RMA"
Z	=ptr%
d(��F(�ptr%):ș&2001e,7,,ptr%:ptr%=0:�
n1��k:ș&41504,messagefd%:*RMKill LargerSupport
x��F(leaf%):�F(sprite%):�F(moved%):�F(backdrop%):�F(code%):�F(hotkeys%):�F(messagefd%):�F(dragonto%):�F(block2%):�F(type%):�F(select%):�F(indir%):�F(spritearea%):�F(menublock%):�F(xy0%):�F(xy1%):�F(usermenu%):�F(ixy0%):�F(ixy1%):�F(caretblock%)
��umwrite%<>0��F(umwrite%)
�)�q:șwimpclosedown%,task%,&4b534154:�
����z(m$):�w%,h%:șwimpspriteop%,40+256,,m$�,,,w%,h%:block%!0=-2:block%!4=-4:block%!8=-20:block%!12=w%*2+4:block%!16=h%*4-20:block%!20=(3<<12)+2:block%!24=0:block%!28=0:block%!32=0:�Z(m$,block%+24):șwimpcreateicon%,,block%�iconbaricon%:�
�=��w_:�!reason%,messageno%:�poll%:shift%=�(-1):Ȏ!reason%�
��0:Ȏ��
�0�!fastscrollleft%<>0�!fastscrolldown%<>0:�k_
�3:�py:loadinprogress%=�:v$="":�followcaret%��f_
��
�
�1:�b_
�
�2:�V_
��3:�!block%=mapwindow%�
�mapwindowopen%=�:ș&446c3
� �:șwimpclosewindow%,,block%

�6:�y_

�7:�p_

�8:�gy
"
�9:�m_
,�13:�N_
69�17,18,19:messageno%=block%!16:ș&406c0:Ȏmessageno%�
@�0:closedown%=�
J
�1:�u_
T�2:�filersave%��s_
^;�3:�runscrapwhensaved%��T(runscraponto%,"<Wimp$Scrap>")
h*runscrapwhensaved%=�:�loadinprogress%�
r�a_
|	�:�P_
��:loadinprogress%=�
��4:�filersave%�filersave%=�
�	�9:�v
�
�1282:�uy
��&400c0:�hy
��&400c1:resizeneeded%=�:�t
��&400c3:�v_
�!�&400ca:�currenticoniser%��ty
�!�&400cb:�currenticoniser%��yy
�!�&400cc:�currenticoniser%��M_
��:ș&406c1
��:�
�
��V_:Ȏ��
4�resizeneeded%�!block%=backg%:�t:resizeneeded%=�
�!block%=config%:�o
�!block%=config2%:�S_
&:�!block%=mapwindow%:ș&446c2:șwimpopenwindow%,,block%
0:șwimpopenwindow%,,block%
:�:�
D���o:block%!68=block%!28:block%!32=config2%:șwimpgws%,,block%+32:block%!44=block%!4+block%!44-block%!36+16:block%!48=block%!8+block%!48-block%!40+16:block%!36=block%!4+16:block%!40=block%!8+16:block%!60=block%!68:șwimpopenwindow%,,block%+32
N2block%!28=config2%:șwimpopenwindow%,,block%:�
XM��S_:configpaneheight%=block%!16-block%!8:�configpaneheight%>(!ymax%-88)�
bHblock%!16-=configpaneheight%-(!ymax%-88):configpaneheight%=!ymax%-88
l��:șwimpopenwindow%,,block%:block%!40=config%:șwimpgws%,,block%+40:�configpaneheight%<>oldconfigpaneheight%�block%!28<>config2%�
v�oldconfigpaneheight%=configpaneheight%:block%!48=block%!8-16:block%!56=block%!48+configpaneheight%+32:block%!64=-442:block%!68=config2%:șwimpopenwindow%,,block%+40
��:�
�ݤB(a%,b%):�a%<b%�=b%�=a%
�=0
�ݤQ(a%,b%):�a%>b%�=b%�=a%
�=0
���m_:�D,G,t,m:D=block%!0:G=block%!4:t=block%!8:m=block%!12:șwimpgetpointerinfo%,,block%+1024:but%=block%!1032:Ȏmenuopen%�
��0:�Yy(block%,but%)
��1:�Cy(block%,but%)
�
:ȎD�
��0:�Yy(block%+4,but%)
��1:ȎG�
�
�1:�g_
�
�2:�CJ

�3:�Py(�)

�4:�AJ

�5:�__
 
�7:�J_
*
�8:�U_
4
�9:�MJ
>�10:�PJ
H�11:�D_
R�12:�C_
\�13:�Q_
f�14:�K_
p�15:�ey
z�
��2:�e(1)
��3:�e(0)
��4:ȎG�
�$�0:fileroptions%=fileroptions%�2
�$�1:fileroptions%=fileroptions%�1
�$�2:fileroptions%=fileroptions%�4
�$�3:fileroptions%=fileroptions%�8
�	�:�BJ
��5:�G<>-1��Z_
�
�6:�Zy
��
��:�(but%�1)=1�
��H(�,menuopen%,�)
�:�
/��Yy(blk%,but%):�D,G:D=blk%!0:G=blk%!4:ȎD�
�1:ȎG�
$
�0:�n_
.
�1:�Y_
8
�2:�WJ
B�
L�2:ȎG�
V
�0:�wy
`
�1:�Ty
j	�2:�j
t�
~�3:�Cy(blk%+4,but%)
��4:�G<>-1��d_(blk%+4)
�
�5:�Jy
�
�6:�Vy
��7:closedown%=�
��:�
���Cy(blk%,but%):Ȏ!blk%�
�
�0:�q_
�
�1:�iy
�
�2:�Wy
�
�3:�Ny
��:�
�N��PJ:�l%,on%:on%=-1:�l%=0�!noapps%:�select%?l%=1�on%=-1�on%=1-dragonto%?l%
3�:�l%=0�!noapps%:�select%?l%=1�dragonto%?l%=on%

�:�
2��B_:șwimpdragbox%,,0:!block%=�:error%=�:Ȏ��
c:�Z("(Internal Error code "+�(�)+") "+�$+" (OK to continue, Cancel to quit program)",block%+4)
(A�:șwimperr%,block%,3,"Larger"�,error%:�error%=2�closedown%=�
2�
<=ݤA(add%):�U$:U$="":ȕ?add%>31:U$+=�(?add%):add%+=1:�:=U$
F&ݤa(add%):�U$:U$="":ȕ?add%>0:Ȏ��
P+�?add%<32:U$+="|"+�((?add%)+64):add%+=1
Z"�?add%=�"""":U$+="|""":add%+=1
d �?add%=�"|":U$+="||":add%+=1
n:U$+=�(?add%):add%+=1
x�:�:=U$
�g��Iy(�findx%,�findy%,�findnoneflag%):ș&446cb,F,,findnoneflag%,block%�findx%,findy%,findnoneflag%:�
�4��x_(�findx%,�findy%):ș&446c7,F�findx%,findy%:�
�4��vy(�findx%,�findy%):ș&446c8,F�findx%,findy%:�
�4��G_(�findx%,�findy%):ș&446c9,F�findx%,findy%:�
�4��cy(�findx%,�findy%):ș&446ca,F�findx%,findy%:�
�>��U:șwimpforceredraw%,backg%,0,0,!xmax%+!xpix%*2,!ymax%:�
����S(x%,y%):șwimpforceredraw%,backg%,x%*!xpix%*80*!xmult%/!xdiv%,y%*32*!ypix%*!ymult%/!ydiv%,(x%+1)*80*!xpix%*!xmult%/!xdiv%+!xpix%,(y%+1)*32*!ypix%*!ymult%/!ydiv%:�
�)��DJ(B$):�O("WIPE "+B$+" ~C FR ~V"):�
�"��D_:�S$,p%,obj%:�!noapps%>-1�
�%�obj%=0�!noapps%:�select%?obj%=1�
�S$=�F(A$(obj%)):�S$<>""�
��O("Filer_OpenDir "+S$)
��
�:�
�:�
��O(Ay$):�:���
"�(Ay$):��:�
,-��gy:�code%,flag%,l%:code%=block%!24:Ȏ��
61�!block%=config2%�!block%=config%:Ȏblock%!4�
@.�59:hidetaskkey%=�S(hidetaskkey%,code%,59)
J*�60:setcsdkey%=�S(setcsdkey%,code%,60)
T6�61:cyclewindowskey%=�S(cyclewindowskey%,code%,61)
^2�62:cycletaskskey%=�S(cycletaskskey%,code%,62)
h6�67:bringtofrontkey%=�S(bringtofrontkey%,code%,67)
r0�70:hotkeyhotkey%=�S(hotkeyhotkey%,code%,70)
|:�Dy(code%)
��
�*�!block%=savewindow%:�code%=13��n(0,0)
�:�Dy(code%)
��:�
���Dy(code%):Ȏ��
��code%=setcsdkey%:�X_:�X
��code%=hidetaskkey%:�O_:�X
�"�code%=cyclewindowskey%:�Wy:�X
� �code%=cycletaskskey%:�Ny:�X
�"�code%=bringtofrontkey%:�my:�X
��code%=hotkeyhotkey%:�T_
�:flag%=�:�!noapps%>-1�
�0�l%=0�!noapps%:�hotkeys%!(l%*4)-64+13=code%�
flag%=�:�T(l%,"")
�:�
�:�X:�flag%�
&șwimpprocesskey%,code%
0�
:�:�
D��X:�grabbinghotkeys%�
Nuș&400d2,!caretblock%,caretblock%!4,caretblock%!8,caretblock%!12,caretblock%!16,caretblock%!20:grabbinghotkeys%=�
X�:�
b6ݤS(oldcode%,code%,icnum%):�A$,pos%,alt%,ans%:Ȏ��
l1�code%=65535�code%=127:code%=127:A$="Not Set"
v�code%=27:A$="Escape"
��code%=30:A$="Home"
��code%=8:A$="BackSpace"
�8�code%>=0�code%<=31�code%<>13:A$="Ctrl-"+�(code%+64)
�A�(code%>=384�code%<=395)�(code%>=458�code%<=461):A$=�I(code%)
�M�(code%>=400�code%<=415)�(code%>=474�code%<=477):A$="Shift-"+�I(code%-16)
�L�(code%>=416�code%<=431)�(code%>=490�code%<=493):A$="Ctrl-"+�I(code%-32)
�R�(code%>=432�code%<=447)�(code%>=506�code%<=509):A$="Ctrl-Shift-"+�I(code%-48)
�(�:pos%=�A$,"Shift-"+�(139)):�pos%>0�
�A$=�A$,pos%-1)+"Page Up"
�(�:pos%=�A$,"Shift-"+�(138)):�pos%>0�
�A$=�A$,pos%-1)+"Page Down"
��:�A$>14�
�<pos%=�A$,"Shift"):�pos%>0�A$=�A$,pos%-1)+"S"+�A$,pos%+5)
�:�A$>14�
;pos%=�A$,"Ctrl"):�pos%>0�A$=�A$,pos%-1)+"C"+�A$,pos%+4)
�:�A$=""��A$,"Bogus")>0�
 ans%=oldcode%
*�:�I(icnum%,A$):ans%=code%
4�:=ans%
>ݤI(code%):�R$:Ȏcode%�
H�384:R$="Print"
R<�385,386,387,388,389,390,391,392,393:R$="F"+�(code%-336)
\�394:R$="Tab"
f�395:R$="Copy"
p$�396,397,398,399:R$=�(code%-260)
z%�458,459,460:R$="F1"+�(code%-410)
��461:R$="Insert"
�R$="Bogus"
�	�:=R$
�&��T_:�next%:�returncaretnexttime%�
�:șwimpprocesskey%,hotkeyhotkey%:returncaretnexttime%=�
��:�grabbinghotkeys%�
�_�X:returncaretnexttime%=�:caretblock%!24=hotkeyhotkey%:șwimpsm%,8,caretblock%,!caretblock%
�M�:grabbinghotkeys%=�:ș&400d3,,caretblock%:ș&400d2,backg%,-1,-50,50,32,0
��
��:�
�0��X_:�C$,source%,W$,objecttype%,pos%:�:���
�]șwimpgetpointerinfo%,,block%:!block%=block%!12:�!block%<>backg%�!block%<>-1�!block%<>-2�
�(șwimpgwi%,,block%:�(block%!60�3)=1�
	�(block%!60�256)=256�
	�block%!256=20:block%!260=0:block%!264=0:block%!268=0:block%!272=0:șwimpsm%,19,block%+256,!block%�,,source%:șwimptransblk%,source%,block%!76,task%,block%,256:C$=�A(block%)
	�:C$=�A(block%+76)
	$=�:ȕ�C$,1)=" ":C$=�C$,2):�:�C$," ")>0�C$=�C$,�C$," ")-1)
	.MW$=C$:ȕ�W$,".")>0:W$=�W$,�W$,".")+1):�:C$=�C$,�C$-�W$-1):�C$<>""�W$<>""�
	8Jș&20008,13,W$,,,C$+"."�objecttype%:pos%=�C$,"::"):�(objecttype%�2)=0�
	B2�O("Dir "+C$+"."+W$):�7:�pos%>0��(�C$,pos%-1))
	L#�:�(objecttype%�2)=2�C$+="."+W$
	V+�O("Dir "+C$):�7:�pos%>0��(�C$,pos%-1))
	`�
	j�
	t�
	~
�:��:�
	�0��C_:hotkeys%!(remove%*4)=(?hotbuffer%)-13:�
	�,��Wy:�next%:next%=�M(backg%):�next%<>-1�
	�:block%!0=next%:șwimpgws%,,block%:�(block%!32�32)<>32�
	�)block%!28=-1:șwimpsm%,2,block%,next%
	��
	��:�
	Ħ��UJ:!block%=0:Q$="Really Clear the backdrop? (OK to continue, CANCEL to keep)":�Z(Q$,block%+4):?(block%+4+�Q$)=0:șwimperr%,block%,31,"Larger"�,click%:�click%=1�
	�4!noapps%=-1:k"LargerSupport_Reorganise",F:�Sy:�U
	��:�
	�BݤG(A$,n%):ȕn%>=0:A$=�A$,�A$,":")+1):n%-=1:�:=�A$,�A$,":")-1)
	���uy:�mx%,my%,whandle%,ihandle%,nx%,ny%,found%,H$,myref%,send%,J$:send%=block%!4:myref%=block%!8:șwimpgetpointerinfo%,,block%+28:mx%=block%!28:my%=block%!32:whandle%=block%!40:ihandle%=block%!34:mess%=�:J$="":ș&400f4,0,block%:�!block%<>-1�
	�Ȏmenuopen%�
�0:�zy(block%)

�1:�Qy(block%)
:Ȏ!block%�
�-1
(�0:�zy(block%+4)
2�1:Ȏblock%!4�
<�:H$=�G("MFile:MCopy:MRename:MAccess:MCount:MHelp:MFileInfo:MFind:MSetType:MStamp:MDragOnto:MOpenParent:MCtrlKey:MPreParams:MPostParams:MRunWith:",block%!4)
F�
PB�4:H$=�G("MOptions:MConfirm:MVerbose:MForce:MNewer:",block%!4)
Za:H$=�G("MLarger:MLarger:MFile:MSelAll:MClearSel:MOptions:MNewBackdrop:MOpenParent:",!block%)
d�
n.�:�H$<>""�J$=�W(H$,"","","","")+�(13)+�(0)
x�:Ȏwhandle%�
���backg%:nx%=mx%�(!xpix%*80*!xmult%/!xdiv%):ny%=(my%-!barheight%)�(!ypix%*32*!ymult%/!ydiv%):found%=-1:�l%=0�!noapps%:�xy0%?l%=nx%�xy1%?l%=ny%�backdrop%?l%=!A�found%=l%
��:�found%=-1�
�%J$=�W("BareBackdrop","","","","")
��:Ȏtype%?found%�
�F�1:J$="File: "+�H(A$(found%))+"|M":J$+=�W("File","","","","")+"|M"
�O�2:J$="Pathname: "+�H(A$(found%))+"|M":J$+=�W("Directory","","","","")+"|M"
�T�3:J$="Application: "+�H(A$(found%))+"|M":J$+=�W("Application","","","","")+"|M"
�\�5:J$="Iconised Task: "+�A(leaf%+12*found%)+"|M":J$+=�W("IconisedTask","","","","")+"|M"
�`�6:J$="Iconised Window: "+�A(leaf%+12*found%)+"|M":J$+=�W("IconisedWindow","","","","")+"|M"
�S�7:J$="Backdrop: "+�A(leaf%+12*found%)+"|M":J$+=�W("Backdrop","","","","")+"|M"
�):J$="Pathname: "+�H(A$(found%))+"|M"
�5�:�hotkeys%!(found%*4)=-13�hotkeys%!(found%*4)=0�
�J$+="No Ctrl Key Set|M"
5�:J$+="Ctrl Key: "+�(hotkeys%!(found%*4)+13)+"|M"
�:�dragonto%?found%=1�
J$+="Drag Onto Set|M"
"�:J$+="Drag Onto Not Set|M"
,�
6�
@�
J�:�H$<>""�J$<>""�
Teblock%!12=myref%:block%!16=1283:�Z(J$,block%+20):!block%=24+(�(J$)�4)*4:șwimpsm%,17,block%,send%
^�:�
hݤH(t$):�U$:�t$>60�
rU$=�t$,57)+"..."
|�:U$=t$
�	�:=U$
���zy(block%):Ȏ!block%�
�B�1:H$=�G("MSave:MSaveBack:MSaveSysVar:MSaveSprites:",block%!4)
�B�2:H$=�G("MLoad:MLoadBack:MLoadSysVar:MLoadSprites:",block%!4)
��3:�Qy(block%+4)
�R:H$=�G("MLarger:MInfo:MSave:MLoad:MDesktop:MUser:MMap:MConfig:MQuit",!block%)
��:�
�S��Qy(block%):H$=�G("MDesktop:MHome:MRetrieve:MCycleWin:MCycleTasks:",!block%):�
�%��Q_:Z$(remove%)=�A(prebuffer%):�
�&��K_:M$(remove%)=�A(postbuffer%):�
�)��ey:�T(remove%,�A(runwithbuffer%)):�
���c:�installicon%�
��largeicon%�
�z("largeplint")
�:�z("smallplint")
�
&�:�K
0�:�
:��K:�iconbaricon%<>-1�
D?block%!0=-2:block%!4=iconbaricon%:șwimpdeleteicon%,,block%
N�:�
X$��LJ:largeicon%=�:�installicon%�
b�K:�z("largeplint")
l�:�
v$��NJ:largeicon%=�:�installicon%�
��K:�z("smallplint")
��:�
����Vy:!block%=config%:șwimpgws%,,block%:�o:block%!28=-1:șwimpopenwindow%,,block%:!block%=config2%:șwimpgws%,,block%:block%!28=-1:șwimpopenwindow%,,block%:�
���u:Ȏblock%!16�
�]�0:!block%=config%:șwimpclosewindow%,,block%:!block%=config2%:șwimpclosewindow%,,block%
�
�1:�z_
�
�2:�Ky
��:�
���_y:Ȏblock%!16�
�'�2:!organise%=�:�A(config2%,2,1):�Q
�'�3:!organise%=�:�A(config2%,3,1):�Q
�'�4:!organise%=�:�A(config2%,4,1):�Q
�W�7,8,9,10,11:!appsgrav%=(block%!16)-7:�Q:�A(config2%,block%!16,1):�N(12,!appsgrav%)

[�15,16,17,18,19:!dirsgrav%=(block%!16)-15:�Q:�A(config2%,block%!16,1):�N(20,!dirsgrav%)

D�23:�U:!icontext%=�!icontext%:�A(config2%,block%!16,-!icontext%)

M�24:�U:!showplinths%=1-!showplinths%:�A(config2%,block%!16,!showplinths%)

 o�25:installicon%=�installicon%:�A(config2%,25,-installicon%):�W(config2%,26,1+installicon%):�installicon%�

*�K

4�:�c

>�

H@�26:largeicon%=�largeicon%:�A(config2%,26,-largeicon%):�K:�c

RA�27:!invertsel%=1-!invertsel%:�A(config2%,27,!invertsel%):�xy

\;�28:!slabsel%=1-!slabsel%:�A(config2%,28,!slabsel%):�xy

f�31:openfiler%=�openfiler%

p�32:setcsd%=�setcsd%

z��35:scroll%=�scroll%:șlargersuppwsh%,-scroll%,-withshift%:�A(config2%,35,-scroll%):�W(config2%,36,1+scroll%):�W(config2%,37,1+scroll%)

��36:�scroll%�

�Zwithshift%=�:șlargersuppwsh%,-scroll%,-withshift%:�A(config2%,36,1):�A(config2%,37,0)

��

��37:�scroll%�

�Zwithshift%=�:șlargersuppwsh%,-scroll%,-withshift%:�A(config2%,36,0):�A(config2%,37,1)

��

�@�38:followcaret%=�followcaret%:�A(config2%,18,-followcaret%)

��41:selective%=�selective%

�"�42:filetypespr%=�filetypespr%

��45:�!S=1�

�!block%=config2%:block%!4=49:șwimpgis%,,block%:�A(config2%,49,0):�Z("",block%!28):�q:�U:�W(config2%,46,1):�W(config2%,47,1):�W(config2%,48,1)

��:�A(config2%,45,0)

�!�46,47,48:�Xy((block%!16)-45)
%�65:!P=1:�A(config2%,block%!16,1)
%�66:!P=0:�A(config2%,block%!16,1)
V�73:openmapatstartup%=�openmapatstartup%:�A(config2%,block%!16,-openmapatstartup%)
$[�76,77,78,79,80:!backgrav%=(block%!16)-76:�Q:�A(config2%,block%!16,1):�N(81,!backgrav%)
.[�84,85,86,87,88:!windgrav%=(block%!16)-84:�Q:�A(config2%,block%!16,1):�N(89,!windgrav%)
8�:�
B��xy:�!noapps%>0�
L!�l%=0�!noapps%:�select%?l%=1�
V�S(xy0%?l%,xy1%?l%)
`�:�
j�:�
t���h:�l%:�A(config2%,2,1+!organise%):�A(config2%,3,0):�A(config2%,4,-!organise%):�A(config2%,35,-scroll%):�W(config2%,36,1+scroll%):�A(config2%,36,-(scroll%�withshift%)):�W(config2%,36,1+scroll%):�A(config2%,37,-(scroll%��withshift%))
~��A(config2%,25,-installicon%):�W(config2%,26,1+installicon%):�A(config2%,26,-largeicon%):�A(config2%,38,-followcaret%):�A(config2%,23,-!icontext%):�A(config2%,24,!showplinths%):�A(config2%,31,-openfiler%):�A(config2%,32,-setcsd%)
���A(config2%,41,-selective%):�A(config2%,42,-filetypespr%):�l%=7�11:�A(config2%,l%,0):�:�l%=15�19:�A(config2%,l%,0):�:�l%=76�80:�A(config2%,l%,0):�:�l%=84�88:�A(config2%,l%,0):�:�A(config2%,7+!appsgrav%,1):�N(12,!appsgrav%)
���A(config2%,15+!dirsgrav%,1):�N(20,!dirsgrav%):�A(config2%,76+!backgrav%,1):�N(81,!backgrav%):�A(config2%,84+!windgrav%,1):�N(89,!windgrav%):�A(config2%,27,!invertsel%):�A(config2%,28,!slabsel%):�A(config2%,45,!S):�W(config2%,46,1-!S)
���W(config2%,47,1-!S):�W(config2%,48,1-!S):�W(config2%,49,1-!S):�A(config2%,46,-(!W=0)):�A(config2%,47,-(!W=1)):�A(config2%,48,-(!W=2)):�A(config2%,65,!P):�A(config2%,66,1-!P):�A(config2%,73,-openmapatstartup%)
��hidetaskkey%=�S(hidetaskkey%,hidetaskkey%,59):setcsdkey%=�S(setcsdkey%,setcsdkey%,60):cyclewindowskey%=�S(cyclewindowskey%,cyclewindowskey%,61):cycletaskskey%=�S(cycletaskskey%,cycletaskskey%,62)
�pbringtofrontkey%=�S(bringtofrontkey%,bringtofrontkey%,67):hotkeyhotkey%=�S(hotkeyhotkey%,hotkeyhotkey%,70):�
���N(ic%,dir%):Ȏdir%�
��0:�I(ic%,"None")
��1:�I(ic%,"Left")
��2:�I(ic%,"Right")
��3:�I(ic%,"Up")
��4:�I(ic%,"Down")
��:�
���I(icnum%,`$):block%!4=icnum%:!block%=config2%:șwimpgis%,,block%:�Z(`$,(block%!28)):block%!12=0:block%!8=0:șwimpsis%,,block%:ș&400d3,,block%:�!block%=config2%�icnum%=block%!4�

%ș&400d2,config2%,icnum%,0,0,-1,0
�:�
Y��A(!block%,block%!4,state%):block%!12=1<<21:block%!8=state%<<21:șwimpsis%,,block%:�
(Y��W(!block%,block%!4,state%):block%!12=1<<22:block%!8=state%<<22:șwimpsis%,,block%:�
2]ݤM(handle%):�flags%:!block%=handle%:șwimpgws%+(1<<17),,block%�;flags%:�(flags%�1)=1�=-1
<-�block%!28=dummywindow%�=�M(dummywindow%)
F=block%!28
P���ay(b%):�gx%,gy%,l%,found%:gx%=block%!0+!xpix%:gy%=block%!4+!ypix%:x%=(gx%-!xpix%)*!xdiv%�!xmult%�!xpix%�80:y%=(gy%-!ypix%-!barheight%)*!ydiv%�!ymult%�!ypix%�32:found%=�:�!noapps%>-1�
ZB�l%=0�!noapps%:�xy0%?l%=x%�xy1%?l%=y%�backdrop%?l%=!A��found%�
d7select%?l%=0:�S(xy0%?l%,xy1%?l%):�T(l%,""):found%=�
n�:�:�found%�
x�(b%�1)=1��Zy
�!�l%=0�!noapps%:�select%?l%=1�
�$select%?l%=0:�S(xy0%?l%,xy1%?l%)
��:�
��
��:�
�B��T(app%,Y$):�B$,Z$,b%:�Y$<>""�Z$(app%)<>""�Y$=Z$(app%)+" "+Y$
�)�Y$<>""�M$(app%)<>""�Y$+=" "+M$(app%)
�Ȏtype%?app%�
��5:�d(app%):�C(app%)
��6:�Y(app%):�C(app%)
��7:�r(�(A$(app%)))
�:v$=A$(app%):�Y$<>""�
�&�("WimpTask Run "+A$(app%)+" "+Y$)
*�:�openfiler%��("Filer_Run "+A$(app%))
�setcsd%��("Dir "+A$(app%))
�
"�:�
,G��v_:�l%,tasktolose%,n%,ictaskh%:tasktolose%=block%!4:�!noapps%>-1�
6$�l%=!noapps%�0�-1:�l%<=!noapps%�
@Ȏtype%?l%�
J�5:�(A$(l%))=tasktolose%�
T�d(l%):�C(l%)
^�
hW�6:pos%=0:pos%=�A$(l%)," ",pos%)+1:ictaskh%=�(�A$(l%),pos%)):�ictaskh%=tasktolose%�
r�Y(l%):�C(l%)
|�
��
��:�
��:�
�CݤP(Z$):�flags%:șxwimpspriteop%,40,,Z$�;flags%:=((flags%�1)=0)
�)��p(�x%,�y%,flag%,grav%):�!organise%�
�Ȏgrav%�
��0:�Iy(x%,y%,flag%)
��1:�x_(x%,y%)
��2:�vy(x%,y%)
��3:�G_(x%,y%)
��4:�cy(x%,y%)
��
��:�Iy(x%,y%,flag%)
�:�
S��D(ft%,A$,Z$,flag%):�present%,objtype%:A$(!noapps%+1)=A$:A%(!noapps%+1)=0:Ȏ��
9�ft%=-4:A$(!noapps%+1)=A$:�R("backdrop",7,!backgrav%)
&Q�ft%=-3:A$(!noapps%+1)=�A$,�A$," ")+1):k$=�A$,�A$," ")-1):�R(k$,6,!windgrav%)
0-�ft%=-2:�P("ic_"+�Z$,�Q(9,�Z$," ")-1)))�
:0�R("ic_"+�Z$,�Q(9,�Z$," ")-1)),5,!windgrav%)
D�:�R("hidden",5,!windapp%)
N�
X^�ft%=8192:�R(Z$,3,!appsgrav%):ș8,13,"!Help",,,A$+"."�present%:A%(!noapps%+1)=(present%>0)
b�ft%=4096:�Gy("directory")
lL:ș8,13,Z$,,,�A$,�A$-�Z$)�objtype%,,ft%:ft%=(ft%�&fff00)>>8:Ȏobjtype%�
v%�3:�Gy("file_"+�"000"+�~(ft%),3))
�1�1:�R("file_"+�"000"+�~(ft%),3),1,!appsgrav%)
��
���:!noapps%+=1:�Z(Z$,leaf%+12*!noapps%):xy0%?(!noapps%)=x%:xy1%?(!noapps%)=y%:ixy0%?(!noapps%)=x%:ixy1%?(!noapps%)=y%:type%?!noapps%=filetype%:dragonto%?!noapps%=0:hotkeys%!((!noapps%)*4)=-13:Z$(!noapps%)="":M$(!noapps%)="":select%?(!noapps%)=0
�Abackdrop%?(!noapps%)=!A:�S(xy0%?(!noapps%),xy1%?(!noapps%)):�
�T��Gy(X$):filetype%=2:�Z(X$,sprite%+12*(!noapps%+1)):�p(x%,y%,flag%,!dirsgrav%):�
�Z��R(X$,ft%,grav%):filetype%=ft%:�Z(X$,sprite%+12*(!noapps%+1)):�p(x%,y%,flag%,grav%):�
�m��y_:�h%,b%,i%:i%=block%!16:h%=block%!12:b%=block%!8:shift%=�(-1):mousex%=block%!0:mousey%=block%!4:Ȏh%�
� �fileaccess%:�(b%�4)=4�i%=0�
�șwimpcreatemenu%,,-1
��:�(b%�2)=0�i%=0��Py(�)
�&�(b%�2)=0�i%=6��A(fileaccess%,6,0)
��fileinfo%
� �backg%:�shift%�(b%�2)=2��GJ
�(b%�64)=64��Uy(64)
�(b%�16)=16��Uy(16)
�shift%�(b%�2)=2��H(�,7,�)
 �(b%�4)=4��ay(b%)
*�(b%�1)=1��ay(b%)
4�(b%�1024)=1024��Fy(4)
>�(b%�256)=256��Fy(1)
H �config%:�(b%�2)=2��H(�,0,�)
R�(b%�1)=1��u
\�(b%�4)=4��u
f!�config2%:�(b%�2)=2��H(�,0,�)
p�(b%�1)=1��_y
z�(b%�4)=4��_y
�
�info%
�+�savewindow%:�(b%�4)=4��n(b%,block%!16)
��(b%�1)=1��n(b%,block%!16)
��(b%�16)=16��Ly
��(b%�64)=64��Ly
��mapwindow%:�(b%�4)=4��Hy
��(b%�1)=1��Hy
��(b%�2)=2��H(�,1,�)
��(b%�16)=16��Oy
��(b%�64)=64��Oy
�:�(b%�2)=2��H(�,0,�)
��(b%�4)=4��Vy
��(b%�1)=1��Jy
�:�
D��B(�M$):ȕ�M$,1)=" ":M$=�M$,2):�:ȕ�M$,1)=" ":M$=�M$,�M$-1):�:�
��Z(A$,ptr%):�l%:�A$>0�
$*�l%=0�(�A$)-1:ptr%?l%=�(�A$,l%+1,1)):�
.�:ptr%?(�A$)=0:�
8DݤF(S$):�p%:p%=0:ȕ�S$,".",p%+1)>0:p%=�S$,".",p%+1):�:=�S$,p%-1)
BO��C(remove%):�l%:�S(xy0%?remove%,xy1%?remove%):�type%?remove%=7�c_(remove%)
L�remove%<!noapps%�
V��l%=remove%�!noapps%-1:type%?l%=type%?(l%+1):dragonto%?l%=dragonto%?(l%+1):A$(l%)=A$(l%+1):�Z(�A(sprite%+12*(l%+1)),sprite%+12*l%):�Z(�A(leaf%+12*(l%+1)),leaf%+l%*12):xy0%?l%=xy0%?(l%+1):xy1%?l%=xy1%?(l%+1):ixy0%?l%=ixy0%?(l%+1)
`�ixy1%?l%=ixy1%?(l%+1):A%(l%)=A%(l%+1):hotkeys%!(l%*4)=hotkeys%!(l%*4+4):select%?l%=select%?(l%+1):backdrop%?l%=backdrop%?(l%+1):�
j�:!noapps%-=1:ș&446c6,F:�
t'��v:�sprx%,spry%,mode%,cols%:�!S=1�
~�ș46,552,backdropspritearea%,!backdropspritenameptr%�,,,sprx%,spry%,,mode%:ș53,mode%,3�,,cols%:ș53,-1,3�,,cols2%:�cols%=63�
�,ș&40740,mode%,0,-1,-1,colourtransblock%
�i�:ș&400ed,512,backdropspritearea%,!backdropspritenameptr%,,,,backdroptomodescalef%,colourtransblock%
���:!backdropspritewidth%=(sprx%<<xeig%)*(!backdroptomodescalef%)/(backdroptomodescalef%!8):!backdropspriteheight%=(spry%<<yeig%)*(backdroptomodescalef%!4)/(backdroptomodescalef%!12):!backdropspritecentrex%=((!xmax%)-(!backdropspritewidth%))�2
��!backdropspritecentrey%=((!ymax%)-134-(!backdropspriteheight%))�2+134:!backdropspritescalef%=!xmax%:backdropspritescalef%!4=!ymax%-133:backdropspritescalef%!8=sprx%<<xeig%:backdropspritescalef%!12=spry%<<yeig%
��:�
����g(S$):�q:path%=��F(S$):more%=0:�:ș&2000c,11,�S$,path%),block%,1,more%,256,�S$,path%+2)�,,,read%,more%;flags%:�more%=-1�read%=1:�read%=1�
�ksize%=block%!8:block%!8=0:block%!12=0:ș&2001e,6,,,size%+30�,,backdropspritearea%;flags%:�(flags%�1)=1�
�backdropspritearea%=0:�q
��:!backdropspriteareaptr%=backdropspritearea%:!backdropspritearea%=size%+30:backdropspritearea%!4=0:backdropspritearea%!8=16:backdropspritearea%!12=16:ș46,266,backdropspritearea%,S$:!block%=config2%:block%!4=49:șwimpgis%,,block%:�Z(S$,block%!28)
�[z$=S$:!backdropspritenameptr%=backdropspritearea%+(backdropspritearea%!8):!S=1:�h:�v:�U
��
��:�
7��q:�backdropspritearea%<>0��F(backdropspritearea%)

@backdropspritearea%=0:!backdropspriteareaptr%=0:z$="":!S=0:�
R��Jy:mapwindowopen%=�:!block%=mapwindow%:șwimpgws%,,block%:�block%!12>!xmax%�
/block%!4+=!xmax%-block%!12:block%!12=!xmax%
(�:�block%!4<0�
2"block%!12-=block%!4:block%!4=0
<�:�block%!16>!ymax%-40�
F5block%!8+=!ymax%-40-block%!16:block%!16=!ymax%-40
P�:�block%!8<0�
Z"block%!16-=block%!8:block%!8=0
d7�:block%!28=-1:șwimpopenwindow%,,block%:ș&446c2:�
n���b_:�more%,next%,orx%,ory%,minx%,miny%,max%,maxy%,M,Z,xoff%,yoff%:!block%=mapwindow%:ș&400c8,,block%�more%:orx%=block%!4:ory%=block%!8:�more%<>0��y(block%!28,block%!32,block%!36,block%!40,�)
x�29,0;0;26:�
����m(x0%,y0%,x1%,y1%):�more%,next%,orx%,ory%,minx%,miny%,max%,maxy%,M,Z,xoff%,yoff%:!block%=mapwindow%:block%!4=x0%:block%!8=y0%:block%!12=x1%:block%!16=y1%:ș&400c9,,block%�more%:orx%=block%!4:ory%=block%!8
�;�more%<>0��y(block%!28,block%!32,block%!36,block%!40,�)
��29,0;0;26:�
�+��y(x1%,y1%,x2%,y2%,update%):�more%<>0�
�Xș&400ca,,block%�more%:�more%<>0��y(block%!28,block%!32,block%!36,block%!40,update%)
��:�more%=0��x
�V�29,0;0;24,x1%;y1%;x2%-!xpix%;y2%-!ypix%;29,orx%+xoff%;ory%+yoff%;:�update%��0,1:�
��next%=�M(backg%):gx1%=�U((-minx%)*M):gy1%=�N((-miny%)*Z):gx2%=�U((!xmax%-minx%)*M-gx1%):gy2%=�N((!ymax%-miny%)*Z-gy1%):ș&400e6,15:ȓȐgx1%,gy1%,gx2%,gy2%:ȕnext%<>-1:!block%=next%:șwimpgws%,,block%:�(block%!32�4098)<>4098�
��(block%!32�32)=0�
��gx1%=�U((block%!4-minx%)*M):gy1%=�N((block%!8-miny%)*Z):gx2%=�U((block%!12-minx%)*M-gx1%-!xpix%):gy2%=�N((block%!16-miny%)*Z-gy1%-!ypix%):ș&400e6,0:ȓȐgx1%,gy1%,gx2%,gy2%:ș&400e6,7:ȓgx1%,gy1%,gx2%,gy2%
��
��:next%=block%!28:�:�
����x:minx%=0:miny%=0:maxx%=!xmax%:maxy%=!ymax%:next%=�M(backg%):ȕnext%<>-1�next%<>-2:!block%=next%:șwimpgws%,,block%:�(block%!32�4098)<>4098�
�(block%!32�32)=0�
iminx%=�Q(minx%,block%!4):miny%=�Q(miny%,block%!8):maxx%=�B(maxx%,block%!12):maxy%=�B(maxy%,block%!16)
�
"��:next%=block%!28:�:minx%-=!xmax%/2:miny%-=!ymax%/2:maxx%+=!xmax%/2:maxy%+=!ymax%/2:M=476/(maxx%-minx%):Z=214/(maxy%-miny%):�M>Z�
,+xoff%=(M-Z)*(maxx%-minx%)/2:yoff%=0:M=Z
6-�:yoff%=(Z-M)*(maxy%-miny%)/2:xoff%=0:Z=M
@3�:xoff%-=(xoff%�!xpix%):yoff%-=(yoff%�!ypix%):�
JݤU(a%):=(a%-(a%�!xpix%))
TݤN(a%):=(a%-(a%�!ypix%))
^���qy:�newer%,force%,verbose%,confirm%:force%=(�D(198)�16)�16:confirm%=(�D(198)�32)�32:verbose%=(�D(198)�64)�64:newer%=(�D(198)�128)�128:fileroptions%=verbose%+(confirm%<<1)+(force%<<2)+(newer%<<3):�
h���BJ:�newer%,force%,verbose%,confirm%:verbose%=fileroptions%�1:confirm%=(fileroptions%�2)�2:force%=(fileroptions%�4)�4:newer%=(fileroptions%�8)�8:�w(198,force%<<4,16):�w(198,confirm%<<5,32):�w(198,verbose%<<6,64):�w(198,newer%<<7,128):�
r0ݤD(add%):�byte%:ș6,161,add%�,,byte%:=byte%
|j��w(add%,byte%,mask%):�byte2%:ș6,161,add%�,,byte2%:byte2%=(byte2%��mask%)�byte%:ș6,162,add%,byte2%:�
���r(nb%):�l%:�!noapps%>-1�
�9�l%=0�!noapps%:�(backdrop%?l%)=nb%�(backdrop%?l%)=!A�
��S(xy0%?l%,xy1%?l%)
��:�
��:!A=nb%:�e(0):ș&446c6,F:�
�.��c_(m%):�n%,l%:n%=�(A$(m%)):�!noapps%>-1�
�(�l%=0�!noapps%:�l%<=!noapps%�l%<>m%�
�Ȏ��
�$�backdrop%?l%>n%:backdrop%?l%-=1
� �backdrop%?l%=n%:Ȏtype%?l%�
�
�5:�d(l%)
�
�6:�Y(l%)
��:�C(l%):l%-=1

�:�l%>=0�
�type%?l%=7�
�(A$(l%))>n%�
&A$(l%)=�(�(A$(l%))-1)
0�
:�
D�
N�:�
X�:nextfreebackdrop%-=1:�
bjݤO(gx%,gy%):�onicon%:onicon%=�:�(gx%�(!xpix%*80*!xmult%/!xdiv%))<(!xpix%*23*!xmult%/!xdiv%)�onicon%=�
lJ�(gx%�(!xpix%*80*!xmult%/!xdiv%))>(!xpix%*57*!xmult%/!xdiv%)�onicon%=�
vV�!icontext%�(gy%�(!ypix%*32*!ymult%/!ydiv%))<(!ypix%*10*!ymult%/!ydiv%)�onicon%=�
�V�!icontext%�(gy%�(!ypix%*32*!ymult%/!ydiv%))>(!ypix%*26*!ymult%/!ydiv%)�onicon%=�
�=onicon%
�F��Q:�cb%,l%:cb%=!A:�!A=0�nextfreebackdrop%-1:ș&446c6,F:�:!A=cb%:�
�?��N_:�addr%,val%:ș&446c5�,,,addr%:val%=!addr%:�(val%�1)=1�
��r_
��:�(val%�2)=2�
��o_
��:�
�d��Xy(n%):�A(config2%,46,0):�A(config2%,47,0):�A(config2%,48,0):�A(config2%,n%+45,1):!W=n%-1:�U:�
ڍݤW(A$,s$,p$,_$,Zy$):�res%,trm%:ș&41502,messagefd%,A$+":Token not found",block%+1024,1024,s$,p$,_$,Zy$�,,res%,trm%:res%?trm%=0:=�A(res%)
���e(n%):�l%:�!noapps%>-1�
�#�l%=0�!noapps%:�select%?l%<>n%�
��n%=0�backdrop%?l%=!A�
%select%?l%=n%:�S(xy0%?l%,xy1%?l%)
�
�:�
 �:temporaryselect%=�:�
*ݤs:=12345
�
00000000  0d 00 0a 17 f4 3e 21 4c  61 72 67 65 72 2e 21 52  |.....>!Larger.!R|
00000010  75 6e 49 6d 61 67 65 0d  00 14 1b ee 85 eb 30 3a  |unImage.......0:|
00000020  f6 3a f1 22 20 61 74 20  6c 69 6e 65 20 22 3b 9e  |.:." at line ";.|
00000030  3a e0 0d 00 1e d8 de 41  25 28 32 35 35 29 2c 41  |:......A%(255),A|
00000040  24 28 32 35 35 29 3a de  5a 24 28 32 35 35 29 2c  |$(255):.Z$(255),|
00000050  4d 24 28 32 35 35 29 2c  46 24 28 33 29 3a de 72  |M$(255),F$(3):.r|
00000060  75 6e 77 69 74 68 62 75  66 66 65 72 25 38 35 2c  |unwithbuffer%85,|
00000070  53 24 28 32 35 35 29 3a  6c 65 61 66 25 3d a4 5a  |S$(255):leaf%=.Z|
00000080  28 32 35 35 2a 31 32 29  3a 73 70 72 69 74 65 25  |(255*12):sprite%|
00000090  3d a4 5a 28 32 35 35 2a  31 32 29 3a 6d 6f 76 65  |=.Z(255*12):move|
000000a0  64 25 3d a4 5a 28 32 35  35 29 3a 6d 65 6e 75 62  |d%=.Z(255):menub|
000000b0  6c 6f 63 6b 25 3d a4 5a  28 32 35 30 30 29 3a 78  |lock%=.Z(2500):x|
000000c0  79 30 25 3d a4 5a 28 35  31 32 29 3a 78 79 31 25  |y0%=.Z(512):xy1%|
000000d0  3d a4 5a 28 35 31 32 29  3a 69 78 79 30 25 3d a4  |=.Z(512):ixy0%=.|
000000e0  5a 28 32 35 36 29 3a 69  78 79 31 25 3d a4 5a 28  |Z(256):ixy1%=.Z(|
000000f0  32 35 36 29 3a 73 70 72  69 74 65 61 72 65 61 25  |256):spritearea%|
00000100  3d a4 5a 28 32 31 30 30  30 29 0d 00 28 b0 63 6f  |=.Z(21000)..(.co|
00000110  64 65 25 3d a4 5a 28 33  36 30 30 2b 32 30 34 38  |de%=.Z(3600+2048|
00000120  29 3a 62 6c 6f 63 6b 25  3d 63 6f 64 65 25 2b 33  |):block%=code%+3|
00000130  36 30 30 3a 68 6f 74 6b  65 79 73 25 3d a4 5a 28  |600:hotkeys%=.Z(|
00000140  31 30 32 34 29 3a 64 72  61 67 6f 6e 74 6f 25 3d  |1024):dragonto%=|
00000150  a4 5a 28 32 35 36 29 3a  62 6c 6f 63 6b 32 25 3d  |.Z(256):block2%=|
00000160  a4 5a 28 32 30 30 29 3a  74 79 70 65 25 3d a4 5a  |.Z(200):type%=.Z|
00000170  28 32 35 36 29 3a 73 65  6c 65 63 74 25 3d a4 5a  |(256):select%=.Z|
00000180  28 32 35 36 29 3a 69 6e  64 69 72 25 3d a4 5a 28  |(256):indir%=.Z(|
00000190  34 30 30 30 29 3a 62 61  63 6b 64 72 6f 70 25 3d  |4000):backdrop%=|
000001a0  a4 5a 28 32 35 36 29 3a  63 61 72 65 74 62 6c 6f  |.Z(256):caretblo|
000001b0  63 6b 25 3d a4 5a 28 32  38 29 0d 00 32 e8 46 24  |ck%=.Z(28)..2.F$|
000001c0  28 29 3d 22 3c 4c 61 72  67 65 72 24 44 69 72 3e  |()="<Larger$Dir>|
000001d0  2e 53 65 74 75 70 22 2c  22 3c 4c 61 72 67 65 72  |.Setup","<Larger|
000001e0  24 44 69 72 3e 2e 41 73  73 65 6d 62 6c 65 22 2c  |$Dir>.Assemble",|
000001f0  22 3c 4c 61 72 67 65 72  24 44 69 72 3e 2e 49 4f  |"<Larger$Dir>.IO|
00000200  4f 76 65 72 6c 61 79 22  2c 22 3c 4c 61 72 67 65  |Overlay","<Large|
00000210  72 24 44 69 72 3e 2e 4f  76 65 72 6c 61 79 33 22  |r$Dir>.Overlay3"|
00000220  3a c8 a3 46 24 28 29 3a  f2 46 5f 3a f2 4c 5f 3a  |:..F$():.F_:.L_:|
00000230  f2 6a 5f 3a f2 6f 79 3a  f2 74 5f 3a f2 6a 79 3a  |.j_:.oy:.t_:.jy:|
00000240  46 24 28 29 3d 22 3c 4c  61 72 67 65 72 24 44 69  |F$()="<Larger$Di|
00000250  72 3e 2e 49 4f 4f 76 65  72 6c 61 79 22 2c 22 3c  |r>.IOOverlay","<|
00000260  4c 61 72 67 65 72 24 44  69 72 3e 2e 4f 76 65 72  |Larger$Dir>.Over|
00000270  6c 61 79 33 22 2c 22 22  2c 22 22 3a f2 74 3a f2  |lay3","","":.t:.|
00000280  65 5f 3a f2 68 3a ee 85  f2 42 5f 3a e7 ac 63 6c  |e_:.h:...B_:..cl|
00000290  6f 73 65 64 6f 77 6e 25  8c f2 52 79 3a 8b f2 6b  |osedown%..Ry:..k|
000002a0  3a e0 0d 00 3c 09 f2 52  79 3a e0 0d 00 46 2e dd  |:...<..Ry:...F..|
000002b0  f2 52 79 3a f5 3a f2 77  5f 3a c8 97 78 25 2c 79  |.Ry:.:.w_:..x%,y|
000002c0  25 2c 62 25 3a fd 63 6c  6f 73 65 64 6f 77 6e 25  |%,b%:.closedown%|
000002d0  3a f2 6b 79 3a f2 6b 3a  e1 0d 00 50 71 dd a4 5a  |:.ky:.k:...Pq..Z|
000002e0  28 73 69 7a 65 25 29 3a  ea 70 74 72 25 2c 66 6c  |(size%):.ptr%,fl|
000002f0  61 67 73 25 3a c8 99 26  32 30 30 31 65 2c 36 2c  |ags%:..&2001e,6,|
00000300  2c 2c 73 69 7a 65 25 b8  2c 2c 70 74 72 25 3b 66  |,,size%.,,ptr%;f|
00000310  6c 61 67 73 25 3a e7 28  66 6c 61 67 73 25 80 31  |lags%:.(flags%.1|
00000320  29 3d 31 8c 85 30 2c 22  43 6f 75 6c 64 6e 27 74  |)=1..0,"Couldn't|
00000330  20 43 6c 61 69 6d 20 77  6f 72 6b 73 70 61 63 65  | Claim workspace|
00000340  20 66 72 6f 6d 20 52 4d  41 22 0d 00 5a 09 3d 70  | from RMA"..Z.=p|
00000350  74 72 25 0d 00 64 28 dd  f2 46 28 f8 70 74 72 25  |tr%..d(..F(.ptr%|
00000360  29 3a c8 99 26 32 30 30  31 65 2c 37 2c 2c 70 74  |):..&2001e,7,,pt|
00000370  72 25 3a 70 74 72 25 3d  30 3a e1 0d 00 6e 31 dd  |r%:ptr%=0:...n1.|
00000380  f2 6b 3a c8 99 26 34 31  35 30 34 2c 6d 65 73 73  |.k:..&41504,mess|
00000390  61 67 65 66 64 25 3a 2a  52 4d 4b 69 6c 6c 20 4c  |agefd%:*RMKill L|
000003a0  61 72 67 65 72 53 75 70  70 6f 72 74 0d 00 78 f6  |argerSupport..x.|
000003b0  f2 46 28 6c 65 61 66 25  29 3a f2 46 28 73 70 72  |.F(leaf%):.F(spr|
000003c0  69 74 65 25 29 3a f2 46  28 6d 6f 76 65 64 25 29  |ite%):.F(moved%)|
000003d0  3a f2 46 28 62 61 63 6b  64 72 6f 70 25 29 3a f2  |:.F(backdrop%):.|
000003e0  46 28 63 6f 64 65 25 29  3a f2 46 28 68 6f 74 6b  |F(code%):.F(hotk|
000003f0  65 79 73 25 29 3a f2 46  28 6d 65 73 73 61 67 65  |eys%):.F(message|
00000400  66 64 25 29 3a f2 46 28  64 72 61 67 6f 6e 74 6f  |fd%):.F(dragonto|
00000410  25 29 3a f2 46 28 62 6c  6f 63 6b 32 25 29 3a f2  |%):.F(block2%):.|
00000420  46 28 74 79 70 65 25 29  3a f2 46 28 73 65 6c 65  |F(type%):.F(sele|
00000430  63 74 25 29 3a f2 46 28  69 6e 64 69 72 25 29 3a  |ct%):.F(indir%):|
00000440  f2 46 28 73 70 72 69 74  65 61 72 65 61 25 29 3a  |.F(spritearea%):|
00000450  f2 46 28 6d 65 6e 75 62  6c 6f 63 6b 25 29 3a f2  |.F(menublock%):.|
00000460  46 28 78 79 30 25 29 3a  f2 46 28 78 79 31 25 29  |F(xy0%):.F(xy1%)|
00000470  3a f2 46 28 75 73 65 72  6d 65 6e 75 25 29 3a f2  |:.F(usermenu%):.|
00000480  46 28 69 78 79 30 25 29  3a f2 46 28 69 78 79 31  |F(ixy0%):.F(ixy1|
00000490  25 29 3a f2 46 28 63 61  72 65 74 62 6c 6f 63 6b  |%):.F(caretblock|
000004a0  25 29 0d 00 82 1d e7 75  6d 77 72 69 74 65 25 3c  |%).....umwrite%<|
000004b0  3e 30 8c f2 46 28 75 6d  77 72 69 74 65 25 29 0d  |>0..F(umwrite%).|
000004c0  00 8c 29 f2 71 3a c8 99  77 69 6d 70 63 6c 6f 73  |..).q:..wimpclos|
000004d0  65 64 6f 77 6e 25 2c 74  61 73 6b 25 2c 26 34 62  |edown%,task%,&4b|
000004e0  35 33 34 31 35 34 3a e1  0d 00 96 f0 dd f2 7a 28  |534154:.......z(|
000004f0  6d 24 29 3a ea 77 25 2c  68 25 3a c8 99 77 69 6d  |m$):.w%,h%:..wim|
00000500  70 73 70 72 69 74 65 6f  70 25 2c 34 30 2b 32 35  |pspriteop%,40+25|
00000510  36 2c 2c 6d 24 b8 2c 2c  2c 77 25 2c 68 25 3a 62  |6,,m$.,,,w%,h%:b|
00000520  6c 6f 63 6b 25 21 30 3d  2d 32 3a 62 6c 6f 63 6b  |lock%!0=-2:block|
00000530  25 21 34 3d 2d 34 3a 62  6c 6f 63 6b 25 21 38 3d  |%!4=-4:block%!8=|
00000540  2d 32 30 3a 62 6c 6f 63  6b 25 21 31 32 3d 77 25  |-20:block%!12=w%|
00000550  2a 32 2b 34 3a 62 6c 6f  63 6b 25 21 31 36 3d 68  |*2+4:block%!16=h|
00000560  25 2a 34 2d 32 30 3a 62  6c 6f 63 6b 25 21 32 30  |%*4-20:block%!20|
00000570  3d 28 33 3c 3c 31 32 29  2b 32 3a 62 6c 6f 63 6b  |=(3<<12)+2:block|
00000580  25 21 32 34 3d 30 3a 62  6c 6f 63 6b 25 21 32 38  |%!24=0:block%!28|
00000590  3d 30 3a 62 6c 6f 63 6b  25 21 33 32 3d 30 3a f2  |=0:block%!32=0:.|
000005a0  5a 28 6d 24 2c 62 6c 6f  63 6b 25 2b 32 34 29 3a  |Z(m$,block%+24):|
000005b0  c8 99 77 69 6d 70 63 72  65 61 74 65 69 63 6f 6e  |..wimpcreateicon|
000005c0  25 2c 2c 62 6c 6f 63 6b  25 b8 69 63 6f 6e 62 61  |%,,block%.iconba|
000005d0  72 69 63 6f 6e 25 3a e1  0d 00 a0 3d dd f2 77 5f  |ricon%:....=..w_|
000005e0  3a ea 21 72 65 61 73 6f  6e 25 2c 6d 65 73 73 61  |:.!reason%,messa|
000005f0  67 65 6e 6f 25 3a d6 70  6f 6c 6c 25 3a 73 68 69  |geno%:.poll%:shi|
00000600  66 74 25 3d a6 28 2d 31  29 3a c8 8e 21 72 65 61  |ft%=.(-1):..!rea|
00000610  73 6f 6e 25 ca 0d 00 aa  0b c9 30 3a c8 8e b9 ca  |son%......0:....|
00000620  0d 00 b4 30 c9 21 66 61  73 74 73 63 72 6f 6c 6c  |...0.!fastscroll|
00000630  6c 65 66 74 25 3c 3e 30  84 21 66 61 73 74 73 63  |left%<>0.!fastsc|
00000640  72 6f 6c 6c 64 6f 77 6e  25 3c 3e 30 3a f2 6b 5f  |rolldown%<>0:.k_|
00000650  0d 00 be 33 7f 3a f2 70  79 3a 6c 6f 61 64 69 6e  |...3.:.py:loadin|
00000660  70 72 6f 67 72 65 73 73  25 3d a3 3a 76 24 3d 22  |progress%=.:v$="|
00000670  22 3a e7 66 6f 6c 6c 6f  77 63 61 72 65 74 25 8c  |":.followcaret%.|
00000680  f2 66 5f 0d 00 c8 05 cb  0d 00 d2 0a c9 31 3a f2  |.f_..........1:.|
00000690  62 5f 0d 00 dc 0a c9 32  3a f2 56 5f 0d 00 e6 1b  |b_.....2:.V_....|
000006a0  c9 33 3a e7 21 62 6c 6f  63 6b 25 3d 6d 61 70 77  |.3:.!block%=mapw|
000006b0  69 6e 64 6f 77 25 8c 0d  00 f0 1d 6d 61 70 77 69  |indow%.....mapwi|
000006c0  6e 64 6f 77 6f 70 65 6e  25 3d a3 3a c8 99 26 34  |ndowopen%=.:..&4|
000006d0  34 36 63 33 0d 00 fa 20  cd 3a c8 99 77 69 6d 70  |46c3... .:..wimp|
000006e0  63 6c 6f 73 65 77 69 6e  64 6f 77 25 2c 2c 62 6c  |closewindow%,,bl|
000006f0  6f 63 6b 25 0d 01 04 0a  c9 36 3a f2 79 5f 0d 01  |ock%.....6:.y_..|
00000700  0e 0a c9 37 3a f2 70 5f  0d 01 18 0a c9 38 3a f2  |...7:.p_.....8:.|
00000710  67 79 0d 01 22 0a c9 39  3a f2 6d 5f 0d 01 2c 0b  |gy.."..9:.m_..,.|
00000720  c9 31 33 3a f2 4e 5f 0d  01 36 39 c9 31 37 2c 31  |.13:.N_..69.17,1|
00000730  38 2c 31 39 3a 6d 65 73  73 61 67 65 6e 6f 25 3d  |8,19:messageno%=|
00000740  62 6c 6f 63 6b 25 21 31  36 3a c8 99 26 34 30 36  |block%!16:..&406|
00000750  63 30 3a c8 8e 6d 65 73  73 61 67 65 6e 6f 25 ca  |c0:..messageno%.|
00000760  0d 01 40 13 c9 30 3a 63  6c 6f 73 65 64 6f 77 6e  |..@..0:closedown|
00000770  25 3d b9 0d 01 4a 0a c9  31 3a f2 75 5f 0d 01 54  |%=...J..1:.u_..T|
00000780  16 c9 32 3a e7 66 69 6c  65 72 73 61 76 65 25 8c  |..2:.filersave%.|
00000790  f2 73 5f 0d 01 5e 3b c9  33 3a e7 72 75 6e 73 63  |.s_..^;.3:.runsc|
000007a0  72 61 70 77 68 65 6e 73  61 76 65 64 25 8c f2 54  |rapwhensaved%..T|
000007b0  28 72 75 6e 73 63 72 61  70 6f 6e 74 6f 25 2c 22  |(runscraponto%,"|
000007c0  3c 57 69 6d 70 24 53 63  72 61 70 3e 22 29 0d 01  |<Wimp$Scrap>")..|
000007d0  68 2a 72 75 6e 73 63 72  61 70 77 68 65 6e 73 61  |h*runscrapwhensa|
000007e0  76 65 64 25 3d a3 3a e7  6c 6f 61 64 69 6e 70 72  |ved%=.:.loadinpr|
000007f0  6f 67 72 65 73 73 25 8c  0d 01 72 07 f2 61 5f 0d  |ogress%...r..a_.|
00000800  01 7c 09 cc 3a f2 50 5f  0d 01 86 17 cd 3a 6c 6f  |.|..:.P_.....:lo|
00000810  61 64 69 6e 70 72 6f 67  72 65 73 73 25 3d a3 0d  |adinprogress%=..|
00000820  01 90 1f c9 34 3a e7 66  69 6c 65 72 73 61 76 65  |....4:.filersave|
00000830  25 8c 66 69 6c 65 72 73  61 76 65 25 3d a3 0d 01  |%.filersave%=...|
00000840  9a 09 c9 39 3a f2 76 0d  01 a4 0d c9 31 32 38 32  |...9:.v.....1282|
00000850  3a f2 75 79 0d 01 ae 0f  c9 26 34 30 30 63 30 3a  |:.uy.....&400c0:|
00000860  f2 68 79 0d 01 b8 1e c9  26 34 30 30 63 31 3a 72  |.hy.....&400c1:r|
00000870  65 73 69 7a 65 6e 65 65  64 65 64 25 3d b9 3a f2  |esizeneeded%=.:.|
00000880  74 0d 01 c2 0f c9 26 34  30 30 63 33 3a f2 76 5f  |t.....&400c3:.v_|
00000890  0d 01 cc 21 c9 26 34 30  30 63 61 3a e7 63 75 72  |...!.&400ca:.cur|
000008a0  72 65 6e 74 69 63 6f 6e  69 73 65 72 25 8c f2 74  |renticoniser%..t|
000008b0  79 0d 01 d6 21 c9 26 34  30 30 63 62 3a e7 63 75  |y...!.&400cb:.cu|
000008c0  72 72 65 6e 74 69 63 6f  6e 69 73 65 72 25 8c f2  |rrenticoniser%..|
000008d0  79 79 0d 01 e0 21 c9 26  34 30 30 63 63 3a e7 63  |yy...!.&400cc:.c|
000008e0  75 72 72 65 6e 74 69 63  6f 6e 69 73 65 72 25 8c  |urrenticoniser%.|
000008f0  f2 4d 5f 0d 01 ea 0e cb  3a c8 99 26 34 30 36 63  |.M_.....:..&406c|
00000900  31 0d 01 f4 07 cb 3a e1  0d 01 fe 0d dd f2 56 5f  |1.....:.......V_|
00000910  3a c8 8e b9 ca 0d 02 08  34 c9 72 65 73 69 7a 65  |:.......4.resize|
00000920  6e 65 65 64 65 64 25 80  21 62 6c 6f 63 6b 25 3d  |needed%.!block%=|
00000930  62 61 63 6b 67 25 3a f2  74 3a 72 65 73 69 7a 65  |backg%:.t:resize|
00000940  6e 65 65 64 65 64 25 3d  a3 0d 02 12 17 c9 21 62  |needed%=......!b|
00000950  6c 6f 63 6b 25 3d 63 6f  6e 66 69 67 25 3a f2 6f  |lock%=config%:.o|
00000960  0d 02 1c 19 c9 21 62 6c  6f 63 6b 25 3d 63 6f 6e  |.....!block%=con|
00000970  66 69 67 32 25 3a f2 53  5f 0d 02 26 3a c9 21 62  |fig2%:.S_..&:.!b|
00000980  6c 6f 63 6b 25 3d 6d 61  70 77 69 6e 64 6f 77 25  |lock%=mapwindow%|
00000990  3a c8 99 26 34 34 36 63  32 3a c8 99 77 69 6d 70  |:..&446c2:..wimp|
000009a0  6f 70 65 6e 77 69 6e 64  6f 77 25 2c 2c 62 6c 6f  |openwindow%,,blo|
000009b0  63 6b 25 0d 02 30 1f 7f  3a c8 99 77 69 6d 70 6f  |ck%..0..:..wimpo|
000009c0  70 65 6e 77 69 6e 64 6f  77 25 2c 2c 62 6c 6f 63  |penwindow%,,bloc|
000009d0  6b 25 0d 02 3a 07 cb 3a  e1 0d 02 44 f5 dd f2 6f  |k%..:..:...D...o|
000009e0  3a 62 6c 6f 63 6b 25 21  36 38 3d 62 6c 6f 63 6b  |:block%!68=block|
000009f0  25 21 32 38 3a 62 6c 6f  63 6b 25 21 33 32 3d 63  |%!28:block%!32=c|
00000a00  6f 6e 66 69 67 32 25 3a  c8 99 77 69 6d 70 67 77  |onfig2%:..wimpgw|
00000a10  73 25 2c 2c 62 6c 6f 63  6b 25 2b 33 32 3a 62 6c  |s%,,block%+32:bl|
00000a20  6f 63 6b 25 21 34 34 3d  62 6c 6f 63 6b 25 21 34  |ock%!44=block%!4|
00000a30  2b 62 6c 6f 63 6b 25 21  34 34 2d 62 6c 6f 63 6b  |+block%!44-block|
00000a40  25 21 33 36 2b 31 36 3a  62 6c 6f 63 6b 25 21 34  |%!36+16:block%!4|
00000a50  38 3d 62 6c 6f 63 6b 25  21 38 2b 62 6c 6f 63 6b  |8=block%!8+block|
00000a60  25 21 34 38 2d 62 6c 6f  63 6b 25 21 34 30 2b 31  |%!48-block%!40+1|
00000a70  36 3a 62 6c 6f 63 6b 25  21 33 36 3d 62 6c 6f 63  |6:block%!36=bloc|
00000a80  6b 25 21 34 2b 31 36 3a  62 6c 6f 63 6b 25 21 34  |k%!4+16:block%!4|
00000a90  30 3d 62 6c 6f 63 6b 25  21 38 2b 31 36 3a 62 6c  |0=block%!8+16:bl|
00000aa0  6f 63 6b 25 21 36 30 3d  62 6c 6f 63 6b 25 21 36  |ock%!60=block%!6|
00000ab0  38 3a c8 99 77 69 6d 70  6f 70 65 6e 77 69 6e 64  |8:..wimpopenwind|
00000ac0  6f 77 25 2c 2c 62 6c 6f  63 6b 25 2b 33 32 0d 02  |ow%,,block%+32..|
00000ad0  4e 32 62 6c 6f 63 6b 25  21 32 38 3d 63 6f 6e 66  |N2block%!28=conf|
00000ae0  69 67 32 25 3a c8 99 77  69 6d 70 6f 70 65 6e 77  |ig2%:..wimpopenw|
00000af0  69 6e 64 6f 77 25 2c 2c  62 6c 6f 63 6b 25 3a e1  |indow%,,block%:.|
00000b00  0d 02 58 4d dd f2 53 5f  3a 63 6f 6e 66 69 67 70  |..XM..S_:configp|
00000b10  61 6e 65 68 65 69 67 68  74 25 3d 62 6c 6f 63 6b  |aneheight%=block|
00000b20  25 21 31 36 2d 62 6c 6f  63 6b 25 21 38 3a e7 63  |%!16-block%!8:.c|
00000b30  6f 6e 66 69 67 70 61 6e  65 68 65 69 67 68 74 25  |onfigpaneheight%|
00000b40  3e 28 21 79 6d 61 78 25  2d 38 38 29 8c 0d 02 62  |>(!ymax%-88)...b|
00000b50  48 62 6c 6f 63 6b 25 21  31 36 2d 3d 63 6f 6e 66  |Hblock%!16-=conf|
00000b60  69 67 70 61 6e 65 68 65  69 67 68 74 25 2d 28 21  |igpaneheight%-(!|
00000b70  79 6d 61 78 25 2d 38 38  29 3a 63 6f 6e 66 69 67  |ymax%-88):config|
00000b80  70 61 6e 65 68 65 69 67  68 74 25 3d 21 79 6d 61  |paneheight%=!yma|
00000b90  78 25 2d 38 38 0d 02 6c  85 cd 3a c8 99 77 69 6d  |x%-88..l..:..wim|
00000ba0  70 6f 70 65 6e 77 69 6e  64 6f 77 25 2c 2c 62 6c  |popenwindow%,,bl|
00000bb0  6f 63 6b 25 3a 62 6c 6f  63 6b 25 21 34 30 3d 63  |ock%:block%!40=c|
00000bc0  6f 6e 66 69 67 25 3a c8  99 77 69 6d 70 67 77 73  |onfig%:..wimpgws|
00000bd0  25 2c 2c 62 6c 6f 63 6b  25 2b 34 30 3a e7 63 6f  |%,,block%+40:.co|
00000be0  6e 66 69 67 70 61 6e 65  68 65 69 67 68 74 25 3c  |nfigpaneheight%<|
00000bf0  3e 6f 6c 64 63 6f 6e 66  69 67 70 61 6e 65 68 65  |>oldconfigpanehe|
00000c00  69 67 68 74 25 84 62 6c  6f 63 6b 25 21 32 38 3c  |ight%.block%!28<|
00000c10  3e 63 6f 6e 66 69 67 32  25 8c 0d 02 76 a8 6f 6c  |>config2%...v.ol|
00000c20  64 63 6f 6e 66 69 67 70  61 6e 65 68 65 69 67 68  |dconfigpaneheigh|
00000c30  74 25 3d 63 6f 6e 66 69  67 70 61 6e 65 68 65 69  |t%=configpanehei|
00000c40  67 68 74 25 3a 62 6c 6f  63 6b 25 21 34 38 3d 62  |ght%:block%!48=b|
00000c50  6c 6f 63 6b 25 21 38 2d  31 36 3a 62 6c 6f 63 6b  |lock%!8-16:block|
00000c60  25 21 35 36 3d 62 6c 6f  63 6b 25 21 34 38 2b 63  |%!56=block%!48+c|
00000c70  6f 6e 66 69 67 70 61 6e  65 68 65 69 67 68 74 25  |onfigpaneheight%|
00000c80  2b 33 32 3a 62 6c 6f 63  6b 25 21 36 34 3d 2d 34  |+32:block%!64=-4|
00000c90  34 32 3a 62 6c 6f 63 6b  25 21 36 38 3d 63 6f 6e  |42:block%!68=con|
00000ca0  66 69 67 32 25 3a c8 99  77 69 6d 70 6f 70 65 6e  |fig2%:..wimpopen|
00000cb0  77 69 6e 64 6f 77 25 2c  2c 62 6c 6f 63 6b 25 2b  |window%,,block%+|
00000cc0  34 30 0d 02 80 07 cd 3a  e1 0d 02 8a 1d dd a4 42  |40.....:.......B|
00000cd0  28 61 25 2c 62 25 29 3a  e7 61 25 3c 62 25 8c 3d  |(a%,b%):.a%<b%.=|
00000ce0  62 25 8b 3d 61 25 0d 02  94 06 3d 30 0d 02 9e 1d  |b%.=a%....=0....|
00000cf0  dd a4 51 28 61 25 2c 62  25 29 3a e7 61 25 3e 62  |..Q(a%,b%):.a%>b|
00000d00  25 8c 3d 62 25 8b 3d 61  25 0d 02 a8 06 3d 30 0d  |%.=b%.=a%....=0.|
00000d10  02 b2 7f dd f2 6d 5f 3a  ea 44 2c 47 2c 74 2c 6d  |.....m_:.D,G,t,m|
00000d20  3a 44 3d 62 6c 6f 63 6b  25 21 30 3a 47 3d 62 6c  |:D=block%!0:G=bl|
00000d30  6f 63 6b 25 21 34 3a 74  3d 62 6c 6f 63 6b 25 21  |ock%!4:t=block%!|
00000d40  38 3a 6d 3d 62 6c 6f 63  6b 25 21 31 32 3a c8 99  |8:m=block%!12:..|
00000d50  77 69 6d 70 67 65 74 70  6f 69 6e 74 65 72 69 6e  |wimpgetpointerin|
00000d60  66 6f 25 2c 2c 62 6c 6f  63 6b 25 2b 31 30 32 34  |fo%,,block%+1024|
00000d70  3a 62 75 74 25 3d 62 6c  6f 63 6b 25 21 31 30 33  |:but%=block%!103|
00000d80  32 3a c8 8e 6d 65 6e 75  6f 70 65 6e 25 ca 0d 02  |2:..menuopen%...|
00000d90  bc 17 c9 30 3a f2 59 79  28 62 6c 6f 63 6b 25 2c  |...0:.Yy(block%,|
00000da0  62 75 74 25 29 0d 02 c6  17 c9 31 3a f2 43 79 28  |but%).....1:.Cy(|
00000db0  62 6c 6f 63 6b 25 2c 62  75 74 25 29 0d 02 d0 0a  |block%,but%)....|
00000dc0  7f 3a c8 8e 44 ca 0d 02  da 19 c9 30 3a f2 59 79  |.:..D......0:.Yy|
00000dd0  28 62 6c 6f 63 6b 25 2b  34 2c 62 75 74 25 29 0d  |(block%+4,but%).|
00000de0  02 e4 0b c9 31 3a c8 8e  47 ca 0d 02 ee 0a c9 31  |....1:..G......1|
00000df0  3a f2 67 5f 0d 02 f8 0a  c9 32 3a f2 43 4a 0d 03  |:.g_.....2:.CJ..|
00000e00  02 0d c9 33 3a f2 50 79  28 b9 29 0d 03 0c 0a c9  |...3:.Py(.).....|
00000e10  34 3a f2 41 4a 0d 03 16  0a c9 35 3a f2 5f 5f 0d  |4:.AJ.....5:.__.|
00000e20  03 20 0a c9 37 3a f2 4a  5f 0d 03 2a 0a c9 38 3a  |. ..7:.J_..*..8:|
00000e30  f2 55 5f 0d 03 34 0a c9  39 3a f2 4d 4a 0d 03 3e  |.U_..4..9:.MJ..>|
00000e40  0b c9 31 30 3a f2 50 4a  0d 03 48 0b c9 31 31 3a  |..10:.PJ..H..11:|
00000e50  f2 44 5f 0d 03 52 0b c9  31 32 3a f2 43 5f 0d 03  |.D_..R..12:.C_..|
00000e60  5c 0b c9 31 33 3a f2 51  5f 0d 03 66 0b c9 31 34  |\..13:.Q_..f..14|
00000e70  3a f2 4b 5f 0d 03 70 0b  c9 31 35 3a f2 65 79 0d  |:.K_..p..15:.ey.|
00000e80  03 7a 05 cb 0d 03 84 0c  c9 32 3a f2 65 28 31 29  |.z.......2:.e(1)|
00000e90  0d 03 8e 0c c9 33 3a f2  65 28 30 29 0d 03 98 0b  |.....3:.e(0)....|
00000ea0  c9 34 3a c8 8e 47 ca 0d  03 a2 24 c9 30 3a 66 69  |.4:..G....$.0:fi|
00000eb0  6c 65 72 6f 70 74 69 6f  6e 73 25 3d 66 69 6c 65  |leroptions%=file|
00000ec0  72 6f 70 74 69 6f 6e 73  25 82 32 0d 03 ac 24 c9  |roptions%.2...$.|
00000ed0  31 3a 66 69 6c 65 72 6f  70 74 69 6f 6e 73 25 3d  |1:fileroptions%=|
00000ee0  66 69 6c 65 72 6f 70 74  69 6f 6e 73 25 82 31 0d  |fileroptions%.1.|
00000ef0  03 b6 24 c9 32 3a 66 69  6c 65 72 6f 70 74 69 6f  |..$.2:fileroptio|
00000f00  6e 73 25 3d 66 69 6c 65  72 6f 70 74 69 6f 6e 73  |ns%=fileroptions|
00000f10  25 82 34 0d 03 c0 24 c9  33 3a 66 69 6c 65 72 6f  |%.4...$.3:filero|
00000f20  70 74 69 6f 6e 73 25 3d  66 69 6c 65 72 6f 70 74  |ptions%=fileropt|
00000f30  69 6f 6e 73 25 82 38 0d  03 ca 09 cb 3a f2 42 4a  |ions%.8.....:.BJ|
00000f40  0d 03 d4 11 c9 35 3a e7  47 3c 3e 2d 31 8c f2 5a  |.....5:.G<>-1..Z|
00000f50  5f 0d 03 de 0a c9 36 3a  f2 5a 79 0d 03 e8 05 cb  |_.....6:.Zy.....|
00000f60  0d 03 f2 12 cb 3a e7 28  62 75 74 25 80 31 29 3d  |.....:.(but%.1)=|
00000f70  31 8c 0d 03 fc 15 f2 48  28 a3 2c 6d 65 6e 75 6f  |1......H(.,menuo|
00000f80  70 65 6e 25 2c a3 29 0d  04 06 07 cd 3a e1 0d 04  |pen%,.).....:...|
00000f90  10 2f dd f2 59 79 28 62  6c 6b 25 2c 62 75 74 25  |./..Yy(blk%,but%|
00000fa0  29 3a ea 44 2c 47 3a 44  3d 62 6c 6b 25 21 30 3a  |):.D,G:D=blk%!0:|
00000fb0  47 3d 62 6c 6b 25 21 34  3a c8 8e 44 ca 0d 04 1a  |G=blk%!4:..D....|
00000fc0  0b c9 31 3a c8 8e 47 ca  0d 04 24 0a c9 30 3a f2  |..1:..G...$..0:.|
00000fd0  6e 5f 0d 04 2e 0a c9 31  3a f2 59 5f 0d 04 38 0a  |n_.....1:.Y_..8.|
00000fe0  c9 32 3a f2 57 4a 0d 04  42 05 cb 0d 04 4c 0b c9  |.2:.WJ..B....L..|
00000ff0  32 3a c8 8e 47 ca 0d 04  56 0a c9 30 3a f2 77 79  |2:..G...V..0:.wy|
00001000  0d 04 60 0a c9 31 3a f2  54 79 0d 04 6a 09 c9 32  |..`..1:.Ty..j..2|
00001010  3a f2 6a 0d 04 74 05 cb  0d 04 7e 17 c9 33 3a f2  |:.j..t....~..3:.|
00001020  43 79 28 62 6c 6b 25 2b  34 2c 62 75 74 25 29 0d  |Cy(blk%+4,but%).|
00001030  04 88 19 c9 34 3a e7 47  3c 3e 2d 31 8c f2 64 5f  |....4:.G<>-1..d_|
00001040  28 62 6c 6b 25 2b 34 29  0d 04 92 0a c9 35 3a f2  |(blk%+4).....5:.|
00001050  4a 79 0d 04 9c 0a c9 36  3a f2 56 79 0d 04 a6 13  |Jy.....6:.Vy....|
00001060  c9 37 3a 63 6c 6f 73 65  64 6f 77 6e 25 3d b9 0d  |.7:closedown%=..|
00001070  04 b0 07 cb 3a e1 0d 04  ba 1c dd f2 43 79 28 62  |....:.......Cy(b|
00001080  6c 6b 25 2c 62 75 74 25  29 3a c8 8e 21 62 6c 6b  |lk%,but%):..!blk|
00001090  25 ca 0d 04 c4 0a c9 30  3a f2 71 5f 0d 04 ce 0a  |%......0:.q_....|
000010a0  c9 31 3a f2 69 79 0d 04  d8 0a c9 32 3a f2 57 79  |.1:.iy.....2:.Wy|
000010b0  0d 04 e2 0a c9 33 3a f2  4e 79 0d 04 ec 07 cb 3a  |.....3:.Ny.....:|
000010c0  e1 0d 04 f6 4e dd f2 50  4a 3a ea 6c 25 2c 6f 6e  |....N..PJ:.l%,on|
000010d0  25 3a 6f 6e 25 3d 2d 31  3a e3 6c 25 3d 30 b8 21  |%:on%=-1:.l%=0.!|
000010e0  6e 6f 61 70 70 73 25 3a  e7 73 65 6c 65 63 74 25  |noapps%:.select%|
000010f0  3f 6c 25 3d 31 80 6f 6e  25 3d 2d 31 8c 6f 6e 25  |?l%=1.on%=-1.on%|
00001100  3d 31 2d 64 72 61 67 6f  6e 74 6f 25 3f 6c 25 0d  |=1-dragonto%?l%.|
00001110  05 00 33 ed 3a e3 6c 25  3d 30 b8 21 6e 6f 61 70  |..3.:.l%=0.!noap|
00001120  70 73 25 3a e7 73 65 6c  65 63 74 25 3f 6c 25 3d  |ps%:.select%?l%=|
00001130  31 8c 64 72 61 67 6f 6e  74 6f 25 3f 6c 25 3d 6f  |1.dragonto%?l%=o|
00001140  6e 25 0d 05 0a 07 ed 3a  e1 0d 05 14 32 dd f2 42  |n%.....:....2..B|
00001150  5f 3a c8 99 77 69 6d 70  64 72 61 67 62 6f 78 25  |_:..wimpdragbox%|
00001160  2c 2c 30 3a 21 62 6c 6f  63 6b 25 3d 9f 3a 65 72  |,,0:!block%=.:er|
00001170  72 6f 72 25 3d b9 3a c8  8e 9f ca 0d 05 1e 63 7f  |ror%=.:.......c.|
00001180  3a f2 5a 28 22 28 49 6e  74 65 72 6e 61 6c 20 45  |:.Z("(Internal E|
00001190  72 72 6f 72 20 63 6f 64  65 20 22 2b c3 28 9e 29  |rror code "+.(.)|
000011a0  2b 22 29 20 22 2b f6 24  2b 22 20 28 4f 4b 20 74  |+") "+.$+" (OK t|
000011b0  6f 20 63 6f 6e 74 69 6e  75 65 2c 20 43 61 6e 63  |o continue, Canc|
000011c0  65 6c 20 74 6f 20 71 75  69 74 20 70 72 6f 67 72  |el to quit progr|
000011d0  61 6d 29 22 2c 62 6c 6f  63 6b 25 2b 34 29 0d 05  |am)",block%+4)..|
000011e0  28 41 cb 3a c8 99 77 69  6d 70 65 72 72 25 2c 62  |(A.:..wimperr%,b|
000011f0  6c 6f 63 6b 25 2c 33 2c  22 4c 61 72 67 65 72 22  |lock%,3,"Larger"|
00001200  b8 2c 65 72 72 6f 72 25  3a e7 65 72 72 6f 72 25  |.,error%:.error%|
00001210  3d 32 8c 63 6c 6f 73 65  64 6f 77 6e 25 3d b9 0d  |=2.closedown%=..|
00001220  05 32 05 e1 0d 05 3c 3d  dd a4 41 28 61 64 64 25  |.2....<=..A(add%|
00001230  29 3a ea 55 24 3a 55 24  3d 22 22 3a c8 95 3f 61  |):.U$:U$="":..?a|
00001240  64 64 25 3e 33 31 3a 55  24 2b 3d bd 28 3f 61 64  |dd%>31:U$+=.(?ad|
00001250  64 25 29 3a 61 64 64 25  2b 3d 31 3a ce 3a 3d 55  |d%):add%+=1:.:=U|
00001260  24 0d 05 46 26 dd a4 61  28 61 64 64 25 29 3a ea  |$..F&..a(add%):.|
00001270  55 24 3a 55 24 3d 22 22  3a c8 95 3f 61 64 64 25  |U$:U$="":..?add%|
00001280  3e 30 3a c8 8e b9 ca 0d  05 50 2b c9 3f 61 64 64  |>0:......P+.?add|
00001290  25 3c 33 32 3a 55 24 2b  3d 22 7c 22 2b bd 28 28  |%<32:U$+="|"+.((|
000012a0  3f 61 64 64 25 29 2b 36  34 29 3a 61 64 64 25 2b  |?add%)+64):add%+|
000012b0  3d 31 0d 05 5a 22 c9 3f  61 64 64 25 3d 97 22 22  |=1..Z".?add%=.""|
000012c0  22 22 3a 55 24 2b 3d 22  7c 22 22 22 3a 61 64 64  |"":U$+="|""":add|
000012d0  25 2b 3d 31 0d 05 64 20  c9 3f 61 64 64 25 3d 97  |%+=1..d .?add%=.|
000012e0  22 7c 22 3a 55 24 2b 3d  22 7c 7c 22 3a 61 64 64  |"|":U$+="||":add|
000012f0  25 2b 3d 31 0d 05 6e 1a  7f 3a 55 24 2b 3d bd 28  |%+=1..n..:U$+=.(|
00001300  3f 61 64 64 25 29 3a 61  64 64 25 2b 3d 31 0d 05  |?add%):add%+=1..|
00001310  78 0b cb 3a ce 3a 3d 55  24 0d 05 82 67 dd f2 49  |x..:.:=U$...g..I|
00001320  79 28 f8 66 69 6e 64 78  25 2c f8 66 69 6e 64 79  |y(.findx%,.findy|
00001330  25 2c f8 66 69 6e 64 6e  6f 6e 65 66 6c 61 67 25  |%,.findnoneflag%|
00001340  29 3a c8 99 26 34 34 36  63 62 2c 46 2c 2c 66 69  |):..&446cb,F,,fi|
00001350  6e 64 6e 6f 6e 65 66 6c  61 67 25 2c 62 6c 6f 63  |ndnoneflag%,bloc|
00001360  6b 25 b8 66 69 6e 64 78  25 2c 66 69 6e 64 79 25  |k%.findx%,findy%|
00001370  2c 66 69 6e 64 6e 6f 6e  65 66 6c 61 67 25 3a e1  |,findnoneflag%:.|
00001380  0d 05 8c 34 dd f2 78 5f  28 f8 66 69 6e 64 78 25  |...4..x_(.findx%|
00001390  2c f8 66 69 6e 64 79 25  29 3a c8 99 26 34 34 36  |,.findy%):..&446|
000013a0  63 37 2c 46 b8 66 69 6e  64 78 25 2c 66 69 6e 64  |c7,F.findx%,find|
000013b0  79 25 3a e1 0d 05 96 34  dd f2 76 79 28 f8 66 69  |y%:....4..vy(.fi|
000013c0  6e 64 78 25 2c f8 66 69  6e 64 79 25 29 3a c8 99  |ndx%,.findy%):..|
000013d0  26 34 34 36 63 38 2c 46  b8 66 69 6e 64 78 25 2c  |&446c8,F.findx%,|
000013e0  66 69 6e 64 79 25 3a e1  0d 05 a0 34 dd f2 47 5f  |findy%:....4..G_|
000013f0  28 f8 66 69 6e 64 78 25  2c f8 66 69 6e 64 79 25  |(.findx%,.findy%|
00001400  29 3a c8 99 26 34 34 36  63 39 2c 46 b8 66 69 6e  |):..&446c9,F.fin|
00001410  64 78 25 2c 66 69 6e 64  79 25 3a e1 0d 05 aa 34  |dx%,findy%:....4|
00001420  dd f2 63 79 28 f8 66 69  6e 64 78 25 2c f8 66 69  |..cy(.findx%,.fi|
00001430  6e 64 79 25 29 3a c8 99  26 34 34 36 63 61 2c 46  |ndy%):..&446ca,F|
00001440  b8 66 69 6e 64 78 25 2c  66 69 6e 64 79 25 3a e1  |.findx%,findy%:.|
00001450  0d 05 b4 3e dd f2 55 3a  c8 99 77 69 6d 70 66 6f  |...>..U:..wimpfo|
00001460  72 63 65 72 65 64 72 61  77 25 2c 62 61 63 6b 67  |rceredraw%,backg|
00001470  25 2c 30 2c 30 2c 21 78  6d 61 78 25 2b 21 78 70  |%,0,0,!xmax%+!xp|
00001480  69 78 25 2a 32 2c 21 79  6d 61 78 25 3a e1 0d 05  |ix%*2,!ymax%:...|
00001490  be a9 dd f2 53 28 78 25  2c 79 25 29 3a c8 99 77  |....S(x%,y%):..w|
000014a0  69 6d 70 66 6f 72 63 65  72 65 64 72 61 77 25 2c  |impforceredraw%,|
000014b0  62 61 63 6b 67 25 2c 78  25 2a 21 78 70 69 78 25  |backg%,x%*!xpix%|
000014c0  2a 38 30 2a 21 78 6d 75  6c 74 25 2f 21 78 64 69  |*80*!xmult%/!xdi|
000014d0  76 25 2c 79 25 2a 33 32  2a 21 79 70 69 78 25 2a  |v%,y%*32*!ypix%*|
000014e0  21 79 6d 75 6c 74 25 2f  21 79 64 69 76 25 2c 28  |!ymult%/!ydiv%,(|
000014f0  78 25 2b 31 29 2a 38 30  2a 21 78 70 69 78 25 2a  |x%+1)*80*!xpix%*|
00001500  21 78 6d 75 6c 74 25 2f  21 78 64 69 76 25 2b 21  |!xmult%/!xdiv%+!|
00001510  78 70 69 78 25 2c 28 79  25 2b 31 29 2a 33 32 2a  |xpix%,(y%+1)*32*|
00001520  21 79 70 69 78 25 2a 21  79 6d 75 6c 74 25 2f 21  |!ypix%*!ymult%/!|
00001530  79 64 69 76 25 3a e1 0d  05 c8 29 dd f2 44 4a 28  |ydiv%:....)..DJ(|
00001540  42 24 29 3a f2 4f 28 22  57 49 50 45 20 22 2b 42  |B$):.O("WIPE "+B|
00001550  24 2b 22 20 7e 43 20 46  52 20 7e 56 22 29 3a e1  |$+" ~C FR ~V"):.|
00001560  0d 05 d2 22 dd f2 44 5f  3a ea 53 24 2c 70 25 2c  |..."..D_:.S$,p%,|
00001570  6f 62 6a 25 3a e7 21 6e  6f 61 70 70 73 25 3e 2d  |obj%:.!noapps%>-|
00001580  31 8c 0d 05 dc 25 e3 6f  62 6a 25 3d 30 b8 21 6e  |1....%.obj%=0.!n|
00001590  6f 61 70 70 73 25 3a e7  73 65 6c 65 63 74 25 3f  |oapps%:.select%?|
000015a0  6f 62 6a 25 3d 31 8c 0d  05 e6 1c 53 24 3d a4 46  |obj%=1.....S$=.F|
000015b0  28 41 24 28 6f 62 6a 25  29 29 3a e7 53 24 3c 3e  |(A$(obj%)):.S$<>|
000015c0  22 22 8c 0d 05 f0 1b f2  4f 28 22 46 69 6c 65 72  |""......O("Filer|
000015d0  5f 4f 70 65 6e 44 69 72  20 22 2b 53 24 29 0d 05  |_OpenDir "+S$)..|
000015e0  fa 05 cd 0d 06 04 07 cd  3a ed 0d 06 0e 07 cd 3a  |........:......:|
000015f0  e1 0d 06 18 14 dd f2 4f  28 41 79 24 29 3a ea 85  |.......O(Ay$):..|
00001600  3a ee 85 ea e1 0d 06 22  0f ff 28 41 79 24 29 3a  |:......"..(Ay$):|
00001610  f7 85 3a e1 0d 06 2c 2d  dd f2 67 79 3a ea 63 6f  |..:...,-..gy:.co|
00001620  64 65 25 2c 66 6c 61 67  25 2c 6c 25 3a 63 6f 64  |de%,flag%,l%:cod|
00001630  65 25 3d 62 6c 6f 63 6b  25 21 32 34 3a c8 8e b9  |e%=block%!24:...|
00001640  ca 0d 06 36 31 c9 21 62  6c 6f 63 6b 25 3d 63 6f  |...61.!block%=co|
00001650  6e 66 69 67 32 25 84 21  62 6c 6f 63 6b 25 3d 63  |nfig2%.!block%=c|
00001660  6f 6e 66 69 67 25 3a c8  8e 62 6c 6f 63 6b 25 21  |onfig%:..block%!|
00001670  34 ca 0d 06 40 2e c9 35  39 3a 68 69 64 65 74 61  |4...@..59:hideta|
00001680  73 6b 6b 65 79 25 3d a4  53 28 68 69 64 65 74 61  |skkey%=.S(hideta|
00001690  73 6b 6b 65 79 25 2c 63  6f 64 65 25 2c 35 39 29  |skkey%,code%,59)|
000016a0  0d 06 4a 2a c9 36 30 3a  73 65 74 63 73 64 6b 65  |..J*.60:setcsdke|
000016b0  79 25 3d a4 53 28 73 65  74 63 73 64 6b 65 79 25  |y%=.S(setcsdkey%|
000016c0  2c 63 6f 64 65 25 2c 36  30 29 0d 06 54 36 c9 36  |,code%,60)..T6.6|
000016d0  31 3a 63 79 63 6c 65 77  69 6e 64 6f 77 73 6b 65  |1:cyclewindowske|
000016e0  79 25 3d a4 53 28 63 79  63 6c 65 77 69 6e 64 6f  |y%=.S(cyclewindo|
000016f0  77 73 6b 65 79 25 2c 63  6f 64 65 25 2c 36 31 29  |wskey%,code%,61)|
00001700  0d 06 5e 32 c9 36 32 3a  63 79 63 6c 65 74 61 73  |..^2.62:cycletas|
00001710  6b 73 6b 65 79 25 3d a4  53 28 63 79 63 6c 65 74  |kskey%=.S(cyclet|
00001720  61 73 6b 73 6b 65 79 25  2c 63 6f 64 65 25 2c 36  |askskey%,code%,6|
00001730  32 29 0d 06 68 36 c9 36  37 3a 62 72 69 6e 67 74  |2)..h6.67:bringt|
00001740  6f 66 72 6f 6e 74 6b 65  79 25 3d a4 53 28 62 72  |ofrontkey%=.S(br|
00001750  69 6e 67 74 6f 66 72 6f  6e 74 6b 65 79 25 2c 63  |ingtofrontkey%,c|
00001760  6f 64 65 25 2c 36 37 29  0d 06 72 30 c9 37 30 3a  |ode%,67)..r0.70:|
00001770  68 6f 74 6b 65 79 68 6f  74 6b 65 79 25 3d a4 53  |hotkeyhotkey%=.S|
00001780  28 68 6f 74 6b 65 79 68  6f 74 6b 65 79 25 2c 63  |(hotkeyhotkey%,c|
00001790  6f 64 65 25 2c 37 30 29  0d 06 7c 10 7f 3a f2 44  |ode%,70)..|..:.D|
000017a0  79 28 63 6f 64 65 25 29  0d 06 86 05 cb 0d 06 90  |y(code%)........|
000017b0  2a c9 21 62 6c 6f 63 6b  25 3d 73 61 76 65 77 69  |*.!block%=savewi|
000017c0  6e 64 6f 77 25 3a e7 63  6f 64 65 25 3d 31 33 8c  |ndow%:.code%=13.|
000017d0  f2 6e 28 30 2c 30 29 0d  06 9a 10 7f 3a f2 44 79  |.n(0,0).....:.Dy|
000017e0  28 63 6f 64 65 25 29 0d  06 a4 07 cb 3a e1 0d 06  |(code%).....:...|
000017f0  ae 14 dd f2 44 79 28 63  6f 64 65 25 29 3a c8 8e  |....Dy(code%):..|
00001800  b9 ca 0d 06 b8 1c c9 63  6f 64 65 25 3d 73 65 74  |.......code%=set|
00001810  63 73 64 6b 65 79 25 3a  f2 58 5f 3a f2 58 0d 06  |csdkey%:.X_:.X..|
00001820  c2 1e c9 63 6f 64 65 25  3d 68 69 64 65 74 61 73  |...code%=hidetas|
00001830  6b 6b 65 79 25 3a f2 4f  5f 3a f2 58 0d 06 cc 22  |kkey%:.O_:.X..."|
00001840  c9 63 6f 64 65 25 3d 63  79 63 6c 65 77 69 6e 64  |.code%=cyclewind|
00001850  6f 77 73 6b 65 79 25 3a  f2 57 79 3a f2 58 0d 06  |owskey%:.Wy:.X..|
00001860  d6 20 c9 63 6f 64 65 25  3d 63 79 63 6c 65 74 61  |. .code%=cycleta|
00001870  73 6b 73 6b 65 79 25 3a  f2 4e 79 3a f2 58 0d 06  |skskey%:.Ny:.X..|
00001880  e0 22 c9 63 6f 64 65 25  3d 62 72 69 6e 67 74 6f  |.".code%=bringto|
00001890  66 72 6f 6e 74 6b 65 79  25 3a f2 6d 79 3a f2 58  |frontkey%:.my:.X|
000018a0  0d 06 ea 1c c9 63 6f 64  65 25 3d 68 6f 74 6b 65  |.....code%=hotke|
000018b0  79 68 6f 74 6b 65 79 25  3a f2 54 5f 0d 06 f4 1b  |yhotkey%:.T_....|
000018c0  7f 3a 66 6c 61 67 25 3d  a3 3a e7 21 6e 6f 61 70  |.:flag%=.:.!noap|
000018d0  70 73 25 3e 2d 31 8c 0d  06 fe 30 e3 6c 25 3d 30  |ps%>-1....0.l%=0|
000018e0  b8 21 6e 6f 61 70 70 73  25 3a e7 68 6f 74 6b 65  |.!noapps%:.hotke|
000018f0  79 73 25 21 28 6c 25 2a  34 29 2d 36 34 2b 31 33  |ys%!(l%*4)-64+13|
00001900  3d 63 6f 64 65 25 8c 0d  07 08 15 66 6c 61 67 25  |=code%.....flag%|
00001910  3d b9 3a f2 54 28 6c 25  2c 22 22 29 0d 07 12 07  |=.:.T(l%,"")....|
00001920  cd 3a ed 0d 07 1c 11 cd  3a f2 58 3a e7 ac 66 6c  |.:......:.X:..fl|
00001930  61 67 25 8c 0d 07 26 1b  c8 99 77 69 6d 70 70 72  |ag%...&...wimppr|
00001940  6f 63 65 73 73 6b 65 79  25 2c 63 6f 64 65 25 0d  |ocesskey%,code%.|
00001950  07 30 05 cd 0d 07 3a 07  cb 3a e1 0d 07 44 1a dd  |.0....:..:...D..|
00001960  f2 58 3a e7 67 72 61 62  62 69 6e 67 68 6f 74 6b  |.X:.grabbinghotk|
00001970  65 79 73 25 8c 0d 07 4e  75 c8 99 26 34 30 30 64  |eys%...Nu..&400d|
00001980  32 2c 21 63 61 72 65 74  62 6c 6f 63 6b 25 2c 63  |2,!caretblock%,c|
00001990  61 72 65 74 62 6c 6f 63  6b 25 21 34 2c 63 61 72  |aretblock%!4,car|
000019a0  65 74 62 6c 6f 63 6b 25  21 38 2c 63 61 72 65 74  |etblock%!8,caret|
000019b0  62 6c 6f 63 6b 25 21 31  32 2c 63 61 72 65 74 62  |block%!12,caretb|
000019c0  6c 6f 63 6b 25 21 31 36  2c 63 61 72 65 74 62 6c  |lock%!16,caretbl|
000019d0  6f 63 6b 25 21 32 30 3a  67 72 61 62 62 69 6e 67  |ock%!20:grabbing|
000019e0  68 6f 74 6b 65 79 73 25  3d a3 0d 07 58 07 cd 3a  |hotkeys%=...X..:|
000019f0  e1 0d 07 62 36 dd a4 53  28 6f 6c 64 63 6f 64 65  |...b6..S(oldcode|
00001a00  25 2c 63 6f 64 65 25 2c  69 63 6e 75 6d 25 29 3a  |%,code%,icnum%):|
00001a10  ea 41 24 2c 70 6f 73 25  2c 61 6c 74 25 2c 61 6e  |.A$,pos%,alt%,an|
00001a20  73 25 3a c8 8e b9 ca 0d  07 6c 31 c9 63 6f 64 65  |s%:......l1.code|
00001a30  25 3d 36 35 35 33 35 84  63 6f 64 65 25 3d 31 32  |%=65535.code%=12|
00001a40  37 3a 63 6f 64 65 25 3d  31 32 37 3a 41 24 3d 22  |7:code%=127:A$="|
00001a50  4e 6f 74 20 53 65 74 22  0d 07 76 19 c9 63 6f 64  |Not Set"..v..cod|
00001a60  65 25 3d 32 37 3a 41 24  3d 22 45 73 63 61 70 65  |e%=27:A$="Escape|
00001a70  22 0d 07 80 17 c9 63 6f  64 65 25 3d 33 30 3a 41  |".....code%=30:A|
00001a80  24 3d 22 48 6f 6d 65 22  0d 07 8a 1b c9 63 6f 64  |$="Home".....cod|
00001a90  65 25 3d 38 3a 41 24 3d  22 42 61 63 6b 53 70 61  |e%=8:A$="BackSpa|
00001aa0  63 65 22 0d 07 94 38 c9  63 6f 64 65 25 3e 3d 30  |ce"...8.code%>=0|
00001ab0  80 63 6f 64 65 25 3c 3d  33 31 80 63 6f 64 65 25  |.code%<=31.code%|
00001ac0  3c 3e 31 33 3a 41 24 3d  22 43 74 72 6c 2d 22 2b  |<>13:A$="Ctrl-"+|
00001ad0  bd 28 63 6f 64 65 25 2b  36 34 29 0d 07 9e 41 c9  |.(code%+64)...A.|
00001ae0  28 63 6f 64 65 25 3e 3d  33 38 34 80 63 6f 64 65  |(code%>=384.code|
00001af0  25 3c 3d 33 39 35 29 84  28 63 6f 64 65 25 3e 3d  |%<=395).(code%>=|
00001b00  34 35 38 80 63 6f 64 65  25 3c 3d 34 36 31 29 3a  |458.code%<=461):|
00001b10  41 24 3d a4 49 28 63 6f  64 65 25 29 0d 07 a8 4d  |A$=.I(code%)...M|
00001b20  c9 28 63 6f 64 65 25 3e  3d 34 30 30 80 63 6f 64  |.(code%>=400.cod|
00001b30  65 25 3c 3d 34 31 35 29  84 28 63 6f 64 65 25 3e  |e%<=415).(code%>|
00001b40  3d 34 37 34 80 63 6f 64  65 25 3c 3d 34 37 37 29  |=474.code%<=477)|
00001b50  3a 41 24 3d 22 53 68 69  66 74 2d 22 2b a4 49 28  |:A$="Shift-"+.I(|
00001b60  63 6f 64 65 25 2d 31 36  29 0d 07 b2 4c c9 28 63  |code%-16)...L.(c|
00001b70  6f 64 65 25 3e 3d 34 31  36 80 63 6f 64 65 25 3c  |ode%>=416.code%<|
00001b80  3d 34 33 31 29 84 28 63  6f 64 65 25 3e 3d 34 39  |=431).(code%>=49|
00001b90  30 80 63 6f 64 65 25 3c  3d 34 39 33 29 3a 41 24  |0.code%<=493):A$|
00001ba0  3d 22 43 74 72 6c 2d 22  2b a4 49 28 63 6f 64 65  |="Ctrl-"+.I(code|
00001bb0  25 2d 33 32 29 0d 07 bc  52 c9 28 63 6f 64 65 25  |%-32)...R.(code%|
00001bc0  3e 3d 34 33 32 80 63 6f  64 65 25 3c 3d 34 34 37  |>=432.code%<=447|
00001bd0  29 84 28 63 6f 64 65 25  3e 3d 35 30 36 80 63 6f  |).(code%>=506.co|
00001be0  64 65 25 3c 3d 35 30 39  29 3a 41 24 3d 22 43 74  |de%<=509):A$="Ct|
00001bf0  72 6c 2d 53 68 69 66 74  2d 22 2b a4 49 28 63 6f  |rl-Shift-"+.I(co|
00001c00  64 65 25 2d 34 38 29 0d  07 c6 28 cb 3a 70 6f 73  |de%-48)...(.:pos|
00001c10  25 3d a7 41 24 2c 22 53  68 69 66 74 2d 22 2b bd  |%=.A$,"Shift-"+.|
00001c20  28 31 33 39 29 29 3a e7  70 6f 73 25 3e 30 8c 0d  |(139)):.pos%>0..|
00001c30  07 d0 1c 41 24 3d c0 41  24 2c 70 6f 73 25 2d 31  |...A$=.A$,pos%-1|
00001c40  29 2b 22 50 61 67 65 20  55 70 22 0d 07 da 28 cd  |)+"Page Up"...(.|
00001c50  3a 70 6f 73 25 3d a7 41  24 2c 22 53 68 69 66 74  |:pos%=.A$,"Shift|
00001c60  2d 22 2b bd 28 31 33 38  29 29 3a e7 70 6f 73 25  |-"+.(138)):.pos%|
00001c70  3e 30 8c 0d 07 e4 1e 41  24 3d c0 41 24 2c 70 6f  |>0.....A$=.A$,po|
00001c80  73 25 2d 31 29 2b 22 50  61 67 65 20 44 6f 77 6e  |s%-1)+"Page Down|
00001c90  22 0d 07 ee 0e cd 3a e7  a9 41 24 3e 31 34 8c 0d  |".....:..A$>14..|
00001ca0  07 f8 3c 70 6f 73 25 3d  a7 41 24 2c 22 53 68 69  |..<pos%=.A$,"Shi|
00001cb0  66 74 22 29 3a e7 70 6f  73 25 3e 30 8c 41 24 3d  |ft"):.pos%>0.A$=|
00001cc0  c0 41 24 2c 70 6f 73 25  2d 31 29 2b 22 53 22 2b  |.A$,pos%-1)+"S"+|
00001cd0  c1 41 24 2c 70 6f 73 25  2b 35 29 0d 08 02 0e cd  |.A$,pos%+5).....|
00001ce0  3a e7 a9 41 24 3e 31 34  8c 0d 08 0c 3b 70 6f 73  |:..A$>14....;pos|
00001cf0  25 3d a7 41 24 2c 22 43  74 72 6c 22 29 3a e7 70  |%=.A$,"Ctrl"):.p|
00001d00  6f 73 25 3e 30 8c 41 24  3d c0 41 24 2c 70 6f 73  |os%>0.A$=.A$,pos|
00001d10  25 2d 31 29 2b 22 43 22  2b c1 41 24 2c 70 6f 73  |%-1)+"C"+.A$,pos|
00001d20  25 2b 34 29 0d 08 16 1c  cd 3a e7 41 24 3d 22 22  |%+4).....:.A$=""|
00001d30  84 a7 41 24 2c 22 42 6f  67 75 73 22 29 3e 30 8c  |..A$,"Bogus")>0.|
00001d40  0d 08 20 11 61 6e 73 25  3d 6f 6c 64 63 6f 64 65  |.. .ans%=oldcode|
00001d50  25 0d 08 2a 1e cc 3a f2  49 28 69 63 6e 75 6d 25  |%..*..:.I(icnum%|
00001d60  2c 41 24 29 3a 61 6e 73  25 3d 63 6f 64 65 25 0d  |,A$):ans%=code%.|
00001d70  08 34 0b cd 3a 3d 61 6e  73 25 0d 08 3e 1b dd a4  |.4..:=ans%..>...|
00001d80  49 28 63 6f 64 65 25 29  3a ea 52 24 3a c8 8e 63  |I(code%):.R$:..c|
00001d90  6f 64 65 25 ca 0d 08 48  13 c9 33 38 34 3a 52 24  |ode%...H..384:R$|
00001da0  3d 22 50 72 69 6e 74 22  0d 08 52 3c c9 33 38 35  |="Print"..R<.385|
00001db0  2c 33 38 36 2c 33 38 37  2c 33 38 38 2c 33 38 39  |,386,387,388,389|
00001dc0  2c 33 39 30 2c 33 39 31  2c 33 39 32 2c 33 39 33  |,390,391,392,393|
00001dd0  3a 52 24 3d 22 46 22 2b  bd 28 63 6f 64 65 25 2d  |:R$="F"+.(code%-|
00001de0  33 33 36 29 0d 08 5c 11  c9 33 39 34 3a 52 24 3d  |336)..\..394:R$=|
00001df0  22 54 61 62 22 0d 08 66  12 c9 33 39 35 3a 52 24  |"Tab"..f..395:R$|
00001e00  3d 22 43 6f 70 79 22 0d  08 70 24 c9 33 39 36 2c  |="Copy"..p$.396,|
00001e10  33 39 37 2c 33 39 38 2c  33 39 39 3a 52 24 3d bd  |397,398,399:R$=.|
00001e20  28 63 6f 64 65 25 2d 32  36 30 29 0d 08 7a 25 c9  |(code%-260)..z%.|
00001e30  34 35 38 2c 34 35 39 2c  34 36 30 3a 52 24 3d 22  |458,459,460:R$="|
00001e40  46 31 22 2b bd 28 63 6f  64 65 25 2d 34 31 30 29  |F1"+.(code%-410)|
00001e50  0d 08 84 14 c9 34 36 31  3a 52 24 3d 22 49 6e 73  |.....461:R$="Ins|
00001e60  65 72 74 22 0d 08 8e 0f  7f 52 24 3d 22 42 6f 67  |ert".....R$="Bog|
00001e70  75 73 22 0d 08 98 09 cb  3a 3d 52 24 0d 08 a2 26  |us".....:=R$...&|
00001e80  dd f2 54 5f 3a ea 6e 65  78 74 25 3a e7 72 65 74  |..T_:.next%:.ret|
00001e90  75 72 6e 63 61 72 65 74  6e 65 78 74 74 69 6d 65  |urncaretnexttime|
00001ea0  25 8c 0d 08 ac 3a c8 99  77 69 6d 70 70 72 6f 63  |%....:..wimpproc|
00001eb0  65 73 73 6b 65 79 25 2c  68 6f 74 6b 65 79 68 6f  |esskey%,hotkeyho|
00001ec0  74 6b 65 79 25 3a 72 65  74 75 72 6e 63 61 72 65  |tkey%:returncare|
00001ed0  74 6e 65 78 74 74 69 6d  65 25 3d a3 0d 08 b6 18  |tnexttime%=.....|
00001ee0  cc 3a e7 67 72 61 62 62  69 6e 67 68 6f 74 6b 65  |.:.grabbinghotke|
00001ef0  79 73 25 8c 0d 08 c0 5f  f2 58 3a 72 65 74 75 72  |ys%...._.X:retur|
00001f00  6e 63 61 72 65 74 6e 65  78 74 74 69 6d 65 25 3d  |ncaretnexttime%=|
00001f10  b9 3a 63 61 72 65 74 62  6c 6f 63 6b 25 21 32 34  |.:caretblock%!24|
00001f20  3d 68 6f 74 6b 65 79 68  6f 74 6b 65 79 25 3a c8  |=hotkeyhotkey%:.|
00001f30  99 77 69 6d 70 73 6d 25  2c 38 2c 63 61 72 65 74  |.wimpsm%,8,caret|
00001f40  62 6c 6f 63 6b 25 2c 21  63 61 72 65 74 62 6c 6f  |block%,!caretblo|
00001f50  63 6b 25 0d 08 ca 4d cc  3a 67 72 61 62 62 69 6e  |ck%...M.:grabbin|
00001f60  67 68 6f 74 6b 65 79 73  25 3d b9 3a c8 99 26 34  |ghotkeys%=.:..&4|
00001f70  30 30 64 33 2c 2c 63 61  72 65 74 62 6c 6f 63 6b  |00d3,,caretblock|
00001f80  25 3a c8 99 26 34 30 30  64 32 2c 62 61 63 6b 67  |%:..&400d2,backg|
00001f90  25 2c 2d 31 2c 2d 35 30  2c 35 30 2c 33 32 2c 30  |%,-1,-50,50,32,0|
00001fa0  0d 08 d4 05 cd 0d 08 de  07 cd 3a e1 0d 08 e8 30  |..........:....0|
00001fb0  dd f2 58 5f 3a ea 43 24  2c 73 6f 75 72 63 65 25  |..X_:.C$,source%|
00001fc0  2c 57 24 2c 6f 62 6a 65  63 74 74 79 70 65 25 2c  |,W$,objecttype%,|
00001fd0  70 6f 73 25 3a ea 85 3a  ee 85 ea e1 0d 08 f2 5d  |pos%:..:.......]|
00001fe0  c8 99 77 69 6d 70 67 65  74 70 6f 69 6e 74 65 72  |..wimpgetpointer|
00001ff0  69 6e 66 6f 25 2c 2c 62  6c 6f 63 6b 25 3a 21 62  |info%,,block%:!b|
00002000  6c 6f 63 6b 25 3d 62 6c  6f 63 6b 25 21 31 32 3a  |lock%=block%!12:|
00002010  e7 21 62 6c 6f 63 6b 25  3c 3e 62 61 63 6b 67 25  |.!block%<>backg%|
00002020  80 21 62 6c 6f 63 6b 25  3c 3e 2d 31 80 21 62 6c  |.!block%<>-1.!bl|
00002030  6f 63 6b 25 3c 3e 2d 32  8c 0d 08 fc 28 c8 99 77  |ock%<>-2....(..w|
00002040  69 6d 70 67 77 69 25 2c  2c 62 6c 6f 63 6b 25 3a  |impgwi%,,block%:|
00002050  e7 28 62 6c 6f 63 6b 25  21 36 30 80 33 29 3d 31  |.(block%!60.3)=1|
00002060  8c 0d 09 06 19 e7 28 62  6c 6f 63 6b 25 21 36 30  |......(block%!60|
00002070  80 32 35 36 29 3d 32 35  36 8c 0d 09 10 b0 62 6c  |.256)=256.....bl|
00002080  6f 63 6b 25 21 32 35 36  3d 32 30 3a 62 6c 6f 63  |ock%!256=20:bloc|
00002090  6b 25 21 32 36 30 3d 30  3a 62 6c 6f 63 6b 25 21  |k%!260=0:block%!|
000020a0  32 36 34 3d 30 3a 62 6c  6f 63 6b 25 21 32 36 38  |264=0:block%!268|
000020b0  3d 30 3a 62 6c 6f 63 6b  25 21 32 37 32 3d 30 3a  |=0:block%!272=0:|
000020c0  c8 99 77 69 6d 70 73 6d  25 2c 31 39 2c 62 6c 6f  |..wimpsm%,19,blo|
000020d0  63 6b 25 2b 32 35 36 2c  21 62 6c 6f 63 6b 25 b8  |ck%+256,!block%.|
000020e0  2c 2c 73 6f 75 72 63 65  25 3a c8 99 77 69 6d 70  |,,source%:..wimp|
000020f0  74 72 61 6e 73 62 6c 6b  25 2c 73 6f 75 72 63 65  |transblk%,source|
00002100  25 2c 62 6c 6f 63 6b 25  21 37 36 2c 74 61 73 6b  |%,block%!76,task|
00002110  25 2c 62 6c 6f 63 6b 25  2c 32 35 36 3a 43 24 3d  |%,block%,256:C$=|
00002120  a4 41 28 62 6c 6f 63 6b  25 29 0d 09 1a 16 cc 3a  |.A(block%).....:|
00002130  43 24 3d a4 41 28 62 6c  6f 63 6b 25 2b 37 36 29  |C$=.A(block%+76)|
00002140  0d 09 24 3d cd 3a c8 95  c0 43 24 2c 31 29 3d 22  |..$=.:...C$,1)="|
00002150  20 22 3a 43 24 3d c1 43  24 2c 32 29 3a ce 3a e7  | ":C$=.C$,2):.:.|
00002160  a7 43 24 2c 22 20 22 29  3e 30 8c 43 24 3d c0 43  |.C$," ")>0.C$=.C|
00002170  24 2c a7 43 24 2c 22 20  22 29 2d 31 29 0d 09 2e  |$,.C$," ")-1)...|
00002180  4d 57 24 3d 43 24 3a c8  95 a7 57 24 2c 22 2e 22  |MW$=C$:...W$,"."|
00002190  29 3e 30 3a 57 24 3d c1  57 24 2c a7 57 24 2c 22  |)>0:W$=.W$,.W$,"|
000021a0  2e 22 29 2b 31 29 3a ce  3a 43 24 3d c0 43 24 2c  |.")+1):.:C$=.C$,|
000021b0  a9 43 24 2d a9 57 24 2d  31 29 3a e7 43 24 3c 3e  |.C$-.W$-1):.C$<>|
000021c0  22 22 80 57 24 3c 3e 22  22 8c 0d 09 38 4a c8 99  |"".W$<>""...8J..|
000021d0  26 32 30 30 30 38 2c 31  33 2c 57 24 2c 2c 2c 43  |&20008,13,W$,,,C|
000021e0  24 2b 22 2e 22 b8 6f 62  6a 65 63 74 74 79 70 65  |$+".".objecttype|
000021f0  25 3a 70 6f 73 25 3d a7  43 24 2c 22 3a 3a 22 29  |%:pos%=.C$,"::")|
00002200  3a e7 28 6f 62 6a 65 63  74 74 79 70 65 25 80 32  |:.(objecttype%.2|
00002210  29 3d 30 8c 0d 09 42 32  f2 4f 28 22 44 69 72 20  |)=0...B2.O("Dir |
00002220  22 2b 43 24 2b 22 2e 22  2b 57 24 29 3a ef 37 3a  |"+C$+"."+W$):.7:|
00002230  e7 70 6f 73 25 3e 30 8c  ff 28 c0 43 24 2c 70 6f  |.pos%>0..(.C$,po|
00002240  73 25 2d 31 29 29 0d 09  4c 23 cc 3a e7 28 6f 62  |s%-1))..L#.:.(ob|
00002250  6a 65 63 74 74 79 70 65  25 80 32 29 3d 32 8c 43  |jecttype%.2)=2.C|
00002260  24 2b 3d 22 2e 22 2b 57  24 0d 09 56 2b f2 4f 28  |$+="."+W$..V+.O(|
00002270  22 44 69 72 20 22 2b 43  24 29 3a ef 37 3a e7 70  |"Dir "+C$):.7:.p|
00002280  6f 73 25 3e 30 8c ff 28  c0 43 24 2c 70 6f 73 25  |os%>0..(.C$,pos%|
00002290  2d 31 29 29 0d 09 60 05  cd 0d 09 6a 05 cd 0d 09  |-1))..`....j....|
000022a0  74 05 cd 0d 09 7e 0a cd  3a f7 85 3a e1 0d 09 88  |t....~..:..:....|
000022b0  30 dd f2 43 5f 3a 68 6f  74 6b 65 79 73 25 21 28  |0..C_:hotkeys%!(|
000022c0  72 65 6d 6f 76 65 25 2a  34 29 3d 28 3f 68 6f 74  |remove%*4)=(?hot|
000022d0  62 75 66 66 65 72 25 29  2d 31 33 3a e1 0d 09 92  |buffer%)-13:....|
000022e0  2c dd f2 57 79 3a ea 6e  65 78 74 25 3a 6e 65 78  |,..Wy:.next%:nex|
000022f0  74 25 3d a4 4d 28 62 61  63 6b 67 25 29 3a e7 6e  |t%=.M(backg%):.n|
00002300  65 78 74 25 3c 3e 2d 31  8c 0d 09 9c 3a 62 6c 6f  |ext%<>-1....:blo|
00002310  63 6b 25 21 30 3d 6e 65  78 74 25 3a c8 99 77 69  |ck%!0=next%:..wi|
00002320  6d 70 67 77 73 25 2c 2c  62 6c 6f 63 6b 25 3a e7  |mpgws%,,block%:.|
00002330  28 62 6c 6f 63 6b 25 21  33 32 80 33 32 29 3c 3e  |(block%!32.32)<>|
00002340  33 32 8c 0d 09 a6 29 62  6c 6f 63 6b 25 21 32 38  |32....)block%!28|
00002350  3d 2d 31 3a c8 99 77 69  6d 70 73 6d 25 2c 32 2c  |=-1:..wimpsm%,2,|
00002360  62 6c 6f 63 6b 25 2c 6e  65 78 74 25 0d 09 b0 05  |block%,next%....|
00002370  cd 0d 09 ba 07 cd 3a e1  0d 09 c4 a6 dd f2 55 4a  |......:.......UJ|
00002380  3a 21 62 6c 6f 63 6b 25  3d 30 3a 51 24 3d 22 52  |:!block%=0:Q$="R|
00002390  65 61 6c 6c 79 20 43 6c  65 61 72 20 74 68 65 20  |eally Clear the |
000023a0  62 61 63 6b 64 72 6f 70  3f 20 28 4f 4b 20 74 6f  |backdrop? (OK to|
000023b0  20 63 6f 6e 74 69 6e 75  65 2c 20 43 41 4e 43 45  | continue, CANCE|
000023c0  4c 20 74 6f 20 6b 65 65  70 29 22 3a f2 5a 28 51  |L to keep)":.Z(Q|
000023d0  24 2c 62 6c 6f 63 6b 25  2b 34 29 3a 3f 28 62 6c  |$,block%+4):?(bl|
000023e0  6f 63 6b 25 2b 34 2b a9  51 24 29 3d 30 3a c8 99  |ock%+4+.Q$)=0:..|
000023f0  77 69 6d 70 65 72 72 25  2c 62 6c 6f 63 6b 25 2c  |wimperr%,block%,|
00002400  33 31 2c 22 4c 61 72 67  65 72 22 b8 2c 63 6c 69  |31,"Larger".,cli|
00002410  63 6b 25 3a e7 63 6c 69  63 6b 25 3d 31 8c 0d 09  |ck%:.click%=1...|
00002420  ce 34 21 6e 6f 61 70 70  73 25 3d 2d 31 3a 6b 22  |.4!noapps%=-1:k"|
00002430  4c 61 72 67 65 72 53 75  70 70 6f 72 74 5f 52 65  |LargerSupport_Re|
00002440  6f 72 67 61 6e 69 73 65  22 2c 46 3a f2 53 79 3a  |organise",F:.Sy:|
00002450  f2 55 0d 09 d8 07 cd 3a  e1 0d 09 e2 42 dd a4 47  |.U.....:....B..G|
00002460  28 41 24 2c 6e 25 29 3a  c8 95 6e 25 3e 3d 30 3a  |(A$,n%):..n%>=0:|
00002470  41 24 3d c1 41 24 2c a7  41 24 2c 22 3a 22 29 2b  |A$=.A$,.A$,":")+|
00002480  31 29 3a 6e 25 2d 3d 31  3a ce 3a 3d c0 41 24 2c  |1):n%-=1:.:=.A$,|
00002490  a7 41 24 2c 22 3a 22 29  2d 31 29 0d 09 ec f5 dd  |.A$,":")-1).....|
000024a0  f2 75 79 3a ea 6d 78 25  2c 6d 79 25 2c 77 68 61  |.uy:.mx%,my%,wha|
000024b0  6e 64 6c 65 25 2c 69 68  61 6e 64 6c 65 25 2c 6e  |ndle%,ihandle%,n|
000024c0  78 25 2c 6e 79 25 2c 66  6f 75 6e 64 25 2c 48 24  |x%,ny%,found%,H$|
000024d0  2c 6d 79 72 65 66 25 2c  73 65 6e 64 25 2c 4a 24  |,myref%,send%,J$|
000024e0  3a 73 65 6e 64 25 3d 62  6c 6f 63 6b 25 21 34 3a  |:send%=block%!4:|
000024f0  6d 79 72 65 66 25 3d 62  6c 6f 63 6b 25 21 38 3a  |myref%=block%!8:|
00002500  c8 99 77 69 6d 70 67 65  74 70 6f 69 6e 74 65 72  |..wimpgetpointer|
00002510  69 6e 66 6f 25 2c 2c 62  6c 6f 63 6b 25 2b 32 38  |info%,,block%+28|
00002520  3a 6d 78 25 3d 62 6c 6f  63 6b 25 21 32 38 3a 6d  |:mx%=block%!28:m|
00002530  79 25 3d 62 6c 6f 63 6b  25 21 33 32 3a 77 68 61  |y%=block%!32:wha|
00002540  6e 64 6c 65 25 3d 62 6c  6f 63 6b 25 21 34 30 3a  |ndle%=block%!40:|
00002550  69 68 61 6e 64 6c 65 25  3d 62 6c 6f 63 6b 25 21  |ihandle%=block%!|
00002560  33 34 3a 6d 65 73 73 25  3d a3 3a 4a 24 3d 22 22  |34:mess%=.:J$=""|
00002570  3a c8 99 26 34 30 30 66  34 2c 30 2c 62 6c 6f 63  |:..&400f4,0,bloc|
00002580  6b 25 3a e7 21 62 6c 6f  63 6b 25 3c 3e 2d 31 8c  |k%:.!block%<>-1.|
00002590  0d 09 f6 10 c8 8e 6d 65  6e 75 6f 70 65 6e 25 ca  |......menuopen%.|
000025a0  0d 0a 00 12 c9 30 3a f2  7a 79 28 62 6c 6f 63 6b  |.....0:.zy(block|
000025b0  25 29 0d 0a 0a 12 c9 31  3a f2 51 79 28 62 6c 6f  |%).....1:.Qy(blo|
000025c0  63 6b 25 29 0d 0a 14 10  7f 3a c8 8e 21 62 6c 6f  |ck%).....:..!blo|
000025d0  63 6b 25 ca 0d 0a 1e 07  c9 2d 31 0d 0a 28 14 c9  |ck%......-1..(..|
000025e0  30 3a f2 7a 79 28 62 6c  6f 63 6b 25 2b 34 29 0d  |0:.zy(block%+4).|
000025f0  0a 32 12 c9 31 3a c8 8e  62 6c 6f 63 6b 25 21 34  |.2..1:..block%!4|
00002600  ca 0d 0a 3c a0 7f 3a 48  24 3d a4 47 28 22 4d 46  |...<..:H$=.G("MF|
00002610  69 6c 65 3a 4d 43 6f 70  79 3a 4d 52 65 6e 61 6d  |ile:MCopy:MRenam|
00002620  65 3a 4d 41 63 63 65 73  73 3a 4d 43 6f 75 6e 74  |e:MAccess:MCount|
00002630  3a 4d 48 65 6c 70 3a 4d  46 69 6c 65 49 6e 66 6f  |:MHelp:MFileInfo|
00002640  3a 4d 46 69 6e 64 3a 4d  53 65 74 54 79 70 65 3a  |:MFind:MSetType:|
00002650  4d 53 74 61 6d 70 3a 4d  44 72 61 67 4f 6e 74 6f  |MStamp:MDragOnto|
00002660  3a 4d 4f 70 65 6e 50 61  72 65 6e 74 3a 4d 43 74  |:MOpenParent:MCt|
00002670  72 6c 4b 65 79 3a 4d 50  72 65 50 61 72 61 6d 73  |rlKey:MPreParams|
00002680  3a 4d 50 6f 73 74 50 61  72 61 6d 73 3a 4d 52 75  |:MPostParams:MRu|
00002690  6e 57 69 74 68 3a 22 2c  62 6c 6f 63 6b 25 21 34  |nWith:",block%!4|
000026a0  29 0d 0a 46 05 cb 0d 0a  50 42 c9 34 3a 48 24 3d  |)..F....PB.4:H$=|
000026b0  a4 47 28 22 4d 4f 70 74  69 6f 6e 73 3a 4d 43 6f  |.G("MOptions:MCo|
000026c0  6e 66 69 72 6d 3a 4d 56  65 72 62 6f 73 65 3a 4d  |nfirm:MVerbose:M|
000026d0  46 6f 72 63 65 3a 4d 4e  65 77 65 72 3a 22 2c 62  |Force:MNewer:",b|
000026e0  6c 6f 63 6b 25 21 34 29  0d 0a 5a 61 7f 3a 48 24  |lock%!4)..Za.:H$|
000026f0  3d a4 47 28 22 4d 4c 61  72 67 65 72 3a 4d 4c 61  |=.G("MLarger:MLa|
00002700  72 67 65 72 3a 4d 46 69  6c 65 3a 4d 53 65 6c 41  |rger:MFile:MSelA|
00002710  6c 6c 3a 4d 43 6c 65 61  72 53 65 6c 3a 4d 4f 70  |ll:MClearSel:MOp|
00002720  74 69 6f 6e 73 3a 4d 4e  65 77 42 61 63 6b 64 72  |tions:MNewBackdr|
00002730  6f 70 3a 4d 4f 70 65 6e  50 61 72 65 6e 74 3a 22  |op:MOpenParent:"|
00002740  2c 21 62 6c 6f 63 6b 25  29 0d 0a 64 05 cb 0d 0a  |,!block%)..d....|
00002750  6e 2e cb 3a e7 48 24 3c  3e 22 22 8c 4a 24 3d a4  |n..:.H$<>"".J$=.|
00002760  57 28 48 24 2c 22 22 2c  22 22 2c 22 22 2c 22 22  |W(H$,"","","",""|
00002770  29 2b bd 28 31 33 29 2b  bd 28 30 29 0d 0a 78 11  |)+.(13)+.(0)..x.|
00002780  cc 3a c8 8e 77 68 61 6e  64 6c 65 25 ca 0d 0a 82  |.:..whandle%....|
00002790  ab c9 62 61 63 6b 67 25  3a 6e 78 25 3d 6d 78 25  |..backg%:nx%=mx%|
000027a0  81 28 21 78 70 69 78 25  2a 38 30 2a 21 78 6d 75  |.(!xpix%*80*!xmu|
000027b0  6c 74 25 2f 21 78 64 69  76 25 29 3a 6e 79 25 3d  |lt%/!xdiv%):ny%=|
000027c0  28 6d 79 25 2d 21 62 61  72 68 65 69 67 68 74 25  |(my%-!barheight%|
000027d0  29 81 28 21 79 70 69 78  25 2a 33 32 2a 21 79 6d  |).(!ypix%*32*!ym|
000027e0  75 6c 74 25 2f 21 79 64  69 76 25 29 3a 66 6f 75  |ult%/!ydiv%):fou|
000027f0  6e 64 25 3d 2d 31 3a e3  6c 25 3d 30 b8 21 6e 6f  |nd%=-1:.l%=0.!no|
00002800  61 70 70 73 25 3a e7 78  79 30 25 3f 6c 25 3d 6e  |apps%:.xy0%?l%=n|
00002810  78 25 80 78 79 31 25 3f  6c 25 3d 6e 79 25 80 62  |x%.xy1%?l%=ny%.b|
00002820  61 63 6b 64 72 6f 70 25  3f 6c 25 3d 21 41 8c 66  |ackdrop%?l%=!A.f|
00002830  6f 75 6e 64 25 3d 6c 25  0d 0a 8c 11 ed 3a e7 66  |ound%=l%.....:.f|
00002840  6f 75 6e 64 25 3d 2d 31  8c 0d 0a 96 25 4a 24 3d  |ound%=-1....%J$=|
00002850  a4 57 28 22 42 61 72 65  42 61 63 6b 64 72 6f 70  |.W("BareBackdrop|
00002860  22 2c 22 22 2c 22 22 2c  22 22 2c 22 22 29 0d 0a  |","","","","")..|
00002870  a0 15 cc 3a c8 8e 74 79  70 65 25 3f 66 6f 75 6e  |...:..type%?foun|
00002880  64 25 ca 0d 0a aa 46 c9  31 3a 4a 24 3d 22 46 69  |d%....F.1:J$="Fi|
00002890  6c 65 3a 20 22 2b a4 48  28 41 24 28 66 6f 75 6e  |le: "+.H(A$(foun|
000028a0  64 25 29 29 2b 22 7c 4d  22 3a 4a 24 2b 3d a4 57  |d%))+"|M":J$+=.W|
000028b0  28 22 46 69 6c 65 22 2c  22 22 2c 22 22 2c 22 22  |("File","","",""|
000028c0  2c 22 22 29 2b 22 7c 4d  22 0d 0a b4 4f c9 32 3a  |,"")+"|M"...O.2:|
000028d0  4a 24 3d 22 50 61 74 68  6e 61 6d 65 3a 20 22 2b  |J$="Pathname: "+|
000028e0  a4 48 28 41 24 28 66 6f  75 6e 64 25 29 29 2b 22  |.H(A$(found%))+"|
000028f0  7c 4d 22 3a 4a 24 2b 3d  a4 57 28 22 44 69 72 65  ||M":J$+=.W("Dire|
00002900  63 74 6f 72 79 22 2c 22  22 2c 22 22 2c 22 22 2c  |ctory","","","",|
00002910  22 22 29 2b 22 7c 4d 22  0d 0a be 54 c9 33 3a 4a  |"")+"|M"...T.3:J|
00002920  24 3d 22 41 70 70 6c 69  63 61 74 69 6f 6e 3a 20  |$="Application: |
00002930  22 2b a4 48 28 41 24 28  66 6f 75 6e 64 25 29 29  |"+.H(A$(found%))|
00002940  2b 22 7c 4d 22 3a 4a 24  2b 3d a4 57 28 22 41 70  |+"|M":J$+=.W("Ap|
00002950  70 6c 69 63 61 74 69 6f  6e 22 2c 22 22 2c 22 22  |plication","",""|
00002960  2c 22 22 2c 22 22 29 2b  22 7c 4d 22 0d 0a c8 5c  |,"","")+"|M"...\|
00002970  c9 35 3a 4a 24 3d 22 49  63 6f 6e 69 73 65 64 20  |.5:J$="Iconised |
00002980  54 61 73 6b 3a 20 22 2b  a4 41 28 6c 65 61 66 25  |Task: "+.A(leaf%|
00002990  2b 31 32 2a 66 6f 75 6e  64 25 29 2b 22 7c 4d 22  |+12*found%)+"|M"|
000029a0  3a 4a 24 2b 3d a4 57 28  22 49 63 6f 6e 69 73 65  |:J$+=.W("Iconise|
000029b0  64 54 61 73 6b 22 2c 22  22 2c 22 22 2c 22 22 2c  |dTask","","","",|
000029c0  22 22 29 2b 22 7c 4d 22  0d 0a d2 60 c9 36 3a 4a  |"")+"|M"...`.6:J|
000029d0  24 3d 22 49 63 6f 6e 69  73 65 64 20 57 69 6e 64  |$="Iconised Wind|
000029e0  6f 77 3a 20 22 2b a4 41  28 6c 65 61 66 25 2b 31  |ow: "+.A(leaf%+1|
000029f0  32 2a 66 6f 75 6e 64 25  29 2b 22 7c 4d 22 3a 4a  |2*found%)+"|M":J|
00002a00  24 2b 3d a4 57 28 22 49  63 6f 6e 69 73 65 64 57  |$+=.W("IconisedW|
00002a10  69 6e 64 6f 77 22 2c 22  22 2c 22 22 2c 22 22 2c  |indow","","","",|
00002a20  22 22 29 2b 22 7c 4d 22  0d 0a dc 53 c9 37 3a 4a  |"")+"|M"...S.7:J|
00002a30  24 3d 22 42 61 63 6b 64  72 6f 70 3a 20 22 2b a4  |$="Backdrop: "+.|
00002a40  41 28 6c 65 61 66 25 2b  31 32 2a 66 6f 75 6e 64  |A(leaf%+12*found|
00002a50  25 29 2b 22 7c 4d 22 3a  4a 24 2b 3d a4 57 28 22  |%)+"|M":J$+=.W("|
00002a60  42 61 63 6b 64 72 6f 70  22 2c 22 22 2c 22 22 2c  |Backdrop","","",|
00002a70  22 22 2c 22 22 29 2b 22  7c 4d 22 0d 0a e6 29 7f  |"","")+"|M"...).|
00002a80  3a 4a 24 3d 22 50 61 74  68 6e 61 6d 65 3a 20 22  |:J$="Pathname: "|
00002a90  2b a4 48 28 41 24 28 66  6f 75 6e 64 25 29 29 2b  |+.H(A$(found%))+|
00002aa0  22 7c 4d 22 0d 0a f0 35  cb 3a e7 68 6f 74 6b 65  |"|M"...5.:.hotke|
00002ab0  79 73 25 21 28 66 6f 75  6e 64 25 2a 34 29 3d 2d  |ys%!(found%*4)=-|
00002ac0  31 33 84 68 6f 74 6b 65  79 73 25 21 28 66 6f 75  |13.hotkeys%!(fou|
00002ad0  6e 64 25 2a 34 29 3d 30  8c 0d 0a fa 1b 4a 24 2b  |nd%*4)=0.....J$+|
00002ae0  3d 22 4e 6f 20 43 74 72  6c 20 4b 65 79 20 53 65  |="No Ctrl Key Se|
00002af0  74 7c 4d 22 0d 0b 04 35  cc 3a 4a 24 2b 3d 22 43  |t|M"...5.:J$+="C|
00002b00  74 72 6c 20 4b 65 79 3a  20 22 2b bd 28 68 6f 74  |trl Key: "+.(hot|
00002b10  6b 65 79 73 25 21 28 66  6f 75 6e 64 25 2a 34 29  |keys%!(found%*4)|
00002b20  2b 31 33 29 2b 22 7c 4d  22 0d 0b 0e 1a cd 3a e7  |+13)+"|M".....:.|
00002b30  64 72 61 67 6f 6e 74 6f  25 3f 66 6f 75 6e 64 25  |dragonto%?found%|
00002b40  3d 31 8c 0d 0b 18 19 4a  24 2b 3d 22 44 72 61 67  |=1.....J$+="Drag|
00002b50  20 4f 6e 74 6f 20 53 65  74 7c 4d 22 0d 0b 22 1f  | Onto Set|M"..".|
00002b60  cc 3a 4a 24 2b 3d 22 44  72 61 67 20 4f 6e 74 6f  |.:J$+="Drag Onto|
00002b70  20 4e 6f 74 20 53 65 74  7c 4d 22 0d 0b 2c 05 cd  | Not Set|M"..,..|
00002b80  0d 0b 36 05 cd 0d 0b 40  05 cb 0d 0b 4a 15 cd 3a  |..6....@....J..:|
00002b90  e7 48 24 3c 3e 22 22 84  4a 24 3c 3e 22 22 8c 0d  |.H$<>"".J$<>""..|
00002ba0  0b 54 65 62 6c 6f 63 6b  25 21 31 32 3d 6d 79 72  |.Teblock%!12=myr|
00002bb0  65 66 25 3a 62 6c 6f 63  6b 25 21 31 36 3d 31 32  |ef%:block%!16=12|
00002bc0  38 33 3a f2 5a 28 4a 24  2c 62 6c 6f 63 6b 25 2b  |83:.Z(J$,block%+|
00002bd0  32 30 29 3a 21 62 6c 6f  63 6b 25 3d 32 34 2b 28  |20):!block%=24+(|
00002be0  a9 28 4a 24 29 81 34 29  2a 34 3a c8 99 77 69 6d  |.(J$).4)*4:..wim|
00002bf0  70 73 6d 25 2c 31 37 2c  62 6c 6f 63 6b 25 2c 73  |psm%,17,block%,s|
00002c00  65 6e 64 25 0d 0b 5e 07  cd 3a e1 0d 0b 68 18 dd  |end%..^..:...h..|
00002c10  a4 48 28 74 24 29 3a ea  55 24 3a e7 a9 74 24 3e  |.H(t$):.U$:..t$>|
00002c20  36 30 8c 0d 0b 72 14 55  24 3d c0 74 24 2c 35 37  |60...r.U$=.t$,57|
00002c30  29 2b 22 2e 2e 2e 22 0d  0b 7c 0b cc 3a 55 24 3d  |)+"..."..|..:U$=|
00002c40  74 24 0d 0b 86 09 cd 3a  3d 55 24 0d 0b 90 1b dd  |t$.....:=U$.....|
00002c50  f2 7a 79 28 62 6c 6f 63  6b 25 29 3a c8 8e 21 62  |.zy(block%):..!b|
00002c60  6c 6f 63 6b 25 ca 0d 0b  9a 42 c9 31 3a 48 24 3d  |lock%....B.1:H$=|
00002c70  a4 47 28 22 4d 53 61 76  65 3a 4d 53 61 76 65 42  |.G("MSave:MSaveB|
00002c80  61 63 6b 3a 4d 53 61 76  65 53 79 73 56 61 72 3a  |ack:MSaveSysVar:|
00002c90  4d 53 61 76 65 53 70 72  69 74 65 73 3a 22 2c 62  |MSaveSprites:",b|
00002ca0  6c 6f 63 6b 25 21 34 29  0d 0b a4 42 c9 32 3a 48  |lock%!4)...B.2:H|
00002cb0  24 3d a4 47 28 22 4d 4c  6f 61 64 3a 4d 4c 6f 61  |$=.G("MLoad:MLoa|
00002cc0  64 42 61 63 6b 3a 4d 4c  6f 61 64 53 79 73 56 61  |dBack:MLoadSysVa|
00002cd0  72 3a 4d 4c 6f 61 64 53  70 72 69 74 65 73 3a 22  |r:MLoadSprites:"|
00002ce0  2c 62 6c 6f 63 6b 25 21  34 29 0d 0b ae 14 c9 33  |,block%!4).....3|
00002cf0  3a f2 51 79 28 62 6c 6f  63 6b 25 2b 34 29 0d 0b  |:.Qy(block%+4)..|
00002d00  b8 52 7f 3a 48 24 3d a4  47 28 22 4d 4c 61 72 67  |.R.:H$=.G("MLarg|
00002d10  65 72 3a 4d 49 6e 66 6f  3a 4d 53 61 76 65 3a 4d  |er:MInfo:MSave:M|
00002d20  4c 6f 61 64 3a 4d 44 65  73 6b 74 6f 70 3a 4d 55  |Load:MDesktop:MU|
00002d30  73 65 72 3a 4d 4d 61 70  3a 4d 43 6f 6e 66 69 67  |ser:MMap:MConfig|
00002d40  3a 4d 51 75 69 74 22 2c  21 62 6c 6f 63 6b 25 29  |:MQuit",!block%)|
00002d50  0d 0b c2 07 cb 3a e1 0d  0b cc 53 dd f2 51 79 28  |.....:....S..Qy(|
00002d60  62 6c 6f 63 6b 25 29 3a  48 24 3d a4 47 28 22 4d  |block%):H$=.G("M|
00002d70  44 65 73 6b 74 6f 70 3a  4d 48 6f 6d 65 3a 4d 52  |Desktop:MHome:MR|
00002d80  65 74 72 69 65 76 65 3a  4d 43 79 63 6c 65 57 69  |etrieve:MCycleWi|
00002d90  6e 3a 4d 43 79 63 6c 65  54 61 73 6b 73 3a 22 2c  |n:MCycleTasks:",|
00002da0  21 62 6c 6f 63 6b 25 29  3a e1 0d 0b d6 25 dd f2  |!block%):....%..|
00002db0  51 5f 3a 5a 24 28 72 65  6d 6f 76 65 25 29 3d a4  |Q_:Z$(remove%)=.|
00002dc0  41 28 70 72 65 62 75 66  66 65 72 25 29 3a e1 0d  |A(prebuffer%):..|
00002dd0  0b e0 26 dd f2 4b 5f 3a  4d 24 28 72 65 6d 6f 76  |..&..K_:M$(remov|
00002de0  65 25 29 3d a4 41 28 70  6f 73 74 62 75 66 66 65  |e%)=.A(postbuffe|
00002df0  72 25 29 3a e1 0d 0b ea  29 dd f2 65 79 3a f2 54  |r%):....)..ey:.T|
00002e00  28 72 65 6d 6f 76 65 25  2c a4 41 28 72 75 6e 77  |(remove%,.A(runw|
00002e10  69 74 68 62 75 66 66 65  72 25 29 29 3a e1 0d 0b  |ithbuffer%)):...|
00002e20  f4 16 dd f2 63 3a e7 69  6e 73 74 61 6c 6c 69 63  |....c:.installic|
00002e30  6f 6e 25 8c 0d 0b fe 10  e7 6c 61 72 67 65 69 63  |on%......largeic|
00002e40  6f 6e 25 8c 0d 0c 08 14  f2 7a 28 22 6c 61 72 67  |on%......z("larg|
00002e50  65 70 6c 69 6e 74 22 29  0d 0c 12 16 cc 3a f2 7a  |eplint").....:.z|
00002e60  28 22 73 6d 61 6c 6c 70  6c 69 6e 74 22 29 0d 0c  |("smallplint")..|
00002e70  1c 05 cd 0d 0c 26 08 cc  3a f2 4b 0d 0c 30 07 cd  |.....&..:.K..0..|
00002e80  3a e1 0d 0c 3a 1a dd f2  4b 3a e7 69 63 6f 6e 62  |:...:...K:.iconb|
00002e90  61 72 69 63 6f 6e 25 3c  3e 2d 31 8c 0d 0c 44 3f  |aricon%<>-1...D?|
00002ea0  62 6c 6f 63 6b 25 21 30  3d 2d 32 3a 62 6c 6f 63  |block%!0=-2:bloc|
00002eb0  6b 25 21 34 3d 69 63 6f  6e 62 61 72 69 63 6f 6e  |k%!4=iconbaricon|
00002ec0  25 3a c8 99 77 69 6d 70  64 65 6c 65 74 65 69 63  |%:..wimpdeleteic|
00002ed0  6f 6e 25 2c 2c 62 6c 6f  63 6b 25 0d 0c 4e 07 cd  |on%,,block%..N..|
00002ee0  3a e1 0d 0c 58 24 dd f2  4c 4a 3a 6c 61 72 67 65  |:...X$..LJ:large|
00002ef0  69 63 6f 6e 25 3d b9 3a  e7 69 6e 73 74 61 6c 6c  |icon%=.:.install|
00002f00  69 63 6f 6e 25 8c 0d 0c  62 17 f2 4b 3a f2 7a 28  |icon%...b..K:.z(|
00002f10  22 6c 61 72 67 65 70 6c  69 6e 74 22 29 0d 0c 6c  |"largeplint")..l|
00002f20  07 cd 3a e1 0d 0c 76 24  dd f2 4e 4a 3a 6c 61 72  |..:...v$..NJ:lar|
00002f30  67 65 69 63 6f 6e 25 3d  a3 3a e7 69 6e 73 74 61  |geicon%=.:.insta|
00002f40  6c 6c 69 63 6f 6e 25 8c  0d 0c 80 17 f2 4b 3a f2  |llicon%......K:.|
00002f50  7a 28 22 73 6d 61 6c 6c  70 6c 69 6e 74 22 29 0d  |z("smallplint").|
00002f60  0c 8a 07 cd 3a e1 0d 0c  94 a2 dd f2 56 79 3a 21  |....:.......Vy:!|
00002f70  62 6c 6f 63 6b 25 3d 63  6f 6e 66 69 67 25 3a c8  |block%=config%:.|
00002f80  99 77 69 6d 70 67 77 73  25 2c 2c 62 6c 6f 63 6b  |.wimpgws%,,block|
00002f90  25 3a f2 6f 3a 62 6c 6f  63 6b 25 21 32 38 3d 2d  |%:.o:block%!28=-|
00002fa0  31 3a c8 99 77 69 6d 70  6f 70 65 6e 77 69 6e 64  |1:..wimpopenwind|
00002fb0  6f 77 25 2c 2c 62 6c 6f  63 6b 25 3a 21 62 6c 6f  |ow%,,block%:!blo|
00002fc0  63 6b 25 3d 63 6f 6e 66  69 67 32 25 3a c8 99 77  |ck%=config2%:..w|
00002fd0  69 6d 70 67 77 73 25 2c  2c 62 6c 6f 63 6b 25 3a  |impgws%,,block%:|
00002fe0  62 6c 6f 63 6b 25 21 32  38 3d 2d 31 3a c8 99 77  |block%!28=-1:..w|
00002ff0  69 6d 70 6f 70 65 6e 77  69 6e 64 6f 77 25 2c 2c  |impopenwindow%,,|
00003000  62 6c 6f 63 6b 25 3a e1  0d 0c 9e 14 dd f2 75 3a  |block%:.......u:|
00003010  c8 8e 62 6c 6f 63 6b 25  21 31 36 ca 0d 0c a8 5d  |..block%!16....]|
00003020  c9 30 3a 21 62 6c 6f 63  6b 25 3d 63 6f 6e 66 69  |.0:!block%=confi|
00003030  67 25 3a c8 99 77 69 6d  70 63 6c 6f 73 65 77 69  |g%:..wimpclosewi|
00003040  6e 64 6f 77 25 2c 2c 62  6c 6f 63 6b 25 3a 21 62  |ndow%,,block%:!b|
00003050  6c 6f 63 6b 25 3d 63 6f  6e 66 69 67 32 25 3a c8  |lock%=config2%:.|
00003060  99 77 69 6d 70 63 6c 6f  73 65 77 69 6e 64 6f 77  |.wimpclosewindow|
00003070  25 2c 2c 62 6c 6f 63 6b  25 0d 0c b2 0a c9 31 3a  |%,,block%.....1:|
00003080  f2 7a 5f 0d 0c bc 0a c9  32 3a f2 4b 79 0d 0c c6  |.z_.....2:.Ky...|
00003090  07 cb 3a e1 0d 0c d0 15  dd f2 5f 79 3a c8 8e 62  |..:......._y:..b|
000030a0  6c 6f 63 6b 25 21 31 36  ca 0d 0c da 27 c9 32 3a  |lock%!16....'.2:|
000030b0  21 6f 72 67 61 6e 69 73  65 25 3d a3 3a f2 41 28  |!organise%=.:.A(|
000030c0  63 6f 6e 66 69 67 32 25  2c 32 2c 31 29 3a f2 51  |config2%,2,1):.Q|
000030d0  0d 0c e4 27 c9 33 3a 21  6f 72 67 61 6e 69 73 65  |...'.3:!organise|
000030e0  25 3d a3 3a f2 41 28 63  6f 6e 66 69 67 32 25 2c  |%=.:.A(config2%,|
000030f0  33 2c 31 29 3a f2 51 0d  0c ee 27 c9 34 3a 21 6f  |3,1):.Q...'.4:!o|
00003100  72 67 61 6e 69 73 65 25  3d b9 3a f2 41 28 63 6f  |rganise%=.:.A(co|
00003110  6e 66 69 67 32 25 2c 34  2c 31 29 3a f2 51 0d 0c  |nfig2%,4,1):.Q..|
00003120  f8 57 c9 37 2c 38 2c 39  2c 31 30 2c 31 31 3a 21  |.W.7,8,9,10,11:!|
00003130  61 70 70 73 67 72 61 76  25 3d 28 62 6c 6f 63 6b  |appsgrav%=(block|
00003140  25 21 31 36 29 2d 37 3a  f2 51 3a f2 41 28 63 6f  |%!16)-7:.Q:.A(co|
00003150  6e 66 69 67 32 25 2c 62  6c 6f 63 6b 25 21 31 36  |nfig2%,block%!16|
00003160  2c 31 29 3a f2 4e 28 31  32 2c 21 61 70 70 73 67  |,1):.N(12,!appsg|
00003170  72 61 76 25 29 0d 0d 02  5b c9 31 35 2c 31 36 2c  |rav%)...[.15,16,|
00003180  31 37 2c 31 38 2c 31 39  3a 21 64 69 72 73 67 72  |17,18,19:!dirsgr|
00003190  61 76 25 3d 28 62 6c 6f  63 6b 25 21 31 36 29 2d  |av%=(block%!16)-|
000031a0  31 35 3a f2 51 3a f2 41  28 63 6f 6e 66 69 67 32  |15:.Q:.A(config2|
000031b0  25 2c 62 6c 6f 63 6b 25  21 31 36 2c 31 29 3a f2  |%,block%!16,1):.|
000031c0  4e 28 32 30 2c 21 64 69  72 73 67 72 61 76 25 29  |N(20,!dirsgrav%)|
000031d0  0d 0d 0c 44 c9 32 33 3a  f2 55 3a 21 69 63 6f 6e  |...D.23:.U:!icon|
000031e0  74 65 78 74 25 3d ac 21  69 63 6f 6e 74 65 78 74  |text%=.!icontext|
000031f0  25 3a f2 41 28 63 6f 6e  66 69 67 32 25 2c 62 6c  |%:.A(config2%,bl|
00003200  6f 63 6b 25 21 31 36 2c  2d 21 69 63 6f 6e 74 65  |ock%!16,-!iconte|
00003210  78 74 25 29 0d 0d 16 4d  c9 32 34 3a f2 55 3a 21  |xt%)...M.24:.U:!|
00003220  73 68 6f 77 70 6c 69 6e  74 68 73 25 3d 31 2d 21  |showplinths%=1-!|
00003230  73 68 6f 77 70 6c 69 6e  74 68 73 25 3a f2 41 28  |showplinths%:.A(|
00003240  63 6f 6e 66 69 67 32 25  2c 62 6c 6f 63 6b 25 21  |config2%,block%!|
00003250  31 36 2c 21 73 68 6f 77  70 6c 69 6e 74 68 73 25  |16,!showplinths%|
00003260  29 0d 0d 20 6f c9 32 35  3a 69 6e 73 74 61 6c 6c  |).. o.25:install|
00003270  69 63 6f 6e 25 3d ac 69  6e 73 74 61 6c 6c 69 63  |icon%=.installic|
00003280  6f 6e 25 3a f2 41 28 63  6f 6e 66 69 67 32 25 2c  |on%:.A(config2%,|
00003290  32 35 2c 2d 69 6e 73 74  61 6c 6c 69 63 6f 6e 25  |25,-installicon%|
000032a0  29 3a f2 57 28 63 6f 6e  66 69 67 32 25 2c 32 36  |):.W(config2%,26|
000032b0  2c 31 2b 69 6e 73 74 61  6c 6c 69 63 6f 6e 25 29  |,1+installicon%)|
000032c0  3a e7 ac 69 6e 73 74 61  6c 6c 69 63 6f 6e 25 8c  |:..installicon%.|
000032d0  0d 0d 2a 06 f2 4b 0d 0d  34 08 cc 3a f2 63 0d 0d  |..*..K..4..:.c..|
000032e0  3e 05 cd 0d 0d 48 40 c9  32 36 3a 6c 61 72 67 65  |>....H@.26:large|
000032f0  69 63 6f 6e 25 3d ac 6c  61 72 67 65 69 63 6f 6e  |icon%=.largeicon|
00003300  25 3a f2 41 28 63 6f 6e  66 69 67 32 25 2c 32 36  |%:.A(config2%,26|
00003310  2c 2d 6c 61 72 67 65 69  63 6f 6e 25 29 3a f2 4b  |,-largeicon%):.K|
00003320  3a f2 63 0d 0d 52 41 c9  32 37 3a 21 69 6e 76 65  |:.c..RA.27:!inve|
00003330  72 74 73 65 6c 25 3d 31  2d 21 69 6e 76 65 72 74  |rtsel%=1-!invert|
00003340  73 65 6c 25 3a f2 41 28  63 6f 6e 66 69 67 32 25  |sel%:.A(config2%|
00003350  2c 32 37 2c 21 69 6e 76  65 72 74 73 65 6c 25 29  |,27,!invertsel%)|
00003360  3a f2 78 79 0d 0d 5c 3b  c9 32 38 3a 21 73 6c 61  |:.xy..\;.28:!sla|
00003370  62 73 65 6c 25 3d 31 2d  21 73 6c 61 62 73 65 6c  |bsel%=1-!slabsel|
00003380  25 3a f2 41 28 63 6f 6e  66 69 67 32 25 2c 32 38  |%:.A(config2%,28|
00003390  2c 21 73 6c 61 62 73 65  6c 25 29 3a f2 78 79 0d  |,!slabsel%):.xy.|
000033a0  0d 66 1e c9 33 31 3a 6f  70 65 6e 66 69 6c 65 72  |.f..31:openfiler|
000033b0  25 3d ac 6f 70 65 6e 66  69 6c 65 72 25 0d 0d 70  |%=.openfiler%..p|
000033c0  18 c9 33 32 3a 73 65 74  63 73 64 25 3d ac 73 65  |..32:setcsd%=.se|
000033d0  74 63 73 64 25 0d 0d 7a  8b c9 33 35 3a 73 63 72  |tcsd%..z..35:scr|
000033e0  6f 6c 6c 25 3d ac 73 63  72 6f 6c 6c 25 3a c8 99  |oll%=.scroll%:..|
000033f0  6c 61 72 67 65 72 73 75  70 70 77 73 68 25 2c 2d  |largersuppwsh%,-|
00003400  73 63 72 6f 6c 6c 25 2c  2d 77 69 74 68 73 68 69  |scroll%,-withshi|
00003410  66 74 25 3a f2 41 28 63  6f 6e 66 69 67 32 25 2c  |ft%:.A(config2%,|
00003420  33 35 2c 2d 73 63 72 6f  6c 6c 25 29 3a f2 57 28  |35,-scroll%):.W(|
00003430  63 6f 6e 66 69 67 32 25  2c 33 36 2c 31 2b 73 63  |config2%,36,1+sc|
00003440  72 6f 6c 6c 25 29 3a f2  57 28 63 6f 6e 66 69 67  |roll%):.W(config|
00003450  32 25 2c 33 37 2c 31 2b  73 63 72 6f 6c 6c 25 29  |2%,37,1+scroll%)|
00003460  0d 0d 84 11 c9 33 36 3a  e7 73 63 72 6f 6c 6c 25  |.....36:.scroll%|
00003470  8c 0d 0d 8e 5a 77 69 74  68 73 68 69 66 74 25 3d  |....Zwithshift%=|
00003480  b9 3a c8 99 6c 61 72 67  65 72 73 75 70 70 77 73  |.:..largersuppws|
00003490  68 25 2c 2d 73 63 72 6f  6c 6c 25 2c 2d 77 69 74  |h%,-scroll%,-wit|
000034a0  68 73 68 69 66 74 25 3a  f2 41 28 63 6f 6e 66 69  |hshift%:.A(confi|
000034b0  67 32 25 2c 33 36 2c 31  29 3a f2 41 28 63 6f 6e  |g2%,36,1):.A(con|
000034c0  66 69 67 32 25 2c 33 37  2c 30 29 0d 0d 98 05 cd  |fig2%,37,0).....|
000034d0  0d 0d a2 11 c9 33 37 3a  e7 73 63 72 6f 6c 6c 25  |.....37:.scroll%|
000034e0  8c 0d 0d ac 5a 77 69 74  68 73 68 69 66 74 25 3d  |....Zwithshift%=|
000034f0  a3 3a c8 99 6c 61 72 67  65 72 73 75 70 70 77 73  |.:..largersuppws|
00003500  68 25 2c 2d 73 63 72 6f  6c 6c 25 2c 2d 77 69 74  |h%,-scroll%,-wit|
00003510  68 73 68 69 66 74 25 3a  f2 41 28 63 6f 6e 66 69  |hshift%:.A(confi|
00003520  67 32 25 2c 33 36 2c 30  29 3a f2 41 28 63 6f 6e  |g2%,36,0):.A(con|
00003530  66 69 67 32 25 2c 33 37  2c 31 29 0d 0d b6 05 cd  |fig2%,37,1).....|
00003540  0d 0d c0 40 c9 33 38 3a  66 6f 6c 6c 6f 77 63 61  |...@.38:followca|
00003550  72 65 74 25 3d ac 66 6f  6c 6c 6f 77 63 61 72 65  |ret%=.followcare|
00003560  74 25 3a f2 41 28 63 6f  6e 66 69 67 32 25 2c 31  |t%:.A(config2%,1|
00003570  38 2c 2d 66 6f 6c 6c 6f  77 63 61 72 65 74 25 29  |8,-followcaret%)|
00003580  0d 0d ca 1e c9 34 31 3a  73 65 6c 65 63 74 69 76  |.....41:selectiv|
00003590  65 25 3d ac 73 65 6c 65  63 74 69 76 65 25 0d 0d  |e%=.selective%..|
000035a0  d4 22 c9 34 32 3a 66 69  6c 65 74 79 70 65 73 70  |.".42:filetypesp|
000035b0  72 25 3d ac 66 69 6c 65  74 79 70 65 73 70 72 25  |r%=.filetypespr%|
000035c0  0d 0d de 0e c9 34 35 3a  e7 21 53 3d 31 8c 0d 0d  |.....45:.!S=1...|
000035d0  e8 92 21 62 6c 6f 63 6b  25 3d 63 6f 6e 66 69 67  |..!block%=config|
000035e0  32 25 3a 62 6c 6f 63 6b  25 21 34 3d 34 39 3a c8  |2%:block%!4=49:.|
000035f0  99 77 69 6d 70 67 69 73  25 2c 2c 62 6c 6f 63 6b  |.wimpgis%,,block|
00003600  25 3a f2 41 28 63 6f 6e  66 69 67 32 25 2c 34 39  |%:.A(config2%,49|
00003610  2c 30 29 3a f2 5a 28 22  22 2c 62 6c 6f 63 6b 25  |,0):.Z("",block%|
00003620  21 32 38 29 3a f2 71 3a  f2 55 3a f2 57 28 63 6f  |!28):.q:.U:.W(co|
00003630  6e 66 69 67 32 25 2c 34  36 2c 31 29 3a f2 57 28  |nfig2%,46,1):.W(|
00003640  63 6f 6e 66 69 67 32 25  2c 34 37 2c 31 29 3a f2  |config2%,47,1):.|
00003650  57 28 63 6f 6e 66 69 67  32 25 2c 34 38 2c 31 29  |W(config2%,48,1)|
00003660  0d 0d f2 17 cd 3a f2 41  28 63 6f 6e 66 69 67 32  |.....:.A(config2|
00003670  25 2c 34 35 2c 30 29 0d  0d fc 21 c9 34 36 2c 34  |%,45,0)...!.46,4|
00003680  37 2c 34 38 3a f2 58 79  28 28 62 6c 6f 63 6b 25  |7,48:.Xy((block%|
00003690  21 31 36 29 2d 34 35 29  0d 0e 06 25 c9 36 35 3a  |!16)-45)...%.65:|
000036a0  21 50 3d 31 3a f2 41 28  63 6f 6e 66 69 67 32 25  |!P=1:.A(config2%|
000036b0  2c 62 6c 6f 63 6b 25 21  31 36 2c 31 29 0d 0e 10  |,block%!16,1)...|
000036c0  25 c9 36 36 3a 21 50 3d  30 3a f2 41 28 63 6f 6e  |%.66:!P=0:.A(con|
000036d0  66 69 67 32 25 2c 62 6c  6f 63 6b 25 21 31 36 2c  |fig2%,block%!16,|
000036e0  31 29 0d 0e 1a 56 c9 37  33 3a 6f 70 65 6e 6d 61  |1)...V.73:openma|
000036f0  70 61 74 73 74 61 72 74  75 70 25 3d ac 6f 70 65  |patstartup%=.ope|
00003700  6e 6d 61 70 61 74 73 74  61 72 74 75 70 25 3a f2  |nmapatstartup%:.|
00003710  41 28 63 6f 6e 66 69 67  32 25 2c 62 6c 6f 63 6b  |A(config2%,block|
00003720  25 21 31 36 2c 2d 6f 70  65 6e 6d 61 70 61 74 73  |%!16,-openmapats|
00003730  74 61 72 74 75 70 25 29  0d 0e 24 5b c9 37 36 2c  |tartup%)..$[.76,|
00003740  37 37 2c 37 38 2c 37 39  2c 38 30 3a 21 62 61 63  |77,78,79,80:!bac|
00003750  6b 67 72 61 76 25 3d 28  62 6c 6f 63 6b 25 21 31  |kgrav%=(block%!1|
00003760  36 29 2d 37 36 3a f2 51  3a f2 41 28 63 6f 6e 66  |6)-76:.Q:.A(conf|
00003770  69 67 32 25 2c 62 6c 6f  63 6b 25 21 31 36 2c 31  |ig2%,block%!16,1|
00003780  29 3a f2 4e 28 38 31 2c  21 62 61 63 6b 67 72 61  |):.N(81,!backgra|
00003790  76 25 29 0d 0e 2e 5b c9  38 34 2c 38 35 2c 38 36  |v%)...[.84,85,86|
000037a0  2c 38 37 2c 38 38 3a 21  77 69 6e 64 67 72 61 76  |,87,88:!windgrav|
000037b0  25 3d 28 62 6c 6f 63 6b  25 21 31 36 29 2d 38 34  |%=(block%!16)-84|
000037c0  3a f2 51 3a f2 41 28 63  6f 6e 66 69 67 32 25 2c  |:.Q:.A(config2%,|
000037d0  62 6c 6f 63 6b 25 21 31  36 2c 31 29 3a f2 4e 28  |block%!16,1):.N(|
000037e0  38 39 2c 21 77 69 6e 64  67 72 61 76 25 29 0d 0e  |89,!windgrav%)..|
000037f0  38 07 cb 3a e1 0d 0e 42  15 dd f2 78 79 3a e7 21  |8..:...B...xy:.!|
00003800  6e 6f 61 70 70 73 25 3e  30 8c 0d 0e 4c 21 e3 6c  |noapps%>0...L!.l|
00003810  25 3d 30 b8 21 6e 6f 61  70 70 73 25 3a e7 73 65  |%=0.!noapps%:.se|
00003820  6c 65 63 74 25 3f 6c 25  3d 31 8c 0d 0e 56 17 f2  |lect%?l%=1...V..|
00003830  53 28 78 79 30 25 3f 6c  25 2c 78 79 31 25 3f 6c  |S(xy0%?l%,xy1%?l|
00003840  25 29 0d 0e 60 07 cd 3a  ed 0d 0e 6a 07 cd 3a e1  |%)..`..:...j..:.|
00003850  0d 0e 74 ed dd f2 68 3a  ea 6c 25 3a f2 41 28 63  |..t...h:.l%:.A(c|
00003860  6f 6e 66 69 67 32 25 2c  32 2c 31 2b 21 6f 72 67  |onfig2%,2,1+!org|
00003870  61 6e 69 73 65 25 29 3a  f2 41 28 63 6f 6e 66 69  |anise%):.A(confi|
00003880  67 32 25 2c 33 2c 30 29  3a f2 41 28 63 6f 6e 66  |g2%,3,0):.A(conf|
00003890  69 67 32 25 2c 34 2c 2d  21 6f 72 67 61 6e 69 73  |ig2%,4,-!organis|
000038a0  65 25 29 3a f2 41 28 63  6f 6e 66 69 67 32 25 2c  |e%):.A(config2%,|
000038b0  33 35 2c 2d 73 63 72 6f  6c 6c 25 29 3a f2 57 28  |35,-scroll%):.W(|
000038c0  63 6f 6e 66 69 67 32 25  2c 33 36 2c 31 2b 73 63  |config2%,36,1+sc|
000038d0  72 6f 6c 6c 25 29 3a f2  41 28 63 6f 6e 66 69 67  |roll%):.A(config|
000038e0  32 25 2c 33 36 2c 2d 28  73 63 72 6f 6c 6c 25 80  |2%,36,-(scroll%.|
000038f0  77 69 74 68 73 68 69 66  74 25 29 29 3a f2 57 28  |withshift%)):.W(|
00003900  63 6f 6e 66 69 67 32 25  2c 33 36 2c 31 2b 73 63  |config2%,36,1+sc|
00003910  72 6f 6c 6c 25 29 3a f2  41 28 63 6f 6e 66 69 67  |roll%):.A(config|
00003920  32 25 2c 33 37 2c 2d 28  73 63 72 6f 6c 6c 25 80  |2%,37,-(scroll%.|
00003930  ac 77 69 74 68 73 68 69  66 74 25 29 29 0d 0e 7e  |.withshift%))..~|
00003940  e9 f2 41 28 63 6f 6e 66  69 67 32 25 2c 32 35 2c  |..A(config2%,25,|
00003950  2d 69 6e 73 74 61 6c 6c  69 63 6f 6e 25 29 3a f2  |-installicon%):.|
00003960  57 28 63 6f 6e 66 69 67  32 25 2c 32 36 2c 31 2b  |W(config2%,26,1+|
00003970  69 6e 73 74 61 6c 6c 69  63 6f 6e 25 29 3a f2 41  |installicon%):.A|
00003980  28 63 6f 6e 66 69 67 32  25 2c 32 36 2c 2d 6c 61  |(config2%,26,-la|
00003990  72 67 65 69 63 6f 6e 25  29 3a f2 41 28 63 6f 6e  |rgeicon%):.A(con|
000039a0  66 69 67 32 25 2c 33 38  2c 2d 66 6f 6c 6c 6f 77  |fig2%,38,-follow|
000039b0  63 61 72 65 74 25 29 3a  f2 41 28 63 6f 6e 66 69  |caret%):.A(confi|
000039c0  67 32 25 2c 32 33 2c 2d  21 69 63 6f 6e 74 65 78  |g2%,23,-!icontex|
000039d0  74 25 29 3a f2 41 28 63  6f 6e 66 69 67 32 25 2c  |t%):.A(config2%,|
000039e0  32 34 2c 21 73 68 6f 77  70 6c 69 6e 74 68 73 25  |24,!showplinths%|
000039f0  29 3a f2 41 28 63 6f 6e  66 69 67 32 25 2c 33 31  |):.A(config2%,31|
00003a00  2c 2d 6f 70 65 6e 66 69  6c 65 72 25 29 3a f2 41  |,-openfiler%):.A|
00003a10  28 63 6f 6e 66 69 67 32  25 2c 33 32 2c 2d 73 65  |(config2%,32,-se|
00003a20  74 63 73 64 25 29 0d 0e  88 e2 f2 41 28 63 6f 6e  |tcsd%).....A(con|
00003a30  66 69 67 32 25 2c 34 31  2c 2d 73 65 6c 65 63 74  |fig2%,41,-select|
00003a40  69 76 65 25 29 3a f2 41  28 63 6f 6e 66 69 67 32  |ive%):.A(config2|
00003a50  25 2c 34 32 2c 2d 66 69  6c 65 74 79 70 65 73 70  |%,42,-filetypesp|
00003a60  72 25 29 3a e3 6c 25 3d  37 b8 31 31 3a f2 41 28  |r%):.l%=7.11:.A(|
00003a70  63 6f 6e 66 69 67 32 25  2c 6c 25 2c 30 29 3a ed  |config2%,l%,0):.|
00003a80  3a e3 6c 25 3d 31 35 b8  31 39 3a f2 41 28 63 6f  |:.l%=15.19:.A(co|
00003a90  6e 66 69 67 32 25 2c 6c  25 2c 30 29 3a ed 3a e3  |nfig2%,l%,0):.:.|
00003aa0  6c 25 3d 37 36 b8 38 30  3a f2 41 28 63 6f 6e 66  |l%=76.80:.A(conf|
00003ab0  69 67 32 25 2c 6c 25 2c  30 29 3a ed 3a e3 6c 25  |ig2%,l%,0):.:.l%|
00003ac0  3d 38 34 b8 38 38 3a f2  41 28 63 6f 6e 66 69 67  |=84.88:.A(config|
00003ad0  32 25 2c 6c 25 2c 30 29  3a ed 3a f2 41 28 63 6f  |2%,l%,0):.:.A(co|
00003ae0  6e 66 69 67 32 25 2c 37  2b 21 61 70 70 73 67 72  |nfig2%,7+!appsgr|
00003af0  61 76 25 2c 31 29 3a f2  4e 28 31 32 2c 21 61 70  |av%,1):.N(12,!ap|
00003b00  70 73 67 72 61 76 25 29  0d 0e 92 ee f2 41 28 63  |psgrav%).....A(c|
00003b10  6f 6e 66 69 67 32 25 2c  31 35 2b 21 64 69 72 73  |onfig2%,15+!dirs|
00003b20  67 72 61 76 25 2c 31 29  3a f2 4e 28 32 30 2c 21  |grav%,1):.N(20,!|
00003b30  64 69 72 73 67 72 61 76  25 29 3a f2 41 28 63 6f  |dirsgrav%):.A(co|
00003b40  6e 66 69 67 32 25 2c 37  36 2b 21 62 61 63 6b 67  |nfig2%,76+!backg|
00003b50  72 61 76 25 2c 31 29 3a  f2 4e 28 38 31 2c 21 62  |rav%,1):.N(81,!b|
00003b60  61 63 6b 67 72 61 76 25  29 3a f2 41 28 63 6f 6e  |ackgrav%):.A(con|
00003b70  66 69 67 32 25 2c 38 34  2b 21 77 69 6e 64 67 72  |fig2%,84+!windgr|
00003b80  61 76 25 2c 31 29 3a f2  4e 28 38 39 2c 21 77 69  |av%,1):.N(89,!wi|
00003b90  6e 64 67 72 61 76 25 29  3a f2 41 28 63 6f 6e 66  |ndgrav%):.A(conf|
00003ba0  69 67 32 25 2c 32 37 2c  21 69 6e 76 65 72 74 73  |ig2%,27,!inverts|
00003bb0  65 6c 25 29 3a f2 41 28  63 6f 6e 66 69 67 32 25  |el%):.A(config2%|
00003bc0  2c 32 38 2c 21 73 6c 61  62 73 65 6c 25 29 3a f2  |,28,!slabsel%):.|
00003bd0  41 28 63 6f 6e 66 69 67  32 25 2c 34 35 2c 21 53  |A(config2%,45,!S|
00003be0  29 3a f2 57 28 63 6f 6e  66 69 67 32 25 2c 34 36  |):.W(config2%,46|
00003bf0  2c 31 2d 21 53 29 0d 0e  9c d5 f2 57 28 63 6f 6e  |,1-!S).....W(con|
00003c00  66 69 67 32 25 2c 34 37  2c 31 2d 21 53 29 3a f2  |fig2%,47,1-!S):.|
00003c10  57 28 63 6f 6e 66 69 67  32 25 2c 34 38 2c 31 2d  |W(config2%,48,1-|
00003c20  21 53 29 3a f2 57 28 63  6f 6e 66 69 67 32 25 2c  |!S):.W(config2%,|
00003c30  34 39 2c 31 2d 21 53 29  3a f2 41 28 63 6f 6e 66  |49,1-!S):.A(conf|
00003c40  69 67 32 25 2c 34 36 2c  2d 28 21 57 3d 30 29 29  |ig2%,46,-(!W=0))|
00003c50  3a f2 41 28 63 6f 6e 66  69 67 32 25 2c 34 37 2c  |:.A(config2%,47,|
00003c60  2d 28 21 57 3d 31 29 29  3a f2 41 28 63 6f 6e 66  |-(!W=1)):.A(conf|
00003c70  69 67 32 25 2c 34 38 2c  2d 28 21 57 3d 32 29 29  |ig2%,48,-(!W=2))|
00003c80  3a f2 41 28 63 6f 6e 66  69 67 32 25 2c 36 35 2c  |:.A(config2%,65,|
00003c90  21 50 29 3a f2 41 28 63  6f 6e 66 69 67 32 25 2c  |!P):.A(config2%,|
00003ca0  36 36 2c 31 2d 21 50 29  3a f2 41 28 63 6f 6e 66  |66,1-!P):.A(conf|
00003cb0  69 67 32 25 2c 37 33 2c  2d 6f 70 65 6e 6d 61 70  |ig2%,73,-openmap|
00003cc0  61 74 73 74 61 72 74 75  70 25 29 0d 0e a6 c7 68  |atstartup%)....h|
00003cd0  69 64 65 74 61 73 6b 6b  65 79 25 3d a4 53 28 68  |idetaskkey%=.S(h|
00003ce0  69 64 65 74 61 73 6b 6b  65 79 25 2c 68 69 64 65  |idetaskkey%,hide|
00003cf0  74 61 73 6b 6b 65 79 25  2c 35 39 29 3a 73 65 74  |taskkey%,59):set|
00003d00  63 73 64 6b 65 79 25 3d  a4 53 28 73 65 74 63 73  |csdkey%=.S(setcs|
00003d10  64 6b 65 79 25 2c 73 65  74 63 73 64 6b 65 79 25  |dkey%,setcsdkey%|
00003d20  2c 36 30 29 3a 63 79 63  6c 65 77 69 6e 64 6f 77  |,60):cyclewindow|
00003d30  73 6b 65 79 25 3d a4 53  28 63 79 63 6c 65 77 69  |skey%=.S(cyclewi|
00003d40  6e 64 6f 77 73 6b 65 79  25 2c 63 79 63 6c 65 77  |ndowskey%,cyclew|
00003d50  69 6e 64 6f 77 73 6b 65  79 25 2c 36 31 29 3a 63  |indowskey%,61):c|
00003d60  79 63 6c 65 74 61 73 6b  73 6b 65 79 25 3d a4 53  |ycletaskskey%=.S|
00003d70  28 63 79 63 6c 65 74 61  73 6b 73 6b 65 79 25 2c  |(cycletaskskey%,|
00003d80  63 79 63 6c 65 74 61 73  6b 73 6b 65 79 25 2c 36  |cycletaskskey%,6|
00003d90  32 29 0d 0e b0 70 62 72  69 6e 67 74 6f 66 72 6f  |2)...pbringtofro|
00003da0  6e 74 6b 65 79 25 3d a4  53 28 62 72 69 6e 67 74  |ntkey%=.S(bringt|
00003db0  6f 66 72 6f 6e 74 6b 65  79 25 2c 62 72 69 6e 67  |ofrontkey%,bring|
00003dc0  74 6f 66 72 6f 6e 74 6b  65 79 25 2c 36 37 29 3a  |tofrontkey%,67):|
00003dd0  68 6f 74 6b 65 79 68 6f  74 6b 65 79 25 3d a4 53  |hotkeyhotkey%=.S|
00003de0  28 68 6f 74 6b 65 79 68  6f 74 6b 65 79 25 2c 68  |(hotkeyhotkey%,h|
00003df0  6f 74 6b 65 79 68 6f 74  6b 65 79 25 2c 37 30 29  |otkeyhotkey%,70)|
00003e00  3a e1 0d 0e ba 19 dd f2  4e 28 69 63 25 2c 64 69  |:.......N(ic%,di|
00003e10  72 25 29 3a c8 8e 64 69  72 25 ca 0d 0e c4 15 c9  |r%):..dir%......|
00003e20  30 3a f2 49 28 69 63 25  2c 22 4e 6f 6e 65 22 29  |0:.I(ic%,"None")|
00003e30  0d 0e ce 15 c9 31 3a f2  49 28 69 63 25 2c 22 4c  |.....1:.I(ic%,"L|
00003e40  65 66 74 22 29 0d 0e d8  16 c9 32 3a f2 49 28 69  |eft").....2:.I(i|
00003e50  63 25 2c 22 52 69 67 68  74 22 29 0d 0e e2 13 c9  |c%,"Right").....|
00003e60  33 3a f2 49 28 69 63 25  2c 22 55 70 22 29 0d 0e  |3:.I(ic%,"Up")..|
00003e70  ec 15 c9 34 3a f2 49 28  69 63 25 2c 22 44 6f 77  |...4:.I(ic%,"Dow|
00003e80  6e 22 29 0d 0e f6 07 cb  3a e1 0d 0f 00 b7 dd f2  |n").....:.......|
00003e90  49 28 69 63 6e 75 6d 25  2c 60 24 29 3a 62 6c 6f  |I(icnum%,`$):blo|
00003ea0  63 6b 25 21 34 3d 69 63  6e 75 6d 25 3a 21 62 6c  |ck%!4=icnum%:!bl|
00003eb0  6f 63 6b 25 3d 63 6f 6e  66 69 67 32 25 3a c8 99  |ock%=config2%:..|
00003ec0  77 69 6d 70 67 69 73 25  2c 2c 62 6c 6f 63 6b 25  |wimpgis%,,block%|
00003ed0  3a f2 5a 28 60 24 2c 28  62 6c 6f 63 6b 25 21 32  |:.Z(`$,(block%!2|
00003ee0  38 29 29 3a 62 6c 6f 63  6b 25 21 31 32 3d 30 3a  |8)):block%!12=0:|
00003ef0  62 6c 6f 63 6b 25 21 38  3d 30 3a c8 99 77 69 6d  |block%!8=0:..wim|
00003f00  70 73 69 73 25 2c 2c 62  6c 6f 63 6b 25 3a c8 99  |psis%,,block%:..|
00003f10  26 34 30 30 64 33 2c 2c  62 6c 6f 63 6b 25 3a e7  |&400d3,,block%:.|
00003f20  21 62 6c 6f 63 6b 25 3d  63 6f 6e 66 69 67 32 25  |!block%=config2%|
00003f30  80 69 63 6e 75 6d 25 3d  62 6c 6f 63 6b 25 21 34  |.icnum%=block%!4|
00003f40  8c 0d 0f 0a 25 c8 99 26  34 30 30 64 32 2c 63 6f  |....%..&400d2,co|
00003f50  6e 66 69 67 32 25 2c 69  63 6e 75 6d 25 2c 30 2c  |nfig2%,icnum%,0,|
00003f60  30 2c 2d 31 2c 30 0d 0f  14 07 cd 3a e1 0d 0f 1e  |0,-1,0.....:....|
00003f70  59 dd f2 41 28 21 62 6c  6f 63 6b 25 2c 62 6c 6f  |Y..A(!block%,blo|
00003f80  63 6b 25 21 34 2c 73 74  61 74 65 25 29 3a 62 6c  |ck%!4,state%):bl|
00003f90  6f 63 6b 25 21 31 32 3d  31 3c 3c 32 31 3a 62 6c  |ock%!12=1<<21:bl|
00003fa0  6f 63 6b 25 21 38 3d 73  74 61 74 65 25 3c 3c 32  |ock%!8=state%<<2|
00003fb0  31 3a c8 99 77 69 6d 70  73 69 73 25 2c 2c 62 6c  |1:..wimpsis%,,bl|
00003fc0  6f 63 6b 25 3a e1 0d 0f  28 59 dd f2 57 28 21 62  |ock%:...(Y..W(!b|
00003fd0  6c 6f 63 6b 25 2c 62 6c  6f 63 6b 25 21 34 2c 73  |lock%,block%!4,s|
00003fe0  74 61 74 65 25 29 3a 62  6c 6f 63 6b 25 21 31 32  |tate%):block%!12|
00003ff0  3d 31 3c 3c 32 32 3a 62  6c 6f 63 6b 25 21 38 3d  |=1<<22:block%!8=|
00004000  73 74 61 74 65 25 3c 3c  32 32 3a c8 99 77 69 6d  |state%<<22:..wim|
00004010  70 73 69 73 25 2c 2c 62  6c 6f 63 6b 25 3a e1 0d  |psis%,,block%:..|
00004020  0f 32 5d dd a4 4d 28 68  61 6e 64 6c 65 25 29 3a  |.2]..M(handle%):|
00004030  ea 66 6c 61 67 73 25 3a  21 62 6c 6f 63 6b 25 3d  |.flags%:!block%=|
00004040  68 61 6e 64 6c 65 25 3a  c8 99 77 69 6d 70 67 77  |handle%:..wimpgw|
00004050  73 25 2b 28 31 3c 3c 31  37 29 2c 2c 62 6c 6f 63  |s%+(1<<17),,bloc|
00004060  6b 25 b8 3b 66 6c 61 67  73 25 3a e7 28 66 6c 61  |k%.;flags%:.(fla|
00004070  67 73 25 80 31 29 3d 31  8c 3d 2d 31 0d 0f 3c 2d  |gs%.1)=1.=-1..<-|
00004080  e7 62 6c 6f 63 6b 25 21  32 38 3d 64 75 6d 6d 79  |.block%!28=dummy|
00004090  77 69 6e 64 6f 77 25 8c  3d a4 4d 28 64 75 6d 6d  |window%.=.M(dumm|
000040a0  79 77 69 6e 64 6f 77 25  29 0d 0f 46 0e 3d 62 6c  |ywindow%)..F.=bl|
000040b0  6f 63 6b 25 21 32 38 0d  0f 50 bc dd f2 61 79 28  |ock%!28..P...ay(|
000040c0  62 25 29 3a ea 67 78 25  2c 67 79 25 2c 6c 25 2c  |b%):.gx%,gy%,l%,|
000040d0  66 6f 75 6e 64 25 3a 67  78 25 3d 62 6c 6f 63 6b  |found%:gx%=block|
000040e0  25 21 30 2b 21 78 70 69  78 25 3a 67 79 25 3d 62  |%!0+!xpix%:gy%=b|
000040f0  6c 6f 63 6b 25 21 34 2b  21 79 70 69 78 25 3a 78  |lock%!4+!ypix%:x|
00004100  25 3d 28 67 78 25 2d 21  78 70 69 78 25 29 2a 21  |%=(gx%-!xpix%)*!|
00004110  78 64 69 76 25 81 21 78  6d 75 6c 74 25 81 21 78  |xdiv%.!xmult%.!x|
00004120  70 69 78 25 81 38 30 3a  79 25 3d 28 67 79 25 2d  |pix%.80:y%=(gy%-|
00004130  21 79 70 69 78 25 2d 21  62 61 72 68 65 69 67 68  |!ypix%-!barheigh|
00004140  74 25 29 2a 21 79 64 69  76 25 81 21 79 6d 75 6c  |t%)*!ydiv%.!ymul|
00004150  74 25 81 21 79 70 69 78  25 81 33 32 3a 66 6f 75  |t%.!ypix%.32:fou|
00004160  6e 64 25 3d a3 3a e7 21  6e 6f 61 70 70 73 25 3e  |nd%=.:.!noapps%>|
00004170  2d 31 8c 0d 0f 5a 42 e3  6c 25 3d 30 b8 21 6e 6f  |-1...ZB.l%=0.!no|
00004180  61 70 70 73 25 3a e7 78  79 30 25 3f 6c 25 3d 78  |apps%:.xy0%?l%=x|
00004190  25 80 78 79 31 25 3f 6c  25 3d 79 25 80 62 61 63  |%.xy1%?l%=y%.bac|
000041a0  6b 64 72 6f 70 25 3f 6c  25 3d 21 41 80 ac 66 6f  |kdrop%?l%=!A..fo|
000041b0  75 6e 64 25 8c 0d 0f 64  37 73 65 6c 65 63 74 25  |und%...d7select%|
000041c0  3f 6c 25 3d 30 3a f2 53  28 78 79 30 25 3f 6c 25  |?l%=0:.S(xy0%?l%|
000041d0  2c 78 79 31 25 3f 6c 25  29 3a f2 54 28 6c 25 2c  |,xy1%?l%):.T(l%,|
000041e0  22 22 29 3a 66 6f 75 6e  64 25 3d b9 0d 0f 6e 11  |""):found%=...n.|
000041f0  cd 3a ed 3a e7 ac 66 6f  75 6e 64 25 8c 0d 0f 78  |.:.:..found%...x|
00004200  11 e7 28 62 25 80 31 29  3d 31 8c f2 5a 79 0d 0f  |..(b%.1)=1..Zy..|
00004210  82 21 e3 6c 25 3d 30 b8  21 6e 6f 61 70 70 73 25  |.!.l%=0.!noapps%|
00004220  3a e7 73 65 6c 65 63 74  25 3f 6c 25 3d 31 8c 0d  |:.select%?l%=1..|
00004230  0f 8c 24 73 65 6c 65 63  74 25 3f 6c 25 3d 30 3a  |..$select%?l%=0:|
00004240  f2 53 28 78 79 30 25 3f  6c 25 2c 78 79 31 25 3f  |.S(xy0%?l%,xy1%?|
00004250  6c 25 29 0d 0f 96 07 cd  3a ed 0d 0f a0 05 cd 0d  |l%).....:.......|
00004260  0f aa 07 cd 3a e1 0d 0f  b4 42 dd f2 54 28 61 70  |....:....B..T(ap|
00004270  70 25 2c 59 24 29 3a ea  42 24 2c 5a 24 2c 62 25  |p%,Y$):.B$,Z$,b%|
00004280  3a e7 59 24 3c 3e 22 22  80 5a 24 28 61 70 70 25  |:.Y$<>"".Z$(app%|
00004290  29 3c 3e 22 22 8c 59 24  3d 5a 24 28 61 70 70 25  |)<>"".Y$=Z$(app%|
000042a0  29 2b 22 20 22 2b 59 24  0d 0f be 29 e7 59 24 3c  |)+" "+Y$...).Y$<|
000042b0  3e 22 22 80 4d 24 28 61  70 70 25 29 3c 3e 22 22  |>"".M$(app%)<>""|
000042c0  8c 59 24 2b 3d 22 20 22  2b 4d 24 28 61 70 70 25  |.Y$+=" "+M$(app%|
000042d0  29 0d 0f c8 11 c8 8e 74  79 70 65 25 3f 61 70 70  |)......type%?app|
000042e0  25 ca 0d 0f d2 18 c9 35  3a f2 64 28 61 70 70 25  |%......5:.d(app%|
000042f0  29 3a f2 43 28 61 70 70  25 29 0d 0f dc 18 c9 36  |):.C(app%).....6|
00004300  3a f2 59 28 61 70 70 25  29 3a f2 43 28 61 70 70  |:.Y(app%):.C(app|
00004310  25 29 0d 0f e6 16 c9 37  3a f2 72 28 a0 28 41 24  |%).....7:.r(.(A$|
00004320  28 61 70 70 25 29 29 29  0d 0f f0 1a 7f 3a 76 24  |(app%))).....:v$|
00004330  3d 41 24 28 61 70 70 25  29 3a e7 59 24 3c 3e 22  |=A$(app%):.Y$<>"|
00004340  22 8c 0d 0f fa 26 ff 28  22 57 69 6d 70 54 61 73  |"....&.("WimpTas|
00004350  6b 20 52 75 6e 20 22 2b  41 24 28 61 70 70 25 29  |k Run "+A$(app%)|
00004360  2b 22 20 22 2b 59 24 29  0d 10 04 2a cc 3a e7 6f  |+" "+Y$)...*.:.o|
00004370  70 65 6e 66 69 6c 65 72  25 8c ff 28 22 46 69 6c  |penfiler%..("Fil|
00004380  65 72 5f 52 75 6e 20 22  2b 41 24 28 61 70 70 25  |er_Run "+A$(app%|
00004390  29 29 0d 10 0e 1f e7 73  65 74 63 73 64 25 8c ff  |)).....setcsd%..|
000043a0  28 22 44 69 72 20 22 2b  41 24 28 61 70 70 25 29  |("Dir "+A$(app%)|
000043b0  29 0d 10 18 05 cd 0d 10  22 07 cb 3a e1 0d 10 2c  |)......."..:...,|
000043c0  47 dd f2 76 5f 3a ea 6c  25 2c 74 61 73 6b 74 6f  |G..v_:.l%,taskto|
000043d0  6c 6f 73 65 25 2c 6e 25  2c 69 63 74 61 73 6b 68  |lose%,n%,ictaskh|
000043e0  25 3a 74 61 73 6b 74 6f  6c 6f 73 65 25 3d 62 6c  |%:tasktolose%=bl|
000043f0  6f 63 6b 25 21 34 3a e7  21 6e 6f 61 70 70 73 25  |ock%!4:.!noapps%|
00004400  3e 2d 31 8c 0d 10 36 24  e3 6c 25 3d 21 6e 6f 61  |>-1...6$.l%=!noa|
00004410  70 70 73 25 b8 30 88 2d  31 3a e7 6c 25 3c 3d 21  |pps%.0.-1:.l%<=!|
00004420  6e 6f 61 70 70 73 25 8c  0d 10 40 0f c8 8e 74 79  |noapps%...@...ty|
00004430  70 65 25 3f 6c 25 ca 0d  10 4a 1e c9 35 3a e7 a0  |pe%?l%...J..5:..|
00004440  28 41 24 28 6c 25 29 29  3d 74 61 73 6b 74 6f 6c  |(A$(l%))=tasktol|
00004450  6f 73 65 25 8c 0d 10 54  11 f2 64 28 6c 25 29 3a  |ose%...T..d(l%):|
00004460  f2 43 28 6c 25 29 0d 10  5e 05 cd 0d 10 68 57 c9  |.C(l%)..^....hW.|
00004470  36 3a 70 6f 73 25 3d 30  3a 70 6f 73 25 3d a7 41  |6:pos%=0:pos%=.A|
00004480  24 28 6c 25 29 2c 22 20  22 2c 70 6f 73 25 29 2b  |$(l%)," ",pos%)+|
00004490  31 3a 69 63 74 61 73 6b  68 25 3d a0 28 c1 41 24  |1:ictaskh%=.(.A$|
000044a0  28 6c 25 29 2c 70 6f 73  25 29 29 3a e7 69 63 74  |(l%),pos%)):.ict|
000044b0  61 73 6b 68 25 3d 74 61  73 6b 74 6f 6c 6f 73 65  |askh%=tasktolose|
000044c0  25 8c 0d 10 72 11 f2 59  28 6c 25 29 3a f2 43 28  |%...r..Y(l%):.C(|
000044d0  6c 25 29 0d 10 7c 05 cd  0d 10 86 05 cb 0d 10 90  |l%)..|..........|
000044e0  07 cd 3a ed 0d 10 9a 07  cd 3a e1 0d 10 a4 43 dd  |..:......:....C.|
000044f0  a4 50 28 5a 24 29 3a ea  66 6c 61 67 73 25 3a c8  |.P(Z$):.flags%:.|
00004500  99 78 77 69 6d 70 73 70  72 69 74 65 6f 70 25 2c  |.xwimpspriteop%,|
00004510  34 30 2c 2c 5a 24 b8 3b  66 6c 61 67 73 25 3a 3d  |40,,Z$.;flags%:=|
00004520  28 28 66 6c 61 67 73 25  80 31 29 3d 30 29 0d 10  |((flags%.1)=0)..|
00004530  ae 29 dd f2 70 28 f8 78  25 2c f8 79 25 2c 66 6c  |.)..p(.x%,.y%,fl|
00004540  61 67 25 2c 67 72 61 76  25 29 3a e7 21 6f 72 67  |ag%,grav%):.!org|
00004550  61 6e 69 73 65 25 8c 0d  10 b8 0c c8 8e 67 72 61  |anise%.......gra|
00004560  76 25 ca 0d 10 c2 17 c9  30 3a f2 49 79 28 78 25  |v%......0:.Iy(x%|
00004570  2c 79 25 2c 66 6c 61 67  25 29 0d 10 cc 11 c9 31  |,y%,flag%).....1|
00004580  3a f2 78 5f 28 78 25 2c  79 25 29 0d 10 d6 11 c9  |:.x_(x%,y%).....|
00004590  32 3a f2 76 79 28 78 25  2c 79 25 29 0d 10 e0 11  |2:.vy(x%,y%)....|
000045a0  c9 33 3a f2 47 5f 28 78  25 2c 79 25 29 0d 10 ea  |.3:.G_(x%,y%)...|
000045b0  11 c9 34 3a f2 63 79 28  78 25 2c 79 25 29 0d 10  |..4:.cy(x%,y%)..|
000045c0  f4 05 cb 0d 10 fe 16 cc  3a f2 49 79 28 78 25 2c  |........:.Iy(x%,|
000045d0  79 25 2c 66 6c 61 67 25  29 0d 11 08 07 cd 3a e1  |y%,flag%).....:.|
000045e0  0d 11 12 53 dd f2 44 28  66 74 25 2c 41 24 2c 5a  |...S..D(ft%,A$,Z|
000045f0  24 2c 66 6c 61 67 25 29  3a ea 70 72 65 73 65 6e  |$,flag%):.presen|
00004600  74 25 2c 6f 62 6a 74 79  70 65 25 3a 41 24 28 21  |t%,objtype%:A$(!|
00004610  6e 6f 61 70 70 73 25 2b  31 29 3d 41 24 3a 41 25  |noapps%+1)=A$:A%|
00004620  28 21 6e 6f 61 70 70 73  25 2b 31 29 3d 30 3a c8  |(!noapps%+1)=0:.|
00004630  8e b9 ca 0d 11 1c 39 c9  66 74 25 3d 2d 34 3a 41  |......9.ft%=-4:A|
00004640  24 28 21 6e 6f 61 70 70  73 25 2b 31 29 3d 41 24  |$(!noapps%+1)=A$|
00004650  3a f2 52 28 22 62 61 63  6b 64 72 6f 70 22 2c 37  |:.R("backdrop",7|
00004660  2c 21 62 61 63 6b 67 72  61 76 25 29 0d 11 26 51  |,!backgrav%)..&Q|
00004670  c9 66 74 25 3d 2d 33 3a  41 24 28 21 6e 6f 61 70  |.ft%=-3:A$(!noap|
00004680  70 73 25 2b 31 29 3d c1  41 24 2c a7 41 24 2c 22  |ps%+1)=.A$,.A$,"|
00004690  20 22 29 2b 31 29 3a 6b  24 3d c0 41 24 2c a7 41  | ")+1):k$=.A$,.A|
000046a0  24 2c 22 20 22 29 2d 31  29 3a f2 52 28 6b 24 2c  |$," ")-1):.R(k$,|
000046b0  36 2c 21 77 69 6e 64 67  72 61 76 25 29 0d 11 30  |6,!windgrav%)..0|
000046c0  2d c9 66 74 25 3d 2d 32  3a e7 a4 50 28 22 69 63  |-.ft%=-2:..P("ic|
000046d0  5f 22 2b c0 5a 24 2c a4  51 28 39 2c a7 5a 24 2c  |_"+.Z$,.Q(9,.Z$,|
000046e0  22 20 22 29 2d 31 29 29  29 8c 0d 11 3a 30 f2 52  |" ")-1)))...:0.R|
000046f0  28 22 69 63 5f 22 2b c0  5a 24 2c a4 51 28 39 2c  |("ic_"+.Z$,.Q(9,|
00004700  a7 5a 24 2c 22 20 22 29  2d 31 29 29 2c 35 2c 21  |.Z$," ")-1)),5,!|
00004710  77 69 6e 64 67 72 61 76  25 29 0d 11 44 1e cc 3a  |windgrav%)..D..:|
00004720  f2 52 28 22 68 69 64 64  65 6e 22 2c 35 2c 21 77  |.R("hidden",5,!w|
00004730  69 6e 64 61 70 70 25 29  0d 11 4e 05 cd 0d 11 58  |indapp%)..N....X|
00004740  5e c9 66 74 25 3d 38 31  39 32 3a f2 52 28 5a 24  |^.ft%=8192:.R(Z$|
00004750  2c 33 2c 21 61 70 70 73  67 72 61 76 25 29 3a c8  |,3,!appsgrav%):.|
00004760  99 38 2c 31 33 2c 22 21  48 65 6c 70 22 2c 2c 2c  |.8,13,"!Help",,,|
00004770  41 24 2b 22 2e 22 b8 70  72 65 73 65 6e 74 25 3a  |A$+".".present%:|
00004780  41 25 28 21 6e 6f 61 70  70 73 25 2b 31 29 3d 28  |A%(!noapps%+1)=(|
00004790  70 72 65 73 65 6e 74 25  3e 30 29 0d 11 62 1e c9  |present%>0)..b..|
000047a0  66 74 25 3d 34 30 39 36  3a f2 47 79 28 22 64 69  |ft%=4096:.Gy("di|
000047b0  72 65 63 74 6f 72 79 22  29 0d 11 6c 4c 7f 3a c8  |rectory")..lL.:.|
000047c0  99 38 2c 31 33 2c 5a 24  2c 2c 2c c0 41 24 2c a9  |.8,13,Z$,,,.A$,.|
000047d0  41 24 2d a9 5a 24 29 b8  6f 62 6a 74 79 70 65 25  |A$-.Z$).objtype%|
000047e0  2c 2c 66 74 25 3a 66 74  25 3d 28 66 74 25 80 26  |,,ft%:ft%=(ft%.&|
000047f0  66 66 66 30 30 29 3e 3e  38 3a c8 8e 6f 62 6a 74  |fff00)>>8:..objt|
00004800  79 70 65 25 ca 0d 11 76  25 c9 33 3a f2 47 79 28  |ype%...v%.3:.Gy(|
00004810  22 66 69 6c 65 5f 22 2b  c2 22 30 30 30 22 2b c3  |"file_"+."000"+.|
00004820  7e 28 66 74 25 29 2c 33  29 29 0d 11 80 31 c9 31  |~(ft%),3))...1.1|
00004830  3a f2 52 28 22 66 69 6c  65 5f 22 2b c2 22 30 30  |:.R("file_"+."00|
00004840  30 22 2b c3 7e 28 66 74  25 29 2c 33 29 2c 31 2c  |0"+.~(ft%),3),1,|
00004850  21 61 70 70 73 67 72 61  76 25 29 0d 11 8a 05 cb  |!appsgrav%).....|
00004860  0d 11 94 f7 cb 3a 21 6e  6f 61 70 70 73 25 2b 3d  |.....:!noapps%+=|
00004870  31 3a f2 5a 28 5a 24 2c  6c 65 61 66 25 2b 31 32  |1:.Z(Z$,leaf%+12|
00004880  2a 21 6e 6f 61 70 70 73  25 29 3a 78 79 30 25 3f  |*!noapps%):xy0%?|
00004890  28 21 6e 6f 61 70 70 73  25 29 3d 78 25 3a 78 79  |(!noapps%)=x%:xy|
000048a0  31 25 3f 28 21 6e 6f 61  70 70 73 25 29 3d 79 25  |1%?(!noapps%)=y%|
000048b0  3a 69 78 79 30 25 3f 28  21 6e 6f 61 70 70 73 25  |:ixy0%?(!noapps%|
000048c0  29 3d 78 25 3a 69 78 79  31 25 3f 28 21 6e 6f 61  |)=x%:ixy1%?(!noa|
000048d0  70 70 73 25 29 3d 79 25  3a 74 79 70 65 25 3f 21  |pps%)=y%:type%?!|
000048e0  6e 6f 61 70 70 73 25 3d  66 69 6c 65 74 79 70 65  |noapps%=filetype|
000048f0  25 3a 64 72 61 67 6f 6e  74 6f 25 3f 21 6e 6f 61  |%:dragonto%?!noa|
00004900  70 70 73 25 3d 30 3a 68  6f 74 6b 65 79 73 25 21  |pps%=0:hotkeys%!|
00004910  28 28 21 6e 6f 61 70 70  73 25 29 2a 34 29 3d 2d  |((!noapps%)*4)=-|
00004920  31 33 3a 5a 24 28 21 6e  6f 61 70 70 73 25 29 3d  |13:Z$(!noapps%)=|
00004930  22 22 3a 4d 24 28 21 6e  6f 61 70 70 73 25 29 3d  |"":M$(!noapps%)=|
00004940  22 22 3a 73 65 6c 65 63  74 25 3f 28 21 6e 6f 61  |"":select%?(!noa|
00004950  70 70 73 25 29 3d 30 0d  11 9e 41 62 61 63 6b 64  |pps%)=0...Abackd|
00004960  72 6f 70 25 3f 28 21 6e  6f 61 70 70 73 25 29 3d  |rop%?(!noapps%)=|
00004970  21 41 3a f2 53 28 78 79  30 25 3f 28 21 6e 6f 61  |!A:.S(xy0%?(!noa|
00004980  70 70 73 25 29 2c 78 79  31 25 3f 28 21 6e 6f 61  |pps%),xy1%?(!noa|
00004990  70 70 73 25 29 29 3a e1  0d 11 a8 54 dd f2 47 79  |pps%)):....T..Gy|
000049a0  28 58 24 29 3a 66 69 6c  65 74 79 70 65 25 3d 32  |(X$):filetype%=2|
000049b0  3a f2 5a 28 58 24 2c 73  70 72 69 74 65 25 2b 31  |:.Z(X$,sprite%+1|
000049c0  32 2a 28 21 6e 6f 61 70  70 73 25 2b 31 29 29 3a  |2*(!noapps%+1)):|
000049d0  f2 70 28 78 25 2c 79 25  2c 66 6c 61 67 25 2c 21  |.p(x%,y%,flag%,!|
000049e0  64 69 72 73 67 72 61 76  25 29 3a e1 0d 11 b2 5a  |dirsgrav%):....Z|
000049f0  dd f2 52 28 58 24 2c 66  74 25 2c 67 72 61 76 25  |..R(X$,ft%,grav%|
00004a00  29 3a 66 69 6c 65 74 79  70 65 25 3d 66 74 25 3a  |):filetype%=ft%:|
00004a10  f2 5a 28 58 24 2c 73 70  72 69 74 65 25 2b 31 32  |.Z(X$,sprite%+12|
00004a20  2a 28 21 6e 6f 61 70 70  73 25 2b 31 29 29 3a f2  |*(!noapps%+1)):.|
00004a30  70 28 78 25 2c 79 25 2c  66 6c 61 67 25 2c 67 72  |p(x%,y%,flag%,gr|
00004a40  61 76 25 29 3a e1 0d 11  bc 6d dd f2 79 5f 3a ea  |av%):....m..y_:.|
00004a50  68 25 2c 62 25 2c 69 25  3a 69 25 3d 62 6c 6f 63  |h%,b%,i%:i%=bloc|
00004a60  6b 25 21 31 36 3a 68 25  3d 62 6c 6f 63 6b 25 21  |k%!16:h%=block%!|
00004a70  31 32 3a 62 25 3d 62 6c  6f 63 6b 25 21 38 3a 73  |12:b%=block%!8:s|
00004a80  68 69 66 74 25 3d a6 28  2d 31 29 3a 6d 6f 75 73  |hift%=.(-1):mous|
00004a90  65 78 25 3d 62 6c 6f 63  6b 25 21 30 3a 6d 6f 75  |ex%=block%!0:mou|
00004aa0  73 65 79 25 3d 62 6c 6f  63 6b 25 21 34 3a c8 8e  |sey%=block%!4:..|
00004ab0  68 25 ca 0d 11 c6 20 c9  66 69 6c 65 61 63 63 65  |h%.... .fileacce|
00004ac0  73 73 25 3a e7 28 62 25  80 34 29 3d 34 80 69 25  |ss%:.(b%.4)=4.i%|
00004ad0  3d 30 8c 0d 11 d0 19 c8  99 77 69 6d 70 63 72 65  |=0.......wimpcre|
00004ae0  61 74 65 6d 65 6e 75 25  2c 2c 2d 31 0d 11 da 1b  |atemenu%,,-1....|
00004af0  cd 3a e7 28 62 25 80 32  29 3d 30 80 69 25 3d 30  |.:.(b%.2)=0.i%=0|
00004b00  8c f2 50 79 28 a3 29 0d  11 e4 26 e7 28 62 25 80  |..Py(.)...&.(b%.|
00004b10  32 29 3d 30 80 69 25 3d  36 8c f2 41 28 66 69 6c  |2)=0.i%=6..A(fil|
00004b20  65 61 63 63 65 73 73 25  2c 36 2c 30 29 0d 11 ee  |eaccess%,6,0)...|
00004b30  0e c9 66 69 6c 65 69 6e  66 6f 25 0d 11 f8 20 c9  |..fileinfo%... .|
00004b40  62 61 63 6b 67 25 3a e7  73 68 69 66 74 25 80 28  |backg%:.shift%.(|
00004b50  62 25 80 32 29 3d 32 8c  f2 47 4a 0d 12 02 17 e7  |b%.2)=2..GJ.....|
00004b60  28 62 25 80 36 34 29 3d  36 34 8c f2 55 79 28 36  |(b%.64)=64..Uy(6|
00004b70  34 29 0d 12 0c 17 e7 28  62 25 80 31 36 29 3d 31  |4).....(b%.16)=1|
00004b80  36 8c f2 55 79 28 31 36  29 0d 12 16 1f e7 ac 73  |6..Uy(16)......s|
00004b90  68 69 66 74 25 80 28 62  25 80 32 29 3d 32 8c f2  |hift%.(b%.2)=2..|
00004ba0  48 28 b9 2c 37 2c b9 29  0d 12 20 15 e7 28 62 25  |H(.,7,.).. ..(b%|
00004bb0  80 34 29 3d 34 8c f2 61  79 28 62 25 29 0d 12 2a  |.4)=4..ay(b%)..*|
00004bc0  15 e7 28 62 25 80 31 29  3d 31 8c f2 61 79 28 62  |..(b%.1)=1..ay(b|
00004bd0  25 29 0d 12 34 1a e7 28  62 25 80 31 30 32 34 29  |%)..4..(b%.1024)|
00004be0  3d 31 30 32 34 8c f2 46  79 28 34 29 0d 12 3e 18  |=1024..Fy(4)..>.|
00004bf0  e7 28 62 25 80 32 35 36  29 3d 32 35 36 8c f2 46  |.(b%.256)=256..F|
00004c00  79 28 31 29 0d 12 48 20  c9 63 6f 6e 66 69 67 25  |y(1)..H .config%|
00004c10  3a e7 28 62 25 80 32 29  3d 32 8c f2 48 28 b9 2c  |:.(b%.2)=2..H(.,|
00004c20  30 2c b9 29 0d 12 52 10  e7 28 62 25 80 31 29 3d  |0,.)..R..(b%.1)=|
00004c30  31 8c f2 75 0d 12 5c 10  e7 28 62 25 80 34 29 3d  |1..u..\..(b%.4)=|
00004c40  34 8c f2 75 0d 12 66 21  c9 63 6f 6e 66 69 67 32  |4..u..f!.config2|
00004c50  25 3a e7 28 62 25 80 32  29 3d 32 8c f2 48 28 b9  |%:.(b%.2)=2..H(.|
00004c60  2c 30 2c b9 29 0d 12 70  11 e7 28 62 25 80 31 29  |,0,.)..p..(b%.1)|
00004c70  3d 31 8c f2 5f 79 0d 12  7a 11 e7 28 62 25 80 34  |=1.._y..z..(b%.4|
00004c80  29 3d 34 8c f2 5f 79 0d  12 84 0a c9 69 6e 66 6f  |)=4.._y.....info|
00004c90  25 0d 12 8e 2b c9 73 61  76 65 77 69 6e 64 6f 77  |%...+.savewindow|
00004ca0  25 3a e7 28 62 25 80 34  29 3d 34 8c f2 6e 28 62  |%:.(b%.4)=4..n(b|
00004cb0  25 2c 62 6c 6f 63 6b 25  21 31 36 29 0d 12 98 1e  |%,block%!16)....|
00004cc0  e7 28 62 25 80 31 29 3d  31 8c f2 6e 28 62 25 2c  |.(b%.1)=1..n(b%,|
00004cd0  62 6c 6f 63 6b 25 21 31  36 29 0d 12 a2 13 e7 28  |block%!16).....(|
00004ce0  62 25 80 31 36 29 3d 31  36 8c f2 4c 79 0d 12 ac  |b%.16)=16..Ly...|
00004cf0  13 e7 28 62 25 80 36 34  29 3d 36 34 8c f2 4c 79  |..(b%.64)=64..Ly|
00004d00  0d 12 b6 1d c9 6d 61 70  77 69 6e 64 6f 77 25 3a  |.....mapwindow%:|
00004d10  e7 28 62 25 80 34 29 3d  34 8c f2 48 79 0d 12 c0  |.(b%.4)=4..Hy...|
00004d20  11 e7 28 62 25 80 31 29  3d 31 8c f2 48 79 0d 12  |..(b%.1)=1..Hy..|
00004d30  ca 17 e7 28 62 25 80 32  29 3d 32 8c f2 48 28 b9  |...(b%.2)=2..H(.|
00004d40  2c 31 2c b9 29 0d 12 d4  13 e7 28 62 25 80 31 36  |,1,.).....(b%.16|
00004d50  29 3d 31 36 8c f2 4f 79  0d 12 de 13 e7 28 62 25  |)=16..Oy.....(b%|
00004d60  80 36 34 29 3d 36 34 8c  f2 4f 79 0d 12 e8 19 7f  |.64)=64..Oy.....|
00004d70  3a e7 28 62 25 80 32 29  3d 32 8c f2 48 28 b9 2c  |:.(b%.2)=2..H(.,|
00004d80  30 2c b9 29 0d 12 f2 11  e7 28 62 25 80 34 29 3d  |0,.).....(b%.4)=|
00004d90  34 8c f2 56 79 0d 12 fc  11 e7 28 62 25 80 31 29  |4..Vy.....(b%.1)|
00004da0  3d 31 8c f2 4a 79 0d 13  06 07 cb 3a e1 0d 13 10  |=1..Jy.....:....|
00004db0  44 dd f2 42 28 f8 4d 24  29 3a c8 95 c0 4d 24 2c  |D..B(.M$):...M$,|
00004dc0  31 29 3d 22 20 22 3a 4d  24 3d c1 4d 24 2c 32 29  |1)=" ":M$=.M$,2)|
00004dd0  3a ce 3a c8 95 c2 4d 24  2c 31 29 3d 22 20 22 3a  |:.:...M$,1)=" ":|
00004de0  4d 24 3d c0 4d 24 2c a9  4d 24 2d 31 29 3a ce 3a  |M$=.M$,.M$-1):.:|
00004df0  e1 0d 13 1a 1c dd f2 5a  28 41 24 2c 70 74 72 25  |.......Z(A$,ptr%|
00004e00  29 3a ea 6c 25 3a e7 a9  41 24 3e 30 8c 0d 13 24  |):.l%:..A$>0...$|
00004e10  2a e3 6c 25 3d 30 b8 28  a9 41 24 29 2d 31 3a 70  |*.l%=0.(.A$)-1:p|
00004e20  74 72 25 3f 6c 25 3d 97  28 c1 41 24 2c 6c 25 2b  |tr%?l%=.(.A$,l%+|
00004e30  31 2c 31 29 29 3a ed 0d  13 2e 14 cd 3a 70 74 72  |1,1)):......:ptr|
00004e40  25 3f 28 a9 41 24 29 3d  30 3a e1 0d 13 38 44 dd  |%?(.A$)=0:...8D.|
00004e50  a4 46 28 53 24 29 3a ea  70 25 3a 70 25 3d 30 3a  |.F(S$):.p%:p%=0:|
00004e60  c8 95 a7 53 24 2c 22 2e  22 2c 70 25 2b 31 29 3e  |...S$,".",p%+1)>|
00004e70  30 3a 70 25 3d a7 53 24  2c 22 2e 22 2c 70 25 2b  |0:p%=.S$,".",p%+|
00004e80  31 29 3a ce 3a 3d c0 53  24 2c 70 25 2d 31 29 0d  |1):.:=.S$,p%-1).|
00004e90  13 42 4f dd f2 43 28 72  65 6d 6f 76 65 25 29 3a  |.BO..C(remove%):|
00004ea0  ea 6c 25 3a f2 53 28 78  79 30 25 3f 72 65 6d 6f  |.l%:.S(xy0%?remo|
00004eb0  76 65 25 2c 78 79 31 25  3f 72 65 6d 6f 76 65 25  |ve%,xy1%?remove%|
00004ec0  29 3a e7 74 79 70 65 25  3f 72 65 6d 6f 76 65 25  |):.type%?remove%|
00004ed0  3d 37 f2 63 5f 28 72 65  6d 6f 76 65 25 29 0d 13  |=7.c_(remove%)..|
00004ee0  4c 16 e7 72 65 6d 6f 76  65 25 3c 21 6e 6f 61 70  |L..remove%<!noap|
00004ef0  70 73 25 8c 0d 13 56 e8  e3 6c 25 3d 72 65 6d 6f  |ps%...V..l%=remo|
00004f00  76 65 25 b8 21 6e 6f 61  70 70 73 25 2d 31 3a 74  |ve%.!noapps%-1:t|
00004f10  79 70 65 25 3f 6c 25 3d  74 79 70 65 25 3f 28 6c  |ype%?l%=type%?(l|
00004f20  25 2b 31 29 3a 64 72 61  67 6f 6e 74 6f 25 3f 6c  |%+1):dragonto%?l|
00004f30  25 3d 64 72 61 67 6f 6e  74 6f 25 3f 28 6c 25 2b  |%=dragonto%?(l%+|
00004f40  31 29 3a 41 24 28 6c 25  29 3d 41 24 28 6c 25 2b  |1):A$(l%)=A$(l%+|
00004f50  31 29 3a f2 5a 28 a4 41  28 73 70 72 69 74 65 25  |1):.Z(.A(sprite%|
00004f60  2b 31 32 2a 28 6c 25 2b  31 29 29 2c 73 70 72 69  |+12*(l%+1)),spri|
00004f70  74 65 25 2b 31 32 2a 6c  25 29 3a f2 5a 28 a4 41  |te%+12*l%):.Z(.A|
00004f80  28 6c 65 61 66 25 2b 31  32 2a 28 6c 25 2b 31 29  |(leaf%+12*(l%+1)|
00004f90  29 2c 6c 65 61 66 25 2b  6c 25 2a 31 32 29 3a 78  |),leaf%+l%*12):x|
00004fa0  79 30 25 3f 6c 25 3d 78  79 30 25 3f 28 6c 25 2b  |y0%?l%=xy0%?(l%+|
00004fb0  31 29 3a 78 79 31 25 3f  6c 25 3d 78 79 31 25 3f  |1):xy1%?l%=xy1%?|
00004fc0  28 6c 25 2b 31 29 3a 69  78 79 30 25 3f 6c 25 3d  |(l%+1):ixy0%?l%=|
00004fd0  69 78 79 30 25 3f 28 6c  25 2b 31 29 0d 13 60 85  |ixy0%?(l%+1)..`.|
00004fe0  69 78 79 31 25 3f 6c 25  3d 69 78 79 31 25 3f 28  |ixy1%?l%=ixy1%?(|
00004ff0  6c 25 2b 31 29 3a 41 25  28 6c 25 29 3d 41 25 28  |l%+1):A%(l%)=A%(|
00005000  6c 25 2b 31 29 3a 68 6f  74 6b 65 79 73 25 21 28  |l%+1):hotkeys%!(|
00005010  6c 25 2a 34 29 3d 68 6f  74 6b 65 79 73 25 21 28  |l%*4)=hotkeys%!(|
00005020  6c 25 2a 34 2b 34 29 3a  73 65 6c 65 63 74 25 3f  |l%*4+4):select%?|
00005030  6c 25 3d 73 65 6c 65 63  74 25 3f 28 6c 25 2b 31  |l%=select%?(l%+1|
00005040  29 3a 62 61 63 6b 64 72  6f 70 25 3f 6c 25 3d 62  |):backdrop%?l%=b|
00005050  61 63 6b 64 72 6f 70 25  3f 28 6c 25 2b 31 29 3a  |ackdrop%?(l%+1):|
00005060  ed 0d 13 6a 1e cd 3a 21  6e 6f 61 70 70 73 25 2d  |...j..:!noapps%-|
00005070  3d 31 3a c8 99 26 34 34  36 63 36 2c 46 3a e1 0d  |=1:..&446c6,F:..|
00005080  13 74 27 dd f2 76 3a ea  73 70 72 78 25 2c 73 70  |.t'..v:.sprx%,sp|
00005090  72 79 25 2c 6d 6f 64 65  25 2c 63 6f 6c 73 25 3a  |ry%,mode%,cols%:|
000050a0  e7 21 53 3d 31 8c 0d 13  7e 81 c8 99 34 36 2c 35  |.!S=1...~...46,5|
000050b0  35 32 2c 62 61 63 6b 64  72 6f 70 73 70 72 69 74  |52,backdropsprit|
000050c0  65 61 72 65 61 25 2c 21  62 61 63 6b 64 72 6f 70  |earea%,!backdrop|
000050d0  73 70 72 69 74 65 6e 61  6d 65 70 74 72 25 b8 2c  |spritenameptr%.,|
000050e0  2c 2c 73 70 72 78 25 2c  73 70 72 79 25 2c 2c 6d  |,,sprx%,spry%,,m|
000050f0  6f 64 65 25 3a c8 99 35  33 2c 6d 6f 64 65 25 2c  |ode%:..53,mode%,|
00005100  33 b8 2c 2c 63 6f 6c 73  25 3a c8 99 35 33 2c 2d  |3.,,cols%:..53,-|
00005110  31 2c 33 b8 2c 2c 63 6f  6c 73 32 25 3a e7 63 6f  |1,3.,,cols2%:.co|
00005120  6c 73 25 3d 36 33 8c 0d  13 88 2c c8 99 26 34 30  |ls%=63....,..&40|
00005130  37 34 30 2c 6d 6f 64 65  25 2c 30 2c 2d 31 2c 2d  |740,mode%,0,-1,-|
00005140  31 2c 63 6f 6c 6f 75 72  74 72 61 6e 73 62 6c 6f  |1,colourtransblo|
00005150  63 6b 25 0d 13 92 69 cc  3a c8 99 26 34 30 30 65  |ck%...i.:..&400e|
00005160  64 2c 35 31 32 2c 62 61  63 6b 64 72 6f 70 73 70  |d,512,backdropsp|
00005170  72 69 74 65 61 72 65 61  25 2c 21 62 61 63 6b 64  |ritearea%,!backd|
00005180  72 6f 70 73 70 72 69 74  65 6e 61 6d 65 70 74 72  |ropspritenameptr|
00005190  25 2c 2c 2c 2c 62 61 63  6b 64 72 6f 70 74 6f 6d  |%,,,,backdroptom|
000051a0  6f 64 65 73 63 61 6c 65  66 25 2c 63 6f 6c 6f 75  |odescalef%,colou|
000051b0  72 74 72 61 6e 73 62 6c  6f 63 6b 25 0d 13 9c f5  |rtransblock%....|
000051c0  cd 3a 21 62 61 63 6b 64  72 6f 70 73 70 72 69 74  |.:!backdropsprit|
000051d0  65 77 69 64 74 68 25 3d  28 73 70 72 78 25 3c 3c  |ewidth%=(sprx%<<|
000051e0  78 65 69 67 25 29 2a 28  21 62 61 63 6b 64 72 6f  |xeig%)*(!backdro|
000051f0  70 74 6f 6d 6f 64 65 73  63 61 6c 65 66 25 29 2f  |ptomodescalef%)/|
00005200  28 62 61 63 6b 64 72 6f  70 74 6f 6d 6f 64 65 73  |(backdroptomodes|
00005210  63 61 6c 65 66 25 21 38  29 3a 21 62 61 63 6b 64  |calef%!8):!backd|
00005220  72 6f 70 73 70 72 69 74  65 68 65 69 67 68 74 25  |ropspriteheight%|
00005230  3d 28 73 70 72 79 25 3c  3c 79 65 69 67 25 29 2a  |=(spry%<<yeig%)*|
00005240  28 62 61 63 6b 64 72 6f  70 74 6f 6d 6f 64 65 73  |(backdroptomodes|
00005250  63 61 6c 65 66 25 21 34  29 2f 28 62 61 63 6b 64  |calef%!4)/(backd|
00005260  72 6f 70 74 6f 6d 6f 64  65 73 63 61 6c 65 66 25  |roptomodescalef%|
00005270  21 31 32 29 3a 21 62 61  63 6b 64 72 6f 70 73 70  |!12):!backdropsp|
00005280  72 69 74 65 63 65 6e 74  72 65 78 25 3d 28 28 21  |ritecentrex%=((!|
00005290  78 6d 61 78 25 29 2d 28  21 62 61 63 6b 64 72 6f  |xmax%)-(!backdro|
000052a0  70 73 70 72 69 74 65 77  69 64 74 68 25 29 29 81  |pspritewidth%)).|
000052b0  32 0d 13 a6 d5 21 62 61  63 6b 64 72 6f 70 73 70  |2....!backdropsp|
000052c0  72 69 74 65 63 65 6e 74  72 65 79 25 3d 28 28 21  |ritecentrey%=((!|
000052d0  79 6d 61 78 25 29 2d 31  33 34 2d 28 21 62 61 63  |ymax%)-134-(!bac|
000052e0  6b 64 72 6f 70 73 70 72  69 74 65 68 65 69 67 68  |kdropspriteheigh|
000052f0  74 25 29 29 81 32 2b 31  33 34 3a 21 62 61 63 6b  |t%)).2+134:!back|
00005300  64 72 6f 70 73 70 72 69  74 65 73 63 61 6c 65 66  |dropspritescalef|
00005310  25 3d 21 78 6d 61 78 25  3a 62 61 63 6b 64 72 6f  |%=!xmax%:backdro|
00005320  70 73 70 72 69 74 65 73  63 61 6c 65 66 25 21 34  |pspritescalef%!4|
00005330  3d 21 79 6d 61 78 25 2d  31 33 33 3a 62 61 63 6b  |=!ymax%-133:back|
00005340  64 72 6f 70 73 70 72 69  74 65 73 63 61 6c 65 66  |dropspritescalef|
00005350  25 21 38 3d 73 70 72 78  25 3c 3c 78 65 69 67 25  |%!8=sprx%<<xeig%|
00005360  3a 62 61 63 6b 64 72 6f  70 73 70 72 69 74 65 73  |:backdropsprites|
00005370  63 61 6c 65 66 25 21 31  32 3d 73 70 72 79 25 3c  |calef%!12=spry%<|
00005380  3c 79 65 69 67 25 0d 13  b0 07 cd 3a e1 0d 13 ba  |<yeig%.....:....|
00005390  8f dd f2 67 28 53 24 29  3a f2 71 3a 70 61 74 68  |...g(S$):.q:path|
000053a0  25 3d a9 a4 46 28 53 24  29 3a 6d 6f 72 65 25 3d  |%=..F(S$):more%=|
000053b0  30 3a f5 3a c8 99 26 32  30 30 30 63 2c 31 31 2c  |0:.:..&2000c,11,|
000053c0  c0 53 24 2c 70 61 74 68  25 29 2c 62 6c 6f 63 6b  |.S$,path%),block|
000053d0  25 2c 31 2c 6d 6f 72 65  25 2c 32 35 36 2c c1 53  |%,1,more%,256,.S|
000053e0  24 2c 70 61 74 68 25 2b  32 29 b8 2c 2c 2c 72 65  |$,path%+2).,,,re|
000053f0  61 64 25 2c 6d 6f 72 65  25 3b 66 6c 61 67 73 25  |ad%,more%;flags%|
00005400  3a fd 6d 6f 72 65 25 3d  2d 31 84 72 65 61 64 25  |:.more%=-1.read%|
00005410  3d 31 3a e7 72 65 61 64  25 3d 31 8c 0d 13 c4 6b  |=1:.read%=1....k|
00005420  73 69 7a 65 25 3d 62 6c  6f 63 6b 25 21 38 3a 62  |size%=block%!8:b|
00005430  6c 6f 63 6b 25 21 38 3d  30 3a 62 6c 6f 63 6b 25  |lock%!8=0:block%|
00005440  21 31 32 3d 30 3a c8 99  26 32 30 30 31 65 2c 36  |!12=0:..&2001e,6|
00005450  2c 2c 2c 73 69 7a 65 25  2b 33 30 b8 2c 2c 62 61  |,,,size%+30.,,ba|
00005460  63 6b 64 72 6f 70 73 70  72 69 74 65 61 72 65 61  |ckdropspritearea|
00005470  25 3b 66 6c 61 67 73 25  3a e7 28 66 6c 61 67 73  |%;flags%:.(flags|
00005480  25 80 31 29 3d 31 8c 0d  13 ce 1c 62 61 63 6b 64  |%.1)=1.....backd|
00005490  72 6f 70 73 70 72 69 74  65 61 72 65 61 25 3d 30  |ropspritearea%=0|
000054a0  3a f2 71 0d 13 d8 fb cc  3a 21 62 61 63 6b 64 72  |:.q.....:!backdr|
000054b0  6f 70 73 70 72 69 74 65  61 72 65 61 70 74 72 25  |opspriteareaptr%|
000054c0  3d 62 61 63 6b 64 72 6f  70 73 70 72 69 74 65 61  |=backdropspritea|
000054d0  72 65 61 25 3a 21 62 61  63 6b 64 72 6f 70 73 70  |rea%:!backdropsp|
000054e0  72 69 74 65 61 72 65 61  25 3d 73 69 7a 65 25 2b  |ritearea%=size%+|
000054f0  33 30 3a 62 61 63 6b 64  72 6f 70 73 70 72 69 74  |30:backdropsprit|
00005500  65 61 72 65 61 25 21 34  3d 30 3a 62 61 63 6b 64  |earea%!4=0:backd|
00005510  72 6f 70 73 70 72 69 74  65 61 72 65 61 25 21 38  |ropspritearea%!8|
00005520  3d 31 36 3a 62 61 63 6b  64 72 6f 70 73 70 72 69  |=16:backdropspri|
00005530  74 65 61 72 65 61 25 21  31 32 3d 31 36 3a c8 99  |tearea%!12=16:..|
00005540  34 36 2c 32 36 36 2c 62  61 63 6b 64 72 6f 70 73  |46,266,backdrops|
00005550  70 72 69 74 65 61 72 65  61 25 2c 53 24 3a 21 62  |pritearea%,S$:!b|
00005560  6c 6f 63 6b 25 3d 63 6f  6e 66 69 67 32 25 3a 62  |lock%=config2%:b|
00005570  6c 6f 63 6b 25 21 34 3d  34 39 3a c8 99 77 69 6d  |lock%!4=49:..wim|
00005580  70 67 69 73 25 2c 2c 62  6c 6f 63 6b 25 3a f2 5a  |pgis%,,block%:.Z|
00005590  28 53 24 2c 62 6c 6f 63  6b 25 21 32 38 29 0d 13  |(S$,block%!28)..|
000055a0  e2 5b 7a 24 3d 53 24 3a  21 62 61 63 6b 64 72 6f  |.[z$=S$:!backdro|
000055b0  70 73 70 72 69 74 65 6e  61 6d 65 70 74 72 25 3d  |pspritenameptr%=|
000055c0  62 61 63 6b 64 72 6f 70  73 70 72 69 74 65 61 72  |backdropspritear|
000055d0  65 61 25 2b 28 62 61 63  6b 64 72 6f 70 73 70 72  |ea%+(backdropspr|
000055e0  69 74 65 61 72 65 61 25  21 38 29 3a 21 53 3d 31  |itearea%!8):!S=1|
000055f0  3a f2 68 3a f2 76 3a f2  55 0d 13 ec 05 cd 0d 13  |:.h:.v:.U.......|
00005600  f6 07 cd 3a e1 0d 14 00  37 dd f2 71 3a e7 62 61  |...:....7..q:.ba|
00005610  63 6b 64 72 6f 70 73 70  72 69 74 65 61 72 65 61  |ckdropspritearea|
00005620  25 3c 3e 30 8c f2 46 28  62 61 63 6b 64 72 6f 70  |%<>0..F(backdrop|
00005630  73 70 72 69 74 65 61 72  65 61 25 29 0d 14 0a 40  |spritearea%)...@|
00005640  62 61 63 6b 64 72 6f 70  73 70 72 69 74 65 61 72  |backdropspritear|
00005650  65 61 25 3d 30 3a 21 62  61 63 6b 64 72 6f 70 73  |ea%=0:!backdrops|
00005660  70 72 69 74 65 61 72 65  61 70 74 72 25 3d 30 3a  |priteareaptr%=0:|
00005670  7a 24 3d 22 22 3a 21 53  3d 30 3a e1 0d 14 14 52  |z$="":!S=0:....R|
00005680  dd f2 4a 79 3a 6d 61 70  77 69 6e 64 6f 77 6f 70  |..Jy:mapwindowop|
00005690  65 6e 25 3d b9 3a 21 62  6c 6f 63 6b 25 3d 6d 61  |en%=.:!block%=ma|
000056a0  70 77 69 6e 64 6f 77 25  3a c8 99 77 69 6d 70 67  |pwindow%:..wimpg|
000056b0  77 73 25 2c 2c 62 6c 6f  63 6b 25 3a e7 62 6c 6f  |ws%,,block%:.blo|
000056c0  63 6b 25 21 31 32 3e 21  78 6d 61 78 25 8c 0d 14  |ck%!12>!xmax%...|
000056d0  1e 2f 62 6c 6f 63 6b 25  21 34 2b 3d 21 78 6d 61  |./block%!4+=!xma|
000056e0  78 25 2d 62 6c 6f 63 6b  25 21 31 32 3a 62 6c 6f  |x%-block%!12:blo|
000056f0  63 6b 25 21 31 32 3d 21  78 6d 61 78 25 0d 14 28  |ck%!12=!xmax%..(|
00005700  12 cd 3a e7 62 6c 6f 63  6b 25 21 34 3c 30 8c 0d  |..:.block%!4<0..|
00005710  14 32 22 62 6c 6f 63 6b  25 21 31 32 2d 3d 62 6c  |.2"block%!12-=bl|
00005720  6f 63 6b 25 21 34 3a 62  6c 6f 63 6b 25 21 34 3d  |ock%!4:block%!4=|
00005730  30 0d 14 3c 1b cd 3a e7  62 6c 6f 63 6b 25 21 31  |0..<..:.block%!1|
00005740  36 3e 21 79 6d 61 78 25  2d 34 30 8c 0d 14 46 35  |6>!ymax%-40...F5|
00005750  62 6c 6f 63 6b 25 21 38  2b 3d 21 79 6d 61 78 25  |block%!8+=!ymax%|
00005760  2d 34 30 2d 62 6c 6f 63  6b 25 21 31 36 3a 62 6c  |-40-block%!16:bl|
00005770  6f 63 6b 25 21 31 36 3d  21 79 6d 61 78 25 2d 34  |ock%!16=!ymax%-4|
00005780  30 0d 14 50 12 cd 3a e7  62 6c 6f 63 6b 25 21 38  |0..P..:.block%!8|
00005790  3c 30 8c 0d 14 5a 22 62  6c 6f 63 6b 25 21 31 36  |<0...Z"block%!16|
000057a0  2d 3d 62 6c 6f 63 6b 25  21 38 3a 62 6c 6f 63 6b  |-=block%!8:block|
000057b0  25 21 38 3d 30 0d 14 64  37 cd 3a 62 6c 6f 63 6b  |%!8=0..d7.:block|
000057c0  25 21 32 38 3d 2d 31 3a  c8 99 77 69 6d 70 6f 70  |%!28=-1:..wimpop|
000057d0  65 6e 77 69 6e 64 6f 77  25 2c 2c 62 6c 6f 63 6b  |enwindow%,,block|
000057e0  25 3a c8 99 26 34 34 36  63 32 3a e1 0d 14 6e c4  |%:..&446c2:...n.|
000057f0  dd f2 62 5f 3a ea 6d 6f  72 65 25 2c 6e 65 78 74  |..b_:.more%,next|
00005800  25 2c 6f 72 78 25 2c 6f  72 79 25 2c 6d 69 6e 78  |%,orx%,ory%,minx|
00005810  25 2c 6d 69 6e 79 25 2c  6d 61 78 25 2c 6d 61 78  |%,miny%,max%,max|
00005820  79 25 2c 4d 2c 5a 2c 78  6f 66 66 25 2c 79 6f 66  |y%,M,Z,xoff%,yof|
00005830  66 25 3a 21 62 6c 6f 63  6b 25 3d 6d 61 70 77 69  |f%:!block%=mapwi|
00005840  6e 64 6f 77 25 3a c8 99  26 34 30 30 63 38 2c 2c  |ndow%:..&400c8,,|
00005850  62 6c 6f 63 6b 25 b8 6d  6f 72 65 25 3a 6f 72 78  |block%.more%:orx|
00005860  25 3d 62 6c 6f 63 6b 25  21 34 3a 6f 72 79 25 3d  |%=block%!4:ory%=|
00005870  62 6c 6f 63 6b 25 21 38  3a e7 6d 6f 72 65 25 3c  |block%!8:.more%<|
00005880  3e 30 8c f2 79 28 62 6c  6f 63 6b 25 21 32 38 2c  |>0..y(block%!28,|
00005890  62 6c 6f 63 6b 25 21 33  32 2c 62 6c 6f 63 6b 25  |block%!32,block%|
000058a0  21 33 36 2c 62 6c 6f 63  6b 25 21 34 30 2c a3 29  |!36,block%!40,.)|
000058b0  0d 14 78 10 ef 32 39 2c  30 3b 30 3b 32 36 3a e1  |..x..29,0;0;26:.|
000058c0  0d 14 82 d2 dd f2 6d 28  78 30 25 2c 79 30 25 2c  |......m(x0%,y0%,|
000058d0  78 31 25 2c 79 31 25 29  3a ea 6d 6f 72 65 25 2c  |x1%,y1%):.more%,|
000058e0  6e 65 78 74 25 2c 6f 72  78 25 2c 6f 72 79 25 2c  |next%,orx%,ory%,|
000058f0  6d 69 6e 78 25 2c 6d 69  6e 79 25 2c 6d 61 78 25  |minx%,miny%,max%|
00005900  2c 6d 61 78 79 25 2c 4d  2c 5a 2c 78 6f 66 66 25  |,maxy%,M,Z,xoff%|
00005910  2c 79 6f 66 66 25 3a 21  62 6c 6f 63 6b 25 3d 6d  |,yoff%:!block%=m|
00005920  61 70 77 69 6e 64 6f 77  25 3a 62 6c 6f 63 6b 25  |apwindow%:block%|
00005930  21 34 3d 78 30 25 3a 62  6c 6f 63 6b 25 21 38 3d  |!4=x0%:block%!8=|
00005940  79 30 25 3a 62 6c 6f 63  6b 25 21 31 32 3d 78 31  |y0%:block%!12=x1|
00005950  25 3a 62 6c 6f 63 6b 25  21 31 36 3d 79 31 25 3a  |%:block%!16=y1%:|
00005960  c8 99 26 34 30 30 63 39  2c 2c 62 6c 6f 63 6b 25  |..&400c9,,block%|
00005970  b8 6d 6f 72 65 25 3a 6f  72 78 25 3d 62 6c 6f 63  |.more%:orx%=bloc|
00005980  6b 25 21 34 3a 6f 72 79  25 3d 62 6c 6f 63 6b 25  |k%!4:ory%=block%|
00005990  21 38 0d 14 8c 3b e7 6d  6f 72 65 25 3c 3e 30 8c  |!8...;.more%<>0.|
000059a0  f2 79 28 62 6c 6f 63 6b  25 21 32 38 2c 62 6c 6f  |.y(block%!28,blo|
000059b0  63 6b 25 21 33 32 2c 62  6c 6f 63 6b 25 21 33 36  |ck%!32,block%!36|
000059c0  2c 62 6c 6f 63 6b 25 21  34 30 2c b9 29 0d 14 96  |,block%!40,.)...|
000059d0  10 ef 32 39 2c 30 3b 30  3b 32 36 3a e1 0d 14 a0  |..29,0;0;26:....|
000059e0  2b dd f2 79 28 78 31 25  2c 79 31 25 2c 78 32 25  |+..y(x1%,y1%,x2%|
000059f0  2c 79 32 25 2c 75 70 64  61 74 65 25 29 3a e7 6d  |,y2%,update%):.m|
00005a00  6f 72 65 25 3c 3e 30 8c  0d 14 aa 58 c8 99 26 34  |ore%<>0....X..&4|
00005a10  30 30 63 61 2c 2c 62 6c  6f 63 6b 25 b8 6d 6f 72  |00ca,,block%.mor|
00005a20  65 25 3a e7 6d 6f 72 65  25 3c 3e 30 8c f2 79 28  |e%:.more%<>0..y(|
00005a30  62 6c 6f 63 6b 25 21 32  38 2c 62 6c 6f 63 6b 25  |block%!28,block%|
00005a40  21 33 32 2c 62 6c 6f 63  6b 25 21 33 36 2c 62 6c  |!32,block%!36,bl|
00005a50  6f 63 6b 25 21 34 30 2c  75 70 64 61 74 65 25 29  |ock%!40,update%)|
00005a60  0d 14 b4 11 cd 3a e7 6d  6f 72 65 25 3d 30 8c f2  |.....:.more%=0..|
00005a70  78 0d 14 be 56 ef 32 39  2c 30 3b 30 3b 32 34 2c  |x...V.29,0;0;24,|
00005a80  78 31 25 3b 79 31 25 3b  78 32 25 2d 21 78 70 69  |x1%;y1%;x2%-!xpi|
00005a90  78 25 3b 79 32 25 2d 21  79 70 69 78 25 3b 32 39  |x%;y2%-!ypix%;29|
00005aa0  2c 6f 72 78 25 2b 78 6f  66 66 25 3b 6f 72 79 25  |,orx%+xoff%;ory%|
00005ab0  2b 79 6f 66 66 25 3b 3a  e7 75 70 64 61 74 65 25  |+yoff%;:.update%|
00005ac0  8c e6 30 2c 31 3a da 0d  14 c8 e4 6e 65 78 74 25  |..0,1:.....next%|
00005ad0  3d a4 4d 28 62 61 63 6b  67 25 29 3a 67 78 31 25  |=.M(backg%):gx1%|
00005ae0  3d a4 55 28 28 2d 6d 69  6e 78 25 29 2a 4d 29 3a  |=.U((-minx%)*M):|
00005af0  67 79 31 25 3d a4 4e 28  28 2d 6d 69 6e 79 25 29  |gy1%=.N((-miny%)|
00005b00  2a 5a 29 3a 67 78 32 25  3d a4 55 28 28 21 78 6d  |*Z):gx2%=.U((!xm|
00005b10  61 78 25 2d 6d 69 6e 78  25 29 2a 4d 2d 67 78 31  |ax%-minx%)*M-gx1|
00005b20  25 29 3a 67 79 32 25 3d  a4 4e 28 28 21 79 6d 61  |%):gy2%=.N((!yma|
00005b30  78 25 2d 6d 69 6e 79 25  29 2a 5a 2d 67 79 31 25  |x%-miny%)*Z-gy1%|
00005b40  29 3a c8 99 26 34 30 30  65 36 2c 31 35 3a c8 93  |):..&400e6,15:..|
00005b50  c8 90 67 78 31 25 2c 67  79 31 25 2c 67 78 32 25  |..gx1%,gy1%,gx2%|
00005b60  2c 67 79 32 25 3a c8 95  6e 65 78 74 25 3c 3e 2d  |,gy2%:..next%<>-|
00005b70  31 3a 21 62 6c 6f 63 6b  25 3d 6e 65 78 74 25 3a  |1:!block%=next%:|
00005b80  c8 99 77 69 6d 70 67 77  73 25 2c 2c 62 6c 6f 63  |..wimpgws%,,bloc|
00005b90  6b 25 3a e7 28 62 6c 6f  63 6b 25 21 33 32 80 34  |k%:.(block%!32.4|
00005ba0  30 39 38 29 3c 3e 34 30  39 38 8c 0d 14 d2 16 e7  |098)<>4098......|
00005bb0  28 62 6c 6f 63 6b 25 21  33 32 80 33 32 29 3d 30  |(block%!32.32)=0|
00005bc0  8c 0d 14 dc d1 67 78 31  25 3d a4 55 28 28 62 6c  |.....gx1%=.U((bl|
00005bd0  6f 63 6b 25 21 34 2d 6d  69 6e 78 25 29 2a 4d 29  |ock%!4-minx%)*M)|
00005be0  3a 67 79 31 25 3d a4 4e  28 28 62 6c 6f 63 6b 25  |:gy1%=.N((block%|
00005bf0  21 38 2d 6d 69 6e 79 25  29 2a 5a 29 3a 67 78 32  |!8-miny%)*Z):gx2|
00005c00  25 3d a4 55 28 28 62 6c  6f 63 6b 25 21 31 32 2d  |%=.U((block%!12-|
00005c10  6d 69 6e 78 25 29 2a 4d  2d 67 78 31 25 2d 21 78  |minx%)*M-gx1%-!x|
00005c20  70 69 78 25 29 3a 67 79  32 25 3d a4 4e 28 28 62  |pix%):gy2%=.N((b|
00005c30  6c 6f 63 6b 25 21 31 36  2d 6d 69 6e 79 25 29 2a  |lock%!16-miny%)*|
00005c40  5a 2d 67 79 31 25 2d 21  79 70 69 78 25 29 3a c8  |Z-gy1%-!ypix%):.|
00005c50  99 26 34 30 30 65 36 2c  30 3a c8 93 c8 90 67 78  |.&400e6,0:....gx|
00005c60  31 25 2c 67 79 31 25 2c  67 78 32 25 2c 67 79 32  |1%,gy1%,gx2%,gy2|
00005c70  25 3a c8 99 26 34 30 30  65 36 2c 37 3a c8 93 67  |%:..&400e6,7:..g|
00005c80  78 31 25 2c 67 79 31 25  2c 67 78 32 25 2c 67 79  |x1%,gy1%,gx2%,gy|
00005c90  32 25 0d 14 e6 05 cd 0d  14 f0 19 cd 3a 6e 65 78  |2%..........:nex|
00005ca0  74 25 3d 62 6c 6f 63 6b  25 21 32 38 3a ce 3a e1  |t%=block%!28:.:.|
00005cb0  0d 14 fa 92 dd f2 78 3a  6d 69 6e 78 25 3d 30 3a  |......x:minx%=0:|
00005cc0  6d 69 6e 79 25 3d 30 3a  6d 61 78 78 25 3d 21 78  |miny%=0:maxx%=!x|
00005cd0  6d 61 78 25 3a 6d 61 78  79 25 3d 21 79 6d 61 78  |max%:maxy%=!ymax|
00005ce0  25 3a 6e 65 78 74 25 3d  a4 4d 28 62 61 63 6b 67  |%:next%=.M(backg|
00005cf0  25 29 3a c8 95 6e 65 78  74 25 3c 3e 2d 31 80 6e  |%):..next%<>-1.n|
00005d00  65 78 74 25 3c 3e 2d 32  3a 21 62 6c 6f 63 6b 25  |ext%<>-2:!block%|
00005d10  3d 6e 65 78 74 25 3a c8  99 77 69 6d 70 67 77 73  |=next%:..wimpgws|
00005d20  25 2c 2c 62 6c 6f 63 6b  25 3a e7 28 62 6c 6f 63  |%,,block%:.(bloc|
00005d30  6b 25 21 33 32 80 34 30  39 38 29 3c 3e 34 30 39  |k%!32.4098)<>409|
00005d40  38 8c 0d 15 04 16 e7 28  62 6c 6f 63 6b 25 21 33  |8......(block%!3|
00005d50  32 80 33 32 29 3d 30 8c  0d 15 0e 69 6d 69 6e 78  |2.32)=0....iminx|
00005d60  25 3d a4 51 28 6d 69 6e  78 25 2c 62 6c 6f 63 6b  |%=.Q(minx%,block|
00005d70  25 21 34 29 3a 6d 69 6e  79 25 3d a4 51 28 6d 69  |%!4):miny%=.Q(mi|
00005d80  6e 79 25 2c 62 6c 6f 63  6b 25 21 38 29 3a 6d 61  |ny%,block%!8):ma|
00005d90  78 78 25 3d a4 42 28 6d  61 78 78 25 2c 62 6c 6f  |xx%=.B(maxx%,blo|
00005da0  63 6b 25 21 31 32 29 3a  6d 61 78 79 25 3d a4 42  |ck%!12):maxy%=.B|
00005db0  28 6d 61 78 79 25 2c 62  6c 6f 63 6b 25 21 31 36  |(maxy%,block%!16|
00005dc0  29 0d 15 18 05 cd 0d 15  22 85 cd 3a 6e 65 78 74  |)......."..:next|
00005dd0  25 3d 62 6c 6f 63 6b 25  21 32 38 3a ce 3a 6d 69  |%=block%!28:.:mi|
00005de0  6e 78 25 2d 3d 21 78 6d  61 78 25 2f 32 3a 6d 69  |nx%-=!xmax%/2:mi|
00005df0  6e 79 25 2d 3d 21 79 6d  61 78 25 2f 32 3a 6d 61  |ny%-=!ymax%/2:ma|
00005e00  78 78 25 2b 3d 21 78 6d  61 78 25 2f 32 3a 6d 61  |xx%+=!xmax%/2:ma|
00005e10  78 79 25 2b 3d 21 79 6d  61 78 25 2f 32 3a 4d 3d  |xy%+=!ymax%/2:M=|
00005e20  34 37 36 2f 28 6d 61 78  78 25 2d 6d 69 6e 78 25  |476/(maxx%-minx%|
00005e30  29 3a 5a 3d 32 31 34 2f  28 6d 61 78 79 25 2d 6d  |):Z=214/(maxy%-m|
00005e40  69 6e 79 25 29 3a e7 4d  3e 5a 8c 0d 15 2c 2b 78  |iny%):.M>Z...,+x|
00005e50  6f 66 66 25 3d 28 4d 2d  5a 29 2a 28 6d 61 78 78  |off%=(M-Z)*(maxx|
00005e60  25 2d 6d 69 6e 78 25 29  2f 32 3a 79 6f 66 66 25  |%-minx%)/2:yoff%|
00005e70  3d 30 3a 4d 3d 5a 0d 15  36 2d cc 3a 79 6f 66 66  |=0:M=Z..6-.:yoff|
00005e80  25 3d 28 5a 2d 4d 29 2a  28 6d 61 78 79 25 2d 6d  |%=(Z-M)*(maxy%-m|
00005e90  69 6e 79 25 29 2f 32 3a  78 6f 66 66 25 3d 30 3a  |iny%)/2:xoff%=0:|
00005ea0  5a 3d 4d 0d 15 40 33 cd  3a 78 6f 66 66 25 2d 3d  |Z=M..@3.:xoff%-=|
00005eb0  28 78 6f 66 66 25 83 21  78 70 69 78 25 29 3a 79  |(xoff%.!xpix%):y|
00005ec0  6f 66 66 25 2d 3d 28 79  6f 66 66 25 83 21 79 70  |off%-=(yoff%.!yp|
00005ed0  69 78 25 29 3a e1 0d 15  4a 1d dd a4 55 28 61 25  |ix%):...J...U(a%|
00005ee0  29 3a 3d 28 61 25 2d 28  61 25 83 21 78 70 69 78  |):=(a%-(a%.!xpix|
00005ef0  25 29 29 0d 15 54 1d dd  a4 4e 28 61 25 29 3a 3d  |%))..T...N(a%):=|
00005f00  28 61 25 2d 28 61 25 83  21 79 70 69 78 25 29 29  |(a%-(a%.!ypix%))|
00005f10  0d 15 5e ca dd f2 71 79  3a ea 6e 65 77 65 72 25  |..^...qy:.newer%|
00005f20  2c 66 6f 72 63 65 25 2c  76 65 72 62 6f 73 65 25  |,force%,verbose%|
00005f30  2c 63 6f 6e 66 69 72 6d  25 3a 66 6f 72 63 65 25  |,confirm%:force%|
00005f40  3d 28 a4 44 28 31 39 38  29 80 31 36 29 81 31 36  |=(.D(198).16).16|
00005f50  3a 63 6f 6e 66 69 72 6d  25 3d 28 a4 44 28 31 39  |:confirm%=(.D(19|
00005f60  38 29 80 33 32 29 81 33  32 3a 76 65 72 62 6f 73  |8).32).32:verbos|
00005f70  65 25 3d 28 a4 44 28 31  39 38 29 80 36 34 29 81  |e%=(.D(198).64).|
00005f80  36 34 3a 6e 65 77 65 72  25 3d 28 a4 44 28 31 39  |64:newer%=(.D(19|
00005f90  38 29 80 31 32 38 29 81  31 32 38 3a 66 69 6c 65  |8).128).128:file|
00005fa0  72 6f 70 74 69 6f 6e 73  25 3d 76 65 72 62 6f 73  |roptions%=verbos|
00005fb0  65 25 2b 28 63 6f 6e 66  69 72 6d 25 3c 3c 31 29  |e%+(confirm%<<1)|
00005fc0  2b 28 66 6f 72 63 65 25  3c 3c 32 29 2b 28 6e 65  |+(force%<<2)+(ne|
00005fd0  77 65 72 25 3c 3c 33 29  3a e1 0d 15 68 f0 dd f2  |wer%<<3):...h...|
00005fe0  42 4a 3a ea 6e 65 77 65  72 25 2c 66 6f 72 63 65  |BJ:.newer%,force|
00005ff0  25 2c 76 65 72 62 6f 73  65 25 2c 63 6f 6e 66 69  |%,verbose%,confi|
00006000  72 6d 25 3a 76 65 72 62  6f 73 65 25 3d 66 69 6c  |rm%:verbose%=fil|
00006010  65 72 6f 70 74 69 6f 6e  73 25 80 31 3a 63 6f 6e  |eroptions%.1:con|
00006020  66 69 72 6d 25 3d 28 66  69 6c 65 72 6f 70 74 69  |firm%=(fileropti|
00006030  6f 6e 73 25 80 32 29 81  32 3a 66 6f 72 63 65 25  |ons%.2).2:force%|
00006040  3d 28 66 69 6c 65 72 6f  70 74 69 6f 6e 73 25 80  |=(fileroptions%.|
00006050  34 29 81 34 3a 6e 65 77  65 72 25 3d 28 66 69 6c  |4).4:newer%=(fil|
00006060  65 72 6f 70 74 69 6f 6e  73 25 80 38 29 81 38 3a  |eroptions%.8).8:|
00006070  f2 77 28 31 39 38 2c 66  6f 72 63 65 25 3c 3c 34  |.w(198,force%<<4|
00006080  2c 31 36 29 3a f2 77 28  31 39 38 2c 63 6f 6e 66  |,16):.w(198,conf|
00006090  69 72 6d 25 3c 3c 35 2c  33 32 29 3a f2 77 28 31  |irm%<<5,32):.w(1|
000060a0  39 38 2c 76 65 72 62 6f  73 65 25 3c 3c 36 2c 36  |98,verbose%<<6,6|
000060b0  34 29 3a f2 77 28 31 39  38 2c 6e 65 77 65 72 25  |4):.w(198,newer%|
000060c0  3c 3c 37 2c 31 32 38 29  3a e1 0d 15 72 30 dd a4  |<<7,128):...r0..|
000060d0  44 28 61 64 64 25 29 3a  ea 62 79 74 65 25 3a c8  |D(add%):.byte%:.|
000060e0  99 36 2c 31 36 31 2c 61  64 64 25 b8 2c 2c 62 79  |.6,161,add%.,,by|
000060f0  74 65 25 3a 3d 62 79 74  65 25 0d 15 7c 6a dd f2  |te%:=byte%..|j..|
00006100  77 28 61 64 64 25 2c 62  79 74 65 25 2c 6d 61 73  |w(add%,byte%,mas|
00006110  6b 25 29 3a ea 62 79 74  65 32 25 3a c8 99 36 2c  |k%):.byte2%:..6,|
00006120  31 36 31 2c 61 64 64 25  b8 2c 2c 62 79 74 65 32  |161,add%.,,byte2|
00006130  25 3a 62 79 74 65 32 25  3d 28 62 79 74 65 32 25  |%:byte2%=(byte2%|
00006140  80 ac 6d 61 73 6b 25 29  84 62 79 74 65 25 3a c8  |..mask%).byte%:.|
00006150  99 36 2c 31 36 32 2c 61  64 64 25 2c 62 79 74 65  |.6,162,add%,byte|
00006160  32 25 3a e1 0d 15 86 1e  dd f2 72 28 6e 62 25 29  |2%:.......r(nb%)|
00006170  3a ea 6c 25 3a e7 21 6e  6f 61 70 70 73 25 3e 2d  |:.l%:.!noapps%>-|
00006180  31 8c 0d 15 90 39 e3 6c  25 3d 30 b8 21 6e 6f 61  |1....9.l%=0.!noa|
00006190  70 70 73 25 3a e7 28 62  61 63 6b 64 72 6f 70 25  |pps%:.(backdrop%|
000061a0  3f 6c 25 29 3d 6e 62 25  84 28 62 61 63 6b 64 72  |?l%)=nb%.(backdr|
000061b0  6f 70 25 3f 6c 25 29 3d  21 41 8c 0d 15 9a 17 f2  |op%?l%)=!A......|
000061c0  53 28 78 79 30 25 3f 6c  25 2c 78 79 31 25 3f 6c  |S(xy0%?l%,xy1%?l|
000061d0  25 29 0d 15 a4 07 cd 3a  ed 0d 15 ae 1f cd 3a 21  |%).....:......:!|
000061e0  41 3d 6e 62 25 3a f2 65  28 30 29 3a c8 99 26 34  |A=nb%:.e(0):..&4|
000061f0  34 36 63 36 2c 46 3a e1  0d 15 b8 2e dd f2 63 5f  |46c6,F:.......c_|
00006200  28 6d 25 29 3a ea 6e 25  2c 6c 25 3a 6e 25 3d a0  |(m%):.n%,l%:n%=.|
00006210  28 41 24 28 6d 25 29 29  3a e7 21 6e 6f 61 70 70  |(A$(m%)):.!noapp|
00006220  73 25 3e 2d 31 8c 0d 15  c2 28 e3 6c 25 3d 30 b8  |s%>-1....(.l%=0.|
00006230  21 6e 6f 61 70 70 73 25  3a e7 6c 25 3c 3d 21 6e  |!noapps%:.l%<=!n|
00006240  6f 61 70 70 73 25 80 6c  25 3c 3e 6d 25 8c 0d 15  |oapps%.l%<>m%...|
00006250  cc 08 c8 8e b9 ca 0d 15  d6 24 c9 62 61 63 6b 64  |.........$.backd|
00006260  72 6f 70 25 3f 6c 25 3e  6e 25 3a 62 61 63 6b 64  |rop%?l%>n%:backd|
00006270  72 6f 70 25 3f 6c 25 2d  3d 31 0d 15 e0 20 c9 62  |rop%?l%-=1... .b|
00006280  61 63 6b 64 72 6f 70 25  3f 6c 25 3d 6e 25 3a c8  |ackdrop%?l%=n%:.|
00006290  8e 74 79 70 65 25 3f 6c  25 ca 0d 15 ea 0d c9 35  |.type%?l%......5|
000062a0  3a f2 64 28 6c 25 29 0d  15 f4 0d c9 36 3a f2 59  |:.d(l%).....6:.Y|
000062b0  28 6c 25 29 0d 15 fe 12  cb 3a f2 43 28 6c 25 29  |(l%).....:.C(l%)|
000062c0  3a 6c 25 2d 3d 31 0d 16  08 0d cb 3a e7 6c 25 3e  |:l%-=1.....:.l%>|
000062d0  3d 30 8c 0d 16 12 10 e7  74 79 70 65 25 3f 6c 25  |=0......type%?l%|
000062e0  3d 37 8c 0d 16 1c 12 e7  a0 28 41 24 28 6c 25 29  |=7.......(A$(l%)|
000062f0  29 3e 6e 25 8c 0d 16 26  19 41 24 28 6c 25 29 3d  |)>n%...&.A$(l%)=|
00006300  c3 28 a0 28 41 24 28 6c  25 29 29 2d 31 29 0d 16  |.(.(A$(l%))-1)..|
00006310  30 05 cd 0d 16 3a 05 cd  0d 16 44 05 cd 0d 16 4e  |0....:....D....N|
00006320  07 cd 3a ed 0d 16 58 1c  cd 3a 6e 65 78 74 66 72  |..:...X..:nextfr|
00006330  65 65 62 61 63 6b 64 72  6f 70 25 2d 3d 31 3a e1  |eebackdrop%-=1:.|
00006340  0d 16 62 6a dd a4 4f 28  67 78 25 2c 67 79 25 29  |..bj..O(gx%,gy%)|
00006350  3a ea 6f 6e 69 63 6f 6e  25 3a 6f 6e 69 63 6f 6e  |:.onicon%:onicon|
00006360  25 3d b9 3a e7 28 67 78  25 83 28 21 78 70 69 78  |%=.:.(gx%.(!xpix|
00006370  25 2a 38 30 2a 21 78 6d  75 6c 74 25 2f 21 78 64  |%*80*!xmult%/!xd|
00006380  69 76 25 29 29 3c 28 21  78 70 69 78 25 2a 32 33  |iv%))<(!xpix%*23|
00006390  2a 21 78 6d 75 6c 74 25  2f 21 78 64 69 76 25 29  |*!xmult%/!xdiv%)|
000063a0  8c 6f 6e 69 63 6f 6e 25  3d a3 0d 16 6c 4a e7 28  |.onicon%=...lJ.(|
000063b0  67 78 25 83 28 21 78 70  69 78 25 2a 38 30 2a 21  |gx%.(!xpix%*80*!|
000063c0  78 6d 75 6c 74 25 2f 21  78 64 69 76 25 29 29 3e  |xmult%/!xdiv%))>|
000063d0  28 21 78 70 69 78 25 2a  35 37 2a 21 78 6d 75 6c  |(!xpix%*57*!xmul|
000063e0  74 25 2f 21 78 64 69 76  25 29 8c 6f 6e 69 63 6f  |t%/!xdiv%).onico|
000063f0  6e 25 3d a3 0d 16 76 56  e7 ac 21 69 63 6f 6e 74  |n%=...vV..!icont|
00006400  65 78 74 25 80 28 67 79  25 83 28 21 79 70 69 78  |ext%.(gy%.(!ypix|
00006410  25 2a 33 32 2a 21 79 6d  75 6c 74 25 2f 21 79 64  |%*32*!ymult%/!yd|
00006420  69 76 25 29 29 3c 28 21  79 70 69 78 25 2a 31 30  |iv%))<(!ypix%*10|
00006430  2a 21 79 6d 75 6c 74 25  2f 21 79 64 69 76 25 29  |*!ymult%/!ydiv%)|
00006440  8c 6f 6e 69 63 6f 6e 25  3d a3 0d 16 80 56 e7 ac  |.onicon%=....V..|
00006450  21 69 63 6f 6e 74 65 78  74 25 80 28 67 79 25 83  |!icontext%.(gy%.|
00006460  28 21 79 70 69 78 25 2a  33 32 2a 21 79 6d 75 6c  |(!ypix%*32*!ymul|
00006470  74 25 2f 21 79 64 69 76  25 29 29 3e 28 21 79 70  |t%/!ydiv%))>(!yp|
00006480  69 78 25 2a 32 36 2a 21  79 6d 75 6c 74 25 2f 21  |ix%*26*!ymult%/!|
00006490  79 64 69 76 25 29 8c 6f  6e 69 63 6f 6e 25 3d a3  |ydiv%).onicon%=.|
000064a0  0d 16 8a 0c 3d 6f 6e 69  63 6f 6e 25 0d 16 94 46  |....=onicon%...F|
000064b0  dd f2 51 3a ea 63 62 25  2c 6c 25 3a 63 62 25 3d  |..Q:.cb%,l%:cb%=|
000064c0  21 41 3a e3 21 41 3d 30  b8 6e 65 78 74 66 72 65  |!A:.!A=0.nextfre|
000064d0  65 62 61 63 6b 64 72 6f  70 25 2d 31 3a c8 99 26  |ebackdrop%-1:..&|
000064e0  34 34 36 63 36 2c 46 3a  ed 3a 21 41 3d 63 62 25  |446c6,F:.:!A=cb%|
000064f0  3a e1 0d 16 9e 3f dd f2  4e 5f 3a ea 61 64 64 72  |:....?..N_:.addr|
00006500  25 2c 76 61 6c 25 3a c8  99 26 34 34 36 63 35 b8  |%,val%:..&446c5.|
00006510  2c 2c 2c 61 64 64 72 25  3a 76 61 6c 25 3d 21 61  |,,,addr%:val%=!a|
00006520  64 64 72 25 3a e7 28 76  61 6c 25 80 31 29 3d 31  |ddr%:.(val%.1)=1|
00006530  8c 0d 16 a8 07 f2 72 5f  0d 16 b2 12 cd 3a e7 28  |......r_.....:.(|
00006540  76 61 6c 25 80 32 29 3d  32 8c 0d 16 bc 07 f2 6f  |val%.2)=2......o|
00006550  5f 0d 16 c6 07 cd 3a e1  0d 16 d0 64 dd f2 58 79  |_.....:....d..Xy|
00006560  28 6e 25 29 3a f2 41 28  63 6f 6e 66 69 67 32 25  |(n%):.A(config2%|
00006570  2c 34 36 2c 30 29 3a f2  41 28 63 6f 6e 66 69 67  |,46,0):.A(config|
00006580  32 25 2c 34 37 2c 30 29  3a f2 41 28 63 6f 6e 66  |2%,47,0):.A(conf|
00006590  69 67 32 25 2c 34 38 2c  30 29 3a f2 41 28 63 6f  |ig2%,48,0):.A(co|
000065a0  6e 66 69 67 32 25 2c 6e  25 2b 34 35 2c 31 29 3a  |nfig2%,n%+45,1):|
000065b0  21 57 3d 6e 25 2d 31 3a  f2 55 3a e1 0d 16 da 8d  |!W=n%-1:.U:.....|
000065c0  dd a4 57 28 41 24 2c 73  24 2c 70 24 2c 5f 24 2c  |..W(A$,s$,p$,_$,|
000065d0  5a 79 24 29 3a ea 72 65  73 25 2c 74 72 6d 25 3a  |Zy$):.res%,trm%:|
000065e0  c8 99 26 34 31 35 30 32  2c 6d 65 73 73 61 67 65  |..&41502,message|
000065f0  66 64 25 2c 41 24 2b 22  3a 54 6f 6b 65 6e 20 6e  |fd%,A$+":Token n|
00006600  6f 74 20 66 6f 75 6e 64  22 2c 62 6c 6f 63 6b 25  |ot found",block%|
00006610  2b 31 30 32 34 2c 31 30  32 34 2c 73 24 2c 70 24  |+1024,1024,s$,p$|
00006620  2c 5f 24 2c 5a 79 24 b8  2c 2c 72 65 73 25 2c 74  |,_$,Zy$.,,res%,t|
00006630  72 6d 25 3a 72 65 73 25  3f 74 72 6d 25 3d 30 3a  |rm%:res%?trm%=0:|
00006640  3d a4 41 28 72 65 73 25  29 0d 16 e4 1d dd f2 65  |=.A(res%)......e|
00006650  28 6e 25 29 3a ea 6c 25  3a e7 21 6e 6f 61 70 70  |(n%):.l%:.!noapp|
00006660  73 25 3e 2d 31 8c 0d 16  ee 23 e3 6c 25 3d 30 b8  |s%>-1....#.l%=0.|
00006670  21 6e 6f 61 70 70 73 25  3a e7 73 65 6c 65 63 74  |!noapps%:.select|
00006680  25 3f 6c 25 3c 3e 6e 25  8c 0d 16 f8 1a e7 6e 25  |%?l%<>n%......n%|
00006690  3d 30 84 62 61 63 6b 64  72 6f 70 25 3f 6c 25 3d  |=0.backdrop%?l%=|
000066a0  21 41 8c 0d 17 02 25 73  65 6c 65 63 74 25 3f 6c  |!A....%select%?l|
000066b0  25 3d 6e 25 3a f2 53 28  78 79 30 25 3f 6c 25 2c  |%=n%:.S(xy0%?l%,|
000066c0  78 79 31 25 3f 6c 25 29  0d 17 0c 05 cd 0d 17 16  |xy1%?l%)........|
000066d0  07 cd 3a ed 0d 17 20 1a  cd 3a 74 65 6d 70 6f 72  |..:... ..:tempor|
000066e0  61 72 79 73 65 6c 65 63  74 25 3d a3 3a e1 0d 17  |aryselect%=.:...|
000066f0  2a 0e dd a4 73 3a 3d 31  32 33 34 35 0d ff        |*...s:=12345..|
000066fe