Home » Archimedes archive » Archimedes World » AW-1995-04-Disc2.adf » Disk2Apr95 » !AWApr95/Goodies/HQ-Tracker/!HQTracker/!RunImage
!AWApr95/Goodies/HQ-Tracker/!HQTracker/!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 » Archimedes World » AW-1995-04-Disc2.adf » Disk2Apr95 |
| Filename: | !AWApr95/Goodies/HQ-Tracker/!HQTracker/!RunImage |
| Read OK: | ✔ |
| File size: | FCAD bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
60UV=-1:ONERRORMODEMODE:PRINT"Fatal Error : ";REPORT$;" at Line ";ERL:END
100PROCUW:ONERRORPROCUX
130PROCUY:END
180DEFPROCUW:UZ=4:Ua=2:Ub=1:Uc=-2:Ud$="HQTracker":Ue$="HQTracker":Uf=&2000:Ug=&3E0:Uh=4*1024 :DIMUi Uh:Uj=4*1024 :DIMUk Uj:Ul=11*1024 :DIMUm Ul:Un=7*1024 :DIMUo Un:Up=5*1024 :DIMUq Up:Ur=8*1024 :DIMUs Ur:Ut=4*1024 :DIMUu Ut:Uv=8*1024 :DIMUw Uv:Ux=32*1024 :DIMUy Ux:DIMUz 32*1024
450VU=12:DIMVV$(VU):DIMVW(VU):VX=32:DIMVY$(VX):DIMVZ(VX):Va= NOTTRUE:Vb=0:Vc= NOTTRUE:Vd=FNction_InitialiseTask(2*100,Ue$):Ve=0:PROCVf:PROCVg:PROCVh:PROCVi:Vj=FNction_IconbarSprite(Uk):Vk=FNction_InstallHelp:PROCVl:Vm=!Vn:PROCVo:Vp=0:VV$()="":VW()= NOTTRUE:Vq=0:VY$()="":VZ()=0:PROCVr("<None!>"):PROCVs
740IF NOTVc THEN
750PROCVt:IF NOTVc THEN
770PROCVu:IF NOTVc THEN
790Vv= NOTTRUE:Vw=1:Vx=1:PROCVy:Vz= NOTTRUE:WU= NOTTRUE:WV=0
860ENDIF
870ENDIF
880ENDIF:ENDPROC
930DEFPROCUY:PROCWW:REPEAT:WX=FNction_PollWimp(Ui,Vb):CASEWX OF
980WHEN0:IFVz THENPROCWY
990IFWU THENPROCWZ
1000IFWV=3 THENPROCWa
1010WHEN1:PROCWb(Ui)
1020WHEN2:PROCWc(Ui,Uk,-1,TRUE):CASE!Ui OF
1040WHENWd:PROCWe(Uk,Wd,Wf,0,0)
1050WHENWg:PROCWe(Uk,Wg,Wh,8,8)
1060WHENWi:PROCWe(Uk,Wi,Wj,8,8)
1070WHENWk:PROCWe(Uk,Wk,Wl,8,164+8)
1080WHENWm:PROCWe(Uk,Wm,Wn,8,4)
1090ENDCASE
1100WHEN3:PROCWo(Uk,Ui!0):CASE!Ui OF
1120WHENWd:PROCWo(Uk,Wf)
1130WHENWg:PROCWo(Uk,Wh)
1140WHENWi:PROCWo(Uk,Wj)
1150WHENWk:PROCWo(Uk,Wl)
1160WHENWm:PROCWo(Uk,Wn)
1170ENDCASE
1180WHEN6:PROCWp(Ui)
1190WHEN7:PROCWq(Ui)
1200WHEN8:PROCWr(Ui)
1210WHEN9:PROCWs(Ui)
1220WHEN17:PROCWt(Ui)
1230WHEN18:PROCWt(Ui)
1240ENDCASE:UNTILVc:PROCWu(Vk):PROCWv(Vd):SYS&900C6,UV:SYS&2002A,1,-4096*1024:ENDPROC
1330DEFPROCVs:Ww= NOTTRUE:SYS&900C1,32+1+1 TOWx,UV:CASEWx OF
1370WHEN0:Ww=TRUE:Wy$="err29"
1390WHEN1:Ww=TRUE:Wy$="err30"
1410ENDCASE:IFWw THEN
1430Ww$=FNction_TagToString(Vk,Wy$):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE):Vc=TRUE:UV=-1
1470ENDIF:ENDPROC
1540DEFFNction_IconbarSprite(XU):XU!0=-1:XU!4=0:XU!8=0:XU!12=68:XU!16=68:XU!20=&3002:$(XU+24)="!"+Ud$+CHR$0:SYS&400C2,,XU TOXV:=XV
1660DEFPROCWp(XW):XX=XW!0:XY=XW!4:XZ=XW!8:Xa=XW!12:XV=XW!16:CASEXZ OF
1730WHENUZ:CASEXa OF
1740WHENXb:IFXV=3 THEN
1750PROCWo(Uk,Xa):PROCXc
1770ENDIF
1780WHENXd:IFXV=5 THEN
1790PROCWo(Uk,Xa):PROCXe(Uk)
1810ENDIF
1820WHENUc:IFXV=Vj THEN
1830PROCXf(Uk,Wd):PROCWe(Uk,Wd,Wf,0,0):PROCXg(Wd,-1,0)
1860ENDIF
1870WHENWg:CASEXV OF
1880WHEN0:PROCXh
1890WHEN1:PROCWo(Uk,Wg):PROCWo(Uk,Wh):PROCXi
1920WHEN2:PROCWo(Uk,Wg):PROCWo(Uk,Wh):PROCXj
1950ENDCASE
1960WHENWh:CASEXV OF
1970WHEN2,5,3,4:PROCXk(Uk,Wh,XV)
1980WHEN10,11,12,13:PROCXl(XX,XY,XV-7)
1990WHEN26:PROCXm(XX,XY,7)
2000WHEN30:PROCXn(Uk,Wh,17,+1,1,15)
2010WHEN31:PROCXn(Uk,Wh,17,-1,1,15)
2020WHEN20:PROCXn(Uk,Wh,18,+1,1,127)
2030WHEN21:PROCXn(Uk,Wh,18,-1,1,127)
2040WHEN33:PROCXn(Uk,Wh,32,+1,1,256)
2050WHEN34:PROCXn(Uk,Wh,32,-1,1,256)
2060ENDCASE
2080WHENWf:CASEXV OF
2090WHEN2:PROCXo(XX,XY)
2100WHEN6:PROCXp(XX,XY)
2110WHEN8:PROCXq(XX,XY)
2120OTHERWISE:Vv= NOTTRUE:PROCXr
2150ENDCASE
2170WHENWi:CASEXV OF
2180WHEN0:PROCXs
2190WHEN1:PROCWo(Uk,Wi):PROCWo(Uk,Wj)
2210ENDCASE
2220WHENWj:PROCXt(Ui,TRUE)
2240WHENWd:IF NOTWU AND NOTWU THEN
2250Vv=TRUE:PROCXr:PROCXu(Ui)
2280ENDIF
2300WHENXv:IFXV=2 THENPROCXw(FNction_ReadIconText(Uk,Xv,1), NOTTRUE)
2310WHENXx:IFXV=2 THENPROCXy(FNction_ReadIconText(Uk,Xx,1), NOTTRUE)
2320WHENXz:IFXV=2 THENPROCYU(FNction_ReadIconText(Uk,Xz,1), NOTTRUE)
2330WHENWk:CASEXV OF
2340WHEN2:PROCXp(XX,XY):Ve=11
2360WHEN3:PROCYV(0)
2370WHEN4:PROCYV(-1)
2380WHEN5:PROCYW
2390WHEN6:Ww$=FNction_TagToString(Vk,"war06"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$,TRUE,TRUE):IFWz=1 THEN
2420PROCYX:PROCYY:PROCYZ(Uk,Wl)
2450ENDIF
2460ENDCASE
2470WHENWl:PROCYa(Ui)
2500WHENYb:CASEXV OF
2510WHEN0:PROCXk(Uk,Xa,XV):PROCYc
2530WHEN6:PROCXk(Uk,Xa,XV):PROCYc
2550WHEN12:PROCXk(Uk,Xa,XV):PROCYc
2570WHEN2:PROCXo(XX,XY):Ve=12
2590WHEN5:PROCXo(XX,XY):Ve=13
2610WHEN8:PROCYd(XX,XY,14)
2620WHEN11:PROCYd(XX,XY,15)
2630WHEN14:PROCYe(XX,XY,16)
2640WHEN17:PROCYe(XX,XY,17)
2650WHEN18:PROCYf(TRUE)
2660ENDCASE
2680WHENYg:CASEXV OF
2690WHEN0:PROCXk(Uk,Xa,XV):PROCYh
2710WHEN6:PROCXk(Uk,Xa,XV):PROCYh
2730WHEN14:PROCXk(Uk,Xa,XV):PROCYh
2750WHEN23:PROCXk(Uk,Xa,XV):PROCYh
2770WHEN2:PROCXl(XX,XY,18)
2780WHEN5:PROCXl(XX,XY,19)
2790WHEN8:PROCXn(Uk,Xa,7,+1,0,127)
2800WHEN9:PROCXn(Uk,Xa,7,-1,0,127)
2810WHEN12:PROCXn(Uk,Xa,11,+1,0,127)
2820WHEN13:PROCXn(Uk,Xa,11,-1,0,127)
2830WHEN16:PROCXn(Uk,Xa,15,+1,1,15)
2840WHEN17:PROCXn(Uk,Xa,15,-1,1,15)
2850WHEN20:PROCXn(Uk,Xa,19,+1,1,15)
2860WHEN21:PROCXn(Uk,Xa,19,-1,1,15)
2870WHEN22:PROCYi(TRUE)
2890WHEN27:PROCXn(Uk,Xa,24,+1,-999,+999)
2900WHEN28:PROCXn(Uk,Xa,24,-1,-999,+999)
2920WHEN29:PROCXn(Uk,Xa,26,+1,-999,+999)
2930WHEN30:PROCXn(Uk,Xa,26,-1,-999,+999)
2950ENDCASE
2970WHENYj:CASEXV OF
2980WHEN1:PROCXk(Uk,Xa,XV)
2990WHEN8:PROCYk
3000WHEN9:PROCYl
3010ENDCASE
3030WHENWm:CASEXV OF
3040WHEN2:PROCYm(+1)
3050WHEN3:PROCYm(-1)
3060WHEN4:PROCYn(+1)
3070WHEN5:PROCYn(-1)
3080WHEN10:PROCYo(+1)
3090WHEN11:PROCYo(-1)
3100WHEN12:PROCWo(Uk,Wm):PROCWo(Uk,Wn)
3120WHEN14:PROCYp
3130ENDCASE
3150WHENYq:CASEXV OF
3170WHEN0:PROCYr("C ",+0)
3180WHEN1:PROCYr("D ",+0)
3190WHEN2:PROCYr("E ",+0)
3200WHEN3:PROCYr("F ",+0)
3210WHEN4:PROCYr("G ",+0)
3220WHEN5:PROCYr("A ",+0)
3230WHEN6:PROCYr("B ",+0)
3240WHEN14:PROCYr("C#",+0)
3250WHEN15:PROCYr("D#",+0)
3260WHEN16:PROCYr("F#",+0)
3270WHEN17:PROCYr("G#",+0)
3280WHEN18:PROCYr("A#",+0)
3300WHEN7:PROCYr("C ",+1)
3310WHEN8:PROCYr("D ",+1)
3320WHEN9:PROCYr("E ",+1)
3330WHEN10:PROCYr("F ",+1)
3340WHEN11:PROCYr("G ",+1)
3350WHEN12:PROCYr("A ",+1)
3360WHEN13:PROCYr("B ",+1)
3380WHEN19:PROCYr("C#",+1)
3390WHEN20:PROCYr("D#",+1)
3400WHEN21:PROCYr("F#",+1)
3410WHEN22:PROCYr("G#",+1)
3420WHEN23:PROCYr("A#",+1)
3440ENDCASE
3460ENDCASE
3470WHENUa:CASEXa OF
3480WHENUc:IFXV=Vj THENPROCYs(XX)
3490WHENWd:PROCYt(XX,XY)
3500ENDCASE
3510WHENUb:CASEXa OF
3520WHENWg:CASEXV OF
3530WHEN0:PROCXh
3540WHEN1:PROCWo(Uk,Wg):PROCWo(Uk,Wh):PROCXi
3570WHEN2:PROCXj
3580ENDCASE
3590WHENWh:CASEXV OF
3600WHEN2,5,3,4:PROCXk(Uk,Wh,XV)
3610ENDCASE
3620WHENWf:CASEXV OF
3630WHEN4:PROCXk(Uk,Xa,XV):Vv= NOTVv:PROCXr
3660ENDCASE
3670WHENWj:PROCXt(Ui, NOTTRUE)
3680WHENXv:IFXV=2 THENPROCXw(FNction_ReadIconText(Uk,Xv,1),TRUE)
3690WHENXx:IFXV=2 THENPROCXy(FNction_ReadIconText(Uk,Xx,1),TRUE)
3700WHENXz:IFXV=2 THENPROCYU(FNction_ReadIconText(Uk,Xz,1),TRUE)
3710WHENWm:CASEXV OF
3720WHEN2:PROCYm(+20)
3730WHEN3:PROCYm(-20)
3740WHEN4:PROCYn(+20)
3750WHEN5:PROCYn(-20)
3760WHEN10:PROCYo(+5)
3770WHEN11:PROCYo(-5)
3780ENDCASE
3790WHENYb:CASEXV OF
3800WHEN18:PROCYf( NOTTRUE)
3810ENDCASE
3830WHENYg:CASEXV OF
3840WHEN22:PROCYi( NOTTRUE)
3850ENDCASE
3860ENDCASE
3870WHEN64,16:CASEXa OF
3880WHENXv:IFXV=0 THENWV=1:Wz=FNction_BeginDrag(Uk,Xa,XV)
3890WHENXx:IFXV=0 THENWV=1:Wz=FNction_BeginDrag(Uk,Xa,XV)
3900WHENXz:IFXV=0 THENWV=1:Wz=FNction_BeginDrag(Uk,Xa,XV)
3910WHENWd:IF NOTWU THENPROCYu(XX,XY):WV=2
3920WHENWn:PROCYv(XX,XY):WV=3
3930ENDCASE
3940ENDCASE:ENDPROC
3980DEFPROCYu(Yw,Yx):Yy=FNction_RowClickedOn(Yw,Yx):Yz=FNction_ColumnClickedOn(Yw,Yx):Uk!0=Wd:Uk!4=6:Uk!8=Yw:Uk!12=Yx:Uk!16=Yw:Uk!20=Yx:Uk!24=Wd:SYS&400CC,,Uk+24:ZU=Uk!44:ZV=Uk!48:Uk!24=Uk!28:Uk!28=Uk!32:Uk!32=Uk!36:Uk!36=Uk!40-56:ZW=Uk!24:ZX=Uk!32
4120ZY=Uk!28:ZZ=Uk!36:SYS&400D0,,Uk:Za=Yw:Zb=Yw:Zc=Yx:Zd=Yx:PROCZe(Za,Zc,Zb,Zd):ENDPROC
4200DEFPROCZf(Yw,Yx):Zg=Yy:Zh=Yz:Zi=FNction_RowClickedOn(Yw,Yx):Zj=FNction_ColumnClickedOn(Yw,Yx):Zk=2:Zl=Zm:IFZg>Zi THENSWAPZg,Zi
4280IFZh>Zj THENSWAPZh,Zj
4290PROCYZ(Uk,Wd):ENDPROC
4330DEFPROCZe(Zn,Zo,Zp,Zq):Uk!256=Wd:SYS&400CB,,Uk+256:Zr=Uk!(256+4):Zs=Uk!(256+8):Zt=Uk!(256+12):Zu=Uk!(256+16)-56:VDU24,Zr;Zs;Zt;Zu;:SYS&400E6,48+15:RECTANGLEZn,Zo,Zp-Zn,Zq-Zo:ENDPROC
4460DEFPROCWr(XW):Xa=XW!0:XV=XW!4:Zv=XW!24:CASEXa OF
4530WHENWh:IFXV=32 THEN
4540PROCWo(Uk,Wg):PROCWo(Uk,Wh):PROCXj
4570ENDIF
4590WHENYg:IFZv=13 THEN
4600PROCYi(TRUE)
4610ENDIF
4630WHENZw:IFXV=3 THEN
4640SYS&400D4,,-1:Ve=0
4650ENDIF
4670WHENXv:IFXV=1 ANDZv=13 THEN
4680PROCXw(FNction_ReadIconText(Uk,Xv,1)):SYS&400D4,,-1:Ve=0
4700ENDIF
4720WHENXx:IFXV=1 ANDZv=13 THEN
4730PROCXy(FNction_ReadIconText(Uk,Xx,1)):SYS&400D4,,-1:Ve=0
4750ENDIF
4770WHENXz:IFXV=1 ANDZv=13 THEN
4780PROCYU(FNction_ReadIconText(Uk,Xz,1)):SYS&400D4,,-1:Ve=0
4800ENDIF
4820WHENWf:IFXV=1 ANDZv=13 THEN
4840Zx$=FNction_PathnameOnly(VY$(Zy)):Zz$=FNction_ReadIconText(Uk,Wf,1):IFZz$<>"" THEN
4880IFFNction_InstrumentAlreadyLoaded(Zx$+"."+Zz$) THEN
4890Ww$=FNction_TagToString(Vk,"err27"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
4910ELSE:VY$(Zy)=Zx$+"."+Zz$
4930ENDIF
4940ENDIF:PROCaU(Uk,Wf,1,FNction_LeafnameOnly(VY$(Zy))):PROCaV
4990ENDIF
5010WHENWd:CASEZv OF
5030WHENASC"C"-64:IF NOTWU ANDZk<>0 THENPROCaW
5040WHENASC"V"-64:IF NOTWU ANDZk<>0 THENPROCaX
5050WHENASC"X"-64:IF NOTWU ANDZk<>0 THENPROCaY
5060WHENASC"M"-64:IF NOTWU ANDZk<>0 THENPROCaZ
5070WHENASC"Z"-64:IF NOTWU THENPROCVy
5080WHENASC"I"-64:IF NOTWU ANDVp>0 THENPROCaa
5090WHENASC"R"-64:IF NOTWU ANDVq>0 THEN
5100PROCab(FNction_ReadIconText(Uk,Wf,1)):IFVe=9 THEN
5120SYS&400D4,,-1
5130ENDIF
5140ENDIF
5150WHENASC"P"-64:IF NOTWU THEN
5160Wx=FNction_Insert_Pattern:IF NOTWx THEN
5180Ww$=FNction_TagToString(Vk,"err06"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
5200ENDIF
5210ENDIF
5220WHENASC"K"-64:IF NOTWU THENPROCac
5230WHENASC"J"-64:IF NOTWU THEN
5240IFVv THEN
5250PROCaU(Uk,ad,1,"1"):PROCWc(Ui,Uk,ad, NOTTRUE):PROCXg(ad,1,1)
5280ENDIF
5290ENDIF
5310WHEN&183:PROCae(Xz)
5320WHEN&193:IFVq>0 THENPROCae(Xv)
5330WHEN&1A3:PROCae(Xx)
5340WHEN&1A1:PROCaf:PROCae(Zw)
5370WHENASC"Z",ASC"z":PROCYr("C ",+0)
5380WHENASC"S",ASC"s":PROCYr("C#",+0)
5390WHENASC"X",ASC"x":PROCYr("D ",+0)
5400WHENASC"D",ASC"d":PROCYr("D#",+0)
5410WHENASC"C",ASC"c":PROCYr("E ",+0)
5420WHENASC"V",ASC"v":PROCYr("F ",+0)
5430WHENASC"G",ASC"g":PROCYr("F#",+0)
5440WHENASC"B",ASC"b":PROCYr("G ",+0)
5450WHENASC"H",ASC"h":PROCYr("G#",+0)
5460WHENASC"N",ASC"n":PROCYr("A ",+0)
5470WHENASC"J",ASC"j":PROCYr("A#",+0)
5480WHENASC"M",ASC"m":PROCYr("B ",+0)
5500WHENASC"Q",ASC"q":PROCYr("C ",+1)
5510WHENASC"2",ASC"2":PROCYr("C#",+1)
5520WHENASC"W",ASC"w":PROCYr("D ",+1)
5530WHENASC"3",ASC"3":PROCYr("D#",+1)
5540WHENASC"E",ASC"e":PROCYr("E ",+1)
5550WHENASC"R",ASC"r":PROCYr("F ",+1)
5560WHENASC"5",ASC"5":PROCYr("F#",+1)
5570WHENASC"T",ASC"t":PROCYr("G ",+1)
5580WHENASC"6",ASC"6":PROCYr("G#",+1)
5590WHENASC"Y",ASC"y":PROCYr("A ",+1)
5600WHENASC"7",ASC"7":PROCYr("A#",+1)
5610WHENASC"U",ASC"u":PROCYr("B ",+1)
5630WHENASC" ":PROCag
5640WHENASC"=":ah=VALFNction_ReadIconText(Uk,Wf,7):ah+=-1* (ah<7):PROCaU(Uk,Wf,7,STR$ah)
5670WHENASC"-":ah=VALFNction_ReadIconText(Uk,Wf,7):ah-=-1* (ah>1):PROCaU(Uk,Wf,7,STR$ah)
5710WHEN20
5730WHEN&186:IF NOTWU THENPROCai
5740WHEN&18C:PROCaj(-1,0)
5750WHEN&18D:PROCaj(+1,0)
5760WHEN&18F:PROCaj(0,-1)
5770WHEN&18E:PROCaj(0,+1)
5780WHEN&1B:Vv= NOTTRUE:PROCXr
5810ENDCASE
5830WHENad:IFXV=1 ANDZv=13 THEN
5840PROCak
5850ENDIF
5870ENDCASE:PROCal(Zv):ENDPROC
5940DEFPROCae(Xa):SYS&400CF,,Uk+1024:SYS&400D4,,Xa,Uk!(1024+0),Uk!(1024+4):ENDPROC
6000DEFPROCWt(XW):CASEXW!16 OF
6020WHEN0:IFVa THEN
6030Ww$=FNction_TagToString(Vk,"war07"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$,TRUE,TRUE):Vc=Wz=1
6060ELSE:IF NOTWU AND NOTVz THEN
6080Vc=TRUE
6090ENDIF
6100ENDIF
6110WHEN2:PROCam(XW)
6120WHEN3:PROCan(XW)
6130WHEN5:PROCao(XW)
6140WHEN&502:PROCap(XW)
6150ENDCASE:ENDPROC
6190DEFPROCWb(XW):SYS&400C8,,XW TOaq:ar=XW!4:as=XW!16:at=XW!8:au=XW!20:av=XW!24:WHILEaq:CASE!XW OF
6280WHENWj:PROCaw
6290WHENWd:PROCax
6300WHENWl:PROCay
6310WHENWn:PROCaz
6320ENDCASE:SYS&400CA,,XW TOaq:ENDWHILE:ENDPROC
6380DEFPROCWq(XW):CASEWV OF
6400WHEN1:PROCbU(XW)
6410WHEN2:SYS&400CF,,Uk:PROCZf(Uk!0,Uk!4)
6430WHEN3:PROCbV(XW)
6440ENDCASE:WV=0:ENDPROC
6490DEFPROCbU(XW):SYS&400CF,,XW:XX=XW!0:XY=XW!4:Xa=XW!12:XV=XW!16:CASEbW$ OF
6560WHEN"Instrument":bX$=FNction_ReadIconText(Uk,Xv,1)
6570WHEN"Music Data":bX$=FNction_ReadIconText(Uk,Xx,1)
6580WHEN"Music App":bX$=FNction_ReadIconText(Uk,Xz,1)
6590ENDCASE:bY$=FNction_LeafnameOnly(bX$):XW!0=44+((LENbY$ DIV4)*4)+4:XW!4=0:XW!8=0:XW!12=0:XW!16=1:XW!20=Xa:XW!24=XV:XW!28=XX:XW!32=XY:XW!36=64:XW!40=&FFF:$(XW+44)=bY$+CHR$0:SYS&400E7,17,XW,Xa:ENDPROC
6770DEFPROCam(XW):bZ=XW!4:XW!12=XW!8:XW!16=3:bX$=FNction_ExtractString(XW+44):SYS&400E7,17,XW,bZ:CASEbW$ OF
6840WHEN"Instrument":PROCXw(bX$, NOTTRUE)
6850WHEN"Music Data":PROCXy(bX$, NOTTRUE)
6860WHEN"Music App":PROCYU(bX$, NOTTRUE)
6870ENDCASE:SYS&400D4,,-1:ENDPROC
6920DEFFNction_BeginDrag(XU,Xa,XV):CASEXa OF
6950WHENXv:bW$="Instrument"
6960WHENXx:bW$="Music Data"
6970WHENXz:bW$="Music App"
6980ENDCASE:LOCALba,bb,bc,bd:XU!0=4:XU!4=5:XU!8=11:XU!12=12:XU!16=-1:SYS&31,XU,XU+32:ba=(XU!40+1)* 2^( XU!32 ):bb=(XU!44+1)* 2^( XU!36 ):XU!0=Xa:SYS&400CC,,XU:bc=XU!4:bd=XU!16:XU!0=Xa:XU!4=XV:SYS&400CE,,XU:XU!8+=bc:XU!12+=bd:XU!16+=bc:XU!20+=bd:XU!0=0:XU!4=5
7170XU!24=0:XU!28=0:XU!32=ba:XU!36=bb:SYS&400D0,,XU:=0
7230DEFPROCVf:PROCbe(Uq,Up):PROCbf(Uq,"<"+Ud$+"$Dir>.Sprites"):PROCbe(Us,Ur):PROCbf(Us,"<"+Ud$+"$Dir>.Sprites22"):PROCbe(Uu,Ut):PROCbf(Uu,"<"+Ud$+"$Dir>.Sprites23"):CASEFNction_SpritesType OF
7310WHEN1:PROCbe(Uw,Uv):PROCbf(Uw,"<"+Ud$+"$Dir>.Sprites")
7330WHEN2:PROCbe(Uw,Uv):PROCbf(Uw,"<"+Ud$+"$Dir>.Sprites22")
7350WHEN3:PROCbe(Uw,Uv):PROCbf(Uw,"<"+Ud$+"$Dir>.Sprites23")
7370ENDCASE:PROCbg(Uq,"hqtracker"):PROCbg(Uq,"pushup"):PROCbg(Uq,"pushdown"):PROCbg(Us,"hqtracker"):PROCbg(Us,"pushup"):PROCbg(Us,"pushdown"):PROCbg(Uu,"hqtracker"):PROCbg(Uu,"pushup"):PROCbg(Uu,"pushdown"):bh=Uw:ENDPROC
7480DEFPROCVg:bi=Uo:PROCbj(Uk,"<"+Ud$+"$Dir>.Templates"):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"information",bh):bk=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"prf_win",bh):Wg=FNction_MakeTemplateAWindow(Um)
7550bi=FNction_LoadTemplate(Um,bi,Uo+Un,"prf_pane",bh):Wh=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"xfer_inst",bh):Xv=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"xfer_data",bh)
7600Xx=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"xfer_app",bh):Xz=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"main",bh):Wd=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"lib_win",bh)
7660Wi=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"lib_pane",bh):Wj=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"main_pane",bh):Wf=FNction_MakeTemplateAWindow(Um)
7710bi=FNction_LoadTemplate(Um,bi,Uo+Un,"music_info",bh):Zw=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"seq_main",bh):Wk=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"seq_pane",bh)
7760Wl=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"chng_note",bh):Yb=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"chng_fx",bh):Yg=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"play",bh)
7820Yj=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"jump",bh):ad=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"inst_main",bh):Wm=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"inst_pane",bh)
7880Wn=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"piano",bh):Yq=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"share_1",bh):Xb=FNction_MakeTemplateAWindow(Um):bi=FNction_LoadTemplate(Um,bi,Uo+Un,"share_2",bh)
7940Xd=FNction_MakeTemplateAWindow(Um):PROCbl:ENDPROC
7990DEFPROCYs(XX):Ve=1:bm=0:PROCbn(Ud$,160,44):PROCbo("Info",0,bk, NOTTRUE):PROCbo("Prefs...",0,-1,WU):PROCbo("Quit",128,-1,WU):SYS&400D4,,Uy,XX-80,228:ENDPROC
8100DEFPROCYt(XX,XY):Ve=2:bm=0:bp=Uy+2*1024:bq=0:PROCaf:Zx$=FNction_PathnameOnly(FNction_ReadIconText(Uk,Xv,1)):IFZx$<>"" THENZx$+="."
8190PROCaU(Uk,Xv,1,Zx$+FNction_ReadIconText(Uk,Wf,1)):br=Uy+bm:PROCbn("Select",176,44):PROCbo("Copy ^C",0,-1,Zk=0):PROCbo("Move ^V",0,-1,Zk=0):PROCbo("Delete ^X",0,-1,Zk=0):PROCbo("Clear ^Z",0,-1,Zk=0):PROCbo("Merge ^M",128,-1,Zk=0):bs=Uy+bm:PROCbn("Edit",224,44)
8310PROCbo("Alter note",0,-1,Zk=0):PROCbo("Alter effects",2,-1,Zk=0):PROCbt("Sequence list",0,-1, NOTTRUE):PROCbo("Libraries",128,-1,Vp=0):bu=Uy+bm:PROCbn("Misc",336,44):PROCbt("Info... ^F1",0,Zw, NOTTRUE):PROCbo("Play Music",0,-1,WU):PROCbt("Show Keyboard",2,-1,WU)
8410PROCbt("Save Application F3",0,Xz, NOTTRUE):PROCbt("Save Instrument �F3",0,Xv,Vq=0):PROCbt("Save Music Data ^F3",2,Xx, NOTTRUE):PROCbo("Restart",128,-1,WU):bv=Uy+bm:PROCbn("Instrument",176,44):PROCbt("Remove ^R",0,-1,Vq=0):PROCbt("Install ^I",2,-1,Vp=0):PROCbt("Edit",128,-1,Vq=0)
8520bw=Uy+bm:PROCbn("Pattern",176,44):PROCbo("Insert ^P",0,-1,bx=Vm):PROCbo("Clone ",0,-1, NOTTRUE):PROCbo("Clear ",2,-1, NOTTRUE):PROCbo("Remove ^K",0,-1,bx=1):PROCbo("Jump ^J",128,-1, NOTVv):by=Uy+bm:PROCbn("HQTracker",176,44):PROCbo("Misc",2,bu, NOTTRUE):PROCbo("Select",0,br,WU)
8640PROCbo("Edit",2,bs,WU):PROCbo("Instrument",0,bv,WU):PROCbo("Pattern",128,bw,WU):SYS&400D4,,by,XX,XY:ENDPROC
8730DEFPROCXl(XX,XY,bz):Ve=bz:bm=0:bp=Uy+1* 1024:bq=0:PROCbn("Stereo",208,44):PROCbt(FNction_TagToString(Vk,"ster01"),0,-1, NOTTRUE):PROCbt(FNction_TagToString(Vk,"ster02"),0,-1, NOTTRUE):PROCbt(FNction_TagToString(Vk,"ster03"),0,-1, NOTTRUE):PROCbt(FNction_TagToString(Vk,"ster04"),0,-1, NOTTRUE)
8830PROCbt(FNction_TagToString(Vk,"ster05"),0,-1, NOTTRUE):PROCbt(FNction_TagToString(Vk,"ster06"),0,-1, NOTTRUE):PROCbt(FNction_TagToString(Vk,"ster07"),128,-1, NOTTRUE):SYS&400D4,,Uy,XX,XY:ENDPROC
8900DEFPROCXq(XX,XY):Ve=20:bm=0:PROCbn("Octaves",96,44):FORcU=1 TO7:aq=2* ABS(cU=3 ORcU=4):PROCbo(STR$cU,aq,-1, NOTTRUE):NEXTcU:!(Uy+bm-24)=128:SYS&400D4,,Uy,XX,XY:ENDPROC
9030DEFPROCXm(XX,XY,bz):Ve=bz:bm=0:bp=Uy+1* 1024:bq=0:PROCbn("Quality",176,44):PROCbt(FNction_TagToString(Vk,"qual01"),0,-1, NOTTRUE):PROCbt(FNction_TagToString(Vk,"qual02"),0,-1, NOTTRUE):PROCbt(FNction_TagToString(Vk,"qual03"),0,-1, NOTTRUE):PROCbt(FNction_TagToString(Vk,"qual04"),0,-1, NOTTRUE)
9130PROCbt(FNction_TagToString(Vk,"qual05"),0,-1, NOTTRUE):PROCbt(FNction_TagToString(Vk,"qual06"),0,-1, NOTTRUE):PROCbt(FNction_TagToString(Vk,"qual07"),128,-1, NOTTRUE):SYS&400D4,,Uy,XX,XY:ENDPROC
9200DEFPROCYd(XX,XY,bz):Ve=bz:bm=0:PROCbn("Note",64,44):PROCbo("C ",0,-1, NOTTRUE):PROCbo("C#",0,-1, NOTTRUE):PROCbo("D ",0,-1, NOTTRUE):PROCbo("D#",0,-1, NOTTRUE):PROCbo("E ",0,-1, NOTTRUE):PROCbo("F ",0,-1, NOTTRUE):PROCbo("F#",0,-1, NOTTRUE):PROCbo("G ",0,-1, NOTTRUE):PROCbo("G#",0,-1, NOTTRUE):PROCbo("A ",0,-1, NOTTRUE)
9340PROCbo("A#",0,-1, NOTTRUE):PROCbo("B ",128,-1, NOTTRUE):SYS&400D4,,Uy,XX,XY:ENDPROC
9400DEFPROCYe(XX,XY,bz):Ve=bz:bm=0:PROCbn("Octaves",96,44):PROCbo("0",2,-1, NOTTRUE):FORcU=1 TO7:PROCbo(STR$cU,0,-1, NOTTRUE):NEXTcU:!(Uy+bm-24)=128:SYS&400D4,,Uy,XX,XY:ENDPROC
9530DEFPROCbn(cV$,ba,bb):$(Uy+bm)=cV$+CHR$0:?(Uy+bm+12)=7:?(Uy+bm+13)=2:?(Uy+bm+14)=7:?(Uy+bm+15)=0:!(Uy+bm+16)=ba:!(Uy+bm+20)=bb:!(Uy+bm+24)=0:bm+=28:ENDPROC
9660DEFPROCbo(cW$,cX,cY,cZ):!(Uy+bm+0)=cX:!(Uy+bm+4)=cY:!(Uy+bm+8)=&07000001+ABScZ*2^22:$(Uy+bm+12)=cW$+CHR$0:bm+=24:ENDPROC
9750DEFPROCbt(ca$,cX,cY,cZ):!(Uy+bm+0)=cX:!(Uy+bm+4)=cY:!(Uy+bm+8)=&07000101+ABScZ*2^22:cb=bp+bq:$cb=ca$+CHR$0:bq+=LENca$+1:!(Uy+bm+12)=cb:!(Uy+bm+16)=bp:!(Uy+bm+20)=16:bm+=24:ENDPROC
9870DEFPROCWs(XW):cc=XW!0:cd=XW!4:ce=TRUE:CASEVe OF
9920WHEN1:CASEcc OF
9930WHEN1:PROCXf(Uk,Wg):PROCWe(Uk,Wg,Wh,8,8)
9950WHEN2:IFVa THEN
9960Ww$=FNction_TagToString(Vk,"war07"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$,TRUE,TRUE):Vc=Wz=1
9990ELSE:Vc=TRUE
10010ENDIF
10020ENDCASE
10030WHEN2:CASEcc OF
10040WHEN0:CASEcd OF
10050WHEN1:PROCaU(Uk,Yj,5,"-"):PROCaU(Uk,Yj,3,"-"):PROCaU(Uk,Yj,7,"-"):PROCcf(Uk,Yj,10,WU):PROCcf(Uk,Yj,11, NOTWU):PROCXf(Uk,Yj)
10110WHEN2:PROCWc(Ui,Uk,Yq, NOTTRUE)
10120WHEN6:PROCcg
10130ENDCASE
10140WHEN1:CASEcd OF
10150WHEN0:PROCaW
10160WHEN1:PROCaX
10170WHEN2:PROCaY
10180WHEN3:PROCVy
10190WHEN4:PROCaZ
10200ENDCASE
10210WHEN2:CASEcd OF
10220WHEN0:PROCch
10230WHEN1:PROCci
10250WHEN2:PROCcj:ck=cl:PROCaU(Uk,Wk,1,STR$Zm):PROCWc(Ui,Uk,Wk, NOTTRUE):PROCWe(Uk,Wk,Wl,8,164+8)
10310WHEN3:PROCWc(Ui,Uk,Wi, NOTTRUE):PROCWe(Uk,Wi,Wj,8,8)
10330ENDCASE
10340WHEN3:CASEcd OF
10350WHEN0:PROCab(FNction_ReadIconText(Uk,Wf,1))
10360WHEN1:PROCaa:ce= NOTTRUE
10380WHEN2:PROCcm
10390ENDCASE
10400WHEN4:CASEcd OF
10410WHEN0:Wx=FNction_Insert_Pattern:IF NOTWx THEN
10430Ww$=FNction_TagToString(Vk,"err06"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
10450ENDIF
10460WHEN1:PROCcn
10470WHEN2:PROCco
10480WHEN3:PROCac
10490WHEN4:PROCaU(Uk,ad,1,"1"):PROCWc(Ui,Uk,ad, NOTTRUE):PROCXg(ad,1,1)
10520ENDCASE
10530ENDCASE
10540WHEN3:PROCaU(Uk,Wh,6,FNction_TagToString(Vk,"ster0"+STR$(cc+1)))
10550WHEN4:PROCaU(Uk,Wh,7,FNction_TagToString(Vk,"ster0"+STR$(cc+1)))
10560WHEN5:PROCaU(Uk,Wh,8,FNction_TagToString(Vk,"ster0"+STR$(cc+1)))
10570WHEN6:PROCaU(Uk,Wh,9,FNction_TagToString(Vk,"ster0"+STR$(cc+1)))
10580WHEN7:PROCaU(Uk,Wh,25,FNction_TagToString(Vk,"qual0"+STR$(cc+1)))
10590WHEN8:ah$=FNction_DecodeMenuIntoText(cp,XW,Uk+3*1024):ah$=FNction_LeafnameOnly(ah$):cq=INSTR(ah$,":"):cr=VALLEFT$(ah$,cq-1):cs$=MID$(ah$,cq+1,LENah$-cq):PROCct(VV$(cr)+".HQ_Library."+cs$,-1)
10650WHEN9:ah$=FNction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):PROCVr(MID$(ah$,4,LENah$))
10670WHEN10:ah$=FNction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):PROCcu(VALah$)
10690WHEN11:ah$=FNction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):PROCaU(Uk,Wk,1,ah$)
10710WHEN12:ah$=FNction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):PROCaU(Uk,Yb,1,MID$(ah$,4,LENah$))
10730WHEN13:ah$=FNction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):PROCaU(Uk,Yb,4,MID$(ah$,4,LENah$))
10750WHEN14:ah$=FNction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):PROCaU(Uk,Yb,7,ah$)
10770WHEN15:ah$=FNction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):PROCaU(Uk,Yb,10,ah$)
10790WHEN16:ah$=FNction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):PROCaU(Uk,Yb,13,ah$)
10810WHEN17:ah$=FNction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):PROCaU(Uk,Yb,16,ah$)
10830WHEN18:ah$=FNction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):PROCaU(Uk,Yg,1,ah$)
10850WHEN19:ah$=FNction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):PROCaU(Uk,Yg,4,ah$)
10870WHEN20:ah$=FNction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):PROCaU(Uk,Wf,7,ah$)
10890ENDCASE:SYS&400CF,,XW:XX=XW!0:XY=XW!4:XZ=XW!8:IFce THEN
10950IFXZ=Ub THEN
10960CASEVe OF
10970WHEN1:PROCYs(XX)
10980WHEN2:PROCYt(XX,XY)
10990WHEN3:PROCXl(XX,XY,3)
11000WHEN4:PROCXl(XX,XY,4)
11010WHEN5:PROCXl(XX,XY,5)
11020WHEN6:PROCXl(XX,XY,6)
11030WHEN7:PROCXm(XX,XY,7)
11040WHEN8:SYS&400D4,,cp,XX,XY
11050WHEN9:PROCXo(XX,XY)
11060WHEN10:PROCXp(XX,XY)
11070WHEN20:PROCXq(XX,XY)
11080ENDCASE
11090ELSE:SYS&400D4,,-1:Ve=0
11120ENDIF
11130ENDIF:ENDPROC
11170DEFPROCan(XW):cv=XW!40:bX$=FNction_ExtractString(XW+44):bZ=XW!4:XW!16=4:XW!12=XW!8:IF NOTWU THEN
11240CASEcv OF
11250WHENUf:IFFNction_DoesFileExist(bX$+".HQ_Library") THEN
11260SYS&400E7,17,XW,bZ:PROCcw(bX$)
11280ELSE:IFFNction_DoesFileExist(bX$+".MusicData") THEN
11300SYS&400E7,17,XW,bZ:PROCcx(bX$,TRUE)
11320ELSE:Ww$=FNction_TagToString(Vk,"err03"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
11350ENDIF
11360ENDIF
11370WHENUg:IFFNction_FileIsInstrument(bX$) THEN
11380PROCct(bX$,-1):SYS&400E7,17,XW,bZ
11400ELSE:PROCcx(bX$, NOTTRUE):SYS&400E7,17,XW,bZ
11430ENDIF
11440ENDCASE
11450ENDIF:ENDPROC
11490DEFPROCao(XW):cv=XW!40:bX$=FNction_ExtractString(XW+44):bZ=XW!4:XW!16=4:XW!12=XW!8:IF NOTWU THEN
11560CASEcv OF
11570WHENUf:IFFNction_DoesFileExist(bX$+".HQ_Library") THEN
11580SYS&400E7,17,XW,bZ:PROCcw(bX$)
11600ELSE:IFFNction_DoesFileExist(bX$+".MusicData") THEN
11620SYS&400E7,17,XW,bZ:PROCcx(bX$,TRUE)
11640ENDIF
11650ENDIF
11660WHENUg:IFFNction_FileIsInstrument(bX$) THEN
11670PROCct(bX$,-1):SYS&400E7,17,XW,bZ
11690ELSE:PROCcx(bX$, NOTTRUE):SYS&400E7,17,XW,bZ
11720ENDIF
11730ENDCASE
11740ENDIF:ENDPROC
11780DEFFNction_SizeOfFile(bX$):LOCALcy,cz,dU,dV,dW,dX:LOCALdY:SYS&8,17,bX$ TOcy,cz,dU,dV,dW,dX:dY=dW:=dY
11860DEFFNction_DoesFileExist(bX$):LOCALcy,cz,dU,dV,dW,dX:SYS&8,17,bX$ TOcy,cz,dU,dV,dW,dX:=cy<>0
11920DEFFNction_TypeOfFile(bX$):LOCALcy,cz,dU,dV,dW,dX:LOCALdY:SYS&8,17,bX$ TOcy,cz,dU,dV,dW,dX:dZ=((dU>>8) AND&FFF):=dZ
12000DEFPROCaf:PROCaU(Uk,Zw,9,STR$cl):da=0:db=0:FORi=1 TOVX:IFVY$(i)<>"" THEN
12060SYS&900C5,VZ(i),UV TOdc:db+=1:da+=(dc!(64+4)) DIV1024
12090ENDIF:NEXT:PROCaU(Uk,Zw,7,STR$db):PROCaU(Uk,Zw,10,STR$da+" KB"):PROCaU(Uk,Zw,8,STR$bx):PROCaU(Uk,Zw,11,STR$bx+" KB"):ENDPROC
12180DEFPROCXr:PROCdd(Vw,Vx):ENDPROC
12230DEFPROCXu(XW):IFVv THEN
12250XX=XW!0:XY=XW!4:de=FNction_ColumnClickedOn(XX,XY):df=FNction_RowClickedOn(XX,XY):IFde<1 THENde=1
12300IFde>4 THENde=4
12310IFdf<1 THENdf=1
12320IFdf>64 THENdf=64
12330PROCdd(Vw,Vx):Vw=df:Vx=de:PROCdd(Vw,Vx)
12370ENDIF:ENDPROC
12410DEFFNction_RowClickedOn(XX,XY):Uk!0=Wd:SYS&400CC,,Uk:as=Uk!(12+4):dg=as-XY:av=Uk!(20+4):dg-=av:dh=dg-56:df=(dh DIV44)+1:=df
12500DEFFNction_ColumnClickedOn(XX,XY):Uk!0=Wd:SYS&400CC,,Uk:di=XX-(Uk!4-Uk!20):de=((di-6*16) DIV(18*16))+1:=de
12570DEFPROCdd(dj,dk):Uk!0=Wd:SYS&400CC,,Uk:as=Uk!(12+4):av=Uk!(20+4):ar=Uk!(0+4):Zs=as-56-dj*44 - av:Zr=ar+6*16 + (dk-1)*18*16:SYS&400D1,-1,Zr,Zs-8,Zr+13*16,Zs+44+8:ENDPROC
12680DEFPROCai:CASEZk OF
12700WHEN0:Zg=Vw:Zh=Vx:Zi=Vw:Zj=Vx:Zk=1:Zl=Zm
12740WHEN1,2:Zi=Vw:Zj=Vx:IFZg>Zi THENSWAPZg,Zi
12760IFZh>Zj THENSWAPZh,Zj
12770Zk=2
12780ENDCASE:PROCYZ(Uk,Wd):ENDPROC
12830DEFPROCVy:Zk=0:Zg=1:Zh=1:Zi=1:Zj=1:Zl=Zm:PROCYZ(Uk,Wd):ENDPROC
12920DEFPROCYr(dl$,dm):cU=VALFNction_ReadIconText(Uk,Wf,7)+dm:cU$=STR$cU:dn=FNction_FindInstrument(FNction_ReadIconText(Uk,Wf,1)):dn$=RIGHT$(" "+STR$dn,2):IFdn<>-1 THEN
13010SYS&900C5,VZ(Zy),UV TOdo:dp=do!(76+4):dp$=RIGHT$(" "+STR$dp,3):SYS&900C5,dq,UV TOdc:dc+=(Zm-1)* 1024:A%=!(dc+(Vw-1)*16 + (Vx-1)*4):SYS&90093,A% TOdr:ds$=FNction_ExtractString(dr):IFLEFT$(ds$,1)<>"J" THEN
13130MID$(ds$,1,2)=dl$:MID$(ds$,3,1)=STR$cU:MID$(ds$,5,2)=dn$:MID$(ds$,9,3)=dp$
13170ENDIF:SYS&90094,ds$ TOA%:IFVv THEN
13220!(dc+(Vw-1)*16 + (Vx-1)*4) = A%:dt=Vw:du=Vx:Vw+=1:IFVw>64 THENVw=64
13260PROCdd(dt,du):PROCdd(Vw,Vx)
13280ENDIF:Wx=FNction_Playout(dl$,STR$cU,TRUE):IFVv THEN
13320IFFNction_NoteIsBelowWindow THENPROCdv(Uk,Wd,0,-44*4)
13330IFFNction_NoteIsAboveWindow THENPROCdv(Uk,Wd,0,+44*4)
13340ENDIF
13360ENDIF:ENDPROC
13410DEFPROCag:SYS&900C5,dq,UV TOdc:dc+=(Zm-1)* 1024:!(dc+(Vw-1)*16 + (Vx-1)*4) = 0:dt=Vw:du=Vx:Vw+=1:IFVw>64 THENVw=64
13480PROCdd(dt,du):PROCdd(Vw,Vx):IFFNction_NoteIsBelowWindow THENPROCdv(Uk,Wd,0,-44*4)
13510IFFNction_NoteIsAboveWindow THENPROCdv(Uk,Wd,0,+44*4)
13520ENDPROC
13550DEFFNction_Playout(ds$,cU$,dw):SYS&9008B TOdx:IFdx=0 AND NOTVz THEN
13610Wx= NOTTRUE
13630ELSE:Wx=TRUE:IF NOTdw THENSYS&9008C
13680cU=VALcU$:ds=(INSTR("C C#D D#E F F#G G#A A#B ",ds$)+1)/2:dy=FNction_FindInstrument(FNction_ReadIconText(Uk,Wf,1)):IFdy<>-1 THEN
13740SYS&900C5,VZ(dy),UV TOdc:dz=dc!(76+4):eU=dc!(64+4):eV=dc!(68+4):eW=dc!(72+4):eV=0:eW=0:eX=dc+80+4:eY=eX:eZ=eX+eU-132:Uk!(2048+0)=eX:Uk!(2048+4)=eX+eU-132:Uk!(2048+8)=eV:Uk!(2048+12)=eW:Uk!(2048+16)=dz:Uk!(2048+20)=-1:Uk!(2048+24)=-1:Uk!(2048+28)=-1
13930SYS&9008D,1,Uk+2048:IF NOTVz THEN
13960SYS&9008A,!ea:SYS&90084,ABS(!eb),ABS(!ec),ABS(!ed),ABS(!ee):SYS&90083,!ef:SYS&9008B:SYS&90085,!eg,!eh,!ei,!ej
14010ENDIF:Uk!(2048+0)=1:Uk!(2048+4)=1:Uk!(2048+8)=cU:Uk!(2048+12)=ds:Uk!(2048+16)=2:Uk!(2048+20)=1:Uk!(2048+24)=cU:Uk!(2048+28)=ds:Uk!(2048+32)=3:Uk!(2048+36)=1:Uk!(2048+40)=cU:Uk!(2048+44)=ds:Uk!(2048+48)=4:Uk!(2048+52)=1:Uk!(2048+56)=cU:Uk!(2048+60)=ds
14080SYS&90090,(Uk+2048):SYS&90090,(Uk+2048+16):SYS&90090,(Uk+2048+32):SYS&90090,(Uk+2048+48):Vz=TRUE
14120ENDIF
14140ENDIF:=Wx
14190DEFPROCWY:SYS&90081,1 TOek:cY=ek!0:IFcY<eY ORcY>eZ THEN
14230SYS&9008C:SYS&9008E,1:Vz= NOTTRUE
14260ENDIF:ENDPROC
14300DEFPROCaj(el,em):IFVv THEN
14320dt=Vw:du=Vx:Vx+=el:Vw+=em:IFVw<1 THENVw=1
14370IFVw>64 THENVw=64
14380IFVx<1 THENVx=1
14390IFVx>4 THENVx=4
14400IFdt<>Vw ORdu<>Vx THEN
14410PROCdd(dt,du):PROCdd(Vw,Vx)
14430ENDIF:IFFNction_NoteIsBelowWindow THENPROCdv(Uk,Wd,0,-44*4)
14450IFFNction_NoteIsAboveWindow THENPROCdv(Uk,Wd,0,+44*4)
14460ENDIF:ENDPROC
14500DEFFNction_NoteIsBelowWindow:Uk!0=Wd:SYS&400CB,,Uk:ar=Uk!4:at=Uk!8:en=Uk!12:as=Uk!16:au=Uk!20:av=Uk!24:eo=as-56-Vw*44 - av:=eo<at
14600DEFFNction_NoteIsAboveWindow:Uk!0=Wd:SYS&400CB,,Uk:ar=Uk!4:at=Uk!8:en=Uk!12:as=Uk!16:au=Uk!20:av=Uk!24:eo=as-56-Vw*44 - av:=eo>as-56-22
14700DEFPROCcg:IFVq>0 ORcl>1 ORbx>1 ORVa THEN
14720Ww$=FNction_TagToString(Vk,"err23"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$,TRUE,TRUE)
14740ELSE:Wz=1
14760ENDIF:IFWz=1 THEN
14780FORep=1 TOVX:IFVY$(ep)<>"" THEN
14800PROCab(FNction_LeafnameOnly(VY$(ep)))
14810ENDIF:NEXTep:PROCYX:SYS&900C5,dq,UV TOdc:A%=dc:B%=dc+!Vn*1024:C%=0:CALLeq:er()= NOTTRUE:er(1)=TRUE:bx=1:PROCcu(1):PROCaU(Uk,Zw,2,""):PROCaU(Uk,Zw,3,""):PROCaU(Uk,Xz,1,"MusicApp"):PROCaU(Uk,Xv,1,"Instrument"):PROCaU(Uk,Xx,1,"MusicData "):PROCes(Uk,Wd,"<Untitled>"):Uk!0=Wd:SYS&400CB,,Uk
14990SYS&400C6,,Uk:SYS&400C5,,Uk:PROCXg(Wd,-1,0):PROCWe(Uk,Wd,Wf,0,0):Va= NOTTRUE:PROCWo(Uk,Wm):PROCWo(Uk,Wn)
15080ENDIF:ENDPROC
15120DEFPROCch:PROCaU(Uk,Yb,1,FNction_ReadIconText(Uk,Wf,1)):PROCaU(Uk,Yb,4,FNction_ReadIconText(Uk,Wf,1)):PROCaU(Uk,Yb,7,"C "):PROCaU(Uk,Yb,10,"C "):PROCaU(Uk,Yb,13,"1"):PROCaU(Uk,Yb,16,"1"):PROCYc:PROCWc(Ui,Uk,Yb, NOTTRUE):ENDPROC
15240DEFPROCYc:FORdj=1 TO3:et=FNction_IconIsToggled(Uk,Yb,(dj-1)*6):FORi=(dj*6-6)+1 TO(dj*6-6)+5:PROCcf(Uk,Yb,i, NOTet):NEXTi:NEXTdj:ENDPROC
15340DEFPROCYf(eu):IFFNction_IconIsToggled(Uk,Yb,0) THENPROCev
15360IFFNction_IconIsToggled(Uk,Yb,6) THENPROCew
15370IFFNction_IconIsToggled(Uk,Yb,12) THENPROCex
15380IFeu THENPROCWo(Uk,Yb)
15390PROCYZ(Uk,Wd):ENDPROC
15430DEFPROCci:PROCaU(Uk,Yg,1,FNction_TagToString(Vk,"ster01")):PROCaU(Uk,Yg,4,FNction_TagToString(Vk,"ster01")):PROCaU(Uk,Yg,7,"127"):PROCaU(Uk,Yg,11,"127"):PROCaU(Uk,Yg,15,"15"):PROCaU(Uk,Yg,19,"15"):PROCaU(Uk,Yg,24,"0"):PROCaU(Uk,Yg,26,"0"):PROCaU(Uk,Yg,25,"0"):PROCYh:PROCWc(Ui,Uk,Yg, NOTTRUE):ENDPROC
15580DEFPROCYh:et=FNction_IconIsToggled(Uk,Yg,0):FORi=1 TO5:PROCcf(Uk,Yg,i, NOTet):NEXTi:et=FNction_IconIsToggled(Uk,Yg,6):FORi=7 TO13:PROCcf(Uk,Yg,i, NOTet):NEXTi:et=FNction_IconIsToggled(Uk,Yg,14):FORi=15 TO21:PROCcf(Uk,Yg,i, NOTet):NEXTi:et=FNction_IconIsToggled(Uk,Yg,23):FORi=24 TO30
15730PROCcf(Uk,Yg,i, NOTet):NEXTi:ENDPROC
15780DEFPROCYi(eu):IFFNction_IconIsToggled(Uk,Yg,0) THENPROCey
15800IFFNction_IconIsToggled(Uk,Yg,6) THENPROCez
15810IFFNction_IconIsToggled(Uk,Yg,14) THENPROCfU
15820IFFNction_IconIsToggled(Uk,Yg,23) THENPROCfV
15830IFeu THENPROCWo(Uk,Yg)
15840PROCYZ(Uk,Wd):ENDPROC
15880DEFPROCYk:SYS&9008B TOdx:IFdx=-1 THEN
15930SYS&9008C:fW=FNction_IconIsToggled(Uk,Yj,1):SYS&900C5,dq,UV TOdc:SYS&900C5,fX,UV TOfY:SYS&90086,dc:SYS&90087,fY:SYS&90088,cl:IF NOTfW THEN
16040SYS&90089,ck,1
16050ELSE:SYS&90089,1,1
16070ENDIF:SYS&9008A,!ea:FORi=1 TOVX:IFVY$(i)<>"" THEN
16130Wy=VZ(i):SYS&900C5,Wy,UV TOdc:Uk!0=dc+80+4:Uk!4=dc+80+4+dc!(64+4)-132:Uk!8=dc!(68+4):Uk!12=dc!(72+4):Uk!16=dc!(76+4):SYS&9008D,i,Uk
16210ENDIF:NEXTi:SYS&90084,ABS(!eb),ABS(!ec),ABS(!ed),ABS(!ee):SYS&90082,!fZ:SYS&90083,!ef:SYS&9008B:SYS&90085,!eg,!eh,!ei,!ej:SYS&90091:WU=TRUE:PROCcf(Uk,Yj,8,WU):PROCcf(Uk,Yj,9, NOTWU):PROCaU(Uk,Yj,5,"1"):fa=1:PROCaU(Uk,Yj,3,STR$((?fY)+1)):fb=(?fY)+1:PROCaU(Uk,Yj,7,"1"):fc=1:PROCWo(Uk,Wk):PROCWo(Uk,Wl)
16410PROCWo(Uk,Yb):PROCWo(Uk,Yg):PROCWo(Uk,Wi):PROCWo(Uk,Wj):PROCWo(Uk,Wg):PROCWo(Uk,Wh):PROCWo(Uk,Wm):PROCWo(Uk,Wn):PROCWo(Uk,Yq):PROCaV:IFVv THEN
16490Vv= NOTTRUE:PROCYZ(Uk,Wd)
16510ENDIF
16570ENDIF:ENDPROC
16620DEFPROCYl:SYS&90092:SYS&9008C:SYS&9008E,-1:WU= NOTTRUE:PROCcf(Uk,Yj,8,WU):PROCcf(Uk,Yj,9, NOTWU):SYS&900C5,fX,UV TOdc:ENDPROC
16730DEFPROCWZ:SYS&90089,-1,-1 TOfd,fe:SYS&900C5,fX,UV TOdc:ff=dc?(fd-1):IFfd<>fa THENPROCaU(Uk,Yj,5,STR$fd):fa=fd
16780IFff<>fb THENPROCaU(Uk,Yj,3,STR$(ff+1)):fb=ff
16790IFfe<>fc THENPROCaU(Uk,Yj,7,STR$fe):fc=fe
16800ENDPROC
16830DEFPROCYY:IF NOTVa THEN
16850cV$=FNction_GetWindowTitle(Uk,Wd):cV$+=" *":PROCes(Uk,Wd,cV$):!Uk=Wd:SYS&400CC,,Uk:SYS&400C6,,Uk:SYS&400C5,,Uk:PROCWe(Uk,Wd,Wf,0,0):Va=TRUE:PROCXg(Wd,-1,0)
16950ENDIF:ENDPROC
16990DEFPROCap(XW):Wy$="":bZ=XW!4:fg=XW!32:fh=XW!36:CASEfg OF
17070WHENUc:IFfh=Vj THENWy$="ibar"
17090WHENWi:CASEfh OF
17100WHEN0:Wy$="lwin00"
17110WHEN1:Wy$="lwin01"
17120ENDCASE
17140WHENWg:CASEfh OF
17150WHEN0:Wy$="pwin00"
17160WHEN1:Wy$="pwin01"
17170WHEN2:Wy$="pwin02"
17180ENDCASE
17200WHENWh:CASEfh OF
17210WHEN2:Wy$="ppne02"
17220WHEN5:Wy$="ppne05"
17230WHEN3:Wy$="ppne03"
17240WHEN4:Wy$="ppne04"
17250WHEN6:Wy$="ppne06"
17260WHEN7:Wy$="ppne07"
17270WHEN8:Wy$="ppne08"
17280WHEN9:Wy$="ppne09"
17290WHEN10:Wy$="ppne10"
17300WHEN11:Wy$="ppne11"
17310WHEN12:Wy$="ppne12"
17320WHEN13:Wy$="ppne13"
17330WHEN17:Wy$="ppne17"
17340WHEN30:Wy$="ppne30"
17350WHEN31:Wy$="ppne31"
17360WHEN18:Wy$="ppne18"
17370WHEN20:Wy$="ppne20"
17380WHEN21:Wy$="ppne21"
17390WHEN25:Wy$="ppne25"
17400WHEN26:Wy$="ppne26"
17410WHEN32:Wy$="ppne32"
17420WHEN33:Wy$="ppne33"
17430WHEN34:Wy$="ppne34"
17440ENDCASE
17460WHENWj:Wy$="lpne"
17480WHENZw:CASEfh OF
17490WHEN2:Wy$="minf02"
17500WHEN3:Wy$="minf03"
17510WHEN7:Wy$="minf07"
17520WHEN8:Wy$="minf08"
17530WHEN9:Wy$="minf09"
17540WHEN10:Wy$="minf10"
17550WHEN11:Wy$="minf11"
17560ENDCASE
17570WHENWk:CASEfh OF
17580WHEN1:Wy$="sman01"
17590WHEN2:Wy$="sman02"
17600WHEN3:Wy$="sman03"
17610WHEN4:Wy$="sman04"
17620WHEN5:Wy$="sman05"
17630WHEN6:Wy$="sman06"
17640ENDCASE
17660WHENYb:CASEfh OF
17670WHEN0:Wy$="cnot00"
17680WHEN6:Wy$="cnot06"
17690WHEN12:Wy$="cnot12"
17700WHEN1:Wy$="cnot01"
17710WHEN4:Wy$="cnot04"
17720WHEN2:Wy$="cnot02"
17730WHEN5:Wy$="cnot05"
17740WHEN7:Wy$="cnot07"
17750WHEN10:Wy$="cnot10"
17760WHEN8:Wy$="cnot08"
17770WHEN11:Wy$="cnot11"
17780WHEN13:Wy$="cnot13"
17790WHEN16:Wy$="cnot16"
17800WHEN14:Wy$="cnot14"
17810WHEN17:Wy$="cnot17"
17820WHEN18:Wy$="cnot18"
17830ENDCASE
17850WHENYg:CASEfh OF
17860WHEN0:Wy$="chfx00"
17870WHEN6:Wy$="chfx06"
17880WHEN14:Wy$="chfx14"
17890WHEN23:Wy$="chfx23"
17900WHEN1:Wy$="chfx01"
17910WHEN4:Wy$="chfx04"
17920WHEN2:Wy$="chfx02"
17930WHEN5:Wy$="chfx05"
17940WHEN7:Wy$="chfx07"
17950WHEN11:Wy$="chfx11"
17960WHEN8:Wy$="chfx08"
17970WHEN12:Wy$="chfx12"
17980WHEN9:Wy$="chfx09"
17990WHEN13:Wy$="chfx13"
18000WHEN15:Wy$="chfx15"
18010WHEN19:Wy$="chfx19"
18020WHEN16:Wy$="chfx16"
18030WHEN20:Wy$="chfx20"
18040WHEN17:Wy$="chfx17"
18050WHEN21:Wy$="chfx21"
18060WHEN25:Wy$="chfx25"
18070WHEN27:Wy$="chfx27"
18080WHEN28:Wy$="chfx28"
18090WHEN22:Wy$="chfx22"
18100ENDCASE
18120WHENYj:CASEfh OF
18130WHEN1:Wy$="play01"
18140WHEN3:Wy$="play03"
18150WHEN5:Wy$="play05"
18160WHEN7:Wy$="play07"
18170WHEN8:Wy$="play08"
18180WHEN9:Wy$="play09"
18190ENDCASE
18210WHENad:CASEfh OF
18220WHEN1:Wy$="jump01"
18230ENDCASE
18250WHENWn:Wy$="ipne"
18270WHENWf:CASEfh OF
18280WHEN1:Wy$="mpne01"
18290WHEN2:Wy$="mpne02"
18300WHEN5:Wy$="mpne05"
18310WHEN6:Wy$="mpne06"
18320WHEN7:Wy$="mpne07"
18330WHEN8:Wy$="mpne08"
18340ENDCASE
18360WHENWd:Wy$="main"
18380WHENWl:Wy$="spne"
18400WHENWm:CASEfh OF
18410WHEN13:Wy$="iman13"
18420WHEN1:Wy$="iman01"
18430WHEN6:Wy$="iman06"
18440WHEN2:Wy$="iman02"
18450WHEN3:Wy$="iman03"
18460WHEN4:Wy$="iman04"
18470WHEN5:Wy$="iman05"
18480WHEN9:Wy$="iman09"
18490WHEN10:Wy$="iman10"
18500WHEN11:Wy$="iman11"
18510WHEN14:Wy$="iman14"
18520WHEN12:Wy$="iman12"
18530ENDCASE
18550ENDCASE:IFWy$<>"" THEN
18580fi$=FNction_TagToString(Vk,Wy$):XW!0=20+((LEN(fi$) DIV4)*4)+4:XW!12=XW!8:XW!16=&503:$(XW+20)=fi$+CHR$0:SYS&400E7,17,XW,bZ
18640ENDIF:ENDPROC
18680DEFFNction_FileIsInstrument(fj$):fk=OPENINfj$:fl=BGET#fk:fm=BGET#fk:fn=BGET#fk:fo=BGET#fk:CLOSE#fk:=((fl=ASC"I") AND(fm=ASC"N") AND(fn=ASC"S") AND(fo=ASC"T"))
18760DEFPROCUX:Ww$="Fatal Error : "+REPORT$+" ("+STR$ERL+")":Wz=FNction_ReportError(Uk,99,Ud$,Ww$,TRUE, NOTTRUE):ENDPROC
18850DEFPROCWW:PROCXf(Uk,Xb):PROCfp(Uk,Xb):VDU7:ENDPROC
18920DEFPROCXc:PROCXf(Uk,Xd):PROCfp(Uk,Xd):VDU7:ENDPROC
19090DEFPROCVi:fq=13:fr=14:fs=15:DIMft 5*1024:FORfu=0 TO2STEP2:P%=ft:[OPT fu:.fv STMFD (fq)!,{r0-r12,fr}:MOV r12,#13:MOV r11,#0:MOV r10,#0:LDR r9,fw:LDR r8,fx:LDR r6,fy:LDR r5,fz:LDR r4,gU:LDR r3,gV:LDR fr,gW:.gX:CMP r10,r4 : BLT gY:CMP r10,r3 : BGT gY:.gZ CMP r12,#11
19390MOVNE r0,#11:SWINE "Wimp_SetColour":MOVNE r12,#11:B ga:.gY CMP r12,#7:MOVNE r0,#7:SWINE "Wimp_SetColour":MOVNE r12,#7:.ga LDRB r7,[r9]:MOV r7,r7,ASR #1:CMP r11,#0:MVNNE r7,r7:ADDNE r7,r7,#1:.gb MOV r0,#5:ADD r1,r5,r10,ASL #1:ADD r2,r6,r7
19580ADD r2,r2,#128:CMP r10,#0:MOVEQ r0,#4:SWI "OS_Plot":.gc MVN r11,r11:ADD r9,r9,r8:CMP r9,fr:MOVGT r9,fr:ADD r10,r10,#2:CMP r10,#800:BNE gX:LDMFD (fq)!,{r0-r12,PC}:.fx DCD 0:.fy DCD 0:.fz DCD 0:.gU DCD 0:.gV DCD 0:.fw DCD 0:.gW DCD 0:.eq STR r2,[r0],#4
19940CMP r0,r1:BNE eq:MOV PC,fr:.gd STMFD (fq)!,{r0-r12,fr}:.ge MOV r0,#5:SWI "OS_WriteC":.gf LDR r0,gg:LDR r1,gh:LDR r2,gi:.gj CMP r0,r1:ADDGT r2,r2,#1:SUBGT r0,r0,#44:BGT gj:STR r0,gg:STR r2,gi:.gk LDR r0,gi:CMP r0,#64:BGT gl:LDR r0,gg:LDR r1,gm
20290CMP r0,r1:BLT gl:LDR r0,gg:ADD r0,r0,#32:STR r0,gn:.go MOV r0,#8 : SWI "Wimp_SetColour":LDR r0,gi:ADR r1,gp:SUB r0,r0,#1:ADD r1,r1,r0,ASL #1:LDRB r2,[r1,#0]: STRB r2,gq+0:LDRB r2,[r1,#1]: STRB r2,gq+1:BL gr:ADR r0,gq : BL gs
20460.gt MOV r0,#1 : STR r0,gu : BL gv:.gw MOV r0,#2 : STR r0,gu : BL gv:.gx MOV r0,#3 : STR r0,gu : BL gv:.gy MOV r0,#4 : STR r0,gu : BL gv:.gz LDR r0,gi:ADD r0,r0,#1:STR r0,gi:LDR r0,gg:SUB r0,r0,#44:STR r0,gg:B gk:.gl:.hU MOV r0,#4:SWI "OS_WriteC"
20640LDMFD (fq)!,{r0-r12,PC}:.gv STMFD (fq)!,{fr}:LDR r0,gu:CMP r0,#1 : LDREQ r1,eb:CMP r0,#2 : LDREQ r1,ec:CMP r0,#3 : LDREQ r1,ed:CMP r0,#4 : LDREQ r1,ee: ANDS r1, r1, #1:MOVEQ r0,#2:MOVNE r0,#7 : SWI "Wimp_SetColour":BL hV:LDR r0,hW:CMP r0,#0:BEQ hX
20840.hY MOV r0,#7:SWI "Wimp_SetColour":BL hZ:MOV r0,#1:SWI "Wimp_SetColour":.hX BL ha:LDR r0,hb:CMP r0,#0:BEQ hc:.hd MOV r0,#8:SWI "Wimp_SetColour":BL hZ:MOV r0,#9:SWI "Wimp_SetColour":B he:.hc:.he LDR r0,hf:LDR r1,gi:SUB r1,r1,#1:ADD r0,r0,r1,ASL #4
21090LDR r1,gu:SUB r1,r1,#1:ADD r0,r0,r1,ASL #2:LDR r0,[r0]:SWI "PlayModule_NoteToString":STR r0,hg:LDR r0,hh:STR r0,hi:ADD r0,r0,#6*16:MOV r1,#18*16:LDR r2,gu:SUB r2,r2,#1:MLA r0,r1,r2,r0:STR r0,hh:BL gr:LDR r0,hg:MOV r1,#0:STRB r1,[r0,#11]
21310.hj LDRB r2,[r0,#0]:CMP r2,#ASC"J":MOVEQ r12,r0:MOVEQ r0,#11:SWIEQ "Wimp_SetColour":MOVEQ r0,r12:BEQ hk:LDRB r2,[r0,#8]:LDRB r3,[r0,#9]:LDRB r4,[r0,#10]:CMP r2,#ASC" ":CMPEQ r3,#ASC" ":CMPEQ r4,#ASC"0":ADREQ r0,hl:BEQ hk:LDRB r4,[r0,#2]:CMP r4,#ASC"0":ADREQ r0,hl
21520.hk BL gs:LDR r0,hi:STR r0,hh:LDMFD (fq)!,{PC}:.gq EQUS "xx :": EQUB 0 : ALIGN:.hl EQUS " - ": EQUB 0 : ALIGN:.gp EQUS "01020304050607080910111213141516":EQUS "17181920212223242526272829303132":EQUS "33343536373839404142434445464748"
21650EQUS "49505152535455565758596061626364":.hi DCD 0:.hg DCD 0:.hh DCD 0:.gn DCD 0:.hf DCD 0:.gg DCD 0:.hm DCD 0:.gh DCD 0:.gm DCD 0:.gi DCD 0:.hn DCD 0:.ho DCD 0:.hp DCD 0:.gu DCD 0:.hW DCD 0:.hq DCD 0:.hr DCD 0:.hs DCD 0:.ht DCD 0:.hb DCD 0:.hu DCD 0
21890.hv DCD 0:.hw DCD 0:.hV MOV r0,#0:STR r0,hW:LDR r1,hq : LDR r2,hr:LDR r3,hs : LDR r4,ht:LDR r5,gi : LDR r6,gu:CMP r5,r1 : MOVLT PC,fr:CMP r5,r3 : MOVGT PC,fr:CMP r6,r2 : MOVLT PC,fr:CMP r6,r4 : MOVGT PC,fr:LDR r0,hv:LDR r1,hw:CMP r0,r1 : MOVNE PC,fr
22110LDR r0,hu:CMP r0,#0 :MOVEQ PC,fr:MOV r0,#1:STR r0,hW:MOV PC,fr:.ha MOV r0,#0:STR r0,hb:LDR r0,gi : LDR r1,ho:LDR r2,gu : LDR r3,hp:LDR r4,hn:CMP r0,r1 : MOVNE PC,fr:CMP r2,r3 : MOVNE PC,fr:CMP r4,#0 :MOVEQ PC,fr:MOV r0,#1:STR r0,hb:MOV PC,fr:.gr MOV r0,#4
22380LDR r1,hh:LDR r2,gn:SWI "OS_Plot":MOV PC,fr:.gs SWI "OS_Write0":MOV PC,fr:.hZ LDR r3,hh:ADD r3,r3,#6*16:LDR r0,gu:SUB r0,r0,#1:MOV r1,#18*16:MLA r3,r0,r1,r3:LDR r4,gn:SUB r4,r4,#2*16:SUB r4,r4,#8:MOV r5,#11*16:MOV r6,#2*16 : ADD r6,r6,#12:MOV r0,#4
22640MOV r1,r3:MOV r2,r4 : SWI "OS_Plot":MOV r0,#96+5:ADD r1,r3,r5:ADD r2,r4,r6 : SWI "OS_Plot":MOV PC,fr:.eb DCD 0:.ec DCD 0:.ed DCD 0:.ee DCD 0:.eg DCD 0:.eh DCD 0:.ei DCD 0:.ej DCD 0:.fZ DCD 0:.ef DCD 0:.ea DCD 0:.Vn DCD 0:]:NEXTfu:ENDPROC
23270DEFPROCev:hx=FNction_FindInstrument(FNction_ReadIconText(Uk,Yb,1)):hy=FNction_FindInstrument(FNction_ReadIconText(Uk,Yb,4)):hy$=RIGHT$(" "+STR$hy,2):SYS&900C5,dq,UV TOdc:dc+=4:dc+=(Zl-1)* 1024:FORdj=Zg TOZi:FORdk=Zh-1 TOZj-1:A%=!(dc+(dj-1)*16 + (dk-1)*4):SYS&90093,A% TOdr
23420ds$=FNction_ExtractString(dr):IFLEFT$(ds$,1)<>"J" THEN
23450IFVALMID$(ds$,5,2)=hx THEN
23460MID$(ds$,5,2)=hy$:SYS&90094,ds$ TOA%:!(dc+(dj-1)*16 + (dk-1)*4) = A%
23490ENDIF
23500ENDIF:NEXTdk:NEXTdj:PROCYY:ENDPROC
23630DEFPROCew:hx$=FNction_ReadIconText(Uk,Yb,7):hy$=FNction_ReadIconText(Uk,Yb,10):SYS&900C5,dq,UV TOdc:dc+=4:dc+=(Zl-1)* 1024:FORdj=Zg TOZi:FORdk=Zh-1 TOZj-1:A%=!(dc+(dj-1)*16 + (dk-1)*4):SYS&90093,A% TOdr:ds$=FNction_ExtractString(dr):IFLEFT$(ds$,1)<>"J" THEN
23800IFMID$(ds$,1,2)=hx$ THEN
23810MID$(ds$,1,2)=hy$:SYS&90094,ds$ TOA%:!(dc+(dj-1)*16 + (dk-1)*4) = A%
23840ENDIF
23850ENDIF:NEXTdk:NEXTdj:PROCYY:ENDPROC
23980DEFPROCex:hx$=FNction_ReadIconText(Uk,Yb,13):hy$=FNction_ReadIconText(Uk,Yb,16):SYS&900C5,dq,UV TOdc:dc+=4:dc+=(Zl-1)* 1024:FORdj=Zg TOZi:FORdk=Zh-1 TOZj-1:A%=!(dc+(dj-1)*16 + (dk-1)*4):SYS&90093,A% TOdr:ds$=FNction_ExtractString(dr):IFLEFT$(ds$,1)<>"J" THEN
24150IFMID$(ds$,3,1)=hx$ THEN
24160MID$(ds$,3,1)=hy$:SYS&90094,ds$ TOA%:!(dc+(dj-1)*16 + (dk-1)*4) = A%
24190ENDIF
24200ENDIF:NEXTdk:NEXTdj:PROCYY:ENDPROC
24330DEFPROCez:hx=VALFNction_ReadIconText(Uk,Yg,7):hy=VALFNction_ReadIconText(Uk,Yg,11):IFhx>127 THENhx=127
24380IFhy>127 THENhy=127
24400SYS&900C5,dq,UV TOdc:dc+=4:dc+=(Zl-1)* 1024:hz=(Zi-Zg)+1:IFhz=0 THENhz=1
24460iU=(hy-hx)/hz:iV=hx:FORdj=Zg TOZi:IFdj=Zi THENiV=hy
24510FORdk=Zh-1 TOZj-1:A%=!(dc+(dj-1)*16 + (dk-1)*4):SYS&90093,A% TOdr:ds$=FNction_ExtractString(dr):iW$=RIGHT$(" "+STR$(INTiV),3):MID$(ds$,9,3)=iW$:SYS&90094,ds$ TOA%:!(dc+(dj-1)*16 + (dk-1)*4) = A%:NEXTdk:iV+=iU:NEXTdj:PROCYY:ENDPROC
24740DEFPROCey:hx=FNction_MessageIndex(FNction_ReadIconText(Uk,Yg,1),"ster0"):hy=FNction_MessageIndex(FNction_ReadIconText(Uk,Yg,4),"ster0"):SYS&900C5,dq,UV TOdc:dc+=4:dc+=(Zl-1)* 1024:hz=(Zi-Zg)+1:IFhz=0 THENhz=1
24850iU=(hy-hx)/hz:iV=hx:FORdj=Zg TOZi:IFdj=Zi THENiV=hy
24900FORdk=Zh-1 TOZj-1:A%=!(dc+(dj-1)*16 + (dk-1)*4):SYS&90093,A% TOdr:ds$=FNction_ExtractString(dr):iX$=STR$(INTiV):MID$(ds$,16,1)=iX$:SYS&90094,ds$ TOA%:!(dc+(dj-1)*16 + (dk-1)*4) = A%:NEXTdk:iV+=iU:NEXTdj:PROCYY:ENDPROC
25130DEFPROCfU:hx=VALFNction_ReadIconText(Uk,Yg,15):hy=VALFNction_ReadIconText(Uk,Yg,19):SYS&900C5,dq,UV TOdc:dc+=4:dc+=(Zl-1)* 1024:hz=(Zi-Zg)+1:IFhz=0 THENhz=1
25240iU=(hy-hx)/hz:iV=hx:FORdj=Zg TOZi:IFdj=Zi THENiV=hy
25290FORdk=Zh-1 TOZj-1:A%=!(dc+(dj-1)*16 + (dk-1)*4):SYS&90093,A% TOdr:ds$=FNction_ExtractString(dr):iY$=RIGHT$(" "+STR$(INTiV),2):MID$(ds$,13,2)=iY$:SYS&90094,ds$ TOA%:!(dc+(dj-1)*16 + (dk-1)*4) = A%:NEXTdk:iV+=iU:NEXTdj:PROCYY:ENDPROC
25520DEFPROCfV:iZ=VALFNction_ReadIconText(Uk,Yg,24):SYS&900C5,dq,UV TOdc:dc+=4:dc+=(Zl-1)* 1024:hz=(Zi-Zg)+1:IFhz=0 THENhz=1
25630ia=INT(iZ/hz):ib=(iZ/hz)-ia:ic=0:id= NOTTRUE:FORdj=Zg TOZi:FORdk=Zh-1 TOZj-1:A%=!(dc+(dj-1)*16 + (dk-1)*4):SYS&90093,A% TOdr:ds$=FNction_ExtractString(dr):ic+=ib:IFic>=1 THEN
25790ie=ia+(INTic):ic-=1
25810ELSE:ie=ia
25830ENDIF:IFie>15 THEN
25860ie=15:id=TRUE
25880ENDIF:if$=RIGHT$("00"+STR$(ABSie),2):IFiZ<0 THENig$="-"
25920IFiZ>=0 THENig$="+"
25940MID$(ds$,18,1)=ig$:MID$(ds$,19,2)=if$:SYS&90094,ds$ TOA%:!(dc+(dj-1)*16 + (dk-1)*4) = A%:NEXTdk:NEXTdj:PROCYY:IFid THEN
26050Ww$=FNction_TagToString(Vk,"war09"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$,TRUE, NOTTRUE)
26070ENDIF:ENDPROC
26160DEFPROCaW:SYS&900C5,dq,UV TOdc:ih=Zg:ii=Vw:WHILEih<=Zi ANDii<=64:ij=Zh:ik=Vx:WHILEij<=Zj ANDik<=4:il=dc+((Zl-1)*1024) + ((ih-1)*16) + ((ij-1)*4):im=dc+((Zm-1)*1024) + ((ii -1)*16) + ((ik -1)*4):!im=!il:ij+=1:ik+=1:ENDWHILE:ih+=1:ii+=1:ENDWHILE:PROCYZ(Uk,Wd):PROCYY:ENDPROC
26410DEFPROCaX:SYS&900C5,dq,UV TOdc:ih=Zg:ii=Vw:WHILEih<=Zi ANDii<=64:ij=Zh:ik=Vx:WHILEij<=Zj ANDik<=4:il=dc+((Zl-1)*1024) + ((ih-1)*16) + ((ij-1)*4):im=dc+((Zm-1)*1024) + ((ii -1)*16) + ((ik -1)*4):!im=!il:!il=0:ij+=1:ik+=1:ENDWHILE:ih+=1:ii+=1:ENDWHILE:PROCYZ(Uk,Wd):PROCYY:ENDPROC
26670DEFPROCaY:SYS&900C5,dq,UV TOdc:dc+=(Zl-1)* 1024:FORdj=Zg TOZi:FORdk=Zh TOZj:!(dc+(dj-1)*16 + (dk-1)*4) = 0:NEXTdk:NEXTdj:PROCYZ(Uk,Wd):PROCYY:ENDPROC
26890DEFPROCaZ:SYS&900C5,dq,UV TOdc:ih=Zg:ii=Vw:WHILEih<=Zi ANDii<=64:ij=Zh:ik=Vx:WHILEij<=Zj ANDik<=4:il=dc+((Zl-1)*1024) + ((ih-1)*16) + ((ij-1)*4):im=dc+((Zm-1)*1024) + ((ii -1)*16) + ((ik -1)*4):IF!il<>0 THEN!im=!il
27070ij+=1:ik+=1:ENDWHILE:ih+=1:ii+=1:ENDWHILE:PROCYZ(Uk,Wd):PROCYY:ENDPROC
27460DEFPROCVr(cs$):IFVq=0 THEN
27500PROCin(TRUE):PROCaU(Uk,Wf,1,"")
27530ELSE:i=FNction_FindInstrument(cs$):Zy=i:PROCaU(Uk,Wf,1,cs$):IFFNction_WindowIsOpen(Uk,Wn) THEN
27610PROCWo(Uk,Wm):PROCWo(Uk,Wn):PROCcm
27640ENDIF
27660ENDIF:ENDPROC
27740DEFPROCct(bX$,io):IFFNction_InstrumentAlreadyLoaded(bX$) THEN
27780Ww$=FNction_TagToString(Vk,"err26"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
27810ELSE:IFVq=VX THEN
27850Ww$=FNction_TagToString(Vk,"err05"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
27880ELSE:Vq+=1:IFio=-1 THEN
27930ip=1:WHILEVY$(ip)<>"":ip+=1:ENDWHILE
27970ELSE:ip=io
27990ENDIF:iq= NOTTRUE:VY$(ip)=bX$:SYS&900C2,bX$,UV TOWx,Wy:CASEWx OF
28060WHEN0:iq=TRUE:Ww$=FNction_TagToString(Vk,"err35")+FNction_LeafnameOnly(bX$)+CHR$34
28080WHEN1:iq=TRUE:Ww$=FNction_TagToString(Vk,"err36")
28100WHEN2:iq=TRUE:Ww$=FNction_TagToString(Vk,"err37")+FNction_LeafnameOnly(bX$)+CHR$34
28120ENDCASE:IFiq THEN
28160Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE):VY$(ip)="":Vq-=1:PROCVr(FNction_LeafnameOnly(VY$(Zy)))
28210ELSE:SYS&900C5,Wy,UV TOdc:VZ(ip)=Wy:IFVq=1 THEN
28270PROCin( NOTTRUE)
28280ENDIF:ir=dc!(12+4):IFir<>!ea THEN
28320is$=FNction_TagToString(Vk,"war04"):it$=FNction_TagToString(Vk,"qual0"+STR$ir):iu$=FNction_TagToString(Vk,"war10"):Wz=FNction_ReportError(Uk,99,Ud$,is$+it$+iu$,TRUE,TRUE):IFWz=1 THEN
28370!ea=ir:PROCXi:IFFNction_WindowIsOpen(Uk,Wh) THEN
28400PROCYZ(Uk,Wh)
28410ENDIF
28420ENDIF
28430ENDIF:IF NOTFNction_WindowIsOpen(Uk,Wd) THEN
28460PROCXf(Uk,Wd):PROCWe(Uk,Wd,Wf,0,0):PROCXg(Wd,-1,0)
28490ENDIF:PROCVr(FNction_LeafnameOnly(VY$(Vq))):PROCYY
28540ENDIF
28560ENDIF
28580ENDIF:ENDPROC
28660DEFFNction_InstrumentAlreadyLoaded(bX$):LOCALZz$,i,iv:iv= NOTTRUE:i=1:WHILEi<=VX AND NOTiv:Zz$=FNction_LeafnameOnly(VY$(i)):IFZz$=FNction_LeafnameOnly(bX$) THEN
28730iv=TRUE
28740ELSE:i+=1
28760ENDIF:ENDWHILE:=iv
28840DEFPROCin(iw):PROCcf(Uk,Wf,1,iw):PROCcf(Uk,Wf,2,iw):ENDPROC
28950DEFPROCXo(XX,XY):IFVq>0 THEN
28980Ve=9:bm=0:bp=Uy+16*1024:bq=0:PROCbn("Instruments",224,44):FORi=1 TO32:IFVY$(i)<>"" THEN
29080PROCbt(RIGHT$(" "+STR$i,2)+":"+FNction_LeafnameOnly(VY$(i)),0,-1, NOTTRUE)
29090ENDIF:NEXTi:!(Uy+bm-24)=128:SYS&400D4,,Uy,XX,XY
29150ENDIF:ENDPROC
29230DEFPROCab(cs$):i=1:WHILEFNction_LeafnameOnly(VY$(i))<>cs$:i+=1:ENDWHILE:Wy=VZ(i):SYS&900C4,Wy,UV TOWx:VY$(i)="":VZ(i)=0:i=1:REPEAT:ix$=FNction_LeafnameOnly(VY$(i)):i+=1:UNTILix$<>"" ORi>VX:Vq-=1:PROCVr(ix$):PROCYY:PROCWo(Uk,Wn):PROCWo(Uk,Wm):IFFNction_WindowIsOpen(Uk,Yb) THEN
29500PROCch
29510ENDIF:ENDPROC
29590DEFPROCYo(iy):SYS&900C5,VZ(Zy),UV TOdc:iz=dc!(76+4):iW=iz+iy:IFiW<0 THENiW=0
29640IFiW>127 THENiW=127
29650dc!(76+4)=iW:PROCaU(Uk,Wm,9,STR$iW):PROCYY:ENDPROC
29750DEFPROCYm(iy):SYS&900C5,VZ(Zy),UV TOdc:jU=dc!(68+4):jV=dc!(72+4):jW=jU+iy:IFjW<0 THENjW=0
29810IFjW>jX THENjW=jX
29820IFjW+jV>jX THENjW=jU
29830dc!(68+4)=jW:PROCaU(Uk,Wm,1,STR$jW):PROCYZ(Uk,Wn):PROCYY:ENDPROC
29930DEFPROCYn(iy):SYS&900C5,VZ(Zy),UV TOdc:jU=dc!(68+4):jV=dc!(72+4):jY=jV+iy:IFjY<0 THENjY=0
29990IFjY>jX THENjY=jX
30000IFjY+jU>jX THENjY=jV
30010dc!(72+4)=jY:PROCaU(Uk,Wm,6,STR$jY):PROCYZ(Uk,Wn):PROCYY:ENDPROC
30110DEFFNction_FindInstrument(cs$):LOCALi:i=1:iv= NOTTRUE:IFcs$="" THENi=VX+1
30160WHILE(NOTiv) ANDi<=VX:IFFNction_LeafnameOnly(VY$(i))=cs$ THEN
30180iv=TRUE
30190ELSE:i+=1
30210ENDIF:ENDWHILE:IFi>VX THENi=-1
30240=i
30300DEFPROCaz:SYS&900C5,VZ(Zy),UV TOdc:jZ=dc!(76+4):jX=dc!(64+4):ja=dc!(68+4):jb=dc!(72+4):!fx=(jX/800)*4:!fy=at:!fz=ar:!fw=dc+80+4:!gW=dc+80+4+jX-1:!gU=((ja/jX)* 800/2 ) + 2:!gV=!gU+((jb/jX)* 800/2 ):jc=ar+(ja/jX*800):ba=(jb/jX*800):SYS&400E6,15:RECTANGLEFILLjc,at,ba,256
30500CALLfv:ENDPROC
30580DEFPROCYv(Yw,Yx):PROCjd(Uk,Wn,Yw,Yx):SYS&900C5,VZ(Zy),UV TOdc:jX=dc!(64+4):je=(jf%/800)*jX:jg=0:IFje<0 THENje=0
30670dc!(68+4)=je:dc!(72+4)=jg:Uk!0=Wn:Uk!4=7:Uk!8=Yw:Uk!12=Yx:Uk!16=Yw:Uk!20=Yx:Uk!24=Wn:SYS&400CC,,Uk+24:Uk!24=Uk!28:Uk!28=Uk!32:Uk!32=Uk!36:Uk!36=Uk!40:SYS&400D0,,Uk:PROCaU(Uk,Wm,1,STR$(INTje)):PROCaU(Uk,Wm,6,STR$(INTjg)):ENDPROC
30900DEFPROCbV(XW):SYS&900C5,VZ(Zy),UV TOdc:dc!(68+4)=je:dc!(72+4)=jg:PROCaU(Uk,Wm,1,STR$(INTje)):PROCaU(Uk,Wm,6,STR$(INTjg)):PROCYZ(Uk,Wn):ENDPROC
31030DEFPROCWa:SYS&400CF,,Uk:PROCjd(Uk,Wn,Uk!0,Uk!4):SYS&900C5,VZ(Zy),UV TOdc:jX=dc!(64+4):jg=(jf%/800)*jX:jg-=je:IFjg<0 THENjg=0
31150jh=dc!(72+4):dc!(72+4)=jg:IF(INTjg)<>(INTjh) THEN
31190PROCaU(Uk,Wm,1,STR$(INTje)):PROCaU(Uk,Wm,6,STR$(INTjg)):PROCYZ(Uk,Wn)
31220ENDIF:ENDPROC
31300DEFPROCcm:SYS&900C5,VZ(Zy),UV TOdc:PROCaU(Uk,Wm,13,LEFT$(FNction_ExtractString(dc+16+4),32)):ir=dc!(12+4):ji=dc!(68+4):jj=dc!(72+4):dp=dc!(76+4):ir$=FNction_TagToString(Vk,"qual0"+STR$ir):PROCes(Uk,Wm,FNction_ReadIconText(Uk,Wf,1)+" ("+ir$+")"):PROCaU(Uk,Wm,1,STR$ji)
31400PROCaU(Uk,Wm,6,STR$jj):PROCaU(Uk,Wm,9,STR$dp):PROCWc(Ui,Uk,Wm, NOTTRUE):PROCWe(Uk,Wm,Wn,8,4):ENDPROC
31500DEFPROCYp:SYS&9008B TOdx:IFdx=-1 THEN
31550IF NOTWU AND NOTVz THEN
31570SYS&9008C:PROCfp(Uk,Wm):SYS&406C0:SYS&900C5,VZ(Zy),UV TOdc:ir=dc!(12+4):dz=dc!(76+4):eU=dc!(64+4):eV=dc!(68+4):eW=dc!(72+4):eX=dc+(80+4):eY=eX:eZ=eX+eU-132:Uk!(2048+0)=eX:Uk!(2048+4)=eX+eU-132:Uk!(2048+8)=eV:Uk!(2048+12)=eW:Uk!(2048+16)=dz:Uk!(2048+20)=-1
31780Uk!(2048+24)=-1:Uk!(2048+28)=-1:SYS&9008D,1,Uk+2048:SYS&9008A,ir:SYS&90084,ABS(!eb),ABS(!ec),ABS(!ed),ABS(!ee):SYS&90083,!ef:SYS&9008B:SYS&90085,!eg,!eh,!ei,!ej:Uk!(2048+0)=1:Uk!(2048+4)=1:Uk!(2048+8)=4:Uk!(2048+12)=1
31890Uk!(2048+16)=2:Uk!(2048+20)=1:Uk!(2048+24)=4:Uk!(2048+28)=1:Uk!(2048+32)=3:Uk!(2048+36)=1:Uk!(2048+40)=4:Uk!(2048+44)=1:Uk!(2048+48)=4:Uk!(2048+52)=1:Uk!(2048+56)=4:Uk!(2048+60)=1:SYS&90090,(Uk+2048):SYS&90090,(Uk+2048+16)
31940SYS&90090,(Uk+2048+32):SYS&90090,(Uk+2048+48):REPEAT:SYS&90081,1 TOek:cY=ek!0:UNTILINKEY(-113) OR((cY<eY ORcY>eZ) ANDeW=0):REPEAT:UNTIL NOTINKEY(-113):SYS&406C1:SYS&9008C:SYS&9008E,1:PROCXe(Uk+2048)
32080ENDIF
32100ENDIF:ENDPROC
32450DEFPROCcw(bX$):IFVp=VU THEN
32490Ww$=FNction_TagToString(Vk,"err04"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
32520ELSE:i=1:a$="":b$=FNction_LeafnameOnly(bX$):WHILEi<=Vp ANDa$<>b$:a$=FNction_LeafnameOnly(VV$(i)):i+=1:ENDWHILE:IFa$=b$ THEN
32630Ww$=FNction_TagToString(Vk,"war01"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$,TRUE,TRUE)
32660ELSE:Wz=1
32700ENDIF:IFWz=1 THEN
32740SYS&406C0:Vp+=1:jk=1:WHILEVV$(jk)<>"":jk+=1:ENDWHILE:VV$(jk)=bX$:bX$+=".HQ_Library":SYS&29,28,bX$,0,0 TO,,,jl:FORdW=0 TOjl-1:SYS&406C4,(dW/jl)*100:cy=9:dU=Uk:dV=1:dX=1*1024:SYS&C,cy,bX$,dU,dV,dW,dX,"" TOcy,cz,dU,dV,,dX,jm:jn$=FNction_ExtractString(Uk)
33010IFFNction_TypeOfFile(bX$+"."+jn$)=Ug THEN
33020SYS&D,&40,bX$+"."+jn$,0 TOjo:SYS&C,3,jo,Uk,16:jp=Uk!(8+4):SYS&D,0,jo:Wx=FNction_AddToLinkedList(jn$,jp,jk)
33070ENDIF:NEXTdW:SYS&406C2:IFFNction_WindowIsOpen(Uk,Wj) THEN
33140PROCYZ(Uk,Wj)
33150ENDIF
33170ENDIF
33190ENDIF:ENDPROC
33270DEFPROCaa:Ve=8:bm=0:bp=Uy+16*1024:bq=0:FORjq=1 TO13:!(Uk+jq*8+0) = Uy + bm:cV$=FNction_TagToString(Vk,"inst"+RIGHT$("00"+STR$jq,2)):PROCbn(MID$(cV$,1,2),208,44):jr=FNction_NumberOfElementsInList:PROCjs:i=1:jt=0:WHILEi<jr:jp=FNction_ClassOfThisInstrument:IFjp=jq THEN
33490ju$=FNction_NameOfThisInstrument:jv=FNction_InstrumentsLibraryLink:jt+=1:PROCbt(STR$jv+":"+ju$,0,-1, NOTTRUE)
33530ENDIF:PROCjw:i+=1:ENDWHILE:!(Uk+jq*8+4) = (jt = 0):IFjt>0 THEN!(Uy+bm-24)=128
33610NEXTjq:cp=Uy+bm:PROCbn("Instruments",288,44):FORjq=1 TO13:cV$=FNction_TagToString(Vk,"inst"+RIGHT$("00"+STR$jq,2)):IFjq=13 THENjx=128ELSEjx=0
33690PROCbt(MID$(cV$,5,LENcV$-5),jx,!(Uk+jq*8+0),!(Uk+jq*8+4)):NEXTjq:SYS&1C TOXX,XY,jy:SYS&400D4,,cp,XX,XY:ENDPROC
33850DEFPROCVo:A%=Uz:B%=Uz+32*1024:C%=0:CALLeq:Uz!0=0:Uz?15=0:Uz!16=0:jz=1:kU=0:ENDPROC
33990DEFFNction_AddToLinkedList(ju$,jp,cr):IFjz<1632 THEN
34030cY=Uz+kU:kV=1:iv= NOTTRUE:kW=FNction_FirstFreeRecord:REPEAT:kX$=FNction_ExtractInstrumentName(cY+5):IFju$<kX$ ORjz=1 THEN
34140iv=TRUE:PROCkY(kV)
34170ELSE:kZ=cY!16:cY+=kZ:kV+=1
34230ENDIF:UNTILiv ORkV>jz:IFkV>jz THEN
34280PROCkY(kV)
34290ENDIF:Wx=TRUE
34330ELSE:Wx= NOTTRUE
34370ENDIF:=Wx
34420DEFPROCkY(ka):IFka=1 THEN
34460IFjz>1 THEN
34470cY!0=kW-cY
34480ENDIF:kW!0=0:kW?4=jp:$(kW+5)=ju$:kW?15=cr:kW!16=kU-(kW-Uz):kU=kW-Uz
34580ELSE:IFka>jz THEN
34620cY!16=kW-cY:kW!0=cY-kW:kW?4=jp:$(kW+5)=ju$:kW?15=cr:kW!16=0
34710ELSE:kb=cY+cY!0:kb!16=kW-kb:kW!0=kb-kW:kW?4=jp:$(kW+5)=ju$:kW?15=cr:kW!16=cY-kW:cY!0=kW-cY
34840ENDIF
34860ENDIF:jz+=1:ENDPROC
34960DEFPROCkc(cr):REPEAT:cY=Uz+kU:kV=1:iv= NOTTRUE:REPEAT:kd=cY?15:IFkd=cr THEN
35100cY?15=0:jz-=1:IFkV=1 THEN
35150kU+=cY!16:!(Uz+kU)=0
35180ELSE:IFkV=jz THEN
35220ke=cY+cY!0:ke!16=0
35250ELSE:kb=cY+cY!0:kf=cY+cY!16:kb!16=kf-kb:kf!0=kb-kf
35320ENDIF
35340ENDIF:iv=TRUE
35380ENDIF:kZ=cY!16:cY+=kZ:kV+=1:UNTILiv ORkV>jz:UNTIL NOTiv ORjz=1:IFjz=1 THENPROCVo
35500ENDPROC
35560DEFFNction_NumberOfElementsInList:=jz
35630DEFPROCjs:kg=Uz+kU:ENDPROC
35680DEFFNction_NameOfThisInstrument:ju$=FNction_ExtractInstrumentName(kg+5):=ju$
35730DEFFNction_ClassOfThisInstrument:=kg?4
35770DEFFNction_InstrumentsLibraryLink:=kg?15
35810DEFPROCjw:kg+=kg!16:ENDPROC
35890DEFFNction_ExtractInstrumentName(cY):LOCALkh$:kh$="":WHILE?cY>31 AND?cY<>255 ANDLENkh$<10:kh$+=CHR$?cY:cY+=1:ENDWHILE:=kh$
35990DEFFNction_FirstFreeRecord:dc=Uz:WHILEdc?15<>0:dc+=20:ENDWHILE:=dc
36100DEFPROCaw:ki=as-av:kj=at+av:i=1:ki-=i*48:VDU5:WHILE(i<=VU):IFVV$(i)="" THEN
36210Zx$=" - FREE - ":kk=2
36230ELSE:Zx$=RIGHT$(VV$(i),10):kk=7+ABS(VW(i)*4)
36260ENDIF:x=ar:y=ki+32:SYS&400E6,kk:ca$=RIGHT$(" "+STR$(i),3)+" : ..."+Zx$:MOVEx,y:PRINTca$:i+=1:ki-=48:ENDWHILE:VDU4:ENDPROC
36430DEFPROCXt(XW,kl):XX=XW!0:XY=XW!4:Uk!0=Wj:SYS&400CC,,Uk:as=Uk!(12+4):av=Uk!(20+4):km=ABS(((XY-as)+av)):kn=((km) DIV48)+1:IFkn<=VU ANDVV$(kn)<>"" THEN
36570IFkl THENVW()= NOTTRUE
36590VW(kn)= NOTVW(kn):PROCYZ(Uk,Wj)
36630ENDIF:ENDPROC
36710DEFPROCXs:ko=1:WHILEko<=VU:IFVW(ko) THEN
36790PROCkc(ko):VV$(ko)="":Vp-=1
36830ENDIF:ko+=1:ENDWHILE:VW()= NOTTRUE:PROCYZ(Uk,Wj):ENDPROC
37050DEFPROCcx(bX$,kp):IFVa THEN
37090Ww$=FNction_TagToString(Vk,"war08"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$,TRUE,TRUE)
37120ELSE:Wz=1
37160ENDIF:IFWz=1 THEN
37200LOCALERROR:kq=-1:ONERRORLOCALPROCkr:ENDPROC
37230SYS&406C0:Zx$=FNction_PathnameOnly(bX$):Zz$=FNction_LeafnameOnly(bX$):IFkp THEN
37280FORep=1 TOVX:IFVY$(ep)<>"" THEN
37300PROCab(FNction_LeafnameOnly(VY$(ep)))
37310ENDIF:NEXTep
37330ENDIF:IFkp THEN
37360ks=FNction_SizeOfFile(bX$+".MusicData")
37370ELSE:ks=FNction_SizeOfFile(bX$)
37390ENDIF:IF NOTFNction_AllocateMemory(ks+16) THEN
37430Ww$=FNction_TagToString(Vk,"err12"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
37460ELSE:kt=HIMEM:jx=kt+ks:IFkp THEN
37510OSCLI"Load "+bX$+".MusicData "+STR$~kt
37520ELSE:OSCLI"Load "+bX$+" "+STR$~kt
37540ENDIF:jx!4=1*1024:Ww= NOTTRUE:IF NOTWw THENPROCku
37590IF NOTWw THENPROCkv
37600IF NOTWw THENPROCkw
37610IF NOTWw THENPROCkx
37620IF NOTWw THENPROCky
37630IF NOTWw THENPROCkz
37640IF NOTWw THENPROClU
37650IF NOTWw THENPROClV
37660IF NOTWw THENPROClW
37680PROCXi:IF NOTWw ANDkp THENPROClX
37710IF NOTWw THENPROClY
37730IFkp THENPROCes(Uk,Wd,FNction_LeafnameOnly(bX$))
37740IFkp THENPROCaU(Uk,Xz,1,bX$)
37750PROClZ
37770ENDIF:IF NOTFNction_WindowIsOpen(Uk,Wd) THEN
37800PROCXf(Uk,Wd):PROCWe(Uk,Wd,Wf,0,0):PROCXg(Wd,-1,0)
37830ELSE:Uk!0=Wd:SYS&400CB,,Uk:SYS&400C6,,Uk:SYS&400C5,,Uk:PROCWe(Uk,Wd,Wf,0,0):PROCXg(Wd,-1,0)
37900ENDIF:Va= NOTTRUE:SYS&406C1:RESTOREERROR
37970ENDIF:ENDPROC
38050DEFPROCkr:SYS&406C2:Ww$=FNction_TagToString(Vk,"err11"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$+REPORT$+" ("+STR$ERL+")", NOTTRUE,TRUE):IFkq<>-1 THENCLOSE#kq
38100ENDPROC
38160DEFFNction_FindIFF(la,lb,lc$):ld$=MID$(lc$,1,1):ld=(ASCld$):le$=MID$(lc$,2,1):le=(ASCle$)<<8:lf$=MID$(lc$,3,1):lf=(ASClf$)<<16:lg$=MID$(lc$,4,1):lg=(ASClg$)<<24:A%=ld+le+lf+lg:iv= NOTTRUE:REPEAT:lh%=!la:IFlh%=A% THEN
38260iv=TRUE
38270ELSE:la+=4:la+=!la:la+=4
38310ENDIF:UNTILiv OR(la>=lb):IF NOTiv THENla=-1
38340=la
38370DEFFNction_NumberOfIFFs(li,lj,lc$):db=0:REPEAT:kh=FNction_FindIFF(li,lj,lc$):IFkh<>-1 THEN
38420db+=1:lk=kh!4:li=kh+8+lk
38450ENDIF:UNTILkh=-1:=db
38500DEFFNction_PointerToNthIFF(li,lj,lc$,ll):kV=0:REPEAT:li=FNction_FindIFF(li,lj,lc$):kV+=1:IFkV<ll THEN
38560lk=li!4:li=li+8+lk
38580ENDIF:UNTILkV=ll:=li
38660DEFPROCku:lm=FNction_FindIFF(kt+4,jx-4,"Frmt"):IFlm=-1 THEN
38690Ww$=FNction_TagToString(Vk,"err13"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE):Ww=TRUE
38720ELSE:IFlm!8<>1.00*100 THEN
38740Ww$=FNction_TagToString(Vk,"err14"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
38760ENDIF
38770ENDIF:ENDPROC
38810DEFPROCkv:ln=FNction_FindIFF(kt+4,jx-4,"PMod"):IFln=-1 THEN
38840Ww$=FNction_TagToString(Vk,"err15"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE):Ww=TRUE
38870ELSE:IFln!8<>1.00*100 THEN
38890Ww$=FNction_TagToString(Vk,"err16"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
38910ENDIF
38920ENDIF:ENDPROC
38960DEFPROCkw:lo=FNction_FindIFF(kt+4,jx-4,"Titl"):IFlo=-1 THEN
38990Ww$=FNction_TagToString(Vk,"err17"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE):lo$="<unknown>"
39020ELSE:lo$=LEFT$(FNction_ExtractString(lo+8),lo!4)
39040ENDIF:PROCaU(Uk,Zw,2,lo$):ENDPROC
39090DEFPROCkx:lp=FNction_FindIFF(kt+4,jx-4,"Auth"):IFlp=-1 THEN
39120Ww$=FNction_TagToString(Vk,"err18"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE):lp$="<unknown>"
39150ELSE:lp$=LEFT$(FNction_ExtractString(lp+8),lp!4)
39170ENDIF:PROCaU(Uk,Zw,3,lp$):ENDPROC
39220DEFPROCky:lq=FNction_FindIFF(kt+4,jx-4,"Rate"):IFlq=-1 THEN
39250Ww$=FNction_TagToString(Vk,"err19"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
39270ELSE:!ea=lq!8
39290ENDIF:ENDPROC
39330DEFPROCkz:lr=FNction_FindIFF(kt+4,jx-4,"Sped"):IFlr=-1 THEN
39360Ww$=FNction_TagToString(Vk,"err20"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
39380ELSE:!fZ=lr!8
39400ENDIF:ENDPROC
39440DEFPROClU:ls=FNction_FindIFF(kt+4,jx-4,"Ster"):IFls=-1 THEN
39470Ww$=FNction_TagToString(Vk,"err21"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
39490ELSE:!eg=ls?8:!eh=ls?9:!ei=ls?10:!ej=ls?11
39520ENDIF:ENDPROC
39560DEFPROClV:lt=FNction_FindIFF(kt+4,jx-4,"Lnth"):IFlt=-1 THEN
39590Ww$=FNction_TagToString(Vk,"err22"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE):Ww=TRUE
39620ELSE:cl=lt!8
39640ENDIF:ENDPROC
39680DEFPROClW:lu=FNction_FindIFF(kt+4,jx-4,"Sqnc"):IFlu=-1 THEN
39710Ww$=FNction_TagToString(Vk,"err23"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE):Ww=TRUE
39740ELSE:SYS&900C5,fX,UV TOdc:FORi=1 TO256:dc?(i-1)=lu?(8+i-1):NEXTi
39790ENDIF:ENDPROC
39830DEFPROClX:lv=FNction_NumberOfIFFs(kt+4,jx-4,"Inst"):lw=1:WHILElw<=lv:dc=FNction_PointerToNthIFF(kt+4,jx-4,"Inst",lw):cs$=FNction_ExtractString(dc+9):lx=dc?8:IFFNction_DoesFileExist(bX$+".Instr'mnts."+cs$) THEN
39910PROCct(bX$+".Instr'mnts."+cs$,lx):PROCVr(FNction_LeafnameOnly(VY$(lx)))
39930ELSE:Ww$=FNction_TagToString(Vk,"err38")+cs$+CHR$34:Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
39960ENDIF:lw+=1:ENDWHILE:ENDPROC
40020DEFPROClY:SYS&900C5,dq,UV TOly:lz=FNction_NumberOfIFFs(kt+4,jx-4,"Ptrn"):IFlz>Vm THEN
40100Ww$=FNction_TagToString(Vk,"err25"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
40130ELSE:lw=1:bx=lz:er()= NOTTRUE:WHILElw<=lz:dc=FNction_PointerToNthIFF(kt+4,jx-4,"Ptrn",lw):dy=dc!8:mU=ly+(dy-1)* 1024:FORmV=1 TO1024-1STEP4:mU!(mV-1)=dc!(12+mV-1):NEXTmV:er(lw)=TRUE:lw+=1:ENDWHILE:PROCcu(1)
40360ENDIF:ENDPROC
40600DEFPROCVh:SYS&51 TOmW:mX=FNction_ReadSlotSize:mY=0:mZ=HIMEM:ENDPROC
40680DEFFNction_AllocateMemory(ma):LOCALmb,mc:LOCALmd,me,mf:LOCALmg,Wx:mb=(ma DIVmW)+1:mc=mb* mW:IFFNction_ReadSizeOfFreePool>=ma THEN
40750md=FNction_ReadSlotSize:me=md+ma:mf=FNction_SetSlotSize(me):mY+=ma:mg=HIMEM:Wx=TRUE
40810ELSE:Wx= NOTTRUE
40830ENDIF:=Wx
40870DEFFNction_AlignToPageSize(ma):mb=(ma DIVmW)+1:mc=mb* mW:=mc
40930DEFPROClZ:md=FNction_ReadSlotSize:IFmd>mX THEN
40960Wz=FNction_SetSlotSize(mX):mY=0
40980ENDIF:ENDPROC
41200DEFPROCcu(mh):Zm=mh:PROCaU(Uk,Wf,5,STR$Zm):IFFNction_WindowIsOpen(Uk,Wd) THEN
41260PROCYZ(Uk,Wd)
41270ENDIF:ENDPROC
41350DEFPROCXp(XX,XY):Ve=10:bm=0:PROCbn("Patterns",96,44):FORi=1 TO!Vn:IFer(i) THEN
41450PROCbo(STR$i,0,-1, NOTTRUE)
41460ENDIF:NEXTi:!(Uy+bm-24)=128:SYS&400D4,,Uy,XX,XY:ENDPROC
41600DEFPROCax:SYS&900C5,dq,UV TOdc:ki=as-av:kj=at+av:i=1:ki-=i*44 + 56:!gg=ki:!hm=kj:!gh=as:!gm=at-48:!gi=1:!hf=dc+(Zm-1)* 1024:!ho=Vw:!hp=Vx:!hn=Vv:!hh=ar+1*16:!hq=Zg:!hr=Zh:!hs=Zi:!ht=Zj:!hu=Zk:!hv=Zl:!hw=Zm:CALLgd:ENDPROC
41950DEFFNction_Insert_Pattern:IFbx=Vm THEN
41990Wx= NOTTRUE
42010ELSE:i=1:WHILEer(i):i+=1:ENDWHILE:er(i)=TRUE:bx+=1:PROCcu(i):Wx=TRUE:PROCYY
42150ENDIF:=Wx
42230DEFPROCco:Ww$=FNction_TagToString(Vk,"war02"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$,TRUE,TRUE):IFWz=1 THEN
42300SYS&900C5,dq,UV TOdc:dc=dc+(Zm-1)* 1024:A%=dc:B%=dc+1*1024:C%=0:CALLeq:PROCYZ(Uk,Wd):PROCYY
42390ENDIF:ENDPROC
42470DEFPROCcn:SYS&900C5,dq,UV TOmi:mj=mi+(Zm-1)* 1024:Wx=FNction_Insert_Pattern:IF NOTWx THEN
42560Ww$=FNction_TagToString(Vk,"err06"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
42590ELSE:mk=mi+(Zm-1)* 1024:FORi=0 TO1024-1STEP4:mk!i=mj!i:NEXTi:PROCYZ(Uk,Wd):PROCYY
42700ENDIF:ENDPROC
42780DEFPROCac:IFbx=1 THEN
42820Ww$=FNction_TagToString(Vk,"err24"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
42850ELSE:Ww$=FNction_TagToString(Vk,"war05"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$,TRUE,TRUE):IFWz=1 THEN
42920SYS&900C5,dq,UV TOdc:kt=dc+(Zm-1)* 1024:jx=dc+(bx)* 1024:WHILEkt<jx-1024:!kt=kt!1024:kt+=4:ENDWHILE:SYS&900C5,fX,UV TOdc:ml=1:mm=1:WHILEml<=cl:ff=(dc?(ml-1))+1:IFff>=Zm THENff-=1
43060dc?(mm-1)=ff-1:IFff<>Zm-1 THEN
43080mm+=1
43090ENDIF:ml+=1:ENDWHILE:cl=mm-1:IFcl=0 THENcl=1
43150i=Zm:WHILEi<bx:er(i)=er(i+1):i+=1:ENDWHILE:er(bx)= NOTTRUE:bx-=1:PROCcu(1):PROCYa(1):PROCYZ(Uk,Wd):PROCYY
43310ENDIF
43330ENDIF:ENDPROC
43410DEFPROCak:mn=VALFNction_ReadIconText(Uk,ad,1):IFmn<1 ORmn>cl THEN
43470Ww$=FNction_TagToString(Vk,"err28"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
43500ELSE:SYS&900C5,dq,UV TOdc:dc+=(Zm-1)* 1024:A%=!(dc+(Vw-1)*16 + (Vx-1)*4):SYS&90093,A% TOdr:ds$=FNction_ExtractString(dr):MID$(ds$,1,1)="J":MID$(ds$,2,3)=RIGHT$(" "+STR$mn,3):MID$(ds$,5,3)="T00":SYS&90094,ds$ TOA%:!(dc+(Vw-1)*16 + (Vx-1)*4) = A%:PROCYY
43680ENDIF:PROCWo(Uk,ad):PROCYZ(Uk,Wd):PROCXg(Wd,-1,0):ENDPROC
43800DEFPROCVt:Ww= NOTTRUE:DIMer(!Vn):er()= NOTTRUE:er(1)=TRUE:SYS&900C3,!Vn*1024,UV TOWx,dq:CASEWx OF
43890WHEN0:Ww=TRUE:Wy$="err31"
43910WHEN1:Ww=TRUE:Wy$="err32"
43930ENDCASE:IFWw THEN
43970Ww$=FNction_TagToString(Vk,Wy$):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE):Vc=TRUE
44010ELSE:SYS&900C5,dq,UV TOdc:A%=dc:B%=dc+!Vn*1024:C%=0:CALLeq:bx=1:PROCcu(1)
44090ENDIF:ENDPROC
44460DEFPROCVl:kq=-1:LOCALERROR:ONERRORLOCALPROCmo:ENDPROC
44500kq=OPENIN"<HQTracker$Dir>.Prefs":INPUT#kq,!eb,!eg:INPUT#kq,!ec,!eh:INPUT#kq,!ed,!ei:INPUT#kq,!ee,!ej:INPUT#kq,!fZ,!ef:INPUT#kq,!ea,!Vn:CLOSE#kq:PROCXi:RESTOREERROR:ENDPROC
44630DEFPROCmo:IFkq<>-1 THENCLOSE#kq
44650PROCmp:PROCXi:Ww$=FNction_TagToString(Vk,"err01"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE):ENDPROC
44720DEFPROCXh:kq=-1:PROCWo(Uk,Wg):PROCWo(Uk,Wh):LOCALERROR:ONERRORLOCALPROCmq:ENDPROC
44780kq=OPENOUT"<HQTracker$Dir>.Prefs":PROCXj:PRINT#kq,!eb,!eg:PRINT#kq,!ec,!eh:PRINT#kq,!ed,!ei:PRINT#kq,!ee,!ej:PRINT#kq,!fZ,!ef:PRINT#kq,!ea,!Vn:CLOSE#kq:OSCLI"Stamp <HQTracker$Dir>.Prefs ":OSCLI"SetType <HQTracker$Dir>.Prefs Data":RESTOREERROR:ENDPROC
44930DEFPROCmq:IFkq<>-1 THENCLOSE#kq
44950Ww$=FNction_TagToString(Vk,"err02"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE):ENDPROC
45000DEFPROCmp:LOCALmr,ms:mr=TRUE:ms= NOTmr:!eb=mr:!eg=4:!ec=mr:!eh=4:!ed=mr:!ei=4:!ee=mr:!ej=4:!fZ=6:!ef=127:!ea=2:!Vn=64:ENDPROC
45130DEFPROCXi:PROCmt(Uk,Wh,2,!eb):PROCmt(Uk,Wh,5,!ec):PROCmt(Uk,Wh,3,!ed):PROCmt(Uk,Wh,4,!ee):mu$=FNction_TagToString(Vk,"ster0"+STR$!eg):PROCaU(Uk,Wh,6,mu$):mu$=FNction_TagToString(Vk,"ster0"+STR$!eh):PROCaU(Uk,Wh,7,mu$):mu$=FNction_TagToString(Vk,"ster0"+STR$!ei):PROCaU(Uk,Wh,8,mu$)
45260mu$=FNction_TagToString(Vk,"ster0"+STR$!ej):PROCaU(Uk,Wh,9,mu$):PROCaU(Uk,Wh,17,STR$!fZ):PROCaU(Uk,Wh,18,STR$!ef):ir$=FNction_TagToString(Vk,"qual0"+STR$!ea):PROCaU(Uk,Wh,25,ir$):PROCaU(Uk,Wh,32,STR$!Vn):IFFNction_WindowIsOpen(Uk,Wd) THEN
45380PROCYZ(Uk,Wd)
45390ENDIF:ENDPROC
45440DEFPROCXj:!eb=FNction_IconIsToggled(Uk,Wh,2):!ec=FNction_IconIsToggled(Uk,Wh,5):!ed=FNction_IconIsToggled(Uk,Wh,3):!ee=FNction_IconIsToggled(Uk,Wh,4):!eg=FNction_MessageIndex(FNction_ReadIconText(Uk,Wh,6),"ster0")
45520!eh=FNction_MessageIndex(FNction_ReadIconText(Uk,Wh,7),"ster0"):!ei=FNction_MessageIndex(FNction_ReadIconText(Uk,Wh,8),"ster0"):!ej=FNction_MessageIndex(FNction_ReadIconText(Uk,Wh,9),"ster0"):!fZ=VALFNction_ReadIconText(Uk,Wh,17):IF!fZ<1 THEN!fZ=1
45580IF!fZ>15 THEN!fZ=15
45600!ef=VALFNction_ReadIconText(Uk,Wh,18):IF!ef<1 THEN!ef=1
45620IF!ef>127 THEN!ef=127
45640!ea=FNction_MessageIndex(FNction_ReadIconText(Uk,Wh,25),"qual0"):!Vn=VALFNction_ReadIconText(Uk,Wh,32):IF!Vn<1 THEN!Vn=1
45680IF!Vn>256 THEN!Vn=256
45700PROCXi:ENDPROC
45750DEFFNction_MessageIndex(mv$,mw$):LOCALdy,mx:dy=1:mx= NOTTRUE:REPEAT:Wy$=FNction_TagToString(Vk,mw$+STR$dy):mx=mv$=Wy$:IF NOTmx THENdy+=1
45830UNTILmx:=dy
45990DEFPROCXw(bX$,my):LOCALERROR:kq=-1:ONERRORLOCALPROCmz:ENDPROC
46020Zx$=FNction_PathnameOnly(bX$):Zz$=FNction_LeafnameOnly(bX$):IFZx$="" ORZz$="" THEN
46050Ww$=FNction_TagToString(Vk,"err08"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
46070ELSE:SYS&20008,13,bX$ TOcy:Wz=1:IFcy<>0 THEN
46100Ww$=FNction_TagToString(Vk,"war03"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$,TRUE,TRUE)
46120ENDIF:IFWz=1 THEN
46140PROCnU(bX$):PROCaU(Uk,Xv,1,bX$):IF NOTmy THENSYS&400D4,,-1:Ve=0
46170ENDIF
46180ENDIF:RESTOREERROR:ENDPROC
46230DEFPROCnU(bX$):dy=FNction_FindInstrument(FNction_ReadIconText(Uk,Wf,1)):SYS&900C5,VZ(dy),UV TOdc:eU=dc!(64+4):kt=dc:jx=kt+80+4+eU:OSCLI"Save "+bX$+" "+STR$~kt+" "+STR$~jx:OSCLI"Stamp "+bX$:OSCLI"SetType "+bX$+" HQ-Data":ENDPROC
46380DEFPROCmz:Ww$=FNction_TagToString(Vk,"err07"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$+REPORT$+" ("+STR$ERL+")", NOTTRUE,TRUE):IFkq<>-1 THENCLOSE#kq:kq=-1
46420ENDPROC
46480DEFPROCXy(bX$,my):LOCALERROR:kq=-1:ONERRORLOCALPROCmz:ENDPROC
46530Zx$=FNction_PathnameOnly(bX$):Zz$=FNction_LeafnameOnly(bX$):IFZx$="" ORZz$="" THEN
46580Ww$=FNction_TagToString(Vk,"err08"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
46610ELSE:SYS&20008,13,bX$ TOcy:Wz=1:IFcy<>0 THEN
46670Ww$=FNction_TagToString(Vk,"war03"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$,TRUE,TRUE)
46700ENDIF:IFWz=1 THEN
46740PROCnV(bX$):PROCaU(Uk,Xx,1,bX$):IF NOTmy THENSYS&400D4,,-1:Ve=0
46780ENDIF
46800ENDIF:RESTOREERROR:ENDPROC
46870DEFPROCnV(bX$):kq=OPENOUTbX$:PROCnW("DATA"):PROCnW("Frmt"):PROCnX(4):PROCnX(1.00*100):PROCnW("PMod"):PROCnX(4):PROCnX(1.00*100):PROCnW("Titl"):PROCnX(32):PROCnW(LEFT$(FNction_ReadIconText(Uk,Zw,2)+STRING$(32,CHR$0),32)):PROCnW("Auth"):PROCnX(32):PROCnW(LEFT$(FNction_ReadIconText(Uk,Zw,3)+STRING$(32,CHR$0),32)):PROCnW("Rate"):PROCnX(4)
47060PROCnX(!ea):PROCnW("Sped"):PROCnX(4):PROCnX(!fZ):PROCnW("Ster"):PROCnX(4):PROCnY(!eg):PROCnY(!eh):PROCnY(!ei):PROCnY(!ej):PROCnW("Lnth"):PROCnX(4):PROCnX(cl):PROCnW("Sqnc"):PROCnX(256):SYS&900C5,fX,UV TOfY:FORi=1 TO256:PROCnY(fY?(i-1)):NEXTi:FORi=1 TOVX:IFVY$(i)<>"" THEN
47260PROCnW("Inst"):PROCnX(12):PROCnY(i):PROCnW(LEFT$(FNction_LeafnameOnly(VY$(i))+STRING$(11,CHR$0),11))
47290ENDIF:NEXTi:SYS&900C5,dq,UV TOnZ:FORi=1 TObx:IFer(i) THEN
47370PROCnW("Ptrn"):PROCnX(1028):PROCnX(i):na=nZ+(i-1)*1024:FORnb=1 TO1024:PROCnY(na?(nb-1)):NEXTnb
47450ENDIF:NEXTi:kt=dc:jx=kt+(bx*1024):CLOSE#kq:OSCLI"Stamp "+bX$:OSCLI"SetType "+bX$+" HQ-Data":ENDPROC
47620DEFPROCYU(bX$,my):LOCALERROR:kq=-1:ONERRORLOCALSYS&406C2:PROCmz:ENDPROC
47670SYS&406C0:Zx$=FNction_PathnameOnly(bX$):Zz$=FNction_LeafnameOnly(bX$):IFZx$="" ORZz$="" THEN
47730Ww$=FNction_TagToString(Vk,"err08"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
47760ELSE:IFLEFT$(Zz$,1)<>"!" THENZz$="!"+LEFT$(Zz$,9)
47790nc$=Zx$+"."+Zz$:SYS&20008,13,bX$ TOcy:Wz=1:IFcy<>0 THEN
47850Ww$=FNction_TagToString(Vk,"war03"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$,TRUE,TRUE)
47880ENDIF:IFWz=1 THEN
47920nd$=FNction_ReadIconText(Uk,Xv,1):ne$=FNction_ReadIconText(Uk,Xx,1):OSCLI"CDir "+nc$:OSCLI"CDir "+nc$+".Instr'mnts":PROCnf:PROCng:PROCnh:PROCnV(nc$+".MusicData"):ni$=FNction_ReadIconText(Uk,Wf,1):FORnj=1 TOVX:IFVY$(nj)<>"" THEN
48080dn$=FNction_LeafnameOnly(VY$(nj)):PROCVr(dn$):PROCnU(nc$+".Instr'mnts."+dn$)
48110ENDIF:NEXTnj:PROCVr(ni$):PROCaU(Uk,Xz,1,nc$):PROCaU(Uk,Xv,1,nd$):PROCaU(Uk,Xx,1,ne$):PROCes(Uk,Wd,FNction_LeafnameOnly(nc$)):Uk!0=Wd:SYS&400CB,,Uk:SYS&400C6,,Uk:SYS&400C5,,Uk:PROCWe(Uk,Wd,Wf,0,0):PROCXg(Wd,-1,0):Va= NOTTRUE:IF NOTmy THENSYS&400D4,,-1:Ve=0
48310ENDIF
48330ENDIF:SYS&406C1:RESTOREERROR:ENDPROC
48440DEFPROCnf:kq=OPENOUT(nc$+"."+"!Help"):PROCnk("!Help"):PROCnk("====="):PROCnk(""):PROCnk("Application : "+Zz$):PROCnk("Purpose : HQ-Tracker music application"):PROCnk(""):PROCnk("� 1994 Mycroft Software"):CLOSE#kq:kq=-1:OSCLI"SetType "+nc$+"."+"!Help Text":OSCLI"Stamp "+nc$+"."+"!Help":ENDPROC
48590DEFPROCng:nl$=MID$(TIME$,5,2):nm$=MID$(TIME$,8,3):nn$=MID$(TIME$,12,4):no$=nl$+"-"+nm$+"-"+nn$:kq=OPENOUT(nc$+"."+"!Run"):PROCnk("| !Run"):PROCnk("| For "+Zz$):PROCnk("|"):PROCnk("| � 1994 Mycroft Software ("+no$+")"):PROCnk("|"):CLOSE#kq:kq=-1:OSCLI"SetType "+nc$+"."+"!Run Obey"
48710OSCLI"Stamp "+nc$+"."+"!Run":ENDPROC
48760DEFPROCnh:PROCnp(Uq,"!",Zz$):PROCnp(Uq,"sm!","sm"+Zz$):PROCnq(Uq,nc$+"."+"!Sprites"):PROCnp(Uq,Zz$,"!"):PROCnp(Uq,"sm"+Zz$,"sm!"):PROCnp(Us,"!",Zz$):PROCnp(Us,"sm!","sm"+Zz$):PROCnq(Us,nc$+"."+"!Sprites22"):PROCnp(Us,Zz$,"!"):PROCnp(Us,"sm"+Zz$,"sm!"):PROCnp(Uu,"!",Zz$)
48910PROCnp(Uu,"sm!","sm"+Zz$):PROCnq(Uu,nc$+"."+"!Sprites23"):PROCnp(Uu,Zz$,"!"):PROCnp(Uu,"sm"+Zz$,"sm!"):ENDPROC
49020DEFPROCnk(ca$):LOCALi:i=1:WHILEi<=LENca$:BPUT#kq,ASCMID$(ca$,i,1):i+=1:ENDWHILE:BPUT#kq,10:ENDPROC
49130DEFPROCnW(ca$):LOCALi:i=1:WHILEi<=LENca$:BPUT#kq,ASCMID$(ca$,i,1):i+=1:ENDWHILE:ENDPROC
49230DEFPROCnX(nr%):BPUT#kq,((nr%) AND&FF):BPUT#kq,((nr%>>8) AND&FF):BPUT#kq,((nr%>>16) AND&FF):BPUT#kq,((nr%>>24) AND&FF):ENDPROC
49310DEFPROCnY(ns%):BPUT#kq,ns%:ENDPROC
49520DEFPROCYX:SYS&900C5,fX,UV TOdc:A%=dc:B%=dc+256:C%=0:CALLeq:cl=1:IFFNction_WindowIsOpen(Uk,Wl) THEN
49610ck=1:PROCcj:PROCYZ(Uk,Wl)
49640ENDIF:ENDPROC
49720DEFPROCay:ki=as-av:kj=at+av:i=1:VDU5:SYS&900C5,fX,UV TOdc:WHILE(i<=cl):x=ar+32-au:y=ki+48:IFi=ck THEN
49870SYS&400E6,11
49880ELSE:SYS&400E6,7
49900ENDIF:nt=dc?(i-1)+1:ca$=STR$nt:MOVEx-(LENca$*16),y:PRINTca$:i+=1:ar+=64:ENDWHILE:VDU4:ENDPROC
50080DEFPROCYa(XW):XX=XW!0:XY=XW!4:Uk!0=Wl:SYS&400CC,,Uk:ar=Uk!(0+4):as=Uk!(12+4):av=Uk!(20+4):nu=ABS(((XX-ar)+au)):nv=((nu) DIV64)+1:IFnv<=cl THEN
50230ck=nv:PROCYZ(Uk,Wl)
50270ENDIF:ENDPROC
50350DEFPROCYV(iy):IFcl=256 THEN
50390Ww$=FNction_TagToString(Vk,"err09"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
50420ELSE:SYS&900C5,fX,UV TOdc:nw=VAL(FNction_ReadIconText(Uk,Wk,1))-1:FORnx=cl TOckSTEP-1:dc?nx=dc?(nx-1):NEXTnx:dc?(ck+iy)=nw:cl+=1:PROCcj:PROCYZ(Uk,Wl):PROCYY
50590ENDIF:ENDPROC
50670DEFPROCcj:ba=cl* 64:IFba<332 THENba=332
50700PROCny(Uk,Wl,0,ba,0,96):ENDPROC
50770DEFPROCYW:IFcl=1 THEN
50810Ww$=FNction_TagToString(Vk,"err10"):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE)
50840ELSE:SYS&900C5,fX,UV TOdc:nz=ck:WHILEnz<cl:dc?(nz-1)=dc?nz:nz+=1:ENDWHILE:cl-=1:PROCcj:PROCYZ(Uk,Wl):PROCYY
51000ENDIF:ENDPROC
51080DEFPROCVu:Ww= NOTTRUE:SYS&900C3,256,UV TOWx,fX:CASEWx OF
51140WHEN0:Ww=TRUE:Wy$="err33"
51160WHEN1:Ww=TRUE:Wy$="err34"
51180ENDCASE:IFWw THEN
51220Ww$=FNction_TagToString(Vk,Wy$):Wz=FNction_ReportError(Uk,99,Ud$,Ww$, NOTTRUE,TRUE):Vc=TRUE
51260ELSE:PROCYX:ck=1
51310ENDIF:ENDPROC
51770DEFFNction_WidthOfSprite(oU,oV$):SYS&2E,256+40,oU,oV$ TO,,,dV,dW,dX,jm:oW=dV:=oW
51830DEFFNction_HeightOfSprite(oU,oV$):SYS&2E,256+40,oU,oV$ TO,,,dV,dW,dX,jm:oX=dW:=oX
51890DEFFNction_ModeOfSprite(oU,oV$):SYS&2E,256+40,oU,oV$ TO,,,dV,dW,dX,jm:oY=jm:=oY
51950DEFFNction_SpriteHasMask(oU,oV$):SYS&2E,256+40,oU,oV$ TO,,,dV,dW,dX,jm:oZ=-dX:=oY
52010DEFFNction_SpriteHasPalette(oU,oV$):oa=FNction_PointerToSpriteControlBlock(oU,oV$):ob=oa!32:IFob=11*4 THEN
52050oc= NOTTRUE
52060ELSE:oc=oa+11*4
52080ENDIF:=oc
52120DEFFNction_NumberOfSpritesInArea(oU):=oU!4
52160DEFFNction_NameOfNthSprite(oU,n):od=oU+oU!8:oe=1:WHILEoe<n:of=od!0:od+=of:oe+=1:ENDWHILE:=LEFT$(FNction_ExtractString(od+4),12)+CHR$0
52290DEFFNction_PointerToSpriteData(oU,oV$):SYS&2E,256+24,oU,oV$ TO,,dU:og=dU:ob=og!32:oh=og+ob:=oh
52370DEFFNction_PointerToMaskData(oU,oV$):SYS&2E,256+24,oU,oV$ TO,,dU:og=dU:oi=og!36:oj=og+oi:=oj
52450DEFFNction_PointerToSpriteControlBlock(oU,oV$):SYS&2E,256+24,oU,oV$ TO,,dU:ok=dU:=ok
52510DEFPROCnq(oU,bX$):SYS&2E,256+12,oU,bX$:ENDPROC
52560DEFPROCbf(oU,bX$):SYS&2E,256+10,oU,bX$:ENDPROC
52610DEFPROCbe(oU,ol):oU!0=ol:oU!8=16:SYS&2E,256+9,oU:ENDPROC
52680DEFFNction_ReadSpritePixel(oU,oV$,x,y):LOCALom,on:SYS&2E,256+41,oU,oV$,x,y TO,,,,,dX,jm:om=dX:on=jm:=om
52760DEFPROCoo(oU,oV$,x,y,om,on):SYS&2E,256+42,oU,oV$,x,y,om,on:ENDPROC
52810DEFPROCnp(oU,oV$,op$):SYS&2E,256+26,oU,oV$,op$:ENDPROC
52860DEFPROCbg(oU,oV$):SYS&2E,256+25,oU,oV$:ENDPROC
52910DEFFNction_SpritesType:oq=1:SYS&6,161,133 TO,,or:or=(or>>2) AND3:IF(or=2) THEN
52980oq=3
52990ELSE:SYS&35,-1,4 TO,,os:SYS&35,-1,5 TO,,ot:IFos=ot THEN
53030oq=2
53040ENDIF
53050ENDIF:=oq
53090DEFPROCou(oU,oV$,bX$):LOCALov,ow,i,ox:ov=OPENOUTbX$:ow=FNction_PointerToSpriteControlBlock(oU,oV$):iy=ow!0:ox=(3*4) + iy:BPUT#ov,1:BPUT#ov,0:BPUT#ov,0:BPUT#ov,0:BPUT#ov,16:BPUT#ov,0:BPUT#ov,0:BPUT#ov,0:BPUT#ov,((ox) AND&FF):BPUT#ov,((ox>>8) AND&FF):BPUT#ov,((ox>>16) AND&FF):BPUT#ov,((ox>>24) AND&FF)
53210FORi=0 TOiy-1STEP4:BPUT#ov,(((ow!i)) AND&FF):BPUT#ov,(((ow!i)>>8) AND&FF):BPUT#ov,(((ow!i)>>16) AND&FF):BPUT#ov,(((ow!i)>>24) AND&FF):NEXTi:CLOSE#ov:OSCLI"SetType "+bX$+" Sprite":ENDPROC
54070DEFFNction_InitialiseTask(oy,oz$):LOCALcy,cz:SYS&400C0,oy,&4B534154,oz$+CHR$0 TOcy,cz:pU=cz:=pU
54140DEFPROCWv(pU):SYS&400DD,pU,"TASK":ENDPROC
54190DEFFNction_ReportError(XU,pV,cV$,Ww$,pW,pX):LOCALcX,cz,pY:XU+=1024:$XU=cV$+CHR$0:XU!32=pV:$(XU+36)=Ww$+CHR$0:cX=(ABSpW*2^0)+(ABSpX*2^1):SYS&400DF,XU+32,cX,XU TO,cz:pY=cz:=pY
54320DEFPROCWc(XW,XU,Xa,pZ):IFpZ= NOTTRUE ORXa=Wf THEN
54360XU!0=Xa:SYS&400CB,,XU:IFXa=Yq THENXU!28=-1
54410SYS&400C5,,XU
54430ELSE:SYS&400CB,,XU:pa=XU!28:pb=XW!0:IFXW!28=-1 ANDpa=-1 THEN
54510CASEpb OF
54520WHENWd:XW!28=Wf
54530WHENWm:XW!28=Wn
54540WHENWi:XW!28=Wj
54550WHENWk:XW!28=Wl
54560WHENWg:XW!28=Wh
54570ENDCASE
54580ENDIF:SYS&400C5,,XW
54620ENDIF:ENDPROC
54670DEFPROCWo(XU,Xa):SYS&400CF,,XU:pc=XU!8:IF(Xa=Wd ORXa=Wf) ANDpc=1 THEN
54700pd$=FNction_PathnameOnly(FNction_ReadIconText(Uk,Xz,1)):IFpd$<>"" THEN
54720OSCLI"Filer_OpenDir "+pd$
54730ENDIF:IF NOTINKEY(-1) THEN
54750XU!0=Xa:SYS&400C6,,XU
54770ENDIF
54780ELSE:IF NOT(Xa=Yj ANDWU) THEN
54800XU!0=Xa:SYS&400C6,,XU
54820ENDIF
54830ENDIF:ENDPROC
54870DEFPROCXf(XU,Xa):LOCALba,bb,pe,pf,pg,ph:XU!0=Xa:SYS&400CC,,XU:ba=ABSXU!52:IFba>1280 THENba=1280
54920bb=ABSXU!48:IFbb>476 THENbb=476
54930XU!0=4:XU!4=5:XU!8=11:XU!12=12:XU!16=-1:SYS&31,XU,XU+32:pe=XU!32:pf=XU!36:pg=XU!40:ph=XU!44:x=pg* 2^pe :y=ph* 2^pf:x=(x-ba) DIV2:y=(y-bb) DIV2:XU!(0)=Xa:XU!(4+0)=x:XU!(4+4)=y:XU!(4+8)=XU!(4+0)+ba:XU!(4+12)=XU!(4+4)+bb:XU!28=-1:SYS&400C5,,XU:ENDPROC
55090DEFPROCny(XU,Xa,pi,pj,pk,pl):XU!0=pi:XU!4=pk:XU!8=pj:XU!12=pl:SYS&400D7,Xa,XU:ENDPROC
55180DEFFNction_WindowIsOpen(XU,Xa):LOCALpm,pn:XU!0=Xa:SYS&400CB,,XU:pm=XU!32:pn=(pm AND2^16)=2^16:=pn
55270DEFPROCYZ(XU,Xa):LOCALba,bb,po,pp:LOCALpq,pr,ps,pt:XU!0=Xa:SYS&400CC,,XU:ba=XU!12-Uk!4:bb=XU!16-XU!8:po=XU!20:pp=XU!24:pq=po:pt=pp:ps=pt-bb:pr=pq+ba:SYS&400D1,Xa,pq,ps,pr,pt:ENDPROC
55400DEFPROCpu(XU,Xa,XV):XU!0=Xa:XU!4=XV:XU!8=0:XU!12=0:SYS&400CD,,XU:ENDPROC
55490DEFPROCXg(Xa,XV,pv):SYS&400D2,Xa,XV,0,0,-1,pv:ENDPROC
55540DEFPROCaV:SYS&400D2,-1,-1,-1,-1,-1,-1:ENDPROC
55590DEFFNction_ReadIconText(XU,Xa,XV):LOCALcX,pw,ca$:XU!0=Xa:XU!4=XV:SYS&400CE,,XU:cX=XU!(8+16):pw=(cX AND2^8)=2^8:IFpw THEN
55670ca$=FNction_ExtractString(XU!(8+20))
55680ELSE:ca$=FNction_ExtractString(XU+8+20)
55700ENDIF:=ca$
55740DEFPROCaU(XU,Xa,XV,px$):LOCALcX,pw:XU!0=Xa:XU!4=XV:SYS&400CE,,XU:cX=XU!(8+16):pw=(cX AND2^8)=2^8:IFpw THEN
55820$(XU!(8+20))=px$
55830ELSE:$(XU+8+20)=px$
55850ENDIF:XU!0=Xa:XU!4=XV:XU!8=0:XU!12=0:SYS&400CD,,XU:ENDPROC
55940DEFPROCal(py):SYS&400DC,py:ENDPROC
55990DEFFNction_ExtractString(cY):LOCALkh$:kh$="":WHILE?cY>31:kh$+=CHR$?cY:cY+=1:ENDWHILE:=kh$
56090DEFPROCbj(XU,bX$):$XU=bX$+CHR$0:SYS&400D9,,XU:ENDPROC
56150DEFFNction_LoadTemplate(pz,qU,qV,qW$,qX):LOCALdU,qY,qZ,qa,qb:SYS&400DB,,pz,qU,qV,-1,qW$,0 TO,,dU:qY=pz!84:qZ=dU:qa=0:WHILEqa<qY:qb=pz+88+qa*32:IF(qb!16 AND&103)=&102 THENqb!24=qX
56260qa+=1:ENDWHILE:=qZ
56310DEFFNction_MakeTemplateAWindow(pz):LOCALXa:SYS&400C1,,pz TOXa:=Xa
56370DEFPROCbl:SYS&400DA:ENDPROC
56420DEFFNction_PollWimp(XW,qc):LOCALcy:SYS&400C7,qc,XW TOcy:qd=cy:=qd
56490DEFFNction_SetSlotSize(qe):LOCALcy,cz,dU,qf:SYS&400EC,qe,-1 TOcy,cz,dU:qf=cy:=qf
56560DEFFNction_ReadSlotSize:LOCALcy,cz,dU,qf:SYS&400EC,-1,-1 TOcy,cz,dU:qf=cy:=qf
56630DEFFNction_ReadSizeOfFreePool:LOCALcy,cz,dU,qg:SYS&400EC,-1,-1 TOcy,cz,dU:qg=dU:=qg
56700DEFPROCXe(XU):LOCALpe,pf,pg,ph:XU!0=4:XU!4=5:XU!8=11:XU!12=12:XU!16=-1:SYS&31,XU,XU+32:pe=XU!32:pf=XU!36:pg=XU!40:ph=XU!44:MOUSERECTANGLE0,0,pg*2^pe,ph*2^pf:ENDPROC
56810DEFPROCfp(XU,Xa):LOCALba,bb,pe,pf,pg,ph:!XU=Xa:SYS&400CC,,XU:Zr=XU!4:Zs=XU!8:ba=ABSXU!52:bb=ABSXU!48:MOUSERECTANGLEZr,Zs,ba,bb:ENDPROC
56920DEFPROCqh(XU,Xa,XV,qi,qj):!XU=Xa:SYS&400CC,,XU:qk=XU!4:ql=XU!8:qm=XU!12:qn=XU!16:XU!0=Xa:XU!4=XV:SYS&400CE,,XU:qo=XU!8:qp=XU!12:qq=XU!16:qr=XU!20:qs=qq-qo:qt=qr-qp:ar=qk+qo:at=qn+qp:MOUSERECTANGLEar+qi,at+qj,qs-qi*2,qt-qj*2:ENDPROC
57080DEFPROCjd(XU,Xa,XX,XY):!XU=Xa:SYS&400CC,,XU:qu=XU!4-XU!20:qv=XU!16-XU!24:qu=XX-qu:qv=qv-XY:jf%=qu:qw%=qv:ENDPROC
57200DEFPROCWe(XU,Xa,qx,qi,qj):XU!0=Xa:SYS&400CC,,XU:qy=XU!4:Zp=XU!12:qz=XU!8:Zq=XU!16:rU=XU!28:XU!0=qx:SYS&400CC,,XU:bb=ABS(XU!16-XU!8):XU!4=qy+qi:XU!12=Zp-qi:XU!16=Zq-qj:XU!8=XU!16-bb:XU!28=rU:SYS&400C5,,XU:ENDPROC
57340DEFFNction_DepthOfWindow(XU,Xa):XU!0=Xa:SYS&400CC,,XU:=XU!28
57400DEFFNction_WordAlign(rV):=((rV+3) AND(NOT3))
57440DEFFNction_InstallHelp:SYS&1E,6,,,16 TO,,dU:Vk=dU:SYS&41501,Vk,"<"+Ud$+"$Dir>.Messages",0:=Vk
57510DEFPROCWu(rW):SYS&41504,rW:SYS&1E,7,,rW:ENDPROC
57570DEFFNction_TagToString(rW,Wy$):SYS&41502,rW,Wy$,0,0,0,0,0,0 TO,,dU:dr=dU:rX$=FNction_ExtractString(dr):=rX$
57640DEFPROCrY(rZ,ra,rb):rc=rZ:rd=ra:re=rb:WV=4:PROCqh(Uk,rc,re,16,0):SYS&1C TOYw,Yx,rf:rg=Yw-1:PROCrh:ENDPROC
57770DEFPROCrh:CASErc OF
57800WHENri:CASEre OF
57810WHEN2:rj=FNction_DragABar(rj,2):PROCrk(INT(64*(rl/100)))
57830ENDCASE
57840ENDCASE:ENDPROC
57880DEFFNction_DragABar(ra,rb):SYS&1C TOYw,Yx,rf:IFrf=0 THEN
57960WV=0:PROCXe(Uk)
57990ELSE:IFYw<>rg THEN
58040!Uk=rc:SYS&400CC,,Uk:qk=Uk!4:rm=Yw-qk:Uk!0=rc:Uk!4=ra:SYS&400CE,,Uk:qo=Uk!(8+0):qp=Uk!(8+4):qq=Uk!(8+8):qr=Uk!(8+12):Uk!(100+0)=rc:Uk!(100+4)=ra:SYS&400C4,,Uk+100:SYS&400D1,rc,qo,qp,qq,qr:Uk!(8+8)=rm:Uk!4=rc:SYS&400C2,,Uk+4 TOra:PROCpu(Uk,rc,ra):Uk!0=rc
58310Uk!4=re:SYS&400CE,,Uk:rn=Uk!(8+8)-16:rg=Yw:rl=INT((rm/rn)*100)
58380ENDIF
58400ENDIF:=ra
58450DEFFNction_GetWindowTitle(XU,Xa):LOCALcX:!XU=Xa:SYS&400CC,,XU:=FNction_ExtractString(!(XU+4+72))
58520DEFPROCes(XU,Xa,ro$):LOCALcX,pw:!XU=Xa:SYS&400CC,,XU:cX=XU!(4+56):pw=(cX AND2^8)=2^8:IFpw THEN
58590dc=!(XU+4+72):$!(XU+4+72)=ro$+CHR$0
58610ELSE:$(XU+4+72)=px$+CHR$0
58630ENDIF:ENDPROC
58670DEFPROCmt(XU,Xa,XV,iw):XU!0=Xa:XU!4=XV:XU!8=(ABS NOTiw)<<21:XU!12=1<<21:SYS&400CD,,XU:ENDPROC
58760DEFPROCcf(XU,Xa,XV,rp):XU!0=Xa:XU!4=XV:XU!8=(ABSrp)<<22:XU!12=1<<22:SYS&400CD,,XU:ENDPROC
58850DEFFNction_IconIsToggled(XU,Xa,XV):XU!0=Xa:XU!4=XV:SYS&400CE,,XU:rq=(XU!(8+16)) AND2^21:=NOT(rq=2^21)
58930DEFPROCXk(XU,Xa,XV):PROCmt(XU,Xa,XV, NOTFNction_IconIsToggled(XU,Xa,XV)):ENDPROC
58980DEFFNction_WindowWithCaret(XU):SYS&400D3,,XU:=XU!0
59030DEFFNction_IconWithCaret(XU):SYS&400D3,,XU:=XU!4
59080DEFPROCXn(XU,Xa,XV,iy,rr,rs):iV=VALFNction_ReadIconText(XU,Xa,XV):rt=iV+iy:IFrt<rr THENrt=rr
59120IFrt>rs THENrt=rs
59130IFrt<>iV THENPROCaU(XU,Xa,XV,STR$rt)
59140ENDPROC
59170DEFFNction_PathnameOnly(bX$):IFbX$="" ORINSTR(bX$,".")=0 THEN=""
59190LOCALi:i=LENbX$:WHILEMID$(bX$,i,1)<>".":i-=1:ENDWHILE:=LEFT$(bX$,i-1)
59270DEFFNction_LeafnameOnly(bX$):IFbX$="" THEN=""
59290LOCALi:i=LENbX$:WHILEMID$(bX$,i,1)<>"." ANDi>0:i-=1:ENDWHILE:=MID$(bX$,i+1,LENbX$)
59370DEFFNction_DecodeMenuIntoText(ru,rv,rw):SYS&400D5,,ru,rv,rw:=FNction_ExtractString(rw)
59420DEFPROCdv(XU,Xa,nu,km):XU!0=Xa:SYS&400CB,,XU:XU!20+=nu:XU!24+=km:SYS&400C5,,XU:ENDPROC
<3UV=-1:���:�"Fatal Error : ";�$;" at Line ";�:�
d
�UW:��UX
� �UY:�
����UW:UZ=4:Ua=2:Ub=1:Uc=-2:Ud$="HQTracker":Ue$="HQTracker":Uf=&2000:Ug=&3E0:Uh=4*1024 :�Ui Uh:Uj=4*1024 :�Uk Uj:Ul=11*1024 :�Um Ul:Un=7*1024 :�Uo Un:Up=5*1024 :�Uq Up:Ur=8*1024 :�Us Ur:Ut=4*1024 :�Uu Ut:Uv=8*1024 :�Uw Uv:Ux=32*1024 :�Uy Ux:�Uz 32*1024
�VU=12:�VV$(VU):�VW(VU):VX=32:�VY$(VX):�VZ(VX):Va= ��:Vb=0:Vc= ��:Vd=�ction_InitialiseTask(2*100,Ue$):Ve=0:�Vf:�Vg:�Vh:�Vi:Vj=�ction_IconbarSprite(Uk):Vk=�ction_InstallHelp:�Vl:Vm=!Vn:�Vo:Vp=0:VV$()="":VW()= ��:Vq=0:VY$()="":VZ()=0:�Vr("<None!>"):�Vs
� � �Vc �
��Vt:� �Vc �
�Vu:� �Vc �
+Vv= ��:Vw=1:Vx=1:�Vy:Vz= ��:WU= ��:WV=0
\�
f�
p�:�
�/��UY:�WW:�:WX=�ction_PollWimp(Ui,Vb):ȎWX �
��0:�Vz ��WY
� �WU ��WZ
��WV=3 ��Wa
��1:�Wb(Ui)
� �2:�Wc(Ui,Uk,-1,�):Ȏ!Ui �
�Wd:�We(Uk,Wd,Wf,0,0)
�Wg:�We(Uk,Wg,Wh,8,8)
$�Wi:�We(Uk,Wi,Wj,8,8)
. �Wk:�We(Uk,Wk,Wl,8,164+8)
8�Wm:�We(Uk,Wm,Wn,8,4)
B�
L�3:�Wo(Uk,Ui!0):Ȏ!Ui �
`�Wd:�Wo(Uk,Wf)
j�Wg:�Wo(Uk,Wh)
t�Wi:�Wo(Uk,Wj)
~�Wk:�Wo(Uk,Wl)
��Wm:�Wo(Uk,Wn)
��
��6:�Wp(Ui)
��7:�Wq(Ui)
��8:�Wr(Ui)
��9:�Ws(Ui)
��17:�Wt(Ui)
��18:�Wt(Ui)
�=�:�Vc:�Wu(Vk):�Wv(Vd):ș&900C6,UV:ș&2002A,1,-4096*1024:�
2-��Vs:Ww= ��:ș&900C1,32+1+1 �Wx,UV:ȎWx �
Z�0:Ww=�:Wy$="err29"
n�1:Ww=�:Wy$="err30"
� �:�Ww �
�XWw$=�ction_TagToString(Vk,Wy$):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�):Vc=�:UV=-1
��:�
zݤction_IconbarSprite(XU):XU!0=-1:XU!4=0:XU!8=0:XU!12=68:XU!16=68:XU!20=&3002:$(XU+24)="!"+Ud$+�0:ș&400C2,,XU �XV:=XV
|=��Wp(XW):XX=XW!0:XY=XW!4:XZ=XW!8:Xa=XW!12:XV=XW!16:ȎXZ �
��UZ:ȎXa �
��Xb:�XV=3 �
��Wo(Uk,Xa):�Xc
��
��Xd:�XV=5 �
��Wo(Uk,Xa):�Xe(Uk)
�
�Uc:�XV=Vj �
&-�Xf(Uk,Wd):�We(Uk,Wd,Wf,0,0):�Xg(Wd,-1,0)
D�
N�Wg:ȎXV �
X
�0:�Xh
b �1:�Wo(Uk,Wg):�Wo(Uk,Wh):�Xi
� �2:�Wo(Uk,Wg):�Wo(Uk,Wh):�Xj
��
��Wh:ȎXV �
��2,5,3,4:�Xk(Uk,Wh,XV)
� �10,11,12,13:�Xl(XX,XY,XV-7)
��26:�Xm(XX,XY,7)
� �30:�Xn(Uk,Wh,17,+1,1,15)
� �31:�Xn(Uk,Wh,17,-1,1,15)
� �20:�Xn(Uk,Wh,18,+1,1,127)
� �21:�Xn(Uk,Wh,18,-1,1,127)
� �33:�Xn(Uk,Wh,32,+1,1,256)
�34:�Xn(Uk,Wh,32,-1,1,256)
�
�Wf:ȎXV �
*�2:�Xo(XX,XY)
4�6:�Xp(XX,XY)
>�8:�Xq(XX,XY)
H:Vv= ��:�Xr
f�
z�Wi:ȎXV �
�
�0:�Xs
� �1:�Wo(Uk,Wi):�Wo(Uk,Wj)
��
��Wj:�Xt(Ui,�)
��Wd:� �WU � �WU �
�Vv=�:�Xr:�Xu(Ui)
��
�4�Xv:�XV=2 ��Xw(�ction_ReadIconText(Uk,Xv,1), ��)
4�Xx:�XV=2 ��Xy(�ction_ReadIconText(Uk,Xx,1), ��)
4�Xz:�XV=2 ��YU(�ction_ReadIconText(Uk,Xz,1), ��)
�Wk:ȎXV �
$�2:�Xp(XX,XY):Ve=11
8
�3:�YV(0)
B�4:�YV(-1)
L
�5:�YW
VZ�6:Ww$=�ction_TagToString(Vk,"war06"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$,�,�):�Wz=1 �
t�YX:�YY:�YZ(Uk,Wl)
��
��
��Wl:�Ya(Ui)
��Yb:ȎXV �
��0:�Xk(Uk,Xa,XV):�Yc
��6:�Xk(Uk,Xa,XV):�Yc
��12:�Xk(Uk,Xa,XV):�Yc
�2:�Xo(XX,XY):Ve=12
�5:�Xo(XX,XY):Ve=13
2�8:�Yd(XX,XY,14)
<�11:�Yd(XX,XY,15)
F�14:�Ye(XX,XY,16)
P�17:�Ye(XX,XY,17)
Z�18:�Yf(�)
d�
x�Yg:ȎXV �
��0:�Xk(Uk,Xa,XV):�Yh
��6:�Xk(Uk,Xa,XV):�Yh
��14:�Xk(Uk,Xa,XV):�Yh
��23:�Xk(Uk,Xa,XV):�Yh
��2:�Xl(XX,XY,18)
��5:�Xl(XX,XY,19)
� �8:�Xn(Uk,Xa,7,+1,0,127)
� �9:�Xn(Uk,Xa,7,-1,0,127)
� �12:�Xn(Uk,Xa,11,+1,0,127)
�13:�Xn(Uk,Xa,11,-1,0,127)
�16:�Xn(Uk,Xa,15,+1,1,15)
�17:�Xn(Uk,Xa,15,-1,1,15)
" �20:�Xn(Uk,Xa,19,+1,1,15)
, �21:�Xn(Uk,Xa,19,-1,1,15)
6�22:�Yi(�)
J"�27:�Xn(Uk,Xa,24,+1,-999,+999)
T"�28:�Xn(Uk,Xa,24,-1,-999,+999)
h"�29:�Xn(Uk,Xa,26,+1,-999,+999)
r"�30:�Xn(Uk,Xa,26,-1,-999,+999)
��
��Yj:ȎXV �
��1:�Xk(Uk,Xa,XV)
�
�8:�Yk
�
�9:�Yl
��
��Wm:ȎXV �
��2:�Ym(+1)
��3:�Ym(-1)
��4:�Yn(+1)
��5:�Yn(-1)
�10:�Yo(+1)
�11:�Yo(-1)
�12:�Wo(Uk,Wm):�Wo(Uk,Wn)
0 �14:�Yp
:�
N�Yq:ȎXV �
b�0:�Yr("C ",+0)
l�1:�Yr("D ",+0)
v�2:�Yr("E ",+0)
��3:�Yr("F ",+0)
��4:�Yr("G ",+0)
��5:�Yr("A ",+0)
��6:�Yr("B ",+0)
��14:�Yr("C#",+0)
��15:�Yr("D#",+0)
��16:�Yr("F#",+0)
��17:�Yr("G#",+0)
��18:�Yr("A#",+0)
��7:�Yr("C ",+1)
��8:�Yr("D ",+1)
��9:�Yr("E ",+1)
�10:�Yr("F ",+1)
�11:�Yr("G ",+1)
�12:�Yr("A ",+1)
�13:�Yr("B ",+1)
4�19:�Yr("C#",+1)
>�20:�Yr("D#",+1)
H�21:�Yr("F#",+1)
R�22:�Yr("G#",+1)
\�23:�Yr("A#",+1)
p�
��
��Ua:ȎXa �
��Uc:�XV=Vj ��Ys(XX)
��Wd:�Yt(XX,XY)
��
��Ub:ȎXa �
��Wg:ȎXV �
�
�0:�Xh
� �1:�Wo(Uk,Wg):�Wo(Uk,Wh):�Xi
�
�2:�Xj
��
�Wh:ȎXV �
�2,5,3,4:�Xk(Uk,Wh,XV)
�
$�Wf:ȎXV �
. �4:�Xk(Uk,Xa,XV):Vv= �Vv:�Xr
L�
V�Wj:�Xt(Ui, ��)
`2�Xv:�XV=2 ��Xw(�ction_ReadIconText(Uk,Xv,1),�)
j2�Xx:�XV=2 ��Xy(�ction_ReadIconText(Uk,Xx,1),�)
t2�Xz:�XV=2 ��YU(�ction_ReadIconText(Uk,Xz,1),�)
~�Wm:ȎXV �
��2:�Ym(+20)
��3:�Ym(-20)
��4:�Yn(+20)
��5:�Yn(-20)
��10:�Yo(+5)
��11:�Yo(-5)
��
��Yb:ȎXV �
��18:�Yf( ��)
��
��Yg:ȎXV �
�22:�Yi( ��)
�
�
�64,16:ȎXa �
(1�Xv:�XV=0 �WV=1:Wz=�ction_BeginDrag(Uk,Xa,XV)
21�Xx:�XV=0 �WV=1:Wz=�ction_BeginDrag(Uk,Xa,XV)
<1�Xz:�XV=0 �WV=1:Wz=�ction_BeginDrag(Uk,Xa,XV)
F �Wd:� �WU ��Yu(XX,XY):WV=2
P�Wn:�Yv(XX,XY):WV=3
Z�
d�:�
����Yu(Yw,Yx):Yy=�ction_RowClickedOn(Yw,Yx):Yz=�ction_ColumnClickedOn(Yw,Yx):Uk!0=Wd:Uk!4=6:Uk!8=Yw:Uk!12=Yx:Uk!16=Yw:Uk!20=Yx:Uk!24=Wd:ș&400CC,,Uk+24:ZU=Uk!44:ZV=Uk!48:Uk!24=Uk!28:Uk!28=Uk!32:Uk!32=Uk!36:Uk!36=Uk!40-56:ZW=Uk!24:ZX=Uk!32
MZY=Uk!28:ZZ=Uk!36:ș&400D0,,Uk:Za=Yw:Zb=Yw:Zc=Yx:Zd=Yx:�Ze(Za,Zc,Zb,Zd):�
hu��Zf(Yw,Yx):Zg=Yy:Zh=Yz:Zi=�ction_RowClickedOn(Yw,Yx):Zj=�ction_ColumnClickedOn(Yw,Yx):Zk=2:Zl=Zm:�Zg>Zi �ȔZg,Zi
��Zh>Zj �ȔZh,Zj
��YZ(Uk,Wd):�
���Ze(Zn,Zo,Zp,Zq):Uk!256=Wd:ș&400CB,,Uk+256:Zr=Uk!(256+4):Zs=Uk!(256+8):Zt=Uk!(256+12):Zu=Uk!(256+16)-56:�24,Zr;Zs;Zt;Zu;:ș&400E6,48+15:ȓZn,Zo,Zp-Zn,Zq-Zo:�
l,��Wr(XW):Xa=XW!0:XV=XW!4:Zv=XW!24:ȎXa �
��Wh:�XV=32 �
� �Wo(Uk,Wg):�Wo(Uk,Wh):�Xj
��
��Yg:�Zv=13 �
�
�Yi(�)
�
�Zw:�XV=3 �
ș&400D4,,-1:Ve=0
*�
>�Xv:�XV=1 �Zv=13 �
H7�Xw(�ction_ReadIconText(Uk,Xv,1)):ș&400D4,,-1:Ve=0
\�
p�Xx:�XV=1 �Zv=13 �
z7�Xy(�ction_ReadIconText(Uk,Xx,1)):ș&400D4,,-1:Ve=0
��
��Xz:�XV=1 �Zv=13 �
�7�YU(�ction_ReadIconText(Uk,Xz,1)):ș&400D4,,-1:Ve=0
��
��Wf:�XV=1 �Zv=13 �
�PZx$=�ction_PathnameOnly(VY$(Zy)):Zz$=�ction_ReadIconText(Uk,Wf,1):�Zz$<>"" �
2�ction_InstrumentAlreadyLoaded(Zx$+"."+Zz$) �
QWw$=�ction_TagToString(Vk,"err27"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
.�:VY$(Zy)=Zx$+"."+Zz$
B�
L3�:�aU(Uk,Wf,1,�ction_LeafnameOnly(VY$(Zy))):�aV
~�
��Wd:ȎZv �
� ɗ"C"-64:� �WU �Zk<>0 ��aW
� ɗ"V"-64:� �WU �Zk<>0 ��aX
� ɗ"X"-64:� �WU �Zk<>0 ��aY
� ɗ"M"-64:� �WU �Zk<>0 ��aZ
�ɗ"Z"-64:� �WU ��Vy
� ɗ"I"-64:� �WU �Vp>0 ��aa
�ɗ"R"-64:� �WU �Vq>0 �
�-�ab(�ction_ReadIconText(Uk,Wf,1)):�Ve=9 �
ș&400D4,,-1
�
�
ɗ"P"-64:� �WU �
($Wx=�ction_Insert_Pattern:� �Wx �
<QWw$=�ction_TagToString(Vk,"err06"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
P�
Z�
dɗ"K"-64:� �WU ��ac
nɗ"J"-64:� �WU �
x �Vv �
�2�aU(Uk,ad,1,"1"):�Wc(Ui,Uk,ad, ��):�Xg(ad,1,1)
��
��
��&183:�ae(Xz)
��&193:�Vq>0 ��ae(Xv)
��&1A3:�ae(Xx)
��&1A1:�af:�ae(Zw)
�ɗ"Z",�"z":�Yr("C ",+0)
ɗ"S",�"s":�Yr("C#",+0)
ɗ"X",�"x":�Yr("D ",+0)
ɗ"D",�"d":�Yr("D#",+0)
"ɗ"C",�"c":�Yr("E ",+0)
,ɗ"V",�"v":�Yr("F ",+0)
6ɗ"G",�"g":�Yr("F#",+0)
@ɗ"B",�"b":�Yr("G ",+0)
Jɗ"H",�"h":�Yr("G#",+0)
Tɗ"N",�"n":�Yr("A ",+0)
^ɗ"J",�"j":�Yr("A#",+0)
hɗ"M",�"m":�Yr("B ",+0)
|ɗ"Q",�"q":�Yr("C ",+1)
�ɗ"2",�"2":�Yr("C#",+1)
�ɗ"W",�"w":�Yr("D ",+1)
�ɗ"3",�"3":�Yr("D#",+1)
�ɗ"E",�"e":�Yr("E ",+1)
�ɗ"R",�"r":�Yr("F ",+1)
�ɗ"5",�"5":�Yr("F#",+1)
�ɗ"T",�"t":�Yr("G ",+1)
�ɗ"6",�"6":�Yr("G#",+1)
�ɗ"Y",�"y":�Yr("A ",+1)
�ɗ"7",�"7":�Yr("A#",+1)
�ɗ"U",�"u":�Yr("B ",+1)
�
ɗ" ":�ag
Jɗ"=":ah=��ction_ReadIconText(Uk,Wf,7):ah+=-1* (ah<7):�aU(Uk,Wf,7,�ah)
&Jɗ"-":ah=��ction_ReadIconText(Uk,Wf,7):ah-=-1* (ah>1):�aU(Uk,Wf,7,�ah)
N�20
b�&186:� �WU ��ai
l�&18C:�aj(-1,0)
v�&18D:�aj(+1,0)
��&18F:�aj(0,-1)
��&18E:�aj(0,+1)
��&1B:Vv= ��:�Xr
��
��ad:�XV=1 �Zv=13 �
��ak
��
��:�al(Zv):�
4E��ae(Xa):ș&400CF,,Uk+1024:ș&400D4,,Xa,Uk!(1024+0),Uk!(1024+4):�
p��Wt(XW):ȎXW!16 �
� �0:�Va �
�WWw$=�ction_TagToString(Vk,"war07"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$,�,�):Vc=Wz=1
��:� �WU � �Vz �
�Vc=�
��
��
��2:�am(XW)
��3:�an(XW)
��5:�ao(XW)
��&502:�ap(XW)
�:�
.U��Wb(XW):ș&400C8,,XW �aq:ar=XW!4:as=XW!16:at=XW!8:au=XW!20:av=XW!24:ȕaq:Ȏ!XW �
� �Wj:�aw
� �Wd:�ax
� �Wl:�ay
� �Wn:�az
��:ș&400CA,,XW �aq:�:�
���Wq(XW):ȎWV �
�1:�bU(XW)
"�2:ș&400CF,,Uk:�Zf(Uk!0,Uk!4)
�3:�bV(XW)
( �:WV=0:�
ZC��bU(XW):ș&400CF,,XW:XX=XW!0:XY=XW!4:Xa=XW!12:XV=XW!16:ȎbW$ �
�2�"Instrument":bX$=�ction_ReadIconText(Uk,Xv,1)
�2�"Music Data":bX$=�ction_ReadIconText(Uk,Xx,1)
�1�"Music App":bX$=�ction_ReadIconText(Uk,Xz,1)
���:bY$=�ction_LeafnameOnly(bX$):XW!0=44+((�bY$ �4)*4)+4:XW!4=0:XW!8=0:XW!12=0:XW!16=1:XW!20=Xa:XW!24=XV:XW!28=XX:XW!32=XY:XW!36=64:XW!40=&FFF:$(XW+44)=bY$+�0:ș&400E7,17,XW,Xa:�
ra��am(XW):bZ=XW!4:XW!12=XW!8:XW!16=3:bX$=�ction_ExtractString(XW+44):ș&400E7,17,XW,bZ:ȎbW$ �
� �"Instrument":�Xw(bX$, ��)
� �"Music Data":�Xy(bX$, ��)
� �"Music App":�YU(bX$, ��)
��:ș&400D4,,-1:�
&ݤction_BeginDrag(XU,Xa,XV):ȎXa �
&�Xv:bW$="Instrument"
0�Xx:bW$="Music Data"
:�Xz:bW$="Music App"
D��:�ba,bb,bc,bd:XU!0=4:XU!4=5:XU!8=11:XU!12=12:XU!16=-1:ș&31,XU,XU+32:ba=(XU!40+1)* 2^( XU!32 ):bb=(XU!44+1)* 2^( XU!36 ):XU!0=Xa:ș&400CC,,XU:bc=XU!4:bd=XU!16:XU!0=Xa:XU!4=XV:ș&400CE,,XU:XU!8+=bc:XU!12+=bd:XU!16+=bc:XU!20+=bd:XU!0=0:XU!4=5
5XU!24=0:XU!28=0:XU!32=ba:XU!36=bb:ș&400D0,,XU:=0
>���Vf:�be(Uq,Up):�bf(Uq,"<"+Ud$+"$Dir>.Sprites"):�be(Us,Ur):�bf(Us,"<"+Ud$+"$Dir>.Sprites22"):�be(Uu,Ut):�bf(Uu,"<"+Ud$+"$Dir>.Sprites23"):Ȏ�ction_SpritesType �
�1�1:�be(Uw,Uv):�bf(Uw,"<"+Ud$+"$Dir>.Sprites")
�3�2:�be(Uw,Uv):�bf(Uw,"<"+Ud$+"$Dir>.Sprites22")
�3�3:�be(Uw,Uv):�bf(Uw,"<"+Ud$+"$Dir>.Sprites23")
ʵ�:�bg(Uq,"hqtracker"):�bg(Uq,"pushup"):�bg(Uq,"pushdown"):�bg(Us,"hqtracker"):�bg(Us,"pushup"):�bg(Us,"pushdown"):�bg(Uu,"hqtracker"):�bg(Uu,"pushup"):�bg(Uu,"pushdown"):bh=Uw:�
8���Vg:bi=Uo:�bj(Uk,"<"+Ud$+"$Dir>.Templates"):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"information",bh):bk=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"prf_win",bh):Wg=�ction_MakeTemplateAWindow(Um)
~�bi=�ction_LoadTemplate(Um,bi,Uo+Un,"prf_pane",bh):Wh=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"xfer_inst",bh):Xv=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"xfer_data",bh)
��Xx=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"xfer_app",bh):Xz=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"main",bh):Wd=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"lib_win",bh)
��Wi=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"lib_pane",bh):Wj=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"main_pane",bh):Wf=�ction_MakeTemplateAWindow(Um)
�bi=�ction_LoadTemplate(Um,bi,Uo+Un,"music_info",bh):Zw=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"seq_main",bh):Wk=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"seq_pane",bh)
P�Wl=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"chng_note",bh):Yb=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"chng_fx",bh):Yg=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"play",bh)
��Yj=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"jump",bh):ad=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"inst_main",bh):Wm=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"inst_pane",bh)
�Wn=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"piano",bh):Yq=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"share_1",bh):Xb=�ction_MakeTemplateAWindow(Um):bi=�ction_LoadTemplate(Um,bi,Uo+Un,"share_2",bh)
+Xd=�ction_MakeTemplateAWindow(Um):�bl:�
6���Ys(XX):Ve=1:bm=0:�bn(Ud$,160,44):�bo("Info",0,bk, ��):�bo("Prefs...",0,-1,WU):�bo("Quit",128,-1,WU):ș&400D4,,Uy,XX-80,228:�
�x��Yt(XX,XY):Ve=2:bm=0:bp=Uy+2*1024:bq=0:�af:Zx$=�ction_PathnameOnly(�ction_ReadIconText(Uk,Xv,1)):�Zx$<>"" �Zx$+="."
���aU(Uk,Xv,1,Zx$+�ction_ReadIconText(Uk,Wf,1)):br=Uy+bm:�bn("Select",176,44):�bo("Copy ^C",0,-1,Zk=0):�bo("Move ^V",0,-1,Zk=0):�bo("Delete ^X",0,-1,Zk=0):�bo("Clear ^Z",0,-1,Zk=0):�bo("Merge ^M",128,-1,Zk=0):bs=Uy+bm:�bn("Edit",224,44)
v��bo("Alter note",0,-1,Zk=0):�bo("Alter effects",2,-1,Zk=0):�bt("Sequence list",0,-1, ��):�bo("Libraries",128,-1,Vp=0):bu=Uy+bm:�bn("Misc",336,44):�bt("Info... ^F1",0,Zw, ��):�bo("Play Music",0,-1,WU):�bt("Show Keyboard",2,-1,WU)
��bt("Save Application F3",0,Xz, ��):�bt("Save Instrument �F3",0,Xv,Vq=0):�bt("Save Music Data ^F3",2,Xx, ��):�bo("Restart",128,-1,WU):bv=Uy+bm:�bn("Instrument",176,44):�bt("Remove ^R",0,-1,Vq=0):�bt("Install ^I",2,-1,Vp=0):�bt("Edit",128,-1,Vq=0)
!H�bw=Uy+bm:�bn("Pattern",176,44):�bo("Insert ^P",0,-1,bx=Vm):�bo("Clone ",0,-1, ��):�bo("Clear ",2,-1, ��):�bo("Remove ^K",0,-1,bx=1):�bo("Jump ^J",128,-1, �Vv):by=Uy+bm:�bn("HQTracker",176,44):�bo("Misc",2,bu, ��):�bo("Select",0,br,WU)
!�_�bo("Edit",2,bs,WU):�bo("Instrument",0,bv,WU):�bo("Pattern",128,bw,WU):ș&400D4,,by,XX,XY:�
"���Xl(XX,XY,bz):Ve=bz:bm=0:bp=Uy+1* 1024:bq=0:�bn("Stereo",208,44):�bt(�ction_TagToString(Vk,"ster01"),0,-1, ��):�bt(�ction_TagToString(Vk,"ster02"),0,-1, ��):�bt(�ction_TagToString(Vk,"ster03"),0,-1, ��):�bt(�ction_TagToString(Vk,"ster04"),0,-1, ��)
"~��bt(�ction_TagToString(Vk,"ster05"),0,-1, ��):�bt(�ction_TagToString(Vk,"ster06"),0,-1, ��):�bt(�ction_TagToString(Vk,"ster07"),128,-1, ��):ș&400D4,,Uy,XX,XY:�
"Ĉ��Xq(XX,XY):Ve=20:bm=0:�bn("Octaves",96,44):�cU=1 �7:aq=2* �(cU=3 �cU=4):�bo(�cU,aq,-1, ��):�cU:!(Uy+bm-24)=128:ș&400D4,,Uy,XX,XY:�
#F���Xm(XX,XY,bz):Ve=bz:bm=0:bp=Uy+1* 1024:bq=0:�bn("Quality",176,44):�bt(�ction_TagToString(Vk,"qual01"),0,-1, ��):�bt(�ction_TagToString(Vk,"qual02"),0,-1, ��):�bt(�ction_TagToString(Vk,"qual03"),0,-1, ��):�bt(�ction_TagToString(Vk,"qual04"),0,-1, ��)
#���bt(�ction_TagToString(Vk,"qual05"),0,-1, ��):�bt(�ction_TagToString(Vk,"qual06"),0,-1, ��):�bt(�ction_TagToString(Vk,"qual07"),128,-1, ��):ș&400D4,,Uy,XX,XY:�
#����Yd(XX,XY,bz):Ve=bz:bm=0:�bn("Note",64,44):�bo("C ",0,-1, ��):�bo("C#",0,-1, ��):�bo("D ",0,-1, ��):�bo("D#",0,-1, ��):�bo("E ",0,-1, ��):�bo("F ",0,-1, ��):�bo("F#",0,-1, ��):�bo("G ",0,-1, ��):�bo("G#",0,-1, ��):�bo("A ",0,-1, ��)
$|@�bo("A#",0,-1, ��):�bo("B ",128,-1, ��):ș&400D4,,Uy,XX,XY:�
$����Ye(XX,XY,bz):Ve=bz:bm=0:�bn("Octaves",96,44):�bo("0",2,-1, ��):�cU=1 �7:�bo(�cU,0,-1, ��):�cU:!(Uy+bm-24)=128:ș&400D4,,Uy,XX,XY:�
%:���bn(cV$,ba,bb):$(Uy+bm)=cV$+�0:?(Uy+bm+12)=7:?(Uy+bm+13)=2:?(Uy+bm+14)=7:?(Uy+bm+15)=0:!(Uy+bm+16)=ba:!(Uy+bm+20)=bb:!(Uy+bm+24)=0:bm+=28:�
%�l��bo(cW$,cX,cY,cZ):!(Uy+bm+0)=cX:!(Uy+bm+4)=cY:!(Uy+bm+8)=&07000001+�cZ*2^22:$(Uy+bm+12)=cW$+�0:bm+=24:�
&���bt(ca$,cX,cY,cZ):!(Uy+bm+0)=cX:!(Uy+bm+4)=cY:!(Uy+bm+8)=&07000101+�cZ*2^22:cb=bp+bq:$cb=ca$+�0:bq+=�ca$+1:!(Uy+bm+12)=cb:!(Uy+bm+16)=bp:!(Uy+bm+20)=16:bm+=24:�
&�(��Ws(XW):cc=XW!0:cd=XW!4:ce=�:ȎVe �
&�
�1:Ȏcc �
&�#�1:�Xf(Uk,Wg):�We(Uk,Wg,Wh,8,8)
&� �2:�Va �
&�WWw$=�ction_TagToString(Vk,"war07"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$,�,�):Vc=Wz=1
'
�:Vc=�
'�
'$�
'.
�2:Ȏcc �
'8
�0:Ȏcd �
'Bh�1:�aU(Uk,Yj,5,"-"):�aU(Uk,Yj,3,"-"):�aU(Uk,Yj,7,"-"):�cf(Uk,Yj,10,WU):�cf(Uk,Yj,11, �WU):�Xf(Uk,Yj)
'~�2:�Wc(Ui,Uk,Yq, ��)
'�
�6:�cg
'��
'�
�1:Ȏcd �
'�
�0:�aW
'�
�1:�aX
'�
�2:�aY
'�
�3:�Vy
'�
�4:�aZ
'��
'�
�2:Ȏcd �
'�
�0:�ch
'�
�1:�ci
(
I�2:�cj:ck=cl:�aU(Uk,Wk,1,�Zm):�Wc(Ui,Uk,Wk, ��):�We(Uk,Wk,Wl,8,164+8)
(F*�3:�Wc(Ui,Uk,Wi, ��):�We(Uk,Wi,Wj,8,8)
(Z�
(d
�3:Ȏcd �
(n(�0:�ab(�ction_ReadIconText(Uk,Wf,1))
(x�1:�aa:ce= ��
(�
�2:�cm
(��
(�
�4:Ȏcd �
(�'�0:Wx=�ction_Insert_Pattern:� �Wx �
(�QWw$=�ction_TagToString(Vk,"err06"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
(��
(�
�1:�cn
(�
�2:�co
(�
�3:�ac
(�5�4:�aU(Uk,ad,1,"1"):�Wc(Ui,Uk,ad, ��):�Xg(ad,1,1)
)�
)"�
),:�3:�aU(Uk,Wh,6,�ction_TagToString(Vk,"ster0"+�(cc+1)))
)6:�4:�aU(Uk,Wh,7,�ction_TagToString(Vk,"ster0"+�(cc+1)))
)@:�5:�aU(Uk,Wh,8,�ction_TagToString(Vk,"ster0"+�(cc+1)))
)J:�6:�aU(Uk,Wh,9,�ction_TagToString(Vk,"ster0"+�(cc+1)))
)T;�7:�aU(Uk,Wh,25,�ction_TagToString(Vk,"qual0"+�(cc+1)))
)^��8:ah$=�ction_DecodeMenuIntoText(cp,XW,Uk+3*1024):ah$=�ction_LeafnameOnly(ah$):cq=�ah$,":"):cr=��ah$,cq-1):cs$=�ah$,cq+1,�ah$-cq):�ct(VV$(cr)+".HQ_Library."+cs$,-1)
)�G�9:ah$=�ction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):�Vr(�ah$,4,�ah$))
)�@�10:ah$=�ction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):�cu(�ah$)
)�G�11:ah$=�ction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):�aU(Uk,Wk,1,ah$)
)�P�12:ah$=�ction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):�aU(Uk,Yb,1,�ah$,4,�ah$))
)�P�13:ah$=�ction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):�aU(Uk,Yb,4,�ah$,4,�ah$))
)�G�14:ah$=�ction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):�aU(Uk,Yb,7,ah$)
*H�15:ah$=�ction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):�aU(Uk,Yb,10,ah$)
*&H�16:ah$=�ction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):�aU(Uk,Yb,13,ah$)
*:H�17:ah$=�ction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):�aU(Uk,Yb,16,ah$)
*NG�18:ah$=�ction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):�aU(Uk,Yg,1,ah$)
*bG�19:ah$=�ction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):�aU(Uk,Yg,4,ah$)
*vG�20:ah$=�ction_DecodeMenuIntoText(Uy,XW,Uk+3*1024):�aU(Uk,Wf,7,ah$)
*�0�:ș&400CF,,XW:XX=XW!0:XY=XW!4:XZ=XW!8:�ce �
*� �XZ=Ub �
*�
ȎVe �
*��1:�Ys(XX)
*��2:�Yt(XX,XY)
*��3:�Xl(XX,XY,3)
*��4:�Xl(XX,XY,4)
+�5:�Xl(XX,XY,5)
+ �6:�Xl(XX,XY,6)
+�7:�Xm(XX,XY,7)
+ �8:ș&400D4,,cp,XX,XY
+*�9:�Xo(XX,XY)
+4�10:�Xp(XX,XY)
+>�20:�Xq(XX,XY)
+H�
+R�:ș&400D4,,-1:Ve=0
+p�
+z�:�
+�X��an(XW):cv=XW!40:bX$=�ction_ExtractString(XW+44):bZ=XW!4:XW!16=4:XW!12=XW!8:� �WU �
+�
Ȏcv �
+�2�Uf:�ction_DoesFileExist(bX$+".HQ_Library") �
+� ș&400E7,17,XW,bZ:�cw(bX$)
,/�:�ction_DoesFileExist(bX$+".MusicData") �
,$ ș&400E7,17,XW,bZ:�cx(bX$,�)
,8S�:Ww$=�ction_TagToString(Vk,"err03"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
,V�
,`�
,j'�Ug:�ction_FileIsInstrument(bX$) �
,t!�ct(bX$,-1):ș&400E7,17,XW,bZ
,�$�:�cx(bX$, ��):ș&400E7,17,XW,bZ
,��
,��
,��:�
,�X��ao(XW):cv=XW!40:bX$=�ction_ExtractString(XW+44):bZ=XW!4:XW!16=4:XW!12=XW!8:� �WU �
-(
Ȏcv �
-22�Uf:�ction_DoesFileExist(bX$+".HQ_Library") �
-< ș&400E7,17,XW,bZ:�cw(bX$)
-P/�:�ction_DoesFileExist(bX$+".MusicData") �
-d ș&400E7,17,XW,bZ:�cx(bX$,�)
-x�
-��
-�'�Ug:�ction_FileIsInstrument(bX$) �
-�!�ct(bX$,-1):ș&400E7,17,XW,bZ
-�$�:�cx(bX$, ��):ș&400E7,17,XW,bZ
-��
-��
-��:�
.[ݤction_SizeOfFile(bX$):�cy,cz,dU,dV,dW,dX:�dY:ș&8,17,bX$ �cy,cz,dU,dV,dW,dX:dY=dW:=dY
.TWݤction_DoesFileExist(bX$):�cy,cz,dU,dV,dW,dX:ș&8,17,bX$ �cy,cz,dU,dV,dW,dX:=cy<>0
.�hݤction_TypeOfFile(bX$):�cy,cz,dU,dV,dW,dX:�dY:ș&8,17,bX$ �cy,cz,dU,dV,dW,dX:dZ=((dU>>8) �&FFF):=dZ
.�:��af:�aU(Uk,Zw,9,�cl):da=0:db=0:�i=1 �VX:�VY$(i)<>"" �
/ 5ș&900C5,VZ(i),UV �dc:db+=1:da+=(dc!(64+4)) �1024
/:[�:�:�aU(Uk,Zw,7,�db):�aU(Uk,Zw,10,�da+" KB"):�aU(Uk,Zw,8,�bx):�aU(Uk,Zw,11,�bx+" KB"):�
/���Xr:�dd(Vw,Vx):�
/���Xu(XW):�Vv �
/�^XX=XW!0:XY=XW!4:de=�ction_ColumnClickedOn(XX,XY):df=�ction_RowClickedOn(XX,XY):�de<1 �de=1
0 �de>4 �de=4
0�df<1 �df=1
0 �df>64 �df=64
0*%�dd(Vw,Vx):Vw=df:Vx=de:�dd(Vw,Vx)
0R�:�
0zyݤction_RowClickedOn(XX,XY):Uk!0=Wd:ș&400CC,,Uk:as=Uk!(12+4):dg=as-XY:av=Uk!(20+4):dg-=av:dh=dg-56:df=(dh �44)+1:=df
0�hݤction_ColumnClickedOn(XX,XY):Uk!0=Wd:ș&400CC,,Uk:di=XX-(Uk!4-Uk!20):de=((di-6*16) �(18*16))+1:=de
1���dd(dj,dk):Uk!0=Wd:ș&400CC,,Uk:as=Uk!(12+4):av=Uk!(20+4):ar=Uk!(0+4):Zs=as-56-dj*44 - av:Zr=ar+6*16 + (dk-1)*18*16:ș&400D1,-1,Zr,Zs-8,Zr+13*16,Zs+44+8:�
1���ai:ȎZk �
1�)�0:Zg=Vw:Zh=Vx:Zi=Vw:Zj=Vx:Zk=1:Zl=Zm
1�$�1,2:Zi=Vw:Zj=Vx:�Zg>Zi �ȔZg,Zi
1��Zh>Zj �ȔZh,Zj
1�Zk=2
1��:�YZ(Uk,Wd):�
2 4��Vy:Zk=0:Zg=1:Zh=1:Zi=1:Zj=1:Zl=Zm:�YZ(Uk,Wd):�
2x���Yr(dl$,dm):cU=��ction_ReadIconText(Uk,Wf,7)+dm:cU$=�cU:dn=�ction_FindInstrument(�ction_ReadIconText(Uk,Wf,1)):dn$=�" "+�dn,2):�dn<>-1 �
2Ҹș&900C5,VZ(Zy),UV �do:dp=do!(76+4):dp$=�" "+�dp,3):ș&900C5,dq,UV �dc:dc+=(Zm-1)* 1024:A%=!(dc+(Vw-1)*16 + (Vx-1)*4):ș&90093,A% �dr:ds$=�ction_ExtractString(dr):�ds$,1)<>"J" �
3J;�ds$,1,2)=dl$:�ds$,3,1)=�cU:�ds$,5,2)=dn$:�ds$,9,3)=dp$
3r �:ș&90094,ds$ �A%:�Vv �
3�C!(dc+(Vw-1)*16 + (Vx-1)*4) = A%:dt=Vw:du=Vx:Vw+=1:�Vw>64 �Vw=64
3��dd(dt,du):�dd(Vw,Vx)
3�(�:Wx=�ction_Playout(dl$,�cU,�):�Vv �
41�ction_NoteIsBelowWindow ��dv(Uk,Wd,0,-44*4)
41�ction_NoteIsAboveWindow ��dv(Uk,Wd,0,+44*4)
4 �
40�:�
4bk��ag:ș&900C5,dq,UV �dc:dc+=(Zm-1)* 1024:!(dc+(Vw-1)*16 + (Vx-1)*4) = 0:dt=Vw:du=Vx:Vw+=1:�Vw>64 �Vw=64
4�G�dd(dt,du):�dd(Vw,Vx):�ction_NoteIsBelowWindow ��dv(Uk,Wd,0,-44*4)
4�1�ction_NoteIsAboveWindow ��dv(Uk,Wd,0,+44*4)
4��
4�:ݤction_Playout(ds$,cU$,dw):ș&9008B �dx:�dx=0 � �Vz �
5*
Wx= ��
5>�:Wx=�:� �dw �ș&9008C
5pvcU=�cU$:ds=(�"C C#D D#E F F#G G#A A#B ",ds$)+1)/2:dy=�ction_FindInstrument(�ction_ReadIconText(Uk,Wf,1)):�dy<>-1 �
5��ș&900C5,VZ(dy),UV �dc:dz=dc!(76+4):eU=dc!(64+4):eV=dc!(68+4):eW=dc!(72+4):eV=0:eW=0:eX=dc+80+4:eY=eX:eZ=eX+eU-132:Uk!(2048+0)=eX:Uk!(2048+4)=eX+eU-132:Uk!(2048+8)=eV:Uk!(2048+12)=eW:Uk!(2048+16)=dz:Uk!(2048+20)=-1:Uk!(2048+24)=-1:Uk!(2048+28)=-1
6j ș&9008D,1,Uk+2048:� �Vz �
6�dș&9008A,!ea:ș&90084,�(!eb),�(!ec),�(!ed),�(!ee):ș&90083,!ef:ș&9008B:ș&90085,!eg,!eh,!ei,!ej
6���:Uk!(2048+0)=1:Uk!(2048+4)=1:Uk!(2048+8)=cU:Uk!(2048+12)=ds:Uk!(2048+16)=2:Uk!(2048+20)=1:Uk!(2048+24)=cU:Uk!(2048+28)=ds:Uk!(2048+32)=3:Uk!(2048+36)=1:Uk!(2048+40)=cU:Uk!(2048+44)=ds:Uk!(2048+48)=4:Uk!(2048+52)=1:Uk!(2048+56)=cU:Uk!(2048+60)=ds
7 ]ș&90090,(Uk+2048):ș&90090,(Uk+2048+16):ș&90090,(Uk+2048+32):ș&90090,(Uk+2048+48):Vz=�
7(�
7< �:=Wx
7n/��WY:ș&90081,1 �ek:cY=ek!0:�cY<eY �cY>eZ �
7� ș&9008C:ș&9008E,1:Vz= ��
7��:�
7���aj(el,em):�Vv �
7�)dt=Vw:du=Vx:Vx+=el:Vw+=em:�Vw<1 �Vw=1
8"�Vw>64 �Vw=64
8,�Vx<1 �Vx=1
86�Vx>4 �Vx=4
8@�dt<>Vw �du<>Vx �
8J�dd(dt,du):�dd(Vw,Vx)
8^3�:�ction_NoteIsBelowWindow ��dv(Uk,Wd,0,-44*4)
8r1�ction_NoteIsAboveWindow ��dv(Uk,Wd,0,+44*4)
8|�:�
8��ݤction_NoteIsBelowWindow:Uk!0=Wd:ș&400CB,,Uk:ar=Uk!4:at=Uk!8:en=Uk!12:as=Uk!16:au=Uk!20:av=Uk!24:eo=as-56-Vw*44 - av:=eo<at
9�ݤction_NoteIsAboveWindow:Uk!0=Wd:ș&400CB,,Uk:ar=Uk!4:at=Uk!8:en=Uk!12:as=Uk!16:au=Uk!20:av=Uk!24:eo=as-56-Vw*44 - av:=eo>as-56-22
9l ��cg:�Vq>0 �cl>1 �bx>1 �Va �
9�OWw$=�ction_TagToString(Vk,"err23"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$,�,�)
9�
�:Wz=1
9�
�:�Wz=1 �
9� �ep=1 �VX:�VY$(ep)<>"" �
9�%�ab(�ction_LeafnameOnly(VY$(ep)))
9���:�ep:�YX:ș&900C5,dq,UV �dc:A%=dc:B%=dc+!Vn*1024:C%=0:�eq:er()= ��:er(1)=�:bx=1:�cu(1):�aU(Uk,Zw,2,""):�aU(Uk,Zw,3,""):�aU(Uk,Xz,1,"MusicApp"):�aU(Uk,Xv,1,"Instrument"):�aU(Uk,Xx,1,"MusicData "):�es(Uk,Wd,"<Untitled>"):Uk!0=Wd:ș&400CB,,Uk
:�Yș&400C6,,Uk:ș&400C5,,Uk:�Xg(Wd,-1,0):�We(Uk,Wd,Wf,0,0):Va= ��:�Wo(Uk,Wm):�Wo(Uk,Wn)
:��:�
;���ch:�aU(Uk,Yb,1,�ction_ReadIconText(Uk,Wf,1)):�aU(Uk,Yb,4,�ction_ReadIconText(Uk,Wf,1)):�aU(Uk,Yb,7,"C "):�aU(Uk,Yb,10,"C "):�aU(Uk,Yb,13,"1"):�aU(Uk,Yb,16,"1"):�Yc:�Wc(Ui,Uk,Yb, ��):�
;�n��Yc:�dj=1 �3:et=�ction_IconIsToggled(Uk,Yb,(dj-1)*6):�i=(dj*6-6)+1 �(dj*6-6)+5:�cf(Uk,Yb,i, �et):�i:�dj:�
;�0��Yf(eu):�ction_IconIsToggled(Uk,Yb,0) ��ev
< '�ction_IconIsToggled(Uk,Yb,6) ��ew
<
(�ction_IconIsToggled(Uk,Yb,12) ��ex
<�eu ��Wo(Uk,Yb)
< �YZ(Uk,Wd):�
<F���ci:�aU(Uk,Yg,1,�ction_TagToString(Vk,"ster01")):�aU(Uk,Yg,4,�ction_TagToString(Vk,"ster01")):�aU(Uk,Yg,7,"127"):�aU(Uk,Yg,11,"127"):�aU(Uk,Yg,15,"15"):�aU(Uk,Yg,19,"15"):�aU(Uk,Yg,24,"0"):�aU(Uk,Yg,26,"0"):�aU(Uk,Yg,25,"0"):�Yh:�Wc(Ui,Uk,Yg, ��):�
<����Yh:et=�ction_IconIsToggled(Uk,Yg,0):�i=1 �5:�cf(Uk,Yg,i, �et):�i:et=�ction_IconIsToggled(Uk,Yg,6):�i=7 �13:�cf(Uk,Yg,i, �et):�i:et=�ction_IconIsToggled(Uk,Yg,14):�i=15 �21:�cf(Uk,Yg,i, �et):�i:et=�ction_IconIsToggled(Uk,Yg,23):�i=24 �30
=r�cf(Uk,Yg,i, �et):�i:�
=�0��Yi(eu):�ction_IconIsToggled(Uk,Yg,0) ��ey
=�'�ction_IconIsToggled(Uk,Yg,6) ��ez
=�(�ction_IconIsToggled(Uk,Yg,14) ��fU
=�(�ction_IconIsToggled(Uk,Yg,23) ��fV
=��eu ��Wo(Uk,Yg)
=��YZ(Uk,Wd):�
> ��Yk:ș&9008B �dx:�dx=-1 �
>:ș&9008C:fW=�ction_IconIsToggled(Uk,Yj,1):ș&900C5,dq,UV �dc:ș&900C5,fX,UV �fY:ș&90086,dc:ș&90087,fY:ș&90088,cl:� �fW �
>�ș&90089,ck,1
>��:ș&90089,1,1
>�)�:ș&9008A,!ea:�i=1 �VX:�VY$(i)<>"" �
?�Wy=VZ(i):ș&900C5,Wy,UV �dc:Uk!0=dc+80+4:Uk!4=dc+80+4+dc!(64+4)-132:Uk!8=dc!(68+4):Uk!12=dc!(72+4):Uk!16=dc!(76+4):ș&9008D,i,Uk
?R��:�i:ș&90084,�(!eb),�(!ec),�(!ed),�(!ee):ș&90082,!fZ:ș&90083,!ef:ș&9008B:ș&90085,!eg,!eh,!ei,!ej:ș&90091:WU=�:�cf(Uk,Yj,8,WU):�cf(Uk,Yj,9, �WU):�aU(Uk,Yj,5,"1"):fa=1:�aU(Uk,Yj,3,�((?fY)+1)):fb=(?fY)+1:�aU(Uk,Yj,7,"1"):fc=1:�Wo(Uk,Wk):�Wo(Uk,Wl)
@p�Wo(Uk,Yb):�Wo(Uk,Yg):�Wo(Uk,Wi):�Wo(Uk,Wj):�Wo(Uk,Wg):�Wo(Uk,Wh):�Wo(Uk,Wm):�Wo(Uk,Wn):�Wo(Uk,Yq):�aV:�Vv �
@jVv= ��:�YZ(Uk,Wd)
@~�
@��:�
@�d��Yl:ș&90092:ș&9008C:ș&9008E,-1:WU= ��:�cf(Uk,Yj,8,WU):�cf(Uk,Yj,9, �WU):ș&900C5,fX,UV �dc:�
AZ^��WZ:ș&90089,-1,-1 �fd,fe:ș&900C5,fX,UV �dc:ff=dc?(fd-1):�fd<>fa ��aU(Uk,Yj,5,�fd):fa=fd
A�'�ff<>fb ��aU(Uk,Yj,3,�(ff+1)):fb=ff
A�#�fe<>fc ��aU(Uk,Yj,7,�fe):fc=fe
A��
A���YY:� �Va �
AҏcV$=�ction_GetWindowTitle(Uk,Wd):cV$+=" *":�es(Uk,Wd,cV$):!Uk=Wd:ș&400CC,,Uk:ș&400C6,,Uk:ș&400C5,,Uk:�We(Uk,Wd,Wf,0,0):Va=�:�Xg(Wd,-1,0)
B6�:�
B^4��ap(XW):Wy$="":bZ=XW!4:fg=XW!32:fh=XW!36:Ȏfg �
B��Uc:�fh=Vj �Wy$="ibar"
B��Wi:Ȏfh �
B��0:Wy$="lwin00"
B��1:Wy$="lwin01"
B��
B��Wg:Ȏfh �
B��0:Wy$="pwin00"
C�1:Wy$="pwin01"
C�2:Wy$="pwin02"
C �
C0�Wh:Ȏfh �
C:�2:Wy$="ppne02"
CD�5:Wy$="ppne05"
CN�3:Wy$="ppne03"
CX�4:Wy$="ppne04"
Cb�6:Wy$="ppne06"
Cl�7:Wy$="ppne07"
Cv�8:Wy$="ppne08"
C��9:Wy$="ppne09"
C��10:Wy$="ppne10"
C��11:Wy$="ppne11"
C��12:Wy$="ppne12"
C��13:Wy$="ppne13"
C��17:Wy$="ppne17"
C��30:Wy$="ppne30"
C��31:Wy$="ppne31"
C��18:Wy$="ppne18"
C��20:Wy$="ppne20"
C��21:Wy$="ppne21"
C��25:Wy$="ppne25"
C��26:Wy$="ppne26"
D�32:Wy$="ppne32"
D �33:Wy$="ppne33"
D�34:Wy$="ppne34"
D �
D4�Wj:Wy$="lpne"
DH�Zw:Ȏfh �
DR�2:Wy$="minf02"
D\�3:Wy$="minf03"
Df�7:Wy$="minf07"
Dp�8:Wy$="minf08"
Dz�9:Wy$="minf09"
D��10:Wy$="minf10"
D��11:Wy$="minf11"
D��
D��Wk:Ȏfh �
D��1:Wy$="sman01"
D��2:Wy$="sman02"
D��3:Wy$="sman03"
D��4:Wy$="sman04"
D��5:Wy$="sman05"
D��6:Wy$="sman06"
D��
D��Yb:Ȏfh �
E�0:Wy$="cnot00"
E�6:Wy$="cnot06"
E�12:Wy$="cnot12"
E$�1:Wy$="cnot01"
E.�4:Wy$="cnot04"
E8�2:Wy$="cnot02"
EB�5:Wy$="cnot05"
EL�7:Wy$="cnot07"
EV�10:Wy$="cnot10"
E`�8:Wy$="cnot08"
Ej�11:Wy$="cnot11"
Et�13:Wy$="cnot13"
E~�16:Wy$="cnot16"
E��14:Wy$="cnot14"
E��17:Wy$="cnot17"
E��18:Wy$="cnot18"
E��
E��Yg:Ȏfh �
E��0:Wy$="chfx00"
E��6:Wy$="chfx06"
E��14:Wy$="chfx14"
E��23:Wy$="chfx23"
E��1:Wy$="chfx01"
E��4:Wy$="chfx04"
F �2:Wy$="chfx02"
F
�5:Wy$="chfx05"
F�7:Wy$="chfx07"
F �11:Wy$="chfx11"
F(�8:Wy$="chfx08"
F2�12:Wy$="chfx12"
F<�9:Wy$="chfx09"
FF�13:Wy$="chfx13"
FP�15:Wy$="chfx15"
FZ�19:Wy$="chfx19"
Fd�16:Wy$="chfx16"
Fn�20:Wy$="chfx20"
Fx�17:Wy$="chfx17"
F��21:Wy$="chfx21"
F��25:Wy$="chfx25"
F��27:Wy$="chfx27"
F��28:Wy$="chfx28"
F��22:Wy$="chfx22"
F��
F��Yj:Ȏfh �
F��1:Wy$="play01"
F��3:Wy$="play03"
F��5:Wy$="play05"
F��7:Wy$="play07"
F��8:Wy$="play08"
G�9:Wy$="play09"
G�
G"�ad:Ȏfh �
G,�1:Wy$="jump01"
G6�
GJ�Wn:Wy$="ipne"
G^�Wf:Ȏfh �
Gh�1:Wy$="mpne01"
Gr�2:Wy$="mpne02"
G|�5:Wy$="mpne05"
G��6:Wy$="mpne06"
G��7:Wy$="mpne07"
G��8:Wy$="mpne08"
G��
G��Wd:Wy$="main"
G��Wl:Wy$="spne"
G��Wm:Ȏfh �
G��13:Wy$="iman13"
G��1:Wy$="iman01"
G��6:Wy$="iman06"
H�2:Wy$="iman02"
H�3:Wy$="iman03"
H �4:Wy$="iman04"
H&�5:Wy$="iman05"
H0�9:Wy$="iman09"
H:�10:Wy$="iman10"
HD�11:Wy$="iman11"
HN�14:Wy$="iman14"
HX�12:Wy$="iman12"
Hb�
Hv�:�Wy$<>"" �
H�tfi$=�ction_TagToString(Vk,Wy$):XW!0=20+((�(fi$) �4)*4)+4:XW!12=XW!8:XW!16=&503:$(XW+20)=fi$+�0:ș&400E7,17,XW,bZ
H��:�
H�|ݤction_FileIsInstrument(fj$):fk=�fj$:fl=�#fk:fm=�#fk:fn=�#fk:fo=�#fk:�#fk:=((fl=�"I") �(fm=�"N") �(fn=�"S") �(fo=�"T"))
IHY��UX:Ww$="Fatal Error : "+�$+" ("+Þ+")":Wz=�ction_ReportError(Uk,99,Ud$,Ww$,�, ��):�
I�#��WW:�Xf(Uk,Xb):�fp(Uk,Xb):�7:�
I�#��Xc:�Xf(Uk,Xd):�fp(Uk,Xd):�7:�
J����Vi:fq=13:fr=14:fs=15:�ft 5*1024:�fu=0 �2�2:P%=ft:[OPT fu:.fv STMFD (fq)!,{r0-r12,fr}:MOV r12,#13:MOV r11,#0:MOV r10,#0:LDR r9,fw:LDR r8,fx:LDR r6,fy:LDR r5,fz:LDR r4,gU:LDR r3,gV:LDR fr,gW:.gX:CMP r10,r4 : BLT gY:CMP r10,r3 : BGT gY:.gZ CMP r12,#11
K��MOVNE r0,#11:SWINE "Wimp_SetColour":MOVNE r12,#11:B ga:.gY CMP r12,#7:MOVNE r0,#7:SWINE "Wimp_SetColour":MOVNE r12,#7:.ga LDRB r7,[r9]:MOV r7,r7,ASR #1:CMP r11,#0:MVNNE r7,r7:ADDNE r7,r7,#1:.gb MOV r0,#5:ADD r1,r5,r10,ASL #1:ADD r2,r6,r7
L|�ADD r2,r2,#128:CMP r10,#0:�Q r0,#4:SWI "OS_Plot":.gc MVN r11,r11:ADD r9,r9,r8:CMP r9,fr:MOVGT r9,fr:ADD r10,r10,#2:CMP r10,#800:BNE gX:LDMFD (fq)!,{r0-r12,PC}:.fx DCD 0:.fy DCD 0:.fz DCD 0:.gU DCD 0:.gV DCD 0:.fw DCD 0:.gW DCD 0:.eq STR r2,[r0],#4
M�CMP r0,r1:BNE eq:MOV PC,fr:.gd STMFD (fq)!,{r0-r12,fr}:.ge MOV r0,#5:SWI "OS_WriteC":.gf LDR r0,gg:LDR r1,gh:LDR r2,gi:.gj CMP r0,r1:ADDGT r2,r2,#1:SUBGT r0,r0,#44:BGT gj:STR r0,gg:STR r2,gi:.gk LDR r0,gi:CMP r0,#64:BGT gl:LDR r0,gg:LDR r1,gm
OB�CMP r0,r1:BLT gl:LDR r0,gg:ADD r0,r0,#32:STR r0,gn:.go MOV r0,#8 : SWI "Wimp_SetColour":LDR r0,gi:ADR r1,gp:SUB r0,r0,#1:ADD r1,r1,r0,ASL #1:LDRB r2,[r1,#0]: STRB r2,gq+0:LDRB r2,[r1,#1]: STRB r2,gq+1:BL gr:ADR r0,gq : BL gs
O�.gt MOV r0,#1 : STR r0,gu : BL gv:.gw MOV r0,#2 : STR r0,gu : BL gv:.gx MOV r0,#3 : STR r0,gu : BL gv:.gy MOV r0,#4 : STR r0,gu : BL gv:.gz LDR r0,gi:ADD r0,r0,#1:STR r0,gi:LDR r0,gg:SUB r0,r0,#44:STR r0,gg:B gk:.gl:.hU MOV r0,#4:SWI "OS_WriteC"
P��LDMFD (fq)!,{r0-r12,PC}:.gv STMFD (fq)!,{fr}:LDR r0,gu:CMP r0,#1 : LDREQ r1,eb:CMP r0,#2 : LDREQ r1,ec:CMP r0,#3 : LDREQ r1,ed:CMP r0,#4 : LDREQ r1,ee: �S r1, r1, #1:�Q r0,#2:MOVNE r0,#7 : SWI "Wimp_SetColour":BL hV:LDR r0,hW:CMP r0,#0:BEQ hX
Qh�.hY MOV r0,#7:SWI "Wimp_SetColour":BL hZ:MOV r0,#1:SWI "Wimp_SetColour":.hX BL ha:LDR r0,hb:CMP r0,#0:BEQ hc:.hd MOV r0,#8:SWI "Wimp_SetColour":BL hZ:MOV r0,#9:SWI "Wimp_SetColour":B he:.hc:.he LDR r0,hf:LDR r1,gi:SUB r1,r1,#1:ADD r0,r0,r1,ASL #4
Rb�LDR r1,gu:SUB r1,r1,#1:ADD r0,r0,r1,ASL #2:LDR r0,[r0]:SWI "PlayModule_NoteToString":STR r0,hg:LDR r0,hh:STR r0,hi:ADD r0,r0,#6*16:MOV r1,#18*16:LDR r2,gu:SUB r2,r2,#1:MLA r0,r1,r2,r0:STR r0,hh:BL gr:LDR r0,hg:MOV r1,#0:STRB r1,[r0,#11]
S>�.hj LDRB r2,[r0,#0]:CMP r2,#�"J":�Q r12,r0:�Q r0,#11:SWIEQ "Wimp_SetColour":�Q r0,r12:BEQ hk:LDRB r2,[r0,#8]:LDRB r3,[r0,#9]:LDRB r4,[r0,#10]:CMP r2,#�" ":CMPEQ r3,#�" ":CMPEQ r4,#�"0":ADREQ r0,hl:BEQ hk:LDRB r4,[r0,#2]:CMP r4,#�"0":ADREQ r0,hl
T�.hk BL gs:LDR r0,hi:STR r0,hh:LDMFD (fq)!,{PC}:.gq EQUS "xx :": EQUB 0 : ALIGN:.hl EQUS " - ": EQUB 0 : ALIGN:.gp EQUS "01020304050607080910111213141516":EQUS "17181920212223242526272829303132":EQUS "33343536373839404142434445464748"
T��EQUS "49505152535455565758596061626364":.hi DCD 0:.hg DCD 0:.hh DCD 0:.gn DCD 0:.hf DCD 0:.gg DCD 0:.hm DCD 0:.gh DCD 0:.gm DCD 0:.gi DCD 0:.hn DCD 0:.ho DCD 0:.hp DCD 0:.gu DCD 0:.hW DCD 0:.hq DCD 0:.hr DCD 0:.hs DCD 0:.ht DCD 0:.hb DCD 0:.hu DCD 0
U��.hv DCD 0:.hw DCD 0:.hV MOV r0,#0:STR r0,hW:LDR r1,hq : LDR r2,hr:LDR r3,hs : LDR r4,ht:LDR r5,gi : LDR r6,gu:CMP r5,r1 : MOVLT PC,fr:CMP r5,r3 : MOVGT PC,fr:CMP r6,r2 : MOVLT PC,fr:CMP r6,r4 : MOVGT PC,fr:LDR r0,hv:LDR r1,hw:CMP r0,r1 : MOVNE PC,fr
V^�LDR r0,hu:CMP r0,#0 :�Q PC,fr:MOV r0,#1:STR r0,hW:MOV PC,fr:.ha MOV r0,#0:STR r0,hb:LDR r0,gi : LDR r1,ho:LDR r2,gu : LDR r3,hp:LDR r4,hn:CMP r0,r1 : MOVNE PC,fr:CMP r2,r3 : MOVNE PC,fr:CMP r4,#0 :�Q PC,fr:MOV r0,#1:STR r0,hb:MOV PC,fr:.gr MOV r0,#4
Wl�LDR r1,hh:LDR r2,gn:SWI "OS_Plot":MOV PC,fr:.gs SWI "OS_Write0":MOV PC,fr:.hZ LDR r3,hh:ADD r3,r3,#6*16:LDR r0,gu:SUB r0,r0,#1:MOV r1,#18*16:MLA r3,r0,r1,r3:LDR r4,gn:SUB r4,r4,#2*16:SUB r4,r4,#8:MOV r5,#11*16:MOV r6,#2*16 : ADD r6,r6,#12:MOV r0,#4
Xp�MOV r1,r3:MOV r2,r4 : SWI "OS_Plot":MOV r0,#96+5:ADD r1,r3,r5:ADD r2,r4,r6 : SWI "OS_Plot":MOV PC,fr:.eb DCD 0:.ec DCD 0:.ed DCD 0:.ee DCD 0:.eg DCD 0:.eh DCD 0:.ei DCD 0:.ej DCD 0:.fZ DCD 0:.ef DCD 0:.ea DCD 0:.Vn DCD 0:]:�fu:�
Z���ev:hx=�ction_FindInstrument(�ction_ReadIconText(Uk,Yb,1)):hy=�ction_FindInstrument(�ction_ReadIconText(Uk,Yb,4)):hy$=�" "+�hy,2):ș&900C5,dq,UV �dc:dc+=4:dc+=(Zl-1)* 1024:�dj=Zg �Zi:�dk=Zh-1 �Zj-1:A%=!(dc+(dj-1)*16 + (dk-1)*4):ș&90093,A% �dr
[|0ds$=�ction_ExtractString(dr):�ds$,1)<>"J" �
[��ds$,5,2)=hx �
[�B�ds$,5,2)=hy$:ș&90094,ds$ �A%:!(dc+(dj-1)*16 + (dk-1)*4) = A%
[��
[��:�dk:�dj:�YY:�
\N���ew:hx$=�ction_ReadIconText(Uk,Yb,7):hy$=�ction_ReadIconText(Uk,Yb,10):ș&900C5,dq,UV �dc:dc+=4:dc+=(Zl-1)* 1024:�dj=Zg �Zi:�dk=Zh-1 �Zj-1:A%=!(dc+(dj-1)*16 + (dk-1)*4):ș&90093,A% �dr:ds$=�ction_ExtractString(dr):�ds$,1)<>"J" �
\��ds$,1,2)=hx$ �
]B�ds$,1,2)=hy$:ș&90094,ds$ �A%:!(dc+(dj-1)*16 + (dk-1)*4) = A%
] �
]*�:�dk:�dj:�YY:�
]����ex:hx$=�ction_ReadIconText(Uk,Yb,13):hy$=�ction_ReadIconText(Uk,Yb,16):ș&900C5,dq,UV �dc:dc+=4:dc+=(Zl-1)* 1024:�dj=Zg �Zi:�dk=Zh-1 �Zj-1:A%=!(dc+(dj-1)*16 + (dk-1)*4):ș&90093,A% �dr:ds$=�ction_ExtractString(dr):�ds$,1)<>"J" �
^V�ds$,3,1)=hx$ �
^`B�ds$,3,1)=hy$:ș&90094,ds$ �A%:!(dc+(dj-1)*16 + (dk-1)*4) = A%
^~�
^��:�dk:�dj:�YY:�
_
[��ez:hx=��ction_ReadIconText(Uk,Yg,7):hy=��ction_ReadIconText(Uk,Yg,11):�hx>127 �hx=127
_<�hy>127 �hy=127
_PFș&900C5,dq,UV �dc:dc+=4:dc+=(Zl-1)* 1024:hz=(Zi-Zg)+1:�hz=0 �hz=1
_�0iU=(hy-hx)/hz:iV=hx:�dj=Zg �Zi:�dj=Zi �iV=hy
_���dk=Zh-1 �Zj-1:A%=!(dc+(dj-1)*16 + (dk-1)*4):ș&90093,A% �dr:ds$=�ction_ExtractString(dr):iW$=�" "+�(�iV),3):�ds$,9,3)=iW$:ș&90094,ds$ �A%:!(dc+(dj-1)*16 + (dk-1)*4) = A%:�dk:iV+=iU:�dj:�YY:�
`����ey:hx=�ction_MessageIndex(�ction_ReadIconText(Uk,Yg,1),"ster0"):hy=�ction_MessageIndex(�ction_ReadIconText(Uk,Yg,4),"ster0"):ș&900C5,dq,UV �dc:dc+=4:dc+=(Zl-1)* 1024:hz=(Zi-Zg)+1:�hz=0 �hz=1
a0iU=(hy-hx)/hz:iV=hx:�dj=Zg �Zi:�dj=Zi �iV=hy
aD��dk=Zh-1 �Zj-1:A%=!(dc+(dj-1)*16 + (dk-1)*4):ș&90093,A% �dr:ds$=�ction_ExtractString(dr):iX$=�(�iV):�ds$,16,1)=iX$:ș&90094,ds$ �A%:!(dc+(dj-1)*16 + (dk-1)*4) = A%:�dk:iV+=iU:�dj:�YY:�
b*���fU:hx=��ction_ReadIconText(Uk,Yg,15):hy=��ction_ReadIconText(Uk,Yg,19):ș&900C5,dq,UV �dc:dc+=4:dc+=(Zl-1)* 1024:hz=(Zi-Zg)+1:�hz=0 �hz=1
b�0iU=(hy-hx)/hz:iV=hx:�dj=Zg �Zi:�dj=Zi �iV=hy
b���dk=Zh-1 �Zj-1:A%=!(dc+(dj-1)*16 + (dk-1)*4):ș&90093,A% �dr:ds$=�ction_ExtractString(dr):iY$=�" "+�(�iV),2):�ds$,13,2)=iY$:ș&90094,ds$ �A%:!(dc+(dj-1)*16 + (dk-1)*4) = A%:�dk:iV+=iU:�dj:�YY:�
c�m��fV:iZ=��ction_ReadIconText(Uk,Yg,24):ș&900C5,dq,UV �dc:dc+=4:dc+=(Zl-1)* 1024:hz=(Zi-Zg)+1:�hz=0 �hz=1
d �ia=�(iZ/hz):ib=(iZ/hz)-ia:ic=0:id= ��:�dj=Zg �Zi:�dk=Zh-1 �Zj-1:A%=!(dc+(dj-1)*16 + (dk-1)*4):ș&90093,A% �dr:ds$=�ction_ExtractString(dr):ic+=ib:�ic>=1 �
d�ie=ia+(�ic):ic-=1
d� �:ie=ia
d��:�ie>15 �
eie=15:id=�
e(�:if$=�"00"+�(�ie),2):�iZ<0 �ig$="-"
e@�iZ>=0 �ig$="+"
eTd�ds$,18,1)=ig$:�ds$,19,2)=if$:ș&90094,ds$ �A%:!(dc+(dj-1)*16 + (dk-1)*4) = A%:�dk:�dj:�YY:�id �
e�QWw$=�ction_TagToString(Vk,"war09"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$,�, ��)
e��:�
f0���aW:ș&900C5,dq,UV �dc:ih=Zg:ii=Vw:ȕih<=Zi �ii<=64:ij=Zh:ik=Vx:ȕij<=Zj �ik<=4:il=dc+((Zl-1)*1024) + ((ih-1)*16) + ((ij-1)*4):im=dc+((Zm-1)*1024) + ((ii -1)*16) + ((ik -1)*4):!im=!il:ij+=1:ik+=1:�:ih+=1:ii+=1:�:�YZ(Uk,Wd):�YY:�
g*���aX:ș&900C5,dq,UV �dc:ih=Zg:ii=Vw:ȕih<=Zi �ii<=64:ij=Zh:ik=Vx:ȕij<=Zj �ik<=4:il=dc+((Zl-1)*1024) + ((ih-1)*16) + ((ij-1)*4):im=dc+((Zm-1)*1024) + ((ii -1)*16) + ((ik -1)*4):!im=!il:!il=0:ij+=1:ik+=1:�:ih+=1:ii+=1:�:�YZ(Uk,Wd):�YY:�
h.z��aY:ș&900C5,dq,UV �dc:dc+=(Zl-1)* 1024:�dj=Zg �Zi:�dk=Zh �Zj:!(dc+(dj-1)*16 + (dk-1)*4) = 0:�dk:�dj:�YZ(Uk,Wd):�YY:�
i
���aZ:ș&900C5,dq,UV �dc:ih=Zg:ii=Vw:ȕih<=Zi �ii<=64:ij=Zh:ik=Vx:ȕij<=Zj �ik<=4:il=dc+((Zl-1)*1024) + ((ih-1)*16) + ((ij-1)*4):im=dc+((Zm-1)*1024) + ((ii -1)*16) + ((ik -1)*4):�!il<>0 �!im=!il
i�0ij+=1:ik+=1:�:ih+=1:ii+=1:�:�YZ(Uk,Wd):�YY:�
kD��Vr(cs$):�Vq=0 �
kl�in(�):�aU(Uk,Wf,1,"")
k�V�:i=�ction_FindInstrument(cs$):Zy=i:�aU(Uk,Wf,1,cs$):�ction_WindowIsOpen(Uk,Wn) �
k� �Wo(Uk,Wm):�Wo(Uk,Wn):�cm
k��
l �:�
l\7��ct(bX$,io):�ction_InstrumentAlreadyLoaded(bX$) �
l�QWw$=�ction_TagToString(Vk,"err26"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
l��:�Vq=VX �
l�QWw$=�ction_TagToString(Vk,"err05"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
l��:Vq+=1:�io=-1 �
m ip=1:ȕVY$(ip)<>"":ip+=1:�
mB �:ip=io
mV6�:iq= ��:VY$(ip)=bX$:ș&900C2,bX$,UV �Wx,Wy:ȎWx �
m�K�0:iq=�:Ww$=�ction_TagToString(Vk,"err35")+�ction_LeafnameOnly(bX$)+�34
m�.�1:iq=�:Ww$=�ction_TagToString(Vk,"err36")
m�K�2:iq=�:Ww$=�ction_TagToString(Vk,"err37")+�ction_LeafnameOnly(bX$)+�34
m� �:�iq �
n aWz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�):VY$(ip)="":Vq-=1:�Vr(�ction_LeafnameOnly(VY$(Zy)))
n2*�:ș&900C5,Wy,UV �dc:VZ(ip)=Wy:�Vq=1 �
nn �in( ��)
nx �:ir=dc!(12+4):�ir<>!ea �
n��is$=�ction_TagToString(Vk,"war04"):it$=�ction_TagToString(Vk,"qual0"+�ir):iu$=�ction_TagToString(Vk,"war10"):Wz=�ction_ReportError(Uk,99,Ud$,is$+it$+iu$,�,�):�Wz=1 �
n�,!ea=ir:�Xi:�ction_WindowIsOpen(Uk,Wh) �
n��YZ(Uk,Wh)
n��
o�
o%�:� ��ction_WindowIsOpen(Uk,Wd) �
o,-�Xf(Uk,Wd):�We(Uk,Wd,Wf,0,0):�Xg(Wd,-1,0)
oJ+�:�Vr(�ction_LeafnameOnly(VY$(Vq))):�YY
o|�
o��
o��:�
o�ݤction_InstrumentAlreadyLoaded(bX$):�Zz$,i,iv:iv= ��:i=1:ȕi<=VX � �iv:Zz$=�ction_LeafnameOnly(VY$(i)):�Zz$=�ction_LeafnameOnly(bX$) �
p:iv=�
pD
�:i+=1
pX �:�:=iv
p�.��in(iw):�cf(Uk,Wf,1,iw):�cf(Uk,Wf,2,iw):�
q��Xo(XX,XY):�Vq>0 �
q4QVe=9:bm=0:bp=Uy+16*1024:bq=0:�bn("Instruments",224,44):�i=1 �32:�VY$(i)<>"" �
q�=�bt(�" "+�i,2)+":"+�ction_LeafnameOnly(VY$(i)),0,-1, ��)
q�+�:�i:!(Uy+bm-24)=128:ș&400D4,,Uy,XX,XY
q��:�
r.���ab(cs$):i=1:ȕ�ction_LeafnameOnly(VY$(i))<>cs$:i+=1:�:Wy=VZ(i):ș&900C4,Wy,UV �Wx:VY$(i)="":VZ(i)=0:i=1:�:ix$=�ction_LeafnameOnly(VY$(i)):i+=1:�ix$<>"" �i>VX:Vq-=1:�Vr(ix$):�YY:�Wo(Uk,Wn):�Wo(Uk,Wm):�ction_WindowIsOpen(Uk,Yb) �
s<�ch
sF�:�
s�E��Yo(iy):ș&900C5,VZ(Zy),UV �dc:iz=dc!(76+4):iW=iz+iy:�iW<0 �iW=0
s��iW>127 �iW=127
s�'dc!(76+4)=iW:�aU(Uk,Wm,9,�iW):�YY:�
t6R��Ym(iy):ș&900C5,VZ(Zy),UV �dc:jU=dc!(68+4):jV=dc!(72+4):jW=jU+iy:�jW<0 �jW=0
tr�jW>jX �jW=jX
t|�jW+jV>jX �jW=jU
t�2dc!(68+4)=jW:�aU(Uk,Wm,1,�jW):�YZ(Uk,Wn):�YY:�
t�R��Yn(iy):ș&900C5,VZ(Zy),UV �dc:jU=dc!(68+4):jV=dc!(72+4):jY=jV+iy:�jY<0 �jY=0
u&�jY>jX �jY=jX
u0�jY+jU>jX �jY=jV
u:2dc!(72+4)=jY:�aU(Uk,Wm,6,�jY):�YZ(Uk,Wn):�YY:�
u�=ݤction_FindInstrument(cs$):�i:i=1:iv= ��:�cs$="" �i=VX+1
u�5ȕ(�iv) �i<=VX:�ction_LeafnameOnly(VY$(i))=cs$ �
u�iv=�
u�
�:i+=1
v�:�:�i>VX �i=-1
v =i
v\���az:ș&900C5,VZ(Zy),UV �dc:jZ=dc!(76+4):jX=dc!(64+4):ja=dc!(68+4):jb=dc!(72+4):!fx=(jX/800)*4:!fy=at:!fz=ar:!fw=dc+80+4:!gW=dc+80+4+jX-1:!gU=((ja/jX)* 800/2 ) + 2:!gV=!gU+((jb/jX)* 800/2 ):jc=ar+(ja/jX*800):ba=(jb/jX*800):ș&400E6,15:ȓȐjc,at,ba,256
w$ �fv:�
wte��Yv(Yw,Yx):�jd(Uk,Wn,Yw,Yx):ș&900C5,VZ(Zy),UV �dc:jX=dc!(64+4):je=(jf%/800)*jX:jg=0:�je<0 �je=0
w��dc!(68+4)=je:dc!(72+4)=jg:Uk!0=Wn:Uk!4=7:Uk!8=Yw:Uk!12=Yx:Uk!16=Yw:Uk!20=Yx:Uk!24=Wn:ș&400CC,,Uk+24:Uk!24=Uk!28:Uk!28=Uk!32:Uk!32=Uk!36:Uk!36=Uk!40:ș&400D0,,Uk:�aU(Uk,Wm,1,�(�je)):�aU(Uk,Wm,6,�(�jg)):�
x�r��bV(XW):ș&900C5,VZ(Zy),UV �dc:dc!(68+4)=je:dc!(72+4)=jg:�aU(Uk,Wm,1,�(�je)):�aU(Uk,Wm,6,�(�jg)):�YZ(Uk,Wn):�
y6q��Wa:ș&400CF,,Uk:�jd(Uk,Wn,Uk!0,Uk!4):ș&900C5,VZ(Zy),UV �dc:jX=dc!(64+4):jg=(jf%/800)*jX:jg-=je:�jg<0 �jg=0
y�-jh=dc!(72+4):dc!(72+4)=jg:�(�jg)<>(�jh) �
y�6�aU(Uk,Wm,1,�(�je)):�aU(Uk,Wm,6,�(�jg)):�YZ(Uk,Wn)
y��:�
zD���cm:ș&900C5,VZ(Zy),UV �dc:�aU(Uk,Wm,13,��ction_ExtractString(dc+16+4),32)):ir=dc!(12+4):ji=dc!(68+4):jj=dc!(72+4):dp=dc!(76+4):ir$=�ction_TagToString(Vk,"qual0"+�ir):�es(Uk,Wm,�ction_ReadIconText(Uk,Wf,1)+" ("+ir$+")"):�aU(Uk,Wm,1,�ji)
z�K�aU(Uk,Wm,6,�jj):�aU(Uk,Wm,9,�dp):�Wc(Ui,Uk,Wm, ��):�We(Uk,Wm,Wn,8,4):�
{ ��Yp:ș&9008B �dx:�dx=-1 �
{>� �WU � �Vz �
{R�ș&9008C:�fp(Uk,Wm):ș&406C0:ș&900C5,VZ(Zy),UV �dc:ir=dc!(12+4):dz=dc!(76+4):eU=dc!(64+4):eV=dc!(68+4):eW=dc!(72+4):eX=dc+(80+4):eY=eX:eZ=eX+eU-132:Uk!(2048+0)=eX:Uk!(2048+4)=eX+eU-132:Uk!(2048+8)=eV:Uk!(2048+12)=eW:Uk!(2048+16)=dz:Uk!(2048+20)=-1
|$�Uk!(2048+24)=-1:Uk!(2048+28)=-1:ș&9008D,1,Uk+2048:ș&9008A,ir:ș&90084,�(!eb),�(!ec),�(!ed),�(!ee):ș&90083,!ef:ș&9008B:ș&90085,!eg,!eh,!ei,!ej:Uk!(2048+0)=1:Uk!(2048+4)=1:Uk!(2048+8)=4:Uk!(2048+12)=1
|��Uk!(2048+16)=2:Uk!(2048+20)=1:Uk!(2048+24)=4:Uk!(2048+28)=1:Uk!(2048+32)=3:Uk!(2048+36)=1:Uk!(2048+40)=4:Uk!(2048+44)=1:Uk!(2048+48)=4:Uk!(2048+52)=1:Uk!(2048+56)=4:Uk!(2048+60)=1:ș&90090,(Uk+2048):ș&90090,(Uk+2048+16)
|Ġș&90090,(Uk+2048+32):ș&90090,(Uk+2048+48):�:ș&90081,1 �ek:cY=ek!0:��(-113) �((cY<eY �cY>eZ) �eW=0):�:� ��(-113):ș&406C1:ș&9008C:ș&9008E,1:�Xe(Uk+2048)
}P�
}d�:�
~���cw(bX$):�Vp=VU �
~�QWw$=�ction_TagToString(Vk,"err04"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
j�:i=1:a$="":b$=�ction_LeafnameOnly(bX$):ȕi<=Vp �a$<>b$:a$=�ction_LeafnameOnly(VV$(i)):i+=1:�:�a$=b$ �
vOWw$=�ction_TagToString(Vk,"war01"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$,�,�)
�
�:Wz=1
�
�:�Wz=1 �
��ș&406C0:Vp+=1:jk=1:ȕVV$(jk)<>"":jk+=1:�:VV$(jk)=bX$:bX$+=".HQ_Library":ș&29,28,bX$,0,0 �,,,jl:�dW=0 �jl-1:ș&406C4,(dW/jl)*100:cy=9:dU=Uk:dV=1:dX=1*1024:ș&C,cy,bX$,dU,dV,dW,dX,"" �cy,cz,dU,dV,,dX,jm:jn$=�ction_ExtractString(Uk)
��(�ction_TypeOfFile(bX$+"."+jn$)=Ug �
��iș&D,&40,bX$+"."+jn$,0 �jo:ș&C,3,jo,Uk,16:jp=Uk!(8+4):ș&D,0,jo:Wx=�ction_AddToLinkedList(jn$,jp,jk)
�.0�:�dW:ș&406C2:�ction_WindowIsOpen(Uk,Wj) �
�t�YZ(Uk,Wj)
�~�
���
���:�
�����aa:Ve=8:bm=0:bp=Uy+16*1024:bq=0:�jq=1 �13:!(Uk+jq*8+0) = Uy + bm:cV$=�ction_TagToString(Vk,"inst"+�"00"+�jq,2)):�bn(�cV$,1,2),208,44):jr=�ction_NumberOfElementsInList:�js:i=1:jt=0:ȕi<jr:jp=�ction_ClassOfThisInstrument:�jp=jq �
��dju$=�ction_NameOfThisInstrument:jv=�ction_InstrumentsLibraryLink:jt+=1:�bt(�jv+":"+ju$,0,-1, ��)
��?�:�jw:i+=1:�:!(Uk+jq*8+4) = (jt = 0):�jt>0 �!(Uy+bm-24)=128
�Jw�jq:cp=Uy+bm:�bn("Instruments",288,44):�jq=1 �13:cV$=�ction_TagToString(Vk,"inst"+�"00"+�jq,2)):�jq=13 �jx=128�jx=0
��]�bt(�cV$,5,�cV$-5),jx,!(Uk+jq*8+0),!(Uk+jq*8+4)):�jq:ș&1C �XX,XY,jy:ș&400D4,,cp,XX,XY:�
�:H��Vo:A%=Uz:B%=Uz+32*1024:C%=0:�eq:Uz!0=0:Uz?15=0:Uz!16=0:jz=1:kU=0:�
��1ݤction_AddToLinkedList(ju$,jp,cr):�jz<1632 �
��lcY=Uz+kU:kV=1:iv= ��:kW=�ction_FirstFreeRecord:�:kX$=�ction_ExtractInstrumentName(cY+5):�ju$<kX$ �jz=1 �
�\iv=�:�kY(kV)
�z�:kZ=cY!16:cY+=kZ:kV+=1
���:�iv �kV>jz:�kV>jz �
�� �kY(kV)
��
�:Wx=�
� �:Wx= ��
�B �:=Wx
�t��kY(ka):�ka=1 �
�� �jz>1 �
��cY!0=kW-cY
��C�:kW!0=0:kW?4=jp:$(kW+5)=ju$:kW?15=cr:kW!16=kU-(kW-Uz):kU=kW-Uz
��:�ka>jz �
�<?cY!16=kW-cY:kW!0=cY-kW:kW?4=jp:$(kW+5)=ju$:kW?15=cr:kW!16=0
��[�:kb=cY+cY!0:kb!16=kW-kb:kW!0=kb-kW:kW?4=jp:$(kW+5)=ju$:kW?15=cr:kW!16=cY-kW:cY!0=kW-cY
��
�,
�:jz+=1:�
��7��kc(cr):�:cY=Uz+kU:kV=1:iv= ��:�:kd=cY?15:�kd=cr �
� cY?15=0:jz-=1:�kV=1 �
�NkU+=cY!16:!(Uz+kU)=0
�l�:�kV=jz �
��ke=cY+cY!0:ke!16=0
��3�:kb=cY+cY!0:kf=cY+cY!16:kb!16=kf-kb:kf!0=kb-kf
���
�
�:iv=�
�4=�:kZ=cY!16:cY+=kZ:kV+=1:�iv �kV>jz:� �iv �jz=1:�jz=1 ��Vo
���
��&ݤction_NumberOfElementsInList:=jz
�.��js:kg=Uz+kU:�
�`Lݤction_NameOfThisInstrument:ju$=�ction_ExtractInstrumentName(kg+5):=ju$
��'ݤction_ClassOfThisInstrument:=kg?4
��)ݤction_InstrumentsLibraryLink:=kg?15
����jw:kg+=kg!16:�
�2dݤction_ExtractInstrumentName(cY):�kh$:kh$="":ȕ?cY>31 �?cY<>255 ��kh$<10:kh$+=�?cY:cY+=1:�:=kh$
��9ݤction_FirstFreeRecord:dc=Uz:ȕdc?15<>0:dc+=20:�:=dc
�A��aw:ki=as-av:kj=at+av:i=1:ki-=i*48:�5:ȕ(i<=VU):�VV$(i)="" �
�rZx$=" - FREE - ":kk=2
��%�:Zx$=�VV$(i),10):kk=7+�(VW(i)*4)
��[�:x=ar:y=ki+32:ș&400E6,kk:ca$=�" "+�(i),3)+" : ..."+Zx$:�x,y:�ca$:i+=1:ki-=48:�:�4:�
�N���Xt(XW,kl):XX=XW!0:XY=XW!4:Uk!0=Wj:ș&400CC,,Uk:as=Uk!(12+4):av=Uk!(20+4):km=�(((XY-as)+av)):kn=((km) �48)+1:�kn<=VU �VV$(kn)<>"" �
���kl �VW()= ��
�� VW(kn)= �VW(kn):�YZ(Uk,Wj)
��:�
�f ��Xs:ko=1:ȕko<=VU:�VW(ko) �
�� �kc(ko):VV$(ko)="":Vp-=1
��#�:ko+=1:�:VW()= ��:�YZ(Uk,Wj):�
����cx(bX$,kp):�Va �
��OWw$=�ction_TagToString(Vk,"war08"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$,�,�)
�
�:Wz=1
�(
�:�Wz=1 �
�P�:kq=-1:���kr:�
�nLș&406C0:Zx$=�ction_PathnameOnly(bX$):Zz$=�ction_LeafnameOnly(bX$):�kp �
�� �ep=1 �VX:�VY$(ep)<>"" �
��%�ab(�ction_LeafnameOnly(VY$(ep)))
�� �:�ep
�� �:�kp �
��*ks=�ction_SizeOfFile(bX$+".MusicData")
�� �:ks=�ction_SizeOfFile(bX$)
�'�:� ��ction_AllocateMemory(ks+16) �
�6QWw$=�ction_TagToString(Vk,"err12"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
�T�:kt=�:jx=kt+ks:�kp �
��#�"Load "+bX$+".MusicData "+�~kt
���:�"Load "+bX$+" "+�~kt
��#�:jx!4=1*1024:Ww= ��:� �Ww ��ku
��� �Ww ��kv
��� �Ww ��kw
��� �Ww ��kx
��� �Ww ��ky
��� �Ww ��kz
�� �Ww ��lU
�� �Ww ��lV
� � �Ww ��lW
�0�Xi:� �Ww �kp ��lX
�N� �Ww ��lY
�b,�kp ��es(Uk,Wd,�ction_LeafnameOnly(bX$))
�l�kp ��aU(Uk,Xz,1,bX$)
�v�lZ
��%�:� ��ction_WindowIsOpen(Uk,Wd) �
��-�Xf(Uk,Wd):�We(Uk,Wd,Wf,0,0):�Xg(Wd,-1,0)
��S�:Uk!0=Wd:ș&400CB,,Uk:ș&400C6,,Uk:ș&400C5,,Uk:�We(Uk,Wd,Wf,0,0):�Xg(Wd,-1,0)
� �:Va= ��:ș&406C1:��
�R�:�
��|��kr:ș&406C2:Ww$=�ction_TagToString(Vk,"err11"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$+�$+" ("+Þ+")", ��,�):�kq<>-1 ��#kq
���
��ݤction_FindIFF(la,lb,lc$):ld$=�lc$,1,1):ld=(�ld$):le$=�lc$,2,1):le=(�le$)<<8:lf$=�lc$,3,1):lf=(�lf$)<<16:lg$=�lc$,4,1):lg=(�lg$)<<24:A%=ld+le+lf+lg:iv= ��:�:lh%=!la:�lh%=A% �
�tiv=�
�~�:la+=4:la+=!la:la+=4
�� �:�iv �(la>=lb):� �iv �la=-1
��=la
��Qݤction_NumberOfIFFs(li,lj,lc$):db=0:�:kh=�ction_FindIFF(li,lj,lc$):�kh<>-1 �
� db+=1:lk=kh!4:li=kh+8+lk
�2�:�kh=-1:=db
�d\ݤction_PointerToNthIFF(li,lj,lc$,ll):kV=0:�:li=�ction_FindIFF(li,lj,lc$):kV+=1:�kV<ll �
��lk=li!4:li=li+8+lk
���:�kV=ll:=li
�5��ku:lm=�ction_FindIFF(kt+4,jx-4,"Frmt"):�lm=-1 �
�"VWw$=�ction_TagToString(Vk,"err13"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�):Ww=�
�@�:�lm!8<>1.00*100 �
�TQWw$=�ction_TagToString(Vk,"err14"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
�h�
�r�:�
��5��kv:ln=�ction_FindIFF(kt+4,jx-4,"PMod"):�ln=-1 �
��VWw$=�ction_TagToString(Vk,"err15"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�):Ww=�
���:�ln!8<>1.00*100 �
��QWw$=�ction_TagToString(Vk,"err16"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
���
��:�
�05��kw:lo=�ction_FindIFF(kt+4,jx-4,"Titl"):�lo=-1 �
�NaWw$=�ction_TagToString(Vk,"err17"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�):lo$="<unknown>"
�l+�:lo$=��ction_ExtractString(lo+8),lo!4)
���:�aU(Uk,Zw,2,lo$):�
��5��kx:lp=�ction_FindIFF(kt+4,jx-4,"Auth"):�lp=-1 �
��aWw$=�ction_TagToString(Vk,"err18"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�):lp$="<unknown>"
��+�:lp$=��ction_ExtractString(lp+8),lp!4)
��:�aU(Uk,Zw,3,lp$):�
�45��ky:lq=�ction_FindIFF(kt+4,jx-4,"Rate"):�lq=-1 �
�RQWw$=�ction_TagToString(Vk,"err19"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
�f�:!ea=lq!8
�z�:�
��5��kz:lr=�ction_FindIFF(kt+4,jx-4,"Sped"):�lr=-1 �
��QWw$=�ction_TagToString(Vk,"err20"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
���:!fZ=lr!8
���:�
�5��lU:ls=�ction_FindIFF(kt+4,jx-4,"Ster"):�ls=-1 �
�.QWw$=�ction_TagToString(Vk,"err21"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
�B+�:!eg=ls?8:!eh=ls?9:!ei=ls?10:!ej=ls?11
�`�:�
��5��lV:lt=�ction_FindIFF(kt+4,jx-4,"Lnth"):�lt=-1 �
��VWw$=�ction_TagToString(Vk,"err22"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�):Ww=�
��
�:cl=lt!8
���:�
� 5��lW:lu=�ction_FindIFF(kt+4,jx-4,"Sqnc"):�lu=-1 �
� VWw$=�ction_TagToString(Vk,"err23"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�):Ww=�
�<9�:ș&900C5,fX,UV �dc:�i=1 �256:dc?(i-1)=lu?(8+i-1):�i
�n�:�
�����lX:lv=�ction_NumberOfIFFs(kt+4,jx-4,"Inst"):lw=1:ȕlw<=lv:dc=�ction_PointerToNthIFF(kt+4,jx-4,"Inst",lw):cs$=�ction_ExtractString(dc+9):lx=dc?8:�ction_DoesFileExist(bX$+".Instr'mnts."+cs$) �
��D�ct(bX$+".Instr'mnts."+cs$,lx):�Vr(�ction_LeafnameOnly(VY$(lx)))
��[�:Ww$=�ction_TagToString(Vk,"err38")+cs$+�34:Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
��:lw+=1:�:�
�TM��lY:ș&900C5,dq,UV �ly:lz=�ction_NumberOfIFFs(kt+4,jx-4,"Ptrn"):�lz>Vm �
��QWw$=�ction_TagToString(Vk,"err25"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
�¯�:lw=1:bx=lz:er()= ��:ȕlw<=lz:dc=�ction_PointerToNthIFF(kt+4,jx-4,"Ptrn",lw):dy=dc!8:mU=ly+(dy-1)* 1024:�mV=1 �1024-1�4:mU!(mV-1)=dc!(12+mV-1):�mV:er(lw)=�:lw+=1:�:�cu(1)
���:�
��5��Vh:ș&51 �mW:mX=�ction_ReadSlotSize:mY=0:mZ=�:�
��oݤction_AllocateMemory(ma):�mb,mc:�md,me,mf:�mg,Wx:mb=(ma �mW)+1:mc=mb* mW:�ction_ReadSizeOfFreePool>=ma �
�.Nmd=�ction_ReadSlotSize:me=md+ma:mf=�ction_SetSlotSize(me):mY+=ma:mg=�:Wx=�
�j �:Wx= ��
�~ �:=Wx
��;ݤction_AlignToPageSize(ma):mb=(ma �mW)+1:mc=mb* mW:=mc
��(��lZ:md=�ction_ReadSlotSize:�md>mX �
� "Wz=�ction_SetSlotSize(mX):mY=0
��:�
��A��cu(mh):Zm=mh:�aU(Uk,Wf,5,�Zm):�ction_WindowIsOpen(Uk,Wd) �
�,�YZ(Uk,Wd)
�6�:�
��C��Xp(XX,XY):Ve=10:bm=0:�bn("Patterns",96,44):�i=1 �!Vn:�er(i) �
���bo(�i,0,-1, ��)
��-�:�i:!(Uy+bm-24)=128:ș&400D4,,Uy,XX,XY:�
�����ax:ș&900C5,dq,UV �dc:ki=as-av:kj=at+av:i=1:ki-=i*44 + 56:!gg=ki:!hm=kj:!gh=as:!gm=at-48:!gi=1:!hf=dc+(Zm-1)* 1024:!ho=Vw:!hp=Vx:!hn=Vv:!hh=ar+1*16:!hq=Zg:!hr=Zh:!hs=Zi:!ht=Zj:!hu=Zk:!hv=Zl:!hw=Zm:�gd:�
��#ݤction_Insert_Pattern:�bx=Vm �
�
Wx= ��
�6�:i=1:ȕer(i):i+=1:�:er(i)=�:bx+=1:�cu(i):Wx=�:�YY
�� �:=Wx
��\��co:Ww$=�ction_TagToString(Vk,"war02"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$,�,�):�Wz=1 �
�<Tș&900C5,dq,UV �dc:dc=dc+(Zm-1)* 1024:A%=dc:B%=dc+1*1024:C%=0:�eq:�YZ(Uk,Wd):�YY
���:�
��O��cn:ș&900C5,dq,UV �mi:mj=mi+(Zm-1)* 1024:Wx=�ction_Insert_Pattern:� �Wx �
�@QWw$=�ction_TagToString(Vk,"err06"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
�^C�:mk=mi+(Zm-1)* 1024:�i=0 �1024-1�4:mk!i=mj!i:�i:�YZ(Uk,Wd):�YY
���:�
� ��ac:�bx=1 �
�DQWw$=�ction_TagToString(Vk,"err24"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
�bY�:Ww$=�ction_TagToString(Vk,"war05"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$,�,�):�Wz=1 �
���ș&900C5,dq,UV �dc:kt=dc+(Zm-1)* 1024:jx=dc+(bx)* 1024:ȕkt<jx-1024:!kt=kt!1024:kt+=4:�:ș&900C5,fX,UV �dc:ml=1:mm=1:ȕml<=cl:ff=(dc?(ml-1))+1:�ff>=Zm �ff-=1
�4 dc?(mm-1)=ff-1:�ff<>Zm-1 �
�H mm+=1
�R!�:ml+=1:�:cl=mm-1:�cl=0 �cl=1
��Ri=Zm:ȕi<bx:er(i)=er(i+1):i+=1:�:er(bx)= ��:bx-=1:�cu(1):�Ya(1):�YZ(Uk,Wd):�YY
�.�
�B�:�
��8��ak:mn=��ction_ReadIconText(Uk,ad,1):�mn<1 �mn>cl �
��QWw$=�ction_TagToString(Vk,"err28"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
����:ș&900C5,dq,UV �dc:dc+=(Zm-1)* 1024:A%=!(dc+(Vw-1)*16 + (Vx-1)*4):ș&90093,A% �dr:ds$=�ction_ExtractString(dr):�ds$,1,1)="J":�ds$,2,3)=�" "+�mn,3):�ds$,5,3)="T00":ș&90094,ds$ �A%:!(dc+(Vw-1)*16 + (Vx-1)*4) = A%:�YY
��*�:�Wo(Uk,ad):�YZ(Uk,Wd):�Xg(Wd,-1,0):�
�L��Vt:Ww= ��:�er(!Vn):er()= ��:er(1)=�:ș&900C3,!Vn*1024,UV �Wx,dq:ȎWx �
�r�0:Ww=�:Wy$="err31"
���1:Ww=�:Wy$="err32"
�� �:�Ww �
��RWw$=�ction_TagToString(Vk,Wy$):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�):Vc=�
��B�:ș&900C5,dq,UV �dc:A%=dc:B%=dc+!Vn*1024:C%=0:�eq:bx=1:�cu(1)
�:�:�
����Vl:kq=-1:�:���mo:�
��{kq=�"<HQTracker$Dir>.Prefs":�#kq,!eb,!eg:�#kq,!ec,!eh:�#kq,!ed,!ei:�#kq,!ee,!ej:�#kq,!fZ,!ef:�#kq,!ea,!Vn:�#kq:�Xi:��:�
�V��mo:�kq<>-1 ��#kq
�j[�mp:�Xi:Ww$=�ction_TagToString(Vk,"err01"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�):�
��0��Xh:kq=-1:�Wo(Uk,Wg):�Wo(Uk,Wh):�:���mq:�
���kq=�"<HQTracker$Dir>.Prefs":�Xj:�#kq,!eb,!eg:�#kq,!ec,!eh:�#kq,!ed,!ei:�#kq,!ee,!ej:�#kq,!fZ,!ef:�#kq,!ea,!Vn:�#kq:�"Stamp <HQTracker$Dir>.Prefs ":�"SetType <HQTracker$Dir>.Prefs Data":��:�
����mq:�kq<>-1 ��#kq
��SWw$=�ction_TagToString(Vk,"err02"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�):�
��m��mp:�mr,ms:mr=�:ms= �mr:!eb=mr:!eg=4:!ec=mr:!eh=4:!ed=mr:!ei=4:!ee=mr:!ej=4:!fZ=6:!ef=127:!ea=2:!Vn=64:�
�J���Xi:�mt(Uk,Wh,2,!eb):�mt(Uk,Wh,5,!ec):�mt(Uk,Wh,3,!ed):�mt(Uk,Wh,4,!ee):mu$=�ction_TagToString(Vk,"ster0"+�!eg):�aU(Uk,Wh,6,mu$):mu$=�ction_TagToString(Vk,"ster0"+�!eh):�aU(Uk,Wh,7,mu$):mu$=�ction_TagToString(Vk,"ster0"+�!ei):�aU(Uk,Wh,8,mu$)
���mu$=�ction_TagToString(Vk,"ster0"+�!ej):�aU(Uk,Wh,9,mu$):�aU(Uk,Wh,17,�!fZ):�aU(Uk,Wh,18,�!ef):ir$=�ction_TagToString(Vk,"qual0"+�!ea):�aU(Uk,Wh,25,ir$):�aU(Uk,Wh,32,�!Vn):�ction_WindowIsOpen(Uk,Wd) �
�D�YZ(Uk,Wd)
�N�:�
�����Xj:!eb=�ction_IconIsToggled(Uk,Wh,2):!ec=�ction_IconIsToggled(Uk,Wh,5):!ed=�ction_IconIsToggled(Uk,Wh,3):!ee=�ction_IconIsToggled(Uk,Wh,4):!eg=�ction_MessageIndex(�ction_ReadIconText(Uk,Wh,6),"ster0")
���!eh=�ction_MessageIndex(�ction_ReadIconText(Uk,Wh,7),"ster0"):!ei=�ction_MessageIndex(�ction_ReadIconText(Uk,Wh,8),"ster0"):!ej=�ction_MessageIndex(�ction_ReadIconText(Uk,Wh,9),"ster0"):!fZ=��ction_ReadIconText(Uk,Wh,17):�!fZ<1 �!fZ=1
� �!fZ>15 �!fZ=15
� 4!ef=��ction_ReadIconText(Uk,Wh,18):�!ef<1 �!ef=1
�4�!ef>127 �!ef=127
�Hs!ea=�ction_MessageIndex(�ction_ReadIconText(Uk,Wh,25),"qual0"):!Vn=��ction_ReadIconText(Uk,Wh,32):�!Vn<1 �!Vn=1
�p�!Vn>256 �!Vn=256
�� �Xi:�
��qݤction_MessageIndex(mv$,mw$):�dy,mx:dy=1:mx= ��:�:Wy$=�ction_TagToString(Vk,mw$+�dy):mx=mv$=Wy$:� �mx �dy+=1
� �mx:=dy
��"��Xw(bX$,my):�:kq=-1:���mz:�
��OZx$=�ction_PathnameOnly(bX$):Zz$=�ction_LeafnameOnly(bX$):�Zx$="" �Zz$="" �
��QWw$=�ction_TagToString(Vk,"err08"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
��'�:ș&20008,13,bX$ �cy:Wz=1:�cy<>0 �
�OWw$=�ction_TagToString(Vk,"war03"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$,�,�)
�(
�:�Wz=1 �
�<6�nU(bX$):�aU(Uk,Xv,1,bX$):� �my �ș&400D4,,-1:Ve=0
�Z�
�d
�:��:�
�����nU(bX$):dy=�ction_FindInstrument(�ction_ReadIconText(Uk,Wf,1)):ș&900C5,VZ(dy),UV �dc:eU=dc!(64+4):kt=dc:jx=kt+80+4+eU:�"Save "+bX$+" "+�~kt+" "+�~jx:�"Stamp "+bX$:�"SetType "+bX$+" HQ-Data":�
�,y��mz:Ww$=�ction_TagToString(Vk,"err07"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$+�$+" ("+Þ+")", ��,�):�kq<>-1 ��#kq:kq=-1
�T�
��"��Xy(bX$,my):�:kq=-1:���mz:�
��OZx$=�ction_PathnameOnly(bX$):Zz$=�ction_LeafnameOnly(bX$):�Zx$="" �Zz$="" �
��QWw$=�ction_TagToString(Vk,"err08"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
�'�:ș&20008,13,bX$ �cy:Wz=1:�cy<>0 �
�NOWw$=�ction_TagToString(Vk,"war03"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$,�,�)
�l
�:�Wz=1 �
��6�nV(bX$):�aU(Uk,Xx,1,bX$):� �my �ș&400D4,,-1:Ve=0
���
��
�:��:�
����nV(bX$):kq=�bX$:�nW("DATA"):�nW("Frmt"):�nX(4):�nX(1.00*100):�nW("PMod"):�nX(4):�nX(1.00*100):�nW("Titl"):�nX(32):�nW(��ction_ReadIconText(Uk,Zw,2)+�32,�0),32)):�nW("Auth"):�nX(32):�nW(��ction_ReadIconText(Uk,Zw,3)+�32,�0),32)):�nW("Rate"):�nX(4)
����nX(!ea):�nW("Sped"):�nX(4):�nX(!fZ):�nW("Ster"):�nX(4):�nY(!eg):�nY(!eh):�nY(!ei):�nY(!ej):�nW("Lnth"):�nX(4):�nX(cl):�nW("Sqnc"):�nX(256):ș&900C5,fX,UV �fY:�i=1 �256:�nY(fY?(i-1)):�i:�i=1 �VX:�VY$(i)<>"" �
��L�nW("Inst"):�nX(12):�nY(i):�nW(��ction_LeafnameOnly(VY$(i))+�11,�0),11))
��-�:�i:ș&900C5,dq,UV �nZ:�i=1 �bx:�er(i) �
�
P�nW("Ptrn"):�nX(1028):�nX(i):na=nZ+(i-1)*1024:�nb=1 �1024:�nY(na?(nb-1)):�nb
�ZP�:�i:kt=dc:jx=kt+(bx*1024):�#kq:�"Stamp "+bX$:�"SetType "+bX$+" HQ-Data":�
�+��YU(bX$,my):�:kq=-1:��ș&406C2:�mz:�
�6Xș&406C0:Zx$=�ction_PathnameOnly(bX$):Zz$=�ction_LeafnameOnly(bX$):�Zx$="" �Zz$="" �
�rQWw$=�ction_TagToString(Vk,"err08"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
��$�:�Zz$,1)<>"!" �Zz$="!"+�Zz$,9)
��5nc$=Zx$+"."+Zz$:ș&20008,13,bX$ �cy:Wz=1:�cy<>0 �
��OWw$=�ction_TagToString(Vk,"war03"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$,�,�)
�
�:�Wz=1 �
�0�nd$=�ction_ReadIconText(Uk,Xv,1):ne$=�ction_ReadIconText(Uk,Xx,1):�"CDir "+nc$:�"CDir "+nc$+".Instr'mnts":�nf:�ng:�nh:�nV(nc$+".MusicData"):ni$=�ction_ReadIconText(Uk,Wf,1):�nj=1 �VX:�VY$(nj)<>"" �
��Idn$=�ction_LeafnameOnly(VY$(nj)):�Vr(dn$):�nU(nc$+".Instr'mnts."+dn$)
����:�nj:�Vr(ni$):�aU(Uk,Xz,1,nc$):�aU(Uk,Xv,1,nd$):�aU(Uk,Xx,1,ne$):�es(Uk,Wd,�ction_LeafnameOnly(nc$)):Uk!0=Wd:ș&400CB,,Uk:ș&400C6,,Uk:ș&400C5,,Uk:�We(Uk,Wd,Wf,0,0):�Xg(Wd,-1,0):Va= ��:� �my �ș&400D4,,-1:Ve=0
���
���:ș&406C1:��:�
�8���nf:kq=�(nc$+"."+"!Help"):�nk("!Help"):�nk("====="):�nk(""):�nk("Application : "+Zz$):�nk("Purpose : HQ-Tracker music application"):�nk(""):�nk("� 1994 Mycroft Software"):�#kq:kq=-1:�"SetType "+nc$+"."+"!Help Text":�"Stamp "+nc$+"."+"!Help":�
�����ng:nl$=��$,5,2):nm$=��$,8,3):nn$=��$,12,4):no$=nl$+"-"+nm$+"-"+nn$:kq=�(nc$+"."+"!Run"):�nk("| !Run"):�nk("| For "+Zz$):�nk("|"):�nk("| � 1994 Mycroft Software ("+no$+")"):�nk("|"):�#kq:kq=-1:�"SetType "+nc$+"."+"!Run Obey"
�F �"Stamp "+nc$+"."+"!Run":�
�x���nh:�np(Uq,"!",Zz$):�np(Uq,"sm!","sm"+Zz$):�nq(Uq,nc$+"."+"!Sprites"):�np(Uq,Zz$,"!"):�np(Uq,"sm"+Zz$,"sm!"):�np(Us,"!",Zz$):�np(Us,"sm!","sm"+Zz$):�nq(Us,nc$+"."+"!Sprites22"):�np(Us,Zz$,"!"):�np(Us,"sm"+Zz$,"sm!"):�np(Uu,"!",Zz$)
�`�np(Uu,"sm!","sm"+Zz$):�nq(Uu,nc$+"."+"!Sprites23"):�np(Uu,Zz$,"!"):�np(Uu,"sm"+Zz$,"sm!"):�
�|?��nk(ca$):�i:i=1:ȕi<=�ca$:�#kq,��ca$,i,1):i+=1:�:�#kq,10:�
��7��nW(ca$):�i:i=1:ȕi<=�ca$:�#kq,��ca$,i,1):i+=1:�:�
�Nb��nX(nr%):�#kq,((nr%) �&FF):�#kq,((nr%>>8) �&FF):�#kq,((nr%>>16) �&FF):�#kq,((nr%>>24) �&FF):�
����nY(ns%):�#kq,ns%:�
�pW��YX:ș&900C5,fX,UV �dc:A%=dc:B%=dc+256:C%=0:�eq:cl=1:�ction_WindowIsOpen(Uk,Wl) �
��ck=1:�cj:�YZ(Uk,Wl)
���:�
�8Y��ay:ki=as-av:kj=at+av:i=1:�5:ș&900C5,fX,UV �dc:ȕ(i<=cl):x=ar+32-au:y=ki+48:�i=ck �
��ș&400E6,11
���:ș&400E6,7
��B�:nt=dc?(i-1)+1:ca$=�nt:�x-(�ca$*16),y:�ca$:i+=1:ar+=64:�:�4:�
à���Ya(XW):XX=XW!0:XY=XW!4:Uk!0=Wl:ș&400CC,,Uk:ar=Uk!(0+4):as=Uk!(12+4):av=Uk!(20+4):nu=�(((XX-ar)+au)):nv=((nu) �64)+1:�nv<=cl �
�6ck=nv:�YZ(Uk,Wl)
�^�:�
Į��YV(iy):�cl=256 �
��QWw$=�ction_TagToString(Vk,"err09"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
���:ș&900C5,fX,UV �dc:nw=�(�ction_ReadIconText(Uk,Wk,1))-1:�nx=cl �ck�-1:dc?nx=dc?(nx-1):�nx:dc?(ck+iy)=nw:cl+=1:�cj:�YZ(Uk,Wl):�YY
�:�
��"��cj:ba=cl* 64:�ba<332 �ba=332
� �ny(Uk,Wl,0,ba,0,96):�
�R��YW:�cl=1 �
�zQWw$=�ction_TagToString(Vk,"err10"):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�)
ƘW�:ș&900C5,fX,UV �dc:nz=ck:ȕnz<cl:dc?(nz-1)=dc?nz:nz+=1:�:cl-=1:�cj:�YZ(Uk,Wl):�YY
�8�:�
Lj-��Vu:Ww= ��:ș&900C3,256,UV �Wx,fX:ȎWx �
���0:Ww=�:Wy$="err33"
���1:Ww=�:Wy$="err34"
�� �:�Ww �
�RWw$=�ction_TagToString(Vk,Wy$):Wz=�ction_ReportError(Uk,99,Ud$,Ww$, ��,�):Vc=�
�<�:�YX:ck=1
�n�:�
�:Oݤction_WidthOfSprite(oU,oV$):ș&2E,256+40,oU,oV$ �,,,dV,dW,dX,jm:oW=dV:=oW
�vPݤction_HeightOfSprite(oU,oV$):ș&2E,256+40,oU,oV$ �,,,dV,dW,dX,jm:oX=dW:=oX
ʲNݤction_ModeOfSprite(oU,oV$):ș&2E,256+40,oU,oV$ �,,,dV,dW,dX,jm:oY=jm:=oY
��Pݤction_SpriteHasMask(oU,oV$):ș&2E,256+40,oU,oV$ �,,,dV,dW,dX,jm:oZ=-dX:=oY
�*fݤction_SpriteHasPalette(oU,oV$):oa=�ction_PointerToSpriteControlBlock(oU,oV$):ob=oa!32:�ob=11*4 �
�R
oc= ��
�\�:oc=oa+11*4
�p �:=oc
˘+ݤction_NumberOfSpritesInArea(oU):=oU!4
�sݤction_NameOfNthSprite(oU,n):od=oU+oU!8:oe=1:ȕoe<n:of=od!0:od+=of:oe+=1:�:=��ction_ExtractString(od+4),12)+�0
�B]ݤction_PointerToSpriteData(oU,oV$):ș&2E,256+24,oU,oV$ �,,dU:og=dU:ob=og!32:oh=og+ob:=oh
̒[ݤction_PointerToMaskData(oU,oV$):ș&2E,256+24,oU,oV$ �,,dU:og=dU:oi=og!36:oj=og+oi:=oj
��Sݤction_PointerToSpriteControlBlock(oU,oV$):ș&2E,256+24,oU,oV$ �,,dU:ok=dU:=ok
� &��nq(oU,bX$):ș&2E,256+12,oU,bX$:�
�P&��bf(oU,bX$):ș&2E,256+10,oU,bX$:�
͂0��be(oU,ol):oU!0=ol:oU!8=16:ș&2E,256+9,oU:�
��bݤction_ReadSpritePixel(oU,oV$,x,y):�om,on:ș&2E,256+41,oU,oV$,x,y �,,,,,dX,jm:om=dX:on=jm:=om
�:��oo(oU,oV$,x,y,om,on):ș&2E,256+42,oU,oV$,x,y,om,on:�
�J.��np(oU,oV$,op$):ș&2E,256+26,oU,oV$,op$:�
�|&��bg(oU,oV$):ș&2E,256+25,oU,oV$:�
ήGݤction_SpritesType:oq=1:ș&6,161,133 �,,or:or=(or>>2) �3:�(or=2) �
��oq=3
�0�:ș&35,-1,4 �,,os:ș&35,-1,5 �,,ot:�os=ot �
�&oq=2
�0�
�: �:=oq
�b���ou(oU,oV$,bX$):�ov,ow,i,ox:ov=�bX$:ow=�ction_PointerToSpriteControlBlock(oU,oV$):iy=ow!0:ox=(3*4) + iy:�#ov,1:�#ov,0:�#ov,0:�#ov,0:�#ov,16:�#ov,0:�#ov,0:�#ov,0:�#ov,((ox) �&FF):�#ov,((ox>>8) �&FF):�#ov,((ox>>16) �&FF):�#ov,((ox>>24) �&FF)
�ړ�i=0 �iy-1�4:�#ov,(((ow!i)) �&FF):�#ov,(((ow!i)>>8) �&FF):�#ov,(((ow!i)>>16) �&FF):�#ov,(((ow!i)>>24) �&FF):�i:�#ov:�"SetType "+bX$+" Sprite":�
�6Wݤction_InitialiseTask(oy,oz$):�cy,cz:ș&400C0,oy,&4B534154,oz$+�0 �cy,cz:pU=cz:=pU
�|!��Wv(pU):ș&400DD,pU,"TASK":�
Ӯ�ݤction_ReportError(XU,pV,cV$,Ww$,pW,pX):�cX,cz,pY:XU+=1024:$XU=cV$+�0:XU!32=pV:$(XU+36)=Ww$+�0:cX=(�pW*2^0)+(�pX*2^1):ș&400DF,XU+32,cX,XU �,cz:pY=cz:=pY
�0&��Wc(XW,XU,Xa,pZ):�pZ= �� �Xa=Wf �
�X)XU!0=Xa:ș&400CB,,XU:�Xa=Yq �XU!28=-1
Ԋș&400C5,,XU
Ԟ6�:ș&400CB,,XU:pa=XU!28:pb=XW!0:�XW!28=-1 �pa=-1 �
��
Ȏpb �
��Wd:XW!28=Wf
��Wm:XW!28=Wn
� �Wi:XW!28=Wj
��Wk:XW!28=Wl
� �Wg:XW!28=Wh
�*�
�4�:ș&400C5,,XW
�\�:�
Վ<��Wo(XU,Xa):ș&400CF,,XU:pc=XU!8:�(Xa=Wd �Xa=Wf) �pc=1 �
լDpd$=�ction_PathnameOnly(�ction_ReadIconText(Uk,Xz,1)):�pd$<>"" �
��"Filer_OpenDir "+pd$
���:� ��(-1) �
��XU!0=Xa:ș&400C6,,XU
���
��:� �(Xa=Yj �WU) �
�XU!0=Xa:ș&400C6,,XU
�$�
�.�:�
�VS��Xf(XU,Xa):�ba,bb,pe,pf,pg,ph:XU!0=Xa:ș&400CC,,XU:ba=�XU!52:�ba>1280 �ba=1280
ֈ bb=�XU!48:�bb>476 �bb=476
֒�XU!0=4:XU!4=5:XU!8=11:XU!12=12:XU!16=-1:ș&31,XU,XU+32:pe=XU!32:pf=XU!36:pg=XU!40:ph=XU!44:x=pg* 2^pe :y=ph* 2^pf:x=(x-ba) �2:y=(y-bb) �2:XU!(0)=Xa:XU!(4+0)=x:XU!(4+4)=y:XU!(4+8)=XU!(4+0)+ba:XU!(4+12)=XU!(4+4)+bb:XU!28=-1:ș&400C5,,XU:�
�2M��ny(XU,Xa,pi,pj,pk,pl):XU!0=pi:XU!4=pk:XU!8=pj:XU!12=pl:ș&400D7,Xa,XU:�
[ݤction_WindowIsOpen(XU,Xa):�pm,pn:XU!0=Xa:ș&400CB,,XU:pm=XU!32:pn=(pm �2^16)=2^16:=pn
����YZ(XU,Xa):�ba,bb,po,pp:�pq,pr,ps,pt:XU!0=Xa:ș&400CC,,XU:ba=XU!12-Uk!4:bb=XU!16-XU!8:po=XU!20:pp=XU!24:pq=po:pt=pp:ps=pt-bb:pr=pq+ba:ș&400D1,Xa,pq,ps,pr,pt:�
�h@��pu(XU,Xa,XV):XU!0=Xa:XU!4=XV:XU!8=0:XU!12=0:ș&400CD,,XU:�
��-��Xg(Xa,XV,pv):ș&400D2,Xa,XV,0,0,-1,pv:�
��%��aV:ș&400D2,-1,-1,-1,-1,-1,-1:�
�&nݤction_ReadIconText(XU,Xa,XV):�cX,pw,ca$:XU!0=Xa:XU!4=XV:ș&400CE,,XU:cX=XU!(8+16):pw=(cX �2^8)=2^8:�pw �
�v'ca$=�ction_ExtractString(XU!(8+20))
ـ'�:ca$=�ction_ExtractString(XU+8+20)
ٔ
�:=ca$
ټ^��aU(XU,Xa,XV,px$):�cX,pw:XU!0=Xa:XU!4=XV:ș&400CE,,XU:cX=XU!(8+16):pw=(cX �2^8)=2^8:�pw �
� $(XU!(8+20))=px$
��:$(XU+8+20)=px$
�*3�:XU!0=Xa:XU!4=XV:XU!8=0:XU!12=0:ș&400CD,,XU:�
ڄ��al(py):ș&400DC,py:�
ڶIݤction_ExtractString(cY):�kh$:kh$="":ȕ?cY>31:kh$+=�?cY:cY+=1:�:=kh$
�*��bj(XU,bX$):$XU=bX$+�0:ș&400D9,,XU:�
�V�ݤction_LoadTemplate(pz,qU,qV,qW$,qX):�dU,qY,qZ,qa,qb:ș&400DB,,pz,qU,qV,-1,qW$,0 �,,dU:qY=pz!84:qZ=dU:qa=0:ȕqa<qY:qb=pz+88+qa*32:�(qb!16 �&103)=&102 �qb!24=qX
��qa+=1:�:=qZ
�<ݤction_MakeTemplateAWindow(pz):�Xa:ș&400C1,,pz �Xa:=Xa
�2��bl:ș&400DA:�
�d<ݤction_PollWimp(XW,qc):�cy:ș&400C7,qc,XW �cy:qd=cy:=qd
ܪKݤction_SetSlotSize(qe):�cy,cz,dU,qf:ș&400EC,qe,-1 �cy,cz,dU:qf=cy:=qf
��Hݤction_ReadSlotSize:�cy,cz,dU,qf:ș&400EC,-1,-1 �cy,cz,dU:qf=cy:=qf
�6Nݤction_ReadSizeOfFreePool:�cy,cz,dU,qg:ș&400EC,-1,-1 �cy,cz,dU:qg=dU:=qg
�|���Xe(XU):�pe,pf,pg,ph:XU!0=4:XU!4=5:XU!8=11:XU!12=12:XU!16=-1:ș&31,XU,XU+32:pe=XU!32:pf=XU!36:pg=XU!40:ph=XU!44:ȗȓ0,0,pg*2^pe,ph*2^pf:�
��l��fp(XU,Xa):�ba,bb,pe,pf,pg,ph:!XU=Xa:ș&400CC,,XU:Zr=XU!4:Zs=XU!8:ba=�XU!52:bb=�XU!48:ȗȓZr,Zs,ba,bb:�
�X���qh(XU,Xa,XV,qi,qj):!XU=Xa:ș&400CC,,XU:qk=XU!4:ql=XU!8:qm=XU!12:qn=XU!16:XU!0=Xa:XU!4=XV:ș&400CE,,XU:qo=XU!8:qp=XU!12:qq=XU!16:qr=XU!20:qs=qq-qo:qt=qr-qp:ar=qk+qo:at=qn+qp:ȗȓar+qi,at+qj,qs-qi*2,qt-qj*2:�
�h��jd(XU,Xa,XX,XY):!XU=Xa:ș&400CC,,XU:qu=XU!4-XU!20:qv=XU!16-XU!24:qu=XX-qu:qv=qv-XY:jf%=qu:qw%=qv:�
�p���We(XU,Xa,qx,qi,qj):XU!0=Xa:ș&400CC,,XU:qy=XU!4:Zp=XU!12:qz=XU!8:Zq=XU!16:rU=XU!28:XU!0=qx:ș&400CC,,XU:bb=�(XU!16-XU!8):XU!4=qy+qi:XU!12=Zp-qi:XU!16=Zq-qj:XU!8=XU!16-bb:XU!28=rU:ș&400C5,,XU:�
�<ݤction_DepthOfWindow(XU,Xa):XU!0=Xa:ș&400CC,,XU:=XU!28
�8)ݤction_WordAlign(rV):=((rV+3) �(�3))
�`[ݤction_InstallHelp:ș&1E,6,,,16 �,,dU:Vk=dU:ș&41501,Vk,"<"+Ud$+"$Dir>.Messages",0:=Vk
�&��Wu(rW):ș&41504,rW:ș&1E,7,,rW:�
��iݤction_TagToString(rW,Wy$):ș&41502,rW,Wy$,0,0,0,0,0,0 �,,dU:dr=dU:rX$=�ction_ExtractString(dr):=rX$
�(Z��rY(rZ,ra,rb):rc=rZ:rd=ra:re=rb:WV=4:�qh(Uk,rc,re,16,0):ș&1C �Yw,Yx,rf:rg=Yw-1:�rh:�
���rh:Ȏrc �
���ri:Ȏre �
��3�2:rj=�ction_DragABar(rj,2):�rk(�(64*(rl/100)))
���
���:�
�3ݤction_DragABar(ra,rb):ș&1C �Yw,Yx,rf:�rf=0 �
�hWV=0:�Xe(Uk)
��:�Yw<>rg �
�!Uk=rc:ș&400CC,,Uk:qk=Uk!4:rm=Yw-qk:Uk!0=rc:Uk!4=ra:ș&400CE,,Uk:qo=Uk!(8+0):qp=Uk!(8+4):qq=Uk!(8+8):qr=Uk!(8+12):Uk!(100+0)=rc:Uk!(100+4)=ra:ș&400C4,,Uk+100:ș&400D1,rc,qo,qp,qq,qr:Uk!(8+8)=rm:Uk!4=rc:ș&400C2,,Uk+4 �ra:�pu(Uk,rc,ra):Uk!0=rc
��?Uk!4=re:ș&400CE,,Uk:rn=Uk!(8+8)-16:rg=Yw:rl=�((rm/rn)*100)
� �
� �:=ra
�R[ݤction_GetWindowTitle(XU,Xa):�cX:!XU=Xa:ș&400CC,,XU:=�ction_ExtractString(!(XU+4+72))
�R��es(XU,Xa,ro$):�cX,pw:!XU=Xa:ș&400CC,,XU:cX=XU!(4+56):pw=(cX �2^8)=2^8:�pw �
��$dc=!(XU+4+72):$!(XU+4+72)=ro$+�0
���:$(XU+4+72)=px$+�0
��:�
�.Q��mt(XU,Xa,XV,iw):XU!0=Xa:XU!4=XV:XU!8=(� �iw)<<21:XU!12=1<<21:ș&400CD,,XU:�
�O��cf(XU,Xa,XV,rp):XU!0=Xa:XU!4=XV:XU!8=(�rp)<<22:XU!12=1<<22:ș&400CD,,XU:�
��aݤction_IconIsToggled(XU,Xa,XV):XU!0=Xa:XU!4=XV:ș&400CE,,XU:rq=(XU!(8+16)) �2^21:=�(rq=2^21)
�2C��Xk(XU,Xa,XV):�mt(XU,Xa,XV, ��ction_IconIsToggled(XU,Xa,XV)):�
�d2ݤction_WindowWithCaret(XU):ș&400D3,,XU:=XU!0
�0ݤction_IconWithCaret(XU):ș&400D3,,XU:=XU!4
��T��Xn(XU,Xa,XV,iy,rr,rs):iV=��ction_ReadIconText(XU,Xa,XV):rt=iV+iy:�rt<rr �rt=rr
���rt>rs �rt=rs
� �rt<>iV ��aU(XU,Xa,XV,�rt)
��
�"7ݤction_PathnameOnly(bX$):�bX$="" ��bX$,".")=0 �=""
�60�i:i=�bX$:ȕ�bX$,i,1)<>".":i-=1:�:=�bX$,i-1)
�*ݤction_LeafnameOnly(bX$):�bX$="" �=""
�:�i:i=�bX$:ȕ�bX$,i,1)<>"." �i>0:i-=1:�:=�bX$,i+1,�bX$)
��Uݤction_DecodeMenuIntoText(ru,rv,rw):ș&400D5,,ru,rv,rw:=�ction_ExtractString(rw)
� M��dv(XU,Xa,nu,km):XU!0=Xa:ș&400CB,,XU:XU!20+=nu:XU!24+=km:ș&400C5,,XU:�
� 00000000 0d 00 3c 33 55 56 3d 2d 31 3a ee 85 eb eb 3a f1 |..<3UV=-1:....:.|
00000010 22 46 61 74 61 6c 20 45 72 72 6f 72 20 3a 20 22 |"Fatal Error : "|
00000020 3b f6 24 3b 22 20 61 74 20 4c 69 6e 65 20 22 3b |;.$;" at Line ";|
00000030 9e 3a e0 0d 00 64 0d f2 55 57 3a ee 85 f2 55 58 |.:...d..UW:...UX|
00000040 0d 00 82 09 f2 55 59 3a e0 0d 00 b4 fe dd f2 55 |.....UY:.......U|
00000050 57 3a 55 5a 3d 34 3a 55 61 3d 32 3a 55 62 3d 31 |W:UZ=4:Ua=2:Ub=1|
00000060 3a 55 63 3d 2d 32 3a 55 64 24 3d 22 48 51 54 72 |:Uc=-2:Ud$="HQTr|
00000070 61 63 6b 65 72 22 3a 55 65 24 3d 22 48 51 54 72 |acker":Ue$="HQTr|
00000080 61 63 6b 65 72 22 3a 55 66 3d 26 32 30 30 30 3a |acker":Uf=&2000:|
00000090 55 67 3d 26 33 45 30 3a 55 68 3d 34 2a 31 30 32 |Ug=&3E0:Uh=4*102|
000000a0 34 20 3a de 55 69 20 55 68 3a 55 6a 3d 34 2a 31 |4 :.Ui Uh:Uj=4*1|
000000b0 30 32 34 20 3a de 55 6b 20 55 6a 3a 55 6c 3d 31 |024 :.Uk Uj:Ul=1|
000000c0 31 2a 31 30 32 34 20 3a de 55 6d 20 55 6c 3a 55 |1*1024 :.Um Ul:U|
000000d0 6e 3d 37 2a 31 30 32 34 20 3a de 55 6f 20 55 6e |n=7*1024 :.Uo Un|
000000e0 3a 55 70 3d 35 2a 31 30 32 34 20 3a de 55 71 20 |:Up=5*1024 :.Uq |
000000f0 55 70 3a 55 72 3d 38 2a 31 30 32 34 20 3a de 55 |Up:Ur=8*1024 :.U|
00000100 73 20 55 72 3a 55 74 3d 34 2a 31 30 32 34 20 3a |s Ur:Ut=4*1024 :|
00000110 de 55 75 20 55 74 3a 55 76 3d 38 2a 31 30 32 34 |.Uu Ut:Uv=8*1024|
00000120 20 3a de 55 77 20 55 76 3a 55 78 3d 33 32 2a 31 | :.Uw Uv:Ux=32*1|
00000130 30 32 34 20 3a de 55 79 20 55 78 3a de 55 7a 20 |024 :.Uy Ux:.Uz |
00000140 33 32 2a 31 30 32 34 0d 01 c2 fd 56 55 3d 31 32 |32*1024....VU=12|
00000150 3a de 56 56 24 28 56 55 29 3a de 56 57 28 56 55 |:.VV$(VU):.VW(VU|
00000160 29 3a 56 58 3d 33 32 3a de 56 59 24 28 56 58 29 |):VX=32:.VY$(VX)|
00000170 3a de 56 5a 28 56 58 29 3a 56 61 3d 20 ac b9 3a |:.VZ(VX):Va= ..:|
00000180 56 62 3d 30 3a 56 63 3d 20 ac b9 3a 56 64 3d a4 |Vb=0:Vc= ..:Vd=.|
00000190 63 74 69 6f 6e 5f 49 6e 69 74 69 61 6c 69 73 65 |ction_Initialise|
000001a0 54 61 73 6b 28 32 2a 31 30 30 2c 55 65 24 29 3a |Task(2*100,Ue$):|
000001b0 56 65 3d 30 3a f2 56 66 3a f2 56 67 3a f2 56 68 |Ve=0:.Vf:.Vg:.Vh|
000001c0 3a f2 56 69 3a 56 6a 3d a4 63 74 69 6f 6e 5f 49 |:.Vi:Vj=.ction_I|
000001d0 63 6f 6e 62 61 72 53 70 72 69 74 65 28 55 6b 29 |conbarSprite(Uk)|
000001e0 3a 56 6b 3d a4 63 74 69 6f 6e 5f 49 6e 73 74 61 |:Vk=.ction_Insta|
000001f0 6c 6c 48 65 6c 70 3a f2 56 6c 3a 56 6d 3d 21 56 |llHelp:.Vl:Vm=!V|
00000200 6e 3a f2 56 6f 3a 56 70 3d 30 3a 56 56 24 28 29 |n:.Vo:Vp=0:VV$()|
00000210 3d 22 22 3a 56 57 28 29 3d 20 ac b9 3a 56 71 3d |="":VW()= ..:Vq=|
00000220 30 3a 56 59 24 28 29 3d 22 22 3a 56 5a 28 29 3d |0:VY$()="":VZ()=|
00000230 30 3a f2 56 72 28 22 3c 4e 6f 6e 65 21 3e 22 29 |0:.Vr("<None!>")|
00000240 3a f2 56 73 0d 02 e4 0b e7 20 ac 56 63 20 8c 0d |:.Vs..... .Vc ..|
00000250 02 ee 0f f2 56 74 3a e7 20 ac 56 63 20 8c 0d 03 |....Vt:. .Vc ...|
00000260 02 0f f2 56 75 3a e7 20 ac 56 63 20 8c 0d 03 16 |...Vu:. .Vc ....|
00000270 2b 56 76 3d 20 ac b9 3a 56 77 3d 31 3a 56 78 3d |+Vv= ..:Vw=1:Vx=|
00000280 31 3a f2 56 79 3a 56 7a 3d 20 ac b9 3a 57 55 3d |1:.Vy:Vz= ..:WU=|
00000290 20 ac b9 3a 57 56 3d 30 0d 03 5c 05 cd 0d 03 66 | ..:WV=0..\....f|
000002a0 05 cd 0d 03 70 07 cd 3a e1 0d 03 a2 2f dd f2 55 |....p..:..../..U|
000002b0 59 3a f2 57 57 3a f5 3a 57 58 3d a4 63 74 69 6f |Y:.WW:.:WX=.ctio|
000002c0 6e 5f 50 6f 6c 6c 57 69 6d 70 28 55 69 2c 56 62 |n_PollWimp(Ui,Vb|
000002d0 29 3a c8 8e 57 58 20 ca 0d 03 d4 0f c9 30 3a e7 |):..WX ......0:.|
000002e0 56 7a 20 8c f2 57 59 0d 03 de 0c e7 57 55 20 8c |Vz ..WY.....WU .|
000002f0 f2 57 5a 0d 03 e8 0e e7 57 56 3d 33 20 8c f2 57 |.WZ.....WV=3 ..W|
00000300 61 0d 03 f2 0e c9 31 3a f2 57 62 28 55 69 29 0d |a.....1:.Wb(Ui).|
00000310 03 fc 1e c9 32 3a f2 57 63 28 55 69 2c 55 6b 2c |....2:.Wc(Ui,Uk,|
00000320 2d 31 2c b9 29 3a c8 8e 21 55 69 20 ca 0d 04 10 |-1,.):..!Ui ....|
00000330 19 c9 57 64 3a f2 57 65 28 55 6b 2c 57 64 2c 57 |..Wd:.We(Uk,Wd,W|
00000340 66 2c 30 2c 30 29 0d 04 1a 19 c9 57 67 3a f2 57 |f,0,0).....Wg:.W|
00000350 65 28 55 6b 2c 57 67 2c 57 68 2c 38 2c 38 29 0d |e(Uk,Wg,Wh,8,8).|
00000360 04 24 19 c9 57 69 3a f2 57 65 28 55 6b 2c 57 69 |.$..Wi:.We(Uk,Wi|
00000370 2c 57 6a 2c 38 2c 38 29 0d 04 2e 1d c9 57 6b 3a |,Wj,8,8).....Wk:|
00000380 f2 57 65 28 55 6b 2c 57 6b 2c 57 6c 2c 38 2c 31 |.We(Uk,Wk,Wl,8,1|
00000390 36 34 2b 38 29 0d 04 38 19 c9 57 6d 3a f2 57 65 |64+8)..8..Wm:.We|
000003a0 28 55 6b 2c 57 6d 2c 57 6e 2c 38 2c 34 29 0d 04 |(Uk,Wm,Wn,8,4)..|
000003b0 42 05 cb 0d 04 4c 1b c9 33 3a f2 57 6f 28 55 6b |B....L..3:.Wo(Uk|
000003c0 2c 55 69 21 30 29 3a c8 8e 21 55 69 20 ca 0d 04 |,Ui!0):..!Ui ...|
000003d0 60 12 c9 57 64 3a f2 57 6f 28 55 6b 2c 57 66 29 |`..Wd:.Wo(Uk,Wf)|
000003e0 0d 04 6a 12 c9 57 67 3a f2 57 6f 28 55 6b 2c 57 |..j..Wg:.Wo(Uk,W|
000003f0 68 29 0d 04 74 12 c9 57 69 3a f2 57 6f 28 55 6b |h)..t..Wi:.Wo(Uk|
00000400 2c 57 6a 29 0d 04 7e 12 c9 57 6b 3a f2 57 6f 28 |,Wj)..~..Wk:.Wo(|
00000410 55 6b 2c 57 6c 29 0d 04 88 12 c9 57 6d 3a f2 57 |Uk,Wl).....Wm:.W|
00000420 6f 28 55 6b 2c 57 6e 29 0d 04 92 05 cb 0d 04 9c |o(Uk,Wn)........|
00000430 0e c9 36 3a f2 57 70 28 55 69 29 0d 04 a6 0e c9 |..6:.Wp(Ui).....|
00000440 37 3a f2 57 71 28 55 69 29 0d 04 b0 0e c9 38 3a |7:.Wq(Ui).....8:|
00000450 f2 57 72 28 55 69 29 0d 04 ba 0e c9 39 3a f2 57 |.Wr(Ui).....9:.W|
00000460 73 28 55 69 29 0d 04 c4 0f c9 31 37 3a f2 57 74 |s(Ui).....17:.Wt|
00000470 28 55 69 29 0d 04 ce 0f c9 31 38 3a f2 57 74 28 |(Ui).....18:.Wt(|
00000480 55 69 29 0d 04 d8 3d cb 3a fd 56 63 3a f2 57 75 |Ui)...=.:.Vc:.Wu|
00000490 28 56 6b 29 3a f2 57 76 28 56 64 29 3a c8 99 26 |(Vk):.Wv(Vd):..&|
000004a0 39 30 30 43 36 2c 55 56 3a c8 99 26 32 30 30 32 |900C6,UV:..&2002|
000004b0 41 2c 31 2c 2d 34 30 39 36 2a 31 30 32 34 3a e1 |A,1,-4096*1024:.|
000004c0 0d 05 32 2d dd f2 56 73 3a 57 77 3d 20 ac b9 3a |..2-..Vs:Ww= ..:|
000004d0 c8 99 26 39 30 30 43 31 2c 33 32 2b 31 2b 31 20 |..&900C1,32+1+1 |
000004e0 b8 57 78 2c 55 56 3a c8 8e 57 78 20 ca 0d 05 5a |.Wx,UV:..Wx ...Z|
000004f0 17 c9 30 3a 57 77 3d b9 3a 57 79 24 3d 22 65 72 |..0:Ww=.:Wy$="er|
00000500 72 32 39 22 0d 05 6e 17 c9 31 3a 57 77 3d b9 3a |r29"..n..1:Ww=.:|
00000510 57 79 24 3d 22 65 72 72 33 30 22 0d 05 82 0b cb |Wy$="err30".....|
00000520 3a e7 57 77 20 8c 0d 05 96 58 57 77 24 3d a4 63 |:.Ww ....XWw$=.c|
00000530 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 |tion_TagToString|
00000540 28 56 6b 2c 57 79 24 29 3a 57 7a 3d a4 63 74 69 |(Vk,Wy$):Wz=.cti|
00000550 6f 6e 5f 52 65 70 6f 72 74 45 72 72 6f 72 28 55 |on_ReportError(U|
00000560 6b 2c 39 39 2c 55 64 24 2c 57 77 24 2c 20 ac b9 |k,99,Ud$,Ww$, ..|
00000570 2c b9 29 3a 56 63 3d b9 3a 55 56 3d 2d 31 0d 05 |,.):Vc=.:UV=-1..|
00000580 be 07 cd 3a e1 0d 06 04 7a dd a4 63 74 69 6f 6e |...:....z..ction|
00000590 5f 49 63 6f 6e 62 61 72 53 70 72 69 74 65 28 58 |_IconbarSprite(X|
000005a0 55 29 3a 58 55 21 30 3d 2d 31 3a 58 55 21 34 3d |U):XU!0=-1:XU!4=|
000005b0 30 3a 58 55 21 38 3d 30 3a 58 55 21 31 32 3d 36 |0:XU!8=0:XU!12=6|
000005c0 38 3a 58 55 21 31 36 3d 36 38 3a 58 55 21 32 30 |8:XU!16=68:XU!20|
000005d0 3d 26 33 30 30 32 3a 24 28 58 55 2b 32 34 29 3d |=&3002:$(XU+24)=|
000005e0 22 21 22 2b 55 64 24 2b bd 30 3a c8 99 26 34 30 |"!"+Ud$+.0:..&40|
000005f0 30 43 32 2c 2c 58 55 20 b8 58 56 3a 3d 58 56 0d |0C2,,XU .XV:=XV.|
00000600 06 7c 3d dd f2 57 70 28 58 57 29 3a 58 58 3d 58 |.|=..Wp(XW):XX=X|
00000610 57 21 30 3a 58 59 3d 58 57 21 34 3a 58 5a 3d 58 |W!0:XY=XW!4:XZ=X|
00000620 57 21 38 3a 58 61 3d 58 57 21 31 32 3a 58 56 3d |W!8:Xa=XW!12:XV=|
00000630 58 57 21 31 36 3a c8 8e 58 5a 20 ca 0d 06 c2 0e |XW!16:..XZ .....|
00000640 c9 55 5a 3a c8 8e 58 61 20 ca 0d 06 cc 0f c9 58 |.UZ:..Xa ......X|
00000650 62 3a e7 58 56 3d 33 20 8c 0d 06 d6 12 f2 57 6f |b:.XV=3 ......Wo|
00000660 28 55 6b 2c 58 61 29 3a f2 58 63 0d 06 ea 05 cd |(Uk,Xa):.Xc.....|
00000670 0d 06 f4 0f c9 58 64 3a e7 58 56 3d 35 20 8c 0d |.....Xd:.XV=5 ..|
00000680 06 fe 16 f2 57 6f 28 55 6b 2c 58 61 29 3a f2 58 |....Wo(Uk,Xa):.X|
00000690 65 28 55 6b 29 0d 07 12 05 cd 0d 07 1c 10 c9 55 |e(Uk)..........U|
000006a0 63 3a e7 58 56 3d 56 6a 20 8c 0d 07 26 2d f2 58 |c:.XV=Vj ...&-.X|
000006b0 66 28 55 6b 2c 57 64 29 3a f2 57 65 28 55 6b 2c |f(Uk,Wd):.We(Uk,|
000006c0 57 64 2c 57 66 2c 30 2c 30 29 3a f2 58 67 28 57 |Wd,Wf,0,0):.Xg(W|
000006d0 64 2c 2d 31 2c 30 29 0d 07 44 05 cd 0d 07 4e 0e |d,-1,0)..D....N.|
000006e0 c9 57 67 3a c8 8e 58 56 20 ca 0d 07 58 0a c9 30 |.Wg:..XV ...X..0|
000006f0 3a f2 58 68 0d 07 62 20 c9 31 3a f2 57 6f 28 55 |:.Xh..b .1:.Wo(U|
00000700 6b 2c 57 67 29 3a f2 57 6f 28 55 6b 2c 57 68 29 |k,Wg):.Wo(Uk,Wh)|
00000710 3a f2 58 69 0d 07 80 20 c9 32 3a f2 57 6f 28 55 |:.Xi... .2:.Wo(U|
00000720 6b 2c 57 67 29 3a f2 57 6f 28 55 6b 2c 57 68 29 |k,Wg):.Wo(Uk,Wh)|
00000730 3a f2 58 6a 0d 07 9e 05 cb 0d 07 a8 0e c9 57 68 |:.Xj..........Wh|
00000740 3a c8 8e 58 56 20 ca 0d 07 b2 1a c9 32 2c 35 2c |:..XV ......2,5,|
00000750 33 2c 34 3a f2 58 6b 28 55 6b 2c 57 68 2c 58 56 |3,4:.Xk(Uk,Wh,XV|
00000760 29 0d 07 bc 20 c9 31 30 2c 31 31 2c 31 32 2c 31 |)... .10,11,12,1|
00000770 33 3a f2 58 6c 28 58 58 2c 58 59 2c 58 56 2d 37 |3:.Xl(XX,XY,XV-7|
00000780 29 0d 07 c6 14 c9 32 36 3a f2 58 6d 28 58 58 2c |).....26:.Xm(XX,|
00000790 58 59 2c 37 29 0d 07 d0 1d c9 33 30 3a f2 58 6e |XY,7).....30:.Xn|
000007a0 28 55 6b 2c 57 68 2c 31 37 2c 2b 31 2c 31 2c 31 |(Uk,Wh,17,+1,1,1|
000007b0 35 29 0d 07 da 1d c9 33 31 3a f2 58 6e 28 55 6b |5).....31:.Xn(Uk|
000007c0 2c 57 68 2c 31 37 2c 2d 31 2c 31 2c 31 35 29 0d |,Wh,17,-1,1,15).|
000007d0 07 e4 1e c9 32 30 3a f2 58 6e 28 55 6b 2c 57 68 |....20:.Xn(Uk,Wh|
000007e0 2c 31 38 2c 2b 31 2c 31 2c 31 32 37 29 0d 07 ee |,18,+1,1,127)...|
000007f0 1e c9 32 31 3a f2 58 6e 28 55 6b 2c 57 68 2c 31 |..21:.Xn(Uk,Wh,1|
00000800 38 2c 2d 31 2c 31 2c 31 32 37 29 0d 07 f8 1e c9 |8,-1,1,127).....|
00000810 33 33 3a f2 58 6e 28 55 6b 2c 57 68 2c 33 32 2c |33:.Xn(Uk,Wh,32,|
00000820 2b 31 2c 31 2c 32 35 36 29 0d 08 02 1e c9 33 34 |+1,1,256).....34|
00000830 3a f2 58 6e 28 55 6b 2c 57 68 2c 33 32 2c 2d 31 |:.Xn(Uk,Wh,32,-1|
00000840 2c 31 2c 32 35 36 29 0d 08 0c 05 cb 0d 08 20 0e |,1,256)....... .|
00000850 c9 57 66 3a c8 8e 58 56 20 ca 0d 08 2a 11 c9 32 |.Wf:..XV ...*..2|
00000860 3a f2 58 6f 28 58 58 2c 58 59 29 0d 08 34 11 c9 |:.Xo(XX,XY)..4..|
00000870 36 3a f2 58 70 28 58 58 2c 58 59 29 0d 08 3e 11 |6:.Xp(XX,XY)..>.|
00000880 c9 38 3a f2 58 71 28 58 58 2c 58 59 29 0d 08 48 |.8:.Xq(XX,XY)..H|
00000890 10 7f 3a 56 76 3d 20 ac b9 3a f2 58 72 0d 08 66 |..:Vv= ..:.Xr..f|
000008a0 05 cb 0d 08 7a 0e c9 57 69 3a c8 8e 58 56 20 ca |....z..Wi:..XV .|
000008b0 0d 08 84 0a c9 30 3a f2 58 73 0d 08 8e 1c c9 31 |.....0:.Xs.....1|
000008c0 3a f2 57 6f 28 55 6b 2c 57 69 29 3a f2 57 6f 28 |:.Wo(Uk,Wi):.Wo(|
000008d0 55 6b 2c 57 6a 29 0d 08 a2 05 cb 0d 08 ac 11 c9 |Uk,Wj)..........|
000008e0 57 6a 3a f2 58 74 28 55 69 2c b9 29 0d 08 c0 15 |Wj:.Xt(Ui,.)....|
000008f0 c9 57 64 3a e7 20 ac 57 55 20 80 20 ac 57 55 20 |.Wd:. .WU . .WU |
00000900 8c 0d 08 ca 14 56 76 3d b9 3a f2 58 72 3a f2 58 |.....Vv=.:.Xr:.X|
00000910 75 28 55 69 29 0d 08 e8 05 cd 0d 08 fc 34 c9 58 |u(Ui)........4.X|
00000920 76 3a e7 58 56 3d 32 20 8c f2 58 77 28 a4 63 74 |v:.XV=2 ..Xw(.ct|
00000930 69 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 65 78 74 |ion_ReadIconText|
00000940 28 55 6b 2c 58 76 2c 31 29 2c 20 ac b9 29 0d 09 |(Uk,Xv,1), ..)..|
00000950 06 34 c9 58 78 3a e7 58 56 3d 32 20 8c f2 58 79 |.4.Xx:.XV=2 ..Xy|
00000960 28 a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f 6e |(.ction_ReadIcon|
00000970 54 65 78 74 28 55 6b 2c 58 78 2c 31 29 2c 20 ac |Text(Uk,Xx,1), .|
00000980 b9 29 0d 09 10 34 c9 58 7a 3a e7 58 56 3d 32 20 |.)...4.Xz:.XV=2 |
00000990 8c f2 59 55 28 a4 63 74 69 6f 6e 5f 52 65 61 64 |..YU(.ction_Read|
000009a0 49 63 6f 6e 54 65 78 74 28 55 6b 2c 58 7a 2c 31 |IconText(Uk,Xz,1|
000009b0 29 2c 20 ac b9 29 0d 09 1a 0e c9 57 6b 3a c8 8e |), ..).....Wk:..|
000009c0 58 56 20 ca 0d 09 24 17 c9 32 3a f2 58 70 28 58 |XV ...$..2:.Xp(X|
000009d0 58 2c 58 59 29 3a 56 65 3d 31 31 0d 09 38 0d c9 |X,XY):Ve=11..8..|
000009e0 33 3a f2 59 56 28 30 29 0d 09 42 0e c9 34 3a f2 |3:.YV(0)..B..4:.|
000009f0 59 56 28 2d 31 29 0d 09 4c 0a c9 35 3a f2 59 57 |YV(-1)..L..5:.YW|
00000a00 0d 09 56 5a c9 36 3a 57 77 24 3d a4 63 74 69 6f |..VZ.6:Ww$=.ctio|
00000a10 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 56 6b |n_TagToString(Vk|
00000a20 2c 22 77 61 72 30 36 22 29 3a 57 7a 3d a4 63 74 |,"war06"):Wz=.ct|
00000a30 69 6f 6e 5f 52 65 70 6f 72 74 45 72 72 6f 72 28 |ion_ReportError(|
00000a40 55 6b 2c 39 39 2c 55 64 24 2c 57 77 24 2c b9 2c |Uk,99,Ud$,Ww$,.,|
00000a50 b9 29 3a e7 57 7a 3d 31 20 8c 0d 09 74 16 f2 59 |.):.Wz=1 ...t..Y|
00000a60 58 3a f2 59 59 3a f2 59 5a 28 55 6b 2c 57 6c 29 |X:.YY:.YZ(Uk,Wl)|
00000a70 0d 09 92 05 cd 0d 09 9c 05 cb 0d 09 a6 0f c9 57 |...............W|
00000a80 6c 3a f2 59 61 28 55 69 29 0d 09 c4 0e c9 59 62 |l:.Ya(Ui).....Yb|
00000a90 3a c8 8e 58 56 20 ca 0d 09 ce 18 c9 30 3a f2 58 |:..XV ......0:.X|
00000aa0 6b 28 55 6b 2c 58 61 2c 58 56 29 3a f2 59 63 0d |k(Uk,Xa,XV):.Yc.|
00000ab0 09 e2 18 c9 36 3a f2 58 6b 28 55 6b 2c 58 61 2c |....6:.Xk(Uk,Xa,|
00000ac0 58 56 29 3a f2 59 63 0d 09 f6 19 c9 31 32 3a f2 |XV):.Yc.....12:.|
00000ad0 58 6b 28 55 6b 2c 58 61 2c 58 56 29 3a f2 59 63 |Xk(Uk,Xa,XV):.Yc|
00000ae0 0d 0a 0a 17 c9 32 3a f2 58 6f 28 58 58 2c 58 59 |.....2:.Xo(XX,XY|
00000af0 29 3a 56 65 3d 31 32 0d 0a 1e 17 c9 35 3a f2 58 |):Ve=12.....5:.X|
00000b00 6f 28 58 58 2c 58 59 29 3a 56 65 3d 31 33 0d 0a |o(XX,XY):Ve=13..|
00000b10 32 14 c9 38 3a f2 59 64 28 58 58 2c 58 59 2c 31 |2..8:.Yd(XX,XY,1|
00000b20 34 29 0d 0a 3c 15 c9 31 31 3a f2 59 64 28 58 58 |4)..<..11:.Yd(XX|
00000b30 2c 58 59 2c 31 35 29 0d 0a 46 15 c9 31 34 3a f2 |,XY,15)..F..14:.|
00000b40 59 65 28 58 58 2c 58 59 2c 31 36 29 0d 0a 50 15 |Ye(XX,XY,16)..P.|
00000b50 c9 31 37 3a f2 59 65 28 58 58 2c 58 59 2c 31 37 |.17:.Ye(XX,XY,17|
00000b60 29 0d 0a 5a 0e c9 31 38 3a f2 59 66 28 b9 29 0d |)..Z..18:.Yf(.).|
00000b70 0a 64 05 cb 0d 0a 78 0e c9 59 67 3a c8 8e 58 56 |.d....x..Yg:..XV|
00000b80 20 ca 0d 0a 82 18 c9 30 3a f2 58 6b 28 55 6b 2c | ......0:.Xk(Uk,|
00000b90 58 61 2c 58 56 29 3a f2 59 68 0d 0a 96 18 c9 36 |Xa,XV):.Yh.....6|
00000ba0 3a f2 58 6b 28 55 6b 2c 58 61 2c 58 56 29 3a f2 |:.Xk(Uk,Xa,XV):.|
00000bb0 59 68 0d 0a aa 19 c9 31 34 3a f2 58 6b 28 55 6b |Yh.....14:.Xk(Uk|
00000bc0 2c 58 61 2c 58 56 29 3a f2 59 68 0d 0a be 19 c9 |,Xa,XV):.Yh.....|
00000bd0 32 33 3a f2 58 6b 28 55 6b 2c 58 61 2c 58 56 29 |23:.Xk(Uk,Xa,XV)|
00000be0 3a f2 59 68 0d 0a d2 14 c9 32 3a f2 58 6c 28 58 |:.Yh.....2:.Xl(X|
00000bf0 58 2c 58 59 2c 31 38 29 0d 0a dc 14 c9 35 3a f2 |X,XY,18).....5:.|
00000c00 58 6c 28 58 58 2c 58 59 2c 31 39 29 0d 0a e6 1c |Xl(XX,XY,19)....|
00000c10 c9 38 3a f2 58 6e 28 55 6b 2c 58 61 2c 37 2c 2b |.8:.Xn(Uk,Xa,7,+|
00000c20 31 2c 30 2c 31 32 37 29 0d 0a f0 1c c9 39 3a f2 |1,0,127).....9:.|
00000c30 58 6e 28 55 6b 2c 58 61 2c 37 2c 2d 31 2c 30 2c |Xn(Uk,Xa,7,-1,0,|
00000c40 31 32 37 29 0d 0a fa 1e c9 31 32 3a f2 58 6e 28 |127).....12:.Xn(|
00000c50 55 6b 2c 58 61 2c 31 31 2c 2b 31 2c 30 2c 31 32 |Uk,Xa,11,+1,0,12|
00000c60 37 29 0d 0b 04 1e c9 31 33 3a f2 58 6e 28 55 6b |7).....13:.Xn(Uk|
00000c70 2c 58 61 2c 31 31 2c 2d 31 2c 30 2c 31 32 37 29 |,Xa,11,-1,0,127)|
00000c80 0d 0b 0e 1d c9 31 36 3a f2 58 6e 28 55 6b 2c 58 |.....16:.Xn(Uk,X|
00000c90 61 2c 31 35 2c 2b 31 2c 31 2c 31 35 29 0d 0b 18 |a,15,+1,1,15)...|
00000ca0 1d c9 31 37 3a f2 58 6e 28 55 6b 2c 58 61 2c 31 |..17:.Xn(Uk,Xa,1|
00000cb0 35 2c 2d 31 2c 31 2c 31 35 29 0d 0b 22 1d c9 32 |5,-1,1,15).."..2|
00000cc0 30 3a f2 58 6e 28 55 6b 2c 58 61 2c 31 39 2c 2b |0:.Xn(Uk,Xa,19,+|
00000cd0 31 2c 31 2c 31 35 29 0d 0b 2c 1d c9 32 31 3a f2 |1,1,15)..,..21:.|
00000ce0 58 6e 28 55 6b 2c 58 61 2c 31 39 2c 2d 31 2c 31 |Xn(Uk,Xa,19,-1,1|
00000cf0 2c 31 35 29 0d 0b 36 0e c9 32 32 3a f2 59 69 28 |,15)..6..22:.Yi(|
00000d00 b9 29 0d 0b 4a 22 c9 32 37 3a f2 58 6e 28 55 6b |.)..J".27:.Xn(Uk|
00000d10 2c 58 61 2c 32 34 2c 2b 31 2c 2d 39 39 39 2c 2b |,Xa,24,+1,-999,+|
00000d20 39 39 39 29 0d 0b 54 22 c9 32 38 3a f2 58 6e 28 |999)..T".28:.Xn(|
00000d30 55 6b 2c 58 61 2c 32 34 2c 2d 31 2c 2d 39 39 39 |Uk,Xa,24,-1,-999|
00000d40 2c 2b 39 39 39 29 0d 0b 68 22 c9 32 39 3a f2 58 |,+999)..h".29:.X|
00000d50 6e 28 55 6b 2c 58 61 2c 32 36 2c 2b 31 2c 2d 39 |n(Uk,Xa,26,+1,-9|
00000d60 39 39 2c 2b 39 39 39 29 0d 0b 72 22 c9 33 30 3a |99,+999)..r".30:|
00000d70 f2 58 6e 28 55 6b 2c 58 61 2c 32 36 2c 2d 31 2c |.Xn(Uk,Xa,26,-1,|
00000d80 2d 39 39 39 2c 2b 39 39 39 29 0d 0b 86 05 cb 0d |-999,+999)......|
00000d90 0b 9a 0e c9 59 6a 3a c8 8e 58 56 20 ca 0d 0b a4 |....Yj:..XV ....|
00000da0 14 c9 31 3a f2 58 6b 28 55 6b 2c 58 61 2c 58 56 |..1:.Xk(Uk,Xa,XV|
00000db0 29 0d 0b ae 0a c9 38 3a f2 59 6b 0d 0b b8 0a c9 |).....8:.Yk.....|
00000dc0 39 3a f2 59 6c 0d 0b c2 05 cb 0d 0b d6 0e c9 57 |9:.Yl..........W|
00000dd0 6d 3a c8 8e 58 56 20 ca 0d 0b e0 0e c9 32 3a f2 |m:..XV ......2:.|
00000de0 59 6d 28 2b 31 29 0d 0b ea 0e c9 33 3a f2 59 6d |Ym(+1).....3:.Ym|
00000df0 28 2d 31 29 0d 0b f4 0e c9 34 3a f2 59 6e 28 2b |(-1).....4:.Yn(+|
00000e00 31 29 0d 0b fe 0e c9 35 3a f2 59 6e 28 2d 31 29 |1).....5:.Yn(-1)|
00000e10 0d 0c 08 0f c9 31 30 3a f2 59 6f 28 2b 31 29 0d |.....10:.Yo(+1).|
00000e20 0c 12 0f c9 31 31 3a f2 59 6f 28 2d 31 29 0d 0c |....11:.Yo(-1)..|
00000e30 1c 1d c9 31 32 3a f2 57 6f 28 55 6b 2c 57 6d 29 |...12:.Wo(Uk,Wm)|
00000e40 3a f2 57 6f 28 55 6b 2c 57 6e 29 0d 0c 30 0b c9 |:.Wo(Uk,Wn)..0..|
00000e50 31 34 3a f2 59 70 0d 0c 3a 05 cb 0d 0c 4e 0e c9 |14:.Yp..:....N..|
00000e60 59 71 3a c8 8e 58 56 20 ca 0d 0c 62 13 c9 30 3a |Yq:..XV ...b..0:|
00000e70 f2 59 72 28 22 43 20 22 2c 2b 30 29 0d 0c 6c 13 |.Yr("C ",+0)..l.|
00000e80 c9 31 3a f2 59 72 28 22 44 20 22 2c 2b 30 29 0d |.1:.Yr("D ",+0).|
00000e90 0c 76 13 c9 32 3a f2 59 72 28 22 45 20 22 2c 2b |.v..2:.Yr("E ",+|
00000ea0 30 29 0d 0c 80 13 c9 33 3a f2 59 72 28 22 46 20 |0).....3:.Yr("F |
00000eb0 22 2c 2b 30 29 0d 0c 8a 13 c9 34 3a f2 59 72 28 |",+0).....4:.Yr(|
00000ec0 22 47 20 22 2c 2b 30 29 0d 0c 94 13 c9 35 3a f2 |"G ",+0).....5:.|
00000ed0 59 72 28 22 41 20 22 2c 2b 30 29 0d 0c 9e 13 c9 |Yr("A ",+0).....|
00000ee0 36 3a f2 59 72 28 22 42 20 22 2c 2b 30 29 0d 0c |6:.Yr("B ",+0)..|
00000ef0 a8 14 c9 31 34 3a f2 59 72 28 22 43 23 22 2c 2b |...14:.Yr("C#",+|
00000f00 30 29 0d 0c b2 14 c9 31 35 3a f2 59 72 28 22 44 |0).....15:.Yr("D|
00000f10 23 22 2c 2b 30 29 0d 0c bc 14 c9 31 36 3a f2 59 |#",+0).....16:.Y|
00000f20 72 28 22 46 23 22 2c 2b 30 29 0d 0c c6 14 c9 31 |r("F#",+0).....1|
00000f30 37 3a f2 59 72 28 22 47 23 22 2c 2b 30 29 0d 0c |7:.Yr("G#",+0)..|
00000f40 d0 14 c9 31 38 3a f2 59 72 28 22 41 23 22 2c 2b |...18:.Yr("A#",+|
00000f50 30 29 0d 0c e4 13 c9 37 3a f2 59 72 28 22 43 20 |0).....7:.Yr("C |
00000f60 22 2c 2b 31 29 0d 0c ee 13 c9 38 3a f2 59 72 28 |",+1).....8:.Yr(|
00000f70 22 44 20 22 2c 2b 31 29 0d 0c f8 13 c9 39 3a f2 |"D ",+1).....9:.|
00000f80 59 72 28 22 45 20 22 2c 2b 31 29 0d 0d 02 14 c9 |Yr("E ",+1).....|
00000f90 31 30 3a f2 59 72 28 22 46 20 22 2c 2b 31 29 0d |10:.Yr("F ",+1).|
00000fa0 0d 0c 14 c9 31 31 3a f2 59 72 28 22 47 20 22 2c |....11:.Yr("G ",|
00000fb0 2b 31 29 0d 0d 16 14 c9 31 32 3a f2 59 72 28 22 |+1).....12:.Yr("|
00000fc0 41 20 22 2c 2b 31 29 0d 0d 20 14 c9 31 33 3a f2 |A ",+1).. ..13:.|
00000fd0 59 72 28 22 42 20 22 2c 2b 31 29 0d 0d 34 14 c9 |Yr("B ",+1)..4..|
00000fe0 31 39 3a f2 59 72 28 22 43 23 22 2c 2b 31 29 0d |19:.Yr("C#",+1).|
00000ff0 0d 3e 14 c9 32 30 3a f2 59 72 28 22 44 23 22 2c |.>..20:.Yr("D#",|
00001000 2b 31 29 0d 0d 48 14 c9 32 31 3a f2 59 72 28 22 |+1)..H..21:.Yr("|
00001010 46 23 22 2c 2b 31 29 0d 0d 52 14 c9 32 32 3a f2 |F#",+1)..R..22:.|
00001020 59 72 28 22 47 23 22 2c 2b 31 29 0d 0d 5c 14 c9 |Yr("G#",+1)..\..|
00001030 32 33 3a f2 59 72 28 22 41 23 22 2c 2b 31 29 0d |23:.Yr("A#",+1).|
00001040 0d 70 05 cb 0d 0d 84 05 cb 0d 0d 8e 0e c9 55 61 |.p............Ua|
00001050 3a c8 8e 58 61 20 ca 0d 0d 98 17 c9 55 63 3a e7 |:..Xa ......Uc:.|
00001060 58 56 3d 56 6a 20 8c f2 59 73 28 58 58 29 0d 0d |XV=Vj ..Ys(XX)..|
00001070 a2 12 c9 57 64 3a f2 59 74 28 58 58 2c 58 59 29 |...Wd:.Yt(XX,XY)|
00001080 0d 0d ac 05 cb 0d 0d b6 0e c9 55 62 3a c8 8e 58 |..........Ub:..X|
00001090 61 20 ca 0d 0d c0 0e c9 57 67 3a c8 8e 58 56 20 |a ......Wg:..XV |
000010a0 ca 0d 0d ca 0a c9 30 3a f2 58 68 0d 0d d4 20 c9 |......0:.Xh... .|
000010b0 31 3a f2 57 6f 28 55 6b 2c 57 67 29 3a f2 57 6f |1:.Wo(Uk,Wg):.Wo|
000010c0 28 55 6b 2c 57 68 29 3a f2 58 69 0d 0d f2 0a c9 |(Uk,Wh):.Xi.....|
000010d0 32 3a f2 58 6a 0d 0d fc 05 cb 0d 0e 06 0e c9 57 |2:.Xj..........W|
000010e0 68 3a c8 8e 58 56 20 ca 0d 0e 10 1a c9 32 2c 35 |h:..XV ......2,5|
000010f0 2c 33 2c 34 3a f2 58 6b 28 55 6b 2c 57 68 2c 58 |,3,4:.Xk(Uk,Wh,X|
00001100 56 29 0d 0e 1a 05 cb 0d 0e 24 0e c9 57 66 3a c8 |V).......$..Wf:.|
00001110 8e 58 56 20 ca 0d 0e 2e 20 c9 34 3a f2 58 6b 28 |.XV .... .4:.Xk(|
00001120 55 6b 2c 58 61 2c 58 56 29 3a 56 76 3d 20 ac 56 |Uk,Xa,XV):Vv= .V|
00001130 76 3a f2 58 72 0d 0e 4c 05 cb 0d 0e 56 13 c9 57 |v:.Xr..L....V..W|
00001140 6a 3a f2 58 74 28 55 69 2c 20 ac b9 29 0d 0e 60 |j:.Xt(Ui, ..)..`|
00001150 32 c9 58 76 3a e7 58 56 3d 32 20 8c f2 58 77 28 |2.Xv:.XV=2 ..Xw(|
00001160 a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 |.ction_ReadIconT|
00001170 65 78 74 28 55 6b 2c 58 76 2c 31 29 2c b9 29 0d |ext(Uk,Xv,1),.).|
00001180 0e 6a 32 c9 58 78 3a e7 58 56 3d 32 20 8c f2 58 |.j2.Xx:.XV=2 ..X|
00001190 79 28 a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f |y(.ction_ReadIco|
000011a0 6e 54 65 78 74 28 55 6b 2c 58 78 2c 31 29 2c b9 |nText(Uk,Xx,1),.|
000011b0 29 0d 0e 74 32 c9 58 7a 3a e7 58 56 3d 32 20 8c |)..t2.Xz:.XV=2 .|
000011c0 f2 59 55 28 a4 63 74 69 6f 6e 5f 52 65 61 64 49 |.YU(.ction_ReadI|
000011d0 63 6f 6e 54 65 78 74 28 55 6b 2c 58 7a 2c 31 29 |conText(Uk,Xz,1)|
000011e0 2c b9 29 0d 0e 7e 0e c9 57 6d 3a c8 8e 58 56 20 |,.)..~..Wm:..XV |
000011f0 ca 0d 0e 88 0f c9 32 3a f2 59 6d 28 2b 32 30 29 |......2:.Ym(+20)|
00001200 0d 0e 92 0f c9 33 3a f2 59 6d 28 2d 32 30 29 0d |.....3:.Ym(-20).|
00001210 0e 9c 0f c9 34 3a f2 59 6e 28 2b 32 30 29 0d 0e |....4:.Yn(+20)..|
00001220 a6 0f c9 35 3a f2 59 6e 28 2d 32 30 29 0d 0e b0 |...5:.Yn(-20)...|
00001230 0f c9 31 30 3a f2 59 6f 28 2b 35 29 0d 0e ba 0f |..10:.Yo(+5)....|
00001240 c9 31 31 3a f2 59 6f 28 2d 35 29 0d 0e c4 05 cb |.11:.Yo(-5).....|
00001250 0d 0e ce 0e c9 59 62 3a c8 8e 58 56 20 ca 0d 0e |.....Yb:..XV ...|
00001260 d8 10 c9 31 38 3a f2 59 66 28 20 ac b9 29 0d 0e |...18:.Yf( ..)..|
00001270 e2 05 cb 0d 0e f6 0e c9 59 67 3a c8 8e 58 56 20 |........Yg:..XV |
00001280 ca 0d 0f 00 10 c9 32 32 3a f2 59 69 28 20 ac b9 |......22:.Yi( ..|
00001290 29 0d 0f 0a 05 cb 0d 0f 14 05 cb 0d 0f 1e 11 c9 |)...............|
000012a0 36 34 2c 31 36 3a c8 8e 58 61 20 ca 0d 0f 28 31 |64,16:..Xa ...(1|
000012b0 c9 58 76 3a e7 58 56 3d 30 20 8c 57 56 3d 31 3a |.Xv:.XV=0 .WV=1:|
000012c0 57 7a 3d a4 63 74 69 6f 6e 5f 42 65 67 69 6e 44 |Wz=.ction_BeginD|
000012d0 72 61 67 28 55 6b 2c 58 61 2c 58 56 29 0d 0f 32 |rag(Uk,Xa,XV)..2|
000012e0 31 c9 58 78 3a e7 58 56 3d 30 20 8c 57 56 3d 31 |1.Xx:.XV=0 .WV=1|
000012f0 3a 57 7a 3d a4 63 74 69 6f 6e 5f 42 65 67 69 6e |:Wz=.ction_Begin|
00001300 44 72 61 67 28 55 6b 2c 58 61 2c 58 56 29 0d 0f |Drag(Uk,Xa,XV)..|
00001310 3c 31 c9 58 7a 3a e7 58 56 3d 30 20 8c 57 56 3d |<1.Xz:.XV=0 .WV=|
00001320 31 3a 57 7a 3d a4 63 74 69 6f 6e 5f 42 65 67 69 |1:Wz=.ction_Begi|
00001330 6e 44 72 61 67 28 55 6b 2c 58 61 2c 58 56 29 0d |nDrag(Uk,Xa,XV).|
00001340 0f 46 1e c9 57 64 3a e7 20 ac 57 55 20 8c f2 59 |.F..Wd:. .WU ..Y|
00001350 75 28 58 58 2c 58 59 29 3a 57 56 3d 32 0d 0f 50 |u(XX,XY):WV=2..P|
00001360 17 c9 57 6e 3a f2 59 76 28 58 58 2c 58 59 29 3a |..Wn:.Yv(XX,XY):|
00001370 57 56 3d 33 0d 0f 5a 05 cb 0d 0f 64 07 cb 3a e1 |WV=3..Z....d..:.|
00001380 0d 0f 8c f0 dd f2 59 75 28 59 77 2c 59 78 29 3a |......Yu(Yw,Yx):|
00001390 59 79 3d a4 63 74 69 6f 6e 5f 52 6f 77 43 6c 69 |Yy=.ction_RowCli|
000013a0 63 6b 65 64 4f 6e 28 59 77 2c 59 78 29 3a 59 7a |ckedOn(Yw,Yx):Yz|
000013b0 3d a4 63 74 69 6f 6e 5f 43 6f 6c 75 6d 6e 43 6c |=.ction_ColumnCl|
000013c0 69 63 6b 65 64 4f 6e 28 59 77 2c 59 78 29 3a 55 |ickedOn(Yw,Yx):U|
000013d0 6b 21 30 3d 57 64 3a 55 6b 21 34 3d 36 3a 55 6b |k!0=Wd:Uk!4=6:Uk|
000013e0 21 38 3d 59 77 3a 55 6b 21 31 32 3d 59 78 3a 55 |!8=Yw:Uk!12=Yx:U|
000013f0 6b 21 31 36 3d 59 77 3a 55 6b 21 32 30 3d 59 78 |k!16=Yw:Uk!20=Yx|
00001400 3a 55 6b 21 32 34 3d 57 64 3a c8 99 26 34 30 30 |:Uk!24=Wd:..&400|
00001410 43 43 2c 2c 55 6b 2b 32 34 3a 5a 55 3d 55 6b 21 |CC,,Uk+24:ZU=Uk!|
00001420 34 34 3a 5a 56 3d 55 6b 21 34 38 3a 55 6b 21 32 |44:ZV=Uk!48:Uk!2|
00001430 34 3d 55 6b 21 32 38 3a 55 6b 21 32 38 3d 55 6b |4=Uk!28:Uk!28=Uk|
00001440 21 33 32 3a 55 6b 21 33 32 3d 55 6b 21 33 36 3a |!32:Uk!32=Uk!36:|
00001450 55 6b 21 33 36 3d 55 6b 21 34 30 2d 35 36 3a 5a |Uk!36=Uk!40-56:Z|
00001460 57 3d 55 6b 21 32 34 3a 5a 58 3d 55 6b 21 33 32 |W=Uk!24:ZX=Uk!32|
00001470 0d 10 18 4d 5a 59 3d 55 6b 21 32 38 3a 5a 5a 3d |...MZY=Uk!28:ZZ=|
00001480 55 6b 21 33 36 3a c8 99 26 34 30 30 44 30 2c 2c |Uk!36:..&400D0,,|
00001490 55 6b 3a 5a 61 3d 59 77 3a 5a 62 3d 59 77 3a 5a |Uk:Za=Yw:Zb=Yw:Z|
000014a0 63 3d 59 78 3a 5a 64 3d 59 78 3a f2 5a 65 28 5a |c=Yx:Zd=Yx:.Ze(Z|
000014b0 61 2c 5a 63 2c 5a 62 2c 5a 64 29 3a e1 0d 10 68 |a,Zc,Zb,Zd):...h|
000014c0 75 dd f2 5a 66 28 59 77 2c 59 78 29 3a 5a 67 3d |u..Zf(Yw,Yx):Zg=|
000014d0 59 79 3a 5a 68 3d 59 7a 3a 5a 69 3d a4 63 74 69 |Yy:Zh=Yz:Zi=.cti|
000014e0 6f 6e 5f 52 6f 77 43 6c 69 63 6b 65 64 4f 6e 28 |on_RowClickedOn(|
000014f0 59 77 2c 59 78 29 3a 5a 6a 3d a4 63 74 69 6f 6e |Yw,Yx):Zj=.ction|
00001500 5f 43 6f 6c 75 6d 6e 43 6c 69 63 6b 65 64 4f 6e |_ColumnClickedOn|
00001510 28 59 77 2c 59 78 29 3a 5a 6b 3d 32 3a 5a 6c 3d |(Yw,Yx):Zk=2:Zl=|
00001520 5a 6d 3a e7 5a 67 3e 5a 69 20 8c c8 94 5a 67 2c |Zm:.Zg>Zi ...Zg,|
00001530 5a 69 0d 10 b8 13 e7 5a 68 3e 5a 6a 20 8c c8 94 |Zi.....Zh>Zj ...|
00001540 5a 68 2c 5a 6a 0d 10 c2 10 f2 59 5a 28 55 6b 2c |Zh,Zj.....YZ(Uk,|
00001550 57 64 29 3a e1 0d 10 ea a3 dd f2 5a 65 28 5a 6e |Wd):.......Ze(Zn|
00001560 2c 5a 6f 2c 5a 70 2c 5a 71 29 3a 55 6b 21 32 35 |,Zo,Zp,Zq):Uk!25|
00001570 36 3d 57 64 3a c8 99 26 34 30 30 43 42 2c 2c 55 |6=Wd:..&400CB,,U|
00001580 6b 2b 32 35 36 3a 5a 72 3d 55 6b 21 28 32 35 36 |k+256:Zr=Uk!(256|
00001590 2b 34 29 3a 5a 73 3d 55 6b 21 28 32 35 36 2b 38 |+4):Zs=Uk!(256+8|
000015a0 29 3a 5a 74 3d 55 6b 21 28 32 35 36 2b 31 32 29 |):Zt=Uk!(256+12)|
000015b0 3a 5a 75 3d 55 6b 21 28 32 35 36 2b 31 36 29 2d |:Zu=Uk!(256+16)-|
000015c0 35 36 3a ef 32 34 2c 5a 72 3b 5a 73 3b 5a 74 3b |56:.24,Zr;Zs;Zt;|
000015d0 5a 75 3b 3a c8 99 26 34 30 30 45 36 2c 34 38 2b |Zu;:..&400E6,48+|
000015e0 31 35 3a c8 93 5a 6e 2c 5a 6f 2c 5a 70 2d 5a 6e |15:..Zn,Zo,Zp-Zn|
000015f0 2c 5a 71 2d 5a 6f 3a e1 0d 11 6c 2c dd f2 57 72 |,Zq-Zo:...l,..Wr|
00001600 28 58 57 29 3a 58 61 3d 58 57 21 30 3a 58 56 3d |(XW):Xa=XW!0:XV=|
00001610 58 57 21 34 3a 5a 76 3d 58 57 21 32 34 3a c8 8e |XW!4:Zv=XW!24:..|
00001620 58 61 20 ca 0d 11 b2 10 c9 57 68 3a e7 58 56 3d |Xa ......Wh:.XV=|
00001630 33 32 20 8c 0d 11 bc 1d f2 57 6f 28 55 6b 2c 57 |32 ......Wo(Uk,W|
00001640 67 29 3a f2 57 6f 28 55 6b 2c 57 68 29 3a f2 58 |g):.Wo(Uk,Wh):.X|
00001650 6a 0d 11 da 05 cd 0d 11 ee 10 c9 59 67 3a e7 5a |j..........Yg:.Z|
00001660 76 3d 31 33 20 8c 0d 11 f8 0a f2 59 69 28 b9 29 |v=13 ......Yi(.)|
00001670 0d 12 02 05 cd 0d 12 16 0f c9 5a 77 3a e7 58 56 |..........Zw:.XV|
00001680 3d 33 20 8c 0d 12 20 15 c8 99 26 34 30 30 44 34 |=3 ... ...&400D4|
00001690 2c 2c 2d 31 3a 56 65 3d 30 0d 12 2a 05 cd 0d 12 |,,-1:Ve=0..*....|
000016a0 3e 16 c9 58 76 3a e7 58 56 3d 31 20 80 5a 76 3d |>..Xv:.XV=1 .Zv=|
000016b0 31 33 20 8c 0d 12 48 37 f2 58 77 28 a4 63 74 69 |13 ...H7.Xw(.cti|
000016c0 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 65 78 74 28 |on_ReadIconText(|
000016d0 55 6b 2c 58 76 2c 31 29 29 3a c8 99 26 34 30 30 |Uk,Xv,1)):..&400|
000016e0 44 34 2c 2c 2d 31 3a 56 65 3d 30 0d 12 5c 05 cd |D4,,-1:Ve=0..\..|
000016f0 0d 12 70 16 c9 58 78 3a e7 58 56 3d 31 20 80 5a |..p..Xx:.XV=1 .Z|
00001700 76 3d 31 33 20 8c 0d 12 7a 37 f2 58 79 28 a4 63 |v=13 ...z7.Xy(.c|
00001710 74 69 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 65 78 |tion_ReadIconTex|
00001720 74 28 55 6b 2c 58 78 2c 31 29 29 3a c8 99 26 34 |t(Uk,Xx,1)):..&4|
00001730 30 30 44 34 2c 2c 2d 31 3a 56 65 3d 30 0d 12 8e |00D4,,-1:Ve=0...|
00001740 05 cd 0d 12 a2 16 c9 58 7a 3a e7 58 56 3d 31 20 |.......Xz:.XV=1 |
00001750 80 5a 76 3d 31 33 20 8c 0d 12 ac 37 f2 59 55 28 |.Zv=13 ....7.YU(|
00001760 a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 |.ction_ReadIconT|
00001770 65 78 74 28 55 6b 2c 58 7a 2c 31 29 29 3a c8 99 |ext(Uk,Xz,1)):..|
00001780 26 34 30 30 44 34 2c 2c 2d 31 3a 56 65 3d 30 0d |&400D4,,-1:Ve=0.|
00001790 12 c0 05 cd 0d 12 d4 16 c9 57 66 3a e7 58 56 3d |.........Wf:.XV=|
000017a0 31 20 80 5a 76 3d 31 33 20 8c 0d 12 e8 50 5a 78 |1 .Zv=13 ....PZx|
000017b0 24 3d a4 63 74 69 6f 6e 5f 50 61 74 68 6e 61 6d |$=.ction_Pathnam|
000017c0 65 4f 6e 6c 79 28 56 59 24 28 5a 79 29 29 3a 5a |eOnly(VY$(Zy)):Z|
000017d0 7a 24 3d a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 |z$=.ction_ReadIc|
000017e0 6f 6e 54 65 78 74 28 55 6b 2c 57 66 2c 31 29 3a |onText(Uk,Wf,1):|
000017f0 e7 5a 7a 24 3c 3e 22 22 20 8c 0d 13 10 32 e7 a4 |.Zz$<>"" ....2..|
00001800 63 74 69 6f 6e 5f 49 6e 73 74 72 75 6d 65 6e 74 |ction_Instrument|
00001810 41 6c 72 65 61 64 79 4c 6f 61 64 65 64 28 5a 78 |AlreadyLoaded(Zx|
00001820 24 2b 22 2e 22 2b 5a 7a 24 29 20 8c 0d 13 1a 51 |$+"."+Zz$) ....Q|
00001830 57 77 24 3d a4 63 74 69 6f 6e 5f 54 61 67 54 6f |Ww$=.ction_TagTo|
00001840 53 74 72 69 6e 67 28 56 6b 2c 22 65 72 72 32 37 |String(Vk,"err27|
00001850 22 29 3a 57 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 |"):Wz=.ction_Rep|
00001860 6f 72 74 45 72 72 6f 72 28 55 6b 2c 39 39 2c 55 |ortError(Uk,99,U|
00001870 64 24 2c 57 77 24 2c 20 ac b9 2c b9 29 0d 13 2e |d$,Ww$, ..,.)...|
00001880 19 cc 3a 56 59 24 28 5a 79 29 3d 5a 78 24 2b 22 |..:VY$(Zy)=Zx$+"|
00001890 2e 22 2b 5a 7a 24 0d 13 42 05 cd 0d 13 4c 33 cd |."+Zz$..B....L3.|
000018a0 3a f2 61 55 28 55 6b 2c 57 66 2c 31 2c a4 63 74 |:.aU(Uk,Wf,1,.ct|
000018b0 69 6f 6e 5f 4c 65 61 66 6e 61 6d 65 4f 6e 6c 79 |ion_LeafnameOnly|
000018c0 28 56 59 24 28 5a 79 29 29 29 3a f2 61 56 0d 13 |(VY$(Zy))):.aV..|
000018d0 7e 05 cd 0d 13 92 0e c9 57 64 3a c8 8e 5a 76 20 |~.......Wd:..Zv |
000018e0 ca 0d 13 a6 1e c9 97 22 43 22 2d 36 34 3a e7 20 |......."C"-64:. |
000018f0 ac 57 55 20 80 5a 6b 3c 3e 30 20 8c f2 61 57 0d |.WU .Zk<>0 ..aW.|
00001900 13 b0 1e c9 97 22 56 22 2d 36 34 3a e7 20 ac 57 |....."V"-64:. .W|
00001910 55 20 80 5a 6b 3c 3e 30 20 8c f2 61 58 0d 13 ba |U .Zk<>0 ..aX...|
00001920 1e c9 97 22 58 22 2d 36 34 3a e7 20 ac 57 55 20 |..."X"-64:. .WU |
00001930 80 5a 6b 3c 3e 30 20 8c f2 61 59 0d 13 c4 1e c9 |.Zk<>0 ..aY.....|
00001940 97 22 4d 22 2d 36 34 3a e7 20 ac 57 55 20 80 5a |."M"-64:. .WU .Z|
00001950 6b 3c 3e 30 20 8c f2 61 5a 0d 13 ce 17 c9 97 22 |k<>0 ..aZ......"|
00001960 5a 22 2d 36 34 3a e7 20 ac 57 55 20 8c f2 56 79 |Z"-64:. .WU ..Vy|
00001970 0d 13 d8 1d c9 97 22 49 22 2d 36 34 3a e7 20 ac |......"I"-64:. .|
00001980 57 55 20 80 56 70 3e 30 20 8c f2 61 61 0d 13 e2 |WU .Vp>0 ..aa...|
00001990 1a c9 97 22 52 22 2d 36 34 3a e7 20 ac 57 55 20 |..."R"-64:. .WU |
000019a0 80 56 71 3e 30 20 8c 0d 13 ec 2d f2 61 62 28 a4 |.Vq>0 ....-.ab(.|
000019b0 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 65 |ction_ReadIconTe|
000019c0 78 74 28 55 6b 2c 57 66 2c 31 29 29 3a e7 56 65 |xt(Uk,Wf,1)):.Ve|
000019d0 3d 39 20 8c 0d 14 00 10 c8 99 26 34 30 30 44 34 |=9 .......&400D4|
000019e0 2c 2c 2d 31 0d 14 0a 05 cd 0d 14 14 05 cd 0d 14 |,,-1............|
000019f0 1e 14 c9 97 22 50 22 2d 36 34 3a e7 20 ac 57 55 |...."P"-64:. .WU|
00001a00 20 8c 0d 14 28 24 57 78 3d a4 63 74 69 6f 6e 5f | ...($Wx=.ction_|
00001a10 49 6e 73 65 72 74 5f 50 61 74 74 65 72 6e 3a e7 |Insert_Pattern:.|
00001a20 20 ac 57 78 20 8c 0d 14 3c 51 57 77 24 3d a4 63 | .Wx ...<QWw$=.c|
00001a30 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 |tion_TagToString|
00001a40 28 56 6b 2c 22 65 72 72 30 36 22 29 3a 57 7a 3d |(Vk,"err06"):Wz=|
00001a50 a4 63 74 69 6f 6e 5f 52 65 70 6f 72 74 45 72 72 |.ction_ReportErr|
00001a60 6f 72 28 55 6b 2c 39 39 2c 55 64 24 2c 57 77 24 |or(Uk,99,Ud$,Ww$|
00001a70 2c 20 ac b9 2c b9 29 0d 14 50 05 cd 0d 14 5a 05 |, ..,.)..P....Z.|
00001a80 cd 0d 14 64 17 c9 97 22 4b 22 2d 36 34 3a e7 20 |...d..."K"-64:. |
00001a90 ac 57 55 20 8c f2 61 63 0d 14 6e 14 c9 97 22 4a |.WU ..ac..n..."J|
00001aa0 22 2d 36 34 3a e7 20 ac 57 55 20 8c 0d 14 78 09 |"-64:. .WU ...x.|
00001ab0 e7 56 76 20 8c 0d 14 82 32 f2 61 55 28 55 6b 2c |.Vv ....2.aU(Uk,|
00001ac0 61 64 2c 31 2c 22 31 22 29 3a f2 57 63 28 55 69 |ad,1,"1"):.Wc(Ui|
00001ad0 2c 55 6b 2c 61 64 2c 20 ac b9 29 3a f2 58 67 28 |,Uk,ad, ..):.Xg(|
00001ae0 61 64 2c 31 2c 31 29 0d 14 a0 05 cd 0d 14 aa 05 |ad,1,1).........|
00001af0 cd 0d 14 be 11 c9 26 31 38 33 3a f2 61 65 28 58 |......&183:.ae(X|
00001b00 7a 29 0d 14 c8 18 c9 26 31 39 33 3a e7 56 71 3e |z).....&193:.Vq>|
00001b10 30 20 8c f2 61 65 28 58 76 29 0d 14 d2 11 c9 26 |0 ..ae(Xv).....&|
00001b20 31 41 33 3a f2 61 65 28 58 78 29 0d 14 dc 15 c9 |1A3:.ae(Xx).....|
00001b30 26 31 41 31 3a f2 61 66 3a f2 61 65 28 5a 77 29 |&1A1:.af:.ae(Zw)|
00001b40 0d 14 fa 1b c9 97 22 5a 22 2c 97 22 7a 22 3a f2 |......"Z",."z":.|
00001b50 59 72 28 22 43 20 22 2c 2b 30 29 0d 15 04 1b c9 |Yr("C ",+0).....|
00001b60 97 22 53 22 2c 97 22 73 22 3a f2 59 72 28 22 43 |."S",."s":.Yr("C|
00001b70 23 22 2c 2b 30 29 0d 15 0e 1b c9 97 22 58 22 2c |#",+0)......"X",|
00001b80 97 22 78 22 3a f2 59 72 28 22 44 20 22 2c 2b 30 |."x":.Yr("D ",+0|
00001b90 29 0d 15 18 1b c9 97 22 44 22 2c 97 22 64 22 3a |)......"D",."d":|
00001ba0 f2 59 72 28 22 44 23 22 2c 2b 30 29 0d 15 22 1b |.Yr("D#",+0)..".|
00001bb0 c9 97 22 43 22 2c 97 22 63 22 3a f2 59 72 28 22 |.."C",."c":.Yr("|
00001bc0 45 20 22 2c 2b 30 29 0d 15 2c 1b c9 97 22 56 22 |E ",+0)..,..."V"|
00001bd0 2c 97 22 76 22 3a f2 59 72 28 22 46 20 22 2c 2b |,."v":.Yr("F ",+|
00001be0 30 29 0d 15 36 1b c9 97 22 47 22 2c 97 22 67 22 |0)..6..."G",."g"|
00001bf0 3a f2 59 72 28 22 46 23 22 2c 2b 30 29 0d 15 40 |:.Yr("F#",+0)..@|
00001c00 1b c9 97 22 42 22 2c 97 22 62 22 3a f2 59 72 28 |..."B",."b":.Yr(|
00001c10 22 47 20 22 2c 2b 30 29 0d 15 4a 1b c9 97 22 48 |"G ",+0)..J..."H|
00001c20 22 2c 97 22 68 22 3a f2 59 72 28 22 47 23 22 2c |",."h":.Yr("G#",|
00001c30 2b 30 29 0d 15 54 1b c9 97 22 4e 22 2c 97 22 6e |+0)..T..."N",."n|
00001c40 22 3a f2 59 72 28 22 41 20 22 2c 2b 30 29 0d 15 |":.Yr("A ",+0)..|
00001c50 5e 1b c9 97 22 4a 22 2c 97 22 6a 22 3a f2 59 72 |^..."J",."j":.Yr|
00001c60 28 22 41 23 22 2c 2b 30 29 0d 15 68 1b c9 97 22 |("A#",+0)..h..."|
00001c70 4d 22 2c 97 22 6d 22 3a f2 59 72 28 22 42 20 22 |M",."m":.Yr("B "|
00001c80 2c 2b 30 29 0d 15 7c 1b c9 97 22 51 22 2c 97 22 |,+0)..|..."Q",."|
00001c90 71 22 3a f2 59 72 28 22 43 20 22 2c 2b 31 29 0d |q":.Yr("C ",+1).|
00001ca0 15 86 1b c9 97 22 32 22 2c 97 22 32 22 3a f2 59 |....."2",."2":.Y|
00001cb0 72 28 22 43 23 22 2c 2b 31 29 0d 15 90 1b c9 97 |r("C#",+1)......|
00001cc0 22 57 22 2c 97 22 77 22 3a f2 59 72 28 22 44 20 |"W",."w":.Yr("D |
00001cd0 22 2c 2b 31 29 0d 15 9a 1b c9 97 22 33 22 2c 97 |",+1)......"3",.|
00001ce0 22 33 22 3a f2 59 72 28 22 44 23 22 2c 2b 31 29 |"3":.Yr("D#",+1)|
00001cf0 0d 15 a4 1b c9 97 22 45 22 2c 97 22 65 22 3a f2 |......"E",."e":.|
00001d00 59 72 28 22 45 20 22 2c 2b 31 29 0d 15 ae 1b c9 |Yr("E ",+1).....|
00001d10 97 22 52 22 2c 97 22 72 22 3a f2 59 72 28 22 46 |."R",."r":.Yr("F|
00001d20 20 22 2c 2b 31 29 0d 15 b8 1b c9 97 22 35 22 2c | ",+1)......"5",|
00001d30 97 22 35 22 3a f2 59 72 28 22 46 23 22 2c 2b 31 |."5":.Yr("F#",+1|
00001d40 29 0d 15 c2 1b c9 97 22 54 22 2c 97 22 74 22 3a |)......"T",."t":|
00001d50 f2 59 72 28 22 47 20 22 2c 2b 31 29 0d 15 cc 1b |.Yr("G ",+1)....|
00001d60 c9 97 22 36 22 2c 97 22 36 22 3a f2 59 72 28 22 |.."6",."6":.Yr("|
00001d70 47 23 22 2c 2b 31 29 0d 15 d6 1b c9 97 22 59 22 |G#",+1)......"Y"|
00001d80 2c 97 22 79 22 3a f2 59 72 28 22 41 20 22 2c 2b |,."y":.Yr("A ",+|
00001d90 31 29 0d 15 e0 1b c9 97 22 37 22 2c 97 22 37 22 |1)......"7",."7"|
00001da0 3a f2 59 72 28 22 41 23 22 2c 2b 31 29 0d 15 ea |:.Yr("A#",+1)...|
00001db0 1b c9 97 22 55 22 2c 97 22 75 22 3a f2 59 72 28 |..."U",."u":.Yr(|
00001dc0 22 42 20 22 2c 2b 31 29 0d 15 fe 0d c9 97 22 20 |"B ",+1)......" |
00001dd0 22 3a f2 61 67 0d 16 08 4a c9 97 22 3d 22 3a 61 |":.ag...J.."=":a|
00001de0 68 3d bb a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 |h=..ction_ReadIc|
00001df0 6f 6e 54 65 78 74 28 55 6b 2c 57 66 2c 37 29 3a |onText(Uk,Wf,7):|
00001e00 61 68 2b 3d 2d 31 2a 20 28 61 68 3c 37 29 3a f2 |ah+=-1* (ah<7):.|
00001e10 61 55 28 55 6b 2c 57 66 2c 37 2c c3 61 68 29 0d |aU(Uk,Wf,7,.ah).|
00001e20 16 26 4a c9 97 22 2d 22 3a 61 68 3d bb a4 63 74 |.&J.."-":ah=..ct|
00001e30 69 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 65 78 74 |ion_ReadIconText|
00001e40 28 55 6b 2c 57 66 2c 37 29 3a 61 68 2d 3d 2d 31 |(Uk,Wf,7):ah-=-1|
00001e50 2a 20 28 61 68 3e 31 29 3a f2 61 55 28 55 6b 2c |* (ah>1):.aU(Uk,|
00001e60 57 66 2c 37 2c c3 61 68 29 0d 16 4e 07 c9 32 30 |Wf,7,.ah)..N..20|
00001e70 0d 16 62 14 c9 26 31 38 36 3a e7 20 ac 57 55 20 |..b..&186:. .WU |
00001e80 8c f2 61 69 0d 16 6c 13 c9 26 31 38 43 3a f2 61 |..ai..l..&18C:.a|
00001e90 6a 28 2d 31 2c 30 29 0d 16 76 13 c9 26 31 38 44 |j(-1,0)..v..&18D|
00001ea0 3a f2 61 6a 28 2b 31 2c 30 29 0d 16 80 13 c9 26 |:.aj(+1,0).....&|
00001eb0 31 38 46 3a f2 61 6a 28 30 2c 2d 31 29 0d 16 8a |18F:.aj(0,-1)...|
00001ec0 13 c9 26 31 38 45 3a f2 61 6a 28 30 2c 2b 31 29 |..&18E:.aj(0,+1)|
00001ed0 0d 16 94 13 c9 26 31 42 3a 56 76 3d 20 ac b9 3a |.....&1B:Vv= ..:|
00001ee0 f2 58 72 0d 16 b2 05 cb 0d 16 c6 16 c9 61 64 3a |.Xr..........ad:|
00001ef0 e7 58 56 3d 31 20 80 5a 76 3d 31 33 20 8c 0d 16 |.XV=1 .Zv=13 ...|
00001f00 d0 07 f2 61 6b 0d 16 da 05 cd 0d 16 ee 0f cb 3a |...ak..........:|
00001f10 f2 61 6c 28 5a 76 29 3a e1 0d 17 34 45 dd f2 61 |.al(Zv):...4E..a|
00001f20 65 28 58 61 29 3a c8 99 26 34 30 30 43 46 2c 2c |e(Xa):..&400CF,,|
00001f30 55 6b 2b 31 30 32 34 3a c8 99 26 34 30 30 44 34 |Uk+1024:..&400D4|
00001f40 2c 2c 58 61 2c 55 6b 21 28 31 30 32 34 2b 30 29 |,,Xa,Uk!(1024+0)|
00001f50 2c 55 6b 21 28 31 30 32 34 2b 34 29 3a e1 0d 17 |,Uk!(1024+4):...|
00001f60 70 16 dd f2 57 74 28 58 57 29 3a c8 8e 58 57 21 |p...Wt(XW):..XW!|
00001f70 31 36 20 ca 0d 17 84 0c c9 30 3a e7 56 61 20 8c |16 ......0:.Va .|
00001f80 0d 17 8e 57 57 77 24 3d a4 63 74 69 6f 6e 5f 54 |...WWw$=.ction_T|
00001f90 61 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 77 |agToString(Vk,"w|
00001fa0 61 72 30 37 22 29 3a 57 7a 3d a4 63 74 69 6f 6e |ar07"):Wz=.ction|
00001fb0 5f 52 65 70 6f 72 74 45 72 72 6f 72 28 55 6b 2c |_ReportError(Uk,|
00001fc0 39 39 2c 55 64 24 2c 57 77 24 2c b9 2c b9 29 3a |99,Ud$,Ww$,.,.):|
00001fd0 56 63 3d 57 7a 3d 31 0d 17 ac 13 cc 3a e7 20 ac |Vc=Wz=1.....:. .|
00001fe0 57 55 20 80 20 ac 56 7a 20 8c 0d 17 c0 08 56 63 |WU . .Vz .....Vc|
00001ff0 3d b9 0d 17 ca 05 cd 0d 17 d4 05 cd 0d 17 de 0e |=...............|
00002000 c9 32 3a f2 61 6d 28 58 57 29 0d 17 e8 0e c9 33 |.2:.am(XW).....3|
00002010 3a f2 61 6e 28 58 57 29 0d 17 f2 0e c9 35 3a f2 |:.an(XW).....5:.|
00002020 61 6f 28 58 57 29 0d 17 fc 11 c9 26 35 30 32 3a |ao(XW).....&502:|
00002030 f2 61 70 28 58 57 29 0d 18 06 07 cb 3a e1 0d 18 |.ap(XW).....:...|
00002040 2e 55 dd f2 57 62 28 58 57 29 3a c8 99 26 34 30 |.U..Wb(XW):..&40|
00002050 30 43 38 2c 2c 58 57 20 b8 61 71 3a 61 72 3d 58 |0C8,,XW .aq:ar=X|
00002060 57 21 34 3a 61 73 3d 58 57 21 31 36 3a 61 74 3d |W!4:as=XW!16:at=|
00002070 58 57 21 38 3a 61 75 3d 58 57 21 32 30 3a 61 76 |XW!8:au=XW!20:av|
00002080 3d 58 57 21 32 34 3a c8 95 61 71 3a c8 8e 21 58 |=XW!24:..aq:..!X|
00002090 57 20 ca 0d 18 88 0b c9 57 6a 3a f2 61 77 0d 18 |W ......Wj:.aw..|
000020a0 92 0b c9 57 64 3a f2 61 78 0d 18 9c 0b c9 57 6c |...Wd:.ax.....Wl|
000020b0 3a f2 61 79 0d 18 a6 0b c9 57 6e 3a f2 61 7a 0d |:.ay.....Wn:.az.|
000020c0 18 b0 1a cb 3a c8 99 26 34 30 30 43 41 2c 2c 58 |....:..&400CA,,X|
000020d0 57 20 b8 61 71 3a ce 3a e1 0d 18 ec 13 dd f2 57 |W .aq:.:.......W|
000020e0 71 28 58 57 29 3a c8 8e 57 56 20 ca 0d 19 00 0e |q(XW):..WV .....|
000020f0 c9 31 3a f2 62 55 28 58 57 29 0d 19 0a 22 c9 32 |.1:.bU(XW)...".2|
00002100 3a c8 99 26 34 30 30 43 46 2c 2c 55 6b 3a f2 5a |:..&400CF,,Uk:.Z|
00002110 66 28 55 6b 21 30 2c 55 6b 21 34 29 0d 19 1e 0e |f(Uk!0,Uk!4)....|
00002120 c9 33 3a f2 62 56 28 58 57 29 0d 19 28 0c cb 3a |.3:.bV(XW)..(..:|
00002130 57 56 3d 30 3a e1 0d 19 5a 43 dd f2 62 55 28 58 |WV=0:...ZC..bU(X|
00002140 57 29 3a c8 99 26 34 30 30 43 46 2c 2c 58 57 3a |W):..&400CF,,XW:|
00002150 58 58 3d 58 57 21 30 3a 58 59 3d 58 57 21 34 3a |XX=XW!0:XY=XW!4:|
00002160 58 61 3d 58 57 21 31 32 3a 58 56 3d 58 57 21 31 |Xa=XW!12:XV=XW!1|
00002170 36 3a c8 8e 62 57 24 20 ca 0d 19 a0 32 c9 22 49 |6:..bW$ ....2."I|
00002180 6e 73 74 72 75 6d 65 6e 74 22 3a 62 58 24 3d a4 |nstrument":bX$=.|
00002190 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 65 |ction_ReadIconTe|
000021a0 78 74 28 55 6b 2c 58 76 2c 31 29 0d 19 aa 32 c9 |xt(Uk,Xv,1)...2.|
000021b0 22 4d 75 73 69 63 20 44 61 74 61 22 3a 62 58 24 |"Music Data":bX$|
000021c0 3d a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f 6e |=.ction_ReadIcon|
000021d0 54 65 78 74 28 55 6b 2c 58 78 2c 31 29 0d 19 b4 |Text(Uk,Xx,1)...|
000021e0 31 c9 22 4d 75 73 69 63 20 41 70 70 22 3a 62 58 |1."Music App":bX|
000021f0 24 3d a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f |$=.ction_ReadIco|
00002200 6e 54 65 78 74 28 55 6b 2c 58 7a 2c 31 29 0d 19 |nText(Uk,Xz,1)..|
00002210 be b4 cb 3a 62 59 24 3d a4 63 74 69 6f 6e 5f 4c |...:bY$=.ction_L|
00002220 65 61 66 6e 61 6d 65 4f 6e 6c 79 28 62 58 24 29 |eafnameOnly(bX$)|
00002230 3a 58 57 21 30 3d 34 34 2b 28 28 a9 62 59 24 20 |:XW!0=44+((.bY$ |
00002240 81 34 29 2a 34 29 2b 34 3a 58 57 21 34 3d 30 3a |.4)*4)+4:XW!4=0:|
00002250 58 57 21 38 3d 30 3a 58 57 21 31 32 3d 30 3a 58 |XW!8=0:XW!12=0:X|
00002260 57 21 31 36 3d 31 3a 58 57 21 32 30 3d 58 61 3a |W!16=1:XW!20=Xa:|
00002270 58 57 21 32 34 3d 58 56 3a 58 57 21 32 38 3d 58 |XW!24=XV:XW!28=X|
00002280 58 3a 58 57 21 33 32 3d 58 59 3a 58 57 21 33 36 |X:XW!32=XY:XW!36|
00002290 3d 36 34 3a 58 57 21 34 30 3d 26 46 46 46 3a 24 |=64:XW!40=&FFF:$|
000022a0 28 58 57 2b 34 34 29 3d 62 59 24 2b bd 30 3a c8 |(XW+44)=bY$+.0:.|
000022b0 99 26 34 30 30 45 37 2c 31 37 2c 58 57 2c 58 61 |.&400E7,17,XW,Xa|
000022c0 3a e1 0d 1a 72 61 dd f2 61 6d 28 58 57 29 3a 62 |:...ra..am(XW):b|
000022d0 5a 3d 58 57 21 34 3a 58 57 21 31 32 3d 58 57 21 |Z=XW!4:XW!12=XW!|
000022e0 38 3a 58 57 21 31 36 3d 33 3a 62 58 24 3d a4 63 |8:XW!16=3:bX$=.c|
000022f0 74 69 6f 6e 5f 45 78 74 72 61 63 74 53 74 72 69 |tion_ExtractStri|
00002300 6e 67 28 58 57 2b 34 34 29 3a c8 99 26 34 30 30 |ng(XW+44):..&400|
00002310 45 37 2c 31 37 2c 58 57 2c 62 5a 3a c8 8e 62 57 |E7,17,XW,bZ:..bW|
00002320 24 20 ca 0d 1a b8 1e c9 22 49 6e 73 74 72 75 6d |$ ......"Instrum|
00002330 65 6e 74 22 3a f2 58 77 28 62 58 24 2c 20 ac b9 |ent":.Xw(bX$, ..|
00002340 29 0d 1a c2 1e c9 22 4d 75 73 69 63 20 44 61 74 |)....."Music Dat|
00002350 61 22 3a f2 58 79 28 62 58 24 2c 20 ac b9 29 0d |a":.Xy(bX$, ..).|
00002360 1a cc 1d c9 22 4d 75 73 69 63 20 41 70 70 22 3a |...."Music App":|
00002370 f2 59 55 28 62 58 24 2c 20 ac b9 29 0d 1a d6 14 |.YU(bX$, ..)....|
00002380 cb 3a c8 99 26 34 30 30 44 34 2c 2c 2d 31 3a e1 |.:..&400D4,,-1:.|
00002390 0d 1b 08 26 dd a4 63 74 69 6f 6e 5f 42 65 67 69 |...&..ction_Begi|
000023a0 6e 44 72 61 67 28 58 55 2c 58 61 2c 58 56 29 3a |nDrag(XU,Xa,XV):|
000023b0 c8 8e 58 61 20 ca 0d 1b 26 18 c9 58 76 3a 62 57 |..Xa ...&..Xv:bW|
000023c0 24 3d 22 49 6e 73 74 72 75 6d 65 6e 74 22 0d 1b |$="Instrument"..|
000023d0 30 18 c9 58 78 3a 62 57 24 3d 22 4d 75 73 69 63 |0..Xx:bW$="Music|
000023e0 20 44 61 74 61 22 0d 1b 3a 17 c9 58 7a 3a 62 57 | Data"..:..Xz:bW|
000023f0 24 3d 22 4d 75 73 69 63 20 41 70 70 22 0d 1b 44 |$="Music App"..D|
00002400 f5 cb 3a ea 62 61 2c 62 62 2c 62 63 2c 62 64 3a |..:.ba,bb,bc,bd:|
00002410 58 55 21 30 3d 34 3a 58 55 21 34 3d 35 3a 58 55 |XU!0=4:XU!4=5:XU|
00002420 21 38 3d 31 31 3a 58 55 21 31 32 3d 31 32 3a 58 |!8=11:XU!12=12:X|
00002430 55 21 31 36 3d 2d 31 3a c8 99 26 33 31 2c 58 55 |U!16=-1:..&31,XU|
00002440 2c 58 55 2b 33 32 3a 62 61 3d 28 58 55 21 34 30 |,XU+32:ba=(XU!40|
00002450 2b 31 29 2a 20 32 5e 28 20 58 55 21 33 32 20 29 |+1)* 2^( XU!32 )|
00002460 3a 62 62 3d 28 58 55 21 34 34 2b 31 29 2a 20 32 |:bb=(XU!44+1)* 2|
00002470 5e 28 20 58 55 21 33 36 20 29 3a 58 55 21 30 3d |^( XU!36 ):XU!0=|
00002480 58 61 3a c8 99 26 34 30 30 43 43 2c 2c 58 55 3a |Xa:..&400CC,,XU:|
00002490 62 63 3d 58 55 21 34 3a 62 64 3d 58 55 21 31 36 |bc=XU!4:bd=XU!16|
000024a0 3a 58 55 21 30 3d 58 61 3a 58 55 21 34 3d 58 56 |:XU!0=Xa:XU!4=XV|
000024b0 3a c8 99 26 34 30 30 43 45 2c 2c 58 55 3a 58 55 |:..&400CE,,XU:XU|
000024c0 21 38 2b 3d 62 63 3a 58 55 21 31 32 2b 3d 62 64 |!8+=bc:XU!12+=bd|
000024d0 3a 58 55 21 31 36 2b 3d 62 63 3a 58 55 21 32 30 |:XU!16+=bc:XU!20|
000024e0 2b 3d 62 64 3a 58 55 21 30 3d 30 3a 58 55 21 34 |+=bd:XU!0=0:XU!4|
000024f0 3d 35 0d 1c 02 35 58 55 21 32 34 3d 30 3a 58 55 |=5...5XU!24=0:XU|
00002500 21 32 38 3d 30 3a 58 55 21 33 32 3d 62 61 3a 58 |!28=0:XU!32=ba:X|
00002510 55 21 33 36 3d 62 62 3a c8 99 26 34 30 30 44 30 |U!36=bb:..&400D0|
00002520 2c 2c 58 55 3a 3d 30 0d 1c 3e a4 dd f2 56 66 3a |,,XU:=0..>...Vf:|
00002530 f2 62 65 28 55 71 2c 55 70 29 3a f2 62 66 28 55 |.be(Uq,Up):.bf(U|
00002540 71 2c 22 3c 22 2b 55 64 24 2b 22 24 44 69 72 3e |q,"<"+Ud$+"$Dir>|
00002550 2e 53 70 72 69 74 65 73 22 29 3a f2 62 65 28 55 |.Sprites"):.be(U|
00002560 73 2c 55 72 29 3a f2 62 66 28 55 73 2c 22 3c 22 |s,Ur):.bf(Us,"<"|
00002570 2b 55 64 24 2b 22 24 44 69 72 3e 2e 53 70 72 69 |+Ud$+"$Dir>.Spri|
00002580 74 65 73 32 32 22 29 3a f2 62 65 28 55 75 2c 55 |tes22"):.be(Uu,U|
00002590 74 29 3a f2 62 66 28 55 75 2c 22 3c 22 2b 55 64 |t):.bf(Uu,"<"+Ud|
000025a0 24 2b 22 24 44 69 72 3e 2e 53 70 72 69 74 65 73 |$+"$Dir>.Sprites|
000025b0 32 33 22 29 3a c8 8e a4 63 74 69 6f 6e 5f 53 70 |23"):...ction_Sp|
000025c0 72 69 74 65 73 54 79 70 65 20 ca 0d 1c 8e 31 c9 |ritesType ....1.|
000025d0 31 3a f2 62 65 28 55 77 2c 55 76 29 3a f2 62 66 |1:.be(Uw,Uv):.bf|
000025e0 28 55 77 2c 22 3c 22 2b 55 64 24 2b 22 24 44 69 |(Uw,"<"+Ud$+"$Di|
000025f0 72 3e 2e 53 70 72 69 74 65 73 22 29 0d 1c a2 33 |r>.Sprites")...3|
00002600 c9 32 3a f2 62 65 28 55 77 2c 55 76 29 3a f2 62 |.2:.be(Uw,Uv):.b|
00002610 66 28 55 77 2c 22 3c 22 2b 55 64 24 2b 22 24 44 |f(Uw,"<"+Ud$+"$D|
00002620 69 72 3e 2e 53 70 72 69 74 65 73 32 32 22 29 0d |ir>.Sprites22").|
00002630 1c b6 33 c9 33 3a f2 62 65 28 55 77 2c 55 76 29 |..3.3:.be(Uw,Uv)|
00002640 3a f2 62 66 28 55 77 2c 22 3c 22 2b 55 64 24 2b |:.bf(Uw,"<"+Ud$+|
00002650 22 24 44 69 72 3e 2e 53 70 72 69 74 65 73 32 33 |"$Dir>.Sprites23|
00002660 22 29 0d 1c ca b5 cb 3a f2 62 67 28 55 71 2c 22 |").....:.bg(Uq,"|
00002670 68 71 74 72 61 63 6b 65 72 22 29 3a f2 62 67 28 |hqtracker"):.bg(|
00002680 55 71 2c 22 70 75 73 68 75 70 22 29 3a f2 62 67 |Uq,"pushup"):.bg|
00002690 28 55 71 2c 22 70 75 73 68 64 6f 77 6e 22 29 3a |(Uq,"pushdown"):|
000026a0 f2 62 67 28 55 73 2c 22 68 71 74 72 61 63 6b 65 |.bg(Us,"hqtracke|
000026b0 72 22 29 3a f2 62 67 28 55 73 2c 22 70 75 73 68 |r"):.bg(Us,"push|
000026c0 75 70 22 29 3a f2 62 67 28 55 73 2c 22 70 75 73 |up"):.bg(Us,"pus|
000026d0 68 64 6f 77 6e 22 29 3a f2 62 67 28 55 75 2c 22 |hdown"):.bg(Uu,"|
000026e0 68 71 74 72 61 63 6b 65 72 22 29 3a f2 62 67 28 |hqtracker"):.bg(|
000026f0 55 75 2c 22 70 75 73 68 75 70 22 29 3a f2 62 67 |Uu,"pushup"):.bg|
00002700 28 55 75 2c 22 70 75 73 68 64 6f 77 6e 22 29 3a |(Uu,"pushdown"):|
00002710 62 68 3d 55 77 3a e1 0d 1d 38 da dd f2 56 67 3a |bh=Uw:...8...Vg:|
00002720 62 69 3d 55 6f 3a f2 62 6a 28 55 6b 2c 22 3c 22 |bi=Uo:.bj(Uk,"<"|
00002730 2b 55 64 24 2b 22 24 44 69 72 3e 2e 54 65 6d 70 |+Ud$+"$Dir>.Temp|
00002740 6c 61 74 65 73 22 29 3a 62 69 3d a4 63 74 69 6f |lates"):bi=.ctio|
00002750 6e 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 28 55 |n_LoadTemplate(U|
00002760 6d 2c 62 69 2c 55 6f 2b 55 6e 2c 22 69 6e 66 6f |m,bi,Uo+Un,"info|
00002770 72 6d 61 74 69 6f 6e 22 2c 62 68 29 3a 62 6b 3d |rmation",bh):bk=|
00002780 a4 63 74 69 6f 6e 5f 4d 61 6b 65 54 65 6d 70 6c |.ction_MakeTempl|
00002790 61 74 65 41 57 69 6e 64 6f 77 28 55 6d 29 3a 62 |ateAWindow(Um):b|
000027a0 69 3d a4 63 74 69 6f 6e 5f 4c 6f 61 64 54 65 6d |i=.ction_LoadTem|
000027b0 70 6c 61 74 65 28 55 6d 2c 62 69 2c 55 6f 2b 55 |plate(Um,bi,Uo+U|
000027c0 6e 2c 22 70 72 66 5f 77 69 6e 22 2c 62 68 29 3a |n,"prf_win",bh):|
000027d0 57 67 3d a4 63 74 69 6f 6e 5f 4d 61 6b 65 54 65 |Wg=.ction_MakeTe|
000027e0 6d 70 6c 61 74 65 41 57 69 6e 64 6f 77 28 55 6d |mplateAWindow(Um|
000027f0 29 0d 1d 7e df 62 69 3d a4 63 74 69 6f 6e 5f 4c |)..~.bi=.ction_L|
00002800 6f 61 64 54 65 6d 70 6c 61 74 65 28 55 6d 2c 62 |oadTemplate(Um,b|
00002810 69 2c 55 6f 2b 55 6e 2c 22 70 72 66 5f 70 61 6e |i,Uo+Un,"prf_pan|
00002820 65 22 2c 62 68 29 3a 57 68 3d a4 63 74 69 6f 6e |e",bh):Wh=.ction|
00002830 5f 4d 61 6b 65 54 65 6d 70 6c 61 74 65 41 57 69 |_MakeTemplateAWi|
00002840 6e 64 6f 77 28 55 6d 29 3a 62 69 3d a4 63 74 69 |ndow(Um):bi=.cti|
00002850 6f 6e 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 28 |on_LoadTemplate(|
00002860 55 6d 2c 62 69 2c 55 6f 2b 55 6e 2c 22 78 66 65 |Um,bi,Uo+Un,"xfe|
00002870 72 5f 69 6e 73 74 22 2c 62 68 29 3a 58 76 3d a4 |r_inst",bh):Xv=.|
00002880 63 74 69 6f 6e 5f 4d 61 6b 65 54 65 6d 70 6c 61 |ction_MakeTempla|
00002890 74 65 41 57 69 6e 64 6f 77 28 55 6d 29 3a 62 69 |teAWindow(Um):bi|
000028a0 3d a4 63 74 69 6f 6e 5f 4c 6f 61 64 54 65 6d 70 |=.ction_LoadTemp|
000028b0 6c 61 74 65 28 55 6d 2c 62 69 2c 55 6f 2b 55 6e |late(Um,bi,Uo+Un|
000028c0 2c 22 78 66 65 72 5f 64 61 74 61 22 2c 62 68 29 |,"xfer_data",bh)|
000028d0 0d 1d b0 fa 58 78 3d a4 63 74 69 6f 6e 5f 4d 61 |....Xx=.ction_Ma|
000028e0 6b 65 54 65 6d 70 6c 61 74 65 41 57 69 6e 64 6f |keTemplateAWindo|
000028f0 77 28 55 6d 29 3a 62 69 3d a4 63 74 69 6f 6e 5f |w(Um):bi=.ction_|
00002900 4c 6f 61 64 54 65 6d 70 6c 61 74 65 28 55 6d 2c |LoadTemplate(Um,|
00002910 62 69 2c 55 6f 2b 55 6e 2c 22 78 66 65 72 5f 61 |bi,Uo+Un,"xfer_a|
00002920 70 70 22 2c 62 68 29 3a 58 7a 3d a4 63 74 69 6f |pp",bh):Xz=.ctio|
00002930 6e 5f 4d 61 6b 65 54 65 6d 70 6c 61 74 65 41 57 |n_MakeTemplateAW|
00002940 69 6e 64 6f 77 28 55 6d 29 3a 62 69 3d a4 63 74 |indow(Um):bi=.ct|
00002950 69 6f 6e 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 |ion_LoadTemplate|
00002960 28 55 6d 2c 62 69 2c 55 6f 2b 55 6e 2c 22 6d 61 |(Um,bi,Uo+Un,"ma|
00002970 69 6e 22 2c 62 68 29 3a 57 64 3d a4 63 74 69 6f |in",bh):Wd=.ctio|
00002980 6e 5f 4d 61 6b 65 54 65 6d 70 6c 61 74 65 41 57 |n_MakeTemplateAW|
00002990 69 6e 64 6f 77 28 55 6d 29 3a 62 69 3d a4 63 74 |indow(Um):bi=.ct|
000029a0 69 6f 6e 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 |ion_LoadTemplate|
000029b0 28 55 6d 2c 62 69 2c 55 6f 2b 55 6e 2c 22 6c 69 |(Um,bi,Uo+Un,"li|
000029c0 62 5f 77 69 6e 22 2c 62 68 29 0d 1d ec ce 57 69 |b_win",bh)....Wi|
000029d0 3d a4 63 74 69 6f 6e 5f 4d 61 6b 65 54 65 6d 70 |=.ction_MakeTemp|
000029e0 6c 61 74 65 41 57 69 6e 64 6f 77 28 55 6d 29 3a |lateAWindow(Um):|
000029f0 62 69 3d a4 63 74 69 6f 6e 5f 4c 6f 61 64 54 65 |bi=.ction_LoadTe|
00002a00 6d 70 6c 61 74 65 28 55 6d 2c 62 69 2c 55 6f 2b |mplate(Um,bi,Uo+|
00002a10 55 6e 2c 22 6c 69 62 5f 70 61 6e 65 22 2c 62 68 |Un,"lib_pane",bh|
00002a20 29 3a 57 6a 3d a4 63 74 69 6f 6e 5f 4d 61 6b 65 |):Wj=.ction_Make|
00002a30 54 65 6d 70 6c 61 74 65 41 57 69 6e 64 6f 77 28 |TemplateAWindow(|
00002a40 55 6d 29 3a 62 69 3d a4 63 74 69 6f 6e 5f 4c 6f |Um):bi=.ction_Lo|
00002a50 61 64 54 65 6d 70 6c 61 74 65 28 55 6d 2c 62 69 |adTemplate(Um,bi|
00002a60 2c 55 6f 2b 55 6e 2c 22 6d 61 69 6e 5f 70 61 6e |,Uo+Un,"main_pan|
00002a70 65 22 2c 62 68 29 3a 57 66 3d a4 63 74 69 6f 6e |e",bh):Wf=.ction|
00002a80 5f 4d 61 6b 65 54 65 6d 70 6c 61 74 65 41 57 69 |_MakeTemplateAWi|
00002a90 6e 64 6f 77 28 55 6d 29 0d 1e 1e df 62 69 3d a4 |ndow(Um)....bi=.|
00002aa0 63 74 69 6f 6e 5f 4c 6f 61 64 54 65 6d 70 6c 61 |ction_LoadTempla|
00002ab0 74 65 28 55 6d 2c 62 69 2c 55 6f 2b 55 6e 2c 22 |te(Um,bi,Uo+Un,"|
00002ac0 6d 75 73 69 63 5f 69 6e 66 6f 22 2c 62 68 29 3a |music_info",bh):|
00002ad0 5a 77 3d a4 63 74 69 6f 6e 5f 4d 61 6b 65 54 65 |Zw=.ction_MakeTe|
00002ae0 6d 70 6c 61 74 65 41 57 69 6e 64 6f 77 28 55 6d |mplateAWindow(Um|
00002af0 29 3a 62 69 3d a4 63 74 69 6f 6e 5f 4c 6f 61 64 |):bi=.ction_Load|
00002b00 54 65 6d 70 6c 61 74 65 28 55 6d 2c 62 69 2c 55 |Template(Um,bi,U|
00002b10 6f 2b 55 6e 2c 22 73 65 71 5f 6d 61 69 6e 22 2c |o+Un,"seq_main",|
00002b20 62 68 29 3a 57 6b 3d a4 63 74 69 6f 6e 5f 4d 61 |bh):Wk=.ction_Ma|
00002b30 6b 65 54 65 6d 70 6c 61 74 65 41 57 69 6e 64 6f |keTemplateAWindo|
00002b40 77 28 55 6d 29 3a 62 69 3d a4 63 74 69 6f 6e 5f |w(Um):bi=.ction_|
00002b50 4c 6f 61 64 54 65 6d 70 6c 61 74 65 28 55 6d 2c |LoadTemplate(Um,|
00002b60 62 69 2c 55 6f 2b 55 6e 2c 22 73 65 71 5f 70 61 |bi,Uo+Un,"seq_pa|
00002b70 6e 65 22 2c 62 68 29 0d 1e 50 fb 57 6c 3d a4 63 |ne",bh)..P.Wl=.c|
00002b80 74 69 6f 6e 5f 4d 61 6b 65 54 65 6d 70 6c 61 74 |tion_MakeTemplat|
00002b90 65 41 57 69 6e 64 6f 77 28 55 6d 29 3a 62 69 3d |eAWindow(Um):bi=|
00002ba0 a4 63 74 69 6f 6e 5f 4c 6f 61 64 54 65 6d 70 6c |.ction_LoadTempl|
00002bb0 61 74 65 28 55 6d 2c 62 69 2c 55 6f 2b 55 6e 2c |ate(Um,bi,Uo+Un,|
00002bc0 22 63 68 6e 67 5f 6e 6f 74 65 22 2c 62 68 29 3a |"chng_note",bh):|
00002bd0 59 62 3d a4 63 74 69 6f 6e 5f 4d 61 6b 65 54 65 |Yb=.ction_MakeTe|
00002be0 6d 70 6c 61 74 65 41 57 69 6e 64 6f 77 28 55 6d |mplateAWindow(Um|
00002bf0 29 3a 62 69 3d a4 63 74 69 6f 6e 5f 4c 6f 61 64 |):bi=.ction_Load|
00002c00 54 65 6d 70 6c 61 74 65 28 55 6d 2c 62 69 2c 55 |Template(Um,bi,U|
00002c10 6f 2b 55 6e 2c 22 63 68 6e 67 5f 66 78 22 2c 62 |o+Un,"chng_fx",b|
00002c20 68 29 3a 59 67 3d a4 63 74 69 6f 6e 5f 4d 61 6b |h):Yg=.ction_Mak|
00002c30 65 54 65 6d 70 6c 61 74 65 41 57 69 6e 64 6f 77 |eTemplateAWindow|
00002c40 28 55 6d 29 3a 62 69 3d a4 63 74 69 6f 6e 5f 4c |(Um):bi=.ction_L|
00002c50 6f 61 64 54 65 6d 70 6c 61 74 65 28 55 6d 2c 62 |oadTemplate(Um,b|
00002c60 69 2c 55 6f 2b 55 6e 2c 22 70 6c 61 79 22 2c 62 |i,Uo+Un,"play",b|
00002c70 68 29 0d 1e 8c fd 59 6a 3d a4 63 74 69 6f 6e 5f |h)....Yj=.ction_|
00002c80 4d 61 6b 65 54 65 6d 70 6c 61 74 65 41 57 69 6e |MakeTemplateAWin|
00002c90 64 6f 77 28 55 6d 29 3a 62 69 3d a4 63 74 69 6f |dow(Um):bi=.ctio|
00002ca0 6e 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 28 55 |n_LoadTemplate(U|
00002cb0 6d 2c 62 69 2c 55 6f 2b 55 6e 2c 22 6a 75 6d 70 |m,bi,Uo+Un,"jump|
00002cc0 22 2c 62 68 29 3a 61 64 3d a4 63 74 69 6f 6e 5f |",bh):ad=.ction_|
00002cd0 4d 61 6b 65 54 65 6d 70 6c 61 74 65 41 57 69 6e |MakeTemplateAWin|
00002ce0 64 6f 77 28 55 6d 29 3a 62 69 3d a4 63 74 69 6f |dow(Um):bi=.ctio|
00002cf0 6e 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 28 55 |n_LoadTemplate(U|
00002d00 6d 2c 62 69 2c 55 6f 2b 55 6e 2c 22 69 6e 73 74 |m,bi,Uo+Un,"inst|
00002d10 5f 6d 61 69 6e 22 2c 62 68 29 3a 57 6d 3d a4 63 |_main",bh):Wm=.c|
00002d20 74 69 6f 6e 5f 4d 61 6b 65 54 65 6d 70 6c 61 74 |tion_MakeTemplat|
00002d30 65 41 57 69 6e 64 6f 77 28 55 6d 29 3a 62 69 3d |eAWindow(Um):bi=|
00002d40 a4 63 74 69 6f 6e 5f 4c 6f 61 64 54 65 6d 70 6c |.ction_LoadTempl|
00002d50 61 74 65 28 55 6d 2c 62 69 2c 55 6f 2b 55 6e 2c |ate(Um,bi,Uo+Un,|
00002d60 22 69 6e 73 74 5f 70 61 6e 65 22 2c 62 68 29 0d |"inst_pane",bh).|
00002d70 1e c8 fa 57 6e 3d a4 63 74 69 6f 6e 5f 4d 61 6b |...Wn=.ction_Mak|
00002d80 65 54 65 6d 70 6c 61 74 65 41 57 69 6e 64 6f 77 |eTemplateAWindow|
00002d90 28 55 6d 29 3a 62 69 3d a4 63 74 69 6f 6e 5f 4c |(Um):bi=.ction_L|
00002da0 6f 61 64 54 65 6d 70 6c 61 74 65 28 55 6d 2c 62 |oadTemplate(Um,b|
00002db0 69 2c 55 6f 2b 55 6e 2c 22 70 69 61 6e 6f 22 2c |i,Uo+Un,"piano",|
00002dc0 62 68 29 3a 59 71 3d a4 63 74 69 6f 6e 5f 4d 61 |bh):Yq=.ction_Ma|
00002dd0 6b 65 54 65 6d 70 6c 61 74 65 41 57 69 6e 64 6f |keTemplateAWindo|
00002de0 77 28 55 6d 29 3a 62 69 3d a4 63 74 69 6f 6e 5f |w(Um):bi=.ction_|
00002df0 4c 6f 61 64 54 65 6d 70 6c 61 74 65 28 55 6d 2c |LoadTemplate(Um,|
00002e00 62 69 2c 55 6f 2b 55 6e 2c 22 73 68 61 72 65 5f |bi,Uo+Un,"share_|
00002e10 31 22 2c 62 68 29 3a 58 62 3d a4 63 74 69 6f 6e |1",bh):Xb=.ction|
00002e20 5f 4d 61 6b 65 54 65 6d 70 6c 61 74 65 41 57 69 |_MakeTemplateAWi|
00002e30 6e 64 6f 77 28 55 6d 29 3a 62 69 3d a4 63 74 69 |ndow(Um):bi=.cti|
00002e40 6f 6e 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 28 |on_LoadTemplate(|
00002e50 55 6d 2c 62 69 2c 55 6f 2b 55 6e 2c 22 73 68 61 |Um,bi,Uo+Un,"sha|
00002e60 72 65 5f 32 22 2c 62 68 29 0d 1f 04 2b 58 64 3d |re_2",bh)...+Xd=|
00002e70 a4 63 74 69 6f 6e 5f 4d 61 6b 65 54 65 6d 70 6c |.ction_MakeTempl|
00002e80 61 74 65 41 57 69 6e 64 6f 77 28 55 6d 29 3a f2 |ateAWindow(Um):.|
00002e90 62 6c 3a e1 0d 1f 36 82 dd f2 59 73 28 58 58 29 |bl:...6...Ys(XX)|
00002ea0 3a 56 65 3d 31 3a 62 6d 3d 30 3a f2 62 6e 28 55 |:Ve=1:bm=0:.bn(U|
00002eb0 64 24 2c 31 36 30 2c 34 34 29 3a f2 62 6f 28 22 |d$,160,44):.bo("|
00002ec0 49 6e 66 6f 22 2c 30 2c 62 6b 2c 20 ac b9 29 3a |Info",0,bk, ..):|
00002ed0 f2 62 6f 28 22 50 72 65 66 73 2e 2e 2e 22 2c 30 |.bo("Prefs...",0|
00002ee0 2c 2d 31 2c 57 55 29 3a f2 62 6f 28 22 51 75 69 |,-1,WU):.bo("Qui|
00002ef0 74 22 2c 31 32 38 2c 2d 31 2c 57 55 29 3a c8 99 |t",128,-1,WU):..|
00002f00 26 34 30 30 44 34 2c 2c 55 79 2c 58 58 2d 38 30 |&400D4,,Uy,XX-80|
00002f10 2c 32 32 38 3a e1 0d 1f a4 78 dd f2 59 74 28 58 |,228:....x..Yt(X|
00002f20 58 2c 58 59 29 3a 56 65 3d 32 3a 62 6d 3d 30 3a |X,XY):Ve=2:bm=0:|
00002f30 62 70 3d 55 79 2b 32 2a 31 30 32 34 3a 62 71 3d |bp=Uy+2*1024:bq=|
00002f40 30 3a f2 61 66 3a 5a 78 24 3d a4 63 74 69 6f 6e |0:.af:Zx$=.ction|
00002f50 5f 50 61 74 68 6e 61 6d 65 4f 6e 6c 79 28 a4 63 |_PathnameOnly(.c|
00002f60 74 69 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 65 78 |tion_ReadIconTex|
00002f70 74 28 55 6b 2c 58 76 2c 31 29 29 3a e7 5a 78 24 |t(Uk,Xv,1)):.Zx$|
00002f80 3c 3e 22 22 20 8c 5a 78 24 2b 3d 22 2e 22 0d 1f |<>"" .Zx$+="."..|
00002f90 fe f9 f2 61 55 28 55 6b 2c 58 76 2c 31 2c 5a 78 |...aU(Uk,Xv,1,Zx|
00002fa0 24 2b a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f |$+.ction_ReadIco|
00002fb0 6e 54 65 78 74 28 55 6b 2c 57 66 2c 31 29 29 3a |nText(Uk,Wf,1)):|
00002fc0 62 72 3d 55 79 2b 62 6d 3a f2 62 6e 28 22 53 65 |br=Uy+bm:.bn("Se|
00002fd0 6c 65 63 74 22 2c 31 37 36 2c 34 34 29 3a f2 62 |lect",176,44):.b|
00002fe0 6f 28 22 43 6f 70 79 20 20 20 20 5e 43 22 2c 30 |o("Copy ^C",0|
00002ff0 2c 2d 31 2c 5a 6b 3d 30 29 3a f2 62 6f 28 22 4d |,-1,Zk=0):.bo("M|
00003000 6f 76 65 20 20 20 20 5e 56 22 2c 30 2c 2d 31 2c |ove ^V",0,-1,|
00003010 5a 6b 3d 30 29 3a f2 62 6f 28 22 44 65 6c 65 74 |Zk=0):.bo("Delet|
00003020 65 20 20 5e 58 22 2c 30 2c 2d 31 2c 5a 6b 3d 30 |e ^X",0,-1,Zk=0|
00003030 29 3a f2 62 6f 28 22 43 6c 65 61 72 20 20 20 5e |):.bo("Clear ^|
00003040 5a 22 2c 30 2c 2d 31 2c 5a 6b 3d 30 29 3a f2 62 |Z",0,-1,Zk=0):.b|
00003050 6f 28 22 4d 65 72 67 65 20 20 20 5e 4d 22 2c 31 |o("Merge ^M",1|
00003060 32 38 2c 2d 31 2c 5a 6b 3d 30 29 3a 62 73 3d 55 |28,-1,Zk=0):bs=U|
00003070 79 2b 62 6d 3a f2 62 6e 28 22 45 64 69 74 22 2c |y+bm:.bn("Edit",|
00003080 32 32 34 2c 34 34 29 0d 20 76 f1 f2 62 6f 28 22 |224,44). v..bo("|
00003090 41 6c 74 65 72 20 6e 6f 74 65 22 2c 30 2c 2d 31 |Alter note",0,-1|
000030a0 2c 5a 6b 3d 30 29 3a f2 62 6f 28 22 41 6c 74 65 |,Zk=0):.bo("Alte|
000030b0 72 20 65 66 66 65 63 74 73 22 2c 32 2c 2d 31 2c |r effects",2,-1,|
000030c0 5a 6b 3d 30 29 3a f2 62 74 28 22 53 65 71 75 65 |Zk=0):.bt("Seque|
000030d0 6e 63 65 20 6c 69 73 74 22 2c 30 2c 2d 31 2c 20 |nce list",0,-1, |
000030e0 ac b9 29 3a f2 62 6f 28 22 4c 69 62 72 61 72 69 |..):.bo("Librari|
000030f0 65 73 22 2c 31 32 38 2c 2d 31 2c 56 70 3d 30 29 |es",128,-1,Vp=0)|
00003100 3a 62 75 3d 55 79 2b 62 6d 3a f2 62 6e 28 22 4d |:bu=Uy+bm:.bn("M|
00003110 69 73 63 22 2c 33 33 36 2c 34 34 29 3a f2 62 74 |isc",336,44):.bt|
00003120 28 22 49 6e 66 6f 2e 2e 2e 20 20 20 20 20 20 20 |("Info... |
00003130 20 20 20 5e 46 31 22 2c 30 2c 5a 77 2c 20 ac b9 | ^F1",0,Zw, ..|
00003140 29 3a f2 62 6f 28 22 50 6c 61 79 20 4d 75 73 69 |):.bo("Play Musi|
00003150 63 22 2c 30 2c 2d 31 2c 57 55 29 3a f2 62 74 28 |c",0,-1,WU):.bt(|
00003160 22 53 68 6f 77 20 4b 65 79 62 6f 61 72 64 22 2c |"Show Keyboard",|
00003170 32 2c 2d 31 2c 57 55 29 0d 20 da fe f2 62 74 28 |2,-1,WU). ...bt(|
00003180 22 53 61 76 65 20 41 70 70 6c 69 63 61 74 69 6f |"Save Applicatio|
00003190 6e 20 20 46 33 22 2c 30 2c 58 7a 2c 20 ac b9 29 |n F3",0,Xz, ..)|
000031a0 3a f2 62 74 28 22 53 61 76 65 20 49 6e 73 74 72 |:.bt("Save Instr|
000031b0 75 6d 65 6e 74 20 20 8b 46 33 22 2c 30 2c 58 76 |ument .F3",0,Xv|
000031c0 2c 56 71 3d 30 29 3a f2 62 74 28 22 53 61 76 65 |,Vq=0):.bt("Save|
000031d0 20 4d 75 73 69 63 20 44 61 74 61 20 20 5e 46 33 | Music Data ^F3|
000031e0 22 2c 32 2c 58 78 2c 20 ac b9 29 3a f2 62 6f 28 |",2,Xx, ..):.bo(|
000031f0 22 52 65 73 74 61 72 74 22 2c 31 32 38 2c 2d 31 |"Restart",128,-1|
00003200 2c 57 55 29 3a 62 76 3d 55 79 2b 62 6d 3a f2 62 |,WU):bv=Uy+bm:.b|
00003210 6e 28 22 49 6e 73 74 72 75 6d 65 6e 74 22 2c 31 |n("Instrument",1|
00003220 37 36 2c 34 34 29 3a f2 62 74 28 22 52 65 6d 6f |76,44):.bt("Remo|
00003230 76 65 20 20 5e 52 22 2c 30 2c 2d 31 2c 56 71 3d |ve ^R",0,-1,Vq=|
00003240 30 29 3a f2 62 74 28 22 49 6e 73 74 61 6c 6c 20 |0):.bt("Install |
00003250 5e 49 22 2c 32 2c 2d 31 2c 56 70 3d 30 29 3a f2 |^I",2,-1,Vp=0):.|
00003260 62 74 28 22 45 64 69 74 22 2c 31 32 38 2c 2d 31 |bt("Edit",128,-1|
00003270 2c 56 71 3d 30 29 0d 21 48 fb 62 77 3d 55 79 2b |,Vq=0).!H.bw=Uy+|
00003280 62 6d 3a f2 62 6e 28 22 50 61 74 74 65 72 6e 22 |bm:.bn("Pattern"|
00003290 2c 31 37 36 2c 34 34 29 3a f2 62 6f 28 22 49 6e |,176,44):.bo("In|
000032a0 73 65 72 74 20 20 5e 50 22 2c 30 2c 2d 31 2c 62 |sert ^P",0,-1,b|
000032b0 78 3d 56 6d 29 3a f2 62 6f 28 22 43 6c 6f 6e 65 |x=Vm):.bo("Clone|
000032c0 20 20 20 20 20 22 2c 30 2c 2d 31 2c 20 ac b9 29 | ",0,-1, ..)|
000032d0 3a f2 62 6f 28 22 43 6c 65 61 72 20 20 20 20 20 |:.bo("Clear |
000032e0 22 2c 32 2c 2d 31 2c 20 ac b9 29 3a f2 62 6f 28 |",2,-1, ..):.bo(|
000032f0 22 52 65 6d 6f 76 65 20 20 5e 4b 22 2c 30 2c 2d |"Remove ^K",0,-|
00003300 31 2c 62 78 3d 31 29 3a f2 62 6f 28 22 4a 75 6d |1,bx=1):.bo("Jum|
00003310 70 20 20 20 20 5e 4a 22 2c 31 32 38 2c 2d 31 2c |p ^J",128,-1,|
00003320 20 ac 56 76 29 3a 62 79 3d 55 79 2b 62 6d 3a f2 | .Vv):by=Uy+bm:.|
00003330 62 6e 28 22 48 51 54 72 61 63 6b 65 72 22 2c 31 |bn("HQTracker",1|
00003340 37 36 2c 34 34 29 3a f2 62 6f 28 22 4d 69 73 63 |76,44):.bo("Misc|
00003350 22 2c 32 2c 62 75 2c 20 ac b9 29 3a f2 62 6f 28 |",2,bu, ..):.bo(|
00003360 22 53 65 6c 65 63 74 22 2c 30 2c 62 72 2c 57 55 |"Select",0,br,WU|
00003370 29 0d 21 c0 5f f2 62 6f 28 22 45 64 69 74 22 2c |).!._.bo("Edit",|
00003380 32 2c 62 73 2c 57 55 29 3a f2 62 6f 28 22 49 6e |2,bs,WU):.bo("In|
00003390 73 74 72 75 6d 65 6e 74 22 2c 30 2c 62 76 2c 57 |strument",0,bv,W|
000033a0 55 29 3a f2 62 6f 28 22 50 61 74 74 65 72 6e 22 |U):.bo("Pattern"|
000033b0 2c 31 32 38 2c 62 77 2c 57 55 29 3a c8 99 26 34 |,128,bw,WU):..&4|
000033c0 30 30 44 34 2c 2c 62 79 2c 58 58 2c 58 59 3a e1 |00D4,,by,XX,XY:.|
000033d0 0d 22 1a fd dd f2 58 6c 28 58 58 2c 58 59 2c 62 |."....Xl(XX,XY,b|
000033e0 7a 29 3a 56 65 3d 62 7a 3a 62 6d 3d 30 3a 62 70 |z):Ve=bz:bm=0:bp|
000033f0 3d 55 79 2b 31 2a 20 31 30 32 34 3a 62 71 3d 30 |=Uy+1* 1024:bq=0|
00003400 3a f2 62 6e 28 22 53 74 65 72 65 6f 22 2c 32 30 |:.bn("Stereo",20|
00003410 38 2c 34 34 29 3a f2 62 74 28 a4 63 74 69 6f 6e |8,44):.bt(.ction|
00003420 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c |_TagToString(Vk,|
00003430 22 73 74 65 72 30 31 22 29 2c 30 2c 2d 31 2c 20 |"ster01"),0,-1, |
00003440 ac b9 29 3a f2 62 74 28 a4 63 74 69 6f 6e 5f 54 |..):.bt(.ction_T|
00003450 61 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 73 |agToString(Vk,"s|
00003460 74 65 72 30 32 22 29 2c 30 2c 2d 31 2c 20 ac b9 |ter02"),0,-1, ..|
00003470 29 3a f2 62 74 28 a4 63 74 69 6f 6e 5f 54 61 67 |):.bt(.ction_Tag|
00003480 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 73 74 65 |ToString(Vk,"ste|
00003490 72 30 33 22 29 2c 30 2c 2d 31 2c 20 ac b9 29 3a |r03"),0,-1, ..):|
000034a0 f2 62 74 28 a4 63 74 69 6f 6e 5f 54 61 67 54 6f |.bt(.ction_TagTo|
000034b0 53 74 72 69 6e 67 28 56 6b 2c 22 73 74 65 72 30 |String(Vk,"ster0|
000034c0 34 22 29 2c 30 2c 2d 31 2c 20 ac b9 29 0d 22 7e |4"),0,-1, ..)."~|
000034d0 a4 f2 62 74 28 a4 63 74 69 6f 6e 5f 54 61 67 54 |..bt(.ction_TagT|
000034e0 6f 53 74 72 69 6e 67 28 56 6b 2c 22 73 74 65 72 |oString(Vk,"ster|
000034f0 30 35 22 29 2c 30 2c 2d 31 2c 20 ac b9 29 3a f2 |05"),0,-1, ..):.|
00003500 62 74 28 a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 |bt(.ction_TagToS|
00003510 74 72 69 6e 67 28 56 6b 2c 22 73 74 65 72 30 36 |tring(Vk,"ster06|
00003520 22 29 2c 30 2c 2d 31 2c 20 ac b9 29 3a f2 62 74 |"),0,-1, ..):.bt|
00003530 28 a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 |(.ction_TagToStr|
00003540 69 6e 67 28 56 6b 2c 22 73 74 65 72 30 37 22 29 |ing(Vk,"ster07")|
00003550 2c 31 32 38 2c 2d 31 2c 20 ac b9 29 3a c8 99 26 |,128,-1, ..):..&|
00003560 34 30 30 44 34 2c 2c 55 79 2c 58 58 2c 58 59 3a |400D4,,Uy,XX,XY:|
00003570 e1 0d 22 c4 88 dd f2 58 71 28 58 58 2c 58 59 29 |.."....Xq(XX,XY)|
00003580 3a 56 65 3d 32 30 3a 62 6d 3d 30 3a f2 62 6e 28 |:Ve=20:bm=0:.bn(|
00003590 22 4f 63 74 61 76 65 73 22 2c 39 36 2c 34 34 29 |"Octaves",96,44)|
000035a0 3a e3 63 55 3d 31 20 b8 37 3a 61 71 3d 32 2a 20 |:.cU=1 .7:aq=2* |
000035b0 94 28 63 55 3d 33 20 84 63 55 3d 34 29 3a f2 62 |.(cU=3 .cU=4):.b|
000035c0 6f 28 c3 63 55 2c 61 71 2c 2d 31 2c 20 ac b9 29 |o(.cU,aq,-1, ..)|
000035d0 3a ed 63 55 3a 21 28 55 79 2b 62 6d 2d 32 34 29 |:.cU:!(Uy+bm-24)|
000035e0 3d 31 32 38 3a c8 99 26 34 30 30 44 34 2c 2c 55 |=128:..&400D4,,U|
000035f0 79 2c 58 58 2c 58 59 3a e1 0d 23 46 fe dd f2 58 |y,XX,XY:..#F...X|
00003600 6d 28 58 58 2c 58 59 2c 62 7a 29 3a 56 65 3d 62 |m(XX,XY,bz):Ve=b|
00003610 7a 3a 62 6d 3d 30 3a 62 70 3d 55 79 2b 31 2a 20 |z:bm=0:bp=Uy+1* |
00003620 31 30 32 34 3a 62 71 3d 30 3a f2 62 6e 28 22 51 |1024:bq=0:.bn("Q|
00003630 75 61 6c 69 74 79 22 2c 31 37 36 2c 34 34 29 3a |uality",176,44):|
00003640 f2 62 74 28 a4 63 74 69 6f 6e 5f 54 61 67 54 6f |.bt(.ction_TagTo|
00003650 53 74 72 69 6e 67 28 56 6b 2c 22 71 75 61 6c 30 |String(Vk,"qual0|
00003660 31 22 29 2c 30 2c 2d 31 2c 20 ac b9 29 3a f2 62 |1"),0,-1, ..):.b|
00003670 74 28 a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 |t(.ction_TagToSt|
00003680 72 69 6e 67 28 56 6b 2c 22 71 75 61 6c 30 32 22 |ring(Vk,"qual02"|
00003690 29 2c 30 2c 2d 31 2c 20 ac b9 29 3a f2 62 74 28 |),0,-1, ..):.bt(|
000036a0 a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 |.ction_TagToStri|
000036b0 6e 67 28 56 6b 2c 22 71 75 61 6c 30 33 22 29 2c |ng(Vk,"qual03"),|
000036c0 30 2c 2d 31 2c 20 ac b9 29 3a f2 62 74 28 a4 63 |0,-1, ..):.bt(.c|
000036d0 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 |tion_TagToString|
000036e0 28 56 6b 2c 22 71 75 61 6c 30 34 22 29 2c 30 2c |(Vk,"qual04"),0,|
000036f0 2d 31 2c 20 ac b9 29 0d 23 aa a4 f2 62 74 28 a4 |-1, ..).#...bt(.|
00003700 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e |ction_TagToStrin|
00003710 67 28 56 6b 2c 22 71 75 61 6c 30 35 22 29 2c 30 |g(Vk,"qual05"),0|
00003720 2c 2d 31 2c 20 ac b9 29 3a f2 62 74 28 a4 63 74 |,-1, ..):.bt(.ct|
00003730 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 |ion_TagToString(|
00003740 56 6b 2c 22 71 75 61 6c 30 36 22 29 2c 30 2c 2d |Vk,"qual06"),0,-|
00003750 31 2c 20 ac b9 29 3a f2 62 74 28 a4 63 74 69 6f |1, ..):.bt(.ctio|
00003760 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 56 6b |n_TagToString(Vk|
00003770 2c 22 71 75 61 6c 30 37 22 29 2c 31 32 38 2c 2d |,"qual07"),128,-|
00003780 31 2c 20 ac b9 29 3a c8 99 26 34 30 30 44 34 2c |1, ..):..&400D4,|
00003790 2c 55 79 2c 58 58 2c 58 59 3a e1 0d 23 f0 ed dd |,Uy,XX,XY:..#...|
000037a0 f2 59 64 28 58 58 2c 58 59 2c 62 7a 29 3a 56 65 |.Yd(XX,XY,bz):Ve|
000037b0 3d 62 7a 3a 62 6d 3d 30 3a f2 62 6e 28 22 4e 6f |=bz:bm=0:.bn("No|
000037c0 74 65 22 2c 36 34 2c 34 34 29 3a f2 62 6f 28 22 |te",64,44):.bo("|
000037d0 43 20 22 2c 30 2c 2d 31 2c 20 ac b9 29 3a f2 62 |C ",0,-1, ..):.b|
000037e0 6f 28 22 43 23 22 2c 30 2c 2d 31 2c 20 ac b9 29 |o("C#",0,-1, ..)|
000037f0 3a f2 62 6f 28 22 44 20 22 2c 30 2c 2d 31 2c 20 |:.bo("D ",0,-1, |
00003800 ac b9 29 3a f2 62 6f 28 22 44 23 22 2c 30 2c 2d |..):.bo("D#",0,-|
00003810 31 2c 20 ac b9 29 3a f2 62 6f 28 22 45 20 22 2c |1, ..):.bo("E ",|
00003820 30 2c 2d 31 2c 20 ac b9 29 3a f2 62 6f 28 22 46 |0,-1, ..):.bo("F|
00003830 20 22 2c 30 2c 2d 31 2c 20 ac b9 29 3a f2 62 6f | ",0,-1, ..):.bo|
00003840 28 22 46 23 22 2c 30 2c 2d 31 2c 20 ac b9 29 3a |("F#",0,-1, ..):|
00003850 f2 62 6f 28 22 47 20 22 2c 30 2c 2d 31 2c 20 ac |.bo("G ",0,-1, .|
00003860 b9 29 3a f2 62 6f 28 22 47 23 22 2c 30 2c 2d 31 |.):.bo("G#",0,-1|
00003870 2c 20 ac b9 29 3a f2 62 6f 28 22 41 20 22 2c 30 |, ..):.bo("A ",0|
00003880 2c 2d 31 2c 20 ac b9 29 0d 24 7c 40 f2 62 6f 28 |,-1, ..).$|@.bo(|
00003890 22 41 23 22 2c 30 2c 2d 31 2c 20 ac b9 29 3a f2 |"A#",0,-1, ..):.|
000038a0 62 6f 28 22 42 20 22 2c 31 32 38 2c 2d 31 2c 20 |bo("B ",128,-1, |
000038b0 ac b9 29 3a c8 99 26 34 30 30 44 34 2c 2c 55 79 |..):..&400D4,,Uy|
000038c0 2c 58 58 2c 58 59 3a e1 0d 24 b8 88 dd f2 59 65 |,XX,XY:..$....Ye|
000038d0 28 58 58 2c 58 59 2c 62 7a 29 3a 56 65 3d 62 7a |(XX,XY,bz):Ve=bz|
000038e0 3a 62 6d 3d 30 3a f2 62 6e 28 22 4f 63 74 61 76 |:bm=0:.bn("Octav|
000038f0 65 73 22 2c 39 36 2c 34 34 29 3a f2 62 6f 28 22 |es",96,44):.bo("|
00003900 30 22 2c 32 2c 2d 31 2c 20 ac b9 29 3a e3 63 55 |0",2,-1, ..):.cU|
00003910 3d 31 20 b8 37 3a f2 62 6f 28 c3 63 55 2c 30 2c |=1 .7:.bo(.cU,0,|
00003920 2d 31 2c 20 ac b9 29 3a ed 63 55 3a 21 28 55 79 |-1, ..):.cU:!(Uy|
00003930 2b 62 6d 2d 32 34 29 3d 31 32 38 3a c8 99 26 34 |+bm-24)=128:..&4|
00003940 30 30 44 34 2c 2c 55 79 2c 58 58 2c 58 59 3a e1 |00D4,,Uy,XX,XY:.|
00003950 0d 25 3a 90 dd f2 62 6e 28 63 56 24 2c 62 61 2c |.%:...bn(cV$,ba,|
00003960 62 62 29 3a 24 28 55 79 2b 62 6d 29 3d 63 56 24 |bb):$(Uy+bm)=cV$|
00003970 2b bd 30 3a 3f 28 55 79 2b 62 6d 2b 31 32 29 3d |+.0:?(Uy+bm+12)=|
00003980 37 3a 3f 28 55 79 2b 62 6d 2b 31 33 29 3d 32 3a |7:?(Uy+bm+13)=2:|
00003990 3f 28 55 79 2b 62 6d 2b 31 34 29 3d 37 3a 3f 28 |?(Uy+bm+14)=7:?(|
000039a0 55 79 2b 62 6d 2b 31 35 29 3d 30 3a 21 28 55 79 |Uy+bm+15)=0:!(Uy|
000039b0 2b 62 6d 2b 31 36 29 3d 62 61 3a 21 28 55 79 2b |+bm+16)=ba:!(Uy+|
000039c0 62 6d 2b 32 30 29 3d 62 62 3a 21 28 55 79 2b 62 |bm+20)=bb:!(Uy+b|
000039d0 6d 2b 32 34 29 3d 30 3a 62 6d 2b 3d 32 38 3a e1 |m+24)=0:bm+=28:.|
000039e0 0d 25 bc 6c dd f2 62 6f 28 63 57 24 2c 63 58 2c |.%.l..bo(cW$,cX,|
000039f0 63 59 2c 63 5a 29 3a 21 28 55 79 2b 62 6d 2b 30 |cY,cZ):!(Uy+bm+0|
00003a00 29 3d 63 58 3a 21 28 55 79 2b 62 6d 2b 34 29 3d |)=cX:!(Uy+bm+4)=|
00003a10 63 59 3a 21 28 55 79 2b 62 6d 2b 38 29 3d 26 30 |cY:!(Uy+bm+8)=&0|
00003a20 37 30 30 30 30 30 31 2b 94 63 5a 2a 32 5e 32 32 |7000001+.cZ*2^22|
00003a30 3a 24 28 55 79 2b 62 6d 2b 31 32 29 3d 63 57 24 |:$(Uy+bm+12)=cW$|
00003a40 2b bd 30 3a 62 6d 2b 3d 32 34 3a e1 0d 26 16 a5 |+.0:bm+=24:..&..|
00003a50 dd f2 62 74 28 63 61 24 2c 63 58 2c 63 59 2c 63 |..bt(ca$,cX,cY,c|
00003a60 5a 29 3a 21 28 55 79 2b 62 6d 2b 30 29 3d 63 58 |Z):!(Uy+bm+0)=cX|
00003a70 3a 21 28 55 79 2b 62 6d 2b 34 29 3d 63 59 3a 21 |:!(Uy+bm+4)=cY:!|
00003a80 28 55 79 2b 62 6d 2b 38 29 3d 26 30 37 30 30 30 |(Uy+bm+8)=&07000|
00003a90 31 30 31 2b 94 63 5a 2a 32 5e 32 32 3a 63 62 3d |101+.cZ*2^22:cb=|
00003aa0 62 70 2b 62 71 3a 24 63 62 3d 63 61 24 2b bd 30 |bp+bq:$cb=ca$+.0|
00003ab0 3a 62 71 2b 3d a9 63 61 24 2b 31 3a 21 28 55 79 |:bq+=.ca$+1:!(Uy|
00003ac0 2b 62 6d 2b 31 32 29 3d 63 62 3a 21 28 55 79 2b |+bm+12)=cb:!(Uy+|
00003ad0 62 6d 2b 31 36 29 3d 62 70 3a 21 28 55 79 2b 62 |bm+16)=bp:!(Uy+b|
00003ae0 6d 2b 32 30 29 3d 31 36 3a 62 6d 2b 3d 32 34 3a |m+20)=16:bm+=24:|
00003af0 e1 0d 26 8e 28 dd f2 57 73 28 58 57 29 3a 63 63 |..&.(..Ws(XW):cc|
00003b00 3d 58 57 21 30 3a 63 64 3d 58 57 21 34 3a 63 65 |=XW!0:cd=XW!4:ce|
00003b10 3d b9 3a c8 8e 56 65 20 ca 0d 26 c0 0d c9 31 3a |=.:..Ve ..&...1:|
00003b20 c8 8e 63 63 20 ca 0d 26 ca 23 c9 31 3a f2 58 66 |..cc ..&.#.1:.Xf|
00003b30 28 55 6b 2c 57 67 29 3a f2 57 65 28 55 6b 2c 57 |(Uk,Wg):.We(Uk,W|
00003b40 67 2c 57 68 2c 38 2c 38 29 0d 26 de 0c c9 32 3a |g,Wh,8,8).&...2:|
00003b50 e7 56 61 20 8c 0d 26 e8 57 57 77 24 3d a4 63 74 |.Va ..&.WWw$=.ct|
00003b60 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 |ion_TagToString(|
00003b70 56 6b 2c 22 77 61 72 30 37 22 29 3a 57 7a 3d a4 |Vk,"war07"):Wz=.|
00003b80 63 74 69 6f 6e 5f 52 65 70 6f 72 74 45 72 72 6f |ction_ReportErro|
00003b90 72 28 55 6b 2c 39 39 2c 55 64 24 2c 57 77 24 2c |r(Uk,99,Ud$,Ww$,|
00003ba0 b9 2c b9 29 3a 56 63 3d 57 7a 3d 31 0d 27 06 0a |.,.):Vc=Wz=1.'..|
00003bb0 cc 3a 56 63 3d b9 0d 27 1a 05 cd 0d 27 24 05 cb |.:Vc=..'....'$..|
00003bc0 0d 27 2e 0d c9 32 3a c8 8e 63 63 20 ca 0d 27 38 |.'...2:..cc ..'8|
00003bd0 0d c9 30 3a c8 8e 63 64 20 ca 0d 27 42 68 c9 31 |..0:..cd ..'Bh.1|
00003be0 3a f2 61 55 28 55 6b 2c 59 6a 2c 35 2c 22 2d 22 |:.aU(Uk,Yj,5,"-"|
00003bf0 29 3a f2 61 55 28 55 6b 2c 59 6a 2c 33 2c 22 2d |):.aU(Uk,Yj,3,"-|
00003c00 22 29 3a f2 61 55 28 55 6b 2c 59 6a 2c 37 2c 22 |"):.aU(Uk,Yj,7,"|
00003c10 2d 22 29 3a f2 63 66 28 55 6b 2c 59 6a 2c 31 30 |-"):.cf(Uk,Yj,10|
00003c20 2c 57 55 29 3a f2 63 66 28 55 6b 2c 59 6a 2c 31 |,WU):.cf(Uk,Yj,1|
00003c30 31 2c 20 ac 57 55 29 3a f2 58 66 28 55 6b 2c 59 |1, .WU):.Xf(Uk,Y|
00003c40 6a 29 0d 27 7e 18 c9 32 3a f2 57 63 28 55 69 2c |j).'~..2:.Wc(Ui,|
00003c50 55 6b 2c 59 71 2c 20 ac b9 29 0d 27 88 0a c9 36 |Uk,Yq, ..).'...6|
00003c60 3a f2 63 67 0d 27 92 05 cb 0d 27 9c 0d c9 31 3a |:.cg.'....'...1:|
00003c70 c8 8e 63 64 20 ca 0d 27 a6 0a c9 30 3a f2 61 57 |..cd ..'...0:.aW|
00003c80 0d 27 b0 0a c9 31 3a f2 61 58 0d 27 ba 0a c9 32 |.'...1:.aX.'...2|
00003c90 3a f2 61 59 0d 27 c4 0a c9 33 3a f2 56 79 0d 27 |:.aY.'...3:.Vy.'|
00003ca0 ce 0a c9 34 3a f2 61 5a 0d 27 d8 05 cb 0d 27 e2 |...4:.aZ.'....'.|
00003cb0 0d c9 32 3a c8 8e 63 64 20 ca 0d 27 ec 0a c9 30 |..2:..cd ..'...0|
00003cc0 3a f2 63 68 0d 27 f6 0a c9 31 3a f2 63 69 0d 28 |:.ch.'...1:.ci.(|
00003cd0 0a 49 c9 32 3a f2 63 6a 3a 63 6b 3d 63 6c 3a f2 |.I.2:.cj:ck=cl:.|
00003ce0 61 55 28 55 6b 2c 57 6b 2c 31 2c c3 5a 6d 29 3a |aU(Uk,Wk,1,.Zm):|
00003cf0 f2 57 63 28 55 69 2c 55 6b 2c 57 6b 2c 20 ac b9 |.Wc(Ui,Uk,Wk, ..|
00003d00 29 3a f2 57 65 28 55 6b 2c 57 6b 2c 57 6c 2c 38 |):.We(Uk,Wk,Wl,8|
00003d10 2c 31 36 34 2b 38 29 0d 28 46 2a c9 33 3a f2 57 |,164+8).(F*.3:.W|
00003d20 63 28 55 69 2c 55 6b 2c 57 69 2c 20 ac b9 29 3a |c(Ui,Uk,Wi, ..):|
00003d30 f2 57 65 28 55 6b 2c 57 69 2c 57 6a 2c 38 2c 38 |.We(Uk,Wi,Wj,8,8|
00003d40 29 0d 28 5a 05 cb 0d 28 64 0d c9 33 3a c8 8e 63 |).(Z...(d..3:..c|
00003d50 64 20 ca 0d 28 6e 28 c9 30 3a f2 61 62 28 a4 63 |d ..(n(.0:.ab(.c|
00003d60 74 69 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 65 78 |tion_ReadIconTex|
00003d70 74 28 55 6b 2c 57 66 2c 31 29 29 0d 28 78 11 c9 |t(Uk,Wf,1)).(x..|
00003d80 31 3a f2 61 61 3a 63 65 3d 20 ac b9 0d 28 8c 0a |1:.aa:ce= ...(..|
00003d90 c9 32 3a f2 63 6d 0d 28 96 05 cb 0d 28 a0 0d c9 |.2:.cm.(....(...|
00003da0 34 3a c8 8e 63 64 20 ca 0d 28 aa 27 c9 30 3a 57 |4:..cd ..(.'.0:W|
00003db0 78 3d a4 63 74 69 6f 6e 5f 49 6e 73 65 72 74 5f |x=.ction_Insert_|
00003dc0 50 61 74 74 65 72 6e 3a e7 20 ac 57 78 20 8c 0d |Pattern:. .Wx ..|
00003dd0 28 be 51 57 77 24 3d a4 63 74 69 6f 6e 5f 54 61 |(.QWw$=.ction_Ta|
00003de0 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 65 72 |gToString(Vk,"er|
00003df0 72 30 36 22 29 3a 57 7a 3d a4 63 74 69 6f 6e 5f |r06"):Wz=.ction_|
00003e00 52 65 70 6f 72 74 45 72 72 6f 72 28 55 6b 2c 39 |ReportError(Uk,9|
00003e10 39 2c 55 64 24 2c 57 77 24 2c 20 ac b9 2c b9 29 |9,Ud$,Ww$, ..,.)|
00003e20 0d 28 d2 05 cd 0d 28 dc 0a c9 31 3a f2 63 6e 0d |.(....(...1:.cn.|
00003e30 28 e6 0a c9 32 3a f2 63 6f 0d 28 f0 0a c9 33 3a |(...2:.co.(...3:|
00003e40 f2 61 63 0d 28 fa 35 c9 34 3a f2 61 55 28 55 6b |.ac.(.5.4:.aU(Uk|
00003e50 2c 61 64 2c 31 2c 22 31 22 29 3a f2 57 63 28 55 |,ad,1,"1"):.Wc(U|
00003e60 69 2c 55 6b 2c 61 64 2c 20 ac b9 29 3a f2 58 67 |i,Uk,ad, ..):.Xg|
00003e70 28 61 64 2c 31 2c 31 29 0d 29 18 05 cb 0d 29 22 |(ad,1,1).)....)"|
00003e80 05 cb 0d 29 2c 3a c9 33 3a f2 61 55 28 55 6b 2c |...),:.3:.aU(Uk,|
00003e90 57 68 2c 36 2c a4 63 74 69 6f 6e 5f 54 61 67 54 |Wh,6,.ction_TagT|
00003ea0 6f 53 74 72 69 6e 67 28 56 6b 2c 22 73 74 65 72 |oString(Vk,"ster|
00003eb0 30 22 2b c3 28 63 63 2b 31 29 29 29 0d 29 36 3a |0"+.(cc+1))).)6:|
00003ec0 c9 34 3a f2 61 55 28 55 6b 2c 57 68 2c 37 2c a4 |.4:.aU(Uk,Wh,7,.|
00003ed0 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e |ction_TagToStrin|
00003ee0 67 28 56 6b 2c 22 73 74 65 72 30 22 2b c3 28 63 |g(Vk,"ster0"+.(c|
00003ef0 63 2b 31 29 29 29 0d 29 40 3a c9 35 3a f2 61 55 |c+1))).)@:.5:.aU|
00003f00 28 55 6b 2c 57 68 2c 38 2c a4 63 74 69 6f 6e 5f |(Uk,Wh,8,.ction_|
00003f10 54 61 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 |TagToString(Vk,"|
00003f20 73 74 65 72 30 22 2b c3 28 63 63 2b 31 29 29 29 |ster0"+.(cc+1)))|
00003f30 0d 29 4a 3a c9 36 3a f2 61 55 28 55 6b 2c 57 68 |.)J:.6:.aU(Uk,Wh|
00003f40 2c 39 2c a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 |,9,.ction_TagToS|
00003f50 74 72 69 6e 67 28 56 6b 2c 22 73 74 65 72 30 22 |tring(Vk,"ster0"|
00003f60 2b c3 28 63 63 2b 31 29 29 29 0d 29 54 3b c9 37 |+.(cc+1))).)T;.7|
00003f70 3a f2 61 55 28 55 6b 2c 57 68 2c 32 35 2c a4 63 |:.aU(Uk,Wh,25,.c|
00003f80 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 |tion_TagToString|
00003f90 28 56 6b 2c 22 71 75 61 6c 30 22 2b c3 28 63 63 |(Vk,"qual0"+.(cc|
00003fa0 2b 31 29 29 29 0d 29 5e a8 c9 38 3a 61 68 24 3d |+1))).)^..8:ah$=|
00003fb0 a4 63 74 69 6f 6e 5f 44 65 63 6f 64 65 4d 65 6e |.ction_DecodeMen|
00003fc0 75 49 6e 74 6f 54 65 78 74 28 63 70 2c 58 57 2c |uIntoText(cp,XW,|
00003fd0 55 6b 2b 33 2a 31 30 32 34 29 3a 61 68 24 3d a4 |Uk+3*1024):ah$=.|
00003fe0 63 74 69 6f 6e 5f 4c 65 61 66 6e 61 6d 65 4f 6e |ction_LeafnameOn|
00003ff0 6c 79 28 61 68 24 29 3a 63 71 3d a7 61 68 24 2c |ly(ah$):cq=.ah$,|
00004000 22 3a 22 29 3a 63 72 3d bb c0 61 68 24 2c 63 71 |":"):cr=..ah$,cq|
00004010 2d 31 29 3a 63 73 24 3d c1 61 68 24 2c 63 71 2b |-1):cs$=.ah$,cq+|
00004020 31 2c a9 61 68 24 2d 63 71 29 3a f2 63 74 28 56 |1,.ah$-cq):.ct(V|
00004030 56 24 28 63 72 29 2b 22 2e 48 51 5f 4c 69 62 72 |V$(cr)+".HQ_Libr|
00004040 61 72 79 2e 22 2b 63 73 24 2c 2d 31 29 0d 29 9a |ary."+cs$,-1).).|
00004050 47 c9 39 3a 61 68 24 3d a4 63 74 69 6f 6e 5f 44 |G.9:ah$=.ction_D|
00004060 65 63 6f 64 65 4d 65 6e 75 49 6e 74 6f 54 65 78 |ecodeMenuIntoTex|
00004070 74 28 55 79 2c 58 57 2c 55 6b 2b 33 2a 31 30 32 |t(Uy,XW,Uk+3*102|
00004080 34 29 3a f2 56 72 28 c1 61 68 24 2c 34 2c a9 61 |4):.Vr(.ah$,4,.a|
00004090 68 24 29 29 0d 29 ae 40 c9 31 30 3a 61 68 24 3d |h$)).).@.10:ah$=|
000040a0 a4 63 74 69 6f 6e 5f 44 65 63 6f 64 65 4d 65 6e |.ction_DecodeMen|
000040b0 75 49 6e 74 6f 54 65 78 74 28 55 79 2c 58 57 2c |uIntoText(Uy,XW,|
000040c0 55 6b 2b 33 2a 31 30 32 34 29 3a f2 63 75 28 bb |Uk+3*1024):.cu(.|
000040d0 61 68 24 29 0d 29 c2 47 c9 31 31 3a 61 68 24 3d |ah$).).G.11:ah$=|
000040e0 a4 63 74 69 6f 6e 5f 44 65 63 6f 64 65 4d 65 6e |.ction_DecodeMen|
000040f0 75 49 6e 74 6f 54 65 78 74 28 55 79 2c 58 57 2c |uIntoText(Uy,XW,|
00004100 55 6b 2b 33 2a 31 30 32 34 29 3a f2 61 55 28 55 |Uk+3*1024):.aU(U|
00004110 6b 2c 57 6b 2c 31 2c 61 68 24 29 0d 29 d6 50 c9 |k,Wk,1,ah$).).P.|
00004120 31 32 3a 61 68 24 3d a4 63 74 69 6f 6e 5f 44 65 |12:ah$=.ction_De|
00004130 63 6f 64 65 4d 65 6e 75 49 6e 74 6f 54 65 78 74 |codeMenuIntoText|
00004140 28 55 79 2c 58 57 2c 55 6b 2b 33 2a 31 30 32 34 |(Uy,XW,Uk+3*1024|
00004150 29 3a f2 61 55 28 55 6b 2c 59 62 2c 31 2c c1 61 |):.aU(Uk,Yb,1,.a|
00004160 68 24 2c 34 2c a9 61 68 24 29 29 0d 29 ea 50 c9 |h$,4,.ah$)).).P.|
00004170 31 33 3a 61 68 24 3d a4 63 74 69 6f 6e 5f 44 65 |13:ah$=.ction_De|
00004180 63 6f 64 65 4d 65 6e 75 49 6e 74 6f 54 65 78 74 |codeMenuIntoText|
00004190 28 55 79 2c 58 57 2c 55 6b 2b 33 2a 31 30 32 34 |(Uy,XW,Uk+3*1024|
000041a0 29 3a f2 61 55 28 55 6b 2c 59 62 2c 34 2c c1 61 |):.aU(Uk,Yb,4,.a|
000041b0 68 24 2c 34 2c a9 61 68 24 29 29 0d 29 fe 47 c9 |h$,4,.ah$)).).G.|
000041c0 31 34 3a 61 68 24 3d a4 63 74 69 6f 6e 5f 44 65 |14:ah$=.ction_De|
000041d0 63 6f 64 65 4d 65 6e 75 49 6e 74 6f 54 65 78 74 |codeMenuIntoText|
000041e0 28 55 79 2c 58 57 2c 55 6b 2b 33 2a 31 30 32 34 |(Uy,XW,Uk+3*1024|
000041f0 29 3a f2 61 55 28 55 6b 2c 59 62 2c 37 2c 61 68 |):.aU(Uk,Yb,7,ah|
00004200 24 29 0d 2a 12 48 c9 31 35 3a 61 68 24 3d a4 63 |$).*.H.15:ah$=.c|
00004210 74 69 6f 6e 5f 44 65 63 6f 64 65 4d 65 6e 75 49 |tion_DecodeMenuI|
00004220 6e 74 6f 54 65 78 74 28 55 79 2c 58 57 2c 55 6b |ntoText(Uy,XW,Uk|
00004230 2b 33 2a 31 30 32 34 29 3a f2 61 55 28 55 6b 2c |+3*1024):.aU(Uk,|
00004240 59 62 2c 31 30 2c 61 68 24 29 0d 2a 26 48 c9 31 |Yb,10,ah$).*&H.1|
00004250 36 3a 61 68 24 3d a4 63 74 69 6f 6e 5f 44 65 63 |6:ah$=.ction_Dec|
00004260 6f 64 65 4d 65 6e 75 49 6e 74 6f 54 65 78 74 28 |odeMenuIntoText(|
00004270 55 79 2c 58 57 2c 55 6b 2b 33 2a 31 30 32 34 29 |Uy,XW,Uk+3*1024)|
00004280 3a f2 61 55 28 55 6b 2c 59 62 2c 31 33 2c 61 68 |:.aU(Uk,Yb,13,ah|
00004290 24 29 0d 2a 3a 48 c9 31 37 3a 61 68 24 3d a4 63 |$).*:H.17:ah$=.c|
000042a0 74 69 6f 6e 5f 44 65 63 6f 64 65 4d 65 6e 75 49 |tion_DecodeMenuI|
000042b0 6e 74 6f 54 65 78 74 28 55 79 2c 58 57 2c 55 6b |ntoText(Uy,XW,Uk|
000042c0 2b 33 2a 31 30 32 34 29 3a f2 61 55 28 55 6b 2c |+3*1024):.aU(Uk,|
000042d0 59 62 2c 31 36 2c 61 68 24 29 0d 2a 4e 47 c9 31 |Yb,16,ah$).*NG.1|
000042e0 38 3a 61 68 24 3d a4 63 74 69 6f 6e 5f 44 65 63 |8:ah$=.ction_Dec|
000042f0 6f 64 65 4d 65 6e 75 49 6e 74 6f 54 65 78 74 28 |odeMenuIntoText(|
00004300 55 79 2c 58 57 2c 55 6b 2b 33 2a 31 30 32 34 29 |Uy,XW,Uk+3*1024)|
00004310 3a f2 61 55 28 55 6b 2c 59 67 2c 31 2c 61 68 24 |:.aU(Uk,Yg,1,ah$|
00004320 29 0d 2a 62 47 c9 31 39 3a 61 68 24 3d a4 63 74 |).*bG.19:ah$=.ct|
00004330 69 6f 6e 5f 44 65 63 6f 64 65 4d 65 6e 75 49 6e |ion_DecodeMenuIn|
00004340 74 6f 54 65 78 74 28 55 79 2c 58 57 2c 55 6b 2b |toText(Uy,XW,Uk+|
00004350 33 2a 31 30 32 34 29 3a f2 61 55 28 55 6b 2c 59 |3*1024):.aU(Uk,Y|
00004360 67 2c 34 2c 61 68 24 29 0d 2a 76 47 c9 32 30 3a |g,4,ah$).*vG.20:|
00004370 61 68 24 3d a4 63 74 69 6f 6e 5f 44 65 63 6f 64 |ah$=.ction_Decod|
00004380 65 4d 65 6e 75 49 6e 74 6f 54 65 78 74 28 55 79 |eMenuIntoText(Uy|
00004390 2c 58 57 2c 55 6b 2b 33 2a 31 30 32 34 29 3a f2 |,XW,Uk+3*1024):.|
000043a0 61 55 28 55 6b 2c 57 66 2c 37 2c 61 68 24 29 0d |aU(Uk,Wf,7,ah$).|
000043b0 2a 8a 30 cb 3a c8 99 26 34 30 30 43 46 2c 2c 58 |*.0.:..&400CF,,X|
000043c0 57 3a 58 58 3d 58 57 21 30 3a 58 59 3d 58 57 21 |W:XX=XW!0:XY=XW!|
000043d0 34 3a 58 5a 3d 58 57 21 38 3a e7 63 65 20 8c 0d |4:XZ=XW!8:.ce ..|
000043e0 2a c6 0c e7 58 5a 3d 55 62 20 8c 0d 2a d0 0a c8 |*...XZ=Ub ..*...|
000043f0 8e 56 65 20 ca 0d 2a da 0e c9 31 3a f2 59 73 28 |.Ve ..*...1:.Ys(|
00004400 58 58 29 0d 2a e4 11 c9 32 3a f2 59 74 28 58 58 |XX).*...2:.Yt(XX|
00004410 2c 58 59 29 0d 2a ee 13 c9 33 3a f2 58 6c 28 58 |,XY).*...3:.Xl(X|
00004420 58 2c 58 59 2c 33 29 0d 2a f8 13 c9 34 3a f2 58 |X,XY,3).*...4:.X|
00004430 6c 28 58 58 2c 58 59 2c 34 29 0d 2b 02 13 c9 35 |l(XX,XY,4).+...5|
00004440 3a f2 58 6c 28 58 58 2c 58 59 2c 35 29 0d 2b 0c |:.Xl(XX,XY,5).+.|
00004450 13 c9 36 3a f2 58 6c 28 58 58 2c 58 59 2c 36 29 |..6:.Xl(XX,XY,6)|
00004460 0d 2b 16 13 c9 37 3a f2 58 6d 28 58 58 2c 58 59 |.+...7:.Xm(XX,XY|
00004470 2c 37 29 0d 2b 20 19 c9 38 3a c8 99 26 34 30 30 |,7).+ ..8:..&400|
00004480 44 34 2c 2c 63 70 2c 58 58 2c 58 59 0d 2b 2a 11 |D4,,cp,XX,XY.+*.|
00004490 c9 39 3a f2 58 6f 28 58 58 2c 58 59 29 0d 2b 34 |.9:.Xo(XX,XY).+4|
000044a0 12 c9 31 30 3a f2 58 70 28 58 58 2c 58 59 29 0d |..10:.Xp(XX,XY).|
000044b0 2b 3e 12 c9 32 30 3a f2 58 71 28 58 58 2c 58 59 |+>..20:.Xq(XX,XY|
000044c0 29 0d 2b 48 05 cb 0d 2b 52 17 cc 3a c8 99 26 34 |).+H...+R..:..&4|
000044d0 30 30 44 34 2c 2c 2d 31 3a 56 65 3d 30 0d 2b 70 |00D4,,-1:Ve=0.+p|
000044e0 05 cd 0d 2b 7a 07 cd 3a e1 0d 2b a2 58 dd f2 61 |...+z..:..+.X..a|
000044f0 6e 28 58 57 29 3a 63 76 3d 58 57 21 34 30 3a 62 |n(XW):cv=XW!40:b|
00004500 58 24 3d a4 63 74 69 6f 6e 5f 45 78 74 72 61 63 |X$=.ction_Extrac|
00004510 74 53 74 72 69 6e 67 28 58 57 2b 34 34 29 3a 62 |tString(XW+44):b|
00004520 5a 3d 58 57 21 34 3a 58 57 21 31 36 3d 34 3a 58 |Z=XW!4:XW!16=4:X|
00004530 57 21 31 32 3d 58 57 21 38 3a e7 20 ac 57 55 20 |W!12=XW!8:. .WU |
00004540 8c 0d 2b e8 0a c8 8e 63 76 20 ca 0d 2b f2 32 c9 |..+....cv ..+.2.|
00004550 55 66 3a e7 a4 63 74 69 6f 6e 5f 44 6f 65 73 46 |Uf:..ction_DoesF|
00004560 69 6c 65 45 78 69 73 74 28 62 58 24 2b 22 2e 48 |ileExist(bX$+".H|
00004570 51 5f 4c 69 62 72 61 72 79 22 29 20 8c 0d 2b fc |Q_Library") ..+.|
00004580 1e c8 99 26 34 30 30 45 37 2c 31 37 2c 58 57 2c |...&400E7,17,XW,|
00004590 62 5a 3a f2 63 77 28 62 58 24 29 0d 2c 10 2f cc |bZ:.cw(bX$).,./.|
000045a0 3a e7 a4 63 74 69 6f 6e 5f 44 6f 65 73 46 69 6c |:..ction_DoesFil|
000045b0 65 45 78 69 73 74 28 62 58 24 2b 22 2e 4d 75 73 |eExist(bX$+".Mus|
000045c0 69 63 44 61 74 61 22 29 20 8c 0d 2c 24 20 c8 99 |icData") ..,$ ..|
000045d0 26 34 30 30 45 37 2c 31 37 2c 58 57 2c 62 5a 3a |&400E7,17,XW,bZ:|
000045e0 f2 63 78 28 62 58 24 2c b9 29 0d 2c 38 53 cc 3a |.cx(bX$,.).,8S.:|
000045f0 57 77 24 3d a4 63 74 69 6f 6e 5f 54 61 67 54 6f |Ww$=.ction_TagTo|
00004600 53 74 72 69 6e 67 28 56 6b 2c 22 65 72 72 30 33 |String(Vk,"err03|
00004610 22 29 3a 57 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 |"):Wz=.ction_Rep|
00004620 6f 72 74 45 72 72 6f 72 28 55 6b 2c 39 39 2c 55 |ortError(Uk,99,U|
00004630 64 24 2c 57 77 24 2c 20 ac b9 2c b9 29 0d 2c 56 |d$,Ww$, ..,.).,V|
00004640 05 cd 0d 2c 60 05 cd 0d 2c 6a 27 c9 55 67 3a e7 |...,`...,j'.Ug:.|
00004650 a4 63 74 69 6f 6e 5f 46 69 6c 65 49 73 49 6e 73 |.ction_FileIsIns|
00004660 74 72 75 6d 65 6e 74 28 62 58 24 29 20 8c 0d 2c |trument(bX$) ..,|
00004670 74 21 f2 63 74 28 62 58 24 2c 2d 31 29 3a c8 99 |t!.ct(bX$,-1):..|
00004680 26 34 30 30 45 37 2c 31 37 2c 58 57 2c 62 5a 0d |&400E7,17,XW,bZ.|
00004690 2c 88 24 cc 3a f2 63 78 28 62 58 24 2c 20 ac b9 |,.$.:.cx(bX$, ..|
000046a0 29 3a c8 99 26 34 30 30 45 37 2c 31 37 2c 58 57 |):..&400E7,17,XW|
000046b0 2c 62 5a 0d 2c a6 05 cd 0d 2c b0 05 cb 0d 2c ba |,bZ.,....,....,.|
000046c0 07 cd 3a e1 0d 2c e2 58 dd f2 61 6f 28 58 57 29 |..:..,.X..ao(XW)|
000046d0 3a 63 76 3d 58 57 21 34 30 3a 62 58 24 3d a4 63 |:cv=XW!40:bX$=.c|
000046e0 74 69 6f 6e 5f 45 78 74 72 61 63 74 53 74 72 69 |tion_ExtractStri|
000046f0 6e 67 28 58 57 2b 34 34 29 3a 62 5a 3d 58 57 21 |ng(XW+44):bZ=XW!|
00004700 34 3a 58 57 21 31 36 3d 34 3a 58 57 21 31 32 3d |4:XW!16=4:XW!12=|
00004710 58 57 21 38 3a e7 20 ac 57 55 20 8c 0d 2d 28 0a |XW!8:. .WU ..-(.|
00004720 c8 8e 63 76 20 ca 0d 2d 32 32 c9 55 66 3a e7 a4 |..cv ..-22.Uf:..|
00004730 63 74 69 6f 6e 5f 44 6f 65 73 46 69 6c 65 45 78 |ction_DoesFileEx|
00004740 69 73 74 28 62 58 24 2b 22 2e 48 51 5f 4c 69 62 |ist(bX$+".HQ_Lib|
00004750 72 61 72 79 22 29 20 8c 0d 2d 3c 1e c8 99 26 34 |rary") ..-<...&4|
00004760 30 30 45 37 2c 31 37 2c 58 57 2c 62 5a 3a f2 63 |00E7,17,XW,bZ:.c|
00004770 77 28 62 58 24 29 0d 2d 50 2f cc 3a e7 a4 63 74 |w(bX$).-P/.:..ct|
00004780 69 6f 6e 5f 44 6f 65 73 46 69 6c 65 45 78 69 73 |ion_DoesFileExis|
00004790 74 28 62 58 24 2b 22 2e 4d 75 73 69 63 44 61 74 |t(bX$+".MusicDat|
000047a0 61 22 29 20 8c 0d 2d 64 20 c8 99 26 34 30 30 45 |a") ..-d ..&400E|
000047b0 37 2c 31 37 2c 58 57 2c 62 5a 3a f2 63 78 28 62 |7,17,XW,bZ:.cx(b|
000047c0 58 24 2c b9 29 0d 2d 78 05 cd 0d 2d 82 05 cd 0d |X$,.).-x...-....|
000047d0 2d 8c 27 c9 55 67 3a e7 a4 63 74 69 6f 6e 5f 46 |-.'.Ug:..ction_F|
000047e0 69 6c 65 49 73 49 6e 73 74 72 75 6d 65 6e 74 28 |ileIsInstrument(|
000047f0 62 58 24 29 20 8c 0d 2d 96 21 f2 63 74 28 62 58 |bX$) ..-.!.ct(bX|
00004800 24 2c 2d 31 29 3a c8 99 26 34 30 30 45 37 2c 31 |$,-1):..&400E7,1|
00004810 37 2c 58 57 2c 62 5a 0d 2d aa 24 cc 3a f2 63 78 |7,XW,bZ.-.$.:.cx|
00004820 28 62 58 24 2c 20 ac b9 29 3a c8 99 26 34 30 30 |(bX$, ..):..&400|
00004830 45 37 2c 31 37 2c 58 57 2c 62 5a 0d 2d c8 05 cd |E7,17,XW,bZ.-...|
00004840 0d 2d d2 05 cb 0d 2d dc 07 cd 3a e1 0d 2e 04 5b |.-....-...:....[|
00004850 dd a4 63 74 69 6f 6e 5f 53 69 7a 65 4f 66 46 69 |..ction_SizeOfFi|
00004860 6c 65 28 62 58 24 29 3a ea 63 79 2c 63 7a 2c 64 |le(bX$):.cy,cz,d|
00004870 55 2c 64 56 2c 64 57 2c 64 58 3a ea 64 59 3a c8 |U,dV,dW,dX:.dY:.|
00004880 99 26 38 2c 31 37 2c 62 58 24 20 b8 63 79 2c 63 |.&8,17,bX$ .cy,c|
00004890 7a 2c 64 55 2c 64 56 2c 64 57 2c 64 58 3a 64 59 |z,dU,dV,dW,dX:dY|
000048a0 3d 64 57 3a 3d 64 59 0d 2e 54 57 dd a4 63 74 69 |=dW:=dY..TW..cti|
000048b0 6f 6e 5f 44 6f 65 73 46 69 6c 65 45 78 69 73 74 |on_DoesFileExist|
000048c0 28 62 58 24 29 3a ea 63 79 2c 63 7a 2c 64 55 2c |(bX$):.cy,cz,dU,|
000048d0 64 56 2c 64 57 2c 64 58 3a c8 99 26 38 2c 31 37 |dV,dW,dX:..&8,17|
000048e0 2c 62 58 24 20 b8 63 79 2c 63 7a 2c 64 55 2c 64 |,bX$ .cy,cz,dU,d|
000048f0 56 2c 64 57 2c 64 58 3a 3d 63 79 3c 3e 30 0d 2e |V,dW,dX:=cy<>0..|
00004900 90 68 dd a4 63 74 69 6f 6e 5f 54 79 70 65 4f 66 |.h..ction_TypeOf|
00004910 46 69 6c 65 28 62 58 24 29 3a ea 63 79 2c 63 7a |File(bX$):.cy,cz|
00004920 2c 64 55 2c 64 56 2c 64 57 2c 64 58 3a ea 64 59 |,dU,dV,dW,dX:.dY|
00004930 3a c8 99 26 38 2c 31 37 2c 62 58 24 20 b8 63 79 |:..&8,17,bX$ .cy|
00004940 2c 63 7a 2c 64 55 2c 64 56 2c 64 57 2c 64 58 3a |,cz,dU,dV,dW,dX:|
00004950 64 5a 3d 28 28 64 55 3e 3e 38 29 20 80 26 46 46 |dZ=((dU>>8) .&FF|
00004960 46 29 3a 3d 64 5a 0d 2e e0 3a dd f2 61 66 3a f2 |F):=dZ...:..af:.|
00004970 61 55 28 55 6b 2c 5a 77 2c 39 2c c3 63 6c 29 3a |aU(Uk,Zw,9,.cl):|
00004980 64 61 3d 30 3a 64 62 3d 30 3a e3 69 3d 31 20 b8 |da=0:db=0:.i=1 .|
00004990 56 58 3a e7 56 59 24 28 69 29 3c 3e 22 22 20 8c |VX:.VY$(i)<>"" .|
000049a0 0d 2f 1c 35 c8 99 26 39 30 30 43 35 2c 56 5a 28 |./.5..&900C5,VZ(|
000049b0 69 29 2c 55 56 20 b8 64 63 3a 64 62 2b 3d 31 3a |i),UV .dc:db+=1:|
000049c0 64 61 2b 3d 28 64 63 21 28 36 34 2b 34 29 29 20 |da+=(dc!(64+4)) |
000049d0 81 31 30 32 34 0d 2f 3a 5b cd 3a ed 3a f2 61 55 |.1024./:[.:.:.aU|
000049e0 28 55 6b 2c 5a 77 2c 37 2c c3 64 62 29 3a f2 61 |(Uk,Zw,7,.db):.a|
000049f0 55 28 55 6b 2c 5a 77 2c 31 30 2c c3 64 61 2b 22 |U(Uk,Zw,10,.da+"|
00004a00 20 4b 42 22 29 3a f2 61 55 28 55 6b 2c 5a 77 2c | KB"):.aU(Uk,Zw,|
00004a10 38 2c c3 62 78 29 3a f2 61 55 28 55 6b 2c 5a 77 |8,.bx):.aU(Uk,Zw|
00004a20 2c 31 31 2c c3 62 78 2b 22 20 4b 42 22 29 3a e1 |,11,.bx+" KB"):.|
00004a30 0d 2f 94 15 dd f2 58 72 3a f2 64 64 28 56 77 2c |./....Xr:.dd(Vw,|
00004a40 56 78 29 3a e1 0d 2f c6 12 dd f2 58 75 28 58 57 |Vx):../....Xu(XW|
00004a50 29 3a e7 56 76 20 8c 0d 2f da 5e 58 58 3d 58 57 |):.Vv ../.^XX=XW|
00004a60 21 30 3a 58 59 3d 58 57 21 34 3a 64 65 3d a4 63 |!0:XY=XW!4:de=.c|
00004a70 74 69 6f 6e 5f 43 6f 6c 75 6d 6e 43 6c 69 63 6b |tion_ColumnClick|
00004a80 65 64 4f 6e 28 58 58 2c 58 59 29 3a 64 66 3d a4 |edOn(XX,XY):df=.|
00004a90 63 74 69 6f 6e 5f 52 6f 77 43 6c 69 63 6b 65 64 |ction_RowClicked|
00004aa0 4f 6e 28 58 58 2c 58 59 29 3a e7 64 65 3c 31 20 |On(XX,XY):.de<1 |
00004ab0 8c 64 65 3d 31 0d 30 0c 0f e7 64 65 3e 34 20 8c |.de=1.0...de>4 .|
00004ac0 64 65 3d 34 0d 30 16 0f e7 64 66 3c 31 20 8c 64 |de=4.0...df<1 .d|
00004ad0 66 3d 31 0d 30 20 11 e7 64 66 3e 36 34 20 8c 64 |f=1.0 ..df>64 .d|
00004ae0 66 3d 36 34 0d 30 2a 25 f2 64 64 28 56 77 2c 56 |f=64.0*%.dd(Vw,V|
00004af0 78 29 3a 56 77 3d 64 66 3a 56 78 3d 64 65 3a f2 |x):Vw=df:Vx=de:.|
00004b00 64 64 28 56 77 2c 56 78 29 0d 30 52 07 cd 3a e1 |dd(Vw,Vx).0R..:.|
00004b10 0d 30 7a 79 dd a4 63 74 69 6f 6e 5f 52 6f 77 43 |.0zy..ction_RowC|
00004b20 6c 69 63 6b 65 64 4f 6e 28 58 58 2c 58 59 29 3a |lickedOn(XX,XY):|
00004b30 55 6b 21 30 3d 57 64 3a c8 99 26 34 30 30 43 43 |Uk!0=Wd:..&400CC|
00004b40 2c 2c 55 6b 3a 61 73 3d 55 6b 21 28 31 32 2b 34 |,,Uk:as=Uk!(12+4|
00004b50 29 3a 64 67 3d 61 73 2d 58 59 3a 61 76 3d 55 6b |):dg=as-XY:av=Uk|
00004b60 21 28 32 30 2b 34 29 3a 64 67 2d 3d 61 76 3a 64 |!(20+4):dg-=av:d|
00004b70 68 3d 64 67 2d 35 36 3a 64 66 3d 28 64 68 20 81 |h=dg-56:df=(dh .|
00004b80 34 34 29 2b 31 3a 3d 64 66 0d 30 d4 68 dd a4 63 |44)+1:=df.0.h..c|
00004b90 74 69 6f 6e 5f 43 6f 6c 75 6d 6e 43 6c 69 63 6b |tion_ColumnClick|
00004ba0 65 64 4f 6e 28 58 58 2c 58 59 29 3a 55 6b 21 30 |edOn(XX,XY):Uk!0|
00004bb0 3d 57 64 3a c8 99 26 34 30 30 43 43 2c 2c 55 6b |=Wd:..&400CC,,Uk|
00004bc0 3a 64 69 3d 58 58 2d 28 55 6b 21 34 2d 55 6b 21 |:di=XX-(Uk!4-Uk!|
00004bd0 32 30 29 3a 64 65 3d 28 28 64 69 2d 36 2a 31 36 |20):de=((di-6*16|
00004be0 29 20 81 28 31 38 2a 31 36 29 29 2b 31 3a 3d 64 |) .(18*16))+1:=d|
00004bf0 65 0d 31 1a 9f dd f2 64 64 28 64 6a 2c 64 6b 29 |e.1....dd(dj,dk)|
00004c00 3a 55 6b 21 30 3d 57 64 3a c8 99 26 34 30 30 43 |:Uk!0=Wd:..&400C|
00004c10 43 2c 2c 55 6b 3a 61 73 3d 55 6b 21 28 31 32 2b |C,,Uk:as=Uk!(12+|
00004c20 34 29 3a 61 76 3d 55 6b 21 28 32 30 2b 34 29 3a |4):av=Uk!(20+4):|
00004c30 61 72 3d 55 6b 21 28 30 2b 34 29 3a 5a 73 3d 61 |ar=Uk!(0+4):Zs=a|
00004c40 73 2d 35 36 2d 64 6a 2a 34 34 20 2d 20 61 76 3a |s-56-dj*44 - av:|
00004c50 5a 72 3d 61 72 2b 36 2a 31 36 20 2b 20 28 64 6b |Zr=ar+6*16 + (dk|
00004c60 2d 31 29 2a 31 38 2a 31 36 3a c8 99 26 34 30 30 |-1)*18*16:..&400|
00004c70 44 31 2c 2d 31 2c 5a 72 2c 5a 73 2d 38 2c 5a 72 |D1,-1,Zr,Zs-8,Zr|
00004c80 2b 31 33 2a 31 36 2c 5a 73 2b 34 34 2b 38 3a e1 |+13*16,Zs+44+8:.|
00004c90 0d 31 88 0f dd f2 61 69 3a c8 8e 5a 6b 20 ca 0d |.1....ai:..Zk ..|
00004ca0 31 9c 29 c9 30 3a 5a 67 3d 56 77 3a 5a 68 3d 56 |1.).0:Zg=Vw:Zh=V|
00004cb0 78 3a 5a 69 3d 56 77 3a 5a 6a 3d 56 78 3a 5a 6b |x:Zi=Vw:Zj=Vx:Zk|
00004cc0 3d 31 3a 5a 6c 3d 5a 6d 0d 31 c4 24 c9 31 2c 32 |=1:Zl=Zm.1.$.1,2|
00004cd0 3a 5a 69 3d 56 77 3a 5a 6a 3d 56 78 3a e7 5a 67 |:Zi=Vw:Zj=Vx:.Zg|
00004ce0 3e 5a 69 20 8c c8 94 5a 67 2c 5a 69 0d 31 d8 13 |>Zi ...Zg,Zi.1..|
00004cf0 e7 5a 68 3e 5a 6a 20 8c c8 94 5a 68 2c 5a 6a 0d |.Zh>Zj ...Zh,Zj.|
00004d00 31 e2 08 5a 6b 3d 32 0d 31 ec 12 cb 3a f2 59 5a |1..Zk=2.1...:.YZ|
00004d10 28 55 6b 2c 57 64 29 3a e1 0d 32 1e 34 dd f2 56 |(Uk,Wd):..2.4..V|
00004d20 79 3a 5a 6b 3d 30 3a 5a 67 3d 31 3a 5a 68 3d 31 |y:Zk=0:Zg=1:Zh=1|
00004d30 3a 5a 69 3d 31 3a 5a 6a 3d 31 3a 5a 6c 3d 5a 6d |:Zi=1:Zj=1:Zl=Zm|
00004d40 3a f2 59 5a 28 55 6b 2c 57 64 29 3a e1 0d 32 78 |:.YZ(Uk,Wd):..2x|
00004d50 8e dd f2 59 72 28 64 6c 24 2c 64 6d 29 3a 63 55 |...Yr(dl$,dm):cU|
00004d60 3d bb a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f |=..ction_ReadIco|
00004d70 6e 54 65 78 74 28 55 6b 2c 57 66 2c 37 29 2b 64 |nText(Uk,Wf,7)+d|
00004d80 6d 3a 63 55 24 3d c3 63 55 3a 64 6e 3d a4 63 74 |m:cU$=.cU:dn=.ct|
00004d90 69 6f 6e 5f 46 69 6e 64 49 6e 73 74 72 75 6d 65 |ion_FindInstrume|
00004da0 6e 74 28 a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 |nt(.ction_ReadIc|
00004db0 6f 6e 54 65 78 74 28 55 6b 2c 57 66 2c 31 29 29 |onText(Uk,Wf,1))|
00004dc0 3a 64 6e 24 3d c2 22 20 20 22 2b c3 64 6e 2c 32 |:dn$=." "+.dn,2|
00004dd0 29 3a e7 64 6e 3c 3e 2d 31 20 8c 0d 32 d2 b8 c8 |):.dn<>-1 ..2...|
00004de0 99 26 39 30 30 43 35 2c 56 5a 28 5a 79 29 2c 55 |.&900C5,VZ(Zy),U|
00004df0 56 20 b8 64 6f 3a 64 70 3d 64 6f 21 28 37 36 2b |V .do:dp=do!(76+|
00004e00 34 29 3a 64 70 24 3d c2 22 20 20 20 22 2b c3 64 |4):dp$=." "+.d|
00004e10 70 2c 33 29 3a c8 99 26 39 30 30 43 35 2c 64 71 |p,3):..&900C5,dq|
00004e20 2c 55 56 20 b8 64 63 3a 64 63 2b 3d 28 5a 6d 2d |,UV .dc:dc+=(Zm-|
00004e30 31 29 2a 20 31 30 32 34 3a 41 25 3d 21 28 64 63 |1)* 1024:A%=!(dc|
00004e40 2b 28 56 77 2d 31 29 2a 31 36 20 2b 20 28 56 78 |+(Vw-1)*16 + (Vx|
00004e50 2d 31 29 2a 34 29 3a c8 99 26 39 30 30 39 33 2c |-1)*4):..&90093,|
00004e60 41 25 20 b8 64 72 3a 64 73 24 3d a4 63 74 69 6f |A% .dr:ds$=.ctio|
00004e70 6e 5f 45 78 74 72 61 63 74 53 74 72 69 6e 67 28 |n_ExtractString(|
00004e80 64 72 29 3a e7 c0 64 73 24 2c 31 29 3c 3e 22 4a |dr):..ds$,1)<>"J|
00004e90 22 20 8c 0d 33 4a 3b c1 64 73 24 2c 31 2c 32 29 |" ..3J;.ds$,1,2)|
00004ea0 3d 64 6c 24 3a c1 64 73 24 2c 33 2c 31 29 3d c3 |=dl$:.ds$,3,1)=.|
00004eb0 63 55 3a c1 64 73 24 2c 35 2c 32 29 3d 64 6e 24 |cU:.ds$,5,2)=dn$|
00004ec0 3a c1 64 73 24 2c 39 2c 33 29 3d 64 70 24 0d 33 |:.ds$,9,3)=dp$.3|
00004ed0 72 1c cd 3a c8 99 26 39 30 30 39 34 2c 64 73 24 |r..:..&90094,ds$|
00004ee0 20 b8 41 25 3a e7 56 76 20 8c 0d 33 a4 43 21 28 | .A%:.Vv ..3.C!(|
00004ef0 64 63 2b 28 56 77 2d 31 29 2a 31 36 20 2b 20 28 |dc+(Vw-1)*16 + (|
00004f00 56 78 2d 31 29 2a 34 29 20 3d 20 41 25 3a 64 74 |Vx-1)*4) = A%:dt|
00004f10 3d 56 77 3a 64 75 3d 56 78 3a 56 77 2b 3d 31 3a |=Vw:du=Vx:Vw+=1:|
00004f20 e7 56 77 3e 36 34 20 8c 56 77 3d 36 34 0d 33 cc |.Vw>64 .Vw=64.3.|
00004f30 19 f2 64 64 28 64 74 2c 64 75 29 3a f2 64 64 28 |..dd(dt,du):.dd(|
00004f40 56 77 2c 56 78 29 0d 33 e0 28 cd 3a 57 78 3d a4 |Vw,Vx).3.(.:Wx=.|
00004f50 63 74 69 6f 6e 5f 50 6c 61 79 6f 75 74 28 64 6c |ction_Playout(dl|
00004f60 24 2c c3 63 55 2c b9 29 3a e7 56 76 20 8c 0d 34 |$,.cU,.):.Vv ..4|
00004f70 08 31 e7 a4 63 74 69 6f 6e 5f 4e 6f 74 65 49 73 |.1..ction_NoteIs|
00004f80 42 65 6c 6f 77 57 69 6e 64 6f 77 20 8c f2 64 76 |BelowWindow ..dv|
00004f90 28 55 6b 2c 57 64 2c 30 2c 2d 34 34 2a 34 29 0d |(Uk,Wd,0,-44*4).|
00004fa0 34 12 31 e7 a4 63 74 69 6f 6e 5f 4e 6f 74 65 49 |4.1..ction_NoteI|
00004fb0 73 41 62 6f 76 65 57 69 6e 64 6f 77 20 8c f2 64 |sAboveWindow ..d|
00004fc0 76 28 55 6b 2c 57 64 2c 30 2c 2b 34 34 2a 34 29 |v(Uk,Wd,0,+44*4)|
00004fd0 0d 34 1c 05 cd 0d 34 30 07 cd 3a e1 0d 34 62 6b |.4....40..:..4bk|
00004fe0 dd f2 61 67 3a c8 99 26 39 30 30 43 35 2c 64 71 |..ag:..&900C5,dq|
00004ff0 2c 55 56 20 b8 64 63 3a 64 63 2b 3d 28 5a 6d 2d |,UV .dc:dc+=(Zm-|
00005000 31 29 2a 20 31 30 32 34 3a 21 28 64 63 2b 28 56 |1)* 1024:!(dc+(V|
00005010 77 2d 31 29 2a 31 36 20 2b 20 28 56 78 2d 31 29 |w-1)*16 + (Vx-1)|
00005020 2a 34 29 20 3d 20 30 3a 64 74 3d 56 77 3a 64 75 |*4) = 0:dt=Vw:du|
00005030 3d 56 78 3a 56 77 2b 3d 31 3a e7 56 77 3e 36 34 |=Vx:Vw+=1:.Vw>64|
00005040 20 8c 56 77 3d 36 34 0d 34 a8 47 f2 64 64 28 64 | .Vw=64.4.G.dd(d|
00005050 74 2c 64 75 29 3a f2 64 64 28 56 77 2c 56 78 29 |t,du):.dd(Vw,Vx)|
00005060 3a e7 a4 63 74 69 6f 6e 5f 4e 6f 74 65 49 73 42 |:..ction_NoteIsB|
00005070 65 6c 6f 77 57 69 6e 64 6f 77 20 8c f2 64 76 28 |elowWindow ..dv(|
00005080 55 6b 2c 57 64 2c 30 2c 2d 34 34 2a 34 29 0d 34 |Uk,Wd,0,-44*4).4|
00005090 c6 31 e7 a4 63 74 69 6f 6e 5f 4e 6f 74 65 49 73 |.1..ction_NoteIs|
000050a0 41 62 6f 76 65 57 69 6e 64 6f 77 20 8c f2 64 76 |AboveWindow ..dv|
000050b0 28 55 6b 2c 57 64 2c 30 2c 2b 34 34 2a 34 29 0d |(Uk,Wd,0,+44*4).|
000050c0 34 d0 05 e1 0d 34 ee 3a dd a4 63 74 69 6f 6e 5f |4....4.:..ction_|
000050d0 50 6c 61 79 6f 75 74 28 64 73 24 2c 63 55 24 2c |Playout(ds$,cU$,|
000050e0 64 77 29 3a c8 99 26 39 30 30 38 42 20 b8 64 78 |dw):..&9008B .dx|
000050f0 3a e7 64 78 3d 30 20 80 20 ac 56 7a 20 8c 0d 35 |:.dx=0 . .Vz ..5|
00005100 2a 0a 57 78 3d 20 ac b9 0d 35 3e 1a cc 3a 57 78 |*.Wx= ...5>..:Wx|
00005110 3d b9 3a e7 20 ac 64 77 20 8c c8 99 26 39 30 30 |=.:. .dw ...&900|
00005120 38 43 0d 35 70 76 63 55 3d bb 63 55 24 3a 64 73 |8C.5pvcU=.cU$:ds|
00005130 3d 28 a7 22 43 20 43 23 44 20 44 23 45 20 46 20 |=(."C C#D D#E F |
00005140 46 23 47 20 47 23 41 20 41 23 42 20 22 2c 64 73 |F#G G#A A#B ",ds|
00005150 24 29 2b 31 29 2f 32 3a 64 79 3d a4 63 74 69 6f |$)+1)/2:dy=.ctio|
00005160 6e 5f 46 69 6e 64 49 6e 73 74 72 75 6d 65 6e 74 |n_FindInstrument|
00005170 28 a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f 6e |(.ction_ReadIcon|
00005180 54 65 78 74 28 55 6b 2c 57 66 2c 31 29 29 3a e7 |Text(Uk,Wf,1)):.|
00005190 64 79 3c 3e 2d 31 20 8c 0d 35 ac fa c8 99 26 39 |dy<>-1 ..5....&9|
000051a0 30 30 43 35 2c 56 5a 28 64 79 29 2c 55 56 20 b8 |00C5,VZ(dy),UV .|
000051b0 64 63 3a 64 7a 3d 64 63 21 28 37 36 2b 34 29 3a |dc:dz=dc!(76+4):|
000051c0 65 55 3d 64 63 21 28 36 34 2b 34 29 3a 65 56 3d |eU=dc!(64+4):eV=|
000051d0 64 63 21 28 36 38 2b 34 29 3a 65 57 3d 64 63 21 |dc!(68+4):eW=dc!|
000051e0 28 37 32 2b 34 29 3a 65 56 3d 30 3a 65 57 3d 30 |(72+4):eV=0:eW=0|
000051f0 3a 65 58 3d 64 63 2b 38 30 2b 34 3a 65 59 3d 65 |:eX=dc+80+4:eY=e|
00005200 58 3a 65 5a 3d 65 58 2b 65 55 2d 31 33 32 3a 55 |X:eZ=eX+eU-132:U|
00005210 6b 21 28 32 30 34 38 2b 30 29 3d 65 58 3a 55 6b |k!(2048+0)=eX:Uk|
00005220 21 28 32 30 34 38 2b 34 29 3d 65 58 2b 65 55 2d |!(2048+4)=eX+eU-|
00005230 31 33 32 3a 55 6b 21 28 32 30 34 38 2b 38 29 3d |132:Uk!(2048+8)=|
00005240 65 56 3a 55 6b 21 28 32 30 34 38 2b 31 32 29 3d |eV:Uk!(2048+12)=|
00005250 65 57 3a 55 6b 21 28 32 30 34 38 2b 31 36 29 3d |eW:Uk!(2048+16)=|
00005260 64 7a 3a 55 6b 21 28 32 30 34 38 2b 32 30 29 3d |dz:Uk!(2048+20)=|
00005270 2d 31 3a 55 6b 21 28 32 30 34 38 2b 32 34 29 3d |-1:Uk!(2048+24)=|
00005280 2d 31 3a 55 6b 21 28 32 30 34 38 2b 32 38 29 3d |-1:Uk!(2048+28)=|
00005290 2d 31 0d 36 6a 1e c8 99 26 39 30 30 38 44 2c 31 |-1.6j...&9008D,1|
000052a0 2c 55 6b 2b 32 30 34 38 3a e7 20 ac 56 7a 20 8c |,Uk+2048:. .Vz .|
000052b0 0d 36 88 64 c8 99 26 39 30 30 38 41 2c 21 65 61 |.6.d..&9008A,!ea|
000052c0 3a c8 99 26 39 30 30 38 34 2c 94 28 21 65 62 29 |:..&90084,.(!eb)|
000052d0 2c 94 28 21 65 63 29 2c 94 28 21 65 64 29 2c 94 |,.(!ec),.(!ed),.|
000052e0 28 21 65 65 29 3a c8 99 26 39 30 30 38 33 2c 21 |(!ee):..&90083,!|
000052f0 65 66 3a c8 99 26 39 30 30 38 42 3a c8 99 26 39 |ef:..&9008B:..&9|
00005300 30 30 38 35 2c 21 65 67 2c 21 65 68 2c 21 65 69 |0085,!eg,!eh,!ei|
00005310 2c 21 65 6a 0d 36 ba fa cd 3a 55 6b 21 28 32 30 |,!ej.6...:Uk!(20|
00005320 34 38 2b 30 29 3d 31 3a 55 6b 21 28 32 30 34 38 |48+0)=1:Uk!(2048|
00005330 2b 34 29 3d 31 3a 55 6b 21 28 32 30 34 38 2b 38 |+4)=1:Uk!(2048+8|
00005340 29 3d 63 55 3a 55 6b 21 28 32 30 34 38 2b 31 32 |)=cU:Uk!(2048+12|
00005350 29 3d 64 73 3a 55 6b 21 28 32 30 34 38 2b 31 36 |)=ds:Uk!(2048+16|
00005360 29 3d 32 3a 55 6b 21 28 32 30 34 38 2b 32 30 29 |)=2:Uk!(2048+20)|
00005370 3d 31 3a 55 6b 21 28 32 30 34 38 2b 32 34 29 3d |=1:Uk!(2048+24)=|
00005380 63 55 3a 55 6b 21 28 32 30 34 38 2b 32 38 29 3d |cU:Uk!(2048+28)=|
00005390 64 73 3a 55 6b 21 28 32 30 34 38 2b 33 32 29 3d |ds:Uk!(2048+32)=|
000053a0 33 3a 55 6b 21 28 32 30 34 38 2b 33 36 29 3d 31 |3:Uk!(2048+36)=1|
000053b0 3a 55 6b 21 28 32 30 34 38 2b 34 30 29 3d 63 55 |:Uk!(2048+40)=cU|
000053c0 3a 55 6b 21 28 32 30 34 38 2b 34 34 29 3d 64 73 |:Uk!(2048+44)=ds|
000053d0 3a 55 6b 21 28 32 30 34 38 2b 34 38 29 3d 34 3a |:Uk!(2048+48)=4:|
000053e0 55 6b 21 28 32 30 34 38 2b 35 32 29 3d 31 3a 55 |Uk!(2048+52)=1:U|
000053f0 6b 21 28 32 30 34 38 2b 35 36 29 3d 63 55 3a 55 |k!(2048+56)=cU:U|
00005400 6b 21 28 32 30 34 38 2b 36 30 29 3d 64 73 0d 37 |k!(2048+60)=ds.7|
00005410 00 5d c8 99 26 39 30 30 39 30 2c 28 55 6b 2b 32 |.]..&90090,(Uk+2|
00005420 30 34 38 29 3a c8 99 26 39 30 30 39 30 2c 28 55 |048):..&90090,(U|
00005430 6b 2b 32 30 34 38 2b 31 36 29 3a c8 99 26 39 30 |k+2048+16):..&90|
00005440 30 39 30 2c 28 55 6b 2b 32 30 34 38 2b 33 32 29 |090,(Uk+2048+32)|
00005450 3a c8 99 26 39 30 30 39 30 2c 28 55 6b 2b 32 30 |:..&90090,(Uk+20|
00005460 34 38 2b 34 38 29 3a 56 7a 3d b9 0d 37 28 05 cd |48+48):Vz=..7(..|
00005470 0d 37 3c 09 cd 3a 3d 57 78 0d 37 6e 2f dd f2 57 |.7<..:=Wx.7n/..W|
00005480 59 3a c8 99 26 39 30 30 38 31 2c 31 20 b8 65 6b |Y:..&90081,1 .ek|
00005490 3a 63 59 3d 65 6b 21 30 3a e7 63 59 3c 65 59 20 |:cY=ek!0:.cY<eY |
000054a0 84 63 59 3e 65 5a 20 8c 0d 37 96 1e c8 99 26 39 |.cY>eZ ..7....&9|
000054b0 30 30 38 43 3a c8 99 26 39 30 30 38 45 2c 31 3a |008C:..&9008E,1:|
000054c0 56 7a 3d 20 ac b9 0d 37 b4 07 cd 3a e1 0d 37 dc |Vz= ...7...:..7.|
000054d0 15 dd f2 61 6a 28 65 6c 2c 65 6d 29 3a e7 56 76 |...aj(el,em):.Vv|
000054e0 20 8c 0d 37 f0 29 64 74 3d 56 77 3a 64 75 3d 56 | ..7.)dt=Vw:du=V|
000054f0 78 3a 56 78 2b 3d 65 6c 3a 56 77 2b 3d 65 6d 3a |x:Vx+=el:Vw+=em:|
00005500 e7 56 77 3c 31 20 8c 56 77 3d 31 0d 38 22 11 e7 |.Vw<1 .Vw=1.8"..|
00005510 56 77 3e 36 34 20 8c 56 77 3d 36 34 0d 38 2c 0f |Vw>64 .Vw=64.8,.|
00005520 e7 56 78 3c 31 20 8c 56 78 3d 31 0d 38 36 0f e7 |.Vx<1 .Vx=1.86..|
00005530 56 78 3e 34 20 8c 56 78 3d 34 0d 38 40 15 e7 64 |Vx>4 .Vx=4.8@..d|
00005540 74 3c 3e 56 77 20 84 64 75 3c 3e 56 78 20 8c 0d |t<>Vw .du<>Vx ..|
00005550 38 4a 19 f2 64 64 28 64 74 2c 64 75 29 3a f2 64 |8J..dd(dt,du):.d|
00005560 64 28 56 77 2c 56 78 29 0d 38 5e 33 cd 3a e7 a4 |d(Vw,Vx).8^3.:..|
00005570 63 74 69 6f 6e 5f 4e 6f 74 65 49 73 42 65 6c 6f |ction_NoteIsBelo|
00005580 77 57 69 6e 64 6f 77 20 8c f2 64 76 28 55 6b 2c |wWindow ..dv(Uk,|
00005590 57 64 2c 30 2c 2d 34 34 2a 34 29 0d 38 72 31 e7 |Wd,0,-44*4).8r1.|
000055a0 a4 63 74 69 6f 6e 5f 4e 6f 74 65 49 73 41 62 6f |.ction_NoteIsAbo|
000055b0 76 65 57 69 6e 64 6f 77 20 8c f2 64 76 28 55 6b |veWindow ..dv(Uk|
000055c0 2c 57 64 2c 30 2c 2b 34 34 2a 34 29 0d 38 7c 07 |,Wd,0,+44*4).8|.|
000055d0 cd 3a e1 0d 38 a4 81 dd a4 63 74 69 6f 6e 5f 4e |.:..8....ction_N|
000055e0 6f 74 65 49 73 42 65 6c 6f 77 57 69 6e 64 6f 77 |oteIsBelowWindow|
000055f0 3a 55 6b 21 30 3d 57 64 3a c8 99 26 34 30 30 43 |:Uk!0=Wd:..&400C|
00005600 42 2c 2c 55 6b 3a 61 72 3d 55 6b 21 34 3a 61 74 |B,,Uk:ar=Uk!4:at|
00005610 3d 55 6b 21 38 3a 65 6e 3d 55 6b 21 31 32 3a 61 |=Uk!8:en=Uk!12:a|
00005620 73 3d 55 6b 21 31 36 3a 61 75 3d 55 6b 21 32 30 |s=Uk!16:au=Uk!20|
00005630 3a 61 76 3d 55 6b 21 32 34 3a 65 6f 3d 61 73 2d |:av=Uk!24:eo=as-|
00005640 35 36 2d 56 77 2a 34 34 20 2d 20 61 76 3a 3d 65 |56-Vw*44 - av:=e|
00005650 6f 3c 61 74 0d 39 08 87 dd a4 63 74 69 6f 6e 5f |o<at.9....ction_|
00005660 4e 6f 74 65 49 73 41 62 6f 76 65 57 69 6e 64 6f |NoteIsAboveWindo|
00005670 77 3a 55 6b 21 30 3d 57 64 3a c8 99 26 34 30 30 |w:Uk!0=Wd:..&400|
00005680 43 42 2c 2c 55 6b 3a 61 72 3d 55 6b 21 34 3a 61 |CB,,Uk:ar=Uk!4:a|
00005690 74 3d 55 6b 21 38 3a 65 6e 3d 55 6b 21 31 32 3a |t=Uk!8:en=Uk!12:|
000056a0 61 73 3d 55 6b 21 31 36 3a 61 75 3d 55 6b 21 32 |as=Uk!16:au=Uk!2|
000056b0 30 3a 61 76 3d 55 6b 21 32 34 3a 65 6f 3d 61 73 |0:av=Uk!24:eo=as|
000056c0 2d 35 36 2d 56 77 2a 34 34 20 2d 20 61 76 3a 3d |-56-Vw*44 - av:=|
000056d0 65 6f 3e 61 73 2d 35 36 2d 32 32 0d 39 6c 20 dd |eo>as-56-22.9l .|
000056e0 f2 63 67 3a e7 56 71 3e 30 20 84 63 6c 3e 31 20 |.cg:.Vq>0 .cl>1 |
000056f0 84 62 78 3e 31 20 84 56 61 20 8c 0d 39 80 4f 57 |.bx>1 .Va ..9.OW|
00005700 77 24 3d a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 |w$=.ction_TagToS|
00005710 74 72 69 6e 67 28 56 6b 2c 22 65 72 72 32 33 22 |tring(Vk,"err23"|
00005720 29 3a 57 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 6f |):Wz=.ction_Repo|
00005730 72 74 45 72 72 6f 72 28 55 6b 2c 39 39 2c 55 64 |rtError(Uk,99,Ud|
00005740 24 2c 57 77 24 2c b9 2c b9 29 0d 39 94 0a cc 3a |$,Ww$,.,.).9...:|
00005750 57 7a 3d 31 0d 39 a8 0d cd 3a e7 57 7a 3d 31 20 |Wz=1.9...:.Wz=1 |
00005760 8c 0d 39 bc 1c e3 65 70 3d 31 20 b8 56 58 3a e7 |..9...ep=1 .VX:.|
00005770 56 59 24 28 65 70 29 3c 3e 22 22 20 8c 0d 39 d0 |VY$(ep)<>"" ..9.|
00005780 25 f2 61 62 28 a4 63 74 69 6f 6e 5f 4c 65 61 66 |%.ab(.ction_Leaf|
00005790 6e 61 6d 65 4f 6e 6c 79 28 56 59 24 28 65 70 29 |nameOnly(VY$(ep)|
000057a0 29 29 0d 39 da f4 cd 3a ed 65 70 3a f2 59 58 3a |)).9...:.ep:.YX:|
000057b0 c8 99 26 39 30 30 43 35 2c 64 71 2c 55 56 20 b8 |..&900C5,dq,UV .|
000057c0 64 63 3a 41 25 3d 64 63 3a 42 25 3d 64 63 2b 21 |dc:A%=dc:B%=dc+!|
000057d0 56 6e 2a 31 30 32 34 3a 43 25 3d 30 3a d6 65 71 |Vn*1024:C%=0:.eq|
000057e0 3a 65 72 28 29 3d 20 ac b9 3a 65 72 28 31 29 3d |:er()= ..:er(1)=|
000057f0 b9 3a 62 78 3d 31 3a f2 63 75 28 31 29 3a f2 61 |.:bx=1:.cu(1):.a|
00005800 55 28 55 6b 2c 5a 77 2c 32 2c 22 22 29 3a f2 61 |U(Uk,Zw,2,""):.a|
00005810 55 28 55 6b 2c 5a 77 2c 33 2c 22 22 29 3a f2 61 |U(Uk,Zw,3,""):.a|
00005820 55 28 55 6b 2c 58 7a 2c 31 2c 22 4d 75 73 69 63 |U(Uk,Xz,1,"Music|
00005830 41 70 70 22 29 3a f2 61 55 28 55 6b 2c 58 76 2c |App"):.aU(Uk,Xv,|
00005840 31 2c 22 49 6e 73 74 72 75 6d 65 6e 74 22 29 3a |1,"Instrument"):|
00005850 f2 61 55 28 55 6b 2c 58 78 2c 31 2c 22 4d 75 73 |.aU(Uk,Xx,1,"Mus|
00005860 69 63 44 61 74 61 20 22 29 3a f2 65 73 28 55 6b |icData "):.es(Uk|
00005870 2c 57 64 2c 22 3c 55 6e 74 69 74 6c 65 64 3e 22 |,Wd,"<Untitled>"|
00005880 29 3a 55 6b 21 30 3d 57 64 3a c8 99 26 34 30 30 |):Uk!0=Wd:..&400|
00005890 43 42 2c 2c 55 6b 0d 3a 8e 59 c8 99 26 34 30 30 |CB,,Uk.:.Y..&400|
000058a0 43 36 2c 2c 55 6b 3a c8 99 26 34 30 30 43 35 2c |C6,,Uk:..&400C5,|
000058b0 2c 55 6b 3a f2 58 67 28 57 64 2c 2d 31 2c 30 29 |,Uk:.Xg(Wd,-1,0)|
000058c0 3a f2 57 65 28 55 6b 2c 57 64 2c 57 66 2c 30 2c |:.We(Uk,Wd,Wf,0,|
000058d0 30 29 3a 56 61 3d 20 ac b9 3a f2 57 6f 28 55 6b |0):Va= ..:.Wo(Uk|
000058e0 2c 57 6d 29 3a f2 57 6f 28 55 6b 2c 57 6e 29 0d |,Wm):.Wo(Uk,Wn).|
000058f0 3a e8 07 cd 3a e1 0d 3b 10 bd dd f2 63 68 3a f2 |:...:..;....ch:.|
00005900 61 55 28 55 6b 2c 59 62 2c 31 2c a4 63 74 69 6f |aU(Uk,Yb,1,.ctio|
00005910 6e 5f 52 65 61 64 49 63 6f 6e 54 65 78 74 28 55 |n_ReadIconText(U|
00005920 6b 2c 57 66 2c 31 29 29 3a f2 61 55 28 55 6b 2c |k,Wf,1)):.aU(Uk,|
00005930 59 62 2c 34 2c a4 63 74 69 6f 6e 5f 52 65 61 64 |Yb,4,.ction_Read|
00005940 49 63 6f 6e 54 65 78 74 28 55 6b 2c 57 66 2c 31 |IconText(Uk,Wf,1|
00005950 29 29 3a f2 61 55 28 55 6b 2c 59 62 2c 37 2c 22 |)):.aU(Uk,Yb,7,"|
00005960 43 20 22 29 3a f2 61 55 28 55 6b 2c 59 62 2c 31 |C "):.aU(Uk,Yb,1|
00005970 30 2c 22 43 20 22 29 3a f2 61 55 28 55 6b 2c 59 |0,"C "):.aU(Uk,Y|
00005980 62 2c 31 33 2c 22 31 22 29 3a f2 61 55 28 55 6b |b,13,"1"):.aU(Uk|
00005990 2c 59 62 2c 31 36 2c 22 31 22 29 3a f2 59 63 3a |,Yb,16,"1"):.Yc:|
000059a0 f2 57 63 28 55 69 2c 55 6b 2c 59 62 2c 20 ac b9 |.Wc(Ui,Uk,Yb, ..|
000059b0 29 3a e1 0d 3b 88 6e dd f2 59 63 3a e3 64 6a 3d |):..;.n..Yc:.dj=|
000059c0 31 20 b8 33 3a 65 74 3d a4 63 74 69 6f 6e 5f 49 |1 .3:et=.ction_I|
000059d0 63 6f 6e 49 73 54 6f 67 67 6c 65 64 28 55 6b 2c |conIsToggled(Uk,|
000059e0 59 62 2c 28 64 6a 2d 31 29 2a 36 29 3a e3 69 3d |Yb,(dj-1)*6):.i=|
000059f0 28 64 6a 2a 36 2d 36 29 2b 31 20 b8 28 64 6a 2a |(dj*6-6)+1 .(dj*|
00005a00 36 2d 36 29 2b 35 3a f2 63 66 28 55 6b 2c 59 62 |6-6)+5:.cf(Uk,Yb|
00005a10 2c 69 2c 20 ac 65 74 29 3a ed 69 3a ed 64 6a 3a |,i, .et):.i:.dj:|
00005a20 e1 0d 3b ec 30 dd f2 59 66 28 65 75 29 3a e7 a4 |..;.0..Yf(eu):..|
00005a30 63 74 69 6f 6e 5f 49 63 6f 6e 49 73 54 6f 67 67 |ction_IconIsTogg|
00005a40 6c 65 64 28 55 6b 2c 59 62 2c 30 29 20 8c f2 65 |led(Uk,Yb,0) ..e|
00005a50 76 0d 3c 00 27 e7 a4 63 74 69 6f 6e 5f 49 63 6f |v.<.'..ction_Ico|
00005a60 6e 49 73 54 6f 67 67 6c 65 64 28 55 6b 2c 59 62 |nIsToggled(Uk,Yb|
00005a70 2c 36 29 20 8c f2 65 77 0d 3c 0a 28 e7 a4 63 74 |,6) ..ew.<.(..ct|
00005a80 69 6f 6e 5f 49 63 6f 6e 49 73 54 6f 67 67 6c 65 |ion_IconIsToggle|
00005a90 64 28 55 6b 2c 59 62 2c 31 32 29 20 8c f2 65 78 |d(Uk,Yb,12) ..ex|
00005aa0 0d 3c 14 13 e7 65 75 20 8c f2 57 6f 28 55 6b 2c |.<...eu ..Wo(Uk,|
00005ab0 59 62 29 0d 3c 1e 10 f2 59 5a 28 55 6b 2c 57 64 |Yb).<...YZ(Uk,Wd|
00005ac0 29 3a e1 0d 3c 46 fd dd f2 63 69 3a f2 61 55 28 |):..<F...ci:.aU(|
00005ad0 55 6b 2c 59 67 2c 31 2c a4 63 74 69 6f 6e 5f 54 |Uk,Yg,1,.ction_T|
00005ae0 61 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 73 |agToString(Vk,"s|
00005af0 74 65 72 30 31 22 29 29 3a f2 61 55 28 55 6b 2c |ter01")):.aU(Uk,|
00005b00 59 67 2c 34 2c a4 63 74 69 6f 6e 5f 54 61 67 54 |Yg,4,.ction_TagT|
00005b10 6f 53 74 72 69 6e 67 28 56 6b 2c 22 73 74 65 72 |oString(Vk,"ster|
00005b20 30 31 22 29 29 3a f2 61 55 28 55 6b 2c 59 67 2c |01")):.aU(Uk,Yg,|
00005b30 37 2c 22 31 32 37 22 29 3a f2 61 55 28 55 6b 2c |7,"127"):.aU(Uk,|
00005b40 59 67 2c 31 31 2c 22 31 32 37 22 29 3a f2 61 55 |Yg,11,"127"):.aU|
00005b50 28 55 6b 2c 59 67 2c 31 35 2c 22 31 35 22 29 3a |(Uk,Yg,15,"15"):|
00005b60 f2 61 55 28 55 6b 2c 59 67 2c 31 39 2c 22 31 35 |.aU(Uk,Yg,19,"15|
00005b70 22 29 3a f2 61 55 28 55 6b 2c 59 67 2c 32 34 2c |"):.aU(Uk,Yg,24,|
00005b80 22 30 22 29 3a f2 61 55 28 55 6b 2c 59 67 2c 32 |"0"):.aU(Uk,Yg,2|
00005b90 36 2c 22 30 22 29 3a f2 61 55 28 55 6b 2c 59 67 |6,"0"):.aU(Uk,Yg|
00005ba0 2c 32 35 2c 22 30 22 29 3a f2 59 68 3a f2 57 63 |,25,"0"):.Yh:.Wc|
00005bb0 28 55 69 2c 55 6b 2c 59 67 2c 20 ac b9 29 3a e1 |(Ui,Uk,Yg, ..):.|
00005bc0 0d 3c dc f2 dd f2 59 68 3a 65 74 3d a4 63 74 69 |.<....Yh:et=.cti|
00005bd0 6f 6e 5f 49 63 6f 6e 49 73 54 6f 67 67 6c 65 64 |on_IconIsToggled|
00005be0 28 55 6b 2c 59 67 2c 30 29 3a e3 69 3d 31 20 b8 |(Uk,Yg,0):.i=1 .|
00005bf0 35 3a f2 63 66 28 55 6b 2c 59 67 2c 69 2c 20 ac |5:.cf(Uk,Yg,i, .|
00005c00 65 74 29 3a ed 69 3a 65 74 3d a4 63 74 69 6f 6e |et):.i:et=.ction|
00005c10 5f 49 63 6f 6e 49 73 54 6f 67 67 6c 65 64 28 55 |_IconIsToggled(U|
00005c20 6b 2c 59 67 2c 36 29 3a e3 69 3d 37 20 b8 31 33 |k,Yg,6):.i=7 .13|
00005c30 3a f2 63 66 28 55 6b 2c 59 67 2c 69 2c 20 ac 65 |:.cf(Uk,Yg,i, .e|
00005c40 74 29 3a ed 69 3a 65 74 3d a4 63 74 69 6f 6e 5f |t):.i:et=.ction_|
00005c50 49 63 6f 6e 49 73 54 6f 67 67 6c 65 64 28 55 6b |IconIsToggled(Uk|
00005c60 2c 59 67 2c 31 34 29 3a e3 69 3d 31 35 20 b8 32 |,Yg,14):.i=15 .2|
00005c70 31 3a f2 63 66 28 55 6b 2c 59 67 2c 69 2c 20 ac |1:.cf(Uk,Yg,i, .|
00005c80 65 74 29 3a ed 69 3a 65 74 3d a4 63 74 69 6f 6e |et):.i:et=.ction|
00005c90 5f 49 63 6f 6e 49 73 54 6f 67 67 6c 65 64 28 55 |_IconIsToggled(U|
00005ca0 6b 2c 59 67 2c 32 33 29 3a e3 69 3d 32 34 20 b8 |k,Yg,23):.i=24 .|
00005cb0 33 30 0d 3d 72 1a f2 63 66 28 55 6b 2c 59 67 2c |30.=r..cf(Uk,Yg,|
00005cc0 69 2c 20 ac 65 74 29 3a ed 69 3a e1 0d 3d a4 30 |i, .et):.i:..=.0|
00005cd0 dd f2 59 69 28 65 75 29 3a e7 a4 63 74 69 6f 6e |..Yi(eu):..ction|
00005ce0 5f 49 63 6f 6e 49 73 54 6f 67 67 6c 65 64 28 55 |_IconIsToggled(U|
00005cf0 6b 2c 59 67 2c 30 29 20 8c f2 65 79 0d 3d b8 27 |k,Yg,0) ..ey.=.'|
00005d00 e7 a4 63 74 69 6f 6e 5f 49 63 6f 6e 49 73 54 6f |..ction_IconIsTo|
00005d10 67 67 6c 65 64 28 55 6b 2c 59 67 2c 36 29 20 8c |ggled(Uk,Yg,6) .|
00005d20 f2 65 7a 0d 3d c2 28 e7 a4 63 74 69 6f 6e 5f 49 |.ez.=.(..ction_I|
00005d30 63 6f 6e 49 73 54 6f 67 67 6c 65 64 28 55 6b 2c |conIsToggled(Uk,|
00005d40 59 67 2c 31 34 29 20 8c f2 66 55 0d 3d cc 28 e7 |Yg,14) ..fU.=.(.|
00005d50 a4 63 74 69 6f 6e 5f 49 63 6f 6e 49 73 54 6f 67 |.ction_IconIsTog|
00005d60 67 6c 65 64 28 55 6b 2c 59 67 2c 32 33 29 20 8c |gled(Uk,Yg,23) .|
00005d70 f2 66 56 0d 3d d6 13 e7 65 75 20 8c f2 57 6f 28 |.fV.=...eu ..Wo(|
00005d80 55 6b 2c 59 67 29 0d 3d e0 10 f2 59 5a 28 55 6b |Uk,Yg).=...YZ(Uk|
00005d90 2c 57 64 29 3a e1 0d 3e 08 1e dd f2 59 6b 3a c8 |,Wd):..>....Yk:.|
00005da0 99 26 39 30 30 38 42 20 b8 64 78 3a e7 64 78 3d |.&9008B .dx:.dx=|
00005db0 2d 31 20 8c 0d 3e 3a 7f c8 99 26 39 30 30 38 43 |-1 ..>:...&9008C|
00005dc0 3a 66 57 3d a4 63 74 69 6f 6e 5f 49 63 6f 6e 49 |:fW=.ction_IconI|
00005dd0 73 54 6f 67 67 6c 65 64 28 55 6b 2c 59 6a 2c 31 |sToggled(Uk,Yj,1|
00005de0 29 3a c8 99 26 39 30 30 43 35 2c 64 71 2c 55 56 |):..&900C5,dq,UV|
00005df0 20 b8 64 63 3a c8 99 26 39 30 30 43 35 2c 66 58 | .dc:..&900C5,fX|
00005e00 2c 55 56 20 b8 66 59 3a c8 99 26 39 30 30 38 36 |,UV .fY:..&90086|
00005e10 2c 64 63 3a c8 99 26 39 30 30 38 37 2c 66 59 3a |,dc:..&90087,fY:|
00005e20 c8 99 26 39 30 30 38 38 2c 63 6c 3a e7 20 ac 66 |..&90088,cl:. .f|
00005e30 57 20 8c 0d 3e a8 11 c8 99 26 39 30 30 38 39 2c |W ..>....&90089,|
00005e40 63 6b 2c 31 0d 3e b2 12 cc 3a c8 99 26 39 30 30 |ck,1.>...:..&900|
00005e50 38 39 2c 31 2c 31 0d 3e c6 29 cd 3a c8 99 26 39 |89,1,1.>.).:..&9|
00005e60 30 30 38 41 2c 21 65 61 3a e3 69 3d 31 20 b8 56 |008A,!ea:.i=1 .V|
00005e70 58 3a e7 56 59 24 28 69 29 3c 3e 22 22 20 8c 0d |X:.VY$(i)<>"" ..|
00005e80 3f 02 84 57 79 3d 56 5a 28 69 29 3a c8 99 26 39 |?..Wy=VZ(i):..&9|
00005e90 30 30 43 35 2c 57 79 2c 55 56 20 b8 64 63 3a 55 |00C5,Wy,UV .dc:U|
00005ea0 6b 21 30 3d 64 63 2b 38 30 2b 34 3a 55 6b 21 34 |k!0=dc+80+4:Uk!4|
00005eb0 3d 64 63 2b 38 30 2b 34 2b 64 63 21 28 36 34 2b |=dc+80+4+dc!(64+|
00005ec0 34 29 2d 31 33 32 3a 55 6b 21 38 3d 64 63 21 28 |4)-132:Uk!8=dc!(|
00005ed0 36 38 2b 34 29 3a 55 6b 21 31 32 3d 64 63 21 28 |68+4):Uk!12=dc!(|
00005ee0 37 32 2b 34 29 3a 55 6b 21 31 36 3d 64 63 21 28 |72+4):Uk!16=dc!(|
00005ef0 37 36 2b 34 29 3a c8 99 26 39 30 30 38 44 2c 69 |76+4):..&9008D,i|
00005f00 2c 55 6b 0d 3f 52 fe cd 3a ed 69 3a c8 99 26 39 |,Uk.?R..:.i:..&9|
00005f10 30 30 38 34 2c 94 28 21 65 62 29 2c 94 28 21 65 |0084,.(!eb),.(!e|
00005f20 63 29 2c 94 28 21 65 64 29 2c 94 28 21 65 65 29 |c),.(!ed),.(!ee)|
00005f30 3a c8 99 26 39 30 30 38 32 2c 21 66 5a 3a c8 99 |:..&90082,!fZ:..|
00005f40 26 39 30 30 38 33 2c 21 65 66 3a c8 99 26 39 30 |&90083,!ef:..&90|
00005f50 30 38 42 3a c8 99 26 39 30 30 38 35 2c 21 65 67 |08B:..&90085,!eg|
00005f60 2c 21 65 68 2c 21 65 69 2c 21 65 6a 3a c8 99 26 |,!eh,!ei,!ej:..&|
00005f70 39 30 30 39 31 3a 57 55 3d b9 3a f2 63 66 28 55 |90091:WU=.:.cf(U|
00005f80 6b 2c 59 6a 2c 38 2c 57 55 29 3a f2 63 66 28 55 |k,Yj,8,WU):.cf(U|
00005f90 6b 2c 59 6a 2c 39 2c 20 ac 57 55 29 3a f2 61 55 |k,Yj,9, .WU):.aU|
00005fa0 28 55 6b 2c 59 6a 2c 35 2c 22 31 22 29 3a 66 61 |(Uk,Yj,5,"1"):fa|
00005fb0 3d 31 3a f2 61 55 28 55 6b 2c 59 6a 2c 33 2c c3 |=1:.aU(Uk,Yj,3,.|
00005fc0 28 28 3f 66 59 29 2b 31 29 29 3a 66 62 3d 28 3f |((?fY)+1)):fb=(?|
00005fd0 66 59 29 2b 31 3a f2 61 55 28 55 6b 2c 59 6a 2c |fY)+1:.aU(Uk,Yj,|
00005fe0 37 2c 22 31 22 29 3a 66 63 3d 31 3a f2 57 6f 28 |7,"1"):fc=1:.Wo(|
00005ff0 55 6b 2c 57 6b 29 3a f2 57 6f 28 55 6b 2c 57 6c |Uk,Wk):.Wo(Uk,Wl|
00006000 29 0d 40 1a 70 f2 57 6f 28 55 6b 2c 59 62 29 3a |).@.p.Wo(Uk,Yb):|
00006010 f2 57 6f 28 55 6b 2c 59 67 29 3a f2 57 6f 28 55 |.Wo(Uk,Yg):.Wo(U|
00006020 6b 2c 57 69 29 3a f2 57 6f 28 55 6b 2c 57 6a 29 |k,Wi):.Wo(Uk,Wj)|
00006030 3a f2 57 6f 28 55 6b 2c 57 67 29 3a f2 57 6f 28 |:.Wo(Uk,Wg):.Wo(|
00006040 55 6b 2c 57 68 29 3a f2 57 6f 28 55 6b 2c 57 6d |Uk,Wh):.Wo(Uk,Wm|
00006050 29 3a f2 57 6f 28 55 6b 2c 57 6e 29 3a f2 57 6f |):.Wo(Uk,Wn):.Wo|
00006060 28 55 6b 2c 59 71 29 3a f2 61 56 3a e7 56 76 20 |(Uk,Yq):.aV:.Vv |
00006070 8c 0d 40 6a 15 56 76 3d 20 ac b9 3a f2 59 5a 28 |..@j.Vv= ..:.YZ(|
00006080 55 6b 2c 57 64 29 0d 40 7e 05 cd 0d 40 ba 07 cd |Uk,Wd).@~...@...|
00006090 3a e1 0d 40 ec 64 dd f2 59 6c 3a c8 99 26 39 30 |:..@.d..Yl:..&90|
000060a0 30 39 32 3a c8 99 26 39 30 30 38 43 3a c8 99 26 |092:..&9008C:..&|
000060b0 39 30 30 38 45 2c 2d 31 3a 57 55 3d 20 ac b9 3a |9008E,-1:WU= ..:|
000060c0 f2 63 66 28 55 6b 2c 59 6a 2c 38 2c 57 55 29 3a |.cf(Uk,Yj,8,WU):|
000060d0 f2 63 66 28 55 6b 2c 59 6a 2c 39 2c 20 ac 57 55 |.cf(Uk,Yj,9, .WU|
000060e0 29 3a c8 99 26 39 30 30 43 35 2c 66 58 2c 55 56 |):..&900C5,fX,UV|
000060f0 20 b8 64 63 3a e1 0d 41 5a 5e dd f2 57 5a 3a c8 | .dc:..AZ^..WZ:.|
00006100 99 26 39 30 30 38 39 2c 2d 31 2c 2d 31 20 b8 66 |.&90089,-1,-1 .f|
00006110 64 2c 66 65 3a c8 99 26 39 30 30 43 35 2c 66 58 |d,fe:..&900C5,fX|
00006120 2c 55 56 20 b8 64 63 3a 66 66 3d 64 63 3f 28 66 |,UV .dc:ff=dc?(f|
00006130 64 2d 31 29 3a e7 66 64 3c 3e 66 61 20 8c f2 61 |d-1):.fd<>fa ..a|
00006140 55 28 55 6b 2c 59 6a 2c 35 2c c3 66 64 29 3a 66 |U(Uk,Yj,5,.fd):f|
00006150 61 3d 66 64 0d 41 8c 27 e7 66 66 3c 3e 66 62 20 |a=fd.A.'.ff<>fb |
00006160 8c f2 61 55 28 55 6b 2c 59 6a 2c 33 2c c3 28 66 |..aU(Uk,Yj,3,.(f|
00006170 66 2b 31 29 29 3a 66 62 3d 66 66 0d 41 96 23 e7 |f+1)):fb=ff.A.#.|
00006180 66 65 3c 3e 66 63 20 8c f2 61 55 28 55 6b 2c 59 |fe<>fc ..aU(Uk,Y|
00006190 6a 2c 37 2c c3 66 65 29 3a 66 63 3d 66 65 0d 41 |j,7,.fe):fc=fe.A|
000061a0 a0 05 e1 0d 41 be 10 dd f2 59 59 3a e7 20 ac 56 |....A....YY:. .V|
000061b0 61 20 8c 0d 41 d2 8f 63 56 24 3d a4 63 74 69 6f |a ..A..cV$=.ctio|
000061c0 6e 5f 47 65 74 57 69 6e 64 6f 77 54 69 74 6c 65 |n_GetWindowTitle|
000061d0 28 55 6b 2c 57 64 29 3a 63 56 24 2b 3d 22 20 2a |(Uk,Wd):cV$+=" *|
000061e0 22 3a f2 65 73 28 55 6b 2c 57 64 2c 63 56 24 29 |":.es(Uk,Wd,cV$)|
000061f0 3a 21 55 6b 3d 57 64 3a c8 99 26 34 30 30 43 43 |:!Uk=Wd:..&400CC|
00006200 2c 2c 55 6b 3a c8 99 26 34 30 30 43 36 2c 2c 55 |,,Uk:..&400C6,,U|
00006210 6b 3a c8 99 26 34 30 30 43 35 2c 2c 55 6b 3a f2 |k:..&400C5,,Uk:.|
00006220 57 65 28 55 6b 2c 57 64 2c 57 66 2c 30 2c 30 29 |We(Uk,Wd,Wf,0,0)|
00006230 3a 56 61 3d b9 3a f2 58 67 28 57 64 2c 2d 31 2c |:Va=.:.Xg(Wd,-1,|
00006240 30 29 0d 42 36 07 cd 3a e1 0d 42 5e 34 dd f2 61 |0).B6..:..B^4..a|
00006250 70 28 58 57 29 3a 57 79 24 3d 22 22 3a 62 5a 3d |p(XW):Wy$="":bZ=|
00006260 58 57 21 34 3a 66 67 3d 58 57 21 33 32 3a 66 68 |XW!4:fg=XW!32:fh|
00006270 3d 58 57 21 33 36 3a c8 8e 66 67 20 ca 0d 42 ae |=XW!36:..fg ..B.|
00006280 1a c9 55 63 3a e7 66 68 3d 56 6a 20 8c 57 79 24 |..Uc:.fh=Vj .Wy$|
00006290 3d 22 69 62 61 72 22 0d 42 c2 0e c9 57 69 3a c8 |="ibar".B...Wi:.|
000062a0 8e 66 68 20 ca 0d 42 cc 13 c9 30 3a 57 79 24 3d |.fh ..B...0:Wy$=|
000062b0 22 6c 77 69 6e 30 30 22 0d 42 d6 13 c9 31 3a 57 |"lwin00".B...1:W|
000062c0 79 24 3d 22 6c 77 69 6e 30 31 22 0d 42 e0 05 cb |y$="lwin01".B...|
000062d0 0d 42 f4 0e c9 57 67 3a c8 8e 66 68 20 ca 0d 42 |.B...Wg:..fh ..B|
000062e0 fe 13 c9 30 3a 57 79 24 3d 22 70 77 69 6e 30 30 |...0:Wy$="pwin00|
000062f0 22 0d 43 08 13 c9 31 3a 57 79 24 3d 22 70 77 69 |".C...1:Wy$="pwi|
00006300 6e 30 31 22 0d 43 12 13 c9 32 3a 57 79 24 3d 22 |n01".C...2:Wy$="|
00006310 70 77 69 6e 30 32 22 0d 43 1c 05 cb 0d 43 30 0e |pwin02".C....C0.|
00006320 c9 57 68 3a c8 8e 66 68 20 ca 0d 43 3a 13 c9 32 |.Wh:..fh ..C:..2|
00006330 3a 57 79 24 3d 22 70 70 6e 65 30 32 22 0d 43 44 |:Wy$="ppne02".CD|
00006340 13 c9 35 3a 57 79 24 3d 22 70 70 6e 65 30 35 22 |..5:Wy$="ppne05"|
00006350 0d 43 4e 13 c9 33 3a 57 79 24 3d 22 70 70 6e 65 |.CN..3:Wy$="ppne|
00006360 30 33 22 0d 43 58 13 c9 34 3a 57 79 24 3d 22 70 |03".CX..4:Wy$="p|
00006370 70 6e 65 30 34 22 0d 43 62 13 c9 36 3a 57 79 24 |pne04".Cb..6:Wy$|
00006380 3d 22 70 70 6e 65 30 36 22 0d 43 6c 13 c9 37 3a |="ppne06".Cl..7:|
00006390 57 79 24 3d 22 70 70 6e 65 30 37 22 0d 43 76 13 |Wy$="ppne07".Cv.|
000063a0 c9 38 3a 57 79 24 3d 22 70 70 6e 65 30 38 22 0d |.8:Wy$="ppne08".|
000063b0 43 80 13 c9 39 3a 57 79 24 3d 22 70 70 6e 65 30 |C...9:Wy$="ppne0|
000063c0 39 22 0d 43 8a 14 c9 31 30 3a 57 79 24 3d 22 70 |9".C...10:Wy$="p|
000063d0 70 6e 65 31 30 22 0d 43 94 14 c9 31 31 3a 57 79 |pne10".C...11:Wy|
000063e0 24 3d 22 70 70 6e 65 31 31 22 0d 43 9e 14 c9 31 |$="ppne11".C...1|
000063f0 32 3a 57 79 24 3d 22 70 70 6e 65 31 32 22 0d 43 |2:Wy$="ppne12".C|
00006400 a8 14 c9 31 33 3a 57 79 24 3d 22 70 70 6e 65 31 |...13:Wy$="ppne1|
00006410 33 22 0d 43 b2 14 c9 31 37 3a 57 79 24 3d 22 70 |3".C...17:Wy$="p|
00006420 70 6e 65 31 37 22 0d 43 bc 14 c9 33 30 3a 57 79 |pne17".C...30:Wy|
00006430 24 3d 22 70 70 6e 65 33 30 22 0d 43 c6 14 c9 33 |$="ppne30".C...3|
00006440 31 3a 57 79 24 3d 22 70 70 6e 65 33 31 22 0d 43 |1:Wy$="ppne31".C|
00006450 d0 14 c9 31 38 3a 57 79 24 3d 22 70 70 6e 65 31 |...18:Wy$="ppne1|
00006460 38 22 0d 43 da 14 c9 32 30 3a 57 79 24 3d 22 70 |8".C...20:Wy$="p|
00006470 70 6e 65 32 30 22 0d 43 e4 14 c9 32 31 3a 57 79 |pne20".C...21:Wy|
00006480 24 3d 22 70 70 6e 65 32 31 22 0d 43 ee 14 c9 32 |$="ppne21".C...2|
00006490 35 3a 57 79 24 3d 22 70 70 6e 65 32 35 22 0d 43 |5:Wy$="ppne25".C|
000064a0 f8 14 c9 32 36 3a 57 79 24 3d 22 70 70 6e 65 32 |...26:Wy$="ppne2|
000064b0 36 22 0d 44 02 14 c9 33 32 3a 57 79 24 3d 22 70 |6".D...32:Wy$="p|
000064c0 70 6e 65 33 32 22 0d 44 0c 14 c9 33 33 3a 57 79 |pne32".D...33:Wy|
000064d0 24 3d 22 70 70 6e 65 33 33 22 0d 44 16 14 c9 33 |$="ppne33".D...3|
000064e0 34 3a 57 79 24 3d 22 70 70 6e 65 33 34 22 0d 44 |4:Wy$="ppne34".D|
000064f0 20 05 cb 0d 44 34 12 c9 57 6a 3a 57 79 24 3d 22 | ...D4..Wj:Wy$="|
00006500 6c 70 6e 65 22 0d 44 48 0e c9 5a 77 3a c8 8e 66 |lpne".DH..Zw:..f|
00006510 68 20 ca 0d 44 52 13 c9 32 3a 57 79 24 3d 22 6d |h ..DR..2:Wy$="m|
00006520 69 6e 66 30 32 22 0d 44 5c 13 c9 33 3a 57 79 24 |inf02".D\..3:Wy$|
00006530 3d 22 6d 69 6e 66 30 33 22 0d 44 66 13 c9 37 3a |="minf03".Df..7:|
00006540 57 79 24 3d 22 6d 69 6e 66 30 37 22 0d 44 70 13 |Wy$="minf07".Dp.|
00006550 c9 38 3a 57 79 24 3d 22 6d 69 6e 66 30 38 22 0d |.8:Wy$="minf08".|
00006560 44 7a 13 c9 39 3a 57 79 24 3d 22 6d 69 6e 66 30 |Dz..9:Wy$="minf0|
00006570 39 22 0d 44 84 14 c9 31 30 3a 57 79 24 3d 22 6d |9".D...10:Wy$="m|
00006580 69 6e 66 31 30 22 0d 44 8e 14 c9 31 31 3a 57 79 |inf10".D...11:Wy|
00006590 24 3d 22 6d 69 6e 66 31 31 22 0d 44 98 05 cb 0d |$="minf11".D....|
000065a0 44 a2 0e c9 57 6b 3a c8 8e 66 68 20 ca 0d 44 ac |D...Wk:..fh ..D.|
000065b0 13 c9 31 3a 57 79 24 3d 22 73 6d 61 6e 30 31 22 |..1:Wy$="sman01"|
000065c0 0d 44 b6 13 c9 32 3a 57 79 24 3d 22 73 6d 61 6e |.D...2:Wy$="sman|
000065d0 30 32 22 0d 44 c0 13 c9 33 3a 57 79 24 3d 22 73 |02".D...3:Wy$="s|
000065e0 6d 61 6e 30 33 22 0d 44 ca 13 c9 34 3a 57 79 24 |man03".D...4:Wy$|
000065f0 3d 22 73 6d 61 6e 30 34 22 0d 44 d4 13 c9 35 3a |="sman04".D...5:|
00006600 57 79 24 3d 22 73 6d 61 6e 30 35 22 0d 44 de 13 |Wy$="sman05".D..|
00006610 c9 36 3a 57 79 24 3d 22 73 6d 61 6e 30 36 22 0d |.6:Wy$="sman06".|
00006620 44 e8 05 cb 0d 44 fc 0e c9 59 62 3a c8 8e 66 68 |D....D...Yb:..fh|
00006630 20 ca 0d 45 06 13 c9 30 3a 57 79 24 3d 22 63 6e | ..E...0:Wy$="cn|
00006640 6f 74 30 30 22 0d 45 10 13 c9 36 3a 57 79 24 3d |ot00".E...6:Wy$=|
00006650 22 63 6e 6f 74 30 36 22 0d 45 1a 14 c9 31 32 3a |"cnot06".E...12:|
00006660 57 79 24 3d 22 63 6e 6f 74 31 32 22 0d 45 24 13 |Wy$="cnot12".E$.|
00006670 c9 31 3a 57 79 24 3d 22 63 6e 6f 74 30 31 22 0d |.1:Wy$="cnot01".|
00006680 45 2e 13 c9 34 3a 57 79 24 3d 22 63 6e 6f 74 30 |E...4:Wy$="cnot0|
00006690 34 22 0d 45 38 13 c9 32 3a 57 79 24 3d 22 63 6e |4".E8..2:Wy$="cn|
000066a0 6f 74 30 32 22 0d 45 42 13 c9 35 3a 57 79 24 3d |ot02".EB..5:Wy$=|
000066b0 22 63 6e 6f 74 30 35 22 0d 45 4c 13 c9 37 3a 57 |"cnot05".EL..7:W|
000066c0 79 24 3d 22 63 6e 6f 74 30 37 22 0d 45 56 14 c9 |y$="cnot07".EV..|
000066d0 31 30 3a 57 79 24 3d 22 63 6e 6f 74 31 30 22 0d |10:Wy$="cnot10".|
000066e0 45 60 13 c9 38 3a 57 79 24 3d 22 63 6e 6f 74 30 |E`..8:Wy$="cnot0|
000066f0 38 22 0d 45 6a 14 c9 31 31 3a 57 79 24 3d 22 63 |8".Ej..11:Wy$="c|
00006700 6e 6f 74 31 31 22 0d 45 74 14 c9 31 33 3a 57 79 |not11".Et..13:Wy|
00006710 24 3d 22 63 6e 6f 74 31 33 22 0d 45 7e 14 c9 31 |$="cnot13".E~..1|
00006720 36 3a 57 79 24 3d 22 63 6e 6f 74 31 36 22 0d 45 |6:Wy$="cnot16".E|
00006730 88 14 c9 31 34 3a 57 79 24 3d 22 63 6e 6f 74 31 |...14:Wy$="cnot1|
00006740 34 22 0d 45 92 14 c9 31 37 3a 57 79 24 3d 22 63 |4".E...17:Wy$="c|
00006750 6e 6f 74 31 37 22 0d 45 9c 14 c9 31 38 3a 57 79 |not17".E...18:Wy|
00006760 24 3d 22 63 6e 6f 74 31 38 22 0d 45 a6 05 cb 0d |$="cnot18".E....|
00006770 45 ba 0e c9 59 67 3a c8 8e 66 68 20 ca 0d 45 c4 |E...Yg:..fh ..E.|
00006780 13 c9 30 3a 57 79 24 3d 22 63 68 66 78 30 30 22 |..0:Wy$="chfx00"|
00006790 0d 45 ce 13 c9 36 3a 57 79 24 3d 22 63 68 66 78 |.E...6:Wy$="chfx|
000067a0 30 36 22 0d 45 d8 14 c9 31 34 3a 57 79 24 3d 22 |06".E...14:Wy$="|
000067b0 63 68 66 78 31 34 22 0d 45 e2 14 c9 32 33 3a 57 |chfx14".E...23:W|
000067c0 79 24 3d 22 63 68 66 78 32 33 22 0d 45 ec 13 c9 |y$="chfx23".E...|
000067d0 31 3a 57 79 24 3d 22 63 68 66 78 30 31 22 0d 45 |1:Wy$="chfx01".E|
000067e0 f6 13 c9 34 3a 57 79 24 3d 22 63 68 66 78 30 34 |...4:Wy$="chfx04|
000067f0 22 0d 46 00 13 c9 32 3a 57 79 24 3d 22 63 68 66 |".F...2:Wy$="chf|
00006800 78 30 32 22 0d 46 0a 13 c9 35 3a 57 79 24 3d 22 |x02".F...5:Wy$="|
00006810 63 68 66 78 30 35 22 0d 46 14 13 c9 37 3a 57 79 |chfx05".F...7:Wy|
00006820 24 3d 22 63 68 66 78 30 37 22 0d 46 1e 14 c9 31 |$="chfx07".F...1|
00006830 31 3a 57 79 24 3d 22 63 68 66 78 31 31 22 0d 46 |1:Wy$="chfx11".F|
00006840 28 13 c9 38 3a 57 79 24 3d 22 63 68 66 78 30 38 |(..8:Wy$="chfx08|
00006850 22 0d 46 32 14 c9 31 32 3a 57 79 24 3d 22 63 68 |".F2..12:Wy$="ch|
00006860 66 78 31 32 22 0d 46 3c 13 c9 39 3a 57 79 24 3d |fx12".F<..9:Wy$=|
00006870 22 63 68 66 78 30 39 22 0d 46 46 14 c9 31 33 3a |"chfx09".FF..13:|
00006880 57 79 24 3d 22 63 68 66 78 31 33 22 0d 46 50 14 |Wy$="chfx13".FP.|
00006890 c9 31 35 3a 57 79 24 3d 22 63 68 66 78 31 35 22 |.15:Wy$="chfx15"|
000068a0 0d 46 5a 14 c9 31 39 3a 57 79 24 3d 22 63 68 66 |.FZ..19:Wy$="chf|
000068b0 78 31 39 22 0d 46 64 14 c9 31 36 3a 57 79 24 3d |x19".Fd..16:Wy$=|
000068c0 22 63 68 66 78 31 36 22 0d 46 6e 14 c9 32 30 3a |"chfx16".Fn..20:|
000068d0 57 79 24 3d 22 63 68 66 78 32 30 22 0d 46 78 14 |Wy$="chfx20".Fx.|
000068e0 c9 31 37 3a 57 79 24 3d 22 63 68 66 78 31 37 22 |.17:Wy$="chfx17"|
000068f0 0d 46 82 14 c9 32 31 3a 57 79 24 3d 22 63 68 66 |.F...21:Wy$="chf|
00006900 78 32 31 22 0d 46 8c 14 c9 32 35 3a 57 79 24 3d |x21".F...25:Wy$=|
00006910 22 63 68 66 78 32 35 22 0d 46 96 14 c9 32 37 3a |"chfx25".F...27:|
00006920 57 79 24 3d 22 63 68 66 78 32 37 22 0d 46 a0 14 |Wy$="chfx27".F..|
00006930 c9 32 38 3a 57 79 24 3d 22 63 68 66 78 32 38 22 |.28:Wy$="chfx28"|
00006940 0d 46 aa 14 c9 32 32 3a 57 79 24 3d 22 63 68 66 |.F...22:Wy$="chf|
00006950 78 32 32 22 0d 46 b4 05 cb 0d 46 c8 0e c9 59 6a |x22".F....F...Yj|
00006960 3a c8 8e 66 68 20 ca 0d 46 d2 13 c9 31 3a 57 79 |:..fh ..F...1:Wy|
00006970 24 3d 22 70 6c 61 79 30 31 22 0d 46 dc 13 c9 33 |$="play01".F...3|
00006980 3a 57 79 24 3d 22 70 6c 61 79 30 33 22 0d 46 e6 |:Wy$="play03".F.|
00006990 13 c9 35 3a 57 79 24 3d 22 70 6c 61 79 30 35 22 |..5:Wy$="play05"|
000069a0 0d 46 f0 13 c9 37 3a 57 79 24 3d 22 70 6c 61 79 |.F...7:Wy$="play|
000069b0 30 37 22 0d 46 fa 13 c9 38 3a 57 79 24 3d 22 70 |07".F...8:Wy$="p|
000069c0 6c 61 79 30 38 22 0d 47 04 13 c9 39 3a 57 79 24 |lay08".G...9:Wy$|
000069d0 3d 22 70 6c 61 79 30 39 22 0d 47 0e 05 cb 0d 47 |="play09".G....G|
000069e0 22 0e c9 61 64 3a c8 8e 66 68 20 ca 0d 47 2c 13 |"..ad:..fh ..G,.|
000069f0 c9 31 3a 57 79 24 3d 22 6a 75 6d 70 30 31 22 0d |.1:Wy$="jump01".|
00006a00 47 36 05 cb 0d 47 4a 12 c9 57 6e 3a 57 79 24 3d |G6...GJ..Wn:Wy$=|
00006a10 22 69 70 6e 65 22 0d 47 5e 0e c9 57 66 3a c8 8e |"ipne".G^..Wf:..|
00006a20 66 68 20 ca 0d 47 68 13 c9 31 3a 57 79 24 3d 22 |fh ..Gh..1:Wy$="|
00006a30 6d 70 6e 65 30 31 22 0d 47 72 13 c9 32 3a 57 79 |mpne01".Gr..2:Wy|
00006a40 24 3d 22 6d 70 6e 65 30 32 22 0d 47 7c 13 c9 35 |$="mpne02".G|..5|
00006a50 3a 57 79 24 3d 22 6d 70 6e 65 30 35 22 0d 47 86 |:Wy$="mpne05".G.|
00006a60 13 c9 36 3a 57 79 24 3d 22 6d 70 6e 65 30 36 22 |..6:Wy$="mpne06"|
00006a70 0d 47 90 13 c9 37 3a 57 79 24 3d 22 6d 70 6e 65 |.G...7:Wy$="mpne|
00006a80 30 37 22 0d 47 9a 13 c9 38 3a 57 79 24 3d 22 6d |07".G...8:Wy$="m|
00006a90 70 6e 65 30 38 22 0d 47 a4 05 cb 0d 47 b8 12 c9 |pne08".G....G...|
00006aa0 57 64 3a 57 79 24 3d 22 6d 61 69 6e 22 0d 47 cc |Wd:Wy$="main".G.|
00006ab0 12 c9 57 6c 3a 57 79 24 3d 22 73 70 6e 65 22 0d |..Wl:Wy$="spne".|
00006ac0 47 e0 0e c9 57 6d 3a c8 8e 66 68 20 ca 0d 47 ea |G...Wm:..fh ..G.|
00006ad0 14 c9 31 33 3a 57 79 24 3d 22 69 6d 61 6e 31 33 |..13:Wy$="iman13|
00006ae0 22 0d 47 f4 13 c9 31 3a 57 79 24 3d 22 69 6d 61 |".G...1:Wy$="ima|
00006af0 6e 30 31 22 0d 47 fe 13 c9 36 3a 57 79 24 3d 22 |n01".G...6:Wy$="|
00006b00 69 6d 61 6e 30 36 22 0d 48 08 13 c9 32 3a 57 79 |iman06".H...2:Wy|
00006b10 24 3d 22 69 6d 61 6e 30 32 22 0d 48 12 13 c9 33 |$="iman02".H...3|
00006b20 3a 57 79 24 3d 22 69 6d 61 6e 30 33 22 0d 48 1c |:Wy$="iman03".H.|
00006b30 13 c9 34 3a 57 79 24 3d 22 69 6d 61 6e 30 34 22 |..4:Wy$="iman04"|
00006b40 0d 48 26 13 c9 35 3a 57 79 24 3d 22 69 6d 61 6e |.H&..5:Wy$="iman|
00006b50 30 35 22 0d 48 30 13 c9 39 3a 57 79 24 3d 22 69 |05".H0..9:Wy$="i|
00006b60 6d 61 6e 30 39 22 0d 48 3a 14 c9 31 30 3a 57 79 |man09".H:..10:Wy|
00006b70 24 3d 22 69 6d 61 6e 31 30 22 0d 48 44 14 c9 31 |$="iman10".HD..1|
00006b80 31 3a 57 79 24 3d 22 69 6d 61 6e 31 31 22 0d 48 |1:Wy$="iman11".H|
00006b90 4e 14 c9 31 34 3a 57 79 24 3d 22 69 6d 61 6e 31 |N..14:Wy$="iman1|
00006ba0 34 22 0d 48 58 14 c9 31 32 3a 57 79 24 3d 22 69 |4".HX..12:Wy$="i|
00006bb0 6d 61 6e 31 32 22 0d 48 62 05 cb 0d 48 76 10 cb |man12".Hb...Hv..|
00006bc0 3a e7 57 79 24 3c 3e 22 22 20 8c 0d 48 94 74 66 |:.Wy$<>"" ..H.tf|
00006bd0 69 24 3d a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 |i$=.ction_TagToS|
00006be0 74 72 69 6e 67 28 56 6b 2c 57 79 24 29 3a 58 57 |tring(Vk,Wy$):XW|
00006bf0 21 30 3d 32 30 2b 28 28 a9 28 66 69 24 29 20 81 |!0=20+((.(fi$) .|
00006c00 34 29 2a 34 29 2b 34 3a 58 57 21 31 32 3d 58 57 |4)*4)+4:XW!12=XW|
00006c10 21 38 3a 58 57 21 31 36 3d 26 35 30 33 3a 24 28 |!8:XW!16=&503:$(|
00006c20 58 57 2b 32 30 29 3d 66 69 24 2b bd 30 3a c8 99 |XW+20)=fi$+.0:..|
00006c30 26 34 30 30 45 37 2c 31 37 2c 58 57 2c 62 5a 0d |&400E7,17,XW,bZ.|
00006c40 48 d0 07 cd 3a e1 0d 48 f8 7c dd a4 63 74 69 6f |H...:..H.|..ctio|
00006c50 6e 5f 46 69 6c 65 49 73 49 6e 73 74 72 75 6d 65 |n_FileIsInstrume|
00006c60 6e 74 28 66 6a 24 29 3a 66 6b 3d 8e 66 6a 24 3a |nt(fj$):fk=.fj$:|
00006c70 66 6c 3d 9a 23 66 6b 3a 66 6d 3d 9a 23 66 6b 3a |fl=.#fk:fm=.#fk:|
00006c80 66 6e 3d 9a 23 66 6b 3a 66 6f 3d 9a 23 66 6b 3a |fn=.#fk:fo=.#fk:|
00006c90 d9 23 66 6b 3a 3d 28 28 66 6c 3d 97 22 49 22 29 |.#fk:=((fl=."I")|
00006ca0 20 80 28 66 6d 3d 97 22 4e 22 29 20 80 28 66 6e | .(fm=."N") .(fn|
00006cb0 3d 97 22 53 22 29 20 80 28 66 6f 3d 97 22 54 22 |=."S") .(fo=."T"|
00006cc0 29 29 0d 49 48 59 dd f2 55 58 3a 57 77 24 3d 22 |)).IHY..UX:Ww$="|
00006cd0 46 61 74 61 6c 20 45 72 72 6f 72 20 3a 20 22 2b |Fatal Error : "+|
00006ce0 f6 24 2b 22 20 28 22 2b c3 9e 2b 22 29 22 3a 57 |.$+" ("+..+")":W|
00006cf0 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 6f 72 74 45 |z=.ction_ReportE|
00006d00 72 72 6f 72 28 55 6b 2c 39 39 2c 55 64 24 2c 57 |rror(Uk,99,Ud$,W|
00006d10 77 24 2c b9 2c 20 ac b9 29 3a e1 0d 49 a2 23 dd |w$,., ..):..I.#.|
00006d20 f2 57 57 3a f2 58 66 28 55 6b 2c 58 62 29 3a f2 |.WW:.Xf(Uk,Xb):.|
00006d30 66 70 28 55 6b 2c 58 62 29 3a ef 37 3a e1 0d 49 |fp(Uk,Xb):.7:..I|
00006d40 e8 23 dd f2 58 63 3a f2 58 66 28 55 6b 2c 58 64 |.#..Xc:.Xf(Uk,Xd|
00006d50 29 3a f2 66 70 28 55 6b 2c 58 64 29 3a ef 37 3a |):.fp(Uk,Xd):.7:|
00006d60 e1 0d 4a 92 fe dd f2 56 69 3a 66 71 3d 31 33 3a |..J....Vi:fq=13:|
00006d70 66 72 3d 31 34 3a 66 73 3d 31 35 3a de 66 74 20 |fr=14:fs=15:.ft |
00006d80 35 2a 31 30 32 34 3a e3 66 75 3d 30 20 b8 32 88 |5*1024:.fu=0 .2.|
00006d90 32 3a 50 25 3d 66 74 3a 5b 4f 50 54 20 66 75 3a |2:P%=ft:[OPT fu:|
00006da0 2e 66 76 20 53 54 4d 46 44 20 28 66 71 29 21 2c |.fv STMFD (fq)!,|
00006db0 7b 72 30 2d 72 31 32 2c 66 72 7d 3a 4d 4f 56 20 |{r0-r12,fr}:MOV |
00006dc0 72 31 32 2c 23 31 33 3a 4d 4f 56 20 72 31 31 2c |r12,#13:MOV r11,|
00006dd0 23 30 3a 4d 4f 56 20 72 31 30 2c 23 30 3a 4c 44 |#0:MOV r10,#0:LD|
00006de0 52 20 72 39 2c 66 77 3a 4c 44 52 20 72 38 2c 66 |R r9,fw:LDR r8,f|
00006df0 78 3a 4c 44 52 20 72 36 2c 66 79 3a 4c 44 52 20 |x:LDR r6,fy:LDR |
00006e00 72 35 2c 66 7a 3a 4c 44 52 20 72 34 2c 67 55 3a |r5,fz:LDR r4,gU:|
00006e10 4c 44 52 20 72 33 2c 67 56 3a 4c 44 52 20 66 72 |LDR r3,gV:LDR fr|
00006e20 2c 67 57 3a 2e 67 58 3a 43 4d 50 20 72 31 30 2c |,gW:.gX:CMP r10,|
00006e30 72 34 20 3a 20 42 4c 54 20 67 59 3a 43 4d 50 20 |r4 : BLT gY:CMP |
00006e40 72 31 30 2c 72 33 20 3a 20 42 47 54 20 67 59 3a |r10,r3 : BGT gY:|
00006e50 2e 67 5a 20 43 4d 50 20 72 31 32 2c 23 31 31 0d |.gZ CMP r12,#11.|
00006e60 4b be f1 4d 4f 56 4e 45 20 72 30 2c 23 31 31 3a |K..MOVNE r0,#11:|
00006e70 53 57 49 4e 45 20 22 57 69 6d 70 5f 53 65 74 43 |SWINE "Wimp_SetC|
00006e80 6f 6c 6f 75 72 22 3a 4d 4f 56 4e 45 20 72 31 32 |olour":MOVNE r12|
00006e90 2c 23 31 31 3a 42 20 67 61 3a 2e 67 59 20 43 4d |,#11:B ga:.gY CM|
00006ea0 50 20 72 31 32 2c 23 37 3a 4d 4f 56 4e 45 20 72 |P r12,#7:MOVNE r|
00006eb0 30 2c 23 37 3a 53 57 49 4e 45 20 22 57 69 6d 70 |0,#7:SWINE "Wimp|
00006ec0 5f 53 65 74 43 6f 6c 6f 75 72 22 3a 4d 4f 56 4e |_SetColour":MOVN|
00006ed0 45 20 72 31 32 2c 23 37 3a 2e 67 61 20 4c 44 52 |E r12,#7:.ga LDR|
00006ee0 42 20 72 37 2c 5b 72 39 5d 3a 4d 4f 56 20 72 37 |B r7,[r9]:MOV r7|
00006ef0 2c 72 37 2c 41 53 52 20 23 31 3a 43 4d 50 20 72 |,r7,ASR #1:CMP r|
00006f00 31 31 2c 23 30 3a 4d 56 4e 4e 45 20 72 37 2c 72 |11,#0:MVNNE r7,r|
00006f10 37 3a 41 44 44 4e 45 20 72 37 2c 72 37 2c 23 31 |7:ADDNE r7,r7,#1|
00006f20 3a 2e 67 62 20 4d 4f 56 20 72 30 2c 23 35 3a 41 |:.gb MOV r0,#5:A|
00006f30 44 44 20 72 31 2c 72 35 2c 72 31 30 2c 41 53 4c |DD r1,r5,r10,ASL|
00006f40 20 23 31 3a 41 44 44 20 72 32 2c 72 36 2c 72 37 | #1:ADD r2,r6,r7|
00006f50 0d 4c 7c fb 41 44 44 20 72 32 2c 72 32 2c 23 31 |.L|.ADD r2,r2,#1|
00006f60 32 38 3a 43 4d 50 20 72 31 30 2c 23 30 3a ec 51 |28:CMP r10,#0:.Q|
00006f70 20 72 30 2c 23 34 3a 53 57 49 20 22 4f 53 5f 50 | r0,#4:SWI "OS_P|
00006f80 6c 6f 74 22 3a 2e 67 63 20 4d 56 4e 20 72 31 31 |lot":.gc MVN r11|
00006f90 2c 72 31 31 3a 41 44 44 20 72 39 2c 72 39 2c 72 |,r11:ADD r9,r9,r|
00006fa0 38 3a 43 4d 50 20 72 39 2c 66 72 3a 4d 4f 56 47 |8:CMP r9,fr:MOVG|
00006fb0 54 20 72 39 2c 66 72 3a 41 44 44 20 72 31 30 2c |T r9,fr:ADD r10,|
00006fc0 72 31 30 2c 23 32 3a 43 4d 50 20 72 31 30 2c 23 |r10,#2:CMP r10,#|
00006fd0 38 30 30 3a 42 4e 45 20 67 58 3a 4c 44 4d 46 44 |800:BNE gX:LDMFD|
00006fe0 20 28 66 71 29 21 2c 7b 72 30 2d 72 31 32 2c 50 | (fq)!,{r0-r12,P|
00006ff0 43 7d 3a 2e 66 78 20 44 43 44 20 30 3a 2e 66 79 |C}:.fx DCD 0:.fy|
00007000 20 44 43 44 20 30 3a 2e 66 7a 20 44 43 44 20 30 | DCD 0:.fz DCD 0|
00007010 3a 2e 67 55 20 44 43 44 20 30 3a 2e 67 56 20 44 |:.gU DCD 0:.gV D|
00007020 43 44 20 30 3a 2e 66 77 20 44 43 44 20 30 3a 2e |CD 0:.fw DCD 0:.|
00007030 67 57 20 44 43 44 20 30 3a 2e 65 71 20 53 54 52 |gW DCD 0:.eq STR|
00007040 20 72 32 2c 5b 72 30 5d 2c 23 34 0d 4d e4 f6 43 | r2,[r0],#4.M..C|
00007050 4d 50 20 72 30 2c 72 31 3a 42 4e 45 20 65 71 3a |MP r0,r1:BNE eq:|
00007060 4d 4f 56 20 50 43 2c 66 72 3a 2e 67 64 20 53 54 |MOV PC,fr:.gd ST|
00007070 4d 46 44 20 28 66 71 29 21 2c 7b 72 30 2d 72 31 |MFD (fq)!,{r0-r1|
00007080 32 2c 66 72 7d 3a 2e 67 65 20 4d 4f 56 20 72 30 |2,fr}:.ge MOV r0|
00007090 2c 23 35 3a 53 57 49 20 22 4f 53 5f 57 72 69 74 |,#5:SWI "OS_Writ|
000070a0 65 43 22 3a 2e 67 66 20 4c 44 52 20 72 30 2c 67 |eC":.gf LDR r0,g|
000070b0 67 3a 4c 44 52 20 72 31 2c 67 68 3a 4c 44 52 20 |g:LDR r1,gh:LDR |
000070c0 72 32 2c 67 69 3a 2e 67 6a 20 43 4d 50 20 72 30 |r2,gi:.gj CMP r0|
000070d0 2c 72 31 3a 41 44 44 47 54 20 72 32 2c 72 32 2c |,r1:ADDGT r2,r2,|
000070e0 23 31 3a 53 55 42 47 54 20 72 30 2c 72 30 2c 23 |#1:SUBGT r0,r0,#|
000070f0 34 34 3a 42 47 54 20 67 6a 3a 53 54 52 20 72 30 |44:BGT gj:STR r0|
00007100 2c 67 67 3a 53 54 52 20 72 32 2c 67 69 3a 2e 67 |,gg:STR r2,gi:.g|
00007110 6b 20 4c 44 52 20 72 30 2c 67 69 3a 43 4d 50 20 |k LDR r0,gi:CMP |
00007120 72 30 2c 23 36 34 3a 42 47 54 20 67 6c 3a 4c 44 |r0,#64:BGT gl:LD|
00007130 52 20 72 30 2c 67 67 3a 4c 44 52 20 72 31 2c 67 |R r0,gg:LDR r1,g|
00007140 6d 0d 4f 42 e4 43 4d 50 20 72 30 2c 72 31 3a 42 |m.OB.CMP r0,r1:B|
00007150 4c 54 20 67 6c 3a 4c 44 52 20 72 30 2c 67 67 3a |LT gl:LDR r0,gg:|
00007160 41 44 44 20 72 30 2c 72 30 2c 23 33 32 3a 53 54 |ADD r0,r0,#32:ST|
00007170 52 20 72 30 2c 67 6e 3a 2e 67 6f 20 4d 4f 56 20 |R r0,gn:.go MOV |
00007180 72 30 2c 23 38 20 3a 20 53 57 49 20 22 57 69 6d |r0,#8 : SWI "Wim|
00007190 70 5f 53 65 74 43 6f 6c 6f 75 72 22 3a 4c 44 52 |p_SetColour":LDR|
000071a0 20 72 30 2c 67 69 3a 41 44 52 20 72 31 2c 67 70 | r0,gi:ADR r1,gp|
000071b0 3a 53 55 42 20 72 30 2c 72 30 2c 23 31 3a 41 44 |:SUB r0,r0,#1:AD|
000071c0 44 20 72 31 2c 72 31 2c 72 30 2c 41 53 4c 20 23 |D r1,r1,r0,ASL #|
000071d0 31 3a 4c 44 52 42 20 72 32 2c 5b 72 31 2c 23 30 |1:LDRB r2,[r1,#0|
000071e0 5d 3a 20 53 54 52 42 20 72 32 2c 67 71 2b 30 3a |]: STRB r2,gq+0:|
000071f0 4c 44 52 42 20 72 32 2c 5b 72 31 2c 23 31 5d 3a |LDRB r2,[r1,#1]:|
00007200 20 53 54 52 42 20 72 32 2c 67 71 2b 31 3a 42 4c | STRB r2,gq+1:BL|
00007210 20 67 72 3a 41 44 52 20 72 30 2c 67 71 20 3a 20 | gr:ADR r0,gq : |
00007220 42 4c 20 67 73 0d 4f ec f9 2e 67 74 20 4d 4f 56 |BL gs.O...gt MOV|
00007230 20 72 30 2c 23 31 20 3a 20 53 54 52 20 72 30 2c | r0,#1 : STR r0,|
00007240 67 75 20 3a 20 42 4c 20 67 76 3a 2e 67 77 20 4d |gu : BL gv:.gw M|
00007250 4f 56 20 72 30 2c 23 32 20 3a 20 53 54 52 20 72 |OV r0,#2 : STR r|
00007260 30 2c 67 75 20 3a 20 42 4c 20 67 76 3a 2e 67 78 |0,gu : BL gv:.gx|
00007270 20 4d 4f 56 20 72 30 2c 23 33 20 3a 20 53 54 52 | MOV r0,#3 : STR|
00007280 20 72 30 2c 67 75 20 3a 20 42 4c 20 67 76 3a 2e | r0,gu : BL gv:.|
00007290 67 79 20 4d 4f 56 20 72 30 2c 23 34 20 3a 20 53 |gy MOV r0,#4 : S|
000072a0 54 52 20 72 30 2c 67 75 20 3a 20 42 4c 20 67 76 |TR r0,gu : BL gv|
000072b0 3a 2e 67 7a 20 4c 44 52 20 72 30 2c 67 69 3a 41 |:.gz LDR r0,gi:A|
000072c0 44 44 20 72 30 2c 72 30 2c 23 31 3a 53 54 52 20 |DD r0,r0,#1:STR |
000072d0 72 30 2c 67 69 3a 4c 44 52 20 72 30 2c 67 67 3a |r0,gi:LDR r0,gg:|
000072e0 53 55 42 20 72 30 2c 72 30 2c 23 34 34 3a 53 54 |SUB r0,r0,#44:ST|
000072f0 52 20 72 30 2c 67 67 3a 42 20 67 6b 3a 2e 67 6c |R r0,gg:B gk:.gl|
00007300 3a 2e 68 55 20 4d 4f 56 20 72 30 2c 23 34 3a 53 |:.hU MOV r0,#4:S|
00007310 57 49 20 22 4f 53 5f 57 72 69 74 65 43 22 0d 50 |WI "OS_WriteC".P|
00007320 a0 f6 4c 44 4d 46 44 20 28 66 71 29 21 2c 7b 72 |..LDMFD (fq)!,{r|
00007330 30 2d 72 31 32 2c 50 43 7d 3a 2e 67 76 20 53 54 |0-r12,PC}:.gv ST|
00007340 4d 46 44 20 28 66 71 29 21 2c 7b 66 72 7d 3a 4c |MFD (fq)!,{fr}:L|
00007350 44 52 20 72 30 2c 67 75 3a 43 4d 50 20 72 30 2c |DR r0,gu:CMP r0,|
00007360 23 31 20 3a 20 4c 44 52 45 51 20 72 31 2c 65 62 |#1 : LDREQ r1,eb|
00007370 3a 43 4d 50 20 72 30 2c 23 32 20 3a 20 4c 44 52 |:CMP r0,#2 : LDR|
00007380 45 51 20 72 31 2c 65 63 3a 43 4d 50 20 72 30 2c |EQ r1,ec:CMP r0,|
00007390 23 33 20 3a 20 4c 44 52 45 51 20 72 31 2c 65 64 |#3 : LDREQ r1,ed|
000073a0 3a 43 4d 50 20 72 30 2c 23 34 20 3a 20 4c 44 52 |:CMP r0,#4 : LDR|
000073b0 45 51 20 72 31 2c 65 65 3a 20 80 53 20 72 31 2c |EQ r1,ee: .S r1,|
000073c0 20 72 31 2c 20 23 31 3a ec 51 20 72 30 2c 23 32 | r1, #1:.Q r0,#2|
000073d0 3a 4d 4f 56 4e 45 20 72 30 2c 23 37 20 3a 20 53 |:MOVNE r0,#7 : S|
000073e0 57 49 20 22 57 69 6d 70 5f 53 65 74 43 6f 6c 6f |WI "Wimp_SetColo|
000073f0 75 72 22 3a 42 4c 20 68 56 3a 4c 44 52 20 72 30 |ur":BL hV:LDR r0|
00007400 2c 68 57 3a 43 4d 50 20 72 30 2c 23 30 3a 42 45 |,hW:CMP r0,#0:BE|
00007410 51 20 68 58 0d 51 68 fa 2e 68 59 20 4d 4f 56 20 |Q hX.Qh..hY MOV |
00007420 72 30 2c 23 37 3a 53 57 49 20 22 57 69 6d 70 5f |r0,#7:SWI "Wimp_|
00007430 53 65 74 43 6f 6c 6f 75 72 22 3a 42 4c 20 68 5a |SetColour":BL hZ|
00007440 3a 4d 4f 56 20 72 30 2c 23 31 3a 53 57 49 20 22 |:MOV r0,#1:SWI "|
00007450 57 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 22 3a |Wimp_SetColour":|
00007460 2e 68 58 20 42 4c 20 68 61 3a 4c 44 52 20 72 30 |.hX BL ha:LDR r0|
00007470 2c 68 62 3a 43 4d 50 20 72 30 2c 23 30 3a 42 45 |,hb:CMP r0,#0:BE|
00007480 51 20 68 63 3a 2e 68 64 20 4d 4f 56 20 72 30 2c |Q hc:.hd MOV r0,|
00007490 23 38 3a 53 57 49 20 22 57 69 6d 70 5f 53 65 74 |#8:SWI "Wimp_Set|
000074a0 43 6f 6c 6f 75 72 22 3a 42 4c 20 68 5a 3a 4d 4f |Colour":BL hZ:MO|
000074b0 56 20 72 30 2c 23 39 3a 53 57 49 20 22 57 69 6d |V r0,#9:SWI "Wim|
000074c0 70 5f 53 65 74 43 6f 6c 6f 75 72 22 3a 42 20 68 |p_SetColour":B h|
000074d0 65 3a 2e 68 63 3a 2e 68 65 20 4c 44 52 20 72 30 |e:.hc:.he LDR r0|
000074e0 2c 68 66 3a 4c 44 52 20 72 31 2c 67 69 3a 53 55 |,hf:LDR r1,gi:SU|
000074f0 42 20 72 31 2c 72 31 2c 23 31 3a 41 44 44 20 72 |B r1,r1,#1:ADD r|
00007500 30 2c 72 30 2c 72 31 2c 41 53 4c 20 23 34 0d 52 |0,r0,r1,ASL #4.R|
00007510 62 f0 4c 44 52 20 72 31 2c 67 75 3a 53 55 42 20 |b.LDR r1,gu:SUB |
00007520 72 31 2c 72 31 2c 23 31 3a 41 44 44 20 72 30 2c |r1,r1,#1:ADD r0,|
00007530 72 30 2c 72 31 2c 41 53 4c 20 23 32 3a 4c 44 52 |r0,r1,ASL #2:LDR|
00007540 20 72 30 2c 5b 72 30 5d 3a 53 57 49 20 22 50 6c | r0,[r0]:SWI "Pl|
00007550 61 79 4d 6f 64 75 6c 65 5f 4e 6f 74 65 54 6f 53 |ayModule_NoteToS|
00007560 74 72 69 6e 67 22 3a 53 54 52 20 72 30 2c 68 67 |tring":STR r0,hg|
00007570 3a 4c 44 52 20 72 30 2c 68 68 3a 53 54 52 20 72 |:LDR r0,hh:STR r|
00007580 30 2c 68 69 3a 41 44 44 20 72 30 2c 72 30 2c 23 |0,hi:ADD r0,r0,#|
00007590 36 2a 31 36 3a 4d 4f 56 20 72 31 2c 23 31 38 2a |6*16:MOV r1,#18*|
000075a0 31 36 3a 4c 44 52 20 72 32 2c 67 75 3a 53 55 42 |16:LDR r2,gu:SUB|
000075b0 20 72 32 2c 72 32 2c 23 31 3a 4d 4c 41 20 72 30 | r2,r2,#1:MLA r0|
000075c0 2c 72 31 2c 72 32 2c 72 30 3a 53 54 52 20 72 30 |,r1,r2,r0:STR r0|
000075d0 2c 68 68 3a 42 4c 20 67 72 3a 4c 44 52 20 72 30 |,hh:BL gr:LDR r0|
000075e0 2c 68 67 3a 4d 4f 56 20 72 31 2c 23 30 3a 53 54 |,hg:MOV r1,#0:ST|
000075f0 52 42 20 72 31 2c 5b 72 30 2c 23 31 31 5d 0d 53 |RB r1,[r0,#11].S|
00007600 3e f8 2e 68 6a 20 4c 44 52 42 20 72 32 2c 5b 72 |>..hj LDRB r2,[r|
00007610 30 2c 23 30 5d 3a 43 4d 50 20 72 32 2c 23 97 22 |0,#0]:CMP r2,#."|
00007620 4a 22 3a ec 51 20 72 31 32 2c 72 30 3a ec 51 20 |J":.Q r12,r0:.Q |
00007630 72 30 2c 23 31 31 3a 53 57 49 45 51 20 22 57 69 |r0,#11:SWIEQ "Wi|
00007640 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 22 3a ec 51 |mp_SetColour":.Q|
00007650 20 72 30 2c 72 31 32 3a 42 45 51 20 68 6b 3a 4c | r0,r12:BEQ hk:L|
00007660 44 52 42 20 72 32 2c 5b 72 30 2c 23 38 5d 3a 4c |DRB r2,[r0,#8]:L|
00007670 44 52 42 20 72 33 2c 5b 72 30 2c 23 39 5d 3a 4c |DRB r3,[r0,#9]:L|
00007680 44 52 42 20 72 34 2c 5b 72 30 2c 23 31 30 5d 3a |DRB r4,[r0,#10]:|
00007690 43 4d 50 20 72 32 2c 23 97 22 20 22 3a 43 4d 50 |CMP r2,#." ":CMP|
000076a0 45 51 20 72 33 2c 23 97 22 20 22 3a 43 4d 50 45 |EQ r3,#." ":CMPE|
000076b0 51 20 72 34 2c 23 97 22 30 22 3a 41 44 52 45 51 |Q r4,#."0":ADREQ|
000076c0 20 72 30 2c 68 6c 3a 42 45 51 20 68 6b 3a 4c 44 | r0,hl:BEQ hk:LD|
000076d0 52 42 20 72 34 2c 5b 72 30 2c 23 32 5d 3a 43 4d |RB r4,[r0,#2]:CM|
000076e0 50 20 72 34 2c 23 97 22 30 22 3a 41 44 52 45 51 |P r4,#."0":ADREQ|
000076f0 20 72 30 2c 68 6c 0d 54 10 f5 2e 68 6b 20 42 4c | r0,hl.T...hk BL|
00007700 20 67 73 3a 4c 44 52 20 72 30 2c 68 69 3a 53 54 | gs:LDR r0,hi:ST|
00007710 52 20 72 30 2c 68 68 3a 4c 44 4d 46 44 20 28 66 |R r0,hh:LDMFD (f|
00007720 71 29 21 2c 7b 50 43 7d 3a 2e 67 71 20 45 51 55 |q)!,{PC}:.gq EQU|
00007730 53 20 22 78 78 20 3a 22 3a 20 45 51 55 42 20 30 |S "xx :": EQUB 0|
00007740 20 3a 20 41 4c 49 47 4e 3a 2e 68 6c 20 45 51 55 | : ALIGN:.hl EQU|
00007750 53 20 22 20 20 20 20 20 2d 20 20 20 20 20 22 3a |S " - ":|
00007760 20 45 51 55 42 20 30 20 3a 20 41 4c 49 47 4e 3a | EQUB 0 : ALIGN:|
00007770 2e 67 70 20 45 51 55 53 20 22 30 31 30 32 30 33 |.gp EQUS "010203|
00007780 30 34 30 35 30 36 30 37 30 38 30 39 31 30 31 31 |0405060708091011|
00007790 31 32 31 33 31 34 31 35 31 36 22 3a 45 51 55 53 |1213141516":EQUS|
000077a0 20 22 31 37 31 38 31 39 32 30 32 31 32 32 32 33 | "17181920212223|
000077b0 32 34 32 35 32 36 32 37 32 38 32 39 33 30 33 31 |2425262728293031|
000077c0 33 32 22 3a 45 51 55 53 20 22 33 33 33 34 33 35 |32":EQUS "333435|
000077d0 33 36 33 37 33 38 33 39 34 30 34 31 34 32 34 33 |3637383940414243|
000077e0 34 34 34 35 34 36 34 37 34 38 22 0d 54 92 fd 45 |4445464748".T..E|
000077f0 51 55 53 20 22 34 39 35 30 35 31 35 32 35 33 35 |QUS "49505152535|
00007800 34 35 35 35 36 35 37 35 38 35 39 36 30 36 31 36 |4555657585960616|
00007810 32 36 33 36 34 22 3a 2e 68 69 20 44 43 44 20 30 |26364":.hi DCD 0|
00007820 3a 2e 68 67 20 44 43 44 20 30 3a 2e 68 68 20 44 |:.hg DCD 0:.hh D|
00007830 43 44 20 30 3a 2e 67 6e 20 44 43 44 20 30 3a 2e |CD 0:.gn DCD 0:.|
00007840 68 66 20 44 43 44 20 30 3a 2e 67 67 20 44 43 44 |hf DCD 0:.gg DCD|
00007850 20 30 3a 2e 68 6d 20 44 43 44 20 30 3a 2e 67 68 | 0:.hm DCD 0:.gh|
00007860 20 44 43 44 20 30 3a 2e 67 6d 20 44 43 44 20 30 | DCD 0:.gm DCD 0|
00007870 3a 2e 67 69 20 44 43 44 20 30 3a 2e 68 6e 20 44 |:.gi DCD 0:.hn D|
00007880 43 44 20 30 3a 2e 68 6f 20 44 43 44 20 30 3a 2e |CD 0:.ho DCD 0:.|
00007890 68 70 20 44 43 44 20 30 3a 2e 67 75 20 44 43 44 |hp DCD 0:.gu DCD|
000078a0 20 30 3a 2e 68 57 20 44 43 44 20 30 3a 2e 68 71 | 0:.hW DCD 0:.hq|
000078b0 20 44 43 44 20 30 3a 2e 68 72 20 44 43 44 20 30 | DCD 0:.hr DCD 0|
000078c0 3a 2e 68 73 20 44 43 44 20 30 3a 2e 68 74 20 44 |:.hs DCD 0:.ht D|
000078d0 43 44 20 30 3a 2e 68 62 20 44 43 44 20 30 3a 2e |CD 0:.hb DCD 0:.|
000078e0 68 75 20 44 43 44 20 30 0d 55 82 fd 2e 68 76 20 |hu DCD 0.U...hv |
000078f0 44 43 44 20 30 3a 2e 68 77 20 44 43 44 20 30 3a |DCD 0:.hw DCD 0:|
00007900 2e 68 56 20 4d 4f 56 20 72 30 2c 23 30 3a 53 54 |.hV MOV r0,#0:ST|
00007910 52 20 72 30 2c 68 57 3a 4c 44 52 20 72 31 2c 68 |R r0,hW:LDR r1,h|
00007920 71 20 3a 20 4c 44 52 20 72 32 2c 68 72 3a 4c 44 |q : LDR r2,hr:LD|
00007930 52 20 72 33 2c 68 73 20 3a 20 4c 44 52 20 72 34 |R r3,hs : LDR r4|
00007940 2c 68 74 3a 4c 44 52 20 72 35 2c 67 69 20 3a 20 |,ht:LDR r5,gi : |
00007950 4c 44 52 20 72 36 2c 67 75 3a 43 4d 50 20 72 35 |LDR r6,gu:CMP r5|
00007960 2c 72 31 20 3a 20 4d 4f 56 4c 54 20 50 43 2c 66 |,r1 : MOVLT PC,f|
00007970 72 3a 43 4d 50 20 72 35 2c 72 33 20 3a 20 4d 4f |r:CMP r5,r3 : MO|
00007980 56 47 54 20 50 43 2c 66 72 3a 43 4d 50 20 72 36 |VGT PC,fr:CMP r6|
00007990 2c 72 32 20 3a 20 4d 4f 56 4c 54 20 50 43 2c 66 |,r2 : MOVLT PC,f|
000079a0 72 3a 43 4d 50 20 72 36 2c 72 34 20 3a 20 4d 4f |r:CMP r6,r4 : MO|
000079b0 56 47 54 20 50 43 2c 66 72 3a 4c 44 52 20 72 30 |VGT PC,fr:LDR r0|
000079c0 2c 68 76 3a 4c 44 52 20 72 31 2c 68 77 3a 43 4d |,hv:LDR r1,hw:CM|
000079d0 50 20 72 30 2c 72 31 20 3a 20 4d 4f 56 4e 45 20 |P r0,r1 : MOVNE |
000079e0 50 43 2c 66 72 0d 56 5e fd 4c 44 52 20 72 30 2c |PC,fr.V^.LDR r0,|
000079f0 68 75 3a 43 4d 50 20 72 30 2c 23 30 20 3a ec 51 |hu:CMP r0,#0 :.Q|
00007a00 20 50 43 2c 66 72 3a 4d 4f 56 20 72 30 2c 23 31 | PC,fr:MOV r0,#1|
00007a10 3a 53 54 52 20 72 30 2c 68 57 3a 4d 4f 56 20 50 |:STR r0,hW:MOV P|
00007a20 43 2c 66 72 3a 2e 68 61 20 4d 4f 56 20 72 30 2c |C,fr:.ha MOV r0,|
00007a30 23 30 3a 53 54 52 20 72 30 2c 68 62 3a 4c 44 52 |#0:STR r0,hb:LDR|
00007a40 20 72 30 2c 67 69 20 3a 20 4c 44 52 20 72 31 2c | r0,gi : LDR r1,|
00007a50 68 6f 3a 4c 44 52 20 72 32 2c 67 75 20 3a 20 4c |ho:LDR r2,gu : L|
00007a60 44 52 20 72 33 2c 68 70 3a 4c 44 52 20 72 34 2c |DR r3,hp:LDR r4,|
00007a70 68 6e 3a 43 4d 50 20 72 30 2c 72 31 20 3a 20 4d |hn:CMP r0,r1 : M|
00007a80 4f 56 4e 45 20 50 43 2c 66 72 3a 43 4d 50 20 72 |OVNE PC,fr:CMP r|
00007a90 32 2c 72 33 20 3a 20 4d 4f 56 4e 45 20 50 43 2c |2,r3 : MOVNE PC,|
00007aa0 66 72 3a 43 4d 50 20 72 34 2c 23 30 20 3a ec 51 |fr:CMP r4,#0 :.Q|
00007ab0 20 50 43 2c 66 72 3a 4d 4f 56 20 72 30 2c 23 31 | PC,fr:MOV r0,#1|
00007ac0 3a 53 54 52 20 72 30 2c 68 62 3a 4d 4f 56 20 50 |:STR r0,hb:MOV P|
00007ad0 43 2c 66 72 3a 2e 67 72 20 4d 4f 56 20 72 30 2c |C,fr:.gr MOV r0,|
00007ae0 23 34 0d 57 6c fc 4c 44 52 20 72 31 2c 68 68 3a |#4.Wl.LDR r1,hh:|
00007af0 4c 44 52 20 72 32 2c 67 6e 3a 53 57 49 20 22 4f |LDR r2,gn:SWI "O|
00007b00 53 5f 50 6c 6f 74 22 3a 4d 4f 56 20 50 43 2c 66 |S_Plot":MOV PC,f|
00007b10 72 3a 2e 67 73 20 53 57 49 20 22 4f 53 5f 57 72 |r:.gs SWI "OS_Wr|
00007b20 69 74 65 30 22 3a 4d 4f 56 20 50 43 2c 66 72 3a |ite0":MOV PC,fr:|
00007b30 2e 68 5a 20 4c 44 52 20 72 33 2c 68 68 3a 41 44 |.hZ LDR r3,hh:AD|
00007b40 44 20 72 33 2c 72 33 2c 23 36 2a 31 36 3a 4c 44 |D r3,r3,#6*16:LD|
00007b50 52 20 72 30 2c 67 75 3a 53 55 42 20 72 30 2c 72 |R r0,gu:SUB r0,r|
00007b60 30 2c 23 31 3a 4d 4f 56 20 72 31 2c 23 31 38 2a |0,#1:MOV r1,#18*|
00007b70 31 36 3a 4d 4c 41 20 72 33 2c 72 30 2c 72 31 2c |16:MLA r3,r0,r1,|
00007b80 72 33 3a 4c 44 52 20 72 34 2c 67 6e 3a 53 55 42 |r3:LDR r4,gn:SUB|
00007b90 20 72 34 2c 72 34 2c 23 32 2a 31 36 3a 53 55 42 | r4,r4,#2*16:SUB|
00007ba0 20 72 34 2c 72 34 2c 23 38 3a 4d 4f 56 20 72 35 | r4,r4,#8:MOV r5|
00007bb0 2c 23 31 31 2a 31 36 3a 4d 4f 56 20 72 36 2c 23 |,#11*16:MOV r6,#|
00007bc0 32 2a 31 36 20 3a 20 41 44 44 20 72 36 2c 72 36 |2*16 : ADD r6,r6|
00007bd0 2c 23 31 32 3a 4d 4f 56 20 72 30 2c 23 34 0d 58 |,#12:MOV r0,#4.X|
00007be0 70 e8 4d 4f 56 20 72 31 2c 72 33 3a 4d 4f 56 20 |p.MOV r1,r3:MOV |
00007bf0 72 32 2c 72 34 20 3a 20 53 57 49 20 22 4f 53 5f |r2,r4 : SWI "OS_|
00007c00 50 6c 6f 74 22 3a 4d 4f 56 20 72 30 2c 23 39 36 |Plot":MOV r0,#96|
00007c10 2b 35 3a 41 44 44 20 72 31 2c 72 33 2c 72 35 3a |+5:ADD r1,r3,r5:|
00007c20 41 44 44 20 72 32 2c 72 34 2c 72 36 20 3a 20 53 |ADD r2,r4,r6 : S|
00007c30 57 49 20 22 4f 53 5f 50 6c 6f 74 22 3a 4d 4f 56 |WI "OS_Plot":MOV|
00007c40 20 50 43 2c 66 72 3a 2e 65 62 20 44 43 44 20 30 | PC,fr:.eb DCD 0|
00007c50 3a 2e 65 63 20 44 43 44 20 30 3a 2e 65 64 20 44 |:.ec DCD 0:.ed D|
00007c60 43 44 20 30 3a 2e 65 65 20 44 43 44 20 30 3a 2e |CD 0:.ee DCD 0:.|
00007c70 65 67 20 44 43 44 20 30 3a 2e 65 68 20 44 43 44 |eg DCD 0:.eh DCD|
00007c80 20 30 3a 2e 65 69 20 44 43 44 20 30 3a 2e 65 6a | 0:.ei DCD 0:.ej|
00007c90 20 44 43 44 20 30 3a 2e 66 5a 20 44 43 44 20 30 | DCD 0:.fZ DCD 0|
00007ca0 3a 2e 65 66 20 44 43 44 20 30 3a 2e 65 61 20 44 |:.ef DCD 0:.ea D|
00007cb0 43 44 20 30 3a 2e 56 6e 20 44 43 44 20 30 3a 5d |CD 0:.Vn DCD 0:]|
00007cc0 3a ed 66 75 3a e1 0d 5a e6 f9 dd f2 65 76 3a 68 |:.fu:..Z....ev:h|
00007cd0 78 3d a4 63 74 69 6f 6e 5f 46 69 6e 64 49 6e 73 |x=.ction_FindIns|
00007ce0 74 72 75 6d 65 6e 74 28 a4 63 74 69 6f 6e 5f 52 |trument(.ction_R|
00007cf0 65 61 64 49 63 6f 6e 54 65 78 74 28 55 6b 2c 59 |eadIconText(Uk,Y|
00007d00 62 2c 31 29 29 3a 68 79 3d a4 63 74 69 6f 6e 5f |b,1)):hy=.ction_|
00007d10 46 69 6e 64 49 6e 73 74 72 75 6d 65 6e 74 28 a4 |FindInstrument(.|
00007d20 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 65 |ction_ReadIconTe|
00007d30 78 74 28 55 6b 2c 59 62 2c 34 29 29 3a 68 79 24 |xt(Uk,Yb,4)):hy$|
00007d40 3d c2 22 20 20 22 2b c3 68 79 2c 32 29 3a c8 99 |=." "+.hy,2):..|
00007d50 26 39 30 30 43 35 2c 64 71 2c 55 56 20 b8 64 63 |&900C5,dq,UV .dc|
00007d60 3a 64 63 2b 3d 34 3a 64 63 2b 3d 28 5a 6c 2d 31 |:dc+=4:dc+=(Zl-1|
00007d70 29 2a 20 31 30 32 34 3a e3 64 6a 3d 5a 67 20 b8 |)* 1024:.dj=Zg .|
00007d80 5a 69 3a e3 64 6b 3d 5a 68 2d 31 20 b8 5a 6a 2d |Zi:.dk=Zh-1 .Zj-|
00007d90 31 3a 41 25 3d 21 28 64 63 2b 28 64 6a 2d 31 29 |1:A%=!(dc+(dj-1)|
00007da0 2a 31 36 20 2b 20 28 64 6b 2d 31 29 2a 34 29 3a |*16 + (dk-1)*4):|
00007db0 c8 99 26 39 30 30 39 33 2c 41 25 20 b8 64 72 0d |..&90093,A% .dr.|
00007dc0 5b 7c 30 64 73 24 3d a4 63 74 69 6f 6e 5f 45 78 |[|0ds$=.ction_Ex|
00007dd0 74 72 61 63 74 53 74 72 69 6e 67 28 64 72 29 3a |tractString(dr):|
00007de0 e7 c0 64 73 24 2c 31 29 3c 3e 22 4a 22 20 8c 0d |..ds$,1)<>"J" ..|
00007df0 5b 9a 14 e7 bb c1 64 73 24 2c 35 2c 32 29 3d 68 |[.....ds$,5,2)=h|
00007e00 78 20 8c 0d 5b a4 42 c1 64 73 24 2c 35 2c 32 29 |x ..[.B.ds$,5,2)|
00007e10 3d 68 79 24 3a c8 99 26 39 30 30 39 34 2c 64 73 |=hy$:..&90094,ds|
00007e20 24 20 b8 41 25 3a 21 28 64 63 2b 28 64 6a 2d 31 |$ .A%:!(dc+(dj-1|
00007e30 29 2a 31 36 20 2b 20 28 64 6b 2d 31 29 2a 34 29 |)*16 + (dk-1)*4)|
00007e40 20 3d 20 41 25 0d 5b c2 05 cd 0d 5b cc 13 cd 3a | = A%.[....[...:|
00007e50 ed 64 6b 3a ed 64 6a 3a f2 59 59 3a e1 0d 5c 4e |.dk:.dj:.YY:..\N|
00007e60 ea dd f2 65 77 3a 68 78 24 3d a4 63 74 69 6f 6e |...ew:hx$=.ction|
00007e70 5f 52 65 61 64 49 63 6f 6e 54 65 78 74 28 55 6b |_ReadIconText(Uk|
00007e80 2c 59 62 2c 37 29 3a 68 79 24 3d a4 63 74 69 6f |,Yb,7):hy$=.ctio|
00007e90 6e 5f 52 65 61 64 49 63 6f 6e 54 65 78 74 28 55 |n_ReadIconText(U|
00007ea0 6b 2c 59 62 2c 31 30 29 3a c8 99 26 39 30 30 43 |k,Yb,10):..&900C|
00007eb0 35 2c 64 71 2c 55 56 20 b8 64 63 3a 64 63 2b 3d |5,dq,UV .dc:dc+=|
00007ec0 34 3a 64 63 2b 3d 28 5a 6c 2d 31 29 2a 20 31 30 |4:dc+=(Zl-1)* 10|
00007ed0 32 34 3a e3 64 6a 3d 5a 67 20 b8 5a 69 3a e3 64 |24:.dj=Zg .Zi:.d|
00007ee0 6b 3d 5a 68 2d 31 20 b8 5a 6a 2d 31 3a 41 25 3d |k=Zh-1 .Zj-1:A%=|
00007ef0 21 28 64 63 2b 28 64 6a 2d 31 29 2a 31 36 20 2b |!(dc+(dj-1)*16 +|
00007f00 20 28 64 6b 2d 31 29 2a 34 29 3a c8 99 26 39 30 | (dk-1)*4):..&90|
00007f10 30 39 33 2c 41 25 20 b8 64 72 3a 64 73 24 3d a4 |093,A% .dr:ds$=.|
00007f20 63 74 69 6f 6e 5f 45 78 74 72 61 63 74 53 74 72 |ction_ExtractStr|
00007f30 69 6e 67 28 64 72 29 3a e7 c0 64 73 24 2c 31 29 |ing(dr):..ds$,1)|
00007f40 3c 3e 22 4a 22 20 8c 0d 5c f8 14 e7 c1 64 73 24 |<>"J" ..\....ds$|
00007f50 2c 31 2c 32 29 3d 68 78 24 20 8c 0d 5d 02 42 c1 |,1,2)=hx$ ..].B.|
00007f60 64 73 24 2c 31 2c 32 29 3d 68 79 24 3a c8 99 26 |ds$,1,2)=hy$:..&|
00007f70 39 30 30 39 34 2c 64 73 24 20 b8 41 25 3a 21 28 |90094,ds$ .A%:!(|
00007f80 64 63 2b 28 64 6a 2d 31 29 2a 31 36 20 2b 20 28 |dc+(dj-1)*16 + (|
00007f90 64 6b 2d 31 29 2a 34 29 20 3d 20 41 25 0d 5d 20 |dk-1)*4) = A%.] |
00007fa0 05 cd 0d 5d 2a 13 cd 3a ed 64 6b 3a ed 64 6a 3a |...]*..:.dk:.dj:|
00007fb0 f2 59 59 3a e1 0d 5d ac eb dd f2 65 78 3a 68 78 |.YY:..]....ex:hx|
00007fc0 24 3d a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f |$=.ction_ReadIco|
00007fd0 6e 54 65 78 74 28 55 6b 2c 59 62 2c 31 33 29 3a |nText(Uk,Yb,13):|
00007fe0 68 79 24 3d a4 63 74 69 6f 6e 5f 52 65 61 64 49 |hy$=.ction_ReadI|
00007ff0 63 6f 6e 54 65 78 74 28 55 6b 2c 59 62 2c 31 36 |conText(Uk,Yb,16|
00008000 29 3a c8 99 26 39 30 30 43 35 2c 64 71 2c 55 56 |):..&900C5,dq,UV|
00008010 20 b8 64 63 3a 64 63 2b 3d 34 3a 64 63 2b 3d 28 | .dc:dc+=4:dc+=(|
00008020 5a 6c 2d 31 29 2a 20 31 30 32 34 3a e3 64 6a 3d |Zl-1)* 1024:.dj=|
00008030 5a 67 20 b8 5a 69 3a e3 64 6b 3d 5a 68 2d 31 20 |Zg .Zi:.dk=Zh-1 |
00008040 b8 5a 6a 2d 31 3a 41 25 3d 21 28 64 63 2b 28 64 |.Zj-1:A%=!(dc+(d|
00008050 6a 2d 31 29 2a 31 36 20 2b 20 28 64 6b 2d 31 29 |j-1)*16 + (dk-1)|
00008060 2a 34 29 3a c8 99 26 39 30 30 39 33 2c 41 25 20 |*4):..&90093,A% |
00008070 b8 64 72 3a 64 73 24 3d a4 63 74 69 6f 6e 5f 45 |.dr:ds$=.ction_E|
00008080 78 74 72 61 63 74 53 74 72 69 6e 67 28 64 72 29 |xtractString(dr)|
00008090 3a e7 c0 64 73 24 2c 31 29 3c 3e 22 4a 22 20 8c |:..ds$,1)<>"J" .|
000080a0 0d 5e 56 14 e7 c1 64 73 24 2c 33 2c 31 29 3d 68 |.^V...ds$,3,1)=h|
000080b0 78 24 20 8c 0d 5e 60 42 c1 64 73 24 2c 33 2c 31 |x$ ..^`B.ds$,3,1|
000080c0 29 3d 68 79 24 3a c8 99 26 39 30 30 39 34 2c 64 |)=hy$:..&90094,d|
000080d0 73 24 20 b8 41 25 3a 21 28 64 63 2b 28 64 6a 2d |s$ .A%:!(dc+(dj-|
000080e0 31 29 2a 31 36 20 2b 20 28 64 6b 2d 31 29 2a 34 |1)*16 + (dk-1)*4|
000080f0 29 20 3d 20 41 25 0d 5e 7e 05 cd 0d 5e 88 13 cd |) = A%.^~...^...|
00008100 3a ed 64 6b 3a ed 64 6a 3a f2 59 59 3a e1 0d 5f |:.dk:.dj:.YY:.._|
00008110 0a 5b dd f2 65 7a 3a 68 78 3d bb a4 63 74 69 6f |.[..ez:hx=..ctio|
00008120 6e 5f 52 65 61 64 49 63 6f 6e 54 65 78 74 28 55 |n_ReadIconText(U|
00008130 6b 2c 59 67 2c 37 29 3a 68 79 3d bb a4 63 74 69 |k,Yg,7):hy=..cti|
00008140 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 65 78 74 28 |on_ReadIconText(|
00008150 55 6b 2c 59 67 2c 31 31 29 3a e7 68 78 3e 31 32 |Uk,Yg,11):.hx>12|
00008160 37 20 8c 68 78 3d 31 32 37 0d 5f 3c 13 e7 68 79 |7 .hx=127._<..hy|
00008170 3e 31 32 37 20 8c 68 79 3d 31 32 37 0d 5f 50 46 |>127 .hy=127._PF|
00008180 c8 99 26 39 30 30 43 35 2c 64 71 2c 55 56 20 b8 |..&900C5,dq,UV .|
00008190 64 63 3a 64 63 2b 3d 34 3a 64 63 2b 3d 28 5a 6c |dc:dc+=4:dc+=(Zl|
000081a0 2d 31 29 2a 20 31 30 32 34 3a 68 7a 3d 28 5a 69 |-1)* 1024:hz=(Zi|
000081b0 2d 5a 67 29 2b 31 3a e7 68 7a 3d 30 20 8c 68 7a |-Zg)+1:.hz=0 .hz|
000081c0 3d 31 0d 5f 8c 30 69 55 3d 28 68 79 2d 68 78 29 |=1._.0iU=(hy-hx)|
000081d0 2f 68 7a 3a 69 56 3d 68 78 3a e3 64 6a 3d 5a 67 |/hz:iV=hx:.dj=Zg|
000081e0 20 b8 5a 69 3a e7 64 6a 3d 5a 69 20 8c 69 56 3d | .Zi:.dj=Zi .iV=|
000081f0 68 79 0d 5f be c6 e3 64 6b 3d 5a 68 2d 31 20 b8 |hy._...dk=Zh-1 .|
00008200 5a 6a 2d 31 3a 41 25 3d 21 28 64 63 2b 28 64 6a |Zj-1:A%=!(dc+(dj|
00008210 2d 31 29 2a 31 36 20 2b 20 28 64 6b 2d 31 29 2a |-1)*16 + (dk-1)*|
00008220 34 29 3a c8 99 26 39 30 30 39 33 2c 41 25 20 b8 |4):..&90093,A% .|
00008230 64 72 3a 64 73 24 3d a4 63 74 69 6f 6e 5f 45 78 |dr:ds$=.ction_Ex|
00008240 74 72 61 63 74 53 74 72 69 6e 67 28 64 72 29 3a |tractString(dr):|
00008250 69 57 24 3d c2 22 20 20 20 22 2b c3 28 a8 69 56 |iW$=." "+.(.iV|
00008260 29 2c 33 29 3a c1 64 73 24 2c 39 2c 33 29 3d 69 |),3):.ds$,9,3)=i|
00008270 57 24 3a c8 99 26 39 30 30 39 34 2c 64 73 24 20 |W$:..&90094,ds$ |
00008280 b8 41 25 3a 21 28 64 63 2b 28 64 6a 2d 31 29 2a |.A%:!(dc+(dj-1)*|
00008290 31 36 20 2b 20 28 64 6b 2d 31 29 2a 34 29 20 3d |16 + (dk-1)*4) =|
000082a0 20 41 25 3a ed 64 6b 3a 69 56 2b 3d 69 55 3a ed | A%:.dk:iV+=iU:.|
000082b0 64 6a 3a f2 59 59 3a e1 0d 60 a4 c5 dd f2 65 79 |dj:.YY:..`....ey|
000082c0 3a 68 78 3d a4 63 74 69 6f 6e 5f 4d 65 73 73 61 |:hx=.ction_Messa|
000082d0 67 65 49 6e 64 65 78 28 a4 63 74 69 6f 6e 5f 52 |geIndex(.ction_R|
000082e0 65 61 64 49 63 6f 6e 54 65 78 74 28 55 6b 2c 59 |eadIconText(Uk,Y|
000082f0 67 2c 31 29 2c 22 73 74 65 72 30 22 29 3a 68 79 |g,1),"ster0"):hy|
00008300 3d a4 63 74 69 6f 6e 5f 4d 65 73 73 61 67 65 49 |=.ction_MessageI|
00008310 6e 64 65 78 28 a4 63 74 69 6f 6e 5f 52 65 61 64 |ndex(.ction_Read|
00008320 49 63 6f 6e 54 65 78 74 28 55 6b 2c 59 67 2c 34 |IconText(Uk,Yg,4|
00008330 29 2c 22 73 74 65 72 30 22 29 3a c8 99 26 39 30 |),"ster0"):..&90|
00008340 30 43 35 2c 64 71 2c 55 56 20 b8 64 63 3a 64 63 |0C5,dq,UV .dc:dc|
00008350 2b 3d 34 3a 64 63 2b 3d 28 5a 6c 2d 31 29 2a 20 |+=4:dc+=(Zl-1)* |
00008360 31 30 32 34 3a 68 7a 3d 28 5a 69 2d 5a 67 29 2b |1024:hz=(Zi-Zg)+|
00008370 31 3a e7 68 7a 3d 30 20 8c 68 7a 3d 31 0d 61 12 |1:.hz=0 .hz=1.a.|
00008380 30 69 55 3d 28 68 79 2d 68 78 29 2f 68 7a 3a 69 |0iU=(hy-hx)/hz:i|
00008390 56 3d 68 78 3a e3 64 6a 3d 5a 67 20 b8 5a 69 3a |V=hx:.dj=Zg .Zi:|
000083a0 e7 64 6a 3d 5a 69 20 8c 69 56 3d 68 79 0d 61 44 |.dj=Zi .iV=hy.aD|
000083b0 bd e3 64 6b 3d 5a 68 2d 31 20 b8 5a 6a 2d 31 3a |..dk=Zh-1 .Zj-1:|
000083c0 41 25 3d 21 28 64 63 2b 28 64 6a 2d 31 29 2a 31 |A%=!(dc+(dj-1)*1|
000083d0 36 20 2b 20 28 64 6b 2d 31 29 2a 34 29 3a c8 99 |6 + (dk-1)*4):..|
000083e0 26 39 30 30 39 33 2c 41 25 20 b8 64 72 3a 64 73 |&90093,A% .dr:ds|
000083f0 24 3d a4 63 74 69 6f 6e 5f 45 78 74 72 61 63 74 |$=.ction_Extract|
00008400 53 74 72 69 6e 67 28 64 72 29 3a 69 58 24 3d c3 |String(dr):iX$=.|
00008410 28 a8 69 56 29 3a c1 64 73 24 2c 31 36 2c 31 29 |(.iV):.ds$,16,1)|
00008420 3d 69 58 24 3a c8 99 26 39 30 30 39 34 2c 64 73 |=iX$:..&90094,ds|
00008430 24 20 b8 41 25 3a 21 28 64 63 2b 28 64 6a 2d 31 |$ .A%:!(dc+(dj-1|
00008440 29 2a 31 36 20 2b 20 28 64 6b 2d 31 29 2a 34 29 |)*16 + (dk-1)*4)|
00008450 20 3d 20 41 25 3a ed 64 6b 3a 69 56 2b 3d 69 55 | = A%:.dk:iV+=iU|
00008460 3a ed 64 6a 3a f2 59 59 3a e1 0d 62 2a 8f dd f2 |:.dj:.YY:..b*...|
00008470 66 55 3a 68 78 3d bb a4 63 74 69 6f 6e 5f 52 65 |fU:hx=..ction_Re|
00008480 61 64 49 63 6f 6e 54 65 78 74 28 55 6b 2c 59 67 |adIconText(Uk,Yg|
00008490 2c 31 35 29 3a 68 79 3d bb a4 63 74 69 6f 6e 5f |,15):hy=..ction_|
000084a0 52 65 61 64 49 63 6f 6e 54 65 78 74 28 55 6b 2c |ReadIconText(Uk,|
000084b0 59 67 2c 31 39 29 3a c8 99 26 39 30 30 43 35 2c |Yg,19):..&900C5,|
000084c0 64 71 2c 55 56 20 b8 64 63 3a 64 63 2b 3d 34 3a |dq,UV .dc:dc+=4:|
000084d0 64 63 2b 3d 28 5a 6c 2d 31 29 2a 20 31 30 32 34 |dc+=(Zl-1)* 1024|
000084e0 3a 68 7a 3d 28 5a 69 2d 5a 67 29 2b 31 3a e7 68 |:hz=(Zi-Zg)+1:.h|
000084f0 7a 3d 30 20 8c 68 7a 3d 31 0d 62 98 30 69 55 3d |z=0 .hz=1.b.0iU=|
00008500 28 68 79 2d 68 78 29 2f 68 7a 3a 69 56 3d 68 78 |(hy-hx)/hz:iV=hx|
00008510 3a e3 64 6a 3d 5a 67 20 b8 5a 69 3a e7 64 6a 3d |:.dj=Zg .Zi:.dj=|
00008520 5a 69 20 8c 69 56 3d 68 79 0d 62 ca c6 e3 64 6b |Zi .iV=hy.b...dk|
00008530 3d 5a 68 2d 31 20 b8 5a 6a 2d 31 3a 41 25 3d 21 |=Zh-1 .Zj-1:A%=!|
00008540 28 64 63 2b 28 64 6a 2d 31 29 2a 31 36 20 2b 20 |(dc+(dj-1)*16 + |
00008550 28 64 6b 2d 31 29 2a 34 29 3a c8 99 26 39 30 30 |(dk-1)*4):..&900|
00008560 39 33 2c 41 25 20 b8 64 72 3a 64 73 24 3d a4 63 |93,A% .dr:ds$=.c|
00008570 74 69 6f 6e 5f 45 78 74 72 61 63 74 53 74 72 69 |tion_ExtractStri|
00008580 6e 67 28 64 72 29 3a 69 59 24 3d c2 22 20 20 22 |ng(dr):iY$=." "|
00008590 2b c3 28 a8 69 56 29 2c 32 29 3a c1 64 73 24 2c |+.(.iV),2):.ds$,|
000085a0 31 33 2c 32 29 3d 69 59 24 3a c8 99 26 39 30 30 |13,2)=iY$:..&900|
000085b0 39 34 2c 64 73 24 20 b8 41 25 3a 21 28 64 63 2b |94,ds$ .A%:!(dc+|
000085c0 28 64 6a 2d 31 29 2a 31 36 20 2b 20 28 64 6b 2d |(dj-1)*16 + (dk-|
000085d0 31 29 2a 34 29 20 3d 20 41 25 3a ed 64 6b 3a 69 |1)*4) = A%:.dk:i|
000085e0 56 2b 3d 69 55 3a ed 64 6a 3a f2 59 59 3a e1 0d |V+=iU:.dj:.YY:..|
000085f0 63 b0 6d dd f2 66 56 3a 69 5a 3d bb a4 63 74 69 |c.m..fV:iZ=..cti|
00008600 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 65 78 74 28 |on_ReadIconText(|
00008610 55 6b 2c 59 67 2c 32 34 29 3a c8 99 26 39 30 30 |Uk,Yg,24):..&900|
00008620 43 35 2c 64 71 2c 55 56 20 b8 64 63 3a 64 63 2b |C5,dq,UV .dc:dc+|
00008630 3d 34 3a 64 63 2b 3d 28 5a 6c 2d 31 29 2a 20 31 |=4:dc+=(Zl-1)* 1|
00008640 30 32 34 3a 68 7a 3d 28 5a 69 2d 5a 67 29 2b 31 |024:hz=(Zi-Zg)+1|
00008650 3a e7 68 7a 3d 30 20 8c 68 7a 3d 31 0d 64 1e 9e |:.hz=0 .hz=1.d..|
00008660 69 61 3d a8 28 69 5a 2f 68 7a 29 3a 69 62 3d 28 |ia=.(iZ/hz):ib=(|
00008670 69 5a 2f 68 7a 29 2d 69 61 3a 69 63 3d 30 3a 69 |iZ/hz)-ia:ic=0:i|
00008680 64 3d 20 ac b9 3a e3 64 6a 3d 5a 67 20 b8 5a 69 |d= ..:.dj=Zg .Zi|
00008690 3a e3 64 6b 3d 5a 68 2d 31 20 b8 5a 6a 2d 31 3a |:.dk=Zh-1 .Zj-1:|
000086a0 41 25 3d 21 28 64 63 2b 28 64 6a 2d 31 29 2a 31 |A%=!(dc+(dj-1)*1|
000086b0 36 20 2b 20 28 64 6b 2d 31 29 2a 34 29 3a c8 99 |6 + (dk-1)*4):..|
000086c0 26 39 30 30 39 33 2c 41 25 20 b8 64 72 3a 64 73 |&90093,A% .dr:ds|
000086d0 24 3d a4 63 74 69 6f 6e 5f 45 78 74 72 61 63 74 |$=.ction_Extract|
000086e0 53 74 72 69 6e 67 28 64 72 29 3a 69 63 2b 3d 69 |String(dr):ic+=i|
000086f0 62 3a e7 69 63 3e 3d 31 20 8c 0d 64 be 15 69 65 |b:.ic>=1 ..d..ie|
00008700 3d 69 61 2b 28 a8 69 63 29 3a 69 63 2d 3d 31 0d |=ia+(.ic):ic-=1.|
00008710 64 d2 0b cc 3a 69 65 3d 69 61 0d 64 e6 0e cd 3a |d...:ie=ia.d...:|
00008720 e7 69 65 3e 31 35 20 8c 0d 65 04 0e 69 65 3d 31 |.ie>15 ..e..ie=1|
00008730 35 3a 69 64 3d b9 0d 65 18 28 cd 3a 69 66 24 3d |5:id=..e.(.:if$=|
00008740 c2 22 30 30 22 2b c3 28 94 69 65 29 2c 32 29 3a |."00"+.(.ie),2):|
00008750 e7 69 5a 3c 30 20 8c 69 67 24 3d 22 2d 22 0d 65 |.iZ<0 .ig$="-".e|
00008760 40 13 e7 69 5a 3e 3d 30 20 8c 69 67 24 3d 22 2b |@..iZ>=0 .ig$="+|
00008770 22 0d 65 54 64 c1 64 73 24 2c 31 38 2c 31 29 3d |".eTd.ds$,18,1)=|
00008780 69 67 24 3a c1 64 73 24 2c 31 39 2c 32 29 3d 69 |ig$:.ds$,19,2)=i|
00008790 66 24 3a c8 99 26 39 30 30 39 34 2c 64 73 24 20 |f$:..&90094,ds$ |
000087a0 b8 41 25 3a 21 28 64 63 2b 28 64 6a 2d 31 29 2a |.A%:!(dc+(dj-1)*|
000087b0 31 36 20 2b 20 28 64 6b 2d 31 29 2a 34 29 20 3d |16 + (dk-1)*4) =|
000087c0 20 41 25 3a ed 64 6b 3a ed 64 6a 3a f2 59 59 3a | A%:.dk:.dj:.YY:|
000087d0 e7 69 64 20 8c 0d 65 c2 51 57 77 24 3d a4 63 74 |.id ..e.QWw$=.ct|
000087e0 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 |ion_TagToString(|
000087f0 56 6b 2c 22 77 61 72 30 39 22 29 3a 57 7a 3d a4 |Vk,"war09"):Wz=.|
00008800 63 74 69 6f 6e 5f 52 65 70 6f 72 74 45 72 72 6f |ction_ReportErro|
00008810 72 28 55 6b 2c 39 39 2c 55 64 24 2c 57 77 24 2c |r(Uk,99,Ud$,Ww$,|
00008820 b9 2c 20 ac b9 29 0d 65 d6 07 cd 3a e1 0d 66 30 |., ..).e...:..f0|
00008830 e9 dd f2 61 57 3a c8 99 26 39 30 30 43 35 2c 64 |...aW:..&900C5,d|
00008840 71 2c 55 56 20 b8 64 63 3a 69 68 3d 5a 67 3a 69 |q,UV .dc:ih=Zg:i|
00008850 69 3d 56 77 3a c8 95 69 68 3c 3d 5a 69 20 80 69 |i=Vw:..ih<=Zi .i|
00008860 69 3c 3d 36 34 3a 69 6a 3d 5a 68 3a 69 6b 3d 56 |i<=64:ij=Zh:ik=V|
00008870 78 3a c8 95 69 6a 3c 3d 5a 6a 20 80 69 6b 3c 3d |x:..ij<=Zj .ik<=|
00008880 34 3a 69 6c 3d 64 63 2b 28 28 5a 6c 2d 31 29 2a |4:il=dc+((Zl-1)*|
00008890 31 30 32 34 29 20 2b 20 28 28 69 68 2d 31 29 2a |1024) + ((ih-1)*|
000088a0 31 36 29 20 2b 20 28 28 69 6a 2d 31 29 2a 34 29 |16) + ((ij-1)*4)|
000088b0 3a 69 6d 3d 64 63 2b 28 28 5a 6d 2d 31 29 2a 31 |:im=dc+((Zm-1)*1|
000088c0 30 32 34 29 20 2b 20 28 28 69 69 20 2d 31 29 2a |024) + ((ii -1)*|
000088d0 31 36 29 20 2b 20 28 28 69 6b 20 2d 31 29 2a 34 |16) + ((ik -1)*4|
000088e0 29 3a 21 69 6d 3d 21 69 6c 3a 69 6a 2b 3d 31 3a |):!im=!il:ij+=1:|
000088f0 69 6b 2b 3d 31 3a ce 3a 69 68 2b 3d 31 3a 69 69 |ik+=1:.:ih+=1:ii|
00008900 2b 3d 31 3a ce 3a f2 59 5a 28 55 6b 2c 57 64 29 |+=1:.:.YZ(Uk,Wd)|
00008910 3a f2 59 59 3a e1 0d 67 2a ef dd f2 61 58 3a c8 |:.YY:..g*...aX:.|
00008920 99 26 39 30 30 43 35 2c 64 71 2c 55 56 20 b8 64 |.&900C5,dq,UV .d|
00008930 63 3a 69 68 3d 5a 67 3a 69 69 3d 56 77 3a c8 95 |c:ih=Zg:ii=Vw:..|
00008940 69 68 3c 3d 5a 69 20 80 69 69 3c 3d 36 34 3a 69 |ih<=Zi .ii<=64:i|
00008950 6a 3d 5a 68 3a 69 6b 3d 56 78 3a c8 95 69 6a 3c |j=Zh:ik=Vx:..ij<|
00008960 3d 5a 6a 20 80 69 6b 3c 3d 34 3a 69 6c 3d 64 63 |=Zj .ik<=4:il=dc|
00008970 2b 28 28 5a 6c 2d 31 29 2a 31 30 32 34 29 20 2b |+((Zl-1)*1024) +|
00008980 20 28 28 69 68 2d 31 29 2a 31 36 29 20 2b 20 28 | ((ih-1)*16) + (|
00008990 28 69 6a 2d 31 29 2a 34 29 3a 69 6d 3d 64 63 2b |(ij-1)*4):im=dc+|
000089a0 28 28 5a 6d 2d 31 29 2a 31 30 32 34 29 20 2b 20 |((Zm-1)*1024) + |
000089b0 28 28 69 69 20 2d 31 29 2a 31 36 29 20 2b 20 28 |((ii -1)*16) + (|
000089c0 28 69 6b 20 2d 31 29 2a 34 29 3a 21 69 6d 3d 21 |(ik -1)*4):!im=!|
000089d0 69 6c 3a 21 69 6c 3d 30 3a 69 6a 2b 3d 31 3a 69 |il:!il=0:ij+=1:i|
000089e0 6b 2b 3d 31 3a ce 3a 69 68 2b 3d 31 3a 69 69 2b |k+=1:.:ih+=1:ii+|
000089f0 3d 31 3a ce 3a f2 59 5a 28 55 6b 2c 57 64 29 3a |=1:.:.YZ(Uk,Wd):|
00008a00 f2 59 59 3a e1 0d 68 2e 7a dd f2 61 59 3a c8 99 |.YY:..h.z..aY:..|
00008a10 26 39 30 30 43 35 2c 64 71 2c 55 56 20 b8 64 63 |&900C5,dq,UV .dc|
00008a20 3a 64 63 2b 3d 28 5a 6c 2d 31 29 2a 20 31 30 32 |:dc+=(Zl-1)* 102|
00008a30 34 3a e3 64 6a 3d 5a 67 20 b8 5a 69 3a e3 64 6b |4:.dj=Zg .Zi:.dk|
00008a40 3d 5a 68 20 b8 5a 6a 3a 21 28 64 63 2b 28 64 6a |=Zh .Zj:!(dc+(dj|
00008a50 2d 31 29 2a 31 36 20 2b 20 28 64 6b 2d 31 29 2a |-1)*16 + (dk-1)*|
00008a60 34 29 20 3d 20 30 3a ed 64 6b 3a ed 64 6a 3a f2 |4) = 0:.dk:.dj:.|
00008a70 59 5a 28 55 6b 2c 57 64 29 3a f2 59 59 3a e1 0d |YZ(Uk,Wd):.YY:..|
00008a80 69 0a c5 dd f2 61 5a 3a c8 99 26 39 30 30 43 35 |i....aZ:..&900C5|
00008a90 2c 64 71 2c 55 56 20 b8 64 63 3a 69 68 3d 5a 67 |,dq,UV .dc:ih=Zg|
00008aa0 3a 69 69 3d 56 77 3a c8 95 69 68 3c 3d 5a 69 20 |:ii=Vw:..ih<=Zi |
00008ab0 80 69 69 3c 3d 36 34 3a 69 6a 3d 5a 68 3a 69 6b |.ii<=64:ij=Zh:ik|
00008ac0 3d 56 78 3a c8 95 69 6a 3c 3d 5a 6a 20 80 69 6b |=Vx:..ij<=Zj .ik|
00008ad0 3c 3d 34 3a 69 6c 3d 64 63 2b 28 28 5a 6c 2d 31 |<=4:il=dc+((Zl-1|
00008ae0 29 2a 31 30 32 34 29 20 2b 20 28 28 69 68 2d 31 |)*1024) + ((ih-1|
00008af0 29 2a 31 36 29 20 2b 20 28 28 69 6a 2d 31 29 2a |)*16) + ((ij-1)*|
00008b00 34 29 3a 69 6d 3d 64 63 2b 28 28 5a 6d 2d 31 29 |4):im=dc+((Zm-1)|
00008b10 2a 31 30 32 34 29 20 2b 20 28 28 69 69 20 2d 31 |*1024) + ((ii -1|
00008b20 29 2a 31 36 29 20 2b 20 28 28 69 6b 20 2d 31 29 |)*16) + ((ik -1)|
00008b30 2a 34 29 3a e7 21 69 6c 3c 3e 30 20 8c 21 69 6d |*4):.!il<>0 .!im|
00008b40 3d 21 69 6c 0d 69 be 30 69 6a 2b 3d 31 3a 69 6b |=!il.i.0ij+=1:ik|
00008b50 2b 3d 31 3a ce 3a 69 68 2b 3d 31 3a 69 69 2b 3d |+=1:.:ih+=1:ii+=|
00008b60 31 3a ce 3a f2 59 5a 28 55 6b 2c 57 64 29 3a f2 |1:.:.YZ(Uk,Wd):.|
00008b70 59 59 3a e1 0d 6b 44 15 dd f2 56 72 28 63 73 24 |YY:..kD...Vr(cs$|
00008b80 29 3a e7 56 71 3d 30 20 8c 0d 6b 6c 1a f2 69 6e |):.Vq=0 ..kl..in|
00008b90 28 b9 29 3a f2 61 55 28 55 6b 2c 57 66 2c 31 2c |(.):.aU(Uk,Wf,1,|
00008ba0 22 22 29 0d 6b 8a 56 cc 3a 69 3d a4 63 74 69 6f |"").k.V.:i=.ctio|
00008bb0 6e 5f 46 69 6e 64 49 6e 73 74 72 75 6d 65 6e 74 |n_FindInstrument|
00008bc0 28 63 73 24 29 3a 5a 79 3d 69 3a f2 61 55 28 55 |(cs$):Zy=i:.aU(U|
00008bd0 6b 2c 57 66 2c 31 2c 63 73 24 29 3a e7 a4 63 74 |k,Wf,1,cs$):..ct|
00008be0 69 6f 6e 5f 57 69 6e 64 6f 77 49 73 4f 70 65 6e |ion_WindowIsOpen|
00008bf0 28 55 6b 2c 57 6e 29 20 8c 0d 6b da 1d f2 57 6f |(Uk,Wn) ..k...Wo|
00008c00 28 55 6b 2c 57 6d 29 3a f2 57 6f 28 55 6b 2c 57 |(Uk,Wm):.Wo(Uk,W|
00008c10 6e 29 3a f2 63 6d 0d 6b f8 05 cd 0d 6c 0c 07 cd |n):.cm.k....l...|
00008c20 3a e1 0d 6c 5c 37 dd f2 63 74 28 62 58 24 2c 69 |:..l\7..ct(bX$,i|
00008c30 6f 29 3a e7 a4 63 74 69 6f 6e 5f 49 6e 73 74 72 |o):..ction_Instr|
00008c40 75 6d 65 6e 74 41 6c 72 65 61 64 79 4c 6f 61 64 |umentAlreadyLoad|
00008c50 65 64 28 62 58 24 29 20 8c 0d 6c 84 51 57 77 24 |ed(bX$) ..l.QWw$|
00008c60 3d a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 |=.ction_TagToStr|
00008c70 69 6e 67 28 56 6b 2c 22 65 72 72 32 36 22 29 3a |ing(Vk,"err26"):|
00008c80 57 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 6f 72 74 |Wz=.ction_Report|
00008c90 45 72 72 6f 72 28 55 6b 2c 39 39 2c 55 64 24 2c |Error(Uk,99,Ud$,|
00008ca0 57 77 24 2c 20 ac b9 2c b9 29 0d 6c a2 0e cc 3a |Ww$, ..,.).l...:|
00008cb0 e7 56 71 3d 56 58 20 8c 0d 6c ca 51 57 77 24 3d |.Vq=VX ..l.QWw$=|
00008cc0 a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 |.ction_TagToStri|
00008cd0 6e 67 28 56 6b 2c 22 65 72 72 30 35 22 29 3a 57 |ng(Vk,"err05"):W|
00008ce0 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 6f 72 74 45 |z=.ction_ReportE|
00008cf0 72 72 6f 72 28 55 6b 2c 39 39 2c 55 64 24 2c 57 |rror(Uk,99,Ud$,W|
00008d00 77 24 2c 20 ac b9 2c b9 29 0d 6c e8 14 cc 3a 56 |w$, ..,.).l...:V|
00008d10 71 2b 3d 31 3a e7 69 6f 3d 2d 31 20 8c 0d 6d 1a |q+=1:.io=-1 ..m.|
00008d20 1e 69 70 3d 31 3a c8 95 56 59 24 28 69 70 29 3c |.ip=1:..VY$(ip)<|
00008d30 3e 22 22 3a 69 70 2b 3d 31 3a ce 0d 6d 42 0b cc |>"":ip+=1:..mB..|
00008d40 3a 69 70 3d 69 6f 0d 6d 56 36 cd 3a 69 71 3d 20 |:ip=io.mV6.:iq= |
00008d50 ac b9 3a 56 59 24 28 69 70 29 3d 62 58 24 3a c8 |..:VY$(ip)=bX$:.|
00008d60 99 26 39 30 30 43 32 2c 62 58 24 2c 55 56 20 b8 |.&900C2,bX$,UV .|
00008d70 57 78 2c 57 79 3a c8 8e 57 78 20 ca 0d 6d 9c 4b |Wx,Wy:..Wx ..m.K|
00008d80 c9 30 3a 69 71 3d b9 3a 57 77 24 3d a4 63 74 69 |.0:iq=.:Ww$=.cti|
00008d90 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 56 |on_TagToString(V|
00008da0 6b 2c 22 65 72 72 33 35 22 29 2b a4 63 74 69 6f |k,"err35")+.ctio|
00008db0 6e 5f 4c 65 61 66 6e 61 6d 65 4f 6e 6c 79 28 62 |n_LeafnameOnly(b|
00008dc0 58 24 29 2b bd 33 34 0d 6d b0 2e c9 31 3a 69 71 |X$)+.34.m...1:iq|
00008dd0 3d b9 3a 57 77 24 3d a4 63 74 69 6f 6e 5f 54 61 |=.:Ww$=.ction_Ta|
00008de0 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 65 72 |gToString(Vk,"er|
00008df0 72 33 36 22 29 0d 6d c4 4b c9 32 3a 69 71 3d b9 |r36").m.K.2:iq=.|
00008e00 3a 57 77 24 3d a4 63 74 69 6f 6e 5f 54 61 67 54 |:Ww$=.ction_TagT|
00008e10 6f 53 74 72 69 6e 67 28 56 6b 2c 22 65 72 72 33 |oString(Vk,"err3|
00008e20 37 22 29 2b a4 63 74 69 6f 6e 5f 4c 65 61 66 6e |7")+.ction_Leafn|
00008e30 61 6d 65 4f 6e 6c 79 28 62 58 24 29 2b bd 33 34 |ameOnly(bX$)+.34|
00008e40 0d 6d d8 0b cb 3a e7 69 71 20 8c 0d 6e 00 61 57 |.m...:.iq ..n.aW|
00008e50 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 6f 72 74 45 |z=.ction_ReportE|
00008e60 72 72 6f 72 28 55 6b 2c 39 39 2c 55 64 24 2c 57 |rror(Uk,99,Ud$,W|
00008e70 77 24 2c 20 ac b9 2c b9 29 3a 56 59 24 28 69 70 |w$, ..,.):VY$(ip|
00008e80 29 3d 22 22 3a 56 71 2d 3d 31 3a f2 56 72 28 a4 |)="":Vq-=1:.Vr(.|
00008e90 63 74 69 6f 6e 5f 4c 65 61 66 6e 61 6d 65 4f 6e |ction_LeafnameOn|
00008ea0 6c 79 28 56 59 24 28 5a 79 29 29 29 0d 6e 32 2a |ly(VY$(Zy))).n2*|
00008eb0 cc 3a c8 99 26 39 30 30 43 35 2c 57 79 2c 55 56 |.:..&900C5,Wy,UV|
00008ec0 20 b8 64 63 3a 56 5a 28 69 70 29 3d 57 79 3a e7 | .dc:VZ(ip)=Wy:.|
00008ed0 56 71 3d 31 20 8c 0d 6e 6e 0c f2 69 6e 28 20 ac |Vq=1 ..nn..in( .|
00008ee0 b9 29 0d 6e 78 1d cd 3a 69 72 3d 64 63 21 28 31 |.).nx..:ir=dc!(1|
00008ef0 32 2b 34 29 3a e7 69 72 3c 3e 21 65 61 20 8c 0d |2+4):.ir<>!ea ..|
00008f00 6e a0 a9 69 73 24 3d a4 63 74 69 6f 6e 5f 54 61 |n..is$=.ction_Ta|
00008f10 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 77 61 |gToString(Vk,"wa|
00008f20 72 30 34 22 29 3a 69 74 24 3d a4 63 74 69 6f 6e |r04"):it$=.ction|
00008f30 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c |_TagToString(Vk,|
00008f40 22 71 75 61 6c 30 22 2b c3 69 72 29 3a 69 75 24 |"qual0"+.ir):iu$|
00008f50 3d a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 |=.ction_TagToStr|
00008f60 69 6e 67 28 56 6b 2c 22 77 61 72 31 30 22 29 3a |ing(Vk,"war10"):|
00008f70 57 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 6f 72 74 |Wz=.ction_Report|
00008f80 45 72 72 6f 72 28 55 6b 2c 39 39 2c 55 64 24 2c |Error(Uk,99,Ud$,|
00008f90 69 73 24 2b 69 74 24 2b 69 75 24 2c b9 2c b9 29 |is$+it$+iu$,.,.)|
00008fa0 3a e7 57 7a 3d 31 20 8c 0d 6e d2 2c 21 65 61 3d |:.Wz=1 ..n.,!ea=|
00008fb0 69 72 3a f2 58 69 3a e7 a4 63 74 69 6f 6e 5f 57 |ir:.Xi:..ction_W|
00008fc0 69 6e 64 6f 77 49 73 4f 70 65 6e 28 55 6b 2c 57 |indowIsOpen(Uk,W|
00008fd0 68 29 20 8c 0d 6e f0 0e f2 59 5a 28 55 6b 2c 57 |h) ..n...YZ(Uk,W|
00008fe0 68 29 0d 6e fa 05 cd 0d 6f 04 05 cd 0d 6f 0e 25 |h).n....o....o.%|
00008ff0 cd 3a e7 20 ac a4 63 74 69 6f 6e 5f 57 69 6e 64 |.:. ..ction_Wind|
00009000 6f 77 49 73 4f 70 65 6e 28 55 6b 2c 57 64 29 20 |owIsOpen(Uk,Wd) |
00009010 8c 0d 6f 2c 2d f2 58 66 28 55 6b 2c 57 64 29 3a |..o,-.Xf(Uk,Wd):|
00009020 f2 57 65 28 55 6b 2c 57 64 2c 57 66 2c 30 2c 30 |.We(Uk,Wd,Wf,0,0|
00009030 29 3a f2 58 67 28 57 64 2c 2d 31 2c 30 29 0d 6f |):.Xg(Wd,-1,0).o|
00009040 4a 2b cd 3a f2 56 72 28 a4 63 74 69 6f 6e 5f 4c |J+.:.Vr(.ction_L|
00009050 65 61 66 6e 61 6d 65 4f 6e 6c 79 28 56 59 24 28 |eafnameOnly(VY$(|
00009060 56 71 29 29 29 3a f2 59 59 0d 6f 7c 05 cd 0d 6f |Vq))):.YY.o|...o|
00009070 90 05 cd 0d 6f a4 07 cd 3a e1 0d 6f f4 8b dd a4 |....o...:..o....|
00009080 63 74 69 6f 6e 5f 49 6e 73 74 72 75 6d 65 6e 74 |ction_Instrument|
00009090 41 6c 72 65 61 64 79 4c 6f 61 64 65 64 28 62 58 |AlreadyLoaded(bX|
000090a0 24 29 3a ea 5a 7a 24 2c 69 2c 69 76 3a 69 76 3d |$):.Zz$,i,iv:iv=|
000090b0 20 ac b9 3a 69 3d 31 3a c8 95 69 3c 3d 56 58 20 | ..:i=1:..i<=VX |
000090c0 80 20 ac 69 76 3a 5a 7a 24 3d a4 63 74 69 6f 6e |. .iv:Zz$=.ction|
000090d0 5f 4c 65 61 66 6e 61 6d 65 4f 6e 6c 79 28 56 59 |_LeafnameOnly(VY|
000090e0 24 28 69 29 29 3a e7 5a 7a 24 3d a4 63 74 69 6f |$(i)):.Zz$=.ctio|
000090f0 6e 5f 4c 65 61 66 6e 61 6d 65 4f 6e 6c 79 28 62 |n_LeafnameOnly(b|
00009100 58 24 29 20 8c 0d 70 3a 08 69 76 3d b9 0d 70 44 |X$) ..p:.iv=..pD|
00009110 0a cc 3a 69 2b 3d 31 0d 70 58 0b cd 3a ce 3a 3d |..:i+=1.pX..:.:=|
00009120 69 76 0d 70 a8 2e dd f2 69 6e 28 69 77 29 3a f2 |iv.p....in(iw):.|
00009130 63 66 28 55 6b 2c 57 66 2c 31 2c 69 77 29 3a f2 |cf(Uk,Wf,1,iw):.|
00009140 63 66 28 55 6b 2c 57 66 2c 32 2c 69 77 29 3a e1 |cf(Uk,Wf,2,iw):.|
00009150 0d 71 16 17 dd f2 58 6f 28 58 58 2c 58 59 29 3a |.q....Xo(XX,XY):|
00009160 e7 56 71 3e 30 20 8c 0d 71 34 51 56 65 3d 39 3a |.Vq>0 ..q4QVe=9:|
00009170 62 6d 3d 30 3a 62 70 3d 55 79 2b 31 36 2a 31 30 |bm=0:bp=Uy+16*10|
00009180 32 34 3a 62 71 3d 30 3a f2 62 6e 28 22 49 6e 73 |24:bq=0:.bn("Ins|
00009190 74 72 75 6d 65 6e 74 73 22 2c 32 32 34 2c 34 34 |truments",224,44|
000091a0 29 3a e3 69 3d 31 20 b8 33 32 3a e7 56 59 24 28 |):.i=1 .32:.VY$(|
000091b0 69 29 3c 3e 22 22 20 8c 0d 71 98 3d f2 62 74 28 |i)<>"" ..q.=.bt(|
000091c0 c2 22 20 20 22 2b c3 69 2c 32 29 2b 22 3a 22 2b |." "+.i,2)+":"+|
000091d0 a4 63 74 69 6f 6e 5f 4c 65 61 66 6e 61 6d 65 4f |.ction_LeafnameO|
000091e0 6e 6c 79 28 56 59 24 28 69 29 29 2c 30 2c 2d 31 |nly(VY$(i)),0,-1|
000091f0 2c 20 ac b9 29 0d 71 a2 2b cd 3a ed 69 3a 21 28 |, ..).q.+.:.i:!(|
00009200 55 79 2b 62 6d 2d 32 34 29 3d 31 32 38 3a c8 99 |Uy+bm-24)=128:..|
00009210 26 34 30 30 44 34 2c 2c 55 79 2c 58 58 2c 58 59 |&400D4,,Uy,XX,XY|
00009220 0d 71 de 07 cd 3a e1 0d 72 2e ea dd f2 61 62 28 |.q...:..r....ab(|
00009230 63 73 24 29 3a 69 3d 31 3a c8 95 a4 63 74 69 6f |cs$):i=1:...ctio|
00009240 6e 5f 4c 65 61 66 6e 61 6d 65 4f 6e 6c 79 28 56 |n_LeafnameOnly(V|
00009250 59 24 28 69 29 29 3c 3e 63 73 24 3a 69 2b 3d 31 |Y$(i))<>cs$:i+=1|
00009260 3a ce 3a 57 79 3d 56 5a 28 69 29 3a c8 99 26 39 |:.:Wy=VZ(i):..&9|
00009270 30 30 43 34 2c 57 79 2c 55 56 20 b8 57 78 3a 56 |00C4,Wy,UV .Wx:V|
00009280 59 24 28 69 29 3d 22 22 3a 56 5a 28 69 29 3d 30 |Y$(i)="":VZ(i)=0|
00009290 3a 69 3d 31 3a f5 3a 69 78 24 3d a4 63 74 69 6f |:i=1:.:ix$=.ctio|
000092a0 6e 5f 4c 65 61 66 6e 61 6d 65 4f 6e 6c 79 28 56 |n_LeafnameOnly(V|
000092b0 59 24 28 69 29 29 3a 69 2b 3d 31 3a fd 69 78 24 |Y$(i)):i+=1:.ix$|
000092c0 3c 3e 22 22 20 84 69 3e 56 58 3a 56 71 2d 3d 31 |<>"" .i>VX:Vq-=1|
000092d0 3a f2 56 72 28 69 78 24 29 3a f2 59 59 3a f2 57 |:.Vr(ix$):.YY:.W|
000092e0 6f 28 55 6b 2c 57 6e 29 3a f2 57 6f 28 55 6b 2c |o(Uk,Wn):.Wo(Uk,|
000092f0 57 6d 29 3a e7 a4 63 74 69 6f 6e 5f 57 69 6e 64 |Wm):..ction_Wind|
00009300 6f 77 49 73 4f 70 65 6e 28 55 6b 2c 59 62 29 20 |owIsOpen(Uk,Yb) |
00009310 8c 0d 73 3c 07 f2 63 68 0d 73 46 07 cd 3a e1 0d |..s<..ch.sF..:..|
00009320 73 96 45 dd f2 59 6f 28 69 79 29 3a c8 99 26 39 |s.E..Yo(iy):..&9|
00009330 30 30 43 35 2c 56 5a 28 5a 79 29 2c 55 56 20 b8 |00C5,VZ(Zy),UV .|
00009340 64 63 3a 69 7a 3d 64 63 21 28 37 36 2b 34 29 3a |dc:iz=dc!(76+4):|
00009350 69 57 3d 69 7a 2b 69 79 3a e7 69 57 3c 30 20 8c |iW=iz+iy:.iW<0 .|
00009360 69 57 3d 30 0d 73 c8 13 e7 69 57 3e 31 32 37 20 |iW=0.s...iW>127 |
00009370 8c 69 57 3d 31 32 37 0d 73 d2 27 64 63 21 28 37 |.iW=127.s.'dc!(7|
00009380 36 2b 34 29 3d 69 57 3a f2 61 55 28 55 6b 2c 57 |6+4)=iW:.aU(Uk,W|
00009390 6d 2c 39 2c c3 69 57 29 3a f2 59 59 3a e1 0d 74 |m,9,.iW):.YY:..t|
000093a0 36 52 dd f2 59 6d 28 69 79 29 3a c8 99 26 39 30 |6R..Ym(iy):..&90|
000093b0 30 43 35 2c 56 5a 28 5a 79 29 2c 55 56 20 b8 64 |0C5,VZ(Zy),UV .d|
000093c0 63 3a 6a 55 3d 64 63 21 28 36 38 2b 34 29 3a 6a |c:jU=dc!(68+4):j|
000093d0 56 3d 64 63 21 28 37 32 2b 34 29 3a 6a 57 3d 6a |V=dc!(72+4):jW=j|
000093e0 55 2b 69 79 3a e7 6a 57 3c 30 20 8c 6a 57 3d 30 |U+iy:.jW<0 .jW=0|
000093f0 0d 74 72 11 e7 6a 57 3e 6a 58 20 8c 6a 57 3d 6a |.tr..jW>jX .jW=j|
00009400 58 0d 74 7c 14 e7 6a 57 2b 6a 56 3e 6a 58 20 8c |X.t|..jW+jV>jX .|
00009410 6a 57 3d 6a 55 0d 74 86 32 64 63 21 28 36 38 2b |jW=jU.t.2dc!(68+|
00009420 34 29 3d 6a 57 3a f2 61 55 28 55 6b 2c 57 6d 2c |4)=jW:.aU(Uk,Wm,|
00009430 31 2c c3 6a 57 29 3a f2 59 5a 28 55 6b 2c 57 6e |1,.jW):.YZ(Uk,Wn|
00009440 29 3a f2 59 59 3a e1 0d 74 ea 52 dd f2 59 6e 28 |):.YY:..t.R..Yn(|
00009450 69 79 29 3a c8 99 26 39 30 30 43 35 2c 56 5a 28 |iy):..&900C5,VZ(|
00009460 5a 79 29 2c 55 56 20 b8 64 63 3a 6a 55 3d 64 63 |Zy),UV .dc:jU=dc|
00009470 21 28 36 38 2b 34 29 3a 6a 56 3d 64 63 21 28 37 |!(68+4):jV=dc!(7|
00009480 32 2b 34 29 3a 6a 59 3d 6a 56 2b 69 79 3a e7 6a |2+4):jY=jV+iy:.j|
00009490 59 3c 30 20 8c 6a 59 3d 30 0d 75 26 11 e7 6a 59 |Y<0 .jY=0.u&..jY|
000094a0 3e 6a 58 20 8c 6a 59 3d 6a 58 0d 75 30 14 e7 6a |>jX .jY=jX.u0..j|
000094b0 59 2b 6a 55 3e 6a 58 20 8c 6a 59 3d 6a 56 0d 75 |Y+jU>jX .jY=jV.u|
000094c0 3a 32 64 63 21 28 37 32 2b 34 29 3d 6a 59 3a f2 |:2dc!(72+4)=jY:.|
000094d0 61 55 28 55 6b 2c 57 6d 2c 36 2c c3 6a 59 29 3a |aU(Uk,Wm,6,.jY):|
000094e0 f2 59 5a 28 55 6b 2c 57 6e 29 3a f2 59 59 3a e1 |.YZ(Uk,Wn):.YY:.|
000094f0 0d 75 9e 3d dd a4 63 74 69 6f 6e 5f 46 69 6e 64 |.u.=..ction_Find|
00009500 49 6e 73 74 72 75 6d 65 6e 74 28 63 73 24 29 3a |Instrument(cs$):|
00009510 ea 69 3a 69 3d 31 3a 69 76 3d 20 ac b9 3a e7 63 |.i:i=1:iv= ..:.c|
00009520 73 24 3d 22 22 20 8c 69 3d 56 58 2b 31 0d 75 d0 |s$="" .i=VX+1.u.|
00009530 35 c8 95 28 ac 69 76 29 20 80 69 3c 3d 56 58 3a |5..(.iv) .i<=VX:|
00009540 e7 a4 63 74 69 6f 6e 5f 4c 65 61 66 6e 61 6d 65 |..ction_Leafname|
00009550 4f 6e 6c 79 28 56 59 24 28 69 29 29 3d 63 73 24 |Only(VY$(i))=cs$|
00009560 20 8c 0d 75 e4 08 69 76 3d b9 0d 75 ee 0a cc 3a | ..u..iv=..u...:|
00009570 69 2b 3d 31 0d 76 02 13 cd 3a ce 3a e7 69 3e 56 |i+=1.v...:.:.i>V|
00009580 58 20 8c 69 3d 2d 31 0d 76 20 06 3d 69 0d 76 5c |X .i=-1.v .=i.v\|
00009590 ff dd f2 61 7a 3a c8 99 26 39 30 30 43 35 2c 56 |...az:..&900C5,V|
000095a0 5a 28 5a 79 29 2c 55 56 20 b8 64 63 3a 6a 5a 3d |Z(Zy),UV .dc:jZ=|
000095b0 64 63 21 28 37 36 2b 34 29 3a 6a 58 3d 64 63 21 |dc!(76+4):jX=dc!|
000095c0 28 36 34 2b 34 29 3a 6a 61 3d 64 63 21 28 36 38 |(64+4):ja=dc!(68|
000095d0 2b 34 29 3a 6a 62 3d 64 63 21 28 37 32 2b 34 29 |+4):jb=dc!(72+4)|
000095e0 3a 21 66 78 3d 28 6a 58 2f 38 30 30 29 2a 34 3a |:!fx=(jX/800)*4:|
000095f0 21 66 79 3d 61 74 3a 21 66 7a 3d 61 72 3a 21 66 |!fy=at:!fz=ar:!f|
00009600 77 3d 64 63 2b 38 30 2b 34 3a 21 67 57 3d 64 63 |w=dc+80+4:!gW=dc|
00009610 2b 38 30 2b 34 2b 6a 58 2d 31 3a 21 67 55 3d 28 |+80+4+jX-1:!gU=(|
00009620 28 6a 61 2f 6a 58 29 2a 20 38 30 30 2f 32 20 29 |(ja/jX)* 800/2 )|
00009630 20 2b 20 32 3a 21 67 56 3d 21 67 55 2b 28 28 6a | + 2:!gV=!gU+((j|
00009640 62 2f 6a 58 29 2a 20 38 30 30 2f 32 20 29 3a 6a |b/jX)* 800/2 ):j|
00009650 63 3d 61 72 2b 28 6a 61 2f 6a 58 2a 38 30 30 29 |c=ar+(ja/jX*800)|
00009660 3a 62 61 3d 28 6a 62 2f 6a 58 2a 38 30 30 29 3a |:ba=(jb/jX*800):|
00009670 c8 99 26 34 30 30 45 36 2c 31 35 3a c8 93 c8 90 |..&400E6,15:....|
00009680 6a 63 2c 61 74 2c 62 61 2c 32 35 36 0d 77 24 09 |jc,at,ba,256.w$.|
00009690 d6 66 76 3a e1 0d 77 74 65 dd f2 59 76 28 59 77 |.fv:..wte..Yv(Yw|
000096a0 2c 59 78 29 3a f2 6a 64 28 55 6b 2c 57 6e 2c 59 |,Yx):.jd(Uk,Wn,Y|
000096b0 77 2c 59 78 29 3a c8 99 26 39 30 30 43 35 2c 56 |w,Yx):..&900C5,V|
000096c0 5a 28 5a 79 29 2c 55 56 20 b8 64 63 3a 6a 58 3d |Z(Zy),UV .dc:jX=|
000096d0 64 63 21 28 36 34 2b 34 29 3a 6a 65 3d 28 6a 66 |dc!(64+4):je=(jf|
000096e0 25 2f 38 30 30 29 2a 6a 58 3a 6a 67 3d 30 3a e7 |%/800)*jX:jg=0:.|
000096f0 6a 65 3c 30 20 8c 6a 65 3d 30 0d 77 ce cf 64 63 |je<0 .je=0.w..dc|
00009700 21 28 36 38 2b 34 29 3d 6a 65 3a 64 63 21 28 37 |!(68+4)=je:dc!(7|
00009710 32 2b 34 29 3d 6a 67 3a 55 6b 21 30 3d 57 6e 3a |2+4)=jg:Uk!0=Wn:|
00009720 55 6b 21 34 3d 37 3a 55 6b 21 38 3d 59 77 3a 55 |Uk!4=7:Uk!8=Yw:U|
00009730 6b 21 31 32 3d 59 78 3a 55 6b 21 31 36 3d 59 77 |k!12=Yx:Uk!16=Yw|
00009740 3a 55 6b 21 32 30 3d 59 78 3a 55 6b 21 32 34 3d |:Uk!20=Yx:Uk!24=|
00009750 57 6e 3a c8 99 26 34 30 30 43 43 2c 2c 55 6b 2b |Wn:..&400CC,,Uk+|
00009760 32 34 3a 55 6b 21 32 34 3d 55 6b 21 32 38 3a 55 |24:Uk!24=Uk!28:U|
00009770 6b 21 32 38 3d 55 6b 21 33 32 3a 55 6b 21 33 32 |k!28=Uk!32:Uk!32|
00009780 3d 55 6b 21 33 36 3a 55 6b 21 33 36 3d 55 6b 21 |=Uk!36:Uk!36=Uk!|
00009790 34 30 3a c8 99 26 34 30 30 44 30 2c 2c 55 6b 3a |40:..&400D0,,Uk:|
000097a0 f2 61 55 28 55 6b 2c 57 6d 2c 31 2c c3 28 a8 6a |.aU(Uk,Wm,1,.(.j|
000097b0 65 29 29 3a f2 61 55 28 55 6b 2c 57 6d 2c 36 2c |e)):.aU(Uk,Wm,6,|
000097c0 c3 28 a8 6a 67 29 29 3a e1 0d 78 b4 72 dd f2 62 |.(.jg)):..x.r..b|
000097d0 56 28 58 57 29 3a c8 99 26 39 30 30 43 35 2c 56 |V(XW):..&900C5,V|
000097e0 5a 28 5a 79 29 2c 55 56 20 b8 64 63 3a 64 63 21 |Z(Zy),UV .dc:dc!|
000097f0 28 36 38 2b 34 29 3d 6a 65 3a 64 63 21 28 37 32 |(68+4)=je:dc!(72|
00009800 2b 34 29 3d 6a 67 3a f2 61 55 28 55 6b 2c 57 6d |+4)=jg:.aU(Uk,Wm|
00009810 2c 31 2c c3 28 a8 6a 65 29 29 3a f2 61 55 28 55 |,1,.(.je)):.aU(U|
00009820 6b 2c 57 6d 2c 36 2c c3 28 a8 6a 67 29 29 3a f2 |k,Wm,6,.(.jg)):.|
00009830 59 5a 28 55 6b 2c 57 6e 29 3a e1 0d 79 36 71 dd |YZ(Uk,Wn):..y6q.|
00009840 f2 57 61 3a c8 99 26 34 30 30 43 46 2c 2c 55 6b |.Wa:..&400CF,,Uk|
00009850 3a f2 6a 64 28 55 6b 2c 57 6e 2c 55 6b 21 30 2c |:.jd(Uk,Wn,Uk!0,|
00009860 55 6b 21 34 29 3a c8 99 26 39 30 30 43 35 2c 56 |Uk!4):..&900C5,V|
00009870 5a 28 5a 79 29 2c 55 56 20 b8 64 63 3a 6a 58 3d |Z(Zy),UV .dc:jX=|
00009880 64 63 21 28 36 34 2b 34 29 3a 6a 67 3d 28 6a 66 |dc!(64+4):jg=(jf|
00009890 25 2f 38 30 30 29 2a 6a 58 3a 6a 67 2d 3d 6a 65 |%/800)*jX:jg-=je|
000098a0 3a e7 6a 67 3c 30 20 8c 6a 67 3d 30 0d 79 ae 2d |:.jg<0 .jg=0.y.-|
000098b0 6a 68 3d 64 63 21 28 37 32 2b 34 29 3a 64 63 21 |jh=dc!(72+4):dc!|
000098c0 28 37 32 2b 34 29 3d 6a 67 3a e7 28 a8 6a 67 29 |(72+4)=jg:.(.jg)|
000098d0 3c 3e 28 a8 6a 68 29 20 8c 0d 79 d6 36 f2 61 55 |<>(.jh) ..y.6.aU|
000098e0 28 55 6b 2c 57 6d 2c 31 2c c3 28 a8 6a 65 29 29 |(Uk,Wm,1,.(.je))|
000098f0 3a f2 61 55 28 55 6b 2c 57 6d 2c 36 2c c3 28 a8 |:.aU(Uk,Wm,6,.(.|
00009900 6a 67 29 29 3a f2 59 5a 28 55 6b 2c 57 6e 29 0d |jg)):.YZ(Uk,Wn).|
00009910 79 f4 07 cd 3a e1 0d 7a 44 f1 dd f2 63 6d 3a c8 |y...:..zD...cm:.|
00009920 99 26 39 30 30 43 35 2c 56 5a 28 5a 79 29 2c 55 |.&900C5,VZ(Zy),U|
00009930 56 20 b8 64 63 3a f2 61 55 28 55 6b 2c 57 6d 2c |V .dc:.aU(Uk,Wm,|
00009940 31 33 2c c0 a4 63 74 69 6f 6e 5f 45 78 74 72 61 |13,..ction_Extra|
00009950 63 74 53 74 72 69 6e 67 28 64 63 2b 31 36 2b 34 |ctString(dc+16+4|
00009960 29 2c 33 32 29 29 3a 69 72 3d 64 63 21 28 31 32 |),32)):ir=dc!(12|
00009970 2b 34 29 3a 6a 69 3d 64 63 21 28 36 38 2b 34 29 |+4):ji=dc!(68+4)|
00009980 3a 6a 6a 3d 64 63 21 28 37 32 2b 34 29 3a 64 70 |:jj=dc!(72+4):dp|
00009990 3d 64 63 21 28 37 36 2b 34 29 3a 69 72 24 3d a4 |=dc!(76+4):ir$=.|
000099a0 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e |ction_TagToStrin|
000099b0 67 28 56 6b 2c 22 71 75 61 6c 30 22 2b c3 69 72 |g(Vk,"qual0"+.ir|
000099c0 29 3a f2 65 73 28 55 6b 2c 57 6d 2c a4 63 74 69 |):.es(Uk,Wm,.cti|
000099d0 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 65 78 74 28 |on_ReadIconText(|
000099e0 55 6b 2c 57 66 2c 31 29 2b 22 20 28 22 2b 69 72 |Uk,Wf,1)+" ("+ir|
000099f0 24 2b 22 29 22 29 3a f2 61 55 28 55 6b 2c 57 6d |$+")"):.aU(Uk,Wm|
00009a00 2c 31 2c c3 6a 69 29 0d 7a a8 4b f2 61 55 28 55 |,1,.ji).z.K.aU(U|
00009a10 6b 2c 57 6d 2c 36 2c c3 6a 6a 29 3a f2 61 55 28 |k,Wm,6,.jj):.aU(|
00009a20 55 6b 2c 57 6d 2c 39 2c c3 64 70 29 3a f2 57 63 |Uk,Wm,9,.dp):.Wc|
00009a30 28 55 69 2c 55 6b 2c 57 6d 2c 20 ac b9 29 3a f2 |(Ui,Uk,Wm, ..):.|
00009a40 57 65 28 55 6b 2c 57 6d 2c 57 6e 2c 38 2c 34 29 |We(Uk,Wm,Wn,8,4)|
00009a50 3a e1 0d 7b 0c 1e dd f2 59 70 3a c8 99 26 39 30 |:..{....Yp:..&90|
00009a60 30 38 42 20 b8 64 78 3a e7 64 78 3d 2d 31 20 8c |08B .dx:.dx=-1 .|
00009a70 0d 7b 3e 11 e7 20 ac 57 55 20 80 20 ac 56 7a 20 |.{>.. .WU . .Vz |
00009a80 8c 0d 7b 52 fc c8 99 26 39 30 30 38 43 3a f2 66 |..{R...&9008C:.f|
00009a90 70 28 55 6b 2c 57 6d 29 3a c8 99 26 34 30 36 43 |p(Uk,Wm):..&406C|
00009aa0 30 3a c8 99 26 39 30 30 43 35 2c 56 5a 28 5a 79 |0:..&900C5,VZ(Zy|
00009ab0 29 2c 55 56 20 b8 64 63 3a 69 72 3d 64 63 21 28 |),UV .dc:ir=dc!(|
00009ac0 31 32 2b 34 29 3a 64 7a 3d 64 63 21 28 37 36 2b |12+4):dz=dc!(76+|
00009ad0 34 29 3a 65 55 3d 64 63 21 28 36 34 2b 34 29 3a |4):eU=dc!(64+4):|
00009ae0 65 56 3d 64 63 21 28 36 38 2b 34 29 3a 65 57 3d |eV=dc!(68+4):eW=|
00009af0 64 63 21 28 37 32 2b 34 29 3a 65 58 3d 64 63 2b |dc!(72+4):eX=dc+|
00009b00 28 38 30 2b 34 29 3a 65 59 3d 65 58 3a 65 5a 3d |(80+4):eY=eX:eZ=|
00009b10 65 58 2b 65 55 2d 31 33 32 3a 55 6b 21 28 32 30 |eX+eU-132:Uk!(20|
00009b20 34 38 2b 30 29 3d 65 58 3a 55 6b 21 28 32 30 34 |48+0)=eX:Uk!(204|
00009b30 38 2b 34 29 3d 65 58 2b 65 55 2d 31 33 32 3a 55 |8+4)=eX+eU-132:U|
00009b40 6b 21 28 32 30 34 38 2b 38 29 3d 65 56 3a 55 6b |k!(2048+8)=eV:Uk|
00009b50 21 28 32 30 34 38 2b 31 32 29 3d 65 57 3a 55 6b |!(2048+12)=eW:Uk|
00009b60 21 28 32 30 34 38 2b 31 36 29 3d 64 7a 3a 55 6b |!(2048+16)=dz:Uk|
00009b70 21 28 32 30 34 38 2b 32 30 29 3d 2d 31 0d 7c 24 |!(2048+20)=-1.|$|
00009b80 cf 55 6b 21 28 32 30 34 38 2b 32 34 29 3d 2d 31 |.Uk!(2048+24)=-1|
00009b90 3a 55 6b 21 28 32 30 34 38 2b 32 38 29 3d 2d 31 |:Uk!(2048+28)=-1|
00009ba0 3a c8 99 26 39 30 30 38 44 2c 31 2c 55 6b 2b 32 |:..&9008D,1,Uk+2|
00009bb0 30 34 38 3a c8 99 26 39 30 30 38 41 2c 69 72 3a |048:..&9008A,ir:|
00009bc0 c8 99 26 39 30 30 38 34 2c 94 28 21 65 62 29 2c |..&90084,.(!eb),|
00009bd0 94 28 21 65 63 29 2c 94 28 21 65 64 29 2c 94 28 |.(!ec),.(!ed),.(|
00009be0 21 65 65 29 3a c8 99 26 39 30 30 38 33 2c 21 65 |!ee):..&90083,!e|
00009bf0 66 3a c8 99 26 39 30 30 38 42 3a c8 99 26 39 30 |f:..&9008B:..&90|
00009c00 30 38 35 2c 21 65 67 2c 21 65 68 2c 21 65 69 2c |085,!eg,!eh,!ei,|
00009c10 21 65 6a 3a 55 6b 21 28 32 30 34 38 2b 30 29 3d |!ej:Uk!(2048+0)=|
00009c20 31 3a 55 6b 21 28 32 30 34 38 2b 34 29 3d 31 3a |1:Uk!(2048+4)=1:|
00009c30 55 6b 21 28 32 30 34 38 2b 38 29 3d 34 3a 55 6b |Uk!(2048+8)=4:Uk|
00009c40 21 28 32 30 34 38 2b 31 32 29 3d 31 0d 7c 92 e0 |!(2048+12)=1.|..|
00009c50 55 6b 21 28 32 30 34 38 2b 31 36 29 3d 32 3a 55 |Uk!(2048+16)=2:U|
00009c60 6b 21 28 32 30 34 38 2b 32 30 29 3d 31 3a 55 6b |k!(2048+20)=1:Uk|
00009c70 21 28 32 30 34 38 2b 32 34 29 3d 34 3a 55 6b 21 |!(2048+24)=4:Uk!|
00009c80 28 32 30 34 38 2b 32 38 29 3d 31 3a 55 6b 21 28 |(2048+28)=1:Uk!(|
00009c90 32 30 34 38 2b 33 32 29 3d 33 3a 55 6b 21 28 32 |2048+32)=3:Uk!(2|
00009ca0 30 34 38 2b 33 36 29 3d 31 3a 55 6b 21 28 32 30 |048+36)=1:Uk!(20|
00009cb0 34 38 2b 34 30 29 3d 34 3a 55 6b 21 28 32 30 34 |48+40)=4:Uk!(204|
00009cc0 38 2b 34 34 29 3d 31 3a 55 6b 21 28 32 30 34 38 |8+44)=1:Uk!(2048|
00009cd0 2b 34 38 29 3d 34 3a 55 6b 21 28 32 30 34 38 2b |+48)=4:Uk!(2048+|
00009ce0 35 32 29 3d 31 3a 55 6b 21 28 32 30 34 38 2b 35 |52)=1:Uk!(2048+5|
00009cf0 36 29 3d 34 3a 55 6b 21 28 32 30 34 38 2b 36 30 |6)=4:Uk!(2048+60|
00009d00 29 3d 31 3a c8 99 26 39 30 30 39 30 2c 28 55 6b |)=1:..&90090,(Uk|
00009d10 2b 32 30 34 38 29 3a c8 99 26 39 30 30 39 30 2c |+2048):..&90090,|
00009d20 28 55 6b 2b 32 30 34 38 2b 31 36 29 0d 7c c4 a0 |(Uk+2048+16).|..|
00009d30 c8 99 26 39 30 30 39 30 2c 28 55 6b 2b 32 30 34 |..&90090,(Uk+204|
00009d40 38 2b 33 32 29 3a c8 99 26 39 30 30 39 30 2c 28 |8+32):..&90090,(|
00009d50 55 6b 2b 32 30 34 38 2b 34 38 29 3a f5 3a c8 99 |Uk+2048+48):.:..|
00009d60 26 39 30 30 38 31 2c 31 20 b8 65 6b 3a 63 59 3d |&90081,1 .ek:cY=|
00009d70 65 6b 21 30 3a fd a6 28 2d 31 31 33 29 20 84 28 |ek!0:..(-113) .(|
00009d80 28 63 59 3c 65 59 20 84 63 59 3e 65 5a 29 20 80 |(cY<eY .cY>eZ) .|
00009d90 65 57 3d 30 29 3a f5 3a fd 20 ac a6 28 2d 31 31 |eW=0):.:. ..(-11|
00009da0 33 29 3a c8 99 26 34 30 36 43 31 3a c8 99 26 39 |3):..&406C1:..&9|
00009db0 30 30 38 43 3a c8 99 26 39 30 30 38 45 2c 31 3a |008C:..&9008E,1:|
00009dc0 f2 58 65 28 55 6b 2b 32 30 34 38 29 0d 7d 50 05 |.Xe(Uk+2048).}P.|
00009dd0 cd 0d 7d 64 07 cd 3a e1 0d 7e c2 16 dd f2 63 77 |..}d..:..~....cw|
00009de0 28 62 58 24 29 3a e7 56 70 3d 56 55 20 8c 0d 7e |(bX$):.Vp=VU ..~|
00009df0 ea 51 57 77 24 3d a4 63 74 69 6f 6e 5f 54 61 67 |.QWw$=.ction_Tag|
00009e00 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 65 72 72 |ToString(Vk,"err|
00009e10 30 34 22 29 3a 57 7a 3d a4 63 74 69 6f 6e 5f 52 |04"):Wz=.ction_R|
00009e20 65 70 6f 72 74 45 72 72 6f 72 28 55 6b 2c 39 39 |eportError(Uk,99|
00009e30 2c 55 64 24 2c 57 77 24 2c 20 ac b9 2c b9 29 0d |,Ud$,Ww$, ..,.).|
00009e40 7f 08 6a cc 3a 69 3d 31 3a 61 24 3d 22 22 3a 62 |..j.:i=1:a$="":b|
00009e50 24 3d a4 63 74 69 6f 6e 5f 4c 65 61 66 6e 61 6d |$=.ction_Leafnam|
00009e60 65 4f 6e 6c 79 28 62 58 24 29 3a c8 95 69 3c 3d |eOnly(bX$):..i<=|
00009e70 56 70 20 80 61 24 3c 3e 62 24 3a 61 24 3d a4 63 |Vp .a$<>b$:a$=.c|
00009e80 74 69 6f 6e 5f 4c 65 61 66 6e 61 6d 65 4f 6e 6c |tion_LeafnameOnl|
00009e90 79 28 56 56 24 28 69 29 29 3a 69 2b 3d 31 3a ce |y(VV$(i)):i+=1:.|
00009ea0 3a e7 61 24 3d 62 24 20 8c 0d 7f 76 4f 57 77 24 |:.a$=b$ ...vOWw$|
00009eb0 3d a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 |=.ction_TagToStr|
00009ec0 69 6e 67 28 56 6b 2c 22 77 61 72 30 31 22 29 3a |ing(Vk,"war01"):|
00009ed0 57 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 6f 72 74 |Wz=.ction_Report|
00009ee0 45 72 72 6f 72 28 55 6b 2c 39 39 2c 55 64 24 2c |Error(Uk,99,Ud$,|
00009ef0 57 77 24 2c b9 2c b9 29 0d 7f 94 0a cc 3a 57 7a |Ww$,.,.).....:Wz|
00009f00 3d 31 0d 7f bc 0d cd 3a e7 57 7a 3d 31 20 8c 0d |=1.....:.Wz=1 ..|
00009f10 7f e4 eb c8 99 26 34 30 36 43 30 3a 56 70 2b 3d |.....&406C0:Vp+=|
00009f20 31 3a 6a 6b 3d 31 3a c8 95 56 56 24 28 6a 6b 29 |1:jk=1:..VV$(jk)|
00009f30 3c 3e 22 22 3a 6a 6b 2b 3d 31 3a ce 3a 56 56 24 |<>"":jk+=1:.:VV$|
00009f40 28 6a 6b 29 3d 62 58 24 3a 62 58 24 2b 3d 22 2e |(jk)=bX$:bX$+=".|
00009f50 48 51 5f 4c 69 62 72 61 72 79 22 3a c8 99 26 32 |HQ_Library":..&2|
00009f60 39 2c 32 38 2c 62 58 24 2c 30 2c 30 20 b8 2c 2c |9,28,bX$,0,0 .,,|
00009f70 2c 6a 6c 3a e3 64 57 3d 30 20 b8 6a 6c 2d 31 3a |,jl:.dW=0 .jl-1:|
00009f80 c8 99 26 34 30 36 43 34 2c 28 64 57 2f 6a 6c 29 |..&406C4,(dW/jl)|
00009f90 2a 31 30 30 3a 63 79 3d 39 3a 64 55 3d 55 6b 3a |*100:cy=9:dU=Uk:|
00009fa0 64 56 3d 31 3a 64 58 3d 31 2a 31 30 32 34 3a c8 |dV=1:dX=1*1024:.|
00009fb0 99 26 43 2c 63 79 2c 62 58 24 2c 64 55 2c 64 56 |.&C,cy,bX$,dU,dV|
00009fc0 2c 64 57 2c 64 58 2c 22 22 20 b8 63 79 2c 63 7a |,dW,dX,"" .cy,cz|
00009fd0 2c 64 55 2c 64 56 2c 2c 64 58 2c 6a 6d 3a 6a 6e |,dU,dV,,dX,jm:jn|
00009fe0 24 3d a4 63 74 69 6f 6e 5f 45 78 74 72 61 63 74 |$=.ction_Extract|
00009ff0 53 74 72 69 6e 67 28 55 6b 29 0d 80 f2 28 e7 a4 |String(Uk)...(..|
0000a000 63 74 69 6f 6e 5f 54 79 70 65 4f 66 46 69 6c 65 |ction_TypeOfFile|
0000a010 28 62 58 24 2b 22 2e 22 2b 6a 6e 24 29 3d 55 67 |(bX$+"."+jn$)=Ug|
0000a020 20 8c 0d 80 fc 69 c8 99 26 44 2c 26 34 30 2c 62 | ....i..&D,&40,b|
0000a030 58 24 2b 22 2e 22 2b 6a 6e 24 2c 30 20 b8 6a 6f |X$+"."+jn$,0 .jo|
0000a040 3a c8 99 26 43 2c 33 2c 6a 6f 2c 55 6b 2c 31 36 |:..&C,3,jo,Uk,16|
0000a050 3a 6a 70 3d 55 6b 21 28 38 2b 34 29 3a c8 99 26 |:jp=Uk!(8+4):..&|
0000a060 44 2c 30 2c 6a 6f 3a 57 78 3d a4 63 74 69 6f 6e |D,0,jo:Wx=.ction|
0000a070 5f 41 64 64 54 6f 4c 69 6e 6b 65 64 4c 69 73 74 |_AddToLinkedList|
0000a080 28 6a 6e 24 2c 6a 70 2c 6a 6b 29 0d 81 2e 30 cd |(jn$,jp,jk)...0.|
0000a090 3a ed 64 57 3a c8 99 26 34 30 36 43 32 3a e7 a4 |:.dW:..&406C2:..|
0000a0a0 63 74 69 6f 6e 5f 57 69 6e 64 6f 77 49 73 4f 70 |ction_WindowIsOp|
0000a0b0 65 6e 28 55 6b 2c 57 6a 29 20 8c 0d 81 74 0e f2 |en(Uk,Wj) ...t..|
0000a0c0 59 5a 28 55 6b 2c 57 6a 29 0d 81 7e 05 cd 0d 81 |YZ(Uk,Wj)..~....|
0000a0d0 92 05 cd 0d 81 a6 07 cd 3a e1 0d 81 f6 e9 dd f2 |........:.......|
0000a0e0 61 61 3a 56 65 3d 38 3a 62 6d 3d 30 3a 62 70 3d |aa:Ve=8:bm=0:bp=|
0000a0f0 55 79 2b 31 36 2a 31 30 32 34 3a 62 71 3d 30 3a |Uy+16*1024:bq=0:|
0000a100 e3 6a 71 3d 31 20 b8 31 33 3a 21 28 55 6b 2b 6a |.jq=1 .13:!(Uk+j|
0000a110 71 2a 38 2b 30 29 20 3d 20 55 79 20 2b 20 62 6d |q*8+0) = Uy + bm|
0000a120 3a 63 56 24 3d a4 63 74 69 6f 6e 5f 54 61 67 54 |:cV$=.ction_TagT|
0000a130 6f 53 74 72 69 6e 67 28 56 6b 2c 22 69 6e 73 74 |oString(Vk,"inst|
0000a140 22 2b c2 22 30 30 22 2b c3 6a 71 2c 32 29 29 3a |"+."00"+.jq,2)):|
0000a150 f2 62 6e 28 c1 63 56 24 2c 31 2c 32 29 2c 32 30 |.bn(.cV$,1,2),20|
0000a160 38 2c 34 34 29 3a 6a 72 3d a4 63 74 69 6f 6e 5f |8,44):jr=.ction_|
0000a170 4e 75 6d 62 65 72 4f 66 45 6c 65 6d 65 6e 74 73 |NumberOfElements|
0000a180 49 6e 4c 69 73 74 3a f2 6a 73 3a 69 3d 31 3a 6a |InList:.js:i=1:j|
0000a190 74 3d 30 3a c8 95 69 3c 6a 72 3a 6a 70 3d a4 63 |t=0:..i<jr:jp=.c|
0000a1a0 74 69 6f 6e 5f 43 6c 61 73 73 4f 66 54 68 69 73 |tion_ClassOfThis|
0000a1b0 49 6e 73 74 72 75 6d 65 6e 74 3a e7 6a 70 3d 6a |Instrument:.jp=j|
0000a1c0 71 20 8c 0d 82 d2 64 6a 75 24 3d a4 63 74 69 6f |q ....dju$=.ctio|
0000a1d0 6e 5f 4e 61 6d 65 4f 66 54 68 69 73 49 6e 73 74 |n_NameOfThisInst|
0000a1e0 72 75 6d 65 6e 74 3a 6a 76 3d a4 63 74 69 6f 6e |rument:jv=.ction|
0000a1f0 5f 49 6e 73 74 72 75 6d 65 6e 74 73 4c 69 62 72 |_InstrumentsLibr|
0000a200 61 72 79 4c 69 6e 6b 3a 6a 74 2b 3d 31 3a f2 62 |aryLink:jt+=1:.b|
0000a210 74 28 c3 6a 76 2b 22 3a 22 2b 6a 75 24 2c 30 2c |t(.jv+":"+ju$,0,|
0000a220 2d 31 2c 20 ac b9 29 0d 82 fa 3f cd 3a f2 6a 77 |-1, ..)...?.:.jw|
0000a230 3a 69 2b 3d 31 3a ce 3a 21 28 55 6b 2b 6a 71 2a |:i+=1:.:!(Uk+jq*|
0000a240 38 2b 34 29 20 3d 20 28 6a 74 20 3d 20 30 29 3a |8+4) = (jt = 0):|
0000a250 e7 6a 74 3e 30 20 8c 21 28 55 79 2b 62 6d 2d 32 |.jt>0 .!(Uy+bm-2|
0000a260 34 29 3d 31 32 38 0d 83 4a 77 ed 6a 71 3a 63 70 |4)=128..Jw.jq:cp|
0000a270 3d 55 79 2b 62 6d 3a f2 62 6e 28 22 49 6e 73 74 |=Uy+bm:.bn("Inst|
0000a280 72 75 6d 65 6e 74 73 22 2c 32 38 38 2c 34 34 29 |ruments",288,44)|
0000a290 3a e3 6a 71 3d 31 20 b8 31 33 3a 63 56 24 3d a4 |:.jq=1 .13:cV$=.|
0000a2a0 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e |ction_TagToStrin|
0000a2b0 67 28 56 6b 2c 22 69 6e 73 74 22 2b c2 22 30 30 |g(Vk,"inst"+."00|
0000a2c0 22 2b c3 6a 71 2c 32 29 29 3a e7 6a 71 3d 31 33 |"+.jq,2)):.jq=13|
0000a2d0 20 8c 6a 78 3d 31 32 38 8b 6a 78 3d 30 0d 83 9a | .jx=128.jx=0...|
0000a2e0 5d f2 62 74 28 c1 63 56 24 2c 35 2c a9 63 56 24 |].bt(.cV$,5,.cV$|
0000a2f0 2d 35 29 2c 6a 78 2c 21 28 55 6b 2b 6a 71 2a 38 |-5),jx,!(Uk+jq*8|
0000a300 2b 30 29 2c 21 28 55 6b 2b 6a 71 2a 38 2b 34 29 |+0),!(Uk+jq*8+4)|
0000a310 29 3a ed 6a 71 3a c8 99 26 31 43 20 b8 58 58 2c |):.jq:..&1C .XX,|
0000a320 58 59 2c 6a 79 3a c8 99 26 34 30 30 44 34 2c 2c |XY,jy:..&400D4,,|
0000a330 63 70 2c 58 58 2c 58 59 3a e1 0d 84 3a 48 dd f2 |cp,XX,XY:...:H..|
0000a340 56 6f 3a 41 25 3d 55 7a 3a 42 25 3d 55 7a 2b 33 |Vo:A%=Uz:B%=Uz+3|
0000a350 32 2a 31 30 32 34 3a 43 25 3d 30 3a d6 65 71 3a |2*1024:C%=0:.eq:|
0000a360 55 7a 21 30 3d 30 3a 55 7a 3f 31 35 3d 30 3a 55 |Uz!0=0:Uz?15=0:U|
0000a370 7a 21 31 36 3d 30 3a 6a 7a 3d 31 3a 6b 55 3d 30 |z!16=0:jz=1:kU=0|
0000a380 3a e1 0d 84 c6 31 dd a4 63 74 69 6f 6e 5f 41 64 |:....1..ction_Ad|
0000a390 64 54 6f 4c 69 6e 6b 65 64 4c 69 73 74 28 6a 75 |dToLinkedList(ju|
0000a3a0 24 2c 6a 70 2c 63 72 29 3a e7 6a 7a 3c 31 36 33 |$,jp,cr):.jz<163|
0000a3b0 32 20 8c 0d 84 ee 6c 63 59 3d 55 7a 2b 6b 55 3a |2 ....lcY=Uz+kU:|
0000a3c0 6b 56 3d 31 3a 69 76 3d 20 ac b9 3a 6b 57 3d a4 |kV=1:iv= ..:kW=.|
0000a3d0 63 74 69 6f 6e 5f 46 69 72 73 74 46 72 65 65 52 |ction_FirstFreeR|
0000a3e0 65 63 6f 72 64 3a f5 3a 6b 58 24 3d a4 63 74 69 |ecord:.:kX$=.cti|
0000a3f0 6f 6e 5f 45 78 74 72 61 63 74 49 6e 73 74 72 75 |on_ExtractInstru|
0000a400 6d 65 6e 74 4e 61 6d 65 28 63 59 2b 35 29 3a e7 |mentName(cY+5):.|
0000a410 6a 75 24 3c 6b 58 24 20 84 6a 7a 3d 31 20 8c 0d |ju$<kX$ .jz=1 ..|
0000a420 85 5c 10 69 76 3d b9 3a f2 6b 59 28 6b 56 29 0d |.\.iv=.:.kY(kV).|
0000a430 85 7a 1b cc 3a 6b 5a 3d 63 59 21 31 36 3a 63 59 |.z..:kZ=cY!16:cY|
0000a440 2b 3d 6b 5a 3a 6b 56 2b 3d 31 0d 85 b6 19 cd 3a |+=kZ:kV+=1.....:|
0000a450 fd 69 76 20 84 6b 56 3e 6a 7a 3a e7 6b 56 3e 6a |.iv .kV>jz:.kV>j|
0000a460 7a 20 8c 0d 85 e8 0b f2 6b 59 28 6b 56 29 0d 85 |z ......kY(kV)..|
0000a470 f2 0a cd 3a 57 78 3d b9 0d 86 1a 0c cc 3a 57 78 |...:Wx=......:Wx|
0000a480 3d 20 ac b9 0d 86 42 09 cd 3a 3d 57 78 0d 86 74 |= ....B..:=Wx..t|
0000a490 14 dd f2 6b 59 28 6b 61 29 3a e7 6b 61 3d 31 20 |...kY(ka):.ka=1 |
0000a4a0 8c 0d 86 9c 0b e7 6a 7a 3e 31 20 8c 0d 86 a6 0e |......jz>1 .....|
0000a4b0 63 59 21 30 3d 6b 57 2d 63 59 0d 86 b0 43 cd 3a |cY!0=kW-cY...C.:|
0000a4c0 6b 57 21 30 3d 30 3a 6b 57 3f 34 3d 6a 70 3a 24 |kW!0=0:kW?4=jp:$|
0000a4d0 28 6b 57 2b 35 29 3d 6a 75 24 3a 6b 57 3f 31 35 |(kW+5)=ju$:kW?15|
0000a4e0 3d 63 72 3a 6b 57 21 31 36 3d 6b 55 2d 28 6b 57 |=cr:kW!16=kU-(kW|
0000a4f0 2d 55 7a 29 3a 6b 55 3d 6b 57 2d 55 7a 0d 87 14 |-Uz):kU=kW-Uz...|
0000a500 0e cc 3a e7 6b 61 3e 6a 7a 20 8c 0d 87 3c 3f 63 |..:.ka>jz ...<?c|
0000a510 59 21 31 36 3d 6b 57 2d 63 59 3a 6b 57 21 30 3d |Y!16=kW-cY:kW!0=|
0000a520 63 59 2d 6b 57 3a 6b 57 3f 34 3d 6a 70 3a 24 28 |cY-kW:kW?4=jp:$(|
0000a530 6b 57 2b 35 29 3d 6a 75 24 3a 6b 57 3f 31 35 3d |kW+5)=ju$:kW?15=|
0000a540 63 72 3a 6b 57 21 31 36 3d 30 0d 87 96 5b cc 3a |cr:kW!16=0...[.:|
0000a550 6b 62 3d 63 59 2b 63 59 21 30 3a 6b 62 21 31 36 |kb=cY+cY!0:kb!16|
0000a560 3d 6b 57 2d 6b 62 3a 6b 57 21 30 3d 6b 62 2d 6b |=kW-kb:kW!0=kb-k|
0000a570 57 3a 6b 57 3f 34 3d 6a 70 3a 24 28 6b 57 2b 35 |W:kW?4=jp:$(kW+5|
0000a580 29 3d 6a 75 24 3a 6b 57 3f 31 35 3d 63 72 3a 6b |)=ju$:kW?15=cr:k|
0000a590 57 21 31 36 3d 63 59 2d 6b 57 3a 63 59 21 30 3d |W!16=cY-kW:cY!0=|
0000a5a0 6b 57 2d 63 59 0d 88 18 05 cd 0d 88 2c 0d cd 3a |kW-cY.......,..:|
0000a5b0 6a 7a 2b 3d 31 3a e1 0d 88 90 37 dd f2 6b 63 28 |jz+=1:....7..kc(|
0000a5c0 63 72 29 3a f5 3a 63 59 3d 55 7a 2b 6b 55 3a 6b |cr):.:cY=Uz+kU:k|
0000a5d0 56 3d 31 3a 69 76 3d 20 ac b9 3a f5 3a 6b 64 3d |V=1:iv= ..:.:kd=|
0000a5e0 63 59 3f 31 35 3a e7 6b 64 3d 63 72 20 8c 0d 89 |cY?15:.kd=cr ...|
0000a5f0 1c 19 63 59 3f 31 35 3d 30 3a 6a 7a 2d 3d 31 3a |..cY?15=0:jz-=1:|
0000a600 e7 6b 56 3d 31 20 8c 0d 89 4e 18 6b 55 2b 3d 63 |.kV=1 ...N.kU+=c|
0000a610 59 21 31 36 3a 21 28 55 7a 2b 6b 55 29 3d 30 0d |Y!16:!(Uz+kU)=0.|
0000a620 89 6c 0e cc 3a e7 6b 56 3d 6a 7a 20 8c 0d 89 94 |.l..:.kV=jz ....|
0000a630 16 6b 65 3d 63 59 2b 63 59 21 30 3a 6b 65 21 31 |.ke=cY+cY!0:ke!1|
0000a640 36 3d 30 0d 89 b2 33 cc 3a 6b 62 3d 63 59 2b 63 |6=0...3.:kb=cY+c|
0000a650 59 21 30 3a 6b 66 3d 63 59 2b 63 59 21 31 36 3a |Y!0:kf=cY+cY!16:|
0000a660 6b 62 21 31 36 3d 6b 66 2d 6b 62 3a 6b 66 21 30 |kb!16=kf-kb:kf!0|
0000a670 3d 6b 62 2d 6b 66 0d 89 f8 05 cd 0d 8a 0c 0a cd |=kb-kf..........|
0000a680 3a 69 76 3d b9 0d 8a 34 3d cd 3a 6b 5a 3d 63 59 |:iv=...4=.:kZ=cY|
0000a690 21 31 36 3a 63 59 2b 3d 6b 5a 3a 6b 56 2b 3d 31 |!16:cY+=kZ:kV+=1|
0000a6a0 3a fd 69 76 20 84 6b 56 3e 6a 7a 3a fd 20 ac 69 |:.iv .kV>jz:. .i|
0000a6b0 76 20 84 6a 7a 3d 31 3a e7 6a 7a 3d 31 20 8c f2 |v .jz=1:.jz=1 ..|
0000a6c0 56 6f 0d 8a ac 05 e1 0d 8a e8 26 dd a4 63 74 69 |Vo........&..cti|
0000a6d0 6f 6e 5f 4e 75 6d 62 65 72 4f 66 45 6c 65 6d 65 |on_NumberOfEleme|
0000a6e0 6e 74 73 49 6e 4c 69 73 74 3a 3d 6a 7a 0d 8b 2e |ntsInList:=jz...|
0000a6f0 13 dd f2 6a 73 3a 6b 67 3d 55 7a 2b 6b 55 3a e1 |...js:kg=Uz+kU:.|
0000a700 0d 8b 60 4c dd a4 63 74 69 6f 6e 5f 4e 61 6d 65 |..`L..ction_Name|
0000a710 4f 66 54 68 69 73 49 6e 73 74 72 75 6d 65 6e 74 |OfThisInstrument|
0000a720 3a 6a 75 24 3d a4 63 74 69 6f 6e 5f 45 78 74 72 |:ju$=.ction_Extr|
0000a730 61 63 74 49 6e 73 74 72 75 6d 65 6e 74 4e 61 6d |actInstrumentNam|
0000a740 65 28 6b 67 2b 35 29 3a 3d 6a 75 24 0d 8b 92 27 |e(kg+5):=ju$...'|
0000a750 dd a4 63 74 69 6f 6e 5f 43 6c 61 73 73 4f 66 54 |..ction_ClassOfT|
0000a760 68 69 73 49 6e 73 74 72 75 6d 65 6e 74 3a 3d 6b |hisInstrument:=k|
0000a770 67 3f 34 0d 8b ba 29 dd a4 63 74 69 6f 6e 5f 49 |g?4...)..ction_I|
0000a780 6e 73 74 72 75 6d 65 6e 74 73 4c 69 62 72 61 72 |nstrumentsLibrar|
0000a790 79 4c 69 6e 6b 3a 3d 6b 67 3f 31 35 0d 8b e2 14 |yLink:=kg?15....|
0000a7a0 dd f2 6a 77 3a 6b 67 2b 3d 6b 67 21 31 36 3a e1 |..jw:kg+=kg!16:.|
0000a7b0 0d 8c 32 64 dd a4 63 74 69 6f 6e 5f 45 78 74 72 |..2d..ction_Extr|
0000a7c0 61 63 74 49 6e 73 74 72 75 6d 65 6e 74 4e 61 6d |actInstrumentNam|
0000a7d0 65 28 63 59 29 3a ea 6b 68 24 3a 6b 68 24 3d 22 |e(cY):.kh$:kh$="|
0000a7e0 22 3a c8 95 3f 63 59 3e 33 31 20 80 3f 63 59 3c |":..?cY>31 .?cY<|
0000a7f0 3e 32 35 35 20 80 a9 6b 68 24 3c 31 30 3a 6b 68 |>255 ..kh$<10:kh|
0000a800 24 2b 3d bd 3f 63 59 3a 63 59 2b 3d 31 3a ce 3a |$+=.?cY:cY+=1:.:|
0000a810 3d 6b 68 24 0d 8c 96 39 dd a4 63 74 69 6f 6e 5f |=kh$...9..ction_|
0000a820 46 69 72 73 74 46 72 65 65 52 65 63 6f 72 64 3a |FirstFreeRecord:|
0000a830 64 63 3d 55 7a 3a c8 95 64 63 3f 31 35 3c 3e 30 |dc=Uz:..dc?15<>0|
0000a840 3a 64 63 2b 3d 32 30 3a ce 3a 3d 64 63 0d 8d 04 |:dc+=20:.:=dc...|
0000a850 41 dd f2 61 77 3a 6b 69 3d 61 73 2d 61 76 3a 6b |A..aw:ki=as-av:k|
0000a860 6a 3d 61 74 2b 61 76 3a 69 3d 31 3a 6b 69 2d 3d |j=at+av:i=1:ki-=|
0000a870 69 2a 34 38 3a ef 35 3a c8 95 28 69 3c 3d 56 55 |i*48:.5:..(i<=VU|
0000a880 29 3a e7 56 56 24 28 69 29 3d 22 22 20 8c 0d 8d |):.VV$(i)="" ...|
0000a890 72 19 5a 78 24 3d 22 20 2d 20 46 52 45 45 20 2d |r.Zx$=" - FREE -|
0000a8a0 20 22 3a 6b 6b 3d 32 0d 8d 86 25 cc 3a 5a 78 24 | ":kk=2...%.:Zx$|
0000a8b0 3d c2 56 56 24 28 69 29 2c 31 30 29 3a 6b 6b 3d |=.VV$(i),10):kk=|
0000a8c0 37 2b 94 28 56 57 28 69 29 2a 34 29 0d 8d a4 5b |7+.(VW(i)*4)...[|
0000a8d0 cd 3a 78 3d 61 72 3a 79 3d 6b 69 2b 33 32 3a c8 |.:x=ar:y=ki+32:.|
0000a8e0 99 26 34 30 30 45 36 2c 6b 6b 3a 63 61 24 3d c2 |.&400E6,kk:ca$=.|
0000a8f0 22 20 20 20 22 2b c3 28 69 29 2c 33 29 2b 22 20 |" "+.(i),3)+" |
0000a900 3a 20 2e 2e 2e 22 2b 5a 78 24 3a ec 78 2c 79 3a |: ..."+Zx$:.x,y:|
0000a910 f1 63 61 24 3a 69 2b 3d 31 3a 6b 69 2d 3d 34 38 |.ca$:i+=1:ki-=48|
0000a920 3a ce 3a ef 34 3a e1 0d 8e 4e 88 dd f2 58 74 28 |:.:.4:...N...Xt(|
0000a930 58 57 2c 6b 6c 29 3a 58 58 3d 58 57 21 30 3a 58 |XW,kl):XX=XW!0:X|
0000a940 59 3d 58 57 21 34 3a 55 6b 21 30 3d 57 6a 3a c8 |Y=XW!4:Uk!0=Wj:.|
0000a950 99 26 34 30 30 43 43 2c 2c 55 6b 3a 61 73 3d 55 |.&400CC,,Uk:as=U|
0000a960 6b 21 28 31 32 2b 34 29 3a 61 76 3d 55 6b 21 28 |k!(12+4):av=Uk!(|
0000a970 32 30 2b 34 29 3a 6b 6d 3d 94 28 28 28 58 59 2d |20+4):km=.(((XY-|
0000a980 61 73 29 2b 61 76 29 29 3a 6b 6e 3d 28 28 6b 6d |as)+av)):kn=((km|
0000a990 29 20 81 34 38 29 2b 31 3a e7 6b 6e 3c 3d 56 55 |) .48)+1:.kn<=VU|
0000a9a0 20 80 56 56 24 28 6b 6e 29 3c 3e 22 22 20 8c 0d | .VV$(kn)<>"" ..|
0000a9b0 8e da 11 e7 6b 6c 20 8c 56 57 28 29 3d 20 ac b9 |....kl .VW()= ..|
0000a9c0 0d 8e ee 1e 56 57 28 6b 6e 29 3d 20 ac 56 57 28 |....VW(kn)= .VW(|
0000a9d0 6b 6e 29 3a f2 59 5a 28 55 6b 2c 57 6a 29 0d 8f |kn):.YZ(Uk,Wj)..|
0000a9e0 16 07 cd 3a e1 0d 8f 66 20 dd f2 58 73 3a 6b 6f |...:...f ..Xs:ko|
0000a9f0 3d 31 3a c8 95 6b 6f 3c 3d 56 55 3a e7 56 57 28 |=1:..ko<=VU:.VW(|
0000aa00 6b 6f 29 20 8c 0d 8f b6 1c f2 6b 63 28 6b 6f 29 |ko) ......kc(ko)|
0000aa10 3a 56 56 24 28 6b 6f 29 3d 22 22 3a 56 70 2d 3d |:VV$(ko)="":Vp-=|
0000aa20 31 0d 8f de 23 cd 3a 6b 6f 2b 3d 31 3a ce 3a 56 |1...#.:ko+=1:.:V|
0000aa30 57 28 29 3d 20 ac b9 3a f2 59 5a 28 55 6b 2c 57 |W()= ..:.YZ(Uk,W|
0000aa40 6a 29 3a e1 0d 90 ba 16 dd f2 63 78 28 62 58 24 |j):.......cx(bX$|
0000aa50 2c 6b 70 29 3a e7 56 61 20 8c 0d 90 e2 4f 57 77 |,kp):.Va ....OWw|
0000aa60 24 3d a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 |$=.ction_TagToSt|
0000aa70 72 69 6e 67 28 56 6b 2c 22 77 61 72 30 38 22 29 |ring(Vk,"war08")|
0000aa80 3a 57 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 6f 72 |:Wz=.ction_Repor|
0000aa90 74 45 72 72 6f 72 28 55 6b 2c 39 39 2c 55 64 24 |tError(Uk,99,Ud$|
0000aaa0 2c 57 77 24 2c b9 2c b9 29 0d 91 00 0a cc 3a 57 |,Ww$,.,.).....:W|
0000aab0 7a 3d 31 0d 91 28 0d cd 3a e7 57 7a 3d 31 20 8c |z=1..(..:.Wz=1 .|
0000aac0 0d 91 50 15 ea 85 3a 6b 71 3d 2d 31 3a ee 85 ea |..P...:kq=-1:...|
0000aad0 f2 6b 72 3a e1 0d 91 6e 4c c8 99 26 34 30 36 43 |.kr:...nL..&406C|
0000aae0 30 3a 5a 78 24 3d a4 63 74 69 6f 6e 5f 50 61 74 |0:Zx$=.ction_Pat|
0000aaf0 68 6e 61 6d 65 4f 6e 6c 79 28 62 58 24 29 3a 5a |hnameOnly(bX$):Z|
0000ab00 7a 24 3d a4 63 74 69 6f 6e 5f 4c 65 61 66 6e 61 |z$=.ction_Leafna|
0000ab10 6d 65 4f 6e 6c 79 28 62 58 24 29 3a e7 6b 70 20 |meOnly(bX$):.kp |
0000ab20 8c 0d 91 a0 1c e3 65 70 3d 31 20 b8 56 58 3a e7 |......ep=1 .VX:.|
0000ab30 56 59 24 28 65 70 29 3c 3e 22 22 20 8c 0d 91 b4 |VY$(ep)<>"" ....|
0000ab40 25 f2 61 62 28 a4 63 74 69 6f 6e 5f 4c 65 61 66 |%.ab(.ction_Leaf|
0000ab50 6e 61 6d 65 4f 6e 6c 79 28 56 59 24 28 65 70 29 |nameOnly(VY$(ep)|
0000ab60 29 29 0d 91 be 09 cd 3a ed 65 70 0d 91 d2 0b cd |)).....:.ep.....|
0000ab70 3a e7 6b 70 20 8c 0d 91 f0 2a 6b 73 3d a4 63 74 |:.kp ....*ks=.ct|
0000ab80 69 6f 6e 5f 53 69 7a 65 4f 66 46 69 6c 65 28 62 |ion_SizeOfFile(b|
0000ab90 58 24 2b 22 2e 4d 75 73 69 63 44 61 74 61 22 29 |X$+".MusicData")|
0000aba0 0d 91 fa 1f cc 3a 6b 73 3d a4 63 74 69 6f 6e 5f |.....:ks=.ction_|
0000abb0 53 69 7a 65 4f 66 46 69 6c 65 28 62 58 24 29 0d |SizeOfFile(bX$).|
0000abc0 92 0e 27 cd 3a e7 20 ac a4 63 74 69 6f 6e 5f 41 |..'.:. ..ction_A|
0000abd0 6c 6c 6f 63 61 74 65 4d 65 6d 6f 72 79 28 6b 73 |llocateMemory(ks|
0000abe0 2b 31 36 29 20 8c 0d 92 36 51 57 77 24 3d a4 63 |+16) ...6QWw$=.c|
0000abf0 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 |tion_TagToString|
0000ac00 28 56 6b 2c 22 65 72 72 31 32 22 29 3a 57 7a 3d |(Vk,"err12"):Wz=|
0000ac10 a4 63 74 69 6f 6e 5f 52 65 70 6f 72 74 45 72 72 |.ction_ReportErr|
0000ac20 6f 72 28 55 6b 2c 39 39 2c 55 64 24 2c 57 77 24 |or(Uk,99,Ud$,Ww$|
0000ac30 2c 20 ac b9 2c b9 29 0d 92 54 19 cc 3a 6b 74 3d |, ..,.)..T..:kt=|
0000ac40 93 3a 6a 78 3d 6b 74 2b 6b 73 3a e7 6b 70 20 8c |.:jx=kt+ks:.kp .|
0000ac50 0d 92 86 23 ff 22 4c 6f 61 64 20 22 2b 62 58 24 |...#."Load "+bX$|
0000ac60 2b 22 2e 4d 75 73 69 63 44 61 74 61 20 22 2b c3 |+".MusicData "+.|
0000ac70 7e 6b 74 0d 92 90 1b cc 3a ff 22 4c 6f 61 64 20 |~kt.....:."Load |
0000ac80 22 2b 62 58 24 2b 22 20 22 2b c3 7e 6b 74 0d 92 |"+bX$+" "+.~kt..|
0000ac90 a4 23 cd 3a 6a 78 21 34 3d 31 2a 31 30 32 34 3a |.#.:jx!4=1*1024:|
0000aca0 57 77 3d 20 ac b9 3a e7 20 ac 57 77 20 8c f2 6b |Ww= ..:. .Ww ..k|
0000acb0 75 0d 92 d6 0e e7 20 ac 57 77 20 8c f2 6b 76 0d |u..... .Ww ..kv.|
0000acc0 92 e0 0e e7 20 ac 57 77 20 8c f2 6b 77 0d 92 ea |.... .Ww ..kw...|
0000acd0 0e e7 20 ac 57 77 20 8c f2 6b 78 0d 92 f4 0e e7 |.. .Ww ..kx.....|
0000ace0 20 ac 57 77 20 8c f2 6b 79 0d 92 fe 0e e7 20 ac | .Ww ..ky..... .|
0000acf0 57 77 20 8c f2 6b 7a 0d 93 08 0e e7 20 ac 57 77 |Ww ..kz..... .Ww|
0000ad00 20 8c f2 6c 55 0d 93 12 0e e7 20 ac 57 77 20 8c | ..lU..... .Ww .|
0000ad10 f2 6c 56 0d 93 1c 0e e7 20 ac 57 77 20 8c f2 6c |.lV..... .Ww ..l|
0000ad20 57 0d 93 30 16 f2 58 69 3a e7 20 ac 57 77 20 80 |W..0..Xi:. .Ww .|
0000ad30 6b 70 20 8c f2 6c 58 0d 93 4e 0e e7 20 ac 57 77 |kp ..lX..N.. .Ww|
0000ad40 20 8c f2 6c 59 0d 93 62 2c e7 6b 70 20 8c f2 65 | ..lY..b,.kp ..e|
0000ad50 73 28 55 6b 2c 57 64 2c a4 63 74 69 6f 6e 5f 4c |s(Uk,Wd,.ction_L|
0000ad60 65 61 66 6e 61 6d 65 4f 6e 6c 79 28 62 58 24 29 |eafnameOnly(bX$)|
0000ad70 29 0d 93 6c 19 e7 6b 70 20 8c f2 61 55 28 55 6b |)..l..kp ..aU(Uk|
0000ad80 2c 58 7a 2c 31 2c 62 58 24 29 0d 93 76 07 f2 6c |,Xz,1,bX$)..v..l|
0000ad90 5a 0d 93 8a 25 cd 3a e7 20 ac a4 63 74 69 6f 6e |Z...%.:. ..ction|
0000ada0 5f 57 69 6e 64 6f 77 49 73 4f 70 65 6e 28 55 6b |_WindowIsOpen(Uk|
0000adb0 2c 57 64 29 20 8c 0d 93 a8 2d f2 58 66 28 55 6b |,Wd) ....-.Xf(Uk|
0000adc0 2c 57 64 29 3a f2 57 65 28 55 6b 2c 57 64 2c 57 |,Wd):.We(Uk,Wd,W|
0000add0 66 2c 30 2c 30 29 3a f2 58 67 28 57 64 2c 2d 31 |f,0,0):.Xg(Wd,-1|
0000ade0 2c 30 29 0d 93 c6 53 cc 3a 55 6b 21 30 3d 57 64 |,0)...S.:Uk!0=Wd|
0000adf0 3a c8 99 26 34 30 30 43 42 2c 2c 55 6b 3a c8 99 |:..&400CB,,Uk:..|
0000ae00 26 34 30 30 43 36 2c 2c 55 6b 3a c8 99 26 34 30 |&400C6,,Uk:..&40|
0000ae10 30 43 35 2c 2c 55 6b 3a f2 57 65 28 55 6b 2c 57 |0C5,,Uk:.We(Uk,W|
0000ae20 64 2c 57 66 2c 30 2c 30 29 3a f2 58 67 28 57 64 |d,Wf,0,0):.Xg(Wd|
0000ae30 2c 2d 31 2c 30 29 0d 94 0c 18 cd 3a 56 61 3d 20 |,-1,0).....:Va= |
0000ae40 ac b9 3a c8 99 26 34 30 36 43 31 3a f7 85 0d 94 |..:..&406C1:....|
0000ae50 52 07 cd 3a e1 0d 94 a2 7c dd f2 6b 72 3a c8 99 |R..:....|..kr:..|
0000ae60 26 34 30 36 43 32 3a 57 77 24 3d a4 63 74 69 6f |&406C2:Ww$=.ctio|
0000ae70 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 56 6b |n_TagToString(Vk|
0000ae80 2c 22 65 72 72 31 31 22 29 3a 57 7a 3d a4 63 74 |,"err11"):Wz=.ct|
0000ae90 69 6f 6e 5f 52 65 70 6f 72 74 45 72 72 6f 72 28 |ion_ReportError(|
0000aea0 55 6b 2c 39 39 2c 55 64 24 2c 57 77 24 2b f6 24 |Uk,99,Ud$,Ww$+.$|
0000aeb0 2b 22 20 28 22 2b c3 9e 2b 22 29 22 2c 20 ac b9 |+" ("+..+")", ..|
0000aec0 2c b9 29 3a e7 6b 71 3c 3e 2d 31 20 8c d9 23 6b |,.):.kq<>-1 ..#k|
0000aed0 71 0d 94 d4 05 e1 0d 95 10 b3 dd a4 63 74 69 6f |q...........ctio|
0000aee0 6e 5f 46 69 6e 64 49 46 46 28 6c 61 2c 6c 62 2c |n_FindIFF(la,lb,|
0000aef0 6c 63 24 29 3a 6c 64 24 3d c1 6c 63 24 2c 31 2c |lc$):ld$=.lc$,1,|
0000af00 31 29 3a 6c 64 3d 28 97 6c 64 24 29 3a 6c 65 24 |1):ld=(.ld$):le$|
0000af10 3d c1 6c 63 24 2c 32 2c 31 29 3a 6c 65 3d 28 97 |=.lc$,2,1):le=(.|
0000af20 6c 65 24 29 3c 3c 38 3a 6c 66 24 3d c1 6c 63 24 |le$)<<8:lf$=.lc$|
0000af30 2c 33 2c 31 29 3a 6c 66 3d 28 97 6c 66 24 29 3c |,3,1):lf=(.lf$)<|
0000af40 3c 31 36 3a 6c 67 24 3d c1 6c 63 24 2c 34 2c 31 |<16:lg$=.lc$,4,1|
0000af50 29 3a 6c 67 3d 28 97 6c 67 24 29 3c 3c 32 34 3a |):lg=(.lg$)<<24:|
0000af60 41 25 3d 6c 64 2b 6c 65 2b 6c 66 2b 6c 67 3a 69 |A%=ld+le+lf+lg:i|
0000af70 76 3d 20 ac b9 3a f5 3a 6c 68 25 3d 21 6c 61 3a |v= ..:.:lh%=!la:|
0000af80 e7 6c 68 25 3d 41 25 20 8c 0d 95 74 08 69 76 3d |.lh%=A% ...t.iv=|
0000af90 b9 0d 95 7e 19 cc 3a 6c 61 2b 3d 34 3a 6c 61 2b |...~..:la+=4:la+|
0000afa0 3d 21 6c 61 3a 6c 61 2b 3d 34 0d 95 a6 20 cd 3a |=!la:la+=4... .:|
0000afb0 fd 69 76 20 84 28 6c 61 3e 3d 6c 62 29 3a e7 20 |.iv .(la>=lb):. |
0000afc0 ac 69 76 20 8c 6c 61 3d 2d 31 0d 95 c4 07 3d 6c |.iv .la=-1....=l|
0000afd0 61 0d 95 e2 51 dd a4 63 74 69 6f 6e 5f 4e 75 6d |a...Q..ction_Num|
0000afe0 62 65 72 4f 66 49 46 46 73 28 6c 69 2c 6c 6a 2c |berOfIFFs(li,lj,|
0000aff0 6c 63 24 29 3a 64 62 3d 30 3a f5 3a 6b 68 3d a4 |lc$):db=0:.:kh=.|
0000b000 63 74 69 6f 6e 5f 46 69 6e 64 49 46 46 28 6c 69 |ction_FindIFF(li|
0000b010 2c 6c 6a 2c 6c 63 24 29 3a e7 6b 68 3c 3e 2d 31 |,lj,lc$):.kh<>-1|
0000b020 20 8c 0d 96 14 1c 64 62 2b 3d 31 3a 6c 6b 3d 6b | .....db+=1:lk=k|
0000b030 68 21 34 3a 6c 69 3d 6b 68 2b 38 2b 6c 6b 0d 96 |h!4:li=kh+8+lk..|
0000b040 32 10 cd 3a fd 6b 68 3d 2d 31 3a 3d 64 62 0d 96 |2..:.kh=-1:=db..|
0000b050 64 5c dd a4 63 74 69 6f 6e 5f 50 6f 69 6e 74 65 |d\..ction_Pointe|
0000b060 72 54 6f 4e 74 68 49 46 46 28 6c 69 2c 6c 6a 2c |rToNthIFF(li,lj,|
0000b070 6c 63 24 2c 6c 6c 29 3a 6b 56 3d 30 3a f5 3a 6c |lc$,ll):kV=0:.:l|
0000b080 69 3d a4 63 74 69 6f 6e 5f 46 69 6e 64 49 46 46 |i=.ction_FindIFF|
0000b090 28 6c 69 2c 6c 6a 2c 6c 63 24 29 3a 6b 56 2b 3d |(li,lj,lc$):kV+=|
0000b0a0 31 3a e7 6b 56 3c 6c 6c 20 8c 0d 96 a0 16 6c 6b |1:.kV<ll .....lk|
0000b0b0 3d 6c 69 21 34 3a 6c 69 3d 6c 69 2b 38 2b 6c 6b |=li!4:li=li+8+lk|
0000b0c0 0d 96 b4 10 cd 3a fd 6b 56 3d 6c 6c 3a 3d 6c 69 |.....:.kV=ll:=li|
0000b0d0 0d 97 04 35 dd f2 6b 75 3a 6c 6d 3d a4 63 74 69 |...5..ku:lm=.cti|
0000b0e0 6f 6e 5f 46 69 6e 64 49 46 46 28 6b 74 2b 34 2c |on_FindIFF(kt+4,|
0000b0f0 6a 78 2d 34 2c 22 46 72 6d 74 22 29 3a e7 6c 6d |jx-4,"Frmt"):.lm|
0000b100 3d 2d 31 20 8c 0d 97 22 56 57 77 24 3d a4 63 74 |=-1 ..."VWw$=.ct|
0000b110 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 |ion_TagToString(|
0000b120 56 6b 2c 22 65 72 72 31 33 22 29 3a 57 7a 3d a4 |Vk,"err13"):Wz=.|
0000b130 63 74 69 6f 6e 5f 52 65 70 6f 72 74 45 72 72 6f |ction_ReportErro|
0000b140 72 28 55 6b 2c 39 39 2c 55 64 24 2c 57 77 24 2c |r(Uk,99,Ud$,Ww$,|
0000b150 20 ac b9 2c b9 29 3a 57 77 3d b9 0d 97 40 17 cc | ..,.):Ww=...@..|
0000b160 3a e7 6c 6d 21 38 3c 3e 31 2e 30 30 2a 31 30 30 |:.lm!8<>1.00*100|
0000b170 20 8c 0d 97 54 51 57 77 24 3d a4 63 74 69 6f 6e | ...TQWw$=.ction|
0000b180 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c |_TagToString(Vk,|
0000b190 22 65 72 72 31 34 22 29 3a 57 7a 3d a4 63 74 69 |"err14"):Wz=.cti|
0000b1a0 6f 6e 5f 52 65 70 6f 72 74 45 72 72 6f 72 28 55 |on_ReportError(U|
0000b1b0 6b 2c 39 39 2c 55 64 24 2c 57 77 24 2c 20 ac b9 |k,99,Ud$,Ww$, ..|
0000b1c0 2c b9 29 0d 97 68 05 cd 0d 97 72 07 cd 3a e1 0d |,.)..h....r..:..|
0000b1d0 97 9a 35 dd f2 6b 76 3a 6c 6e 3d a4 63 74 69 6f |..5..kv:ln=.ctio|
0000b1e0 6e 5f 46 69 6e 64 49 46 46 28 6b 74 2b 34 2c 6a |n_FindIFF(kt+4,j|
0000b1f0 78 2d 34 2c 22 50 4d 6f 64 22 29 3a e7 6c 6e 3d |x-4,"PMod"):.ln=|
0000b200 2d 31 20 8c 0d 97 b8 56 57 77 24 3d a4 63 74 69 |-1 ....VWw$=.cti|
0000b210 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 56 |on_TagToString(V|
0000b220 6b 2c 22 65 72 72 31 35 22 29 3a 57 7a 3d a4 63 |k,"err15"):Wz=.c|
0000b230 74 69 6f 6e 5f 52 65 70 6f 72 74 45 72 72 6f 72 |tion_ReportError|
0000b240 28 55 6b 2c 39 39 2c 55 64 24 2c 57 77 24 2c 20 |(Uk,99,Ud$,Ww$, |
0000b250 ac b9 2c b9 29 3a 57 77 3d b9 0d 97 d6 17 cc 3a |..,.):Ww=......:|
0000b260 e7 6c 6e 21 38 3c 3e 31 2e 30 30 2a 31 30 30 20 |.ln!8<>1.00*100 |
0000b270 8c 0d 97 ea 51 57 77 24 3d a4 63 74 69 6f 6e 5f |....QWw$=.ction_|
0000b280 54 61 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 |TagToString(Vk,"|
0000b290 65 72 72 31 36 22 29 3a 57 7a 3d a4 63 74 69 6f |err16"):Wz=.ctio|
0000b2a0 6e 5f 52 65 70 6f 72 74 45 72 72 6f 72 28 55 6b |n_ReportError(Uk|
0000b2b0 2c 39 39 2c 55 64 24 2c 57 77 24 2c 20 ac b9 2c |,99,Ud$,Ww$, ..,|
0000b2c0 b9 29 0d 97 fe 05 cd 0d 98 08 07 cd 3a e1 0d 98 |.)..........:...|
0000b2d0 30 35 dd f2 6b 77 3a 6c 6f 3d a4 63 74 69 6f 6e |05..kw:lo=.ction|
0000b2e0 5f 46 69 6e 64 49 46 46 28 6b 74 2b 34 2c 6a 78 |_FindIFF(kt+4,jx|
0000b2f0 2d 34 2c 22 54 69 74 6c 22 29 3a e7 6c 6f 3d 2d |-4,"Titl"):.lo=-|
0000b300 31 20 8c 0d 98 4e 61 57 77 24 3d a4 63 74 69 6f |1 ...NaWw$=.ctio|
0000b310 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 56 6b |n_TagToString(Vk|
0000b320 2c 22 65 72 72 31 37 22 29 3a 57 7a 3d a4 63 74 |,"err17"):Wz=.ct|
0000b330 69 6f 6e 5f 52 65 70 6f 72 74 45 72 72 6f 72 28 |ion_ReportError(|
0000b340 55 6b 2c 39 39 2c 55 64 24 2c 57 77 24 2c 20 ac |Uk,99,Ud$,Ww$, .|
0000b350 b9 2c b9 29 3a 6c 6f 24 3d 22 3c 75 6e 6b 6e 6f |.,.):lo$="<unkno|
0000b360 77 6e 3e 22 0d 98 6c 2b cc 3a 6c 6f 24 3d c0 a4 |wn>"..l+.:lo$=..|
0000b370 63 74 69 6f 6e 5f 45 78 74 72 61 63 74 53 74 72 |ction_ExtractStr|
0000b380 69 6e 67 28 6c 6f 2b 38 29 2c 6c 6f 21 34 29 0d |ing(lo+8),lo!4).|
0000b390 98 80 18 cd 3a f2 61 55 28 55 6b 2c 5a 77 2c 32 |....:.aU(Uk,Zw,2|
0000b3a0 2c 6c 6f 24 29 3a e1 0d 98 b2 35 dd f2 6b 78 3a |,lo$):....5..kx:|
0000b3b0 6c 70 3d a4 63 74 69 6f 6e 5f 46 69 6e 64 49 46 |lp=.ction_FindIF|
0000b3c0 46 28 6b 74 2b 34 2c 6a 78 2d 34 2c 22 41 75 74 |F(kt+4,jx-4,"Aut|
0000b3d0 68 22 29 3a e7 6c 70 3d 2d 31 20 8c 0d 98 d0 61 |h"):.lp=-1 ....a|
0000b3e0 57 77 24 3d a4 63 74 69 6f 6e 5f 54 61 67 54 6f |Ww$=.ction_TagTo|
0000b3f0 53 74 72 69 6e 67 28 56 6b 2c 22 65 72 72 31 38 |String(Vk,"err18|
0000b400 22 29 3a 57 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 |"):Wz=.ction_Rep|
0000b410 6f 72 74 45 72 72 6f 72 28 55 6b 2c 39 39 2c 55 |ortError(Uk,99,U|
0000b420 64 24 2c 57 77 24 2c 20 ac b9 2c b9 29 3a 6c 70 |d$,Ww$, ..,.):lp|
0000b430 24 3d 22 3c 75 6e 6b 6e 6f 77 6e 3e 22 0d 98 ee |$="<unknown>"...|
0000b440 2b cc 3a 6c 70 24 3d c0 a4 63 74 69 6f 6e 5f 45 |+.:lp$=..ction_E|
0000b450 78 74 72 61 63 74 53 74 72 69 6e 67 28 6c 70 2b |xtractString(lp+|
0000b460 38 29 2c 6c 70 21 34 29 0d 99 02 18 cd 3a f2 61 |8),lp!4).....:.a|
0000b470 55 28 55 6b 2c 5a 77 2c 33 2c 6c 70 24 29 3a e1 |U(Uk,Zw,3,lp$):.|
0000b480 0d 99 34 35 dd f2 6b 79 3a 6c 71 3d a4 63 74 69 |..45..ky:lq=.cti|
0000b490 6f 6e 5f 46 69 6e 64 49 46 46 28 6b 74 2b 34 2c |on_FindIFF(kt+4,|
0000b4a0 6a 78 2d 34 2c 22 52 61 74 65 22 29 3a e7 6c 71 |jx-4,"Rate"):.lq|
0000b4b0 3d 2d 31 20 8c 0d 99 52 51 57 77 24 3d a4 63 74 |=-1 ...RQWw$=.ct|
0000b4c0 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 |ion_TagToString(|
0000b4d0 56 6b 2c 22 65 72 72 31 39 22 29 3a 57 7a 3d a4 |Vk,"err19"):Wz=.|
0000b4e0 63 74 69 6f 6e 5f 52 65 70 6f 72 74 45 72 72 6f |ction_ReportErro|
0000b4f0 72 28 55 6b 2c 39 39 2c 55 64 24 2c 57 77 24 2c |r(Uk,99,Ud$,Ww$,|
0000b500 20 ac b9 2c b9 29 0d 99 66 0e cc 3a 21 65 61 3d | ..,.)..f..:!ea=|
0000b510 6c 71 21 38 0d 99 7a 07 cd 3a e1 0d 99 a2 35 dd |lq!8..z..:....5.|
0000b520 f2 6b 7a 3a 6c 72 3d a4 63 74 69 6f 6e 5f 46 69 |.kz:lr=.ction_Fi|
0000b530 6e 64 49 46 46 28 6b 74 2b 34 2c 6a 78 2d 34 2c |ndIFF(kt+4,jx-4,|
0000b540 22 53 70 65 64 22 29 3a e7 6c 72 3d 2d 31 20 8c |"Sped"):.lr=-1 .|
0000b550 0d 99 c0 51 57 77 24 3d a4 63 74 69 6f 6e 5f 54 |...QWw$=.ction_T|
0000b560 61 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 65 |agToString(Vk,"e|
0000b570 72 72 32 30 22 29 3a 57 7a 3d a4 63 74 69 6f 6e |rr20"):Wz=.ction|
0000b580 5f 52 65 70 6f 72 74 45 72 72 6f 72 28 55 6b 2c |_ReportError(Uk,|
0000b590 39 39 2c 55 64 24 2c 57 77 24 2c 20 ac b9 2c b9 |99,Ud$,Ww$, ..,.|
0000b5a0 29 0d 99 d4 0e cc 3a 21 66 5a 3d 6c 72 21 38 0d |).....:!fZ=lr!8.|
0000b5b0 99 e8 07 cd 3a e1 0d 9a 10 35 dd f2 6c 55 3a 6c |....:....5..lU:l|
0000b5c0 73 3d a4 63 74 69 6f 6e 5f 46 69 6e 64 49 46 46 |s=.ction_FindIFF|
0000b5d0 28 6b 74 2b 34 2c 6a 78 2d 34 2c 22 53 74 65 72 |(kt+4,jx-4,"Ster|
0000b5e0 22 29 3a e7 6c 73 3d 2d 31 20 8c 0d 9a 2e 51 57 |"):.ls=-1 ....QW|
0000b5f0 77 24 3d a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 |w$=.ction_TagToS|
0000b600 74 72 69 6e 67 28 56 6b 2c 22 65 72 72 32 31 22 |tring(Vk,"err21"|
0000b610 29 3a 57 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 6f |):Wz=.ction_Repo|
0000b620 72 74 45 72 72 6f 72 28 55 6b 2c 39 39 2c 55 64 |rtError(Uk,99,Ud|
0000b630 24 2c 57 77 24 2c 20 ac b9 2c b9 29 0d 9a 42 2b |$,Ww$, ..,.)..B+|
0000b640 cc 3a 21 65 67 3d 6c 73 3f 38 3a 21 65 68 3d 6c |.:!eg=ls?8:!eh=l|
0000b650 73 3f 39 3a 21 65 69 3d 6c 73 3f 31 30 3a 21 65 |s?9:!ei=ls?10:!e|
0000b660 6a 3d 6c 73 3f 31 31 0d 9a 60 07 cd 3a e1 0d 9a |j=ls?11..`..:...|
0000b670 88 35 dd f2 6c 56 3a 6c 74 3d a4 63 74 69 6f 6e |.5..lV:lt=.ction|
0000b680 5f 46 69 6e 64 49 46 46 28 6b 74 2b 34 2c 6a 78 |_FindIFF(kt+4,jx|
0000b690 2d 34 2c 22 4c 6e 74 68 22 29 3a e7 6c 74 3d 2d |-4,"Lnth"):.lt=-|
0000b6a0 31 20 8c 0d 9a a6 56 57 77 24 3d a4 63 74 69 6f |1 ....VWw$=.ctio|
0000b6b0 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 56 6b |n_TagToString(Vk|
0000b6c0 2c 22 65 72 72 32 32 22 29 3a 57 7a 3d a4 63 74 |,"err22"):Wz=.ct|
0000b6d0 69 6f 6e 5f 52 65 70 6f 72 74 45 72 72 6f 72 28 |ion_ReportError(|
0000b6e0 55 6b 2c 39 39 2c 55 64 24 2c 57 77 24 2c 20 ac |Uk,99,Ud$,Ww$, .|
0000b6f0 b9 2c b9 29 3a 57 77 3d b9 0d 9a c4 0d cc 3a 63 |.,.):Ww=......:c|
0000b700 6c 3d 6c 74 21 38 0d 9a d8 07 cd 3a e1 0d 9b 00 |l=lt!8.....:....|
0000b710 35 dd f2 6c 57 3a 6c 75 3d a4 63 74 69 6f 6e 5f |5..lW:lu=.ction_|
0000b720 46 69 6e 64 49 46 46 28 6b 74 2b 34 2c 6a 78 2d |FindIFF(kt+4,jx-|
0000b730 34 2c 22 53 71 6e 63 22 29 3a e7 6c 75 3d 2d 31 |4,"Sqnc"):.lu=-1|
0000b740 20 8c 0d 9b 1e 56 57 77 24 3d a4 63 74 69 6f 6e | ....VWw$=.ction|
0000b750 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c |_TagToString(Vk,|
0000b760 22 65 72 72 32 33 22 29 3a 57 7a 3d a4 63 74 69 |"err23"):Wz=.cti|
0000b770 6f 6e 5f 52 65 70 6f 72 74 45 72 72 6f 72 28 55 |on_ReportError(U|
0000b780 6b 2c 39 39 2c 55 64 24 2c 57 77 24 2c 20 ac b9 |k,99,Ud$,Ww$, ..|
0000b790 2c b9 29 3a 57 77 3d b9 0d 9b 3c 39 cc 3a c8 99 |,.):Ww=...<9.:..|
0000b7a0 26 39 30 30 43 35 2c 66 58 2c 55 56 20 b8 64 63 |&900C5,fX,UV .dc|
0000b7b0 3a e3 69 3d 31 20 b8 32 35 36 3a 64 63 3f 28 69 |:.i=1 .256:dc?(i|
0000b7c0 2d 31 29 3d 6c 75 3f 28 38 2b 69 2d 31 29 3a ed |-1)=lu?(8+i-1):.|
0000b7d0 69 0d 9b 6e 07 cd 3a e1 0d 9b 96 c5 dd f2 6c 58 |i..n..:.......lX|
0000b7e0 3a 6c 76 3d a4 63 74 69 6f 6e 5f 4e 75 6d 62 65 |:lv=.ction_Numbe|
0000b7f0 72 4f 66 49 46 46 73 28 6b 74 2b 34 2c 6a 78 2d |rOfIFFs(kt+4,jx-|
0000b800 34 2c 22 49 6e 73 74 22 29 3a 6c 77 3d 31 3a c8 |4,"Inst"):lw=1:.|
0000b810 95 6c 77 3c 3d 6c 76 3a 64 63 3d a4 63 74 69 6f |.lw<=lv:dc=.ctio|
0000b820 6e 5f 50 6f 69 6e 74 65 72 54 6f 4e 74 68 49 46 |n_PointerToNthIF|
0000b830 46 28 6b 74 2b 34 2c 6a 78 2d 34 2c 22 49 6e 73 |F(kt+4,jx-4,"Ins|
0000b840 74 22 2c 6c 77 29 3a 63 73 24 3d a4 63 74 69 6f |t",lw):cs$=.ctio|
0000b850 6e 5f 45 78 74 72 61 63 74 53 74 72 69 6e 67 28 |n_ExtractString(|
0000b860 64 63 2b 39 29 3a 6c 78 3d 64 63 3f 38 3a e7 a4 |dc+9):lx=dc?8:..|
0000b870 63 74 69 6f 6e 5f 44 6f 65 73 46 69 6c 65 45 78 |ction_DoesFileEx|
0000b880 69 73 74 28 62 58 24 2b 22 2e 49 6e 73 74 72 27 |ist(bX$+".Instr'|
0000b890 6d 6e 74 73 2e 22 2b 63 73 24 29 20 8c 0d 9b e6 |mnts."+cs$) ....|
0000b8a0 44 f2 63 74 28 62 58 24 2b 22 2e 49 6e 73 74 72 |D.ct(bX$+".Instr|
0000b8b0 27 6d 6e 74 73 2e 22 2b 63 73 24 2c 6c 78 29 3a |'mnts."+cs$,lx):|
0000b8c0 f2 56 72 28 a4 63 74 69 6f 6e 5f 4c 65 61 66 6e |.Vr(.ction_Leafn|
0000b8d0 61 6d 65 4f 6e 6c 79 28 56 59 24 28 6c 78 29 29 |ameOnly(VY$(lx))|
0000b8e0 29 0d 9b fa 5b cc 3a 57 77 24 3d a4 63 74 69 6f |)...[.:Ww$=.ctio|
0000b8f0 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 56 6b |n_TagToString(Vk|
0000b900 2c 22 65 72 72 33 38 22 29 2b 63 73 24 2b bd 33 |,"err38")+cs$+.3|
0000b910 34 3a 57 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 6f |4:Wz=.ction_Repo|
0000b920 72 74 45 72 72 6f 72 28 55 6b 2c 39 39 2c 55 64 |rtError(Uk,99,Ud|
0000b930 24 2c 57 77 24 2c 20 ac b9 2c b9 29 0d 9c 18 0f |$,Ww$, ..,.)....|
0000b940 cd 3a 6c 77 2b 3d 31 3a ce 3a e1 0d 9c 54 4d dd |.:lw+=1:.:...TM.|
0000b950 f2 6c 59 3a c8 99 26 39 30 30 43 35 2c 64 71 2c |.lY:..&900C5,dq,|
0000b960 55 56 20 b8 6c 79 3a 6c 7a 3d a4 63 74 69 6f 6e |UV .ly:lz=.ction|
0000b970 5f 4e 75 6d 62 65 72 4f 66 49 46 46 73 28 6b 74 |_NumberOfIFFs(kt|
0000b980 2b 34 2c 6a 78 2d 34 2c 22 50 74 72 6e 22 29 3a |+4,jx-4,"Ptrn"):|
0000b990 e7 6c 7a 3e 56 6d 20 8c 0d 9c a4 51 57 77 24 3d |.lz>Vm ....QWw$=|
0000b9a0 a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 |.ction_TagToStri|
0000b9b0 6e 67 28 56 6b 2c 22 65 72 72 32 35 22 29 3a 57 |ng(Vk,"err25"):W|
0000b9c0 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 6f 72 74 45 |z=.ction_ReportE|
0000b9d0 72 72 6f 72 28 55 6b 2c 39 39 2c 55 64 24 2c 57 |rror(Uk,99,Ud$,W|
0000b9e0 77 24 2c 20 ac b9 2c b9 29 0d 9c c2 af cc 3a 6c |w$, ..,.).....:l|
0000b9f0 77 3d 31 3a 62 78 3d 6c 7a 3a 65 72 28 29 3d 20 |w=1:bx=lz:er()= |
0000ba00 ac b9 3a c8 95 6c 77 3c 3d 6c 7a 3a 64 63 3d a4 |..:..lw<=lz:dc=.|
0000ba10 63 74 69 6f 6e 5f 50 6f 69 6e 74 65 72 54 6f 4e |ction_PointerToN|
0000ba20 74 68 49 46 46 28 6b 74 2b 34 2c 6a 78 2d 34 2c |thIFF(kt+4,jx-4,|
0000ba30 22 50 74 72 6e 22 2c 6c 77 29 3a 64 79 3d 64 63 |"Ptrn",lw):dy=dc|
0000ba40 21 38 3a 6d 55 3d 6c 79 2b 28 64 79 2d 31 29 2a |!8:mU=ly+(dy-1)*|
0000ba50 20 31 30 32 34 3a e3 6d 56 3d 31 20 b8 31 30 32 | 1024:.mV=1 .102|
0000ba60 34 2d 31 88 34 3a 6d 55 21 28 6d 56 2d 31 29 3d |4-1.4:mU!(mV-1)=|
0000ba70 64 63 21 28 31 32 2b 6d 56 2d 31 29 3a ed 6d 56 |dc!(12+mV-1):.mV|
0000ba80 3a 65 72 28 6c 77 29 3d b9 3a 6c 77 2b 3d 31 3a |:er(lw)=.:lw+=1:|
0000ba90 ce 3a f2 63 75 28 31 29 0d 9d a8 07 cd 3a e1 0d |.:.cu(1).....:..|
0000baa0 9e 98 35 dd f2 56 68 3a c8 99 26 35 31 20 b8 6d |..5..Vh:..&51 .m|
0000bab0 57 3a 6d 58 3d a4 63 74 69 6f 6e 5f 52 65 61 64 |W:mX=.ction_Read|
0000bac0 53 6c 6f 74 53 69 7a 65 3a 6d 59 3d 30 3a 6d 5a |SlotSize:mY=0:mZ|
0000bad0 3d 93 3a e1 0d 9e e8 6f dd a4 63 74 69 6f 6e 5f |=.:....o..ction_|
0000bae0 41 6c 6c 6f 63 61 74 65 4d 65 6d 6f 72 79 28 6d |AllocateMemory(m|
0000baf0 61 29 3a ea 6d 62 2c 6d 63 3a ea 6d 64 2c 6d 65 |a):.mb,mc:.md,me|
0000bb00 2c 6d 66 3a ea 6d 67 2c 57 78 3a 6d 62 3d 28 6d |,mf:.mg,Wx:mb=(m|
0000bb10 61 20 81 6d 57 29 2b 31 3a 6d 63 3d 6d 62 2a 20 |a .mW)+1:mc=mb* |
0000bb20 6d 57 3a e7 a4 63 74 69 6f 6e 5f 52 65 61 64 53 |mW:..ction_ReadS|
0000bb30 69 7a 65 4f 66 46 72 65 65 50 6f 6f 6c 3e 3d 6d |izeOfFreePool>=m|
0000bb40 61 20 8c 0d 9f 2e 4e 6d 64 3d a4 63 74 69 6f 6e |a ....Nmd=.ction|
0000bb50 5f 52 65 61 64 53 6c 6f 74 53 69 7a 65 3a 6d 65 |_ReadSlotSize:me|
0000bb60 3d 6d 64 2b 6d 61 3a 6d 66 3d a4 63 74 69 6f 6e |=md+ma:mf=.ction|
0000bb70 5f 53 65 74 53 6c 6f 74 53 69 7a 65 28 6d 65 29 |_SetSlotSize(me)|
0000bb80 3a 6d 59 2b 3d 6d 61 3a 6d 67 3d 93 3a 57 78 3d |:mY+=ma:mg=.:Wx=|
0000bb90 b9 0d 9f 6a 0c cc 3a 57 78 3d 20 ac b9 0d 9f 7e |...j..:Wx= ....~|
0000bba0 09 cd 3a 3d 57 78 0d 9f a6 3b dd a4 63 74 69 6f |..:=Wx...;..ctio|
0000bbb0 6e 5f 41 6c 69 67 6e 54 6f 50 61 67 65 53 69 7a |n_AlignToPageSiz|
0000bbc0 65 28 6d 61 29 3a 6d 62 3d 28 6d 61 20 81 6d 57 |e(ma):mb=(ma .mW|
0000bbd0 29 2b 31 3a 6d 63 3d 6d 62 2a 20 6d 57 3a 3d 6d |)+1:mc=mb* mW:=m|
0000bbe0 63 0d 9f e2 28 dd f2 6c 5a 3a 6d 64 3d a4 63 74 |c...(..lZ:md=.ct|
0000bbf0 69 6f 6e 5f 52 65 61 64 53 6c 6f 74 53 69 7a 65 |ion_ReadSlotSize|
0000bc00 3a e7 6d 64 3e 6d 58 20 8c 0d a0 00 22 57 7a 3d |:.md>mX ...."Wz=|
0000bc10 a4 63 74 69 6f 6e 5f 53 65 74 53 6c 6f 74 53 69 |.ction_SetSlotSi|
0000bc20 7a 65 28 6d 58 29 3a 6d 59 3d 30 0d a0 14 07 cd |ze(mX):mY=0.....|
0000bc30 3a e1 0d a0 f0 41 dd f2 63 75 28 6d 68 29 3a 5a |:....A..cu(mh):Z|
0000bc40 6d 3d 6d 68 3a f2 61 55 28 55 6b 2c 57 66 2c 35 |m=mh:.aU(Uk,Wf,5|
0000bc50 2c c3 5a 6d 29 3a e7 a4 63 74 69 6f 6e 5f 57 69 |,.Zm):..ction_Wi|
0000bc60 6e 64 6f 77 49 73 4f 70 65 6e 28 55 6b 2c 57 64 |ndowIsOpen(Uk,Wd|
0000bc70 29 20 8c 0d a1 2c 0e f2 59 5a 28 55 6b 2c 57 64 |) ...,..YZ(Uk,Wd|
0000bc80 29 0d a1 36 07 cd 3a e1 0d a1 86 43 dd f2 58 70 |)..6..:....C..Xp|
0000bc90 28 58 58 2c 58 59 29 3a 56 65 3d 31 30 3a 62 6d |(XX,XY):Ve=10:bm|
0000bca0 3d 30 3a f2 62 6e 28 22 50 61 74 74 65 72 6e 73 |=0:.bn("Patterns|
0000bcb0 22 2c 39 36 2c 34 34 29 3a e3 69 3d 31 20 b8 21 |",96,44):.i=1 .!|
0000bcc0 56 6e 3a e7 65 72 28 69 29 20 8c 0d a1 ea 14 f2 |Vn:.er(i) ......|
0000bcd0 62 6f 28 c3 69 2c 30 2c 2d 31 2c 20 ac b9 29 0d |bo(.i,0,-1, ..).|
0000bce0 a1 f4 2d cd 3a ed 69 3a 21 28 55 79 2b 62 6d 2d |..-.:.i:!(Uy+bm-|
0000bcf0 32 34 29 3d 31 32 38 3a c8 99 26 34 30 30 44 34 |24)=128:..&400D4|
0000bd00 2c 2c 55 79 2c 58 58 2c 58 59 3a e1 0d a2 80 d0 |,,Uy,XX,XY:.....|
0000bd10 dd f2 61 78 3a c8 99 26 39 30 30 43 35 2c 64 71 |..ax:..&900C5,dq|
0000bd20 2c 55 56 20 b8 64 63 3a 6b 69 3d 61 73 2d 61 76 |,UV .dc:ki=as-av|
0000bd30 3a 6b 6a 3d 61 74 2b 61 76 3a 69 3d 31 3a 6b 69 |:kj=at+av:i=1:ki|
0000bd40 2d 3d 69 2a 34 34 20 2b 20 35 36 3a 21 67 67 3d |-=i*44 + 56:!gg=|
0000bd50 6b 69 3a 21 68 6d 3d 6b 6a 3a 21 67 68 3d 61 73 |ki:!hm=kj:!gh=as|
0000bd60 3a 21 67 6d 3d 61 74 2d 34 38 3a 21 67 69 3d 31 |:!gm=at-48:!gi=1|
0000bd70 3a 21 68 66 3d 64 63 2b 28 5a 6d 2d 31 29 2a 20 |:!hf=dc+(Zm-1)* |
0000bd80 31 30 32 34 3a 21 68 6f 3d 56 77 3a 21 68 70 3d |1024:!ho=Vw:!hp=|
0000bd90 56 78 3a 21 68 6e 3d 56 76 3a 21 68 68 3d 61 72 |Vx:!hn=Vv:!hh=ar|
0000bda0 2b 31 2a 31 36 3a 21 68 71 3d 5a 67 3a 21 68 72 |+1*16:!hq=Zg:!hr|
0000bdb0 3d 5a 68 3a 21 68 73 3d 5a 69 3a 21 68 74 3d 5a |=Zh:!hs=Zi:!ht=Z|
0000bdc0 6a 3a 21 68 75 3d 5a 6b 3a 21 68 76 3d 5a 6c 3a |j:!hu=Zk:!hv=Zl:|
0000bdd0 21 68 77 3d 5a 6d 3a d6 67 64 3a e1 0d a3 de 23 |!hw=Zm:.gd:....#|
0000bde0 dd a4 63 74 69 6f 6e 5f 49 6e 73 65 72 74 5f 50 |..ction_Insert_P|
0000bdf0 61 74 74 65 72 6e 3a e7 62 78 3d 56 6d 20 8c 0d |attern:.bx=Vm ..|
0000be00 a4 06 0a 57 78 3d 20 ac b9 0d a4 1a 36 cc 3a 69 |...Wx= .....6.:i|
0000be10 3d 31 3a c8 95 65 72 28 69 29 3a 69 2b 3d 31 3a |=1:..er(i):i+=1:|
0000be20 ce 3a 65 72 28 69 29 3d b9 3a 62 78 2b 3d 31 3a |.:er(i)=.:bx+=1:|
0000be30 f2 63 75 28 69 29 3a 57 78 3d b9 3a f2 59 59 0d |.cu(i):Wx=.:.YY.|
0000be40 a4 a6 09 cd 3a 3d 57 78 0d a4 f6 5c dd f2 63 6f |....:=Wx...\..co|
0000be50 3a 57 77 24 3d a4 63 74 69 6f 6e 5f 54 61 67 54 |:Ww$=.ction_TagT|
0000be60 6f 53 74 72 69 6e 67 28 56 6b 2c 22 77 61 72 30 |oString(Vk,"war0|
0000be70 32 22 29 3a 57 7a 3d a4 63 74 69 6f 6e 5f 52 65 |2"):Wz=.ction_Re|
0000be80 70 6f 72 74 45 72 72 6f 72 28 55 6b 2c 39 39 2c |portError(Uk,99,|
0000be90 55 64 24 2c 57 77 24 2c b9 2c b9 29 3a e7 57 7a |Ud$,Ww$,.,.):.Wz|
0000bea0 3d 31 20 8c 0d a5 3c 54 c8 99 26 39 30 30 43 35 |=1 ...<T..&900C5|
0000beb0 2c 64 71 2c 55 56 20 b8 64 63 3a 64 63 3d 64 63 |,dq,UV .dc:dc=dc|
0000bec0 2b 28 5a 6d 2d 31 29 2a 20 31 30 32 34 3a 41 25 |+(Zm-1)* 1024:A%|
0000bed0 3d 64 63 3a 42 25 3d 64 63 2b 31 2a 31 30 32 34 |=dc:B%=dc+1*1024|
0000bee0 3a 43 25 3d 30 3a d6 65 71 3a f2 59 5a 28 55 6b |:C%=0:.eq:.YZ(Uk|
0000bef0 2c 57 64 29 3a f2 59 59 0d a5 96 07 cd 3a e1 0d |,Wd):.YY.....:..|
0000bf00 a5 e6 4f dd f2 63 6e 3a c8 99 26 39 30 30 43 35 |..O..cn:..&900C5|
0000bf10 2c 64 71 2c 55 56 20 b8 6d 69 3a 6d 6a 3d 6d 69 |,dq,UV .mi:mj=mi|
0000bf20 2b 28 5a 6d 2d 31 29 2a 20 31 30 32 34 3a 57 78 |+(Zm-1)* 1024:Wx|
0000bf30 3d a4 63 74 69 6f 6e 5f 49 6e 73 65 72 74 5f 50 |=.ction_Insert_P|
0000bf40 61 74 74 65 72 6e 3a e7 20 ac 57 78 20 8c 0d a6 |attern:. .Wx ...|
0000bf50 40 51 57 77 24 3d a4 63 74 69 6f 6e 5f 54 61 67 |@QWw$=.ction_Tag|
0000bf60 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 65 72 72 |ToString(Vk,"err|
0000bf70 30 36 22 29 3a 57 7a 3d a4 63 74 69 6f 6e 5f 52 |06"):Wz=.ction_R|
0000bf80 65 70 6f 72 74 45 72 72 6f 72 28 55 6b 2c 39 39 |eportError(Uk,99|
0000bf90 2c 55 64 24 2c 57 77 24 2c 20 ac b9 2c b9 29 0d |,Ud$,Ww$, ..,.).|
0000bfa0 a6 5e 43 cc 3a 6d 6b 3d 6d 69 2b 28 5a 6d 2d 31 |.^C.:mk=mi+(Zm-1|
0000bfb0 29 2a 20 31 30 32 34 3a e3 69 3d 30 20 b8 31 30 |)* 1024:.i=0 .10|
0000bfc0 32 34 2d 31 88 34 3a 6d 6b 21 69 3d 6d 6a 21 69 |24-1.4:mk!i=mj!i|
0000bfd0 3a ed 69 3a f2 59 5a 28 55 6b 2c 57 64 29 3a f2 |:.i:.YZ(Uk,Wd):.|
0000bfe0 59 59 0d a6 cc 07 cd 3a e1 0d a7 1c 10 dd f2 61 |YY.....:.......a|
0000bff0 63 3a e7 62 78 3d 31 20 8c 0d a7 44 51 57 77 24 |c:.bx=1 ...DQWw$|
0000c000 3d a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 |=.ction_TagToStr|
0000c010 69 6e 67 28 56 6b 2c 22 65 72 72 32 34 22 29 3a |ing(Vk,"err24"):|
0000c020 57 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 6f 72 74 |Wz=.ction_Report|
0000c030 45 72 72 6f 72 28 55 6b 2c 39 39 2c 55 64 24 2c |Error(Uk,99,Ud$,|
0000c040 57 77 24 2c 20 ac b9 2c b9 29 0d a7 62 59 cc 3a |Ww$, ..,.)..bY.:|
0000c050 57 77 24 3d a4 63 74 69 6f 6e 5f 54 61 67 54 6f |Ww$=.ction_TagTo|
0000c060 53 74 72 69 6e 67 28 56 6b 2c 22 77 61 72 30 35 |String(Vk,"war05|
0000c070 22 29 3a 57 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 |"):Wz=.ction_Rep|
0000c080 6f 72 74 45 72 72 6f 72 28 55 6b 2c 39 39 2c 55 |ortError(Uk,99,U|
0000c090 64 24 2c 57 77 24 2c b9 2c b9 29 3a e7 57 7a 3d |d$,Ww$,.,.):.Wz=|
0000c0a0 31 20 8c 0d a7 a8 a1 c8 99 26 39 30 30 43 35 2c |1 .......&900C5,|
0000c0b0 64 71 2c 55 56 20 b8 64 63 3a 6b 74 3d 64 63 2b |dq,UV .dc:kt=dc+|
0000c0c0 28 5a 6d 2d 31 29 2a 20 31 30 32 34 3a 6a 78 3d |(Zm-1)* 1024:jx=|
0000c0d0 64 63 2b 28 62 78 29 2a 20 31 30 32 34 3a c8 95 |dc+(bx)* 1024:..|
0000c0e0 6b 74 3c 6a 78 2d 31 30 32 34 3a 21 6b 74 3d 6b |kt<jx-1024:!kt=k|
0000c0f0 74 21 31 30 32 34 3a 6b 74 2b 3d 34 3a ce 3a c8 |t!1024:kt+=4:.:.|
0000c100 99 26 39 30 30 43 35 2c 66 58 2c 55 56 20 b8 64 |.&900C5,fX,UV .d|
0000c110 63 3a 6d 6c 3d 31 3a 6d 6d 3d 31 3a c8 95 6d 6c |c:ml=1:mm=1:..ml|
0000c120 3c 3d 63 6c 3a 66 66 3d 28 64 63 3f 28 6d 6c 2d |<=cl:ff=(dc?(ml-|
0000c130 31 29 29 2b 31 3a e7 66 66 3e 3d 5a 6d 20 8c 66 |1))+1:.ff>=Zm .f|
0000c140 66 2d 3d 31 0d a8 34 1e 64 63 3f 28 6d 6d 2d 31 |f-=1..4.dc?(mm-1|
0000c150 29 3d 66 66 2d 31 3a e7 66 66 3c 3e 5a 6d 2d 31 |)=ff-1:.ff<>Zm-1|
0000c160 20 8c 0d a8 48 09 6d 6d 2b 3d 31 0d a8 52 21 cd | ...H.mm+=1..R!.|
0000c170 3a 6d 6c 2b 3d 31 3a ce 3a 63 6c 3d 6d 6d 2d 31 |:ml+=1:.:cl=mm-1|
0000c180 3a e7 63 6c 3d 30 20 8c 63 6c 3d 31 0d a8 8e 52 |:.cl=0 .cl=1...R|
0000c190 69 3d 5a 6d 3a c8 95 69 3c 62 78 3a 65 72 28 69 |i=Zm:..i<bx:er(i|
0000c1a0 29 3d 65 72 28 69 2b 31 29 3a 69 2b 3d 31 3a ce |)=er(i+1):i+=1:.|
0000c1b0 3a 65 72 28 62 78 29 3d 20 ac b9 3a 62 78 2d 3d |:er(bx)= ..:bx-=|
0000c1c0 31 3a f2 63 75 28 31 29 3a f2 59 61 28 31 29 3a |1:.cu(1):.Ya(1):|
0000c1d0 f2 59 5a 28 55 6b 2c 57 64 29 3a f2 59 59 0d a9 |.YZ(Uk,Wd):.YY..|
0000c1e0 2e 05 cd 0d a9 42 07 cd 3a e1 0d a9 92 38 dd f2 |.....B..:....8..|
0000c1f0 61 6b 3a 6d 6e 3d bb a4 63 74 69 6f 6e 5f 52 65 |ak:mn=..ction_Re|
0000c200 61 64 49 63 6f 6e 54 65 78 74 28 55 6b 2c 61 64 |adIconText(Uk,ad|
0000c210 2c 31 29 3a e7 6d 6e 3c 31 20 84 6d 6e 3e 63 6c |,1):.mn<1 .mn>cl|
0000c220 20 8c 0d a9 ce 51 57 77 24 3d a4 63 74 69 6f 6e | ....QWw$=.ction|
0000c230 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c |_TagToString(Vk,|
0000c240 22 65 72 72 32 38 22 29 3a 57 7a 3d a4 63 74 69 |"err28"):Wz=.cti|
0000c250 6f 6e 5f 52 65 70 6f 72 74 45 72 72 6f 72 28 55 |on_ReportError(U|
0000c260 6b 2c 39 39 2c 55 64 24 2c 57 77 24 2c 20 ac b9 |k,99,Ud$,Ww$, ..|
0000c270 2c b9 29 0d a9 ec df cc 3a c8 99 26 39 30 30 43 |,.).....:..&900C|
0000c280 35 2c 64 71 2c 55 56 20 b8 64 63 3a 64 63 2b 3d |5,dq,UV .dc:dc+=|
0000c290 28 5a 6d 2d 31 29 2a 20 31 30 32 34 3a 41 25 3d |(Zm-1)* 1024:A%=|
0000c2a0 21 28 64 63 2b 28 56 77 2d 31 29 2a 31 36 20 2b |!(dc+(Vw-1)*16 +|
0000c2b0 20 28 56 78 2d 31 29 2a 34 29 3a c8 99 26 39 30 | (Vx-1)*4):..&90|
0000c2c0 30 39 33 2c 41 25 20 b8 64 72 3a 64 73 24 3d a4 |093,A% .dr:ds$=.|
0000c2d0 63 74 69 6f 6e 5f 45 78 74 72 61 63 74 53 74 72 |ction_ExtractStr|
0000c2e0 69 6e 67 28 64 72 29 3a c1 64 73 24 2c 31 2c 31 |ing(dr):.ds$,1,1|
0000c2f0 29 3d 22 4a 22 3a c1 64 73 24 2c 32 2c 33 29 3d |)="J":.ds$,2,3)=|
0000c300 c2 22 20 20 20 22 2b c3 6d 6e 2c 33 29 3a c1 64 |." "+.mn,3):.d|
0000c310 73 24 2c 35 2c 33 29 3d 22 54 30 30 22 3a c8 99 |s$,5,3)="T00":..|
0000c320 26 39 30 30 39 34 2c 64 73 24 20 b8 41 25 3a 21 |&90094,ds$ .A%:!|
0000c330 28 64 63 2b 28 56 77 2d 31 29 2a 31 36 20 2b 20 |(dc+(Vw-1)*16 + |
0000c340 28 56 78 2d 31 29 2a 34 29 20 3d 20 41 25 3a f2 |(Vx-1)*4) = A%:.|
0000c350 59 59 0d aa a0 2a cd 3a f2 57 6f 28 55 6b 2c 61 |YY...*.:.Wo(Uk,a|
0000c360 64 29 3a f2 59 5a 28 55 6b 2c 57 64 29 3a f2 58 |d):.YZ(Uk,Wd):.X|
0000c370 67 28 57 64 2c 2d 31 2c 30 29 3a e1 0d ab 18 4c |g(Wd,-1,0):....L|
0000c380 dd f2 56 74 3a 57 77 3d 20 ac b9 3a de 65 72 28 |..Vt:Ww= ..:.er(|
0000c390 21 56 6e 29 3a 65 72 28 29 3d 20 ac b9 3a 65 72 |!Vn):er()= ..:er|
0000c3a0 28 31 29 3d b9 3a c8 99 26 39 30 30 43 33 2c 21 |(1)=.:..&900C3,!|
0000c3b0 56 6e 2a 31 30 32 34 2c 55 56 20 b8 57 78 2c 64 |Vn*1024,UV .Wx,d|
0000c3c0 71 3a c8 8e 57 78 20 ca 0d ab 72 17 c9 30 3a 57 |q:..Wx ...r..0:W|
0000c3d0 77 3d b9 3a 57 79 24 3d 22 65 72 72 33 31 22 0d |w=.:Wy$="err31".|
0000c3e0 ab 86 17 c9 31 3a 57 77 3d b9 3a 57 79 24 3d 22 |....1:Ww=.:Wy$="|
0000c3f0 65 72 72 33 32 22 0d ab 9a 0b cb 3a e7 57 77 20 |err32".....:.Ww |
0000c400 8c 0d ab c2 52 57 77 24 3d a4 63 74 69 6f 6e 5f |....RWw$=.ction_|
0000c410 54 61 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c 57 |TagToString(Vk,W|
0000c420 79 24 29 3a 57 7a 3d a4 63 74 69 6f 6e 5f 52 65 |y$):Wz=.ction_Re|
0000c430 70 6f 72 74 45 72 72 6f 72 28 55 6b 2c 39 39 2c |portError(Uk,99,|
0000c440 55 64 24 2c 57 77 24 2c 20 ac b9 2c b9 29 3a 56 |Ud$,Ww$, ..,.):V|
0000c450 63 3d b9 0d ab ea 42 cc 3a c8 99 26 39 30 30 43 |c=....B.:..&900C|
0000c460 35 2c 64 71 2c 55 56 20 b8 64 63 3a 41 25 3d 64 |5,dq,UV .dc:A%=d|
0000c470 63 3a 42 25 3d 64 63 2b 21 56 6e 2a 31 30 32 34 |c:B%=dc+!Vn*1024|
0000c480 3a 43 25 3d 30 3a d6 65 71 3a 62 78 3d 31 3a f2 |:C%=0:.eq:bx=1:.|
0000c490 63 75 28 31 29 0d ac 3a 07 cd 3a e1 0d ad ac 1a |cu(1)..:..:.....|
0000c4a0 dd f2 56 6c 3a 6b 71 3d 2d 31 3a ea 85 3a ee 85 |..Vl:kq=-1:..:..|
0000c4b0 ea f2 6d 6f 3a e1 0d ad d4 7b 6b 71 3d 8e 22 3c |..mo:....{kq=."<|
0000c4c0 48 51 54 72 61 63 6b 65 72 24 44 69 72 3e 2e 50 |HQTracker$Dir>.P|
0000c4d0 72 65 66 73 22 3a e8 23 6b 71 2c 21 65 62 2c 21 |refs":.#kq,!eb,!|
0000c4e0 65 67 3a e8 23 6b 71 2c 21 65 63 2c 21 65 68 3a |eg:.#kq,!ec,!eh:|
0000c4f0 e8 23 6b 71 2c 21 65 64 2c 21 65 69 3a e8 23 6b |.#kq,!ed,!ei:.#k|
0000c500 71 2c 21 65 65 2c 21 65 6a 3a e8 23 6b 71 2c 21 |q,!ee,!ej:.#kq,!|
0000c510 66 5a 2c 21 65 66 3a e8 23 6b 71 2c 21 65 61 2c |fZ,!ef:.#kq,!ea,|
0000c520 21 56 6e 3a d9 23 6b 71 3a f2 58 69 3a f7 85 3a |!Vn:.#kq:.Xi:..:|
0000c530 e1 0d ae 56 16 dd f2 6d 6f 3a e7 6b 71 3c 3e 2d |...V...mo:.kq<>-|
0000c540 31 20 8c d9 23 6b 71 0d ae 6a 5b f2 6d 70 3a f2 |1 ..#kq..j[.mp:.|
0000c550 58 69 3a 57 77 24 3d a4 63 74 69 6f 6e 5f 54 61 |Xi:Ww$=.ction_Ta|
0000c560 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 65 72 |gToString(Vk,"er|
0000c570 72 30 31 22 29 3a 57 7a 3d a4 63 74 69 6f 6e 5f |r01"):Wz=.ction_|
0000c580 52 65 70 6f 72 74 45 72 72 6f 72 28 55 6b 2c 39 |ReportError(Uk,9|
0000c590 39 2c 55 64 24 2c 57 77 24 2c 20 ac b9 2c b9 29 |9,Ud$,Ww$, ..,.)|
0000c5a0 3a e1 0d ae b0 30 dd f2 58 68 3a 6b 71 3d 2d 31 |:....0..Xh:kq=-1|
0000c5b0 3a f2 57 6f 28 55 6b 2c 57 67 29 3a f2 57 6f 28 |:.Wo(Uk,Wg):.Wo(|
0000c5c0 55 6b 2c 57 68 29 3a ea 85 3a ee 85 ea f2 6d 71 |Uk,Wh):..:....mq|
0000c5d0 3a e1 0d ae ec c7 6b 71 3d ae 22 3c 48 51 54 72 |:.....kq=."<HQTr|
0000c5e0 61 63 6b 65 72 24 44 69 72 3e 2e 50 72 65 66 73 |acker$Dir>.Prefs|
0000c5f0 22 3a f2 58 6a 3a f1 23 6b 71 2c 21 65 62 2c 21 |":.Xj:.#kq,!eb,!|
0000c600 65 67 3a f1 23 6b 71 2c 21 65 63 2c 21 65 68 3a |eg:.#kq,!ec,!eh:|
0000c610 f1 23 6b 71 2c 21 65 64 2c 21 65 69 3a f1 23 6b |.#kq,!ed,!ei:.#k|
0000c620 71 2c 21 65 65 2c 21 65 6a 3a f1 23 6b 71 2c 21 |q,!ee,!ej:.#kq,!|
0000c630 66 5a 2c 21 65 66 3a f1 23 6b 71 2c 21 65 61 2c |fZ,!ef:.#kq,!ea,|
0000c640 21 56 6e 3a d9 23 6b 71 3a ff 22 53 74 61 6d 70 |!Vn:.#kq:."Stamp|
0000c650 20 20 20 3c 48 51 54 72 61 63 6b 65 72 24 44 69 | <HQTracker$Di|
0000c660 72 3e 2e 50 72 65 66 73 20 20 20 20 20 22 3a ff |r>.Prefs ":.|
0000c670 22 53 65 74 54 79 70 65 20 3c 48 51 54 72 61 63 |"SetType <HQTrac|
0000c680 6b 65 72 24 44 69 72 3e 2e 50 72 65 66 73 20 44 |ker$Dir>.Prefs D|
0000c690 61 74 61 22 3a f7 85 3a e1 0d af 82 16 dd f2 6d |ata":..:.......m|
0000c6a0 71 3a e7 6b 71 3c 3e 2d 31 20 8c d9 23 6b 71 0d |q:.kq<>-1 ..#kq.|
0000c6b0 af 96 53 57 77 24 3d a4 63 74 69 6f 6e 5f 54 61 |..SWw$=.ction_Ta|
0000c6c0 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 65 72 |gToString(Vk,"er|
0000c6d0 72 30 32 22 29 3a 57 7a 3d a4 63 74 69 6f 6e 5f |r02"):Wz=.ction_|
0000c6e0 52 65 70 6f 72 74 45 72 72 6f 72 28 55 6b 2c 39 |ReportError(Uk,9|
0000c6f0 39 2c 55 64 24 2c 57 77 24 2c 20 ac b9 2c b9 29 |9,Ud$,Ww$, ..,.)|
0000c700 3a e1 0d af c8 6d dd f2 6d 70 3a ea 6d 72 2c 6d |:....m..mp:.mr,m|
0000c710 73 3a 6d 72 3d b9 3a 6d 73 3d 20 ac 6d 72 3a 21 |s:mr=.:ms= .mr:!|
0000c720 65 62 3d 6d 72 3a 21 65 67 3d 34 3a 21 65 63 3d |eb=mr:!eg=4:!ec=|
0000c730 6d 72 3a 21 65 68 3d 34 3a 21 65 64 3d 6d 72 3a |mr:!eh=4:!ed=mr:|
0000c740 21 65 69 3d 34 3a 21 65 65 3d 6d 72 3a 21 65 6a |!ei=4:!ee=mr:!ej|
0000c750 3d 34 3a 21 66 5a 3d 36 3a 21 65 66 3d 31 32 37 |=4:!fZ=6:!ef=127|
0000c760 3a 21 65 61 3d 32 3a 21 56 6e 3d 36 34 3a e1 0d |:!ea=2:!Vn=64:..|
0000c770 b0 4a f7 dd f2 58 69 3a f2 6d 74 28 55 6b 2c 57 |.J...Xi:.mt(Uk,W|
0000c780 68 2c 32 2c 21 65 62 29 3a f2 6d 74 28 55 6b 2c |h,2,!eb):.mt(Uk,|
0000c790 57 68 2c 35 2c 21 65 63 29 3a f2 6d 74 28 55 6b |Wh,5,!ec):.mt(Uk|
0000c7a0 2c 57 68 2c 33 2c 21 65 64 29 3a f2 6d 74 28 55 |,Wh,3,!ed):.mt(U|
0000c7b0 6b 2c 57 68 2c 34 2c 21 65 65 29 3a 6d 75 24 3d |k,Wh,4,!ee):mu$=|
0000c7c0 a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 |.ction_TagToStri|
0000c7d0 6e 67 28 56 6b 2c 22 73 74 65 72 30 22 2b c3 21 |ng(Vk,"ster0"+.!|
0000c7e0 65 67 29 3a f2 61 55 28 55 6b 2c 57 68 2c 36 2c |eg):.aU(Uk,Wh,6,|
0000c7f0 6d 75 24 29 3a 6d 75 24 3d a4 63 74 69 6f 6e 5f |mu$):mu$=.ction_|
0000c800 54 61 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 |TagToString(Vk,"|
0000c810 73 74 65 72 30 22 2b c3 21 65 68 29 3a f2 61 55 |ster0"+.!eh):.aU|
0000c820 28 55 6b 2c 57 68 2c 37 2c 6d 75 24 29 3a 6d 75 |(Uk,Wh,7,mu$):mu|
0000c830 24 3d a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 |$=.ction_TagToSt|
0000c840 72 69 6e 67 28 56 6b 2c 22 73 74 65 72 30 22 2b |ring(Vk,"ster0"+|
0000c850 c3 21 65 69 29 3a f2 61 55 28 55 6b 2c 57 68 2c |.!ei):.aU(Uk,Wh,|
0000c860 38 2c 6d 75 24 29 0d b0 cc cd 6d 75 24 3d a4 63 |8,mu$)....mu$=.c|
0000c870 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 |tion_TagToString|
0000c880 28 56 6b 2c 22 73 74 65 72 30 22 2b c3 21 65 6a |(Vk,"ster0"+.!ej|
0000c890 29 3a f2 61 55 28 55 6b 2c 57 68 2c 39 2c 6d 75 |):.aU(Uk,Wh,9,mu|
0000c8a0 24 29 3a f2 61 55 28 55 6b 2c 57 68 2c 31 37 2c |$):.aU(Uk,Wh,17,|
0000c8b0 c3 21 66 5a 29 3a f2 61 55 28 55 6b 2c 57 68 2c |.!fZ):.aU(Uk,Wh,|
0000c8c0 31 38 2c c3 21 65 66 29 3a 69 72 24 3d a4 63 74 |18,.!ef):ir$=.ct|
0000c8d0 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 |ion_TagToString(|
0000c8e0 56 6b 2c 22 71 75 61 6c 30 22 2b c3 21 65 61 29 |Vk,"qual0"+.!ea)|
0000c8f0 3a f2 61 55 28 55 6b 2c 57 68 2c 32 35 2c 69 72 |:.aU(Uk,Wh,25,ir|
0000c900 24 29 3a f2 61 55 28 55 6b 2c 57 68 2c 33 32 2c |$):.aU(Uk,Wh,32,|
0000c910 c3 21 56 6e 29 3a e7 a4 63 74 69 6f 6e 5f 57 69 |.!Vn):..ction_Wi|
0000c920 6e 64 6f 77 49 73 4f 70 65 6e 28 55 6b 2c 57 64 |ndowIsOpen(Uk,Wd|
0000c930 29 20 8c 0d b1 44 0e f2 59 5a 28 55 6b 2c 57 64 |) ...D..YZ(Uk,Wd|
0000c940 29 0d b1 4e 07 cd 3a e1 0d b1 80 ce dd f2 58 6a |)..N..:.......Xj|
0000c950 3a 21 65 62 3d a4 63 74 69 6f 6e 5f 49 63 6f 6e |:!eb=.ction_Icon|
0000c960 49 73 54 6f 67 67 6c 65 64 28 55 6b 2c 57 68 2c |IsToggled(Uk,Wh,|
0000c970 32 29 3a 21 65 63 3d a4 63 74 69 6f 6e 5f 49 63 |2):!ec=.ction_Ic|
0000c980 6f 6e 49 73 54 6f 67 67 6c 65 64 28 55 6b 2c 57 |onIsToggled(Uk,W|
0000c990 68 2c 35 29 3a 21 65 64 3d a4 63 74 69 6f 6e 5f |h,5):!ed=.ction_|
0000c9a0 49 63 6f 6e 49 73 54 6f 67 67 6c 65 64 28 55 6b |IconIsToggled(Uk|
0000c9b0 2c 57 68 2c 33 29 3a 21 65 65 3d a4 63 74 69 6f |,Wh,3):!ee=.ctio|
0000c9c0 6e 5f 49 63 6f 6e 49 73 54 6f 67 67 6c 65 64 28 |n_IconIsToggled(|
0000c9d0 55 6b 2c 57 68 2c 34 29 3a 21 65 67 3d a4 63 74 |Uk,Wh,4):!eg=.ct|
0000c9e0 69 6f 6e 5f 4d 65 73 73 61 67 65 49 6e 64 65 78 |ion_MessageIndex|
0000c9f0 28 a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f 6e |(.ction_ReadIcon|
0000ca00 54 65 78 74 28 55 6b 2c 57 68 2c 36 29 2c 22 73 |Text(Uk,Wh,6),"s|
0000ca10 74 65 72 30 22 29 0d b1 d0 ee 21 65 68 3d a4 63 |ter0")....!eh=.c|
0000ca20 74 69 6f 6e 5f 4d 65 73 73 61 67 65 49 6e 64 65 |tion_MessageInde|
0000ca30 78 28 a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f |x(.ction_ReadIco|
0000ca40 6e 54 65 78 74 28 55 6b 2c 57 68 2c 37 29 2c 22 |nText(Uk,Wh,7),"|
0000ca50 73 74 65 72 30 22 29 3a 21 65 69 3d a4 63 74 69 |ster0"):!ei=.cti|
0000ca60 6f 6e 5f 4d 65 73 73 61 67 65 49 6e 64 65 78 28 |on_MessageIndex(|
0000ca70 a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 |.ction_ReadIconT|
0000ca80 65 78 74 28 55 6b 2c 57 68 2c 38 29 2c 22 73 74 |ext(Uk,Wh,8),"st|
0000ca90 65 72 30 22 29 3a 21 65 6a 3d a4 63 74 69 6f 6e |er0"):!ej=.ction|
0000caa0 5f 4d 65 73 73 61 67 65 49 6e 64 65 78 28 a4 63 |_MessageIndex(.c|
0000cab0 74 69 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 65 78 |tion_ReadIconTex|
0000cac0 74 28 55 6b 2c 57 68 2c 39 29 2c 22 73 74 65 72 |t(Uk,Wh,9),"ster|
0000cad0 30 22 29 3a 21 66 5a 3d bb a4 63 74 69 6f 6e 5f |0"):!fZ=..ction_|
0000cae0 52 65 61 64 49 63 6f 6e 54 65 78 74 28 55 6b 2c |ReadIconText(Uk,|
0000caf0 57 68 2c 31 37 29 3a e7 21 66 5a 3c 31 20 8c 21 |Wh,17):.!fZ<1 .!|
0000cb00 66 5a 3d 31 0d b2 0c 13 e7 21 66 5a 3e 31 35 20 |fZ=1.....!fZ>15 |
0000cb10 8c 21 66 5a 3d 31 35 0d b2 20 34 21 65 66 3d bb |.!fZ=15.. 4!ef=.|
0000cb20 a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 |.ction_ReadIconT|
0000cb30 65 78 74 28 55 6b 2c 57 68 2c 31 38 29 3a e7 21 |ext(Uk,Wh,18):.!|
0000cb40 65 66 3c 31 20 8c 21 65 66 3d 31 0d b2 34 15 e7 |ef<1 .!ef=1..4..|
0000cb50 21 65 66 3e 31 32 37 20 8c 21 65 66 3d 31 32 37 |!ef>127 .!ef=127|
0000cb60 0d b2 48 73 21 65 61 3d a4 63 74 69 6f 6e 5f 4d |..Hs!ea=.ction_M|
0000cb70 65 73 73 61 67 65 49 6e 64 65 78 28 a4 63 74 69 |essageIndex(.cti|
0000cb80 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 65 78 74 28 |on_ReadIconText(|
0000cb90 55 6b 2c 57 68 2c 32 35 29 2c 22 71 75 61 6c 30 |Uk,Wh,25),"qual0|
0000cba0 22 29 3a 21 56 6e 3d bb a4 63 74 69 6f 6e 5f 52 |"):!Vn=..ction_R|
0000cbb0 65 61 64 49 63 6f 6e 54 65 78 74 28 55 6b 2c 57 |eadIconText(Uk,W|
0000cbc0 68 2c 33 32 29 3a e7 21 56 6e 3c 31 20 8c 21 56 |h,32):.!Vn<1 .!V|
0000cbd0 6e 3d 31 0d b2 70 15 e7 21 56 6e 3e 32 35 36 20 |n=1..p..!Vn>256 |
0000cbe0 8c 21 56 6e 3d 32 35 36 0d b2 84 09 f2 58 69 3a |.!Vn=256.....Xi:|
0000cbf0 e1 0d b2 b6 71 dd a4 63 74 69 6f 6e 5f 4d 65 73 |....q..ction_Mes|
0000cc00 73 61 67 65 49 6e 64 65 78 28 6d 76 24 2c 6d 77 |sageIndex(mv$,mw|
0000cc10 24 29 3a ea 64 79 2c 6d 78 3a 64 79 3d 31 3a 6d |$):.dy,mx:dy=1:m|
0000cc20 78 3d 20 ac b9 3a f5 3a 57 79 24 3d a4 63 74 69 |x= ..:.:Wy$=.cti|
0000cc30 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 28 56 |on_TagToString(V|
0000cc40 6b 2c 6d 77 24 2b c3 64 79 29 3a 6d 78 3d 6d 76 |k,mw$+.dy):mx=mv|
0000cc50 24 3d 57 79 24 3a e7 20 ac 6d 78 20 8c 64 79 2b |$=Wy$:. .mx .dy+|
0000cc60 3d 31 0d b3 06 0b fd 6d 78 3a 3d 64 79 0d b3 a6 |=1.....mx:=dy...|
0000cc70 22 dd f2 58 77 28 62 58 24 2c 6d 79 29 3a ea 85 |"..Xw(bX$,my):..|
0000cc80 3a 6b 71 3d 2d 31 3a ee 85 ea f2 6d 7a 3a e1 0d |:kq=-1:....mz:..|
0000cc90 b3 c4 4f 5a 78 24 3d a4 63 74 69 6f 6e 5f 50 61 |..OZx$=.ction_Pa|
0000cca0 74 68 6e 61 6d 65 4f 6e 6c 79 28 62 58 24 29 3a |thnameOnly(bX$):|
0000ccb0 5a 7a 24 3d a4 63 74 69 6f 6e 5f 4c 65 61 66 6e |Zz$=.ction_Leafn|
0000ccc0 61 6d 65 4f 6e 6c 79 28 62 58 24 29 3a e7 5a 78 |ameOnly(bX$):.Zx|
0000ccd0 24 3d 22 22 20 84 5a 7a 24 3d 22 22 20 8c 0d b3 |$="" .Zz$="" ...|
0000cce0 e2 51 57 77 24 3d a4 63 74 69 6f 6e 5f 54 61 67 |.QWw$=.ction_Tag|
0000ccf0 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 65 72 72 |ToString(Vk,"err|
0000cd00 30 38 22 29 3a 57 7a 3d a4 63 74 69 6f 6e 5f 52 |08"):Wz=.ction_R|
0000cd10 65 70 6f 72 74 45 72 72 6f 72 28 55 6b 2c 39 39 |eportError(Uk,99|
0000cd20 2c 55 64 24 2c 57 77 24 2c 20 ac b9 2c b9 29 0d |,Ud$,Ww$, ..,.).|
0000cd30 b3 f6 27 cc 3a c8 99 26 32 30 30 30 38 2c 31 33 |..'.:..&20008,13|
0000cd40 2c 62 58 24 20 b8 63 79 3a 57 7a 3d 31 3a e7 63 |,bX$ .cy:Wz=1:.c|
0000cd50 79 3c 3e 30 20 8c 0d b4 14 4f 57 77 24 3d a4 63 |y<>0 ....OWw$=.c|
0000cd60 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 |tion_TagToString|
0000cd70 28 56 6b 2c 22 77 61 72 30 33 22 29 3a 57 7a 3d |(Vk,"war03"):Wz=|
0000cd80 a4 63 74 69 6f 6e 5f 52 65 70 6f 72 74 45 72 72 |.ction_ReportErr|
0000cd90 6f 72 28 55 6b 2c 39 39 2c 55 64 24 2c 57 77 24 |or(Uk,99,Ud$,Ww$|
0000cda0 2c b9 2c b9 29 0d b4 28 0d cd 3a e7 57 7a 3d 31 |,.,.)..(..:.Wz=1|
0000cdb0 20 8c 0d b4 3c 36 f2 6e 55 28 62 58 24 29 3a f2 | ...<6.nU(bX$):.|
0000cdc0 61 55 28 55 6b 2c 58 76 2c 31 2c 62 58 24 29 3a |aU(Uk,Xv,1,bX$):|
0000cdd0 e7 20 ac 6d 79 20 8c c8 99 26 34 30 30 44 34 2c |. .my ...&400D4,|
0000cde0 2c 2d 31 3a 56 65 3d 30 0d b4 5a 05 cd 0d b4 64 |,-1:Ve=0..Z....d|
0000cdf0 0a cd 3a f7 85 3a e1 0d b4 96 cb dd f2 6e 55 28 |..:..:.......nU(|
0000ce00 62 58 24 29 3a 64 79 3d a4 63 74 69 6f 6e 5f 46 |bX$):dy=.ction_F|
0000ce10 69 6e 64 49 6e 73 74 72 75 6d 65 6e 74 28 a4 63 |indInstrument(.c|
0000ce20 74 69 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 65 78 |tion_ReadIconTex|
0000ce30 74 28 55 6b 2c 57 66 2c 31 29 29 3a c8 99 26 39 |t(Uk,Wf,1)):..&9|
0000ce40 30 30 43 35 2c 56 5a 28 64 79 29 2c 55 56 20 b8 |00C5,VZ(dy),UV .|
0000ce50 64 63 3a 65 55 3d 64 63 21 28 36 34 2b 34 29 3a |dc:eU=dc!(64+4):|
0000ce60 6b 74 3d 64 63 3a 6a 78 3d 6b 74 2b 38 30 2b 34 |kt=dc:jx=kt+80+4|
0000ce70 2b 65 55 3a ff 22 53 61 76 65 20 20 20 20 22 2b |+eU:."Save "+|
0000ce80 62 58 24 2b 22 20 22 2b c3 7e 6b 74 2b 22 20 22 |bX$+" "+.~kt+" "|
0000ce90 2b c3 7e 6a 78 3a ff 22 53 74 61 6d 70 20 20 20 |+.~jx:."Stamp |
0000cea0 22 2b 62 58 24 3a ff 22 53 65 74 54 79 70 65 20 |"+bX$:."SetType |
0000ceb0 22 2b 62 58 24 2b 22 20 48 51 2d 44 61 74 61 22 |"+bX$+" HQ-Data"|
0000cec0 3a e1 0d b5 2c 79 dd f2 6d 7a 3a 57 77 24 3d a4 |:...,y..mz:Ww$=.|
0000ced0 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e |ction_TagToStrin|
0000cee0 67 28 56 6b 2c 22 65 72 72 30 37 22 29 3a 57 7a |g(Vk,"err07"):Wz|
0000cef0 3d a4 63 74 69 6f 6e 5f 52 65 70 6f 72 74 45 72 |=.ction_ReportEr|
0000cf00 72 6f 72 28 55 6b 2c 39 39 2c 55 64 24 2c 57 77 |ror(Uk,99,Ud$,Ww|
0000cf10 24 2b f6 24 2b 22 20 28 22 2b c3 9e 2b 22 29 22 |$+.$+" ("+..+")"|
0000cf20 2c 20 ac b9 2c b9 29 3a e7 6b 71 3c 3e 2d 31 20 |, ..,.):.kq<>-1 |
0000cf30 8c d9 23 6b 71 3a 6b 71 3d 2d 31 0d b5 54 05 e1 |..#kq:kq=-1..T..|
0000cf40 0d b5 90 22 dd f2 58 79 28 62 58 24 2c 6d 79 29 |..."..Xy(bX$,my)|
0000cf50 3a ea 85 3a 6b 71 3d 2d 31 3a ee 85 ea f2 6d 7a |:..:kq=-1:....mz|
0000cf60 3a e1 0d b5 c2 4f 5a 78 24 3d a4 63 74 69 6f 6e |:....OZx$=.ction|
0000cf70 5f 50 61 74 68 6e 61 6d 65 4f 6e 6c 79 28 62 58 |_PathnameOnly(bX|
0000cf80 24 29 3a 5a 7a 24 3d a4 63 74 69 6f 6e 5f 4c 65 |$):Zz$=.ction_Le|
0000cf90 61 66 6e 61 6d 65 4f 6e 6c 79 28 62 58 24 29 3a |afnameOnly(bX$):|
0000cfa0 e7 5a 78 24 3d 22 22 20 84 5a 7a 24 3d 22 22 20 |.Zx$="" .Zz$="" |
0000cfb0 8c 0d b5 f4 51 57 77 24 3d a4 63 74 69 6f 6e 5f |....QWw$=.ction_|
0000cfc0 54 61 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 |TagToString(Vk,"|
0000cfd0 65 72 72 30 38 22 29 3a 57 7a 3d a4 63 74 69 6f |err08"):Wz=.ctio|
0000cfe0 6e 5f 52 65 70 6f 72 74 45 72 72 6f 72 28 55 6b |n_ReportError(Uk|
0000cff0 2c 39 39 2c 55 64 24 2c 57 77 24 2c 20 ac b9 2c |,99,Ud$,Ww$, ..,|
0000d000 b9 29 0d b6 12 27 cc 3a c8 99 26 32 30 30 30 38 |.)...'.:..&20008|
0000d010 2c 31 33 2c 62 58 24 20 b8 63 79 3a 57 7a 3d 31 |,13,bX$ .cy:Wz=1|
0000d020 3a e7 63 79 3c 3e 30 20 8c 0d b6 4e 4f 57 77 24 |:.cy<>0 ...NOWw$|
0000d030 3d a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 |=.ction_TagToStr|
0000d040 69 6e 67 28 56 6b 2c 22 77 61 72 30 33 22 29 3a |ing(Vk,"war03"):|
0000d050 57 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 6f 72 74 |Wz=.ction_Report|
0000d060 45 72 72 6f 72 28 55 6b 2c 39 39 2c 55 64 24 2c |Error(Uk,99,Ud$,|
0000d070 57 77 24 2c b9 2c b9 29 0d b6 6c 0d cd 3a e7 57 |Ww$,.,.)..l..:.W|
0000d080 7a 3d 31 20 8c 0d b6 94 36 f2 6e 56 28 62 58 24 |z=1 ....6.nV(bX$|
0000d090 29 3a f2 61 55 28 55 6b 2c 58 78 2c 31 2c 62 58 |):.aU(Uk,Xx,1,bX|
0000d0a0 24 29 3a e7 20 ac 6d 79 20 8c c8 99 26 34 30 30 |$):. .my ...&400|
0000d0b0 44 34 2c 2c 2d 31 3a 56 65 3d 30 0d b6 bc 05 cd |D4,,-1:Ve=0.....|
0000d0c0 0d b6 d0 0a cd 3a f7 85 3a e1 0d b7 16 fc dd f2 |.....:..:.......|
0000d0d0 6e 56 28 62 58 24 29 3a 6b 71 3d ae 62 58 24 3a |nV(bX$):kq=.bX$:|
0000d0e0 f2 6e 57 28 22 44 41 54 41 22 29 3a f2 6e 57 28 |.nW("DATA"):.nW(|
0000d0f0 22 46 72 6d 74 22 29 3a f2 6e 58 28 34 29 3a f2 |"Frmt"):.nX(4):.|
0000d100 6e 58 28 31 2e 30 30 2a 31 30 30 29 3a f2 6e 57 |nX(1.00*100):.nW|
0000d110 28 22 50 4d 6f 64 22 29 3a f2 6e 58 28 34 29 3a |("PMod"):.nX(4):|
0000d120 f2 6e 58 28 31 2e 30 30 2a 31 30 30 29 3a f2 6e |.nX(1.00*100):.n|
0000d130 57 28 22 54 69 74 6c 22 29 3a f2 6e 58 28 33 32 |W("Titl"):.nX(32|
0000d140 29 3a f2 6e 57 28 c0 a4 63 74 69 6f 6e 5f 52 65 |):.nW(..ction_Re|
0000d150 61 64 49 63 6f 6e 54 65 78 74 28 55 6b 2c 5a 77 |adIconText(Uk,Zw|
0000d160 2c 32 29 2b c4 33 32 2c bd 30 29 2c 33 32 29 29 |,2)+.32,.0),32))|
0000d170 3a f2 6e 57 28 22 41 75 74 68 22 29 3a f2 6e 58 |:.nW("Auth"):.nX|
0000d180 28 33 32 29 3a f2 6e 57 28 c0 a4 63 74 69 6f 6e |(32):.nW(..ction|
0000d190 5f 52 65 61 64 49 63 6f 6e 54 65 78 74 28 55 6b |_ReadIconText(Uk|
0000d1a0 2c 5a 77 2c 33 29 2b c4 33 32 2c bd 30 29 2c 33 |,Zw,3)+.32,.0),3|
0000d1b0 32 29 29 3a f2 6e 57 28 22 52 61 74 65 22 29 3a |2)):.nW("Rate"):|
0000d1c0 f2 6e 58 28 34 29 0d b7 d4 d4 f2 6e 58 28 21 65 |.nX(4).....nX(!e|
0000d1d0 61 29 3a f2 6e 57 28 22 53 70 65 64 22 29 3a f2 |a):.nW("Sped"):.|
0000d1e0 6e 58 28 34 29 3a f2 6e 58 28 21 66 5a 29 3a f2 |nX(4):.nX(!fZ):.|
0000d1f0 6e 57 28 22 53 74 65 72 22 29 3a f2 6e 58 28 34 |nW("Ster"):.nX(4|
0000d200 29 3a f2 6e 59 28 21 65 67 29 3a f2 6e 59 28 21 |):.nY(!eg):.nY(!|
0000d210 65 68 29 3a f2 6e 59 28 21 65 69 29 3a f2 6e 59 |eh):.nY(!ei):.nY|
0000d220 28 21 65 6a 29 3a f2 6e 57 28 22 4c 6e 74 68 22 |(!ej):.nW("Lnth"|
0000d230 29 3a f2 6e 58 28 34 29 3a f2 6e 58 28 63 6c 29 |):.nX(4):.nX(cl)|
0000d240 3a f2 6e 57 28 22 53 71 6e 63 22 29 3a f2 6e 58 |:.nW("Sqnc"):.nX|
0000d250 28 32 35 36 29 3a c8 99 26 39 30 30 43 35 2c 66 |(256):..&900C5,f|
0000d260 58 2c 55 56 20 b8 66 59 3a e3 69 3d 31 20 b8 32 |X,UV .fY:.i=1 .2|
0000d270 35 36 3a f2 6e 59 28 66 59 3f 28 69 2d 31 29 29 |56:.nY(fY?(i-1))|
0000d280 3a ed 69 3a e3 69 3d 31 20 b8 56 58 3a e7 56 59 |:.i:.i=1 .VX:.VY|
0000d290 24 28 69 29 3c 3e 22 22 20 8c 0d b8 9c 4c f2 6e |$(i)<>"" ....L.n|
0000d2a0 57 28 22 49 6e 73 74 22 29 3a f2 6e 58 28 31 32 |W("Inst"):.nX(12|
0000d2b0 29 3a f2 6e 59 28 69 29 3a f2 6e 57 28 c0 a4 63 |):.nY(i):.nW(..c|
0000d2c0 74 69 6f 6e 5f 4c 65 61 66 6e 61 6d 65 4f 6e 6c |tion_LeafnameOnl|
0000d2d0 79 28 56 59 24 28 69 29 29 2b c4 31 31 2c bd 30 |y(VY$(i))+.11,.0|
0000d2e0 29 2c 31 31 29 29 0d b8 ba 2d cd 3a ed 69 3a c8 |),11))...-.:.i:.|
0000d2f0 99 26 39 30 30 43 35 2c 64 71 2c 55 56 20 b8 6e |.&900C5,dq,UV .n|
0000d300 5a 3a e3 69 3d 31 20 b8 62 78 3a e7 65 72 28 69 |Z:.i=1 .bx:.er(i|
0000d310 29 20 8c 0d b9 0a 50 f2 6e 57 28 22 50 74 72 6e |) ....P.nW("Ptrn|
0000d320 22 29 3a f2 6e 58 28 31 30 32 38 29 3a f2 6e 58 |"):.nX(1028):.nX|
0000d330 28 69 29 3a 6e 61 3d 6e 5a 2b 28 69 2d 31 29 2a |(i):na=nZ+(i-1)*|
0000d340 31 30 32 34 3a e3 6e 62 3d 31 20 b8 31 30 32 34 |1024:.nb=1 .1024|
0000d350 3a f2 6e 59 28 6e 61 3f 28 6e 62 2d 31 29 29 3a |:.nY(na?(nb-1)):|
0000d360 ed 6e 62 0d b9 5a 50 cd 3a ed 69 3a 6b 74 3d 64 |.nb..ZP.:.i:kt=d|
0000d370 63 3a 6a 78 3d 6b 74 2b 28 62 78 2a 31 30 32 34 |c:jx=kt+(bx*1024|
0000d380 29 3a d9 23 6b 71 3a ff 22 53 74 61 6d 70 20 20 |):.#kq:."Stamp |
0000d390 20 22 2b 62 58 24 3a ff 22 53 65 74 54 79 70 65 | "+bX$:."SetType|
0000d3a0 20 22 2b 62 58 24 2b 22 20 48 51 2d 44 61 74 61 | "+bX$+" HQ-Data|
0000d3b0 22 3a e1 0d ba 04 2b dd f2 59 55 28 62 58 24 2c |":....+..YU(bX$,|
0000d3c0 6d 79 29 3a ea 85 3a 6b 71 3d 2d 31 3a ee 85 ea |my):..:kq=-1:...|
0000d3d0 c8 99 26 34 30 36 43 32 3a f2 6d 7a 3a e1 0d ba |..&406C2:.mz:...|
0000d3e0 36 58 c8 99 26 34 30 36 43 30 3a 5a 78 24 3d a4 |6X..&406C0:Zx$=.|
0000d3f0 63 74 69 6f 6e 5f 50 61 74 68 6e 61 6d 65 4f 6e |ction_PathnameOn|
0000d400 6c 79 28 62 58 24 29 3a 5a 7a 24 3d a4 63 74 69 |ly(bX$):Zz$=.cti|
0000d410 6f 6e 5f 4c 65 61 66 6e 61 6d 65 4f 6e 6c 79 28 |on_LeafnameOnly(|
0000d420 62 58 24 29 3a e7 5a 78 24 3d 22 22 20 84 5a 7a |bX$):.Zx$="" .Zz|
0000d430 24 3d 22 22 20 8c 0d ba 72 51 57 77 24 3d a4 63 |$="" ...rQWw$=.c|
0000d440 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 6e 67 |tion_TagToString|
0000d450 28 56 6b 2c 22 65 72 72 30 38 22 29 3a 57 7a 3d |(Vk,"err08"):Wz=|
0000d460 a4 63 74 69 6f 6e 5f 52 65 70 6f 72 74 45 72 72 |.ction_ReportErr|
0000d470 6f 72 28 55 6b 2c 39 39 2c 55 64 24 2c 57 77 24 |or(Uk,99,Ud$,Ww$|
0000d480 2c 20 ac b9 2c b9 29 0d ba 90 24 cc 3a e7 c0 5a |, ..,.)...$.:..Z|
0000d490 7a 24 2c 31 29 3c 3e 22 21 22 20 8c 5a 7a 24 3d |z$,1)<>"!" .Zz$=|
0000d4a0 22 21 22 2b c0 5a 7a 24 2c 39 29 0d ba ae 35 6e |"!"+.Zz$,9)...5n|
0000d4b0 63 24 3d 5a 78 24 2b 22 2e 22 2b 5a 7a 24 3a c8 |c$=Zx$+"."+Zz$:.|
0000d4c0 99 26 32 30 30 30 38 2c 31 33 2c 62 58 24 20 b8 |.&20008,13,bX$ .|
0000d4d0 63 79 3a 57 7a 3d 31 3a e7 63 79 3c 3e 30 20 8c |cy:Wz=1:.cy<>0 .|
0000d4e0 0d ba ea 4f 57 77 24 3d a4 63 74 69 6f 6e 5f 54 |...OWw$=.ction_T|
0000d4f0 61 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 77 |agToString(Vk,"w|
0000d500 61 72 30 33 22 29 3a 57 7a 3d a4 63 74 69 6f 6e |ar03"):Wz=.ction|
0000d510 5f 52 65 70 6f 72 74 45 72 72 6f 72 28 55 6b 2c |_ReportError(Uk,|
0000d520 39 39 2c 55 64 24 2c 57 77 24 2c b9 2c b9 29 0d |99,Ud$,Ww$,.,.).|
0000d530 bb 08 0d cd 3a e7 57 7a 3d 31 20 8c 0d bb 30 c9 |....:.Wz=1 ...0.|
0000d540 6e 64 24 3d a4 63 74 69 6f 6e 5f 52 65 61 64 49 |nd$=.ction_ReadI|
0000d550 63 6f 6e 54 65 78 74 28 55 6b 2c 58 76 2c 31 29 |conText(Uk,Xv,1)|
0000d560 3a 6e 65 24 3d a4 63 74 69 6f 6e 5f 52 65 61 64 |:ne$=.ction_Read|
0000d570 49 63 6f 6e 54 65 78 74 28 55 6b 2c 58 78 2c 31 |IconText(Uk,Xx,1|
0000d580 29 3a ff 22 43 44 69 72 20 22 2b 6e 63 24 3a ff |):."CDir "+nc$:.|
0000d590 22 43 44 69 72 20 22 2b 6e 63 24 2b 22 2e 49 6e |"CDir "+nc$+".In|
0000d5a0 73 74 72 27 6d 6e 74 73 22 3a f2 6e 66 3a f2 6e |str'mnts":.nf:.n|
0000d5b0 67 3a f2 6e 68 3a f2 6e 56 28 6e 63 24 2b 22 2e |g:.nh:.nV(nc$+".|
0000d5c0 4d 75 73 69 63 44 61 74 61 22 29 3a 6e 69 24 3d |MusicData"):ni$=|
0000d5d0 a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 |.ction_ReadIconT|
0000d5e0 65 78 74 28 55 6b 2c 57 66 2c 31 29 3a e3 6e 6a |ext(Uk,Wf,1):.nj|
0000d5f0 3d 31 20 b8 56 58 3a e7 56 59 24 28 6e 6a 29 3c |=1 .VX:.VY$(nj)<|
0000d600 3e 22 22 20 8c 0d bb d0 49 64 6e 24 3d a4 63 74 |>"" ....Idn$=.ct|
0000d610 69 6f 6e 5f 4c 65 61 66 6e 61 6d 65 4f 6e 6c 79 |ion_LeafnameOnly|
0000d620 28 56 59 24 28 6e 6a 29 29 3a f2 56 72 28 64 6e |(VY$(nj)):.Vr(dn|
0000d630 24 29 3a f2 6e 55 28 6e 63 24 2b 22 2e 49 6e 73 |$):.nU(nc$+".Ins|
0000d640 74 72 27 6d 6e 74 73 2e 22 2b 64 6e 24 29 0d bb |tr'mnts."+dn$)..|
0000d650 ee d7 cd 3a ed 6e 6a 3a f2 56 72 28 6e 69 24 29 |...:.nj:.Vr(ni$)|
0000d660 3a f2 61 55 28 55 6b 2c 58 7a 2c 31 2c 6e 63 24 |:.aU(Uk,Xz,1,nc$|
0000d670 29 3a f2 61 55 28 55 6b 2c 58 76 2c 31 2c 6e 64 |):.aU(Uk,Xv,1,nd|
0000d680 24 29 3a f2 61 55 28 55 6b 2c 58 78 2c 31 2c 6e |$):.aU(Uk,Xx,1,n|
0000d690 65 24 29 3a f2 65 73 28 55 6b 2c 57 64 2c a4 63 |e$):.es(Uk,Wd,.c|
0000d6a0 74 69 6f 6e 5f 4c 65 61 66 6e 61 6d 65 4f 6e 6c |tion_LeafnameOnl|
0000d6b0 79 28 6e 63 24 29 29 3a 55 6b 21 30 3d 57 64 3a |y(nc$)):Uk!0=Wd:|
0000d6c0 c8 99 26 34 30 30 43 42 2c 2c 55 6b 3a c8 99 26 |..&400CB,,Uk:..&|
0000d6d0 34 30 30 43 36 2c 2c 55 6b 3a c8 99 26 34 30 30 |400C6,,Uk:..&400|
0000d6e0 43 35 2c 2c 55 6b 3a f2 57 65 28 55 6b 2c 57 64 |C5,,Uk:.We(Uk,Wd|
0000d6f0 2c 57 66 2c 30 2c 30 29 3a f2 58 67 28 57 64 2c |,Wf,0,0):.Xg(Wd,|
0000d700 2d 31 2c 30 29 3a 56 61 3d 20 ac b9 3a e7 20 ac |-1,0):Va= ..:. .|
0000d710 6d 79 20 8c c8 99 26 34 30 30 44 34 2c 2c 2d 31 |my ...&400D4,,-1|
0000d720 3a 56 65 3d 30 0d bc b6 05 cd 0d bc ca 13 cd 3a |:Ve=0..........:|
0000d730 c8 99 26 34 30 36 43 31 3a f7 85 3a e1 0d bd 38 |..&406C1:..:...8|
0000d740 fd dd f2 6e 66 3a 6b 71 3d ae 28 6e 63 24 2b 22 |...nf:kq=.(nc$+"|
0000d750 2e 22 2b 22 21 48 65 6c 70 22 29 3a f2 6e 6b 28 |."+"!Help"):.nk(|
0000d760 22 21 48 65 6c 70 22 29 3a f2 6e 6b 28 22 3d 3d |"!Help"):.nk("==|
0000d770 3d 3d 3d 22 29 3a f2 6e 6b 28 22 22 29 3a f2 6e |==="):.nk(""):.n|
0000d780 6b 28 22 41 70 70 6c 69 63 61 74 69 6f 6e 20 3a |k("Application :|
0000d790 20 22 2b 5a 7a 24 29 3a f2 6e 6b 28 22 50 75 72 | "+Zz$):.nk("Pur|
0000d7a0 70 6f 73 65 20 20 20 20 20 3a 20 48 51 2d 54 72 |pose : HQ-Tr|
0000d7b0 61 63 6b 65 72 20 6d 75 73 69 63 20 61 70 70 6c |acker music appl|
0000d7c0 69 63 61 74 69 6f 6e 22 29 3a f2 6e 6b 28 22 22 |ication"):.nk(""|
0000d7d0 29 3a f2 6e 6b 28 22 a9 20 31 39 39 34 20 4d 79 |):.nk(". 1994 My|
0000d7e0 63 72 6f 66 74 20 53 6f 66 74 77 61 72 65 22 29 |croft Software")|
0000d7f0 3a d9 23 6b 71 3a 6b 71 3d 2d 31 3a ff 22 53 65 |:.#kq:kq=-1:."Se|
0000d800 74 54 79 70 65 20 22 2b 6e 63 24 2b 22 2e 22 2b |tType "+nc$+"."+|
0000d810 22 21 48 65 6c 70 20 54 65 78 74 22 3a ff 22 53 |"!Help Text":."S|
0000d820 74 61 6d 70 20 20 20 22 2b 6e 63 24 2b 22 2e 22 |tamp "+nc$+"."|
0000d830 2b 22 21 48 65 6c 70 22 3a e1 0d bd ce e5 dd f2 |+"!Help":.......|
0000d840 6e 67 3a 6e 6c 24 3d c1 91 24 2c 35 2c 32 29 3a |ng:nl$=..$,5,2):|
0000d850 6e 6d 24 3d c1 91 24 2c 38 2c 33 29 3a 6e 6e 24 |nm$=..$,8,3):nn$|
0000d860 3d c1 91 24 2c 31 32 2c 34 29 3a 6e 6f 24 3d 6e |=..$,12,4):no$=n|
0000d870 6c 24 2b 22 2d 22 2b 6e 6d 24 2b 22 2d 22 2b 6e |l$+"-"+nm$+"-"+n|
0000d880 6e 24 3a 6b 71 3d ae 28 6e 63 24 2b 22 2e 22 2b |n$:kq=.(nc$+"."+|
0000d890 22 21 52 75 6e 22 29 3a f2 6e 6b 28 22 7c 20 21 |"!Run"):.nk("| !|
0000d8a0 52 75 6e 22 29 3a f2 6e 6b 28 22 7c 20 46 6f 72 |Run"):.nk("| For|
0000d8b0 20 22 2b 5a 7a 24 29 3a f2 6e 6b 28 22 7c 22 29 | "+Zz$):.nk("|")|
0000d8c0 3a f2 6e 6b 28 22 7c 20 a9 20 31 39 39 34 20 4d |:.nk("| . 1994 M|
0000d8d0 79 63 72 6f 66 74 20 53 6f 66 74 77 61 72 65 20 |ycroft Software |
0000d8e0 28 22 2b 6e 6f 24 2b 22 29 22 29 3a f2 6e 6b 28 |("+no$+")"):.nk(|
0000d8f0 22 7c 22 29 3a d9 23 6b 71 3a 6b 71 3d 2d 31 3a |"|"):.#kq:kq=-1:|
0000d900 ff 22 53 65 74 54 79 70 65 20 22 2b 6e 63 24 2b |."SetType "+nc$+|
0000d910 22 2e 22 2b 22 21 52 75 6e 20 4f 62 65 79 22 0d |"."+"!Run Obey".|
0000d920 be 46 20 ff 22 53 74 61 6d 70 20 20 20 22 2b 6e |.F ."Stamp "+n|
0000d930 63 24 2b 22 2e 22 2b 22 21 52 75 6e 22 3a e1 0d |c$+"."+"!Run":..|
0000d940 be 78 ec dd f2 6e 68 3a f2 6e 70 28 55 71 2c 22 |.x...nh:.np(Uq,"|
0000d950 21 22 2c 5a 7a 24 29 3a f2 6e 70 28 55 71 2c 22 |!",Zz$):.np(Uq,"|
0000d960 73 6d 21 22 2c 22 73 6d 22 2b 5a 7a 24 29 3a f2 |sm!","sm"+Zz$):.|
0000d970 6e 71 28 55 71 2c 6e 63 24 2b 22 2e 22 2b 22 21 |nq(Uq,nc$+"."+"!|
0000d980 53 70 72 69 74 65 73 22 29 3a f2 6e 70 28 55 71 |Sprites"):.np(Uq|
0000d990 2c 5a 7a 24 2c 22 21 22 29 3a f2 6e 70 28 55 71 |,Zz$,"!"):.np(Uq|
0000d9a0 2c 22 73 6d 22 2b 5a 7a 24 2c 22 73 6d 21 22 29 |,"sm"+Zz$,"sm!")|
0000d9b0 3a f2 6e 70 28 55 73 2c 22 21 22 2c 5a 7a 24 29 |:.np(Us,"!",Zz$)|
0000d9c0 3a f2 6e 70 28 55 73 2c 22 73 6d 21 22 2c 22 73 |:.np(Us,"sm!","s|
0000d9d0 6d 22 2b 5a 7a 24 29 3a f2 6e 71 28 55 73 2c 6e |m"+Zz$):.nq(Us,n|
0000d9e0 63 24 2b 22 2e 22 2b 22 21 53 70 72 69 74 65 73 |c$+"."+"!Sprites|
0000d9f0 32 32 22 29 3a f2 6e 70 28 55 73 2c 5a 7a 24 2c |22"):.np(Us,Zz$,|
0000da00 22 21 22 29 3a f2 6e 70 28 55 73 2c 22 73 6d 22 |"!"):.np(Us,"sm"|
0000da10 2b 5a 7a 24 2c 22 73 6d 21 22 29 3a f2 6e 70 28 |+Zz$,"sm!"):.np(|
0000da20 55 75 2c 22 21 22 2c 5a 7a 24 29 0d bf 0e 60 f2 |Uu,"!",Zz$)...`.|
0000da30 6e 70 28 55 75 2c 22 73 6d 21 22 2c 22 73 6d 22 |np(Uu,"sm!","sm"|
0000da40 2b 5a 7a 24 29 3a f2 6e 71 28 55 75 2c 6e 63 24 |+Zz$):.nq(Uu,nc$|
0000da50 2b 22 2e 22 2b 22 21 53 70 72 69 74 65 73 32 33 |+"."+"!Sprites23|
0000da60 22 29 3a f2 6e 70 28 55 75 2c 5a 7a 24 2c 22 21 |"):.np(Uu,Zz$,"!|
0000da70 22 29 3a f2 6e 70 28 55 75 2c 22 73 6d 22 2b 5a |"):.np(Uu,"sm"+Z|
0000da80 7a 24 2c 22 73 6d 21 22 29 3a e1 0d bf 7c 3f dd |z$,"sm!"):...|?.|
0000da90 f2 6e 6b 28 63 61 24 29 3a ea 69 3a 69 3d 31 3a |.nk(ca$):.i:i=1:|
0000daa0 c8 95 69 3c 3d a9 63 61 24 3a d5 23 6b 71 2c 97 |..i<=.ca$:.#kq,.|
0000dab0 c1 63 61 24 2c 69 2c 31 29 3a 69 2b 3d 31 3a ce |.ca$,i,1):i+=1:.|
0000dac0 3a d5 23 6b 71 2c 31 30 3a e1 0d bf ea 37 dd f2 |:.#kq,10:....7..|
0000dad0 6e 57 28 63 61 24 29 3a ea 69 3a 69 3d 31 3a c8 |nW(ca$):.i:i=1:.|
0000dae0 95 69 3c 3d a9 63 61 24 3a d5 23 6b 71 2c 97 c1 |.i<=.ca$:.#kq,..|
0000daf0 63 61 24 2c 69 2c 31 29 3a 69 2b 3d 31 3a ce 3a |ca$,i,1):i+=1:.:|
0000db00 e1 0d c0 4e 62 dd f2 6e 58 28 6e 72 25 29 3a d5 |...Nb..nX(nr%):.|
0000db10 23 6b 71 2c 28 28 6e 72 25 29 20 80 26 46 46 29 |#kq,((nr%) .&FF)|
0000db20 3a d5 23 6b 71 2c 28 28 6e 72 25 3e 3e 38 29 20 |:.#kq,((nr%>>8) |
0000db30 80 26 46 46 29 3a d5 23 6b 71 2c 28 28 6e 72 25 |.&FF):.#kq,((nr%|
0000db40 3e 3e 31 36 29 20 80 26 46 46 29 3a d5 23 6b 71 |>>16) .&FF):.#kq|
0000db50 2c 28 28 6e 72 25 3e 3e 32 34 29 20 80 26 46 46 |,((nr%>>24) .&FF|
0000db60 29 3a e1 0d c0 9e 18 dd f2 6e 59 28 6e 73 25 29 |):.......nY(ns%)|
0000db70 3a d5 23 6b 71 2c 6e 73 25 3a e1 0d c1 70 57 dd |:.#kq,ns%:...pW.|
0000db80 f2 59 58 3a c8 99 26 39 30 30 43 35 2c 66 58 2c |.YX:..&900C5,fX,|
0000db90 55 56 20 b8 64 63 3a 41 25 3d 64 63 3a 42 25 3d |UV .dc:A%=dc:B%=|
0000dba0 64 63 2b 32 35 36 3a 43 25 3d 30 3a d6 65 71 3a |dc+256:C%=0:.eq:|
0000dbb0 63 6c 3d 31 3a e7 a4 63 74 69 6f 6e 5f 57 69 6e |cl=1:..ction_Win|
0000dbc0 64 6f 77 49 73 4f 70 65 6e 28 55 6b 2c 57 6c 29 |dowIsOpen(Uk,Wl)|
0000dbd0 20 8c 0d c1 ca 17 63 6b 3d 31 3a f2 63 6a 3a f2 | .....ck=1:.cj:.|
0000dbe0 59 5a 28 55 6b 2c 57 6c 29 0d c1 e8 07 cd 3a e1 |YZ(Uk,Wl).....:.|
0000dbf0 0d c2 38 59 dd f2 61 79 3a 6b 69 3d 61 73 2d 61 |..8Y..ay:ki=as-a|
0000dc00 76 3a 6b 6a 3d 61 74 2b 61 76 3a 69 3d 31 3a ef |v:kj=at+av:i=1:.|
0000dc10 35 3a c8 99 26 39 30 30 43 35 2c 66 58 2c 55 56 |5:..&900C5,fX,UV|
0000dc20 20 b8 64 63 3a c8 95 28 69 3c 3d 63 6c 29 3a 78 | .dc:..(i<=cl):x|
0000dc30 3d 61 72 2b 33 32 2d 61 75 3a 79 3d 6b 69 2b 34 |=ar+32-au:y=ki+4|
0000dc40 38 3a e7 69 3d 63 6b 20 8c 0d c2 ce 0f c8 99 26 |8:.i=ck .......&|
0000dc50 34 30 30 45 36 2c 31 31 0d c2 d8 10 cc 3a c8 99 |400E6,11.....:..|
0000dc60 26 34 30 30 45 36 2c 37 0d c2 ec 42 cd 3a 6e 74 |&400E6,7...B.:nt|
0000dc70 3d 64 63 3f 28 69 2d 31 29 2b 31 3a 63 61 24 3d |=dc?(i-1)+1:ca$=|
0000dc80 c3 6e 74 3a ec 78 2d 28 a9 63 61 24 2a 31 36 29 |.nt:.x-(.ca$*16)|
0000dc90 2c 79 3a f1 63 61 24 3a 69 2b 3d 31 3a 61 72 2b |,y:.ca$:i+=1:ar+|
0000dca0 3d 36 34 3a ce 3a ef 34 3a e1 0d c3 a0 84 dd f2 |=64:.:.4:.......|
0000dcb0 59 61 28 58 57 29 3a 58 58 3d 58 57 21 30 3a 58 |Ya(XW):XX=XW!0:X|
0000dcc0 59 3d 58 57 21 34 3a 55 6b 21 30 3d 57 6c 3a c8 |Y=XW!4:Uk!0=Wl:.|
0000dcd0 99 26 34 30 30 43 43 2c 2c 55 6b 3a 61 72 3d 55 |.&400CC,,Uk:ar=U|
0000dce0 6b 21 28 30 2b 34 29 3a 61 73 3d 55 6b 21 28 31 |k!(0+4):as=Uk!(1|
0000dcf0 32 2b 34 29 3a 61 76 3d 55 6b 21 28 32 30 2b 34 |2+4):av=Uk!(20+4|
0000dd00 29 3a 6e 75 3d 94 28 28 28 58 58 2d 61 72 29 2b |):nu=.(((XX-ar)+|
0000dd10 61 75 29 29 3a 6e 76 3d 28 28 6e 75 29 20 81 36 |au)):nv=((nu) .6|
0000dd20 34 29 2b 31 3a e7 6e 76 3c 3d 63 6c 20 8c 0d c4 |4)+1:.nv<=cl ...|
0000dd30 36 14 63 6b 3d 6e 76 3a f2 59 5a 28 55 6b 2c 57 |6.ck=nv:.YZ(Uk,W|
0000dd40 6c 29 0d c4 5e 07 cd 3a e1 0d c4 ae 16 dd f2 59 |l)..^..:.......Y|
0000dd50 56 28 69 79 29 3a e7 63 6c 3d 32 35 36 20 8c 0d |V(iy):.cl=256 ..|
0000dd60 c4 d6 51 57 77 24 3d a4 63 74 69 6f 6e 5f 54 61 |..QWw$=.ction_Ta|
0000dd70 67 54 6f 53 74 72 69 6e 67 28 56 6b 2c 22 65 72 |gToString(Vk,"er|
0000dd80 72 30 39 22 29 3a 57 7a 3d a4 63 74 69 6f 6e 5f |r09"):Wz=.ction_|
0000dd90 52 65 70 6f 72 74 45 72 72 6f 72 28 55 6b 2c 39 |ReportError(Uk,9|
0000dda0 39 2c 55 64 24 2c 57 77 24 2c 20 ac b9 2c b9 29 |9,Ud$,Ww$, ..,.)|
0000ddb0 0d c4 f4 86 cc 3a c8 99 26 39 30 30 43 35 2c 66 |.....:..&900C5,f|
0000ddc0 58 2c 55 56 20 b8 64 63 3a 6e 77 3d bb 28 a4 63 |X,UV .dc:nw=.(.c|
0000ddd0 74 69 6f 6e 5f 52 65 61 64 49 63 6f 6e 54 65 78 |tion_ReadIconTex|
0000dde0 74 28 55 6b 2c 57 6b 2c 31 29 29 2d 31 3a e3 6e |t(Uk,Wk,1))-1:.n|
0000ddf0 78 3d 63 6c 20 b8 63 6b 88 2d 31 3a 64 63 3f 6e |x=cl .ck.-1:dc?n|
0000de00 78 3d 64 63 3f 28 6e 78 2d 31 29 3a ed 6e 78 3a |x=dc?(nx-1):.nx:|
0000de10 64 63 3f 28 63 6b 2b 69 79 29 3d 6e 77 3a 63 6c |dc?(ck+iy)=nw:cl|
0000de20 2b 3d 31 3a f2 63 6a 3a f2 59 5a 28 55 6b 2c 57 |+=1:.cj:.YZ(Uk,W|
0000de30 6c 29 3a f2 59 59 0d c5 9e 07 cd 3a e1 0d c5 ee |l):.YY.....:....|
0000de40 22 dd f2 63 6a 3a 62 61 3d 63 6c 2a 20 36 34 3a |"..cj:ba=cl* 64:|
0000de50 e7 62 61 3c 33 33 32 20 8c 62 61 3d 33 33 32 0d |.ba<332 .ba=332.|
0000de60 c6 0c 1a f2 6e 79 28 55 6b 2c 57 6c 2c 30 2c 62 |....ny(Uk,Wl,0,b|
0000de70 61 2c 30 2c 39 36 29 3a e1 0d c6 52 10 dd f2 59 |a,0,96):...R...Y|
0000de80 57 3a e7 63 6c 3d 31 20 8c 0d c6 7a 51 57 77 24 |W:.cl=1 ...zQWw$|
0000de90 3d a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 |=.ction_TagToStr|
0000dea0 69 6e 67 28 56 6b 2c 22 65 72 72 31 30 22 29 3a |ing(Vk,"err10"):|
0000deb0 57 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 6f 72 74 |Wz=.ction_Report|
0000dec0 45 72 72 6f 72 28 55 6b 2c 39 39 2c 55 64 24 2c |Error(Uk,99,Ud$,|
0000ded0 57 77 24 2c 20 ac b9 2c b9 29 0d c6 98 57 cc 3a |Ww$, ..,.)...W.:|
0000dee0 c8 99 26 39 30 30 43 35 2c 66 58 2c 55 56 20 b8 |..&900C5,fX,UV .|
0000def0 64 63 3a 6e 7a 3d 63 6b 3a c8 95 6e 7a 3c 63 6c |dc:nz=ck:..nz<cl|
0000df00 3a 64 63 3f 28 6e 7a 2d 31 29 3d 64 63 3f 6e 7a |:dc?(nz-1)=dc?nz|
0000df10 3a 6e 7a 2b 3d 31 3a ce 3a 63 6c 2d 3d 31 3a f2 |:nz+=1:.:cl-=1:.|
0000df20 63 6a 3a f2 59 5a 28 55 6b 2c 57 6c 29 3a f2 59 |cj:.YZ(Uk,Wl):.Y|
0000df30 59 0d c7 38 07 cd 3a e1 0d c7 88 2d dd f2 56 75 |Y..8..:....-..Vu|
0000df40 3a 57 77 3d 20 ac b9 3a c8 99 26 39 30 30 43 33 |:Ww= ..:..&900C3|
0000df50 2c 32 35 36 2c 55 56 20 b8 57 78 2c 66 58 3a c8 |,256,UV .Wx,fX:.|
0000df60 8e 57 78 20 ca 0d c7 c4 17 c9 30 3a 57 77 3d b9 |.Wx ......0:Ww=.|
0000df70 3a 57 79 24 3d 22 65 72 72 33 33 22 0d c7 d8 17 |:Wy$="err33"....|
0000df80 c9 31 3a 57 77 3d b9 3a 57 79 24 3d 22 65 72 72 |.1:Ww=.:Wy$="err|
0000df90 33 34 22 0d c7 ec 0b cb 3a e7 57 77 20 8c 0d c8 |34".....:.Ww ...|
0000dfa0 14 52 57 77 24 3d a4 63 74 69 6f 6e 5f 54 61 67 |.RWw$=.ction_Tag|
0000dfb0 54 6f 53 74 72 69 6e 67 28 56 6b 2c 57 79 24 29 |ToString(Vk,Wy$)|
0000dfc0 3a 57 7a 3d a4 63 74 69 6f 6e 5f 52 65 70 6f 72 |:Wz=.ction_Repor|
0000dfd0 74 45 72 72 6f 72 28 55 6b 2c 39 39 2c 55 64 24 |tError(Uk,99,Ud$|
0000dfe0 2c 57 77 24 2c 20 ac b9 2c b9 29 3a 56 63 3d b9 |,Ww$, ..,.):Vc=.|
0000dff0 0d c8 3c 0e cc 3a f2 59 58 3a 63 6b 3d 31 0d c8 |..<..:.YX:ck=1..|
0000e000 6e 07 cd 3a e1 0d ca 3a 4f dd a4 63 74 69 6f 6e |n..:...:O..ction|
0000e010 5f 57 69 64 74 68 4f 66 53 70 72 69 74 65 28 6f |_WidthOfSprite(o|
0000e020 55 2c 6f 56 24 29 3a c8 99 26 32 45 2c 32 35 36 |U,oV$):..&2E,256|
0000e030 2b 34 30 2c 6f 55 2c 6f 56 24 20 b8 2c 2c 2c 64 |+40,oU,oV$ .,,,d|
0000e040 56 2c 64 57 2c 64 58 2c 6a 6d 3a 6f 57 3d 64 56 |V,dW,dX,jm:oW=dV|
0000e050 3a 3d 6f 57 0d ca 76 50 dd a4 63 74 69 6f 6e 5f |:=oW..vP..ction_|
0000e060 48 65 69 67 68 74 4f 66 53 70 72 69 74 65 28 6f |HeightOfSprite(o|
0000e070 55 2c 6f 56 24 29 3a c8 99 26 32 45 2c 32 35 36 |U,oV$):..&2E,256|
0000e080 2b 34 30 2c 6f 55 2c 6f 56 24 20 b8 2c 2c 2c 64 |+40,oU,oV$ .,,,d|
0000e090 56 2c 64 57 2c 64 58 2c 6a 6d 3a 6f 58 3d 64 57 |V,dW,dX,jm:oX=dW|
0000e0a0 3a 3d 6f 58 0d ca b2 4e dd a4 63 74 69 6f 6e 5f |:=oX...N..ction_|
0000e0b0 4d 6f 64 65 4f 66 53 70 72 69 74 65 28 6f 55 2c |ModeOfSprite(oU,|
0000e0c0 6f 56 24 29 3a c8 99 26 32 45 2c 32 35 36 2b 34 |oV$):..&2E,256+4|
0000e0d0 30 2c 6f 55 2c 6f 56 24 20 b8 2c 2c 2c 64 56 2c |0,oU,oV$ .,,,dV,|
0000e0e0 64 57 2c 64 58 2c 6a 6d 3a 6f 59 3d 6a 6d 3a 3d |dW,dX,jm:oY=jm:=|
0000e0f0 6f 59 0d ca ee 50 dd a4 63 74 69 6f 6e 5f 53 70 |oY...P..ction_Sp|
0000e100 72 69 74 65 48 61 73 4d 61 73 6b 28 6f 55 2c 6f |riteHasMask(oU,o|
0000e110 56 24 29 3a c8 99 26 32 45 2c 32 35 36 2b 34 30 |V$):..&2E,256+40|
0000e120 2c 6f 55 2c 6f 56 24 20 b8 2c 2c 2c 64 56 2c 64 |,oU,oV$ .,,,dV,d|
0000e130 57 2c 64 58 2c 6a 6d 3a 6f 5a 3d 2d 64 58 3a 3d |W,dX,jm:oZ=-dX:=|
0000e140 6f 59 0d cb 2a 66 dd a4 63 74 69 6f 6e 5f 53 70 |oY..*f..ction_Sp|
0000e150 72 69 74 65 48 61 73 50 61 6c 65 74 74 65 28 6f |riteHasPalette(o|
0000e160 55 2c 6f 56 24 29 3a 6f 61 3d a4 63 74 69 6f 6e |U,oV$):oa=.ction|
0000e170 5f 50 6f 69 6e 74 65 72 54 6f 53 70 72 69 74 65 |_PointerToSprite|
0000e180 43 6f 6e 74 72 6f 6c 42 6c 6f 63 6b 28 6f 55 2c |ControlBlock(oU,|
0000e190 6f 56 24 29 3a 6f 62 3d 6f 61 21 33 32 3a e7 6f |oV$):ob=oa!32:.o|
0000e1a0 62 3d 31 31 2a 34 20 8c 0d cb 52 0a 6f 63 3d 20 |b=11*4 ...R.oc= |
0000e1b0 ac b9 0d cb 5c 10 cc 3a 6f 63 3d 6f 61 2b 31 31 |....\..:oc=oa+11|
0000e1c0 2a 34 0d cb 70 09 cd 3a 3d 6f 63 0d cb 98 2b dd |*4..p..:=oc...+.|
0000e1d0 a4 63 74 69 6f 6e 5f 4e 75 6d 62 65 72 4f 66 53 |.ction_NumberOfS|
0000e1e0 70 72 69 74 65 73 49 6e 41 72 65 61 28 6f 55 29 |pritesInArea(oU)|
0000e1f0 3a 3d 6f 55 21 34 0d cb c0 73 dd a4 63 74 69 6f |:=oU!4...s..ctio|
0000e200 6e 5f 4e 61 6d 65 4f 66 4e 74 68 53 70 72 69 74 |n_NameOfNthSprit|
0000e210 65 28 6f 55 2c 6e 29 3a 6f 64 3d 6f 55 2b 6f 55 |e(oU,n):od=oU+oU|
0000e220 21 38 3a 6f 65 3d 31 3a c8 95 6f 65 3c 6e 3a 6f |!8:oe=1:..oe<n:o|
0000e230 66 3d 6f 64 21 30 3a 6f 64 2b 3d 6f 66 3a 6f 65 |f=od!0:od+=of:oe|
0000e240 2b 3d 31 3a ce 3a 3d c0 a4 63 74 69 6f 6e 5f 45 |+=1:.:=..ction_E|
0000e250 78 74 72 61 63 74 53 74 72 69 6e 67 28 6f 64 2b |xtractString(od+|
0000e260 34 29 2c 31 32 29 2b bd 30 0d cc 42 5d dd a4 63 |4),12)+.0..B]..c|
0000e270 74 69 6f 6e 5f 50 6f 69 6e 74 65 72 54 6f 53 70 |tion_PointerToSp|
0000e280 72 69 74 65 44 61 74 61 28 6f 55 2c 6f 56 24 29 |riteData(oU,oV$)|
0000e290 3a c8 99 26 32 45 2c 32 35 36 2b 32 34 2c 6f 55 |:..&2E,256+24,oU|
0000e2a0 2c 6f 56 24 20 b8 2c 2c 64 55 3a 6f 67 3d 64 55 |,oV$ .,,dU:og=dU|
0000e2b0 3a 6f 62 3d 6f 67 21 33 32 3a 6f 68 3d 6f 67 2b |:ob=og!32:oh=og+|
0000e2c0 6f 62 3a 3d 6f 68 0d cc 92 5b dd a4 63 74 69 6f |ob:=oh...[..ctio|
0000e2d0 6e 5f 50 6f 69 6e 74 65 72 54 6f 4d 61 73 6b 44 |n_PointerToMaskD|
0000e2e0 61 74 61 28 6f 55 2c 6f 56 24 29 3a c8 99 26 32 |ata(oU,oV$):..&2|
0000e2f0 45 2c 32 35 36 2b 32 34 2c 6f 55 2c 6f 56 24 20 |E,256+24,oU,oV$ |
0000e300 b8 2c 2c 64 55 3a 6f 67 3d 64 55 3a 6f 69 3d 6f |.,,dU:og=dU:oi=o|
0000e310 67 21 33 36 3a 6f 6a 3d 6f 67 2b 6f 69 3a 3d 6f |g!36:oj=og+oi:=o|
0000e320 6a 0d cc e2 53 dd a4 63 74 69 6f 6e 5f 50 6f 69 |j...S..ction_Poi|
0000e330 6e 74 65 72 54 6f 53 70 72 69 74 65 43 6f 6e 74 |nterToSpriteCont|
0000e340 72 6f 6c 42 6c 6f 63 6b 28 6f 55 2c 6f 56 24 29 |rolBlock(oU,oV$)|
0000e350 3a c8 99 26 32 45 2c 32 35 36 2b 32 34 2c 6f 55 |:..&2E,256+24,oU|
0000e360 2c 6f 56 24 20 b8 2c 2c 64 55 3a 6f 6b 3d 64 55 |,oV$ .,,dU:ok=dU|
0000e370 3a 3d 6f 6b 0d cd 1e 26 dd f2 6e 71 28 6f 55 2c |:=ok...&..nq(oU,|
0000e380 62 58 24 29 3a c8 99 26 32 45 2c 32 35 36 2b 31 |bX$):..&2E,256+1|
0000e390 32 2c 6f 55 2c 62 58 24 3a e1 0d cd 50 26 dd f2 |2,oU,bX$:...P&..|
0000e3a0 62 66 28 6f 55 2c 62 58 24 29 3a c8 99 26 32 45 |bf(oU,bX$):..&2E|
0000e3b0 2c 32 35 36 2b 31 30 2c 6f 55 2c 62 58 24 3a e1 |,256+10,oU,bX$:.|
0000e3c0 0d cd 82 30 dd f2 62 65 28 6f 55 2c 6f 6c 29 3a |...0..be(oU,ol):|
0000e3d0 6f 55 21 30 3d 6f 6c 3a 6f 55 21 38 3d 31 36 3a |oU!0=ol:oU!8=16:|
0000e3e0 c8 99 26 32 45 2c 32 35 36 2b 39 2c 6f 55 3a e1 |..&2E,256+9,oU:.|
0000e3f0 0d cd c8 62 dd a4 63 74 69 6f 6e 5f 52 65 61 64 |...b..ction_Read|
0000e400 53 70 72 69 74 65 50 69 78 65 6c 28 6f 55 2c 6f |SpritePixel(oU,o|
0000e410 56 24 2c 78 2c 79 29 3a ea 6f 6d 2c 6f 6e 3a c8 |V$,x,y):.om,on:.|
0000e420 99 26 32 45 2c 32 35 36 2b 34 31 2c 6f 55 2c 6f |.&2E,256+41,oU,o|
0000e430 56 24 2c 78 2c 79 20 b8 2c 2c 2c 2c 2c 64 58 2c |V$,x,y .,,,,,dX,|
0000e440 6a 6d 3a 6f 6d 3d 64 58 3a 6f 6e 3d 6a 6d 3a 3d |jm:om=dX:on=jm:=|
0000e450 6f 6d 0d ce 18 3a dd f2 6f 6f 28 6f 55 2c 6f 56 |om...:..oo(oU,oV|
0000e460 24 2c 78 2c 79 2c 6f 6d 2c 6f 6e 29 3a c8 99 26 |$,x,y,om,on):..&|
0000e470 32 45 2c 32 35 36 2b 34 32 2c 6f 55 2c 6f 56 24 |2E,256+42,oU,oV$|
0000e480 2c 78 2c 79 2c 6f 6d 2c 6f 6e 3a e1 0d ce 4a 2e |,x,y,om,on:...J.|
0000e490 dd f2 6e 70 28 6f 55 2c 6f 56 24 2c 6f 70 24 29 |..np(oU,oV$,op$)|
0000e4a0 3a c8 99 26 32 45 2c 32 35 36 2b 32 36 2c 6f 55 |:..&2E,256+26,oU|
0000e4b0 2c 6f 56 24 2c 6f 70 24 3a e1 0d ce 7c 26 dd f2 |,oV$,op$:...|&..|
0000e4c0 62 67 28 6f 55 2c 6f 56 24 29 3a c8 99 26 32 45 |bg(oU,oV$):..&2E|
0000e4d0 2c 32 35 36 2b 32 35 2c 6f 55 2c 6f 56 24 3a e1 |,256+25,oU,oV$:.|
0000e4e0 0d ce ae 47 dd a4 63 74 69 6f 6e 5f 53 70 72 69 |...G..ction_Spri|
0000e4f0 74 65 73 54 79 70 65 3a 6f 71 3d 31 3a c8 99 26 |tesType:oq=1:..&|
0000e500 36 2c 31 36 31 2c 31 33 33 20 b8 2c 2c 6f 72 3a |6,161,133 .,,or:|
0000e510 6f 72 3d 28 6f 72 3e 3e 32 29 20 80 33 3a e7 28 |or=(or>>2) .3:.(|
0000e520 6f 72 3d 32 29 20 8c 0d ce f4 08 6f 71 3d 33 0d |or=2) .....oq=3.|
0000e530 ce fe 30 cc 3a c8 99 26 33 35 2c 2d 31 2c 34 20 |..0.:..&35,-1,4 |
0000e540 b8 2c 2c 6f 73 3a c8 99 26 33 35 2c 2d 31 2c 35 |.,,os:..&35,-1,5|
0000e550 20 b8 2c 2c 6f 74 3a e7 6f 73 3d 6f 74 20 8c 0d | .,,ot:.os=ot ..|
0000e560 cf 26 08 6f 71 3d 32 0d cf 30 05 cd 0d cf 3a 09 |.&.oq=2..0....:.|
0000e570 cd 3a 3d 6f 71 0d cf 62 f4 dd f2 6f 75 28 6f 55 |.:=oq..b...ou(oU|
0000e580 2c 6f 56 24 2c 62 58 24 29 3a ea 6f 76 2c 6f 77 |,oV$,bX$):.ov,ow|
0000e590 2c 69 2c 6f 78 3a 6f 76 3d ae 62 58 24 3a 6f 77 |,i,ox:ov=.bX$:ow|
0000e5a0 3d a4 63 74 69 6f 6e 5f 50 6f 69 6e 74 65 72 54 |=.ction_PointerT|
0000e5b0 6f 53 70 72 69 74 65 43 6f 6e 74 72 6f 6c 42 6c |oSpriteControlBl|
0000e5c0 6f 63 6b 28 6f 55 2c 6f 56 24 29 3a 69 79 3d 6f |ock(oU,oV$):iy=o|
0000e5d0 77 21 30 3a 6f 78 3d 28 33 2a 34 29 20 2b 20 69 |w!0:ox=(3*4) + i|
0000e5e0 79 3a d5 23 6f 76 2c 31 3a d5 23 6f 76 2c 30 3a |y:.#ov,1:.#ov,0:|
0000e5f0 d5 23 6f 76 2c 30 3a d5 23 6f 76 2c 30 3a d5 23 |.#ov,0:.#ov,0:.#|
0000e600 6f 76 2c 31 36 3a d5 23 6f 76 2c 30 3a d5 23 6f |ov,16:.#ov,0:.#o|
0000e610 76 2c 30 3a d5 23 6f 76 2c 30 3a d5 23 6f 76 2c |v,0:.#ov,0:.#ov,|
0000e620 28 28 6f 78 29 20 80 26 46 46 29 3a d5 23 6f 76 |((ox) .&FF):.#ov|
0000e630 2c 28 28 6f 78 3e 3e 38 29 20 80 26 46 46 29 3a |,((ox>>8) .&FF):|
0000e640 d5 23 6f 76 2c 28 28 6f 78 3e 3e 31 36 29 20 80 |.#ov,((ox>>16) .|
0000e650 26 46 46 29 3a d5 23 6f 76 2c 28 28 6f 78 3e 3e |&FF):.#ov,((ox>>|
0000e660 32 34 29 20 80 26 46 46 29 0d cf da 93 e3 69 3d |24) .&FF).....i=|
0000e670 30 20 b8 69 79 2d 31 88 34 3a d5 23 6f 76 2c 28 |0 .iy-1.4:.#ov,(|
0000e680 28 28 6f 77 21 69 29 29 20 80 26 46 46 29 3a d5 |((ow!i)) .&FF):.|
0000e690 23 6f 76 2c 28 28 28 6f 77 21 69 29 3e 3e 38 29 |#ov,(((ow!i)>>8)|
0000e6a0 20 80 26 46 46 29 3a d5 23 6f 76 2c 28 28 28 6f | .&FF):.#ov,(((o|
0000e6b0 77 21 69 29 3e 3e 31 36 29 20 80 26 46 46 29 3a |w!i)>>16) .&FF):|
0000e6c0 d5 23 6f 76 2c 28 28 28 6f 77 21 69 29 3e 3e 32 |.#ov,(((ow!i)>>2|
0000e6d0 34 29 20 80 26 46 46 29 3a ed 69 3a d9 23 6f 76 |4) .&FF):.i:.#ov|
0000e6e0 3a ff 22 53 65 74 54 79 70 65 20 22 2b 62 58 24 |:."SetType "+bX$|
0000e6f0 2b 22 20 53 70 72 69 74 65 22 3a e1 0d d3 36 57 |+" Sprite":...6W|
0000e700 dd a4 63 74 69 6f 6e 5f 49 6e 69 74 69 61 6c 69 |..ction_Initiali|
0000e710 73 65 54 61 73 6b 28 6f 79 2c 6f 7a 24 29 3a ea |seTask(oy,oz$):.|
0000e720 63 79 2c 63 7a 3a c8 99 26 34 30 30 43 30 2c 6f |cy,cz:..&400C0,o|
0000e730 79 2c 26 34 42 35 33 34 31 35 34 2c 6f 7a 24 2b |y,&4B534154,oz$+|
0000e740 bd 30 20 b8 63 79 2c 63 7a 3a 70 55 3d 63 7a 3a |.0 .cy,cz:pU=cz:|
0000e750 3d 70 55 0d d3 7c 21 dd f2 57 76 28 70 55 29 3a |=pU..|!..Wv(pU):|
0000e760 c8 99 26 34 30 30 44 44 2c 70 55 2c 22 54 41 53 |..&400DD,pU,"TAS|
0000e770 4b 22 3a e1 0d d3 ae 9e dd a4 63 74 69 6f 6e 5f |K":.......ction_|
0000e780 52 65 70 6f 72 74 45 72 72 6f 72 28 58 55 2c 70 |ReportError(XU,p|
0000e790 56 2c 63 56 24 2c 57 77 24 2c 70 57 2c 70 58 29 |V,cV$,Ww$,pW,pX)|
0000e7a0 3a ea 63 58 2c 63 7a 2c 70 59 3a 58 55 2b 3d 31 |:.cX,cz,pY:XU+=1|
0000e7b0 30 32 34 3a 24 58 55 3d 63 56 24 2b bd 30 3a 58 |024:$XU=cV$+.0:X|
0000e7c0 55 21 33 32 3d 70 56 3a 24 28 58 55 2b 33 36 29 |U!32=pV:$(XU+36)|
0000e7d0 3d 57 77 24 2b bd 30 3a 63 58 3d 28 94 70 57 2a |=Ww$+.0:cX=(.pW*|
0000e7e0 32 5e 30 29 2b 28 94 70 58 2a 32 5e 31 29 3a c8 |2^0)+(.pX*2^1):.|
0000e7f0 99 26 34 30 30 44 46 2c 58 55 2b 33 32 2c 63 58 |.&400DF,XU+32,cX|
0000e800 2c 58 55 20 b8 2c 63 7a 3a 70 59 3d 63 7a 3a 3d |,XU .,cz:pY=cz:=|
0000e810 70 59 0d d4 30 26 dd f2 57 63 28 58 57 2c 58 55 |pY..0&..Wc(XW,XU|
0000e820 2c 58 61 2c 70 5a 29 3a e7 70 5a 3d 20 ac b9 20 |,Xa,pZ):.pZ= .. |
0000e830 84 58 61 3d 57 66 20 8c 0d d4 58 29 58 55 21 30 |.Xa=Wf ...X)XU!0|
0000e840 3d 58 61 3a c8 99 26 34 30 30 43 42 2c 2c 58 55 |=Xa:..&400CB,,XU|
0000e850 3a e7 58 61 3d 59 71 20 8c 58 55 21 32 38 3d 2d |:.Xa=Yq .XU!28=-|
0000e860 31 0d d4 8a 10 c8 99 26 34 30 30 43 35 2c 2c 58 |1......&400C5,,X|
0000e870 55 0d d4 9e 36 cc 3a c8 99 26 34 30 30 43 42 2c |U...6.:..&400CB,|
0000e880 2c 58 55 3a 70 61 3d 58 55 21 32 38 3a 70 62 3d |,XU:pa=XU!28:pb=|
0000e890 58 57 21 30 3a e7 58 57 21 32 38 3d 2d 31 20 80 |XW!0:.XW!28=-1 .|
0000e8a0 70 61 3d 2d 31 20 8c 0d d4 ee 0a c8 8e 70 62 20 |pa=-1 .......pb |
0000e8b0 ca 0d d4 f8 10 c9 57 64 3a 58 57 21 32 38 3d 57 |......Wd:XW!28=W|
0000e8c0 66 0d d5 02 10 c9 57 6d 3a 58 57 21 32 38 3d 57 |f.....Wm:XW!28=W|
0000e8d0 6e 0d d5 0c 10 c9 57 69 3a 58 57 21 32 38 3d 57 |n.....Wi:XW!28=W|
0000e8e0 6a 0d d5 16 10 c9 57 6b 3a 58 57 21 32 38 3d 57 |j.....Wk:XW!28=W|
0000e8f0 6c 0d d5 20 10 c9 57 67 3a 58 57 21 32 38 3d 57 |l.. ..Wg:XW!28=W|
0000e900 68 0d d5 2a 05 cb 0d d5 34 12 cd 3a c8 99 26 34 |h..*....4..:..&4|
0000e910 30 30 43 35 2c 2c 58 57 0d d5 5c 07 cd 3a e1 0d |00C5,,XW..\..:..|
0000e920 d5 8e 3c dd f2 57 6f 28 58 55 2c 58 61 29 3a c8 |..<..Wo(XU,Xa):.|
0000e930 99 26 34 30 30 43 46 2c 2c 58 55 3a 70 63 3d 58 |.&400CF,,XU:pc=X|
0000e940 55 21 38 3a e7 28 58 61 3d 57 64 20 84 58 61 3d |U!8:.(Xa=Wd .Xa=|
0000e950 57 66 29 20 80 70 63 3d 31 20 8c 0d d5 ac 44 70 |Wf) .pc=1 ....Dp|
0000e960 64 24 3d a4 63 74 69 6f 6e 5f 50 61 74 68 6e 61 |d$=.ction_Pathna|
0000e970 6d 65 4f 6e 6c 79 28 a4 63 74 69 6f 6e 5f 52 65 |meOnly(.ction_Re|
0000e980 61 64 49 63 6f 6e 54 65 78 74 28 55 6b 2c 58 7a |adIconText(Uk,Xz|
0000e990 2c 31 29 29 3a e7 70 64 24 3c 3e 22 22 20 8c 0d |,1)):.pd$<>"" ..|
0000e9a0 d5 c0 19 ff 22 46 69 6c 65 72 5f 4f 70 65 6e 44 |...."Filer_OpenD|
0000e9b0 69 72 20 22 2b 70 64 24 0d d5 ca 10 cd 3a e7 20 |ir "+pd$.....:. |
0000e9c0 ac a6 28 2d 31 29 20 8c 0d d5 de 18 58 55 21 30 |..(-1) .....XU!0|
0000e9d0 3d 58 61 3a c8 99 26 34 30 30 43 36 2c 2c 58 55 |=Xa:..&400C6,,XU|
0000e9e0 0d d5 f2 05 cd 0d d5 fc 16 cc 3a e7 20 ac 28 58 |..........:. .(X|
0000e9f0 61 3d 59 6a 20 80 57 55 29 20 8c 0d d6 10 18 58 |a=Yj .WU) .....X|
0000ea00 55 21 30 3d 58 61 3a c8 99 26 34 30 30 43 36 2c |U!0=Xa:..&400C6,|
0000ea10 2c 58 55 0d d6 24 05 cd 0d d6 2e 07 cd 3a e1 0d |,XU..$.......:..|
0000ea20 d6 56 53 dd f2 58 66 28 58 55 2c 58 61 29 3a ea |.VS..Xf(XU,Xa):.|
0000ea30 62 61 2c 62 62 2c 70 65 2c 70 66 2c 70 67 2c 70 |ba,bb,pe,pf,pg,p|
0000ea40 68 3a 58 55 21 30 3d 58 61 3a c8 99 26 34 30 30 |h:XU!0=Xa:..&400|
0000ea50 43 43 2c 2c 58 55 3a 62 61 3d 94 58 55 21 35 32 |CC,,XU:ba=.XU!52|
0000ea60 3a e7 62 61 3e 31 32 38 30 20 8c 62 61 3d 31 32 |:.ba>1280 .ba=12|
0000ea70 38 30 0d d6 88 1d 62 62 3d 94 58 55 21 34 38 3a |80....bb=.XU!48:|
0000ea80 e7 62 62 3e 34 37 36 20 8c 62 62 3d 34 37 36 0d |.bb>476 .bb=476.|
0000ea90 d6 92 f0 58 55 21 30 3d 34 3a 58 55 21 34 3d 35 |...XU!0=4:XU!4=5|
0000eaa0 3a 58 55 21 38 3d 31 31 3a 58 55 21 31 32 3d 31 |:XU!8=11:XU!12=1|
0000eab0 32 3a 58 55 21 31 36 3d 2d 31 3a c8 99 26 33 31 |2:XU!16=-1:..&31|
0000eac0 2c 58 55 2c 58 55 2b 33 32 3a 70 65 3d 58 55 21 |,XU,XU+32:pe=XU!|
0000ead0 33 32 3a 70 66 3d 58 55 21 33 36 3a 70 67 3d 58 |32:pf=XU!36:pg=X|
0000eae0 55 21 34 30 3a 70 68 3d 58 55 21 34 34 3a 78 3d |U!40:ph=XU!44:x=|
0000eaf0 70 67 2a 20 32 5e 70 65 20 3a 79 3d 70 68 2a 20 |pg* 2^pe :y=ph* |
0000eb00 32 5e 70 66 3a 78 3d 28 78 2d 62 61 29 20 81 32 |2^pf:x=(x-ba) .2|
0000eb10 3a 79 3d 28 79 2d 62 62 29 20 81 32 3a 58 55 21 |:y=(y-bb) .2:XU!|
0000eb20 28 30 29 3d 58 61 3a 58 55 21 28 34 2b 30 29 3d |(0)=Xa:XU!(4+0)=|
0000eb30 78 3a 58 55 21 28 34 2b 34 29 3d 79 3a 58 55 21 |x:XU!(4+4)=y:XU!|
0000eb40 28 34 2b 38 29 3d 58 55 21 28 34 2b 30 29 2b 62 |(4+8)=XU!(4+0)+b|
0000eb50 61 3a 58 55 21 28 34 2b 31 32 29 3d 58 55 21 28 |a:XU!(4+12)=XU!(|
0000eb60 34 2b 34 29 2b 62 62 3a 58 55 21 32 38 3d 2d 31 |4+4)+bb:XU!28=-1|
0000eb70 3a c8 99 26 34 30 30 43 35 2c 2c 58 55 3a e1 0d |:..&400C5,,XU:..|
0000eb80 d7 32 4d dd f2 6e 79 28 58 55 2c 58 61 2c 70 69 |.2M..ny(XU,Xa,pi|
0000eb90 2c 70 6a 2c 70 6b 2c 70 6c 29 3a 58 55 21 30 3d |,pj,pk,pl):XU!0=|
0000eba0 70 69 3a 58 55 21 34 3d 70 6b 3a 58 55 21 38 3d |pi:XU!4=pk:XU!8=|
0000ebb0 70 6a 3a 58 55 21 31 32 3d 70 6c 3a c8 99 26 34 |pj:XU!12=pl:..&4|
0000ebc0 30 30 44 37 2c 58 61 2c 58 55 3a e1 0d d7 8c 5b |00D7,Xa,XU:....[|
0000ebd0 dd a4 63 74 69 6f 6e 5f 57 69 6e 64 6f 77 49 73 |..ction_WindowIs|
0000ebe0 4f 70 65 6e 28 58 55 2c 58 61 29 3a ea 70 6d 2c |Open(XU,Xa):.pm,|
0000ebf0 70 6e 3a 58 55 21 30 3d 58 61 3a c8 99 26 34 30 |pn:XU!0=Xa:..&40|
0000ec00 30 43 42 2c 2c 58 55 3a 70 6d 3d 58 55 21 33 32 |0CB,,XU:pm=XU!32|
0000ec10 3a 70 6e 3d 28 70 6d 20 80 32 5e 31 36 29 3d 32 |:pn=(pm .2^16)=2|
0000ec20 5e 31 36 3a 3d 70 6e 0d d7 e6 a4 dd f2 59 5a 28 |^16:=pn......YZ(|
0000ec30 58 55 2c 58 61 29 3a ea 62 61 2c 62 62 2c 70 6f |XU,Xa):.ba,bb,po|
0000ec40 2c 70 70 3a ea 70 71 2c 70 72 2c 70 73 2c 70 74 |,pp:.pq,pr,ps,pt|
0000ec50 3a 58 55 21 30 3d 58 61 3a c8 99 26 34 30 30 43 |:XU!0=Xa:..&400C|
0000ec60 43 2c 2c 58 55 3a 62 61 3d 58 55 21 31 32 2d 55 |C,,XU:ba=XU!12-U|
0000ec70 6b 21 34 3a 62 62 3d 58 55 21 31 36 2d 58 55 21 |k!4:bb=XU!16-XU!|
0000ec80 38 3a 70 6f 3d 58 55 21 32 30 3a 70 70 3d 58 55 |8:po=XU!20:pp=XU|
0000ec90 21 32 34 3a 70 71 3d 70 6f 3a 70 74 3d 70 70 3a |!24:pq=po:pt=pp:|
0000eca0 70 73 3d 70 74 2d 62 62 3a 70 72 3d 70 71 2b 62 |ps=pt-bb:pr=pq+b|
0000ecb0 61 3a c8 99 26 34 30 30 44 31 2c 58 61 2c 70 71 |a:..&400D1,Xa,pq|
0000ecc0 2c 70 73 2c 70 72 2c 70 74 3a e1 0d d8 68 40 dd |,ps,pr,pt:...h@.|
0000ecd0 f2 70 75 28 58 55 2c 58 61 2c 58 56 29 3a 58 55 |.pu(XU,Xa,XV):XU|
0000ece0 21 30 3d 58 61 3a 58 55 21 34 3d 58 56 3a 58 55 |!0=Xa:XU!4=XV:XU|
0000ecf0 21 38 3d 30 3a 58 55 21 31 32 3d 30 3a c8 99 26 |!8=0:XU!12=0:..&|
0000ed00 34 30 30 43 44 2c 2c 58 55 3a e1 0d d8 c2 2d dd |400CD,,XU:....-.|
0000ed10 f2 58 67 28 58 61 2c 58 56 2c 70 76 29 3a c8 99 |.Xg(Xa,XV,pv):..|
0000ed20 26 34 30 30 44 32 2c 58 61 2c 58 56 2c 30 2c 30 |&400D2,Xa,XV,0,0|
0000ed30 2c 2d 31 2c 70 76 3a e1 0d d8 f4 25 dd f2 61 56 |,-1,pv:....%..aV|
0000ed40 3a c8 99 26 34 30 30 44 32 2c 2d 31 2c 2d 31 2c |:..&400D2,-1,-1,|
0000ed50 2d 31 2c 2d 31 2c 2d 31 2c 2d 31 3a e1 0d d9 26 |-1,-1,-1,-1:...&|
0000ed60 6e dd a4 63 74 69 6f 6e 5f 52 65 61 64 49 63 6f |n..ction_ReadIco|
0000ed70 6e 54 65 78 74 28 58 55 2c 58 61 2c 58 56 29 3a |nText(XU,Xa,XV):|
0000ed80 ea 63 58 2c 70 77 2c 63 61 24 3a 58 55 21 30 3d |.cX,pw,ca$:XU!0=|
0000ed90 58 61 3a 58 55 21 34 3d 58 56 3a c8 99 26 34 30 |Xa:XU!4=XV:..&40|
0000eda0 30 43 45 2c 2c 58 55 3a 63 58 3d 58 55 21 28 38 |0CE,,XU:cX=XU!(8|
0000edb0 2b 31 36 29 3a 70 77 3d 28 63 58 20 80 32 5e 38 |+16):pw=(cX .2^8|
0000edc0 29 3d 32 5e 38 3a e7 70 77 20 8c 0d d9 76 27 63 |)=2^8:.pw ...v'c|
0000edd0 61 24 3d a4 63 74 69 6f 6e 5f 45 78 74 72 61 63 |a$=.ction_Extrac|
0000ede0 74 53 74 72 69 6e 67 28 58 55 21 28 38 2b 32 30 |tString(XU!(8+20|
0000edf0 29 29 0d d9 80 27 cc 3a 63 61 24 3d a4 63 74 69 |))...'.:ca$=.cti|
0000ee00 6f 6e 5f 45 78 74 72 61 63 74 53 74 72 69 6e 67 |on_ExtractString|
0000ee10 28 58 55 2b 38 2b 32 30 29 0d d9 94 0a cd 3a 3d |(XU+8+20).....:=|
0000ee20 63 61 24 0d d9 bc 5e dd f2 61 55 28 58 55 2c 58 |ca$...^..aU(XU,X|
0000ee30 61 2c 58 56 2c 70 78 24 29 3a ea 63 58 2c 70 77 |a,XV,px$):.cX,pw|
0000ee40 3a 58 55 21 30 3d 58 61 3a 58 55 21 34 3d 58 56 |:XU!0=Xa:XU!4=XV|
0000ee50 3a c8 99 26 34 30 30 43 45 2c 2c 58 55 3a 63 58 |:..&400CE,,XU:cX|
0000ee60 3d 58 55 21 28 38 2b 31 36 29 3a 70 77 3d 28 63 |=XU!(8+16):pw=(c|
0000ee70 58 20 80 32 5e 38 29 3d 32 5e 38 3a e7 70 77 20 |X .2^8)=2^8:.pw |
0000ee80 8c 0d da 0c 14 24 28 58 55 21 28 38 2b 32 30 29 |.....$(XU!(8+20)|
0000ee90 29 3d 70 78 24 0d da 16 14 cc 3a 24 28 58 55 2b |)=px$.....:$(XU+|
0000eea0 38 2b 32 30 29 3d 70 78 24 0d da 2a 33 cd 3a 58 |8+20)=px$..*3.:X|
0000eeb0 55 21 30 3d 58 61 3a 58 55 21 34 3d 58 56 3a 58 |U!0=Xa:XU!4=XV:X|
0000eec0 55 21 38 3d 30 3a 58 55 21 31 32 3d 30 3a c8 99 |U!8=0:XU!12=0:..|
0000eed0 26 34 30 30 43 44 2c 2c 58 55 3a e1 0d da 84 1a |&400CD,,XU:.....|
0000eee0 dd f2 61 6c 28 70 79 29 3a c8 99 26 34 30 30 44 |..al(py):..&400D|
0000eef0 43 2c 70 79 3a e1 0d da b6 49 dd a4 63 74 69 6f |C,py:....I..ctio|
0000ef00 6e 5f 45 78 74 72 61 63 74 53 74 72 69 6e 67 28 |n_ExtractString(|
0000ef10 63 59 29 3a ea 6b 68 24 3a 6b 68 24 3d 22 22 3a |cY):.kh$:kh$="":|
0000ef20 c8 95 3f 63 59 3e 33 31 3a 6b 68 24 2b 3d bd 3f |..?cY>31:kh$+=.?|
0000ef30 63 59 3a 63 59 2b 3d 31 3a ce 3a 3d 6b 68 24 0d |cY:cY+=1:.:=kh$.|
0000ef40 db 1a 2a dd f2 62 6a 28 58 55 2c 62 58 24 29 3a |..*..bj(XU,bX$):|
0000ef50 24 58 55 3d 62 58 24 2b bd 30 3a c8 99 26 34 30 |$XU=bX$+.0:..&40|
0000ef60 30 44 39 2c 2c 58 55 3a e1 0d db 56 a4 dd a4 63 |0D9,,XU:...V...c|
0000ef70 74 69 6f 6e 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 |tion_LoadTemplat|
0000ef80 65 28 70 7a 2c 71 55 2c 71 56 2c 71 57 24 2c 71 |e(pz,qU,qV,qW$,q|
0000ef90 58 29 3a ea 64 55 2c 71 59 2c 71 5a 2c 71 61 2c |X):.dU,qY,qZ,qa,|
0000efa0 71 62 3a c8 99 26 34 30 30 44 42 2c 2c 70 7a 2c |qb:..&400DB,,pz,|
0000efb0 71 55 2c 71 56 2c 2d 31 2c 71 57 24 2c 30 20 b8 |qU,qV,-1,qW$,0 .|
0000efc0 2c 2c 64 55 3a 71 59 3d 70 7a 21 38 34 3a 71 5a |,,dU:qY=pz!84:qZ|
0000efd0 3d 64 55 3a 71 61 3d 30 3a c8 95 71 61 3c 71 59 |=dU:qa=0:..qa<qY|
0000efe0 3a 71 62 3d 70 7a 2b 38 38 2b 71 61 2a 33 32 3a |:qb=pz+88+qa*32:|
0000eff0 e7 28 71 62 21 31 36 20 80 26 31 30 33 29 3d 26 |.(qb!16 .&103)=&|
0000f000 31 30 32 20 8c 71 62 21 32 34 3d 71 58 0d db c4 |102 .qb!24=qX...|
0000f010 0f 71 61 2b 3d 31 3a ce 3a 3d 71 5a 0d db f6 3c |.qa+=1:.:=qZ...<|
0000f020 dd a4 63 74 69 6f 6e 5f 4d 61 6b 65 54 65 6d 70 |..ction_MakeTemp|
0000f030 6c 61 74 65 41 57 69 6e 64 6f 77 28 70 7a 29 3a |lateAWindow(pz):|
0000f040 ea 58 61 3a c8 99 26 34 30 30 43 31 2c 2c 70 7a |.Xa:..&400C1,,pz|
0000f050 20 b8 58 61 3a 3d 58 61 0d dc 32 13 dd f2 62 6c | .Xa:=Xa..2...bl|
0000f060 3a c8 99 26 34 30 30 44 41 3a e1 0d dc 64 3c dd |:..&400DA:...d<.|
0000f070 a4 63 74 69 6f 6e 5f 50 6f 6c 6c 57 69 6d 70 28 |.ction_PollWimp(|
0000f080 58 57 2c 71 63 29 3a ea 63 79 3a c8 99 26 34 30 |XW,qc):.cy:..&40|
0000f090 30 43 37 2c 71 63 2c 58 57 20 b8 63 79 3a 71 64 |0C7,qc,XW .cy:qd|
0000f0a0 3d 63 79 3a 3d 71 64 0d dc aa 4b dd a4 63 74 69 |=cy:=qd...K..cti|
0000f0b0 6f 6e 5f 53 65 74 53 6c 6f 74 53 69 7a 65 28 71 |on_SetSlotSize(q|
0000f0c0 65 29 3a ea 63 79 2c 63 7a 2c 64 55 2c 71 66 3a |e):.cy,cz,dU,qf:|
0000f0d0 c8 99 26 34 30 30 45 43 2c 71 65 2c 2d 31 20 b8 |..&400EC,qe,-1 .|
0000f0e0 63 79 2c 63 7a 2c 64 55 3a 71 66 3d 63 79 3a 3d |cy,cz,dU:qf=cy:=|
0000f0f0 71 66 0d dc f0 48 dd a4 63 74 69 6f 6e 5f 52 65 |qf...H..ction_Re|
0000f100 61 64 53 6c 6f 74 53 69 7a 65 3a ea 63 79 2c 63 |adSlotSize:.cy,c|
0000f110 7a 2c 64 55 2c 71 66 3a c8 99 26 34 30 30 45 43 |z,dU,qf:..&400EC|
0000f120 2c 2d 31 2c 2d 31 20 b8 63 79 2c 63 7a 2c 64 55 |,-1,-1 .cy,cz,dU|
0000f130 3a 71 66 3d 63 79 3a 3d 71 66 0d dd 36 4e dd a4 |:qf=cy:=qf..6N..|
0000f140 63 74 69 6f 6e 5f 52 65 61 64 53 69 7a 65 4f 66 |ction_ReadSizeOf|
0000f150 46 72 65 65 50 6f 6f 6c 3a ea 63 79 2c 63 7a 2c |FreePool:.cy,cz,|
0000f160 64 55 2c 71 67 3a c8 99 26 34 30 30 45 43 2c 2d |dU,qg:..&400EC,-|
0000f170 31 2c 2d 31 20 b8 63 79 2c 63 7a 2c 64 55 3a 71 |1,-1 .cy,cz,dU:q|
0000f180 67 3d 64 55 3a 3d 71 67 0d dd 7c 8e dd f2 58 65 |g=dU:=qg..|...Xe|
0000f190 28 58 55 29 3a ea 70 65 2c 70 66 2c 70 67 2c 70 |(XU):.pe,pf,pg,p|
0000f1a0 68 3a 58 55 21 30 3d 34 3a 58 55 21 34 3d 35 3a |h:XU!0=4:XU!4=5:|
0000f1b0 58 55 21 38 3d 31 31 3a 58 55 21 31 32 3d 31 32 |XU!8=11:XU!12=12|
0000f1c0 3a 58 55 21 31 36 3d 2d 31 3a c8 99 26 33 31 2c |:XU!16=-1:..&31,|
0000f1d0 58 55 2c 58 55 2b 33 32 3a 70 65 3d 58 55 21 33 |XU,XU+32:pe=XU!3|
0000f1e0 32 3a 70 66 3d 58 55 21 33 36 3a 70 67 3d 58 55 |2:pf=XU!36:pg=XU|
0000f1f0 21 34 30 3a 70 68 3d 58 55 21 34 34 3a c8 97 c8 |!40:ph=XU!44:...|
0000f200 93 30 2c 30 2c 70 67 2a 32 5e 70 65 2c 70 68 2a |.0,0,pg*2^pe,ph*|
0000f210 32 5e 70 66 3a e1 0d dd ea 6c dd f2 66 70 28 58 |2^pf:....l..fp(X|
0000f220 55 2c 58 61 29 3a ea 62 61 2c 62 62 2c 70 65 2c |U,Xa):.ba,bb,pe,|
0000f230 70 66 2c 70 67 2c 70 68 3a 21 58 55 3d 58 61 3a |pf,pg,ph:!XU=Xa:|
0000f240 c8 99 26 34 30 30 43 43 2c 2c 58 55 3a 5a 72 3d |..&400CC,,XU:Zr=|
0000f250 58 55 21 34 3a 5a 73 3d 58 55 21 38 3a 62 61 3d |XU!4:Zs=XU!8:ba=|
0000f260 94 58 55 21 35 32 3a 62 62 3d 94 58 55 21 34 38 |.XU!52:bb=.XU!48|
0000f270 3a c8 97 c8 93 5a 72 2c 5a 73 2c 62 61 2c 62 62 |:....Zr,Zs,ba,bb|
0000f280 3a e1 0d de 58 d4 dd f2 71 68 28 58 55 2c 58 61 |:...X...qh(XU,Xa|
0000f290 2c 58 56 2c 71 69 2c 71 6a 29 3a 21 58 55 3d 58 |,XV,qi,qj):!XU=X|
0000f2a0 61 3a c8 99 26 34 30 30 43 43 2c 2c 58 55 3a 71 |a:..&400CC,,XU:q|
0000f2b0 6b 3d 58 55 21 34 3a 71 6c 3d 58 55 21 38 3a 71 |k=XU!4:ql=XU!8:q|
0000f2c0 6d 3d 58 55 21 31 32 3a 71 6e 3d 58 55 21 31 36 |m=XU!12:qn=XU!16|
0000f2d0 3a 58 55 21 30 3d 58 61 3a 58 55 21 34 3d 58 56 |:XU!0=Xa:XU!4=XV|
0000f2e0 3a c8 99 26 34 30 30 43 45 2c 2c 58 55 3a 71 6f |:..&400CE,,XU:qo|
0000f2f0 3d 58 55 21 38 3a 71 70 3d 58 55 21 31 32 3a 71 |=XU!8:qp=XU!12:q|
0000f300 71 3d 58 55 21 31 36 3a 71 72 3d 58 55 21 32 30 |q=XU!16:qr=XU!20|
0000f310 3a 71 73 3d 71 71 2d 71 6f 3a 71 74 3d 71 72 2d |:qs=qq-qo:qt=qr-|
0000f320 71 70 3a 61 72 3d 71 6b 2b 71 6f 3a 61 74 3d 71 |qp:ar=qk+qo:at=q|
0000f330 6e 2b 71 70 3a c8 97 c8 93 61 72 2b 71 69 2c 61 |n+qp:....ar+qi,a|
0000f340 74 2b 71 6a 2c 71 73 2d 71 69 2a 32 2c 71 74 2d |t+qj,qs-qi*2,qt-|
0000f350 71 6a 2a 32 3a e1 0d de f8 68 dd f2 6a 64 28 58 |qj*2:....h..jd(X|
0000f360 55 2c 58 61 2c 58 58 2c 58 59 29 3a 21 58 55 3d |U,Xa,XX,XY):!XU=|
0000f370 58 61 3a c8 99 26 34 30 30 43 43 2c 2c 58 55 3a |Xa:..&400CC,,XU:|
0000f380 71 75 3d 58 55 21 34 2d 58 55 21 32 30 3a 71 76 |qu=XU!4-XU!20:qv|
0000f390 3d 58 55 21 31 36 2d 58 55 21 32 34 3a 71 75 3d |=XU!16-XU!24:qu=|
0000f3a0 58 58 2d 71 75 3a 71 76 3d 71 76 2d 58 59 3a 6a |XX-qu:qv=qv-XY:j|
0000f3b0 66 25 3d 71 75 3a 71 77 25 3d 71 76 3a e1 0d df |f%=qu:qw%=qv:...|
0000f3c0 70 c7 dd f2 57 65 28 58 55 2c 58 61 2c 71 78 2c |p...We(XU,Xa,qx,|
0000f3d0 71 69 2c 71 6a 29 3a 58 55 21 30 3d 58 61 3a c8 |qi,qj):XU!0=Xa:.|
0000f3e0 99 26 34 30 30 43 43 2c 2c 58 55 3a 71 79 3d 58 |.&400CC,,XU:qy=X|
0000f3f0 55 21 34 3a 5a 70 3d 58 55 21 31 32 3a 71 7a 3d |U!4:Zp=XU!12:qz=|
0000f400 58 55 21 38 3a 5a 71 3d 58 55 21 31 36 3a 72 55 |XU!8:Zq=XU!16:rU|
0000f410 3d 58 55 21 32 38 3a 58 55 21 30 3d 71 78 3a c8 |=XU!28:XU!0=qx:.|
0000f420 99 26 34 30 30 43 43 2c 2c 58 55 3a 62 62 3d 94 |.&400CC,,XU:bb=.|
0000f430 28 58 55 21 31 36 2d 58 55 21 38 29 3a 58 55 21 |(XU!16-XU!8):XU!|
0000f440 34 3d 71 79 2b 71 69 3a 58 55 21 31 32 3d 5a 70 |4=qy+qi:XU!12=Zp|
0000f450 2d 71 69 3a 58 55 21 31 36 3d 5a 71 2d 71 6a 3a |-qi:XU!16=Zq-qj:|
0000f460 58 55 21 38 3d 58 55 21 31 36 2d 62 62 3a 58 55 |XU!8=XU!16-bb:XU|
0000f470 21 32 38 3d 72 55 3a c8 99 26 34 30 30 43 35 2c |!28=rU:..&400C5,|
0000f480 2c 58 55 3a e1 0d df fc 3c dd a4 63 74 69 6f 6e |,XU:....<..ction|
0000f490 5f 44 65 70 74 68 4f 66 57 69 6e 64 6f 77 28 58 |_DepthOfWindow(X|
0000f4a0 55 2c 58 61 29 3a 58 55 21 30 3d 58 61 3a c8 99 |U,Xa):XU!0=Xa:..|
0000f4b0 26 34 30 30 43 43 2c 2c 58 55 3a 3d 58 55 21 32 |&400CC,,XU:=XU!2|
0000f4c0 38 0d e0 38 29 dd a4 63 74 69 6f 6e 5f 57 6f 72 |8..8)..ction_Wor|
0000f4d0 64 41 6c 69 67 6e 28 72 56 29 3a 3d 28 28 72 56 |dAlign(rV):=((rV|
0000f4e0 2b 33 29 20 80 28 ac 33 29 29 0d e0 60 5b dd a4 |+3) .(.3))..`[..|
0000f4f0 63 74 69 6f 6e 5f 49 6e 73 74 61 6c 6c 48 65 6c |ction_InstallHel|
0000f500 70 3a c8 99 26 31 45 2c 36 2c 2c 2c 31 36 20 b8 |p:..&1E,6,,,16 .|
0000f510 2c 2c 64 55 3a 56 6b 3d 64 55 3a c8 99 26 34 31 |,,dU:Vk=dU:..&41|
0000f520 35 30 31 2c 56 6b 2c 22 3c 22 2b 55 64 24 2b 22 |501,Vk,"<"+Ud$+"|
0000f530 24 44 69 72 3e 2e 4d 65 73 73 61 67 65 73 22 2c |$Dir>.Messages",|
0000f540 30 3a 3d 56 6b 0d e0 a6 26 dd f2 57 75 28 72 57 |0:=Vk...&..Wu(rW|
0000f550 29 3a c8 99 26 34 31 35 30 34 2c 72 57 3a c8 99 |):..&41504,rW:..|
0000f560 26 31 45 2c 37 2c 2c 72 57 3a e1 0d e0 e2 69 dd |&1E,7,,rW:....i.|
0000f570 a4 63 74 69 6f 6e 5f 54 61 67 54 6f 53 74 72 69 |.ction_TagToStri|
0000f580 6e 67 28 72 57 2c 57 79 24 29 3a c8 99 26 34 31 |ng(rW,Wy$):..&41|
0000f590 35 30 32 2c 72 57 2c 57 79 24 2c 30 2c 30 2c 30 |502,rW,Wy$,0,0,0|
0000f5a0 2c 30 2c 30 2c 30 20 b8 2c 2c 64 55 3a 64 72 3d |,0,0,0 .,,dU:dr=|
0000f5b0 64 55 3a 72 58 24 3d a4 63 74 69 6f 6e 5f 45 78 |dU:rX$=.ction_Ex|
0000f5c0 74 72 61 63 74 53 74 72 69 6e 67 28 64 72 29 3a |tractString(dr):|
0000f5d0 3d 72 58 24 0d e1 28 5a dd f2 72 59 28 72 5a 2c |=rX$..(Z..rY(rZ,|
0000f5e0 72 61 2c 72 62 29 3a 72 63 3d 72 5a 3a 72 64 3d |ra,rb):rc=rZ:rd=|
0000f5f0 72 61 3a 72 65 3d 72 62 3a 57 56 3d 34 3a f2 71 |ra:re=rb:WV=4:.q|
0000f600 68 28 55 6b 2c 72 63 2c 72 65 2c 31 36 2c 30 29 |h(Uk,rc,re,16,0)|
0000f610 3a c8 99 26 31 43 20 b8 59 77 2c 59 78 2c 72 66 |:..&1C .Yw,Yx,rf|
0000f620 3a 72 67 3d 59 77 2d 31 3a f2 72 68 3a e1 0d e1 |:rg=Yw-1:.rh:...|
0000f630 aa 0f dd f2 72 68 3a c8 8e 72 63 20 ca 0d e1 c8 |....rh:..rc ....|
0000f640 0e c9 72 69 3a c8 8e 72 65 20 ca 0d e1 d2 33 c9 |..ri:..re ....3.|
0000f650 32 3a 72 6a 3d a4 63 74 69 6f 6e 5f 44 72 61 67 |2:rj=.ction_Drag|
0000f660 41 42 61 72 28 72 6a 2c 32 29 3a f2 72 6b 28 a8 |ABar(rj,2):.rk(.|
0000f670 28 36 34 2a 28 72 6c 2f 31 30 30 29 29 29 0d e1 |(64*(rl/100)))..|
0000f680 e6 05 cb 0d e1 f0 07 cb 3a e1 0d e2 18 33 dd a4 |........:....3..|
0000f690 63 74 69 6f 6e 5f 44 72 61 67 41 42 61 72 28 72 |ction_DragABar(r|
0000f6a0 61 2c 72 62 29 3a c8 99 26 31 43 20 b8 59 77 2c |a,rb):..&1C .Yw,|
0000f6b0 59 78 2c 72 66 3a e7 72 66 3d 30 20 8c 0d e2 68 |Yx,rf:.rf=0 ...h|
0000f6c0 10 57 56 3d 30 3a f2 58 65 28 55 6b 29 0d e2 86 |.WV=0:.Xe(Uk)...|
0000f6d0 0f cc 3a e7 59 77 3c 3e 72 67 20 8c 0d e2 b8 f8 |..:.Yw<>rg .....|
0000f6e0 21 55 6b 3d 72 63 3a c8 99 26 34 30 30 43 43 2c |!Uk=rc:..&400CC,|
0000f6f0 2c 55 6b 3a 71 6b 3d 55 6b 21 34 3a 72 6d 3d 59 |,Uk:qk=Uk!4:rm=Y|
0000f700 77 2d 71 6b 3a 55 6b 21 30 3d 72 63 3a 55 6b 21 |w-qk:Uk!0=rc:Uk!|
0000f710 34 3d 72 61 3a c8 99 26 34 30 30 43 45 2c 2c 55 |4=ra:..&400CE,,U|
0000f720 6b 3a 71 6f 3d 55 6b 21 28 38 2b 30 29 3a 71 70 |k:qo=Uk!(8+0):qp|
0000f730 3d 55 6b 21 28 38 2b 34 29 3a 71 71 3d 55 6b 21 |=Uk!(8+4):qq=Uk!|
0000f740 28 38 2b 38 29 3a 71 72 3d 55 6b 21 28 38 2b 31 |(8+8):qr=Uk!(8+1|
0000f750 32 29 3a 55 6b 21 28 31 30 30 2b 30 29 3d 72 63 |2):Uk!(100+0)=rc|
0000f760 3a 55 6b 21 28 31 30 30 2b 34 29 3d 72 61 3a c8 |:Uk!(100+4)=ra:.|
0000f770 99 26 34 30 30 43 34 2c 2c 55 6b 2b 31 30 30 3a |.&400C4,,Uk+100:|
0000f780 c8 99 26 34 30 30 44 31 2c 72 63 2c 71 6f 2c 71 |..&400D1,rc,qo,q|
0000f790 70 2c 71 71 2c 71 72 3a 55 6b 21 28 38 2b 38 29 |p,qq,qr:Uk!(8+8)|
0000f7a0 3d 72 6d 3a 55 6b 21 34 3d 72 63 3a c8 99 26 34 |=rm:Uk!4=rc:..&4|
0000f7b0 30 30 43 32 2c 2c 55 6b 2b 34 20 b8 72 61 3a f2 |00C2,,Uk+4 .ra:.|
0000f7c0 70 75 28 55 6b 2c 72 63 2c 72 61 29 3a 55 6b 21 |pu(Uk,rc,ra):Uk!|
0000f7d0 30 3d 72 63 0d e3 c6 3f 55 6b 21 34 3d 72 65 3a |0=rc...?Uk!4=re:|
0000f7e0 c8 99 26 34 30 30 43 45 2c 2c 55 6b 3a 72 6e 3d |..&400CE,,Uk:rn=|
0000f7f0 55 6b 21 28 38 2b 38 29 2d 31 36 3a 72 67 3d 59 |Uk!(8+8)-16:rg=Y|
0000f800 77 3a 72 6c 3d a8 28 28 72 6d 2f 72 6e 29 2a 31 |w:rl=.((rm/rn)*1|
0000f810 30 30 29 0d e4 0c 05 cd 0d e4 20 09 cd 3a 3d 72 |00)....... ..:=r|
0000f820 61 0d e4 52 5b dd a4 63 74 69 6f 6e 5f 47 65 74 |a..R[..ction_Get|
0000f830 57 69 6e 64 6f 77 54 69 74 6c 65 28 58 55 2c 58 |WindowTitle(XU,X|
0000f840 61 29 3a ea 63 58 3a 21 58 55 3d 58 61 3a c8 99 |a):.cX:!XU=Xa:..|
0000f850 26 34 30 30 43 43 2c 2c 58 55 3a 3d a4 63 74 69 |&400CC,,XU:=.cti|
0000f860 6f 6e 5f 45 78 74 72 61 63 74 53 74 72 69 6e 67 |on_ExtractString|
0000f870 28 21 28 58 55 2b 34 2b 37 32 29 29 0d e4 98 52 |(!(XU+4+72))...R|
0000f880 dd f2 65 73 28 58 55 2c 58 61 2c 72 6f 24 29 3a |..es(XU,Xa,ro$):|
0000f890 ea 63 58 2c 70 77 3a 21 58 55 3d 58 61 3a c8 99 |.cX,pw:!XU=Xa:..|
0000f8a0 26 34 30 30 43 43 2c 2c 58 55 3a 63 58 3d 58 55 |&400CC,,XU:cX=XU|
0000f8b0 21 28 34 2b 35 36 29 3a 70 77 3d 28 63 58 20 80 |!(4+56):pw=(cX .|
0000f8c0 32 5e 38 29 3d 32 5e 38 3a e7 70 77 20 8c 0d e4 |2^8)=2^8:.pw ...|
0000f8d0 de 24 64 63 3d 21 28 58 55 2b 34 2b 37 32 29 3a |.$dc=!(XU+4+72):|
0000f8e0 24 21 28 58 55 2b 34 2b 37 32 29 3d 72 6f 24 2b |$!(XU+4+72)=ro$+|
0000f8f0 bd 30 0d e4 f2 17 cc 3a 24 28 58 55 2b 34 2b 37 |.0.....:$(XU+4+7|
0000f900 32 29 3d 70 78 24 2b bd 30 0d e5 06 07 cd 3a e1 |2)=px$+.0.....:.|
0000f910 0d e5 2e 51 dd f2 6d 74 28 58 55 2c 58 61 2c 58 |...Q..mt(XU,Xa,X|
0000f920 56 2c 69 77 29 3a 58 55 21 30 3d 58 61 3a 58 55 |V,iw):XU!0=Xa:XU|
0000f930 21 34 3d 58 56 3a 58 55 21 38 3d 28 94 20 ac 69 |!4=XV:XU!8=(. .i|
0000f940 77 29 3c 3c 32 31 3a 58 55 21 31 32 3d 31 3c 3c |w)<<21:XU!12=1<<|
0000f950 32 31 3a c8 99 26 34 30 30 43 44 2c 2c 58 55 3a |21:..&400CD,,XU:|
0000f960 e1 0d e5 88 4f dd f2 63 66 28 58 55 2c 58 61 2c |....O..cf(XU,Xa,|
0000f970 58 56 2c 72 70 29 3a 58 55 21 30 3d 58 61 3a 58 |XV,rp):XU!0=Xa:X|
0000f980 55 21 34 3d 58 56 3a 58 55 21 38 3d 28 94 72 70 |U!4=XV:XU!8=(.rp|
0000f990 29 3c 3c 32 32 3a 58 55 21 31 32 3d 31 3c 3c 32 |)<<22:XU!12=1<<2|
0000f9a0 32 3a c8 99 26 34 30 30 43 44 2c 2c 58 55 3a e1 |2:..&400CD,,XU:.|
0000f9b0 0d e5 e2 61 dd a4 63 74 69 6f 6e 5f 49 63 6f 6e |...a..ction_Icon|
0000f9c0 49 73 54 6f 67 67 6c 65 64 28 58 55 2c 58 61 2c |IsToggled(XU,Xa,|
0000f9d0 58 56 29 3a 58 55 21 30 3d 58 61 3a 58 55 21 34 |XV):XU!0=Xa:XU!4|
0000f9e0 3d 58 56 3a c8 99 26 34 30 30 43 45 2c 2c 58 55 |=XV:..&400CE,,XU|
0000f9f0 3a 72 71 3d 28 58 55 21 28 38 2b 31 36 29 29 20 |:rq=(XU!(8+16)) |
0000fa00 80 32 5e 32 31 3a 3d ac 28 72 71 3d 32 5e 32 31 |.2^21:=.(rq=2^21|
0000fa10 29 0d e6 32 43 dd f2 58 6b 28 58 55 2c 58 61 2c |)..2C..Xk(XU,Xa,|
0000fa20 58 56 29 3a f2 6d 74 28 58 55 2c 58 61 2c 58 56 |XV):.mt(XU,Xa,XV|
0000fa30 2c 20 ac a4 63 74 69 6f 6e 5f 49 63 6f 6e 49 73 |, ..ction_IconIs|
0000fa40 54 6f 67 67 6c 65 64 28 58 55 2c 58 61 2c 58 56 |Toggled(XU,Xa,XV|
0000fa50 29 29 3a e1 0d e6 64 32 dd a4 63 74 69 6f 6e 5f |)):...d2..ction_|
0000fa60 57 69 6e 64 6f 77 57 69 74 68 43 61 72 65 74 28 |WindowWithCaret(|
0000fa70 58 55 29 3a c8 99 26 34 30 30 44 33 2c 2c 58 55 |XU):..&400D3,,XU|
0000fa80 3a 3d 58 55 21 30 0d e6 96 30 dd a4 63 74 69 6f |:=XU!0...0..ctio|
0000fa90 6e 5f 49 63 6f 6e 57 69 74 68 43 61 72 65 74 28 |n_IconWithCaret(|
0000faa0 58 55 29 3a c8 99 26 34 30 30 44 33 2c 2c 58 55 |XU):..&400D3,,XU|
0000fab0 3a 3d 58 55 21 34 0d e6 c8 54 dd f2 58 6e 28 58 |:=XU!4...T..Xn(X|
0000fac0 55 2c 58 61 2c 58 56 2c 69 79 2c 72 72 2c 72 73 |U,Xa,XV,iy,rr,rs|
0000fad0 29 3a 69 56 3d bb a4 63 74 69 6f 6e 5f 52 65 61 |):iV=..ction_Rea|
0000fae0 64 49 63 6f 6e 54 65 78 74 28 58 55 2c 58 61 2c |dIconText(XU,Xa,|
0000faf0 58 56 29 3a 72 74 3d 69 56 2b 69 79 3a e7 72 74 |XV):rt=iV+iy:.rt|
0000fb00 3c 72 72 20 8c 72 74 3d 72 72 0d e6 f0 11 e7 72 |<rr .rt=rr.....r|
0000fb10 74 3e 72 73 20 8c 72 74 3d 72 73 0d e6 fa 1e e7 |t>rs .rt=rs.....|
0000fb20 72 74 3c 3e 69 56 20 8c f2 61 55 28 58 55 2c 58 |rt<>iV ..aU(XU,X|
0000fb30 61 2c 58 56 2c c3 72 74 29 0d e7 04 05 e1 0d e7 |a,XV,.rt).......|
0000fb40 22 37 dd a4 63 74 69 6f 6e 5f 50 61 74 68 6e 61 |"7..ction_Pathna|
0000fb50 6d 65 4f 6e 6c 79 28 62 58 24 29 3a e7 62 58 24 |meOnly(bX$):.bX$|
0000fb60 3d 22 22 20 84 a7 62 58 24 2c 22 2e 22 29 3d 30 |="" ..bX$,".")=0|
0000fb70 20 8c 3d 22 22 0d e7 36 30 ea 69 3a 69 3d a9 62 | .=""..60.i:i=.b|
0000fb80 58 24 3a c8 95 c1 62 58 24 2c 69 2c 31 29 3c 3e |X$:...bX$,i,1)<>|
0000fb90 22 2e 22 3a 69 2d 3d 31 3a ce 3a 3d c0 62 58 24 |".":i-=1:.:=.bX$|
0000fba0 2c 69 2d 31 29 0d e7 86 2a dd a4 63 74 69 6f 6e |,i-1)...*..ction|
0000fbb0 5f 4c 65 61 66 6e 61 6d 65 4f 6e 6c 79 28 62 58 |_LeafnameOnly(bX|
0000fbc0 24 29 3a e7 62 58 24 3d 22 22 20 8c 3d 22 22 0d |$):.bX$="" .="".|
0000fbd0 e7 9a 3a ea 69 3a 69 3d a9 62 58 24 3a c8 95 c1 |..:.i:i=.bX$:...|
0000fbe0 62 58 24 2c 69 2c 31 29 3c 3e 22 2e 22 20 80 69 |bX$,i,1)<>"." .i|
0000fbf0 3e 30 3a 69 2d 3d 31 3a ce 3a 3d c1 62 58 24 2c |>0:i-=1:.:=.bX$,|
0000fc00 69 2b 31 2c a9 62 58 24 29 0d e7 ea 55 dd a4 63 |i+1,.bX$)...U..c|
0000fc10 74 69 6f 6e 5f 44 65 63 6f 64 65 4d 65 6e 75 49 |tion_DecodeMenuI|
0000fc20 6e 74 6f 54 65 78 74 28 72 75 2c 72 76 2c 72 77 |ntoText(ru,rv,rw|
0000fc30 29 3a c8 99 26 34 30 30 44 35 2c 2c 72 75 2c 72 |):..&400D5,,ru,r|
0000fc40 76 2c 72 77 3a 3d a4 63 74 69 6f 6e 5f 45 78 74 |v,rw:=.ction_Ext|
0000fc50 72 61 63 74 53 74 72 69 6e 67 28 72 77 29 0d e8 |ractString(rw)..|
0000fc60 1c 4d dd f2 64 76 28 58 55 2c 58 61 2c 6e 75 2c |.M..dv(XU,Xa,nu,|
0000fc70 6b 6d 29 3a 58 55 21 30 3d 58 61 3a c8 99 26 34 |km):XU!0=Xa:..&4|
0000fc80 30 30 43 42 2c 2c 58 55 3a 58 55 21 32 30 2b 3d |00CB,,XU:XU!20+=|
0000fc90 6e 75 3a 58 55 21 32 34 2b 3d 6b 6d 3a c8 99 26 |nu:XU!24+=km:..&|
0000fca0 34 30 30 43 35 2c 2c 58 55 3a e1 0d ff |400C5,,XU:...|
0000fcad 
.