Home » Archimedes archive » Acorn Computing » 1995 01 subscription disc.adf » 9501s » MusicBox/!MusicBoxD/Main22

MusicBox/!MusicBoxD/Main22

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

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

Tape/disk: Home » Archimedes archive » Acorn Computing » 1995 01 subscription disc.adf » 9501s
Filename: MusicBox/!MusicBoxD/Main22
Read OK:
File size: E744 bytes
Load address: 0000
Exec address: 0000
File contents
18505DEFPROCNa(RETURNb$):LOCALI%:SYS&27,b$,a,256:b$="":I%=0:WHILEa?I%>31:b$+=CHR$(a?I%):I%+=1:ENDWHILE:ENDPROC
18577DEFPROCra(m,E$,h):PROCOa("Music Box has suffered an internal error and must quit. "+E$+" ("+STR$(h)+")"):END
18604DEFPROCOa(w$):ONERRORPROCPa(w$)
18631!a=ERR:$(a+4)=w$+CHR$0:SYS&400DF,a,1,U$:PROCQa
18685DEFPROCPa(w$):ONERROROFF
18694IFMODE<>bTHENMODEb
18703VDU4
18712PRINTw$:PROCQa
18748DEFPROCRa(i):IFj>iTHENPROCQa
18757ENDPROC
18766DEFPROCQa:ONERRORPROCSa
18793ONERROROFF
18802IFfTHENSYS&42589:f=FALSE
18811PROCSa
18838DEFPROCSa:ONERROROFF
18847IFMODE<>bTHEN
18856MODEb:SYS&400E3,b
18883ENDIF
18883SYS&400DD:END
18910DEFPROCia(N$,O$,P$,k):DIMa 256:PROCNa(O$):PROCNa(P$):Z$=O$:_$=P$:f=FALSE:j=-1:b=MODE:U$=N$:IFkTHENSYS&400C0,200,&4B534154,N$
19018ENDPROC
19027DEFPROCTa(d%,X%,Y%):CASEd%OF
19063WHENgg%:PROCR(o%,d%,X%,Y%)
19081WHENng%:IFNOTAb%THEN
19090SYS&44AE3,6,_%,o%:SYS&44AE5,0,o%,X%,Y%,,vg%TO,,d%:SYS&44AE3,7,_%,o%:IFd%>=Qf%ANDd%<=Rf%THEN
19126PROCj:PROCS(d%-Qf%+1):PROCk(b%(1,d%-Qf%),d%-Qf%+1)
19162ENDIF
19162ENDIF
19171ENDCASE
19180ENDPROC
19189DEFPROCUa(p%,d%,X%,Y%):LOCALA%,C%,D%:IF(p%AND(4<<4))THEN
19225CASEd%OF
19234WHENgg%,`f%:PROCG(o%,d%,X%,Y%)
19261ENDCASE
19261ENDIF
19270IF(p%AND4)THEN
19288CASEd%OF
19297WHENdg%:PROCVa(1)
19324WHENbg%:PROCVa(-1)
19342WHENeg%:PROCj
19360WHENcg%:SYS&44ADD,3,o%,d%,1:zb%=TRUE:PROCVa(1)
19396WHENlg%,kg%,fg%,hg%,ig%,jg%,_f%:PROCe(o%,d%)
19414WHENpg%:IFNOTPa%THENPROCe(o%,d%)
19423SYS&44AD4,1,o%,gg%TOc%:c%-=1:IFc%<0THENc%=0
19450SYS&44AD4,2,o%,gg%,c%TOc%:PROCd((c%+40))
19477WHENqg%:IFNOTPa%THENPROCe(o%,d%)
19486SYS&44AD4,1,o%,gg%TOc%:c%+=1:IFc%>255THENc%=255
19513SYS&44AD4,2,o%,gg%,c%TOc%:PROCd((c%+40))
19540WHENmg%:SYS&44AD6,ld%,X%,Y%
19549WHENgg%:SYS&44AD4,0,o%,d%,X%,Y%TOc%:PROCd((c%+40))
19576WHEN`f%:SYS&44AD4,0,o%,d%,X%,Y%TOc%:PROCq(c%)
19603WHENng%:IFNOTAb%THEN
19612SYS&44AE3,6,_%,o%:SYS&44AE5,0,o%,X%,Y%,,vg%TO,,d%:SYS&44AE3,7,_%,o%:IFd%>=Qf%ANDd%<=Rf%THEN
19648IFNOTyb%THEN
19657PROCH(d%-Qf%+1,-1,o%,-1)
19675ENDIF
19675PROCk(b%(1,d%-Qf%),d%-Qf%+1)
19693ELSE:CASEd%OF
19702WHEN0:PROCl(1):C%=X%:D%=Y%:A%=USR(ei%):IF(A%AND&FF000000)=&FF000000THEN
19738PROCc("You are not allowed that many instruments in one column.")
19756ELSE:A%=(A%<<8)>>8:IFyb%THEN
19774fk%=USR(ai%):gk%=fk%:hk%=(((gk%)DIVik%)+1)*ik%-1:!qj%=fk%
19828ELSE:IF(!ni%<8)THEN
19837PROCH(!ni%,10-(A%AND&FF),o%,-1)
19855ELSE:IF!ni%=8+7THEN
19864IF(!di%)>0THENPROCH(!di%,10-(A%AND&FF),o%,-1)
19873ENDIF
19882ENDIF
19891ENDIF
19900CASE!ni%OF
19909WHEN6+8:IF(A%>>20)>0THEN!di%=A%>>20:PROCWa("st7_copy1"):PROCk(-1,6)
19918WHEN7+8:PROCk(-1,5)
19936ENDCASE
19936ENDIF
19945WHENSf%,Sf%+1,Sf%+2,Tf%,Uf%:IFFNp(d%)THENPROCk(-1,d%-Sf%+1)ELSEPROCXa
19963ENDCASE
19972ENDIF
19981ENDIF
19990WHENZf%:IFNOTAb%THEN
20008SYS&44AE5,0,o%,X%,Y%,,vg%TO,,d%:CASEd%OF
20026WHENWf%:PROCYa(1)
20044WHENVf%:PROCYa(-1)
20053WHENXf%,Yf%:PROCe(o%,-d%)
20062ENDCASE
20062ENDIF
20071ENDCASE
20080ENDIF
20089ENDPROC
20098DEFPROCk(x%,q%):LOCALA%,B%:IFx%>=0THEN
20134d$="s"+a$(x%)
20152ELSE:IFq%>=5THENq%+=1
20161d$="st"+STR$(q%):q%+=8
20188ENDIF
20188PROCZa(d$):!ni%=q%:Bb%=q%:ENDPROC
20224DEFPROCXa:IFBb%>7THEN
20251IFBb%>12THEN
20260PROCk(-1,Bb%-9):SYS&44ADD,7+512,o%,Qf%+Bb%-3,,,vg%
20287ELSE:PROCk(-1,Bb%-8):SYS&44ADD,7+512,o%,Qf%+Bb%-2,,,vg%
20314ENDIF
20314ELSE:SYS&44ADD,7+512,o%,Qf%+Bb%-1,,,vg%:PROCk(b%(1,Bb%-1),Bb%)
20350ENDIF
20350ENDPROC
20359DEFPROCZa(d$):LOCALA%,B%:CASEd$OF
20395WHEN"st2":A%=4:B%=0
20413WHEN"st6":A%=4:B%=44
20422WHEN"st7":A%=4:B%=44
20431OTHERWISE:A%=0:B%=0
20440ENDCASE
20440SYS&44AE3,1+2^11,U%,d$,wb%+A%,wb%+B%,_%TO,,_%:ENDPROC
20458DEFPROC_a:LOCALc%:PROCh(Bf%):PROCT(o%):PROCU(1):PROCy(2^Db%,gb%):PROCV(o%,`f%):SYS&44AD4,1,o%,gg%TOc%:PROCs(fg%,o%,0):PROCd(c%+40):PROCXa:PROCz:PROCC(0):ENDPROC
20620DEFPROC`a(H%,J%,s%):LOCALe%:FORe%=0TOYf%:SYS&44AE0,,vg%+4+32*e%,s%:NEXT:PROCW(H%,J%):!Li%=H%:!Mi%=J%:CALLDi%:PROCX(H%,J%):ENDPROC
20728DEFPROCab:CALLUi%:ENDPROC
20764DEFFNH:jk%=MODE:=FNI
20818DEFFNI:LOCALkk%,lk%,mk%,e%,A%,P%:!ii%=K%/nk%:!ji%=4/nk%:SYS&64AE2,259,nc%,"composegrid",2^4,(W%+1)*K%+4,K%*11+4,jk%TOA%;P%:SYS&64AE2,264,nc%,2,0:IF(P%AND1)=1THEN
20872SYS&44AE2,259,nc%,"composegrid",2^4,8,8,jk%:PROCh(o%):PROCY:PROCc("Not enough memory to use Tune Box. Try reducing the size of 'paper' in the configuration window. See manual for more hints."):=FALSE
20926ENDIF
20926SYS&64AE2,60,nc%,"composegrid",0TO,kk%,lk%,mk%:SYS&400E6,0:RECTANGLEFILL0,0,(W%+1)*K%+4,K%*11+4:SYS&400E6,Cb%:FORe%=1TO11STEP2:RECTANGLEFILL0,K%*e%+2,(W%+1)*K%+4,K%:NEXT:SYS&400E6,7:FORe%=0TO11:RECTANGLEFILL0,K%*e%,(W%+1)*K%+4,3:NEXT:FORe%=0TOW%+1
21034RECTANGLEFILLK%*e%,0,3,11*K%+4:NEXT:SYS&2E,60+256,kk%,lk%,mk%:=TRUE
21088DEFPROCYa(ok%):LOCALX%,Y%,B%,pk%,A%,T%,d%:A%=ok%*2:pk%=0:REPEAT:CALLxi%:PROCbb:MOUSEX%,Y%,B%:CASEpk%OF
21160WHEN0:A%=ok%*4:T%=TIME:REPEAT:MOUSEX%,Y%,B%:PROCbb:UNTILTIME>T%+50ORB%=0
21232WHEN10
21250ENDCASE
21250pk%+=1:UNTILB%=0OR!Ai%<=0OR!Ai%>=W%-24:IFA%<0THENd%=Vf%ELSEd%=Wf%
21277SYS&44ADD,3+512,o%,d%,0,,vg%:ENDPROC
21295DEFPROCVa(ok%):LOCALe%:PROCcb(NOTzb%):fk%=USR(ai%):gk%=fk%:hk%=(((gk%)DIVik%)+1)*ik%-1:!qj%=fk%:qk%=hk%:rk%=qk%:sk%=qk%:tk%=rk%:IFok%=1THEN
21412SYS&44ADD,7,o%,dg%,1:!Hi%=0:!kj%=jc%:!pj%=0
21457ELSE:!Hi%=hk%:!kj%=jc%+fk%*12:!pj%=hk%:SYS&44ADD,7,o%,bg%,1
21502ENDIF
21502uk%=-99999:vk%=0:yb%=TRUE:wk%=ok%:PROCg:!tj%=Yb%:!lj%=0:lj%!4=0:nj%!0=0:nj%!4=0:nj%!8=0:oj%!0=-1:oj%!4=-1:SYS&401C0:PROCm:xk%=lb%:A%=1:CALLwi%:IFwk%=1THEN
21682FORe%=0TOmb%:A%=e%*Q%:IF!pj%>hk%ANDzb%THEN
21709!pj%=0:!kj%=jc%
21736ENDIF
21736CALLrj%:NEXT
21763ELSE:FORe%=0TOmb%:A%=e%*Q%:IF!pj%<0ANDzb%THEN
21790!pj%=hk%:!kj%=jc%+hk%*12
21817ENDIF
21817CALLvj%:NEXT
21844ENDIF
21844PROCt:IFzb%THENSYS&44ADD,7,o%,cg%,1
21862ENDPROC
21871DEFPROCj:PROCm:!Hi%=-1:A%=1:CALLwi%:yb%=FALSE:PROCg:SYS&44ADD,7,o%,eg%,1:zb%=FALSE:SYS&44ADD,3,o%,cg%,0:CALLBi%:PROCcb(FALSE):ENDPROC
21997DEFPROCdb:LOCALZ%,A%,yk%,zk%:Z%=BEAT:IFwk%=1THEN
22042IFZ%<xk%THEN
22051vk%+=mb%:FORe%=1TOmb%:A%=lb%+e%*Q%:IF!pj%>hk%ANDzb%THEN
22087!pj%=0:!kj%=jc%
22114ENDIF
22114CALLrj%:NEXT:rk%=qk%:qk%=sk%:sk%=hk%
22168ENDIF
22168xk%=Z%:Ak%=(Z%DIVQ%)+vk%-mb%:IFAk%<>uk%THEN
22195uk%=Ak%:IFAk%>rk%THEN
22213IFzb%THEN
22222Ak%-=rk%+1:vk%-=rk%+1
22249ELSE:PROCj:Ak%=-100:ENDPROC
22258ENDIF
22267ENDIF
22276A%=1:IF(NOTzb%)THEN
22294yk%=Ak%:IFyk%>fk%-11THENyk%=fk%-11
22312IFyk%<12THENyk%=12
22321!zi%=(yk%-12)*K%:!Ai%=(yk%-12):A%=0
22357ENDIF
22357!Hi%=Ak%:CALLwi%
22384ENDIF
22384ELSE:IFZ%<xk%THEN
22411vk%+=mb%:FORe%=1TOmb%:A%=lb%+e%*Q%:IF!pj%<0ANDzb%THEN
22447!pj%=hk%:!kj%=jc%+fk%*12
22474ENDIF
22474CALLvj%:NEXT:rk%=qk%:qk%=sk%:sk%=hk%
22528ENDIF
22528xk%=Z%:Ak%=tk%-(Z%DIVQ%)-vk%+mb%:IFAk%<>uk%THEN
22555uk%=Ak%:IFAk%<0THEN
22573IFzb%THEN
22582Ak%+=tk%+1:uk%=Ak%:vk%-=tk%+1:tk%=rk%
22627ELSE:PROCj:Ak%=-100:ENDPROC
22636ENDIF
22645ENDIF
22654A%=1:IF(NOTzb%)THEN
22672yk%=Ak%:IFyk%>fk%-11THENyk%=fk%-11
22690IFyk%<12THENyk%=12
22699!zi%=(yk%-12)*K%:!Ai%=(yk%-12):A%=0
22735ENDIF
22735!Hi%=Ak%:CALLwi%
22762ENDIF
22762ENDIF
22771ENDPROC
22780DEFPROCz:IFFNHTHEN
22807PROCZa(d$):SYS&44AE2,262+2^11,U%,"s?",,,,si%,ti%:SYS&44AE2,262+2^11,U%,"tie01",,,,ui%,vi%:CALLci%:CALLBi%
22861ENDIF
22861ENDPROC
22870DEFPROCY:n=FALSE:PROCg:PROCj:PROCr:PROCA:ENDPROC
22942DEFPROCeb:LOCALv%,b%,a%:g$="<MusicBoxD$Dir>.1":v%=USR(ai%):a%=FNJ(g$):IFa%=0THENENDPROC
23005b%=FNf("MBTune  ",a%):IFb%=0THENb%=FNb(1,a%)
23023IFb%=0THENb%=FNf("Tune",a%)
23032IFb%=0THENb%=FNb(12*v%+12+8,a%)
23041IFb%=0THENb%=FNu(jc%,12*v%+12,a%)
23050IFb%=0THENb%=FNK(1,a%)
23059IFb%=0THENb%=FNL(1,a%)
23068IFb%=0THENb%=FNM(1,a%)
23077IFb%=0THENb%=FNN(a%)
23086IFb%=0THENb%=FNO(a%)
23095IFb%=0THENb%=FNP(a%)
23104IFb%=0THENb%=FNQ(a%)
23113IFb%=0THENb%=FNf("EndX",a%)
23122IFb%=0THENb%=FNb(-1,a%)
23131IFb%=0THENb%=FNi(a%)
23140IFb%=0THENb%=FNR(g$)
23149IFb%<>0THENPROCb(FNc(b%+4),FALSE):b%=FNi(a%)ELSEPROCr:PROCc("I have succesfully saved your work.")
23167ENDPROC
23176DEFPROCfb(g$):PROCi:PROCj:IFINSTR(g$,".")=0THENg$="<MBTuneFiles$Dir>."+g$
23221a%=FNl(g$):IFa%=0THENENDPROC
23239b%=FNh(b$,8,a%):IFb%<>0THENPROCb(FNc(b%+4),FALSE):ENDPROC
23257IFb$<>"MBCompos"ANDb$<>"MBTune  "THENPROCb("File format not understood.",FALSE):ENDPROC
23266b%=FNa(c%,a%):IFb%<>0THENPROCb(FNc(b%+4),FALSE):ENDPROC
23284IFc%>1THENPROCb("This file was made by a newer version of MusicBox. You will need an upgrade to load it.",FALSE)
23293b%=FNh(b$,4,a%):WHILEb%=0ANDb$<>"EndX":CASEb$OF
23329WHEN"Tune":b%=FNS(a%)
23347WHEN"Inst":b%=FNv(1,a%)
23356WHEN"Temp":b%=FNw(1,a%)
23365WHEN"Volu":b%=FNx(1,a%)
23374WHEN"Octa":b%=FNy(a%)
23383WHEN"Key ":b%=FNz(a%)
23392WHEN"Pent":b%=FNB(a%)
23401WHEN"Colu":b%=FNT(a%)
23410OTHERWISE:b%=FNj(a%)
23419ENDCASE
23419IFb%=0THENb%=FNh(b$,4,a%)
23428ENDWHILE:IFb%<>0THENPROCb(FNc(b%+4),FALSE)
23455b%=FNi(a%):PROCp:PROCr:IFw%=1THEN
23491PROCz:PROCC(0):SYS&44AEB,3,o%
23527ENDIF
23527ENDPROC
23536DEFFNS(a%):LOCALb%,v%:SYS&44ADA,jc%,vb%*12:b%=FNa(v%,a%):IFb%=0THENb%=FNk(jc%,v%-8,a%)
23590v%=(((v%-8)DIV12)DIV24)+1:IFv%>W%/24THEN
23608IFNOTBk%THEN
23617W%=v%*24:!Zh%=W%:!_h%=W%*12:!mi%=W%*12
23662ENDIF
23662SYS&44ADA,jc%+W%*12,vb%*12+12-W%*12
23680ENDIF
23680=b%
23707DEFPROCgb(d%):CASEd%OF
23716WHENfg%:PROCs(d%,o%,1)
23734WHENlg%:PROCv(o%,1)
23743WHENkg%:PROCv(o%,0)
23752WHENjg%:IFFNp(d%)THENPROChb
23752WHENig%:IFFNp(d%)THENPROCn(0,1)
23761WHEN-Xf%:PROCC(0)
23779WHEN-Yf%:PROCC(-1)
23788WHEN_f%:IFFNp(d%)THENPROCn(1,1)
23788WHENhg%:PROCh(o%):PROCY
23824WHEN-1:PROCib
23833ENDCASE
23833ENDPROC
23842DEFPROChb:LOCALA%:Ck%=(USR(ai%)+1):IFCk%<1ORCk%>W%/2THENPROCc("The paper is not long enough to copy your present tune."):ENDPROC
23887Dk%=(W%/Ck%)-1:SYS&44ACB,Dd%,zd%,1:PROCn(Dd%,1):ENDPROC
23923DEFPROCcb(A%):Ab%=A%:IFA%THEN
23959!Zj%=2
23977ELSE:!Zj%=1
23995ENDIF
23995ENDPROC
24004DEFPROCC(A%):IFA%=-1THENA%=USR(ai%)-23+12
24031IFA%<0THENA%=0
24040IFA%>W%-24THENA%=W%-24
24049!zi%=A%*K%:!Ai%=A%:A%=0:CALLwi%:CALLBi%:SYS&44ADD,3+512,o%,Yf%,0,,vg%:SYS&44ADD,3+512,o%,Xf%,0,,vg%:ENDPROC
24121DEFPROCjb(n%,Ek%):IFEk%THEN
24148CASEn%OF
24157WHEN0:SYS&44ADA,jc%,W%*12:PROCz:PROCC(0):PROCj:PROCl(1)
24220WHENDd%:SYS&44ACC,Dd%,zd%TO,,Ek%:FORe%=1TOEk%:SYS&44AC7,Ck%*12,jc%,jc%+Ck%*e%*12:NEXT:PROCz:PROCj:A%=0:CALLwi%:PROCl(1)
24310WHEN1:PROCkb(1)
24319ENDCASE
24319ENDIF
24328ENDPROC
24337DEFFNN(a%):LOCALe%,c%,b%:b%=FNf("Colu",a%):IFb%=0THENb%=FNb(12,a%)
24382IFb%=0THENb%=FNb(Db%,a%)
24391=b%
24418DEFFNT(a%):LOCALe%,c%,b%:IFNOTFk%THEN=FNj(a%)
24436b%=FNa(c%,a%):IFb%=0THENb%=FNa(c%,a%)
24454Db%=c%:IFw%=1THENPROCy(2^Db%,gb%)
24472=b%
24499DEFFNp(d%):LOCALy%:CASEd%OF
24517WHENSf%:y%=Gk%
24535WHENSf%+1:y%=Hk%
24544WHENSf%+2:y%=Ik%
24553WHENTf%:y%=Jk%
24562WHENUf%:y%=Kk%
24571WHENjg%:y%=Lk%
24580WHENig%:y%=Mk%
24589WHEN_f%:y%=Nk%
24598ENDCASE
24598IFNOTy%THENPROCI
24607=y%
24652DEFPROClb(d%,X%,Y%):IFUa%<>0THENENDPROC
24661CASEd%OF
24670WHENuh%:PROCR(l%,d%,X%,Y%)
24688WHENoh%:SYS&44AE3,6,_%,l%:SYS&44AE5,1,l%,X%,Y%,,Hh%TO,,d%:SYS&44AE3,7,_%,l%:CASETRUEOF
24724WHEN(d%>=ih%ANDd%<=jh%):SYS&44ADD,7+512,l%,d%,1,,Hh%:PROCS(d%-ih%+1):PROCmb(b%(2,d%-ih%),d%-ih%+1)
24769ENDCASE
24769ENDCASE
24778ENDPROC
24787DEFPROCnb(p%,d%,X%,Y%):LOCALA%,C%,D%,B%,A$:IF(p%AND(4<<4))THEN
24832CASEd%OF
24841WHENuh%,yh%:PROCG(l%,d%,X%,Y%)
24868ENDCASE
24868ENDIF
24877IF(p%AND4)=4THEN
24886CASEd%OF
24895WHENrh%:SYS&44ADD,7,l%,d%:PROCD(l%,sh%,wh%,1,TRUE)
24931WHENqh%:SYS&44ADD,7,l%,d%:SYS&44ADD,7,l%,rh%:Ok%=TRUE:PROCD(l%,sh%,wh%,1,TRUE)
24976WHENph%:SYS&44ADD,7,l%,d%:PROCD(l%,sh%,wh%,1,FALSE)
25003WHENsh%:PROCo(l%,d%,wh%)
25021WHENth%:PROCl(2):SYS&44ADD,7,l%,d%:PROCob(l%,sh%,wh%,1)
25057WHENwh%,xh%,Bh%,Ch%,Dh%:PROCe(l%,d%)
25075WHENuh%:SYS&44AD4,0,l%,d%,X%,Y%TOc%:PROCd((c%+40))
25102WHENyh%:SYS&44AD4,0,l%,d%,X%,Y%TOc%:PROCq(c%)
25129WHENEh%:IFNOTPa%THENPROCe(l%,d%)
25138SYS&44AD4,1,l%,uh%TOc%:c%-=1:IFc%<0THENc%=0
25165SYS&44AD4,2,l%,uh%,c%TOc%:PROCd((c%+40))
25192WHENFh%:IFNOTPa%THENPROCe(l%,d%)
25201SYS&44AD4,1,l%,uh%TOc%:c%+=1:IFc%>255THENc%=255
25228SYS&44AD4,2,l%,uh%,c%TOc%:PROCd((c%+40))
25255WHENAh%:SYS&44AD6,ld%,X%,Y%
25264WHENoh%:IFUa%=0THEN
25273SYS&44AE3,6,_%,l%:SYS&44AE5,0,l%,X%,Y%,,Hh%TO,,d%:SYS&44AE3,7,_%,l%:CASETRUEOF
25309WHEN(d%>=ih%ANDd%<=jh%):PROCH(d%-ih%+1,-1,l%,-d%+ih%-1):PROCmb(b%(2,d%-ih%),d%-ih%+1)
25345WHEN(d%>=lh%ANDd%<=lh%+kh%-1):h%(d%-lh%,0)=dc%:A$=a$(b%(2,dc%-1)):SYS&44ADD,1+512,l%,d%,"s"+A$+",p"+A$,,Hh%:PROCZ(d%-lh%):PROCe(l%,-10-(d%-lh%)):PROCl(2)
25408ENDCASE
25408ENDIF
25417OTHERWISE:CASETRUEOF
25435WHEN(d%>=mh%ANDd%<mh%+kh%):IFUa%=0THENPROCpb(d%-mh%,X%,Y%):PROCl(2)
25453WHEN(d%>=nh%ANDd%<nh%+kh%):PROCZ(d%-nh%)
25480ENDCASE
25480ENDCASE
25489ENDIF
25498ENDPROC
25507DEFPROCmb(x%,q%):IFx%>=0THEN
25534d$="s"+a$(x%)
25552ELSE:ERROR1,"This should not happen!"
25570ENDIF
25570SYS&44AE3,1+2^11,U%,d$,wb%,wb%,_%TO,,_%:dc%=q%:ENDPROC
25597DEFPROCqb:LOCALc%:PROCh(Bf%):PROCT(l%):Ok%=FALSE:PROCy(1,gb%):PROCrb:PROCU(2):PROCV(l%,yh%):SYS&44AD4,1,l%,uh%TOc%:PROCd(c%+40):SYS&44ADD,7+512,l%,ih%+dc%-1,,,Hh%:Qa%=TRUE:PROCg:PROCs(wh%,l%,0):PROCt:PROCmb(b%(2,dc%-1),dc%):ENDPROC
25768DEFPROCsb(H%,J%,s%):LOCALe%:FORe%=0TOGh%-1:SYS&44AE0,,Hh%+4+32*e%,s%:NEXT:PROCW(H%,J%):!Li%=H%:!Mi%=J%:CALLEi%:PROCX(H%,J%):ENDPROC
25876DEFPROCtb:LOCALd%,Pk%:CALLTi%:IFUa%<>2THEN
25921SYS&400CF,,h%:d%=h%!16:Pk%=ec%:CASETRUEOF
25957WHEN(h%!8AND4)=4AND(d%>=mh%ANDd%<=mh%+kh%-1):IFPk%<>d%-mh%THENPk%=-1
25975WHENPa%
25993WHEN(h%!8AND4)=4AND(d%>=nh%ANDd%<=nh%+kh%-1):Pk%=d%-nh%
26011OTHERWISEPk%=-1
26020ENDCASE
26020IFec%<>Pk%THEN
26029IFPk%=-1THENPROCubELSEPROCZ(Pk%)
26038ENDIF
26047ENDIF
26056ENDPROC
26065DEFPROCrb:SYS&44AE3,1+2^11,U%,d$,wb%,wb%,_%TO,,_%:SYS&44AE2,262+2^11,U%,"Circle",,,,Pi%,Qi%:ENDPROC
26110DEFPROCvb:Qa%=FALSE:PROCo(l%,d%,wh%):PROCm:PROCg:PROCA:PROCr:ENDPROC
26191DEFPROCwb(d%):CASEd%OF
26218WHENwh%:PROCs(d%,l%,1)
26236WHENxh%:PROCh(l%):PROCvb
26245WHENCh%:PROCv(l%,5)
26254WHENBh%:PROCv(l%,4)
26263WHENDh%:IFNk%THENPROCn(1,2)ELSEPROCI
26263OTHERWISE:IFd%<0ANDd%>-8THENPROCib
26281IFd%<-9ANDd%>-10-kh%THEN
26290SYS&44AE3,6,_%,l%:SYS&44ADD,3+512,l%,-10-d%+lh%,0,,Hh%:SYS&44AE3,7,_%,l%:PROCub
26335ENDIF
26335ENDCASE
26344ENDPROC
26353DEFPROCpb(Qk%,X%,Y%):LOCALf%:SYS&44AE6,3,l%,X%,Y%TO,,X%,Y%:f%=Ih%+Qk%*32:X%=X%-!f%:Y%=Y%-f%!4-2:IFX%<K%+2THENY%+=K%/2
26434S%=Y%DIVK%:IFS%<0THENS%=0
26452IFS%>10THENS%=10
26461IFX%<K%+2THEN
26470IFS%=0ORS%=2ORS%=6ORS%=9THENENDPROC
26479S%+=10
26497ENDIF
26497?(Jh%+Qk%*24+S%)=?(Jh%+Qk%*24+S%)EOR1:IFX%<K%+2THEN
26515SYS&400D1,l%,!f%+4,4+f%!4+(S%-10)*K%-K%/2,!f%+K%,f%!4+(S%-10+1)*K%-K%/2
26533ELSE:SYS&400D1,l%,!f%+4+K%,4+f%!4+S%*K%,!f%+K%*2,f%!4+(S%+1)*K%
26551ENDIF
26551PROCZ(Qk%):ENDPROC
26569DEFPROCZ(Rk%):LOCALe%,Sk%:PROCub:PROC_(4,nh%+Rk%):ENDPROC
26623DEFPROCub:IFec%>-1THEN
26650PROC_(5,nh%+ec%)
26668ENDIF
26668ENDPROC
26677DEFPROCxb(n%,Ek%):IFEk%ANDn%=1THENPROCkb(2)
26704ENDPROC
26713DEFPROCyb(p%,d%):LOCALTk%,X%,Y%,B%,T%:IFp%>7THENENDPROC
26749Tk%=-1:IFd%>=If%ANDd%<=Lf%THEN
26767Tk%=(d%-If%)DIV2:SYS&44ADD,3,Mf%,Tk%*2+If%,1:SYS&44ADD,6,Mf%,Tk%*2+Jf%,&7E200000,&FF200000:IFUk%<>Tk%THEN
26803SYS&44ADD,3,Mf%,Uk%*2+If%,0:SYS&44ADD,6,Mf%,Uk%*2+Jf%,&17000000,&FF200000
26830ENDIF
26830Vk%=Uk%:Uk%=Tk%:PROCzb(Tk%,Wk%,TRUE)
26866ELSE:IFd%=Ff%ORd%=Gf%THENPROCe(Mf%,d%)
26875ENDIF
26884ENDPROC
26893DEFPROCzb(x%,q%,Xk%):LOCALWc%,i$,X%,Y%,B%,h$,P%,T%:h$=b$(x%):IF(c%(x%)AND2^26)=0AND(c%(x%)AND&80000000)=0THEN
26938PROCi:REPEAT:SYS&20008,17,n$+"."+h$TON%:IFN%<>1THEN
26974i$="Can't use that voice. ("+n$+"."+h$+" not found.)"
26992ELSE:IFNOTFNqTHENIFNOTFNrTHENi$="Can't use that voice. (No voice slots left)"
27001IFFNqTHEN
27010SYS&2001E,0,n$+"."+h$TOWc%;P%:IF(P%AND1)<>0THEN
27028IFNOTFNrTHENi$="Can't use that voice. ("+FNc(Wc%+4)+")"
27037ELSE:SYS&60185,q%,0TO,ja%:SYS&6018A,q%,h$TO;P%:SYS&60185,q%,ja%:IF(P%AND1)=1THEN
27082i$="Voice module '"+h$+"' does not contain a voice called '"+h$+"'. Shall use an alternative."
27100ELSE:c%(x%)=(c%(x%)OR2^26)
27118ENDIF
27118ENDIF
27127ELSE:P%=1
27154ENDIF
27154ENDIF
27163UNTILi$<>""OR(P%AND1)=0:PROCp
27190ENDIF
27190IFi$=""THEN
27199PROCJ(w%,q%,x%)
27217ELSE:PROCb(i$,FALSE):SYS&44ADD,3,Mf%,Vk%*2+If%,1:SYS&44ADD,6,Mf%,Vk%*2+Jf%,&7E200000,&FF200000:IFUk%<>Tk%Yk%THEN
27253SYS&44ADD,3,Mf%,Uk%*2+If%,0:SYS&44ADD,6,Mf%,Uk%*2+Jf%,&17000000,&FF200000
27280ENDIF
27280Uk%=Vk%
27298ENDIF
27298IFXk%THEN
27307SYS&40189,q%,Yb%,a%(4)-&1000,100:T%=TIME:REPEAT:MOUSEX%,Y%,B%:UNTILB%=0ANDTIME>T%+5:SYS&40189,q%,Yb%OR2^7,a%(4)-&1000,1
27370ENDIF
27370ENDPROC
27379DEFPROCS(q%):LOCALe%,f%:IFNOTYa%THENENDPROC
27415Wk%=q%:FORe%=0TOGc%-1:IFb%(w%,q%-1)=e%THEN
27442SYS&44ADD,3,Mf%,e%*2+If%,1:SYS&44ADD,6,Mf%,e%*2+Jf%,&7E200000,&FF200000:Uk%=e%
27478ELSE:SYS&44ADD,3,Mf%,e%*2+If%,0:SYS&44ADD,6,Mf%,e%*2+Jf%,&17000000,&FF200000
27505ENDIF
27505NEXT:Zk%=b%(w%,q%-1):SYS&44AD6,Mf%,-1:SYS&44AD9,Mf%,-1:_k%=qa%:IFqa%THENPROCm
27559ENDPROC
27568DEFPROCAb:PROCzb(Zk%,Wk%,FALSE):PROCBb:ENDPROC
27613DEFPROCBb:LOCALe%,A$,A%:CASEw%OF
27649WHEN0:SYS&44ADD,6,t%,kf%,0,0
27667WHEN1:PROCi:SYS&44ADD,6,o%,Pf%,0,0:A%=Wk%:CALLbi%:PROCk(b%(1,Wk%-1),Wk%):PROCp
27730WHEN2:SYS&44ADD,6,l%,hh%,0,0:PROCk(b%(2,Wk%-1),Wk%):A$=a$(b%(2,Wk%-1)):FORe%=0TOkh%-1:IFh%(e%,0)=Wk%THEN
27775SYS&44ADD,1+512,l%,lh%+e%,"s"+A$+",p"+A$,,Hh%
27793ENDIF
27793NEXT
27811WHEN3:PROCi:SYS&44ADD,6,k%,yg%,0,0:SYS&44AEB,3,dh%:PROCu(b%(3,Wk%-1),Wk%):PROCp
27865ENDCASE
27865PROCh(Mf%):SYS&44AD9,,-2:IF_k%THENPROCt
27892ENDPROC
27901DEFPROCCb(d%):CASEd%OF
27928WHENFf%:PROCBb
27955WHENGf%:PROCAb
27973ENDCASE
27973ENDPROC
27982DEFFNq:LOCALe%,y%,A%:y%=FALSE:FORe%=32TO1STEP-1:SYS&60183,0,e%TOA%:IFA%=0THENy%=TRUE:e%=-1
28045NEXT:=y%
28090DEFPROCDb(p%,d%):IFp%>7THENENDPROC
28099PROCi:CASEd%OF
28117WHENxf%:PROCEb
28135WHENyf%:PROC_a
28144WHENzf%:PROCqb
28153WHENAf%:PROCFb
28162ENDCASE
28162PROCp:ENDPROC
28180DEFPROCA:!g%=1:SYS&7,14,g%:IF(?g%<>&95ORg%?1>4)THENva%=TRUE:END
28225SYS&44AD6,Bf%,-1:SYS&44ADD,3,-1,zc%,0:Aa%=TRUE:w%=-1:ENDPROC
28279DEFPROCGb:SYS&44ADD,3,-1,zc%,1:Aa%=FALSE:ENDPROC
28324DEFPROCR(n%,d%,X%,Y%):IFNOTZa%THENENDPROC
28360`k%=n%:al%=d%:PROC`(Yh%,X%,Y%):ENDPROC
28396DEFPROCHb(A%):A%=EVAL(MID$("040060060065070080090100115130145160175190210",A%*3+1,3)):SYS&44AD4,2,`k%,al%,A%-40:PROCd(A%):ENDPROC
28450DEFPROCW(H%,J%):LOCALX%,Y%:IFw%<0THENENDPROC
28486Y%=i%(w%):X%=Y%!4:Y%=Y%!8-eb%:SYS&2E,(52+256),U%,"Metronome",H%+X%,J%+Y%,0,hc%,ic%:SYS&44AE2,34,oc%,"PlotMe",H%+X%,J%+Y%+eb%,8:ENDPROC
28540DEFPROCt:qa%=TRUE:bl%=lb%:IFtb%=1THEN
28585FORe%=1TOob%:SOUND8,&100+pb%,80,2,e%*nb%:NEXT
28621ENDIF
28621PROCd(qb%):BEATSlb%:PROCE(BEAT,cl%):PROCg:ENDPROC
28666DEFPROCm:qa%=FALSE:PROCE(kb%/4,TRUE):SYS&401C0:PROCg:ENDPROC
28729DEFPROCs(d%,n%,dl%):LOCALA%,e%:SYS&44ADE,1,n%,d%,h%+100,100:CASEFNc(h%+100)OF
28774WHEN"soff,poff":tb%=0
28792WHEN"son,pon":tb%=1
28801ENDCASE
28801tb%=(tb%EORdl%):IFdl%=1THEN
28819IFtb%=1THEN
28828SYS&44ADD,1,n%,d%,"son,pon"
28846ELSE:SYS&44ADD,1,n%,d%,"soff,poff"
28864ENDIF
28864ENDIF
28873IFqa%THEN
28909A%=1:WHILEA%*nb%<BEAT:A%+=1:ENDWHILE:FORe%=A%TOob%*2:SOUND8,(&100+pb%)*tb%,80,2,e%*nb%:NEXT
28981ENDIF
28981ENDPROC
28999DEFPROCd(A%):LOCALg:qb%=A%:TEMPOib%*A%*Q%*&1000/12000:!jj%=((130-(A%-20)/2.3)/rb%)*2^10:IFqa%=0OR(NOTcl%)THENPROCE(sb%,TRUE)
29062g=((12000)/(qb%*5*ib%))*2^8:!sj%=g:CASEw%OF
29098WHEN0:SYS&44ADD,2,t%,tf%,STR$(qb%)
29116WHEN1:SYS&44ADD,2,o%,og%,STR$(qb%)
29125WHEN2:SYS&44ADD,2,l%,vh%,STR$(qb%)
29134WHEN3:SYS&44ADD,2,k%,Yg%,STR$(qb%)
29143ENDCASE
29143ENDPROC
29152DEFPROCy(A%,B%):LOCALe%,Ac%,A,Bc%:Ac%=30:Q%=B%:ib%=2*A%:kb%=Q%*ib%:lb%=kb%*jb%:mb%=ib%*jb%:nb%=Q%*ib%/2:ob%=2*mb%/ib%:FORBc%=0TOjb%:FORe%=0TOkb%*8STEP8:A=90+e%*360/(kb%*8):A=RAD(SIN(RAD(A))*Ac%+90)
29287!(Cc%+e%+kb%*8*Bc%)=(COS(A)*rb%)*2^10:!(Cc%+e%+kb%*8*Bc%+4)=(SIN(A)*rb%)*2^10:NEXT:NEXT:PROCd(qb%):PROCE(kb%/4,TRUE):ENDPROC
29350DEFPROCE(Z%,el%):LOCALX%,Y%,A%,H%,J%:IFtb%=1ANDqa%THEN
29395IFZ%<bl%THEN
29404FORe%=1TOob%:SOUND8,&100+pb%,80,2,lb%+e%*nb%:NEXT
29440ENDIF
29440bl%=Z%
29458ENDIF
29458IFel%THEN
29467A%=Z%:CALLej%:IFw%<0THENENDPROC
29494fl%=i%(w%):A%=Z%:SYS&44AC7,20,fl%,h%:X%=h%!4:Y%=h%!8:SYS&400C9,,h%TOA%:H%=h%!4-h%!20:J%=h%!16-h%!24:WHILEA%<>0:SYS&44AE2,34,oc%,"PlotMe",H%+X%,J%+Y%,8:SYS&400CA,,h%TOA%:ENDWHILE:sb%=Z%
29620ENDIF
29620ENDPROC
29629DEFPROCIb:LOCALkk%,lk%,mk%,e%,A%:gl%=MODE:SYS&400ED,&100,U%,"metronome",,,,hc%,ic%:SYS&44AE2,259,oc%,"Met",2^4,cb%,db%,gl%:SYS&44AE2,259,oc%,"PlotMe",2^4,cb%,db%,gl%:SYS&44AE2,264,oc%,2,0:SYS&44AE2,60,oc%,"Met",0TO,kk%,lk%,mk%
29710SYS&44AE2,52+2^11,U%,"Metronome",0,-eb%,8,hc%,ic%:SYS&2E,60,kk%,lk%,mk%:SYS&44AE2,24,oc%,"met"TO,,A%:!gj%=A%:SYS&44AE2,24,oc%,"PlotMe"TO,,A%:!hj%=A%:A%=0:CALLej%:ENDPROC
29791DEFFNL(j%,a%):LOCALe%,c%,b%:b%=FNf("Temp",a%):IFb%=0THENb%=FNb(12,a%)
29836CASEj%OF
29845WHEN0:SYS&44AD4,1,t%,of%TOc%
29863WHEN1:SYS&44AD4,1,o%,gg%TOc%
29872WHEN2:SYS&44AD4,1,l%,uh%TOc%
29881WHEN3:SYS&44AD4,1,k%,Qg%TOc%
29890ENDCASE
29890IFb%=0THENb%=FNb(c%+40,a%)
29899=b%
29926DEFFNw(j%,a%):LOCALe%,c%,b%:IFhl%THEN
29944b%=FNa(c%,a%):IFb%=0THENb%=FNa(c%,a%)
29962IFb%=0THEN
29971CASEj%OF
29980WHEN0:SYS&44AD4,2,t%,of%,c%-40:SYS&44ACB,t%,tf%,c%
30016WHEN1:SYS&44AD4,2,o%,gg%,c%-40:SYS&44ACB,o%,og%,c%
30043WHEN2:SYS&44AD4,2,l%,uh%,c%-40:SYS&44ACB,l%,vh%,c%
30070WHEN3:SYS&44AD4,2,k%,Qg%,c%-40:SYS&44ACB,k%,Yg%,c%
30097ENDCASE
30097IFw%=j%THENPROCd(c%)
30106ENDIF
30115ELSE:b%=FNj(a%)
30142ENDIF
30142=b%
30187DEFPROCJb(p%,X%,Y%):IFJb%THENENDPROC
30196IF(p%AND4)THEN
30205PROCl(3):CASEIb%OF
30223WHEN1,2,3,4,5,6,7:IFil%THENPROCK(Ib%,!Qj%+!Pj%*M%,FALSE)
30232WHEN11:PROCKb(!Qj%,!Pj%)
30250WHEN10:PROCLb(!Qj%,!Pj%)
30259WHEN9:PROCMb(!Qj%,!Pj%)
30268WHEN13:PROCNb(!Qj%,!Pj%)
30277WHEN14,15:PROCOb(!Qj%,!Pj%,Ib%)
30286ENDCASE
30286ELSE:IF(p%AND1)THEN
30304A%=!Qj%+!Pj%*M%:IFA%>u%THENENDPROC
30322PROCNb(!Qj%,!Pj%):za%=TRUE:Ca%=TRUE:PROCw
30367ENDIF
30367ENDIF
30376ENDPROC
30385DEFPROCPb(d%,X%,Y%):CASEd%OF
30412WHENQg%:PROCR(k%,d%,X%,Y%)
30430WHENIg%:IFNOTJb%THEN
30439SYS&44AE3,6,_%,k%:SYS&44AE3,6,Hc%,dh%:SYS&44AE5,0,k%,X%,Y%,,eh%TO,,d%:SYS&44AE3,7,_%,k%:SYS&44AE3,7,Hc%,dh%:IFd%>=zg%ANDd%<=Ag%THEN
30493PROCx:PROCS(d%-zg%+1):PROCu(b%(3,d%-zg%),d%-zg%+1)
30529ENDIF
30529ENDIF
30538ENDCASE
30547ENDPROC
30556DEFPROCQb(p%,d%,X%,Y%):LOCALA%,C%,D%:IF(p%AND(4<<4))THEN
30601CASEd%OF
30610WHENQg%,Og%:PROCG(k%,d%,X%,Y%)
30637ENDCASE
30637ENDIF
30646IF(p%AND4)THEN
30664CASEd%OF
30673WHENLg%:PROCL(1)
30700WHENJg%:PROCL(-1)
30718WHENMg%:PROCx
30736WHENKg%:SYS&44ADD,3,k%,d%,1:Ub%=TRUE:PROCL(1)
30772WHENUg%,Tg%,Pg%,Vg%,Rg%,Sg%,Wg%:PROCe(k%,d%)
30790WHENQg%:SYS&44AD4,0,k%,d%,X%,Y%TOc%:PROCd((c%+40))
30817WHENOg%:SYS&44AD4,0,k%,d%,X%,Y%TOc%:PROCq(c%)
30844WHENXg%:SYS&44AD6,ld%,X%,Y%
30853WHENZg%:IFNOTPa%THENPROCe(k%,d%)
30862SYS&44AD4,1,k%,Qg%TOc%:c%-=1:IFc%<0THENc%=0
30889SYS&44AD4,2,k%,Qg%,c%TOc%:PROCd((c%+40))
30916WHEN_g%:IFNOTPa%THENPROCe(k%,d%)
30925SYS&44AD4,1,k%,Qg%TOc%:c%+=1:IFc%>255THENc%=255
30952SYS&44AD4,2,k%,Qg%,c%TOc%:PROCd((c%+40))
30979WHENIg%:IFNOTJb%THEN
30988SYS&44AE3,6,_%,k%:SYS&44AE3,6,Hc%,dh%:SYS&44AE5,0,k%,X%,Y%,,eh%TO,,d%:SYS&44AE3,7,_%,k%:SYS&44AE3,7,Hc%,dh%:IFd%>=zg%ANDd%<=Ag%THEN
31042IFNOTKb%THEN
31051PROCH(d%-zg%+1,-1,k%,-1)
31069ENDIF
31069PROCu(b%(3,d%-zg%),d%-zg%+1)
31087ELSE:CASEd%OF
31096WHENBg%,Bg%+1,Bg%+2,Cg%,Dg%:IFFNs(d%)THENPROCu(-1,d%-Bg%+1)ELSEPROCRb
31114ENDCASE
31123ENDIF
31132ENDIF
31141WHENHg%:SYS&44AE5,0,k%,X%,Y%,,eh%TO,,d%:CASEd%OF
31168WHENEg%:IFNOTab%THENPROCSb(-1):PROCTb
31186SYS&44ADD,3+2^9,k%,d%,0,,eh%
31204WHENFg%:IFNOTbb%THENPROCSb(1):PROCTb
31213SYS&44ADD,3+2^9,k%,d%,0,,eh%
31231WHENGg%:PROCUb
31240ENDCASE
31240ENDCASE
31249ENDIF
31258ENDPROC
31267DEFPROCFb:LOCALc%:PROCh(Bf%):PROCT(k%):PROCU(3):PROCVb(Hb%,O%,jl%,TRUE):PROCV(k%,Og%):SYS&44AD4,1,k%,Qg%TOc%:PROCs(Pg%,k%,0):PROCd(c%+40):PROCRb:PROCWb:ENDPROC
31402DEFPROCWb:PROCXb:!g%=dh%:SYS&400CB,,g%:PROCYb(g%):ENDPROC
31465DEFPROCZb:PROCx:PROCA:PROCr:ENDPROC
31519DEFPROCu(x%,q%):IFx%>=0THEN
31546d$="s"+a$(x%)
31564ELSE:IFq%>3THENq%+=1
31573d$="st"+STR$(q%):q%+=8
31600ENDIF
31600PROC_b(d$):!Nj%=q%:Ib%=q%:ENDPROC
31645DEFPROCRb:IFIb%>7THEN
31672IFIb%>12THEN
31681PROCu(-1,Ib%-9):SYS&44ADD,7+512,k%,zg%+Ib%-3,,,eh%
31708ELSE:PROCu(-1,Ib%-8):SYS&44ADD,7+512,k%,zg%+Ib%-2,,,eh%
31735ENDIF
31735ELSE:SYS&44ADD,7+512,k%,zg%+Ib%-1,,,eh%:PROCu(b%(3,Ib%-1),Ib%)
31771ENDIF
31771ENDPROC
31780DEFPROC`b(H%,J%,s%):!Li%=H%:!Mi%=J%:CALLBj%:ENDPROC
31852DEFPROCac(H%,J%,s%):LOCALe%:FORe%=0TOGg%:SYS&44AE0,,eh%+4+32*e%,s%:NEXT:PROCW(H%,J%):PROCX(H%,J%):SYS&400E6,7:RECTANGLEH%+`g%,J%+ch%,bh%-`g%,ah%-ch%:ENDPROC
31951DEFPROCx:PROCm:Kb%=FALSE:PROCg:SYS&44ADD,7,k%,Mg%,1:SYS&44ADD,3,k%,Kg%,0:A%=-1:B%=-1:CALLFj%:Ub%=FALSE:PROCbc:PROCcc(FALSE):ENDPROC
32068DEFPROCL(ok%):LOCALe%:IFUb%THEN
32104SYS&44ADD,7,k%,Kg%,1:!Tj%=0
32131ELSE:!Tj%=1
32149ENDIF
32149PROCcc(NOTUb%):kl%=-1:IFok%=1THEN
32176SYS&44ADD,7,k%,Lg%,1:A%=0:B%=0:CALLFj%:!Rj%=-1:!Sj%=u%
32221ELSE:SYS&44ADD,7,k%,Jg%,1:A%=(u%-1)DIVM%:B%=(u%-1)MODM%:CALLFj%:!Rj%=u%:!Sj%=u%
32284ENDIF
32284Kb%=TRUE:ll%=ok%:PROCg:!tj%=Yb%:SYS&401C0:PROCm:ml%=lb%:nl%=-mb%:FORe%=0TOmb%:A%=e%*Q%:IFll%=1THENCALLUj%ELSECALLVj%
32392NEXT:PROCdc:PROCt:ol%=-100:ENDPROC
32437DEFPROCSb(A%):!g%=dh%:SYS&400CB,,g%:g%!24+=A%*(Ob%+Rb%)*-1:PROCYb(g%):SYS&400C5,,g%:ENDPROC
32509DEFPROCec(d%):CASEd%OF
32536WHENPg%:PROCs(d%,k%,1)
32554WHENUg%:PROCv(k%,3)
32563WHENTg%:PROCv(k%,2)
32572WHENSg%:IFFNs(d%)THENPROCfc
32572WHENRg%:IFFNs(d%)THENPROCn(0,3)
32581WHENWg%:IFFNs(d%)THENPROCn(1,3)
32590WHENVg%:PROCh(k%):PROCZb
32626WHEN-1:PROCib
32635WHEN-2:SYS&44ADD,3+2^9,k%,Gg%,0,,eh%
32644ENDCASE
32644ENDPROC
32653DEFPROCgc:CALL_i%:ENDPROC
32689DEFPROCXb:PROC_b(d$):SYS&44AE2,262+2^11,U%,"s?",,,,si%,ti%:SYS&44AE2,262+2^11,U%,"Pointer1",,,,Gj%,Hj%:ENDPROC
32752DEFFNm:LOCALZ%,A%:Z%=BEAT:IFll%=1THEN
32815IFZ%<ml%THEN
32824FORe%=1TOmb%:A%=lb%+e%*Q%:CALLUj%:NEXT:nl%+=mb%
32878ENDIF
32878A%=(Z%DIVQ%)+nl%:IFA%>=u%THEN
32896IFUb%THENnl%-=u%
32905ENDIF
32914ELSE:IFZ%<ml%THEN
32932FORe%=1TOmb%:A%=lb%+e%*Q%:CALLVj%:NEXT:nl%+=mb%
32986ENDIF
32986A%=(Z%DIVQ%)+nl%:IFA%<0THEN
33004IFUb%THENnl%+=u%
33013ENDIF
33022ENDIF
33031ml%=Z%:=Z%
33067DEFPROChc:LOCALZ%,A%,yk%,zk%:Z%=FNm:IFll%=1THEN
33094A%=(Z%DIVQ%)+nl%:IFA%<>kl%THEN
33112kl%=A%:IFA%>=u%THEN
33130IFUb%THEN
33139A%-=u%:nl%-=u%
33166ELSE:PROCx:A%=-100
33184ENDIF
33184ENDIF
33193B%=A%MODM%:A%=A%DIVM%:CALLFj%:IFA%<>ol%ANDNOTUb%THENPROCic(A%):ol%=A%
33229ENDIF
33238ELSE:A%=u%-(Z%DIVQ%)-nl%-1:IFA%<>kl%THEN
33274kl%=A%:IFA%<0THEN
33292IFUb%THEN
33301A%+=u%:nl%-=u%
33328ELSE:PROCx:A%=-100
33346ENDIF
33346ENDIF
33355B%=A%MODM%:A%=A%DIVM%:CALLFj%:IFA%<>ol%ANDNOTUb%THENPROCic(A%):ol%=A%
33391ENDIF
33400ENDIF
33409ENDPROC
33418DEFPROCdc:IFKb%THEN
33445SYS&400D3,,g%:Fb%=TRUE:IFg%!0<>k%THEN
33472pl%=g%!0:ql%=g%!4:rl%=g%!8:sl%=g%!12:tl%=g%!16:ul%=g%!20
33535ENDIF
33535SYS&400D2,k%,-1,-200,200,0,0
33553ENDIF
33553ENDPROC
33562DEFPROCjc:Fb%=FALSE:ENDPROC
33598DEFPROCbc:IFFb%AND(NOTKb%)THEN
33625Fb%=FALSE:SYS&400D2,pl%,ql%,rl%,sl%,tl%,ul%
33652ENDIF
33652ENDPROC
33661DEFPROCkc(d%,vl%):A%=INSTR("1234567 ",CHR$(vl%)):IFA%=0ORNOTKb%ORIb%>7OR(NOTwl%)THEN
33697SYS&400DC,s%!24
33715ELSE:IFA%=8THENA%=Ib%
33724C%=FNm:IFll%=1THEN
33751PROCK(A%,(C%DIVQ%)+nl%,TRUE)
33769ELSE:PROCK(A%,u%-(C%DIVQ%)-nl%-1,TRUE)
33787ENDIF
33787ENDIF
33796ENDPROC
33805DEFPROCK(A%,B%,xl%):IFNOTYc%THENPROCl(3)
33832IFB%>=u%THEN
33841IFUb%THEN
33850B%-=u%
33868ELSE:ENDPROC
33877ENDIF
33886ENDIF
33895IFUSR(Jj%)=0THEN
33904PROCb("Not allowed that many instruments at once.",FALSE)
33922ELSE:PROClc(B%,A%,TRUE,xl%)
33940ENDIF
33940ENDPROC
33949DEFPROClc(B%,A%,yl%,xl%):LOCALC%,D%,E%:IFyl%THENE%=Yb%ELSEE%=0
33985IFKb%THEN
33994IFll%=1THEN
34003C%=FNmDIVQ%:D%=B%:IFD%<nl%+C%AND(NOTxl%)THEND%+=u%
34030WHILE(nl%+C%<=D%ANDD%<=nl%+mb%*2)ORxl%:SYS&401C1,(D%-nl%)*Q%,0,(E%<<16ORA%),(!Xj%OR!Wj%<<16):D%+=u%:xl%=FALSE:ENDWHILE
34084ELSE:C%=FNmDIVQ%:D%=u%-B%-1:IFD%<nl%+C%AND(NOTxl%)THEND%+=u%
34111WHILE(nl%+C%<=D%ANDD%<=nl%+mb%*2)ORxl%:SYS&401C1,(D%-nl%)*Q%,0,(E%<<16ORA%),(!Xj%OR!Wj%<<16):D%+=u%:xl%=FALSE:ENDWHILE
34165ENDIF
34165ELSE:SYS&40186,(E%<<16ORA%),(!Xj%OR!Wj%<<16)
34192ENDIF
34192IFxl%THENSYS&40186,(E%<<16ORA%),(!Xj%OR!Wj%<<16)
34201ENDPROC
34210DEFPROCmc(n%,Ek%):LOCALA%,B%:IFEk%THEN
34246CASEn%OF
34255WHEN0:SYS&44ADA,V%,Sb%*M%*8:B%=O%*Hb%:A%=O%:CALLxj%:SYS&44AEB,3,dh%:PROCic(0):PROCx:PROCl(3)
34354WHENDd%:SYS&44ACC,Dd%,zd%TO,,Ek%:FORe%=1TOEk%:SYS&44AC7,Ck%*8,V%,V%+Ck%*e%*8:NEXT:PROCVb(Hb%*(Ek%+1),O%,jl%,FALSE):SYS&44AEB,3,dh%:PROCl(3)
34426WHEN1:PROCkb(3)
34435ENDCASE
34435ENDIF
34444ENDPROC
34453DEFPROCic(A%):!g%=dh%:SYS&400CB,,g%:IFA%=0THEN
34498g%!24=Qb%
34516ELSE:IFg%!24<(A%)*(Ob%+Rb%)*-1THENg%!24=(A%)*(Ob%+Rb%)*-1
34525IFg%!24-(g%!16-g%!8)>(A%+1)*(Ob%+Rb%)*-1THENg%!24=(A%+1)*(Ob%+Rb%)*-1+(g%!16-g%!8)
34534ENDIF
34543PROCYb(g%):SYS&400C5,,g%:ENDPROC
34570DEFPROCYb(s%):IFg%!24>=Qb%THEN
34597IFNOTab%THENSYS&44ADD,4+2^9,k%,Eg%,TRUE,,eh%:ab%=TRUE
34606ELSE:IFab%THENSYS&44ADD,4+2^9,k%,Eg%,FALSE,,eh%:ab%=FALSE
34624ENDIF
34633IFg%!24<=g%!16-g%!8+(jl%)*(Ob%+Rb%)*-1THEN
34642IFNOTbb%THENSYS&44ADD,4+2^9,k%,Fg%,TRUE,,eh%:bb%=TRUE
34651ELSE:IFbb%THENSYS&44ADD,4+2^9,k%,Fg%,FALSE,,eh%:bb%=FALSE
34669ENDIF
34678ENDPROC
34687DEFPROC_b(d$):z$=d$:CASEd$OF
34723WHEN"st2":A%=4:B%=0:C%=(O%-1)*20+2:D%=0:z$="st2"+STR$(O%)
34741WHEN"st5":A%=0:B%=8:C%=0:D%=8
34750WHEN"st6":A%=4:B%=0:C%=4:D%=0
34759WHEN"st7":A%=4:B%=44:C%=4:D%=44
34768OTHERWISE:A%=0:B%=0:C%=0:D%=0
34777ENDCASE
34777SYS&44AE3,1+2^11,U%,d$,wb%+A%,wb%+B%,_%TO,,_%:SYS&44AE3,1+2^11,U%,z$,wb%+C%,wb%+D%,Hc%TO,,Hc%:ENDPROC
34804DEFPROCKb(zl%,Al%):LOCALA%,B%,C%,D%,Bl%,Cl%:A%=zl%+Al%*M%:B%=?(A%*8+V%):Bl%=(B%AND&F):IFBl%=0THENENDPROC
34867?(A%*8+V%)=B%-1:Cl%=?(A%*8+V%+Bl%):?(A%*8+V%+Bl%)=0:C%=Al%:D%=zl%:CALLYj%:za%=TRUE:PROCw:PROClc(A%,Cl%,FALSE,FALSE):ENDPROC
34957DEFPROCNb(zl%,Al%):LOCALA%,B%,C%,D%,Bl%:A%=zl%+Al%*M%:B%=?(A%*8+V%):Bl%=(B%AND&F):IFBl%<2THENENDPROC
35020B%=?(A%*8+V%+Bl%):D%=1:WHILED%<=Bl%:C%=?(A%*8+V%+D%):?(A%*8+V%+D%)=B%:B%=C%:D%+=1:ENDWHILE:C%=Al%:D%=zl%:CALLYj%:ENDPROC
35128DEFPROCLb(zl%,Al%):LOCALA%,B%,C%,D%,Bl%:IFu%<=O%THENPROCb("Sorry, you can't do that you must leave at least one beat on the screen.",FALSE):ENDPROC
35164A%=zl%+Al%*M%:SYS&44AC7,u%*8-A%*8-8*O%,A%*8+V%+8*O%,A%*8+V%:SYS&44ADA,u%*8+V%-O%*8,8*O%:PROCnc(Hb%-1):za%=TRUE:Ca%=TRUE:PROCw:IFKb%THENPROCL(ll%)
35236ENDPROC
35245DEFPROCMb(zl%,Al%):LOCALA%,B%,C%,D%,Bl%,v%:A%=zl%+Al%*M%:IFA%>u%THEN
35290v%=(A%-u%)DIVO%
35308ELSE:v%=1
35326ENDIF
35326IF(Hb%+v%)*O%/M%>jl%THENPROCb("No room to add any beats, ask your teacher for more.",FALSE):ENDPROC
35335IFA%<=u%THEN
35344SYS&44AC7,u%*8-A%*8,A%*8+V%,A%*8+V%+8*O%:SYS&44ADA,A%*8+V%,8*O%
35371ENDIF
35371PROCnc(Hb%+v%):za%=TRUE:Ca%=TRUE:PROCw:IFKb%THENPROCL(ll%)
35425ENDPROC
35434DEFPROCoc(g$):PROCi:PROCx:IFINSTR(g$,".")=0THENg$="<MBBeatFiles$Dir>."+g$
35479a%=FNl(g$):IFa%=0THENENDPROC
35497b%=FNh(b$,8,a%):IFb%<>0THENPROCb(FNc(b%+4),FALSE):ENDPROC
35515IFb$<>"MBRhythm"ANDb$<>"MBBeat  "THENPROCb("File format not understood.",FALSE):ENDPROC
35524b%=FNa(c%,a%):IFb%<>0THENPROCb(FNc(b%+4),FALSE):ENDPROC
35542IFc%>1THENPROCb("This file was made by a newer version of MusicBox. You will need an upgrade to load it.",FALSE)
35551b%=FNh(b$,4,a%):WHILEb%=0ANDb$<>"EndX":CASEb$OF
35578WHEN"Rthm":b%=FNU(a%)
35596WHEN"Inst":b%=FNv(3,a%)
35605WHEN"Temp":b%=FNw(3,a%)
35614WHEN"Volu":b%=FNx(3,a%)
35623WHEN"Octa":b%=FNy(a%)
35632WHEN"Key ":b%=FNz(a%)
35641WHEN"Pent":b%=FNB(a%)
35650OTHERWISE:b%=FNj(a%)
35659ENDCASE
35659IFb%=0THENb%=FNh(b$,4,a%)
35668ENDWHILE:IFb%<>0THENPROCb(FNc(b%+4),FALSE)
35695b%=FNi(a%):PROCp:PROCr:SYS&44AEB,3,k%:ENDPROC
35740DEFFNU(a%):LOCALb%,v%,A%,B%:b%=FNa(v%,a%):IFb%=0THENb%=FNa(A%,a%)
35785IFb%=0THENb%=FNa(B%,a%)
35794IFb%<>0THEN=b%
35803SYS&44ADA,V%,Sb%*M%*8:b%=FNk(V%,v%-16,a%):IFNOTDl%THEN
35839El%=A%*B%-1:A%=O%:B%=(El%DIVA%)+1
35875ENDIF
35875IFA%*B%>jl%*M%THEN
35884IFNOTBk%THENjl%=((A%*B%-1)DIVM%)+1
35893ENDIF
35902PROCVb(B%,A%,jl%,FALSE):SYS&44AEB,3,dh%:PROCic(0):=b%
35956DEFPROCVb(Fl%,Gl%,Hl%,Il%):LOCALc%,Jl%,A%,B%:Jl%=O%:IFHl%>Sb%THENHl%=Sb%:PROCb("Number of rows reduced to the maximum setting of "+STR$(Sb%)+".")
35983c%=TRUE:IFHl%<((Gl%*Fl%-1)/M%)ANDIl%THEN
36010!g%=4:$(g%+4)="Reducing the maximum number of rows for the Beat Box will truncate the present tune. Shall I continue and reduce it?"+CHR$0:SYS&400DF,g%,%11011,o$TO,c%:c%=(c%=1):IFc%THENFl%=M%*Hl%/Gl%
36055ENDIF
36064IFc%THEN
36073!Aj%=Hl%:jl%=Hl%
36100ENDIF
36100O%=Gl%:Hb%=Fl%:u%=Gl%*Fl%:!Mj%=Gl%:!Lj%=(u%-1)MODM%+1:!Kj%=(u%-1)DIVM%:SYS&44ADA,V%+u%*8,Sb%*M%*8-u%*8:B%=Gl%*Fl%:A%=Gl%:CALLxj%:SYS&44AEB,3,dh%:IF!Nj%=10ANDw%=3THENPROC_b(d$)
36235IFw%=3AND((Jl%<>O%)ORIl%)THEN
36244IFGl%>4THEN
36253PROCy(O%,hb%)
36271ELSE:PROCy(O%,gb%)
36289ENDIF
36289ENDIF
36298PROCWb:ENDPROC
36316DEFPROCpc(S%,Kl%):LOCALe%,e,c,d:Ll%=Kl%:!Ij%=Kl%:!yj%=S%:Ob%=S%:FORe%=1TO8:d=Mb%:c=d*e%-Mb%:IFc>S%-Mb%THEN
36415c=S%-Mb%:d=c/(e%-1)
36442ENDIF
36442FORe=0TO7:!(Cj%+e%*32-32+e*4)=c-d*(e):NEXT:NEXT:SYS&44AEB,3,dh%:ENDPROC
36496DEFPROCnc(Fl%):LOCALA%,B%:Hb%=Fl%:u%=O%*Hb%:!Lj%=(u%-1)MODM%+1:!Kj%=(u%-1)DIVM%:B%=u%:A%=O%:CALLxj%:SYS&44AEB,3,dh%:IF!Nj%=10ANDw%=3THENPROC_b(d$)
36622ENDPROC
36631DEFPROCOb(zl%,Al%,Ml%):LOCALA%,B%,C%,D%,Bl%,Cl%:A%=zl%+Al%*M%:IFMl%=14THEN
36676B%=?(A%*8+V%):Bl%=(B%AND&F):IFBl%=0THENENDPROC
36703?(A%*8+V%)=B%-1:Cl%=?(A%*8+V%+Bl%):?(A%*8+V%+Bl%)=0:C%=Al%:D%=zl%:CALLYj%:PROClc(A%,Cl%,FALSE,FALSE):!di%=Cl%:PROCWa("st7_copy2"):PROCw:PROCu(-1,6):za%=TRUE:PROCw
36829ELSE:B%=A%:A%=!di%:IFB%>=u%THEN
36856IFUb%THEN
36865B%-=u%
36883ELSE:ENDPROC
36892ENDIF
36901ENDIF
36910IFUSR(Jj%)=0THEN
36919PROCb("Not allowed that many instruments at once.",FALSE)
36937ELSE:PROClc(B%,A%,TRUE,FALSE):PROCw:PROCu(-1,5):za%=TRUE:PROCw
36991ENDIF
36991ENDIF
37000ENDPROC
37009DEFPROCUb:LOCALA%,B%,C%,D%:IFNOTKb%ORIb%>7THENENDPROC
37045A%=Ib%:C%=FNm:IFll%=1THEN
37072PROCK(A%,(C%DIVQ%)+nl%,TRUE)
37090ELSE:PROCK(A%,u%-(C%DIVQ%)-nl%-1,TRUE)
37108ENDIF
37108SYS&44ADD,3+2^9,k%,Gg%,1,,eh%:PROCe(k%,-2):ENDPROC
37135DEFPROCw:SYS&44AE3,6,Hc%,dh%:SYS&44AE3,6,_%,k%:ENDPROC
37180DEFFNs(d%):LOCALy%:CASEd%OF
37216WHENBg%:y%=Gk%
37234WHENBg%+1:y%=Hk%
37243WHENBg%+2:y%=Ik%
37252WHENCg%:y%=TRUE
37261WHENDg%:y%=Kk%
37270WHENSg%:y%=Lk%
37279WHENRg%:y%=Mk%
37288WHENWg%:y%=Nk%
37297ENDCASE
37297IFNOTy%THENPROCI
37306=y%
37333DEFPROCfc:LOCALA%:Ck%=u%:IFCk%<1ORCk%>jl%*M%/2THENPROCc("No room to copy the present rhythm."):ENDPROC
37360Dk%=(jl%*M%/Ck%)-1:SYS&44ACB,Dd%,zd%,1:PROCn(Dd%,3):ENDPROC
37396DEFPROCTb:LOCALA%,B%,C%:REPEAT:MOUSEA%,B%,C%:UNTILC%=0:ENDPROC
37459DEFPROCcc(A%):Jb%=A%:IFA%THEN
37495!dk%=2
37513ELSE:!dk%=1
37531ENDIF
37531ENDPROC
37540DEFPROCqa:LOCALNl%:DIMb%(3,8):SYS&40140,0,208,48:SYS&40140,8:FORNl%=0TO7:FOROl%=0TO3:PROCJ(Ol%,Nl%+1,Nl%):NEXT:NEXT:FOROl%=0TO3:PROCJ(Ol%,8,4):NEXT:SYS&6018A,8,"StringLib-Hard":ENDPROC
37684DEFPROCJ(j%,q%,x%):LOCALCl%,e%:Cl%=b%(j%,q%-1):b%(j%,q%-1)=x%:FORe%=0TO7:IFb%(j%,e%)=Cl%THENCl%=-1
37756NEXT:IFCl%<>-1THENc%(Cl%)=((c%(Cl%)OR2^(j%+27))EOR2^(j%+27))
37774c%(x%)=c%(x%)OR2^(j%+27):IFw%=j%THENPROCqc(q%,j%)
37792ENDPROC
37801DEFPROCU(j%):LOCALe%:w%=j%:FORe%=0TO7:PROCqc(e%+1,j%):NEXT:ENDPROC
37873DEFPROCqc(q%,j%):LOCALA%,x%:IFq%=8THENENDPROC
37909x%=b%(j%,q%-1):IFb$(x%)="Rest"THEN
37927SYS&40185,q%,0
37945ELSE:SYS&6018A,q%,b$(x%)TO;P%:IF(P%AND1)=1THEN
37963PROCrc(x%,q%,j%)
37981ENDIF
37981ENDIF
37990SYS&40185,q%,0TO,A%:SYS&40185,q%,A%:?(mj%+q%)=A%:IFq%<8THEN
38026$(kc%+26*(q%-1))="S"+a$(x%)+",P"+a$(x%):$(qi%+(q%-1)*16)="S"+a$(x%)+CHR$0
38053ENDIF
38053ENDPROC
38062DEFFNK(j%,a%):LOCALe%,b$,b%:b%=FNf("Inst",a%):IFb%=0THENb%=FNb(20*8+8,a%)
38107FORe%=0TO7:IFb%=0THENb%=FNf(LEFT$(b$(b%(j%,e%))+STRING$(20," "),20),a%)
38125NEXT:=b%
38161DEFFNv(j%,a%):LOCALe%,x%,b$,b%,v%,x$,N%:IFNOTPl%THEN=FNj(a%)
38179x$="":b%=FNa(v%,a%):FORe%=0TO7:IFb%=0THENb%=FNk(g%,20,a%)
38215IFb%=0THEN
38224g%?20=0:b$=FNc(g%):b$=LEFT$(b$,INSTR(b$," ")-1):N%=-1:FORx%=0TOea%-1:IFb$(x%)=b$THENN%=x%
38278NEXT:IFN%=-1THENx$=b$:N%=0
38296b%(j%,e%)=N%:IFw%=j%THENPROCqc(e%+1,j%)
38314ENDIF
38323NEXT:IFx$<>""ANDpc%=FALSETHENpc%=TRUE:PROCb("Some instruments were not found including '"+x$+"'. They have been replaced with '"+b$(0)+"'.",FALSE)
38341=b%
38368DEFPROCrc(x%,q%,j%):LOCALWc%,i$,X%,Y%,B%,h$,P%,T%:h$=b$(x%):IF(c%(x%)AND2^26)=0AND(c%(x%)AND&80000000)=0THEN
38395PROCi:REPEAT:SYS&20008,17,n$+"."+h$TON%:IFN%<>1THEN
38431i$="Can't use voice '"+h$+"'. Shall use an alternative. ("+n$+"."+h$+" not found.)"
38449ELSE:IFNOTFNqTHENIFNOTFNrTHENi$="Can't use that voice. (No voice slots left)"
38458IFFNqTHEN
38467SYS&2001E,0,n$+"."+h$TOWc%;P%:IF(P%AND1)<>0THEN
38485IFNOTFNrTHENi$="Can't use voice '"+h$+"'. Shall use an alternative.("+FNc(Wc%+4)+")"
38494ELSE:SYS&60185,q%,0TO,ja%:SYS&6018A,q%,h$TO;P%:SYS&60185,q%,ja%:IF(P%AND1)=1THEN
38539i$="Voice module '"+h$+"' does not contain a voice called '"+h$+"'. Shall use an alternative."
38557ELSE:c%(x%)=(c%(x%)OR2^26)
38575ENDIF
38575ENDIF
38584ELSE:P%=1
38611ENDIF
38611ENDIF
38620UNTILi$<>""OR(P%AND1)=0:PROCp
38647ENDIF
38647IFi$=""THEN
38656PROCJ(j%,q%,x%)
38674ELSE:PROCb(i$,FALSE):PROCJ(j%,q%,0)
38701ENDIF
38701ENDPROC
38710DEFFNr:LOCALe%,Ql%:Ql%=-1:e%=0:WHILEe%<Gc%ANDQl%=-1:IF(c%(e%)AND&F8000000)=0AND(c%(e%)AND2^26)=2^26THENQl%=e%
38773e%+=1:ENDWHILE:IFQl%=-1THEN
38800e%=0:WHILEe%<Gc%ANDQl%=-1:IF(c%(e%)AND2^(w%+27))=0AND(c%(e%)AND&84000000)=&04000000THENQl%=e%
38827e%+=1:ENDWHILE
38854ENDIF
38854IFQl%=-1THEN=FALSE
38863SYS&2001E,4,b$(Ql%):c%(Ql%)=(c%(Ql%)OR2^26)EOR2^26:=TRUE
38908DEFPROCH(q%,Sk%,n%,d%):SYS&40185,q%,?(mj%+q%):IFSk%<0THEN
38935Sk%=4:Rl%=a%(Sk%)-&1000
38953ELSE:Rl%=a%(Sk%)
38971ENDIF
38971SYS&40189,q%,Yb%,Rl%,Xb%:PROCe(n%,d%):Sl%=d%:Tl%=q%:ENDPROC
39016DEFPROCib:SYS&40189,Tl%,Yb%+2^7,Rl%,Wb%:ENDPROC
39052DEFPROCsc:LOCALe%:FORe%=1TO8:SOUNDe%,0,0,1:NEXT:SYS&401C0:ENDPROC
39124DEFPROCtc(c%):LOCALe%:Ul%=c%:FORe%=0TOZb%-1:a%(e%)=EVAL(MID$("&1955&16AA&1555&12AA&1000&0EAA&0C00&0955&06AA&0555&02AA",e%*5+1,5))+Vl%*&1000:NEXT:IFNOTXa%THEN
39196IFc%>7THEN
39205c%-=7:FORe%=1TOc%:a%(EVAL(MID$("5263041",e%,1)))=EVAL(MID$("&0D55&1400&0AAA&1155&1800&0EAA&1555",e%*5-4,5))+Vl%*&1000:NEXT
39250ELSE:IFc%>0THEN
39259FORe%=1TOc%:a%(EVAL(MID$("1403625",e%,1)))=EVAL(MID$("&1800&1155&1AAA&1400&0D55&16AA&1000",e%*5-4,5))+Vl%*&1000:NEXT
39295ENDIF
39295ENDIF
39304ENDIF
39313FORe%=10TO7STEP-1:a%(e%)=a%(e%-7)-&1000:NEXT:IFXa%THEN
39349a%(2)=a%(1):a%(1)=a%(0):a%(0)=a%(6)+&1000:a%(5)=a%(6):a%(6)=a%(7):a%(7)=a%(8):a%(8)=a%(10):a%(9)=a%(5)-&1000:a%(10)=a%(6)-&1000
39439ENDIF
39439FORe%=0TO10:!(e%*4+uj%)=a%(10-e%):NEXT:!Xj%=a%(4)-&1000:FORe%=0TO20:k%(e%)=EVAL(MID$("&02AA&0555&06AA&0955&0C00&0EAA&1000&12AA&1555&16AA&1955&0400&7FFF&0800&0AAA&0D55&7FFF&1155&1400&7FFF&1800",e%*5+1,5))+Vl%*&1000:NEXT:ENDPROC
39520DEFFNO(a%):LOCALe%,c%,b%:b%=FNf("Octa",a%):IFb%=0THENb%=FNb(12,a%)
39565IFb%=0THENb%=FNb(Vl%,a%)
39574=b%
39601DEFFNy(a%):LOCALe%,c%,b%:IFWl%THEN
39619b%=FNa(c%,a%):IFb%=0THENb%=FNa(c%,a%)
39637Vl%=c%:PROCtc(Ul%)
39664ELSE:b%=FNj(a%)
39682ENDIF
39682=b%
39709DEFFNP(a%):LOCALe%,c%,b%:b%=FNf("Key ",a%):IFb%=0THENb%=FNb(12,a%)
39736IFb%=0THENb%=FNb(Ul%,a%)
39745=b%
39772DEFFNQ(a%):LOCALe%,c%,b%:b%=FNf("Pent",a%):IFb%=0THENb%=FNb(12,a%)
39799IFb%=0THENb%=FNb(Xa%,a%)
39808=b%
39835DEFFNz(a%):LOCALe%,c%,b%:IFXl%THEN
39853b%=FNa(c%,a%):IFb%=0THENb%=FNa(c%,a%)
39871Ul%=c%:PROCtc(Ul%)
39898ELSE:b%=FNj(a%)
39916ENDIF
39916=b%
39943DEFFNB(a%):LOCALe%,c%,b%:IFXl%THEN
39961b%=FNa(c%,a%):IFb%=0THENb%=FNa(c%,a%)
39979Xa%=c%:IFc%THENc%=0ELSEc%=2
39997!Fi%=c%:Cb%=c%:PROCtc(Ul%)
40033ELSE:b%=FNj(a%)
40051ENDIF
40051=b%
40087DEFPROCuc(d%):IFd%=of%THENPROCR(t%,d%,X%,Y%)
40105IFd%>=lf%ANDd%<=mf%THEN
40114IFUa%<>2THENPROCS(((d%-lf%)MOD_b%)+1)
40123ENDIF
40132ENDPROC
40141DEFPROCvc(p%,d%,X%,Y%):LOCALc%:IF(p%AND(5<<4))THEN
40177CASEd%OF
40186WHENof%,qf%:PROCG(t%,d%,X%,Y%)
40213ENDCASE
40213ENDIF
40222IF(p%AND4)THEN
40231CASEd%OF
40240WHENdf%,ef%,sf%,rf%:IFp%<7THENPROCe(t%,d%)
40258WHENjf%:PROCl(0):SYS&44ADD,7,t%,d%:PROCob(t%,if%,df%,0)
40303WHENhf%:SYS&44ADD,7,t%,d%:PROCD(t%,if%,df%,0,TRUE)
40330WHENgf%:SYS&44ADD,7,t%,d%:SYS&44ADD,7,t%,hf%:Ok%=TRUE:PROCD(t%,if%,df%,0,TRUE)
40375WHENff%:SYS&44ADD,7,t%,d%:PROCD(t%,if%,df%,0,FALSE)
40402WHENif%:PROCo(t%,d%,df%)
40420WHENof%:SYS&44AD4,0,t%,d%,X%,Y%TOc%:PROCd((c%+40))
40447WHENqf%:SYS&44AD4,0,t%,d%,X%,Y%TOc%:PROCq(c%)
40474WHENuf%:IFNOTPa%THENPROCe(t%,d%)
40483SYS&44AD4,1,t%,of%TOc%:c%-=1:IFc%<0THENc%=0
40510SYS&44AD4,2,t%,of%,c%TOc%:PROCd((c%+40))
40537WHENwf%:SYS&44AD6,ld%,X%,Y%
40546WHENvf%:IFNOTPa%THENPROCe(t%,d%)
40555SYS&44AD4,1,t%,of%TOc%:c%+=1:IFc%>255THENc%=255
40582SYS&44AD4,2,t%,of%,c%TOc%:PROCd((c%+40))
40618ENDCASE
40618ENDIF
40627ENDPROC
40636DEFPROCEb:PROCh(Bf%):PROCT(t%):PROCy(1,gb%):Ok%=FALSE:PROCU(0):PROCV(t%,qf%):SYS&44AD4,1,t%,of%TOc%:PROCd(c%+40):PROCt:PROCs(df%,t%,0):ENDPROC
40753DEFPROCwc:LOCALd%:IFUa%<>2THEN
40789SYS&400CF,,h%:d%=h%!16:IFd%>=lf%ANDd%-lf%<=_b%*Zb%AND(h%!8AND4)=4THEN
40816PROCxc(d%)
40834ELSE:PROCyc
40852ENDIF
40852ENDIF
40861ENDPROC
40870DEFPROCxc(d%):IFd%<>cc%THEN
40897PROCyc:PROC_(2,d%)
40924ENDIF
40924ENDPROC
40933DEFPROCyc:IFcc%>-1THEN
40960PROC_(3,cc%)
40978ENDIF
40978ENDPROC
40987DEFPROCzc(H%,J%):PROCW(H%,J%):PROCX(H%,J%):ENDPROC
41032DEFPROCAc:PROCo(t%,if%,df%):PROCm:PROCA:PROCr:ENDPROC
41095DEFPROCBc(d%):CASEd%OF
41122WHENdf%:PROCs(d%,t%,1)
41140WHENef%:PROCh(t%):PROCAc
41149WHENsf%:PROCv(o%,7)
41158WHENrf%:PROCv(o%,6)
41167ENDCASE
41167ENDPROC
41176DEFPROCea:LOCALYl%:REPEAT:SYS&400C7,Ma%,mc%TOYl%:CASEYl%OF
41248WHEN1:PROCCc(mc%)
41266WHEN2:PROCDc(mc%)
41275WHEN3:PROCEc(!mc%)
41284WHEN4:PROCFc(mc%)
41293WHEN5:PROCGc(mc%)
41302WHEN6:PROCHc(mc%)
41311WHEN7:PROCIc
41320WHEN8:PROCJc(mc%)
41329WHEN9:PROCKc(mc%)
41338WHEN11:PROCjc
41347WHEN17,18:PROCLc(mc%)
41356ENDCASE
41356IFYl%<>17ANDYl%<>18THENPROCbb
41365UNTILva%:ENDPROC
41383DEFPROCGc(s%):CASE!s%OF
41410WHENo%:Ka%=TRUE
41428WHENl%:Qa%=TRUE
41437WHENt%:La%=TRUE
41446WHENk%,dh%:Ta%=TRUE:PROCdc
41455WHENm%:vc%=TRUE
41464ENDCASE
41464PROCg:ENDPROC
41482DEFPROCFc(s%):LOCALA%,Zl%:Zl%=FALSE:A%=!s%:IFA%=ld%THENSYS&400C6,,s%:ENDPROC
41536CASETRUEOF
41545WHENKa%:PROCab:Ka%=FALSE:Zl%=TRUE
41590WHENTa%:SYS&400CF,,g%:IF(g%!12<>dh%ANDg%!12<>k%)OR(g%!12=A%ANDA%=k%)THENPROCgc:Ta%=FALSE:Zl%=TRUE
41608WHENQa%:PROCtb:Qa%=FALSE:Zl%=TRUE
41653WHENLa%:La%=FALSE:Zl%=TRUE
41680WHENvc%:vc%=FALSE:PROCMc
41707ENDCASE
41707PROCg:IFZl%=TRUETHEN
41725A%=0:CALLbj%
41752ENDIF
41752ENDPROC
41761DEFPROCEc(A%):PROCh(A%):CASEA%OF
41797WHENBf%:PROCGb
41815WHENt%:PROCAc
41824WHENo%:PROCY
41833WHENvd%:PROCr
41842WHENl%:PROCvb
41851WHENk%:PROCZb
41860ENDCASE
41860ENDPROC
41869DEFPROCLc(s%):CASEs%!16OF
41896WHEN0:va%=TRUE
41914WHEN8:IFZc%OR_c%ORYc%ORXc%THEN
41923PROCn(2,-1):s%!12=s%!8:SYS&400E7,19,s%
41959ENDIF
41959WHEN3:PROCb("Loading via dragging not implemented yet. Try double clicking.",FALSE)
41977WHEN5:PROCNc(s%)
41986WHEN&400C1:PROCca
41995ENDCASE
41995ENDPROC
42004DEFPROCHc(s%):LOCALp%,n%,d%,X%,Y%:X%=s%!0:Y%=s%!4:p%=s%!8:n%=s%!12:d%=s%!16:IFn%<>Mf%THENSYS&44ACE,,s%
42076IF(p%AND2)THEN
42085CASEn%OF
42094WHEN-2:PROC`(Wh%,X%-50,96+44*3)
42112WHENt%:PROCuc(d%)
42121WHENo%:PROCTa(d%,X%,Y%)
42130WHENl%:PROClb(d%,X%,Y%)
42139WHENk%:PROCPb(d%,X%,Y%)
42148WHENm%:PROCOc(d%,X%,Y%)
42157WHENld%:PROCh(ld%)
42166ENDCASE
42166ELSE:CASEn%OF
42184WHEN-2:IFNOTAa%THENPROCA
42193WHENt%:PROCvc(p%,d%,X%,Y%)
42211WHENk%:PROCQb(p%,d%,X%,Y%)
42220WHENMf%:PROCyb(p%,d%)
42229WHENBf%:PROCDb(p%,d%)
42238WHENo%:PROCUa(p%,d%,X%,Y%)
42247WHENl%:PROCnb(p%,d%,X%,Y%)
42256WHENvd%:PROCPc(p%,d%)
42265WHENMe%:PROCQc(p%,d%,X%,Y%)
42274WHEN`%:PROCRc(p%,d%,X%,Y%)
42283WHENOd%:PROCSc(p%,d%,X%,Y%)
42292WHENm%:PROCTc(p%,d%,X%,Y%)
42301WHENWe%:PROCUc(p%,d%,X%,Y%)
42310WHENdh%:PROCJb(p%,X%,Y%)
42319WHEN_a%:PROCVc(p%,d%)
42328WHENjd%:PROCWc(p%,X%,Y%)
42337WHENld%:PROCh(ld%)
42346ENDCASE
42346ENDIF
42355IFn%<>Mf%THENSYS&44ACF,5
42364ENDPROC
42373DEFPROCIc:LOCALA%:CASETRUEOF
42409WHEN(Ja%<>0):PROCXc
42427WHENIa%:PROCYc:Ia%=FALSE
42454WHENSa%:A%=EVAL(V$):Sa%=FALSE
42481ENDCASE
42481PROCg:ENDPROC
42499DEFPROCZc(W$):Sa%=TRUE:V$=W$:MOUSEX%,Y%,B%:h%!4=7:h%!8=X%:h%!12=Y%:h%!16=X%:h%!20=Y%:h%!24=0:h%!28=0:h%!32=wc%:h%!36=xc%:SYS&400D0,,h%:ENDPROC
42643DEFPROCe(n%,d%):LOCALX%,Y%,B%:IFd%<0THEN
42679MOUSEX%,Y%,B%:SYS&44AD9,X%,Y%,X%,Y%
42706ELSE:SYS&44ADD,3,n%,d%,1
42724ENDIF
42724Pa%=TRUE:_l%=n%:`l%=d%:PROCg:ENDPROC
42769DEFPROC_c:SYS&400CF,,h%:IF`l%<0THEN
42805IFh%!12<>_l%OR(h%!8AND7)=0THEN
42814PROC`c:SYS&44AD9,,-2
42841ENDIF
42841ELSE:IFh%!12<>_l%ORh%!16<>`l%OR(h%!8AND7)=0THEN
42859PROC`c:SYS&44ADD,3,_l%,`l%,0
42886ENDIF
42886ENDIF
42895ENDPROC
42904DEFPROC`c:CASE_l%OF
42931WHENo%:PROCgb(`l%)
42949WHENk%:PROCec(`l%)
42958WHENMf%:PROCCb(`l%)
42967WHENt%:PROCBc(`l%)
42976WHENl%:PROCwb(`l%)
42985WHENm%:PROCad(`l%)
42994WHENvd%:PROCbd(`l%)
43003WHEN_a%:PROCcd(`l%)
43012ENDCASE
43012Pa%=FALSE:PROCg:ENDPROC
43039DEFPROCbb:LOCALA%:IFza%THEN
43075za%=FALSE
43093ELSE:IFUa%<>0THENPROCdd
43102IFPa%THENPROC_c
43111IFLa%THENPROCwc
43120IFqa%THENPROCE(BEAT,(cl%ANDqa%))
43129IFIa%THENPROCYc
43138IFKa%THENPROCab
43147IFTa%THENPROCgc
43156IFQa%THENPROCtb
43165IFyb%THENPROCdb
43174IFKb%THENPROChc
43183IFRa%THENPROCed
43192IFvc%THENPROCMc
43201ENDIF
43210A%=&20+&20+&2:SYSA%TOA%:IFub%=-1THENub%=A%+89975
43237IFA%>ub%THENPROCb(CHR$(117),TRUE):va%=TRUE
43246ENDPROC
43255DEFPROCYc:LOCALX%,Y%,B%,c%:MOUSEX%,Y%,B%:SYS&44AD4,0,qc%,rc%,X%,Y%TOc%:CASEqc%OF
43336WHENm%:CASErc%OF
43354WHENhe%:SYS&44ACB,m%,ge%,(c%-128)*4096/128:SYS&40187,(c%-128)*4096/128+ya%:sc%=-1:PROCMc
43408WHENie%:PROCfd(c%)
43426ENDCASE
43426WHENt%:CASErc%OF
43444WHENof%:PROCd((c%+40))
43462WHENqf%:PROCq(c%)
43471ENDCASE
43471WHENo%:CASErc%OF
43489WHENgg%:PROCd((c%+40))
43507WHEN`f%:PROCq(c%)
43516ENDCASE
43516WHENl%:CASErc%OF
43534WHENuh%:PROCd((c%+40))
43552WHENyh%:PROCq(c%)
43561ENDCASE
43561WHENk%:CASErc%OF
43579WHENQg%:PROCd((c%+40))
43597WHENOg%:PROCq(c%)
43606ENDCASE
43606ENDCASE
43615ENDPROC
43624DEFPROCgd(A%):!h%=A%:SYS&400CB,,h%:h%!28=-1:SYS&400C5,,h%:ENDPROC
43687DEFPROCDc(s%):SYS&44AE7,0,s%,Nh%:ENDPROC
43723DEFPROCKc(s%):LOCALam%:SYS&400CF,,g%:IF(g%!8AND1)THENam%=1ELSEam%=2
43768IFs%!4=-1THEN
43777CASEbm%OF
43786WHENWh%:CASE!s%OF
43804WHEN0:SYS&400D4,,kd%,g%!0-50,g%!4+50:am%=3
43822WHEN1:PROChd
43831WHEN2:PROCid
43840ENDCASE
43840WHENXh%:PROCjd(!s%)
43858WHENYh%:PROCHb(!s%)
43867ENDCASE
43867ENDIF
43876CASEam%OF
43885WHEN1:SYS&400D4,,bm%
43903WHEN2:SYS&400D4,,-1
43912ENDCASE
43912ENDPROC
43921DEFPROC`(A%,X%,Y%):SYS&400D4,,A%,X%,Y%:bm%=A%:ENDPROC
43966DEFPROCh(A%):g%!0=A%:SYS&44AE7,1,g%,Nh%:ENDPROC
44011DEFPROCJc(s%):CASE!s%OF
44038WHENvd%:PROCkd(s%!4,s%!24)
44056WHENk%:PROCkc(s%!4,s%!24)
44065OTHERWISE:SYS&400DC,s%!24
44074ENDCASE
44074ENDPROC
44083DEFPROCg:IFLa%OR(Ua%<>0)ORQa%ORPa%ORyb%ORKb%ORqa%ORIa%ORKa%ORRa%ORTa%ORvc%THENMa%=Na%ELSEMa%=Oa%
44110ENDPROC
44119DEFPROCG(n%,d%,X%,Y%):SYS&44AD4,3,n%,d%,X%,Y%:rc%=d%:qc%=n%:Ia%=TRUE:PROCg:ENDPROC
44191DEFPROCca:LOCALcm%:SYS&35,-1,4TO,,nk%:SYS&35,-1,5TO,,dm%:SYS&35,-1,9TO,,cm%:SYS&35,-1,11TO,,em%:SYS&35,-1,12TO,,fm%:nk%=2^nk%:dm%=2^dm%:em%=(em%+1)*nk%:fm%=(fm%+1)*dm%:IFfm%<>xc%ORem%<>wc%THENRa%=TRUE:PROCg
44317xc%=fm%:wc%=em%:IFNOT((nk%<>!Ni%)OR(dm%<>!Oi%)OR(cm%<>yc%))THENENDPROC
44335yc%=cm%:!Ni%=nk%:!Oi%=dm%:IFw%=1THENPROCz
44380PROCIb:IFw%=2THENPROCrb
44398IFw%=3THENPROCXb
44407ENDPROC
44416DEFPROCCc(s%):LOCALX%,Y%,A%,H%,J%:!g%=!s%:CASE!g%OF
44461WHENjd%:PROCld
44479OTHERWISE:SYS&400C8,0,g%TOA%:H%=g%!4-g%!20:J%=g%!16-g%!24:WHILEA%<>0:SYS&44ACD,,g%:CASE!g%OF
44533WHENt%:PROCzc(H%,J%)
44551WHENo%:PROC`a(H%,J%,g%)
44560WHENk%:PROCac(H%,J%,g%)
44569WHENl%:PROCsb(H%,J%,g%)
44578WHENdh%:PROC`b(H%,J%,g%)
44587ENDCASE
44587SYS&400CA,,g%TOA%:ENDWHILE
44614ENDCASE
44614IF!g%=dh%ANDCa%THENSYS&44AE3,7,Hc%,dh%:Ca%=FALSE
44623SYS&40+2TOB%:IFEb%<0THENEb%=B%+89980
44641IFB%>=Eb%THEN
44650A$=MID$(3,1,"You"):PROCb(A$,TRUE):va%=TRUE
44686ENDIF
44686ENDPROC
44695DEFPROCed:LOCALe%:Ra%=FALSE:FORe%=0TOgd%:h%!0=f%(e%,0):SYS&600CB,,h%:IF(h%!32AND2^16)=2^16THENPROCmd(e%)
44767NEXT:PROCg:ENDPROC
44794DEFPROCT(n%):LOCALe%:FORe%=0TOgd%:IFf%(e%,0)=n%THENPROCmd(e%)
44839NEXT:ENDPROC
44857DEFPROCmd(gm%):LOCALhm%,X%,Y%,n%,af%,S%,im%,jm%:n%=f%(gm%,0):af%=f%(gm%,1):S%=f%(gm%,2):im%=f%(gm%,3):jm%=f%(gm%,4):A%=TRUE:!h%=n%:IFBa%THEN
44956X%=wc%:Y%=xc%
44974ELSE:X%=-1:Y%=-1:SYS&400CB,,h%:IF(h%!32AND2^16)<>0THENA%=FALSE
45001ENDIF
45010IFX%<af%THENX%=af%
45019IFY%<S%THENY%=S%
45028IFA%THEN
45037h%!4=wc%/2-X%/2:h%!8=xc%/2-Y%/2:h%!12=wc%/2+X%/2:h%!16=xc%/2+Y%/2:h%!20=im%-X%/2+af%/2:h%!24=jm%+Y%/2-S%/2:h%!28=-1:SYS&44AE7,0,h%,Nh%
45118ENDIF
45118IFNOTBa%THEN
45127SYS&400CB,,h%:h%!100=n%:SYS&400E0,,h%+100:IFh%!104<0THENh%!12-=h%!4:h%!4=0
45163IFh%!108<0THENh%!16-=h%!8:h%!8=0
45172IFh%!112>wc%THEN
45181h%!4-=(h%!112-wc%):h%!12-=(h%!112-wc%)
45208ENDIF
45208IFh%!116>xc%THEN
45217h%!8-=(h%!116-xc%):h%!16-=(h%!116-xc%)
45244ENDIF
45244SYS&400C6,,h%:SYS&44AE7,0,h%,Nh%
45271ENDIF
45271ENDPROC
45280DEFPROCoa(j%):LOCALq$,n%:CASEj%OF
45316WHEN0:q$="Sound Box - "+C$:n%=t%
45334WHEN1:q$="Tune Box - "+v$:n%=o%
45343WHEN2:q$="Chord Box - "+D$:n%=l%
45352WHEN3:q$="Beat Box - "+B$:n%=k%
45361ENDCASE
45361q$+=FNE(j%):SYS&44AEB,1,n%,q$:ENDPROC
45388DEFFNE(j%):LOCALy%:CASEj%OF
45424WHEN0:y%=Zc%
45442WHEN1:y%=Xc%
45451WHEN2:y%=_c%
45460WHEN3:y%=Yc%
45469ENDCASE
45469IFy%THEN=" *"ELSE=""
45478DEFPROCl(j%):IFFNE(j%)=" *"THENENDPROC
45505CASEj%OF
45514WHEN0:Zc%=TRUE
45532WHEN1:Xc%=TRUE
45541WHEN2:_c%=TRUE
45550WHEN3:Yc%=TRUE
45559ENDCASE
45559PROCoa(j%):ENDPROC
45577DEFPROCid:IFZc%OR_c%ORYc%ORXc%THENPROCn(2,-1)ELSEva%=TRUE
45604ENDPROC
45613DEFPROCPc(p%,d%):LOCALTk%,X%,Y%,B%,T%:IFp%=4*16ANDd%=nd%THEN
45658ENDPROC
45676ENDIF
45685IFp%>7THENENDPROC
45694CASEd%OF
45712WHENpd%:PROCe(vd%,d%)
45730WHENqd%:PROCe(vd%,d%)
45739WHEN7:SYS&44ADD,2,vd%,od%,"Competition":SYS&400D2,vd%,od%,0,0,-1,11
45766ENDCASE
45766ENDPROC
45775DEFPROCv(n%,km%):LOCALy%:CASEkm%OF
45811WHEN1:y%=Xc%
45829WHEN3:y%=Yc%
45838WHEN5:y%=_c%
45847WHEN7:y%=Zc%
45856OTHERWISE:y%=FALSE
45865ENDCASE
45865IFy%THEN
45874lm%=n%:mm%=km%:PROCn(3,-2)
45910ELSE:PROCnd(n%,km%)
45928ENDIF
45928ENDPROC
45937DEFPROCnd(n%,km%):LOCALc$,t$,a$:IF(km%AND1)=1THEN
45973c$="Load":IFNOTnm%THENPROCI:ENDPROC
45991ELSE:c$="Save":IFNOTom%THENPROCI:ENDPROC
46018ENDIF
46027CASEkm%OF
46036WHEN0,1:t$="Tune":a$=v$
46054WHEN2,3:t$="Beat":a$=B$
46063WHEN4,5:t$="Chord":a$=D$
46072WHEN6,7:t$="Sound":a$=C$
46081ENDCASE
46081IFc$="Load"THENa$=""
46090SYS&44ADD,2,vd%,od%,a$:IFFNW(t$)THEN
46108lm%=n%:pm%=km%:SYS&44AEB,1,vd%,c$+" File":SYS&44AE7,2,vd%,Nh%,-1,0:SYS&400D2,vd%,od%,0,0,-1,0
46162ENDIF
46162ENDPROC
46171DEFPROCr:PROCh(vd%):PROCod:ENDPROC
46216DEFFNW(c$):LOCALN%,u$,a$,A%,B%:PROCod:SYS&20023,"MB"+c$+"Files$Dir",h%,-1,0,0TO,,A%:IFA%>=0THENOSCLI("*SET MB"+c$+"Files$Dir "+k$+"."+c$)
46270u$="<MB"+c$+"Files$Dir>":SYS&8,17,u$TON%:IFN%=0THENSYS&20008,8,u$,,,0
46297SYS&8,17,u$TON%:IFN%<>2THENPROCb("Load / Save window can not be opened because no '!MBFiles' directory can be found.",FALSE):=FALSE
46315!g%=1:g%!4=Da%:SYS&64AEA,0,u$,g%,"*",pa%TOA%,Vb%;P%:IF(P%AND1)=1THENPROCb(FNc(A%+4),FALSE):=FALSE
46351IFA%=-1THENPROCc("Due to lack of memory, the list of files has been truncated.")
46360!Sh%=!(!Vb%):Qh%!8=Vb%:SYS&44AE8,0,Th%,Qh%:jd%=!Qh%:!Ph%=!Qh%:=TRUE
46441DEFPROCld:!g%=jd%:g%!76=-2:SYS&44AE8,3,g%,Qh%TOA%:WHILEA%<>0:SYS&44AE8,3,g%,Qh%TOA%:ENDWHILE:ENDPROC
46504DEFPROCod:IFjd%<>0THEN
46531!g%=jd%:SYS&400C3,,g%:jd%=0
46567ENDIF
46567IFVb%<>0THEN
46576SYS&44AC3,,Vb%:Vb%=0
46603ENDIF
46603ENDPROC
46612DEFPROCbd(d%):CASEd%OF
46639WHENpd%:PROCpd
46657WHENqd%:PROCr
46666ENDCASE
46666ENDPROC
46675DEFPROCWc(p%,X%,Y%):SYS&44AE8,2,,Qh%,X%,Y%TO,,,X%,Y%:IFX%=0ANDY%>0THEN
46711SYS&44ADD,2,vd%,od%,(!Vb%+4+16*Y%-16):SYS&400D2,vd%,od%,0,0,-1,LEN(FNc(!Vb%+4+16*Y%-16)):IF(p%AND5)<>0THEN
46738PROCpd
46756ELSE:?(!Vb%+4+16*Y%-4)=1:PROCqd(X%,Y%):PROCZc("FNA("+STR$(X%)+","+STR$(Y%)+")")
46792ENDIF
46792ENDIF
46801ENDPROC
46810DEFFNA(X%,Y%):?(!Vb%+4+16*Y%-4)=0:PROCqd(X%,Y%):=0
46882DEFPROCqd(X%,Y%):SYS&44AE8,4,g%,Qh%,X%,Y%TOA%:WHILEA%<>0:SYS&44AE8,3,g%,Qh%TOA%:ENDWHILE:ENDPROC
46927DEFPROCpd:LOCALa$:SYS&44ADE,2,vd%,od%,h%,256:a$=FNc(h%):IFa$=""THENPROCc("Please type a name in the white box."):ENDPROC
46981IFa$="Competition"ANDpm%=0THEN
46990A%=FNX(a$):CASEA%OF
47008WHEN1:PROCn(4,-4)
47026WHEN2:PROCrd(a$)
47035ENDCASE
47035ELSE:PROCrd(a$)
47062ENDIF
47062ENDPROC
47071DEFPROCsd:LOCALa$,l$:SYS&44ADE,2,vd%,od%,h%,256:a$=FNc(h%):l$=FNC(a$):SYS&20008,6,l$TOA%;P%:IF(P%AND1)<>0THENPROCb("Sorry I can't overwrite the file. ("+FNc(A%+4)+")",FALSE):ENDPROC
47143PROCrd(a$):ENDPROC
47161DEFPROCrd(a$):LOCALj%,A%:IF(pm%AND1)=1THEN
47197SYS&8,17,FNC(a$)TOA%:IFA%<>1THENPROCc("File '"+a$+"' does not exist. Please try a different file."):j%=-2:ENDPROC
47215ENDIF
47224CASEpm%OF
47233WHEN0:IFa$="Competition"THEN
47251PROCeb:v$=a$:Xc%=FALSE:j%=1
47269ELSE:PROCc("Click on the competition icon and OK to save from this demo."):j%=-2
47287ENDIF
47287WHEN1:IFa$="Competition"THENa$="<MusicBoxD$Dir>.1"
47305v$=a$:Xc%=FALSE:j%=1:PROCfb(a$)
47332WHEN2:PROCc("You can not save beat box files from this demo."):j%=-4
47341WHEN3:IFa$="Competition"THEN
47350PROCc("The competition file only works in Tune Box."):j%=-4
47368ELSE:PROCoc(a$):B$=a$:Yc%=FALSE:j%=3
47386ENDIF
47386WHEN4:PROCc("You can not save chord box files from this demo."):j%=-3
47404WHEN5:IFa$="Competition"THEN
47413PROCc("The competition file only works in Tune Box."):j%=-4
47431ELSE:PROCF(a$,2):D$=a$:_c%=FALSE:j%=2
47449ENDIF
47449WHEN6:PROCc("You can not save sound box files from this demo."):j%=-1
47467WHEN7:IFa$="Competition"THEN
47476PROCc("The competition file only works in Tune Box."):j%=-4
47494ELSE:PROCF(a$,0):C$=a$:Zc%=FALSE:j%=0
47512ENDIF
47512ENDCASE
47521IFj%>0THENPROCoa(j%)
47530ENDPROC
47539DEFPROCkd(d%,vl%):IFvl%=13THEN
47566PROCpd
47584ELSE:SYS&400DC,s%!24
47602ENDIF
47602ENDPROC
47611DEFPROCNc(s%):IFs%!40<>Da%THENENDPROC
47638s%!12=s%!8:s%!16=4:SYS&400E7,17,s%,s%!4:PROCtd(FNc(s%+44)):ENDPROC
47683DEFPROCtd(e$):LOCALA%,Vh%,xa%:SYS&8,17,e$TOA%,,,,xa%:IFA%=1ANDxa%>4THEN
47728Vh%=OPENIN(e$):A$="":FORA%=1TO8:A$+=CHR$(BGET#Vh%):NEXT:CLOSE#Vh%:CASEA$OF
47791WHEN"MBCompos","MBTune  ":PROCfb(e$)
47809WHEN"MBRhythm","MBBeat  ":PROCoc(e$)
47818WHEN"MBSound ":PROCF(e$,0)
47827WHEN"MBChord ":PROCF(e$,2)
47836OTHERWISE:A%=0
47845ENDCASE
47845ELSE:A%=0
47872ENDIF
47872IFA%=0THENPROCb("Music file not understood.",FALSE):ENDPROC
47881ENDPROC
47890DEFFNJ(a$):=FND(a$,TRUE)
47935DEFFND(a$,qm%):LOCALN%,A%:SYS&20008,17,a$TON%:IFN%<>0THEN
47962IFN%<>1THEN
47971PROCb("File already exists as a directory. Please choose a different name.",FALSE):=0
47989ELSE:A%=1:IFqm%THEN
48007$(g%+4)="File already exists. Do you want to overwrite it?"+CHR$0:SYS&400DF,g%,%011011,o$TO,A%
48034ENDIF
48034IFA%<>1THEN=0
48043SYS&20008,6,a$TOA%;P%:IF(P%AND1)=1THENPROCb(FNc(A%+4),FALSE):=0
48061ENDIF
48070ENDIF
48079SYS&2000D,&83,a$TOA%;P%:IF(P%AND1)=1THENPROCb(FNc(A%+4),FALSE):=0
48097=A%
48196DEFFNf(b$,a%):$g%=b$:=FNu(g%,LEN(b$),a%)
48232DEFFNb(l,a%):!g%=l:=FNu(g%,4,a%)
48268DEFFNu(wa%,xa%,a%):LOCALP%,A%,B%:SYS&2000C,2,a%,wa%,xa%TOB%,,,A%;P%:IF(P%AND1)=1THEN=B%
48295IFA%<>0THEN!g%=4:$(g%+4)="No space on disc."+CHR$0:=g%
48304=0
48385DEFFNR(a$):LOCALP%,A%:IFFNY(a$,"Defaults",8)THEN=0
48403SYS&20008,18,a$,Da%TOA%;P%:IF(P%AND1)=1THEN=A%
48421=0
48448DEFFNh(RETURNb$,xa%,a%):LOCALA%:A%=FNk(g%,xa%,a%):IFA%<>0THEN=A%
48475b$="":FORA%=0TOxa%-1:b$=b$+CHR$(?(g%+A%)):NEXT:=0
48673DEFFNj(a%):LOCALb%,c%:b%=FNa(c%,a%):SYS&20009,0,a%TOA%,,B%;P%:IF(P%AND1)=1THEN=A%
48709SYS&20009,1,a%,B%+c%-8TOA%;P%:IF(P%AND1)=1THEN=A%
48727=b%
48754DEFFNY(Q$,R$,xa%):LOCALrm%,I%:rm%=TRUE:sm%=LEN(Q$):tm%=LEN(R$):FORI%=0TOxa%-1:IF(ASC(MID$(Q$,sm%-I%,1))OR32)<>(ASC(MID$(R$,tm%-I%,1))OR32)THENrm%=FALSE
48808NEXT:=rm%
48844DEFFNX(a$):LOCALc$,N%:a$=FNC(a$):SYS&20008,17,a$TON%:IF(pm%AND1)=1THEN
48880IFN%<>0THEN
48889IFN%<>1THEN
48898PROCc("Sorry, I can't use that name because it is a directory. Please choose a different name."):=0
48916ELSE:=2
48934ENDIF
48934ENDIF
48943PROCc("That file does not exist. Please choose a different name."):=0
48961ELSE:IFN%<>0THEN
48970IFN%<>1THEN
48979PROCc("Sorry, I can't use that name because it already exists as a directory. Please choose a different name."):=0
48997ELSE:=1
49015ENDIF
49015ENDIF
49024ENDIF
49033=2
49060DEFFNC(a$):CASEpm%OF
49069WHEN0,1:c$="Tune"
49087WHEN2,3:c$="Beat"
49096WHEN4,5:c$="Chord"
49105WHEN6,7:c$="Sound"
49114ENDCASE
49114IFa$="Competition"THENa$="<MusicBoxD$Dir>.1"
49123IFINSTR(a$,".")=0THENa$="<MB"+c$+"Files$Dir>."+a$
49132=a$
49168DEFPROCOc(d%,X%,Y%):CASEd%OF
49177WHENZd%:PROC`(Xh%,X%,Y%)
49195WHEN_d%:PROCe(m%,_d%)
49204ENDCASE
49204ENDPROC
49213DEFPROCjd(c%):IFc%>=0ANDc%<=14THENPROCM(c%)
49240ENDPROC
49249DEFFNn(p%,d%,X%,Y%):X%=TRUE:CASEd%OF
49285WHENEe%:SYS&40187,um%:IF(p%AND4)=4THENPROCudELSEPROCvd
49312WHENDe%:IF(p%AND4)=4THENPROCud
49330PROCwd:PROCxd
49357WHENFe%:IF(p%AND4)=4THENPROCud
49366PROCwd
49384WHENxe%:PROCN(`%)
49393WHENye%:PROCN(m%)
49402WHENze%:PROCN(Od%)
49411WHENAe%:PROCN(Me%)
49420WHENBe%:PROCN(We%)
49429WHENCe%:PROCyd:IF(p%AND4)=4THENPROCudELSEPROCvd
49447OTHERWISEX%=FALSE
49465ENDCASE
49465=X%
49492DEFPROCSc(p%,d%,X%,Y%):LOCALc%,A%,A$:IFp%AND5THEN
49510IFNOTFNn(p%,d%,X%,Y%)THEN
49519CASEd%OF
49528WHENLd%-1,Ld%+1,Ld%:IFd%=Ld%THENd%-=1
49546vm%+=Ld%-d%:IFvm%>2THENvm%=0
49564IFvm%<0THENvm%=2
49573SYS&44ADD,1,Od%,Ld%,FNF(vm%)
49591WHENId%-1,Id%+1:SYS&44ACA,Od%,Id%,Id%-d%,16,1
49609WHENJd%-1,Jd%+1:SYS&44ACA,Od%,Jd%,Jd%-d%,7,1
49627WHENKd%-1,Kd%+1:SYS&44ACA,Od%,Kd%,Kd%-d%,vb%/24,1
49645ENDCASE
49645ENDIF
49654ENDIF
49663ENDPROC
49672DEFPROCQc(p%,d%,X%,Y%):LOCALc%,A%,A$:IFp%AND5THEN
49708IFNOTFNn(p%,d%,X%,Y%)THEN
49717CASEd%OF
49726WHENGe%-1,Ge%+1:SYS&44ACC,Me%,Ge%TO,,c%:CASEc%OF
49753WHEN6:c%=5
49771WHEN8:c%=6
49780WHEN12:c%=7
49789ENDCASE
49789c%+=Ge%-d%:IFc%<1THENc%=7
49807IFc%>7THENc%=1
49816CASEc%OF
49825WHEN5:c%=6
49843WHEN6:c%=8
49852WHEN7:c%=12
49861ENDCASE
49861SYS&44ACB,Me%,Ge%,c%
49879WHENHe%-1,He%+1:SYS&44ACA,Me%,He%,He%-d%,7,1
49897WHENIe%-1,Ie%+1:SYS&44ACA,Me%,Ie%,Ie%-d%,Sb%,1
49915WHENJe%-1,Je%+1:SYS&44ADE,2,Me%,Je%,g%,16:c%=EVAL(FNc(g%))*2:c%+=(Je%-d%):IFc%<2THENc%=14
49951IFc%>14THENc%=2
49960SYS&44ADD,2,Me%,Je%,"  "+STR$(c%/2)
49978ENDCASE
49978ENDIF
49987ENDIF
49996ENDPROC
50005DEFPROCRc(p%,d%,X%,Y%):LOCALc%,A%,A$:IFp%AND5THEN
50041IFNOTFNn(p%,d%,X%,Y%)THEN
50050CASEd%OF
50059WHENPd%:SYS&44ADE,3,`%,d%TO,,,c%:PROCzd(c%)
50095WHENQd%,Rd%,Sd%,Td%:SYS&44ADD,7,`%,d%:SYS&44ADD,4,`%,Ud%,d%<>Td%
50122WHENVd%,Wd%,Xd%:SYS&44ADD,7,`%,d%
50140ENDCASE
50140ENDIF
50149ENDIF
50158ENDPROC
50167DEFPROCUc(p%,d%,X%,Y%):LOCALc%,A%,A$:IFp%AND5THEN
50203IFNOTFNn(p%,d%,X%,Y%)THEN
50212CASEd%OF
50221WHENUe%,Ve%:SYS&44ADD,7,We%,d%
50248ENDCASE
50248ENDIF
50257ENDIF
50266ENDPROC
50275DEFPROCTc(p%,d%,X%,Y%):LOCALc%,A%,A$:IF(p%AND(5<<4))THEN
50311CASEd%OF
50320WHENie%:PROCG(m%,d%,X%,Y%)
50347WHENhe%:PROCc("Tuning has been disabled for this demo.")
50365ENDCASE
50365ELSE:IFp%AND5THEN
50383IFNOTFNn(p%,d%,X%,Y%)THEN
50392CASEd%OF
50401WHEN`d%,ae%:SYS&44ADD,7,m%,d%:SYS&44ACC,m%,be%TO,,c%:SYS&44ADE,3,m%,ae%TO,,,A%:IFA%ANDc%>0THENc%+=7
50446PROCM(c%)
50464WHENbe%-1,be%+1:SYS&44ACC,m%,be%TO,,c%:c%+=be%-d%:SYS&44ADE,3,m%,ae%TO,,,A%:IFc%<0THENc%=7:SYS&44ADD,3,m%,ae%,NOTA%:SYS&44ADD,3,m%,`d%,A%:A%=NOTA%
50500IFc%>7THENc%=0:SYS&44ADD,3,m%,ae%,NOTA%:SYS&44ADD,3,m%,`d%,A%:A%=NOTA%
50509IFA%ANDc%>0THENc%+=7
50518PROCM(c%)
50536WHEN_d%:PROCe(m%,_d%)
50554WHENie%:SYS&44AD4,0,m%,d%,X%,Y%TOc%:PROCfd(c%)
50581WHENhe%,ge%-1,ge%+1,fe%-1,fe%+1,ee%-1,ee%+1:PROCc("Tuning has been disabled for this demo.")
50599WHENce%:PROCM(0)
50617ENDCASE
50617ENDIF
50626ENDIF
50635ENDIF
50644ENDPROC
50653DEFPROCad(d%):LOCALX%,Y%,B%:MOUSEX%,Y%,B%:IFd%=_d%THENPROC`(Xh%,X%,Y%)
50698ENDPROC
50707DEFPROChd:CASEw%OF
50734WHEN0:PROCo(t%,if%,df%)
50752WHEN1:PROCj
50761WHEN2:PROCo(l%,sh%,wh%)
50770WHEN3:PROCx
50779ENDCASE
50779wm%=qa%:PROCm:xm%=0:PROCvd:SYS&44AD6,m%,-1:ym%=m%:ENDPROC
50842DEFPROCN(n%):IFn%=ym%THENENDPROC
50869!g%=ym%:SYS&400CB,,g%:SYS&400C6,,g%:!g%=n%:SYS&400C5,,g%:ym%=n%:ENDPROC
50932DEFPROCvd:LOCALc%:SYS&44ADD,3,m%,ce%,Xa%:PROCM(Ul%):zm%=Vl%:SYS&44ACB,m%,fe%,zm%-2:SYS&40187,0TOum%:SYS&44ACB,m%,ge%,um%-ya%:SYS&44AD4,2,m%,he%,((um%-ya%)*128/4096)+128:SYS&44AD4,2,m%,ie%,pb%*2:Am%=pb%:SYS&44ADD,3,m%,ke%,Ba%
51049SYS&44ADD,3,m%,je%,Ya%:SYS&44ADD,3,m%,le%,Za%:SYS&44ADD,3,m%,me%,cl%:SYS&44ADD,3,m%,ne%,Jk%:SYS&44ADD,3,m%,oe%,Ik%:SYS&44ADD,3,m%,pe%,Hk%:SYS&44ADD,3,m%,qe%,Gk%:SYS&44ADD,3,m%,re%,Kk%:SYS&44ADD,3,m%,se%,Lk%
51130SYS&44ADD,3,m%,te%,Mk%:SYS&44ADD,3,m%,ue%,nm%:SYS&44ADD,3,m%,ve%,om%:SYS&44ADD,3,m%,we%,Nk%:SYS&44ADD,3,Od%,Md%,Bm%:SYS&44ADD,3,Od%,Nd%,Cm%:SYS&44ACB,Od%,Id%,ik%DIV(2^Db%):SYS&44ACB,Od%,Jd%,Dm%:SYS&44ACB,Od%,Kd%,W%/24:vm%=Db%
51238SYS&44ADD,1,Od%,Ld%,FNF(vm%):SYS&44ACB,Me%,Ge%,O%:SYS&44ACB,Me%,He%,Ll%:SYS&44ACB,Me%,Ie%,jl%:c%=2*Ob%/K%:SYS&44ADD,2,Me%,Je%,"  "+STR$(c%/2):SYS&44ADD,3,Me%,Ke%,wl%:SYS&44ADD,3,Me%,Le%,il%:FORc%=0TO3
51328SYS&44ADD,3,`%,Qd%+c%,(ga%AND&F)=c%:NEXT:IF(ga%AND3)=3ANDga%>=0THENSYS&44ACB,`%,Ud%,ga%>>4
51355SYS&44ADD,4,`%,Ud%,(ga%AND3)<>3ORga%<0:SYS&44ADD,7,`%,Vd%+ha%:SYS&44ADD,3,`%,Yd%,ia%:PROCzd(ga%>=0):SYS&44ADD,3,We%,Ne%,Pl%:SYS&44ADD,3,We%,Oe%,Em%:SYS&44ADD,3,We%,Pe%,Xl%:SYS&44ADD,3,We%,Qe%,Wl%:SYS&44ADD,3,We%,Re%,hl%
51445SYS&44ADD,3,We%,Se%,Fk%:SYS&44ADD,3,We%,Te%,Dl%:SYS&44ADD,3,We%,Ue%,Bk%:SYS&44ADD,3,We%,Ve%,NOTBk%:ENDPROC
51490DEFFNF(A%):CASEA%OF
51517WHEN0:="snl1"
51535WHEN1:="snl2"
51544WHEN2:="snl3"
51553ENDCASE
51553=""
51580DEFPROCM(c%):LOCALA$:A$=MID$(" C G D A E BF#C# FBbEbAbDbGbCb",c%*2+1,2)+" Major":IFMID$(A$,1,1)=" "THENA$=MID$(A$,2)
51607SYS&44ADD,2,m%,Zd%,A$:IFc%>7THENFm%=TRUE:c%-=7ELSEFm%=FALSE
51625IFc%>0THEN
51634IFFm%THEN
51643SYS&44ADD,7,m%,ae%
51661ELSE:SYS&44ADD,7,m%,`d%
51679ENDIF
51679ENDIF
51688SYS&44ACB,m%,be%,c%:SYS&44ADE,3,m%,ce%TO,,,A%:IFA%THENA%=-1ELSEA%=0
51715SYS&44ADD,4,m%,Zd%,A%:SYS&44ADD,4,m%,ae%,A%:SYS&44ADD,4,m%,`d%,A%:SYS&44ADD,4,m%,be%-1,A%:SYS&44ADD,4,m%,be%,A%:SYS&44ADD,4,m%,be%+1,A%:SYS&44ADD,4,m%,_d%,A%:ENDPROC
51787DEFPROCwd:LOCALA%,c%:PROCi:SYS&44ACC,m%,be%TO,,c%:SYS&44ADE,3,m%,ae%TO,,,A%:IFA%ANDc%>0THENc%+=7
51850SYS&44ADE,3,m%,ce%TO,,,A%:IFXa%<>A%THEN
51877Xa%=A%:IFA%THENA%=0ELSEA%=2
51895!Fi%=A%:Cb%=A%:IFw%=1THEN
51922PROCz:A%=0:CALLwi%
51958ENDIF
51958ENDIF
51967SYS&44ACC,m%,fe%TO,,A%:Vl%=A%+2:PROCtc(c%):SYS&44AD4,1,m%,ie%TOpb%:pb%=pb%/2:IFDb%<>vm%THEN
52039IFw%=1THENPROCj:PROCy(2^vm%,gb%)
52048Db%=vm%
52066ENDIF
52066SYS&44ADE,3,m%,ke%TO,,,A%:IFA%<>Ba%THEN
52093Ba%=A%:CASEw%OF
52111WHEN0:PROCAc:PROCEb
52129WHEN1:PROCY:PROC_a
52138WHEN2:PROCvb:PROCqb
52147WHEN3:PROCZb:PROCFb
52156ENDCASE
52156ENDIF
52165SYS&44ADE,3,m%,je%TO,,,Ya%:SYS&44ADE,3,m%,le%TO,,,Za%:SYS&44ADE,3,m%,me%TO,,,cl%:IF((NOTcl%)AND(w%>=0))THENPROCE(0,TRUE)
52210SYS&44ADE,3,Od%,Md%TO,,,Bm%:SYS&44ADE,3,Od%,Nd%TO,,,Cm%:SYS&44ACC,Od%,Id%TO,,ik%:ik%=ik%*(2^Db%):SYS&44ACC,Od%,Jd%TO,,Dm%:!ck%=Dm%:SYS&44ACC,Od%,Kd%TO,,A%:A%=A%*24:IFA%<>W%THEN
52300c%=TRUE:IFA%<USR(ai%)THEN
52318!g%=4:$(g%+4)="Reducing the paper length for the tune box will truncate the present tune. Shall I continue and reduce it?"+CHR$0:SYS&400DF,g%,%11011,o$TO,c%:c%=(c%=1)
52363ENDIF
52363IFc%THEN
52372W%=A%:!Zh%=A%:!_h%=A%*12:!mi%=A%*12:SYS&44ADA,jc%+A%*12,vb%*12+12-A%*12:IFw%=1THENPROCz:PROCC(0)
52426ENDIF
52435ENDIF
52444SYS&44ACC,Me%,Ge%TO,,B%:SYS&44ACC,Me%,Ie%TO,,A%:C%=O%:IFC%<1THENC%=6
52489C%=((Hb%*C%-1)DIVB%)+1:IFjl%<>A%ORO%<>B%THENPROCVb(C%,B%,A%,TRUE)
52507SYS&44ACC,Me%,He%TO,,B%:SYS&44ADE,2,Me%,Je%,g%,16:A%=EVAL(FNc(g%))*2:A%=A%*K%/2:IFA%<>Ob%ORB%<>Ll%THENPROCpc(A%,B%)
52561SYS&44ADE,3,m%,ne%TO,,,Jk%:SYS&44ADE,3,m%,oe%TO,,,Ik%:SYS&44ADE,3,m%,pe%TO,,,Hk%:SYS&44ADE,3,m%,qe%TO,,,Gk%:SYS&44ADE,3,m%,re%TO,,,Kk%:SYS&44ADE,3,m%,se%TO,,,Lk%:SYS&44ADE,3,m%,te%TO,,,Mk%:SYS&44ADE,3,m%,ue%TO,,,nm%
52642SYS&44ADE,3,m%,ve%TO,,,om%:SYS&44ADE,3,m%,we%TO,,,Nk%:SYS&44ADE,3,Me%,Ke%TO,,,wl%:SYS&44ADE,3,Me%,Le%TO,,,il%:SYS&44ACC,m%,ge%TO,,c%:Gm%=c%:SYS&44ADE,3,`%,Yd%TO,,,ia%:SYS&44ADE,3,`%,Pd%TO,,,c%:IFNOTc%THEN
52750c%=-1
52768ELSE:c%=0:FORe%=0TO3:SYS&44ADE,3,`%,Qd%+e%TO,,,A%:IFA%THENc%=e%
52804NEXT:IFc%=3THENSYS&44ACC,`%,Ud%TO,,c%:c%=(c%<<4OR3)
52822ENDIF
52831ga%=c%:c%=0:FORe%=0TO2:SYS&44ADE,3,`%,Vd%+e%TO,,,A%:IFA%THENc%=e%
52876NEXT:ha%=c%:PROCAd:PROCBd:PROCp:ENDPROC
52930DEFPROCAd:SYS&44ADE,3,We%,Ne%TO,,,Pl%:SYS&44ADE,3,We%,Oe%TO,,,Em%:SYS&44ADE,3,We%,Pe%TO,,,Xl%:SYS&44ADE,3,We%,Qe%TO,,,Wl%:SYS&44ADE,3,We%,Re%TO,,,hl%:SYS&44ADE,3,We%,Se%TO,,,Fk%:SYS&44ADE,3,We%,Te%TO,,,Dl%
53020SYS&44ADE,3,We%,Ue%TO,,,Bk%:ENDPROC
53038DEFPROCyd:ia%=TRUE:Bm%=TRUE:Cm%=FALSE:Ul%=2:Xa%=0:Vl%=4:Gm%=0:pb%=90:Ba%=FALSE:Ya%=TRUE:Za%=TRUE:cl%=TRUE:Jk%=TRUE:Ik%=TRUE:Hk%=TRUE:Gk%=TRUE:Kk%=TRUE:Lk%=TRUE:Mk%=TRUE:nm%=TRUE:om%=TRUE:Nk%=TRUE:ik%=4*2:Dm%=4:W%=100:Db%=1:O%=6:Ll%=4:jl%=100:Ob%=2*K%:wl%=TRUE:il%=TRUE:ga%=-1:ha%=0:Pl%=TRUE
53389Em%=FALSE:Xl%=FALSE:Wl%=FALSE:hl%=FALSE:Fk%=FALSE:Dl%=FALSE:Bk%=FALSE:SYS&40187,ya%+Gm%:ENDPROC
53470DEFPROCMc:LOCALA%,Sk%:SYS&44ADE,2,m%,ee%,g%,8:c%=(INSTR("A A#B C C#D D#E F F#G G#",FNc(g%))-1)/2:Sk%=EVAL(MID$("&0C00&0D55&0EAA&1000&1155&12AA&1400&1555&16AA&1800&1955&1AAA",c%*5+1,5))+&1000*zm%:SYS&400CF,,g%
53533A%=((rc%=he%)AND(m%=qc%)ANDIa%):IFg%!12=m%THEN
53551CASEg%!16OF
53560WHEN13,67,20,21,22,31,32,33,34,35,36,37,38,39,40:A%=TRUE
53578ENDCASE
53578ENDIF
53587IFA%THEN
53596IFtc%THEN
53605IFsc%<>Sk%THENSOUND8,&1FF,Sk%,255
53614ELSE:SOUND8,&17F,Sk%,255:tc%=TRUE
53650ENDIF
53650ELSE:IFtc%THENSOUND8,0,Sk%,1
53668tc%=FALSE
53686ENDIF
53686sc%=Sk%:ENDPROC
53704DEFPROCfd(c%):LOCALA%:Am%=c%/2:SYS&42TOA%:IFA%>xm%THEN
53758xm%=A%+30:SOUND8,&100+Am%,80,2
53785ENDIF
53785ENDPROC
53794DEFPROCud:PROCh(ym%):IFwm%THENPROCt
53830ENDPROC
53839DEFPROCzd(c%):LOCALA%,Hm%:c%=NOTc%:SYS&44ADD,3,`%,Pd%,NOTc%:SYS&44ADD,4,`%,Qd%,c%:SYS&44ADD,4,`%,Rd%,c%:SYS&44ADD,4,`%,Sd%,c%:SYS&44ADD,4,`%,Td%,c%:Hm%=-1:FORe%=0TO3:SYS&44ADE,3,`%,Qd%+e%TO,,,A%:IFA%THENHm%=e%
53956NEXT:IFHm%=-1THENHm%=0:SYS&44ADD,3,`%,Qd%,TRUE
53974SYS&44ADD,4,`%,Ud%,(c%ORHm%<>3):ENDPROC
53992DEFPROCxd:LOCALv%,b%,a%,e$:e$="<MBConfigFiles$Dir>.Defaults":a%=FND(e$,FALSE):IFa%=0THENENDPROC
54046b%=FNf("MBConfig",a%):IFb%=0THENb%=FNb(1,a%)
54064IFb%=0THENb%=FNf("Conf",a%)
54073IFb%=0THENb%=FNb(41*4+8,a%)
54082IFb%=0THENb%=FNb(Ul%,a%)
54091IFb%=0THENb%=FNb(Xa%,a%)
54100IFb%=0THENb%=FNb(Vl%,a%)
54109IFb%=0THENb%=FNb(Gm%,a%)
54118IFb%=0THENb%=FNb(pb%,a%)
54127IFb%=0THENb%=FNb(Ba%,a%)
54136IFb%=0THENb%=FNb(Ya%,a%)
54145IFb%=0THENb%=FNb(Za%,a%)
54154IFb%=0THENb%=FNb(cl%,a%)
54163IFb%=0THENb%=FNb(Jk%,a%)
54172IFb%=0THENb%=FNb(Ik%,a%)
54181IFb%=0THENb%=FNb(Hk%,a%)
54190IFb%=0THENb%=FNb(Gk%,a%)
54199IFb%=0THENb%=FNb(Kk%,a%)
54208IFb%=0THENb%=FNb(Lk%,a%)
54217IFb%=0THENb%=FNb(Mk%,a%)
54226IFb%=0THENb%=FNb(nm%,a%)
54235IFb%=0THENb%=FNb(om%,a%)
54244IFb%=0THENb%=FNb(Nk%,a%)
54253IFb%=0THENb%=FNb(ik%,a%)
54262IFb%=0THENb%=FNb(Dm%,a%)
54271IFb%=0THENb%=FNb(W%,a%)
54280IFb%=0THENb%=FNb(Db%,a%)
54289IFb%=0THENb%=FNb(O%,a%)
54298IFb%=0THENb%=FNb(Ll%,a%)
54307IFb%=0THENb%=FNb(jl%,a%)
54316IFb%=0THENb%=FNb(Ob%,a%)
54325IFb%=0THENb%=FNb(wl%,a%)
54334IFb%=0THENb%=FNb(il%,a%)
54343IFb%=0THENb%=FNb(ga%,a%)
54352IFb%=0THENb%=FNb(ha%,a%)
54361IFb%=0THENb%=FNb(Pl%,a%)
54370IFb%=0THENb%=FNb(Em%,a%)
54379IFb%=0THENb%=FNb(Xl%,a%)
54388IFb%=0THENb%=FNb(Wl%,a%)
54397IFb%=0THENb%=FNb(hl%,a%)
54406IFb%=0THENb%=FNb(Fk%,a%)
54415IFb%=0THENb%=FNb(Dl%,a%)
54424IFb%=0THENb%=FNb(Bk%,a%)
54433IFb%=0THENb%=FNb(Bm%,a%)
54442IFb%=0THENb%=FNb(Cm%,a%)
54451IFb%=0THENb%=FNb(ia%,a%)
54460IFb%=0THENb%=FNf("EndX",a%)
54469IFb%=0THENb%=FNb(-1,a%)
54478IFb%=0THENb%=FNi(a%)
54487IFb%<>0THENPROCb(FNc(b%+4),FALSE):b%=FNi(a%)
54496e$="<MBConfigFiles$Dir>.StartUpCon":a%=FND(e$,FALSE):IFa%=0THENENDPROC
54532IFb%=0THENb%=FNb(ga%,a%)
54541IFb%=0THENb%=FNb(ha%,a%)
54550IFb%=0THENb%=FNb(ia%,a%)
54559IFb%=0THENb%=FNi(a%)
54568IFb%<>0THENPROCb(FNc(b%+4)+"/2",FALSE):b%=FNi(a%)
54577ENDPROC
54586DEFPROCda:LOCALv%,b%,a%,e$,A%,c%:PROCi:c%=0:e$="<MBConfigFiles$Dir>.Defaults":b%=0:IFNOTFNg(e$)THENb%=2
54658IFb%=0THENa%=FNl(e$)
54667IFa%=0THENb%=2
54676IFb%=0THENb%=FNh(b$,8,a%)
54685IFb$<>"MBConfig"ANDb%=0THENPROCb("File format not understood.",FALSE):b%=1
54694IFb%=0THENb%=FNa(c%,a%)
54703IFc%>1ANDb%=0THENPROCb("This file was made by a newer version of MusicBox. You will need an upgrade to load it.",FALSE):b%=1
54712IFb%=0THENb%=FNh(b$,4,a%)
54721WHILEb%=0ANDb$<>"EndX":CASEb$OF
54739WHEN"Conf":b%=FNZ(a%)
54757OTHERWISE:b%=FNj(a%)
54766ENDCASE
54766IFb%=0THENb%=FNh(b$,4,a%)
54775ENDWHILE:IFb%<>0ANDb%<>1ANDb%<>2THENPROCb(FNc(b%+4),FALSE)
54802IFb%<>2THENA%=FNi(a%)
54811PROCp:IFb%<>0THENPROCyd
54829PROCvd:Xa%=2:Db%=-1:W%=-1:O%=-1:jl%=-1:Ob%=-1:PROCwd:Pl%=TRUE:Em%=TRUE:Xl%=FALSE:Wl%=FALSE:hl%=TRUE:Fk%=FALSE:Dl%=FALSE:Bk%=TRUE:IFFNg("<MBTuneFiles$Dir>.Defaults")THENPROCfb("Defaults")
54982IFFNg("<MBBeatFiles$Dir>.Defaults")THENPROCoc("Defaults")
54991IFFNg("<MBSoundFiles$Dir>.Defaults")THENPROCF("Defaults",0)
55000IFFNg("<MBChordFiles$Dir>.Defaults")THENPROCF("Defaults",2)
55009PROCAd:ENDPROC
55027DEFFNZ(a%):LOCALb%,v%:b%=FNa(v%,a%):IFb%=0THENb%=FNa(Ul%,a%)
55072IFb%=0THENb%=FNa(Xa%,a%)
55081IFb%=0THENb%=FNa(Vl%,a%)
55090IFb%=0THENb%=FNa(Gm%,a%)
55099IFb%=0THENb%=FNa(pb%,a%)
55108IFb%=0THENb%=FNa(Ba%,a%)
55117IFb%=0THENb%=FNa(Ya%,a%)
55126IFb%=0THENb%=FNa(Za%,a%)
55135IFb%=0THENb%=FNa(cl%,a%)
55144IFb%=0THENb%=FNa(Jk%,a%)
55153IFb%=0THENb%=FNa(Ik%,a%)
55162IFb%=0THENb%=FNa(Hk%,a%)
55171IFb%=0THENb%=FNa(Gk%,a%)
55180IFb%=0THENb%=FNa(Kk%,a%)
55189IFb%=0THENb%=FNa(Lk%,a%)
55198IFb%=0THENb%=FNa(Mk%,a%)
55207IFb%=0THENb%=FNa(nm%,a%)
55216IFb%=0THENb%=FNa(om%,a%)
55225IFb%=0THENb%=FNa(Nk%,a%)
55234IFb%=0THENb%=FNa(ik%,a%)
55243IFb%=0THENb%=FNa(Dm%,a%)
55252IFb%=0THENb%=FNa(W%,a%)
55261IFb%=0THENb%=FNa(Db%,a%)
55270IFb%=0THENb%=FNa(O%,a%)
55279IFb%=0THENb%=FNa(Ll%,a%)
55288IFb%=0THENb%=FNa(jl%,a%)
55297IFb%=0THENb%=FNa(Ob%,a%)
55306IFb%=0THENb%=FNa(wl%,a%)
55315IFb%=0THENb%=FNa(il%,a%)
55324IFb%=0THENb%=FNa(ga%,a%)
55333IFb%=0THENb%=FNa(ha%,a%)
55342IFb%=0THENb%=FNa(Pl%,a%)
55351IFb%=0THENb%=FNa(Em%,a%)
55360IFb%=0THENb%=FNa(Xl%,a%)
55369IFb%=0THENb%=FNa(Wl%,a%)
55378IFb%=0THENb%=FNa(hl%,a%)
55387IFb%=0THENb%=FNa(Fk%,a%)
55396IFb%=0THENb%=FNa(Dl%,a%)
55405IFb%=0THENb%=FNa(Bk%,a%)
55414IFb%=0THENb%=FNa(Bm%,a%)
55423IFb%=0THENb%=FNa(Cm%,a%)
55432IFb%=0THENb%=FNa(ia%,a%)
55441IFb%=0THENSYS&40187,ya%+Gm%
55450=b%
55486DEFPROCBd:SYS&44ADD,1,t%,rf%,FNd("Save",om%):SYS&44ADD,1,t%,sf%,FNd("Load",nm%):SYS&44ADD,1,l%,Bh%,FNd("Save",om%):SYS&44ADD,1,l%,Ch%,FNd("Load",nm%):SYS&44ADD,1,l%,Dh%,FNd("Print",Nk%):SYS&44ADD,1,o%,kg%,FNd("Save",om%)
55558SYS&44ADD,1,o%,lg%,FNd("Load",nm%):SYS&44ADD,1,o%,_f%,FNd("Print",Nk%):SYS&44ADD,1,o%,jg%,FNd("Copy",Lk%):SYS&44ADD,1,o%,ig%,FNd("Clear",Mk%):SYS&44ADD,1+2^9,o%,Sf%,FNd("t1",Gk%),,vg%
55603SYS&44ADD,1+2^9,o%,Sf%+1,FNd("t2",Hk%),,vg%:SYS&44ADD,1+2^9,o%,Sf%+2,FNd("t3",Ik%),,vg%:SYS&44ADD,1+2^9,o%,Tf%,FNd("t4",Jk%),,vg%:SYS&44ADD,1+2^9,o%,Uf%,FNd("t6",Kk%),,vg%:SYS&44ADD,1,k%,Tg%,FNd("Save",om%)
55657SYS&44ADD,1,k%,Ug%,FNd("Load",nm%):SYS&44ADD,1,k%,Wg%,FNd("Print",Nk%):SYS&44ADD,1,k%,Sg%,FNd("Copy",Lk%):SYS&44ADD,1,k%,Rg%,FNd("Clear",Mk%):SYS&44ADD,1+2^9,k%,Bg%,FNd("t1",Gk%),,eh%
55702SYS&44ADD,1+2^9,k%,Bg%+1,FNd("t2",Hk%),,eh%:SYS&44ADD,1+2^9,k%,Bg%+2,FNd("t3",Ik%),,eh%:SYS&44ADD,1+2^9,k%,Dg%,FNd("t6",Kk%),,eh%:ENDPROC
55756DEFFNd(a$,Yl%):IFNOTYl%THEN="sz,pz"
55783="S"+a$+",p"+a$
55810DEFPROCI:PROCb("You can not use that button. Ask your teacher if you want to use it.",FALSE):ENDPROC
55828DEFPROC_(Im%,d%):LOCALA%:A%=EVAL("FN"+STR$~(Im%)+"("+STR$(d%)+")"):IFUa%=1THEN
55882IFJm%=0THENKm%=0
55891A%=FNt:j%(Lm%)=A%:g%(Lm%)=Jm%:e%(0,Jm%,Lm%)=Im%:e%(1,Jm%,Lm%)=d%:e%(2,Jm%,Lm%)=A%:Jm%+=1:IFJm%>=Va%THENPROCo(Mm%,Nm%,Om%)
55963ENDIF
55972ENDPROC
55981DEFPROCdd:LOCALA%:A%=FNt:IFUa%=2THENPROCCd
56026ENDPROC
56035DEFFNt:LOCALA%:A%=BEAT:IFA%<Pm%THEN
56080IFQm%THEN
56089IFRm%THENJm%=0ELSEJm%=g%(Lm%)
56098Sm%=j%(Lm%):Km%=0:Qm%=FALSE
56134ELSE:Km%+=lb%
56152ENDIF
56152ENDIF
56161Pm%=A%:=A%+Km%
56197DEFPROCo(n%,d%,Tm%):SYS&44ADD,7,n%,d%,1:Ua%=0:Ok%=FALSE:CASEn%OF
56233WHENt%:SYS&44ADD,3,n%,gf%,0
56251WHENl%:SYS&44ADD,3,n%,qh%,0
56260ENDCASE
56260PROCm:PROCsc:PROCs(Tm%,n%,0):PROCt:ENDPROC
56305DEFPROCob(n%,d%,Tm%,j%):Ok%=FALSE:CASEn%OF
56341WHENt%:SYS&44ADD,3,n%,gf%,0
56359WHENl%:SYS&44ADD,3,n%,qh%,0
56368ENDCASE
56368Qm%=FALSE:Nm%=d%:Om%=Tm%:Mm%=n%:Lm%=j%:Ua%=1:Jm%=0:g%(Lm%)=-1:j%(Lm%)=0:Pm%=0:Km%=0:PROCm:PROCt:ENDPROC
56494DEFPROCD(n%,d%,Tm%,j%,Um%):Qm%=FALSE:Rm%=Um%:Nm%=d%:Om%=Tm%:Mm%=n%:Lm%=j%:Ua%=2:IFUm%THENJm%=0ELSEJm%=g%(j%)
56584Sm%=j%(j%):Pm%=0:Km%=0:PROCm:PROCt:ENDPROC
56638DEFPROCCd:LOCALA%:IFRm%THEN
56674REPEAT:A%=TRUE:IFJm%<=g%(Lm%)THEN
56701IFFNt>=e%(2,Jm%,Lm%)THEN
56710A%=EVAL("FN"+STR$~(e%(0,Jm%,Lm%))+"("+STR$(e%(1,Jm%,Lm%))+")"):Jm%+=1:A%=FALSE
56746ENDIF
56746ENDIF
56755UNTILA%:IFJm%>g%(Lm%)THEN
56773IFOk%THEN
56782Qm%=TRUE
56800ELSE:PROCo(Mm%,Nm%,Om%)
56818ENDIF
56818ENDIF
56827ELSE:REPEAT:A%=TRUE:IFJm%>=0THEN
56863IFFNt>=Sm%-e%(2,Jm%,Lm%)THEN
56872A%=EVAL("FN"+STR$~(e%(0,Jm%,Lm%)EOR1)+"("+STR$(e%(1,Jm%,Lm%))+")"):Jm%-=1:A%=FALSE
56908ENDIF
56908ENDIF
56917UNTILA%:IFJm%<0THEN
56935IFOk%THEN
56944Qm%=TRUE
56962ELSE:PROCo(Mm%,Nm%,Om%)
56980ENDIF
56980ENDIF
56989ENDIF
56998ENDPROC
57007DEFFN2(d%):SYS&44ADD,3,t%,d%,1:cc%=d%:Vm%=(d%-lf%)MOD_b%+1:Wm%=(d%-lf%)DIV_b%:SYS&40189,Vm%,Yb%,a%(Wm%),Xb%:=0
57106DEFFN3(d%):SYS&44ADD,3,t%,d%,0:SYS&40189,Vm%,Yb%+2^7,a%(Wm%),Wb%:cc%=-1:=0
57160DEFFN4(d%):LOCALRk%,e%,q%:SYS&44ADD,3,l%,d%,1:Rk%=d%-nh%:ec%=Rk%:FORe%=1TO7:SYS&40185,e%,?(mj%+h%(Rk%,0)):NEXT:q%=1:FORe%=0TO20:IF?(Jh%+Rk%*24+e%)THEN
57250SYS&40189,q%,Yb%,k%(e%),Xb%:q%+=1:IFq%>=8THENe%=100
57277ENDIF
57286NEXT:=0
57322DEFFN5(d%):LOCALRk%,e%:SYS&44ADD,3,l%,d%,0:Rk%=d%-nh%:q%=1:FORe%=0TO20:IF?(Jh%+Rk%*24+e%)THEN
57376SYS&40189,q%,Yb%+2^7,k%(e%),Wb%:q%+=1:IFq%>=8THENe%=100
57403ENDIF
57412NEXT:ec%=-1:=0
57457DEFPROCF(g$,j%):LOCALv%,b%,a%,c$,Xm%,Ym%,e%,Bc%,A$,Zm%:Ym%=FALSE:PROCi:PROCj:CASEj%OF
57502WHEN0:c$="Sound":Xm%=lf%:SYS&44AEB,3,t%:PROCo(t%,if%,df%):Zm%=0
57538WHEN2:c$="Chord":Xm%=nh%:SYS&44AEB,3,l%:PROCo(l%,sh%,wh%):Zm%=1
57565OTHERWISE:ERROR0,"This procedure does not support that box type."
57574ENDCASE
57574IFINSTR(g$,".")=0THENg$="<MB"+c$+"Files$Dir>."+g$
57583a%=FNl(g$):IFa%=0THENENDPROC
57601b%=FNh(b$,8,a%):IFb%<>0THENPROCb(FNc(b%+4),FALSE):ENDPROC
57619IFb$<>"MB"+c$+" "THENPROCb("File format not understood.",FALSE):b%=FNG(a%):ENDPROC
57628b%=FNa(c%,a%):IFb%<>0THENPROCb(FNc(b%+4),FALSE):b%=FNG(a%):ENDPROC
57646IFc%>1THENb%=FNG(a%):PROCb("This file was made by a newer version of MusicBox. You will need an upgrade to load it.",FALSE)
57655b%=FNh(b$,4,a%):WHILEb%=0ANDb$<>"EndX":CASEb$OF
57682WHEN"Tape":b%=FN_(Zm%,a%,Xm%)
57700WHEN"Inst":b%=FNv(j%,a%):Ym%=TRUE
57709WHEN"Temp":b%=FNw(j%,a%)
57718WHEN"Volu":b%=FNx(j%,a%)
57727WHEN"Octa":b%=FNy(a%)
57736WHEN"Key ":b%=FNz(a%)
57745WHEN"Chor":b%=FN`(a%)
57754WHEN"Pent":IFj%=0THENb%=FNB(a%)
57754OTHERWISE:b%=FNj(a%)
57772ENDCASE
57772IFb%=0THENb%=FNh(b$,4,a%)
57781ENDWHILE:IFb%<>0THENPROCb(FNc(b%+4),FALSE)
57799b%=FNi(a%):PROCp:PROCr:IFj%=2ANDYm%THEN
57835IFw%=2THENPROCk(b%(2,dc%-1),dc%)
57844FORBc%=0TO6:A$=a$(b%(2,Bc%)):FORe%=0TOkh%-1:IFh%(e%,0)=Bc%+1THEN
57880SYS&44ADD,1+512,l%,lh%+e%,"s"+A$+",p"+A$,,Hh%
57898ENDIF
57898NEXT:NEXT
57925ENDIF
57925ENDPROC
57934DEFFN_(j%,a%,Xm%):LOCALv%,b%:IFb%=0THENb%=FNa(v%,a%)
57979IFb%=0THENb%=FNa(v%,a%)
57988g%(j%)=v%:IFb%=0THENb%=FNa(j%(j%),a%)
58006FORe%=0TOv%:IFb%=0THENb%=FNa(e%(0,e%,j%),a%)
58024IFb%=0THENb%=FNa(e%(1,e%,j%),a%)
58033IFb%=0THENe%(1,e%,j%)+=Xm%
58042IFb%=0THENb%=FNa(e%(2,e%,j%),a%)
58051NEXT:=b%
58087DEFFN`(a%):LOCALv%,b%:IFb%=0THENb%=FNa(v%,a%)
58105FORe%=0TOkh%-1:IFb%=0THENb%=FNa(h%(e%,0),a%)
58123NEXT:IFb%=0THENb%=FNk(Jh%,kh%*24,a%)
58141=b%
58177DEFPROCX(H%,J%):IFw%<0THENENDPROC
58186SYS&400E6,5:MOVEH%+d%(w%,0),J%+d%(w%,1):MOVEH%+d%(w%,2),J%+d%(w%,3):PLOT85,H%+d%(w%,2),J%+d%(w%,1):ENDPROC
58231DEFPROCq(_m%):_m%=_m%/2:IF_m%<0THEN_m%=0
58267IF_m%>127THEN_m%=127
58276SYS&40180,_m%:ENDPROC
58294DEFPROCV(n%,d%):SYS&44AD4,1,n%,d%TOc%:PROCq(c%):ENDPROC
58339DEFFNM(j%,a%):LOCALe%,c%,b%:b%=FNf("Volu",a%):IFb%=0THENb%=FNb(12,a%)
58384CASEj%OF
58393WHEN0:SYS&44AD4,1,t%,qf%TOc%
58411WHEN1:SYS&44AD4,1,o%,`f%TOc%
58420WHEN2:SYS&44AD4,1,l%,yh%TOc%
58429WHEN3:SYS&44AD4,1,k%,Og%TOc%
58438ENDCASE
58438IFb%=0THENb%=FNb(c%,a%)
58447=b%
58474DEFFNx(j%,a%):LOCALe%,c%,b%:IFEm%THEN
58492b%=FNa(c%,a%):IFb%=0THENb%=FNa(c%,a%)
58510IFb%=0THEN
58519CASEj%OF
58528WHEN0:SYS&44AD4,2,t%,qf%,c%
58555WHEN1:SYS&44AD4,2,o%,`f%,c%
58573WHEN2:SYS&44AD4,2,l%,yh%,c%
58591WHEN3:SYS&44AD4,2,k%,Og%,c%
58609ENDCASE
58609IFw%=j%THENPROCq(c%)
58618ENDIF
58627ELSE:b%=FNj(a%)
58654ENDIF
58654=b%
58690DEFPROCn(n%,j%):`m%=n%:CASEn%OF
58708WHENDd%
58726WHEN0:SYS&44ADD,2,Hd%,Gd%,"Are you sure you want to start again?":n%=Hd%
58735WHEN1:SYS&44ADD,2,Hd%,Gd%,"Are you sure you want to print your work?":n%=Hd%
58744WHEN2:SYS&44ADD,2,Hd%,Gd%,"There are some unsaved files. Are you sure you want to quit?":n%=Hd%
58744WHEN3:SYS&44ADD,2,Hd%,Gd%,"The present tune has not been saved and loading a new file will lose it. Do you still want to load a new file?":n%=Hd%
58753WHEN4:SYS&44ADD,2,Hd%,Gd%,"That file already exists. Do you want to continue and overwrite it?":n%=Hd%
58771ENDCASE
58771_a%=n%:SYS&44ADD,1,Hd%,Fd%,"syes,pyes":SYS&44ADD,5,Hd%,Ed%,FALSE:SYS&44AD6,n%,-1:SYS&44AD9,n%,-1:`a%=j%:ENDPROC
58834DEFPROCc(E$):pc%=FALSE:`m%=-1:SYS&44ADD,2,Hd%,Gd%,E$:SYS&44ADD,1,Hd%,Fd%,"sok,pok":SYS&44ADD,5,Hd%,Ed%,TRUE:_a%=Hd%:SYS&44AD6,Hd%,-1:SYS&44AD9,Hd%,-1:`a%=-3:ENDPROC
58942DEFPROCVc(p%,d%):LOCALA%,C%,D%:IF(p%AND4)THEN
58978CASE_a%OF
58987WHENHd%:CASEd%OF
59005WHENFd%,Ed%:PROCe(Hd%,d%)
59032ENDCASE
59032WHENDd%:CASEd%OF
59050WHENBd%,Cd%:PROCe(Dd%,d%)
59077WHENyd%,Ad%:SYS&44ACA,Dd%,zd%,zd%-d%,Dk%,1
59095ENDCASE
59095ENDCASE
59104ENDIF
59113ENDPROC
59122DEFPROCcd(d%):LOCALA%:PROCh(_a%):SYS&44AD9,0,-2:CASE_a%OF
59176WHENHd%:A%=(d%=Fd%)
59194WHENDd%:A%=(d%=Cd%)
59203ENDCASE
59203CASE`a%OF
59212WHEN1:PROCjb(`m%,A%)
59230WHEN2:PROCxb(`m%,A%)
59239WHEN3:PROCmc(`m%,A%)
59248WHEN-1:va%=A%
59257WHEN-2:IFA%THENPROCnd(lm%,mm%)
59257WHEN-3:aa%-=1:IFaa%>=0THENPROCc(c$(ra%-aa%))
59266WHEN-4:IFA%THENPROCsd
59275ENDCASE
59284ENDPROC
59293DEFPROCkb(j%):PROCc("Sorry, Print is disabled for this demo. The full version prints using any RISC OS printer driver."):ENDPROC
59320DEFPROCWa(m$):LOCALA%,B%,C%,Kc%,Lc%,Mc%,Nc%,Oc%,Pc%,Qc%,Rc%,Sc%,Tc%,f$:f$="s"+a$(b%(w%,!di%-1)):SYS&2E,40+256,U%,m$TO,,,Kc%,Lc%,Sc%,Mc%:SYS&2E,40+256,U%,f$TO,,,Nc%,Oc%,Tc%,Pc%:SYS&35,Mc%,3TO,,Qc%:SYS&35,Mc%,4TO,,A%:Kc%=Kc%<<A%:h%!8=(1<<A%)
59419SYS&35,Mc%,5TO,,A%:Lc%=Lc%<<A%:h%!12=(1<<A%):SYS&35,Pc%,3TO,,Rc%:SYS&35,Pc%,4TO,,A%:Nc%=(Nc%<<A%):h%!0=1<<A%:SYS&35,Pc%,5TO,,A%:Oc%=(Oc%<<A%):h%!4=1<<A%:IFQc%<>Rc%ORQc%<>15THEN
59518PROCb("Voice sprites must have 16 and only 16 colours.",FALSE)
59536ELSE:SYS&2002E,25+256,U%,"st7":SYS&2E,27+256,U%,m$,"st7":SYS&2E,60+256,U%,"st7",0TO,A%,B%,C%:SYS&2E,52+256,U%,f$,4,44,8,h%,0:SYS&2E,34+256,U%,m$,0,0,8:SYS&2E,60+256,A%,B%,C%:IFSc%=1THEN
59599SYS&2E,61+256,U%,"st7",0TO,A%,B%,C%:VDU18,0,128+63,23,17,3,&C0,0,0,0,0,0,0
59617SYS&2E,50+256,U%,f$,4,44,8,h%,0:SYS&2E,61,A%,B%,C%
59644ENDIF
59644ENDIF
59653ENDPROC
HIK��Na(�b$):�I%:ș&27,b$,a,256:b$="":I%=0:ȕa?I%>31:b$+=�(a?I%):I%+=1:�:�
H�c��ra(m,E$,h):�Oa("Music Box has suffered an internal error and must quit. "+E$+" ("+�(h)+")"):�
H���Oa(w$):��Pa(w$)
H�)!a=�:$(a+4)=w$+�0:ș&400DF,a,1,U$:�Qa
H���Pa(w$):
I��<>b��b
I�4
I�w$:�Qa
I<��Ra(i):�j>i��Qa
IE�
IN��Qa:��Sa
Ii
Ir�f�ș&42589:f=�
I{�Sa
I���Sa:
I�
��<>b�
I��b:ș&400E3,b
I��
I�ș&400DD:�
I�g��ia(N$,O$,P$,k):�a 256:�Na(O$):�Na(P$):Z$=O$:_$=P$:f=�:j=-1:b=�:U$=N$:�k�ș&400C0,200,&4B534154,N$
JJ�
JS��Ta(d%,X%,Y%):Ȏd%�
Jw�gg%:�R(o%,d%,X%,Y%)
J��ng%:�Ab%�
J�Uș&44AE3,6,_%,o%:ș&44AE5,0,o%,X%,Y%,,vg%�,,d%:ș&44AE3,7,_%,o%:�d%>=Qf%�d%<=Rf%�
J�-�j:�S(d%-Qf%+1):�k(b%(1,d%-Qf%),d%-Qf%+1)
J��
J��
J��
J��
J�-��Ua(p%,d%,X%,Y%):�A%,C%,D%:�(p%�(4<<4))�
K	Ȏd%�
K"�gg%,`f%:�G(o%,d%,X%,Y%)
K=�
K=�
KF�(p%�4)�
KX	Ȏd%�
Ka�dg%:�Va(1)
K|�bg%:�Va(-1)
K��eg%:�j
K�(�cg%:ș&44ADD,3,o%,d%,1:zb%=�:�Va(1)
K�*�lg%,kg%,fg%,hg%,ig%,jg%,_f%:�e(o%,d%)
K��pg%:�Pa%��e(o%,d%)
K�)ș&44AD4,1,o%,gg%�c%:c%-=1:�c%<0�c%=0
K�'ș&44AD4,2,o%,gg%,c%�c%:�d((c%+40))
L�qg%:�Pa%��e(o%,d%)
L-ș&44AD4,1,o%,gg%�c%:c%+=1:�c%>255�c%=255
L9'ș&44AD4,2,o%,gg%,c%�c%:�d((c%+40))
LT�mg%:ș&44AD6,ld%,X%,Y%
L].�gg%:ș&44AD4,0,o%,d%,X%,Y%�c%:�d((c%+40))
Lx)�`f%:ș&44AD4,0,o%,d%,X%,Y%�c%:�q(c%)
L��ng%:�Ab%�
L�Uș&44AE3,6,_%,o%:ș&44AE5,0,o%,X%,Y%,,vg%�,,d%:ș&44AE3,7,_%,o%:�d%>=Qf%�d%<=Rf%�
L�
�yb%�
L��H(d%-Qf%+1,-1,o%,-1)
L��
L��k(b%(1,d%-Qf%),d%-Qf%+1)
L��:Ȏd%�
L�=�0:�l(1):C%=X%:D%=Y%:A%=�(ei%):�(A%�&FF000000)=&FF000000�
MB�c("You are not allowed that many instruments in one column.")
M,�:A%=(A%<<8)>>8:�yb%�
M>9fk%=�(ai%):gk%=fk%:hk%=(((gk%)�ik%)+1)*ik%-1:!qj%=fk%
Mt�:�(!ni%<8)�
M}�H(!ni%,10-(A%�&FF),o%,-1)
M��:�!ni%=8+7�
M�(�(!di%)>0��H(!di%,10-(A%�&FF),o%,-1)
M��
M��
M��
M�Ȏ!ni%�
M�:�6+8:�(A%>>20)>0�!di%=A%>>20:�Wa("st7_copy1"):�k(-1,6)
M��7+8:�k(-1,5)
M��
M��
M�8�Sf%,Sf%+1,Sf%+2,Tf%,Uf%:�p(d%)��k(-1,d%-Sf%+1)��Xa
M��
N�
N
�
N�Zf%:�Ab%�
N('ș&44AE5,0,o%,X%,Y%,,vg%�,,d%:Ȏd%�
N:�Wf%:�Ya(1)
NL�Vf%:�Ya(-1)
NU�Xf%,Yf%:�e(o%,-d%)
N^�
N^�
Ng�
Np�
Ny�
N���k(x%,q%):�A%,B%:�x%>=0�
N�d$="s"+a$(x%)
N��:�q%>=5�q%+=1
N�d$="st"+�(q%):q%+=8
N��
N��Za(d$):!ni%=q%:Bb%=q%:�
O��Xa:�Bb%>7�
O�Bb%>12�
O$2�k(-1,Bb%-9):ș&44ADD,7+512,o%,Qf%+Bb%-3,,,vg%
O?4�:�k(-1,Bb%-8):ș&44ADD,7+512,o%,Qf%+Bb%-2,,,vg%
OZ�
OZ;�:ș&44ADD,7+512,o%,Qf%+Bb%-1,,,vg%:�k(b%(1,Bb%-1),Bb%)
O~�
O~�
O���Za(d$):�A%,B%:Ȏd$�
O��"st2":A%=4:B%=0
O��"st6":A%=4:B%=44
O��"st7":A%=4:B%=44
O�:A%=0:B%=0
O��
O�1ș&44AE3,1+2^11,U%,d$,wb%+A%,wb%+B%,_%�,,_%:�
O�u��_a:�c%:�h(Bf%):�T(o%):�U(1):�y(2^Db%,gb%):�V(o%,`f%):ș&44AD4,1,o%,gg%�c%:�s(fg%,o%,0):�d(c%+40):�Xa:�z:�C(0):�
P�f��`a(H%,J%,s%):�e%:�e%=0�Yf%:ș&44AE0,,vg%+4+32*e%,s%:�:�W(H%,J%):!Li%=H%:!Mi%=J%:�Di%:�X(H%,J%):�
P���ab:�Ui%:�
QݤH:jk%=�:=�I
QR�ݤI:�kk%,lk%,mk%,e%,A%,P%:!ii%=K%/nk%:!ji%=4/nk%:ș&64AE2,259,nc%,"composegrid",2^4,(W%+1)*K%+4,K%*11+4,jk%�A%;P%:ș&64AE2,264,nc%,2,0:�(P%�1)=1�
Q��ș&44AE2,259,nc%,"composegrid",2^4,8,8,jk%:�h(o%):�Y:�c("Not enough memory to use Tune Box. Try reducing the size of 'paper' in the configuration window. See manual for more hints."):=�
Q��
Q��ș&64AE2,60,nc%,"composegrid",0�,kk%,lk%,mk%:ș&400E6,0:ȓȐ0,0,(W%+1)*K%+4,K%*11+4:ș&400E6,Cb%:�e%=1�11�2:ȓȐ0,K%*e%+2,(W%+1)*K%+4,K%:�:ș&400E6,7:�e%=0�11:ȓȐ0,K%*e%,(W%+1)*K%+4,3:�:�e%=0�W%+1
R*7ȓȐK%*e%,0,3,11*K%+4:�:ș&2E,60+256,kk%,lk%,mk%:=�
R`P��Ya(ok%):�X%,Y%,B%,pk%,A%,T%,d%:A%=ok%*2:pk%=0:�:�xi%:�bb:ȗX%,Y%,B%:Ȏpk%�
R�3�0:A%=ok%*4:T%=�:�:ȗX%,Y%,B%:�bb:��>T%+50�B%=0
R��10
S�
S8pk%+=1:�B%=0�!Ai%<=0�!Ai%>=W%-24:�A%<0�d%=Vf%�d%=Wf%
S!ș&44ADD,3+512,o%,d%,0,,vg%:�
S/y��Va(ok%):�e%:�cb(�zb%):fk%=�(ai%):gk%=fk%:hk%=(((gk%)�ik%)+1)*ik%-1:!qj%=fk%:qk%=hk%:rk%=qk%:sk%=qk%:tk%=rk%:�ok%=1�
S�.ș&44ADD,7,o%,dg%,1:!Hi%=0:!kj%=jc%:!pj%=0
S�;�:!Hi%=hk%:!kj%=jc%+fk%*12:!pj%=hk%:ș&44ADD,7,o%,bg%,1
S��
S��uk%=-99999:vk%=0:yb%=�:wk%=ok%:�g:!tj%=Yb%:!lj%=0:lj%!4=0:nj%!0=0:nj%!4=0:nj%!8=0:oj%!0=-1:oj%!4=-1:ș&401C0:�m:xk%=lb%:A%=1:�wi%:�wk%=1�
T�%�e%=0�mb%:A%=e%*Q%:�!pj%>hk%�zb%�
T�!pj%=0:!kj%=jc%
T��
T�
�rj%:�
U%�:�e%=0�mb%:A%=e%*Q%:�!pj%<0�zb%�
U!pj%=hk%:!kj%=jc%+hk%*12
U9�
U9
�vj%:�
UT�
UT�t:�zb%�ș&44ADD,7,o%,cg%,1
Uf�
Uoa��j:�m:!Hi%=-1:A%=1:�wi%:yb%=�:�g:ș&44ADD,7,o%,eg%,1:zb%=�:ș&44ADD,3,o%,cg%,0:�Bi%:�cb(�):�
U�%��db:�Z%,A%,yk%,zk%:Z%=Ə:�wk%=1�
V�Z%<xk%�
V#2vk%+=mb%:�e%=1�mb%:A%=lb%+e%*Q%:�!pj%>hk%�zb%�
VG!pj%=0:!kj%=jc%
Vb�
Vb"�rj%:�:rk%=qk%:qk%=sk%:sk%=hk%
V��
V�)xk%=Z%:Ak%=(Z%�Q%)+vk%-mb%:�Ak%<>uk%�
V�uk%=Ak%:�Ak%>rk%�
V�	�zb%�
V�Ak%-=rk%+1:vk%-=rk%+1
V��:�j:Ak%=-100:�
V��
V��
WA%=1:�(�zb%)�
W"yk%=Ak%:�yk%>fk%-11�yk%=fk%-11
W(�yk%<12�yk%=12
W1'!zi%=(yk%-12)*K%:!Ai%=(yk%-12):A%=0
WU�
WU!Hi%=Ak%:�wi%
Wp�
Wp�:�Z%<xk%�
W�0vk%+=mb%:�e%=1�mb%:A%=lb%+e%*Q%:�!pj%<0�zb%�
W�!pj%=hk%:!kj%=jc%+fk%*12
W��
W�"�vj%:�:rk%=qk%:qk%=sk%:sk%=hk%
X�
X-xk%=Z%:Ak%=tk%-(Z%�Q%)-vk%+mb%:�Ak%<>uk%�
Xuk%=Ak%:�Ak%<0�
X-	�zb%�
X6)Ak%+=tk%+1:uk%=Ak%:vk%-=tk%+1:tk%=rk%
Xc�:�j:Ak%=-100:�
Xl�
Xu�
X~A%=1:�(�zb%)�
X�"yk%=Ak%:�yk%>fk%-11�yk%=fk%-11
X��yk%<12�yk%=12
X�'!zi%=(yk%-12)*K%:!Ai%=(yk%-12):A%=0
X��
X�!Hi%=Ak%:�wi%
X��
X��
X��
X���z:�H�
Yb�Za(d$):ș&44AE2,262+2^11,U%,"s?",,,,si%,ti%:ș&44AE2,262+2^11,U%,"tie01",,,,ui%,vi%:�ci%:�Bi%
YM�
YM�
YV��Y:n=�:�g:�j:�r:�A:�
Y�E��eb:�v%,b%,a%:g$="<MusicBoxD$Dir>.1":v%=�(ai%):a%=�J(g$):�a%=0��
Y�*b%=�f("MBTune  ",a%):�b%=0�b%=�b(1,a%)
Y��b%=0�b%=�f("Tune",a%)
Y��b%=0�b%=�b(12*v%+12+8,a%)
Z �b%=0�b%=�u(jc%,12*v%+12,a%)
Z
�b%=0�b%=�K(1,a%)
Z�b%=0�b%=�L(1,a%)
Z�b%=0�b%=�M(1,a%)
Z%�b%=0�b%=�N(a%)
Z.�b%=0�b%=�O(a%)
Z7�b%=0�b%=�P(a%)
Z@�b%=0�b%=�Q(a%)
ZI�b%=0�b%=�f("EndX",a%)
ZR�b%=0�b%=�b(-1,a%)
Z[�b%=0�b%=�i(a%)
Zd�b%=0�b%=�R(g$)
ZmP�b%<>0��b(�c(b%+4),�):b%=�i(a%)��r:�c("I have succesfully saved your work.")
Z�
Z�9��fb(g$):�i:�j:�g$,".")=0�g$="<MBTuneFiles$Dir>."+g$
Z�a%=�l(g$):�a%=0��
Z�*b%=�h(b$,8,a%):�b%<>0��b(�c(b%+4),�):�
Z�H�b$<>"MBCompos"�b$<>"MBTune  "��b("File format not understood.",�):�
Z�(b%=�a(c%,a%):�b%<>0��b(�c(b%+4),�):�
Z�i�c%>1��b("This file was made by a newer version of MusicBox. You will need an upgrade to load it.",�)
Z�*b%=�h(b$,4,a%):ȕb%=0�b$<>"EndX":Ȏb$�
[!�"Tune":b%=�S(a%)
[3�"Inst":b%=�v(1,a%)
[<�"Temp":b%=�w(1,a%)
[E�"Volu":b%=�x(1,a%)
[N�"Octa":b%=�y(a%)
[W�"Key ":b%=�z(a%)
[`�"Pent":b%=�B(a%)
[i�"Colu":b%=�T(a%)
[r:b%=�j(a%)
[{�
[{�b%=0�b%=�h(b$,4,a%)
[��:�b%<>0��b(�c(b%+4),�)
[�b%=�i(a%):�p:�r:�w%=1�
[��z:�C(0):ș&44AEB,3,o%
[��
[��
[�LݤS(a%):�b%,v%:ș&44ADA,jc%,vb%*12:b%=�a(v%,a%):�b%=0�b%=�k(jc%,v%-8,a%)
\&$v%=(((v%-8)�12)�24)+1:�v%>W%/24�
\8
�Bk%�
\A*W%=v%*24:!Zh%=W%:!_h%=W%*12:!mi%=W%*12
\n�
\n&ș&44ADA,jc%+W%*12,vb%*12+12-W%*12
\��
\�=b%
\���gb(d%):Ȏd%�
\��fg%:�s(d%,o%,1)
\��lg%:�v(o%,1)
\��kg%:�v(o%,0)
\��jg%:�p(d%)��hb
\��ig%:�p(d%)��n(0,1)
\��-Xf%:�C(0)
\��-Yf%:�C(-1)
\��_f%:�p(d%)��n(1,1)
\��hg%:�h(o%):�Y
]�-1:�ib
]�
]�
]"k��hb:�A%:Ck%=(�(ai%)+1):�Ck%<1�Ck%>W%/2��c("The paper is not long enough to copy your present tune."):�
]O1Dk%=(W%/Ck%)-1:ș&44ACB,Dd%,zd%,1:�n(Dd%,1):�
]s��cb(A%):Ab%=A%:�A%�
]�
!Zj%=2
]��:!Zj%=1
]��
]��
]�"��C(A%):�A%=-1�A%=�(ai%)-23+12
]��A%<0�A%=0
]��A%>W%-24�A%=W%-24
]�a!zi%=A%*K%:!Ai%=A%:A%=0:�wi%:�Bi%:ș&44ADD,3+512,o%,Yf%,0,,vg%:ș&44ADD,3+512,o%,Xf%,0,,vg%:�
^9��jb(n%,Ek%):�Ek%�
^T	Ȏn%�
^]+�0:ș&44ADA,jc%,W%*12:�z:�C(0):�j:�l(1)
^�c�Dd%:ș&44ACC,Dd%,zd%�,,Ek%:�e%=1�Ek%:ș&44AC7,Ck%*12,jc%,jc%+Ck%*e%*12:�:�z:�j:A%=0:�wi%:�l(1)
^�
�1:�kb(1)
^��
^��
_�
_9ݤN(a%):�e%,c%,b%:b%=�f("Colu",a%):�b%=0�b%=�b(12,a%)
_>�b%=0�b%=�b(Db%,a%)
_G=b%
_b#ݤT(a%):�e%,c%,b%:�Fk%�=�j(a%)
_t#b%=�a(c%,a%):�b%=0�b%=�a(c%,a%)
_�Db%=c%:�w%=1��y(2^Db%,gb%)
_�=b%
_�ݤp(d%):�y%:Ȏd%�
_��Sf%:y%=Gk%
_��Sf%+1:y%=Hk%
_��Sf%+2:y%=Ik%
_��Tf%:y%=Jk%
_��Uf%:y%=Kk%
_��jg%:y%=Lk%
`�ig%:y%=Mk%
`
�_f%:y%=Nk%
`�
`�y%��I
`=y%
`L��lb(d%,X%,Y%):�Ua%<>0��
`U	Ȏd%�
`^�uh%:�R(l%,d%,X%,Y%)
`pM�oh%:ș&44AE3,6,_%,l%:ș&44AE5,1,l%,X%,Y%,,Hh%�,,d%:ș&44AE3,7,_%,l%:Ȏ��
`�Z�(d%>=ih%�d%<=jh%):ș&44ADD,7+512,l%,d%,1,,Hh%:�S(d%-ih%+1):�mb(b%(2,d%-ih%),d%-ih%+1)
`��
`��
`��
`�3��nb(p%,d%,X%,Y%):�A%,C%,D%,B%,A$:�(p%�(4<<4))�
a	Ȏd%�
a	�uh%,yh%:�G(l%,d%,X%,Y%)
a$�
a$�
a-�(p%�4)=4�
a6	Ȏd%�
a?,�rh%:ș&44ADD,7,l%,d%:�D(l%,sh%,wh%,1,�)
acD�qh%:ș&44ADD,7,l%,d%:ș&44ADD,7,l%,rh%:Ok%=�:�D(l%,sh%,wh%,1,�)
a�,�ph%:ș&44ADD,7,l%,d%:�D(l%,sh%,wh%,1,�)
a��sh%:�o(l%,d%,wh%)
a�1�th%:�l(2):ș&44ADD,7,l%,d%:�ob(l%,sh%,wh%,1)
a�"�wh%,xh%,Bh%,Ch%,Dh%:�e(l%,d%)
a�.�uh%:ș&44AD4,0,l%,d%,X%,Y%�c%:�d((c%+40))
b)�yh%:ș&44AD4,0,l%,d%,X%,Y%�c%:�q(c%)
b)�Eh%:�Pa%��e(l%,d%)
b2)ș&44AD4,1,l%,uh%�c%:c%-=1:�c%<0�c%=0
bM'ș&44AD4,2,l%,uh%,c%�c%:�d((c%+40))
bh�Fh%:�Pa%��e(l%,d%)
bq-ș&44AD4,1,l%,uh%�c%:c%+=1:�c%>255�c%=255
b�'ș&44AD4,2,l%,uh%,c%�c%:�d((c%+40))
b��Ah%:ș&44AD6,ld%,X%,Y%
b��oh%:�Ua%=0�
b�Hș&44AE3,6,_%,l%:ș&44AE5,0,l%,X%,Y%,,Hh%�,,d%:ș&44AE3,7,_%,l%:Ȏ��
b�N�(d%>=ih%�d%<=jh%):�H(d%-ih%+1,-1,l%,-d%+ih%-1):�mb(b%(2,d%-ih%),d%-ih%+1)
c��(d%>=lh%�d%<=lh%+kh%-1):h%(d%-lh%,0)=dc%:A$=a$(b%(2,dc%-1)):ș&44ADD,1+512,l%,d%,"s"+A$+",p"+A$,,Hh%:�Z(d%-lh%):�e(l%,-10-(d%-lh%)):�l(2)
c@�
c@�
cI
:Ȏ��
c[8�(d%>=mh%�d%<mh%+kh%):�Ua%=0��pb(d%-mh%,X%,Y%):�l(2)
cm$�(d%>=nh%�d%<nh%+kh%):�Z(d%-nh%)
c��
c��
c��
c��
c���mb(x%,q%):�x%>=0�
c�d$="s"+a$(x%)
c�"�:�1,"This should not happen!"
c��
c�2ș&44AE3,1+2^11,U%,d$,wb%,wb%,_%�,,_%:dc%=q%:�
c����qb:�c%:�h(Bf%):�T(l%):Ok%=�:�y(1,gb%):�rb:�U(2):�V(l%,yh%):ș&44AD4,1,l%,uh%�c%:�d(c%+40):ș&44ADD,7+512,l%,ih%+dc%-1,,,Hh%:Qa%=�:�g:�s(wh%,l%,0):�t:�mb(b%(2,dc%-1),dc%):�
d�h��sb(H%,J%,s%):�e%:�e%=0�Gh%-1:ș&44AE0,,Hh%+4+32*e%,s%:�:�W(H%,J%):!Li%=H%:!Mi%=J%:�Ei%:�X(H%,J%):�
e��tb:�d%,Pk%:�Ti%:�Ua%<>2�
eA&ș&400CF,,h%:d%=h%!16:Pk%=ec%:Ȏ��
ee;�(h%!8�4)=4�(d%>=mh%�d%<=mh%+kh%-1):�Pk%<>d%-mh%�Pk%=-1
ew�Pa%
e�2�(h%!8�4)=4�(d%>=nh%�d%<=nh%+kh%-1):Pk%=d%-nh%
e�Pk%=-1
e��
e��ec%<>Pk%�
e��Pk%=-1��ub��Z(Pk%)
e��
e��
e��
e�Y��rb:ș&44AE3,1+2^11,U%,d$,wb%,wb%,_%�,,_%:ș&44AE2,262+2^11,U%,"Circle",,,,Pi%,Qi%:�
e�*��vb:Qa%=�:�o(l%,d%,wh%):�m:�g:�A:�r:�
fO��wb(d%):Ȏd%�
fj�wh%:�s(d%,l%,1)
f|�xh%:�h(l%):�vb
f��Ch%:�v(l%,5)
f��Bh%:�v(l%,4)
f��Dh%:�Nk%��n(1,2)��I
f�:�d%<0�d%>-8��ib
f��d%<-9�d%>-10-kh%�
f�Mș&44AE3,6,_%,l%:ș&44ADD,3+512,l%,-10-d%+lh%,0,,Hh%:ș&44AE3,7,_%,l%:�ub
f��
f��
f��
f�j��pb(Qk%,X%,Y%):�f%:ș&44AE6,3,l%,X%,Y%�,,X%,Y%:f%=Ih%+Qk%*32:X%=X%-!f%:Y%=Y%-f%!4-2:�X%<K%+2�Y%+=K%/2
gBS%=Y%�K%:�S%<0�S%=0
gT�S%>10�S%=10
g]
�X%<K%+2�
gf�S%=0�S%=2�S%=6�S%=9��
go
S%+=10
g��
g�1?(Jh%+Qk%*24+S%)=?(Jh%+Qk%*24+S%)�1:�X%<K%+2�
g�Jș&400D1,l%,!f%+4,4+f%!4+(S%-10)*K%-K%/2,!f%+K%,f%!4+(S%-10+1)*K%-K%/2
g�?�:ș&400D1,l%,!f%+4+K%,4+f%!4+S%*K%,!f%+K%*2,f%!4+(S%+1)*K%
g��
g�
�Z(Qk%):�
g�(��Z(Rk%):�e%,Sk%:�ub:�_(4,nh%+Rk%):�
g���ub:�ec%>-1�
h�_(5,nh%+ec%)
h,�
h,�
h5!��xb(n%,Ek%):�Ek%�n%=1��kb(2)
hP�
hY(��yb(p%,d%):�Tk%,X%,Y%,B%,T%:�p%>7��
h}Tk%=-1:�d%>=If%�d%<=Lf%�
h�eTk%=(d%-If%)�2:ș&44ADD,3,Mf%,Tk%*2+If%,1:ș&44ADD,6,Mf%,Tk%*2+Jf%,&7E200000,&FF200000:�Uk%<>Tk%�
h�Kș&44ADD,3,Mf%,Uk%*2+If%,0:ș&44ADD,6,Mf%,Uk%*2+Jf%,&17000000,&FF200000
h��
h�"Vk%=Uk%:Uk%=Tk%:�zb(Tk%,Wk%,�)
h��:�d%=Ff%�d%=Gf%��e(Mf%,d%)
h��
i�
i
^��zb(x%,q%,Xk%):�Wc%,i$,X%,Y%,B%,h$,P%,T%:h$=b$(x%):�(c%(x%)�2^26)=0�(c%(x%)�&80000000)=0�
i:)�i:�:ș&20008,17,n$+"."+h$�N%:�N%<>1�
i^9i$="Can't use that voice. ("+n$+"."+h$+" not found.)"
ip@�:笤q�笤r�i$="Can't use that voice. (No voice slots left)"
iy�q�
i�+ș&2001E,0,n$+"."+h$�Wc%;P%:�(P%�1)<>0�
i�3笤r�i$="Can't use that voice. ("+�c(Wc%+4)+")"
i�F�:ș&60185,q%,0�,ja%:ș&6018A,q%,h$�;P%:ș&60185,q%,ja%:�(P%�1)=1�
i�bi$="Voice module '"+h$+"' does not contain a voice called '"+h$+"'. Shall use an alternative."
i��:c%(x%)=(c%(x%)�2^26)
i��
i��
i�
�:P%=1
j�
j�
j�i$<>""�(P%�1)=0:�p
j6�
j6�i$=""�
j?�J(w%,q%,x%)
jQd�:�b(i$,�):ș&44ADD,3,Mf%,Vk%*2+If%,1:ș&44ADD,6,Mf%,Vk%*2+Jf%,&7E200000,&FF200000:�Uk%<>Tk%Yk%�
juKș&44ADD,3,Mf%,Uk%*2+If%,0:ș&44ADD,6,Mf%,Uk%*2+Jf%,&17000000,&FF200000
j��
j�Uk%=Vk%
j��
j�	�Xk%�
j�dș&40189,q%,Yb%,a%(4)-&1000,100:T%=�:�:ȗX%,Y%,B%:�B%=0��>T%+5:ș&40189,q%,Yb%�2^7,a%(4)-&1000,1
j��
j��
j���S(q%):�e%,f%:�Ya%��
k'Wk%=q%:�e%=0�Gc%-1:�b%(w%,q%-1)=e%�
k2Pș&44ADD,3,Mf%,e%*2+If%,1:ș&44ADD,6,Mf%,e%*2+Jf%,&7E200000,&FF200000:Uk%=e%
kVK�:ș&44ADD,3,Mf%,e%*2+If%,0:ș&44ADD,6,Mf%,e%*2+Jf%,&17000000,&FF200000
kq�
kqE�:Zk%=b%(w%,q%-1):ș&44AD6,Mf%,-1:ș&44AD9,Mf%,-1:_k%=qa%:�qa%��m
k��
k���Ab:�zb(Zk%,Wk%,�):�Bb:�
k���Bb:�e%,A$,A%:Ȏw%�
l�0:ș&44ADD,6,t%,kf%,0,0
lB�1:�i:ș&44ADD,6,o%,Pf%,0,0:A%=Wk%:�bi%:�k(b%(1,Wk%-1),Wk%):�p
lR^�2:ș&44ADD,6,l%,hh%,0,0:�k(b%(2,Wk%-1),Wk%):A$=a$(b%(2,Wk%-1)):�e%=0�kh%-1:�h%(e%,0)=Wk%�
l0ș&44ADD,1+512,l%,lh%+e%,"s"+A$+",p"+A$,,Hh%
l��
l��
l�E�3:�i:ș&44ADD,6,k%,yg%,0,0:ș&44AEB,3,dh%:�u(b%(3,Wk%-1),Wk%):�p
l��
l� �h(Mf%):ș&44AD9,,-2:�_k%��t
l��
l���Cb(d%):Ȏd%�
m�Ff%:�Bb
m3�Gf%:�Ab
mE�
mE�
mNDݤq:�e%,y%,A%:y%=�:�e%=32�1�-1:ș&60183,0,e%�A%:�A%=0�y%=�:e%=-1
m�	�:=y%
m���Db(p%,d%):�p%>7��
m��i:Ȏd%�
m��xf%:�Eb
m��yf%:�_a
m��zf%:�qb
m��Af%:�Fb
n�
n�p:�
n3��A:!g%=1:ș&7,14,g%:�(?g%<>&95�g%?1>4)�va%=�:�
nA5ș&44AD6,Bf%,-1:ș&44ADD,3,-1,zc%,0:Aa%=�:w%=-1:�
nw$��Gb:ș&44ADD,3,-1,zc%,1:Aa%=�:�
n���R(n%,d%,X%,Y%):�Za%��
n�!`k%=n%:al%=d%:�`(Yh%,X%,Y%):�
n�o��Hb(A%):A%=�(�"040060060065070080090100115130145160175190210",A%*3+1,3)):ș&44AD4,2,`k%,al%,A%-40:�d(A%):�
o"��W(H%,J%):�X%,Y%:�w%<0��
oF�Y%=i%(w%):X%=Y%!4:Y%=Y%!8-eb%:ș&2E,(52+256),U%,"Metronome",H%+X%,J%+Y%,0,hc%,ic%:ș&44AE2,34,oc%,"PlotMe",H%+X%,J%+Y%+eb%,8:�
o|��t:qa%=�:bl%=lb%:�tb%=1�
o�'�e%=1�ob%:�8,&100+pb%,80,2,e%*nb%:�
o��
o�!�d(qb%):Ȟlb%:�E(Ə,cl%):�g:�
o�'��m:qa%=�:�E(kb%/4,�):ș&401C0:�g:�
p9C��s(d%,n%,dl%):�A%,e%:ș&44ADE,1,n%,d%,h%+100,100:Ȏ�c(h%+100)�
pf�"soff,poff":tb%=0
px�"son,pon":tb%=1
p��
p�tb%=(tb%�dl%):�dl%=1�
p��tb%=1�
p�ș&44ADD,1,n%,d%,"son,pon"
p�"�:ș&44ADD,1,n%,d%,"soff,poff"
p��
p��
p�	�qa%�
p�IA%=1:ȕA%*nb%<Ə:A%+=1:�:�e%=A%�ob%*2:�8,(&100+pb%)*tb%,80,2,e%*nb%:�
q5�
q5�
qGg��d(A%):�g:qb%=A%:ȟib%*A%*Q%*&1000/12000:!jj%=((130-(A%-20)/2.3)/rb%)*2^10:�qa%=0�(�cl%)��E(sb%,�)
q�,g=((12000)/(qb%*5*ib%))*2^8:!sj%=g:Ȏw%�
q��0:ș&44ADD,2,t%,tf%,�(qb%)
q��1:ș&44ADD,2,o%,og%,�(qb%)
q��2:ș&44ADD,2,l%,vh%,�(qb%)
q��3:ș&44ADD,2,k%,Yg%,�(qb%)
q��
q��
q���y(A%,B%):�e%,Ac%,A,Bc%:Ac%=30:Q%=B%:ib%=2*A%:kb%=Q%*ib%:lb%=kb%*jb%:mb%=ib%*jb%:nb%=Q%*ib%/2:ob%=2*mb%/ib%:�Bc%=0�jb%:�e%=0�kb%*8�8:A=90+e%*360/(kb%*8):A=�(�(�(A))*Ac%+90)
rgg!(Cc%+e%+kb%*8*Bc%)=(�(A)*rb%)*2^10:!(Cc%+e%+kb%*8*Bc%+4)=(�(A)*rb%)*2^10:�:�:�d(qb%):�E(kb%/4,�):�
r�+��E(Z%,el%):�X%,Y%,A%,H%,J%:�tb%=1�qa%�
r��Z%<bl%�
r�+�e%=1�ob%:�8,&100+pb%,80,2,lb%+e%*nb%:�
s�
s
bl%=Z%
s�
s	�el%�
sA%=Z%:�ej%:�w%<0��
s6�fl%=i%(w%):A%=Z%:ș&44AC7,20,fl%,h%:X%=h%!4:Y%=h%!8:ș&400C9,,h%�A%:H%=h%!4-h%!20:J%=h%!16-h%!24:ȕA%<>0:ș&44AE2,34,oc%,"PlotMe",H%+X%,J%+Y%,8:ș&400CA,,h%�A%:�:sb%=Z%
s��
s��
s����Ib:�kk%,lk%,mk%,e%,A%:gl%=�:ș&400ED,&100,U%,"metronome",,,,hc%,ic%:ș&44AE2,259,oc%,"Met",2^4,cb%,db%,gl%:ș&44AE2,259,oc%,"PlotMe",2^4,cb%,db%,gl%:ș&44AE2,264,oc%,2,0:ș&44AE2,60,oc%,"Met",0�,kk%,lk%,mk%
t�ș&44AE2,52+2^11,U%,"Metronome",0,-eb%,8,hc%,ic%:ș&2E,60,kk%,lk%,mk%:ș&44AE2,24,oc%,"met"�,,A%:!gj%=A%:ș&44AE2,24,oc%,"PlotMe"�,,A%:!hj%=A%:A%=0:�ej%:�
t_<ݤL(j%,a%):�e%,c%,b%:b%=�f("Temp",a%):�b%=0�b%=�b(12,a%)
t�	Ȏj%�
t��0:ș&44AD4,1,t%,of%�c%
t��1:ș&44AD4,1,o%,gg%�c%
t��2:ș&44AD4,1,l%,uh%�c%
t��3:ș&44AD4,1,k%,Qg%�c%
t��
t��b%=0�b%=�b(c%+40,a%)
t�=b%
t�ݤw(j%,a%):�e%,c%,b%:�hl%�
t�#b%=�a(c%,a%):�b%=0�b%=�a(c%,a%)
u

�b%=0�
u	Ȏj%�
u1�0:ș&44AD4,2,t%,of%,c%-40:ș&44ACB,t%,tf%,c%
u@1�1:ș&44AD4,2,o%,gg%,c%-40:ș&44ACB,o%,og%,c%
u[1�2:ș&44AD4,2,l%,uh%,c%-40:ș&44ACB,l%,vh%,c%
uv1�3:ș&44AD4,2,k%,Qg%,c%-40:ș&44ACB,k%,Yg%,c%
u��
u��w%=j%��d(c%)
u��
u��:b%=�j(a%)
u��
u�=b%
u���Jb(p%,X%,Y%):�Jb%��
u��(p%�4)�
u��l(3):ȎIb%�
v.�1,2,3,4,5,6,7:�il%��K(Ib%,!Qj%+!Pj%*M%,�)
v�11:�Kb(!Qj%,!Pj%)
v*�10:�Lb(!Qj%,!Pj%)
v3�9:�Mb(!Qj%,!Pj%)
v<�13:�Nb(!Qj%,!Pj%)
vE�14,15:�Ob(!Qj%,!Pj%,Ib%)
vN�
vN�:�(p%�1)�
v`A%=!Qj%+!Pj%*M%:�A%>u%��
vr!�Nb(!Qj%,!Pj%):za%=�:Ca%=�:�w
v��
v��
v��
v���Pb(d%,X%,Y%):Ȏd%�
v��Qg%:�R(k%,d%,X%,Y%)
v��Ig%:�Jb%�
v�{ș&44AE3,6,_%,k%:ș&44AE3,6,Hc%,dh%:ș&44AE5,0,k%,X%,Y%,,eh%�,,d%:ș&44AE3,7,_%,k%:ș&44AE3,7,Hc%,dh%:�d%>=zg%�d%<=Ag%�
w-�x:�S(d%-zg%+1):�u(b%(3,d%-zg%),d%-zg%+1)
wA�
wA�
wJ�
wS�
w\-��Qb(p%,d%,X%,Y%):�A%,C%,D%:�(p%�(4<<4))�
w�	Ȏd%�
w��Qg%,Og%:�G(k%,d%,X%,Y%)
w��
w��
w��(p%�4)�
w�	Ȏd%�
w��Lg%:�L(1)
w��Jg%:�L(-1)
w��Mg%:�x
x'�Kg%:ș&44ADD,3,k%,d%,1:Ub%=�:�L(1)
x4*�Ug%,Tg%,Pg%,Vg%,Rg%,Sg%,Wg%:�e(k%,d%)
xF.�Qg%:ș&44AD4,0,k%,d%,X%,Y%�c%:�d((c%+40))
xa)�Og%:ș&44AD4,0,k%,d%,X%,Y%�c%:�q(c%)
x|�Xg%:ș&44AD6,ld%,X%,Y%
x��Zg%:�Pa%��e(k%,d%)
x�)ș&44AD4,1,k%,Qg%�c%:c%-=1:�c%<0�c%=0
x�'ș&44AD4,2,k%,Qg%,c%�c%:�d((c%+40))
x��_g%:�Pa%��e(k%,d%)
x�-ș&44AD4,1,k%,Qg%�c%:c%+=1:�c%>255�c%=255
x�'ș&44AD4,2,k%,Qg%,c%�c%:�d((c%+40))
y�Ig%:�Jb%�
y{ș&44AE3,6,_%,k%:ș&44AE3,6,Hc%,dh%:ș&44AE5,0,k%,X%,Y%,,eh%�,,d%:ș&44AE3,7,_%,k%:ș&44AE3,7,Hc%,dh%:�d%>=zg%�d%<=Ag%�
yB
�Kb%�
yK�H(d%-zg%+1,-1,k%,-1)
y]�
y]�u(b%(3,d%-zg%),d%-zg%+1)
yo�:Ȏd%�
yx8�Bg%,Bg%+1,Bg%+2,Cg%,Dg%:�s(d%)��u(-1,d%-Bg%+1)��Rb
y��
y��
y��
y�,�Hg%:ș&44AE5,0,k%,X%,Y%,,eh%�,,d%:Ȏd%�
y��Eg%:�ab%��Sb(-1):�Tb
y�ș&44ADD,3+2^9,k%,d%,0,,eh%
y��Fg%:�bb%��Sb(1):�Tb
y�ș&44ADD,3+2^9,k%,d%,0,,eh%
y��Gg%:�Ub
z�
z�
z�
z�
z#t��Fb:�c%:�h(Bf%):�T(k%):�U(3):�Vb(Hb%,O%,jl%,�):�V(k%,Og%):ș&44AD4,1,k%,Qg%�c%:�s(Pg%,k%,0):�d(c%+40):�Rb:�Wb:�
z�+��Wb:�Xb:!g%=dh%:ș&400CB,,g%:�Yb(g%):�
z���Zb:�x:�A:�r:�
{��u(x%,q%):�x%>=0�
{:d$="s"+a$(x%)
{L�:�q%>3�q%+=1
{Ud$="st"+�(q%):q%+=8
{p�
{p�_b(d$):!Nj%=q%:Ib%=q%:�
{���Rb:�Ib%>7�
{��Ib%>12�
{�2�u(-1,Ib%-9):ș&44ADD,7+512,k%,zg%+Ib%-3,,,eh%
{�4�:�u(-1,Ib%-8):ș&44ADD,7+512,k%,zg%+Ib%-2,,,eh%
{��
{�;�:ș&44ADD,7+512,k%,zg%+Ib%-1,,,eh%:�u(b%(3,Ib%-1),Ib%)
|�
|�
|$)��`b(H%,J%,s%):!Li%=H%:!Mi%=J%:�Bj%:�
|l|��ac(H%,J%,s%):�e%:�e%=0�Gg%:ș&44AE0,,eh%+4+32*e%,s%:�:�W(H%,J%):�X(H%,J%):ș&400E6,7:ȓH%+`g%,J%+ch%,bh%-`g%,ah%-ch%:�
|�_��x:�m:Kb%=�:�g:ș&44ADD,7,k%,Mg%,1:ș&44ADD,3,k%,Kg%,0:A%=-1:B%=-1:�Fj%:Ub%=�:�bc:�cc(�):�
}D��L(ok%):�e%:�Ub%�
}hș&44ADD,7,k%,Kg%,1:!Tj%=0
}��:!Tj%=1
}��
}��cc(�Ub%):kl%=-1:�ok%=1�
}�6ș&44ADD,7,k%,Lg%,1:A%=0:B%=0:�Fj%:!Rj%=-1:!Sj%=u%
}�H�:ș&44ADD,7,k%,Jg%,1:A%=(u%-1)�M%:B%=(u%-1)�M%:�Fj%:!Rj%=u%:!Sj%=u%
~�
~^Kb%=�:ll%=ok%:�g:!tj%=Yb%:ș&401C0:�m:ml%=lb%:nl%=-mb%:�e%=0�mb%:A%=e%*Q%:�ll%=1��Uj%��Vj%
~��:�dc:�t:ol%=-100:�
~�O��Sb(A%):!g%=dh%:ș&400CB,,g%:g%!24+=A%*(Ob%+Rb%)*-1:�Yb(g%):ș&400C5,,g%:�
~���ec(d%):Ȏd%�
�Pg%:�s(d%,k%,1)
*�Ug%:�v(k%,3)
3�Tg%:�v(k%,2)
<�Sg%:�s(d%)��fc
<�Rg%:�s(d%)��n(0,3)
E�Wg%:�s(d%)��n(1,3)
N�Vg%:�h(k%):�Zb
r�-1:�ib
{$�-2:ș&44ADD,3+2^9,k%,Gg%,0,,eh%
��
��
���gc:�_i%:�
�b��Xb:�_b(d$):ș&44AE2,262+2^11,U%,"s?",,,,si%,ti%:ș&44AE2,262+2^11,U%,"Pointer1",,,,Gj%,Hj%:�
�ݤm:�Z%,A%:Z%=Ə:�ll%=1�
�/�Z%<ml%�
�8*�e%=1�mb%:A%=lb%+e%*Q%:�Uj%:�:nl%+=mb%
�n�
�nA%=(Z%�Q%)+nl%:�A%>=u%�
���Ub%�nl%-=u%
���
���:�Z%<ml%�
��*�e%=1�mb%:A%=lb%+e%*Q%:�Vj%:�:nl%+=mb%
���
��A%=(Z%�Q%)+nl%:�A%<0�
���Ub%�nl%+=u%
���
���
�ml%=Z%:=Z%
�+%��hc:�Z%,A%,yk%,zk%:Z%=�m:�ll%=1�
�FA%=(Z%�Q%)+nl%:�A%<>kl%�
�Xkl%=A%:�A%>=u%�
�j	�Ub%�
�sA%-=u%:nl%-=u%
���:�x:A%=-100
���
���
��7B%=A%�M%:A%=A%�M%:�Fj%:�A%<>ol%��Ub%��ic(A%):ol%=A%
���
��#�:A%=u%-(Z%�Q%)-nl%-1:�A%<>kl%�
��kl%=A%:�A%<0�
�	�Ub%�
�A%+=u%:nl%-=u%
�0�:�x:A%=-100
�B�
�B�
�K7B%=A%�M%:A%=A%�M%:�Fj%:�A%<>ol%��Ub%��ic(A%):ol%=A%
�o�
�x�
���
����dc:�Kb%�
��!ș&400D3,,g%:Fb%=�:�g%!0<>k%�
��<pl%=g%!0:ql%=g%!4:rl%=g%!8:sl%=g%!12:tl%=g%!16:ul%=g%!20
���
��ș&400D2,k%,-1,-200,200,0,0
��
��
���jc:Fb%=�:�
�>��bc:�Fb%�(�Kb%)�
�Y*Fb%=�:ș&400D2,pl%,ql%,rl%,sl%,tl%,ul%
�t�
�t�
�}@��kc(d%,vl%):A%=�"1234567 ",�(vl%)):�A%=0��Kb%�Ib%>7�(�wl%)�
��ș&400DC,s%!24
���:�A%=8�A%=Ib%
��C%=�m:�ll%=1�
���K(A%,(C%�Q%)+nl%,�)
���:�K(A%,u%-(C%�Q%)-nl%-1,�)
���
���
��
�
��K(A%,B%,xl%):�Yc%��l(3)
�(�B%>=u%�
�1	�Ub%�
�:
B%-=u%
�L�:�
�U�
�^�
�g�(Jj%)=0�
�p6�b("Not allowed that many instruments at once.",�)
���:�lc(B%,A%,�,xl%)
���
���
��2��lc(B%,A%,yl%,xl%):�C%,D%,E%:�yl%�E%=Yb%�E%=0
��	�Kb%�
���ll%=1�
��+C%=�m�Q%:D%=B%:�D%<nl%+C%�(�xl%)�D%+=u%
��fȕ(nl%+C%<=D%�D%<=nl%+mb%*2)�xl%:ș&401C1,(D%-nl%)*Q%,0,(E%<<16�A%),(!Xj%�!Wj%<<16):D%+=u%:xl%=�:�
�$2�:C%=�m�Q%:D%=u%-B%-1:�D%<nl%+C%�(�xl%)�D%+=u%
�?fȕ(nl%+C%<=D%�D%<=nl%+mb%*2)�xl%:ș&401C1,(D%-nl%)*Q%,0,(E%<<16�A%),(!Xj%�!Wj%<<16):D%+=u%:xl%=�:�
�u�
�u*�:ș&40186,(E%<<16�A%),(!Xj%�!Wj%<<16)
���
��-�xl%�ș&40186,(E%<<16�A%),(!Xj%�!Wj%<<16)
���
����mc(n%,Ek%):�A%,B%:�Ek%�
��	Ȏn%�
��O�0:ș&44ADA,V%,Sb%*M%*8:B%=O%*Hb%:A%=O%:�xj%:ș&44AEB,3,dh%:�ic(0):�x:�l(3)
�2x�Dd%:ș&44ACC,Dd%,zd%�,,Ek%:�e%=1�Ek%:ș&44AC7,Ck%*8,V%,V%+Ck%*e%*8:�:�Vb(Hb%*(Ek%+1),O%,jl%,�):ș&44AEB,3,dh%:�l(3)
�z
�1:�kb(3)
���
���
���
��(��ic(A%):!g%=dh%:ș&400CB,,g%:�A%=0�
��
g%!24=Qb%
��6�:�g%!24<(A%)*(Ob%+Rb%)*-1�g%!24=(A%)*(Ob%+Rb%)*-1
��R�g%!24-(g%!16-g%!8)>(A%+1)*(Ob%+Rb%)*-1�g%!24=(A%+1)*(Ob%+Rb%)*-1+(g%!16-g%!8)
���
���Yb(g%):ș&400C5,,g%:�
�
��Yb(s%):�g%!24>=Qb%�
�%,�ab%�ș&44ADD,4+2^9,k%,Eg%,�,,eh%:ab%=�
�.-�:�ab%�ș&44ADD,4+2^9,k%,Eg%,�,,eh%:ab%=�
�@�
�I*�g%!24<=g%!16-g%!8+(jl%)*(Ob%+Rb%)*-1�
�R,�bb%�ș&44ADD,4+2^9,k%,Fg%,�,,eh%:bb%=�
�[-�:�bb%�ș&44ADD,4+2^9,k%,Fg%,�,,eh%:bb%=�
�m�
�v�
���_b(d$):z$=d$:Ȏd$�
��7�"st2":A%=4:B%=0:C%=(O%-1)*20+2:D%=0:z$="st2"+�(O%)
���"st5":A%=0:B%=8:C%=0:D%=8
���"st6":A%=4:B%=0:C%=4:D%=0
�� �"st7":A%=4:B%=44:C%=4:D%=44
��:A%=0:B%=0:C%=0:D%=0
���
��_ș&44AE3,1+2^11,U%,d$,wb%+A%,wb%+B%,_%�,,_%:ș&44AE3,1+2^11,U%,z$,wb%+C%,wb%+D%,Hc%�,,Hc%:�
��W��Kb(zl%,Al%):�A%,B%,C%,D%,Bl%,Cl%:A%=zl%+Al%*M%:B%=?(A%*8+V%):Bl%=(B%�&F):�Bl%=0��
�3e?(A%*8+V%)=B%-1:Cl%=?(A%*8+V%+Bl%):?(A%*8+V%+Bl%)=0:C%=Al%:D%=zl%:�Yj%:za%=�:�w:�lc(A%,Cl%,�,�):�
��S��Nb(zl%,Al%):�A%,B%,C%,D%,Bl%:A%=zl%+Al%*M%:B%=?(A%*8+V%):Bl%=(B%�&F):�Bl%<2��
��iB%=?(A%*8+V%+Bl%):D%=1:ȕD%<=Bl%:C%=?(A%*8+V%+D%):?(A%*8+V%+D%)=B%:B%=C%:D%+=1:�:C%=Al%:D%=zl%:�Yj%:�
�8}��Lb(zl%,Al%):�A%,B%,C%,D%,Bl%:�u%<=O%��b("Sorry, you can't do that you must leave at least one beat on the screen.",�):�
�\�A%=zl%+Al%*M%:ș&44AC7,u%*8-A%*8-8*O%,A%*8+V%+8*O%,A%*8+V%:ș&44ADA,u%*8+V%-O%*8,8*O%:�nc(Hb%-1):za%=�:Ca%=�:�w:�Kb%��L(ll%)
���
��;��Mb(zl%,Al%):�A%,B%,C%,D%,Bl%,v%:A%=zl%+Al%*M%:�A%>u%�
��v%=(A%-u%)�O%
��
�:v%=1
���
��V�(Hb%+v%)*O%/M%>jl%��b("No room to add any beats, ask your teacher for more.",�):�
��A%<=u%�
�Aș&44AC7,u%*8-A%*8,A%*8+V%,A%*8+V%+8*O%:ș&44ADA,A%*8+V%,8*O%
�+�
�++�nc(Hb%+v%):za%=�:Ca%=�:�w:�Kb%��L(ll%)
�a�
�j9��oc(g$):�i:�x:�g$,".")=0�g$="<MBBeatFiles$Dir>."+g$
��a%=�l(g$):�a%=0��
��*b%=�h(b$,8,a%):�b%<>0��b(�c(b%+4),�):�
��H�b$<>"MBRhythm"�b$<>"MBBeat  "��b("File format not understood.",�):�
��(b%=�a(c%,a%):�b%<>0��b(�c(b%+4),�):�
��i�c%>1��b("This file was made by a newer version of MusicBox. You will need an upgrade to load it.",�)
��*b%=�h(b$,4,a%):ȕb%=0�b$<>"EndX":Ȏb$�
���"Rthm":b%=�U(a%)
��"Inst":b%=�v(3,a%)
��"Temp":b%=�w(3,a%)
��"Volu":b%=�x(3,a%)
�'�"Octa":b%=�y(a%)
�0�"Key ":b%=�z(a%)
�9�"Pent":b%=�B(a%)
�B:b%=�j(a%)
�K�
�K�b%=0�b%=�h(b$,4,a%)
�T�:�b%<>0��b(�c(b%+4),�)
�o#b%=�i(a%):�p:�r:ș&44AEB,3,k%:�
��8ݤU(a%):�b%,v%,A%,B%:b%=�a(v%,a%):�b%=0�b%=�a(A%,a%)
���b%=0�b%=�a(B%,a%)
���b%<>0�=b%
��2ș&44ADA,V%,Sb%*M%*8:b%=�k(V%,v%-16,a%):�Dl%�
��#El%=A%*B%-1:A%=O%:B%=(El%�A%)+1
�#�
�#�A%*B%>jl%*M%�
�,�Bk%�jl%=((A%*B%-1)�M%)+1
�5�
�>.�Vb(B%,A%,jl%,�):ș&44AEB,3,dh%:�ic(0):=b%
�t���Vb(Fl%,Gl%,Hl%,Il%):�c%,Jl%,A%,B%:Jl%=O%:�Hl%>Sb%�Hl%=Sb%:�b("Number of rows reduced to the maximum setting of "+�(Sb%)+".")
��#c%=�:�Hl%<((Gl%*Fl%-1)/M%)�Il%�
���!g%=4:$(g%+4)="Reducing the maximum number of rows for the Beat Box will truncate the present tune. Shall I continue and reduce it?"+�0:ș&400DF,g%,%11011,o$�,c%:c%=(c%=1):�c%�Fl%=M%*Hl%/Gl%
���
���c%�
��!Aj%=Hl%:jl%=Hl%
��
��O%=Gl%:Hb%=Fl%:u%=Gl%*Fl%:!Mj%=Gl%:!Lj%=(u%-1)�M%+1:!Kj%=(u%-1)�M%:ș&44ADA,V%+u%*8,Sb%*M%*8-u%*8:B%=Gl%*Fl%:A%=Gl%:�xj%:ș&44AEB,3,dh%:�!Nj%=10�w%=3��_b(d$)
���w%=3�((Jl%<>O%)�Il%)�
���Gl%>4�
���y(O%,hb%)
���:�y(O%,gb%)
���
���
��	�Wb:�
��^��pc(S%,Kl%):�e%,e,c,d:Ll%=Kl%:!Ij%=Kl%:!yj%=S%:Ob%=S%:�e%=1�8:d=Mb%:c=d*e%-Mb%:�c>S%-Mb%�
�?c=S%-Mb%:d=c/(e%-1)
�Z�
�Z;�e=0�7:!(Cj%+e%*32-32+e*4)=c-d*(e):�:�:ș&44AEB,3,dh%:�
��|��nc(Fl%):�A%,B%:Hb%=Fl%:u%=O%*Hb%:!Lj%=(u%-1)�M%+1:!Kj%=(u%-1)�M%:B%=u%:A%=O%:�xj%:ș&44AEB,3,dh%:�!Nj%=10�w%=3��_b(d$)
��
�A��Ob(zl%,Al%,Ml%):�A%,B%,C%,D%,Bl%,Cl%:A%=zl%+Al%*M%:�Ml%=14�
�D&B%=?(A%*8+V%):Bl%=(B%�&F):�Bl%=0��
�_�?(A%*8+V%)=B%-1:Cl%=?(A%*8+V%+Bl%):?(A%*8+V%+Bl%)=0:C%=Al%:D%=zl%:�Yj%:�lc(A%,Cl%,�,�):!di%=Cl%:�Wa("st7_copy2"):�w:�u(-1,6):za%=�:�w
���:B%=A%:A%=!di%:�B%>=u%�
��	�Ub%�
�
B%-=u%
��:�
��
�%�
�.�(Jj%)=0�
�76�b("Not allowed that many instruments at once.",�)
�I)�:�lc(B%,A%,�,�):�w:�u(-1,5):za%=�:�w
��
��
���
��#��Ub:�A%,B%,C%,D%:�Kb%�Ib%>7��
��A%=Ib%:C%=�m:�ll%=1�
���K(A%,(C%�Q%)+nl%,�)
���:�K(A%,u%-(C%�Q%)-nl%-1,�)
���
��,ș&44ADD,3+2^9,k%,Gg%,1,,eh%:�e(k%,-2):�
�-��w:ș&44AE3,6,Hc%,dh%:ș&44AE3,6,_%,k%:�
�<ݤs(d%):�y%:Ȏd%�
�`�Bg%:y%=Gk%
�r�Bg%+1:y%=Hk%
�{�Bg%+2:y%=Ik%
��
�Cg%:y%=�
���Dg%:y%=Kk%
���Sg%:y%=Lk%
���Rg%:y%=Mk%
���Wg%:y%=Nk%
���
���y%��I
��=y%
��S��fc:�A%:Ck%=u%:�Ck%<1�Ck%>jl%*M%/2��c("No room to copy the present rhythm."):�
��5Dk%=(jl%*M%/Ck%)-1:ș&44ACB,Dd%,zd%,1:�n(Dd%,3):�
�'��Tb:�A%,B%,C%:�:ȗA%,B%,C%:�C%=0:�
�S��cc(A%):Jb%=A%:�A%�
�w
!dk%=2
���:!dk%=1
���
���
�����qa:�Nl%:�b%(3,8):ș&40140,0,208,48:ș&40140,8:�Nl%=0�7:�Ol%=0�3:�J(Ol%,Nl%+1,Nl%):�:�:�Ol%=0�3:�J(Ol%,8,4):�:ș&6018A,8,"StringLib-Hard":�
�4V��J(j%,q%,x%):�Cl%,e%:Cl%=b%(j%,q%-1):b%(j%,q%-1)=x%:�e%=0�7:�b%(j%,e%)=Cl%�Cl%=-1
�|6�:�Cl%<>-1�c%(Cl%)=((c%(Cl%)�2^(j%+27))�2^(j%+27))
��-c%(x%)=c%(x%)�2^(j%+27):�w%=j%��qc(q%,j%)
���
��.��U(j%):�e%:w%=j%:�e%=0�7:�qc(e%+1,j%):�:�
����qc(q%,j%):�A%,x%:�q%=8��
�"x%=b%(j%,q%-1):�b$(x%)="Rest"�
�'ș&40185,q%,0
�9'�:ș&6018A,q%,b$(x%)�;P%:�(P%�1)=1�
�K�rc(x%,q%,j%)
�]�
�]�
�f8ș&40185,q%,0�,A%:ș&40185,q%,A%:?(mj%+q%)=A%:�q%<8�
��J$(kc%+26*(q%-1))="S"+a$(x%)+",P"+a$(x%):$(qi%+(q%-1)*16)="S"+a$(x%)+�0
���
���
��@ݤK(j%,a%):�e%,b$,b%:b%=�f("Inst",a%):�b%=0�b%=�b(20*8+8,a%)
��7�e%=0�7:�b%=0�b%=�f(�b$(b%(j%,e%))+�20," "),20),a%)
��	�:=b%
�2ݤv(j%,a%):�e%,x%,b$,b%,v%,x$,N%:�Pl%�=�j(a%)
�#4x$="":b%=�a(v%,a%):�e%=0�7:�b%=0�b%=�k(g%,20,a%)
�G
�b%=0�
�PKg%?20=0:b$=�c(g%):b$=�b$,�b$," ")-1):N%=-1:�x%=0�ea%-1:�b$(x%)=b$�N%=x%
���:�N%=-1�x$=b$:N%=0
��$b%(j%,e%)=N%:�w%=j%��qc(e%+1,j%)
���
���:�x$<>""�pc%=��pc%=�:�b("Some instruments were not found including '"+x$+"'. They have been replaced with '"+b$(0)+"'.",�)
��=b%
��]��rc(x%,q%,j%):�Wc%,i$,X%,Y%,B%,h$,P%,T%:h$=b$(x%):�(c%(x%)�2^26)=0�(c%(x%)�&80000000)=0�
��)�i:�:ș&20008,17,n$+"."+h$�N%:�N%<>1�
�Wi$="Can't use voice '"+h$+"'. Shall use an alternative. ("+n$+"."+h$+" not found.)"
�1@�:笤q�笤r�i$="Can't use that voice. (No voice slots left)"
�:�q�
�C+ș&2001E,0,n$+"."+h$�Wc%;P%:�(P%�1)<>0�
�UP笤r�i$="Can't use voice '"+h$+"'. Shall use an alternative.("+�c(Wc%+4)+")"
�^F�:ș&60185,q%,0�,ja%:ș&6018A,q%,h$�;P%:ș&60185,q%,ja%:�(P%�1)=1�
��bi$="Voice module '"+h$+"' does not contain a voice called '"+h$+"'. Shall use an alternative."
���:c%(x%)=(c%(x%)�2^26)
���
���
��
�:P%=1
���
���
���i$<>""�(P%�1)=0:�p
���
���i$=""�
��J(j%,q%,x%)
��:�b(i$,�):�J(j%,q%,0)
�-�
�-�
�6[ݤr:�e%,Ql%:Ql%=-1:e%=0:ȕe%<Gc%�Ql%=-1:�(c%(e%)�&F8000000)=0�(c%(e%)�2^26)=2^26�Ql%=e%
�ue%+=1:�:�Ql%=-1�
��Re%=0:ȕe%<Gc%�Ql%=-1:�(c%(e%)�2^(w%+27))=0�(c%(e%)�&84000000)=&04000000�Ql%=e%
��e%+=1:�
���
���Ql%=-1�=�
��5ș&2001E,4,b$(Ql%):c%(Ql%)=(c%(Ql%)�2^26)�2^26:=�
��3��H(q%,Sk%,n%,d%):ș&40185,q%,?(mj%+q%):�Sk%<0�
�Sk%=4:Rl%=a%(Sk%)-&1000
�)�:Rl%=a%(Sk%)
�;�
�;5ș&40189,q%,Yb%,Rl%,Xb%:�e(n%,d%):Sl%=d%:Tl%=q%:�
�h'��ib:ș&40189,Tl%,Yb%+2^7,Rl%,Wb%:�
��+��sc:�e%:�e%=1�8:�e%,0,0,1:�:ș&401C0:�
�ԅ��tc(c%):�e%:Ul%=c%:�e%=0�Zb%-1:a%(e%)=�(�"&1955&16AA&1555&12AA&1000&0EAA&0C00&0955&06AA&0555&02AA",e%*5+1,5))+Vl%*&1000:�:�Xa%�
�
�c%>7�
�%jc%-=7:�e%=1�c%:a%(�(�"5263041",e%,1)))=�(�"&0D55&1400&0AAA&1155&1800&0EAA&1555",e%*5-4,5))+Vl%*&1000:�
�R�:�c%>0�
�[d�e%=1�c%:a%(�(�"1403625",e%,1)))=�(�"&1800&1155&1AAA&1400&0D55&16AA&1000",e%*5-4,5))+Vl%*&1000:�
��
��
���
��-�e%=10�7�-1:a%(e%)=a%(e%-7)-&1000:�:�Xa%�
���a%(2)=a%(1):a%(1)=a%(0):a%(0)=a%(6)+&1000:a%(5)=a%(6):a%(6)=a%(7):a%(7)=a%(8):a%(8)=a%(10):a%(9)=a%(5)-&1000:a%(10)=a%(6)-&1000
��
���e%=0�10:!(e%*4+uj%)=a%(10-e%):�:!Xj%=a%(4)-&1000:�e%=0�20:k%(e%)=�(�"&02AA&0555&06AA&0955&0C00&0EAA&1000&12AA&1555&16AA&1955&0400&7FFF&0800&0AAA&0D55&7FFF&1155&1400&7FFF&1800",e%*5+1,5))+Vl%*&1000:�:�
�`9ݤO(a%):�e%,c%,b%:b%=�f("Octa",a%):�b%=0�b%=�b(12,a%)
���b%=0�b%=�b(Vl%,a%)
��=b%
��ݤy(a%):�e%,c%,b%:�Wl%�
��#b%=�a(c%,a%):�b%=0�b%=�a(c%,a%)
��Vl%=c%:�tc(Ul%)
���:b%=�j(a%)
��
�=b%
�9ݤP(a%):�e%,c%,b%:b%=�f("Key ",a%):�b%=0�b%=�b(12,a%)
�8�b%=0�b%=�b(Ul%,a%)
�A=b%
�\9ݤQ(a%):�e%,c%,b%:b%=�f("Pent",a%):�b%=0�b%=�b(12,a%)
�w�b%=0�b%=�b(Xa%,a%)
��=b%
��ݤz(a%):�e%,c%,b%:�Xl%�
��#b%=�a(c%,a%):�b%=0�b%=�a(c%,a%)
��Ul%=c%:�tc(Ul%)
���:b%=�j(a%)
���
��=b%
�ݤB(a%):�e%,c%,b%:�Xl%�
�#b%=�a(c%,a%):�b%=0�b%=�a(c%,a%)
�+Xa%=c%:�c%�c%=0�c%=2
�=!Fi%=c%:Cb%=c%:�tc(Ul%)
�a�:b%=�j(a%)
�s�
�s=b%
��$��uc(d%):�d%=of%��R(t%,d%,X%,Y%)
���d%>=lf%�d%<=mf%�
�� �Ua%<>2��S(((d%-lf%)�_b%)+1)
���
���
��'��vc(p%,d%,X%,Y%):�c%:�(p%�(5<<4))�
��	Ȏd%�
���of%,qf%:�G(t%,d%,X%,Y%)
��
��
��(p%�4)�
�'	Ȏd%�
�0$�df%,ef%,sf%,rf%:�p%<7��e(t%,d%)
�B1�jf%:�l(0):ș&44ADD,7,t%,d%:�ob(t%,if%,df%,0)
�o,�hf%:ș&44ADD,7,t%,d%:�D(t%,if%,df%,0,�)
��D�gf%:ș&44ADD,7,t%,d%:ș&44ADD,7,t%,hf%:Ok%=�:�D(t%,if%,df%,0,�)
��,�ff%:ș&44ADD,7,t%,d%:�D(t%,if%,df%,0,�)
���if%:�o(t%,d%,df%)
��.�of%:ș&44AD4,0,t%,d%,X%,Y%�c%:�d((c%+40))
��)�qf%:ș&44AD4,0,t%,d%,X%,Y%�c%:�q(c%)
��uf%:�Pa%��e(t%,d%)
�#)ș&44AD4,1,t%,of%�c%:c%-=1:�c%<0�c%=0
�>'ș&44AD4,2,t%,of%,c%�c%:�d((c%+40))
�Y�wf%:ș&44AD6,ld%,X%,Y%
�b�vf%:�Pa%��e(t%,d%)
�k-ș&44AD4,1,t%,of%�c%:c%+=1:�c%>255�c%=255
��'ș&44AD4,2,t%,of%,c%�c%:�d((c%+40))
���
���
���
��i��Eb:�h(Bf%):�T(t%):�y(1,gb%):Ok%=�:�U(0):�V(t%,qf%):ș&44AD4,1,t%,of%�c%:�d(c%+40):�t:�s(df%,t%,0):�
�1��wc:�d%:�Ua%<>2�
�U>ș&400CF,,h%:d%=h%!16:�d%>=lf%�d%-lf%<=_b%*Zb%�(h%!8�4)=4�
�p�xc(d%)
��	�:�yc
���
���
���
����xc(d%):�d%<>cc%�
���yc:�_(2,d%)
���
���
����yc:�cc%>-1�
�
�_(3,cc%)
��
��
�%��zc(H%,J%):�W(H%,J%):�X(H%,J%):�
�H"��Ac:�o(t%,if%,df%):�m:�A:�r:�
����Bc(d%):Ȏd%�
���df%:�s(d%,t%,1)
���ef%:�h(t%):�Ac
���sf%:�v(o%,7)
���rf%:�v(o%,6)
���
���
��+��ea:�Yl%:�:ș&400C7,Ma%,mc%�Yl%:ȎYl%�
� �1:�Cc(mc%)
�2�2:�Dc(mc%)
�;�3:�Ec(!mc%)
�D�4:�Fc(mc%)
�M�5:�Gc(mc%)
�V�6:�Hc(mc%)
�_
�7:�Ic
�h�8:�Jc(mc%)
�q�9:�Kc(mc%)
�z�11:�jc
���17,18:�Lc(mc%)
���
���Yl%<>17�Yl%<>18��bb
��
�va%:�
����Gc(s%):Ȏ!s%�
��
�o%:Ka%=�
��
�l%:Qa%=�
��
�t%:La%=�
���k%,dh%:Ta%=�:�dc
��
�m%:vc%=�
���
���g:�
�
8��Fc(s%):�A%,Zl%:Zl%=�:A%=!s%:�A%=ld%�ș&400C6,,s%:�
�@Ȏ��
�I�Ka%:�ab:Ka%=�:Zl%=�
�vN�Ta%:ș&400CF,,g%:�(g%!12<>dh%�g%!12<>k%)�(g%!12=A%�A%=k%)��gc:Ta%=�:Zl%=�
���Qa%:�tb:Qa%=�:Zl%=�
���La%:La%=�:Zl%=�
���vc%:vc%=�:�Mc
���
���g:�Zl%=��
��
A%=0:�bj%
��
��
�!��Ec(A%):�h(A%):ȎA%�
�E�Bf%:�Gb
�W�t%:�Ac
�`
�o%:�Y
�i�vd%:�r
�r�l%:�vb
�{�k%:�Zb
���
���
����Lc(s%):Ȏs%!16�
���0:va%=�
���8:�Zc%�_c%�Yc%�Xc%�
��&�n(2,-1):s%!12=s%!8:ș&400E7,19,s%
���
��M�3:�b("Loading via dragging not implemented yet. Try double clicking.",�)
���5:�Nc(s%)
��&400C1:�ca
��
��
�\��Hc(s%):�p%,n%,d%,X%,Y%:X%=s%!0:Y%=s%!4:p%=s%!8:n%=s%!12:d%=s%!16:�n%<>Mf%�ș&44ACE,,s%
�\�(p%�2)�
�e	Ȏn%�
�n�-2:�`(Wh%,X%-50,96+44*3)
���t%:�uc(d%)
���o%:�Ta(d%,X%,Y%)
���l%:�lb(d%,X%,Y%)
���k%:�Pb(d%,X%,Y%)
���m%:�Oc(d%,X%,Y%)
���ld%:�h(ld%)
���
���:Ȏn%�
���-2:�Aa%��A
���t%:�vc(p%,d%,X%,Y%)
���k%:�Qb(p%,d%,X%,Y%)
���Mf%:�yb(p%,d%)
���Bf%:�Db(p%,d%)
���o%:�Ua(p%,d%,X%,Y%)
��l%:�nb(p%,d%,X%,Y%)
��vd%:�Pc(p%,d%)
��Me%:�Qc(p%,d%,X%,Y%)
�"�`%:�Rc(p%,d%,X%,Y%)
�+�Od%:�Sc(p%,d%,X%,Y%)
�4�m%:�Tc(p%,d%,X%,Y%)
�=�We%:�Uc(p%,d%,X%,Y%)
�F�dh%:�Jb(p%,X%,Y%)
�O�_a%:�Vc(p%,d%)
�X�jd%:�Wc(p%,X%,Y%)
�a�ld%:�h(ld%)
�j�
�j�
�s�n%<>Mf%�ș&44ACF,5
�|�
����Ic:�A%:Ȏ��
���(Ja%<>0):�Xc
���Ia%:�Yc:Ia%=�
���Sa%:A%=�(V$):Sa%=�
���
���g:�
����Zc(W$):Sa%=�:V$=W$:ȗX%,Y%,B%:h%!4=7:h%!8=X%:h%!12=Y%:h%!16=X%:h%!20=Y%:h%!24=0:h%!28=0:h%!32=wc%:h%!36=xc%:ș&400D0,,h%:�
����e(n%,d%):�X%,Y%,B%:�d%<0�
��#ȗX%,Y%,B%:ș&44AD9,X%,Y%,X%,Y%
���:ș&44ADD,3,n%,d%,1
���
��Pa%=�:_l%=n%:`l%=d%:�g:�
���_c:ș&400CF,,h%:�`l%<0�
�5�h%!12<>_l%�(h%!8�7)=0�
�>�`c:ș&44AD9,,-2
�Y�
�Y(�:�h%!12<>_l%�h%!16<>`l%�(h%!8�7)=0�
�k�`c:ș&44ADD,3,_l%,`l%,0
���
���
���
����`c:Ȏ_l%�
���o%:�gb(`l%)
���k%:�ec(`l%)
���Mf%:�Cb(`l%)
���t%:�Bc(`l%)
���l%:�wb(`l%)
���m%:�ad(`l%)
���vd%:�bd(`l%)
���_a%:�cd(`l%)
��
�Pa%=�:�g:�
���bb:�A%:�za%�
�C	za%=�
�U�:�Ua%<>0��dd
�^�Pa%��_c
�g�La%��wc
�p�qa%��E(Ə,(cl%�qa%))
�y�Ia%��Yc
���Ka%��ab
���Ta%��gc
���Qa%��tb
���yb%��db
���Kb%��hc
���Ra%��ed
���vc%��Mc
���
��.A%=&20+&20+&2:șA%�A%:�ub%=-1�ub%=A%+89975
���A%>ub%��b(�(117),�):va%=�
���
��C��Yc:�X%,Y%,B%,c%:ȗX%,Y%,B%:ș&44AD4,0,qc%,rc%,X%,Y%�c%:Ȏqc%�
�H�m%:Ȏrc%�
�ZT�he%:ș&44ACB,m%,ge%,(c%-128)*4096/128:ș&40187,(c%-128)*4096/128+ya%:sc%=-1:�Mc
���ie%:�fd(c%)
���
���t%:Ȏrc%�
���of%:�d((c%+40))
���qf%:�q(c%)
���
���o%:Ȏrc%�
���gg%:�d((c%+40))
���`f%:�q(c%)
���
���l%:Ȏrc%�
��uh%:�d((c%+40))
� �yh%:�q(c%)
�)�
�)�k%:Ȏrc%�
�;�Qg%:�d((c%+40))
�M�Og%:�q(c%)
�V�
�V�
�_�
�h8��gd(A%):!h%=A%:ș&400CB,,h%:h%!28=-1:ș&400C5,,h%:�
�� ��Dc(s%):ș&44AE7,0,s%,Nh%:�
��4��Kc(s%):�am%:ș&400CF,,g%:�(g%!8�1)�am%=1�am%=2
��
�s%!4=-1�
�
Ȏbm%�
�
�Wh%:Ȏ!s%�
�*�0:ș&400D4,,kd%,g%!0-50,g%!4+50:am%=3
�.
�1:�hd
�7
�2:�id
�@�
�@�Xh%:�jd(!s%)
�R�Yh%:�Hb(!s%)
�[�
�[�
�d
Ȏam%�
�m�1:ș&400D4,,bm%
��2:ș&400D4,,-1
���
���
��-��`(A%,X%,Y%):ș&400D4,,A%,X%,Y%:bm%=A%:�
��'��h(A%):g%!0=A%:ș&44AE7,1,g%,Nh%:�
����Jc(s%):Ȏ!s%�
��vd%:�kd(s%!4,s%!24)
��k%:�kc(s%!4,s%!24)
�!:ș&400DC,s%!24
�*�
�*�
�3M��g:�La%�(Ua%<>0)�Qa%�Pa%�yb%�Kb%�qa%�Ia%�Ka%�Ra%�Ta%�vc%�Ma%=Na%�Ma%=Oa%
�N�
�WD��G(n%,d%,X%,Y%):ș&44AD4,3,n%,d%,X%,Y%:rc%=d%:qc%=n%:Ia%=�:�g:�
�����ca:�cm%:ș&35,-1,4�,,nk%:ș&35,-1,5�,,dm%:ș&35,-1,9�,,cm%:ș&35,-1,11�,,em%:ș&35,-1,12�,,fm%:nk%=2^nk%:dm%=2^dm%:em%=(em%+1)*nk%:fm%=(fm%+1)*dm%:�fm%<>xc%�em%<>wc%�Ra%=�:�g
�<xc%=fm%:wc%=em%:�((nk%<>!Ni%)�(dm%<>!Oi%)�(cm%<>yc%))��
�/&yc%=cm%:!Ni%=nk%:!Oi%=dm%:�w%=1��z
�\�Ib:�w%=2��rb
�n
�w%=3��Xb
�w�
��+��Cc(s%):�X%,Y%,A%,H%,J%:!g%=!s%:Ȏ!g%�
���jd%:�ld
��O:ș&400C8,0,g%�A%:H%=g%!4-g%!20:J%=g%!16-g%!24:ȕA%<>0:ș&44ACD,,g%:Ȏ!g%�
���t%:�zc(H%,J%)
��o%:�`a(H%,J%,g%)
��k%:�ac(H%,J%,g%)
��l%:�sb(H%,J%,g%)
�"�dh%:�`b(H%,J%,g%)
�+�
�+ș&400CA,,g%�A%:�
�F�
�F)�!g%=dh%�Ca%�ș&44AE3,7,Hc%,dh%:Ca%=�
�O"ș&40+2�B%:�Eb%<0�Eb%=B%+89980
�a
�B%>=Eb%�
�j!A$=�3,1,"You"):�b(A$,�):va%=�
���
���
��R��ed:�e%:Ra%=�:�e%=0�gd%:h%!0=f%(e%,0):ș&600CB,,h%:�(h%!32�2^16)=2^16��md(e%)
��
�:�g:�
��.��T(n%):�e%:�e%=0�gd%:�f%(e%,0)=n%��md(e%)
�'�:�
�9���md(gm%):�hm%,X%,Y%,n%,af%,S%,im%,jm%:n%=f%(gm%,0):af%=f%(gm%,1):S%=f%(gm%,2):im%=f%(gm%,3):jm%=f%(gm%,4):A%=�:!h%=n%:�Ba%�
��X%=wc%:Y%=xc%
��4�:X%=-1:Y%=-1:ș&400CB,,h%:�(h%!32�2^16)<>0�A%=�
���
���X%<af%�X%=af%
���Y%<S%�Y%=S%
���A%�
��h%!4=wc%/2-X%/2:h%!8=xc%/2-Y%/2:h%!12=wc%/2+X%/2:h%!16=xc%/2+Y%/2:h%!20=im%-X%/2+af%/2:h%!24=jm%+Y%/2-S%/2:h%!28=-1:ș&44AE7,0,h%,Nh%
�>�
�>
�Ba%�
�GHș&400CB,,h%:h%!100=n%:ș&400E0,,h%+100:�h%!104<0�h%!12-=h%!4:h%!4=0
�k �h%!108<0�h%!16-=h%!8:h%!8=0
�t�h%!112>wc%�
�}*h%!4-=(h%!112-wc%):h%!12-=(h%!112-wc%)
���
���h%!116>xc%�
��*h%!8-=(h%!116-xc%):h%!16-=(h%!116-xc%)
���
��"ș&400C6,,h%:ș&44AE7,0,h%,Nh%
���
���
����oa(j%):�q$,n%:Ȏj%�
�!�0:q$="Sound Box - "+C$:n%=t%
� �1:q$="Tune Box - "+v$:n%=o%
�!�2:q$="Chord Box - "+D$:n%=l%
�( �3:q$="Beat Box - "+B$:n%=k%
�1�
�1!q$+=�E(j%):ș&44AEB,1,n%,q$:�
�LݤE(j%):�y%:Ȏj%�
�p
�0:y%=Zc%
��
�1:y%=Xc%
��
�2:y%=_c%
��
�3:y%=Yc%
���
���y%�=" *"�=""
����l(j%):�E(j%)=" *"��
��	Ȏj%�
���0:Zc%=�
���1:Xc%=�
���2:_c%=�
���3:Yc%=�
���
��
�oa(j%):�
�	(��id:�Zc%�_c%�Yc%�Xc%��n(2,-1)�va%=�
�$�
�-1��Pc(p%,d%):�Tk%,X%,Y%,B%,T%:�p%=4*16�d%=nd%�
�Z�
�l�
�u�p%>7��
�~	Ȏd%�
���pd%:�e(vd%,d%)
���qd%:�e(vd%,d%)
��B�7:ș&44ADD,2,vd%,od%,"Competition":ș&400D2,vd%,od%,0,0,-1,11
���
���
����v(n%,km%):�y%:Ȏkm%�
��
�1:y%=Xc%
�
�3:y%=Yc%
�
�5:y%=_c%
�
�7:y%=Zc%
� 
:y%=�
�)�
�)�y%�
�2lm%=n%:mm%=km%:�n(3,-2)
�V�:�nd(n%,km%)
�h�
�h�
�q&��nd(n%,km%):�c$,t$,a$:�(km%�1)=1�
��c$="Load":�nm%��I:�
���:c$="Save":�om%��I:�
���
��
Ȏkm%�
���0,1:t$="Tune":a$=v$
���2,3:t$="Beat":a$=B$
���4,5:t$="Chord":a$=D$
���6,7:t$="Sound":a$=C$
��
��c$="Load"�a$=""
�
"ș&44ADD,2,vd%,od%,a$:�W(t$)�
�^lm%=n%:pm%=km%:ș&44AEB,1,vd%,c$+" File":ș&44AE7,2,vd%,Nh%,-1,0:ș&400D2,vd%,od%,0,0,-1,0
�R�
�R�
�[��r:�h(vd%):�od:�
��yݤW(c$):�N%,u$,a$,A%,B%:�od:ș&20023,"MB"+c$+"Files$Dir",h%,-1,0,0�,,A%:�A%>=0��("*SET MB"+c$+"Files$Dir "+k$+"."+c$)
��Bu$="<MB"+c$+"Files$Dir>":ș&8,17,u$�N%:�N%=0�ș&20008,8,u$,,,0
��vș&8,17,u$�N%:�N%<>2��b("Load / Save window can not be opened because no '!MBFiles' directory can be found.",�):=�
��Q!g%=1:g%!4=Da%:ș&64AEA,0,u$,g%,"*",pa%�A%,Vb%;P%:�(P%�1)=1��b(�c(A%+4),�):=�
�M�A%=-1��c("Due to lack of memory, the list of files has been truncated.")
�C!Sh%=!(!Vb%):Qh%!8=Vb%:ș&44AE8,0,Th%,Qh%:jd%=!Qh%:!Ph%=!Qh%:=�
�iO��ld:!g%=jd%:g%!76=-2:ș&44AE8,3,g%,Qh%�A%:ȕA%<>0:ș&44AE8,3,g%,Qh%�A%:�:�
����od:�jd%<>0�
��!g%=jd%:ș&400C3,,g%:jd%=0
���
���Vb%<>0�
��ș&44AC3,,Vb%:Vb%=0
��
��
���bd(d%):Ȏd%�
�/�pd%:�pd
�A�qd%:�r
�J�
�J�
�S=��Wc(p%,X%,Y%):ș&44AE8,2,,Qh%,X%,Y%�,,,X%,Y%:�X%=0�Y%>0�
�wcș&44ADD,2,vd%,od%,(!Vb%+4+16*Y%-16):ș&400D2,vd%,od%,0,0,-1,�(�c(!Vb%+4+16*Y%-16)):�(p%�5)<>0�
���pd
��D�:?(!Vb%+4+16*Y%-4)=1:�qd(X%,Y%):�Zc("FNA("+�(X%)+","+�(Y%)+")")
���
���
���
��0ݤA(X%,Y%):?(!Vb%+4+16*Y%-4)=0:�qd(X%,Y%):=0
�"K��qd(X%,Y%):ș&44AE8,4,g%,Qh%,X%,Y%�A%:ȕA%<>0:ș&44AE8,3,g%,Qh%�A%:�:�
�Od��pd:�a$:ș&44ADE,2,vd%,od%,h%,256:a$=�c(h%):�a$=""��c("Please type a name in the white box."):�
���a$="Competition"�pm%=0�
��A%=�X(a$):ȎA%�
���1:�n(4,-4)
���2:�rd(a$)
���
��
�:�rd(a$)
���
���
�ߗ��sd:�a$,l$:ș&44ADE,2,vd%,od%,h%,256:a$=�c(h%):l$=�C(a$):ș&20008,6,l$�A%;P%:�(P%�1)<>0��b("Sorry I can't overwrite the file. ("+�c(A%+4)+")",�):�
�'
�rd(a$):�
�9��rd(a$):�j%,A%:�(pm%�1)=1�
�]eș&8,17,�C(a$)�A%:�A%<>1��c("File '"+a$+"' does not exist. Please try a different file."):j%=-2:�
�o�
�x
Ȏpm%�
���0:�a$="Competition"�
���eb:v$=a$:Xc%=�:j%=1
��N�:�c("Click on the competition icon and OK to save from this demo."):j%=-2
���
��/�1:�a$="Competition"�a$="<MusicBoxD$Dir>.1"
��v$=a$:Xc%=�:j%=1:�fb(a$)
��B�2:�c("You can not save beat box files from this demo."):j%=-4
���3:�a$="Competition"�
��<�c("The competition file only works in Tune Box."):j%=-4
��:�oc(a$):B$=a$:Yc%=�:j%=3
��
�C�4:�c("You can not save chord box files from this demo."):j%=-3
�,�5:�a$="Competition"�
�5<�c("The competition file only works in Tune Box."):j%=-4
�G�:�F(a$,2):D$=a$:_c%=�:j%=2
�Y�
�YC�6:�c("You can not save sound box files from this demo."):j%=-1
�k�7:�a$="Competition"�
�t<�c("The competition file only works in Tune Box."):j%=-4
���:�F(a$,0):C$=a$:Zc%=�:j%=0
���
���
���j%>0��oa(j%)
���
����kd(d%,vl%):�vl%=13�
���pd
���:ș&400DC,s%!24
���
���
����Nc(s%):�s%!40<>Da%��
�;s%!12=s%!8:s%!16=4:ș&400E7,17,s%,s%!4:�td(�c(s%+44)):�
�C:��td(e$):�A%,Vh%,xa%:ș&8,17,e$�A%,,,,xa%:�A%=1�xa%>4�
�p6Vh%=�(e$):A$="":�A%=1�8:A$+=�(�#Vh%):�:�#Vh%:ȎA$�
��"�"MBCompos","MBTune  ":�fb(e$)
��"�"MBRhythm","MBBeat  ":�oc(e$)
���"MBSound ":�F(e$,0)
���"MBChord ":�F(e$,2)
��
:A%=0
���
��
�:A%=0
��
�.�A%=0��b("Music file not understood.",�):�
�	�
�ݤJ(a$):=�D(a$,�)
�?0ݤD(a$,qm%):�N%,A%:ș&20008,17,a$�N%:�N%<>0�
�Z�N%<>1�
�cR�b("File already exists as a directory. Please choose a different name.",�):=0
�u�:A%=1:�qm%�
��]$(g%+4)="File already exists. Do you want to overwrite it?"+�0:ș&400DF,g%,%011011,o$�,A%
���
��
�A%<>1�=0
��3ș&20008,6,a$�A%;P%:�(P%�1)=1��b(�c(A%+4),�):=0
���
���
��5ș&2000D,&83,a$�A%;P%:�(P%�1)=1��b(�c(A%+4),�):=0
��=A%
�D&ݤf(b$,a%):$g%=b$:=�u(g%,�(b$),a%)
�h ݤb(l,a%):!g%=l:=�u(g%,4,a%)
��Lݤu(wa%,xa%,a%):�P%,A%,B%:ș&2000C,2,a%,wa%,xa%�B%,,,A%;P%:�(P%�1)=1�=B%
��3�A%<>0�!g%=4:$(g%+4)="No space on disc."+�0:=g%
��=0
�*ݤR(a$):�P%,A%:�Y(a$,"Defaults",8)�=0
�*ș&20008,18,a$,Da%�A%;P%:�(P%�1)=1�=A%
�%=0
�@3ݤh(�b$,xa%,a%):�A%:A%=�k(g%,xa%,a%):�A%<>0�=A%
�[,b$="":�A%=0�xa%-1:b$=b$+�(?(g%+A%)):�:=0
�!Eݤj(a%):�b%,c%:b%=�a(c%,a%):ș&20009,0,a%�A%,,B%;P%:�(P%�1)=1�=A%
�E-ș&20009,1,a%,B%+c%-8�A%;P%:�(P%�1)=1�=A%
�W=b%
�rtݤY(Q$,R$,xa%):�rm%,I%:rm%=�:sm%=�(Q$):tm%=�(R$):�I%=0�xa%-1:�(�(�Q$,sm%-I%,1))�32)<>(�(�R$,tm%-I%,1))�32)�rm%=�
��
�:=rm%
��:ݤX(a$):�c$,N%:a$=�C(a$):ș&20008,17,a$�N%:�(pm%�1)=1�
���N%<>0�
���N%<>1�
�d�c("Sorry, I can't use that name because it is a directory. Please choose a different name."):=0
��:=2
�&�
�&�
�/F�c("That file does not exist. Please choose a different name."):=0
�A
�:�N%<>0�
�J�N%<>1�
�Ss�c("Sorry, I can't use that name because it already exists as a directory. Please choose a different name."):=0
�e�:=1
�w�
�w�
���
��=2
��ݤC(a$):Ȏpm%�
���0,1:c$="Tune"
���2,3:c$="Beat"
���4,5:c$="Chord"
���6,7:c$="Sound"
���
��,�a$="Competition"�a$="<MusicBoxD$Dir>.1"
��,�a$,".")=0�a$="<MB"+c$+"Files$Dir>."+a$
��=a$
���Oc(d%,X%,Y%):Ȏd%�
��Zd%:�`(Xh%,X%,Y%)
�+�_d%:�e(m%,_d%)
�4�
�4�
�=!��jd(c%):�c%>=0�c%<=14��M(c%)
�X�
�aݤn(p%,d%,X%,Y%):X%=�:Ȏd%�
��'�Ee%:ș&40187,um%:�(p%�4)=4��ud��vd
���De%:�(p%�4)=4��ud
���wd:�xd
���Fe%:�(p%�4)=4��ud
���wd
���xe%:�N(`%)
���ye%:�N(m%)
���ze%:�N(Od%)
��Ae%:�N(Me%)
��Be%:�N(We%)
��Ce%:�yd:�(p%�4)=4��ud��vd
�'	X%=�
�9�
�9=X%
�T&��Sc(p%,d%,X%,Y%):�c%,A%,A$:�p%�5�
�f笤n(p%,d%,X%,Y%)�
�o	Ȏd%�
�x"�Ld%-1,Ld%+1,Ld%:�d%=Ld%�d%-=1
��vm%+=Ld%-d%:�vm%>2�vm%=0
���vm%<0�vm%=2
��ș&44ADD,1,Od%,Ld%,�F(vm%)
��-�Id%-1,Id%+1:ș&44ACA,Od%,Id%,Id%-d%,16,1
��,�Jd%-1,Jd%+1:ș&44ACA,Od%,Jd%,Jd%-d%,7,1
��1�Kd%-1,Kd%+1:ș&44ACA,Od%,Kd%,Kd%-d%,vb%/24,1
���
���
���
���
�&��Qc(p%,d%,X%,Y%):�c%,A%,A$:�p%�5�
�,笤n(p%,d%,X%,Y%)�
�5	Ȏd%�
�>,�Ge%-1,Ge%+1:ș&44ACC,Me%,Ge%�,,c%:Ȏc%�
�Y�6:c%=5
�k�8:c%=6
�t�12:c%=7
�}�
�}c%+=Ge%-d%:�c%<1�c%=7
�c%>7�c%=1
˜	Ȏc%�
¡�5:c%=6
³�6:c%=8
¼�7:c%=12
���
��ș&44ACB,Me%,Ge%,c%
��,�He%-1,He%+1:ș&44ACA,Me%,He%,He%-d%,7,1
��.�Ie%-1,Ie%+1:ș&44ACA,Me%,Ie%,Ie%-d%,Sb%,1
�Q�Je%-1,Je%+1:ș&44ADE,2,Me%,Je%,g%,16:c%=�(�c(g%))*2:c%+=(Je%-d%):�c%<2�c%=14
��c%>14�c%=2
�(#ș&44ADD,2,Me%,Je%,"  "+�(c%/2)
�:�
�:�
�C�
�L�
�U&��Rc(p%,d%,X%,Y%):�c%,A%,A$:�p%�5�
�y笤n(p%,d%,X%,Y%)�
Â	Ȏd%�
Ë'�Pd%:ș&44ADE,3,`%,d%�,,,c%:�zd(c%)
ï?�Qd%,Rd%,Sd%,Td%:ș&44ADD,7,`%,d%:ș&44ADD,4,`%,Ud%,d%<>Td%
��!�Vd%,Wd%,Xd%:ș&44ADD,7,`%,d%
���
���
���
���
�&��Uc(p%,d%,X%,Y%):�c%,A%,A$:�p%�5�
�笤n(p%,d%,X%,Y%)�
�$	Ȏd%�
�-�Ue%,Ve%:ș&44ADD,7,We%,d%
�H�
�H�
�Q�
�Z�
�c-��Tc(p%,d%,X%,Y%):�c%,A%,A$:�(p%�(5<<4))�
ć	Ȏd%�
�ie%:�G(m%,d%,X%,Y%)
ī6�he%:�c("Tuning has been disabled for this demo.")
Ľ�
Ľ�:�p%�5�
��笤n(p%,d%,X%,Y%)�
��	Ȏd%�
��Y�`d%,ae%:ș&44ADD,7,m%,d%:ș&44ACC,m%,be%�,,c%:ș&44ADE,3,m%,ae%�,,,A%:�A%�c%>0�c%+=7
�
�M(c%)
� ��be%-1,be%+1:ș&44ACC,m%,be%�,,c%:c%+=be%-d%:ș&44ADE,3,m%,ae%�,,,A%:�c%<0�c%=7:ș&44ADD,3,m%,ae%,�A%:ș&44ADD,3,m%,`d%,A%:A%=�A%
�D@�c%>7�c%=0:ș&44ADD,3,m%,ae%,�A%:ș&44ADD,3,m%,`d%,A%:A%=�A%
�M�A%�c%>0�c%+=7
�V
�M(c%)
�h�_d%:�e(m%,_d%)
�z*�ie%:ș&44AD4,0,m%,d%,X%,Y%�c%:�fd(c%)
ŕZ�he%,ge%-1,ge%+1,fe%-1,fe%+1,ee%-1,ee%+1:�c("Tuning has been disabled for this demo.")
ŧ�ce%:�M(0)
�
�
���
���
���
��7��ad(d%):�X%,Y%,B%:ȗX%,Y%,B%:�d%=_d%��`(Xh%,X%,Y%)
�
�
���hd:Ȏw%�
�.�0:�o(t%,if%,df%)
�@	�1:�j
�I�2:�o(l%,sh%,wh%)
�R	�3:�x
�[�
�[0wm%=qa%:�m:xm%=0:�vd:ș&44AD6,m%,-1:ym%=m%:�
ƚ��N(n%):�n%=ym%��
ƵB!g%=ym%:ș&400CB,,g%:ș&400C6,,g%:!g%=n%:ș&400C5,,g%:ym%=n%:�
�����vd:�c%:ș&44ADD,3,m%,ce%,Xa%:�M(Ul%):zm%=Vl%:ș&44ACB,m%,fe%,zm%-2:ș&40187,0�um%:ș&44ACB,m%,ge%,um%-ya%:ș&44AD4,2,m%,he%,((um%-ya%)*128/4096)+128:ș&44AD4,2,m%,ie%,pb%*2:Am%=pb%:ș&44ADD,3,m%,ke%,Ba%
�i�ș&44ADD,3,m%,je%,Ya%:ș&44ADD,3,m%,le%,Za%:ș&44ADD,3,m%,me%,cl%:ș&44ADD,3,m%,ne%,Jk%:ș&44ADD,3,m%,oe%,Ik%:ș&44ADD,3,m%,pe%,Hk%:ș&44ADD,3,m%,qe%,Gk%:ș&44ADD,3,m%,re%,Kk%:ș&44ADD,3,m%,se%,Lk%
Ǻ�ș&44ADD,3,m%,te%,Mk%:ș&44ADD,3,m%,ue%,nm%:ș&44ADD,3,m%,ve%,om%:ș&44ADD,3,m%,we%,Nk%:ș&44ADD,3,Od%,Md%,Bm%:ș&44ADD,3,Od%,Nd%,Cm%:ș&44ACB,Od%,Id%,ik%�(2^Db%):ș&44ACB,Od%,Jd%,Dm%:ș&44ACB,Od%,Kd%,W%/24:vm%=Db%
�&�ș&44ADD,1,Od%,Ld%,�F(vm%):ș&44ACB,Me%,Ge%,O%:ș&44ACB,Me%,He%,Ll%:ș&44ACB,Me%,Ie%,jl%:c%=2*Ob%/K%:ș&44ADD,2,Me%,Je%,"  "+�(c%/2):ș&44ADD,3,Me%,Ke%,wl%:ș&44ADD,3,Me%,Le%,il%:�c%=0�3
ȀOș&44ADD,3,`%,Qd%+c%,(ga%�&F)=c%:�:�(ga%�3)=3�ga%>=0�ș&44ACB,`%,Ud%,ga%>>4
ț�ș&44ADD,4,`%,Ud%,(ga%�3)<>3�ga%<0:ș&44ADD,7,`%,Vd%+ha%:ș&44ADD,3,`%,Yd%,ia%:�zd(ga%>=0):ș&44ADD,3,We%,Ne%,Pl%:ș&44ADD,3,We%,Oe%,Em%:ș&44ADD,3,We%,Pe%,Xl%:ș&44ADD,3,We%,Qe%,Wl%:ș&44ADD,3,We%,Re%,hl%
�bș&44ADD,3,We%,Se%,Fk%:ș&44ADD,3,We%,Te%,Dl%:ș&44ADD,3,We%,Ue%,Bk%:ș&44ADD,3,We%,Ve%,�Bk%:�
�"ݤF(A%):ȎA%�
�=�0:="snl1"
�O�1:="snl2"
�X�2:="snl3"
�a�
�a=""
�|_��M(c%):�A$:A$=�" C G D A E BF#C# FBbEbAbDbGbCb",c%*2+1,2)+" Major":�A$,1,1)=" "�A$=�A$,2)
ɗ0ș&44ADD,2,m%,Zd%,A$:�c%>7�Fm%=�:c%-=7�Fm%=�
ɩ
�c%>0�
ɲ	�Fm%�
ɻș&44ADD,7,m%,ae%
���:ș&44ADD,7,m%,`d%
���
���
��=ș&44ACB,m%,be%,c%:ș&44ADE,3,m%,ce%�,,,A%:�A%�A%=-1�A%=0
��ș&44ADD,4,m%,Zd%,A%:ș&44ADD,4,m%,ae%,A%:ș&44ADD,4,m%,`d%,A%:ș&44ADD,4,m%,be%-1,A%:ș&44ADD,4,m%,be%,A%:ș&44ADD,4,m%,be%+1,A%:ș&44ADD,4,m%,_d%,A%:�
�KN��wd:�A%,c%:�i:ș&44ACC,m%,be%�,,c%:ș&44ADE,3,m%,ae%�,,,A%:�A%�c%>0�c%+=7
ʊ%ș&44ADE,3,m%,ce%�,,,A%:�Xa%<>A%�
ʥXa%=A%:�A%�A%=0�A%=2
ʷ!Fi%=A%:Cb%=A%:�w%=1�
���z:A%=0:�wi%
��
��
�Tș&44ACC,m%,fe%�,,A%:Vl%=A%+2:�tc(c%):ș&44AD4,1,m%,ie%�pb%:pb%=pb%/2:�Db%<>vm%�
�G�w%=1��j:�y(2^vm%,gb%)
�PDb%=vm%
�b�
�b%ș&44ADE,3,m%,ke%�,,,A%:�A%<>Ba%�
�}Ba%=A%:Ȏw%�
ˏ�0:�Ac:�Eb
ˡ
�1:�Y:�_a
˪�2:�vb:�qb
˳�3:�Zb:�Fb
˼�
˼�
��hș&44ADE,3,m%,je%�,,,Ya%:ș&44ADE,3,m%,le%�,,,Za%:ș&44ADE,3,m%,me%�,,,cl%:�((�cl%)�(w%>=0))��E(0,�)
��ș&44ADE,3,Od%,Md%�,,,Bm%:ș&44ADE,3,Od%,Nd%�,,,Cm%:ș&44ACC,Od%,Id%�,,ik%:ik%=ik%*(2^Db%):ș&44ACC,Od%,Jd%�,,Dm%:!ck%=Dm%:ș&44ACC,Od%,Kd%�,,A%:A%=A%*24:�A%<>W%�
�Lc%=�:�A%<�(ai%)�
�^�!g%=4:$(g%+4)="Reducing the paper length for the tune box will truncate the present tune. Shall I continue and reduce it?"+�0:ș&400DF,g%,%11011,o$�,c%:c%=(c%=1)
̋�
̋�c%�
̔YW%=A%:!Zh%=A%:!_h%=A%*12:!mi%=A%*12:ș&44ADA,jc%+A%*12,vb%*12+12-A%*12:�w%=1��z:�C(0)
���
���
��@ș&44ACC,Me%,Ge%�,,B%:ș&44ACC,Me%,Ie%�,,A%:C%=O%:�C%<1�C%=6
�	8C%=((Hb%*C%-1)�B%)+1:�jl%<>A%�O%<>B%��Vb(C%,B%,A%,�)
�hș&44ACC,Me%,He%�,,B%:ș&44ADE,2,Me%,Je%,g%,16:A%=�(�c(g%))*2:A%=A%*K%/2:�A%<>Ob%�B%<>Ll%��pc(A%,B%)
�Q�ș&44ADE,3,m%,ne%�,,,Jk%:ș&44ADE,3,m%,oe%�,,,Ik%:ș&44ADE,3,m%,pe%�,,,Hk%:ș&44ADE,3,m%,qe%�,,,Gk%:ș&44ADE,3,m%,re%�,,,Kk%:ș&44ADE,3,m%,se%�,,,Lk%:ș&44ADE,3,m%,te%�,,,Mk%:ș&44ADE,3,m%,ue%�,,,nm%
͢�ș&44ADE,3,m%,ve%�,,,om%:ș&44ADE,3,m%,we%�,,,Nk%:ș&44ADE,3,Me%,Ke%�,,,wl%:ș&44ADE,3,Me%,Le%�,,,il%:ș&44ACC,m%,ge%�,,c%:Gm%=c%:ș&44ADE,3,`%,Yd%�,,,ia%:ș&44ADE,3,`%,Pd%�,,,c%:�c%�
�	c%=-1
� 7�:c%=0:�e%=0�3:ș&44ADE,3,`%,Qd%+e%�,,,A%:�A%�c%=e%
�D-�:�c%=3�ș&44ACC,`%,Ud%�,,c%:c%=(c%<<4�3)
�V�
�_<ga%=c%:c%=0:�e%=0�2:ș&44ADE,3,`%,Vd%+e%�,,,A%:�A%�c%=e%
Ό�:ha%=c%:�Ad:�Bd:�p:�
�¾��Ad:ș&44ADE,3,We%,Ne%�,,,Pl%:ș&44ADE,3,We%,Oe%�,,,Em%:ș&44ADE,3,We%,Pe%�,,,Xl%:ș&44ADE,3,We%,Qe%�,,,Wl%:ș&44ADE,3,We%,Re%�,,,hl%:ș&44ADE,3,We%,Se%�,,,Fk%:ș&44ADE,3,We%,Te%�,,,Dl%
�ș&44ADE,3,We%,Ue%�,,,Bk%:�
�.���yd:ia%=�:Bm%=�:Cm%=�:Ul%=2:Xa%=0:Vl%=4:Gm%=0:pb%=90:Ba%=�:Ya%=�:Za%=�:cl%=�:Jk%=�:Ik%=�:Hk%=�:Gk%=�:Kk%=�:Lk%=�:Mk%=�:nm%=�:om%=�:Nk%=�:ik%=4*2:Dm%=4:W%=100:Db%=1:O%=6:Ll%=4:jl%=100:Ob%=2*K%:wl%=�:il%=�:ga%=-1:ha%=0:Pl%=�
Ѝ@Em%=�:Xl%=�:Wl%=�:hl%=�:Fk%=�:Dl%=�:Bk%=�:ș&40187,ya%+Gm%:�
�޼��Mc:�A%,Sk%:ș&44ADE,2,m%,ee%,g%,8:c%=(�"A A#B C C#D D#E F F#G G#",�c(g%))-1)/2:Sk%=�(�"&0C00&0D55&0EAA&1000&1155&12AA&1400&1555&16AA&1800&1955&1AAA",c%*5+1,5))+&1000*zm%:ș&400CF,,g%
�*A%=((rc%=he%)�(m%=qc%)�Ia%):�g%!12=m%�
�/Ȏg%!16�
�86�13,67,20,21,22,31,32,33,34,35,36,37,38,39,40:A%=�
�J�
�J�
�S�A%�
�\	�tc%�
�e�sc%<>Sk%��8,&1FF,Sk%,255
�n�:�8,&17F,Sk%,255:tc%=�
ђ�
ђ�:�tc%��8,0,Sk%,1
Ѥ	tc%=�
Ѷ�
Ѷ
sc%=Sk%:�
��+��fd(c%):�A%:Am%=c%/2:ș&42�A%:�A%>xm%�
�xm%=A%+30:�8,&100+Am%,80,2
��
��
�"��ud:�h(ym%):�wm%��t
�F�
�O���zd(c%):�A%,Hm%:c%=�c%:ș&44ADD,3,`%,Pd%,�c%:ș&44ADD,4,`%,Qd%,c%:ș&44ADD,4,`%,Rd%,c%:ș&44ADD,4,`%,Sd%,c%:ș&44ADD,4,`%,Td%,c%:Hm%=-1:�e%=0�3:ș&44ADE,3,`%,Qd%+e%�,,,A%:�A%�Hm%=e%
��'�:�Hm%=-1�Hm%=0:ș&44ADD,3,`%,Qd%,�
��#ș&44ADD,4,`%,Ud%,(c%�Hm%<>3):�
��K��xd:�v%,b%,a%,e$:e$="<MBConfigFiles$Dir>.Defaults":a%=�D(e$,�):�a%=0��
�*b%=�f("MBConfig",a%):�b%=0�b%=�b(1,a%)
�0�b%=0�b%=�f("Conf",a%)
�9�b%=0�b%=�b(41*4+8,a%)
�B�b%=0�b%=�b(Ul%,a%)
�K�b%=0�b%=�b(Xa%,a%)
�T�b%=0�b%=�b(Vl%,a%)
�]�b%=0�b%=�b(Gm%,a%)
�f�b%=0�b%=�b(pb%,a%)
�o�b%=0�b%=�b(Ba%,a%)
�x�b%=0�b%=�b(Ya%,a%)
Ӂ�b%=0�b%=�b(Za%,a%)
ӊ�b%=0�b%=�b(cl%,a%)
ӓ�b%=0�b%=�b(Jk%,a%)
Ӝ�b%=0�b%=�b(Ik%,a%)
ӥ�b%=0�b%=�b(Hk%,a%)
Ӯ�b%=0�b%=�b(Gk%,a%)
ӷ�b%=0�b%=�b(Kk%,a%)
��b%=0�b%=�b(Lk%,a%)
���b%=0�b%=�b(Mk%,a%)
���b%=0�b%=�b(nm%,a%)
���b%=0�b%=�b(om%,a%)
���b%=0�b%=�b(Nk%,a%)
���b%=0�b%=�b(ik%,a%)
��b%=0�b%=�b(Dm%,a%)
��b%=0�b%=�b(W%,a%)
��b%=0�b%=�b(Db%,a%)
��b%=0�b%=�b(O%,a%)
��b%=0�b%=�b(Ll%,a%)
�#�b%=0�b%=�b(jl%,a%)
�,�b%=0�b%=�b(Ob%,a%)
�5�b%=0�b%=�b(wl%,a%)
�>�b%=0�b%=�b(il%,a%)
�G�b%=0�b%=�b(ga%,a%)
�P�b%=0�b%=�b(ha%,a%)
�Y�b%=0�b%=�b(Pl%,a%)
�b�b%=0�b%=�b(Em%,a%)
�k�b%=0�b%=�b(Xl%,a%)
�t�b%=0�b%=�b(Wl%,a%)
�}�b%=0�b%=�b(hl%,a%)
Ԇ�b%=0�b%=�b(Fk%,a%)
ԏ�b%=0�b%=�b(Dl%,a%)
Ԙ�b%=0�b%=�b(Bk%,a%)
ԡ�b%=0�b%=�b(Bm%,a%)
Ԫ�b%=0�b%=�b(Cm%,a%)
Գ�b%=0�b%=�b(ia%,a%)
Լ�b%=0�b%=�f("EndX",a%)
���b%=0�b%=�b(-1,a%)
���b%=0�b%=�i(a%)
��#�b%<>0��b(�c(b%+4),�):b%=�i(a%)
��;e$="<MBConfigFiles$Dir>.StartUpCon":a%=�D(e$,�):�a%=0��
��b%=0�b%=�b(ga%,a%)
�
�b%=0�b%=�b(ha%,a%)
��b%=0�b%=�b(ia%,a%)
��b%=0�b%=�i(a%)
�((�b%<>0��b(�c(b%+4)+"/2",�):b%=�i(a%)
�1�
�:X��da:�v%,b%,a%,e$,A%,c%:�i:c%=0:e$="<MBConfigFiles$Dir>.Defaults":b%=0:笤g(e$)�b%=2
Ղ�b%=0�a%=�l(e$)
Ջ�a%=0�b%=2
Ք�b%=0�b%=�h(b$,8,a%)
՝A�b$<>"MBConfig"�b%=0��b("File format not understood.",�):b%=1
զ�b%=0�b%=�a(c%,a%)
կs�c%>1�b%=0��b("This file was made by a newer version of MusicBox. You will need an upgrade to load it.",�):b%=1
ո�b%=0�b%=�h(b$,4,a%)
�ȕb%=0�b$<>"EndX":Ȏb$�
���"Conf":b%=�Z(a%)
��:b%=�j(a%)
���
���b%=0�b%=�h(b$,4,a%)
�'�:�b%<>0�b%<>1�b%<>2��b(�c(b%+4),�)
��b%<>2�A%=�i(a%)
��p:�b%<>0��yd
�-��vd:Xa%=2:Db%=-1:W%=-1:O%=-1:jl%=-1:Ob%=-1:�wd:Pl%=�:Em%=�:Xl%=�:Wl%=�:hl%=�:Fk%=�:Dl%=�:Bk%=�:�g("<MBTuneFiles$Dir>.Defaults")��fb("Defaults")
��5�g("<MBBeatFiles$Dir>.Defaults")��oc("Defaults")
��7�g("<MBSoundFiles$Dir>.Defaults")��F("Defaults",0)
��7�g("<MBChordFiles$Dir>.Defaults")��F("Defaults",2)
��	�Ad:�
��3ݤZ(a%):�b%,v%:b%=�a(v%,a%):�b%=0�b%=�a(Ul%,a%)
� �b%=0�b%=�a(Xa%,a%)
�)�b%=0�b%=�a(Vl%,a%)
�2�b%=0�b%=�a(Gm%,a%)
�;�b%=0�b%=�a(pb%,a%)
�D�b%=0�b%=�a(Ba%,a%)
�M�b%=0�b%=�a(Ya%,a%)
�V�b%=0�b%=�a(Za%,a%)
�_�b%=0�b%=�a(cl%,a%)
�h�b%=0�b%=�a(Jk%,a%)
�q�b%=0�b%=�a(Ik%,a%)
�z�b%=0�b%=�a(Hk%,a%)
׃�b%=0�b%=�a(Gk%,a%)
׌�b%=0�b%=�a(Kk%,a%)
ו�b%=0�b%=�a(Lk%,a%)
מ�b%=0�b%=�a(Mk%,a%)
ק�b%=0�b%=�a(nm%,a%)
װ�b%=0�b%=�a(om%,a%)
׹�b%=0�b%=�a(Nk%,a%)
���b%=0�b%=�a(ik%,a%)
���b%=0�b%=�a(Dm%,a%)
���b%=0�b%=�a(W%,a%)
���b%=0�b%=�a(Db%,a%)
���b%=0�b%=�a(O%,a%)
���b%=0�b%=�a(Ll%,a%)
��b%=0�b%=�a(jl%,a%)
��b%=0�b%=�a(Ob%,a%)
�
�b%=0�b%=�a(wl%,a%)
��b%=0�b%=�a(il%,a%)
��b%=0�b%=�a(ga%,a%)
�%�b%=0�b%=�a(ha%,a%)
�.�b%=0�b%=�a(Pl%,a%)
�7�b%=0�b%=�a(Em%,a%)
�@�b%=0�b%=�a(Xl%,a%)
�I�b%=0�b%=�a(Wl%,a%)
�R�b%=0�b%=�a(hl%,a%)
�[�b%=0�b%=�a(Fk%,a%)
�d�b%=0�b%=�a(Dl%,a%)
�m�b%=0�b%=�a(Bk%,a%)
�v�b%=0�b%=�a(Bm%,a%)
��b%=0�b%=�a(Cm%,a%)
؈�b%=0�b%=�a(ia%,a%)
ؑ�b%=0�ș&40187,ya%+Gm%
ؚ=b%
ؾ���Bd:ș&44ADD,1,t%,rf%,�d("Save",om%):ș&44ADD,1,t%,sf%,�d("Load",nm%):ș&44ADD,1,l%,Bh%,�d("Save",om%):ș&44ADD,1,l%,Ch%,�d("Load",nm%):ș&44ADD,1,l%,Dh%,�d("Print",Nk%):ș&44ADD,1,o%,kg%,�d("Save",om%)
��ș&44ADD,1,o%,lg%,�d("Load",nm%):ș&44ADD,1,o%,_f%,�d("Print",Nk%):ș&44ADD,1,o%,jg%,�d("Copy",Lk%):ș&44ADD,1,o%,ig%,�d("Clear",Mk%):ș&44ADD,1+2^9,o%,Sf%,�d("t1",Gk%),,vg%
�3�ș&44ADD,1+2^9,o%,Sf%+1,�d("t2",Hk%),,vg%:ș&44ADD,1+2^9,o%,Sf%+2,�d("t3",Ik%),,vg%:ș&44ADD,1+2^9,o%,Tf%,�d("t4",Jk%),,vg%:ș&44ADD,1+2^9,o%,Uf%,�d("t6",Kk%),,vg%:ș&44ADD,1,k%,Tg%,�d("Save",om%)
�i�ș&44ADD,1,k%,Ug%,�d("Load",nm%):ș&44ADD,1,k%,Wg%,�d("Print",Nk%):ș&44ADD,1,k%,Sg%,�d("Copy",Lk%):ș&44ADD,1,k%,Rg%,�d("Clear",Mk%):ș&44ADD,1+2^9,k%,Bg%,�d("t1",Gk%),,eh%
ٖ�ș&44ADD,1+2^9,k%,Bg%+1,�d("t2",Hk%),,eh%:ș&44ADD,1+2^9,k%,Bg%+2,�d("t3",Ik%),,eh%:ș&44ADD,1+2^9,k%,Dg%,�d("t6",Kk%),,eh%:�
��ݤd(a$,Yl%):�Yl%�="sz,pz"
��="S"+a$+",p"+a$
�V��I:�b("You can not use that button. Ask your teacher if you want to use it.",�):�
�<��_(Im%,d%):�A%:A%=�("FN"+�~(Im%)+"("+�(d%)+")"):�Ua%=1�
�J�Jm%=0�Km%=0
�SuA%=�t:j%(Lm%)=A%:g%(Lm%)=Jm%:e%(0,Jm%,Lm%)=Im%:e%(1,Jm%,Lm%)=d%:e%(2,Jm%,Lm%)=A%:Jm%+=1:�Jm%>=Va%��o(Mm%,Nm%,Om%)
ڛ�
ڤ�
ڭ��dd:�A%:A%=�t:�Ua%=2��Cd
���
��ݤt:�A%:A%=Ə:�A%<Pm%�
�	�Qm%�
��Rm%�Jm%=0�Jm%=g%(Lm%)
�"Sm%=j%(Lm%):Km%=0:Qm%=�
�F�:Km%+=lb%
�X�
�X�
�aPm%=A%:=A%+Km%
ۅ7��o(n%,d%,Tm%):ș&44ADD,7,n%,d%,1:Ua%=0:Ok%=�:Ȏn%�
۩�t%:ș&44ADD,3,n%,gf%,0
ۻ�l%:ș&44ADD,3,n%,qh%,0
���
���m:�sc:�s(Tm%,n%,0):�t:�
��"��ob(n%,d%,Tm%,j%):Ok%=�:Ȏn%�
��t%:ș&44ADD,3,n%,gf%,0
�'�l%:ș&44ADD,3,n%,qh%,0
�0�
�0[Qm%=�:Nm%=d%:Om%=Tm%:Mm%=n%:Lm%=j%:Ua%=1:Jm%=0:g%(Lm%)=-1:j%(Lm%)=0:Pm%=0:Km%=0:�m:�t:�
ܮ`��D(n%,d%,Tm%,j%,Um%):Qm%=�:Rm%=Um%:Nm%=d%:Om%=Tm%:Mm%=n%:Lm%=j%:Ua%=2:�Um%�Jm%=0�Jm%=g%(j%)
�"Sm%=j%(j%):Pm%=0:Km%=0:�m:�t:�
�>��Cd:�A%:�Rm%�
�b�:A%=�:�Jm%<=g%(Lm%)�
�}�t>=e%(2,Jm%,Lm%)�
݆EA%=�("FN"+�~(e%(0,Jm%,Lm%))+"("+�(e%(1,Jm%,Lm%))+")"):Jm%+=1:A%=�
ݪ�
ݪ�
ݳ�A%:�Jm%>g%(Lm%)�
��	�Ok%�
��	Qm%=�
���:�o(Mm%,Nm%,Om%)
���
���
��:�:A%=�:�Jm%>=0�
��t>=Sm%-e%(2,Jm%,Lm%)�
�(GA%=�("FN"+�~(e%(0,Jm%,Lm%)�1)+"("+�(e%(1,Jm%,Lm%))+")"):Jm%-=1:A%=�
�L�
�L�
�U�A%:�Jm%<0�
�g	�Ok%�
�p	Qm%=�
ނ�:�o(Mm%,Nm%,Om%)
ޔ�
ޔ�
ޝ�
ަ�
ޯiݤ2(d%):ș&44ADD,3,t%,d%,1:cc%=d%:Vm%=(d%-lf%)�_b%+1:Wm%=(d%-lf%)�_b%:ș&40189,Vm%,Yb%,a%(Wm%),Xb%:=0
�Iݤ3(d%):ș&44ADD,3,t%,d%,0:ș&40189,Vm%,Yb%+2^7,a%(Wm%),Wb%:cc%=-1:=0
�H�ݤ4(d%):�Rk%,e%,q%:ș&44ADD,3,l%,d%,1:Rk%=d%-nh%:ec%=Rk%:�e%=1�7:ș&40185,e%,?(mj%+h%(Rk%,0)):�:q%=1:�e%=0�20:�?(Jh%+Rk%*24+e%)�
ߢ2ș&40189,q%,Yb%,k%(e%),Xb%:q%+=1:�q%>=8�e%=100
߽�
���:=0
��Rݤ5(d%):�Rk%,e%:ș&44ADD,3,l%,d%,0:Rk%=d%-nh%:q%=1:�e%=0�20:�?(Jh%+Rk%*24+e%)�
� 6ș&40189,q%,Yb%+2^7,k%(e%),Wb%:q%+=1:�q%>=8�e%=100
�;�
�D�:ec%=-1:=0
�qC��F(g$,j%):�v%,b%,a%,c$,Xm%,Ym%,e%,Bc%,A$,Zm%:Ym%=�:�i:�j:Ȏj%�
�<�0:c$="Sound":Xm%=lf%:ș&44AEB,3,t%:�o(t%,if%,df%):Zm%=0
��<�2:c$="Chord":Xm%=nh%:ș&44AEB,3,l%:�o(l%,sh%,wh%):Zm%=1
��9:�0,"This procedure does not support that box type."
���
��,�g$,".")=0�g$="<MB"+c$+"Files$Dir>."+g$
��a%=�l(g$):�a%=0��
�*b%=�h(b$,8,a%):�b%<>0��b(�c(b%+4),�):�
�D�b$<>"MB"+c$+" "��b("File format not understood.",�):b%=�G(a%):�
�2b%=�a(c%,a%):�b%<>0��b(�c(b%+4),�):b%=�G(a%):�
�.s�c%>1�b%=�G(a%):�b("This file was made by a newer version of MusicBox. You will need an upgrade to load it.",�)
�7*b%=�h(b$,4,a%):ȕb%=0�b$<>"EndX":Ȏb$�
�R�"Tape":b%=�_(Zm%,a%,Xm%)
�d�"Inst":b%=�v(j%,a%):Ym%=�
�m�"Temp":b%=�w(j%,a%)
�v�"Volu":b%=�x(j%,a%)
��"Octa":b%=�y(a%)
��"Key ":b%=�z(a%)
��"Chor":b%=�`(a%)
��"Pent":�j%=0�b%=�B(a%)
�:b%=�j(a%)
��
��b%=0�b%=�h(b$,4,a%)
��:�b%<>0��b(�c(b%+4),�)
��b%=�i(a%):�p:�r:�j%=2�Ym%�
���w%=2��k(b%(2,dc%-1),dc%)
��:�Bc%=0�6:A$=a$(b%(2,Bc%)):�e%=0�kh%-1:�h%(e%,0)=Bc%+1�
�0ș&44ADD,1+512,l%,lh%+e%,"s"+A$+",p"+A$,,Hh%
�*�
�*�:�
�E�
�E�
�N,ݤ_(j%,a%,Xm%):�v%,b%:�b%=0�b%=�a(v%,a%)
�{�b%=0�b%=�a(v%,a%)
�$g%(j%)=v%:�b%=0�b%=�a(j%(j%),a%)
�(�e%=0�v%:�b%=0�b%=�a(e%(0,e%,j%),a%)
��b%=0�b%=�a(e%(1,e%,j%),a%)
��b%=0�e%(1,e%,j%)+=Xm%
��b%=0�b%=�a(e%(2,e%,j%),a%)
��	�:=b%
��%ݤ`(a%):�v%,b%:�b%=0�b%=�a(v%,a%)
�(�e%=0�kh%-1:�b%=0�b%=�a(h%(e%,0),a%)
� �:�b%=0�b%=�k(Jh%,kh%*24,a%)
�=b%
�A��X(H%,J%):�w%<0��
�J^ș&400E6,5:�H%+d%(w%,0),J%+d%(w%,1):�H%+d%(w%,2),J%+d%(w%,3):�85,H%+d%(w%,2),J%+d%(w%,1):�
�w#��q(_m%):_m%=_m%/2:�_m%<0�_m%=0
��_m%>127�_m%=127
�ș&40180,_m%:�
�+��V(n%,d%):ș&44AD4,1,n%,d%�c%:�q(c%):�
��<ݤM(j%,a%):�e%,c%,b%:b%=�f("Volu",a%):�b%=0�b%=�b(12,a%)
�	Ȏj%�
��0:ș&44AD4,1,t%,qf%�c%
�+�1:ș&44AD4,1,o%,`f%�c%
�4�2:ș&44AD4,1,l%,yh%�c%
�=�3:ș&44AD4,1,k%,Og%�c%
�F�
�F�b%=0�b%=�b(c%,a%)
�O=b%
�jݤx(j%,a%):�e%,c%,b%:�Em%�
�|#b%=�a(c%,a%):�b%=0�b%=�a(c%,a%)
�
�b%=0�
�	Ȏj%�
��0:ș&44AD4,2,t%,qf%,c%
��1:ș&44AD4,2,o%,`f%,c%
���2:ș&44AD4,2,l%,yh%,c%
���3:ș&44AD4,2,k%,Og%,c%
���
���w%=j%��q(c%)
��
��:b%=�j(a%)
��
�=b%
�B��n(n%,j%):`m%=n%:Ȏn%�
�T�Dd%
�fH�0:ș&44ADD,2,Hd%,Gd%,"Are you sure you want to start again?":n%=Hd%
�oL�1:ș&44ADD,2,Hd%,Gd%,"Are you sure you want to print your work?":n%=Hd%
�x_�2:ș&44ADD,2,Hd%,Gd%,"There are some unsaved files. Are you sure you want to quit?":n%=Hd%
�x��3:ș&44ADD,2,Hd%,Gd%,"The present tune has not been saved and loading a new file will lose it. Do you still want to load a new file?":n%=Hd%
�f�4:ș&44ADD,2,Hd%,Gd%,"That file already exists. Do you want to continue and overwrite it?":n%=Hd%
��
�e_a%=n%:ș&44ADD,1,Hd%,Fd%,"syes,pyes":ș&44ADD,5,Hd%,Ed%,�:ș&44AD6,n%,-1:ș&44AD9,n%,-1:`a%=j%:�
�ґ��c(E$):pc%=�:`m%=-1:ș&44ADD,2,Hd%,Gd%,E$:ș&44ADD,1,Hd%,Fd%,"sok,pok":ș&44ADD,5,Hd%,Ed%,�:_a%=Hd%:ș&44AD6,Hd%,-1:ș&44AD9,Hd%,-1:`a%=-3:�
�>"��Vc(p%,d%):�A%,C%,D%:�(p%�4)�
�b
Ȏ_a%�
�k�Hd%:Ȏd%�
�}�Fd%,Ed%:�e(Hd%,d%)
��
��Dd%:Ȏd%�
��Bd%,Cd%:�e(Dd%,d%)
��*�yd%,Ad%:ș&44ACA,Dd%,zd%,zd%-d%,Dk%,1
���
���
���
���
��-��cd(d%):�A%:�h(_a%):ș&44AD9,0,-2:Ȏ_a%�
�(�Hd%:A%=(d%=Fd%)
�:�Dd%:A%=(d%=Cd%)
�C�
�C
Ȏ`a%�
�L�1:�jb(`m%,A%)
�^�2:�xb(`m%,A%)
�g�3:�mc(`m%,A%)
�p�-1:va%=A%
�y�-2:�A%��nd(lm%,mm%)
�y&�-3:aa%-=1:�aa%>=0��c(c$(ra%-aa%))
��-4:�A%��sd
��
��
�v��kb(j%):�c("Sorry, Print is disabled for this demo. The full version prints using any RISC OS printer driver."):�
����Wa(m$):�A%,B%,C%,Kc%,Lc%,Mc%,Nc%,Oc%,Pc%,Qc%,Rc%,Sc%,Tc%,f$:f$="s"+a$(b%(w%,!di%-1)):ș&2E,40+256,U%,m$�,,,Kc%,Lc%,Sc%,Mc%:ș&2E,40+256,U%,f$�,,,Nc%,Oc%,Tc%,Pc%:ș&35,Mc%,3�,,Qc%:ș&35,Mc%,4�,,A%:Kc%=Kc%<<A%:h%!8=(1<<A%)
��ș&35,Mc%,5�,,A%:Lc%=Lc%<<A%:h%!12=(1<<A%):ș&35,Pc%,3�,,Rc%:ș&35,Pc%,4�,,A%:Nc%=(Nc%<<A%):h%!0=1<<A%:ș&35,Pc%,5�,,A%:Oc%=(Oc%<<A%):h%!4=1<<A%:�Qc%<>Rc%�Qc%<>15�
�~;�b("Voice sprites must have 16 and only 16 colours.",�)
萯�:ș&2002E,25+256,U%,"st7":ș&2E,27+256,U%,m$,"st7":ș&2E,60+256,U%,"st7",0�,A%,B%,C%:ș&2E,52+256,U%,f$,4,44,8,h%,0:ș&2E,34+256,U%,m$,0,0,8:ș&2E,60+256,A%,B%,C%:�Sc%=1�
��Jș&2E,61+256,U%,"st7",0�,A%,B%,C%:�18,0,128+63,23,17,3,&C0,0,0,0,0,0,0
��4ș&2E,50+256,U%,f$,4,44,8,h%,0:ș&2E,61,A%,B%,C%
��
��
��
�
00000000  0d 48 49 4b dd f2 4e 61  28 f8 62 24 29 3a ea 49  |.HIK..Na(.b$):.I|
00000010  25 3a c8 99 26 32 37 2c  62 24 2c 61 2c 32 35 36  |%:..&27,b$,a,256|
00000020  3a 62 24 3d 22 22 3a 49  25 3d 30 3a c8 95 61 3f  |:b$="":I%=0:..a?|
00000030  49 25 3e 33 31 3a 62 24  2b 3d bd 28 61 3f 49 25  |I%>31:b$+=.(a?I%|
00000040  29 3a 49 25 2b 3d 31 3a  ce 3a e1 0d 48 91 63 dd  |):I%+=1:.:..H.c.|
00000050  f2 72 61 28 6d 2c 45 24  2c 68 29 3a f2 4f 61 28  |.ra(m,E$,h):.Oa(|
00000060  22 4d 75 73 69 63 20 42  6f 78 20 68 61 73 20 73  |"Music Box has s|
00000070  75 66 66 65 72 65 64 20  61 6e 20 69 6e 74 65 72  |uffered an inter|
00000080  6e 61 6c 20 65 72 72 6f  72 20 61 6e 64 20 6d 75  |nal error and mu|
00000090  73 74 20 71 75 69 74 2e  20 22 2b 45 24 2b 22 20  |st quit. "+E$+" |
000000a0  28 22 2b c3 28 68 29 2b  22 29 22 29 3a e0 0d 48  |("+.(h)+")"):..H|
000000b0  ac 16 dd f2 4f 61 28 77  24 29 3a ee 85 f2 50 61  |....Oa(w$):...Pa|
000000c0  28 77 24 29 0d 48 c7 29  21 61 3d 9f 3a 24 28 61  |(w$).H.)!a=.:$(a|
000000d0  2b 34 29 3d 77 24 2b bd  30 3a c8 99 26 34 30 30  |+4)=w$+.0:..&400|
000000e0  44 46 2c 61 2c 31 2c 55  24 3a f2 51 61 0d 48 fd  |DF,a,1,U$:.Qa.H.|
000000f0  10 dd f2 50 61 28 77 24  29 3a ee 85 87 0d 49 06  |...Pa(w$):....I.|
00000100  0c e7 eb 3c 3e 62 8c eb  62 0d 49 0f 06 ef 34 0d  |...<>b..b.I...4.|
00000110  49 18 0b f1 77 24 3a f2  51 61 0d 49 3c 14 dd f2  |I...w$:.Qa.I<...|
00000120  52 61 28 69 29 3a e7 6a  3e 69 8c f2 51 61 0d 49  |Ra(i):.j>i..Qa.I|
00000130  45 05 e1 0d 49 4e 0e dd  f2 51 61 3a ee 85 f2 53  |E...IN...Qa:...S|
00000140  61 0d 49 69 07 ee 85 87  0d 49 72 13 e7 66 8c c8  |a.Ii.....Ir..f..|
00000150  99 26 34 32 35 38 39 3a  66 3d a3 0d 49 7b 07 f2  |.&42589:f=..I{..|
00000160  53 61 0d 49 96 0c dd f2  53 61 3a ee 85 87 0d 49  |Sa.I....Sa:....I|
00000170  9f 0a e7 eb 3c 3e 62 8c  0d 49 a8 11 eb 62 3a c8  |....<>b..I...b:.|
00000180  99 26 34 30 30 45 33 2c  62 0d 49 c3 05 cd 0d 49  |.&400E3,b.I....I|
00000190  c3 0e c8 99 26 34 30 30  44 44 3a e0 0d 49 de 67  |....&400DD:..I.g|
000001a0  dd f2 69 61 28 4e 24 2c  4f 24 2c 50 24 2c 6b 29  |..ia(N$,O$,P$,k)|
000001b0  3a de 61 20 32 35 36 3a  f2 4e 61 28 4f 24 29 3a  |:.a 256:.Na(O$):|
000001c0  f2 4e 61 28 50 24 29 3a  5a 24 3d 4f 24 3a 5f 24  |.Na(P$):Z$=O$:_$|
000001d0  3d 50 24 3a 66 3d a3 3a  6a 3d 2d 31 3a 62 3d eb  |=P$:f=.:j=-1:b=.|
000001e0  3a 55 24 3d 4e 24 3a e7  6b 8c c8 99 26 34 30 30  |:U$=N$:.k...&400|
000001f0  43 30 2c 32 30 30 2c 26  34 42 35 33 34 31 35 34  |C0,200,&4B534154|
00000200  2c 4e 24 0d 4a 4a 05 e1  0d 4a 53 18 dd f2 54 61  |,N$.JJ...JS...Ta|
00000210  28 64 25 2c 58 25 2c 59  25 29 3a c8 8e 64 25 ca  |(d%,X%,Y%):..d%.|
00000220  0d 4a 77 18 c9 67 67 25  3a f2 52 28 6f 25 2c 64  |.Jw..gg%:.R(o%,d|
00000230  25 2c 58 25 2c 59 25 29  0d 4a 89 0f c9 6e 67 25  |%,X%,Y%).J...ng%|
00000240  3a e7 ac 41 62 25 8c 0d  4a 92 55 c8 99 26 34 34  |:..Ab%..J.U..&44|
00000250  41 45 33 2c 36 2c 5f 25  2c 6f 25 3a c8 99 26 34  |AE3,6,_%,o%:..&4|
00000260  34 41 45 35 2c 30 2c 6f  25 2c 58 25 2c 59 25 2c  |4AE5,0,o%,X%,Y%,|
00000270  2c 76 67 25 b8 2c 2c 64  25 3a c8 99 26 34 34 41  |,vg%.,,d%:..&44A|
00000280  45 33 2c 37 2c 5f 25 2c  6f 25 3a e7 64 25 3e 3d  |E3,7,_%,o%:.d%>=|
00000290  51 66 25 80 64 25 3c 3d  52 66 25 8c 0d 4a b6 2d  |Qf%.d%<=Rf%..J.-|
000002a0  f2 6a 3a f2 53 28 64 25  2d 51 66 25 2b 31 29 3a  |.j:.S(d%-Qf%+1):|
000002b0  f2 6b 28 62 25 28 31 2c  64 25 2d 51 66 25 29 2c  |.k(b%(1,d%-Qf%),|
000002c0  64 25 2d 51 66 25 2b 31  29 0d 4a da 05 cd 0d 4a  |d%-Qf%+1).J....J|
000002d0  da 05 cd 0d 4a e3 05 cb  0d 4a ec 05 e1 0d 4a f5  |....J....J....J.|
000002e0  2d dd f2 55 61 28 70 25  2c 64 25 2c 58 25 2c 59  |-..Ua(p%,d%,X%,Y|
000002f0  25 29 3a ea 41 25 2c 43  25 2c 44 25 3a e7 28 70  |%):.A%,C%,D%:.(p|
00000300  25 80 28 34 3c 3c 34 29  29 8c 0d 4b 19 09 c8 8e  |%.(4<<4))..K....|
00000310  64 25 ca 0d 4b 22 1c c9  67 67 25 2c 60 66 25 3a  |d%..K"..gg%,`f%:|
00000320  f2 47 28 6f 25 2c 64 25  2c 58 25 2c 59 25 29 0d  |.G(o%,d%,X%,Y%).|
00000330  4b 3d 05 cb 0d 4b 3d 05  cd 0d 4b 46 0c e7 28 70  |K=...K=...KF..(p|
00000340  25 80 34 29 8c 0d 4b 58  09 c8 8e 64 25 ca 0d 4b  |%.4)..KX...d%..K|
00000350  61 0f c9 64 67 25 3a f2  56 61 28 31 29 0d 4b 7c  |a..dg%:.Va(1).K||
00000360  10 c9 62 67 25 3a f2 56  61 28 2d 31 29 0d 4b 8e  |..bg%:.Va(-1).K.|
00000370  0b c9 65 67 25 3a f2 6a  0d 4b a0 28 c9 63 67 25  |..eg%:.j.K.(.cg%|
00000380  3a c8 99 26 34 34 41 44  44 2c 33 2c 6f 25 2c 64  |:..&44ADD,3,o%,d|
00000390  25 2c 31 3a 7a 62 25 3d  b9 3a f2 56 61 28 31 29  |%,1:zb%=.:.Va(1)|
000003a0  0d 4b c4 2a c9 6c 67 25  2c 6b 67 25 2c 66 67 25  |.K.*.lg%,kg%,fg%|
000003b0  2c 68 67 25 2c 69 67 25  2c 6a 67 25 2c 5f 66 25  |,hg%,ig%,jg%,_f%|
000003c0  3a f2 65 28 6f 25 2c 64  25 29 0d 4b d6 18 c9 70  |:.e(o%,d%).K...p|
000003d0  67 25 3a e7 ac 50 61 25  8c f2 65 28 6f 25 2c 64  |g%:..Pa%..e(o%,d|
000003e0  25 29 0d 4b df 29 c8 99  26 34 34 41 44 34 2c 31  |%).K.)..&44AD4,1|
000003f0  2c 6f 25 2c 67 67 25 b8  63 25 3a 63 25 2d 3d 31  |,o%,gg%.c%:c%-=1|
00000400  3a e7 63 25 3c 30 8c 63  25 3d 30 0d 4b fa 27 c8  |:.c%<0.c%=0.K.'.|
00000410  99 26 34 34 41 44 34 2c  32 2c 6f 25 2c 67 67 25  |.&44AD4,2,o%,gg%|
00000420  2c 63 25 b8 63 25 3a f2  64 28 28 63 25 2b 34 30  |,c%.c%:.d((c%+40|
00000430  29 29 0d 4c 15 18 c9 71  67 25 3a e7 ac 50 61 25  |)).L...qg%:..Pa%|
00000440  8c f2 65 28 6f 25 2c 64  25 29 0d 4c 1e 2d c8 99  |..e(o%,d%).L.-..|
00000450  26 34 34 41 44 34 2c 31  2c 6f 25 2c 67 67 25 b8  |&44AD4,1,o%,gg%.|
00000460  63 25 3a 63 25 2b 3d 31  3a e7 63 25 3e 32 35 35  |c%:c%+=1:.c%>255|
00000470  8c 63 25 3d 32 35 35 0d  4c 39 27 c8 99 26 34 34  |.c%=255.L9'..&44|
00000480  41 44 34 2c 32 2c 6f 25  2c 67 67 25 2c 63 25 b8  |AD4,2,o%,gg%,c%.|
00000490  63 25 3a f2 64 28 28 63  25 2b 34 30 29 29 0d 4c  |c%:.d((c%+40)).L|
000004a0  54 1b c9 6d 67 25 3a c8  99 26 34 34 41 44 36 2c  |T..mg%:..&44AD6,|
000004b0  6c 64 25 2c 58 25 2c 59  25 0d 4c 5d 2e c9 67 67  |ld%,X%,Y%.L]..gg|
000004c0  25 3a c8 99 26 34 34 41  44 34 2c 30 2c 6f 25 2c  |%:..&44AD4,0,o%,|
000004d0  64 25 2c 58 25 2c 59 25  b8 63 25 3a f2 64 28 28  |d%,X%,Y%.c%:.d((|
000004e0  63 25 2b 34 30 29 29 0d  4c 78 29 c9 60 66 25 3a  |c%+40)).Lx).`f%:|
000004f0  c8 99 26 34 34 41 44 34  2c 30 2c 6f 25 2c 64 25  |..&44AD4,0,o%,d%|
00000500  2c 58 25 2c 59 25 b8 63  25 3a f2 71 28 63 25 29  |,X%,Y%.c%:.q(c%)|
00000510  0d 4c 93 0f c9 6e 67 25  3a e7 ac 41 62 25 8c 0d  |.L...ng%:..Ab%..|
00000520  4c 9c 55 c8 99 26 34 34  41 45 33 2c 36 2c 5f 25  |L.U..&44AE3,6,_%|
00000530  2c 6f 25 3a c8 99 26 34  34 41 45 35 2c 30 2c 6f  |,o%:..&44AE5,0,o|
00000540  25 2c 58 25 2c 59 25 2c  2c 76 67 25 b8 2c 2c 64  |%,X%,Y%,,vg%.,,d|
00000550  25 3a c8 99 26 34 34 41  45 33 2c 37 2c 5f 25 2c  |%:..&44AE3,7,_%,|
00000560  6f 25 3a e7 64 25 3e 3d  51 66 25 80 64 25 3c 3d  |o%:.d%>=Qf%.d%<=|
00000570  52 66 25 8c 0d 4c c0 0a  e7 ac 79 62 25 8c 0d 4c  |Rf%..L....yb%..L|
00000580  c9 19 f2 48 28 64 25 2d  51 66 25 2b 31 2c 2d 31  |...H(d%-Qf%+1,-1|
00000590  2c 6f 25 2c 2d 31 29 0d  4c db 05 cd 0d 4c db 1d  |,o%,-1).L....L..|
000005a0  f2 6b 28 62 25 28 31 2c  64 25 2d 51 66 25 29 2c  |.k(b%(1,d%-Qf%),|
000005b0  64 25 2d 51 66 25 2b 31  29 0d 4c ed 0b cc 3a c8  |d%-Qf%+1).L...:.|
000005c0  8e 64 25 ca 0d 4c f6 3d  c9 30 3a f2 6c 28 31 29  |.d%..L.=.0:.l(1)|
000005d0  3a 43 25 3d 58 25 3a 44  25 3d 59 25 3a 41 25 3d  |:C%=X%:D%=Y%:A%=|
000005e0  ba 28 65 69 25 29 3a e7  28 41 25 80 26 46 46 30  |.(ei%):.(A%.&FF0|
000005f0  30 30 30 30 30 29 3d 26  46 46 30 30 30 30 30 30  |00000)=&FF000000|
00000600  8c 0d 4d 1a 42 f2 63 28  22 59 6f 75 20 61 72 65  |..M.B.c("You are|
00000610  20 6e 6f 74 20 61 6c 6c  6f 77 65 64 20 74 68 61  | not allowed tha|
00000620  74 20 6d 61 6e 79 20 69  6e 73 74 72 75 6d 65 6e  |t many instrumen|
00000630  74 73 20 69 6e 20 6f 6e  65 20 63 6f 6c 75 6d 6e  |ts in one column|
00000640  2e 22 29 0d 4d 2c 19 cc  3a 41 25 3d 28 41 25 3c  |.").M,..:A%=(A%<|
00000650  3c 38 29 3e 3e 38 3a e7  79 62 25 8c 0d 4d 3e 39  |<8)>>8:.yb%..M>9|
00000660  66 6b 25 3d ba 28 61 69  25 29 3a 67 6b 25 3d 66  |fk%=.(ai%):gk%=f|
00000670  6b 25 3a 68 6b 25 3d 28  28 28 67 6b 25 29 81 69  |k%:hk%=(((gk%).i|
00000680  6b 25 29 2b 31 29 2a 69  6b 25 2d 31 3a 21 71 6a  |k%)+1)*ik%-1:!qj|
00000690  25 3d 66 6b 25 0d 4d 74  10 cc 3a e7 28 21 6e 69  |%=fk%.Mt..:.(!ni|
000006a0  25 3c 38 29 8c 0d 4d 7d  1e f2 48 28 21 6e 69 25  |%<8)..M}..H(!ni%|
000006b0  2c 31 30 2d 28 41 25 80  26 46 46 29 2c 6f 25 2c  |,10-(A%.&FF),o%,|
000006c0  2d 31 29 0d 4d 8f 10 cc  3a e7 21 6e 69 25 3d 38  |-1).M...:.!ni%=8|
000006d0  2b 37 8c 0d 4d 98 28 e7  28 21 64 69 25 29 3e 30  |+7..M.(.(!di%)>0|
000006e0  8c f2 48 28 21 64 69 25  2c 31 30 2d 28 41 25 80  |..H(!di%,10-(A%.|
000006f0  26 46 46 29 2c 6f 25 2c  2d 31 29 0d 4d a1 05 cd  |&FF),o%,-1).M...|
00000700  0d 4d aa 05 cd 0d 4d b3  05 cd 0d 4d bc 0b c8 8e  |.M....M....M....|
00000710  21 6e 69 25 ca 0d 4d c5  3a c9 36 2b 38 3a e7 28  |!ni%..M.:.6+8:.(|
00000720  41 25 3e 3e 32 30 29 3e  30 8c 21 64 69 25 3d 41  |A%>>20)>0.!di%=A|
00000730  25 3e 3e 32 30 3a f2 57  61 28 22 73 74 37 5f 63  |%>>20:.Wa("st7_c|
00000740  6f 70 79 31 22 29 3a f2  6b 28 2d 31 2c 36 29 0d  |opy1"):.k(-1,6).|
00000750  4d ce 11 c9 37 2b 38 3a  f2 6b 28 2d 31 2c 35 29  |M...7+8:.k(-1,5)|
00000760  0d 4d e0 05 cb 0d 4d e0  05 cd 0d 4d e9 38 c9 53  |.M....M....M.8.S|
00000770  66 25 2c 53 66 25 2b 31  2c 53 66 25 2b 32 2c 54  |f%,Sf%+1,Sf%+2,T|
00000780  66 25 2c 55 66 25 3a e7  a4 70 28 64 25 29 8c f2  |f%,Uf%:..p(d%)..|
00000790  6b 28 2d 31 2c 64 25 2d  53 66 25 2b 31 29 8b f2  |k(-1,d%-Sf%+1)..|
000007a0  58 61 0d 4d fb 05 cb 0d  4e 04 05 cd 0d 4e 0d 05  |Xa.M....N....N..|
000007b0  cd 0d 4e 16 0f c9 5a 66  25 3a e7 ac 41 62 25 8c  |..N...Zf%:..Ab%.|
000007c0  0d 4e 28 27 c8 99 26 34  34 41 45 35 2c 30 2c 6f  |.N('..&44AE5,0,o|
000007d0  25 2c 58 25 2c 59 25 2c  2c 76 67 25 b8 2c 2c 64  |%,X%,Y%,,vg%.,,d|
000007e0  25 3a c8 8e 64 25 ca 0d  4e 3a 0f c9 57 66 25 3a  |%:..d%..N:..Wf%:|
000007f0  f2 59 61 28 31 29 0d 4e  4c 10 c9 56 66 25 3a f2  |.Ya(1).NL..Vf%:.|
00000800  59 61 28 2d 31 29 0d 4e  55 17 c9 58 66 25 2c 59  |Ya(-1).NU..Xf%,Y|
00000810  66 25 3a f2 65 28 6f 25  2c 2d 64 25 29 0d 4e 5e  |f%:.e(o%,-d%).N^|
00000820  05 cb 0d 4e 5e 05 cd 0d  4e 67 05 cb 0d 4e 70 05  |...N^...Ng...Np.|
00000830  cd 0d 4e 79 05 e1 0d 4e  82 1d dd f2 6b 28 78 25  |..Ny...N....k(x%|
00000840  2c 71 25 29 3a ea 41 25  2c 42 25 3a e7 78 25 3e  |,q%):.A%,B%:.x%>|
00000850  3d 30 8c 0d 4e a6 11 64  24 3d 22 73 22 2b 61 24  |=0..N..d$="s"+a$|
00000860  28 78 25 29 0d 4e b8 12  cc 3a e7 71 25 3e 3d 35  |(x%).N...:.q%>=5|
00000870  8c 71 25 2b 3d 31 0d 4e  c1 17 64 24 3d 22 73 74  |.q%+=1.N..d$="st|
00000880  22 2b c3 28 71 25 29 3a  71 25 2b 3d 38 0d 4e dc  |"+.(q%):q%+=8.N.|
00000890  05 cd 0d 4e dc 1c f2 5a  61 28 64 24 29 3a 21 6e  |...N...Za(d$):!n|
000008a0  69 25 3d 71 25 3a 42 62  25 3d 71 25 3a e1 0d 4f  |i%=q%:Bb%=q%:..O|
000008b0  00 10 dd f2 58 61 3a e7  42 62 25 3e 37 8c 0d 4f  |....Xa:.Bb%>7..O|
000008c0  1b 0c e7 42 62 25 3e 31  32 8c 0d 4f 24 32 f2 6b  |...Bb%>12..O$2.k|
000008d0  28 2d 31 2c 42 62 25 2d  39 29 3a c8 99 26 34 34  |(-1,Bb%-9):..&44|
000008e0  41 44 44 2c 37 2b 35 31  32 2c 6f 25 2c 51 66 25  |ADD,7+512,o%,Qf%|
000008f0  2b 42 62 25 2d 33 2c 2c  2c 76 67 25 0d 4f 3f 34  |+Bb%-3,,,vg%.O?4|
00000900  cc 3a f2 6b 28 2d 31 2c  42 62 25 2d 38 29 3a c8  |.:.k(-1,Bb%-8):.|
00000910  99 26 34 34 41 44 44 2c  37 2b 35 31 32 2c 6f 25  |.&44ADD,7+512,o%|
00000920  2c 51 66 25 2b 42 62 25  2d 32 2c 2c 2c 76 67 25  |,Qf%+Bb%-2,,,vg%|
00000930  0d 4f 5a 05 cd 0d 4f 5a  3b cc 3a c8 99 26 34 34  |.OZ...OZ;.:..&44|
00000940  41 44 44 2c 37 2b 35 31  32 2c 6f 25 2c 51 66 25  |ADD,7+512,o%,Qf%|
00000950  2b 42 62 25 2d 31 2c 2c  2c 76 67 25 3a f2 6b 28  |+Bb%-1,,,vg%:.k(|
00000960  62 25 28 31 2c 42 62 25  2d 31 29 2c 42 62 25 29  |b%(1,Bb%-1),Bb%)|
00000970  0d 4f 7e 05 cd 0d 4f 7e  05 e1 0d 4f 87 19 dd f2  |.O~...O~...O....|
00000980  5a 61 28 64 24 29 3a ea  41 25 2c 42 25 3a c8 8e  |Za(d$):.A%,B%:..|
00000990  64 24 ca 0d 4f ab 14 c9  22 73 74 32 22 3a 41 25  |d$..O..."st2":A%|
000009a0  3d 34 3a 42 25 3d 30 0d  4f bd 15 c9 22 73 74 36  |=4:B%=0.O..."st6|
000009b0  22 3a 41 25 3d 34 3a 42  25 3d 34 34 0d 4f c6 15  |":A%=4:B%=44.O..|
000009c0  c9 22 73 74 37 22 3a 41  25 3d 34 3a 42 25 3d 34  |."st7":A%=4:B%=4|
000009d0  34 0d 4f cf 0f 7f 3a 41  25 3d 30 3a 42 25 3d 30  |4.O...:A%=0:B%=0|
000009e0  0d 4f d8 05 cb 0d 4f d8  31 c8 99 26 34 34 41 45  |.O....O.1..&44AE|
000009f0  33 2c 31 2b 32 5e 31 31  2c 55 25 2c 64 24 2c 77  |3,1+2^11,U%,d$,w|
00000a00  62 25 2b 41 25 2c 77 62  25 2b 42 25 2c 5f 25 b8  |b%+A%,wb%+B%,_%.|
00000a10  2c 2c 5f 25 3a e1 0d 4f  ea 75 dd f2 5f 61 3a ea  |,,_%:..O.u.._a:.|
00000a20  63 25 3a f2 68 28 42 66  25 29 3a f2 54 28 6f 25  |c%:.h(Bf%):.T(o%|
00000a30  29 3a f2 55 28 31 29 3a  f2 79 28 32 5e 44 62 25  |):.U(1):.y(2^Db%|
00000a40  2c 67 62 25 29 3a f2 56  28 6f 25 2c 60 66 25 29  |,gb%):.V(o%,`f%)|
00000a50  3a c8 99 26 34 34 41 44  34 2c 31 2c 6f 25 2c 67  |:..&44AD4,1,o%,g|
00000a60  67 25 b8 63 25 3a f2 73  28 66 67 25 2c 6f 25 2c  |g%.c%:.s(fg%,o%,|
00000a70  30 29 3a f2 64 28 63 25  2b 34 30 29 3a f2 58 61  |0):.d(c%+40):.Xa|
00000a80  3a f2 7a 3a f2 43 28 30  29 3a e1 0d 50 8c 66 dd  |:.z:.C(0):..P.f.|
00000a90  f2 60 61 28 48 25 2c 4a  25 2c 73 25 29 3a ea 65  |.`a(H%,J%,s%):.e|
00000aa0  25 3a e3 65 25 3d 30 b8  59 66 25 3a c8 99 26 34  |%:.e%=0.Yf%:..&4|
00000ab0  34 41 45 30 2c 2c 76 67  25 2b 34 2b 33 32 2a 65  |4AE0,,vg%+4+32*e|
00000ac0  25 2c 73 25 3a ed 3a f2  57 28 48 25 2c 4a 25 29  |%,s%:.:.W(H%,J%)|
00000ad0  3a 21 4c 69 25 3d 48 25  3a 21 4d 69 25 3d 4a 25  |:!Li%=H%:!Mi%=J%|
00000ae0  3a d6 44 69 25 3a f2 58  28 48 25 2c 4a 25 29 3a  |:.Di%:.X(H%,J%):|
00000af0  e1 0d 50 f8 0f dd f2 61  62 3a d6 55 69 25 3a e1  |..P....ab:.Ui%:.|
00000b00  0d 51 1c 11 dd a4 48 3a  6a 6b 25 3d eb 3a 3d a4  |.Q....H:jk%=.:=.|
00000b10  49 0d 51 52 95 dd a4 49  3a ea 6b 6b 25 2c 6c 6b  |I.QR...I:.kk%,lk|
00000b20  25 2c 6d 6b 25 2c 65 25  2c 41 25 2c 50 25 3a 21  |%,mk%,e%,A%,P%:!|
00000b30  69 69 25 3d 4b 25 2f 6e  6b 25 3a 21 6a 69 25 3d  |ii%=K%/nk%:!ji%=|
00000b40  34 2f 6e 6b 25 3a c8 99  26 36 34 41 45 32 2c 32  |4/nk%:..&64AE2,2|
00000b50  35 39 2c 6e 63 25 2c 22  63 6f 6d 70 6f 73 65 67  |59,nc%,"composeg|
00000b60  72 69 64 22 2c 32 5e 34  2c 28 57 25 2b 31 29 2a  |rid",2^4,(W%+1)*|
00000b70  4b 25 2b 34 2c 4b 25 2a  31 31 2b 34 2c 6a 6b 25  |K%+4,K%*11+4,jk%|
00000b80  b8 41 25 3b 50 25 3a c8  99 26 36 34 41 45 32 2c  |.A%;P%:..&64AE2,|
00000b90  32 36 34 2c 6e 63 25 2c  32 2c 30 3a e7 28 50 25  |264,nc%,2,0:.(P%|
00000ba0  80 31 29 3d 31 8c 0d 51  88 bd c8 99 26 34 34 41  |.1)=1..Q....&44A|
00000bb0  45 32 2c 32 35 39 2c 6e  63 25 2c 22 63 6f 6d 70  |E2,259,nc%,"comp|
00000bc0  6f 73 65 67 72 69 64 22  2c 32 5e 34 2c 38 2c 38  |osegrid",2^4,8,8|
00000bd0  2c 6a 6b 25 3a f2 68 28  6f 25 29 3a f2 59 3a f2  |,jk%:.h(o%):.Y:.|
00000be0  63 28 22 4e 6f 74 20 65  6e 6f 75 67 68 20 6d 65  |c("Not enough me|
00000bf0  6d 6f 72 79 20 74 6f 20  75 73 65 20 54 75 6e 65  |mory to use Tune|
00000c00  20 42 6f 78 2e 20 54 72  79 20 72 65 64 75 63 69  | Box. Try reduci|
00000c10  6e 67 20 74 68 65 20 73  69 7a 65 20 6f 66 20 27  |ng the size of '|
00000c20  70 61 70 65 72 27 20 69  6e 20 74 68 65 20 63 6f  |paper' in the co|
00000c30  6e 66 69 67 75 72 61 74  69 6f 6e 20 77 69 6e 64  |nfiguration wind|
00000c40  6f 77 2e 20 53 65 65 20  6d 61 6e 75 61 6c 20 66  |ow. See manual f|
00000c50  6f 72 20 6d 6f 72 65 20  68 69 6e 74 73 2e 22 29  |or more hints.")|
00000c60  3a 3d a3 0d 51 be 05 cd  0d 51 be c9 c8 99 26 36  |:=..Q....Q....&6|
00000c70  34 41 45 32 2c 36 30 2c  6e 63 25 2c 22 63 6f 6d  |4AE2,60,nc%,"com|
00000c80  70 6f 73 65 67 72 69 64  22 2c 30 b8 2c 6b 6b 25  |posegrid",0.,kk%|
00000c90  2c 6c 6b 25 2c 6d 6b 25  3a c8 99 26 34 30 30 45  |,lk%,mk%:..&400E|
00000ca0  36 2c 30 3a c8 93 c8 90  30 2c 30 2c 28 57 25 2b  |6,0:....0,0,(W%+|
00000cb0  31 29 2a 4b 25 2b 34 2c  4b 25 2a 31 31 2b 34 3a  |1)*K%+4,K%*11+4:|
00000cc0  c8 99 26 34 30 30 45 36  2c 43 62 25 3a e3 65 25  |..&400E6,Cb%:.e%|
00000cd0  3d 31 b8 31 31 88 32 3a  c8 93 c8 90 30 2c 4b 25  |=1.11.2:....0,K%|
00000ce0  2a 65 25 2b 32 2c 28 57  25 2b 31 29 2a 4b 25 2b  |*e%+2,(W%+1)*K%+|
00000cf0  34 2c 4b 25 3a ed 3a c8  99 26 34 30 30 45 36 2c  |4,K%:.:..&400E6,|
00000d00  37 3a e3 65 25 3d 30 b8  31 31 3a c8 93 c8 90 30  |7:.e%=0.11:....0|
00000d10  2c 4b 25 2a 65 25 2c 28  57 25 2b 31 29 2a 4b 25  |,K%*e%,(W%+1)*K%|
00000d20  2b 34 2c 33 3a ed 3a e3  65 25 3d 30 b8 57 25 2b  |+4,3:.:.e%=0.W%+|
00000d30  31 0d 52 2a 37 c8 93 c8  90 4b 25 2a 65 25 2c 30  |1.R*7....K%*e%,0|
00000d40  2c 33 2c 31 31 2a 4b 25  2b 34 3a ed 3a c8 99 26  |,3,11*K%+4:.:..&|
00000d50  32 45 2c 36 30 2b 32 35  36 2c 6b 6b 25 2c 6c 6b  |2E,60+256,kk%,lk|
00000d60  25 2c 6d 6b 25 3a 3d b9  0d 52 60 50 dd f2 59 61  |%,mk%:=..R`P..Ya|
00000d70  28 6f 6b 25 29 3a ea 58  25 2c 59 25 2c 42 25 2c  |(ok%):.X%,Y%,B%,|
00000d80  70 6b 25 2c 41 25 2c 54  25 2c 64 25 3a 41 25 3d  |pk%,A%,T%,d%:A%=|
00000d90  6f 6b 25 2a 32 3a 70 6b  25 3d 30 3a f5 3a d6 78  |ok%*2:pk%=0:.:.x|
00000da0  69 25 3a f2 62 62 3a c8  97 58 25 2c 59 25 2c 42  |i%:.bb:..X%,Y%,B|
00000db0  25 3a c8 8e 70 6b 25 ca  0d 52 a8 33 c9 30 3a 41  |%:..pk%..R.3.0:A|
00000dc0  25 3d 6f 6b 25 2a 34 3a  54 25 3d 91 3a f5 3a c8  |%=ok%*4:T%=.:.:.|
00000dd0  97 58 25 2c 59 25 2c 42  25 3a f2 62 62 3a fd 91  |.X%,Y%,B%:.bb:..|
00000de0  3e 54 25 2b 35 30 84 42  25 3d 30 0d 52 f0 07 c9  |>T%+50.B%=0.R...|
00000df0  31 30 0d 53 02 05 cb 0d  53 02 38 70 6b 25 2b 3d  |10.S....S.8pk%+=|
00000e00  31 3a fd 42 25 3d 30 84  21 41 69 25 3c 3d 30 84  |1:.B%=0.!Ai%<=0.|
00000e10  21 41 69 25 3e 3d 57 25  2d 32 34 3a e7 41 25 3c  |!Ai%>=W%-24:.A%<|
00000e20  30 8c 64 25 3d 56 66 25  8b 64 25 3d 57 66 25 0d  |0.d%=Vf%.d%=Wf%.|
00000e30  53 1d 21 c8 99 26 34 34  41 44 44 2c 33 2b 35 31  |S.!..&44ADD,3+51|
00000e40  32 2c 6f 25 2c 64 25 2c  30 2c 2c 76 67 25 3a e1  |2,o%,d%,0,,vg%:.|
00000e50  0d 53 2f 79 dd f2 56 61  28 6f 6b 25 29 3a ea 65  |.S/y..Va(ok%):.e|
00000e60  25 3a f2 63 62 28 ac 7a  62 25 29 3a 66 6b 25 3d  |%:.cb(.zb%):fk%=|
00000e70  ba 28 61 69 25 29 3a 67  6b 25 3d 66 6b 25 3a 68  |.(ai%):gk%=fk%:h|
00000e80  6b 25 3d 28 28 28 67 6b  25 29 81 69 6b 25 29 2b  |k%=(((gk%).ik%)+|
00000e90  31 29 2a 69 6b 25 2d 31  3a 21 71 6a 25 3d 66 6b  |1)*ik%-1:!qj%=fk|
00000ea0  25 3a 71 6b 25 3d 68 6b  25 3a 72 6b 25 3d 71 6b  |%:qk%=hk%:rk%=qk|
00000eb0  25 3a 73 6b 25 3d 71 6b  25 3a 74 6b 25 3d 72 6b  |%:sk%=qk%:tk%=rk|
00000ec0  25 3a e7 6f 6b 25 3d 31  8c 0d 53 a4 2e c8 99 26  |%:.ok%=1..S....&|
00000ed0  34 34 41 44 44 2c 37 2c  6f 25 2c 64 67 25 2c 31  |44ADD,7,o%,dg%,1|
00000ee0  3a 21 48 69 25 3d 30 3a  21 6b 6a 25 3d 6a 63 25  |:!Hi%=0:!kj%=jc%|
00000ef0  3a 21 70 6a 25 3d 30 0d  53 d1 3b cc 3a 21 48 69  |:!pj%=0.S.;.:!Hi|
00000f00  25 3d 68 6b 25 3a 21 6b  6a 25 3d 6a 63 25 2b 66  |%=hk%:!kj%=jc%+f|
00000f10  6b 25 2a 31 32 3a 21 70  6a 25 3d 68 6b 25 3a c8  |k%*12:!pj%=hk%:.|
00000f20  99 26 34 34 41 44 44 2c  37 2c 6f 25 2c 62 67 25  |.&44ADD,7,o%,bg%|
00000f30  2c 31 0d 53 fe 05 cd 0d  53 fe 8d 75 6b 25 3d 2d  |,1.S....S..uk%=-|
00000f40  39 39 39 39 39 3a 76 6b  25 3d 30 3a 79 62 25 3d  |99999:vk%=0:yb%=|
00000f50  b9 3a 77 6b 25 3d 6f 6b  25 3a f2 67 3a 21 74 6a  |.:wk%=ok%:.g:!tj|
00000f60  25 3d 59 62 25 3a 21 6c  6a 25 3d 30 3a 6c 6a 25  |%=Yb%:!lj%=0:lj%|
00000f70  21 34 3d 30 3a 6e 6a 25  21 30 3d 30 3a 6e 6a 25  |!4=0:nj%!0=0:nj%|
00000f80  21 34 3d 30 3a 6e 6a 25  21 38 3d 30 3a 6f 6a 25  |!4=0:nj%!8=0:oj%|
00000f90  21 30 3d 2d 31 3a 6f 6a  25 21 34 3d 2d 31 3a c8  |!0=-1:oj%!4=-1:.|
00000fa0  99 26 34 30 31 43 30 3a  f2 6d 3a 78 6b 25 3d 6c  |.&401C0:.m:xk%=l|
00000fb0  62 25 3a 41 25 3d 31 3a  d6 77 69 25 3a e7 77 6b  |b%:A%=1:.wi%:.wk|
00000fc0  25 3d 31 8c 0d 54 b2 25  e3 65 25 3d 30 b8 6d 62  |%=1..T.%.e%=0.mb|
00000fd0  25 3a 41 25 3d 65 25 2a  51 25 3a e7 21 70 6a 25  |%:A%=e%*Q%:.!pj%|
00000fe0  3e 68 6b 25 80 7a 62 25  8c 0d 54 cd 13 21 70 6a  |>hk%.zb%..T..!pj|
00000ff0  25 3d 30 3a 21 6b 6a 25  3d 6a 63 25 0d 54 e8 05  |%=0:!kj%=jc%.T..|
00001000  cd 0d 54 e8 0a d6 72 6a  25 3a ed 0d 55 03 25 cc  |..T...rj%:..U.%.|
00001010  3a e3 65 25 3d 30 b8 6d  62 25 3a 41 25 3d 65 25  |:.e%=0.mb%:A%=e%|
00001020  2a 51 25 3a e7 21 70 6a  25 3c 30 80 7a 62 25 8c  |*Q%:.!pj%<0.zb%.|
00001030  0d 55 1e 1c 21 70 6a 25  3d 68 6b 25 3a 21 6b 6a  |.U..!pj%=hk%:!kj|
00001040  25 3d 6a 63 25 2b 68 6b  25 2a 31 32 0d 55 39 05  |%=jc%+hk%*12.U9.|
00001050  cd 0d 55 39 0a d6 76 6a  25 3a ed 0d 55 54 05 cd  |..U9..vj%:..UT..|
00001060  0d 55 54 1f f2 74 3a e7  7a 62 25 8c c8 99 26 34  |.UT..t:.zb%...&4|
00001070  34 41 44 44 2c 37 2c 6f  25 2c 63 67 25 2c 31 0d  |4ADD,7,o%,cg%,1.|
00001080  55 66 05 e1 0d 55 6f 61  dd f2 6a 3a f2 6d 3a 21  |Uf...Uoa..j:.m:!|
00001090  48 69 25 3d 2d 31 3a 41  25 3d 31 3a d6 77 69 25  |Hi%=-1:A%=1:.wi%|
000010a0  3a 79 62 25 3d a3 3a f2  67 3a c8 99 26 34 34 41  |:yb%=.:.g:..&44A|
000010b0  44 44 2c 37 2c 6f 25 2c  65 67 25 2c 31 3a 7a 62  |DD,7,o%,eg%,1:zb|
000010c0  25 3d a3 3a c8 99 26 34  34 41 44 44 2c 33 2c 6f  |%=.:..&44ADD,3,o|
000010d0  25 2c 63 67 25 2c 30 3a  d6 42 69 25 3a f2 63 62  |%,cg%,0:.Bi%:.cb|
000010e0  28 a3 29 3a e1 0d 55 ed  25 dd f2 64 62 3a ea 5a  |(.):..U.%..db:.Z|
000010f0  25 2c 41 25 2c 79 6b 25  2c 7a 6b 25 3a 5a 25 3d  |%,A%,yk%,zk%:Z%=|
00001100  c6 8f 3a e7 77 6b 25 3d  31 8c 0d 56 1a 0c e7 5a  |..:.wk%=1..V...Z|
00001110  25 3c 78 6b 25 8c 0d 56  23 32 76 6b 25 2b 3d 6d  |%<xk%..V#2vk%+=m|
00001120  62 25 3a e3 65 25 3d 31  b8 6d 62 25 3a 41 25 3d  |b%:.e%=1.mb%:A%=|
00001130  6c 62 25 2b 65 25 2a 51  25 3a e7 21 70 6a 25 3e  |lb%+e%*Q%:.!pj%>|
00001140  68 6b 25 80 7a 62 25 8c  0d 56 47 13 21 70 6a 25  |hk%.zb%..VG.!pj%|
00001150  3d 30 3a 21 6b 6a 25 3d  6a 63 25 0d 56 62 05 cd  |=0:!kj%=jc%.Vb..|
00001160  0d 56 62 22 d6 72 6a 25  3a ed 3a 72 6b 25 3d 71  |.Vb".rj%:.:rk%=q|
00001170  6b 25 3a 71 6b 25 3d 73  6b 25 3a 73 6b 25 3d 68  |k%:qk%=sk%:sk%=h|
00001180  6b 25 0d 56 98 05 cd 0d  56 98 29 78 6b 25 3d 5a  |k%.V....V.)xk%=Z|
00001190  25 3a 41 6b 25 3d 28 5a  25 81 51 25 29 2b 76 6b  |%:Ak%=(Z%.Q%)+vk|
000011a0  25 2d 6d 62 25 3a e7 41  6b 25 3c 3e 75 6b 25 8c  |%-mb%:.Ak%<>uk%.|
000011b0  0d 56 b3 15 75 6b 25 3d  41 6b 25 3a e7 41 6b 25  |.V..uk%=Ak%:.Ak%|
000011c0  3e 72 6b 25 8c 0d 56 c5  09 e7 7a 62 25 8c 0d 56  |>rk%..V...zb%..V|
000011d0  ce 19 41 6b 25 2d 3d 72  6b 25 2b 31 3a 76 6b 25  |..Ak%-=rk%+1:vk%|
000011e0  2d 3d 72 6b 25 2b 31 0d  56 e9 13 cc 3a f2 6a 3a  |-=rk%+1.V...:.j:|
000011f0  41 6b 25 3d 2d 31 30 30  3a e1 0d 56 f2 05 cd 0d  |Ak%=-100:..V....|
00001200  56 fb 05 cd 0d 57 04 11  41 25 3d 31 3a e7 28 ac  |V....W..A%=1:.(.|
00001210  7a 62 25 29 8c 0d 57 16  22 79 6b 25 3d 41 6b 25  |zb%)..W."yk%=Ak%|
00001220  3a e7 79 6b 25 3e 66 6b  25 2d 31 31 8c 79 6b 25  |:.yk%>fk%-11.yk%|
00001230  3d 66 6b 25 2d 31 31 0d  57 28 12 e7 79 6b 25 3c  |=fk%-11.W(..yk%<|
00001240  31 32 8c 79 6b 25 3d 31  32 0d 57 31 27 21 7a 69  |12.yk%=12.W1'!zi|
00001250  25 3d 28 79 6b 25 2d 31  32 29 2a 4b 25 3a 21 41  |%=(yk%-12)*K%:!A|
00001260  69 25 3d 28 79 6b 25 2d  31 32 29 3a 41 25 3d 30  |i%=(yk%-12):A%=0|
00001270  0d 57 55 05 cd 0d 57 55  11 21 48 69 25 3d 41 6b  |.WU...WU.!Hi%=Ak|
00001280  25 3a d6 77 69 25 0d 57  70 05 cd 0d 57 70 0e cc  |%:.wi%.Wp...Wp..|
00001290  3a e7 5a 25 3c 78 6b 25  8c 0d 57 8b 30 76 6b 25  |:.Z%<xk%..W.0vk%|
000012a0  2b 3d 6d 62 25 3a e3 65  25 3d 31 b8 6d 62 25 3a  |+=mb%:.e%=1.mb%:|
000012b0  41 25 3d 6c 62 25 2b 65  25 2a 51 25 3a e7 21 70  |A%=lb%+e%*Q%:.!p|
000012c0  6a 25 3c 30 80 7a 62 25  8c 0d 57 af 1c 21 70 6a  |j%<0.zb%..W..!pj|
000012d0  25 3d 68 6b 25 3a 21 6b  6a 25 3d 6a 63 25 2b 66  |%=hk%:!kj%=jc%+f|
000012e0  6b 25 2a 31 32 0d 57 ca  05 cd 0d 57 ca 22 d6 76  |k%*12.W....W.".v|
000012f0  6a 25 3a ed 3a 72 6b 25  3d 71 6b 25 3a 71 6b 25  |j%:.:rk%=qk%:qk%|
00001300  3d 73 6b 25 3a 73 6b 25  3d 68 6b 25 0d 58 00 05  |=sk%:sk%=hk%.X..|
00001310  cd 0d 58 00 2d 78 6b 25  3d 5a 25 3a 41 6b 25 3d  |..X.-xk%=Z%:Ak%=|
00001320  74 6b 25 2d 28 5a 25 81  51 25 29 2d 76 6b 25 2b  |tk%-(Z%.Q%)-vk%+|
00001330  6d 62 25 3a e7 41 6b 25  3c 3e 75 6b 25 8c 0d 58  |mb%:.Ak%<>uk%..X|
00001340  1b 13 75 6b 25 3d 41 6b  25 3a e7 41 6b 25 3c 30  |..uk%=Ak%:.Ak%<0|
00001350  8c 0d 58 2d 09 e7 7a 62  25 8c 0d 58 36 29 41 6b  |..X-..zb%..X6)Ak|
00001360  25 2b 3d 74 6b 25 2b 31  3a 75 6b 25 3d 41 6b 25  |%+=tk%+1:uk%=Ak%|
00001370  3a 76 6b 25 2d 3d 74 6b  25 2b 31 3a 74 6b 25 3d  |:vk%-=tk%+1:tk%=|
00001380  72 6b 25 0d 58 63 13 cc  3a f2 6a 3a 41 6b 25 3d  |rk%.Xc..:.j:Ak%=|
00001390  2d 31 30 30 3a e1 0d 58  6c 05 cd 0d 58 75 05 cd  |-100:..Xl...Xu..|
000013a0  0d 58 7e 11 41 25 3d 31  3a e7 28 ac 7a 62 25 29  |.X~.A%=1:.(.zb%)|
000013b0  8c 0d 58 90 22 79 6b 25  3d 41 6b 25 3a e7 79 6b  |..X."yk%=Ak%:.yk|
000013c0  25 3e 66 6b 25 2d 31 31  8c 79 6b 25 3d 66 6b 25  |%>fk%-11.yk%=fk%|
000013d0  2d 31 31 0d 58 a2 12 e7  79 6b 25 3c 31 32 8c 79  |-11.X...yk%<12.y|
000013e0  6b 25 3d 31 32 0d 58 ab  27 21 7a 69 25 3d 28 79  |k%=12.X.'!zi%=(y|
000013f0  6b 25 2d 31 32 29 2a 4b  25 3a 21 41 69 25 3d 28  |k%-12)*K%:!Ai%=(|
00001400  79 6b 25 2d 31 32 29 3a  41 25 3d 30 0d 58 cf 05  |yk%-12):A%=0.X..|
00001410  cd 0d 58 cf 11 21 48 69  25 3d 41 6b 25 3a d6 77  |..X..!Hi%=Ak%:.w|
00001420  69 25 0d 58 ea 05 cd 0d  58 ea 05 cd 0d 58 f3 05  |i%.X....X....X..|
00001430  e1 0d 58 fc 0c dd f2 7a  3a e7 a4 48 8c 0d 59 17  |..X....z:..H..Y.|
00001440  62 f2 5a 61 28 64 24 29  3a c8 99 26 34 34 41 45  |b.Za(d$):..&44AE|
00001450  32 2c 32 36 32 2b 32 5e  31 31 2c 55 25 2c 22 73  |2,262+2^11,U%,"s|
00001460  3f 22 2c 2c 2c 2c 73 69  25 2c 74 69 25 3a c8 99  |?",,,,si%,ti%:..|
00001470  26 34 34 41 45 32 2c 32  36 32 2b 32 5e 31 31 2c  |&44AE2,262+2^11,|
00001480  55 25 2c 22 74 69 65 30  31 22 2c 2c 2c 2c 75 69  |U%,"tie01",,,,ui|
00001490  25 2c 76 69 25 3a d6 63  69 25 3a d6 42 69 25 0d  |%,vi%:.ci%:.Bi%.|
000014a0  59 4d 05 cd 0d 59 4d 05  e1 0d 59 56 19 dd f2 59  |YM...YM...YV...Y|
000014b0  3a 6e 3d a3 3a f2 67 3a  f2 6a 3a f2 72 3a f2 41  |:n=.:.g:.j:.r:.A|
000014c0  3a e1 0d 59 9e 45 dd f2  65 62 3a ea 76 25 2c 62  |:..Y.E..eb:.v%,b|
000014d0  25 2c 61 25 3a 67 24 3d  22 3c 4d 75 73 69 63 42  |%,a%:g$="<MusicB|
000014e0  6f 78 44 24 44 69 72 3e  2e 31 22 3a 76 25 3d ba  |oxD$Dir>.1":v%=.|
000014f0  28 61 69 25 29 3a 61 25  3d a4 4a 28 67 24 29 3a  |(ai%):a%=.J(g$):|
00001500  e7 61 25 3d 30 8c e1 0d  59 dd 2a 62 25 3d a4 66  |.a%=0...Y.*b%=.f|
00001510  28 22 4d 42 54 75 6e 65  20 20 22 2c 61 25 29 3a  |("MBTune  ",a%):|
00001520  e7 62 25 3d 30 8c 62 25  3d a4 62 28 31 2c 61 25  |.b%=0.b%=.b(1,a%|
00001530  29 0d 59 ef 1a e7 62 25  3d 30 8c 62 25 3d a4 66  |).Y...b%=0.b%=.f|
00001540  28 22 54 75 6e 65 22 2c  61 25 29 0d 59 f8 1e e7  |("Tune",a%).Y...|
00001550  62 25 3d 30 8c 62 25 3d  a4 62 28 31 32 2a 76 25  |b%=0.b%=.b(12*v%|
00001560  2b 31 32 2b 38 2c 61 25  29 0d 5a 01 20 e7 62 25  |+12+8,a%).Z. .b%|
00001570  3d 30 8c 62 25 3d a4 75  28 6a 63 25 2c 31 32 2a  |=0.b%=.u(jc%,12*|
00001580  76 25 2b 31 32 2c 61 25  29 0d 5a 0a 15 e7 62 25  |v%+12,a%).Z...b%|
00001590  3d 30 8c 62 25 3d a4 4b  28 31 2c 61 25 29 0d 5a  |=0.b%=.K(1,a%).Z|
000015a0  13 15 e7 62 25 3d 30 8c  62 25 3d a4 4c 28 31 2c  |...b%=0.b%=.L(1,|
000015b0  61 25 29 0d 5a 1c 15 e7  62 25 3d 30 8c 62 25 3d  |a%).Z...b%=0.b%=|
000015c0  a4 4d 28 31 2c 61 25 29  0d 5a 25 13 e7 62 25 3d  |.M(1,a%).Z%..b%=|
000015d0  30 8c 62 25 3d a4 4e 28  61 25 29 0d 5a 2e 13 e7  |0.b%=.N(a%).Z...|
000015e0  62 25 3d 30 8c 62 25 3d  a4 4f 28 61 25 29 0d 5a  |b%=0.b%=.O(a%).Z|
000015f0  37 13 e7 62 25 3d 30 8c  62 25 3d a4 50 28 61 25  |7..b%=0.b%=.P(a%|
00001600  29 0d 5a 40 13 e7 62 25  3d 30 8c 62 25 3d a4 51  |).Z@..b%=0.b%=.Q|
00001610  28 61 25 29 0d 5a 49 1a  e7 62 25 3d 30 8c 62 25  |(a%).ZI..b%=0.b%|
00001620  3d a4 66 28 22 45 6e 64  58 22 2c 61 25 29 0d 5a  |=.f("EndX",a%).Z|
00001630  52 16 e7 62 25 3d 30 8c  62 25 3d a4 62 28 2d 31  |R..b%=0.b%=.b(-1|
00001640  2c 61 25 29 0d 5a 5b 13  e7 62 25 3d 30 8c 62 25  |,a%).Z[..b%=0.b%|
00001650  3d a4 69 28 61 25 29 0d  5a 64 13 e7 62 25 3d 30  |=.i(a%).Zd..b%=0|
00001660  8c 62 25 3d a4 52 28 67  24 29 0d 5a 6d 50 e7 62  |.b%=.R(g$).ZmP.b|
00001670  25 3c 3e 30 8c f2 62 28  a4 63 28 62 25 2b 34 29  |%<>0..b(.c(b%+4)|
00001680  2c a3 29 3a 62 25 3d a4  69 28 61 25 29 8b f2 72  |,.):b%=.i(a%)..r|
00001690  3a f2 63 28 22 49 20 68  61 76 65 20 73 75 63 63  |:.c("I have succ|
000016a0  65 73 66 75 6c 6c 79 20  73 61 76 65 64 20 79 6f  |esfully saved yo|
000016b0  75 72 20 77 6f 72 6b 2e  22 29 0d 5a 7f 05 e1 0d  |ur work.").Z....|
000016c0  5a 88 39 dd f2 66 62 28  67 24 29 3a f2 69 3a f2  |Z.9..fb(g$):.i:.|
000016d0  6a 3a e7 a7 67 24 2c 22  2e 22 29 3d 30 8c 67 24  |j:..g$,".")=0.g$|
000016e0  3d 22 3c 4d 42 54 75 6e  65 46 69 6c 65 73 24 44  |="<MBTuneFiles$D|
000016f0  69 72 3e 2e 22 2b 67 24  0d 5a b5 15 61 25 3d a4  |ir>."+g$.Z..a%=.|
00001700  6c 28 67 24 29 3a e7 61  25 3d 30 8c e1 0d 5a c7  |l(g$):.a%=0...Z.|
00001710  2a 62 25 3d a4 68 28 62  24 2c 38 2c 61 25 29 3a  |*b%=.h(b$,8,a%):|
00001720  e7 62 25 3c 3e 30 8c f2  62 28 a4 63 28 62 25 2b  |.b%<>0..b(.c(b%+|
00001730  34 29 2c a3 29 3a e1 0d  5a d9 48 e7 62 24 3c 3e  |4),.):..Z.H.b$<>|
00001740  22 4d 42 43 6f 6d 70 6f  73 22 80 62 24 3c 3e 22  |"MBCompos".b$<>"|
00001750  4d 42 54 75 6e 65 20 20  22 8c f2 62 28 22 46 69  |MBTune  "..b("Fi|
00001760  6c 65 20 66 6f 72 6d 61  74 20 6e 6f 74 20 75 6e  |le format not un|
00001770  64 65 72 73 74 6f 6f 64  2e 22 2c a3 29 3a e1 0d  |derstood.",.):..|
00001780  5a e2 28 62 25 3d a4 61  28 63 25 2c 61 25 29 3a  |Z.(b%=.a(c%,a%):|
00001790  e7 62 25 3c 3e 30 8c f2  62 28 a4 63 28 62 25 2b  |.b%<>0..b(.c(b%+|
000017a0  34 29 2c a3 29 3a e1 0d  5a f4 69 e7 63 25 3e 31  |4),.):..Z.i.c%>1|
000017b0  8c f2 62 28 22 54 68 69  73 20 66 69 6c 65 20 77  |..b("This file w|
000017c0  61 73 20 6d 61 64 65 20  62 79 20 61 20 6e 65 77  |as made by a new|
000017d0  65 72 20 76 65 72 73 69  6f 6e 20 6f 66 20 4d 75  |er version of Mu|
000017e0  73 69 63 42 6f 78 2e 20  59 6f 75 20 77 69 6c 6c  |sicBox. You will|
000017f0  20 6e 65 65 64 20 61 6e  20 75 70 67 72 61 64 65  | need an upgrade|
00001800  20 74 6f 20 6c 6f 61 64  20 69 74 2e 22 2c a3 29  | to load it.",.)|
00001810  0d 5a fd 2a 62 25 3d a4  68 28 62 24 2c 34 2c 61  |.Z.*b%=.h(b$,4,a|
00001820  25 29 3a c8 95 62 25 3d  30 80 62 24 3c 3e 22 45  |%):..b%=0.b$<>"E|
00001830  6e 64 58 22 3a c8 8e 62  24 ca 0d 5b 21 15 c9 22  |ndX":..b$..[!.."|
00001840  54 75 6e 65 22 3a 62 25  3d a4 53 28 61 25 29 0d  |Tune":b%=.S(a%).|
00001850  5b 33 17 c9 22 49 6e 73  74 22 3a 62 25 3d a4 76  |[3.."Inst":b%=.v|
00001860  28 31 2c 61 25 29 0d 5b  3c 17 c9 22 54 65 6d 70  |(1,a%).[<.."Temp|
00001870  22 3a 62 25 3d a4 77 28  31 2c 61 25 29 0d 5b 45  |":b%=.w(1,a%).[E|
00001880  17 c9 22 56 6f 6c 75 22  3a 62 25 3d a4 78 28 31  |.."Volu":b%=.x(1|
00001890  2c 61 25 29 0d 5b 4e 15  c9 22 4f 63 74 61 22 3a  |,a%).[N.."Octa":|
000018a0  62 25 3d a4 79 28 61 25  29 0d 5b 57 15 c9 22 4b  |b%=.y(a%).[W.."K|
000018b0  65 79 20 22 3a 62 25 3d  a4 7a 28 61 25 29 0d 5b  |ey ":b%=.z(a%).[|
000018c0  60 15 c9 22 50 65 6e 74  22 3a 62 25 3d a4 42 28  |`.."Pent":b%=.B(|
000018d0  61 25 29 0d 5b 69 15 c9  22 43 6f 6c 75 22 3a 62  |a%).[i.."Colu":b|
000018e0  25 3d a4 54 28 61 25 29  0d 5b 72 0f 7f 3a 62 25  |%=.T(a%).[r..:b%|
000018f0  3d a4 6a 28 61 25 29 0d  5b 7b 05 cb 0d 5b 7b 18  |=.j(a%).[{...[{.|
00001900  e7 62 25 3d 30 8c 62 25  3d a4 68 28 62 24 2c 34  |.b%=0.b%=.h(b$,4|
00001910  2c 61 25 29 0d 5b 84 1b  ce 3a e7 62 25 3c 3e 30  |,a%).[...:.b%<>0|
00001920  8c f2 62 28 a4 63 28 62  25 2b 34 29 2c a3 29 0d  |..b(.c(b%+4),.).|
00001930  5b 9f 1a 62 25 3d a4 69  28 61 25 29 3a f2 70 3a  |[..b%=.i(a%):.p:|
00001940  f2 72 3a e7 77 25 3d 31  8c 0d 5b c3 1a f2 7a 3a  |.r:.w%=1..[...z:|
00001950  f2 43 28 30 29 3a c8 99  26 34 34 41 45 42 2c 33  |.C(0):..&44AEB,3|
00001960  2c 6f 25 0d 5b e7 05 cd  0d 5b e7 05 e1 0d 5b f0  |,o%.[....[....[.|
00001970  4c dd a4 53 28 61 25 29  3a ea 62 25 2c 76 25 3a  |L..S(a%):.b%,v%:|
00001980  c8 99 26 34 34 41 44 41  2c 6a 63 25 2c 76 62 25  |..&44ADA,jc%,vb%|
00001990  2a 31 32 3a 62 25 3d a4  61 28 76 25 2c 61 25 29  |*12:b%=.a(v%,a%)|
000019a0  3a e7 62 25 3d 30 8c 62  25 3d a4 6b 28 6a 63 25  |:.b%=0.b%=.k(jc%|
000019b0  2c 76 25 2d 38 2c 61 25  29 0d 5c 26 24 76 25 3d  |,v%-8,a%).\&$v%=|
000019c0  28 28 28 76 25 2d 38 29  81 31 32 29 81 32 34 29  |(((v%-8).12).24)|
000019d0  2b 31 3a e7 76 25 3e 57  25 2f 32 34 8c 0d 5c 38  |+1:.v%>W%/24..\8|
000019e0  0a e7 ac 42 6b 25 8c 0d  5c 41 2a 57 25 3d 76 25  |...Bk%..\A*W%=v%|
000019f0  2a 32 34 3a 21 5a 68 25  3d 57 25 3a 21 5f 68 25  |*24:!Zh%=W%:!_h%|
00001a00  3d 57 25 2a 31 32 3a 21  6d 69 25 3d 57 25 2a 31  |=W%*12:!mi%=W%*1|
00001a10  32 0d 5c 6e 05 cd 0d 5c  6e 26 c8 99 26 34 34 41  |2.\n...\n&..&44A|
00001a20  44 41 2c 6a 63 25 2b 57  25 2a 31 32 2c 76 62 25  |DA,jc%+W%*12,vb%|
00001a30  2a 31 32 2b 31 32 2d 57  25 2a 31 32 0d 5c 80 05  |*12+12-W%*12.\..|
00001a40  cd 0d 5c 80 07 3d 62 25  0d 5c 9b 12 dd f2 67 62  |..\..=b%.\....gb|
00001a50  28 64 25 29 3a c8 8e 64  25 ca 0d 5c a4 14 c9 66  |(d%):..d%..\...f|
00001a60  67 25 3a f2 73 28 64 25  2c 6f 25 2c 31 29 0d 5c  |g%:.s(d%,o%,1).\|
00001a70  b6 11 c9 6c 67 25 3a f2  76 28 6f 25 2c 31 29 0d  |...lg%:.v(o%,1).|
00001a80  5c bf 11 c9 6b 67 25 3a  f2 76 28 6f 25 2c 30 29  |\...kg%:.v(o%,0)|
00001a90  0d 5c c8 14 c9 6a 67 25  3a e7 a4 70 28 64 25 29  |.\...jg%:..p(d%)|
00001aa0  8c f2 68 62 0d 5c c8 18  c9 69 67 25 3a e7 a4 70  |..hb.\...ig%:..p|
00001ab0  28 64 25 29 8c f2 6e 28  30 2c 31 29 0d 5c d1 0f  |(d%)..n(0,1).\..|
00001ac0  c9 2d 58 66 25 3a f2 43  28 30 29 0d 5c e3 10 c9  |.-Xf%:.C(0).\...|
00001ad0  2d 59 66 25 3a f2 43 28  2d 31 29 0d 5c ec 18 c9  |-Yf%:.C(-1).\...|
00001ae0  5f 66 25 3a e7 a4 70 28  64 25 29 8c f2 6e 28 31  |_f%:..p(d%)..n(1|
00001af0  2c 31 29 0d 5c ec 12 c9  68 67 25 3a f2 68 28 6f  |,1).\...hg%:.h(o|
00001b00  25 29 3a f2 59 0d 5d 10  0b c9 2d 31 3a f2 69 62  |%):.Y.]...-1:.ib|
00001b10  0d 5d 19 05 cb 0d 5d 19  05 e1 0d 5d 22 6b dd f2  |.]....]....]"k..|
00001b20  68 62 3a ea 41 25 3a 43  6b 25 3d 28 ba 28 61 69  |hb:.A%:Ck%=(.(ai|
00001b30  25 29 2b 31 29 3a e7 43  6b 25 3c 31 84 43 6b 25  |%)+1):.Ck%<1.Ck%|
00001b40  3e 57 25 2f 32 8c f2 63  28 22 54 68 65 20 70 61  |>W%/2..c("The pa|
00001b50  70 65 72 20 69 73 20 6e  6f 74 20 6c 6f 6e 67 20  |per is not long |
00001b60  65 6e 6f 75 67 68 20 74  6f 20 63 6f 70 79 20 79  |enough to copy y|
00001b70  6f 75 72 20 70 72 65 73  65 6e 74 20 74 75 6e 65  |our present tune|
00001b80  2e 22 29 3a e1 0d 5d 4f  31 44 6b 25 3d 28 57 25  |."):..]O1Dk%=(W%|
00001b90  2f 43 6b 25 29 2d 31 3a  c8 99 26 34 34 41 43 42  |/Ck%)-1:..&44ACB|
00001ba0  2c 44 64 25 2c 7a 64 25  2c 31 3a f2 6e 28 44 64  |,Dd%,zd%,1:.n(Dd|
00001bb0  25 2c 31 29 3a e1 0d 5d  73 18 dd f2 63 62 28 41  |%,1):..]s...cb(A|
00001bc0  25 29 3a 41 62 25 3d 41  25 3a e7 41 25 8c 0d 5d  |%):Ab%=A%:.A%..]|
00001bd0  97 0a 21 5a 6a 25 3d 32  0d 5d a9 0c cc 3a 21 5a  |..!Zj%=2.]...:!Z|
00001be0  6a 25 3d 31 0d 5d bb 05  cd 0d 5d bb 05 e1 0d 5d  |j%=1.]....]....]|
00001bf0  c4 22 dd f2 43 28 41 25  29 3a e7 41 25 3d 2d 31  |."..C(A%):.A%=-1|
00001c00  8c 41 25 3d ba 28 61 69  25 29 2d 32 33 2b 31 32  |.A%=.(ai%)-23+12|
00001c10  0d 5d df 0e e7 41 25 3c  30 8c 41 25 3d 30 0d 5d  |.]...A%<0.A%=0.]|
00001c20  e8 16 e7 41 25 3e 57 25  2d 32 34 8c 41 25 3d 57  |...A%>W%-24.A%=W|
00001c30  25 2d 32 34 0d 5d f1 61  21 7a 69 25 3d 41 25 2a  |%-24.].a!zi%=A%*|
00001c40  4b 25 3a 21 41 69 25 3d  41 25 3a 41 25 3d 30 3a  |K%:!Ai%=A%:A%=0:|
00001c50  d6 77 69 25 3a d6 42 69  25 3a c8 99 26 34 34 41  |.wi%:.Bi%:..&44A|
00001c60  44 44 2c 33 2b 35 31 32  2c 6f 25 2c 59 66 25 2c  |DD,3+512,o%,Yf%,|
00001c70  30 2c 2c 76 67 25 3a c8  99 26 34 34 41 44 44 2c  |0,,vg%:..&44ADD,|
00001c80  33 2b 35 31 32 2c 6f 25  2c 58 66 25 2c 30 2c 2c  |3+512,o%,Xf%,0,,|
00001c90  76 67 25 3a e1 0d 5e 39  16 dd f2 6a 62 28 6e 25  |vg%:..^9...jb(n%|
00001ca0  2c 45 6b 25 29 3a e7 45  6b 25 8c 0d 5e 54 09 c8  |,Ek%):.Ek%..^T..|
00001cb0  8e 6e 25 ca 0d 5e 5d 2b  c9 30 3a c8 99 26 34 34  |.n%..^]+.0:..&44|
00001cc0  41 44 41 2c 6a 63 25 2c  57 25 2a 31 32 3a f2 7a  |ADA,jc%,W%*12:.z|
00001cd0  3a f2 43 28 30 29 3a f2  6a 3a f2 6c 28 31 29 0d  |:.C(0):.j:.l(1).|
00001ce0  5e 9c 63 c9 44 64 25 3a  c8 99 26 34 34 41 43 43  |^.c.Dd%:..&44ACC|
00001cf0  2c 44 64 25 2c 7a 64 25  b8 2c 2c 45 6b 25 3a e3  |,Dd%,zd%.,,Ek%:.|
00001d00  65 25 3d 31 b8 45 6b 25  3a c8 99 26 34 34 41 43  |e%=1.Ek%:..&44AC|
00001d10  37 2c 43 6b 25 2a 31 32  2c 6a 63 25 2c 6a 63 25  |7,Ck%*12,jc%,jc%|
00001d20  2b 43 6b 25 2a 65 25 2a  31 32 3a ed 3a f2 7a 3a  |+Ck%*e%*12:.:.z:|
00001d30  f2 6a 3a 41 25 3d 30 3a  d6 77 69 25 3a f2 6c 28  |.j:A%=0:.wi%:.l(|
00001d40  31 29 0d 5e f6 0d c9 31  3a f2 6b 62 28 31 29 0d  |1).^...1:.kb(1).|
00001d50  5e ff 05 cb 0d 5e ff 05  cd 0d 5f 08 05 e1 0d 5f  |^....^...._...._|
00001d60  11 39 dd a4 4e 28 61 25  29 3a ea 65 25 2c 63 25  |.9..N(a%):.e%,c%|
00001d70  2c 62 25 3a 62 25 3d a4  66 28 22 43 6f 6c 75 22  |,b%:b%=.f("Colu"|
00001d80  2c 61 25 29 3a e7 62 25  3d 30 8c 62 25 3d a4 62  |,a%):.b%=0.b%=.b|
00001d90  28 31 32 2c 61 25 29 0d  5f 3e 17 e7 62 25 3d 30  |(12,a%)._>..b%=0|
00001da0  8c 62 25 3d a4 62 28 44  62 25 2c 61 25 29 0d 5f  |.b%=.b(Db%,a%)._|
00001db0  47 07 3d 62 25 0d 5f 62  23 dd a4 54 28 61 25 29  |G.=b%._b#..T(a%)|
00001dc0  3a ea 65 25 2c 63 25 2c  62 25 3a e7 ac 46 6b 25  |:.e%,c%,b%:..Fk%|
00001dd0  8c 3d a4 6a 28 61 25 29  0d 5f 74 23 62 25 3d a4  |.=.j(a%)._t#b%=.|
00001de0  61 28 63 25 2c 61 25 29  3a e7 62 25 3d 30 8c 62  |a(c%,a%):.b%=0.b|
00001df0  25 3d a4 61 28 63 25 2c  61 25 29 0d 5f 86 1e 44  |%=.a(c%,a%)._..D|
00001e00  62 25 3d 63 25 3a e7 77  25 3d 31 8c f2 79 28 32  |b%=c%:.w%=1..y(2|
00001e10  5e 44 62 25 2c 67 62 25  29 0d 5f 98 07 3d 62 25  |^Db%,gb%)._..=b%|
00001e20  0d 5f b3 15 dd a4 70 28  64 25 29 3a ea 79 25 3a  |._....p(d%):.y%:|
00001e30  c8 8e 64 25 ca 0d 5f c5  0f c9 53 66 25 3a 79 25  |..d%.._...Sf%:y%|
00001e40  3d 47 6b 25 0d 5f d7 11  c9 53 66 25 2b 31 3a 79  |=Gk%._...Sf%+1:y|
00001e50  25 3d 48 6b 25 0d 5f e0  11 c9 53 66 25 2b 32 3a  |%=Hk%._...Sf%+2:|
00001e60  79 25 3d 49 6b 25 0d 5f  e9 0f c9 54 66 25 3a 79  |y%=Ik%._...Tf%:y|
00001e70  25 3d 4a 6b 25 0d 5f f2  0f c9 55 66 25 3a 79 25  |%=Jk%._...Uf%:y%|
00001e80  3d 4b 6b 25 0d 5f fb 0f  c9 6a 67 25 3a 79 25 3d  |=Kk%._...jg%:y%=|
00001e90  4c 6b 25 0d 60 04 0f c9  69 67 25 3a 79 25 3d 4d  |Lk%.`...ig%:y%=M|
00001ea0  6b 25 0d 60 0d 0f c9 5f  66 25 3a 79 25 3d 4e 6b  |k%.`..._f%:y%=Nk|
00001eb0  25 0d 60 16 05 cb 0d 60  16 0b e7 ac 79 25 8c f2  |%.`....`....y%..|
00001ec0  49 0d 60 1f 07 3d 79 25  0d 60 4c 1c dd f2 6c 62  |I.`..=y%.`L...lb|
00001ed0  28 64 25 2c 58 25 2c 59  25 29 3a e7 55 61 25 3c  |(d%,X%,Y%):.Ua%<|
00001ee0  3e 30 8c e1 0d 60 55 09  c8 8e 64 25 ca 0d 60 5e  |>0...`U...d%..`^|
00001ef0  18 c9 75 68 25 3a f2 52  28 6c 25 2c 64 25 2c 58  |..uh%:.R(l%,d%,X|
00001f00  25 2c 59 25 29 0d 60 70  4d c9 6f 68 25 3a c8 99  |%,Y%).`pM.oh%:..|
00001f10  26 34 34 41 45 33 2c 36  2c 5f 25 2c 6c 25 3a c8  |&44AE3,6,_%,l%:.|
00001f20  99 26 34 34 41 45 35 2c  31 2c 6c 25 2c 58 25 2c  |.&44AE5,1,l%,X%,|
00001f30  59 25 2c 2c 48 68 25 b8  2c 2c 64 25 3a c8 99 26  |Y%,,Hh%.,,d%:..&|
00001f40  34 34 41 45 33 2c 37 2c  5f 25 2c 6c 25 3a c8 8e  |44AE3,7,_%,l%:..|
00001f50  b9 ca 0d 60 94 5a c9 28  64 25 3e 3d 69 68 25 80  |...`.Z.(d%>=ih%.|
00001f60  64 25 3c 3d 6a 68 25 29  3a c8 99 26 34 34 41 44  |d%<=jh%):..&44AD|
00001f70  44 2c 37 2b 35 31 32 2c  6c 25 2c 64 25 2c 31 2c  |D,7+512,l%,d%,1,|
00001f80  2c 48 68 25 3a f2 53 28  64 25 2d 69 68 25 2b 31  |,Hh%:.S(d%-ih%+1|
00001f90  29 3a f2 6d 62 28 62 25  28 32 2c 64 25 2d 69 68  |):.mb(b%(2,d%-ih|
00001fa0  25 29 2c 64 25 2d 69 68  25 2b 31 29 0d 60 c1 05  |%),d%-ih%+1).`..|
00001fb0  cb 0d 60 c1 05 cb 0d 60  ca 05 e1 0d 60 d3 33 dd  |..`....`....`.3.|
00001fc0  f2 6e 62 28 70 25 2c 64  25 2c 58 25 2c 59 25 29  |.nb(p%,d%,X%,Y%)|
00001fd0  3a ea 41 25 2c 43 25 2c  44 25 2c 42 25 2c 41 24  |:.A%,C%,D%,B%,A$|
00001fe0  3a e7 28 70 25 80 28 34  3c 3c 34 29 29 8c 0d 61  |:.(p%.(4<<4))..a|
00001ff0  00 09 c8 8e 64 25 ca 0d  61 09 1c c9 75 68 25 2c  |....d%..a...uh%,|
00002000  79 68 25 3a f2 47 28 6c  25 2c 64 25 2c 58 25 2c  |yh%:.G(l%,d%,X%,|
00002010  59 25 29 0d 61 24 05 cb  0d 61 24 05 cd 0d 61 2d  |Y%).a$...a$...a-|
00002020  0e e7 28 70 25 80 34 29  3d 34 8c 0d 61 36 09 c8  |..(p%.4)=4..a6..|
00002030  8e 64 25 ca 0d 61 3f 2c  c9 72 68 25 3a c8 99 26  |.d%..a?,.rh%:..&|
00002040  34 34 41 44 44 2c 37 2c  6c 25 2c 64 25 3a f2 44  |44ADD,7,l%,d%:.D|
00002050  28 6c 25 2c 73 68 25 2c  77 68 25 2c 31 2c b9 29  |(l%,sh%,wh%,1,.)|
00002060  0d 61 63 44 c9 71 68 25  3a c8 99 26 34 34 41 44  |.acD.qh%:..&44AD|
00002070  44 2c 37 2c 6c 25 2c 64  25 3a c8 99 26 34 34 41  |D,7,l%,d%:..&44A|
00002080  44 44 2c 37 2c 6c 25 2c  72 68 25 3a 4f 6b 25 3d  |DD,7,l%,rh%:Ok%=|
00002090  b9 3a f2 44 28 6c 25 2c  73 68 25 2c 77 68 25 2c  |.:.D(l%,sh%,wh%,|
000020a0  31 2c b9 29 0d 61 90 2c  c9 70 68 25 3a c8 99 26  |1,.).a.,.ph%:..&|
000020b0  34 34 41 44 44 2c 37 2c  6c 25 2c 64 25 3a f2 44  |44ADD,7,l%,d%:.D|
000020c0  28 6c 25 2c 73 68 25 2c  77 68 25 2c 31 2c a3 29  |(l%,sh%,wh%,1,.)|
000020d0  0d 61 ab 16 c9 73 68 25  3a f2 6f 28 6c 25 2c 64  |.a...sh%:.o(l%,d|
000020e0  25 2c 77 68 25 29 0d 61  bd 31 c9 74 68 25 3a f2  |%,wh%).a.1.th%:.|
000020f0  6c 28 32 29 3a c8 99 26  34 34 41 44 44 2c 37 2c  |l(2):..&44ADD,7,|
00002100  6c 25 2c 64 25 3a f2 6f  62 28 6c 25 2c 73 68 25  |l%,d%:.ob(l%,sh%|
00002110  2c 77 68 25 2c 31 29 0d  61 e1 22 c9 77 68 25 2c  |,wh%,1).a.".wh%,|
00002120  78 68 25 2c 42 68 25 2c  43 68 25 2c 44 68 25 3a  |xh%,Bh%,Ch%,Dh%:|
00002130  f2 65 28 6c 25 2c 64 25  29 0d 61 f3 2e c9 75 68  |.e(l%,d%).a...uh|
00002140  25 3a c8 99 26 34 34 41  44 34 2c 30 2c 6c 25 2c  |%:..&44AD4,0,l%,|
00002150  64 25 2c 58 25 2c 59 25  b8 63 25 3a f2 64 28 28  |d%,X%,Y%.c%:.d((|
00002160  63 25 2b 34 30 29 29 0d  62 0e 29 c9 79 68 25 3a  |c%+40)).b.).yh%:|
00002170  c8 99 26 34 34 41 44 34  2c 30 2c 6c 25 2c 64 25  |..&44AD4,0,l%,d%|
00002180  2c 58 25 2c 59 25 b8 63  25 3a f2 71 28 63 25 29  |,X%,Y%.c%:.q(c%)|
00002190  0d 62 29 18 c9 45 68 25  3a e7 ac 50 61 25 8c f2  |.b)..Eh%:..Pa%..|
000021a0  65 28 6c 25 2c 64 25 29  0d 62 32 29 c8 99 26 34  |e(l%,d%).b2)..&4|
000021b0  34 41 44 34 2c 31 2c 6c  25 2c 75 68 25 b8 63 25  |4AD4,1,l%,uh%.c%|
000021c0  3a 63 25 2d 3d 31 3a e7  63 25 3c 30 8c 63 25 3d  |:c%-=1:.c%<0.c%=|
000021d0  30 0d 62 4d 27 c8 99 26  34 34 41 44 34 2c 32 2c  |0.bM'..&44AD4,2,|
000021e0  6c 25 2c 75 68 25 2c 63  25 b8 63 25 3a f2 64 28  |l%,uh%,c%.c%:.d(|
000021f0  28 63 25 2b 34 30 29 29  0d 62 68 18 c9 46 68 25  |(c%+40)).bh..Fh%|
00002200  3a e7 ac 50 61 25 8c f2  65 28 6c 25 2c 64 25 29  |:..Pa%..e(l%,d%)|
00002210  0d 62 71 2d c8 99 26 34  34 41 44 34 2c 31 2c 6c  |.bq-..&44AD4,1,l|
00002220  25 2c 75 68 25 b8 63 25  3a 63 25 2b 3d 31 3a e7  |%,uh%.c%:c%+=1:.|
00002230  63 25 3e 32 35 35 8c 63  25 3d 32 35 35 0d 62 8c  |c%>255.c%=255.b.|
00002240  27 c8 99 26 34 34 41 44  34 2c 32 2c 6c 25 2c 75  |'..&44AD4,2,l%,u|
00002250  68 25 2c 63 25 b8 63 25  3a f2 64 28 28 63 25 2b  |h%,c%.c%:.d((c%+|
00002260  34 30 29 29 0d 62 a7 1b  c9 41 68 25 3a c8 99 26  |40)).b...Ah%:..&|
00002270  34 34 41 44 36 2c 6c 64  25 2c 58 25 2c 59 25 0d  |44AD6,ld%,X%,Y%.|
00002280  62 b0 10 c9 6f 68 25 3a  e7 55 61 25 3d 30 8c 0d  |b...oh%:.Ua%=0..|
00002290  62 b9 48 c8 99 26 34 34  41 45 33 2c 36 2c 5f 25  |b.H..&44AE3,6,_%|
000022a0  2c 6c 25 3a c8 99 26 34  34 41 45 35 2c 30 2c 6c  |,l%:..&44AE5,0,l|
000022b0  25 2c 58 25 2c 59 25 2c  2c 48 68 25 b8 2c 2c 64  |%,X%,Y%,,Hh%.,,d|
000022c0  25 3a c8 99 26 34 34 41  45 33 2c 37 2c 5f 25 2c  |%:..&44AE3,7,_%,|
000022d0  6c 25 3a c8 8e b9 ca 0d  62 dd 4e c9 28 64 25 3e  |l%:.....b.N.(d%>|
000022e0  3d 69 68 25 80 64 25 3c  3d 6a 68 25 29 3a f2 48  |=ih%.d%<=jh%):.H|
000022f0  28 64 25 2d 69 68 25 2b  31 2c 2d 31 2c 6c 25 2c  |(d%-ih%+1,-1,l%,|
00002300  2d 64 25 2b 69 68 25 2d  31 29 3a f2 6d 62 28 62  |-d%+ih%-1):.mb(b|
00002310  25 28 32 2c 64 25 2d 69  68 25 29 2c 64 25 2d 69  |%(2,d%-ih%),d%-i|
00002320  68 25 2b 31 29 0d 63 01  8e c9 28 64 25 3e 3d 6c  |h%+1).c...(d%>=l|
00002330  68 25 80 64 25 3c 3d 6c  68 25 2b 6b 68 25 2d 31  |h%.d%<=lh%+kh%-1|
00002340  29 3a 68 25 28 64 25 2d  6c 68 25 2c 30 29 3d 64  |):h%(d%-lh%,0)=d|
00002350  63 25 3a 41 24 3d 61 24  28 62 25 28 32 2c 64 63  |c%:A$=a$(b%(2,dc|
00002360  25 2d 31 29 29 3a c8 99  26 34 34 41 44 44 2c 31  |%-1)):..&44ADD,1|
00002370  2b 35 31 32 2c 6c 25 2c  64 25 2c 22 73 22 2b 41  |+512,l%,d%,"s"+A|
00002380  24 2b 22 2c 70 22 2b 41  24 2c 2c 48 68 25 3a f2  |$+",p"+A$,,Hh%:.|
00002390  5a 28 64 25 2d 6c 68 25  29 3a f2 65 28 6c 25 2c  |Z(d%-lh%):.e(l%,|
000023a0  2d 31 30 2d 28 64 25 2d  6c 68 25 29 29 3a f2 6c  |-10-(d%-lh%)):.l|
000023b0  28 32 29 0d 63 40 05 cb  0d 63 40 05 cd 0d 63 49  |(2).c@...c@...cI|
000023c0  0a 7f 3a c8 8e b9 ca 0d  63 5b 38 c9 28 64 25 3e  |..:.....c[8.(d%>|
000023d0  3d 6d 68 25 80 64 25 3c  6d 68 25 2b 6b 68 25 29  |=mh%.d%<mh%+kh%)|
000023e0  3a e7 55 61 25 3d 30 8c  f2 70 62 28 64 25 2d 6d  |:.Ua%=0..pb(d%-m|
000023f0  68 25 2c 58 25 2c 59 25  29 3a f2 6c 28 32 29 0d  |h%,X%,Y%):.l(2).|
00002400  63 6d 24 c9 28 64 25 3e  3d 6e 68 25 80 64 25 3c  |cm$.(d%>=nh%.d%<|
00002410  6e 68 25 2b 6b 68 25 29  3a f2 5a 28 64 25 2d 6e  |nh%+kh%):.Z(d%-n|
00002420  68 25 29 0d 63 88 05 cb  0d 63 88 05 cb 0d 63 91  |h%).c....c....c.|
00002430  05 cd 0d 63 9a 05 e1 0d  63 a3 17 dd f2 6d 62 28  |...c....c....mb(|
00002440  78 25 2c 71 25 29 3a e7  78 25 3e 3d 30 8c 0d 63  |x%,q%):.x%>=0..c|
00002450  be 11 64 24 3d 22 73 22  2b 61 24 28 78 25 29 0d  |..d$="s"+a$(x%).|
00002460  63 d0 22 cc 3a 85 31 2c  22 54 68 69 73 20 73 68  |c.".:.1,"This sh|
00002470  6f 75 6c 64 20 6e 6f 74  20 68 61 70 70 65 6e 21  |ould not happen!|
00002480  22 0d 63 e2 05 cd 0d 63  e2 32 c8 99 26 34 34 41  |".c....c.2..&44A|
00002490  45 33 2c 31 2b 32 5e 31  31 2c 55 25 2c 64 24 2c  |E3,1+2^11,U%,d$,|
000024a0  77 62 25 2c 77 62 25 2c  5f 25 b8 2c 2c 5f 25 3a  |wb%,wb%,_%.,,_%:|
000024b0  64 63 25 3d 71 25 3a e1  0d 63 fd b1 dd f2 71 62  |dc%=q%:..c....qb|
000024c0  3a ea 63 25 3a f2 68 28  42 66 25 29 3a f2 54 28  |:.c%:.h(Bf%):.T(|
000024d0  6c 25 29 3a 4f 6b 25 3d  a3 3a f2 79 28 31 2c 67  |l%):Ok%=.:.y(1,g|
000024e0  62 25 29 3a f2 72 62 3a  f2 55 28 32 29 3a f2 56  |b%):.rb:.U(2):.V|
000024f0  28 6c 25 2c 79 68 25 29  3a c8 99 26 34 34 41 44  |(l%,yh%):..&44AD|
00002500  34 2c 31 2c 6c 25 2c 75  68 25 b8 63 25 3a f2 64  |4,1,l%,uh%.c%:.d|
00002510  28 63 25 2b 34 30 29 3a  c8 99 26 34 34 41 44 44  |(c%+40):..&44ADD|
00002520  2c 37 2b 35 31 32 2c 6c  25 2c 69 68 25 2b 64 63  |,7+512,l%,ih%+dc|
00002530  25 2d 31 2c 2c 2c 48 68  25 3a 51 61 25 3d b9 3a  |%-1,,,Hh%:Qa%=.:|
00002540  f2 67 3a f2 73 28 77 68  25 2c 6c 25 2c 30 29 3a  |.g:.s(wh%,l%,0):|
00002550  f2 74 3a f2 6d 62 28 62  25 28 32 2c 64 63 25 2d  |.t:.mb(b%(2,dc%-|
00002560  31 29 2c 64 63 25 29 3a  e1 0d 64 a8 68 dd f2 73  |1),dc%):..d.h..s|
00002570  62 28 48 25 2c 4a 25 2c  73 25 29 3a ea 65 25 3a  |b(H%,J%,s%):.e%:|
00002580  e3 65 25 3d 30 b8 47 68  25 2d 31 3a c8 99 26 34  |.e%=0.Gh%-1:..&4|
00002590  34 41 45 30 2c 2c 48 68  25 2b 34 2b 33 32 2a 65  |4AE0,,Hh%+4+32*e|
000025a0  25 2c 73 25 3a ed 3a f2  57 28 48 25 2c 4a 25 29  |%,s%:.:.W(H%,J%)|
000025b0  3a 21 4c 69 25 3d 48 25  3a 21 4d 69 25 3d 4a 25  |:!Li%=H%:!Mi%=J%|
000025c0  3a d6 45 69 25 3a f2 58  28 48 25 2c 4a 25 29 3a  |:.Ei%:.X(H%,J%):|
000025d0  e1 0d 65 14 1e dd f2 74  62 3a ea 64 25 2c 50 6b  |..e....tb:.d%,Pk|
000025e0  25 3a d6 54 69 25 3a e7  55 61 25 3c 3e 32 8c 0d  |%:.Ti%:.Ua%<>2..|
000025f0  65 41 26 c8 99 26 34 30  30 43 46 2c 2c 68 25 3a  |eA&..&400CF,,h%:|
00002600  64 25 3d 68 25 21 31 36  3a 50 6b 25 3d 65 63 25  |d%=h%!16:Pk%=ec%|
00002610  3a c8 8e b9 ca 0d 65 65  3b c9 28 68 25 21 38 80  |:.....ee;.(h%!8.|
00002620  34 29 3d 34 80 28 64 25  3e 3d 6d 68 25 80 64 25  |4)=4.(d%>=mh%.d%|
00002630  3c 3d 6d 68 25 2b 6b 68  25 2d 31 29 3a e7 50 6b  |<=mh%+kh%-1):.Pk|
00002640  25 3c 3e 64 25 2d 6d 68  25 8c 50 6b 25 3d 2d 31  |%<>d%-mh%.Pk%=-1|
00002650  0d 65 77 08 c9 50 61 25  0d 65 89 32 c9 28 68 25  |.ew..Pa%.e.2.(h%|
00002660  21 38 80 34 29 3d 34 80  28 64 25 3e 3d 6e 68 25  |!8.4)=4.(d%>=nh%|
00002670  80 64 25 3c 3d 6e 68 25  2b 6b 68 25 2d 31 29 3a  |.d%<=nh%+kh%-1):|
00002680  50 6b 25 3d 64 25 2d 6e  68 25 0d 65 9b 0b 7f 50  |Pk%=d%-nh%.e...P|
00002690  6b 25 3d 2d 31 0d 65 a4  05 cb 0d 65 a4 0e e7 65  |k%=-1.e....e...e|
000026a0  63 25 3c 3e 50 6b 25 8c  0d 65 ad 17 e7 50 6b 25  |c%<>Pk%..e...Pk%|
000026b0  3d 2d 31 8c f2 75 62 8b  f2 5a 28 50 6b 25 29 0d  |=-1..ub..Z(Pk%).|
000026c0  65 b6 05 cd 0d 65 bf 05  cd 0d 65 c8 05 e1 0d 65  |e....e....e....e|
000026d0  d1 59 dd f2 72 62 3a c8  99 26 34 34 41 45 33 2c  |.Y..rb:..&44AE3,|
000026e0  31 2b 32 5e 31 31 2c 55  25 2c 64 24 2c 77 62 25  |1+2^11,U%,d$,wb%|
000026f0  2c 77 62 25 2c 5f 25 b8  2c 2c 5f 25 3a c8 99 26  |,wb%,_%.,,_%:..&|
00002700  34 34 41 45 32 2c 32 36  32 2b 32 5e 31 31 2c 55  |44AE2,262+2^11,U|
00002710  25 2c 22 43 69 72 63 6c  65 22 2c 2c 2c 2c 50 69  |%,"Circle",,,,Pi|
00002720  25 2c 51 69 25 3a e1 0d  65 fe 2a dd f2 76 62 3a  |%,Qi%:..e.*..vb:|
00002730  51 61 25 3d a3 3a f2 6f  28 6c 25 2c 64 25 2c 77  |Qa%=.:.o(l%,d%,w|
00002740  68 25 29 3a f2 6d 3a f2  67 3a f2 41 3a f2 72 3a  |h%):.m:.g:.A:.r:|
00002750  e1 0d 66 4f 12 dd f2 77  62 28 64 25 29 3a c8 8e  |..fO...wb(d%):..|
00002760  64 25 ca 0d 66 6a 14 c9  77 68 25 3a f2 73 28 64  |d%..fj..wh%:.s(d|
00002770  25 2c 6c 25 2c 31 29 0d  66 7c 13 c9 78 68 25 3a  |%,l%,1).f|..xh%:|
00002780  f2 68 28 6c 25 29 3a f2  76 62 0d 66 85 11 c9 43  |.h(l%):.vb.f...C|
00002790  68 25 3a f2 76 28 6c 25  2c 35 29 0d 66 8e 11 c9  |h%:.v(l%,5).f...|
000027a0  42 68 25 3a f2 76 28 6c  25 2c 34 29 0d 66 97 18  |Bh%:.v(l%,4).f..|
000027b0  c9 44 68 25 3a e7 4e 6b  25 8c f2 6e 28 31 2c 32  |.Dh%:.Nk%..n(1,2|
000027c0  29 8b f2 49 0d 66 97 15  7f 3a e7 64 25 3c 30 80  |)..I.f...:.d%<0.|
000027d0  64 25 3e 2d 38 8c f2 69  62 0d 66 a9 16 e7 64 25  |d%>-8..ib.f...d%|
000027e0  3c 2d 39 80 64 25 3e 2d  31 30 2d 6b 68 25 8c 0d  |<-9.d%>-10-kh%..|
000027f0  66 b2 4d c8 99 26 34 34  41 45 33 2c 36 2c 5f 25  |f.M..&44AE3,6,_%|
00002800  2c 6c 25 3a c8 99 26 34  34 41 44 44 2c 33 2b 35  |,l%:..&44ADD,3+5|
00002810  31 32 2c 6c 25 2c 2d 31  30 2d 64 25 2b 6c 68 25  |12,l%,-10-d%+lh%|
00002820  2c 30 2c 2c 48 68 25 3a  c8 99 26 34 34 41 45 33  |,0,,Hh%:..&44AE3|
00002830  2c 37 2c 5f 25 2c 6c 25  3a f2 75 62 0d 66 df 05  |,7,_%,l%:.ub.f..|
00002840  cd 0d 66 df 05 cb 0d 66  e8 05 e1 0d 66 f1 6a dd  |..f....f....f.j.|
00002850  f2 70 62 28 51 6b 25 2c  58 25 2c 59 25 29 3a ea  |.pb(Qk%,X%,Y%):.|
00002860  66 25 3a c8 99 26 34 34  41 45 36 2c 33 2c 6c 25  |f%:..&44AE6,3,l%|
00002870  2c 58 25 2c 59 25 b8 2c  2c 58 25 2c 59 25 3a 66  |,X%,Y%.,,X%,Y%:f|
00002880  25 3d 49 68 25 2b 51 6b  25 2a 33 32 3a 58 25 3d  |%=Ih%+Qk%*32:X%=|
00002890  58 25 2d 21 66 25 3a 59  25 3d 59 25 2d 66 25 21  |X%-!f%:Y%=Y%-f%!|
000028a0  34 2d 32 3a e7 58 25 3c  4b 25 2b 32 8c 59 25 2b  |4-2:.X%<K%+2.Y%+|
000028b0  3d 4b 25 2f 32 0d 67 42  17 53 25 3d 59 25 81 4b  |=K%/2.gB.S%=Y%.K|
000028c0  25 3a e7 53 25 3c 30 8c  53 25 3d 30 0d 67 54 10  |%:.S%<0.S%=0.gT.|
000028d0  e7 53 25 3e 31 30 8c 53  25 3d 31 30 0d 67 5d 0d  |.S%>10.S%=10.g].|
000028e0  e7 58 25 3c 4b 25 2b 32  8c 0d 67 66 1a e7 53 25  |.X%<K%+2..gf..S%|
000028f0  3d 30 84 53 25 3d 32 84  53 25 3d 36 84 53 25 3d  |=0.S%=2.S%=6.S%=|
00002900  39 8c e1 0d 67 6f 0a 53  25 2b 3d 31 30 0d 67 81  |9...go.S%+=10.g.|
00002910  05 cd 0d 67 81 31 3f 28  4a 68 25 2b 51 6b 25 2a  |...g.1?(Jh%+Qk%*|
00002920  32 34 2b 53 25 29 3d 3f  28 4a 68 25 2b 51 6b 25  |24+S%)=?(Jh%+Qk%|
00002930  2a 32 34 2b 53 25 29 82  31 3a e7 58 25 3c 4b 25  |*24+S%).1:.X%<K%|
00002940  2b 32 8c 0d 67 93 4a c8  99 26 34 30 30 44 31 2c  |+2..g.J..&400D1,|
00002950  6c 25 2c 21 66 25 2b 34  2c 34 2b 66 25 21 34 2b  |l%,!f%+4,4+f%!4+|
00002960  28 53 25 2d 31 30 29 2a  4b 25 2d 4b 25 2f 32 2c  |(S%-10)*K%-K%/2,|
00002970  21 66 25 2b 4b 25 2c 66  25 21 34 2b 28 53 25 2d  |!f%+K%,f%!4+(S%-|
00002980  31 30 2b 31 29 2a 4b 25  2d 4b 25 2f 32 0d 67 a5  |10+1)*K%-K%/2.g.|
00002990  3f cc 3a c8 99 26 34 30  30 44 31 2c 6c 25 2c 21  |?.:..&400D1,l%,!|
000029a0  66 25 2b 34 2b 4b 25 2c  34 2b 66 25 21 34 2b 53  |f%+4+K%,4+f%!4+S|
000029b0  25 2a 4b 25 2c 21 66 25  2b 4b 25 2a 32 2c 66 25  |%*K%,!f%+K%*2,f%|
000029c0  21 34 2b 28 53 25 2b 31  29 2a 4b 25 0d 67 b7 05  |!4+(S%+1)*K%.g..|
000029d0  cd 0d 67 b7 0d f2 5a 28  51 6b 25 29 3a e1 0d 67  |..g...Z(Qk%):..g|
000029e0  c9 28 dd f2 5a 28 52 6b  25 29 3a ea 65 25 2c 53  |.(..Z(Rk%):.e%,S|
000029f0  6b 25 3a f2 75 62 3a f2  5f 28 34 2c 6e 68 25 2b  |k%:.ub:._(4,nh%+|
00002a00  52 6b 25 29 3a e1 0d 67  ff 11 dd f2 75 62 3a e7  |Rk%):..g....ub:.|
00002a10  65 63 25 3e 2d 31 8c 0d  68 1a 11 f2 5f 28 35 2c  |ec%>-1..h..._(5,|
00002a20  6e 68 25 2b 65 63 25 29  0d 68 2c 05 cd 0d 68 2c  |nh%+ec%).h,...h,|
00002a30  05 e1 0d 68 35 21 dd f2  78 62 28 6e 25 2c 45 6b  |...h5!..xb(n%,Ek|
00002a40  25 29 3a e7 45 6b 25 80  6e 25 3d 31 8c f2 6b 62  |%):.Ek%.n%=1..kb|
00002a50  28 32 29 0d 68 50 05 e1  0d 68 59 28 dd f2 79 62  |(2).hP...hY(..yb|
00002a60  28 70 25 2c 64 25 29 3a  ea 54 6b 25 2c 58 25 2c  |(p%,d%):.Tk%,X%,|
00002a70  59 25 2c 42 25 2c 54 25  3a e7 70 25 3e 37 8c e1  |Y%,B%,T%:.p%>7..|
00002a80  0d 68 7d 1c 54 6b 25 3d  2d 31 3a e7 64 25 3e 3d  |.h}.Tk%=-1:.d%>=|
00002a90  49 66 25 80 64 25 3c 3d  4c 66 25 8c 0d 68 8f 65  |If%.d%<=Lf%..h.e|
00002aa0  54 6b 25 3d 28 64 25 2d  49 66 25 29 81 32 3a c8  |Tk%=(d%-If%).2:.|
00002ab0  99 26 34 34 41 44 44 2c  33 2c 4d 66 25 2c 54 6b  |.&44ADD,3,Mf%,Tk|
00002ac0  25 2a 32 2b 49 66 25 2c  31 3a c8 99 26 34 34 41  |%*2+If%,1:..&44A|
00002ad0  44 44 2c 36 2c 4d 66 25  2c 54 6b 25 2a 32 2b 4a  |DD,6,Mf%,Tk%*2+J|
00002ae0  66 25 2c 26 37 45 32 30  30 30 30 30 2c 26 46 46  |f%,&7E200000,&FF|
00002af0  32 30 30 30 30 30 3a e7  55 6b 25 3c 3e 54 6b 25  |200000:.Uk%<>Tk%|
00002b00  8c 0d 68 b3 4b c8 99 26  34 34 41 44 44 2c 33 2c  |..h.K..&44ADD,3,|
00002b10  4d 66 25 2c 55 6b 25 2a  32 2b 49 66 25 2c 30 3a  |Mf%,Uk%*2+If%,0:|
00002b20  c8 99 26 34 34 41 44 44  2c 36 2c 4d 66 25 2c 55  |..&44ADD,6,Mf%,U|
00002b30  6b 25 2a 32 2b 4a 66 25  2c 26 31 37 30 30 30 30  |k%*2+Jf%,&170000|
00002b40  30 30 2c 26 46 46 32 30  30 30 30 30 0d 68 ce 05  |00,&FF200000.h..|
00002b50  cd 0d 68 ce 22 56 6b 25  3d 55 6b 25 3a 55 6b 25  |..h."Vk%=Uk%:Uk%|
00002b60  3d 54 6b 25 3a f2 7a 62  28 54 6b 25 2c 57 6b 25  |=Tk%:.zb(Tk%,Wk%|
00002b70  2c b9 29 0d 68 f2 1f cc  3a e7 64 25 3d 46 66 25  |,.).h...:.d%=Ff%|
00002b80  84 64 25 3d 47 66 25 8c  f2 65 28 4d 66 25 2c 64  |.d%=Gf%..e(Mf%,d|
00002b90  25 29 0d 68 fb 05 cd 0d  69 04 05 e1 0d 69 0d 5e  |%).h....i....i.^|
00002ba0  dd f2 7a 62 28 78 25 2c  71 25 2c 58 6b 25 29 3a  |..zb(x%,q%,Xk%):|
00002bb0  ea 57 63 25 2c 69 24 2c  58 25 2c 59 25 2c 42 25  |.Wc%,i$,X%,Y%,B%|
00002bc0  2c 68 24 2c 50 25 2c 54  25 3a 68 24 3d 62 24 28  |,h$,P%,T%:h$=b$(|
00002bd0  78 25 29 3a e7 28 63 25  28 78 25 29 80 32 5e 32  |x%):.(c%(x%).2^2|
00002be0  36 29 3d 30 80 28 63 25  28 78 25 29 80 26 38 30  |6)=0.(c%(x%).&80|
00002bf0  30 30 30 30 30 30 29 3d  30 8c 0d 69 3a 29 f2 69  |000000)=0..i:).i|
00002c00  3a f5 3a c8 99 26 32 30  30 30 38 2c 31 37 2c 6e  |:.:..&20008,17,n|
00002c10  24 2b 22 2e 22 2b 68 24  b8 4e 25 3a e7 4e 25 3c  |$+"."+h$.N%:.N%<|
00002c20  3e 31 8c 0d 69 5e 39 69  24 3d 22 43 61 6e 27 74  |>1..i^9i$="Can't|
00002c30  20 75 73 65 20 74 68 61  74 20 76 6f 69 63 65 2e  | use that voice.|
00002c40  20 28 22 2b 6e 24 2b 22  2e 22 2b 68 24 2b 22 20  | ("+n$+"."+h$+" |
00002c50  6e 6f 74 20 66 6f 75 6e  64 2e 29 22 0d 69 70 40  |not found.)".ip@|
00002c60  cc 3a e7 ac a4 71 8c e7  ac a4 72 8c 69 24 3d 22  |.:...q....r.i$="|
00002c70  43 61 6e 27 74 20 75 73  65 20 74 68 61 74 20 76  |Can't use that v|
00002c80  6f 69 63 65 2e 20 28 4e  6f 20 76 6f 69 63 65 20  |oice. (No voice |
00002c90  73 6c 6f 74 73 20 6c 65  66 74 29 22 0d 69 79 08  |slots left)".iy.|
00002ca0  e7 a4 71 8c 0d 69 82 2b  c8 99 26 32 30 30 31 45  |..q..i.+..&2001E|
00002cb0  2c 30 2c 6e 24 2b 22 2e  22 2b 68 24 b8 57 63 25  |,0,n$+"."+h$.Wc%|
00002cc0  3b 50 25 3a e7 28 50 25  80 31 29 3c 3e 30 8c 0d  |;P%:.(P%.1)<>0..|
00002cd0  69 94 33 e7 ac a4 72 8c  69 24 3d 22 43 61 6e 27  |i.3...r.i$="Can'|
00002ce0  74 20 75 73 65 20 74 68  61 74 20 76 6f 69 63 65  |t use that voice|
00002cf0  2e 20 28 22 2b a4 63 28  57 63 25 2b 34 29 2b 22  |. ("+.c(Wc%+4)+"|
00002d00  29 22 0d 69 9d 46 cc 3a  c8 99 26 36 30 31 38 35  |)".i.F.:..&60185|
00002d10  2c 71 25 2c 30 b8 2c 6a  61 25 3a c8 99 26 36 30  |,q%,0.,ja%:..&60|
00002d20  31 38 41 2c 71 25 2c 68  24 b8 3b 50 25 3a c8 99  |18A,q%,h$.;P%:..|
00002d30  26 36 30 31 38 35 2c 71  25 2c 6a 61 25 3a e7 28  |&60185,q%,ja%:.(|
00002d40  50 25 80 31 29 3d 31 8c  0d 69 ca 62 69 24 3d 22  |P%.1)=1..i.bi$="|
00002d50  56 6f 69 63 65 20 6d 6f  64 75 6c 65 20 27 22 2b  |Voice module '"+|
00002d60  68 24 2b 22 27 20 64 6f  65 73 20 6e 6f 74 20 63  |h$+"' does not c|
00002d70  6f 6e 74 61 69 6e 20 61  20 76 6f 69 63 65 20 63  |ontain a voice c|
00002d80  61 6c 6c 65 64 20 27 22  2b 68 24 2b 22 27 2e 20  |alled '"+h$+"'. |
00002d90  53 68 61 6c 6c 20 75 73  65 20 61 6e 20 61 6c 74  |Shall use an alt|
00002da0  65 72 6e 61 74 69 76 65  2e 22 0d 69 dc 1a cc 3a  |ernative.".i...:|
00002db0  63 25 28 78 25 29 3d 28  63 25 28 78 25 29 84 32  |c%(x%)=(c%(x%).2|
00002dc0  5e 32 36 29 0d 69 ee 05  cd 0d 69 ee 05 cd 0d 69  |^26).i....i....i|
00002dd0  f7 0a cc 3a 50 25 3d 31  0d 6a 12 05 cd 0d 6a 12  |...:P%=1.j....j.|
00002de0  05 cd 0d 6a 1b 17 fd 69  24 3c 3e 22 22 84 28 50  |...j...i$<>"".(P|
00002df0  25 80 31 29 3d 30 3a f2  70 0d 6a 36 05 cd 0d 6a  |%.1)=0:.p.j6...j|
00002e00  36 0b e7 69 24 3d 22 22  8c 0d 6a 3f 10 f2 4a 28  |6..i$=""..j?..J(|
00002e10  77 25 2c 71 25 2c 78 25  29 0d 6a 51 64 cc 3a f2  |w%,q%,x%).jQd.:.|
00002e20  62 28 69 24 2c a3 29 3a  c8 99 26 34 34 41 44 44  |b(i$,.):..&44ADD|
00002e30  2c 33 2c 4d 66 25 2c 56  6b 25 2a 32 2b 49 66 25  |,3,Mf%,Vk%*2+If%|
00002e40  2c 31 3a c8 99 26 34 34  41 44 44 2c 36 2c 4d 66  |,1:..&44ADD,6,Mf|
00002e50  25 2c 56 6b 25 2a 32 2b  4a 66 25 2c 26 37 45 32  |%,Vk%*2+Jf%,&7E2|
00002e60  30 30 30 30 30 2c 26 46  46 32 30 30 30 30 30 3a  |00000,&FF200000:|
00002e70  e7 55 6b 25 3c 3e 54 6b  25 59 6b 25 8c 0d 6a 75  |.Uk%<>Tk%Yk%..ju|
00002e80  4b c8 99 26 34 34 41 44  44 2c 33 2c 4d 66 25 2c  |K..&44ADD,3,Mf%,|
00002e90  55 6b 25 2a 32 2b 49 66  25 2c 30 3a c8 99 26 34  |Uk%*2+If%,0:..&4|
00002ea0  34 41 44 44 2c 36 2c 4d  66 25 2c 55 6b 25 2a 32  |4ADD,6,Mf%,Uk%*2|
00002eb0  2b 4a 66 25 2c 26 31 37  30 30 30 30 30 30 2c 26  |+Jf%,&17000000,&|
00002ec0  46 46 32 30 30 30 30 30  0d 6a 90 05 cd 0d 6a 90  |FF200000.j....j.|
00002ed0  0b 55 6b 25 3d 56 6b 25  0d 6a a2 05 cd 0d 6a a2  |.Uk%=Vk%.j....j.|
00002ee0  09 e7 58 6b 25 8c 0d 6a  ab 64 c8 99 26 34 30 31  |..Xk%..j.d..&401|
00002ef0  38 39 2c 71 25 2c 59 62  25 2c 61 25 28 34 29 2d  |89,q%,Yb%,a%(4)-|
00002f00  26 31 30 30 30 2c 31 30  30 3a 54 25 3d 91 3a f5  |&1000,100:T%=.:.|
00002f10  3a c8 97 58 25 2c 59 25  2c 42 25 3a fd 42 25 3d  |:..X%,Y%,B%:.B%=|
00002f20  30 80 91 3e 54 25 2b 35  3a c8 99 26 34 30 31 38  |0..>T%+5:..&4018|
00002f30  39 2c 71 25 2c 59 62 25  84 32 5e 37 2c 61 25 28  |9,q%,Yb%.2^7,a%(|
00002f40  34 29 2d 26 31 30 30 30  2c 31 0d 6a ea 05 cd 0d  |4)-&1000,1.j....|
00002f50  6a ea 05 e1 0d 6a f3 1a  dd f2 53 28 71 25 29 3a  |j....j....S(q%):|
00002f60  ea 65 25 2c 66 25 3a e7  ac 59 61 25 8c e1 0d 6b  |.e%,f%:..Ya%...k|
00002f70  17 27 57 6b 25 3d 71 25  3a e3 65 25 3d 30 b8 47  |.'Wk%=q%:.e%=0.G|
00002f80  63 25 2d 31 3a e7 62 25  28 77 25 2c 71 25 2d 31  |c%-1:.b%(w%,q%-1|
00002f90  29 3d 65 25 8c 0d 6b 32  50 c8 99 26 34 34 41 44  |)=e%..k2P..&44AD|
00002fa0  44 2c 33 2c 4d 66 25 2c  65 25 2a 32 2b 49 66 25  |D,3,Mf%,e%*2+If%|
00002fb0  2c 31 3a c8 99 26 34 34  41 44 44 2c 36 2c 4d 66  |,1:..&44ADD,6,Mf|
00002fc0  25 2c 65 25 2a 32 2b 4a  66 25 2c 26 37 45 32 30  |%,e%*2+Jf%,&7E20|
00002fd0  30 30 30 30 2c 26 46 46  32 30 30 30 30 30 3a 55  |0000,&FF200000:U|
00002fe0  6b 25 3d 65 25 0d 6b 56  4b cc 3a c8 99 26 34 34  |k%=e%.kVK.:..&44|
00002ff0  41 44 44 2c 33 2c 4d 66  25 2c 65 25 2a 32 2b 49  |ADD,3,Mf%,e%*2+I|
00003000  66 25 2c 30 3a c8 99 26  34 34 41 44 44 2c 36 2c  |f%,0:..&44ADD,6,|
00003010  4d 66 25 2c 65 25 2a 32  2b 4a 66 25 2c 26 31 37  |Mf%,e%*2+Jf%,&17|
00003020  30 30 30 30 30 30 2c 26  46 46 32 30 30 30 30 30  |000000,&FF200000|
00003030  0d 6b 71 05 cd 0d 6b 71  45 ed 3a 5a 6b 25 3d 62  |.kq...kqE.:Zk%=b|
00003040  25 28 77 25 2c 71 25 2d  31 29 3a c8 99 26 34 34  |%(w%,q%-1):..&44|
00003050  41 44 36 2c 4d 66 25 2c  2d 31 3a c8 99 26 34 34  |AD6,Mf%,-1:..&44|
00003060  41 44 39 2c 4d 66 25 2c  2d 31 3a 5f 6b 25 3d 71  |AD9,Mf%,-1:_k%=q|
00003070  61 25 3a e7 71 61 25 8c  f2 6d 0d 6b a7 05 e1 0d  |a%:.qa%..m.k....|
00003080  6b b0 1d dd f2 41 62 3a  f2 7a 62 28 5a 6b 25 2c  |k....Ab:.zb(Zk%,|
00003090  57 6b 25 2c a3 29 3a f2  42 62 3a e1 0d 6b dd 18  |Wk%,.):.Bb:..k..|
000030a0  dd f2 42 62 3a ea 65 25  2c 41 24 2c 41 25 3a c8  |..Bb:.e%,A$,A%:.|
000030b0  8e 77 25 ca 0d 6c 01 1c  c9 30 3a c8 99 26 34 34  |.w%..l...0:..&44|
000030c0  41 44 44 2c 36 2c 74 25  2c 6b 66 25 2c 30 2c 30  |ADD,6,t%,kf%,0,0|
000030d0  0d 6c 13 42 c9 31 3a f2  69 3a c8 99 26 34 34 41  |.l.B.1:.i:..&44A|
000030e0  44 44 2c 36 2c 6f 25 2c  50 66 25 2c 30 2c 30 3a  |DD,6,o%,Pf%,0,0:|
000030f0  41 25 3d 57 6b 25 3a d6  62 69 25 3a f2 6b 28 62  |A%=Wk%:.bi%:.k(b|
00003100  25 28 31 2c 57 6b 25 2d  31 29 2c 57 6b 25 29 3a  |%(1,Wk%-1),Wk%):|
00003110  f2 70 0d 6c 52 5e c9 32  3a c8 99 26 34 34 41 44  |.p.lR^.2:..&44AD|
00003120  44 2c 36 2c 6c 25 2c 68  68 25 2c 30 2c 30 3a f2  |D,6,l%,hh%,0,0:.|
00003130  6b 28 62 25 28 32 2c 57  6b 25 2d 31 29 2c 57 6b  |k(b%(2,Wk%-1),Wk|
00003140  25 29 3a 41 24 3d 61 24  28 62 25 28 32 2c 57 6b  |%):A$=a$(b%(2,Wk|
00003150  25 2d 31 29 29 3a e3 65  25 3d 30 b8 6b 68 25 2d  |%-1)):.e%=0.kh%-|
00003160  31 3a e7 68 25 28 65 25  2c 30 29 3d 57 6b 25 8c  |1:.h%(e%,0)=Wk%.|
00003170  0d 6c 7f 30 c8 99 26 34  34 41 44 44 2c 31 2b 35  |.l.0..&44ADD,1+5|
00003180  31 32 2c 6c 25 2c 6c 68  25 2b 65 25 2c 22 73 22  |12,l%,lh%+e%,"s"|
00003190  2b 41 24 2b 22 2c 70 22  2b 41 24 2c 2c 48 68 25  |+A$+",p"+A$,,Hh%|
000031a0  0d 6c 91 05 cd 0d 6c 91  05 ed 0d 6c a3 45 c9 33  |.l....l....l.E.3|
000031b0  3a f2 69 3a c8 99 26 34  34 41 44 44 2c 36 2c 6b  |:.i:..&44ADD,6,k|
000031c0  25 2c 79 67 25 2c 30 2c  30 3a c8 99 26 34 34 41  |%,yg%,0,0:..&44A|
000031d0  45 42 2c 33 2c 64 68 25  3a f2 75 28 62 25 28 33  |EB,3,dh%:.u(b%(3|
000031e0  2c 57 6b 25 2d 31 29 2c  57 6b 25 29 3a f2 70 0d  |,Wk%-1),Wk%):.p.|
000031f0  6c d9 05 cb 0d 6c d9 20  f2 68 28 4d 66 25 29 3a  |l....l. .h(Mf%):|
00003200  c8 99 26 34 34 41 44 39  2c 2c 2d 32 3a e7 5f 6b  |..&44AD9,,-2:._k|
00003210  25 8c f2 74 0d 6c f4 05  e1 0d 6c fd 12 dd f2 43  |%..t.l....l....C|
00003220  62 28 64 25 29 3a c8 8e  64 25 ca 0d 6d 18 0c c9  |b(d%):..d%..m...|
00003230  46 66 25 3a f2 42 62 0d  6d 33 0c c9 47 66 25 3a  |Ff%:.Bb.m3..Gf%:|
00003240  f2 41 62 0d 6d 45 05 cb  0d 6d 45 05 e1 0d 6d 4e  |.Ab.mE...mE...mN|
00003250  44 dd a4 71 3a ea 65 25  2c 79 25 2c 41 25 3a 79  |D..q:.e%,y%,A%:y|
00003260  25 3d a3 3a e3 65 25 3d  33 32 b8 31 88 2d 31 3a  |%=.:.e%=32.1.-1:|
00003270  c8 99 26 36 30 31 38 33  2c 30 2c 65 25 b8 41 25  |..&60183,0,e%.A%|
00003280  3a e7 41 25 3d 30 8c 79  25 3d b9 3a 65 25 3d 2d  |:.A%=0.y%=.:e%=-|
00003290  31 0d 6d 8d 09 ed 3a 3d  79 25 0d 6d ba 17 dd f2  |1.m...:=y%.m....|
000032a0  44 62 28 70 25 2c 64 25  29 3a e7 70 25 3e 37 8c  |Db(p%,d%):.p%>7.|
000032b0  e1 0d 6d c3 0c f2 69 3a  c8 8e 64 25 ca 0d 6d d5  |..m...i:..d%..m.|
000032c0  0c c9 78 66 25 3a f2 45  62 0d 6d e7 0c c9 79 66  |..xf%:.Eb.m...yf|
000032d0  25 3a f2 5f 61 0d 6d f0  0c c9 7a 66 25 3a f2 71  |%:._a.m...zf%:.q|
000032e0  62 0d 6d f9 0c c9 41 66  25 3a f2 46 62 0d 6e 02  |b.m...Af%:.Fb.n.|
000032f0  05 cb 0d 6e 02 08 f2 70  3a e1 0d 6e 14 33 dd f2  |...n...p:..n.3..|
00003300  41 3a 21 67 25 3d 31 3a  c8 99 26 37 2c 31 34 2c  |A:!g%=1:..&7,14,|
00003310  67 25 3a e7 28 3f 67 25  3c 3e 26 39 35 84 67 25  |g%:.(?g%<>&95.g%|
00003320  3f 31 3e 34 29 8c 76 61  25 3d b9 3a e0 0d 6e 41  |?1>4).va%=.:..nA|
00003330  35 c8 99 26 34 34 41 44  36 2c 42 66 25 2c 2d 31  |5..&44AD6,Bf%,-1|
00003340  3a c8 99 26 34 34 41 44  44 2c 33 2c 2d 31 2c 7a  |:..&44ADD,3,-1,z|
00003350  63 25 2c 30 3a 41 61 25  3d b9 3a 77 25 3d 2d 31  |c%,0:Aa%=.:w%=-1|
00003360  3a e1 0d 6e 77 24 dd f2  47 62 3a c8 99 26 34 34  |:..nw$..Gb:..&44|
00003370  41 44 44 2c 33 2c 2d 31  2c 7a 63 25 2c 31 3a 41  |ADD,3,-1,zc%,1:A|
00003380  61 25 3d a3 3a e1 0d 6e  a4 1c dd f2 52 28 6e 25  |a%=.:..n....R(n%|
00003390  2c 64 25 2c 58 25 2c 59  25 29 3a e7 ac 5a 61 25  |,d%,X%,Y%):..Za%|
000033a0  8c e1 0d 6e c8 21 60 6b  25 3d 6e 25 3a 61 6c 25  |...n.!`k%=n%:al%|
000033b0  3d 64 25 3a f2 60 28 59  68 25 2c 58 25 2c 59 25  |=d%:.`(Yh%,X%,Y%|
000033c0  29 3a e1 0d 6e ec 6f dd  f2 48 62 28 41 25 29 3a  |):..n.o..Hb(A%):|
000033d0  41 25 3d a0 28 c1 22 30  34 30 30 36 30 30 36 30  |A%=.(."040060060|
000033e0  30 36 35 30 37 30 30 38  30 30 39 30 31 30 30 31  |0650700800901001|
000033f0  31 35 31 33 30 31 34 35  31 36 30 31 37 35 31 39  |1513014516017519|
00003400  30 32 31 30 22 2c 41 25  2a 33 2b 31 2c 33 29 29  |0210",A%*3+1,3))|
00003410  3a c8 99 26 34 34 41 44  34 2c 32 2c 60 6b 25 2c  |:..&44AD4,2,`k%,|
00003420  61 6c 25 2c 41 25 2d 34  30 3a f2 64 28 41 25 29  |al%,A%-40:.d(A%)|
00003430  3a e1 0d 6f 22 1d dd f2  57 28 48 25 2c 4a 25 29  |:..o"...W(H%,J%)|
00003440  3a ea 58 25 2c 59 25 3a  e7 77 25 3c 30 8c e1 0d  |:.X%,Y%:.w%<0...|
00003450  6f 46 82 59 25 3d 69 25  28 77 25 29 3a 58 25 3d  |oF.Y%=i%(w%):X%=|
00003460  59 25 21 34 3a 59 25 3d  59 25 21 38 2d 65 62 25  |Y%!4:Y%=Y%!8-eb%|
00003470  3a c8 99 26 32 45 2c 28  35 32 2b 32 35 36 29 2c  |:..&2E,(52+256),|
00003480  55 25 2c 22 4d 65 74 72  6f 6e 6f 6d 65 22 2c 48  |U%,"Metronome",H|
00003490  25 2b 58 25 2c 4a 25 2b  59 25 2c 30 2c 68 63 25  |%+X%,J%+Y%,0,hc%|
000034a0  2c 69 63 25 3a c8 99 26  34 34 41 45 32 2c 33 34  |,ic%:..&44AE2,34|
000034b0  2c 6f 63 25 2c 22 50 6c  6f 74 4d 65 22 2c 48 25  |,oc%,"PlotMe",H%|
000034c0  2b 58 25 2c 4a 25 2b 59  25 2b 65 62 25 2c 38 3a  |+X%,J%+Y%+eb%,8:|
000034d0  e1 0d 6f 7c 1d dd f2 74  3a 71 61 25 3d b9 3a 62  |..o|...t:qa%=.:b|
000034e0  6c 25 3d 6c 62 25 3a e7  74 62 25 3d 31 8c 0d 6f  |l%=lb%:.tb%=1..o|
000034f0  a9 27 e3 65 25 3d 31 b8  6f 62 25 3a d4 38 2c 26  |.'.e%=1.ob%:.8,&|
00003500  31 30 30 2b 70 62 25 2c  38 30 2c 32 2c 65 25 2a  |100+pb%,80,2,e%*|
00003510  6e 62 25 3a ed 0d 6f cd  05 cd 0d 6f cd 21 f2 64  |nb%:..o....o.!.d|
00003520  28 71 62 25 29 3a c8 9e  6c 62 25 3a f2 45 28 c6  |(qb%):..lb%:.E(.|
00003530  8f 2c 63 6c 25 29 3a f2  67 3a e1 0d 6f fa 27 dd  |.,cl%):.g:..o.'.|
00003540  f2 6d 3a 71 61 25 3d a3  3a f2 45 28 6b 62 25 2f  |.m:qa%=.:.E(kb%/|
00003550  34 2c b9 29 3a c8 99 26  34 30 31 43 30 3a f2 67  |4,.):..&401C0:.g|
00003560  3a e1 0d 70 39 43 dd f2  73 28 64 25 2c 6e 25 2c  |:..p9C..s(d%,n%,|
00003570  64 6c 25 29 3a ea 41 25  2c 65 25 3a c8 99 26 34  |dl%):.A%,e%:..&4|
00003580  34 41 44 45 2c 31 2c 6e  25 2c 64 25 2c 68 25 2b  |4ADE,1,n%,d%,h%+|
00003590  31 30 30 2c 31 30 30 3a  c8 8e a4 63 28 68 25 2b  |100,100:...c(h%+|
000035a0  31 30 30 29 ca 0d 70 66  16 c9 22 73 6f 66 66 2c  |100)..pf.."soff,|
000035b0  70 6f 66 66 22 3a 74 62  25 3d 30 0d 70 78 14 c9  |poff":tb%=0.px..|
000035c0  22 73 6f 6e 2c 70 6f 6e  22 3a 74 62 25 3d 31 0d  |"son,pon":tb%=1.|
000035d0  70 81 05 cb 0d 70 81 19  74 62 25 3d 28 74 62 25  |p....p..tb%=(tb%|
000035e0  82 64 6c 25 29 3a e7 64  6c 25 3d 31 8c 0d 70 93  |.dl%):.dl%=1..p.|
000035f0  0b e7 74 62 25 3d 31 8c  0d 70 9c 1e c8 99 26 34  |..tb%=1..p....&4|
00003600  34 41 44 44 2c 31 2c 6e  25 2c 64 25 2c 22 73 6f  |4ADD,1,n%,d%,"so|
00003610  6e 2c 70 6f 6e 22 0d 70  ae 22 cc 3a c8 99 26 34  |n,pon".p.".:..&4|
00003620  34 41 44 44 2c 31 2c 6e  25 2c 64 25 2c 22 73 6f  |4ADD,1,n%,d%,"so|
00003630  66 66 2c 70 6f 66 66 22  0d 70 c0 05 cd 0d 70 c0  |ff,poff".p....p.|
00003640  05 cd 0d 70 c9 09 e7 71  61 25 8c 0d 70 ed 49 41  |...p...qa%..p.IA|
00003650  25 3d 31 3a c8 95 41 25  2a 6e 62 25 3c c6 8f 3a  |%=1:..A%*nb%<..:|
00003660  41 25 2b 3d 31 3a ce 3a  e3 65 25 3d 41 25 b8 6f  |A%+=1:.:.e%=A%.o|
00003670  62 25 2a 32 3a d4 38 2c  28 26 31 30 30 2b 70 62  |b%*2:.8,(&100+pb|
00003680  25 29 2a 74 62 25 2c 38  30 2c 32 2c 65 25 2a 6e  |%)*tb%,80,2,e%*n|
00003690  62 25 3a ed 0d 71 35 05  cd 0d 71 35 05 e1 0d 71  |b%:..q5...q5...q|
000036a0  47 67 dd f2 64 28 41 25  29 3a ea 67 3a 71 62 25  |Gg..d(A%):.g:qb%|
000036b0  3d 41 25 3a c8 9f 69 62  25 2a 41 25 2a 51 25 2a  |=A%:..ib%*A%*Q%*|
000036c0  26 31 30 30 30 2f 31 32  30 30 30 3a 21 6a 6a 25  |&1000/12000:!jj%|
000036d0  3d 28 28 31 33 30 2d 28  41 25 2d 32 30 29 2f 32  |=((130-(A%-20)/2|
000036e0  2e 33 29 2f 72 62 25 29  2a 32 5e 31 30 3a e7 71  |.3)/rb%)*2^10:.q|
000036f0  61 25 3d 30 84 28 ac 63  6c 25 29 8c f2 45 28 73  |a%=0.(.cl%)..E(s|
00003700  62 25 2c b9 29 0d 71 86  2c 67 3d 28 28 31 32 30  |b%,.).q.,g=((120|
00003710  30 30 29 2f 28 71 62 25  2a 35 2a 69 62 25 29 29  |00)/(qb%*5*ib%))|
00003720  2a 32 5e 38 3a 21 73 6a  25 3d 67 3a c8 8e 77 25  |*2^8:!sj%=g:..w%|
00003730  ca 0d 71 aa 1f c9 30 3a  c8 99 26 34 34 41 44 44  |..q...0:..&44ADD|
00003740  2c 32 2c 74 25 2c 74 66  25 2c c3 28 71 62 25 29  |,2,t%,tf%,.(qb%)|
00003750  0d 71 bc 1f c9 31 3a c8  99 26 34 34 41 44 44 2c  |.q...1:..&44ADD,|
00003760  32 2c 6f 25 2c 6f 67 25  2c c3 28 71 62 25 29 0d  |2,o%,og%,.(qb%).|
00003770  71 c5 1f c9 32 3a c8 99  26 34 34 41 44 44 2c 32  |q...2:..&44ADD,2|
00003780  2c 6c 25 2c 76 68 25 2c  c3 28 71 62 25 29 0d 71  |,l%,vh%,.(qb%).q|
00003790  ce 1f c9 33 3a c8 99 26  34 34 41 44 44 2c 32 2c  |...3:..&44ADD,2,|
000037a0  6b 25 2c 59 67 25 2c c3  28 71 62 25 29 0d 71 d7  |k%,Yg%,.(qb%).q.|
000037b0  05 cb 0d 71 d7 05 e1 0d  71 e0 b1 dd f2 79 28 41  |...q....q....y(A|
000037c0  25 2c 42 25 29 3a ea 65  25 2c 41 63 25 2c 41 2c  |%,B%):.e%,Ac%,A,|
000037d0  42 63 25 3a 41 63 25 3d  33 30 3a 51 25 3d 42 25  |Bc%:Ac%=30:Q%=B%|
000037e0  3a 69 62 25 3d 32 2a 41  25 3a 6b 62 25 3d 51 25  |:ib%=2*A%:kb%=Q%|
000037f0  2a 69 62 25 3a 6c 62 25  3d 6b 62 25 2a 6a 62 25  |*ib%:lb%=kb%*jb%|
00003800  3a 6d 62 25 3d 69 62 25  2a 6a 62 25 3a 6e 62 25  |:mb%=ib%*jb%:nb%|
00003810  3d 51 25 2a 69 62 25 2f  32 3a 6f 62 25 3d 32 2a  |=Q%*ib%/2:ob%=2*|
00003820  6d 62 25 2f 69 62 25 3a  e3 42 63 25 3d 30 b8 6a  |mb%/ib%:.Bc%=0.j|
00003830  62 25 3a e3 65 25 3d 30  b8 6b 62 25 2a 38 88 38  |b%:.e%=0.kb%*8.8|
00003840  3a 41 3d 39 30 2b 65 25  2a 33 36 30 2f 28 6b 62  |:A=90+e%*360/(kb|
00003850  25 2a 38 29 3a 41 3d b2  28 b5 28 b2 28 41 29 29  |%*8):A=.(.(.(A))|
00003860  2a 41 63 25 2b 39 30 29  0d 72 67 67 21 28 43 63  |*Ac%+90).rgg!(Cc|
00003870  25 2b 65 25 2b 6b 62 25  2a 38 2a 42 63 25 29 3d  |%+e%+kb%*8*Bc%)=|
00003880  28 9b 28 41 29 2a 72 62  25 29 2a 32 5e 31 30 3a  |(.(A)*rb%)*2^10:|
00003890  21 28 43 63 25 2b 65 25  2b 6b 62 25 2a 38 2a 42  |!(Cc%+e%+kb%*8*B|
000038a0  63 25 2b 34 29 3d 28 b5  28 41 29 2a 72 62 25 29  |c%+4)=(.(A)*rb%)|
000038b0  2a 32 5e 31 30 3a ed 3a  ed 3a f2 64 28 71 62 25  |*2^10:.:.:.d(qb%|
000038c0  29 3a f2 45 28 6b 62 25  2f 34 2c b9 29 3a e1 0d  |):.E(kb%/4,.):..|
000038d0  72 a6 2b dd f2 45 28 5a  25 2c 65 6c 25 29 3a ea  |r.+..E(Z%,el%):.|
000038e0  58 25 2c 59 25 2c 41 25  2c 48 25 2c 4a 25 3a e7  |X%,Y%,A%,H%,J%:.|
000038f0  74 62 25 3d 31 80 71 61  25 8c 0d 72 d3 0c e7 5a  |tb%=1.qa%..r...Z|
00003900  25 3c 62 6c 25 8c 0d 72  dc 2b e3 65 25 3d 31 b8  |%<bl%..r.+.e%=1.|
00003910  6f 62 25 3a d4 38 2c 26  31 30 30 2b 70 62 25 2c  |ob%:.8,&100+pb%,|
00003920  38 30 2c 32 2c 6c 62 25  2b 65 25 2a 6e 62 25 3a  |80,2,lb%+e%*nb%:|
00003930  ed 0d 73 00 05 cd 0d 73  00 0a 62 6c 25 3d 5a 25  |..s....s..bl%=Z%|
00003940  0d 73 12 05 cd 0d 73 12  09 e7 65 6c 25 8c 0d 73  |.s....s...el%..s|
00003950  1b 16 41 25 3d 5a 25 3a  d6 65 6a 25 3a e7 77 25  |..A%=Z%:.ej%:.w%|
00003960  3c 30 8c e1 0d 73 36 ac  66 6c 25 3d 69 25 28 77  |<0...s6.fl%=i%(w|
00003970  25 29 3a 41 25 3d 5a 25  3a c8 99 26 34 34 41 43  |%):A%=Z%:..&44AC|
00003980  37 2c 32 30 2c 66 6c 25  2c 68 25 3a 58 25 3d 68  |7,20,fl%,h%:X%=h|
00003990  25 21 34 3a 59 25 3d 68  25 21 38 3a c8 99 26 34  |%!4:Y%=h%!8:..&4|
000039a0  30 30 43 39 2c 2c 68 25  b8 41 25 3a 48 25 3d 68  |00C9,,h%.A%:H%=h|
000039b0  25 21 34 2d 68 25 21 32  30 3a 4a 25 3d 68 25 21  |%!4-h%!20:J%=h%!|
000039c0  31 36 2d 68 25 21 32 34  3a c8 95 41 25 3c 3e 30  |16-h%!24:..A%<>0|
000039d0  3a c8 99 26 34 34 41 45  32 2c 33 34 2c 6f 63 25  |:..&44AE2,34,oc%|
000039e0  2c 22 50 6c 6f 74 4d 65  22 2c 48 25 2b 58 25 2c  |,"PlotMe",H%+X%,|
000039f0  4a 25 2b 59 25 2c 38 3a  c8 99 26 34 30 30 43 41  |J%+Y%,8:..&400CA|
00003a00  2c 2c 68 25 b8 41 25 3a  ce 3a 73 62 25 3d 5a 25  |,,h%.A%:.:sb%=Z%|
00003a10  0d 73 b4 05 cd 0d 73 b4  05 e1 0d 73 bd d4 dd f2  |.s....s....s....|
00003a20  49 62 3a ea 6b 6b 25 2c  6c 6b 25 2c 6d 6b 25 2c  |Ib:.kk%,lk%,mk%,|
00003a30  65 25 2c 41 25 3a 67 6c  25 3d eb 3a c8 99 26 34  |e%,A%:gl%=.:..&4|
00003a40  30 30 45 44 2c 26 31 30  30 2c 55 25 2c 22 6d 65  |00ED,&100,U%,"me|
00003a50  74 72 6f 6e 6f 6d 65 22  2c 2c 2c 2c 68 63 25 2c  |tronome",,,,hc%,|
00003a60  69 63 25 3a c8 99 26 34  34 41 45 32 2c 32 35 39  |ic%:..&44AE2,259|
00003a70  2c 6f 63 25 2c 22 4d 65  74 22 2c 32 5e 34 2c 63  |,oc%,"Met",2^4,c|
00003a80  62 25 2c 64 62 25 2c 67  6c 25 3a c8 99 26 34 34  |b%,db%,gl%:..&44|
00003a90  41 45 32 2c 32 35 39 2c  6f 63 25 2c 22 50 6c 6f  |AE2,259,oc%,"Plo|
00003aa0  74 4d 65 22 2c 32 5e 34  2c 63 62 25 2c 64 62 25  |tMe",2^4,cb%,db%|
00003ab0  2c 67 6c 25 3a c8 99 26  34 34 41 45 32 2c 32 36  |,gl%:..&44AE2,26|
00003ac0  34 2c 6f 63 25 2c 32 2c  30 3a c8 99 26 34 34 41  |4,oc%,2,0:..&44A|
00003ad0  45 32 2c 36 30 2c 6f 63  25 2c 22 4d 65 74 22 2c  |E2,60,oc%,"Met",|
00003ae0  30 b8 2c 6b 6b 25 2c 6c  6b 25 2c 6d 6b 25 0d 74  |0.,kk%,lk%,mk%.t|
00003af0  0e 9e c8 99 26 34 34 41  45 32 2c 35 32 2b 32 5e  |....&44AE2,52+2^|
00003b00  31 31 2c 55 25 2c 22 4d  65 74 72 6f 6e 6f 6d 65  |11,U%,"Metronome|
00003b10  22 2c 30 2c 2d 65 62 25  2c 38 2c 68 63 25 2c 69  |",0,-eb%,8,hc%,i|
00003b20  63 25 3a c8 99 26 32 45  2c 36 30 2c 6b 6b 25 2c  |c%:..&2E,60,kk%,|
00003b30  6c 6b 25 2c 6d 6b 25 3a  c8 99 26 34 34 41 45 32  |lk%,mk%:..&44AE2|
00003b40  2c 32 34 2c 6f 63 25 2c  22 6d 65 74 22 b8 2c 2c  |,24,oc%,"met".,,|
00003b50  41 25 3a 21 67 6a 25 3d  41 25 3a c8 99 26 34 34  |A%:!gj%=A%:..&44|
00003b60  41 45 32 2c 32 34 2c 6f  63 25 2c 22 50 6c 6f 74  |AE2,24,oc%,"Plot|
00003b70  4d 65 22 b8 2c 2c 41 25  3a 21 68 6a 25 3d 41 25  |Me".,,A%:!hj%=A%|
00003b80  3a 41 25 3d 30 3a d6 65  6a 25 3a e1 0d 74 5f 3c  |:A%=0:.ej%:..t_<|
00003b90  dd a4 4c 28 6a 25 2c 61  25 29 3a ea 65 25 2c 63  |..L(j%,a%):.e%,c|
00003ba0  25 2c 62 25 3a 62 25 3d  a4 66 28 22 54 65 6d 70  |%,b%:b%=.f("Temp|
00003bb0  22 2c 61 25 29 3a e7 62  25 3d 30 8c 62 25 3d a4  |",a%):.b%=0.b%=.|
00003bc0  62 28 31 32 2c 61 25 29  0d 74 8c 09 c8 8e 6a 25  |b(12,a%).t....j%|
00003bd0  ca 0d 74 95 1b c9 30 3a  c8 99 26 34 34 41 44 34  |..t...0:..&44AD4|
00003be0  2c 31 2c 74 25 2c 6f 66  25 b8 63 25 0d 74 a7 1b  |,1,t%,of%.c%.t..|
00003bf0  c9 31 3a c8 99 26 34 34  41 44 34 2c 31 2c 6f 25  |.1:..&44AD4,1,o%|
00003c00  2c 67 67 25 b8 63 25 0d  74 b0 1b c9 32 3a c8 99  |,gg%.c%.t...2:..|
00003c10  26 34 34 41 44 34 2c 31  2c 6c 25 2c 75 68 25 b8  |&44AD4,1,l%,uh%.|
00003c20  63 25 0d 74 b9 1b c9 33  3a c8 99 26 34 34 41 44  |c%.t...3:..&44AD|
00003c30  34 2c 31 2c 6b 25 2c 51  67 25 b8 63 25 0d 74 c2  |4,1,k%,Qg%.c%.t.|
00003c40  05 cb 0d 74 c2 19 e7 62  25 3d 30 8c 62 25 3d a4  |...t...b%=0.b%=.|
00003c50  62 28 63 25 2b 34 30 2c  61 25 29 0d 74 cb 07 3d  |b(c%+40,a%).t..=|
00003c60  62 25 0d 74 e6 1e dd a4  77 28 6a 25 2c 61 25 29  |b%.t....w(j%,a%)|
00003c70  3a ea 65 25 2c 63 25 2c  62 25 3a e7 68 6c 25 8c  |:.e%,c%,b%:.hl%.|
00003c80  0d 74 f8 23 62 25 3d a4  61 28 63 25 2c 61 25 29  |.t.#b%=.a(c%,a%)|
00003c90  3a e7 62 25 3d 30 8c 62  25 3d a4 61 28 63 25 2c  |:.b%=0.b%=.a(c%,|
00003ca0  61 25 29 0d 75 0a 0a e7  62 25 3d 30 8c 0d 75 13  |a%).u...b%=0..u.|
00003cb0  09 c8 8e 6a 25 ca 0d 75  1c 31 c9 30 3a c8 99 26  |...j%..u.1.0:..&|
00003cc0  34 34 41 44 34 2c 32 2c  74 25 2c 6f 66 25 2c 63  |44AD4,2,t%,of%,c|
00003cd0  25 2d 34 30 3a c8 99 26  34 34 41 43 42 2c 74 25  |%-40:..&44ACB,t%|
00003ce0  2c 74 66 25 2c 63 25 0d  75 40 31 c9 31 3a c8 99  |,tf%,c%.u@1.1:..|
00003cf0  26 34 34 41 44 34 2c 32  2c 6f 25 2c 67 67 25 2c  |&44AD4,2,o%,gg%,|
00003d00  63 25 2d 34 30 3a c8 99  26 34 34 41 43 42 2c 6f  |c%-40:..&44ACB,o|
00003d10  25 2c 6f 67 25 2c 63 25  0d 75 5b 31 c9 32 3a c8  |%,og%,c%.u[1.2:.|
00003d20  99 26 34 34 41 44 34 2c  32 2c 6c 25 2c 75 68 25  |.&44AD4,2,l%,uh%|
00003d30  2c 63 25 2d 34 30 3a c8  99 26 34 34 41 43 42 2c  |,c%-40:..&44ACB,|
00003d40  6c 25 2c 76 68 25 2c 63  25 0d 75 76 31 c9 33 3a  |l%,vh%,c%.uv1.3:|
00003d50  c8 99 26 34 34 41 44 34  2c 32 2c 6b 25 2c 51 67  |..&44AD4,2,k%,Qg|
00003d60  25 2c 63 25 2d 34 30 3a  c8 99 26 34 34 41 43 42  |%,c%-40:..&44ACB|
00003d70  2c 6b 25 2c 59 67 25 2c  63 25 0d 75 91 05 cb 0d  |,k%,Yg%,c%.u....|
00003d80  75 91 11 e7 77 25 3d 6a  25 8c f2 64 28 63 25 29  |u...w%=j%..d(c%)|
00003d90  0d 75 9a 05 cd 0d 75 a3  0f cc 3a 62 25 3d a4 6a  |.u....u...:b%=.j|
00003da0  28 61 25 29 0d 75 be 05  cd 0d 75 be 07 3d 62 25  |(a%).u....u..=b%|
00003db0  0d 75 eb 19 dd f2 4a 62  28 70 25 2c 58 25 2c 59  |.u....Jb(p%,X%,Y|
00003dc0  25 29 3a e7 4a 62 25 8c  e1 0d 75 f4 0c e7 28 70  |%):.Jb%...u...(p|
00003dd0  25 80 34 29 8c 0d 75 fd  10 f2 6c 28 33 29 3a c8  |%.4)..u...l(3):.|
00003de0  8e 49 62 25 ca 0d 76 0f  2e c9 31 2c 32 2c 33 2c  |.Ib%..v...1,2,3,|
00003df0  34 2c 35 2c 36 2c 37 3a  e7 69 6c 25 8c f2 4b 28  |4,5,6,7:.il%..K(|
00003e00  49 62 25 2c 21 51 6a 25  2b 21 50 6a 25 2a 4d 25  |Ib%,!Qj%+!Pj%*M%|
00003e10  2c a3 29 0d 76 18 16 c9  31 31 3a f2 4b 62 28 21  |,.).v...11:.Kb(!|
00003e20  51 6a 25 2c 21 50 6a 25  29 0d 76 2a 16 c9 31 30  |Qj%,!Pj%).v*..10|
00003e30  3a f2 4c 62 28 21 51 6a  25 2c 21 50 6a 25 29 0d  |:.Lb(!Qj%,!Pj%).|
00003e40  76 33 15 c9 39 3a f2 4d  62 28 21 51 6a 25 2c 21  |v3..9:.Mb(!Qj%,!|
00003e50  50 6a 25 29 0d 76 3c 16  c9 31 33 3a f2 4e 62 28  |Pj%).v<..13:.Nb(|
00003e60  21 51 6a 25 2c 21 50 6a  25 29 0d 76 45 1d c9 31  |!Qj%,!Pj%).vE..1|
00003e70  34 2c 31 35 3a f2 4f 62  28 21 51 6a 25 2c 21 50  |4,15:.Ob(!Qj%,!P|
00003e80  6a 25 2c 49 62 25 29 0d  76 4e 05 cb 0d 76 4e 0e  |j%,Ib%).vN...vN.|
00003e90  cc 3a e7 28 70 25 80 31  29 8c 0d 76 60 1c 41 25  |.:.(p%.1)..v`.A%|
00003ea0  3d 21 51 6a 25 2b 21 50  6a 25 2a 4d 25 3a e7 41  |=!Qj%+!Pj%*M%:.A|
00003eb0  25 3e 75 25 8c e1 0d 76  72 21 f2 4e 62 28 21 51  |%>u%...vr!.Nb(!Q|
00003ec0  6a 25 2c 21 50 6a 25 29  3a 7a 61 25 3d b9 3a 43  |j%,!Pj%):za%=.:C|
00003ed0  61 25 3d b9 3a f2 77 0d  76 9f 05 cd 0d 76 9f 05  |a%=.:.w.v....v..|
00003ee0  cd 0d 76 a8 05 e1 0d 76  b1 18 dd f2 50 62 28 64  |..v....v....Pb(d|
00003ef0  25 2c 58 25 2c 59 25 29  3a c8 8e 64 25 ca 0d 76  |%,X%,Y%):..d%..v|
00003f00  cc 18 c9 51 67 25 3a f2  52 28 6b 25 2c 64 25 2c  |...Qg%:.R(k%,d%,|
00003f10  58 25 2c 59 25 29 0d 76  de 0f c9 49 67 25 3a e7  |X%,Y%).v...Ig%:.|
00003f20  ac 4a 62 25 8c 0d 76 e7  7b c8 99 26 34 34 41 45  |.Jb%..v.{..&44AE|
00003f30  33 2c 36 2c 5f 25 2c 6b  25 3a c8 99 26 34 34 41  |3,6,_%,k%:..&44A|
00003f40  45 33 2c 36 2c 48 63 25  2c 64 68 25 3a c8 99 26  |E3,6,Hc%,dh%:..&|
00003f50  34 34 41 45 35 2c 30 2c  6b 25 2c 58 25 2c 59 25  |44AE5,0,k%,X%,Y%|
00003f60  2c 2c 65 68 25 b8 2c 2c  64 25 3a c8 99 26 34 34  |,,eh%.,,d%:..&44|
00003f70  41 45 33 2c 37 2c 5f 25  2c 6b 25 3a c8 99 26 34  |AE3,7,_%,k%:..&4|
00003f80  34 41 45 33 2c 37 2c 48  63 25 2c 64 68 25 3a e7  |4AE3,7,Hc%,dh%:.|
00003f90  64 25 3e 3d 7a 67 25 80  64 25 3c 3d 41 67 25 8c  |d%>=zg%.d%<=Ag%.|
00003fa0  0d 77 1d 2d f2 78 3a f2  53 28 64 25 2d 7a 67 25  |.w.-.x:.S(d%-zg%|
00003fb0  2b 31 29 3a f2 75 28 62  25 28 33 2c 64 25 2d 7a  |+1):.u(b%(3,d%-z|
00003fc0  67 25 29 2c 64 25 2d 7a  67 25 2b 31 29 0d 77 41  |g%),d%-zg%+1).wA|
00003fd0  05 cd 0d 77 41 05 cd 0d  77 4a 05 cb 0d 77 53 05  |...wA...wJ...wS.|
00003fe0  e1 0d 77 5c 2d dd f2 51  62 28 70 25 2c 64 25 2c  |..w\-..Qb(p%,d%,|
00003ff0  58 25 2c 59 25 29 3a ea  41 25 2c 43 25 2c 44 25  |X%,Y%):.A%,C%,D%|
00004000  3a e7 28 70 25 80 28 34  3c 3c 34 29 29 8c 0d 77  |:.(p%.(4<<4))..w|
00004010  89 09 c8 8e 64 25 ca 0d  77 92 1c c9 51 67 25 2c  |....d%..w...Qg%,|
00004020  4f 67 25 3a f2 47 28 6b  25 2c 64 25 2c 58 25 2c  |Og%:.G(k%,d%,X%,|
00004030  59 25 29 0d 77 ad 05 cb  0d 77 ad 05 cd 0d 77 b6  |Y%).w....w....w.|
00004040  0c e7 28 70 25 80 34 29  8c 0d 77 c8 09 c8 8e 64  |..(p%.4)..w....d|
00004050  25 ca 0d 77 d1 0e c9 4c  67 25 3a f2 4c 28 31 29  |%..w...Lg%:.L(1)|
00004060  0d 77 ec 0f c9 4a 67 25  3a f2 4c 28 2d 31 29 0d  |.w...Jg%:.L(-1).|
00004070  77 fe 0b c9 4d 67 25 3a  f2 78 0d 78 10 27 c9 4b  |w...Mg%:.x.x.'.K|
00004080  67 25 3a c8 99 26 34 34  41 44 44 2c 33 2c 6b 25  |g%:..&44ADD,3,k%|
00004090  2c 64 25 2c 31 3a 55 62  25 3d b9 3a f2 4c 28 31  |,d%,1:Ub%=.:.L(1|
000040a0  29 0d 78 34 2a c9 55 67  25 2c 54 67 25 2c 50 67  |).x4*.Ug%,Tg%,Pg|
000040b0  25 2c 56 67 25 2c 52 67  25 2c 53 67 25 2c 57 67  |%,Vg%,Rg%,Sg%,Wg|
000040c0  25 3a f2 65 28 6b 25 2c  64 25 29 0d 78 46 2e c9  |%:.e(k%,d%).xF..|
000040d0  51 67 25 3a c8 99 26 34  34 41 44 34 2c 30 2c 6b  |Qg%:..&44AD4,0,k|
000040e0  25 2c 64 25 2c 58 25 2c  59 25 b8 63 25 3a f2 64  |%,d%,X%,Y%.c%:.d|
000040f0  28 28 63 25 2b 34 30 29  29 0d 78 61 29 c9 4f 67  |((c%+40)).xa).Og|
00004100  25 3a c8 99 26 34 34 41  44 34 2c 30 2c 6b 25 2c  |%:..&44AD4,0,k%,|
00004110  64 25 2c 58 25 2c 59 25  b8 63 25 3a f2 71 28 63  |d%,X%,Y%.c%:.q(c|
00004120  25 29 0d 78 7c 1b c9 58  67 25 3a c8 99 26 34 34  |%).x|..Xg%:..&44|
00004130  41 44 36 2c 6c 64 25 2c  58 25 2c 59 25 0d 78 85  |AD6,ld%,X%,Y%.x.|
00004140  18 c9 5a 67 25 3a e7 ac  50 61 25 8c f2 65 28 6b  |..Zg%:..Pa%..e(k|
00004150  25 2c 64 25 29 0d 78 8e  29 c8 99 26 34 34 41 44  |%,d%).x.)..&44AD|
00004160  34 2c 31 2c 6b 25 2c 51  67 25 b8 63 25 3a 63 25  |4,1,k%,Qg%.c%:c%|
00004170  2d 3d 31 3a e7 63 25 3c  30 8c 63 25 3d 30 0d 78  |-=1:.c%<0.c%=0.x|
00004180  a9 27 c8 99 26 34 34 41  44 34 2c 32 2c 6b 25 2c  |.'..&44AD4,2,k%,|
00004190  51 67 25 2c 63 25 b8 63  25 3a f2 64 28 28 63 25  |Qg%,c%.c%:.d((c%|
000041a0  2b 34 30 29 29 0d 78 c4  18 c9 5f 67 25 3a e7 ac  |+40)).x..._g%:..|
000041b0  50 61 25 8c f2 65 28 6b  25 2c 64 25 29 0d 78 cd  |Pa%..e(k%,d%).x.|
000041c0  2d c8 99 26 34 34 41 44  34 2c 31 2c 6b 25 2c 51  |-..&44AD4,1,k%,Q|
000041d0  67 25 b8 63 25 3a 63 25  2b 3d 31 3a e7 63 25 3e  |g%.c%:c%+=1:.c%>|
000041e0  32 35 35 8c 63 25 3d 32  35 35 0d 78 e8 27 c8 99  |255.c%=255.x.'..|
000041f0  26 34 34 41 44 34 2c 32  2c 6b 25 2c 51 67 25 2c  |&44AD4,2,k%,Qg%,|
00004200  63 25 b8 63 25 3a f2 64  28 28 63 25 2b 34 30 29  |c%.c%:.d((c%+40)|
00004210  29 0d 79 03 0f c9 49 67  25 3a e7 ac 4a 62 25 8c  |).y...Ig%:..Jb%.|
00004220  0d 79 0c 7b c8 99 26 34  34 41 45 33 2c 36 2c 5f  |.y.{..&44AE3,6,_|
00004230  25 2c 6b 25 3a c8 99 26  34 34 41 45 33 2c 36 2c  |%,k%:..&44AE3,6,|
00004240  48 63 25 2c 64 68 25 3a  c8 99 26 34 34 41 45 35  |Hc%,dh%:..&44AE5|
00004250  2c 30 2c 6b 25 2c 58 25  2c 59 25 2c 2c 65 68 25  |,0,k%,X%,Y%,,eh%|
00004260  b8 2c 2c 64 25 3a c8 99  26 34 34 41 45 33 2c 37  |.,,d%:..&44AE3,7|
00004270  2c 5f 25 2c 6b 25 3a c8  99 26 34 34 41 45 33 2c  |,_%,k%:..&44AE3,|
00004280  37 2c 48 63 25 2c 64 68  25 3a e7 64 25 3e 3d 7a  |7,Hc%,dh%:.d%>=z|
00004290  67 25 80 64 25 3c 3d 41  67 25 8c 0d 79 42 0a e7  |g%.d%<=Ag%..yB..|
000042a0  ac 4b 62 25 8c 0d 79 4b  19 f2 48 28 64 25 2d 7a  |.Kb%..yK..H(d%-z|
000042b0  67 25 2b 31 2c 2d 31 2c  6b 25 2c 2d 31 29 0d 79  |g%+1,-1,k%,-1).y|
000042c0  5d 05 cd 0d 79 5d 1d f2  75 28 62 25 28 33 2c 64  |]...y]..u(b%(3,d|
000042d0  25 2d 7a 67 25 29 2c 64  25 2d 7a 67 25 2b 31 29  |%-zg%),d%-zg%+1)|
000042e0  0d 79 6f 0b cc 3a c8 8e  64 25 ca 0d 79 78 38 c9  |.yo..:..d%..yx8.|
000042f0  42 67 25 2c 42 67 25 2b  31 2c 42 67 25 2b 32 2c  |Bg%,Bg%+1,Bg%+2,|
00004300  43 67 25 2c 44 67 25 3a  e7 a4 73 28 64 25 29 8c  |Cg%,Dg%:..s(d%).|
00004310  f2 75 28 2d 31 2c 64 25  2d 42 67 25 2b 31 29 8b  |.u(-1,d%-Bg%+1).|
00004320  f2 52 62 0d 79 8a 05 cb  0d 79 93 05 cd 0d 79 9c  |.Rb.y....y....y.|
00004330  05 cd 0d 79 a5 2c c9 48  67 25 3a c8 99 26 34 34  |...y.,.Hg%:..&44|
00004340  41 45 35 2c 30 2c 6b 25  2c 58 25 2c 59 25 2c 2c  |AE5,0,k%,X%,Y%,,|
00004350  65 68 25 b8 2c 2c 64 25  3a c8 8e 64 25 ca 0d 79  |eh%.,,d%:..d%..y|
00004360  c0 1a c9 45 67 25 3a e7  ac 61 62 25 8c f2 53 62  |...Eg%:..ab%..Sb|
00004370  28 2d 31 29 3a f2 54 62  0d 79 d2 1f c8 99 26 34  |(-1):.Tb.y....&4|
00004380  34 41 44 44 2c 33 2b 32  5e 39 2c 6b 25 2c 64 25  |4ADD,3+2^9,k%,d%|
00004390  2c 30 2c 2c 65 68 25 0d  79 e4 19 c9 46 67 25 3a  |,0,,eh%.y...Fg%:|
000043a0  e7 ac 62 62 25 8c f2 53  62 28 31 29 3a f2 54 62  |..bb%..Sb(1):.Tb|
000043b0  0d 79 ed 1f c8 99 26 34  34 41 44 44 2c 33 2b 32  |.y....&44ADD,3+2|
000043c0  5e 39 2c 6b 25 2c 64 25  2c 30 2c 2c 65 68 25 0d  |^9,k%,d%,0,,eh%.|
000043d0  79 ff 0c c9 47 67 25 3a  f2 55 62 0d 7a 08 05 cb  |y...Gg%:.Ub.z...|
000043e0  0d 7a 08 05 cb 0d 7a 11  05 cd 0d 7a 1a 05 e1 0d  |.z....z....z....|
000043f0  7a 23 74 dd f2 46 62 3a  ea 63 25 3a f2 68 28 42  |z#t..Fb:.c%:.h(B|
00004400  66 25 29 3a f2 54 28 6b  25 29 3a f2 55 28 33 29  |f%):.T(k%):.U(3)|
00004410  3a f2 56 62 28 48 62 25  2c 4f 25 2c 6a 6c 25 2c  |:.Vb(Hb%,O%,jl%,|
00004420  b9 29 3a f2 56 28 6b 25  2c 4f 67 25 29 3a c8 99  |.):.V(k%,Og%):..|
00004430  26 34 34 41 44 34 2c 31  2c 6b 25 2c 51 67 25 b8  |&44AD4,1,k%,Qg%.|
00004440  63 25 3a f2 73 28 50 67  25 2c 6b 25 2c 30 29 3a  |c%:.s(Pg%,k%,0):|
00004450  f2 64 28 63 25 2b 34 30  29 3a f2 52 62 3a f2 57  |.d(c%+40):.Rb:.W|
00004460  62 3a e1 0d 7a aa 2b dd  f2 57 62 3a f2 58 62 3a  |b:..z.+..Wb:.Xb:|
00004470  21 67 25 3d 64 68 25 3a  c8 99 26 34 30 30 43 42  |!g%=dh%:..&400CB|
00004480  2c 2c 67 25 3a f2 59 62  28 67 25 29 3a e1 0d 7a  |,,g%:.Yb(g%):..z|
00004490  e9 13 dd f2 5a 62 3a f2  78 3a f2 41 3a f2 72 3a  |....Zb:.x:.A:.r:|
000044a0  e1 0d 7b 1f 16 dd f2 75  28 78 25 2c 71 25 29 3a  |..{....u(x%,q%):|
000044b0  e7 78 25 3e 3d 30 8c 0d  7b 3a 11 64 24 3d 22 73  |.x%>=0..{:.d$="s|
000044c0  22 2b 61 24 28 78 25 29  0d 7b 4c 11 cc 3a e7 71  |"+a$(x%).{L..:.q|
000044d0  25 3e 33 8c 71 25 2b 3d  31 0d 7b 55 17 64 24 3d  |%>3.q%+=1.{U.d$=|
000044e0  22 73 74 22 2b c3 28 71  25 29 3a 71 25 2b 3d 38  |"st"+.(q%):q%+=8|
000044f0  0d 7b 70 05 cd 0d 7b 70  1c f2 5f 62 28 64 24 29  |.{p...{p.._b(d$)|
00004500  3a 21 4e 6a 25 3d 71 25  3a 49 62 25 3d 71 25 3a  |:!Nj%=q%:Ib%=q%:|
00004510  e1 0d 7b 9d 10 dd f2 52  62 3a e7 49 62 25 3e 37  |..{....Rb:.Ib%>7|
00004520  8c 0d 7b b8 0c e7 49 62  25 3e 31 32 8c 0d 7b c1  |..{...Ib%>12..{.|
00004530  32 f2 75 28 2d 31 2c 49  62 25 2d 39 29 3a c8 99  |2.u(-1,Ib%-9):..|
00004540  26 34 34 41 44 44 2c 37  2b 35 31 32 2c 6b 25 2c  |&44ADD,7+512,k%,|
00004550  7a 67 25 2b 49 62 25 2d  33 2c 2c 2c 65 68 25 0d  |zg%+Ib%-3,,,eh%.|
00004560  7b dc 34 cc 3a f2 75 28  2d 31 2c 49 62 25 2d 38  |{.4.:.u(-1,Ib%-8|
00004570  29 3a c8 99 26 34 34 41  44 44 2c 37 2b 35 31 32  |):..&44ADD,7+512|
00004580  2c 6b 25 2c 7a 67 25 2b  49 62 25 2d 32 2c 2c 2c  |,k%,zg%+Ib%-2,,,|
00004590  65 68 25 0d 7b f7 05 cd  0d 7b f7 3b cc 3a c8 99  |eh%.{....{.;.:..|
000045a0  26 34 34 41 44 44 2c 37  2b 35 31 32 2c 6b 25 2c  |&44ADD,7+512,k%,|
000045b0  7a 67 25 2b 49 62 25 2d  31 2c 2c 2c 65 68 25 3a  |zg%+Ib%-1,,,eh%:|
000045c0  f2 75 28 62 25 28 33 2c  49 62 25 2d 31 29 2c 49  |.u(b%(3,Ib%-1),I|
000045d0  62 25 29 0d 7c 1b 05 cd  0d 7c 1b 05 e1 0d 7c 24  |b%).|....|....|$|
000045e0  29 dd f2 60 62 28 48 25  2c 4a 25 2c 73 25 29 3a  |)..`b(H%,J%,s%):|
000045f0  21 4c 69 25 3d 48 25 3a  21 4d 69 25 3d 4a 25 3a  |!Li%=H%:!Mi%=J%:|
00004600  d6 42 6a 25 3a e1 0d 7c  6c 7c dd f2 61 63 28 48  |.Bj%:..|l|..ac(H|
00004610  25 2c 4a 25 2c 73 25 29  3a ea 65 25 3a e3 65 25  |%,J%,s%):.e%:.e%|
00004620  3d 30 b8 47 67 25 3a c8  99 26 34 34 41 45 30 2c  |=0.Gg%:..&44AE0,|
00004630  2c 65 68 25 2b 34 2b 33  32 2a 65 25 2c 73 25 3a  |,eh%+4+32*e%,s%:|
00004640  ed 3a f2 57 28 48 25 2c  4a 25 29 3a f2 58 28 48  |.:.W(H%,J%):.X(H|
00004650  25 2c 4a 25 29 3a c8 99  26 34 30 30 45 36 2c 37  |%,J%):..&400E6,7|
00004660  3a c8 93 48 25 2b 60 67  25 2c 4a 25 2b 63 68 25  |:..H%+`g%,J%+ch%|
00004670  2c 62 68 25 2d 60 67 25  2c 61 68 25 2d 63 68 25  |,bh%-`g%,ah%-ch%|
00004680  3a e1 0d 7c cf 5f dd f2  78 3a f2 6d 3a 4b 62 25  |:..|._..x:.m:Kb%|
00004690  3d a3 3a f2 67 3a c8 99  26 34 34 41 44 44 2c 37  |=.:.g:..&44ADD,7|
000046a0  2c 6b 25 2c 4d 67 25 2c  31 3a c8 99 26 34 34 41  |,k%,Mg%,1:..&44A|
000046b0  44 44 2c 33 2c 6b 25 2c  4b 67 25 2c 30 3a 41 25  |DD,3,k%,Kg%,0:A%|
000046c0  3d 2d 31 3a 42 25 3d 2d  31 3a d6 46 6a 25 3a 55  |=-1:B%=-1:.Fj%:U|
000046d0  62 25 3d a3 3a f2 62 63  3a f2 63 63 28 a3 29 3a  |b%=.:.bc:.cc(.):|
000046e0  e1 0d 7d 44 16 dd f2 4c  28 6f 6b 25 29 3a ea 65  |..}D...L(ok%):.e|
000046f0  25 3a e7 55 62 25 8c 0d  7d 68 1e c8 99 26 34 34  |%:.Ub%..}h...&44|
00004700  41 44 44 2c 37 2c 6b 25  2c 4b 67 25 2c 31 3a 21  |ADD,7,k%,Kg%,1:!|
00004710  54 6a 25 3d 30 0d 7d 83  0c cc 3a 21 54 6a 25 3d  |Tj%=0.}...:!Tj%=|
00004720  31 0d 7d 95 05 cd 0d 7d  95 1c f2 63 63 28 ac 55  |1.}....}...cc(.U|
00004730  62 25 29 3a 6b 6c 25 3d  2d 31 3a e7 6f 6b 25 3d  |b%):kl%=-1:.ok%=|
00004740  31 8c 0d 7d b0 36 c8 99  26 34 34 41 44 44 2c 37  |1..}.6..&44ADD,7|
00004750  2c 6b 25 2c 4c 67 25 2c  31 3a 41 25 3d 30 3a 42  |,k%,Lg%,1:A%=0:B|
00004760  25 3d 30 3a d6 46 6a 25  3a 21 52 6a 25 3d 2d 31  |%=0:.Fj%:!Rj%=-1|
00004770  3a 21 53 6a 25 3d 75 25  0d 7d dd 48 cc 3a c8 99  |:!Sj%=u%.}.H.:..|
00004780  26 34 34 41 44 44 2c 37  2c 6b 25 2c 4a 67 25 2c  |&44ADD,7,k%,Jg%,|
00004790  31 3a 41 25 3d 28 75 25  2d 31 29 81 4d 25 3a 42  |1:A%=(u%-1).M%:B|
000047a0  25 3d 28 75 25 2d 31 29  83 4d 25 3a d6 46 6a 25  |%=(u%-1).M%:.Fj%|
000047b0  3a 21 52 6a 25 3d 75 25  3a 21 53 6a 25 3d 75 25  |:!Rj%=u%:!Sj%=u%|
000047c0  0d 7e 1c 05 cd 0d 7e 1c  5e 4b 62 25 3d b9 3a 6c  |.~....~.^Kb%=.:l|
000047d0  6c 25 3d 6f 6b 25 3a f2  67 3a 21 74 6a 25 3d 59  |l%=ok%:.g:!tj%=Y|
000047e0  62 25 3a c8 99 26 34 30  31 43 30 3a f2 6d 3a 6d  |b%:..&401C0:.m:m|
000047f0  6c 25 3d 6c 62 25 3a 6e  6c 25 3d 2d 6d 62 25 3a  |l%=lb%:nl%=-mb%:|
00004800  e3 65 25 3d 30 b8 6d 62  25 3a 41 25 3d 65 25 2a  |.e%=0.mb%:A%=e%*|
00004810  51 25 3a e7 6c 6c 25 3d  31 8c d6 55 6a 25 8b d6  |Q%:.ll%=1..Uj%..|
00004820  56 6a 25 0d 7e 88 17 ed  3a f2 64 63 3a f2 74 3a  |Vj%.~...:.dc:.t:|
00004830  6f 6c 25 3d 2d 31 30 30  3a e1 0d 7e b5 4f dd f2  |ol%=-100:..~.O..|
00004840  53 62 28 41 25 29 3a 21  67 25 3d 64 68 25 3a c8  |Sb(A%):!g%=dh%:.|
00004850  99 26 34 30 30 43 42 2c  2c 67 25 3a 67 25 21 32  |.&400CB,,g%:g%!2|
00004860  34 2b 3d 41 25 2a 28 4f  62 25 2b 52 62 25 29 2a  |4+=A%*(Ob%+Rb%)*|
00004870  2d 31 3a f2 59 62 28 67  25 29 3a c8 99 26 34 30  |-1:.Yb(g%):..&40|
00004880  30 43 35 2c 2c 67 25 3a  e1 0d 7e fd 12 dd f2 65  |0C5,,g%:..~....e|
00004890  63 28 64 25 29 3a c8 8e  64 25 ca 0d 7f 18 14 c9  |c(d%):..d%......|
000048a0  50 67 25 3a f2 73 28 64  25 2c 6b 25 2c 31 29 0d  |Pg%:.s(d%,k%,1).|
000048b0  7f 2a 11 c9 55 67 25 3a  f2 76 28 6b 25 2c 33 29  |.*..Ug%:.v(k%,3)|
000048c0  0d 7f 33 11 c9 54 67 25  3a f2 76 28 6b 25 2c 32  |..3..Tg%:.v(k%,2|
000048d0  29 0d 7f 3c 14 c9 53 67  25 3a e7 a4 73 28 64 25  |)..<..Sg%:..s(d%|
000048e0  29 8c f2 66 63 0d 7f 3c  18 c9 52 67 25 3a e7 a4  |)..fc..<..Rg%:..|
000048f0  73 28 64 25 29 8c f2 6e  28 30 2c 33 29 0d 7f 45  |s(d%)..n(0,3)..E|
00004900  18 c9 57 67 25 3a e7 a4  73 28 64 25 29 8c f2 6e  |..Wg%:..s(d%)..n|
00004910  28 31 2c 33 29 0d 7f 4e  13 c9 56 67 25 3a f2 68  |(1,3)..N..Vg%:.h|
00004920  28 6b 25 29 3a f2 5a 62  0d 7f 72 0b c9 2d 31 3a  |(k%):.Zb..r..-1:|
00004930  f2 69 62 0d 7f 7b 24 c9  2d 32 3a c8 99 26 34 34  |.ib..{$.-2:..&44|
00004940  41 44 44 2c 33 2b 32 5e  39 2c 6b 25 2c 47 67 25  |ADD,3+2^9,k%,Gg%|
00004950  2c 30 2c 2c 65 68 25 0d  7f 84 05 cb 0d 7f 84 05  |,0,,eh%.........|
00004960  e1 0d 7f 8d 0f dd f2 67  63 3a d6 5f 69 25 3a e1  |.......gc:._i%:.|
00004970  0d 7f b1 62 dd f2 58 62  3a f2 5f 62 28 64 24 29  |...b..Xb:._b(d$)|
00004980  3a c8 99 26 34 34 41 45  32 2c 32 36 32 2b 32 5e  |:..&44AE2,262+2^|
00004990  31 31 2c 55 25 2c 22 73  3f 22 2c 2c 2c 2c 73 69  |11,U%,"s?",,,,si|
000049a0  25 2c 74 69 25 3a c8 99  26 34 34 41 45 32 2c 32  |%,ti%:..&44AE2,2|
000049b0  36 32 2b 32 5e 31 31 2c  55 25 2c 22 50 6f 69 6e  |62+2^11,U%,"Poin|
000049c0  74 65 72 31 22 2c 2c 2c  2c 47 6a 25 2c 48 6a 25  |ter1",,,,Gj%,Hj%|
000049d0  3a e1 0d 7f f0 1c dd a4  6d 3a ea 5a 25 2c 41 25  |:.......m:.Z%,A%|
000049e0  3a 5a 25 3d c6 8f 3a e7  6c 6c 25 3d 31 8c 0d 80  |:Z%=..:.ll%=1...|
000049f0  2f 0c e7 5a 25 3c 6d 6c  25 8c 0d 80 38 2a e3 65  |/..Z%<ml%...8*.e|
00004a00  25 3d 31 b8 6d 62 25 3a  41 25 3d 6c 62 25 2b 65  |%=1.mb%:A%=lb%+e|
00004a10  25 2a 51 25 3a d6 55 6a  25 3a ed 3a 6e 6c 25 2b  |%*Q%:.Uj%:.:nl%+|
00004a20  3d 6d 62 25 0d 80 6e 05  cd 0d 80 6e 1b 41 25 3d  |=mb%..n....n.A%=|
00004a30  28 5a 25 81 51 25 29 2b  6e 6c 25 3a e7 41 25 3e  |(Z%.Q%)+nl%:.A%>|
00004a40  3d 75 25 8c 0d 80 80 10  e7 55 62 25 8c 6e 6c 25  |=u%......Ub%.nl%|
00004a50  2d 3d 75 25 0d 80 89 05  cd 0d 80 92 0e cc 3a e7  |-=u%..........:.|
00004a60  5a 25 3c 6d 6c 25 8c 0d  80 a4 2a e3 65 25 3d 31  |Z%<ml%....*.e%=1|
00004a70  b8 6d 62 25 3a 41 25 3d  6c 62 25 2b 65 25 2a 51  |.mb%:A%=lb%+e%*Q|
00004a80  25 3a d6 56 6a 25 3a ed  3a 6e 6c 25 2b 3d 6d 62  |%:.Vj%:.:nl%+=mb|
00004a90  25 0d 80 da 05 cd 0d 80  da 19 41 25 3d 28 5a 25  |%.........A%=(Z%|
00004aa0  81 51 25 29 2b 6e 6c 25  3a e7 41 25 3c 30 8c 0d  |.Q%)+nl%:.A%<0..|
00004ab0  80 ec 10 e7 55 62 25 8c  6e 6c 25 2b 3d 75 25 0d  |....Ub%.nl%+=u%.|
00004ac0  80 f5 05 cd 0d 80 fe 05  cd 0d 81 07 0e 6d 6c 25  |.............ml%|
00004ad0  3d 5a 25 3a 3d 5a 25 0d  81 2b 25 dd f2 68 63 3a  |=Z%:=Z%..+%..hc:|
00004ae0  ea 5a 25 2c 41 25 2c 79  6b 25 2c 7a 6b 25 3a 5a  |.Z%,A%,yk%,zk%:Z|
00004af0  25 3d a4 6d 3a e7 6c 6c  25 3d 31 8c 0d 81 46 1c  |%=.m:.ll%=1...F.|
00004b00  41 25 3d 28 5a 25 81 51  25 29 2b 6e 6c 25 3a e7  |A%=(Z%.Q%)+nl%:.|
00004b10  41 25 3c 3e 6b 6c 25 8c  0d 81 58 13 6b 6c 25 3d  |A%<>kl%...X.kl%=|
00004b20  41 25 3a e7 41 25 3e 3d  75 25 8c 0d 81 6a 09 e7  |A%:.A%>=u%...j..|
00004b30  55 62 25 8c 0d 81 73 12  41 25 2d 3d 75 25 3a 6e  |Ub%...s.A%-=u%:n|
00004b40  6c 25 2d 3d 75 25 0d 81  8e 10 cc 3a f2 78 3a 41  |l%-=u%.....:.x:A|
00004b50  25 3d 2d 31 30 30 0d 81  a0 05 cd 0d 81 a0 05 cd  |%=-100..........|
00004b60  0d 81 a9 37 42 25 3d 41  25 83 4d 25 3a 41 25 3d  |...7B%=A%.M%:A%=|
00004b70  41 25 81 4d 25 3a d6 46  6a 25 3a e7 41 25 3c 3e  |A%.M%:.Fj%:.A%<>|
00004b80  6f 6c 25 80 ac 55 62 25  8c f2 69 63 28 41 25 29  |ol%..Ub%..ic(A%)|
00004b90  3a 6f 6c 25 3d 41 25 0d  81 cd 05 cd 0d 81 d6 23  |:ol%=A%........#|
00004ba0  cc 3a 41 25 3d 75 25 2d  28 5a 25 81 51 25 29 2d  |.:A%=u%-(Z%.Q%)-|
00004bb0  6e 6c 25 2d 31 3a e7 41  25 3c 3e 6b 6c 25 8c 0d  |nl%-1:.A%<>kl%..|
00004bc0  81 fa 11 6b 6c 25 3d 41  25 3a e7 41 25 3c 30 8c  |...kl%=A%:.A%<0.|
00004bd0  0d 82 0c 09 e7 55 62 25  8c 0d 82 15 12 41 25 2b  |.....Ub%.....A%+|
00004be0  3d 75 25 3a 6e 6c 25 2d  3d 75 25 0d 82 30 10 cc  |=u%:nl%-=u%..0..|
00004bf0  3a f2 78 3a 41 25 3d 2d  31 30 30 0d 82 42 05 cd  |:.x:A%=-100..B..|
00004c00  0d 82 42 05 cd 0d 82 4b  37 42 25 3d 41 25 83 4d  |..B....K7B%=A%.M|
00004c10  25 3a 41 25 3d 41 25 81  4d 25 3a d6 46 6a 25 3a  |%:A%=A%.M%:.Fj%:|
00004c20  e7 41 25 3c 3e 6f 6c 25  80 ac 55 62 25 8c f2 69  |.A%<>ol%..Ub%..i|
00004c30  63 28 41 25 29 3a 6f 6c  25 3d 41 25 0d 82 6f 05  |c(A%):ol%=A%..o.|
00004c40  cd 0d 82 78 05 cd 0d 82  81 05 e1 0d 82 8a 0e dd  |...x............|
00004c50  f2 64 63 3a e7 4b 62 25  8c 0d 82 a5 21 c8 99 26  |.dc:.Kb%....!..&|
00004c60  34 30 30 44 33 2c 2c 67  25 3a 46 62 25 3d b9 3a  |400D3,,g%:Fb%=.:|
00004c70  e7 67 25 21 30 3c 3e 6b  25 8c 0d 82 c0 3c 70 6c  |.g%!0<>k%....<pl|
00004c80  25 3d 67 25 21 30 3a 71  6c 25 3d 67 25 21 34 3a  |%=g%!0:ql%=g%!4:|
00004c90  72 6c 25 3d 67 25 21 38  3a 73 6c 25 3d 67 25 21  |rl%=g%!8:sl%=g%!|
00004ca0  31 32 3a 74 6c 25 3d 67  25 21 31 36 3a 75 6c 25  |12:tl%=g%!16:ul%|
00004cb0  3d 67 25 21 32 30 0d 82  ff 05 cd 0d 82 ff 1f c8  |=g%!20..........|
00004cc0  99 26 34 30 30 44 32 2c  6b 25 2c 2d 31 2c 2d 32  |.&400D2,k%,-1,-2|
00004cd0  30 30 2c 32 30 30 2c 30  2c 30 0d 83 11 05 cd 0d  |00,200,0,0......|
00004ce0  83 11 05 e1 0d 83 1a 10  dd f2 6a 63 3a 46 62 25  |..........jc:Fb%|
00004cf0  3d a3 3a e1 0d 83 3e 15  dd f2 62 63 3a e7 46 62  |=.:...>...bc:.Fb|
00004d00  25 80 28 ac 4b 62 25 29  8c 0d 83 59 2a 46 62 25  |%.(.Kb%)...Y*Fb%|
00004d10  3d a3 3a c8 99 26 34 30  30 44 32 2c 70 6c 25 2c  |=.:..&400D2,pl%,|
00004d20  71 6c 25 2c 72 6c 25 2c  73 6c 25 2c 74 6c 25 2c  |ql%,rl%,sl%,tl%,|
00004d30  75 6c 25 0d 83 74 05 cd  0d 83 74 05 e1 0d 83 7d  |ul%..t....t....}|
00004d40  40 dd f2 6b 63 28 64 25  2c 76 6c 25 29 3a 41 25  |@..kc(d%,vl%):A%|
00004d50  3d a7 22 31 32 33 34 35  36 37 20 22 2c bd 28 76  |=."1234567 ",.(v|
00004d60  6c 25 29 29 3a e7 41 25  3d 30 84 ac 4b 62 25 84  |l%)):.A%=0..Kb%.|
00004d70  49 62 25 3e 37 84 28 ac  77 6c 25 29 8c 0d 83 a1  |Ib%>7.(.wl%)....|
00004d80  12 c8 99 26 34 30 30 44  43 2c 73 25 21 32 34 0d  |...&400DC,s%!24.|
00004d90  83 b3 12 cc 3a e7 41 25  3d 38 8c 41 25 3d 49 62  |....:.A%=8.A%=Ib|
00004da0  25 0d 83 bc 11 43 25 3d  a4 6d 3a e7 6c 6c 25 3d  |%....C%=.m:.ll%=|
00004db0  31 8c 0d 83 d7 18 f2 4b  28 41 25 2c 28 43 25 81  |1......K(A%,(C%.|
00004dc0  51 25 29 2b 6e 6c 25 2c  b9 29 0d 83 e9 1f cc 3a  |Q%)+nl%,.).....:|
00004dd0  f2 4b 28 41 25 2c 75 25  2d 28 43 25 81 51 25 29  |.K(A%,u%-(C%.Q%)|
00004de0  2d 6e 6c 25 2d 31 2c b9  29 0d 83 fb 05 cd 0d 83  |-nl%-1,.).......|
00004df0  fb 05 cd 0d 84 04 05 e1  0d 84 0d 1e dd f2 4b 28  |..............K(|
00004e00  41 25 2c 42 25 2c 78 6c  25 29 3a e7 ac 59 63 25  |A%,B%,xl%):..Yc%|
00004e10  8c f2 6c 28 33 29 0d 84  28 0c e7 42 25 3e 3d 75  |..l(3)..(..B%>=u|
00004e20  25 8c 0d 84 31 09 e7 55  62 25 8c 0d 84 3a 0a 42  |%...1..Ub%...:.B|
00004e30  25 2d 3d 75 25 0d 84 4c  07 cc 3a e1 0d 84 55 05  |%-=u%..L..:...U.|
00004e40  cd 0d 84 5e 05 cd 0d 84  67 0e e7 ba 28 4a 6a 25  |...^....g...(Jj%|
00004e50  29 3d 30 8c 0d 84 70 36  f2 62 28 22 4e 6f 74 20  |)=0...p6.b("Not |
00004e60  61 6c 6c 6f 77 65 64 20  74 68 61 74 20 6d 61 6e  |allowed that man|
00004e70  79 20 69 6e 73 74 72 75  6d 65 6e 74 73 20 61 74  |y instruments at|
00004e80  20 6f 6e 63 65 2e 22 2c  a3 29 0d 84 82 16 cc 3a  | once.",.).....:|
00004e90  f2 6c 63 28 42 25 2c 41  25 2c b9 2c 78 6c 25 29  |.lc(B%,A%,.,xl%)|
00004ea0  0d 84 94 05 cd 0d 84 94  05 e1 0d 84 9d 32 dd f2  |.............2..|
00004eb0  6c 63 28 42 25 2c 41 25  2c 79 6c 25 2c 78 6c 25  |lc(B%,A%,yl%,xl%|
00004ec0  29 3a ea 43 25 2c 44 25  2c 45 25 3a e7 79 6c 25  |):.C%,D%,E%:.yl%|
00004ed0  8c 45 25 3d 59 62 25 8b  45 25 3d 30 0d 84 c1 09  |.E%=Yb%.E%=0....|
00004ee0  e7 4b 62 25 8c 0d 84 ca  0b e7 6c 6c 25 3d 31 8c  |.Kb%......ll%=1.|
00004ef0  0d 84 d3 2b 43 25 3d a4  6d 81 51 25 3a 44 25 3d  |...+C%=.m.Q%:D%=|
00004f00  42 25 3a e7 44 25 3c 6e  6c 25 2b 43 25 80 28 ac  |B%:.D%<nl%+C%.(.|
00004f10  78 6c 25 29 8c 44 25 2b  3d 75 25 0d 84 ee 66 c8  |xl%).D%+=u%...f.|
00004f20  95 28 6e 6c 25 2b 43 25  3c 3d 44 25 80 44 25 3c  |.(nl%+C%<=D%.D%<|
00004f30  3d 6e 6c 25 2b 6d 62 25  2a 32 29 84 78 6c 25 3a  |=nl%+mb%*2).xl%:|
00004f40  c8 99 26 34 30 31 43 31  2c 28 44 25 2d 6e 6c 25  |..&401C1,(D%-nl%|
00004f50  29 2a 51 25 2c 30 2c 28  45 25 3c 3c 31 36 84 41  |)*Q%,0,(E%<<16.A|
00004f60  25 29 2c 28 21 58 6a 25  84 21 57 6a 25 3c 3c 31  |%),(!Xj%.!Wj%<<1|
00004f70  36 29 3a 44 25 2b 3d 75  25 3a 78 6c 25 3d a3 3a  |6):D%+=u%:xl%=.:|
00004f80  ce 0d 85 24 32 cc 3a 43  25 3d a4 6d 81 51 25 3a  |...$2.:C%=.m.Q%:|
00004f90  44 25 3d 75 25 2d 42 25  2d 31 3a e7 44 25 3c 6e  |D%=u%-B%-1:.D%<n|
00004fa0  6c 25 2b 43 25 80 28 ac  78 6c 25 29 8c 44 25 2b  |l%+C%.(.xl%).D%+|
00004fb0  3d 75 25 0d 85 3f 66 c8  95 28 6e 6c 25 2b 43 25  |=u%..?f..(nl%+C%|
00004fc0  3c 3d 44 25 80 44 25 3c  3d 6e 6c 25 2b 6d 62 25  |<=D%.D%<=nl%+mb%|
00004fd0  2a 32 29 84 78 6c 25 3a  c8 99 26 34 30 31 43 31  |*2).xl%:..&401C1|
00004fe0  2c 28 44 25 2d 6e 6c 25  29 2a 51 25 2c 30 2c 28  |,(D%-nl%)*Q%,0,(|
00004ff0  45 25 3c 3c 31 36 84 41  25 29 2c 28 21 58 6a 25  |E%<<16.A%),(!Xj%|
00005000  84 21 57 6a 25 3c 3c 31  36 29 3a 44 25 2b 3d 75  |.!Wj%<<16):D%+=u|
00005010  25 3a 78 6c 25 3d a3 3a  ce 0d 85 75 05 cd 0d 85  |%:xl%=.:...u....|
00005020  75 2a cc 3a c8 99 26 34  30 31 38 36 2c 28 45 25  |u*.:..&40186,(E%|
00005030  3c 3c 31 36 84 41 25 29  2c 28 21 58 6a 25 84 21  |<<16.A%),(!Xj%.!|
00005040  57 6a 25 3c 3c 31 36 29  0d 85 90 05 cd 0d 85 90  |Wj%<<16)........|
00005050  2d e7 78 6c 25 8c c8 99  26 34 30 31 38 36 2c 28  |-.xl%...&40186,(|
00005060  45 25 3c 3c 31 36 84 41  25 29 2c 28 21 58 6a 25  |E%<<16.A%),(!Xj%|
00005070  84 21 57 6a 25 3c 3c 31  36 29 0d 85 99 05 e1 0d  |.!Wj%<<16)......|
00005080  85 a2 1d dd f2 6d 63 28  6e 25 2c 45 6b 25 29 3a  |.....mc(n%,Ek%):|
00005090  ea 41 25 2c 42 25 3a e7  45 6b 25 8c 0d 85 c6 09  |.A%,B%:.Ek%.....|
000050a0  c8 8e 6e 25 ca 0d 85 cf  4f c9 30 3a c8 99 26 34  |..n%....O.0:..&4|
000050b0  34 41 44 41 2c 56 25 2c  53 62 25 2a 4d 25 2a 38  |4ADA,V%,Sb%*M%*8|
000050c0  3a 42 25 3d 4f 25 2a 48  62 25 3a 41 25 3d 4f 25  |:B%=O%*Hb%:A%=O%|
000050d0  3a d6 78 6a 25 3a c8 99  26 34 34 41 45 42 2c 33  |:.xj%:..&44AEB,3|
000050e0  2c 64 68 25 3a f2 69 63  28 30 29 3a f2 78 3a f2  |,dh%:.ic(0):.x:.|
000050f0  6c 28 33 29 0d 86 32 78  c9 44 64 25 3a c8 99 26  |l(3)..2x.Dd%:..&|
00005100  34 34 41 43 43 2c 44 64  25 2c 7a 64 25 b8 2c 2c  |44ACC,Dd%,zd%.,,|
00005110  45 6b 25 3a e3 65 25 3d  31 b8 45 6b 25 3a c8 99  |Ek%:.e%=1.Ek%:..|
00005120  26 34 34 41 43 37 2c 43  6b 25 2a 38 2c 56 25 2c  |&44AC7,Ck%*8,V%,|
00005130  56 25 2b 43 6b 25 2a 65  25 2a 38 3a ed 3a f2 56  |V%+Ck%*e%*8:.:.V|
00005140  62 28 48 62 25 2a 28 45  6b 25 2b 31 29 2c 4f 25  |b(Hb%*(Ek%+1),O%|
00005150  2c 6a 6c 25 2c a3 29 3a  c8 99 26 34 34 41 45 42  |,jl%,.):..&44AEB|
00005160  2c 33 2c 64 68 25 3a f2  6c 28 33 29 0d 86 7a 0d  |,3,dh%:.l(3)..z.|
00005170  c9 31 3a f2 6b 62 28 33  29 0d 86 83 05 cb 0d 86  |.1:.kb(3).......|
00005180  83 05 cd 0d 86 8c 05 e1  0d 86 95 28 dd f2 69 63  |...........(..ic|
00005190  28 41 25 29 3a 21 67 25  3d 64 68 25 3a c8 99 26  |(A%):!g%=dh%:..&|
000051a0  34 30 30 43 42 2c 2c 67  25 3a e7 41 25 3d 30 8c  |400CB,,g%:.A%=0.|
000051b0  0d 86 c2 0d 67 25 21 32  34 3d 51 62 25 0d 86 d4  |....g%!24=Qb%...|
000051c0  36 cc 3a e7 67 25 21 32  34 3c 28 41 25 29 2a 28  |6.:.g%!24<(A%)*(|
000051d0  4f 62 25 2b 52 62 25 29  2a 2d 31 8c 67 25 21 32  |Ob%+Rb%)*-1.g%!2|
000051e0  34 3d 28 41 25 29 2a 28  4f 62 25 2b 52 62 25 29  |4=(A%)*(Ob%+Rb%)|
000051f0  2a 2d 31 0d 86 dd 52 e7  67 25 21 32 34 2d 28 67  |*-1...R.g%!24-(g|
00005200  25 21 31 36 2d 67 25 21  38 29 3e 28 41 25 2b 31  |%!16-g%!8)>(A%+1|
00005210  29 2a 28 4f 62 25 2b 52  62 25 29 2a 2d 31 8c 67  |)*(Ob%+Rb%)*-1.g|
00005220  25 21 32 34 3d 28 41 25  2b 31 29 2a 28 4f 62 25  |%!24=(A%+1)*(Ob%|
00005230  2b 52 62 25 29 2a 2d 31  2b 28 67 25 21 31 36 2d  |+Rb%)*-1+(g%!16-|
00005240  67 25 21 38 29 0d 86 e6  05 cd 0d 86 ef 1a f2 59  |g%!8)..........Y|
00005250  62 28 67 25 29 3a c8 99  26 34 30 30 43 35 2c 2c  |b(g%):..&400C5,,|
00005260  67 25 3a e1 0d 87 0a 19  dd f2 59 62 28 73 25 29  |g%:.......Yb(s%)|
00005270  3a e7 67 25 21 32 34 3e  3d 51 62 25 8c 0d 87 25  |:.g%!24>=Qb%...%|
00005280  2c e7 ac 61 62 25 8c c8  99 26 34 34 41 44 44 2c  |,..ab%...&44ADD,|
00005290  34 2b 32 5e 39 2c 6b 25  2c 45 67 25 2c b9 2c 2c  |4+2^9,k%,Eg%,.,,|
000052a0  65 68 25 3a 61 62 25 3d  b9 0d 87 2e 2d cc 3a e7  |eh%:ab%=....-.:.|
000052b0  61 62 25 8c c8 99 26 34  34 41 44 44 2c 34 2b 32  |ab%...&44ADD,4+2|
000052c0  5e 39 2c 6b 25 2c 45 67  25 2c a3 2c 2c 65 68 25  |^9,k%,Eg%,.,,eh%|
000052d0  3a 61 62 25 3d a3 0d 87  40 05 cd 0d 87 49 2a e7  |:ab%=...@....I*.|
000052e0  67 25 21 32 34 3c 3d 67  25 21 31 36 2d 67 25 21  |g%!24<=g%!16-g%!|
000052f0  38 2b 28 6a 6c 25 29 2a  28 4f 62 25 2b 52 62 25  |8+(jl%)*(Ob%+Rb%|
00005300  29 2a 2d 31 8c 0d 87 52  2c e7 ac 62 62 25 8c c8  |)*-1...R,..bb%..|
00005310  99 26 34 34 41 44 44 2c  34 2b 32 5e 39 2c 6b 25  |.&44ADD,4+2^9,k%|
00005320  2c 46 67 25 2c b9 2c 2c  65 68 25 3a 62 62 25 3d  |,Fg%,.,,eh%:bb%=|
00005330  b9 0d 87 5b 2d cc 3a e7  62 62 25 8c c8 99 26 34  |...[-.:.bb%...&4|
00005340  34 41 44 44 2c 34 2b 32  5e 39 2c 6b 25 2c 46 67  |4ADD,4+2^9,k%,Fg|
00005350  25 2c a3 2c 2c 65 68 25  3a 62 62 25 3d a3 0d 87  |%,.,,eh%:bb%=...|
00005360  6d 05 cd 0d 87 76 05 e1  0d 87 7f 18 dd f2 5f 62  |m....v........_b|
00005370  28 64 24 29 3a 7a 24 3d  64 24 3a c8 8e 64 24 ca  |(d$):z$=d$:..d$.|
00005380  0d 87 a3 37 c9 22 73 74  32 22 3a 41 25 3d 34 3a  |...7."st2":A%=4:|
00005390  42 25 3d 30 3a 43 25 3d  28 4f 25 2d 31 29 2a 32  |B%=0:C%=(O%-1)*2|
000053a0  30 2b 32 3a 44 25 3d 30  3a 7a 24 3d 22 73 74 32  |0+2:D%=0:z$="st2|
000053b0  22 2b c3 28 4f 25 29 0d  87 b5 1e c9 22 73 74 35  |"+.(O%)....."st5|
000053c0  22 3a 41 25 3d 30 3a 42  25 3d 38 3a 43 25 3d 30  |":A%=0:B%=8:C%=0|
000053d0  3a 44 25 3d 38 0d 87 be  1e c9 22 73 74 36 22 3a  |:D%=8....."st6":|
000053e0  41 25 3d 34 3a 42 25 3d  30 3a 43 25 3d 34 3a 44  |A%=4:B%=0:C%=4:D|
000053f0  25 3d 30 0d 87 c7 20 c9  22 73 74 37 22 3a 41 25  |%=0... ."st7":A%|
00005400  3d 34 3a 42 25 3d 34 34  3a 43 25 3d 34 3a 44 25  |=4:B%=44:C%=4:D%|
00005410  3d 34 34 0d 87 d0 19 7f  3a 41 25 3d 30 3a 42 25  |=44.....:A%=0:B%|
00005420  3d 30 3a 43 25 3d 30 3a  44 25 3d 30 0d 87 d9 05  |=0:C%=0:D%=0....|
00005430  cb 0d 87 d9 5f c8 99 26  34 34 41 45 33 2c 31 2b  |...._..&44AE3,1+|
00005440  32 5e 31 31 2c 55 25 2c  64 24 2c 77 62 25 2b 41  |2^11,U%,d$,wb%+A|
00005450  25 2c 77 62 25 2b 42 25  2c 5f 25 b8 2c 2c 5f 25  |%,wb%+B%,_%.,,_%|
00005460  3a c8 99 26 34 34 41 45  33 2c 31 2b 32 5e 31 31  |:..&44AE3,1+2^11|
00005470  2c 55 25 2c 7a 24 2c 77  62 25 2b 43 25 2c 77 62  |,U%,z$,wb%+C%,wb|
00005480  25 2b 44 25 2c 48 63 25  b8 2c 2c 48 63 25 3a e1  |%+D%,Hc%.,,Hc%:.|
00005490  0d 87 f4 57 dd f2 4b 62  28 7a 6c 25 2c 41 6c 25  |...W..Kb(zl%,Al%|
000054a0  29 3a ea 41 25 2c 42 25  2c 43 25 2c 44 25 2c 42  |):.A%,B%,C%,D%,B|
000054b0  6c 25 2c 43 6c 25 3a 41  25 3d 7a 6c 25 2b 41 6c  |l%,Cl%:A%=zl%+Al|
000054c0  25 2a 4d 25 3a 42 25 3d  3f 28 41 25 2a 38 2b 56  |%*M%:B%=?(A%*8+V|
000054d0  25 29 3a 42 6c 25 3d 28  42 25 80 26 46 29 3a e7  |%):Bl%=(B%.&F):.|
000054e0  42 6c 25 3d 30 8c e1 0d  88 33 65 3f 28 41 25 2a  |Bl%=0....3e?(A%*|
000054f0  38 2b 56 25 29 3d 42 25  2d 31 3a 43 6c 25 3d 3f  |8+V%)=B%-1:Cl%=?|
00005500  28 41 25 2a 38 2b 56 25  2b 42 6c 25 29 3a 3f 28  |(A%*8+V%+Bl%):?(|
00005510  41 25 2a 38 2b 56 25 2b  42 6c 25 29 3d 30 3a 43  |A%*8+V%+Bl%)=0:C|
00005520  25 3d 41 6c 25 3a 44 25  3d 7a 6c 25 3a d6 59 6a  |%=Al%:D%=zl%:.Yj|
00005530  25 3a 7a 61 25 3d b9 3a  f2 77 3a f2 6c 63 28 41  |%:za%=.:.w:.lc(A|
00005540  25 2c 43 6c 25 2c a3 2c  a3 29 3a e1 0d 88 8d 53  |%,Cl%,.,.):....S|
00005550  dd f2 4e 62 28 7a 6c 25  2c 41 6c 25 29 3a ea 41  |..Nb(zl%,Al%):.A|
00005560  25 2c 42 25 2c 43 25 2c  44 25 2c 42 6c 25 3a 41  |%,B%,C%,D%,Bl%:A|
00005570  25 3d 7a 6c 25 2b 41 6c  25 2a 4d 25 3a 42 25 3d  |%=zl%+Al%*M%:B%=|
00005580  3f 28 41 25 2a 38 2b 56  25 29 3a 42 6c 25 3d 28  |?(A%*8+V%):Bl%=(|
00005590  42 25 80 26 46 29 3a e7  42 6c 25 3c 32 8c e1 0d  |B%.&F):.Bl%<2...|
000055a0  88 cc 69 42 25 3d 3f 28  41 25 2a 38 2b 56 25 2b  |..iB%=?(A%*8+V%+|
000055b0  42 6c 25 29 3a 44 25 3d  31 3a c8 95 44 25 3c 3d  |Bl%):D%=1:..D%<=|
000055c0  42 6c 25 3a 43 25 3d 3f  28 41 25 2a 38 2b 56 25  |Bl%:C%=?(A%*8+V%|
000055d0  2b 44 25 29 3a 3f 28 41  25 2a 38 2b 56 25 2b 44  |+D%):?(A%*8+V%+D|
000055e0  25 29 3d 42 25 3a 42 25  3d 43 25 3a 44 25 2b 3d  |%)=B%:B%=C%:D%+=|
000055f0  31 3a ce 3a 43 25 3d 41  6c 25 3a 44 25 3d 7a 6c  |1:.:C%=Al%:D%=zl|
00005600  25 3a d6 59 6a 25 3a e1  0d 89 38 7d dd f2 4c 62  |%:.Yj%:...8}..Lb|
00005610  28 7a 6c 25 2c 41 6c 25  29 3a ea 41 25 2c 42 25  |(zl%,Al%):.A%,B%|
00005620  2c 43 25 2c 44 25 2c 42  6c 25 3a e7 75 25 3c 3d  |,C%,D%,Bl%:.u%<=|
00005630  4f 25 8c f2 62 28 22 53  6f 72 72 79 2c 20 79 6f  |O%..b("Sorry, yo|
00005640  75 20 63 61 6e 27 74 20  64 6f 20 74 68 61 74 20  |u can't do that |
00005650  79 6f 75 20 6d 75 73 74  20 6c 65 61 76 65 20 61  |you must leave a|
00005660  74 20 6c 65 61 73 74 20  6f 6e 65 20 62 65 61 74  |t least one beat|
00005670  20 6f 6e 20 74 68 65 20  73 63 72 65 65 6e 2e 22  | on the screen."|
00005680  2c a3 29 3a e1 0d 89 5c  80 41 25 3d 7a 6c 25 2b  |,.):...\.A%=zl%+|
00005690  41 6c 25 2a 4d 25 3a c8  99 26 34 34 41 43 37 2c  |Al%*M%:..&44AC7,|
000056a0  75 25 2a 38 2d 41 25 2a  38 2d 38 2a 4f 25 2c 41  |u%*8-A%*8-8*O%,A|
000056b0  25 2a 38 2b 56 25 2b 38  2a 4f 25 2c 41 25 2a 38  |%*8+V%+8*O%,A%*8|
000056c0  2b 56 25 3a c8 99 26 34  34 41 44 41 2c 75 25 2a  |+V%:..&44ADA,u%*|
000056d0  38 2b 56 25 2d 4f 25 2a  38 2c 38 2a 4f 25 3a f2  |8+V%-O%*8,8*O%:.|
000056e0  6e 63 28 48 62 25 2d 31  29 3a 7a 61 25 3d b9 3a  |nc(Hb%-1):za%=.:|
000056f0  43 61 25 3d b9 3a f2 77  3a e7 4b 62 25 8c f2 4c  |Ca%=.:.w:.Kb%..L|
00005700  28 6c 6c 25 29 0d 89 a4  05 e1 0d 89 ad 3b dd f2  |(ll%)........;..|
00005710  4d 62 28 7a 6c 25 2c 41  6c 25 29 3a ea 41 25 2c  |Mb(zl%,Al%):.A%,|
00005720  42 25 2c 43 25 2c 44 25  2c 42 6c 25 2c 76 25 3a  |B%,C%,D%,Bl%,v%:|
00005730  41 25 3d 7a 6c 25 2b 41  6c 25 2a 4d 25 3a e7 41  |A%=zl%+Al%*M%:.A|
00005740  25 3e 75 25 8c 0d 89 da  11 76 25 3d 28 41 25 2d  |%>u%.....v%=(A%-|
00005750  75 25 29 81 4f 25 0d 89  ec 0a cc 3a 76 25 3d 31  |u%).O%.....:v%=1|
00005760  0d 89 fe 05 cd 0d 89 fe  56 e7 28 48 62 25 2b 76  |........V.(Hb%+v|
00005770  25 29 2a 4f 25 2f 4d 25  3e 6a 6c 25 8c f2 62 28  |%)*O%/M%>jl%..b(|
00005780  22 4e 6f 20 72 6f 6f 6d  20 74 6f 20 61 64 64 20  |"No room to add |
00005790  61 6e 79 20 62 65 61 74  73 2c 20 61 73 6b 20 79  |any beats, ask y|
000057a0  6f 75 72 20 74 65 61 63  68 65 72 20 66 6f 72 20  |our teacher for |
000057b0  6d 6f 72 65 2e 22 2c a3  29 3a e1 0d 8a 07 0c e7  |more.",.):......|
000057c0  41 25 3c 3d 75 25 8c 0d  8a 10 41 c8 99 26 34 34  |A%<=u%....A..&44|
000057d0  41 43 37 2c 75 25 2a 38  2d 41 25 2a 38 2c 41 25  |AC7,u%*8-A%*8,A%|
000057e0  2a 38 2b 56 25 2c 41 25  2a 38 2b 56 25 2b 38 2a  |*8+V%,A%*8+V%+8*|
000057f0  4f 25 3a c8 99 26 34 34  41 44 41 2c 41 25 2a 38  |O%:..&44ADA,A%*8|
00005800  2b 56 25 2c 38 2a 4f 25  0d 8a 2b 05 cd 0d 8a 2b  |+V%,8*O%..+....+|
00005810  2b f2 6e 63 28 48 62 25  2b 76 25 29 3a 7a 61 25  |+.nc(Hb%+v%):za%|
00005820  3d b9 3a 43 61 25 3d b9  3a f2 77 3a e7 4b 62 25  |=.:Ca%=.:.w:.Kb%|
00005830  8c f2 4c 28 6c 6c 25 29  0d 8a 61 05 e1 0d 8a 6a  |..L(ll%)..a....j|
00005840  39 dd f2 6f 63 28 67 24  29 3a f2 69 3a f2 78 3a  |9..oc(g$):.i:.x:|
00005850  e7 a7 67 24 2c 22 2e 22  29 3d 30 8c 67 24 3d 22  |..g$,".")=0.g$="|
00005860  3c 4d 42 42 65 61 74 46  69 6c 65 73 24 44 69 72  |<MBBeatFiles$Dir|
00005870  3e 2e 22 2b 67 24 0d 8a  97 15 61 25 3d a4 6c 28  |>."+g$....a%=.l(|
00005880  67 24 29 3a e7 61 25 3d  30 8c e1 0d 8a a9 2a 62  |g$):.a%=0.....*b|
00005890  25 3d a4 68 28 62 24 2c  38 2c 61 25 29 3a e7 62  |%=.h(b$,8,a%):.b|
000058a0  25 3c 3e 30 8c f2 62 28  a4 63 28 62 25 2b 34 29  |%<>0..b(.c(b%+4)|
000058b0  2c a3 29 3a e1 0d 8a bb  48 e7 62 24 3c 3e 22 4d  |,.):....H.b$<>"M|
000058c0  42 52 68 79 74 68 6d 22  80 62 24 3c 3e 22 4d 42  |BRhythm".b$<>"MB|
000058d0  42 65 61 74 20 20 22 8c  f2 62 28 22 46 69 6c 65  |Beat  "..b("File|
000058e0  20 66 6f 72 6d 61 74 20  6e 6f 74 20 75 6e 64 65  | format not unde|
000058f0  72 73 74 6f 6f 64 2e 22  2c a3 29 3a e1 0d 8a c4  |rstood.",.):....|
00005900  28 62 25 3d a4 61 28 63  25 2c 61 25 29 3a e7 62  |(b%=.a(c%,a%):.b|
00005910  25 3c 3e 30 8c f2 62 28  a4 63 28 62 25 2b 34 29  |%<>0..b(.c(b%+4)|
00005920  2c a3 29 3a e1 0d 8a d6  69 e7 63 25 3e 31 8c f2  |,.):....i.c%>1..|
00005930  62 28 22 54 68 69 73 20  66 69 6c 65 20 77 61 73  |b("This file was|
00005940  20 6d 61 64 65 20 62 79  20 61 20 6e 65 77 65 72  | made by a newer|
00005950  20 76 65 72 73 69 6f 6e  20 6f 66 20 4d 75 73 69  | version of Musi|
00005960  63 42 6f 78 2e 20 59 6f  75 20 77 69 6c 6c 20 6e  |cBox. You will n|
00005970  65 65 64 20 61 6e 20 75  70 67 72 61 64 65 20 74  |eed an upgrade t|
00005980  6f 20 6c 6f 61 64 20 69  74 2e 22 2c a3 29 0d 8a  |o load it.",.)..|
00005990  df 2a 62 25 3d a4 68 28  62 24 2c 34 2c 61 25 29  |.*b%=.h(b$,4,a%)|
000059a0  3a c8 95 62 25 3d 30 80  62 24 3c 3e 22 45 6e 64  |:..b%=0.b$<>"End|
000059b0  58 22 3a c8 8e 62 24 ca  0d 8a fa 15 c9 22 52 74  |X":..b$......"Rt|
000059c0  68 6d 22 3a 62 25 3d a4  55 28 61 25 29 0d 8b 0c  |hm":b%=.U(a%)...|
000059d0  17 c9 22 49 6e 73 74 22  3a 62 25 3d a4 76 28 33  |.."Inst":b%=.v(3|
000059e0  2c 61 25 29 0d 8b 15 17  c9 22 54 65 6d 70 22 3a  |,a%)....."Temp":|
000059f0  62 25 3d a4 77 28 33 2c  61 25 29 0d 8b 1e 17 c9  |b%=.w(3,a%).....|
00005a00  22 56 6f 6c 75 22 3a 62  25 3d a4 78 28 33 2c 61  |"Volu":b%=.x(3,a|
00005a10  25 29 0d 8b 27 15 c9 22  4f 63 74 61 22 3a 62 25  |%)..'.."Octa":b%|
00005a20  3d a4 79 28 61 25 29 0d  8b 30 15 c9 22 4b 65 79  |=.y(a%)..0.."Key|
00005a30  20 22 3a 62 25 3d a4 7a  28 61 25 29 0d 8b 39 15  | ":b%=.z(a%)..9.|
00005a40  c9 22 50 65 6e 74 22 3a  62 25 3d a4 42 28 61 25  |."Pent":b%=.B(a%|
00005a50  29 0d 8b 42 0f 7f 3a 62  25 3d a4 6a 28 61 25 29  |)..B..:b%=.j(a%)|
00005a60  0d 8b 4b 05 cb 0d 8b 4b  18 e7 62 25 3d 30 8c 62  |..K....K..b%=0.b|
00005a70  25 3d a4 68 28 62 24 2c  34 2c 61 25 29 0d 8b 54  |%=.h(b$,4,a%)..T|
00005a80  1b ce 3a e7 62 25 3c 3e  30 8c f2 62 28 a4 63 28  |..:.b%<>0..b(.c(|
00005a90  62 25 2b 34 29 2c a3 29  0d 8b 6f 23 62 25 3d a4  |b%+4),.)..o#b%=.|
00005aa0  69 28 61 25 29 3a f2 70  3a f2 72 3a c8 99 26 34  |i(a%):.p:.r:..&4|
00005ab0  34 41 45 42 2c 33 2c 6b  25 3a e1 0d 8b 9c 38 dd  |4AEB,3,k%:....8.|
00005ac0  a4 55 28 61 25 29 3a ea  62 25 2c 76 25 2c 41 25  |.U(a%):.b%,v%,A%|
00005ad0  2c 42 25 3a 62 25 3d a4  61 28 76 25 2c 61 25 29  |,B%:b%=.a(v%,a%)|
00005ae0  3a e7 62 25 3d 30 8c 62  25 3d a4 61 28 41 25 2c  |:.b%=0.b%=.a(A%,|
00005af0  61 25 29 0d 8b c9 16 e7  62 25 3d 30 8c 62 25 3d  |a%).....b%=0.b%=|
00005b00  a4 61 28 42 25 2c 61 25  29 0d 8b d2 0e e7 62 25  |.a(B%,a%).....b%|
00005b10  3c 3e 30 8c 3d 62 25 0d  8b db 32 c8 99 26 34 34  |<>0.=b%...2..&44|
00005b20  41 44 41 2c 56 25 2c 53  62 25 2a 4d 25 2a 38 3a  |ADA,V%,Sb%*M%*8:|
00005b30  62 25 3d a4 6b 28 56 25  2c 76 25 2d 31 36 2c 61  |b%=.k(V%,v%-16,a|
00005b40  25 29 3a e7 ac 44 6c 25  8c 0d 8b ff 23 45 6c 25  |%):..Dl%....#El%|
00005b50  3d 41 25 2a 42 25 2d 31  3a 41 25 3d 4f 25 3a 42  |=A%*B%-1:A%=O%:B|
00005b60  25 3d 28 45 6c 25 81 41  25 29 2b 31 0d 8c 23 05  |%=(El%.A%)+1..#.|
00005b70  cd 0d 8c 23 12 e7 41 25  2a 42 25 3e 6a 6c 25 2a  |...#..A%*B%>jl%*|
00005b80  4d 25 8c 0d 8c 2c 1e e7  ac 42 6b 25 8c 6a 6c 25  |M%...,...Bk%.jl%|
00005b90  3d 28 28 41 25 2a 42 25  2d 31 29 81 4d 25 29 2b  |=((A%*B%-1).M%)+|
00005ba0  31 0d 8c 35 05 cd 0d 8c  3e 2e f2 56 62 28 42 25  |1..5....>..Vb(B%|
00005bb0  2c 41 25 2c 6a 6c 25 2c  a3 29 3a c8 99 26 34 34  |,A%,jl%,.):..&44|
00005bc0  41 45 42 2c 33 2c 64 68  25 3a f2 69 63 28 30 29  |AEB,3,dh%:.ic(0)|
00005bd0  3a 3d 62 25 0d 8c 74 82  dd f2 56 62 28 46 6c 25  |:=b%..t...Vb(Fl%|
00005be0  2c 47 6c 25 2c 48 6c 25  2c 49 6c 25 29 3a ea 63  |,Gl%,Hl%,Il%):.c|
00005bf0  25 2c 4a 6c 25 2c 41 25  2c 42 25 3a 4a 6c 25 3d  |%,Jl%,A%,B%:Jl%=|
00005c00  4f 25 3a e7 48 6c 25 3e  53 62 25 8c 48 6c 25 3d  |O%:.Hl%>Sb%.Hl%=|
00005c10  53 62 25 3a f2 62 28 22  4e 75 6d 62 65 72 20 6f  |Sb%:.b("Number o|
00005c20  66 20 72 6f 77 73 20 72  65 64 75 63 65 64 20 74  |f rows reduced t|
00005c30  6f 20 74 68 65 20 6d 61  78 69 6d 75 6d 20 73 65  |o the maximum se|
00005c40  74 74 69 6e 67 20 6f 66  20 22 2b c3 28 53 62 25  |tting of "+.(Sb%|
00005c50  29 2b 22 2e 22 29 0d 8c  8f 23 63 25 3d b9 3a e7  |)+".")...#c%=.:.|
00005c60  48 6c 25 3c 28 28 47 6c  25 2a 46 6c 25 2d 31 29  |Hl%<((Gl%*Fl%-1)|
00005c70  2f 4d 25 29 80 49 6c 25  8c 0d 8c aa c2 21 67 25  |/M%).Il%.....!g%|
00005c80  3d 34 3a 24 28 67 25 2b  34 29 3d 22 52 65 64 75  |=4:$(g%+4)="Redu|
00005c90  63 69 6e 67 20 74 68 65  20 6d 61 78 69 6d 75 6d  |cing the maximum|
00005ca0  20 6e 75 6d 62 65 72 20  6f 66 20 72 6f 77 73 20  | number of rows |
00005cb0  66 6f 72 20 74 68 65 20  42 65 61 74 20 42 6f 78  |for the Beat Box|
00005cc0  20 77 69 6c 6c 20 74 72  75 6e 63 61 74 65 20 74  | will truncate t|
00005cd0  68 65 20 70 72 65 73 65  6e 74 20 74 75 6e 65 2e  |he present tune.|
00005ce0  20 53 68 61 6c 6c 20 49  20 63 6f 6e 74 69 6e 75  | Shall I continu|
00005cf0  65 20 61 6e 64 20 72 65  64 75 63 65 20 69 74 3f  |e and reduce it?|
00005d00  22 2b bd 30 3a c8 99 26  34 30 30 44 46 2c 67 25  |"+.0:..&400DF,g%|
00005d10  2c 25 31 31 30 31 31 2c  6f 24 b8 2c 63 25 3a 63  |,%11011,o$.,c%:c|
00005d20  25 3d 28 63 25 3d 31 29  3a e7 63 25 8c 46 6c 25  |%=(c%=1):.c%.Fl%|
00005d30  3d 4d 25 2a 48 6c 25 2f  47 6c 25 0d 8c d7 05 cd  |=M%*Hl%/Gl%.....|
00005d40  0d 8c e0 08 e7 63 25 8c  0d 8c e9 14 21 41 6a 25  |.....c%.....!Aj%|
00005d50  3d 48 6c 25 3a 6a 6c 25  3d 48 6c 25 0d 8d 04 05  |=Hl%:jl%=Hl%....|
00005d60  cd 0d 8d 04 a1 4f 25 3d  47 6c 25 3a 48 62 25 3d  |.....O%=Gl%:Hb%=|
00005d70  46 6c 25 3a 75 25 3d 47  6c 25 2a 46 6c 25 3a 21  |Fl%:u%=Gl%*Fl%:!|
00005d80  4d 6a 25 3d 47 6c 25 3a  21 4c 6a 25 3d 28 75 25  |Mj%=Gl%:!Lj%=(u%|
00005d90  2d 31 29 83 4d 25 2b 31  3a 21 4b 6a 25 3d 28 75  |-1).M%+1:!Kj%=(u|
00005da0  25 2d 31 29 81 4d 25 3a  c8 99 26 34 34 41 44 41  |%-1).M%:..&44ADA|
00005db0  2c 56 25 2b 75 25 2a 38  2c 53 62 25 2a 4d 25 2a  |,V%+u%*8,Sb%*M%*|
00005dc0  38 2d 75 25 2a 38 3a 42  25 3d 47 6c 25 2a 46 6c  |8-u%*8:B%=Gl%*Fl|
00005dd0  25 3a 41 25 3d 47 6c 25  3a d6 78 6a 25 3a c8 99  |%:A%=Gl%:.xj%:..|
00005de0  26 34 34 41 45 42 2c 33  2c 64 68 25 3a e7 21 4e  |&44AEB,3,dh%:.!N|
00005df0  6a 25 3d 31 30 80 77 25  3d 33 8c f2 5f 62 28 64  |j%=10.w%=3.._b(d|
00005e00  24 29 0d 8d 8b 1a e7 77  25 3d 33 80 28 28 4a 6c  |$).....w%=3.((Jl|
00005e10  25 3c 3e 4f 25 29 84 49  6c 25 29 8c 0d 8d 94 0b  |%<>O%).Il%).....|
00005e20  e7 47 6c 25 3e 34 8c 0d  8d 9d 0e f2 79 28 4f 25  |.Gl%>4......y(O%|
00005e30  2c 68 62 25 29 0d 8d af  10 cc 3a f2 79 28 4f 25  |,hb%).....:.y(O%|
00005e40  2c 67 62 25 29 0d 8d c1  05 cd 0d 8d c1 05 cd 0d  |,gb%)...........|
00005e50  8d ca 09 f2 57 62 3a e1  0d 8d dc 5e dd f2 70 63  |....Wb:....^..pc|
00005e60  28 53 25 2c 4b 6c 25 29  3a ea 65 25 2c 65 2c 63  |(S%,Kl%):.e%,e,c|
00005e70  2c 64 3a 4c 6c 25 3d 4b  6c 25 3a 21 49 6a 25 3d  |,d:Ll%=Kl%:!Ij%=|
00005e80  4b 6c 25 3a 21 79 6a 25  3d 53 25 3a 4f 62 25 3d  |Kl%:!yj%=S%:Ob%=|
00005e90  53 25 3a e3 65 25 3d 31  b8 38 3a 64 3d 4d 62 25  |S%:.e%=1.8:d=Mb%|
00005ea0  3a 63 3d 64 2a 65 25 2d  4d 62 25 3a e7 63 3e 53  |:c=d*e%-Mb%:.c>S|
00005eb0  25 2d 4d 62 25 8c 0d 8e  3f 17 63 3d 53 25 2d 4d  |%-Mb%...?.c=S%-M|
00005ec0  62 25 3a 64 3d 63 2f 28  65 25 2d 31 29 0d 8e 5a  |b%:d=c/(e%-1)..Z|
00005ed0  05 cd 0d 8e 5a 3b e3 65  3d 30 b8 37 3a 21 28 43  |....Z;.e=0.7:!(C|
00005ee0  6a 25 2b 65 25 2a 33 32  2d 33 32 2b 65 2a 34 29  |j%+e%*32-32+e*4)|
00005ef0  3d 63 2d 64 2a 28 65 29  3a ed 3a ed 3a c8 99 26  |=c-d*(e):.:.:..&|
00005f00  34 34 41 45 42 2c 33 2c  64 68 25 3a e1 0d 8e 90  |44AEB,3,dh%:....|
00005f10  7c dd f2 6e 63 28 46 6c  25 29 3a ea 41 25 2c 42  ||..nc(Fl%):.A%,B|
00005f20  25 3a 48 62 25 3d 46 6c  25 3a 75 25 3d 4f 25 2a  |%:Hb%=Fl%:u%=O%*|
00005f30  48 62 25 3a 21 4c 6a 25  3d 28 75 25 2d 31 29 83  |Hb%:!Lj%=(u%-1).|
00005f40  4d 25 2b 31 3a 21 4b 6a  25 3d 28 75 25 2d 31 29  |M%+1:!Kj%=(u%-1)|
00005f50  81 4d 25 3a 42 25 3d 75  25 3a 41 25 3d 4f 25 3a  |.M%:B%=u%:A%=O%:|
00005f60  d6 78 6a 25 3a c8 99 26  34 34 41 45 42 2c 33 2c  |.xj%:..&44AEB,3,|
00005f70  64 68 25 3a e7 21 4e 6a  25 3d 31 30 80 77 25 3d  |dh%:.!Nj%=10.w%=|
00005f80  33 8c f2 5f 62 28 64 24  29 0d 8f 0e 05 e1 0d 8f  |3.._b(d$).......|
00005f90  17 41 dd f2 4f 62 28 7a  6c 25 2c 41 6c 25 2c 4d  |.A..Ob(zl%,Al%,M|
00005fa0  6c 25 29 3a ea 41 25 2c  42 25 2c 43 25 2c 44 25  |l%):.A%,B%,C%,D%|
00005fb0  2c 42 6c 25 2c 43 6c 25  3a 41 25 3d 7a 6c 25 2b  |,Bl%,Cl%:A%=zl%+|
00005fc0  41 6c 25 2a 4d 25 3a e7  4d 6c 25 3d 31 34 8c 0d  |Al%*M%:.Ml%=14..|
00005fd0  8f 44 26 42 25 3d 3f 28  41 25 2a 38 2b 56 25 29  |.D&B%=?(A%*8+V%)|
00005fe0  3a 42 6c 25 3d 28 42 25  80 26 46 29 3a e7 42 6c  |:Bl%=(B%.&F):.Bl|
00005ff0  25 3d 30 8c e1 0d 8f 5f  89 3f 28 41 25 2a 38 2b  |%=0...._.?(A%*8+|
00006000  56 25 29 3d 42 25 2d 31  3a 43 6c 25 3d 3f 28 41  |V%)=B%-1:Cl%=?(A|
00006010  25 2a 38 2b 56 25 2b 42  6c 25 29 3a 3f 28 41 25  |%*8+V%+Bl%):?(A%|
00006020  2a 38 2b 56 25 2b 42 6c  25 29 3d 30 3a 43 25 3d  |*8+V%+Bl%)=0:C%=|
00006030  41 6c 25 3a 44 25 3d 7a  6c 25 3a d6 59 6a 25 3a  |Al%:D%=zl%:.Yj%:|
00006040  f2 6c 63 28 41 25 2c 43  6c 25 2c a3 2c a3 29 3a  |.lc(A%,Cl%,.,.):|
00006050  21 64 69 25 3d 43 6c 25  3a f2 57 61 28 22 73 74  |!di%=Cl%:.Wa("st|
00006060  37 5f 63 6f 70 79 32 22  29 3a f2 77 3a f2 75 28  |7_copy2"):.w:.u(|
00006070  2d 31 2c 36 29 3a 7a 61  25 3d b9 3a f2 77 0d 8f  |-1,6):za%=.:.w..|
00006080  dd 1c cc 3a 42 25 3d 41  25 3a 41 25 3d 21 64 69  |...:B%=A%:A%=!di|
00006090  25 3a e7 42 25 3e 3d 75  25 8c 0d 8f f8 09 e7 55  |%:.B%>=u%......U|
000060a0  62 25 8c 0d 90 01 0a 42  25 2d 3d 75 25 0d 90 13  |b%.....B%-=u%...|
000060b0  07 cc 3a e1 0d 90 1c 05  cd 0d 90 25 05 cd 0d 90  |..:........%....|
000060c0  2e 0e e7 ba 28 4a 6a 25  29 3d 30 8c 0d 90 37 36  |....(Jj%)=0...76|
000060d0  f2 62 28 22 4e 6f 74 20  61 6c 6c 6f 77 65 64 20  |.b("Not allowed |
000060e0  74 68 61 74 20 6d 61 6e  79 20 69 6e 73 74 72 75  |that many instru|
000060f0  6d 65 6e 74 73 20 61 74  20 6f 6e 63 65 2e 22 2c  |ments at once.",|
00006100  a3 29 0d 90 49 29 cc 3a  f2 6c 63 28 42 25 2c 41  |.)..I).:.lc(B%,A|
00006110  25 2c b9 2c a3 29 3a f2  77 3a f2 75 28 2d 31 2c  |%,.,.):.w:.u(-1,|
00006120  35 29 3a 7a 61 25 3d b9  3a f2 77 0d 90 7f 05 cd  |5):za%=.:.w.....|
00006130  0d 90 7f 05 cd 0d 90 88  05 e1 0d 90 91 23 dd f2  |.............#..|
00006140  55 62 3a ea 41 25 2c 42  25 2c 43 25 2c 44 25 3a  |Ub:.A%,B%,C%,D%:|
00006150  e7 ac 4b 62 25 84 49 62  25 3e 37 8c e1 0d 90 b5  |..Kb%.Ib%>7.....|
00006160  18 41 25 3d 49 62 25 3a  43 25 3d a4 6d 3a e7 6c  |.A%=Ib%:C%=.m:.l|
00006170  6c 25 3d 31 8c 0d 90 d0  18 f2 4b 28 41 25 2c 28  |l%=1......K(A%,(|
00006180  43 25 81 51 25 29 2b 6e  6c 25 2c b9 29 0d 90 e2  |C%.Q%)+nl%,.)...|
00006190  1f cc 3a f2 4b 28 41 25  2c 75 25 2d 28 43 25 81  |..:.K(A%,u%-(C%.|
000061a0  51 25 29 2d 6e 6c 25 2d  31 2c b9 29 0d 90 f4 05  |Q%)-nl%-1,.)....|
000061b0  cd 0d 90 f4 2c c8 99 26  34 34 41 44 44 2c 33 2b  |....,..&44ADD,3+|
000061c0  32 5e 39 2c 6b 25 2c 47  67 25 2c 31 2c 2c 65 68  |2^9,k%,Gg%,1,,eh|
000061d0  25 3a f2 65 28 6b 25 2c  2d 32 29 3a e1 0d 91 0f  |%:.e(k%,-2):....|
000061e0  2d dd f2 77 3a c8 99 26  34 34 41 45 33 2c 36 2c  |-..w:..&44AE3,6,|
000061f0  48 63 25 2c 64 68 25 3a  c8 99 26 34 34 41 45 33  |Hc%,dh%:..&44AE3|
00006200  2c 36 2c 5f 25 2c 6b 25  3a e1 0d 91 3c 15 dd a4  |,6,_%,k%:...<...|
00006210  73 28 64 25 29 3a ea 79  25 3a c8 8e 64 25 ca 0d  |s(d%):.y%:..d%..|
00006220  91 60 0f c9 42 67 25 3a  79 25 3d 47 6b 25 0d 91  |.`..Bg%:y%=Gk%..|
00006230  72 11 c9 42 67 25 2b 31  3a 79 25 3d 48 6b 25 0d  |r..Bg%+1:y%=Hk%.|
00006240  91 7b 11 c9 42 67 25 2b  32 3a 79 25 3d 49 6b 25  |.{..Bg%+2:y%=Ik%|
00006250  0d 91 84 0d c9 43 67 25  3a 79 25 3d b9 0d 91 8d  |.....Cg%:y%=....|
00006260  0f c9 44 67 25 3a 79 25  3d 4b 6b 25 0d 91 96 0f  |..Dg%:y%=Kk%....|
00006270  c9 53 67 25 3a 79 25 3d  4c 6b 25 0d 91 9f 0f c9  |.Sg%:y%=Lk%.....|
00006280  52 67 25 3a 79 25 3d 4d  6b 25 0d 91 a8 0f c9 57  |Rg%:y%=Mk%.....W|
00006290  67 25 3a 79 25 3d 4e 6b  25 0d 91 b1 05 cb 0d 91  |g%:y%=Nk%.......|
000062a0  b1 0b e7 ac 79 25 8c f2  49 0d 91 ba 07 3d 79 25  |....y%..I....=y%|
000062b0  0d 91 d5 53 dd f2 66 63  3a ea 41 25 3a 43 6b 25  |...S..fc:.A%:Ck%|
000062c0  3d 75 25 3a e7 43 6b 25  3c 31 84 43 6b 25 3e 6a  |=u%:.Ck%<1.Ck%>j|
000062d0  6c 25 2a 4d 25 2f 32 8c  f2 63 28 22 4e 6f 20 72  |l%*M%/2..c("No r|
000062e0  6f 6f 6d 20 74 6f 20 63  6f 70 79 20 74 68 65 20  |oom to copy the |
000062f0  70 72 65 73 65 6e 74 20  72 68 79 74 68 6d 2e 22  |present rhythm."|
00006300  29 3a e1 0d 91 f0 35 44  6b 25 3d 28 6a 6c 25 2a  |):....5Dk%=(jl%*|
00006310  4d 25 2f 43 6b 25 29 2d  31 3a c8 99 26 34 34 41  |M%/Ck%)-1:..&44A|
00006320  43 42 2c 44 64 25 2c 7a  64 25 2c 31 3a f2 6e 28  |CB,Dd%,zd%,1:.n(|
00006330  44 64 25 2c 33 29 3a e1  0d 92 14 27 dd f2 54 62  |Dd%,3):....'..Tb|
00006340  3a ea 41 25 2c 42 25 2c  43 25 3a f5 3a c8 97 41  |:.A%,B%,C%:.:..A|
00006350  25 2c 42 25 2c 43 25 3a  fd 43 25 3d 30 3a e1 0d  |%,B%,C%:.C%=0:..|
00006360  92 53 18 dd f2 63 63 28  41 25 29 3a 4a 62 25 3d  |.S...cc(A%):Jb%=|
00006370  41 25 3a e7 41 25 8c 0d  92 77 0a 21 64 6b 25 3d  |A%:.A%...w.!dk%=|
00006380  32 0d 92 89 0c cc 3a 21  64 6b 25 3d 31 0d 92 9b  |2.....:!dk%=1...|
00006390  05 cd 0d 92 9b 05 e1 0d  92 a4 90 dd f2 71 61 3a  |.............qa:|
000063a0  ea 4e 6c 25 3a de 62 25  28 33 2c 38 29 3a c8 99  |.Nl%:.b%(3,8):..|
000063b0  26 34 30 31 34 30 2c 30  2c 32 30 38 2c 34 38 3a  |&40140,0,208,48:|
000063c0  c8 99 26 34 30 31 34 30  2c 38 3a e3 4e 6c 25 3d  |..&40140,8:.Nl%=|
000063d0  30 b8 37 3a e3 4f 6c 25  3d 30 b8 33 3a f2 4a 28  |0.7:.Ol%=0.3:.J(|
000063e0  4f 6c 25 2c 4e 6c 25 2b  31 2c 4e 6c 25 29 3a ed  |Ol%,Nl%+1,Nl%):.|
000063f0  3a ed 3a e3 4f 6c 25 3d  30 b8 33 3a f2 4a 28 4f  |:.:.Ol%=0.3:.J(O|
00006400  6c 25 2c 38 2c 34 29 3a  ed 3a c8 99 26 36 30 31  |l%,8,4):.:..&601|
00006410  38 41 2c 38 2c 22 53 74  72 69 6e 67 4c 69 62 2d  |8A,8,"StringLib-|
00006420  48 61 72 64 22 3a e1 0d  93 34 56 dd f2 4a 28 6a  |Hard":...4V..J(j|
00006430  25 2c 71 25 2c 78 25 29  3a ea 43 6c 25 2c 65 25  |%,q%,x%):.Cl%,e%|
00006440  3a 43 6c 25 3d 62 25 28  6a 25 2c 71 25 2d 31 29  |:Cl%=b%(j%,q%-1)|
00006450  3a 62 25 28 6a 25 2c 71  25 2d 31 29 3d 78 25 3a  |:b%(j%,q%-1)=x%:|
00006460  e3 65 25 3d 30 b8 37 3a  e7 62 25 28 6a 25 2c 65  |.e%=0.7:.b%(j%,e|
00006470  25 29 3d 43 6c 25 8c 43  6c 25 3d 2d 31 0d 93 7c  |%)=Cl%.Cl%=-1..||
00006480  36 ed 3a e7 43 6c 25 3c  3e 2d 31 8c 63 25 28 43  |6.:.Cl%<>-1.c%(C|
00006490  6c 25 29 3d 28 28 63 25  28 43 6c 25 29 84 32 5e  |l%)=((c%(Cl%).2^|
000064a0  28 6a 25 2b 32 37 29 29  82 32 5e 28 6a 25 2b 32  |(j%+27)).2^(j%+2|
000064b0  37 29 29 0d 93 8e 2d 63  25 28 78 25 29 3d 63 25  |7))...-c%(x%)=c%|
000064c0  28 78 25 29 84 32 5e 28  6a 25 2b 32 37 29 3a e7  |(x%).2^(j%+27):.|
000064d0  77 25 3d 6a 25 8c f2 71  63 28 71 25 2c 6a 25 29  |w%=j%..qc(q%,j%)|
000064e0  0d 93 a0 05 e1 0d 93 a9  2e dd f2 55 28 6a 25 29  |...........U(j%)|
000064f0  3a ea 65 25 3a 77 25 3d  6a 25 3a e3 65 25 3d 30  |:.e%:w%=j%:.e%=0|
00006500  b8 37 3a f2 71 63 28 65  25 2b 31 2c 6a 25 29 3a  |.7:.qc(e%+1,j%):|
00006510  ed 3a e1 0d 93 f1 1e dd  f2 71 63 28 71 25 2c 6a  |.:.......qc(q%,j|
00006520  25 29 3a ea 41 25 2c 78  25 3a e7 71 25 3d 38 8c  |%):.A%,x%:.q%=8.|
00006530  e1 0d 94 15 22 78 25 3d  62 25 28 6a 25 2c 71 25  |...."x%=b%(j%,q%|
00006540  2d 31 29 3a e7 62 24 28  78 25 29 3d 22 52 65 73  |-1):.b$(x%)="Res|
00006550  74 22 8c 0d 94 27 11 c8  99 26 34 30 31 38 35 2c  |t"...'...&40185,|
00006560  71 25 2c 30 0d 94 39 27  cc 3a c8 99 26 36 30 31  |q%,0..9'.:..&601|
00006570  38 41 2c 71 25 2c 62 24  28 78 25 29 b8 3b 50 25  |8A,q%,b$(x%).;P%|
00006580  3a e7 28 50 25 80 31 29  3d 31 8c 0d 94 4b 11 f2  |:.(P%.1)=1...K..|
00006590  72 63 28 78 25 2c 71 25  2c 6a 25 29 0d 94 5d 05  |rc(x%,q%,j%)..].|
000065a0  cd 0d 94 5d 05 cd 0d 94  66 38 c8 99 26 34 30 31  |...]....f8..&401|
000065b0  38 35 2c 71 25 2c 30 b8  2c 41 25 3a c8 99 26 34  |85,q%,0.,A%:..&4|
000065c0  30 31 38 35 2c 71 25 2c  41 25 3a 3f 28 6d 6a 25  |0185,q%,A%:?(mj%|
000065d0  2b 71 25 29 3d 41 25 3a  e7 71 25 3c 38 8c 0d 94  |+q%)=A%:.q%<8...|
000065e0  8a 4a 24 28 6b 63 25 2b  32 36 2a 28 71 25 2d 31  |.J$(kc%+26*(q%-1|
000065f0  29 29 3d 22 53 22 2b 61  24 28 78 25 29 2b 22 2c  |))="S"+a$(x%)+",|
00006600  50 22 2b 61 24 28 78 25  29 3a 24 28 71 69 25 2b  |P"+a$(x%):$(qi%+|
00006610  28 71 25 2d 31 29 2a 31  36 29 3d 22 53 22 2b 61  |(q%-1)*16)="S"+a|
00006620  24 28 78 25 29 2b bd 30  0d 94 a5 05 cd 0d 94 a5  |$(x%)+.0........|
00006630  05 e1 0d 94 ae 40 dd a4  4b 28 6a 25 2c 61 25 29  |.....@..K(j%,a%)|
00006640  3a ea 65 25 2c 62 24 2c  62 25 3a 62 25 3d a4 66  |:.e%,b$,b%:b%=.f|
00006650  28 22 49 6e 73 74 22 2c  61 25 29 3a e7 62 25 3d  |("Inst",a%):.b%=|
00006660  30 8c 62 25 3d a4 62 28  32 30 2a 38 2b 38 2c 61  |0.b%=.b(20*8+8,a|
00006670  25 29 0d 94 db 37 e3 65  25 3d 30 b8 37 3a e7 62  |%)...7.e%=0.7:.b|
00006680  25 3d 30 8c 62 25 3d a4  66 28 c0 62 24 28 62 25  |%=0.b%=.f(.b$(b%|
00006690  28 6a 25 2c 65 25 29 29  2b c4 32 30 2c 22 20 22  |(j%,e%))+.20," "|
000066a0  29 2c 32 30 29 2c 61 25  29 0d 94 ed 09 ed 3a 3d  |),20),a%).....:=|
000066b0  62 25 0d 95 11 32 dd a4  76 28 6a 25 2c 61 25 29  |b%...2..v(j%,a%)|
000066c0  3a ea 65 25 2c 78 25 2c  62 24 2c 62 25 2c 76 25  |:.e%,x%,b$,b%,v%|
000066d0  2c 78 24 2c 4e 25 3a e7  ac 50 6c 25 8c 3d a4 6a  |,x$,N%:..Pl%.=.j|
000066e0  28 61 25 29 0d 95 23 34  78 24 3d 22 22 3a 62 25  |(a%)..#4x$="":b%|
000066f0  3d a4 61 28 76 25 2c 61  25 29 3a e3 65 25 3d 30  |=.a(v%,a%):.e%=0|
00006700  b8 37 3a e7 62 25 3d 30  8c 62 25 3d a4 6b 28 67  |.7:.b%=0.b%=.k(g|
00006710  25 2c 32 30 2c 61 25 29  0d 95 47 0a e7 62 25 3d  |%,20,a%)..G..b%=|
00006720  30 8c 0d 95 50 4b 67 25  3f 32 30 3d 30 3a 62 24  |0...PKg%?20=0:b$|
00006730  3d a4 63 28 67 25 29 3a  62 24 3d c0 62 24 2c a7  |=.c(g%):b$=.b$,.|
00006740  62 24 2c 22 20 22 29 2d  31 29 3a 4e 25 3d 2d 31  |b$," ")-1):N%=-1|
00006750  3a e3 78 25 3d 30 b8 65  61 25 2d 31 3a e7 62 24  |:.x%=0.ea%-1:.b$|
00006760  28 78 25 29 3d 62 24 8c  4e 25 3d 78 25 0d 95 86  |(x%)=b$.N%=x%...|
00006770  17 ed 3a e7 4e 25 3d 2d  31 8c 78 24 3d 62 24 3a  |..:.N%=-1.x$=b$:|
00006780  4e 25 3d 30 0d 95 98 24  62 25 28 6a 25 2c 65 25  |N%=0...$b%(j%,e%|
00006790  29 3d 4e 25 3a e7 77 25  3d 6a 25 8c f2 71 63 28  |)=N%:.w%=j%..qc(|
000067a0  65 25 2b 31 2c 6a 25 29  0d 95 aa 05 cd 0d 95 b3  |e%+1,j%)........|
000067b0  7f ed 3a e7 78 24 3c 3e  22 22 80 70 63 25 3d a3  |..:.x$<>"".pc%=.|
000067c0  8c 70 63 25 3d b9 3a f2  62 28 22 53 6f 6d 65 20  |.pc%=.:.b("Some |
000067d0  69 6e 73 74 72 75 6d 65  6e 74 73 20 77 65 72 65  |instruments were|
000067e0  20 6e 6f 74 20 66 6f 75  6e 64 20 69 6e 63 6c 75  | not found inclu|
000067f0  64 69 6e 67 20 27 22 2b  78 24 2b 22 27 2e 20 54  |ding '"+x$+"'. T|
00006800  68 65 79 20 68 61 76 65  20 62 65 65 6e 20 72 65  |hey have been re|
00006810  70 6c 61 63 65 64 20 77  69 74 68 20 27 22 2b 62  |placed with '"+b|
00006820  24 28 30 29 2b 22 27 2e  22 2c a3 29 0d 95 c5 07  |$(0)+"'.",.)....|
00006830  3d 62 25 0d 95 e0 5d dd  f2 72 63 28 78 25 2c 71  |=b%...]..rc(x%,q|
00006840  25 2c 6a 25 29 3a ea 57  63 25 2c 69 24 2c 58 25  |%,j%):.Wc%,i$,X%|
00006850  2c 59 25 2c 42 25 2c 68  24 2c 50 25 2c 54 25 3a  |,Y%,B%,h$,P%,T%:|
00006860  68 24 3d 62 24 28 78 25  29 3a e7 28 63 25 28 78  |h$=b$(x%):.(c%(x|
00006870  25 29 80 32 5e 32 36 29  3d 30 80 28 63 25 28 78  |%).2^26)=0.(c%(x|
00006880  25 29 80 26 38 30 30 30  30 30 30 30 29 3d 30 8c  |%).&80000000)=0.|
00006890  0d 95 fb 29 f2 69 3a f5  3a c8 99 26 32 30 30 30  |...).i:.:..&2000|
000068a0  38 2c 31 37 2c 6e 24 2b  22 2e 22 2b 68 24 b8 4e  |8,17,n$+"."+h$.N|
000068b0  25 3a e7 4e 25 3c 3e 31  8c 0d 96 1f 57 69 24 3d  |%:.N%<>1....Wi$=|
000068c0  22 43 61 6e 27 74 20 75  73 65 20 76 6f 69 63 65  |"Can't use voice|
000068d0  20 27 22 2b 68 24 2b 22  27 2e 20 53 68 61 6c 6c  | '"+h$+"'. Shall|
000068e0  20 75 73 65 20 61 6e 20  61 6c 74 65 72 6e 61 74  | use an alternat|
000068f0  69 76 65 2e 20 28 22 2b  6e 24 2b 22 2e 22 2b 68  |ive. ("+n$+"."+h|
00006900  24 2b 22 20 6e 6f 74 20  66 6f 75 6e 64 2e 29 22  |$+" not found.)"|
00006910  0d 96 31 40 cc 3a e7 ac  a4 71 8c e7 ac a4 72 8c  |..1@.:...q....r.|
00006920  69 24 3d 22 43 61 6e 27  74 20 75 73 65 20 74 68  |i$="Can't use th|
00006930  61 74 20 76 6f 69 63 65  2e 20 28 4e 6f 20 76 6f  |at voice. (No vo|
00006940  69 63 65 20 73 6c 6f 74  73 20 6c 65 66 74 29 22  |ice slots left)"|
00006950  0d 96 3a 08 e7 a4 71 8c  0d 96 43 2b c8 99 26 32  |..:...q...C+..&2|
00006960  30 30 31 45 2c 30 2c 6e  24 2b 22 2e 22 2b 68 24  |001E,0,n$+"."+h$|
00006970  b8 57 63 25 3b 50 25 3a  e7 28 50 25 80 31 29 3c  |.Wc%;P%:.(P%.1)<|
00006980  3e 30 8c 0d 96 55 50 e7  ac a4 72 8c 69 24 3d 22  |>0...UP...r.i$="|
00006990  43 61 6e 27 74 20 75 73  65 20 76 6f 69 63 65 20  |Can't use voice |
000069a0  27 22 2b 68 24 2b 22 27  2e 20 53 68 61 6c 6c 20  |'"+h$+"'. Shall |
000069b0  75 73 65 20 61 6e 20 61  6c 74 65 72 6e 61 74 69  |use an alternati|
000069c0  76 65 2e 28 22 2b a4 63  28 57 63 25 2b 34 29 2b  |ve.("+.c(Wc%+4)+|
000069d0  22 29 22 0d 96 5e 46 cc  3a c8 99 26 36 30 31 38  |")"..^F.:..&6018|
000069e0  35 2c 71 25 2c 30 b8 2c  6a 61 25 3a c8 99 26 36  |5,q%,0.,ja%:..&6|
000069f0  30 31 38 41 2c 71 25 2c  68 24 b8 3b 50 25 3a c8  |018A,q%,h$.;P%:.|
00006a00  99 26 36 30 31 38 35 2c  71 25 2c 6a 61 25 3a e7  |.&60185,q%,ja%:.|
00006a10  28 50 25 80 31 29 3d 31  8c 0d 96 8b 62 69 24 3d  |(P%.1)=1....bi$=|
00006a20  22 56 6f 69 63 65 20 6d  6f 64 75 6c 65 20 27 22  |"Voice module '"|
00006a30  2b 68 24 2b 22 27 20 64  6f 65 73 20 6e 6f 74 20  |+h$+"' does not |
00006a40  63 6f 6e 74 61 69 6e 20  61 20 76 6f 69 63 65 20  |contain a voice |
00006a50  63 61 6c 6c 65 64 20 27  22 2b 68 24 2b 22 27 2e  |called '"+h$+"'.|
00006a60  20 53 68 61 6c 6c 20 75  73 65 20 61 6e 20 61 6c  | Shall use an al|
00006a70  74 65 72 6e 61 74 69 76  65 2e 22 0d 96 9d 1a cc  |ternative.".....|
00006a80  3a 63 25 28 78 25 29 3d  28 63 25 28 78 25 29 84  |:c%(x%)=(c%(x%).|
00006a90  32 5e 32 36 29 0d 96 af  05 cd 0d 96 af 05 cd 0d  |2^26)...........|
00006aa0  96 b8 0a cc 3a 50 25 3d  31 0d 96 d3 05 cd 0d 96  |....:P%=1.......|
00006ab0  d3 05 cd 0d 96 dc 17 fd  69 24 3c 3e 22 22 84 28  |........i$<>"".(|
00006ac0  50 25 80 31 29 3d 30 3a  f2 70 0d 96 f7 05 cd 0d  |P%.1)=0:.p......|
00006ad0  96 f7 0b e7 69 24 3d 22  22 8c 0d 97 00 10 f2 4a  |....i$=""......J|
00006ae0  28 6a 25 2c 71 25 2c 78  25 29 0d 97 12 1a cc 3a  |(j%,q%,x%).....:|
00006af0  f2 62 28 69 24 2c a3 29  3a f2 4a 28 6a 25 2c 71  |.b(i$,.):.J(j%,q|
00006b00  25 2c 30 29 0d 97 2d 05  cd 0d 97 2d 05 e1 0d 97  |%,0)..-....-....|
00006b10  36 5b dd a4 72 3a ea 65  25 2c 51 6c 25 3a 51 6c  |6[..r:.e%,Ql%:Ql|
00006b20  25 3d 2d 31 3a 65 25 3d  30 3a c8 95 65 25 3c 47  |%=-1:e%=0:..e%<G|
00006b30  63 25 80 51 6c 25 3d 2d  31 3a e7 28 63 25 28 65  |c%.Ql%=-1:.(c%(e|
00006b40  25 29 80 26 46 38 30 30  30 30 30 30 29 3d 30 80  |%).&F8000000)=0.|
00006b50  28 63 25 28 65 25 29 80  32 5e 32 36 29 3d 32 5e  |(c%(e%).2^26)=2^|
00006b60  32 36 8c 51 6c 25 3d 65  25 0d 97 75 14 65 25 2b  |26.Ql%=e%..u.e%+|
00006b70  3d 31 3a ce 3a e7 51 6c  25 3d 2d 31 8c 0d 97 90  |=1:.:.Ql%=-1....|
00006b80  52 65 25 3d 30 3a c8 95  65 25 3c 47 63 25 80 51  |Re%=0:..e%<Gc%.Q|
00006b90  6c 25 3d 2d 31 3a e7 28  63 25 28 65 25 29 80 32  |l%=-1:.(c%(e%).2|
00006ba0  5e 28 77 25 2b 32 37 29  29 3d 30 80 28 63 25 28  |^(w%+27))=0.(c%(|
00006bb0  65 25 29 80 26 38 34 30  30 30 30 30 30 29 3d 26  |e%).&84000000)=&|
00006bc0  30 34 30 30 30 30 30 30  8c 51 6c 25 3d 65 25 0d  |04000000.Ql%=e%.|
00006bd0  97 ab 0b 65 25 2b 3d 31  3a ce 0d 97 c6 05 cd 0d  |...e%+=1:.......|
00006be0  97 c6 0e e7 51 6c 25 3d  2d 31 8c 3d a3 0d 97 cf  |....Ql%=-1.=....|
00006bf0  35 c8 99 26 32 30 30 31  45 2c 34 2c 62 24 28 51  |5..&2001E,4,b$(Q|
00006c00  6c 25 29 3a 63 25 28 51  6c 25 29 3d 28 63 25 28  |l%):c%(Ql%)=(c%(|
00006c10  51 6c 25 29 84 32 5e 32  36 29 82 32 5e 32 36 3a  |Ql%).2^26).2^26:|
00006c20  3d b9 0d 97 fc 33 dd f2  48 28 71 25 2c 53 6b 25  |=....3..H(q%,Sk%|
00006c30  2c 6e 25 2c 64 25 29 3a  c8 99 26 34 30 31 38 35  |,n%,d%):..&40185|
00006c40  2c 71 25 2c 3f 28 6d 6a  25 2b 71 25 29 3a e7 53  |,q%,?(mj%+q%):.S|
00006c50  6b 25 3c 30 8c 0d 98 17  1b 53 6b 25 3d 34 3a 52  |k%<0.....Sk%=4:R|
00006c60  6c 25 3d 61 25 28 53 6b  25 29 2d 26 31 30 30 30  |l%=a%(Sk%)-&1000|
00006c70  0d 98 29 11 cc 3a 52 6c  25 3d 61 25 28 53 6b 25  |..)..:Rl%=a%(Sk%|
00006c80  29 0d 98 3b 05 cd 0d 98  3b 35 c8 99 26 34 30 31  |)..;....;5..&401|
00006c90  38 39 2c 71 25 2c 59 62  25 2c 52 6c 25 2c 58 62  |89,q%,Yb%,Rl%,Xb|
00006ca0  25 3a f2 65 28 6e 25 2c  64 25 29 3a 53 6c 25 3d  |%:.e(n%,d%):Sl%=|
00006cb0  64 25 3a 54 6c 25 3d 71  25 3a e1 0d 98 68 27 dd  |d%:Tl%=q%:...h'.|
00006cc0  f2 69 62 3a c8 99 26 34  30 31 38 39 2c 54 6c 25  |.ib:..&40189,Tl%|
00006cd0  2c 59 62 25 2b 32 5e 37  2c 52 6c 25 2c 57 62 25  |,Yb%+2^7,Rl%,Wb%|
00006ce0  3a e1 0d 98 8c 2b dd f2  73 63 3a ea 65 25 3a e3  |:....+..sc:.e%:.|
00006cf0  65 25 3d 31 b8 38 3a d4  65 25 2c 30 2c 30 2c 31  |e%=1.8:.e%,0,0,1|
00006d00  3a ed 3a c8 99 26 34 30  31 43 30 3a e1 0d 98 d4  |:.:..&401C0:....|
00006d10  85 dd f2 74 63 28 63 25  29 3a ea 65 25 3a 55 6c  |...tc(c%):.e%:Ul|
00006d20  25 3d 63 25 3a e3 65 25  3d 30 b8 5a 62 25 2d 31  |%=c%:.e%=0.Zb%-1|
00006d30  3a 61 25 28 65 25 29 3d  a0 28 c1 22 26 31 39 35  |:a%(e%)=.(."&195|
00006d40  35 26 31 36 41 41 26 31  35 35 35 26 31 32 41 41  |5&16AA&1555&12AA|
00006d50  26 31 30 30 30 26 30 45  41 41 26 30 43 30 30 26  |&1000&0EAA&0C00&|
00006d60  30 39 35 35 26 30 36 41  41 26 30 35 35 35 26 30  |0955&06AA&0555&0|
00006d70  32 41 41 22 2c 65 25 2a  35 2b 31 2c 35 29 29 2b  |2AA",e%*5+1,5))+|
00006d80  56 6c 25 2a 26 31 30 30  30 3a ed 3a e7 ac 58 61  |Vl%*&1000:.:..Xa|
00006d90  25 8c 0d 99 1c 0a e7 63  25 3e 37 8c 0d 99 25 6a  |%......c%>7...%j|
00006da0  63 25 2d 3d 37 3a e3 65  25 3d 31 b8 63 25 3a 61  |c%-=7:.e%=1.c%:a|
00006db0  25 28 a0 28 c1 22 35 32  36 33 30 34 31 22 2c 65  |%(.(."5263041",e|
00006dc0  25 2c 31 29 29 29 3d a0  28 c1 22 26 30 44 35 35  |%,1)))=.(."&0D55|
00006dd0  26 31 34 30 30 26 30 41  41 41 26 31 31 35 35 26  |&1400&0AAA&1155&|
00006de0  31 38 30 30 26 30 45 41  41 26 31 35 35 35 22 2c  |1800&0EAA&1555",|
00006df0  65 25 2a 35 2d 34 2c 35  29 29 2b 56 6c 25 2a 26  |e%*5-4,5))+Vl%*&|
00006e00  31 30 30 30 3a ed 0d 99  52 0c cc 3a e7 63 25 3e  |1000:...R..:.c%>|
00006e10  30 8c 0d 99 5b 64 e3 65  25 3d 31 b8 63 25 3a 61  |0...[d.e%=1.c%:a|
00006e20  25 28 a0 28 c1 22 31 34  30 33 36 32 35 22 2c 65  |%(.(."1403625",e|
00006e30  25 2c 31 29 29 29 3d a0  28 c1 22 26 31 38 30 30  |%,1)))=.(."&1800|
00006e40  26 31 31 35 35 26 31 41  41 41 26 31 34 30 30 26  |&1155&1AAA&1400&|
00006e50  30 44 35 35 26 31 36 41  41 26 31 30 30 30 22 2c  |0D55&16AA&1000",|
00006e60  65 25 2a 35 2d 34 2c 35  29 29 2b 56 6c 25 2a 26  |e%*5-4,5))+Vl%*&|
00006e70  31 30 30 30 3a ed 0d 99  7f 05 cd 0d 99 7f 05 cd  |1000:...........|
00006e80  0d 99 88 05 cd 0d 99 91  2d e3 65 25 3d 31 30 b8  |........-.e%=10.|
00006e90  37 88 2d 31 3a 61 25 28  65 25 29 3d 61 25 28 65  |7.-1:a%(e%)=a%(e|
00006ea0  25 2d 37 29 2d 26 31 30  30 30 3a ed 3a e7 58 61  |%-7)-&1000:.:.Xa|
00006eb0  25 8c 0d 99 b5 83 61 25  28 32 29 3d 61 25 28 31  |%.....a%(2)=a%(1|
00006ec0  29 3a 61 25 28 31 29 3d  61 25 28 30 29 3a 61 25  |):a%(1)=a%(0):a%|
00006ed0  28 30 29 3d 61 25 28 36  29 2b 26 31 30 30 30 3a  |(0)=a%(6)+&1000:|
00006ee0  61 25 28 35 29 3d 61 25  28 36 29 3a 61 25 28 36  |a%(5)=a%(6):a%(6|
00006ef0  29 3d 61 25 28 37 29 3a  61 25 28 37 29 3d 61 25  |)=a%(7):a%(7)=a%|
00006f00  28 38 29 3a 61 25 28 38  29 3d 61 25 28 31 30 29  |(8):a%(8)=a%(10)|
00006f10  3a 61 25 28 39 29 3d 61  25 28 35 29 2d 26 31 30  |:a%(9)=a%(5)-&10|
00006f20  30 30 3a 61 25 28 31 30  29 3d 61 25 28 36 29 2d  |00:a%(10)=a%(6)-|
00006f30  26 31 30 30 30 0d 9a 0f  05 cd 0d 9a 0f cd e3 65  |&1000..........e|
00006f40  25 3d 30 b8 31 30 3a 21  28 65 25 2a 34 2b 75 6a  |%=0.10:!(e%*4+uj|
00006f50  25 29 3d 61 25 28 31 30  2d 65 25 29 3a ed 3a 21  |%)=a%(10-e%):.:!|
00006f60  58 6a 25 3d 61 25 28 34  29 2d 26 31 30 30 30 3a  |Xj%=a%(4)-&1000:|
00006f70  e3 65 25 3d 30 b8 32 30  3a 6b 25 28 65 25 29 3d  |.e%=0.20:k%(e%)=|
00006f80  a0 28 c1 22 26 30 32 41  41 26 30 35 35 35 26 30  |.(."&02AA&0555&0|
00006f90  36 41 41 26 30 39 35 35  26 30 43 30 30 26 30 45  |6AA&0955&0C00&0E|
00006fa0  41 41 26 31 30 30 30 26  31 32 41 41 26 31 35 35  |AA&1000&12AA&155|
00006fb0  35 26 31 36 41 41 26 31  39 35 35 26 30 34 30 30  |5&16AA&1955&0400|
00006fc0  26 37 46 46 46 26 30 38  30 30 26 30 41 41 41 26  |&7FFF&0800&0AAA&|
00006fd0  30 44 35 35 26 37 46 46  46 26 31 31 35 35 26 31  |0D55&7FFF&1155&1|
00006fe0  34 30 30 26 37 46 46 46  26 31 38 30 30 22 2c 65  |400&7FFF&1800",e|
00006ff0  25 2a 35 2b 31 2c 35 29  29 2b 56 6c 25 2a 26 31  |%*5+1,5))+Vl%*&1|
00007000  30 30 30 3a ed 3a e1 0d  9a 60 39 dd a4 4f 28 61  |000:.:...`9..O(a|
00007010  25 29 3a ea 65 25 2c 63  25 2c 62 25 3a 62 25 3d  |%):.e%,c%,b%:b%=|
00007020  a4 66 28 22 4f 63 74 61  22 2c 61 25 29 3a e7 62  |.f("Octa",a%):.b|
00007030  25 3d 30 8c 62 25 3d a4  62 28 31 32 2c 61 25 29  |%=0.b%=.b(12,a%)|
00007040  0d 9a 8d 17 e7 62 25 3d  30 8c 62 25 3d a4 62 28  |.....b%=0.b%=.b(|
00007050  56 6c 25 2c 61 25 29 0d  9a 96 07 3d 62 25 0d 9a  |Vl%,a%)....=b%..|
00007060  b1 1b dd a4 79 28 61 25  29 3a ea 65 25 2c 63 25  |....y(a%):.e%,c%|
00007070  2c 62 25 3a e7 57 6c 25  8c 0d 9a c3 23 62 25 3d  |,b%:.Wl%....#b%=|
00007080  a4 61 28 63 25 2c 61 25  29 3a e7 62 25 3d 30 8c  |.a(c%,a%):.b%=0.|
00007090  62 25 3d a4 61 28 63 25  2c 61 25 29 0d 9a d5 13  |b%=.a(c%,a%)....|
000070a0  56 6c 25 3d 63 25 3a f2  74 63 28 55 6c 25 29 0d  |Vl%=c%:.tc(Ul%).|
000070b0  9a f0 0f cc 3a 62 25 3d  a4 6a 28 61 25 29 0d 9b  |....:b%=.j(a%)..|
000070c0  02 05 cd 0d 9b 02 07 3d  62 25 0d 9b 1d 39 dd a4  |.......=b%...9..|
000070d0  50 28 61 25 29 3a ea 65  25 2c 63 25 2c 62 25 3a  |P(a%):.e%,c%,b%:|
000070e0  62 25 3d a4 66 28 22 4b  65 79 20 22 2c 61 25 29  |b%=.f("Key ",a%)|
000070f0  3a e7 62 25 3d 30 8c 62  25 3d a4 62 28 31 32 2c  |:.b%=0.b%=.b(12,|
00007100  61 25 29 0d 9b 38 17 e7  62 25 3d 30 8c 62 25 3d  |a%)..8..b%=0.b%=|
00007110  a4 62 28 55 6c 25 2c 61  25 29 0d 9b 41 07 3d 62  |.b(Ul%,a%)..A.=b|
00007120  25 0d 9b 5c 39 dd a4 51  28 61 25 29 3a ea 65 25  |%..\9..Q(a%):.e%|
00007130  2c 63 25 2c 62 25 3a 62  25 3d a4 66 28 22 50 65  |,c%,b%:b%=.f("Pe|
00007140  6e 74 22 2c 61 25 29 3a  e7 62 25 3d 30 8c 62 25  |nt",a%):.b%=0.b%|
00007150  3d a4 62 28 31 32 2c 61  25 29 0d 9b 77 17 e7 62  |=.b(12,a%)..w..b|
00007160  25 3d 30 8c 62 25 3d a4  62 28 58 61 25 2c 61 25  |%=0.b%=.b(Xa%,a%|
00007170  29 0d 9b 80 07 3d 62 25  0d 9b 9b 1b dd a4 7a 28  |)....=b%......z(|
00007180  61 25 29 3a ea 65 25 2c  63 25 2c 62 25 3a e7 58  |a%):.e%,c%,b%:.X|
00007190  6c 25 8c 0d 9b ad 23 62  25 3d a4 61 28 63 25 2c  |l%....#b%=.a(c%,|
000071a0  61 25 29 3a e7 62 25 3d  30 8c 62 25 3d a4 61 28  |a%):.b%=0.b%=.a(|
000071b0  63 25 2c 61 25 29 0d 9b  bf 13 55 6c 25 3d 63 25  |c%,a%)....Ul%=c%|
000071c0  3a f2 74 63 28 55 6c 25  29 0d 9b da 0f cc 3a 62  |:.tc(Ul%).....:b|
000071d0  25 3d a4 6a 28 61 25 29  0d 9b ec 05 cd 0d 9b ec  |%=.j(a%)........|
000071e0  07 3d 62 25 0d 9c 07 1b  dd a4 42 28 61 25 29 3a  |.=b%......B(a%):|
000071f0  ea 65 25 2c 63 25 2c 62  25 3a e7 58 6c 25 8c 0d  |.e%,c%,b%:.Xl%..|
00007200  9c 19 23 62 25 3d a4 61  28 63 25 2c 61 25 29 3a  |..#b%=.a(c%,a%):|
00007210  e7 62 25 3d 30 8c 62 25  3d a4 61 28 63 25 2c 61  |.b%=0.b%=.a(c%,a|
00007220  25 29 0d 9c 2b 18 58 61  25 3d 63 25 3a e7 63 25  |%)..+.Xa%=c%:.c%|
00007230  8c 63 25 3d 30 8b 63 25  3d 32 0d 9c 3d 1b 21 46  |.c%=0.c%=2..=.!F|
00007240  69 25 3d 63 25 3a 43 62  25 3d 63 25 3a f2 74 63  |i%=c%:Cb%=c%:.tc|
00007250  28 55 6c 25 29 0d 9c 61  0f cc 3a 62 25 3d a4 6a  |(Ul%)..a..:b%=.j|
00007260  28 61 25 29 0d 9c 73 05  cd 0d 9c 73 07 3d 62 25  |(a%)..s....s.=b%|
00007270  0d 9c 97 24 dd f2 75 63  28 64 25 29 3a e7 64 25  |...$..uc(d%):.d%|
00007280  3d 6f 66 25 8c f2 52 28  74 25 2c 64 25 2c 58 25  |=of%..R(t%,d%,X%|
00007290  2c 59 25 29 0d 9c a9 15  e7 64 25 3e 3d 6c 66 25  |,Y%).....d%>=lf%|
000072a0  80 64 25 3c 3d 6d 66 25  8c 0d 9c b2 20 e7 55 61  |.d%<=mf%.... .Ua|
000072b0  25 3c 3e 32 8c f2 53 28  28 28 64 25 2d 6c 66 25  |%<>2..S(((d%-lf%|
000072c0  29 83 5f 62 25 29 2b 31  29 0d 9c bb 05 cd 0d 9c  |)._b%)+1).......|
000072d0  c4 05 e1 0d 9c cd 27 dd  f2 76 63 28 70 25 2c 64  |......'..vc(p%,d|
000072e0  25 2c 58 25 2c 59 25 29  3a ea 63 25 3a e7 28 70  |%,X%,Y%):.c%:.(p|
000072f0  25 80 28 35 3c 3c 34 29  29 8c 0d 9c f1 09 c8 8e  |%.(5<<4)).......|
00007300  64 25 ca 0d 9c fa 1c c9  6f 66 25 2c 71 66 25 3a  |d%......of%,qf%:|
00007310  f2 47 28 74 25 2c 64 25  2c 58 25 2c 59 25 29 0d  |.G(t%,d%,X%,Y%).|
00007320  9d 15 05 cb 0d 9d 15 05  cd 0d 9d 1e 0c e7 28 70  |..............(p|
00007330  25 80 34 29 8c 0d 9d 27  09 c8 8e 64 25 ca 0d 9d  |%.4)...'...d%...|
00007340  30 24 c9 64 66 25 2c 65  66 25 2c 73 66 25 2c 72  |0$.df%,ef%,sf%,r|
00007350  66 25 3a e7 70 25 3c 37  8c f2 65 28 74 25 2c 64  |f%:.p%<7..e(t%,d|
00007360  25 29 0d 9d 42 31 c9 6a  66 25 3a f2 6c 28 30 29  |%)..B1.jf%:.l(0)|
00007370  3a c8 99 26 34 34 41 44  44 2c 37 2c 74 25 2c 64  |:..&44ADD,7,t%,d|
00007380  25 3a f2 6f 62 28 74 25  2c 69 66 25 2c 64 66 25  |%:.ob(t%,if%,df%|
00007390  2c 30 29 0d 9d 6f 2c c9  68 66 25 3a c8 99 26 34  |,0)..o,.hf%:..&4|
000073a0  34 41 44 44 2c 37 2c 74  25 2c 64 25 3a f2 44 28  |4ADD,7,t%,d%:.D(|
000073b0  74 25 2c 69 66 25 2c 64  66 25 2c 30 2c b9 29 0d  |t%,if%,df%,0,.).|
000073c0  9d 8a 44 c9 67 66 25 3a  c8 99 26 34 34 41 44 44  |..D.gf%:..&44ADD|
000073d0  2c 37 2c 74 25 2c 64 25  3a c8 99 26 34 34 41 44  |,7,t%,d%:..&44AD|
000073e0  44 2c 37 2c 74 25 2c 68  66 25 3a 4f 6b 25 3d b9  |D,7,t%,hf%:Ok%=.|
000073f0  3a f2 44 28 74 25 2c 69  66 25 2c 64 66 25 2c 30  |:.D(t%,if%,df%,0|
00007400  2c b9 29 0d 9d b7 2c c9  66 66 25 3a c8 99 26 34  |,.)...,.ff%:..&4|
00007410  34 41 44 44 2c 37 2c 74  25 2c 64 25 3a f2 44 28  |4ADD,7,t%,d%:.D(|
00007420  74 25 2c 69 66 25 2c 64  66 25 2c 30 2c a3 29 0d  |t%,if%,df%,0,.).|
00007430  9d d2 16 c9 69 66 25 3a  f2 6f 28 74 25 2c 64 25  |....if%:.o(t%,d%|
00007440  2c 64 66 25 29 0d 9d e4  2e c9 6f 66 25 3a c8 99  |,df%).....of%:..|
00007450  26 34 34 41 44 34 2c 30  2c 74 25 2c 64 25 2c 58  |&44AD4,0,t%,d%,X|
00007460  25 2c 59 25 b8 63 25 3a  f2 64 28 28 63 25 2b 34  |%,Y%.c%:.d((c%+4|
00007470  30 29 29 0d 9d ff 29 c9  71 66 25 3a c8 99 26 34  |0))...).qf%:..&4|
00007480  34 41 44 34 2c 30 2c 74  25 2c 64 25 2c 58 25 2c  |4AD4,0,t%,d%,X%,|
00007490  59 25 b8 63 25 3a f2 71  28 63 25 29 0d 9e 1a 18  |Y%.c%:.q(c%)....|
000074a0  c9 75 66 25 3a e7 ac 50  61 25 8c f2 65 28 74 25  |.uf%:..Pa%..e(t%|
000074b0  2c 64 25 29 0d 9e 23 29  c8 99 26 34 34 41 44 34  |,d%)..#)..&44AD4|
000074c0  2c 31 2c 74 25 2c 6f 66  25 b8 63 25 3a 63 25 2d  |,1,t%,of%.c%:c%-|
000074d0  3d 31 3a e7 63 25 3c 30  8c 63 25 3d 30 0d 9e 3e  |=1:.c%<0.c%=0..>|
000074e0  27 c8 99 26 34 34 41 44  34 2c 32 2c 74 25 2c 6f  |'..&44AD4,2,t%,o|
000074f0  66 25 2c 63 25 b8 63 25  3a f2 64 28 28 63 25 2b  |f%,c%.c%:.d((c%+|
00007500  34 30 29 29 0d 9e 59 1b  c9 77 66 25 3a c8 99 26  |40))..Y..wf%:..&|
00007510  34 34 41 44 36 2c 6c 64  25 2c 58 25 2c 59 25 0d  |44AD6,ld%,X%,Y%.|
00007520  9e 62 18 c9 76 66 25 3a  e7 ac 50 61 25 8c f2 65  |.b..vf%:..Pa%..e|
00007530  28 74 25 2c 64 25 29 0d  9e 6b 2d c8 99 26 34 34  |(t%,d%)..k-..&44|
00007540  41 44 34 2c 31 2c 74 25  2c 6f 66 25 b8 63 25 3a  |AD4,1,t%,of%.c%:|
00007550  63 25 2b 3d 31 3a e7 63  25 3e 32 35 35 8c 63 25  |c%+=1:.c%>255.c%|
00007560  3d 32 35 35 0d 9e 86 27  c8 99 26 34 34 41 44 34  |=255...'..&44AD4|
00007570  2c 32 2c 74 25 2c 6f 66  25 2c 63 25 b8 63 25 3a  |,2,t%,of%,c%.c%:|
00007580  f2 64 28 28 63 25 2b 34  30 29 29 0d 9e aa 05 cb  |.d((c%+40)).....|
00007590  0d 9e aa 05 cd 0d 9e b3  05 e1 0d 9e bc 69 dd f2  |.............i..|
000075a0  45 62 3a f2 68 28 42 66  25 29 3a f2 54 28 74 25  |Eb:.h(Bf%):.T(t%|
000075b0  29 3a f2 79 28 31 2c 67  62 25 29 3a 4f 6b 25 3d  |):.y(1,gb%):Ok%=|
000075c0  a3 3a f2 55 28 30 29 3a  f2 56 28 74 25 2c 71 66  |.:.U(0):.V(t%,qf|
000075d0  25 29 3a c8 99 26 34 34  41 44 34 2c 31 2c 74 25  |%):..&44AD4,1,t%|
000075e0  2c 6f 66 25 b8 63 25 3a  f2 64 28 63 25 2b 34 30  |,of%.c%:.d(c%+40|
000075f0  29 3a f2 74 3a f2 73 28  64 66 25 2c 74 25 2c 30  |):.t:.s(df%,t%,0|
00007600  29 3a e1 0d 9f 31 15 dd  f2 77 63 3a ea 64 25 3a  |):...1...wc:.d%:|
00007610  e7 55 61 25 3c 3e 32 8c  0d 9f 55 3e c8 99 26 34  |.Ua%<>2...U>..&4|
00007620  30 30 43 46 2c 2c 68 25  3a 64 25 3d 68 25 21 31  |00CF,,h%:d%=h%!1|
00007630  36 3a e7 64 25 3e 3d 6c  66 25 80 64 25 2d 6c 66  |6:.d%>=lf%.d%-lf|
00007640  25 3c 3d 5f 62 25 2a 5a  62 25 80 28 68 25 21 38  |%<=_b%*Zb%.(h%!8|
00007650  80 34 29 3d 34 8c 0d 9f  70 0b f2 78 63 28 64 25  |.4)=4...p..xc(d%|
00007660  29 0d 9f 82 09 cc 3a f2  79 63 0d 9f 94 05 cd 0d  |).....:.yc......|
00007670  9f 94 05 cd 0d 9f 9d 05  e1 0d 9f a6 16 dd f2 78  |...............x|
00007680  63 28 64 25 29 3a e7 64  25 3c 3e 63 63 25 8c 0d  |c(d%):.d%<>cc%..|
00007690  9f c1 10 f2 79 63 3a f2  5f 28 32 2c 64 25 29 0d  |....yc:._(2,d%).|
000076a0  9f dc 05 cd 0d 9f dc 05  e1 0d 9f e5 11 dd f2 79  |...............y|
000076b0  63 3a e7 63 63 25 3e 2d  31 8c 0d a0 00 0d f2 5f  |c:.cc%>-1......_|
000076c0  28 33 2c 63 63 25 29 0d  a0 12 05 cd 0d a0 12 05  |(3,cc%).........|
000076d0  e1 0d a0 1b 25 dd f2 7a  63 28 48 25 2c 4a 25 29  |....%..zc(H%,J%)|
000076e0  3a f2 57 28 48 25 2c 4a  25 29 3a f2 58 28 48 25  |:.W(H%,J%):.X(H%|
000076f0  2c 4a 25 29 3a e1 0d a0  48 22 dd f2 41 63 3a f2  |,J%):...H"..Ac:.|
00007700  6f 28 74 25 2c 69 66 25  2c 64 66 25 29 3a f2 6d  |o(t%,if%,df%):.m|
00007710  3a f2 41 3a f2 72 3a e1  0d a0 87 12 dd f2 42 63  |:.A:.r:.......Bc|
00007720  28 64 25 29 3a c8 8e 64  25 ca 0d a0 a2 14 c9 64  |(d%):..d%......d|
00007730  66 25 3a f2 73 28 64 25  2c 74 25 2c 31 29 0d a0  |f%:.s(d%,t%,1)..|
00007740  b4 13 c9 65 66 25 3a f2  68 28 74 25 29 3a f2 41  |...ef%:.h(t%):.A|
00007750  63 0d a0 bd 11 c9 73 66  25 3a f2 76 28 6f 25 2c  |c.....sf%:.v(o%,|
00007760  37 29 0d a0 c6 11 c9 72  66 25 3a f2 76 28 6f 25  |7).....rf%:.v(o%|
00007770  2c 36 29 0d a0 cf 05 cb  0d a0 cf 05 e1 0d a0 d8  |,6).............|
00007780  2b dd f2 65 61 3a ea 59  6c 25 3a f5 3a c8 99 26  |+..ea:.Yl%:.:..&|
00007790  34 30 30 43 37 2c 4d 61  25 2c 6d 63 25 b8 59 6c  |400C7,Ma%,mc%.Yl|
000077a0  25 3a c8 8e 59 6c 25 ca  0d a1 20 0f c9 31 3a f2  |%:..Yl%... ..1:.|
000077b0  43 63 28 6d 63 25 29 0d  a1 32 0f c9 32 3a f2 44  |Cc(mc%)..2..2:.D|
000077c0  63 28 6d 63 25 29 0d a1  3b 10 c9 33 3a f2 45 63  |c(mc%)..;..3:.Ec|
000077d0  28 21 6d 63 25 29 0d a1  44 0f c9 34 3a f2 46 63  |(!mc%)..D..4:.Fc|
000077e0  28 6d 63 25 29 0d a1 4d  0f c9 35 3a f2 47 63 28  |(mc%)..M..5:.Gc(|
000077f0  6d 63 25 29 0d a1 56 0f  c9 36 3a f2 48 63 28 6d  |mc%)..V..6:.Hc(m|
00007800  63 25 29 0d a1 5f 0a c9  37 3a f2 49 63 0d a1 68  |c%).._..7:.Ic..h|
00007810  0f c9 38 3a f2 4a 63 28  6d 63 25 29 0d a1 71 0f  |..8:.Jc(mc%)..q.|
00007820  c9 39 3a f2 4b 63 28 6d  63 25 29 0d a1 7a 0b c9  |.9:.Kc(mc%)..z..|
00007830  31 31 3a f2 6a 63 0d a1  83 13 c9 31 37 2c 31 38  |11:.jc.....17,18|
00007840  3a f2 4c 63 28 6d 63 25  29 0d a1 8c 05 cb 0d a1  |:.Lc(mc%).......|
00007850  8c 18 e7 59 6c 25 3c 3e  31 37 80 59 6c 25 3c 3e  |...Yl%<>17.Yl%<>|
00007860  31 38 8c f2 62 62 0d a1  95 0a fd 76 61 25 3a e1  |18..bb.....va%:.|
00007870  0d a1 a7 13 dd f2 47 63  28 73 25 29 3a c8 8e 21  |......Gc(s%):..!|
00007880  73 25 ca 0d a1 c2 0d c9  6f 25 3a 4b 61 25 3d b9  |s%......o%:Ka%=.|
00007890  0d a1 d4 0d c9 6c 25 3a  51 61 25 3d b9 0d a1 dd  |.....l%:Qa%=....|
000078a0  0d c9 74 25 3a 4c 61 25  3d b9 0d a1 e6 15 c9 6b  |..t%:La%=......k|
000078b0  25 2c 64 68 25 3a 54 61  25 3d b9 3a f2 64 63 0d  |%,dh%:Ta%=.:.dc.|
000078c0  a1 ef 0d c9 6d 25 3a 76  63 25 3d b9 0d a1 f8 05  |....m%:vc%=.....|
000078d0  cb 0d a1 f8 08 f2 67 3a  e1 0d a2 0a 38 dd f2 46  |......g:....8..F|
000078e0  63 28 73 25 29 3a ea 41  25 2c 5a 6c 25 3a 5a 6c  |c(s%):.A%,Zl%:Zl|
000078f0  25 3d a3 3a 41 25 3d 21  73 25 3a e7 41 25 3d 6c  |%=.:A%=!s%:.A%=l|
00007900  64 25 8c c8 99 26 34 30  30 43 36 2c 2c 73 25 3a  |d%...&400C6,,s%:|
00007910  e1 0d a2 40 08 c8 8e b9  ca 0d a2 49 18 c9 4b 61  |...@.......I..Ka|
00007920  25 3a f2 61 62 3a 4b 61  25 3d a3 3a 5a 6c 25 3d  |%:.ab:Ka%=.:Zl%=|
00007930  b9 0d a2 76 4e c9 54 61  25 3a c8 99 26 34 30 30  |...vN.Ta%:..&400|
00007940  43 46 2c 2c 67 25 3a e7  28 67 25 21 31 32 3c 3e  |CF,,g%:.(g%!12<>|
00007950  64 68 25 80 67 25 21 31  32 3c 3e 6b 25 29 84 28  |dh%.g%!12<>k%).(|
00007960  67 25 21 31 32 3d 41 25  80 41 25 3d 6b 25 29 8c  |g%!12=A%.A%=k%).|
00007970  f2 67 63 3a 54 61 25 3d  a3 3a 5a 6c 25 3d b9 0d  |.gc:Ta%=.:Zl%=..|
00007980  a2 88 18 c9 51 61 25 3a  f2 74 62 3a 51 61 25 3d  |....Qa%:.tb:Qa%=|
00007990  a3 3a 5a 6c 25 3d b9 0d  a2 b5 14 c9 4c 61 25 3a  |.:Zl%=......La%:|
000079a0  4c 61 25 3d a3 3a 5a 6c  25 3d b9 0d a2 d0 12 c9  |La%=.:Zl%=......|
000079b0  76 63 25 3a 76 63 25 3d  a3 3a f2 4d 63 0d a2 eb  |vc%:vc%=.:.Mc...|
000079c0  05 cb 0d a2 eb 0e f2 67  3a e7 5a 6c 25 3d b9 8c  |.......g:.Zl%=..|
000079d0  0d a2 fd 0d 41 25 3d 30  3a d6 62 6a 25 0d a3 18  |....A%=0:.bj%...|
000079e0  05 cd 0d a3 18 05 e1 0d  a3 21 19 dd f2 45 63 28  |.........!...Ec(|
000079f0  41 25 29 3a f2 68 28 41  25 29 3a c8 8e 41 25 ca  |A%):.h(A%):..A%.|
00007a00  0d a3 45 0c c9 42 66 25  3a f2 47 62 0d a3 57 0b  |..E..Bf%:.Gb..W.|
00007a10  c9 74 25 3a f2 41 63 0d  a3 60 0a c9 6f 25 3a f2  |.t%:.Ac..`..o%:.|
00007a20  59 0d a3 69 0b c9 76 64  25 3a f2 72 0d a3 72 0b  |Y..i..vd%:.r..r.|
00007a30  c9 6c 25 3a f2 76 62 0d  a3 7b 0b c9 6b 25 3a f2  |.l%:.vb..{..k%:.|
00007a40  5a 62 0d a3 84 05 cb 0d  a3 84 05 e1 0d a3 8d 15  |Zb..............|
00007a50  dd f2 4c 63 28 73 25 29  3a c8 8e 73 25 21 31 36  |..Lc(s%):..s%!16|
00007a60  ca 0d a3 a8 0c c9 30 3a  76 61 25 3d b9 0d a3 ba  |......0:va%=....|
00007a70  18 c9 38 3a e7 5a 63 25  84 5f 63 25 84 59 63 25  |..8:.Zc%._c%.Yc%|
00007a80  84 58 63 25 8c 0d a3 c3  26 f2 6e 28 32 2c 2d 31  |.Xc%....&.n(2,-1|
00007a90  29 3a 73 25 21 31 32 3d  73 25 21 38 3a c8 99 26  |):s%!12=s%!8:..&|
00007aa0  34 30 30 45 37 2c 31 39  2c 73 25 0d a3 e7 05 cd  |400E7,19,s%.....|
00007ab0  0d a3 e7 4d c9 33 3a f2  62 28 22 4c 6f 61 64 69  |...M.3:.b("Loadi|
00007ac0  6e 67 20 76 69 61 20 64  72 61 67 67 69 6e 67 20  |ng via dragging |
00007ad0  6e 6f 74 20 69 6d 70 6c  65 6d 65 6e 74 65 64 20  |not implemented |
00007ae0  79 65 74 2e 20 54 72 79  20 64 6f 75 62 6c 65 20  |yet. Try double |
00007af0  63 6c 69 63 6b 69 6e 67  2e 22 2c a3 29 0d a3 f9  |clicking.",.)...|
00007b00  0e c9 35 3a f2 4e 63 28  73 25 29 0d a4 02 0f c9  |..5:.Nc(s%).....|
00007b10  26 34 30 30 43 31 3a f2  63 61 0d a4 0b 05 cb 0d  |&400C1:.ca......|
00007b20  a4 0b 05 e1 0d a4 14 5c  dd f2 48 63 28 73 25 29  |.......\..Hc(s%)|
00007b30  3a ea 70 25 2c 6e 25 2c  64 25 2c 58 25 2c 59 25  |:.p%,n%,d%,X%,Y%|
00007b40  3a 58 25 3d 73 25 21 30  3a 59 25 3d 73 25 21 34  |:X%=s%!0:Y%=s%!4|
00007b50  3a 70 25 3d 73 25 21 38  3a 6e 25 3d 73 25 21 31  |:p%=s%!8:n%=s%!1|
00007b60  32 3a 64 25 3d 73 25 21  31 36 3a e7 6e 25 3c 3e  |2:d%=s%!16:.n%<>|
00007b70  4d 66 25 8c c8 99 26 34  34 41 43 45 2c 2c 73 25  |Mf%...&44ACE,,s%|
00007b80  0d a4 5c 0c e7 28 70 25  80 32 29 8c 0d a4 65 09  |..\..(p%.2)...e.|
00007b90  c8 8e 6e 25 ca 0d a4 6e  1d c9 2d 32 3a f2 60 28  |..n%...n..-2:.`(|
00007ba0  57 68 25 2c 58 25 2d 35  30 2c 39 36 2b 34 34 2a  |Wh%,X%-50,96+44*|
00007bb0  33 29 0d a4 80 0f c9 74  25 3a f2 75 63 28 64 25  |3).....t%:.uc(d%|
00007bc0  29 0d a4 89 15 c9 6f 25  3a f2 54 61 28 64 25 2c  |).....o%:.Ta(d%,|
00007bd0  58 25 2c 59 25 29 0d a4  92 15 c9 6c 25 3a f2 6c  |X%,Y%).....l%:.l|
00007be0  62 28 64 25 2c 58 25 2c  59 25 29 0d a4 9b 15 c9  |b(d%,X%,Y%).....|
00007bf0  6b 25 3a f2 50 62 28 64  25 2c 58 25 2c 59 25 29  |k%:.Pb(d%,X%,Y%)|
00007c00  0d a4 a4 15 c9 6d 25 3a  f2 4f 63 28 64 25 2c 58  |.....m%:.Oc(d%,X|
00007c10  25 2c 59 25 29 0d a4 ad  10 c9 6c 64 25 3a f2 68  |%,Y%).....ld%:.h|
00007c20  28 6c 64 25 29 0d a4 b6  05 cb 0d a4 b6 0b cc 3a  |(ld%)..........:|
00007c30  c8 8e 6e 25 ca 0d a4 c8  10 c9 2d 32 3a e7 ac 41  |..n%......-2:..A|
00007c40  61 25 8c f2 41 0d a4 d1  18 c9 74 25 3a f2 76 63  |a%..A.....t%:.vc|
00007c50  28 70 25 2c 64 25 2c 58  25 2c 59 25 29 0d a4 e3  |(p%,d%,X%,Y%)...|
00007c60  18 c9 6b 25 3a f2 51 62  28 70 25 2c 64 25 2c 58  |..k%:.Qb(p%,d%,X|
00007c70  25 2c 59 25 29 0d a4 ec  13 c9 4d 66 25 3a f2 79  |%,Y%).....Mf%:.y|
00007c80  62 28 70 25 2c 64 25 29  0d a4 f5 13 c9 42 66 25  |b(p%,d%).....Bf%|
00007c90  3a f2 44 62 28 70 25 2c  64 25 29 0d a4 fe 18 c9  |:.Db(p%,d%).....|
00007ca0  6f 25 3a f2 55 61 28 70  25 2c 64 25 2c 58 25 2c  |o%:.Ua(p%,d%,X%,|
00007cb0  59 25 29 0d a5 07 18 c9  6c 25 3a f2 6e 62 28 70  |Y%).....l%:.nb(p|
00007cc0  25 2c 64 25 2c 58 25 2c  59 25 29 0d a5 10 13 c9  |%,d%,X%,Y%).....|
00007cd0  76 64 25 3a f2 50 63 28  70 25 2c 64 25 29 0d a5  |vd%:.Pc(p%,d%)..|
00007ce0  19 19 c9 4d 65 25 3a f2  51 63 28 70 25 2c 64 25  |...Me%:.Qc(p%,d%|
00007cf0  2c 58 25 2c 59 25 29 0d  a5 22 18 c9 60 25 3a f2  |,X%,Y%).."..`%:.|
00007d00  52 63 28 70 25 2c 64 25  2c 58 25 2c 59 25 29 0d  |Rc(p%,d%,X%,Y%).|
00007d10  a5 2b 19 c9 4f 64 25 3a  f2 53 63 28 70 25 2c 64  |.+..Od%:.Sc(p%,d|
00007d20  25 2c 58 25 2c 59 25 29  0d a5 34 18 c9 6d 25 3a  |%,X%,Y%)..4..m%:|
00007d30  f2 54 63 28 70 25 2c 64  25 2c 58 25 2c 59 25 29  |.Tc(p%,d%,X%,Y%)|
00007d40  0d a5 3d 19 c9 57 65 25  3a f2 55 63 28 70 25 2c  |..=..We%:.Uc(p%,|
00007d50  64 25 2c 58 25 2c 59 25  29 0d a5 46 16 c9 64 68  |d%,X%,Y%)..F..dh|
00007d60  25 3a f2 4a 62 28 70 25  2c 58 25 2c 59 25 29 0d  |%:.Jb(p%,X%,Y%).|
00007d70  a5 4f 13 c9 5f 61 25 3a  f2 56 63 28 70 25 2c 64  |.O.._a%:.Vc(p%,d|
00007d80  25 29 0d a5 58 16 c9 6a  64 25 3a f2 57 63 28 70  |%)..X..jd%:.Wc(p|
00007d90  25 2c 58 25 2c 59 25 29  0d a5 61 10 c9 6c 64 25  |%,X%,Y%)..a..ld%|
00007da0  3a f2 68 28 6c 64 25 29  0d a5 6a 05 cb 0d a5 6a  |:.h(ld%)..j....j|
00007db0  05 cd 0d a5 73 17 e7 6e  25 3c 3e 4d 66 25 8c c8  |....s..n%<>Mf%..|
00007dc0  99 26 34 34 41 43 46 2c  35 0d a5 7c 05 e1 0d a5  |.&44ACF,5..|....|
00007dd0  85 11 dd f2 49 63 3a ea  41 25 3a c8 8e b9 ca 0d  |....Ic:.A%:.....|
00007de0  a5 a9 11 c9 28 4a 61 25  3c 3e 30 29 3a f2 58 63  |....(Ja%<>0):.Xc|
00007df0  0d a5 bb 12 c9 49 61 25  3a f2 59 63 3a 49 61 25  |.....Ia%:.Yc:Ia%|
00007e00  3d a3 0d a5 d6 17 c9 53  61 25 3a 41 25 3d a0 28  |=......Sa%:A%=.(|
00007e10  56 24 29 3a 53 61 25 3d  a3 0d a5 f1 05 cb 0d a5  |V$):Sa%=........|
00007e20  f1 08 f2 67 3a e1 0d a6  03 80 dd f2 5a 63 28 57  |...g:.......Zc(W|
00007e30  24 29 3a 53 61 25 3d b9  3a 56 24 3d 57 24 3a c8  |$):Sa%=.:V$=W$:.|
00007e40  97 58 25 2c 59 25 2c 42  25 3a 68 25 21 34 3d 37  |.X%,Y%,B%:h%!4=7|
00007e50  3a 68 25 21 38 3d 58 25  3a 68 25 21 31 32 3d 59  |:h%!8=X%:h%!12=Y|
00007e60  25 3a 68 25 21 31 36 3d  58 25 3a 68 25 21 32 30  |%:h%!16=X%:h%!20|
00007e70  3d 59 25 3a 68 25 21 32  34 3d 30 3a 68 25 21 32  |=Y%:h%!24=0:h%!2|
00007e80  38 3d 30 3a 68 25 21 33  32 3d 77 63 25 3a 68 25  |8=0:h%!32=wc%:h%|
00007e90  21 33 36 3d 78 63 25 3a  c8 99 26 34 30 30 44 30  |!36=xc%:..&400D0|
00007ea0  2c 2c 68 25 3a e1 0d a6  93 1f dd f2 65 28 6e 25  |,,h%:.......e(n%|
00007eb0  2c 64 25 29 3a ea 58 25  2c 59 25 2c 42 25 3a e7  |,d%):.X%,Y%,B%:.|
00007ec0  64 25 3c 30 8c 0d a6 b7  23 c8 97 58 25 2c 59 25  |d%<0....#..X%,Y%|
00007ed0  2c 42 25 3a c8 99 26 34  34 41 44 39 2c 58 25 2c  |,B%:..&44AD9,X%,|
00007ee0  59 25 2c 58 25 2c 59 25  0d a6 d2 18 cc 3a c8 99  |Y%,X%,Y%.....:..|
00007ef0  26 34 34 41 44 44 2c 33  2c 6e 25 2c 64 25 2c 31  |&44ADD,3,n%,d%,1|
00007f00  0d a6 e4 05 cd 0d a6 e4  1c 50 61 25 3d b9 3a 5f  |.........Pa%=.:_|
00007f10  6c 25 3d 6e 25 3a 60 6c  25 3d 64 25 3a f2 67 3a  |l%=n%:`l%=d%:.g:|
00007f20  e1 0d a7 11 1d dd f2 5f  63 3a c8 99 26 34 30 30  |......._c:..&400|
00007f30  43 46 2c 2c 68 25 3a e7  60 6c 25 3c 30 8c 0d a7  |CF,,h%:.`l%<0...|
00007f40  35 1b e7 68 25 21 31 32  3c 3e 5f 6c 25 84 28 68  |5..h%!12<>_l%.(h|
00007f50  25 21 38 80 37 29 3d 30  8c 0d a7 3e 14 f2 60 63  |%!8.7)=0...>..`c|
00007f60  3a c8 99 26 34 34 41 44  39 2c 2c 2d 32 0d a7 59  |:..&44AD9,,-2..Y|
00007f70  05 cd 0d a7 59 28 cc 3a  e7 68 25 21 31 32 3c 3e  |....Y(.:.h%!12<>|
00007f80  5f 6c 25 84 68 25 21 31  36 3c 3e 60 6c 25 84 28  |_l%.h%!16<>`l%.(|
00007f90  68 25 21 38 80 37 29 3d  30 8c 0d a7 6b 1c f2 60  |h%!8.7)=0...k..`|
00007fa0  63 3a c8 99 26 34 34 41  44 44 2c 33 2c 5f 6c 25  |c:..&44ADD,3,_l%|
00007fb0  2c 60 6c 25 2c 30 0d a7  86 05 cd 0d a7 86 05 cd  |,`l%,0..........|
00007fc0  0d a7 8f 05 e1 0d a7 98  0f dd f2 60 63 3a c8 8e  |...........`c:..|
00007fd0  5f 6c 25 ca 0d a7 b3 10  c9 6f 25 3a f2 67 62 28  |_l%......o%:.gb(|
00007fe0  60 6c 25 29 0d a7 c5 10  c9 6b 25 3a f2 65 63 28  |`l%).....k%:.ec(|
00007ff0  60 6c 25 29 0d a7 ce 11  c9 4d 66 25 3a f2 43 62  |`l%).....Mf%:.Cb|
00008000  28 60 6c 25 29 0d a7 d7  10 c9 74 25 3a f2 42 63  |(`l%).....t%:.Bc|
00008010  28 60 6c 25 29 0d a7 e0  10 c9 6c 25 3a f2 77 62  |(`l%).....l%:.wb|
00008020  28 60 6c 25 29 0d a7 e9  10 c9 6d 25 3a f2 61 64  |(`l%).....m%:.ad|
00008030  28 60 6c 25 29 0d a7 f2  11 c9 76 64 25 3a f2 62  |(`l%).....vd%:.b|
00008040  64 28 60 6c 25 29 0d a7  fb 11 c9 5f 61 25 3a f2  |d(`l%)....._a%:.|
00008050  63 64 28 60 6c 25 29 0d  a8 04 05 cb 0d a8 04 0e  |cd(`l%).........|
00008060  50 61 25 3d a3 3a f2 67  3a e1 0d a8 1f 12 dd f2  |Pa%=.:.g:.......|
00008070  62 62 3a ea 41 25 3a e7  7a 61 25 8c 0d a8 43 09  |bb:.A%:.za%...C.|
00008080  7a 61 25 3d a3 0d a8 55  11 cc 3a e7 55 61 25 3c  |za%=...U..:.Ua%<|
00008090  3e 30 8c f2 64 64 0d a8  5e 0c e7 50 61 25 8c f2  |>0..dd..^..Pa%..|
000080a0  5f 63 0d a8 67 0c e7 4c  61 25 8c f2 77 63 0d a8  |_c..g..La%..wc..|
000080b0  70 19 e7 71 61 25 8c f2  45 28 c6 8f 2c 28 63 6c  |p..qa%..E(..,(cl|
000080c0  25 80 71 61 25 29 29 0d  a8 79 0c e7 49 61 25 8c  |%.qa%))..y..Ia%.|
000080d0  f2 59 63 0d a8 82 0c e7  4b 61 25 8c f2 61 62 0d  |.Yc.....Ka%..ab.|
000080e0  a8 8b 0c e7 54 61 25 8c  f2 67 63 0d a8 94 0c e7  |....Ta%..gc.....|
000080f0  51 61 25 8c f2 74 62 0d  a8 9d 0c e7 79 62 25 8c  |Qa%..tb.....yb%.|
00008100  f2 64 62 0d a8 a6 0c e7  4b 62 25 8c f2 68 63 0d  |.db.....Kb%..hc.|
00008110  a8 af 0c e7 52 61 25 8c  f2 65 64 0d a8 b8 0c e7  |....Ra%..ed.....|
00008120  76 63 25 8c f2 4d 63 0d  a8 c1 05 cd 0d a8 ca 2e  |vc%..Mc.........|
00008130  41 25 3d 26 32 30 2b 26  32 30 2b 26 32 3a c8 99  |A%=&20+&20+&2:..|
00008140  41 25 b8 41 25 3a e7 75  62 25 3d 2d 31 8c 75 62  |A%.A%:.ub%=-1.ub|
00008150  25 3d 41 25 2b 38 39 39  37 35 0d a8 e5 1e e7 41  |%=A%+89975.....A|
00008160  25 3e 75 62 25 8c f2 62  28 bd 28 31 31 37 29 2c  |%>ub%..b(.(117),|
00008170  b9 29 3a 76 61 25 3d b9  0d a8 ee 05 e1 0d a8 f7  |.):va%=.........|
00008180  43 dd f2 59 63 3a ea 58  25 2c 59 25 2c 42 25 2c  |C..Yc:.X%,Y%,B%,|
00008190  63 25 3a c8 97 58 25 2c  59 25 2c 42 25 3a c8 99  |c%:..X%,Y%,B%:..|
000081a0  26 34 34 41 44 34 2c 30  2c 71 63 25 2c 72 63 25  |&44AD4,0,qc%,rc%|
000081b0  2c 58 25 2c 59 25 b8 63  25 3a c8 8e 71 63 25 ca  |,X%,Y%.c%:..qc%.|
000081c0  0d a9 48 0e c9 6d 25 3a  c8 8e 72 63 25 ca 0d a9  |..H..m%:..rc%...|
000081d0  5a 54 c9 68 65 25 3a c8  99 26 34 34 41 43 42 2c  |ZT.he%:..&44ACB,|
000081e0  6d 25 2c 67 65 25 2c 28  63 25 2d 31 32 38 29 2a  |m%,ge%,(c%-128)*|
000081f0  34 30 39 36 2f 31 32 38  3a c8 99 26 34 30 31 38  |4096/128:..&4018|
00008200  37 2c 28 63 25 2d 31 32  38 29 2a 34 30 39 36 2f  |7,(c%-128)*4096/|
00008210  31 32 38 2b 79 61 25 3a  73 63 25 3d 2d 31 3a f2  |128+ya%:sc%=-1:.|
00008220  4d 63 0d a9 90 10 c9 69  65 25 3a f2 66 64 28 63  |Mc.....ie%:.fd(c|
00008230  25 29 0d a9 a2 05 cb 0d  a9 a2 0e c9 74 25 3a c8  |%)..........t%:.|
00008240  8e 72 63 25 ca 0d a9 b4  14 c9 6f 66 25 3a f2 64  |.rc%......of%:.d|
00008250  28 28 63 25 2b 34 30 29  29 0d a9 c6 0f c9 71 66  |((c%+40)).....qf|
00008260  25 3a f2 71 28 63 25 29  0d a9 cf 05 cb 0d a9 cf  |%:.q(c%)........|
00008270  0e c9 6f 25 3a c8 8e 72  63 25 ca 0d a9 e1 14 c9  |..o%:..rc%......|
00008280  67 67 25 3a f2 64 28 28  63 25 2b 34 30 29 29 0d  |gg%:.d((c%+40)).|
00008290  a9 f3 0f c9 60 66 25 3a  f2 71 28 63 25 29 0d a9  |....`f%:.q(c%)..|
000082a0  fc 05 cb 0d a9 fc 0e c9  6c 25 3a c8 8e 72 63 25  |........l%:..rc%|
000082b0  ca 0d aa 0e 14 c9 75 68  25 3a f2 64 28 28 63 25  |......uh%:.d((c%|
000082c0  2b 34 30 29 29 0d aa 20  0f c9 79 68 25 3a f2 71  |+40)).. ..yh%:.q|
000082d0  28 63 25 29 0d aa 29 05  cb 0d aa 29 0e c9 6b 25  |(c%)..)....)..k%|
000082e0  3a c8 8e 72 63 25 ca 0d  aa 3b 14 c9 51 67 25 3a  |:..rc%...;..Qg%:|
000082f0  f2 64 28 28 63 25 2b 34  30 29 29 0d aa 4d 0f c9  |.d((c%+40))..M..|
00008300  4f 67 25 3a f2 71 28 63  25 29 0d aa 56 05 cb 0d  |Og%:.q(c%)..V...|
00008310  aa 56 05 cb 0d aa 5f 05  e1 0d aa 68 38 dd f2 67  |.V...._....h8..g|
00008320  64 28 41 25 29 3a 21 68  25 3d 41 25 3a c8 99 26  |d(A%):!h%=A%:..&|
00008330  34 30 30 43 42 2c 2c 68  25 3a 68 25 21 32 38 3d  |400CB,,h%:h%!28=|
00008340  2d 31 3a c8 99 26 34 30  30 43 35 2c 2c 68 25 3a  |-1:..&400C5,,h%:|
00008350  e1 0d aa a7 20 dd f2 44  63 28 73 25 29 3a c8 99  |.... ..Dc(s%):..|
00008360  26 34 34 41 45 37 2c 30  2c 73 25 2c 4e 68 25 3a  |&44AE7,0,s%,Nh%:|
00008370  e1 0d aa cb 34 dd f2 4b  63 28 73 25 29 3a ea 61  |....4..Kc(s%):.a|
00008380  6d 25 3a c8 99 26 34 30  30 43 46 2c 2c 67 25 3a  |m%:..&400CF,,g%:|
00008390  e7 28 67 25 21 38 80 31  29 8c 61 6d 25 3d 31 8b  |.(g%!8.1).am%=1.|
000083a0  61 6d 25 3d 32 0d aa f8  0d e7 73 25 21 34 3d 2d  |am%=2.....s%!4=-|
000083b0  31 8c 0d ab 01 0a c8 8e  62 6d 25 ca 0d ab 0a 0f  |1.......bm%.....|
000083c0  c9 57 68 25 3a c8 8e 21  73 25 ca 0d ab 1c 2a c9  |.Wh%:..!s%....*.|
000083d0  30 3a c8 99 26 34 30 30  44 34 2c 2c 6b 64 25 2c  |0:..&400D4,,kd%,|
000083e0  67 25 21 30 2d 35 30 2c  67 25 21 34 2b 35 30 3a  |g%!0-50,g%!4+50:|
000083f0  61 6d 25 3d 33 0d ab 2e  0a c9 31 3a f2 68 64 0d  |am%=3.....1:.hd.|
00008400  ab 37 0a c9 32 3a f2 69  64 0d ab 40 05 cb 0d ab  |.7..2:.id..@....|
00008410  40 11 c9 58 68 25 3a f2  6a 64 28 21 73 25 29 0d  |@..Xh%:.jd(!s%).|
00008420  ab 52 11 c9 59 68 25 3a  f2 48 62 28 21 73 25 29  |.R..Yh%:.Hb(!s%)|
00008430  0d ab 5b 05 cb 0d ab 5b  05 cd 0d ab 64 0a c8 8e  |..[....[....d...|
00008440  61 6d 25 ca 0d ab 6d 14  c9 31 3a c8 99 26 34 30  |am%...m..1:..&40|
00008450  30 44 34 2c 2c 62 6d 25  0d ab 7f 13 c9 32 3a c8  |0D4,,bm%.....2:.|
00008460  99 26 34 30 30 44 34 2c  2c 2d 31 0d ab 88 05 cb  |.&400D4,,-1.....|
00008470  0d ab 88 05 e1 0d ab 91  2d dd f2 60 28 41 25 2c  |........-..`(A%,|
00008480  58 25 2c 59 25 29 3a c8  99 26 34 30 30 44 34 2c  |X%,Y%):..&400D4,|
00008490  2c 41 25 2c 58 25 2c 59  25 3a 62 6d 25 3d 41 25  |,A%,X%,Y%:bm%=A%|
000084a0  3a e1 0d ab be 27 dd f2  68 28 41 25 29 3a 67 25  |:....'..h(A%):g%|
000084b0  21 30 3d 41 25 3a c8 99  26 34 34 41 45 37 2c 31  |!0=A%:..&44AE7,1|
000084c0  2c 67 25 2c 4e 68 25 3a  e1 0d ab eb 13 dd f2 4a  |,g%,Nh%:.......J|
000084d0  63 28 73 25 29 3a c8 8e  21 73 25 ca 0d ac 06 18  |c(s%):..!s%.....|
000084e0  c9 76 64 25 3a f2 6b 64  28 73 25 21 34 2c 73 25  |.vd%:.kd(s%!4,s%|
000084f0  21 32 34 29 0d ac 18 17  c9 6b 25 3a f2 6b 63 28  |!24).....k%:.kc(|
00008500  73 25 21 34 2c 73 25 21  32 34 29 0d ac 21 14 7f  |s%!4,s%!24)..!..|
00008510  3a c8 99 26 34 30 30 44  43 2c 73 25 21 32 34 0d  |:..&400DC,s%!24.|
00008520  ac 2a 05 cb 0d ac 2a 05  e1 0d ac 33 4d dd f2 67  |.*....*....3M..g|
00008530  3a e7 4c 61 25 84 28 55  61 25 3c 3e 30 29 84 51  |:.La%.(Ua%<>0).Q|
00008540  61 25 84 50 61 25 84 79  62 25 84 4b 62 25 84 71  |a%.Pa%.yb%.Kb%.q|
00008550  61 25 84 49 61 25 84 4b  61 25 84 52 61 25 84 54  |a%.Ia%.Ka%.Ra%.T|
00008560  61 25 84 76 63 25 8c 4d  61 25 3d 4e 61 25 8b 4d  |a%.vc%.Ma%=Na%.M|
00008570  61 25 3d 4f 61 25 0d ac  4e 05 e1 0d ac 57 44 dd  |a%=Oa%..N....WD.|
00008580  f2 47 28 6e 25 2c 64 25  2c 58 25 2c 59 25 29 3a  |.G(n%,d%,X%,Y%):|
00008590  c8 99 26 34 34 41 44 34  2c 33 2c 6e 25 2c 64 25  |..&44AD4,3,n%,d%|
000085a0  2c 58 25 2c 59 25 3a 72  63 25 3d 64 25 3a 71 63  |,X%,Y%:rc%=d%:qc|
000085b0  25 3d 6e 25 3a 49 61 25  3d b9 3a f2 67 3a e1 0d  |%=n%:Ia%=.:.g:..|
000085c0  ac 9f b4 dd f2 63 61 3a  ea 63 6d 25 3a c8 99 26  |.....ca:.cm%:..&|
000085d0  33 35 2c 2d 31 2c 34 b8  2c 2c 6e 6b 25 3a c8 99  |35,-1,4.,,nk%:..|
000085e0  26 33 35 2c 2d 31 2c 35  b8 2c 2c 64 6d 25 3a c8  |&35,-1,5.,,dm%:.|
000085f0  99 26 33 35 2c 2d 31 2c  39 b8 2c 2c 63 6d 25 3a  |.&35,-1,9.,,cm%:|
00008600  c8 99 26 33 35 2c 2d 31  2c 31 31 b8 2c 2c 65 6d  |..&35,-1,11.,,em|
00008610  25 3a c8 99 26 33 35 2c  2d 31 2c 31 32 b8 2c 2c  |%:..&35,-1,12.,,|
00008620  66 6d 25 3a 6e 6b 25 3d  32 5e 6e 6b 25 3a 64 6d  |fm%:nk%=2^nk%:dm|
00008630  25 3d 32 5e 64 6d 25 3a  65 6d 25 3d 28 65 6d 25  |%=2^dm%:em%=(em%|
00008640  2b 31 29 2a 6e 6b 25 3a  66 6d 25 3d 28 66 6d 25  |+1)*nk%:fm%=(fm%|
00008650  2b 31 29 2a 64 6d 25 3a  e7 66 6d 25 3c 3e 78 63  |+1)*dm%:.fm%<>xc|
00008660  25 84 65 6d 25 3c 3e 77  63 25 8c 52 61 25 3d b9  |%.em%<>wc%.Ra%=.|
00008670  3a f2 67 0d ad 1d 3c 78  63 25 3d 66 6d 25 3a 77  |:.g...<xc%=fm%:w|
00008680  63 25 3d 65 6d 25 3a e7  ac 28 28 6e 6b 25 3c 3e  |c%=em%:..((nk%<>|
00008690  21 4e 69 25 29 84 28 64  6d 25 3c 3e 21 4f 69 25  |!Ni%).(dm%<>!Oi%|
000086a0  29 84 28 63 6d 25 3c 3e  79 63 25 29 29 8c e1 0d  |).(cm%<>yc%))...|
000086b0  ad 2f 26 79 63 25 3d 63  6d 25 3a 21 4e 69 25 3d  |./&yc%=cm%:!Ni%=|
000086c0  6e 6b 25 3a 21 4f 69 25  3d 64 6d 25 3a e7 77 25  |nk%:!Oi%=dm%:.w%|
000086d0  3d 31 8c f2 7a 0d ad 5c  11 f2 49 62 3a e7 77 25  |=1..z..\..Ib:.w%|
000086e0  3d 32 8c f2 72 62 0d ad  6e 0d e7 77 25 3d 33 8c  |=2..rb..n..w%=3.|
000086f0  f2 58 62 0d ad 77 05 e1  0d ad 80 2b dd f2 43 63  |.Xb..w.....+..Cc|
00008700  28 73 25 29 3a ea 58 25  2c 59 25 2c 41 25 2c 48  |(s%):.X%,Y%,A%,H|
00008710  25 2c 4a 25 3a 21 67 25  3d 21 73 25 3a c8 8e 21  |%,J%:!g%=!s%:..!|
00008720  67 25 ca 0d ad ad 0c c9  6a 64 25 3a f2 6c 64 0d  |g%......jd%:.ld.|
00008730  ad bf 4f 7f 3a c8 99 26  34 30 30 43 38 2c 30 2c  |..O.:..&400C8,0,|
00008740  67 25 b8 41 25 3a 48 25  3d 67 25 21 34 2d 67 25  |g%.A%:H%=g%!4-g%|
00008750  21 32 30 3a 4a 25 3d 67  25 21 31 36 2d 67 25 21  |!20:J%=g%!16-g%!|
00008760  32 34 3a c8 95 41 25 3c  3e 30 3a c8 99 26 34 34  |24:..A%<>0:..&44|
00008770  41 43 44 2c 2c 67 25 3a  c8 8e 21 67 25 ca 0d ad  |ACD,,g%:..!g%...|
00008780  f5 12 c9 74 25 3a f2 7a  63 28 48 25 2c 4a 25 29  |...t%:.zc(H%,J%)|
00008790  0d ae 07 15 c9 6f 25 3a  f2 60 61 28 48 25 2c 4a  |.....o%:.`a(H%,J|
000087a0  25 2c 67 25 29 0d ae 10  15 c9 6b 25 3a f2 61 63  |%,g%).....k%:.ac|
000087b0  28 48 25 2c 4a 25 2c 67  25 29 0d ae 19 15 c9 6c  |(H%,J%,g%).....l|
000087c0  25 3a f2 73 62 28 48 25  2c 4a 25 2c 67 25 29 0d  |%:.sb(H%,J%,g%).|
000087d0  ae 22 16 c9 64 68 25 3a  f2 60 62 28 48 25 2c 4a  |."..dh%:.`b(H%,J|
000087e0  25 2c 67 25 29 0d ae 2b  05 cb 0d ae 2b 15 c8 99  |%,g%)..+....+...|
000087f0  26 34 30 30 43 41 2c 2c  67 25 b8 41 25 3a ce 0d  |&400CA,,g%.A%:..|
00008800  ae 46 05 cb 0d ae 46 29  e7 21 67 25 3d 64 68 25  |.F....F).!g%=dh%|
00008810  80 43 61 25 8c c8 99 26  34 34 41 45 33 2c 37 2c  |.Ca%...&44AE3,7,|
00008820  48 63 25 2c 64 68 25 3a  43 61 25 3d a3 0d ae 4f  |Hc%,dh%:Ca%=...O|
00008830  22 c8 99 26 34 30 2b 32  b8 42 25 3a e7 45 62 25  |"..&40+2.B%:.Eb%|
00008840  3c 30 8c 45 62 25 3d 42  25 2b 38 39 39 38 30 0d  |<0.Eb%=B%+89980.|
00008850  ae 61 0d e7 42 25 3e 3d  45 62 25 8c 0d ae 6a 21  |.a..B%>=Eb%...j!|
00008860  41 24 3d c1 33 2c 31 2c  22 59 6f 75 22 29 3a f2  |A$=.3,1,"You"):.|
00008870  62 28 41 24 2c b9 29 3a  76 61 25 3d b9 0d ae 8e  |b(A$,.):va%=....|
00008880  05 cd 0d ae 8e 05 e1 0d  ae 97 52 dd f2 65 64 3a  |..........R..ed:|
00008890  ea 65 25 3a 52 61 25 3d  a3 3a e3 65 25 3d 30 b8  |.e%:Ra%=.:.e%=0.|
000088a0  67 64 25 3a 68 25 21 30  3d 66 25 28 65 25 2c 30  |gd%:h%!0=f%(e%,0|
000088b0  29 3a c8 99 26 36 30 30  43 42 2c 2c 68 25 3a e7  |):..&600CB,,h%:.|
000088c0  28 68 25 21 33 32 80 32  5e 31 36 29 3d 32 5e 31  |(h%!32.2^16)=2^1|
000088d0  36 8c f2 6d 64 28 65 25  29 0d ae df 0a ed 3a f2  |6..md(e%).....:.|
000088e0  67 3a e1 0d ae fa 2e dd  f2 54 28 6e 25 29 3a ea  |g:.......T(n%):.|
000088f0  65 25 3a e3 65 25 3d 30  b8 67 64 25 3a e7 66 25  |e%:.e%=0.gd%:.f%|
00008900  28 65 25 2c 30 29 3d 6e  25 8c f2 6d 64 28 65 25  |(e%,0)=n%..md(e%|
00008910  29 0d af 27 07 ed 3a e1  0d af 39 80 dd f2 6d 64  |)..'..:...9...md|
00008920  28 67 6d 25 29 3a ea 68  6d 25 2c 58 25 2c 59 25  |(gm%):.hm%,X%,Y%|
00008930  2c 6e 25 2c 61 66 25 2c  53 25 2c 69 6d 25 2c 6a  |,n%,af%,S%,im%,j|
00008940  6d 25 3a 6e 25 3d 66 25  28 67 6d 25 2c 30 29 3a  |m%:n%=f%(gm%,0):|
00008950  61 66 25 3d 66 25 28 67  6d 25 2c 31 29 3a 53 25  |af%=f%(gm%,1):S%|
00008960  3d 66 25 28 67 6d 25 2c  32 29 3a 69 6d 25 3d 66  |=f%(gm%,2):im%=f|
00008970  25 28 67 6d 25 2c 33 29  3a 6a 6d 25 3d 66 25 28  |%(gm%,3):jm%=f%(|
00008980  67 6d 25 2c 34 29 3a 41  25 3d b9 3a 21 68 25 3d  |gm%,4):A%=.:!h%=|
00008990  6e 25 3a e7 42 61 25 8c  0d af 9c 11 58 25 3d 77  |n%:.Ba%.....X%=w|
000089a0  63 25 3a 59 25 3d 78 63  25 0d af ae 34 cc 3a 58  |c%:Y%=xc%...4.:X|
000089b0  25 3d 2d 31 3a 59 25 3d  2d 31 3a c8 99 26 34 30  |%=-1:Y%=-1:..&40|
000089c0  30 43 42 2c 2c 68 25 3a  e7 28 68 25 21 33 32 80  |0CB,,h%:.(h%!32.|
000089d0  32 5e 31 36 29 3c 3e 30  8c 41 25 3d a3 0d af c9  |2^16)<>0.A%=....|
000089e0  05 cd 0d af d2 12 e7 58  25 3c 61 66 25 8c 58 25  |.......X%<af%.X%|
000089f0  3d 61 66 25 0d af db 10  e7 59 25 3c 53 25 8c 59  |=af%.....Y%<S%.Y|
00008a00  25 3d 53 25 0d af e4 08  e7 41 25 8c 0d af ed 89  |%=S%.....A%.....|
00008a10  68 25 21 34 3d 77 63 25  2f 32 2d 58 25 2f 32 3a  |h%!4=wc%/2-X%/2:|
00008a20  68 25 21 38 3d 78 63 25  2f 32 2d 59 25 2f 32 3a  |h%!8=xc%/2-Y%/2:|
00008a30  68 25 21 31 32 3d 77 63  25 2f 32 2b 58 25 2f 32  |h%!12=wc%/2+X%/2|
00008a40  3a 68 25 21 31 36 3d 78  63 25 2f 32 2b 59 25 2f  |:h%!16=xc%/2+Y%/|
00008a50  32 3a 68 25 21 32 30 3d  69 6d 25 2d 58 25 2f 32  |2:h%!20=im%-X%/2|
00008a60  2b 61 66 25 2f 32 3a 68  25 21 32 34 3d 6a 6d 25  |+af%/2:h%!24=jm%|
00008a70  2b 59 25 2f 32 2d 53 25  2f 32 3a 68 25 21 32 38  |+Y%/2-S%/2:h%!28|
00008a80  3d 2d 31 3a c8 99 26 34  34 41 45 37 2c 30 2c 68  |=-1:..&44AE7,0,h|
00008a90  25 2c 4e 68 25 0d b0 3e  05 cd 0d b0 3e 0a e7 ac  |%,Nh%..>....>...|
00008aa0  42 61 25 8c 0d b0 47 48  c8 99 26 34 30 30 43 42  |Ba%...GH..&400CB|
00008ab0  2c 2c 68 25 3a 68 25 21  31 30 30 3d 6e 25 3a c8  |,,h%:h%!100=n%:.|
00008ac0  99 26 34 30 30 45 30 2c  2c 68 25 2b 31 30 30 3a  |.&400E0,,h%+100:|
00008ad0  e7 68 25 21 31 30 34 3c  30 8c 68 25 21 31 32 2d  |.h%!104<0.h%!12-|
00008ae0  3d 68 25 21 34 3a 68 25  21 34 3d 30 0d b0 6b 20  |=h%!4:h%!4=0..k |
00008af0  e7 68 25 21 31 30 38 3c  30 8c 68 25 21 31 36 2d  |.h%!108<0.h%!16-|
00008b00  3d 68 25 21 38 3a 68 25  21 38 3d 30 0d b0 74 10  |=h%!8:h%!8=0..t.|
00008b10  e7 68 25 21 31 31 32 3e  77 63 25 8c 0d b0 7d 2a  |.h%!112>wc%...}*|
00008b20  68 25 21 34 2d 3d 28 68  25 21 31 31 32 2d 77 63  |h%!4-=(h%!112-wc|
00008b30  25 29 3a 68 25 21 31 32  2d 3d 28 68 25 21 31 31  |%):h%!12-=(h%!11|
00008b40  32 2d 77 63 25 29 0d b0  98 05 cd 0d b0 98 10 e7  |2-wc%)..........|
00008b50  68 25 21 31 31 36 3e 78  63 25 8c 0d b0 a1 2a 68  |h%!116>xc%....*h|
00008b60  25 21 38 2d 3d 28 68 25  21 31 31 36 2d 78 63 25  |%!8-=(h%!116-xc%|
00008b70  29 3a 68 25 21 31 36 2d  3d 28 68 25 21 31 31 36  |):h%!16-=(h%!116|
00008b80  2d 78 63 25 29 0d b0 bc  05 cd 0d b0 bc 22 c8 99  |-xc%)........"..|
00008b90  26 34 30 30 43 36 2c 2c  68 25 3a c8 99 26 34 34  |&400C6,,h%:..&44|
00008ba0  41 45 37 2c 30 2c 68 25  2c 4e 68 25 0d b0 d7 05  |AE7,0,h%,Nh%....|
00008bb0  cd 0d b0 d7 05 e1 0d b0  e0 19 dd f2 6f 61 28 6a  |............oa(j|
00008bc0  25 29 3a ea 71 24 2c 6e  25 3a c8 8e 6a 25 ca 0d  |%):.q$,n%:..j%..|
00008bd0  b1 04 21 c9 30 3a 71 24  3d 22 53 6f 75 6e 64 20  |..!.0:q$="Sound |
00008be0  42 6f 78 20 2d 20 22 2b  43 24 3a 6e 25 3d 74 25  |Box - "+C$:n%=t%|
00008bf0  0d b1 16 20 c9 31 3a 71  24 3d 22 54 75 6e 65 20  |... .1:q$="Tune |
00008c00  42 6f 78 20 2d 20 22 2b  76 24 3a 6e 25 3d 6f 25  |Box - "+v$:n%=o%|
00008c10  0d b1 1f 21 c9 32 3a 71  24 3d 22 43 68 6f 72 64  |...!.2:q$="Chord|
00008c20  20 42 6f 78 20 2d 20 22  2b 44 24 3a 6e 25 3d 6c  | Box - "+D$:n%=l|
00008c30  25 0d b1 28 20 c9 33 3a  71 24 3d 22 42 65 61 74  |%..( .3:q$="Beat|
00008c40  20 42 6f 78 20 2d 20 22  2b 42 24 3a 6e 25 3d 6b  | Box - "+B$:n%=k|
00008c50  25 0d b1 31 05 cb 0d b1  31 21 71 24 2b 3d a4 45  |%..1....1!q$+=.E|
00008c60  28 6a 25 29 3a c8 99 26  34 34 41 45 42 2c 31 2c  |(j%):..&44AEB,1,|
00008c70  6e 25 2c 71 24 3a e1 0d  b1 4c 15 dd a4 45 28 6a  |n%,q$:...L...E(j|
00008c80  25 29 3a ea 79 25 3a c8  8e 6a 25 ca 0d b1 70 0d  |%):.y%:..j%...p.|
00008c90  c9 30 3a 79 25 3d 5a 63  25 0d b1 82 0d c9 31 3a  |.0:y%=Zc%.....1:|
00008ca0  79 25 3d 58 63 25 0d b1  8b 0d c9 32 3a 79 25 3d  |y%=Xc%.....2:y%=|
00008cb0  5f 63 25 0d b1 94 0d c9  33 3a 79 25 3d 59 63 25  |_c%.....3:y%=Yc%|
00008cc0  0d b1 9d 05 cb 0d b1 9d  11 e7 79 25 8c 3d 22 20  |..........y%.=" |
00008cd0  2a 22 8b 3d 22 22 0d b1  a6 1a dd f2 6c 28 6a 25  |*".=""......l(j%|
00008ce0  29 3a e7 a4 45 28 6a 25  29 3d 22 20 2a 22 8c e1  |):..E(j%)=" *"..|
00008cf0  0d b1 c1 09 c8 8e 6a 25  ca 0d b1 ca 0c c9 30 3a  |......j%......0:|
00008d00  5a 63 25 3d b9 0d b1 dc  0c c9 31 3a 58 63 25 3d  |Zc%=......1:Xc%=|
00008d10  b9 0d b1 e5 0c c9 32 3a  5f 63 25 3d b9 0d b1 ee  |......2:_c%=....|
00008d20  0c c9 33 3a 59 63 25 3d  b9 0d b1 f7 05 cb 0d b1  |..3:Yc%=........|
00008d30  f7 0d f2 6f 61 28 6a 25  29 3a e1 0d b2 09 28 dd  |...oa(j%):....(.|
00008d40  f2 69 64 3a e7 5a 63 25  84 5f 63 25 84 59 63 25  |.id:.Zc%._c%.Yc%|
00008d50  84 58 63 25 8c f2 6e 28  32 2c 2d 31 29 8b 76 61  |.Xc%..n(2,-1).va|
00008d60  25 3d b9 0d b2 24 05 e1  0d b2 2d 31 dd f2 50 63  |%=...$....-1..Pc|
00008d70  28 70 25 2c 64 25 29 3a  ea 54 6b 25 2c 58 25 2c  |(p%,d%):.Tk%,X%,|
00008d80  59 25 2c 42 25 2c 54 25  3a e7 70 25 3d 34 2a 31  |Y%,B%,T%:.p%=4*1|
00008d90  36 80 64 25 3d 6e 64 25  8c 0d b2 5a 05 e1 0d b2  |6.d%=nd%...Z....|
00008da0  6c 05 cd 0d b2 75 0b e7  70 25 3e 37 8c e1 0d b2  |l....u..p%>7....|
00008db0  7e 09 c8 8e 64 25 ca 0d  b2 90 13 c9 70 64 25 3a  |~...d%......pd%:|
00008dc0  f2 65 28 76 64 25 2c 64  25 29 0d b2 a2 13 c9 71  |.e(vd%,d%).....q|
00008dd0  64 25 3a f2 65 28 76 64  25 2c 64 25 29 0d b2 ab  |d%:.e(vd%,d%)...|
00008de0  42 c9 37 3a c8 99 26 34  34 41 44 44 2c 32 2c 76  |B.7:..&44ADD,2,v|
00008df0  64 25 2c 6f 64 25 2c 22  43 6f 6d 70 65 74 69 74  |d%,od%,"Competit|
00008e00  69 6f 6e 22 3a c8 99 26  34 30 30 44 32 2c 76 64  |ion":..&400D2,vd|
00008e10  25 2c 6f 64 25 2c 30 2c  30 2c 2d 31 2c 31 31 0d  |%,od%,0,0,-1,11.|
00008e20  b2 c6 05 cb 0d b2 c6 05  e1 0d b2 cf 1a dd f2 76  |...............v|
00008e30  28 6e 25 2c 6b 6d 25 29  3a ea 79 25 3a c8 8e 6b  |(n%,km%):.y%:..k|
00008e40  6d 25 ca 0d b2 f3 0d c9  31 3a 79 25 3d 58 63 25  |m%......1:y%=Xc%|
00008e50  0d b3 05 0d c9 33 3a 79  25 3d 59 63 25 0d b3 0e  |.....3:y%=Yc%...|
00008e60  0d c9 35 3a 79 25 3d 5f  63 25 0d b3 17 0d c9 37  |..5:y%=_c%.....7|
00008e70  3a 79 25 3d 5a 63 25 0d  b3 20 0a 7f 3a 79 25 3d  |:y%=Zc%.. ..:y%=|
00008e80  a3 0d b3 29 05 cb 0d b3  29 08 e7 79 25 8c 0d b3  |...)....)..y%...|
00008e90  32 1b 6c 6d 25 3d 6e 25  3a 6d 6d 25 3d 6b 6d 25  |2.lm%=n%:mm%=km%|
00008ea0  3a f2 6e 28 33 2c 2d 32  29 0d b3 56 11 cc 3a f2  |:.n(3,-2)..V..:.|
00008eb0  6e 64 28 6e 25 2c 6b 6d  25 29 0d b3 68 05 cd 0d  |nd(n%,km%)..h...|
00008ec0  b3 68 05 e1 0d b3 71 26  dd f2 6e 64 28 6e 25 2c  |.h....q&..nd(n%,|
00008ed0  6b 6d 25 29 3a ea 63 24  2c 74 24 2c 61 24 3a e7  |km%):.c$,t$,a$:.|
00008ee0  28 6b 6d 25 80 31 29 3d  31 8c 0d b3 95 18 63 24  |(km%.1)=1.....c$|
00008ef0  3d 22 4c 6f 61 64 22 3a  e7 ac 6e 6d 25 8c f2 49  |="Load":..nm%..I|
00008f00  3a e1 0d b3 a7 1a cc 3a  63 24 3d 22 53 61 76 65  |:......:c$="Save|
00008f10  22 3a e7 ac 6f 6d 25 8c  f2 49 3a e1 0d b3 c2 05  |":..om%..I:.....|
00008f20  cd 0d b3 cb 0a c8 8e 6b  6d 25 ca 0d b3 d4 18 c9  |.......km%......|
00008f30  30 2c 31 3a 74 24 3d 22  54 75 6e 65 22 3a 61 24  |0,1:t$="Tune":a$|
00008f40  3d 76 24 0d b3 e6 18 c9  32 2c 33 3a 74 24 3d 22  |=v$.....2,3:t$="|
00008f50  42 65 61 74 22 3a 61 24  3d 42 24 0d b3 ef 19 c9  |Beat":a$=B$.....|
00008f60  34 2c 35 3a 74 24 3d 22  43 68 6f 72 64 22 3a 61  |4,5:t$="Chord":a|
00008f70  24 3d 44 24 0d b3 f8 19  c9 36 2c 37 3a 74 24 3d  |$=D$.....6,7:t$=|
00008f80  22 53 6f 75 6e 64 22 3a  61 24 3d 43 24 0d b4 01  |"Sound":a$=C$...|
00008f90  05 cb 0d b4 01 14 e7 63  24 3d 22 4c 6f 61 64 22  |.......c$="Load"|
00008fa0  8c 61 24 3d 22 22 0d b4  0a 22 c8 99 26 34 34 41  |.a$=""..."..&44A|
00008fb0  44 44 2c 32 2c 76 64 25  2c 6f 64 25 2c 61 24 3a  |DD,2,vd%,od%,a$:|
00008fc0  e7 a4 57 28 74 24 29 8c  0d b4 1c 5e 6c 6d 25 3d  |..W(t$)....^lm%=|
00008fd0  6e 25 3a 70 6d 25 3d 6b  6d 25 3a c8 99 26 34 34  |n%:pm%=km%:..&44|
00008fe0  41 45 42 2c 31 2c 76 64  25 2c 63 24 2b 22 20 46  |AEB,1,vd%,c$+" F|
00008ff0  69 6c 65 22 3a c8 99 26  34 34 41 45 37 2c 32 2c  |ile":..&44AE7,2,|
00009000  76 64 25 2c 4e 68 25 2c  2d 31 2c 30 3a c8 99 26  |vd%,Nh%,-1,0:..&|
00009010  34 30 30 44 32 2c 76 64  25 2c 6f 64 25 2c 30 2c  |400D2,vd%,od%,0,|
00009020  30 2c 2d 31 2c 30 0d b4  52 05 cd 0d b4 52 05 e1  |0,-1,0..R....R..|
00009030  0d b4 5b 15 dd f2 72 3a  f2 68 28 76 64 25 29 3a  |..[...r:.h(vd%):|
00009040  f2 6f 64 3a e1 0d b4 88  79 dd a4 57 28 63 24 29  |.od:....y..W(c$)|
00009050  3a ea 4e 25 2c 75 24 2c  61 24 2c 41 25 2c 42 25  |:.N%,u$,a$,A%,B%|
00009060  3a f2 6f 64 3a c8 99 26  32 30 30 32 33 2c 22 4d  |:.od:..&20023,"M|
00009070  42 22 2b 63 24 2b 22 46  69 6c 65 73 24 44 69 72  |B"+c$+"Files$Dir|
00009080  22 2c 68 25 2c 2d 31 2c  30 2c 30 b8 2c 2c 41 25  |",h%,-1,0,0.,,A%|
00009090  3a e7 41 25 3e 3d 30 8c  ff 28 22 2a 53 45 54 20  |:.A%>=0..("*SET |
000090a0  4d 42 22 2b 63 24 2b 22  46 69 6c 65 73 24 44 69  |MB"+c$+"Files$Di|
000090b0  72 20 22 2b 6b 24 2b 22  2e 22 2b 63 24 29 0d b4  |r "+k$+"."+c$)..|
000090c0  be 42 75 24 3d 22 3c 4d  42 22 2b 63 24 2b 22 46  |.Bu$="<MB"+c$+"F|
000090d0  69 6c 65 73 24 44 69 72  3e 22 3a c8 99 26 38 2c  |iles$Dir>":..&8,|
000090e0  31 37 2c 75 24 b8 4e 25  3a e7 4e 25 3d 30 8c c8  |17,u$.N%:.N%=0..|
000090f0  99 26 32 30 30 30 38 2c  38 2c 75 24 2c 2c 2c 30  |.&20008,8,u$,,,0|
00009100  0d b4 d9 76 c8 99 26 38  2c 31 37 2c 75 24 b8 4e  |...v..&8,17,u$.N|
00009110  25 3a e7 4e 25 3c 3e 32  8c f2 62 28 22 4c 6f 61  |%:.N%<>2..b("Loa|
00009120  64 20 2f 20 53 61 76 65  20 77 69 6e 64 6f 77 20  |d / Save window |
00009130  63 61 6e 20 6e 6f 74 20  62 65 20 6f 70 65 6e 65  |can not be opene|
00009140  64 20 62 65 63 61 75 73  65 20 6e 6f 20 27 21 4d  |d because no '!M|
00009150  42 46 69 6c 65 73 27 20  64 69 72 65 63 74 6f 72  |BFiles' director|
00009160  79 20 63 61 6e 20 62 65  20 66 6f 75 6e 64 2e 22  |y can be found."|
00009170  2c a3 29 3a 3d a3 0d b4  eb 51 21 67 25 3d 31 3a  |,.):=....Q!g%=1:|
00009180  67 25 21 34 3d 44 61 25  3a c8 99 26 36 34 41 45  |g%!4=Da%:..&64AE|
00009190  41 2c 30 2c 75 24 2c 67  25 2c 22 2a 22 2c 70 61  |A,0,u$,g%,"*",pa|
000091a0  25 b8 41 25 2c 56 62 25  3b 50 25 3a e7 28 50 25  |%.A%,Vb%;P%:.(P%|
000091b0  80 31 29 3d 31 8c f2 62  28 a4 63 28 41 25 2b 34  |.1)=1..b(.c(A%+4|
000091c0  29 2c a3 29 3a 3d a3 0d  b5 0f 4d e7 41 25 3d 2d  |),.):=....M.A%=-|
000091d0  31 8c f2 63 28 22 44 75  65 20 74 6f 20 6c 61 63  |1..c("Due to lac|
000091e0  6b 20 6f 66 20 6d 65 6d  6f 72 79 2c 20 74 68 65  |k of memory, the|
000091f0  20 6c 69 73 74 20 6f 66  20 66 69 6c 65 73 20 68  | list of files h|
00009200  61 73 20 62 65 65 6e 20  74 72 75 6e 63 61 74 65  |as been truncate|
00009210  64 2e 22 29 0d b5 18 43  21 53 68 25 3d 21 28 21  |d.")...C!Sh%=!(!|
00009220  56 62 25 29 3a 51 68 25  21 38 3d 56 62 25 3a c8  |Vb%):Qh%!8=Vb%:.|
00009230  99 26 34 34 41 45 38 2c  30 2c 54 68 25 2c 51 68  |.&44AE8,0,Th%,Qh|
00009240  25 3a 6a 64 25 3d 21 51  68 25 3a 21 50 68 25 3d  |%:jd%=!Qh%:!Ph%=|
00009250  21 51 68 25 3a 3d b9 0d  b5 69 4f dd f2 6c 64 3a  |!Qh%:=...iO..ld:|
00009260  21 67 25 3d 6a 64 25 3a  67 25 21 37 36 3d 2d 32  |!g%=jd%:g%!76=-2|
00009270  3a c8 99 26 34 34 41 45  38 2c 33 2c 67 25 2c 51  |:..&44AE8,3,g%,Q|
00009280  68 25 b8 41 25 3a c8 95  41 25 3c 3e 30 3a c8 99  |h%.A%:..A%<>0:..|
00009290  26 34 34 41 45 38 2c 33  2c 67 25 2c 51 68 25 b8  |&44AE8,3,g%,Qh%.|
000092a0  41 25 3a ce 3a e1 0d b5  a8 11 dd f2 6f 64 3a e7  |A%:.:.......od:.|
000092b0  6a 64 25 3c 3e 30 8c 0d  b5 c3 1e 21 67 25 3d 6a  |jd%<>0.....!g%=j|
000092c0  64 25 3a c8 99 26 34 30  30 43 33 2c 2c 67 25 3a  |d%:..&400C3,,g%:|
000092d0  6a 64 25 3d 30 0d b5 e7  05 cd 0d b5 e7 0c e7 56  |jd%=0..........V|
000092e0  62 25 3c 3e 30 8c 0d b5  f0 17 c8 99 26 34 34 41  |b%<>0.......&44A|
000092f0  43 33 2c 2c 56 62 25 3a  56 62 25 3d 30 0d b6 0b  |C3,,Vb%:Vb%=0...|
00009300  05 cd 0d b6 0b 05 e1 0d  b6 14 12 dd f2 62 64 28  |.............bd(|
00009310  64 25 29 3a c8 8e 64 25  ca 0d b6 2f 0c c9 70 64  |d%):..d%.../..pd|
00009320  25 3a f2 70 64 0d b6 41  0b c9 71 64 25 3a f2 72  |%:.pd..A..qd%:.r|
00009330  0d b6 4a 05 cb 0d b6 4a  05 e1 0d b6 53 3d dd f2  |..J....J....S=..|
00009340  57 63 28 70 25 2c 58 25  2c 59 25 29 3a c8 99 26  |Wc(p%,X%,Y%):..&|
00009350  34 34 41 45 38 2c 32 2c  2c 51 68 25 2c 58 25 2c  |44AE8,2,,Qh%,X%,|
00009360  59 25 b8 2c 2c 2c 58 25  2c 59 25 3a e7 58 25 3d  |Y%.,,,X%,Y%:.X%=|
00009370  30 80 59 25 3e 30 8c 0d  b6 77 63 c8 99 26 34 34  |0.Y%>0...wc..&44|
00009380  41 44 44 2c 32 2c 76 64  25 2c 6f 64 25 2c 28 21  |ADD,2,vd%,od%,(!|
00009390  56 62 25 2b 34 2b 31 36  2a 59 25 2d 31 36 29 3a  |Vb%+4+16*Y%-16):|
000093a0  c8 99 26 34 30 30 44 32  2c 76 64 25 2c 6f 64 25  |..&400D2,vd%,od%|
000093b0  2c 30 2c 30 2c 2d 31 2c  a9 28 a4 63 28 21 56 62  |,0,0,-1,.(.c(!Vb|
000093c0  25 2b 34 2b 31 36 2a 59  25 2d 31 36 29 29 3a e7  |%+4+16*Y%-16)):.|
000093d0  28 70 25 80 35 29 3c 3e  30 8c 0d b6 92 07 f2 70  |(p%.5)<>0......p|
000093e0  64 0d b6 a4 44 cc 3a 3f  28 21 56 62 25 2b 34 2b  |d...D.:?(!Vb%+4+|
000093f0  31 36 2a 59 25 2d 34 29  3d 31 3a f2 71 64 28 58  |16*Y%-4)=1:.qd(X|
00009400  25 2c 59 25 29 3a f2 5a  63 28 22 46 4e 41 28 22  |%,Y%):.Zc("FNA("|
00009410  2b c3 28 58 25 29 2b 22  2c 22 2b c3 28 59 25 29  |+.(X%)+","+.(Y%)|
00009420  2b 22 29 22 29 0d b6 c8  05 cd 0d b6 c8 05 cd 0d  |+")")...........|
00009430  b6 d1 05 e1 0d b6 da 30  dd a4 41 28 58 25 2c 59  |.......0..A(X%,Y|
00009440  25 29 3a 3f 28 21 56 62  25 2b 34 2b 31 36 2a 59  |%):?(!Vb%+4+16*Y|
00009450  25 2d 34 29 3d 30 3a f2  71 64 28 58 25 2c 59 25  |%-4)=0:.qd(X%,Y%|
00009460  29 3a 3d 30 0d b7 22 4b  dd f2 71 64 28 58 25 2c  |):=0.."K..qd(X%,|
00009470  59 25 29 3a c8 99 26 34  34 41 45 38 2c 34 2c 67  |Y%):..&44AE8,4,g|
00009480  25 2c 51 68 25 2c 58 25  2c 59 25 b8 41 25 3a c8  |%,Qh%,X%,Y%.A%:.|
00009490  95 41 25 3c 3e 30 3a c8  99 26 34 34 41 45 38 2c  |.A%<>0:..&44AE8,|
000094a0  33 2c 67 25 2c 51 68 25  b8 41 25 3a ce 3a e1 0d  |3,g%,Qh%.A%:.:..|
000094b0  b7 4f 64 dd f2 70 64 3a  ea 61 24 3a c8 99 26 34  |.Od..pd:.a$:..&4|
000094c0  34 41 44 45 2c 32 2c 76  64 25 2c 6f 64 25 2c 68  |4ADE,2,vd%,od%,h|
000094d0  25 2c 32 35 36 3a 61 24  3d a4 63 28 68 25 29 3a  |%,256:a$=.c(h%):|
000094e0  e7 61 24 3d 22 22 8c f2  63 28 22 50 6c 65 61 73  |.a$=""..c("Pleas|
000094f0  65 20 74 79 70 65 20 61  20 6e 61 6d 65 20 69 6e  |e type a name in|
00009500  20 74 68 65 20 77 68 69  74 65 20 62 6f 78 2e 22  | the white box."|
00009510  29 3a e1 0d b7 85 1c e7  61 24 3d 22 43 6f 6d 70  |):......a$="Comp|
00009520  65 74 69 74 69 6f 6e 22  80 70 6d 25 3d 30 8c 0d  |etition".pm%=0..|
00009530  b7 8e 13 41 25 3d a4 58  28 61 24 29 3a c8 8e 41  |...A%=.X(a$):..A|
00009540  25 ca 0d b7 a0 0f c9 31  3a f2 6e 28 34 2c 2d 34  |%......1:.n(4,-4|
00009550  29 0d b7 b2 0e c9 32 3a  f2 72 64 28 61 24 29 0d  |).....2:.rd(a$).|
00009560  b7 bb 05 cb 0d b7 bb 0d  cc 3a f2 72 64 28 61 24  |.........:.rd(a$|
00009570  29 0d b7 d6 05 cd 0d b7  d6 05 e1 0d b7 df 97 dd  |)...............|
00009580  f2 73 64 3a ea 61 24 2c  6c 24 3a c8 99 26 34 34  |.sd:.a$,l$:..&44|
00009590  41 44 45 2c 32 2c 76 64  25 2c 6f 64 25 2c 68 25  |ADE,2,vd%,od%,h%|
000095a0  2c 32 35 36 3a 61 24 3d  a4 63 28 68 25 29 3a 6c  |,256:a$=.c(h%):l|
000095b0  24 3d a4 43 28 61 24 29  3a c8 99 26 32 30 30 30  |$=.C(a$):..&2000|
000095c0  38 2c 36 2c 6c 24 b8 41  25 3b 50 25 3a e7 28 50  |8,6,l$.A%;P%:.(P|
000095d0  25 80 31 29 3c 3e 30 8c  f2 62 28 22 53 6f 72 72  |%.1)<>0..b("Sorr|
000095e0  79 20 49 20 63 61 6e 27  74 20 6f 76 65 72 77 72  |y I can't overwr|
000095f0  69 74 65 20 74 68 65 20  66 69 6c 65 2e 20 28 22  |ite the file. ("|
00009600  2b a4 63 28 41 25 2b 34  29 2b 22 29 22 2c a3 29  |+.c(A%+4)+")",.)|
00009610  3a e1 0d b8 27 0d f2 72  64 28 61 24 29 3a e1 0d  |:...'..rd(a$):..|
00009620  b8 39 1f dd f2 72 64 28  61 24 29 3a ea 6a 25 2c  |.9...rd(a$):.j%,|
00009630  41 25 3a e7 28 70 6d 25  80 31 29 3d 31 8c 0d b8  |A%:.(pm%.1)=1...|
00009640  5d 65 c8 99 26 38 2c 31  37 2c a4 43 28 61 24 29  |]e..&8,17,.C(a$)|
00009650  b8 41 25 3a e7 41 25 3c  3e 31 8c f2 63 28 22 46  |.A%:.A%<>1..c("F|
00009660  69 6c 65 20 27 22 2b 61  24 2b 22 27 20 64 6f 65  |ile '"+a$+"' doe|
00009670  73 20 6e 6f 74 20 65 78  69 73 74 2e 20 50 6c 65  |s not exist. Ple|
00009680  61 73 65 20 74 72 79 20  61 20 64 69 66 66 65 72  |ase try a differ|
00009690  65 6e 74 20 66 69 6c 65  2e 22 29 3a 6a 25 3d 2d  |ent file."):j%=-|
000096a0  32 3a e1 0d b8 6f 05 cd  0d b8 78 0a c8 8e 70 6d  |2:...o....x...pm|
000096b0  25 ca 0d b8 81 19 c9 30  3a e7 61 24 3d 22 43 6f  |%......0:.a$="Co|
000096c0  6d 70 65 74 69 74 69 6f  6e 22 8c 0d b8 93 18 f2  |mpetition"......|
000096d0  65 62 3a 76 24 3d 61 24  3a 58 63 25 3d a3 3a 6a  |eb:v$=a$:Xc%=.:j|
000096e0  25 3d 31 0d b8 a5 4e cc  3a f2 63 28 22 43 6c 69  |%=1...N.:.c("Cli|
000096f0  63 6b 20 6f 6e 20 74 68  65 20 63 6f 6d 70 65 74  |ck on the compet|
00009700  69 74 69 6f 6e 20 69 63  6f 6e 20 61 6e 64 20 4f  |ition icon and O|
00009710  4b 20 74 6f 20 73 61 76  65 20 66 72 6f 6d 20 74  |K to save from t|
00009720  68 69 73 20 64 65 6d 6f  2e 22 29 3a 6a 25 3d 2d  |his demo."):j%=-|
00009730  32 0d b8 b7 05 cd 0d b8  b7 2f c9 31 3a e7 61 24  |2......../.1:.a$|
00009740  3d 22 43 6f 6d 70 65 74  69 74 69 6f 6e 22 8c 61  |="Competition".a|
00009750  24 3d 22 3c 4d 75 73 69  63 42 6f 78 44 24 44 69  |$="<MusicBoxD$Di|
00009760  72 3e 2e 31 22 0d b8 c9  1c 76 24 3d 61 24 3a 58  |r>.1"....v$=a$:X|
00009770  63 25 3d a3 3a 6a 25 3d  31 3a f2 66 62 28 61 24  |c%=.:j%=1:.fb(a$|
00009780  29 0d b8 e4 42 c9 32 3a  f2 63 28 22 59 6f 75 20  |)...B.2:.c("You |
00009790  63 61 6e 20 6e 6f 74 20  73 61 76 65 20 62 65 61  |can not save bea|
000097a0  74 20 62 6f 78 20 66 69  6c 65 73 20 66 72 6f 6d  |t box files from|
000097b0  20 74 68 69 73 20 64 65  6d 6f 2e 22 29 3a 6a 25  | this demo."):j%|
000097c0  3d 2d 34 0d b8 ed 19 c9  33 3a e7 61 24 3d 22 43  |=-4.....3:.a$="C|
000097d0  6f 6d 70 65 74 69 74 69  6f 6e 22 8c 0d b8 f6 3c  |ompetition"....<|
000097e0  f2 63 28 22 54 68 65 20  63 6f 6d 70 65 74 69 74  |.c("The competit|
000097f0  69 6f 6e 20 66 69 6c 65  20 6f 6e 6c 79 20 77 6f  |ion file only wo|
00009800  72 6b 73 20 69 6e 20 54  75 6e 65 20 42 6f 78 2e  |rks in Tune Box.|
00009810  22 29 3a 6a 25 3d 2d 34  0d b9 08 1e cc 3a f2 6f  |"):j%=-4.....:.o|
00009820  63 28 61 24 29 3a 42 24  3d 61 24 3a 59 63 25 3d  |c(a$):B$=a$:Yc%=|
00009830  a3 3a 6a 25 3d 33 0d b9  1a 05 cd 0d b9 1a 43 c9  |.:j%=3........C.|
00009840  34 3a f2 63 28 22 59 6f  75 20 63 61 6e 20 6e 6f  |4:.c("You can no|
00009850  74 20 73 61 76 65 20 63  68 6f 72 64 20 62 6f 78  |t save chord box|
00009860  20 66 69 6c 65 73 20 66  72 6f 6d 20 74 68 69 73  | files from this|
00009870  20 64 65 6d 6f 2e 22 29  3a 6a 25 3d 2d 33 0d b9  | demo."):j%=-3..|
00009880  2c 19 c9 35 3a e7 61 24  3d 22 43 6f 6d 70 65 74  |,..5:.a$="Compet|
00009890  69 74 69 6f 6e 22 8c 0d  b9 35 3c f2 63 28 22 54  |ition"...5<.c("T|
000098a0  68 65 20 63 6f 6d 70 65  74 69 74 69 6f 6e 20 66  |he competition f|
000098b0  69 6c 65 20 6f 6e 6c 79  20 77 6f 72 6b 73 20 69  |ile only works i|
000098c0  6e 20 54 75 6e 65 20 42  6f 78 2e 22 29 3a 6a 25  |n Tune Box."):j%|
000098d0  3d 2d 34 0d b9 47 1f cc  3a f2 46 28 61 24 2c 32  |=-4..G..:.F(a$,2|
000098e0  29 3a 44 24 3d 61 24 3a  5f 63 25 3d a3 3a 6a 25  |):D$=a$:_c%=.:j%|
000098f0  3d 32 0d b9 59 05 cd 0d  b9 59 43 c9 36 3a f2 63  |=2..Y....YC.6:.c|
00009900  28 22 59 6f 75 20 63 61  6e 20 6e 6f 74 20 73 61  |("You can not sa|
00009910  76 65 20 73 6f 75 6e 64  20 62 6f 78 20 66 69 6c  |ve sound box fil|
00009920  65 73 20 66 72 6f 6d 20  74 68 69 73 20 64 65 6d  |es from this dem|
00009930  6f 2e 22 29 3a 6a 25 3d  2d 31 0d b9 6b 19 c9 37  |o."):j%=-1..k..7|
00009940  3a e7 61 24 3d 22 43 6f  6d 70 65 74 69 74 69 6f  |:.a$="Competitio|
00009950  6e 22 8c 0d b9 74 3c f2  63 28 22 54 68 65 20 63  |n"...t<.c("The c|
00009960  6f 6d 70 65 74 69 74 69  6f 6e 20 66 69 6c 65 20  |ompetition file |
00009970  6f 6e 6c 79 20 77 6f 72  6b 73 20 69 6e 20 54 75  |only works in Tu|
00009980  6e 65 20 42 6f 78 2e 22  29 3a 6a 25 3d 2d 34 0d  |ne Box."):j%=-4.|
00009990  b9 86 1f cc 3a f2 46 28  61 24 2c 30 29 3a 43 24  |....:.F(a$,0):C$|
000099a0  3d 61 24 3a 5a 63 25 3d  a3 3a 6a 25 3d 30 0d b9  |=a$:Zc%=.:j%=0..|
000099b0  98 05 cd 0d b9 98 05 cb  0d b9 a1 11 e7 6a 25 3e  |.............j%>|
000099c0  30 8c f2 6f 61 28 6a 25  29 0d b9 aa 05 e1 0d b9  |0..oa(j%).......|
000099d0  b3 19 dd f2 6b 64 28 64  25 2c 76 6c 25 29 3a e7  |....kd(d%,vl%):.|
000099e0  76 6c 25 3d 31 33 8c 0d  b9 ce 07 f2 70 64 0d b9  |vl%=13......pd..|
000099f0  e0 14 cc 3a c8 99 26 34  30 30 44 43 2c 73 25 21  |...:..&400DC,s%!|
00009a00  32 34 0d b9 f2 05 cd 0d  b9 f2 05 e1 0d b9 fb 1a  |24..............|
00009a10  dd f2 4e 63 28 73 25 29  3a e7 73 25 21 34 30 3c  |..Nc(s%):.s%!40<|
00009a20  3e 44 61 25 8c e1 0d ba  16 3b 73 25 21 31 32 3d  |>Da%.....;s%!12=|
00009a30  73 25 21 38 3a 73 25 21  31 36 3d 34 3a c8 99 26  |s%!8:s%!16=4:..&|
00009a40  34 30 30 45 37 2c 31 37  2c 73 25 2c 73 25 21 34  |400E7,17,s%,s%!4|
00009a50  3a f2 74 64 28 a4 63 28  73 25 2b 34 34 29 29 3a  |:.td(.c(s%+44)):|
00009a60  e1 0d ba 43 3a dd f2 74  64 28 65 24 29 3a ea 41  |...C:..td(e$):.A|
00009a70  25 2c 56 68 25 2c 78 61  25 3a c8 99 26 38 2c 31  |%,Vh%,xa%:..&8,1|
00009a80  37 2c 65 24 b8 41 25 2c  2c 2c 2c 78 61 25 3a e7  |7,e$.A%,,,,xa%:.|
00009a90  41 25 3d 31 80 78 61 25  3e 34 8c 0d ba 70 36 56  |A%=1.xa%>4...p6V|
00009aa0  68 25 3d 8e 28 65 24 29  3a 41 24 3d 22 22 3a e3  |h%=.(e$):A$="":.|
00009ab0  41 25 3d 31 b8 38 3a 41  24 2b 3d bd 28 9a 23 56  |A%=1.8:A$+=.(.#V|
00009ac0  68 25 29 3a ed 3a d9 23  56 68 25 3a c8 8e 41 24  |h%):.:.#Vh%:..A$|
00009ad0  ca 0d ba af 22 c9 22 4d  42 43 6f 6d 70 6f 73 22  |...."."MBCompos"|
00009ae0  2c 22 4d 42 54 75 6e 65  20 20 22 3a f2 66 62 28  |,"MBTune  ":.fb(|
00009af0  65 24 29 0d ba c1 22 c9  22 4d 42 52 68 79 74 68  |e$)..."."MBRhyth|
00009b00  6d 22 2c 22 4d 42 42 65  61 74 20 20 22 3a f2 6f  |m","MBBeat  ":.o|
00009b10  63 28 65 24 29 0d ba ca  18 c9 22 4d 42 53 6f 75  |c(e$)....."MBSou|
00009b20  6e 64 20 22 3a f2 46 28  65 24 2c 30 29 0d ba d3  |nd ":.F(e$,0)...|
00009b30  18 c9 22 4d 42 43 68 6f  72 64 20 22 3a f2 46 28  |.."MBChord ":.F(|
00009b40  65 24 2c 32 29 0d ba dc  0a 7f 3a 41 25 3d 30 0d  |e$,2).....:A%=0.|
00009b50  ba e5 05 cb 0d ba e5 0a  cc 3a 41 25 3d 30 0d bb  |.........:A%=0..|
00009b60  00 05 cd 0d bb 00 2e e7  41 25 3d 30 8c f2 62 28  |........A%=0..b(|
00009b70  22 4d 75 73 69 63 20 66  69 6c 65 20 6e 6f 74 20  |"Music file not |
00009b80  75 6e 64 65 72 73 74 6f  6f 64 2e 22 2c a3 29 3a  |understood.",.):|
00009b90  e1 0d bb 09 05 e1 0d bb  12 15 dd a4 4a 28 61 24  |............J(a$|
00009ba0  29 3a 3d a4 44 28 61 24  2c b9 29 0d bb 3f 30 dd  |):=.D(a$,.)..?0.|
00009bb0  a4 44 28 61 24 2c 71 6d  25 29 3a ea 4e 25 2c 41  |.D(a$,qm%):.N%,A|
00009bc0  25 3a c8 99 26 32 30 30  30 38 2c 31 37 2c 61 24  |%:..&20008,17,a$|
00009bd0  b8 4e 25 3a e7 4e 25 3c  3e 30 8c 0d bb 5a 0b e7  |.N%:.N%<>0...Z..|
00009be0  4e 25 3c 3e 31 8c 0d bb  63 52 f2 62 28 22 46 69  |N%<>1...cR.b("Fi|
00009bf0  6c 65 20 61 6c 72 65 61  64 79 20 65 78 69 73 74  |le already exist|
00009c00  73 20 61 73 20 61 20 64  69 72 65 63 74 6f 72 79  |s as a directory|
00009c10  2e 20 50 6c 65 61 73 65  20 63 68 6f 6f 73 65 20  |. Please choose |
00009c20  61 20 64 69 66 66 65 72  65 6e 74 20 6e 61 6d 65  |a different name|
00009c30  2e 22 2c a3 29 3a 3d 30  0d bb 75 10 cc 3a 41 25  |.",.):=0..u..:A%|
00009c40  3d 31 3a e7 71 6d 25 8c  0d bb 87 5d 24 28 67 25  |=1:.qm%....]$(g%|
00009c50  2b 34 29 3d 22 46 69 6c  65 20 61 6c 72 65 61 64  |+4)="File alread|
00009c60  79 20 65 78 69 73 74 73  2e 20 44 6f 20 79 6f 75  |y exists. Do you|
00009c70  20 77 61 6e 74 20 74 6f  20 6f 76 65 72 77 72 69  | want to overwri|
00009c80  74 65 20 69 74 3f 22 2b  bd 30 3a c8 99 26 34 30  |te it?"+.0:..&40|
00009c90  30 44 46 2c 67 25 2c 25  30 31 31 30 31 31 2c 6f  |0DF,g%,%011011,o|
00009ca0  24 b8 2c 41 25 0d bb a2  05 cd 0d bb a2 0d e7 41  |$.,A%..........A|
00009cb0  25 3c 3e 31 8c 3d 30 0d  bb ab 33 c8 99 26 32 30  |%<>1.=0...3..&20|
00009cc0  30 30 38 2c 36 2c 61 24  b8 41 25 3b 50 25 3a e7  |008,6,a$.A%;P%:.|
00009cd0  28 50 25 80 31 29 3d 31  8c f2 62 28 a4 63 28 41  |(P%.1)=1..b(.c(A|
00009ce0  25 2b 34 29 2c a3 29 3a  3d 30 0d bb bd 05 cd 0d  |%+4),.):=0......|
00009cf0  bb c6 05 cd 0d bb cf 35  c8 99 26 32 30 30 30 44  |.......5..&2000D|
00009d00  2c 26 38 33 2c 61 24 b8  41 25 3b 50 25 3a e7 28  |,&83,a$.A%;P%:.(|
00009d10  50 25 80 31 29 3d 31 8c  f2 62 28 a4 63 28 41 25  |P%.1)=1..b(.c(A%|
00009d20  2b 34 29 2c a3 29 3a 3d  30 0d bb e1 07 3d 41 25  |+4),.):=0....=A%|
00009d30  0d bc 44 26 dd a4 66 28  62 24 2c 61 25 29 3a 24  |..D&..f(b$,a%):$|
00009d40  67 25 3d 62 24 3a 3d a4  75 28 67 25 2c a9 28 62  |g%=b$:=.u(g%,.(b|
00009d50  24 29 2c 61 25 29 0d bc  68 20 dd a4 62 28 6c 2c  |$),a%)..h ..b(l,|
00009d60  61 25 29 3a 21 67 25 3d  6c 3a 3d a4 75 28 67 25  |a%):!g%=l:=.u(g%|
00009d70  2c 34 2c 61 25 29 0d bc  8c 4c dd a4 75 28 77 61  |,4,a%)...L..u(wa|
00009d80  25 2c 78 61 25 2c 61 25  29 3a ea 50 25 2c 41 25  |%,xa%,a%):.P%,A%|
00009d90  2c 42 25 3a c8 99 26 32  30 30 30 43 2c 32 2c 61  |,B%:..&2000C,2,a|
00009da0  25 2c 77 61 25 2c 78 61  25 b8 42 25 2c 2c 2c 41  |%,wa%,xa%.B%,,,A|
00009db0  25 3b 50 25 3a e7 28 50  25 80 31 29 3d 31 8c 3d  |%;P%:.(P%.1)=1.=|
00009dc0  42 25 0d bc a7 33 e7 41  25 3c 3e 30 8c 21 67 25  |B%...3.A%<>0.!g%|
00009dd0  3d 34 3a 24 28 67 25 2b  34 29 3d 22 4e 6f 20 73  |=4:$(g%+4)="No s|
00009de0  70 61 63 65 20 6f 6e 20  64 69 73 63 2e 22 2b bd  |pace on disc."+.|
00009df0  30 3a 3d 67 25 0d bc b0  06 3d 30 0d bd 01 2a dd  |0:=g%....=0...*.|
00009e00  a4 52 28 61 24 29 3a ea  50 25 2c 41 25 3a e7 a4  |.R(a$):.P%,A%:..|
00009e10  59 28 61 24 2c 22 44 65  66 61 75 6c 74 73 22 2c  |Y(a$,"Defaults",|
00009e20  38 29 8c 3d 30 0d bd 13  2a c8 99 26 32 30 30 30  |8).=0...*..&2000|
00009e30  38 2c 31 38 2c 61 24 2c  44 61 25 b8 41 25 3b 50  |8,18,a$,Da%.A%;P|
00009e40  25 3a e7 28 50 25 80 31  29 3d 31 8c 3d 41 25 0d  |%:.(P%.1)=1.=A%.|
00009e50  bd 25 06 3d 30 0d bd 40  33 dd a4 68 28 f8 62 24  |.%.=0..@3..h(.b$|
00009e60  2c 78 61 25 2c 61 25 29  3a ea 41 25 3a 41 25 3d  |,xa%,a%):.A%:A%=|
00009e70  a4 6b 28 67 25 2c 78 61  25 2c 61 25 29 3a e7 41  |.k(g%,xa%,a%):.A|
00009e80  25 3c 3e 30 8c 3d 41 25  0d bd 5b 2c 62 24 3d 22  |%<>0.=A%..[,b$="|
00009e90  22 3a e3 41 25 3d 30 b8  78 61 25 2d 31 3a 62 24  |":.A%=0.xa%-1:b$|
00009ea0  3d 62 24 2b bd 28 3f 28  67 25 2b 41 25 29 29 3a  |=b$+.(?(g%+A%)):|
00009eb0  ed 3a 3d 30 0d be 21 45  dd a4 6a 28 61 25 29 3a  |.:=0..!E..j(a%):|
00009ec0  ea 62 25 2c 63 25 3a 62  25 3d a4 61 28 63 25 2c  |.b%,c%:b%=.a(c%,|
00009ed0  61 25 29 3a c8 99 26 32  30 30 30 39 2c 30 2c 61  |a%):..&20009,0,a|
00009ee0  25 b8 41 25 2c 2c 42 25  3b 50 25 3a e7 28 50 25  |%.A%,,B%;P%:.(P%|
00009ef0  80 31 29 3d 31 8c 3d 41  25 0d be 45 2d c8 99 26  |.1)=1.=A%..E-..&|
00009f00  32 30 30 30 39 2c 31 2c  61 25 2c 42 25 2b 63 25  |20009,1,a%,B%+c%|
00009f10  2d 38 b8 41 25 3b 50 25  3a e7 28 50 25 80 31 29  |-8.A%;P%:.(P%.1)|
00009f20  3d 31 8c 3d 41 25 0d be  57 07 3d 62 25 0d be 72  |=1.=A%..W.=b%..r|
00009f30  74 dd a4 59 28 51 24 2c  52 24 2c 78 61 25 29 3a  |t..Y(Q$,R$,xa%):|
00009f40  ea 72 6d 25 2c 49 25 3a  72 6d 25 3d b9 3a 73 6d  |.rm%,I%:rm%=.:sm|
00009f50  25 3d a9 28 51 24 29 3a  74 6d 25 3d a9 28 52 24  |%=.(Q$):tm%=.(R$|
00009f60  29 3a e3 49 25 3d 30 b8  78 61 25 2d 31 3a e7 28  |):.I%=0.xa%-1:.(|
00009f70  97 28 c1 51 24 2c 73 6d  25 2d 49 25 2c 31 29 29  |.(.Q$,sm%-I%,1))|
00009f80  84 33 32 29 3c 3e 28 97  28 c1 52 24 2c 74 6d 25  |.32)<>(.(.R$,tm%|
00009f90  2d 49 25 2c 31 29 29 84  33 32 29 8c 72 6d 25 3d  |-I%,1)).32).rm%=|
00009fa0  a3 0d be a8 0a ed 3a 3d  72 6d 25 0d be cc 3a dd  |......:=rm%...:.|
00009fb0  a4 58 28 61 24 29 3a ea  63 24 2c 4e 25 3a 61 24  |.X(a$):.c$,N%:a$|
00009fc0  3d a4 43 28 61 24 29 3a  c8 99 26 32 30 30 30 38  |=.C(a$):..&20008|
00009fd0  2c 31 37 2c 61 24 b8 4e  25 3a e7 28 70 6d 25 80  |,17,a$.N%:.(pm%.|
00009fe0  31 29 3d 31 8c 0d be f0  0b e7 4e 25 3c 3e 30 8c  |1)=1......N%<>0.|
00009ff0  0d be f9 0b e7 4e 25 3c  3e 31 8c 0d bf 02 64 f2  |.....N%<>1....d.|
0000a000  63 28 22 53 6f 72 72 79  2c 20 49 20 63 61 6e 27  |c("Sorry, I can'|
0000a010  74 20 75 73 65 20 74 68  61 74 20 6e 61 6d 65 20  |t use that name |
0000a020  62 65 63 61 75 73 65 20  69 74 20 69 73 20 61 20  |because it is a |
0000a030  64 69 72 65 63 74 6f 72  79 2e 20 50 6c 65 61 73  |directory. Pleas|
0000a040  65 20 63 68 6f 6f 73 65  20 61 20 64 69 66 66 65  |e choose a diffe|
0000a050  72 65 6e 74 20 6e 61 6d  65 2e 22 29 3a 3d 30 0d  |rent name."):=0.|
0000a060  bf 14 08 cc 3a 3d 32 0d  bf 26 05 cd 0d bf 26 05  |....:=2..&....&.|
0000a070  cd 0d bf 2f 46 f2 63 28  22 54 68 61 74 20 66 69  |.../F.c("That fi|
0000a080  6c 65 20 64 6f 65 73 20  6e 6f 74 20 65 78 69 73  |le does not exis|
0000a090  74 2e 20 50 6c 65 61 73  65 20 63 68 6f 6f 73 65  |t. Please choose|
0000a0a0  20 61 20 64 69 66 66 65  72 65 6e 74 20 6e 61 6d  | a different nam|
0000a0b0  65 2e 22 29 3a 3d 30 0d  bf 41 0d cc 3a e7 4e 25  |e."):=0..A..:.N%|
0000a0c0  3c 3e 30 8c 0d bf 4a 0b  e7 4e 25 3c 3e 31 8c 0d  |<>0...J..N%<>1..|
0000a0d0  bf 53 73 f2 63 28 22 53  6f 72 72 79 2c 20 49 20  |.Ss.c("Sorry, I |
0000a0e0  63 61 6e 27 74 20 75 73  65 20 74 68 61 74 20 6e  |can't use that n|
0000a0f0  61 6d 65 20 62 65 63 61  75 73 65 20 69 74 20 61  |ame because it a|
0000a100  6c 72 65 61 64 79 20 65  78 69 73 74 73 20 61 73  |lready exists as|
0000a110  20 61 20 64 69 72 65 63  74 6f 72 79 2e 20 50 6c  | a directory. Pl|
0000a120  65 61 73 65 20 63 68 6f  6f 73 65 20 61 20 64 69  |ease choose a di|
0000a130  66 66 65 72 65 6e 74 20  6e 61 6d 65 2e 22 29 3a  |fferent name."):|
0000a140  3d 30 0d bf 65 08 cc 3a  3d 31 0d bf 77 05 cd 0d  |=0..e..:=1..w...|
0000a150  bf 77 05 cd 0d bf 80 05  cd 0d bf 89 06 3d 32 0d  |.w...........=2.|
0000a160  bf a4 12 dd a4 43 28 61  24 29 3a c8 8e 70 6d 25  |.....C(a$):..pm%|
0000a170  ca 0d bf ad 12 c9 30 2c  31 3a 63 24 3d 22 54 75  |......0,1:c$="Tu|
0000a180  6e 65 22 0d bf bf 12 c9  32 2c 33 3a 63 24 3d 22  |ne".....2,3:c$="|
0000a190  42 65 61 74 22 0d bf c8  13 c9 34 2c 35 3a 63 24  |Beat".....4,5:c$|
0000a1a0  3d 22 43 68 6f 72 64 22  0d bf d1 13 c9 36 2c 37  |="Chord".....6,7|
0000a1b0  3a 63 24 3d 22 53 6f 75  6e 64 22 0d bf da 05 cb  |:c$="Sound".....|
0000a1c0  0d bf da 2c e7 61 24 3d  22 43 6f 6d 70 65 74 69  |...,.a$="Competi|
0000a1d0  74 69 6f 6e 22 8c 61 24  3d 22 3c 4d 75 73 69 63  |tion".a$="<Music|
0000a1e0  42 6f 78 44 24 44 69 72  3e 2e 31 22 0d bf e3 2c  |BoxD$Dir>.1"...,|
0000a1f0  e7 a7 61 24 2c 22 2e 22  29 3d 30 8c 61 24 3d 22  |..a$,".")=0.a$="|
0000a200  3c 4d 42 22 2b 63 24 2b  22 46 69 6c 65 73 24 44  |<MB"+c$+"Files$D|
0000a210  69 72 3e 2e 22 2b 61 24  0d bf ec 07 3d 61 24 0d  |ir>."+a$....=a$.|
0000a220  c0 10 18 dd f2 4f 63 28  64 25 2c 58 25 2c 59 25  |.....Oc(d%,X%,Y%|
0000a230  29 3a c8 8e 64 25 ca 0d  c0 19 16 c9 5a 64 25 3a  |):..d%......Zd%:|
0000a240  f2 60 28 58 68 25 2c 58  25 2c 59 25 29 0d c0 2b  |.`(Xh%,X%,Y%)..+|
0000a250  13 c9 5f 64 25 3a f2 65  28 6d 25 2c 5f 64 25 29  |.._d%:.e(m%,_d%)|
0000a260  0d c0 34 05 cb 0d c0 34  05 e1 0d c0 3d 21 dd f2  |..4....4....=!..|
0000a270  6a 64 28 63 25 29 3a e7  63 25 3e 3d 30 80 63 25  |jd(c%):.c%>=0.c%|
0000a280  3c 3d 31 34 8c f2 4d 28  63 25 29 0d c0 58 05 e1  |<=14..M(c%)..X..|
0000a290  0d c0 61 1f dd a4 6e 28  70 25 2c 64 25 2c 58 25  |..a...n(p%,d%,X%|
0000a2a0  2c 59 25 29 3a 58 25 3d  b9 3a c8 8e 64 25 ca 0d  |,Y%):X%=.:..d%..|
0000a2b0  c0 85 27 c9 45 65 25 3a  c8 99 26 34 30 31 38 37  |..'.Ee%:..&40187|
0000a2c0  2c 75 6d 25 3a e7 28 70  25 80 34 29 3d 34 8c f2  |,um%:.(p%.4)=4..|
0000a2d0  75 64 8b f2 76 64 0d c0  a0 16 c9 44 65 25 3a e7  |ud..vd.....De%:.|
0000a2e0  28 70 25 80 34 29 3d 34  8c f2 75 64 0d c0 b2 0b  |(p%.4)=4..ud....|
0000a2f0  f2 77 64 3a f2 78 64 0d  c0 cd 16 c9 46 65 25 3a  |.wd:.xd.....Fe%:|
0000a300  e7 28 70 25 80 34 29 3d  34 8c f2 75 64 0d c0 d6  |.(p%.4)=4..ud...|
0000a310  07 f2 77 64 0d c0 e8 0f  c9 78 65 25 3a f2 4e 28  |..wd.....xe%:.N(|
0000a320  60 25 29 0d c0 f1 0f c9  79 65 25 3a f2 4e 28 6d  |`%).....ye%:.N(m|
0000a330  25 29 0d c0 fa 10 c9 7a  65 25 3a f2 4e 28 4f 64  |%).....ze%:.N(Od|
0000a340  25 29 0d c1 03 10 c9 41  65 25 3a f2 4e 28 4d 65  |%).....Ae%:.N(Me|
0000a350  25 29 0d c1 0c 10 c9 42  65 25 3a f2 4e 28 57 65  |%).....Be%:.N(We|
0000a360  25 29 0d c1 15 1e c9 43  65 25 3a f2 79 64 3a e7  |%).....Ce%:.yd:.|
0000a370  28 70 25 80 34 29 3d 34  8c f2 75 64 8b f2 76 64  |(p%.4)=4..ud..vd|
0000a380  0d c1 27 09 7f 58 25 3d  a3 0d c1 39 05 cb 0d c1  |..'..X%=...9....|
0000a390  39 07 3d 58 25 0d c1 54  26 dd f2 53 63 28 70 25  |9.=X%..T&..Sc(p%|
0000a3a0  2c 64 25 2c 58 25 2c 59  25 29 3a ea 63 25 2c 41  |,d%,X%,Y%):.c%,A|
0000a3b0  25 2c 41 24 3a e7 70 25  80 35 8c 0d c1 66 16 e7  |%,A$:.p%.5...f..|
0000a3c0  ac a4 6e 28 70 25 2c 64  25 2c 58 25 2c 59 25 29  |..n(p%,d%,X%,Y%)|
0000a3d0  8c 0d c1 6f 09 c8 8e 64  25 ca 0d c1 78 22 c9 4c  |...o...d%...x".L|
0000a3e0  64 25 2d 31 2c 4c 64 25  2b 31 2c 4c 64 25 3a e7  |d%-1,Ld%+1,Ld%:.|
0000a3f0  64 25 3d 4c 64 25 8c 64  25 2d 3d 31 0d c1 8a 1c  |d%=Ld%.d%-=1....|
0000a400  76 6d 25 2b 3d 4c 64 25  2d 64 25 3a e7 76 6d 25  |vm%+=Ld%-d%:.vm%|
0000a410  3e 32 8c 76 6d 25 3d 30  0d c1 9c 10 e7 76 6d 25  |>2.vm%=0.....vm%|
0000a420  3c 30 8c 76 6d 25 3d 32  0d c1 a5 1e c8 99 26 34  |<0.vm%=2......&4|
0000a430  34 41 44 44 2c 31 2c 4f  64 25 2c 4c 64 25 2c a4  |4ADD,1,Od%,Ld%,.|
0000a440  46 28 76 6d 25 29 0d c1  b7 2d c9 49 64 25 2d 31  |F(vm%)...-.Id%-1|
0000a450  2c 49 64 25 2b 31 3a c8  99 26 34 34 41 43 41 2c  |,Id%+1:..&44ACA,|
0000a460  4f 64 25 2c 49 64 25 2c  49 64 25 2d 64 25 2c 31  |Od%,Id%,Id%-d%,1|
0000a470  36 2c 31 0d c1 c9 2c c9  4a 64 25 2d 31 2c 4a 64  |6,1...,.Jd%-1,Jd|
0000a480  25 2b 31 3a c8 99 26 34  34 41 43 41 2c 4f 64 25  |%+1:..&44ACA,Od%|
0000a490  2c 4a 64 25 2c 4a 64 25  2d 64 25 2c 37 2c 31 0d  |,Jd%,Jd%-d%,7,1.|
0000a4a0  c1 db 31 c9 4b 64 25 2d  31 2c 4b 64 25 2b 31 3a  |..1.Kd%-1,Kd%+1:|
0000a4b0  c8 99 26 34 34 41 43 41  2c 4f 64 25 2c 4b 64 25  |..&44ACA,Od%,Kd%|
0000a4c0  2c 4b 64 25 2d 64 25 2c  76 62 25 2f 32 34 2c 31  |,Kd%-d%,vb%/24,1|
0000a4d0  0d c1 ed 05 cb 0d c1 ed  05 cd 0d c1 f6 05 cd 0d  |................|
0000a4e0  c1 ff 05 e1 0d c2 08 26  dd f2 51 63 28 70 25 2c  |.......&..Qc(p%,|
0000a4f0  64 25 2c 58 25 2c 59 25  29 3a ea 63 25 2c 41 25  |d%,X%,Y%):.c%,A%|
0000a500  2c 41 24 3a e7 70 25 80  35 8c 0d c2 2c 16 e7 ac  |,A$:.p%.5...,...|
0000a510  a4 6e 28 70 25 2c 64 25  2c 58 25 2c 59 25 29 8c  |.n(p%,d%,X%,Y%).|
0000a520  0d c2 35 09 c8 8e 64 25  ca 0d c2 3e 2c c9 47 65  |..5...d%...>,.Ge|
0000a530  25 2d 31 2c 47 65 25 2b  31 3a c8 99 26 34 34 41  |%-1,Ge%+1:..&44A|
0000a540  43 43 2c 4d 65 25 2c 47  65 25 b8 2c 2c 63 25 3a  |CC,Me%,Ge%.,,c%:|
0000a550  c8 8e 63 25 ca 0d c2 59  0b c9 36 3a 63 25 3d 35  |..c%...Y..6:c%=5|
0000a560  0d c2 6b 0b c9 38 3a 63  25 3d 36 0d c2 74 0c c9  |..k..8:c%=6..t..|
0000a570  31 32 3a 63 25 3d 37 0d  c2 7d 05 cb 0d c2 7d 19  |12:c%=7..}....}.|
0000a580  63 25 2b 3d 47 65 25 2d  64 25 3a e7 63 25 3c 31  |c%+=Ge%-d%:.c%<1|
0000a590  8c 63 25 3d 37 0d c2 8f  0e e7 63 25 3e 37 8c 63  |.c%=7.....c%>7.c|
0000a5a0  25 3d 31 0d c2 98 09 c8  8e 63 25 ca 0d c2 a1 0b  |%=1......c%.....|
0000a5b0  c9 35 3a 63 25 3d 36 0d  c2 b3 0b c9 36 3a 63 25  |.5:c%=6.....6:c%|
0000a5c0  3d 38 0d c2 bc 0c c9 37  3a 63 25 3d 31 32 0d c2  |=8.....7:c%=12..|
0000a5d0  c5 05 cb 0d c2 c5 17 c8  99 26 34 34 41 43 42 2c  |.........&44ACB,|
0000a5e0  4d 65 25 2c 47 65 25 2c  63 25 0d c2 d7 2c c9 48  |Me%,Ge%,c%...,.H|
0000a5f0  65 25 2d 31 2c 48 65 25  2b 31 3a c8 99 26 34 34  |e%-1,He%+1:..&44|
0000a600  41 43 41 2c 4d 65 25 2c  48 65 25 2c 48 65 25 2d  |ACA,Me%,He%,He%-|
0000a610  64 25 2c 37 2c 31 0d c2  e9 2e c9 49 65 25 2d 31  |d%,7,1.....Ie%-1|
0000a620  2c 49 65 25 2b 31 3a c8  99 26 34 34 41 43 41 2c  |,Ie%+1:..&44ACA,|
0000a630  4d 65 25 2c 49 65 25 2c  49 65 25 2d 64 25 2c 53  |Me%,Ie%,Ie%-d%,S|
0000a640  62 25 2c 31 0d c2 fb 51  c9 4a 65 25 2d 31 2c 4a  |b%,1...Q.Je%-1,J|
0000a650  65 25 2b 31 3a c8 99 26  34 34 41 44 45 2c 32 2c  |e%+1:..&44ADE,2,|
0000a660  4d 65 25 2c 4a 65 25 2c  67 25 2c 31 36 3a 63 25  |Me%,Je%,g%,16:c%|
0000a670  3d a0 28 a4 63 28 67 25  29 29 2a 32 3a 63 25 2b  |=.(.c(g%))*2:c%+|
0000a680  3d 28 4a 65 25 2d 64 25  29 3a e7 63 25 3c 32 8c  |=(Je%-d%):.c%<2.|
0000a690  63 25 3d 31 34 0d c3 1f  0f e7 63 25 3e 31 34 8c  |c%=14.....c%>14.|
0000a6a0  63 25 3d 32 0d c3 28 23  c8 99 26 34 34 41 44 44  |c%=2..(#..&44ADD|
0000a6b0  2c 32 2c 4d 65 25 2c 4a  65 25 2c 22 20 20 22 2b  |,2,Me%,Je%,"  "+|
0000a6c0  c3 28 63 25 2f 32 29 0d  c3 3a 05 cb 0d c3 3a 05  |.(c%/2)..:....:.|
0000a6d0  cd 0d c3 43 05 cd 0d c3  4c 05 e1 0d c3 55 26 dd  |...C....L....U&.|
0000a6e0  f2 52 63 28 70 25 2c 64  25 2c 58 25 2c 59 25 29  |.Rc(p%,d%,X%,Y%)|
0000a6f0  3a ea 63 25 2c 41 25 2c  41 24 3a e7 70 25 80 35  |:.c%,A%,A$:.p%.5|
0000a700  8c 0d c3 79 16 e7 ac a4  6e 28 70 25 2c 64 25 2c  |...y....n(p%,d%,|
0000a710  58 25 2c 59 25 29 8c 0d  c3 82 09 c8 8e 64 25 ca  |X%,Y%).......d%.|
0000a720  0d c3 8b 27 c9 50 64 25  3a c8 99 26 34 34 41 44  |...'.Pd%:..&44AD|
0000a730  45 2c 33 2c 60 25 2c 64  25 b8 2c 2c 2c 63 25 3a  |E,3,`%,d%.,,,c%:|
0000a740  f2 7a 64 28 63 25 29 0d  c3 af 3f c9 51 64 25 2c  |.zd(c%)...?.Qd%,|
0000a750  52 64 25 2c 53 64 25 2c  54 64 25 3a c8 99 26 34  |Rd%,Sd%,Td%:..&4|
0000a760  34 41 44 44 2c 37 2c 60  25 2c 64 25 3a c8 99 26  |4ADD,7,`%,d%:..&|
0000a770  34 34 41 44 44 2c 34 2c  60 25 2c 55 64 25 2c 64  |44ADD,4,`%,Ud%,d|
0000a780  25 3c 3e 54 64 25 0d c3  ca 21 c9 56 64 25 2c 57  |%<>Td%...!.Vd%,W|
0000a790  64 25 2c 58 64 25 3a c8  99 26 34 34 41 44 44 2c  |d%,Xd%:..&44ADD,|
0000a7a0  37 2c 60 25 2c 64 25 0d  c3 dc 05 cb 0d c3 dc 05  |7,`%,d%.........|
0000a7b0  cd 0d c3 e5 05 cd 0d c3  ee 05 e1 0d c3 f7 26 dd  |..............&.|
0000a7c0  f2 55 63 28 70 25 2c 64  25 2c 58 25 2c 59 25 29  |.Uc(p%,d%,X%,Y%)|
0000a7d0  3a ea 63 25 2c 41 25 2c  41 24 3a e7 70 25 80 35  |:.c%,A%,A$:.p%.5|
0000a7e0  8c 0d c4 1b 16 e7 ac a4  6e 28 70 25 2c 64 25 2c  |........n(p%,d%,|
0000a7f0  58 25 2c 59 25 29 8c 0d  c4 24 09 c8 8e 64 25 ca  |X%,Y%)...$...d%.|
0000a800  0d c4 2d 1e c9 55 65 25  2c 56 65 25 3a c8 99 26  |..-..Ue%,Ve%:..&|
0000a810  34 34 41 44 44 2c 37 2c  57 65 25 2c 64 25 0d c4  |44ADD,7,We%,d%..|
0000a820  48 05 cb 0d c4 48 05 cd  0d c4 51 05 cd 0d c4 5a  |H....H....Q....Z|
0000a830  05 e1 0d c4 63 2d dd f2  54 63 28 70 25 2c 64 25  |....c-..Tc(p%,d%|
0000a840  2c 58 25 2c 59 25 29 3a  ea 63 25 2c 41 25 2c 41  |,X%,Y%):.c%,A%,A|
0000a850  24 3a e7 28 70 25 80 28  35 3c 3c 34 29 29 8c 0d  |$:.(p%.(5<<4))..|
0000a860  c4 87 09 c8 8e 64 25 ca  0d c4 90 18 c9 69 65 25  |.....d%......ie%|
0000a870  3a f2 47 28 6d 25 2c 64  25 2c 58 25 2c 59 25 29  |:.G(m%,d%,X%,Y%)|
0000a880  0d c4 ab 36 c9 68 65 25  3a f2 63 28 22 54 75 6e  |...6.he%:.c("Tun|
0000a890  69 6e 67 20 68 61 73 20  62 65 65 6e 20 64 69 73  |ing has been dis|
0000a8a0  61 62 6c 65 64 20 66 6f  72 20 74 68 69 73 20 64  |abled for this d|
0000a8b0  65 6d 6f 2e 22 29 0d c4  bd 05 cb 0d c4 bd 0c cc  |emo.")..........|
0000a8c0  3a e7 70 25 80 35 8c 0d  c4 cf 16 e7 ac a4 6e 28  |:.p%.5........n(|
0000a8d0  70 25 2c 64 25 2c 58 25  2c 59 25 29 8c 0d c4 d8  |p%,d%,X%,Y%)....|
0000a8e0  09 c8 8e 64 25 ca 0d c4  e1 59 c9 60 64 25 2c 61  |...d%....Y.`d%,a|
0000a8f0  65 25 3a c8 99 26 34 34  41 44 44 2c 37 2c 6d 25  |e%:..&44ADD,7,m%|
0000a900  2c 64 25 3a c8 99 26 34  34 41 43 43 2c 6d 25 2c  |,d%:..&44ACC,m%,|
0000a910  62 65 25 b8 2c 2c 63 25  3a c8 99 26 34 34 41 44  |be%.,,c%:..&44AD|
0000a920  45 2c 33 2c 6d 25 2c 61  65 25 b8 2c 2c 2c 41 25  |E,3,m%,ae%.,,,A%|
0000a930  3a e7 41 25 80 63 25 3e  30 8c 63 25 2b 3d 37 0d  |:.A%.c%>0.c%+=7.|
0000a940  c5 0e 0a f2 4d 28 63 25  29 0d c5 20 85 c9 62 65  |....M(c%).. ..be|
0000a950  25 2d 31 2c 62 65 25 2b  31 3a c8 99 26 34 34 41  |%-1,be%+1:..&44A|
0000a960  43 43 2c 6d 25 2c 62 65  25 b8 2c 2c 63 25 3a 63  |CC,m%,be%.,,c%:c|
0000a970  25 2b 3d 62 65 25 2d 64  25 3a c8 99 26 34 34 41  |%+=be%-d%:..&44A|
0000a980  44 45 2c 33 2c 6d 25 2c  61 65 25 b8 2c 2c 2c 41  |DE,3,m%,ae%.,,,A|
0000a990  25 3a e7 63 25 3c 30 8c  63 25 3d 37 3a c8 99 26  |%:.c%<0.c%=7:..&|
0000a9a0  34 34 41 44 44 2c 33 2c  6d 25 2c 61 65 25 2c ac  |44ADD,3,m%,ae%,.|
0000a9b0  41 25 3a c8 99 26 34 34  41 44 44 2c 33 2c 6d 25  |A%:..&44ADD,3,m%|
0000a9c0  2c 60 64 25 2c 41 25 3a  41 25 3d ac 41 25 0d c5  |,`d%,A%:A%=.A%..|
0000a9d0  44 40 e7 63 25 3e 37 8c  63 25 3d 30 3a c8 99 26  |D@.c%>7.c%=0:..&|
0000a9e0  34 34 41 44 44 2c 33 2c  6d 25 2c 61 65 25 2c ac  |44ADD,3,m%,ae%,.|
0000a9f0  41 25 3a c8 99 26 34 34  41 44 44 2c 33 2c 6d 25  |A%:..&44ADD,3,m%|
0000aa00  2c 60 64 25 2c 41 25 3a  41 25 3d ac 41 25 0d c5  |,`d%,A%:A%=.A%..|
0000aa10  4d 12 e7 41 25 80 63 25  3e 30 8c 63 25 2b 3d 37  |M..A%.c%>0.c%+=7|
0000aa20  0d c5 56 0a f2 4d 28 63  25 29 0d c5 68 13 c9 5f  |..V..M(c%)..h.._|
0000aa30  64 25 3a f2 65 28 6d 25  2c 5f 64 25 29 0d c5 7a  |d%:.e(m%,_d%)..z|
0000aa40  2a c9 69 65 25 3a c8 99  26 34 34 41 44 34 2c 30  |*.ie%:..&44AD4,0|
0000aa50  2c 6d 25 2c 64 25 2c 58  25 2c 59 25 b8 63 25 3a  |,m%,d%,X%,Y%.c%:|
0000aa60  f2 66 64 28 63 25 29 0d  c5 95 5a c9 68 65 25 2c  |.fd(c%)...Z.he%,|
0000aa70  67 65 25 2d 31 2c 67 65  25 2b 31 2c 66 65 25 2d  |ge%-1,ge%+1,fe%-|
0000aa80  31 2c 66 65 25 2b 31 2c  65 65 25 2d 31 2c 65 65  |1,fe%+1,ee%-1,ee|
0000aa90  25 2b 31 3a f2 63 28 22  54 75 6e 69 6e 67 20 68  |%+1:.c("Tuning h|
0000aaa0  61 73 20 62 65 65 6e 20  64 69 73 61 62 6c 65 64  |as been disabled|
0000aab0  20 66 6f 72 20 74 68 69  73 20 64 65 6d 6f 2e 22  | for this demo."|
0000aac0  29 0d c5 a7 0e c9 63 65  25 3a f2 4d 28 30 29 0d  |).....ce%:.M(0).|
0000aad0  c5 b9 05 cb 0d c5 b9 05  cd 0d c5 c2 05 cd 0d c5  |................|
0000aae0  cb 05 cd 0d c5 d4 05 e1  0d c5 dd 37 dd f2 61 64  |...........7..ad|
0000aaf0  28 64 25 29 3a ea 58 25  2c 59 25 2c 42 25 3a c8  |(d%):.X%,Y%,B%:.|
0000ab00  97 58 25 2c 59 25 2c 42  25 3a e7 64 25 3d 5f 64  |.X%,Y%,B%:.d%=_d|
0000ab10  25 8c f2 60 28 58 68 25  2c 58 25 2c 59 25 29 0d  |%..`(Xh%,X%,Y%).|
0000ab20  c6 0a 05 e1 0d c6 13 0e  dd f2 68 64 3a c8 8e 77  |..........hd:..w|
0000ab30  25 ca 0d c6 2e 15 c9 30  3a f2 6f 28 74 25 2c 69  |%......0:.o(t%,i|
0000ab40  66 25 2c 64 66 25 29 0d  c6 40 09 c9 31 3a f2 6a  |f%,df%)..@..1:.j|
0000ab50  0d c6 49 15 c9 32 3a f2  6f 28 6c 25 2c 73 68 25  |..I..2:.o(l%,sh%|
0000ab60  2c 77 68 25 29 0d c6 52  09 c9 33 3a f2 78 0d c6  |,wh%)..R..3:.x..|
0000ab70  5b 05 cb 0d c6 5b 30 77  6d 25 3d 71 61 25 3a f2  |[....[0wm%=qa%:.|
0000ab80  6d 3a 78 6d 25 3d 30 3a  f2 76 64 3a c8 99 26 34  |m:xm%=0:.vd:..&4|
0000ab90  34 41 44 36 2c 6d 25 2c  2d 31 3a 79 6d 25 3d 6d  |4AD6,m%,-1:ym%=m|
0000aba0  25 3a e1 0d c6 9a 15 dd  f2 4e 28 6e 25 29 3a e7  |%:.......N(n%):.|
0000abb0  6e 25 3d 79 6d 25 8c e1  0d c6 b5 42 21 67 25 3d  |n%=ym%.....B!g%=|
0000abc0  79 6d 25 3a c8 99 26 34  30 30 43 42 2c 2c 67 25  |ym%:..&400CB,,g%|
0000abd0  3a c8 99 26 34 30 30 43  36 2c 2c 67 25 3a 21 67  |:..&400C6,,g%:!g|
0000abe0  25 3d 6e 25 3a c8 99 26  34 30 30 43 35 2c 2c 67  |%=n%:..&400C5,,g|
0000abf0  25 3a 79 6d 25 3d 6e 25  3a e1 0d c6 f4 d0 dd f2  |%:ym%=n%:.......|
0000ac00  76 64 3a ea 63 25 3a c8  99 26 34 34 41 44 44 2c  |vd:.c%:..&44ADD,|
0000ac10  33 2c 6d 25 2c 63 65 25  2c 58 61 25 3a f2 4d 28  |3,m%,ce%,Xa%:.M(|
0000ac20  55 6c 25 29 3a 7a 6d 25  3d 56 6c 25 3a c8 99 26  |Ul%):zm%=Vl%:..&|
0000ac30  34 34 41 43 42 2c 6d 25  2c 66 65 25 2c 7a 6d 25  |44ACB,m%,fe%,zm%|
0000ac40  2d 32 3a c8 99 26 34 30  31 38 37 2c 30 b8 75 6d  |-2:..&40187,0.um|
0000ac50  25 3a c8 99 26 34 34 41  43 42 2c 6d 25 2c 67 65  |%:..&44ACB,m%,ge|
0000ac60  25 2c 75 6d 25 2d 79 61  25 3a c8 99 26 34 34 41  |%,um%-ya%:..&44A|
0000ac70  44 34 2c 32 2c 6d 25 2c  68 65 25 2c 28 28 75 6d  |D4,2,m%,he%,((um|
0000ac80  25 2d 79 61 25 29 2a 31  32 38 2f 34 30 39 36 29  |%-ya%)*128/4096)|
0000ac90  2b 31 32 38 3a c8 99 26  34 34 41 44 34 2c 32 2c  |+128:..&44AD4,2,|
0000aca0  6d 25 2c 69 65 25 2c 70  62 25 2a 32 3a 41 6d 25  |m%,ie%,pb%*2:Am%|
0000acb0  3d 70 62 25 3a c8 99 26  34 34 41 44 44 2c 33 2c  |=pb%:..&44ADD,3,|
0000acc0  6d 25 2c 6b 65 25 2c 42  61 25 0d c7 69 c9 c8 99  |m%,ke%,Ba%..i...|
0000acd0  26 34 34 41 44 44 2c 33  2c 6d 25 2c 6a 65 25 2c  |&44ADD,3,m%,je%,|
0000ace0  59 61 25 3a c8 99 26 34  34 41 44 44 2c 33 2c 6d  |Ya%:..&44ADD,3,m|
0000acf0  25 2c 6c 65 25 2c 5a 61  25 3a c8 99 26 34 34 41  |%,le%,Za%:..&44A|
0000ad00  44 44 2c 33 2c 6d 25 2c  6d 65 25 2c 63 6c 25 3a  |DD,3,m%,me%,cl%:|
0000ad10  c8 99 26 34 34 41 44 44  2c 33 2c 6d 25 2c 6e 65  |..&44ADD,3,m%,ne|
0000ad20  25 2c 4a 6b 25 3a c8 99  26 34 34 41 44 44 2c 33  |%,Jk%:..&44ADD,3|
0000ad30  2c 6d 25 2c 6f 65 25 2c  49 6b 25 3a c8 99 26 34  |,m%,oe%,Ik%:..&4|
0000ad40  34 41 44 44 2c 33 2c 6d  25 2c 70 65 25 2c 48 6b  |4ADD,3,m%,pe%,Hk|
0000ad50  25 3a c8 99 26 34 34 41  44 44 2c 33 2c 6d 25 2c  |%:..&44ADD,3,m%,|
0000ad60  71 65 25 2c 47 6b 25 3a  c8 99 26 34 34 41 44 44  |qe%,Gk%:..&44ADD|
0000ad70  2c 33 2c 6d 25 2c 72 65  25 2c 4b 6b 25 3a c8 99  |,3,m%,re%,Kk%:..|
0000ad80  26 34 34 41 44 44 2c 33  2c 6d 25 2c 73 65 25 2c  |&44ADD,3,m%,se%,|
0000ad90  4c 6b 25 0d c7 ba da c8  99 26 34 34 41 44 44 2c  |Lk%......&44ADD,|
0000ada0  33 2c 6d 25 2c 74 65 25  2c 4d 6b 25 3a c8 99 26  |3,m%,te%,Mk%:..&|
0000adb0  34 34 41 44 44 2c 33 2c  6d 25 2c 75 65 25 2c 6e  |44ADD,3,m%,ue%,n|
0000adc0  6d 25 3a c8 99 26 34 34  41 44 44 2c 33 2c 6d 25  |m%:..&44ADD,3,m%|
0000add0  2c 76 65 25 2c 6f 6d 25  3a c8 99 26 34 34 41 44  |,ve%,om%:..&44AD|
0000ade0  44 2c 33 2c 6d 25 2c 77  65 25 2c 4e 6b 25 3a c8  |D,3,m%,we%,Nk%:.|
0000adf0  99 26 34 34 41 44 44 2c  33 2c 4f 64 25 2c 4d 64  |.&44ADD,3,Od%,Md|
0000ae00  25 2c 42 6d 25 3a c8 99  26 34 34 41 44 44 2c 33  |%,Bm%:..&44ADD,3|
0000ae10  2c 4f 64 25 2c 4e 64 25  2c 43 6d 25 3a c8 99 26  |,Od%,Nd%,Cm%:..&|
0000ae20  34 34 41 43 42 2c 4f 64  25 2c 49 64 25 2c 69 6b  |44ACB,Od%,Id%,ik|
0000ae30  25 81 28 32 5e 44 62 25  29 3a c8 99 26 34 34 41  |%.(2^Db%):..&44A|
0000ae40  43 42 2c 4f 64 25 2c 4a  64 25 2c 44 6d 25 3a c8  |CB,Od%,Jd%,Dm%:.|
0000ae50  99 26 34 34 41 43 42 2c  4f 64 25 2c 4b 64 25 2c  |.&44ACB,Od%,Kd%,|
0000ae60  57 25 2f 32 34 3a 76 6d  25 3d 44 62 25 0d c8 26  |W%/24:vm%=Db%..&|
0000ae70  be c8 99 26 34 34 41 44  44 2c 31 2c 4f 64 25 2c  |...&44ADD,1,Od%,|
0000ae80  4c 64 25 2c a4 46 28 76  6d 25 29 3a c8 99 26 34  |Ld%,.F(vm%):..&4|
0000ae90  34 41 43 42 2c 4d 65 25  2c 47 65 25 2c 4f 25 3a  |4ACB,Me%,Ge%,O%:|
0000aea0  c8 99 26 34 34 41 43 42  2c 4d 65 25 2c 48 65 25  |..&44ACB,Me%,He%|
0000aeb0  2c 4c 6c 25 3a c8 99 26  34 34 41 43 42 2c 4d 65  |,Ll%:..&44ACB,Me|
0000aec0  25 2c 49 65 25 2c 6a 6c  25 3a 63 25 3d 32 2a 4f  |%,Ie%,jl%:c%=2*O|
0000aed0  62 25 2f 4b 25 3a c8 99  26 34 34 41 44 44 2c 32  |b%/K%:..&44ADD,2|
0000aee0  2c 4d 65 25 2c 4a 65 25  2c 22 20 20 22 2b c3 28  |,Me%,Je%,"  "+.(|
0000aef0  63 25 2f 32 29 3a c8 99  26 34 34 41 44 44 2c 33  |c%/2):..&44ADD,3|
0000af00  2c 4d 65 25 2c 4b 65 25  2c 77 6c 25 3a c8 99 26  |,Me%,Ke%,wl%:..&|
0000af10  34 34 41 44 44 2c 33 2c  4d 65 25 2c 4c 65 25 2c  |44ADD,3,Me%,Le%,|
0000af20  69 6c 25 3a e3 63 25 3d  30 b8 33 0d c8 80 4f c8  |il%:.c%=0.3...O.|
0000af30  99 26 34 34 41 44 44 2c  33 2c 60 25 2c 51 64 25  |.&44ADD,3,`%,Qd%|
0000af40  2b 63 25 2c 28 67 61 25  80 26 46 29 3d 63 25 3a  |+c%,(ga%.&F)=c%:|
0000af50  ed 3a e7 28 67 61 25 80  33 29 3d 33 80 67 61 25  |.:.(ga%.3)=3.ga%|
0000af60  3e 3d 30 8c c8 99 26 34  34 41 43 42 2c 60 25 2c  |>=0...&44ACB,`%,|
0000af70  55 64 25 2c 67 61 25 3e  3e 34 0d c8 9b d1 c8 99  |Ud%,ga%>>4......|
0000af80  26 34 34 41 44 44 2c 34  2c 60 25 2c 55 64 25 2c  |&44ADD,4,`%,Ud%,|
0000af90  28 67 61 25 80 33 29 3c  3e 33 84 67 61 25 3c 30  |(ga%.3)<>3.ga%<0|
0000afa0  3a c8 99 26 34 34 41 44  44 2c 37 2c 60 25 2c 56  |:..&44ADD,7,`%,V|
0000afb0  64 25 2b 68 61 25 3a c8  99 26 34 34 41 44 44 2c  |d%+ha%:..&44ADD,|
0000afc0  33 2c 60 25 2c 59 64 25  2c 69 61 25 3a f2 7a 64  |3,`%,Yd%,ia%:.zd|
0000afd0  28 67 61 25 3e 3d 30 29  3a c8 99 26 34 34 41 44  |(ga%>=0):..&44AD|
0000afe0  44 2c 33 2c 57 65 25 2c  4e 65 25 2c 50 6c 25 3a  |D,3,We%,Ne%,Pl%:|
0000aff0  c8 99 26 34 34 41 44 44  2c 33 2c 57 65 25 2c 4f  |..&44ADD,3,We%,O|
0000b000  65 25 2c 45 6d 25 3a c8  99 26 34 34 41 44 44 2c  |e%,Em%:..&44ADD,|
0000b010  33 2c 57 65 25 2c 50 65  25 2c 58 6c 25 3a c8 99  |3,We%,Pe%,Xl%:..|
0000b020  26 34 34 41 44 44 2c 33  2c 57 65 25 2c 51 65 25  |&44ADD,3,We%,Qe%|
0000b030  2c 57 6c 25 3a c8 99 26  34 34 41 44 44 2c 33 2c  |,Wl%:..&44ADD,3,|
0000b040  57 65 25 2c 52 65 25 2c  68 6c 25 0d c8 f5 62 c8  |We%,Re%,hl%...b.|
0000b050  99 26 34 34 41 44 44 2c  33 2c 57 65 25 2c 53 65  |.&44ADD,3,We%,Se|
0000b060  25 2c 46 6b 25 3a c8 99  26 34 34 41 44 44 2c 33  |%,Fk%:..&44ADD,3|
0000b070  2c 57 65 25 2c 54 65 25  2c 44 6c 25 3a c8 99 26  |,We%,Te%,Dl%:..&|
0000b080  34 34 41 44 44 2c 33 2c  57 65 25 2c 55 65 25 2c  |44ADD,3,We%,Ue%,|
0000b090  42 6b 25 3a c8 99 26 34  34 41 44 44 2c 33 2c 57  |Bk%:..&44ADD,3,W|
0000b0a0  65 25 2c 56 65 25 2c ac  42 6b 25 3a e1 0d c9 22  |e%,Ve%,.Bk%:..."|
0000b0b0  11 dd a4 46 28 41 25 29  3a c8 8e 41 25 ca 0d c9  |...F(A%):..A%...|
0000b0c0  3d 0e c9 30 3a 3d 22 73  6e 6c 31 22 0d c9 4f 0e  |=..0:="snl1"..O.|
0000b0d0  c9 31 3a 3d 22 73 6e 6c  32 22 0d c9 58 0e c9 32  |.1:="snl2"..X..2|
0000b0e0  3a 3d 22 73 6e 6c 33 22  0d c9 61 05 cb 0d c9 61  |:="snl3"..a....a|
0000b0f0  07 3d 22 22 0d c9 7c 5f  dd f2 4d 28 63 25 29 3a  |.=""..|_..M(c%):|
0000b100  ea 41 24 3a 41 24 3d c1  22 20 43 20 47 20 44 20  |.A$:A$=." C G D |
0000b110  41 20 45 20 42 46 23 43  23 20 46 42 62 45 62 41  |A E BF#C# FBbEbA|
0000b120  62 44 62 47 62 43 62 22  2c 63 25 2a 32 2b 31 2c  |bDbGbCb",c%*2+1,|
0000b130  32 29 2b 22 20 4d 61 6a  6f 72 22 3a e7 c1 41 24  |2)+" Major":..A$|
0000b140  2c 31 2c 31 29 3d 22 20  22 8c 41 24 3d c1 41 24  |,1,1)=" ".A$=.A$|
0000b150  2c 32 29 0d c9 97 30 c8  99 26 34 34 41 44 44 2c  |,2)...0..&44ADD,|
0000b160  32 2c 6d 25 2c 5a 64 25  2c 41 24 3a e7 63 25 3e  |2,m%,Zd%,A$:.c%>|
0000b170  37 8c 46 6d 25 3d b9 3a  63 25 2d 3d 37 8b 46 6d  |7.Fm%=.:c%-=7.Fm|
0000b180  25 3d a3 0d c9 a9 0a e7  63 25 3e 30 8c 0d c9 b2  |%=......c%>0....|
0000b190  09 e7 46 6d 25 8c 0d c9  bb 15 c8 99 26 34 34 41  |..Fm%.......&44A|
0000b1a0  44 44 2c 37 2c 6d 25 2c  61 65 25 0d c9 cd 17 cc  |DD,7,m%,ae%.....|
0000b1b0  3a c8 99 26 34 34 41 44  44 2c 37 2c 6d 25 2c 60  |:..&44ADD,7,m%,`|
0000b1c0  64 25 0d c9 df 05 cd 0d  c9 df 05 cd 0d c9 e8 3d  |d%.............=|
0000b1d0  c8 99 26 34 34 41 43 42  2c 6d 25 2c 62 65 25 2c  |..&44ACB,m%,be%,|
0000b1e0  63 25 3a c8 99 26 34 34  41 44 45 2c 33 2c 6d 25  |c%:..&44ADE,3,m%|
0000b1f0  2c 63 65 25 b8 2c 2c 2c  41 25 3a e7 41 25 8c 41  |,ce%.,,,A%:.A%.A|
0000b200  25 3d 2d 31 8b 41 25 3d  30 0d ca 03 9c c8 99 26  |%=-1.A%=0......&|
0000b210  34 34 41 44 44 2c 34 2c  6d 25 2c 5a 64 25 2c 41  |44ADD,4,m%,Zd%,A|
0000b220  25 3a c8 99 26 34 34 41  44 44 2c 34 2c 6d 25 2c  |%:..&44ADD,4,m%,|
0000b230  61 65 25 2c 41 25 3a c8  99 26 34 34 41 44 44 2c  |ae%,A%:..&44ADD,|
0000b240  34 2c 6d 25 2c 60 64 25  2c 41 25 3a c8 99 26 34  |4,m%,`d%,A%:..&4|
0000b250  34 41 44 44 2c 34 2c 6d  25 2c 62 65 25 2d 31 2c  |4ADD,4,m%,be%-1,|
0000b260  41 25 3a c8 99 26 34 34  41 44 44 2c 34 2c 6d 25  |A%:..&44ADD,4,m%|
0000b270  2c 62 65 25 2c 41 25 3a  c8 99 26 34 34 41 44 44  |,be%,A%:..&44ADD|
0000b280  2c 34 2c 6d 25 2c 62 65  25 2b 31 2c 41 25 3a c8  |,4,m%,be%+1,A%:.|
0000b290  99 26 34 34 41 44 44 2c  34 2c 6d 25 2c 5f 64 25  |.&44ADD,4,m%,_d%|
0000b2a0  2c 41 25 3a e1 0d ca 4b  4e dd f2 77 64 3a ea 41  |,A%:...KN..wd:.A|
0000b2b0  25 2c 63 25 3a f2 69 3a  c8 99 26 34 34 41 43 43  |%,c%:.i:..&44ACC|
0000b2c0  2c 6d 25 2c 62 65 25 b8  2c 2c 63 25 3a c8 99 26  |,m%,be%.,,c%:..&|
0000b2d0  34 34 41 44 45 2c 33 2c  6d 25 2c 61 65 25 b8 2c  |44ADE,3,m%,ae%.,|
0000b2e0  2c 2c 41 25 3a e7 41 25  80 63 25 3e 30 8c 63 25  |,,A%:.A%.c%>0.c%|
0000b2f0  2b 3d 37 0d ca 8a 25 c8  99 26 34 34 41 44 45 2c  |+=7...%..&44ADE,|
0000b300  33 2c 6d 25 2c 63 65 25  b8 2c 2c 2c 41 25 3a e7  |3,m%,ce%.,,,A%:.|
0000b310  58 61 25 3c 3e 41 25 8c  0d ca a5 18 58 61 25 3d  |Xa%<>A%.....Xa%=|
0000b320  41 25 3a e7 41 25 8c 41  25 3d 30 8b 41 25 3d 32  |A%:.A%.A%=0.A%=2|
0000b330  0d ca b7 19 21 46 69 25  3d 41 25 3a 43 62 25 3d  |....!Fi%=A%:Cb%=|
0000b340  41 25 3a e7 77 25 3d 31  8c 0d ca d2 10 f2 7a 3a  |A%:.w%=1......z:|
0000b350  41 25 3d 30 3a d6 77 69  25 0d ca f6 05 cd 0d ca  |A%=0:.wi%.......|
0000b360  f6 05 cd 0d ca ff 54 c8  99 26 34 34 41 43 43 2c  |......T..&44ACC,|
0000b370  6d 25 2c 66 65 25 b8 2c  2c 41 25 3a 56 6c 25 3d  |m%,fe%.,,A%:Vl%=|
0000b380  41 25 2b 32 3a f2 74 63  28 63 25 29 3a c8 99 26  |A%+2:.tc(c%):..&|
0000b390  34 34 41 44 34 2c 31 2c  6d 25 2c 69 65 25 b8 70  |44AD4,1,m%,ie%.p|
0000b3a0  62 25 3a 70 62 25 3d 70  62 25 2f 32 3a e7 44 62  |b%:pb%=pb%/2:.Db|
0000b3b0  25 3c 3e 76 6d 25 8c 0d  cb 47 1a e7 77 25 3d 31  |%<>vm%...G..w%=1|
0000b3c0  8c f2 6a 3a f2 79 28 32  5e 76 6d 25 2c 67 62 25  |..j:.y(2^vm%,gb%|
0000b3d0  29 0d cb 50 0b 44 62 25  3d 76 6d 25 0d cb 62 05  |)..P.Db%=vm%..b.|
0000b3e0  cd 0d cb 62 25 c8 99 26  34 34 41 44 45 2c 33 2c  |...b%..&44ADE,3,|
0000b3f0  6d 25 2c 6b 65 25 b8 2c  2c 2c 41 25 3a e7 41 25  |m%,ke%.,,,A%:.A%|
0000b400  3c 3e 42 61 25 8c 0d cb  7d 10 42 61 25 3d 41 25  |<>Ba%...}.Ba%=A%|
0000b410  3a c8 8e 77 25 ca 0d cb  8f 0e c9 30 3a f2 41 63  |:..w%......0:.Ac|
0000b420  3a f2 45 62 0d cb a1 0d  c9 31 3a f2 59 3a f2 5f  |:.Eb.....1:.Y:._|
0000b430  61 0d cb aa 0e c9 32 3a  f2 76 62 3a f2 71 62 0d  |a.....2:.vb:.qb.|
0000b440  cb b3 0e c9 33 3a f2 5a  62 3a f2 46 62 0d cb bc  |....3:.Zb:.Fb...|
0000b450  05 cb 0d cb bc 05 cd 0d  cb c5 68 c8 99 26 34 34  |..........h..&44|
0000b460  41 44 45 2c 33 2c 6d 25  2c 6a 65 25 b8 2c 2c 2c  |ADE,3,m%,je%.,,,|
0000b470  59 61 25 3a c8 99 26 34  34 41 44 45 2c 33 2c 6d  |Ya%:..&44ADE,3,m|
0000b480  25 2c 6c 65 25 b8 2c 2c  2c 5a 61 25 3a c8 99 26  |%,le%.,,,Za%:..&|
0000b490  34 34 41 44 45 2c 33 2c  6d 25 2c 6d 65 25 b8 2c  |44ADE,3,m%,me%.,|
0000b4a0  2c 2c 63 6c 25 3a e7 28  28 ac 63 6c 25 29 80 28  |,,cl%:.((.cl%).(|
0000b4b0  77 25 3e 3d 30 29 29 8c  f2 45 28 30 2c b9 29 0d  |w%>=0))..E(0,.).|
0000b4c0  cb f2 a6 c8 99 26 34 34  41 44 45 2c 33 2c 4f 64  |.....&44ADE,3,Od|
0000b4d0  25 2c 4d 64 25 b8 2c 2c  2c 42 6d 25 3a c8 99 26  |%,Md%.,,,Bm%:..&|
0000b4e0  34 34 41 44 45 2c 33 2c  4f 64 25 2c 4e 64 25 b8  |44ADE,3,Od%,Nd%.|
0000b4f0  2c 2c 2c 43 6d 25 3a c8  99 26 34 34 41 43 43 2c  |,,,Cm%:..&44ACC,|
0000b500  4f 64 25 2c 49 64 25 b8  2c 2c 69 6b 25 3a 69 6b  |Od%,Id%.,,ik%:ik|
0000b510  25 3d 69 6b 25 2a 28 32  5e 44 62 25 29 3a c8 99  |%=ik%*(2^Db%):..|
0000b520  26 34 34 41 43 43 2c 4f  64 25 2c 4a 64 25 b8 2c  |&44ACC,Od%,Jd%.,|
0000b530  2c 44 6d 25 3a 21 63 6b  25 3d 44 6d 25 3a c8 99  |,Dm%:!ck%=Dm%:..|
0000b540  26 34 34 41 43 43 2c 4f  64 25 2c 4b 64 25 b8 2c  |&44ACC,Od%,Kd%.,|
0000b550  2c 41 25 3a 41 25 3d 41  25 2a 32 34 3a e7 41 25  |,A%:A%=A%*24:.A%|
0000b560  3c 3e 57 25 8c 0d cc 4c  14 63 25 3d b9 3a e7 41  |<>W%...L.c%=.:.A|
0000b570  25 3c ba 28 61 69 25 29  8c 0d cc 5e a5 21 67 25  |%<.(ai%)...^.!g%|
0000b580  3d 34 3a 24 28 67 25 2b  34 29 3d 22 52 65 64 75  |=4:$(g%+4)="Redu|
0000b590  63 69 6e 67 20 74 68 65  20 70 61 70 65 72 20 6c  |cing the paper l|
0000b5a0  65 6e 67 74 68 20 66 6f  72 20 74 68 65 20 74 75  |ength for the tu|
0000b5b0  6e 65 20 62 6f 78 20 77  69 6c 6c 20 74 72 75 6e  |ne box will trun|
0000b5c0  63 61 74 65 20 74 68 65  20 70 72 65 73 65 6e 74  |cate the present|
0000b5d0  20 74 75 6e 65 2e 20 53  68 61 6c 6c 20 49 20 63  | tune. Shall I c|
0000b5e0  6f 6e 74 69 6e 75 65 20  61 6e 64 20 72 65 64 75  |ontinue and redu|
0000b5f0  63 65 20 69 74 3f 22 2b  bd 30 3a c8 99 26 34 30  |ce it?"+.0:..&40|
0000b600  30 44 46 2c 67 25 2c 25  31 31 30 31 31 2c 6f 24  |0DF,g%,%11011,o$|
0000b610  b8 2c 63 25 3a 63 25 3d  28 63 25 3d 31 29 0d cc  |.,c%:c%=(c%=1)..|
0000b620  8b 05 cd 0d cc 8b 08 e7  63 25 8c 0d cc 94 59 57  |........c%....YW|
0000b630  25 3d 41 25 3a 21 5a 68  25 3d 41 25 3a 21 5f 68  |%=A%:!Zh%=A%:!_h|
0000b640  25 3d 41 25 2a 31 32 3a  21 6d 69 25 3d 41 25 2a  |%=A%*12:!mi%=A%*|
0000b650  31 32 3a c8 99 26 34 34  41 44 41 2c 6a 63 25 2b  |12:..&44ADA,jc%+|
0000b660  41 25 2a 31 32 2c 76 62  25 2a 31 32 2b 31 32 2d  |A%*12,vb%*12+12-|
0000b670  41 25 2a 31 32 3a e7 77  25 3d 31 8c f2 7a 3a f2  |A%*12:.w%=1..z:.|
0000b680  43 28 30 29 0d cc ca 05  cd 0d cc d3 05 cd 0d cc  |C(0)............|
0000b690  dc 40 c8 99 26 34 34 41  43 43 2c 4d 65 25 2c 47  |.@..&44ACC,Me%,G|
0000b6a0  65 25 b8 2c 2c 42 25 3a  c8 99 26 34 34 41 43 43  |e%.,,B%:..&44ACC|
0000b6b0  2c 4d 65 25 2c 49 65 25  b8 2c 2c 41 25 3a 43 25  |,Me%,Ie%.,,A%:C%|
0000b6c0  3d 4f 25 3a e7 43 25 3c  31 8c 43 25 3d 36 0d cd  |=O%:.C%<1.C%=6..|
0000b6d0  09 38 43 25 3d 28 28 48  62 25 2a 43 25 2d 31 29  |.8C%=((Hb%*C%-1)|
0000b6e0  81 42 25 29 2b 31 3a e7  6a 6c 25 3c 3e 41 25 84  |.B%)+1:.jl%<>A%.|
0000b6f0  4f 25 3c 3e 42 25 8c f2  56 62 28 43 25 2c 42 25  |O%<>B%..Vb(C%,B%|
0000b700  2c 41 25 2c b9 29 0d cd  1b 68 c8 99 26 34 34 41  |,A%,.)...h..&44A|
0000b710  43 43 2c 4d 65 25 2c 48  65 25 b8 2c 2c 42 25 3a  |CC,Me%,He%.,,B%:|
0000b720  c8 99 26 34 34 41 44 45  2c 32 2c 4d 65 25 2c 4a  |..&44ADE,2,Me%,J|
0000b730  65 25 2c 67 25 2c 31 36  3a 41 25 3d a0 28 a4 63  |e%,g%,16:A%=.(.c|
0000b740  28 67 25 29 29 2a 32 3a  41 25 3d 41 25 2a 4b 25  |(g%))*2:A%=A%*K%|
0000b750  2f 32 3a e7 41 25 3c 3e  4f 62 25 84 42 25 3c 3e  |/2:.A%<>Ob%.B%<>|
0000b760  4c 6c 25 8c f2 70 63 28  41 25 2c 42 25 29 0d cd  |Ll%..pc(A%,B%)..|
0000b770  51 cb c8 99 26 34 34 41  44 45 2c 33 2c 6d 25 2c  |Q...&44ADE,3,m%,|
0000b780  6e 65 25 b8 2c 2c 2c 4a  6b 25 3a c8 99 26 34 34  |ne%.,,,Jk%:..&44|
0000b790  41 44 45 2c 33 2c 6d 25  2c 6f 65 25 b8 2c 2c 2c  |ADE,3,m%,oe%.,,,|
0000b7a0  49 6b 25 3a c8 99 26 34  34 41 44 45 2c 33 2c 6d  |Ik%:..&44ADE,3,m|
0000b7b0  25 2c 70 65 25 b8 2c 2c  2c 48 6b 25 3a c8 99 26  |%,pe%.,,,Hk%:..&|
0000b7c0  34 34 41 44 45 2c 33 2c  6d 25 2c 71 65 25 b8 2c  |44ADE,3,m%,qe%.,|
0000b7d0  2c 2c 47 6b 25 3a c8 99  26 34 34 41 44 45 2c 33  |,,Gk%:..&44ADE,3|
0000b7e0  2c 6d 25 2c 72 65 25 b8  2c 2c 2c 4b 6b 25 3a c8  |,m%,re%.,,,Kk%:.|
0000b7f0  99 26 34 34 41 44 45 2c  33 2c 6d 25 2c 73 65 25  |.&44ADE,3,m%,se%|
0000b800  b8 2c 2c 2c 4c 6b 25 3a  c8 99 26 34 34 41 44 45  |.,,,Lk%:..&44ADE|
0000b810  2c 33 2c 6d 25 2c 74 65  25 b8 2c 2c 2c 4d 6b 25  |,3,m%,te%.,,,Mk%|
0000b820  3a c8 99 26 34 34 41 44  45 2c 33 2c 6d 25 2c 75  |:..&44ADE,3,m%,u|
0000b830  65 25 b8 2c 2c 2c 6e 6d  25 0d cd a2 bc c8 99 26  |e%.,,,nm%......&|
0000b840  34 34 41 44 45 2c 33 2c  6d 25 2c 76 65 25 b8 2c  |44ADE,3,m%,ve%.,|
0000b850  2c 2c 6f 6d 25 3a c8 99  26 34 34 41 44 45 2c 33  |,,om%:..&44ADE,3|
0000b860  2c 6d 25 2c 77 65 25 b8  2c 2c 2c 4e 6b 25 3a c8  |,m%,we%.,,,Nk%:.|
0000b870  99 26 34 34 41 44 45 2c  33 2c 4d 65 25 2c 4b 65  |.&44ADE,3,Me%,Ke|
0000b880  25 b8 2c 2c 2c 77 6c 25  3a c8 99 26 34 34 41 44  |%.,,,wl%:..&44AD|
0000b890  45 2c 33 2c 4d 65 25 2c  4c 65 25 b8 2c 2c 2c 69  |E,3,Me%,Le%.,,,i|
0000b8a0  6c 25 3a c8 99 26 34 34  41 43 43 2c 6d 25 2c 67  |l%:..&44ACC,m%,g|
0000b8b0  65 25 b8 2c 2c 63 25 3a  47 6d 25 3d 63 25 3a c8  |e%.,,c%:Gm%=c%:.|
0000b8c0  99 26 34 34 41 44 45 2c  33 2c 60 25 2c 59 64 25  |.&44ADE,3,`%,Yd%|
0000b8d0  b8 2c 2c 2c 69 61 25 3a  c8 99 26 34 34 41 44 45  |.,,,ia%:..&44ADE|
0000b8e0  2c 33 2c 60 25 2c 50 64  25 b8 2c 2c 2c 63 25 3a  |,3,`%,Pd%.,,,c%:|
0000b8f0  e7 ac 63 25 8c 0d ce 0e  09 63 25 3d 2d 31 0d ce  |..c%.....c%=-1..|
0000b900  20 37 cc 3a 63 25 3d 30  3a e3 65 25 3d 30 b8 33  | 7.:c%=0:.e%=0.3|
0000b910  3a c8 99 26 34 34 41 44  45 2c 33 2c 60 25 2c 51  |:..&44ADE,3,`%,Q|
0000b920  64 25 2b 65 25 b8 2c 2c  2c 41 25 3a e7 41 25 8c  |d%+e%.,,,A%:.A%.|
0000b930  63 25 3d 65 25 0d ce 44  2d ed 3a e7 63 25 3d 33  |c%=e%..D-.:.c%=3|
0000b940  8c c8 99 26 34 34 41 43  43 2c 60 25 2c 55 64 25  |...&44ACC,`%,Ud%|
0000b950  b8 2c 2c 63 25 3a 63 25  3d 28 63 25 3c 3c 34 84  |.,,c%:c%=(c%<<4.|
0000b960  33 29 0d ce 56 05 cd 0d  ce 5f 3c 67 61 25 3d 63  |3)..V...._<ga%=c|
0000b970  25 3a 63 25 3d 30 3a e3  65 25 3d 30 b8 32 3a c8  |%:c%=0:.e%=0.2:.|
0000b980  99 26 34 34 41 44 45 2c  33 2c 60 25 2c 56 64 25  |.&44ADE,3,`%,Vd%|
0000b990  2b 65 25 b8 2c 2c 2c 41  25 3a e7 41 25 8c 63 25  |+e%.,,,A%:.A%.c%|
0000b9a0  3d 65 25 0d ce 8c 19 ed  3a 68 61 25 3d 63 25 3a  |=e%.....:ha%=c%:|
0000b9b0  f2 41 64 3a f2 42 64 3a  f2 70 3a e1 0d ce c2 be  |.Ad:.Bd:.p:.....|
0000b9c0  dd f2 41 64 3a c8 99 26  34 34 41 44 45 2c 33 2c  |..Ad:..&44ADE,3,|
0000b9d0  57 65 25 2c 4e 65 25 b8  2c 2c 2c 50 6c 25 3a c8  |We%,Ne%.,,,Pl%:.|
0000b9e0  99 26 34 34 41 44 45 2c  33 2c 57 65 25 2c 4f 65  |.&44ADE,3,We%,Oe|
0000b9f0  25 b8 2c 2c 2c 45 6d 25  3a c8 99 26 34 34 41 44  |%.,,,Em%:..&44AD|
0000ba00  45 2c 33 2c 57 65 25 2c  50 65 25 b8 2c 2c 2c 58  |E,3,We%,Pe%.,,,X|
0000ba10  6c 25 3a c8 99 26 34 34  41 44 45 2c 33 2c 57 65  |l%:..&44ADE,3,We|
0000ba20  25 2c 51 65 25 b8 2c 2c  2c 57 6c 25 3a c8 99 26  |%,Qe%.,,,Wl%:..&|
0000ba30  34 34 41 44 45 2c 33 2c  57 65 25 2c 52 65 25 b8  |44ADE,3,We%,Re%.|
0000ba40  2c 2c 2c 68 6c 25 3a c8  99 26 34 34 41 44 45 2c  |,,,hl%:..&44ADE,|
0000ba50  33 2c 57 65 25 2c 53 65  25 b8 2c 2c 2c 46 6b 25  |3,We%,Se%.,,,Fk%|
0000ba60  3a c8 99 26 34 34 41 44  45 2c 33 2c 57 65 25 2c  |:..&44ADE,3,We%,|
0000ba70  54 65 25 b8 2c 2c 2c 44  6c 25 0d cf 1c 1f c8 99  |Te%.,,,Dl%......|
0000ba80  26 34 34 41 44 45 2c 33  2c 57 65 25 2c 55 65 25  |&44ADE,3,We%,Ue%|
0000ba90  b8 2c 2c 2c 42 6b 25 3a  e1 0d cf 2e e3 dd f2 79  |.,,,Bk%:.......y|
0000baa0  64 3a 69 61 25 3d b9 3a  42 6d 25 3d b9 3a 43 6d  |d:ia%=.:Bm%=.:Cm|
0000bab0  25 3d a3 3a 55 6c 25 3d  32 3a 58 61 25 3d 30 3a  |%=.:Ul%=2:Xa%=0:|
0000bac0  56 6c 25 3d 34 3a 47 6d  25 3d 30 3a 70 62 25 3d  |Vl%=4:Gm%=0:pb%=|
0000bad0  39 30 3a 42 61 25 3d a3  3a 59 61 25 3d b9 3a 5a  |90:Ba%=.:Ya%=.:Z|
0000bae0  61 25 3d b9 3a 63 6c 25  3d b9 3a 4a 6b 25 3d b9  |a%=.:cl%=.:Jk%=.|
0000baf0  3a 49 6b 25 3d b9 3a 48  6b 25 3d b9 3a 47 6b 25  |:Ik%=.:Hk%=.:Gk%|
0000bb00  3d b9 3a 4b 6b 25 3d b9  3a 4c 6b 25 3d b9 3a 4d  |=.:Kk%=.:Lk%=.:M|
0000bb10  6b 25 3d b9 3a 6e 6d 25  3d b9 3a 6f 6d 25 3d b9  |k%=.:nm%=.:om%=.|
0000bb20  3a 4e 6b 25 3d b9 3a 69  6b 25 3d 34 2a 32 3a 44  |:Nk%=.:ik%=4*2:D|
0000bb30  6d 25 3d 34 3a 57 25 3d  31 30 30 3a 44 62 25 3d  |m%=4:W%=100:Db%=|
0000bb40  31 3a 4f 25 3d 36 3a 4c  6c 25 3d 34 3a 6a 6c 25  |1:O%=6:Ll%=4:jl%|
0000bb50  3d 31 30 30 3a 4f 62 25  3d 32 2a 4b 25 3a 77 6c  |=100:Ob%=2*K%:wl|
0000bb60  25 3d b9 3a 69 6c 25 3d  b9 3a 67 61 25 3d 2d 31  |%=.:il%=.:ga%=-1|
0000bb70  3a 68 61 25 3d 30 3a 50  6c 25 3d b9 0d d0 8d 40  |:ha%=0:Pl%=....@|
0000bb80  45 6d 25 3d a3 3a 58 6c  25 3d a3 3a 57 6c 25 3d  |Em%=.:Xl%=.:Wl%=|
0000bb90  a3 3a 68 6c 25 3d a3 3a  46 6b 25 3d a3 3a 44 6c  |.:hl%=.:Fk%=.:Dl|
0000bba0  25 3d a3 3a 42 6b 25 3d  a3 3a c8 99 26 34 30 31  |%=.:Bk%=.:..&401|
0000bbb0  38 37 2c 79 61 25 2b 47  6d 25 3a e1 0d d0 de bc  |87,ya%+Gm%:.....|
0000bbc0  dd f2 4d 63 3a ea 41 25  2c 53 6b 25 3a c8 99 26  |..Mc:.A%,Sk%:..&|
0000bbd0  34 34 41 44 45 2c 32 2c  6d 25 2c 65 65 25 2c 67  |44ADE,2,m%,ee%,g|
0000bbe0  25 2c 38 3a 63 25 3d 28  a7 22 41 20 41 23 42 20  |%,8:c%=(."A A#B |
0000bbf0  43 20 43 23 44 20 44 23  45 20 46 20 46 23 47 20  |C C#D D#E F F#G |
0000bc00  47 23 22 2c a4 63 28 67  25 29 29 2d 31 29 2f 32  |G#",.c(g%))-1)/2|
0000bc10  3a 53 6b 25 3d a0 28 c1  22 26 30 43 30 30 26 30  |:Sk%=.(."&0C00&0|
0000bc20  44 35 35 26 30 45 41 41  26 31 30 30 30 26 31 31  |D55&0EAA&1000&11|
0000bc30  35 35 26 31 32 41 41 26  31 34 30 30 26 31 35 35  |55&12AA&1400&155|
0000bc40  35 26 31 36 41 41 26 31  38 30 30 26 31 39 35 35  |5&16AA&1800&1955|
0000bc50  26 31 41 41 41 22 2c 63  25 2a 35 2b 31 2c 35 29  |&1AAA",c%*5+1,5)|
0000bc60  29 2b 26 31 30 30 30 2a  7a 6d 25 3a c8 99 26 34  |)+&1000*zm%:..&4|
0000bc70  30 30 43 46 2c 2c 67 25  0d d1 1d 2a 41 25 3d 28  |00CF,,g%...*A%=(|
0000bc80  28 72 63 25 3d 68 65 25  29 80 28 6d 25 3d 71 63  |(rc%=he%).(m%=qc|
0000bc90  25 29 80 49 61 25 29 3a  e7 67 25 21 31 32 3d 6d  |%).Ia%):.g%!12=m|
0000bca0  25 8c 0d d1 2f 0c c8 8e  67 25 21 31 36 ca 0d d1  |%.../...g%!16...|
0000bcb0  38 36 c9 31 33 2c 36 37  2c 32 30 2c 32 31 2c 32  |86.13,67,20,21,2|
0000bcc0  32 2c 33 31 2c 33 32 2c  33 33 2c 33 34 2c 33 35  |2,31,32,33,34,35|
0000bcd0  2c 33 36 2c 33 37 2c 33  38 2c 33 39 2c 34 30 3a  |,36,37,38,39,40:|
0000bce0  41 25 3d b9 0d d1 4a 05  cb 0d d1 4a 05 cd 0d d1  |A%=...J....J....|
0000bcf0  53 08 e7 41 25 8c 0d d1  5c 09 e7 74 63 25 8c 0d  |S..A%...\..tc%..|
0000bd00  d1 65 1d e7 73 63 25 3c  3e 53 6b 25 8c d4 38 2c  |.e..sc%<>Sk%..8,|
0000bd10  26 31 46 46 2c 53 6b 25  2c 32 35 35 0d d1 6e 1b  |&1FF,Sk%,255..n.|
0000bd20  cc 3a d4 38 2c 26 31 37  46 2c 53 6b 25 2c 32 35  |.:.8,&17F,Sk%,25|
0000bd30  35 3a 74 63 25 3d b9 0d  d1 92 05 cd 0d d1 92 15  |5:tc%=..........|
0000bd40  cc 3a e7 74 63 25 8c d4  38 2c 30 2c 53 6b 25 2c  |.:.tc%..8,0,Sk%,|
0000bd50  31 0d d1 a4 09 74 63 25  3d a3 0d d1 b6 05 cd 0d  |1....tc%=.......|
0000bd60  d1 b6 0d 73 63 25 3d 53  6b 25 3a e1 0d d1 c8 2b  |...sc%=Sk%:....+|
0000bd70  dd f2 66 64 28 63 25 29  3a ea 41 25 3a 41 6d 25  |..fd(c%):.A%:Am%|
0000bd80  3d 63 25 2f 32 3a c8 99  26 34 32 b8 41 25 3a e7  |=c%/2:..&42.A%:.|
0000bd90  41 25 3e 78 6d 25 8c 0d  d1 fe 1e 78 6d 25 3d 41  |A%>xm%.....xm%=A|
0000bda0  25 2b 33 30 3a d4 38 2c  26 31 30 30 2b 41 6d 25  |%+30:.8,&100+Am%|
0000bdb0  2c 38 30 2c 32 0d d2 19  05 cd 0d d2 19 05 e1 0d  |,80,2...........|
0000bdc0  d2 22 18 dd f2 75 64 3a  f2 68 28 79 6d 25 29 3a  |."...ud:.h(ym%):|
0000bdd0  e7 77 6d 25 8c f2 74 0d  d2 46 05 e1 0d d2 4f ba  |.wm%..t..F....O.|
0000bde0  dd f2 7a 64 28 63 25 29  3a ea 41 25 2c 48 6d 25  |..zd(c%):.A%,Hm%|
0000bdf0  3a 63 25 3d ac 63 25 3a  c8 99 26 34 34 41 44 44  |:c%=.c%:..&44ADD|
0000be00  2c 33 2c 60 25 2c 50 64  25 2c ac 63 25 3a c8 99  |,3,`%,Pd%,.c%:..|
0000be10  26 34 34 41 44 44 2c 34  2c 60 25 2c 51 64 25 2c  |&44ADD,4,`%,Qd%,|
0000be20  63 25 3a c8 99 26 34 34  41 44 44 2c 34 2c 60 25  |c%:..&44ADD,4,`%|
0000be30  2c 52 64 25 2c 63 25 3a  c8 99 26 34 34 41 44 44  |,Rd%,c%:..&44ADD|
0000be40  2c 34 2c 60 25 2c 53 64  25 2c 63 25 3a c8 99 26  |,4,`%,Sd%,c%:..&|
0000be50  34 34 41 44 44 2c 34 2c  60 25 2c 54 64 25 2c 63  |44ADD,4,`%,Td%,c|
0000be60  25 3a 48 6d 25 3d 2d 31  3a e3 65 25 3d 30 b8 33  |%:Hm%=-1:.e%=0.3|
0000be70  3a c8 99 26 34 34 41 44  45 2c 33 2c 60 25 2c 51  |:..&44ADE,3,`%,Q|
0000be80  64 25 2b 65 25 b8 2c 2c  2c 41 25 3a e7 41 25 8c  |d%+e%.,,,A%:.A%.|
0000be90  48 6d 25 3d 65 25 0d d2  c4 27 ed 3a e7 48 6d 25  |Hm%=e%...'.:.Hm%|
0000bea0  3d 2d 31 8c 48 6d 25 3d  30 3a c8 99 26 34 34 41  |=-1.Hm%=0:..&44A|
0000beb0  44 44 2c 33 2c 60 25 2c  51 64 25 2c b9 0d d2 d6  |DD,3,`%,Qd%,....|
0000bec0  23 c8 99 26 34 34 41 44  44 2c 34 2c 60 25 2c 55  |#..&44ADD,4,`%,U|
0000bed0  64 25 2c 28 63 25 84 48  6d 25 3c 3e 33 29 3a e1  |d%,(c%.Hm%<>3):.|
0000bee0  0d d2 e8 4b dd f2 78 64  3a ea 76 25 2c 62 25 2c  |...K..xd:.v%,b%,|
0000bef0  61 25 2c 65 24 3a 65 24  3d 22 3c 4d 42 43 6f 6e  |a%,e$:e$="<MBCon|
0000bf00  66 69 67 46 69 6c 65 73  24 44 69 72 3e 2e 44 65  |figFiles$Dir>.De|
0000bf10  66 61 75 6c 74 73 22 3a  61 25 3d a4 44 28 65 24  |faults":a%=.D(e$|
0000bf20  2c a3 29 3a e7 61 25 3d  30 8c e1 0d d3 1e 2a 62  |,.):.a%=0.....*b|
0000bf30  25 3d a4 66 28 22 4d 42  43 6f 6e 66 69 67 22 2c  |%=.f("MBConfig",|
0000bf40  61 25 29 3a e7 62 25 3d  30 8c 62 25 3d a4 62 28  |a%):.b%=0.b%=.b(|
0000bf50  31 2c 61 25 29 0d d3 30  1a e7 62 25 3d 30 8c 62  |1,a%)..0..b%=0.b|
0000bf60  25 3d a4 66 28 22 43 6f  6e 66 22 2c 61 25 29 0d  |%=.f("Conf",a%).|
0000bf70  d3 39 1a e7 62 25 3d 30  8c 62 25 3d a4 62 28 34  |.9..b%=0.b%=.b(4|
0000bf80  31 2a 34 2b 38 2c 61 25  29 0d d3 42 17 e7 62 25  |1*4+8,a%)..B..b%|
0000bf90  3d 30 8c 62 25 3d a4 62  28 55 6c 25 2c 61 25 29  |=0.b%=.b(Ul%,a%)|
0000bfa0  0d d3 4b 17 e7 62 25 3d  30 8c 62 25 3d a4 62 28  |..K..b%=0.b%=.b(|
0000bfb0  58 61 25 2c 61 25 29 0d  d3 54 17 e7 62 25 3d 30  |Xa%,a%)..T..b%=0|
0000bfc0  8c 62 25 3d a4 62 28 56  6c 25 2c 61 25 29 0d d3  |.b%=.b(Vl%,a%)..|
0000bfd0  5d 17 e7 62 25 3d 30 8c  62 25 3d a4 62 28 47 6d  |]..b%=0.b%=.b(Gm|
0000bfe0  25 2c 61 25 29 0d d3 66  17 e7 62 25 3d 30 8c 62  |%,a%)..f..b%=0.b|
0000bff0  25 3d a4 62 28 70 62 25  2c 61 25 29 0d d3 6f 17  |%=.b(pb%,a%)..o.|
0000c000  e7 62 25 3d 30 8c 62 25  3d a4 62 28 42 61 25 2c  |.b%=0.b%=.b(Ba%,|
0000c010  61 25 29 0d d3 78 17 e7  62 25 3d 30 8c 62 25 3d  |a%)..x..b%=0.b%=|
0000c020  a4 62 28 59 61 25 2c 61  25 29 0d d3 81 17 e7 62  |.b(Ya%,a%).....b|
0000c030  25 3d 30 8c 62 25 3d a4  62 28 5a 61 25 2c 61 25  |%=0.b%=.b(Za%,a%|
0000c040  29 0d d3 8a 17 e7 62 25  3d 30 8c 62 25 3d a4 62  |).....b%=0.b%=.b|
0000c050  28 63 6c 25 2c 61 25 29  0d d3 93 17 e7 62 25 3d  |(cl%,a%).....b%=|
0000c060  30 8c 62 25 3d a4 62 28  4a 6b 25 2c 61 25 29 0d  |0.b%=.b(Jk%,a%).|
0000c070  d3 9c 17 e7 62 25 3d 30  8c 62 25 3d a4 62 28 49  |....b%=0.b%=.b(I|
0000c080  6b 25 2c 61 25 29 0d d3  a5 17 e7 62 25 3d 30 8c  |k%,a%).....b%=0.|
0000c090  62 25 3d a4 62 28 48 6b  25 2c 61 25 29 0d d3 ae  |b%=.b(Hk%,a%)...|
0000c0a0  17 e7 62 25 3d 30 8c 62  25 3d a4 62 28 47 6b 25  |..b%=0.b%=.b(Gk%|
0000c0b0  2c 61 25 29 0d d3 b7 17  e7 62 25 3d 30 8c 62 25  |,a%).....b%=0.b%|
0000c0c0  3d a4 62 28 4b 6b 25 2c  61 25 29 0d d3 c0 17 e7  |=.b(Kk%,a%).....|
0000c0d0  62 25 3d 30 8c 62 25 3d  a4 62 28 4c 6b 25 2c 61  |b%=0.b%=.b(Lk%,a|
0000c0e0  25 29 0d d3 c9 17 e7 62  25 3d 30 8c 62 25 3d a4  |%).....b%=0.b%=.|
0000c0f0  62 28 4d 6b 25 2c 61 25  29 0d d3 d2 17 e7 62 25  |b(Mk%,a%).....b%|
0000c100  3d 30 8c 62 25 3d a4 62  28 6e 6d 25 2c 61 25 29  |=0.b%=.b(nm%,a%)|
0000c110  0d d3 db 17 e7 62 25 3d  30 8c 62 25 3d a4 62 28  |.....b%=0.b%=.b(|
0000c120  6f 6d 25 2c 61 25 29 0d  d3 e4 17 e7 62 25 3d 30  |om%,a%).....b%=0|
0000c130  8c 62 25 3d a4 62 28 4e  6b 25 2c 61 25 29 0d d3  |.b%=.b(Nk%,a%)..|
0000c140  ed 17 e7 62 25 3d 30 8c  62 25 3d a4 62 28 69 6b  |...b%=0.b%=.b(ik|
0000c150  25 2c 61 25 29 0d d3 f6  17 e7 62 25 3d 30 8c 62  |%,a%).....b%=0.b|
0000c160  25 3d a4 62 28 44 6d 25  2c 61 25 29 0d d3 ff 16  |%=.b(Dm%,a%)....|
0000c170  e7 62 25 3d 30 8c 62 25  3d a4 62 28 57 25 2c 61  |.b%=0.b%=.b(W%,a|
0000c180  25 29 0d d4 08 17 e7 62  25 3d 30 8c 62 25 3d a4  |%).....b%=0.b%=.|
0000c190  62 28 44 62 25 2c 61 25  29 0d d4 11 16 e7 62 25  |b(Db%,a%).....b%|
0000c1a0  3d 30 8c 62 25 3d a4 62  28 4f 25 2c 61 25 29 0d  |=0.b%=.b(O%,a%).|
0000c1b0  d4 1a 17 e7 62 25 3d 30  8c 62 25 3d a4 62 28 4c  |....b%=0.b%=.b(L|
0000c1c0  6c 25 2c 61 25 29 0d d4  23 17 e7 62 25 3d 30 8c  |l%,a%)..#..b%=0.|
0000c1d0  62 25 3d a4 62 28 6a 6c  25 2c 61 25 29 0d d4 2c  |b%=.b(jl%,a%)..,|
0000c1e0  17 e7 62 25 3d 30 8c 62  25 3d a4 62 28 4f 62 25  |..b%=0.b%=.b(Ob%|
0000c1f0  2c 61 25 29 0d d4 35 17  e7 62 25 3d 30 8c 62 25  |,a%)..5..b%=0.b%|
0000c200  3d a4 62 28 77 6c 25 2c  61 25 29 0d d4 3e 17 e7  |=.b(wl%,a%)..>..|
0000c210  62 25 3d 30 8c 62 25 3d  a4 62 28 69 6c 25 2c 61  |b%=0.b%=.b(il%,a|
0000c220  25 29 0d d4 47 17 e7 62  25 3d 30 8c 62 25 3d a4  |%)..G..b%=0.b%=.|
0000c230  62 28 67 61 25 2c 61 25  29 0d d4 50 17 e7 62 25  |b(ga%,a%)..P..b%|
0000c240  3d 30 8c 62 25 3d a4 62  28 68 61 25 2c 61 25 29  |=0.b%=.b(ha%,a%)|
0000c250  0d d4 59 17 e7 62 25 3d  30 8c 62 25 3d a4 62 28  |..Y..b%=0.b%=.b(|
0000c260  50 6c 25 2c 61 25 29 0d  d4 62 17 e7 62 25 3d 30  |Pl%,a%)..b..b%=0|
0000c270  8c 62 25 3d a4 62 28 45  6d 25 2c 61 25 29 0d d4  |.b%=.b(Em%,a%)..|
0000c280  6b 17 e7 62 25 3d 30 8c  62 25 3d a4 62 28 58 6c  |k..b%=0.b%=.b(Xl|
0000c290  25 2c 61 25 29 0d d4 74  17 e7 62 25 3d 30 8c 62  |%,a%)..t..b%=0.b|
0000c2a0  25 3d a4 62 28 57 6c 25  2c 61 25 29 0d d4 7d 17  |%=.b(Wl%,a%)..}.|
0000c2b0  e7 62 25 3d 30 8c 62 25  3d a4 62 28 68 6c 25 2c  |.b%=0.b%=.b(hl%,|
0000c2c0  61 25 29 0d d4 86 17 e7  62 25 3d 30 8c 62 25 3d  |a%).....b%=0.b%=|
0000c2d0  a4 62 28 46 6b 25 2c 61  25 29 0d d4 8f 17 e7 62  |.b(Fk%,a%).....b|
0000c2e0  25 3d 30 8c 62 25 3d a4  62 28 44 6c 25 2c 61 25  |%=0.b%=.b(Dl%,a%|
0000c2f0  29 0d d4 98 17 e7 62 25  3d 30 8c 62 25 3d a4 62  |).....b%=0.b%=.b|
0000c300  28 42 6b 25 2c 61 25 29  0d d4 a1 17 e7 62 25 3d  |(Bk%,a%).....b%=|
0000c310  30 8c 62 25 3d a4 62 28  42 6d 25 2c 61 25 29 0d  |0.b%=.b(Bm%,a%).|
0000c320  d4 aa 17 e7 62 25 3d 30  8c 62 25 3d a4 62 28 43  |....b%=0.b%=.b(C|
0000c330  6d 25 2c 61 25 29 0d d4  b3 17 e7 62 25 3d 30 8c  |m%,a%).....b%=0.|
0000c340  62 25 3d a4 62 28 69 61  25 2c 61 25 29 0d d4 bc  |b%=.b(ia%,a%)...|
0000c350  1a e7 62 25 3d 30 8c 62  25 3d a4 66 28 22 45 6e  |..b%=0.b%=.f("En|
0000c360  64 58 22 2c 61 25 29 0d  d4 c5 16 e7 62 25 3d 30  |dX",a%).....b%=0|
0000c370  8c 62 25 3d a4 62 28 2d  31 2c 61 25 29 0d d4 ce  |.b%=.b(-1,a%)...|
0000c380  13 e7 62 25 3d 30 8c 62  25 3d a4 69 28 61 25 29  |..b%=0.b%=.i(a%)|
0000c390  0d d4 d7 23 e7 62 25 3c  3e 30 8c f2 62 28 a4 63  |...#.b%<>0..b(.c|
0000c3a0  28 62 25 2b 34 29 2c a3  29 3a 62 25 3d a4 69 28  |(b%+4),.):b%=.i(|
0000c3b0  61 25 29 0d d4 e0 3b 65  24 3d 22 3c 4d 42 43 6f  |a%)...;e$="<MBCo|
0000c3c0  6e 66 69 67 46 69 6c 65  73 24 44 69 72 3e 2e 53  |nfigFiles$Dir>.S|
0000c3d0  74 61 72 74 55 70 43 6f  6e 22 3a 61 25 3d a4 44  |tartUpCon":a%=.D|
0000c3e0  28 65 24 2c a3 29 3a e7  61 25 3d 30 8c e1 0d d5  |(e$,.):.a%=0....|
0000c3f0  04 17 e7 62 25 3d 30 8c  62 25 3d a4 62 28 67 61  |...b%=0.b%=.b(ga|
0000c400  25 2c 61 25 29 0d d5 0d  17 e7 62 25 3d 30 8c 62  |%,a%).....b%=0.b|
0000c410  25 3d a4 62 28 68 61 25  2c 61 25 29 0d d5 16 17  |%=.b(ha%,a%)....|
0000c420  e7 62 25 3d 30 8c 62 25  3d a4 62 28 69 61 25 2c  |.b%=0.b%=.b(ia%,|
0000c430  61 25 29 0d d5 1f 13 e7  62 25 3d 30 8c 62 25 3d  |a%).....b%=0.b%=|
0000c440  a4 69 28 61 25 29 0d d5  28 28 e7 62 25 3c 3e 30  |.i(a%)..((.b%<>0|
0000c450  8c f2 62 28 a4 63 28 62  25 2b 34 29 2b 22 2f 32  |..b(.c(b%+4)+"/2|
0000c460  22 2c a3 29 3a 62 25 3d  a4 69 28 61 25 29 0d d5  |",.):b%=.i(a%)..|
0000c470  31 05 e1 0d d5 3a 58 dd  f2 64 61 3a ea 76 25 2c  |1....:X..da:.v%,|
0000c480  62 25 2c 61 25 2c 65 24  2c 41 25 2c 63 25 3a f2  |b%,a%,e$,A%,c%:.|
0000c490  69 3a 63 25 3d 30 3a 65  24 3d 22 3c 4d 42 43 6f  |i:c%=0:e$="<MBCo|
0000c4a0  6e 66 69 67 46 69 6c 65  73 24 44 69 72 3e 2e 44  |nfigFiles$Dir>.D|
0000c4b0  65 66 61 75 6c 74 73 22  3a 62 25 3d 30 3a e7 ac  |efaults":b%=0:..|
0000c4c0  a4 67 28 65 24 29 8c 62  25 3d 32 0d d5 82 13 e7  |.g(e$).b%=2.....|
0000c4d0  62 25 3d 30 8c 61 25 3d  a4 6c 28 65 24 29 0d d5  |b%=0.a%=.l(e$)..|
0000c4e0  8b 0e e7 61 25 3d 30 8c  62 25 3d 32 0d d5 94 18  |...a%=0.b%=2....|
0000c4f0  e7 62 25 3d 30 8c 62 25  3d a4 68 28 62 24 2c 38  |.b%=0.b%=.h(b$,8|
0000c500  2c 61 25 29 0d d5 9d 41  e7 62 24 3c 3e 22 4d 42  |,a%)...A.b$<>"MB|
0000c510  43 6f 6e 66 69 67 22 80  62 25 3d 30 8c f2 62 28  |Config".b%=0..b(|
0000c520  22 46 69 6c 65 20 66 6f  72 6d 61 74 20 6e 6f 74  |"File format not|
0000c530  20 75 6e 64 65 72 73 74  6f 6f 64 2e 22 2c a3 29  | understood.",.)|
0000c540  3a 62 25 3d 31 0d d5 a6  16 e7 62 25 3d 30 8c 62  |:b%=1.....b%=0.b|
0000c550  25 3d a4 61 28 63 25 2c  61 25 29 0d d5 af 73 e7  |%=.a(c%,a%)...s.|
0000c560  63 25 3e 31 80 62 25 3d  30 8c f2 62 28 22 54 68  |c%>1.b%=0..b("Th|
0000c570  69 73 20 66 69 6c 65 20  77 61 73 20 6d 61 64 65  |is file was made|
0000c580  20 62 79 20 61 20 6e 65  77 65 72 20 76 65 72 73  | by a newer vers|
0000c590  69 6f 6e 20 6f 66 20 4d  75 73 69 63 42 6f 78 2e  |ion of MusicBox.|
0000c5a0  20 59 6f 75 20 77 69 6c  6c 20 6e 65 65 64 20 61  | You will need a|
0000c5b0  6e 20 75 70 67 72 61 64  65 20 74 6f 20 6c 6f 61  |n upgrade to loa|
0000c5c0  64 20 69 74 2e 22 2c a3  29 3a 62 25 3d 31 0d d5  |d it.",.):b%=1..|
0000c5d0  b8 18 e7 62 25 3d 30 8c  62 25 3d a4 68 28 62 24  |...b%=0.b%=.h(b$|
0000c5e0  2c 34 2c 61 25 29 0d d5  c1 1b c8 95 62 25 3d 30  |,4,a%)......b%=0|
0000c5f0  80 62 24 3c 3e 22 45 6e  64 58 22 3a c8 8e 62 24  |.b$<>"EndX":..b$|
0000c600  ca 0d d5 d3 15 c9 22 43  6f 6e 66 22 3a 62 25 3d  |......"Conf":b%=|
0000c610  a4 5a 28 61 25 29 0d d5  e5 0f 7f 3a 62 25 3d a4  |.Z(a%).....:b%=.|
0000c620  6a 28 61 25 29 0d d5 ee  05 cb 0d d5 ee 18 e7 62  |j(a%)..........b|
0000c630  25 3d 30 8c 62 25 3d a4  68 28 62 24 2c 34 2c 61  |%=0.b%=.h(b$,4,a|
0000c640  25 29 0d d5 f7 27 ce 3a  e7 62 25 3c 3e 30 80 62  |%)...'.:.b%<>0.b|
0000c650  25 3c 3e 31 80 62 25 3c  3e 32 8c f2 62 28 a4 63  |%<>1.b%<>2..b(.c|
0000c660  28 62 25 2b 34 29 2c a3  29 0d d6 12 14 e7 62 25  |(b%+4),.).....b%|
0000c670  3c 3e 32 8c 41 25 3d a4  69 28 61 25 29 0d d6 1b  |<>2.A%=.i(a%)...|
0000c680  11 f2 70 3a e7 62 25 3c  3e 30 8c f2 79 64 0d d6  |..p:.b%<>0..yd..|
0000c690  2d 94 f2 76 64 3a 58 61  25 3d 32 3a 44 62 25 3d  |-..vd:Xa%=2:Db%=|
0000c6a0  2d 31 3a 57 25 3d 2d 31  3a 4f 25 3d 2d 31 3a 6a  |-1:W%=-1:O%=-1:j|
0000c6b0  6c 25 3d 2d 31 3a 4f 62  25 3d 2d 31 3a f2 77 64  |l%=-1:Ob%=-1:.wd|
0000c6c0  3a 50 6c 25 3d b9 3a 45  6d 25 3d b9 3a 58 6c 25  |:Pl%=.:Em%=.:Xl%|
0000c6d0  3d a3 3a 57 6c 25 3d a3  3a 68 6c 25 3d b9 3a 46  |=.:Wl%=.:hl%=.:F|
0000c6e0  6b 25 3d a3 3a 44 6c 25  3d a3 3a 42 6b 25 3d b9  |k%=.:Dl%=.:Bk%=.|
0000c6f0  3a e7 a4 67 28 22 3c 4d  42 54 75 6e 65 46 69 6c  |:..g("<MBTuneFil|
0000c700  65 73 24 44 69 72 3e 2e  44 65 66 61 75 6c 74 73  |es$Dir>.Defaults|
0000c710  22 29 8c f2 66 62 28 22  44 65 66 61 75 6c 74 73  |")..fb("Defaults|
0000c720  22 29 0d d6 c6 35 e7 a4  67 28 22 3c 4d 42 42 65  |")...5..g("<MBBe|
0000c730  61 74 46 69 6c 65 73 24  44 69 72 3e 2e 44 65 66  |atFiles$Dir>.Def|
0000c740  61 75 6c 74 73 22 29 8c  f2 6f 63 28 22 44 65 66  |aults")..oc("Def|
0000c750  61 75 6c 74 73 22 29 0d  d6 cf 37 e7 a4 67 28 22  |aults")...7..g("|
0000c760  3c 4d 42 53 6f 75 6e 64  46 69 6c 65 73 24 44 69  |<MBSoundFiles$Di|
0000c770  72 3e 2e 44 65 66 61 75  6c 74 73 22 29 8c f2 46  |r>.Defaults")..F|
0000c780  28 22 44 65 66 61 75 6c  74 73 22 2c 30 29 0d d6  |("Defaults",0)..|
0000c790  d8 37 e7 a4 67 28 22 3c  4d 42 43 68 6f 72 64 46  |.7..g("<MBChordF|
0000c7a0  69 6c 65 73 24 44 69 72  3e 2e 44 65 66 61 75 6c  |iles$Dir>.Defaul|
0000c7b0  74 73 22 29 8c f2 46 28  22 44 65 66 61 75 6c 74  |ts")..F("Default|
0000c7c0  73 22 2c 32 29 0d d6 e1  09 f2 41 64 3a e1 0d d6  |s",2).....Ad:...|
0000c7d0  f3 33 dd a4 5a 28 61 25  29 3a ea 62 25 2c 76 25  |.3..Z(a%):.b%,v%|
0000c7e0  3a 62 25 3d a4 61 28 76  25 2c 61 25 29 3a e7 62  |:b%=.a(v%,a%):.b|
0000c7f0  25 3d 30 8c 62 25 3d a4  61 28 55 6c 25 2c 61 25  |%=0.b%=.a(Ul%,a%|
0000c800  29 0d d7 20 17 e7 62 25  3d 30 8c 62 25 3d a4 61  |).. ..b%=0.b%=.a|
0000c810  28 58 61 25 2c 61 25 29  0d d7 29 17 e7 62 25 3d  |(Xa%,a%)..)..b%=|
0000c820  30 8c 62 25 3d a4 61 28  56 6c 25 2c 61 25 29 0d  |0.b%=.a(Vl%,a%).|
0000c830  d7 32 17 e7 62 25 3d 30  8c 62 25 3d a4 61 28 47  |.2..b%=0.b%=.a(G|
0000c840  6d 25 2c 61 25 29 0d d7  3b 17 e7 62 25 3d 30 8c  |m%,a%)..;..b%=0.|
0000c850  62 25 3d a4 61 28 70 62  25 2c 61 25 29 0d d7 44  |b%=.a(pb%,a%)..D|
0000c860  17 e7 62 25 3d 30 8c 62  25 3d a4 61 28 42 61 25  |..b%=0.b%=.a(Ba%|
0000c870  2c 61 25 29 0d d7 4d 17  e7 62 25 3d 30 8c 62 25  |,a%)..M..b%=0.b%|
0000c880  3d a4 61 28 59 61 25 2c  61 25 29 0d d7 56 17 e7  |=.a(Ya%,a%)..V..|
0000c890  62 25 3d 30 8c 62 25 3d  a4 61 28 5a 61 25 2c 61  |b%=0.b%=.a(Za%,a|
0000c8a0  25 29 0d d7 5f 17 e7 62  25 3d 30 8c 62 25 3d a4  |%).._..b%=0.b%=.|
0000c8b0  61 28 63 6c 25 2c 61 25  29 0d d7 68 17 e7 62 25  |a(cl%,a%)..h..b%|
0000c8c0  3d 30 8c 62 25 3d a4 61  28 4a 6b 25 2c 61 25 29  |=0.b%=.a(Jk%,a%)|
0000c8d0  0d d7 71 17 e7 62 25 3d  30 8c 62 25 3d a4 61 28  |..q..b%=0.b%=.a(|
0000c8e0  49 6b 25 2c 61 25 29 0d  d7 7a 17 e7 62 25 3d 30  |Ik%,a%)..z..b%=0|
0000c8f0  8c 62 25 3d a4 61 28 48  6b 25 2c 61 25 29 0d d7  |.b%=.a(Hk%,a%)..|
0000c900  83 17 e7 62 25 3d 30 8c  62 25 3d a4 61 28 47 6b  |...b%=0.b%=.a(Gk|
0000c910  25 2c 61 25 29 0d d7 8c  17 e7 62 25 3d 30 8c 62  |%,a%).....b%=0.b|
0000c920  25 3d a4 61 28 4b 6b 25  2c 61 25 29 0d d7 95 17  |%=.a(Kk%,a%)....|
0000c930  e7 62 25 3d 30 8c 62 25  3d a4 61 28 4c 6b 25 2c  |.b%=0.b%=.a(Lk%,|
0000c940  61 25 29 0d d7 9e 17 e7  62 25 3d 30 8c 62 25 3d  |a%).....b%=0.b%=|
0000c950  a4 61 28 4d 6b 25 2c 61  25 29 0d d7 a7 17 e7 62  |.a(Mk%,a%).....b|
0000c960  25 3d 30 8c 62 25 3d a4  61 28 6e 6d 25 2c 61 25  |%=0.b%=.a(nm%,a%|
0000c970  29 0d d7 b0 17 e7 62 25  3d 30 8c 62 25 3d a4 61  |).....b%=0.b%=.a|
0000c980  28 6f 6d 25 2c 61 25 29  0d d7 b9 17 e7 62 25 3d  |(om%,a%).....b%=|
0000c990  30 8c 62 25 3d a4 61 28  4e 6b 25 2c 61 25 29 0d  |0.b%=.a(Nk%,a%).|
0000c9a0  d7 c2 17 e7 62 25 3d 30  8c 62 25 3d a4 61 28 69  |....b%=0.b%=.a(i|
0000c9b0  6b 25 2c 61 25 29 0d d7  cb 17 e7 62 25 3d 30 8c  |k%,a%).....b%=0.|
0000c9c0  62 25 3d a4 61 28 44 6d  25 2c 61 25 29 0d d7 d4  |b%=.a(Dm%,a%)...|
0000c9d0  16 e7 62 25 3d 30 8c 62  25 3d a4 61 28 57 25 2c  |..b%=0.b%=.a(W%,|
0000c9e0  61 25 29 0d d7 dd 17 e7  62 25 3d 30 8c 62 25 3d  |a%).....b%=0.b%=|
0000c9f0  a4 61 28 44 62 25 2c 61  25 29 0d d7 e6 16 e7 62  |.a(Db%,a%).....b|
0000ca00  25 3d 30 8c 62 25 3d a4  61 28 4f 25 2c 61 25 29  |%=0.b%=.a(O%,a%)|
0000ca10  0d d7 ef 17 e7 62 25 3d  30 8c 62 25 3d a4 61 28  |.....b%=0.b%=.a(|
0000ca20  4c 6c 25 2c 61 25 29 0d  d7 f8 17 e7 62 25 3d 30  |Ll%,a%).....b%=0|
0000ca30  8c 62 25 3d a4 61 28 6a  6c 25 2c 61 25 29 0d d8  |.b%=.a(jl%,a%)..|
0000ca40  01 17 e7 62 25 3d 30 8c  62 25 3d a4 61 28 4f 62  |...b%=0.b%=.a(Ob|
0000ca50  25 2c 61 25 29 0d d8 0a  17 e7 62 25 3d 30 8c 62  |%,a%).....b%=0.b|
0000ca60  25 3d a4 61 28 77 6c 25  2c 61 25 29 0d d8 13 17  |%=.a(wl%,a%)....|
0000ca70  e7 62 25 3d 30 8c 62 25  3d a4 61 28 69 6c 25 2c  |.b%=0.b%=.a(il%,|
0000ca80  61 25 29 0d d8 1c 17 e7  62 25 3d 30 8c 62 25 3d  |a%).....b%=0.b%=|
0000ca90  a4 61 28 67 61 25 2c 61  25 29 0d d8 25 17 e7 62  |.a(ga%,a%)..%..b|
0000caa0  25 3d 30 8c 62 25 3d a4  61 28 68 61 25 2c 61 25  |%=0.b%=.a(ha%,a%|
0000cab0  29 0d d8 2e 17 e7 62 25  3d 30 8c 62 25 3d a4 61  |).....b%=0.b%=.a|
0000cac0  28 50 6c 25 2c 61 25 29  0d d8 37 17 e7 62 25 3d  |(Pl%,a%)..7..b%=|
0000cad0  30 8c 62 25 3d a4 61 28  45 6d 25 2c 61 25 29 0d  |0.b%=.a(Em%,a%).|
0000cae0  d8 40 17 e7 62 25 3d 30  8c 62 25 3d a4 61 28 58  |.@..b%=0.b%=.a(X|
0000caf0  6c 25 2c 61 25 29 0d d8  49 17 e7 62 25 3d 30 8c  |l%,a%)..I..b%=0.|
0000cb00  62 25 3d a4 61 28 57 6c  25 2c 61 25 29 0d d8 52  |b%=.a(Wl%,a%)..R|
0000cb10  17 e7 62 25 3d 30 8c 62  25 3d a4 61 28 68 6c 25  |..b%=0.b%=.a(hl%|
0000cb20  2c 61 25 29 0d d8 5b 17  e7 62 25 3d 30 8c 62 25  |,a%)..[..b%=0.b%|
0000cb30  3d a4 61 28 46 6b 25 2c  61 25 29 0d d8 64 17 e7  |=.a(Fk%,a%)..d..|
0000cb40  62 25 3d 30 8c 62 25 3d  a4 61 28 44 6c 25 2c 61  |b%=0.b%=.a(Dl%,a|
0000cb50  25 29 0d d8 6d 17 e7 62  25 3d 30 8c 62 25 3d a4  |%)..m..b%=0.b%=.|
0000cb60  61 28 42 6b 25 2c 61 25  29 0d d8 76 17 e7 62 25  |a(Bk%,a%)..v..b%|
0000cb70  3d 30 8c 62 25 3d a4 61  28 42 6d 25 2c 61 25 29  |=0.b%=.a(Bm%,a%)|
0000cb80  0d d8 7f 17 e7 62 25 3d  30 8c 62 25 3d a4 61 28  |.....b%=0.b%=.a(|
0000cb90  43 6d 25 2c 61 25 29 0d  d8 88 17 e7 62 25 3d 30  |Cm%,a%).....b%=0|
0000cba0  8c 62 25 3d a4 61 28 69  61 25 2c 61 25 29 0d d8  |.b%=.a(ia%,a%)..|
0000cbb0  91 1a e7 62 25 3d 30 8c  c8 99 26 34 30 31 38 37  |...b%=0...&40187|
0000cbc0  2c 79 61 25 2b 47 6d 25  0d d8 9a 07 3d 62 25 0d  |,ya%+Gm%....=b%.|
0000cbd0  d8 be cf dd f2 42 64 3a  c8 99 26 34 34 41 44 44  |.....Bd:..&44ADD|
0000cbe0  2c 31 2c 74 25 2c 72 66  25 2c a4 64 28 22 53 61  |,1,t%,rf%,.d("Sa|
0000cbf0  76 65 22 2c 6f 6d 25 29  3a c8 99 26 34 34 41 44  |ve",om%):..&44AD|
0000cc00  44 2c 31 2c 74 25 2c 73  66 25 2c a4 64 28 22 4c  |D,1,t%,sf%,.d("L|
0000cc10  6f 61 64 22 2c 6e 6d 25  29 3a c8 99 26 34 34 41  |oad",nm%):..&44A|
0000cc20  44 44 2c 31 2c 6c 25 2c  42 68 25 2c a4 64 28 22  |DD,1,l%,Bh%,.d("|
0000cc30  53 61 76 65 22 2c 6f 6d  25 29 3a c8 99 26 34 34  |Save",om%):..&44|
0000cc40  41 44 44 2c 31 2c 6c 25  2c 43 68 25 2c a4 64 28  |ADD,1,l%,Ch%,.d(|
0000cc50  22 4c 6f 61 64 22 2c 6e  6d 25 29 3a c8 99 26 34  |"Load",nm%):..&4|
0000cc60  34 41 44 44 2c 31 2c 6c  25 2c 44 68 25 2c a4 64  |4ADD,1,l%,Dh%,.d|
0000cc70  28 22 50 72 69 6e 74 22  2c 4e 6b 25 29 3a c8 99  |("Print",Nk%):..|
0000cc80  26 34 34 41 44 44 2c 31  2c 6f 25 2c 6b 67 25 2c  |&44ADD,1,o%,kg%,|
0000cc90  a4 64 28 22 53 61 76 65  22 2c 6f 6d 25 29 0d d9  |.d("Save",om%)..|
0000cca0  06 b1 c8 99 26 34 34 41  44 44 2c 31 2c 6f 25 2c  |....&44ADD,1,o%,|
0000ccb0  6c 67 25 2c a4 64 28 22  4c 6f 61 64 22 2c 6e 6d  |lg%,.d("Load",nm|
0000ccc0  25 29 3a c8 99 26 34 34  41 44 44 2c 31 2c 6f 25  |%):..&44ADD,1,o%|
0000ccd0  2c 5f 66 25 2c a4 64 28  22 50 72 69 6e 74 22 2c  |,_f%,.d("Print",|
0000cce0  4e 6b 25 29 3a c8 99 26  34 34 41 44 44 2c 31 2c  |Nk%):..&44ADD,1,|
0000ccf0  6f 25 2c 6a 67 25 2c a4  64 28 22 43 6f 70 79 22  |o%,jg%,.d("Copy"|
0000cd00  2c 4c 6b 25 29 3a c8 99  26 34 34 41 44 44 2c 31  |,Lk%):..&44ADD,1|
0000cd10  2c 6f 25 2c 69 67 25 2c  a4 64 28 22 43 6c 65 61  |,o%,ig%,.d("Clea|
0000cd20  72 22 2c 4d 6b 25 29 3a  c8 99 26 34 34 41 44 44  |r",Mk%):..&44ADD|
0000cd30  2c 31 2b 32 5e 39 2c 6f  25 2c 53 66 25 2c a4 64  |,1+2^9,o%,Sf%,.d|
0000cd40  28 22 74 31 22 2c 47 6b  25 29 2c 2c 76 67 25 0d  |("t1",Gk%),,vg%.|
0000cd50  d9 33 c8 c8 99 26 34 34  41 44 44 2c 31 2b 32 5e  |.3...&44ADD,1+2^|
0000cd60  39 2c 6f 25 2c 53 66 25  2b 31 2c a4 64 28 22 74  |9,o%,Sf%+1,.d("t|
0000cd70  32 22 2c 48 6b 25 29 2c  2c 76 67 25 3a c8 99 26  |2",Hk%),,vg%:..&|
0000cd80  34 34 41 44 44 2c 31 2b  32 5e 39 2c 6f 25 2c 53  |44ADD,1+2^9,o%,S|
0000cd90  66 25 2b 32 2c a4 64 28  22 74 33 22 2c 49 6b 25  |f%+2,.d("t3",Ik%|
0000cda0  29 2c 2c 76 67 25 3a c8  99 26 34 34 41 44 44 2c  |),,vg%:..&44ADD,|
0000cdb0  31 2b 32 5e 39 2c 6f 25  2c 54 66 25 2c a4 64 28  |1+2^9,o%,Tf%,.d(|
0000cdc0  22 74 34 22 2c 4a 6b 25  29 2c 2c 76 67 25 3a c8  |"t4",Jk%),,vg%:.|
0000cdd0  99 26 34 34 41 44 44 2c  31 2b 32 5e 39 2c 6f 25  |.&44ADD,1+2^9,o%|
0000cde0  2c 55 66 25 2c a4 64 28  22 74 36 22 2c 4b 6b 25  |,Uf%,.d("t6",Kk%|
0000cdf0  29 2c 2c 76 67 25 3a c8  99 26 34 34 41 44 44 2c  |),,vg%:..&44ADD,|
0000ce00  31 2c 6b 25 2c 54 67 25  2c a4 64 28 22 53 61 76  |1,k%,Tg%,.d("Sav|
0000ce10  65 22 2c 6f 6d 25 29 0d  d9 69 b1 c8 99 26 34 34  |e",om%)..i...&44|
0000ce20  41 44 44 2c 31 2c 6b 25  2c 55 67 25 2c a4 64 28  |ADD,1,k%,Ug%,.d(|
0000ce30  22 4c 6f 61 64 22 2c 6e  6d 25 29 3a c8 99 26 34  |"Load",nm%):..&4|
0000ce40  34 41 44 44 2c 31 2c 6b  25 2c 57 67 25 2c a4 64  |4ADD,1,k%,Wg%,.d|
0000ce50  28 22 50 72 69 6e 74 22  2c 4e 6b 25 29 3a c8 99  |("Print",Nk%):..|
0000ce60  26 34 34 41 44 44 2c 31  2c 6b 25 2c 53 67 25 2c  |&44ADD,1,k%,Sg%,|
0000ce70  a4 64 28 22 43 6f 70 79  22 2c 4c 6b 25 29 3a c8  |.d("Copy",Lk%):.|
0000ce80  99 26 34 34 41 44 44 2c  31 2c 6b 25 2c 52 67 25  |.&44ADD,1,k%,Rg%|
0000ce90  2c a4 64 28 22 43 6c 65  61 72 22 2c 4d 6b 25 29  |,.d("Clear",Mk%)|
0000cea0  3a c8 99 26 34 34 41 44  44 2c 31 2b 32 5e 39 2c  |:..&44ADD,1+2^9,|
0000ceb0  6b 25 2c 42 67 25 2c a4  64 28 22 74 31 22 2c 47  |k%,Bg%,.d("t1",G|
0000cec0  6b 25 29 2c 2c 65 68 25  0d d9 96 81 c8 99 26 34  |k%),,eh%......&4|
0000ced0  34 41 44 44 2c 31 2b 32  5e 39 2c 6b 25 2c 42 67  |4ADD,1+2^9,k%,Bg|
0000cee0  25 2b 31 2c a4 64 28 22  74 32 22 2c 48 6b 25 29  |%+1,.d("t2",Hk%)|
0000cef0  2c 2c 65 68 25 3a c8 99  26 34 34 41 44 44 2c 31  |,,eh%:..&44ADD,1|
0000cf00  2b 32 5e 39 2c 6b 25 2c  42 67 25 2b 32 2c a4 64  |+2^9,k%,Bg%+2,.d|
0000cf10  28 22 74 33 22 2c 49 6b  25 29 2c 2c 65 68 25 3a  |("t3",Ik%),,eh%:|
0000cf20  c8 99 26 34 34 41 44 44  2c 31 2b 32 5e 39 2c 6b  |..&44ADD,1+2^9,k|
0000cf30  25 2c 44 67 25 2c a4 64  28 22 74 36 22 2c 4b 6b  |%,Dg%,.d("t6",Kk|
0000cf40  25 29 2c 2c 65 68 25 3a  e1 0d d9 cc 1e dd a4 64  |%),,eh%:.......d|
0000cf50  28 61 24 2c 59 6c 25 29  3a e7 ac 59 6c 25 8c 3d  |(a$,Yl%):..Yl%.=|
0000cf60  22 73 7a 2c 70 7a 22 0d  d9 e7 13 3d 22 53 22 2b  |"sz,pz"....="S"+|
0000cf70  61 24 2b 22 2c 70 22 2b  61 24 0d da 02 56 dd f2  |a$+",p"+a$...V..|
0000cf80  49 3a f2 62 28 22 59 6f  75 20 63 61 6e 20 6e 6f  |I:.b("You can no|
0000cf90  74 20 75 73 65 20 74 68  61 74 20 62 75 74 74 6f  |t use that butto|
0000cfa0  6e 2e 20 41 73 6b 20 79  6f 75 72 20 74 65 61 63  |n. Ask your teac|
0000cfb0  68 65 72 20 69 66 20 79  6f 75 20 77 61 6e 74 20  |her if you want |
0000cfc0  74 6f 20 75 73 65 20 69  74 2e 22 2c a3 29 3a e1  |to use it.",.):.|
0000cfd0  0d da 14 3c dd f2 5f 28  49 6d 25 2c 64 25 29 3a  |...<.._(Im%,d%):|
0000cfe0  ea 41 25 3a 41 25 3d a0  28 22 46 4e 22 2b c3 7e  |.A%:A%=.("FN"+.~|
0000cff0  28 49 6d 25 29 2b 22 28  22 2b c3 28 64 25 29 2b  |(Im%)+"("+.(d%)+|
0000d000  22 29 22 29 3a e7 55 61  25 3d 31 8c 0d da 4a 10  |")"):.Ua%=1...J.|
0000d010  e7 4a 6d 25 3d 30 8c 4b  6d 25 3d 30 0d da 53 75  |.Jm%=0.Km%=0..Su|
0000d020  41 25 3d a4 74 3a 6a 25  28 4c 6d 25 29 3d 41 25  |A%=.t:j%(Lm%)=A%|
0000d030  3a 67 25 28 4c 6d 25 29  3d 4a 6d 25 3a 65 25 28  |:g%(Lm%)=Jm%:e%(|
0000d040  30 2c 4a 6d 25 2c 4c 6d  25 29 3d 49 6d 25 3a 65  |0,Jm%,Lm%)=Im%:e|
0000d050  25 28 31 2c 4a 6d 25 2c  4c 6d 25 29 3d 64 25 3a  |%(1,Jm%,Lm%)=d%:|
0000d060  65 25 28 32 2c 4a 6d 25  2c 4c 6d 25 29 3d 41 25  |e%(2,Jm%,Lm%)=A%|
0000d070  3a 4a 6d 25 2b 3d 31 3a  e7 4a 6d 25 3e 3d 56 61  |:Jm%+=1:.Jm%>=Va|
0000d080  25 8c f2 6f 28 4d 6d 25  2c 4e 6d 25 2c 4f 6d 25  |%..o(Mm%,Nm%,Om%|
0000d090  29 0d da 9b 05 cd 0d da  a4 05 e1 0d da ad 1d dd  |)...............|
0000d0a0  f2 64 64 3a ea 41 25 3a  41 25 3d a4 74 3a e7 55  |.dd:.A%:A%=.t:.U|
0000d0b0  61 25 3d 32 8c f2 43 64  0d da da 05 e1 0d da e3  |a%=2..Cd........|
0000d0c0  1a dd a4 74 3a ea 41 25  3a 41 25 3d c6 8f 3a e7  |...t:.A%:A%=..:.|
0000d0d0  41 25 3c 50 6d 25 8c 0d  db 10 09 e7 51 6d 25 8c  |A%<Pm%......Qm%.|
0000d0e0  0d db 19 1a e7 52 6d 25  8c 4a 6d 25 3d 30 8b 4a  |.....Rm%.Jm%=0.J|
0000d0f0  6d 25 3d 67 25 28 4c 6d  25 29 0d db 22 1b 53 6d  |m%=g%(Lm%)..".Sm|
0000d100  25 3d 6a 25 28 4c 6d 25  29 3a 4b 6d 25 3d 30 3a  |%=j%(Lm%):Km%=0:|
0000d110  51 6d 25 3d a3 0d db 46  0e cc 3a 4b 6d 25 2b 3d  |Qm%=...F..:Km%+=|
0000d120  6c 62 25 0d db 58 05 cd  0d db 58 05 cd 0d db 61  |lb%..X....X....a|
0000d130  12 50 6d 25 3d 41 25 3a  3d 41 25 2b 4b 6d 25 0d  |.Pm%=A%:=A%+Km%.|
0000d140  db 85 37 dd f2 6f 28 6e  25 2c 64 25 2c 54 6d 25  |..7..o(n%,d%,Tm%|
0000d150  29 3a c8 99 26 34 34 41  44 44 2c 37 2c 6e 25 2c  |):..&44ADD,7,n%,|
0000d160  64 25 2c 31 3a 55 61 25  3d 30 3a 4f 6b 25 3d a3  |d%,1:Ua%=0:Ok%=.|
0000d170  3a c8 8e 6e 25 ca 0d db  a9 1b c9 74 25 3a c8 99  |:..n%......t%:..|
0000d180  26 34 34 41 44 44 2c 33  2c 6e 25 2c 67 66 25 2c  |&44ADD,3,n%,gf%,|
0000d190  30 0d db bb 1b c9 6c 25  3a c8 99 26 34 34 41 44  |0.....l%:..&44AD|
0000d1a0  44 2c 33 2c 6e 25 2c 71  68 25 2c 30 0d db c4 05  |D,3,n%,qh%,0....|
0000d1b0  cb 0d db c4 1c f2 6d 3a  f2 73 63 3a f2 73 28 54  |......m:.sc:.s(T|
0000d1c0  6d 25 2c 6e 25 2c 30 29  3a f2 74 3a e1 0d db f1  |m%,n%,0):.t:....|
0000d1d0  22 dd f2 6f 62 28 6e 25  2c 64 25 2c 54 6d 25 2c  |"..ob(n%,d%,Tm%,|
0000d1e0  6a 25 29 3a 4f 6b 25 3d  a3 3a c8 8e 6e 25 ca 0d  |j%):Ok%=.:..n%..|
0000d1f0  dc 15 1b c9 74 25 3a c8  99 26 34 34 41 44 44 2c  |....t%:..&44ADD,|
0000d200  33 2c 6e 25 2c 67 66 25  2c 30 0d dc 27 1b c9 6c  |3,n%,gf%,0..'..l|
0000d210  25 3a c8 99 26 34 34 41  44 44 2c 33 2c 6e 25 2c  |%:..&44ADD,3,n%,|
0000d220  71 68 25 2c 30 0d dc 30  05 cb 0d dc 30 5b 51 6d  |qh%,0..0....0[Qm|
0000d230  25 3d a3 3a 4e 6d 25 3d  64 25 3a 4f 6d 25 3d 54  |%=.:Nm%=d%:Om%=T|
0000d240  6d 25 3a 4d 6d 25 3d 6e  25 3a 4c 6d 25 3d 6a 25  |m%:Mm%=n%:Lm%=j%|
0000d250  3a 55 61 25 3d 31 3a 4a  6d 25 3d 30 3a 67 25 28  |:Ua%=1:Jm%=0:g%(|
0000d260  4c 6d 25 29 3d 2d 31 3a  6a 25 28 4c 6d 25 29 3d  |Lm%)=-1:j%(Lm%)=|
0000d270  30 3a 50 6d 25 3d 30 3a  4b 6d 25 3d 30 3a f2 6d  |0:Pm%=0:Km%=0:.m|
0000d280  3a f2 74 3a e1 0d dc ae  60 dd f2 44 28 6e 25 2c  |:.t:....`..D(n%,|
0000d290  64 25 2c 54 6d 25 2c 6a  25 2c 55 6d 25 29 3a 51  |d%,Tm%,j%,Um%):Q|
0000d2a0  6d 25 3d a3 3a 52 6d 25  3d 55 6d 25 3a 4e 6d 25  |m%=.:Rm%=Um%:Nm%|
0000d2b0  3d 64 25 3a 4f 6d 25 3d  54 6d 25 3a 4d 6d 25 3d  |=d%:Om%=Tm%:Mm%=|
0000d2c0  6e 25 3a 4c 6d 25 3d 6a  25 3a 55 61 25 3d 32 3a  |n%:Lm%=j%:Ua%=2:|
0000d2d0  e7 55 6d 25 8c 4a 6d 25  3d 30 8b 4a 6d 25 3d 67  |.Um%.Jm%=0.Jm%=g|
0000d2e0  25 28 6a 25 29 0d dd 08  22 53 6d 25 3d 6a 25 28  |%(j%)..."Sm%=j%(|
0000d2f0  6a 25 29 3a 50 6d 25 3d  30 3a 4b 6d 25 3d 30 3a  |j%):Pm%=0:Km%=0:|
0000d300  f2 6d 3a f2 74 3a e1 0d  dd 3e 12 dd f2 43 64 3a  |.m:.t:...>...Cd:|
0000d310  ea 41 25 3a e7 52 6d 25  8c 0d dd 62 19 f5 3a 41  |.A%:.Rm%...b..:A|
0000d320  25 3d b9 3a e7 4a 6d 25  3c 3d 67 25 28 4c 6d 25  |%=.:.Jm%<=g%(Lm%|
0000d330  29 8c 0d dd 7d 17 e7 a4  74 3e 3d 65 25 28 32 2c  |)...}...t>=e%(2,|
0000d340  4a 6d 25 2c 4c 6d 25 29  8c 0d dd 86 45 41 25 3d  |Jm%,Lm%)....EA%=|
0000d350  a0 28 22 46 4e 22 2b c3  7e 28 65 25 28 30 2c 4a  |.("FN"+.~(e%(0,J|
0000d360  6d 25 2c 4c 6d 25 29 29  2b 22 28 22 2b c3 28 65  |m%,Lm%))+"("+.(e|
0000d370  25 28 31 2c 4a 6d 25 2c  4c 6d 25 29 29 2b 22 29  |%(1,Jm%,Lm%))+")|
0000d380  22 29 3a 4a 6d 25 2b 3d  31 3a 41 25 3d a3 0d dd  |"):Jm%+=1:A%=...|
0000d390  aa 05 cd 0d dd aa 05 cd  0d dd b3 15 fd 41 25 3a  |.............A%:|
0000d3a0  e7 4a 6d 25 3e 67 25 28  4c 6d 25 29 8c 0d dd c5  |.Jm%>g%(Lm%)....|
0000d3b0  09 e7 4f 6b 25 8c 0d dd  ce 09 51 6d 25 3d b9 0d  |..Ok%.....Qm%=..|
0000d3c0  dd e0 15 cc 3a f2 6f 28  4d 6d 25 2c 4e 6d 25 2c  |....:.o(Mm%,Nm%,|
0000d3d0  4f 6d 25 29 0d dd f2 05  cd 0d dd f2 05 cd 0d dd  |Om%)............|
0000d3e0  fb 15 cc 3a f5 3a 41 25  3d b9 3a e7 4a 6d 25 3e  |...:.:A%=.:.Jm%>|
0000d3f0  3d 30 8c 0d de 1f 1b e7  a4 74 3e 3d 53 6d 25 2d  |=0.......t>=Sm%-|
0000d400  65 25 28 32 2c 4a 6d 25  2c 4c 6d 25 29 8c 0d de  |e%(2,Jm%,Lm%)...|
0000d410  28 47 41 25 3d a0 28 22  46 4e 22 2b c3 7e 28 65  |(GA%=.("FN"+.~(e|
0000d420  25 28 30 2c 4a 6d 25 2c  4c 6d 25 29 82 31 29 2b  |%(0,Jm%,Lm%).1)+|
0000d430  22 28 22 2b c3 28 65 25  28 31 2c 4a 6d 25 2c 4c  |"("+.(e%(1,Jm%,L|
0000d440  6d 25 29 29 2b 22 29 22  29 3a 4a 6d 25 2d 3d 31  |m%))+")"):Jm%-=1|
0000d450  3a 41 25 3d a3 0d de 4c  05 cd 0d de 4c 05 cd 0d  |:A%=...L....L...|
0000d460  de 55 0f fd 41 25 3a e7  4a 6d 25 3c 30 8c 0d de  |.U..A%:.Jm%<0...|
0000d470  67 09 e7 4f 6b 25 8c 0d  de 70 09 51 6d 25 3d b9  |g..Ok%...p.Qm%=.|
0000d480  0d de 82 15 cc 3a f2 6f  28 4d 6d 25 2c 4e 6d 25  |.....:.o(Mm%,Nm%|
0000d490  2c 4f 6d 25 29 0d de 94  05 cd 0d de 94 05 cd 0d  |,Om%)...........|
0000d4a0  de 9d 05 cd 0d de a6 05  e1 0d de af 69 dd a4 32  |............i..2|
0000d4b0  28 64 25 29 3a c8 99 26  34 34 41 44 44 2c 33 2c  |(d%):..&44ADD,3,|
0000d4c0  74 25 2c 64 25 2c 31 3a  63 63 25 3d 64 25 3a 56  |t%,d%,1:cc%=d%:V|
0000d4d0  6d 25 3d 28 64 25 2d 6c  66 25 29 83 5f 62 25 2b  |m%=(d%-lf%)._b%+|
0000d4e0  31 3a 57 6d 25 3d 28 64  25 2d 6c 66 25 29 81 5f  |1:Wm%=(d%-lf%)._|
0000d4f0  62 25 3a c8 99 26 34 30  31 38 39 2c 56 6d 25 2c  |b%:..&40189,Vm%,|
0000d500  59 62 25 2c 61 25 28 57  6d 25 29 2c 58 62 25 3a  |Yb%,a%(Wm%),Xb%:|
0000d510  3d 30 0d df 12 49 dd a4  33 28 64 25 29 3a c8 99  |=0...I..3(d%):..|
0000d520  26 34 34 41 44 44 2c 33  2c 74 25 2c 64 25 2c 30  |&44ADD,3,t%,d%,0|
0000d530  3a c8 99 26 34 30 31 38  39 2c 56 6d 25 2c 59 62  |:..&40189,Vm%,Yb|
0000d540  25 2b 32 5e 37 2c 61 25  28 57 6d 25 29 2c 57 62  |%+2^7,a%(Wm%),Wb|
0000d550  25 3a 63 63 25 3d 2d 31  3a 3d 30 0d df 48 84 dd  |%:cc%=-1:=0..H..|
0000d560  a4 34 28 64 25 29 3a ea  52 6b 25 2c 65 25 2c 71  |.4(d%):.Rk%,e%,q|
0000d570  25 3a c8 99 26 34 34 41  44 44 2c 33 2c 6c 25 2c  |%:..&44ADD,3,l%,|
0000d580  64 25 2c 31 3a 52 6b 25  3d 64 25 2d 6e 68 25 3a  |d%,1:Rk%=d%-nh%:|
0000d590  65 63 25 3d 52 6b 25 3a  e3 65 25 3d 31 b8 37 3a  |ec%=Rk%:.e%=1.7:|
0000d5a0  c8 99 26 34 30 31 38 35  2c 65 25 2c 3f 28 6d 6a  |..&40185,e%,?(mj|
0000d5b0  25 2b 68 25 28 52 6b 25  2c 30 29 29 3a ed 3a 71  |%+h%(Rk%,0)):.:q|
0000d5c0  25 3d 31 3a e3 65 25 3d  30 b8 32 30 3a e7 3f 28  |%=1:.e%=0.20:.?(|
0000d5d0  4a 68 25 2b 52 6b 25 2a  32 34 2b 65 25 29 8c 0d  |Jh%+Rk%*24+e%)..|
0000d5e0  df a2 32 c8 99 26 34 30  31 38 39 2c 71 25 2c 59  |..2..&40189,q%,Y|
0000d5f0  62 25 2c 6b 25 28 65 25  29 2c 58 62 25 3a 71 25  |b%,k%(e%),Xb%:q%|
0000d600  2b 3d 31 3a e7 71 25 3e  3d 38 8c 65 25 3d 31 30  |+=1:.q%>=8.e%=10|
0000d610  30 0d df bd 05 cd 0d df  c6 08 ed 3a 3d 30 0d df  |0..........:=0..|
0000d620  ea 52 dd a4 35 28 64 25  29 3a ea 52 6b 25 2c 65  |.R..5(d%):.Rk%,e|
0000d630  25 3a c8 99 26 34 34 41  44 44 2c 33 2c 6c 25 2c  |%:..&44ADD,3,l%,|
0000d640  64 25 2c 30 3a 52 6b 25  3d 64 25 2d 6e 68 25 3a  |d%,0:Rk%=d%-nh%:|
0000d650  71 25 3d 31 3a e3 65 25  3d 30 b8 32 30 3a e7 3f  |q%=1:.e%=0.20:.?|
0000d660  28 4a 68 25 2b 52 6b 25  2a 32 34 2b 65 25 29 8c  |(Jh%+Rk%*24+e%).|
0000d670  0d e0 20 36 c8 99 26 34  30 31 38 39 2c 71 25 2c  |.. 6..&40189,q%,|
0000d680  59 62 25 2b 32 5e 37 2c  6b 25 28 65 25 29 2c 57  |Yb%+2^7,k%(e%),W|
0000d690  62 25 3a 71 25 2b 3d 31  3a e7 71 25 3e 3d 38 8c  |b%:q%+=1:.q%>=8.|
0000d6a0  65 25 3d 31 30 30 0d e0  3b 05 cd 0d e0 44 0f ed  |e%=100..;....D..|
0000d6b0  3a 65 63 25 3d 2d 31 3a  3d 30 0d e0 71 43 dd f2  |:ec%=-1:=0..qC..|
0000d6c0  46 28 67 24 2c 6a 25 29  3a ea 76 25 2c 62 25 2c  |F(g$,j%):.v%,b%,|
0000d6d0  61 25 2c 63 24 2c 58 6d  25 2c 59 6d 25 2c 65 25  |a%,c$,Xm%,Ym%,e%|
0000d6e0  2c 42 63 25 2c 41 24 2c  5a 6d 25 3a 59 6d 25 3d  |,Bc%,A$,Zm%:Ym%=|
0000d6f0  a3 3a f2 69 3a f2 6a 3a  c8 8e 6a 25 ca 0d e0 9e  |.:.i:.j:..j%....|
0000d700  3c c9 30 3a 63 24 3d 22  53 6f 75 6e 64 22 3a 58  |<.0:c$="Sound":X|
0000d710  6d 25 3d 6c 66 25 3a c8  99 26 34 34 41 45 42 2c  |m%=lf%:..&44AEB,|
0000d720  33 2c 74 25 3a f2 6f 28  74 25 2c 69 66 25 2c 64  |3,t%:.o(t%,if%,d|
0000d730  66 25 29 3a 5a 6d 25 3d  30 0d e0 c2 3c c9 32 3a  |f%):Zm%=0...<.2:|
0000d740  63 24 3d 22 43 68 6f 72  64 22 3a 58 6d 25 3d 6e  |c$="Chord":Xm%=n|
0000d750  68 25 3a c8 99 26 34 34  41 45 42 2c 33 2c 6c 25  |h%:..&44AEB,3,l%|
0000d760  3a f2 6f 28 6c 25 2c 73  68 25 2c 77 68 25 29 3a  |:.o(l%,sh%,wh%):|
0000d770  5a 6d 25 3d 31 0d e0 dd  39 7f 3a 85 30 2c 22 54  |Zm%=1...9.:.0,"T|
0000d780  68 69 73 20 70 72 6f 63  65 64 75 72 65 20 64 6f  |his procedure do|
0000d790  65 73 20 6e 6f 74 20 73  75 70 70 6f 72 74 20 74  |es not support t|
0000d7a0  68 61 74 20 62 6f 78 20  74 79 70 65 2e 22 0d e0  |hat box type."..|
0000d7b0  e6 05 cb 0d e0 e6 2c e7  a7 67 24 2c 22 2e 22 29  |......,..g$,".")|
0000d7c0  3d 30 8c 67 24 3d 22 3c  4d 42 22 2b 63 24 2b 22  |=0.g$="<MB"+c$+"|
0000d7d0  46 69 6c 65 73 24 44 69  72 3e 2e 22 2b 67 24 0d  |Files$Dir>."+g$.|
0000d7e0  e0 ef 15 61 25 3d a4 6c  28 67 24 29 3a e7 61 25  |...a%=.l(g$):.a%|
0000d7f0  3d 30 8c e1 0d e1 01 2a  62 25 3d a4 68 28 62 24  |=0.....*b%=.h(b$|
0000d800  2c 38 2c 61 25 29 3a e7  62 25 3c 3e 30 8c f2 62  |,8,a%):.b%<>0..b|
0000d810  28 a4 63 28 62 25 2b 34  29 2c a3 29 3a e1 0d e1  |(.c(b%+4),.):...|
0000d820  13 44 e7 62 24 3c 3e 22  4d 42 22 2b 63 24 2b 22  |.D.b$<>"MB"+c$+"|
0000d830  20 22 8c f2 62 28 22 46  69 6c 65 20 66 6f 72 6d  | "..b("File form|
0000d840  61 74 20 6e 6f 74 20 75  6e 64 65 72 73 74 6f 6f  |at not understoo|
0000d850  64 2e 22 2c a3 29 3a 62  25 3d a4 47 28 61 25 29  |d.",.):b%=.G(a%)|
0000d860  3a e1 0d e1 1c 32 62 25  3d a4 61 28 63 25 2c 61  |:....2b%=.a(c%,a|
0000d870  25 29 3a e7 62 25 3c 3e  30 8c f2 62 28 a4 63 28  |%):.b%<>0..b(.c(|
0000d880  62 25 2b 34 29 2c a3 29  3a 62 25 3d a4 47 28 61  |b%+4),.):b%=.G(a|
0000d890  25 29 3a e1 0d e1 2e 73  e7 63 25 3e 31 8c 62 25  |%):....s.c%>1.b%|
0000d8a0  3d a4 47 28 61 25 29 3a  f2 62 28 22 54 68 69 73  |=.G(a%):.b("This|
0000d8b0  20 66 69 6c 65 20 77 61  73 20 6d 61 64 65 20 62  | file was made b|
0000d8c0  79 20 61 20 6e 65 77 65  72 20 76 65 72 73 69 6f  |y a newer versio|
0000d8d0  6e 20 6f 66 20 4d 75 73  69 63 42 6f 78 2e 20 59  |n of MusicBox. Y|
0000d8e0  6f 75 20 77 69 6c 6c 20  6e 65 65 64 20 61 6e 20  |ou will need an |
0000d8f0  75 70 67 72 61 64 65 20  74 6f 20 6c 6f 61 64 20  |upgrade to load |
0000d900  69 74 2e 22 2c a3 29 0d  e1 37 2a 62 25 3d a4 68  |it.",.)..7*b%=.h|
0000d910  28 62 24 2c 34 2c 61 25  29 3a c8 95 62 25 3d 30  |(b$,4,a%):..b%=0|
0000d920  80 62 24 3c 3e 22 45 6e  64 58 22 3a c8 8e 62 24  |.b$<>"EndX":..b$|
0000d930  ca 0d e1 52 1d c9 22 54  61 70 65 22 3a 62 25 3d  |...R.."Tape":b%=|
0000d940  a4 5f 28 5a 6d 25 2c 61  25 2c 58 6d 25 29 0d e1  |._(Zm%,a%,Xm%)..|
0000d950  64 1e c9 22 49 6e 73 74  22 3a 62 25 3d a4 76 28  |d.."Inst":b%=.v(|
0000d960  6a 25 2c 61 25 29 3a 59  6d 25 3d b9 0d e1 6d 18  |j%,a%):Ym%=...m.|
0000d970  c9 22 54 65 6d 70 22 3a  62 25 3d a4 77 28 6a 25  |."Temp":b%=.w(j%|
0000d980  2c 61 25 29 0d e1 76 18  c9 22 56 6f 6c 75 22 3a  |,a%)..v.."Volu":|
0000d990  62 25 3d a4 78 28 6a 25  2c 61 25 29 0d e1 7f 15  |b%=.x(j%,a%)....|
0000d9a0  c9 22 4f 63 74 61 22 3a  62 25 3d a4 79 28 61 25  |."Octa":b%=.y(a%|
0000d9b0  29 0d e1 88 15 c9 22 4b  65 79 20 22 3a 62 25 3d  |)....."Key ":b%=|
0000d9c0  a4 7a 28 61 25 29 0d e1  91 15 c9 22 43 68 6f 72  |.z(a%)....."Chor|
0000d9d0  22 3a 62 25 3d a4 60 28  61 25 29 0d e1 9a 1b c9  |":b%=.`(a%).....|
0000d9e0  22 50 65 6e 74 22 3a e7  6a 25 3d 30 8c 62 25 3d  |"Pent":.j%=0.b%=|
0000d9f0  a4 42 28 61 25 29 0d e1  9a 0f 7f 3a 62 25 3d a4  |.B(a%).....:b%=.|
0000da00  6a 28 61 25 29 0d e1 ac  05 cb 0d e1 ac 18 e7 62  |j(a%)..........b|
0000da10  25 3d 30 8c 62 25 3d a4  68 28 62 24 2c 34 2c 61  |%=0.b%=.h(b$,4,a|
0000da20  25 29 0d e1 b5 1b ce 3a  e7 62 25 3c 3e 30 8c f2  |%).....:.b%<>0..|
0000da30  62 28 a4 63 28 62 25 2b  34 29 2c a3 29 0d e1 c7  |b(.c(b%+4),.)...|
0000da40  1e 62 25 3d a4 69 28 61  25 29 3a f2 70 3a f2 72  |.b%=.i(a%):.p:.r|
0000da50  3a e7 6a 25 3d 32 80 59  6d 25 8c 0d e1 eb 1d e7  |:.j%=2.Ym%......|
0000da60  77 25 3d 32 8c f2 6b 28  62 25 28 32 2c 64 63 25  |w%=2..k(b%(2,dc%|
0000da70  2d 31 29 2c 64 63 25 29  0d e1 f4 3a e3 42 63 25  |-1),dc%)...:.Bc%|
0000da80  3d 30 b8 36 3a 41 24 3d  61 24 28 62 25 28 32 2c  |=0.6:A$=a$(b%(2,|
0000da90  42 63 25 29 29 3a e3 65  25 3d 30 b8 6b 68 25 2d  |Bc%)):.e%=0.kh%-|
0000daa0  31 3a e7 68 25 28 65 25  2c 30 29 3d 42 63 25 2b  |1:.h%(e%,0)=Bc%+|
0000dab0  31 8c 0d e2 18 30 c8 99  26 34 34 41 44 44 2c 31  |1....0..&44ADD,1|
0000dac0  2b 35 31 32 2c 6c 25 2c  6c 68 25 2b 65 25 2c 22  |+512,l%,lh%+e%,"|
0000dad0  73 22 2b 41 24 2b 22 2c  70 22 2b 41 24 2c 2c 48  |s"+A$+",p"+A$,,H|
0000dae0  68 25 0d e2 2a 05 cd 0d  e2 2a 07 ed 3a ed 0d e2  |h%..*....*..:...|
0000daf0  45 05 cd 0d e2 45 05 e1  0d e2 4e 2c dd a4 5f 28  |E....E....N,.._(|
0000db00  6a 25 2c 61 25 2c 58 6d  25 29 3a ea 76 25 2c 62  |j%,a%,Xm%):.v%,b|
0000db10  25 3a e7 62 25 3d 30 8c  62 25 3d a4 61 28 76 25  |%:.b%=0.b%=.a(v%|
0000db20  2c 61 25 29 0d e2 7b 16  e7 62 25 3d 30 8c 62 25  |,a%)..{..b%=0.b%|
0000db30  3d a4 61 28 76 25 2c 61  25 29 0d e2 84 24 67 25  |=.a(v%,a%)...$g%|
0000db40  28 6a 25 29 3d 76 25 3a  e7 62 25 3d 30 8c 62 25  |(j%)=v%:.b%=0.b%|
0000db50  3d a4 61 28 6a 25 28 6a  25 29 2c 61 25 29 0d e2  |=.a(j%(j%),a%)..|
0000db60  96 28 e3 65 25 3d 30 b8  76 25 3a e7 62 25 3d 30  |.(.e%=0.v%:.b%=0|
0000db70  8c 62 25 3d a4 61 28 65  25 28 30 2c 65 25 2c 6a  |.b%=.a(e%(0,e%,j|
0000db80  25 29 2c 61 25 29 0d e2  a8 1f e7 62 25 3d 30 8c  |%),a%).....b%=0.|
0000db90  62 25 3d a4 61 28 65 25  28 31 2c 65 25 2c 6a 25  |b%=.a(e%(1,e%,j%|
0000dba0  29 2c 61 25 29 0d e2 b1  1a e7 62 25 3d 30 8c 65  |),a%).....b%=0.e|
0000dbb0  25 28 31 2c 65 25 2c 6a  25 29 2b 3d 58 6d 25 0d  |%(1,e%,j%)+=Xm%.|
0000dbc0  e2 ba 1f e7 62 25 3d 30  8c 62 25 3d a4 61 28 65  |....b%=0.b%=.a(e|
0000dbd0  25 28 32 2c 65 25 2c 6a  25 29 2c 61 25 29 0d e2  |%(2,e%,j%),a%)..|
0000dbe0  c3 09 ed 3a 3d 62 25 0d  e2 e7 25 dd a4 60 28 61  |...:=b%...%..`(a|
0000dbf0  25 29 3a ea 76 25 2c 62  25 3a e7 62 25 3d 30 8c  |%):.v%,b%:.b%=0.|
0000dc00  62 25 3d a4 61 28 76 25  2c 61 25 29 0d e2 f9 28  |b%=.a(v%,a%)...(|
0000dc10  e3 65 25 3d 30 b8 6b 68  25 2d 31 3a e7 62 25 3d  |.e%=0.kh%-1:.b%=|
0000dc20  30 8c 62 25 3d a4 61 28  68 25 28 65 25 2c 30 29  |0.b%=.a(h%(e%,0)|
0000dc30  2c 61 25 29 0d e3 0b 20  ed 3a e7 62 25 3d 30 8c  |,a%)... .:.b%=0.|
0000dc40  62 25 3d a4 6b 28 4a 68  25 2c 6b 68 25 2a 32 34  |b%=.k(Jh%,kh%*24|
0000dc50  2c 61 25 29 0d e3 1d 07  3d 62 25 0d e3 41 16 dd  |,a%)....=b%..A..|
0000dc60  f2 58 28 48 25 2c 4a 25  29 3a e7 77 25 3c 30 8c  |.X(H%,J%):.w%<0.|
0000dc70  e1 0d e3 4a 5e c8 99 26  34 30 30 45 36 2c 35 3a  |...J^..&400E6,5:|
0000dc80  ec 48 25 2b 64 25 28 77  25 2c 30 29 2c 4a 25 2b  |.H%+d%(w%,0),J%+|
0000dc90  64 25 28 77 25 2c 31 29  3a ec 48 25 2b 64 25 28  |d%(w%,1):.H%+d%(|
0000dca0  77 25 2c 32 29 2c 4a 25  2b 64 25 28 77 25 2c 33  |w%,2),J%+d%(w%,3|
0000dcb0  29 3a f0 38 35 2c 48 25  2b 64 25 28 77 25 2c 32  |):.85,H%+d%(w%,2|
0000dcc0  29 2c 4a 25 2b 64 25 28  77 25 2c 31 29 3a e1 0d  |),J%+d%(w%,1):..|
0000dcd0  e3 77 23 dd f2 71 28 5f  6d 25 29 3a 5f 6d 25 3d  |.w#..q(_m%):_m%=|
0000dce0  5f 6d 25 2f 32 3a e7 5f  6d 25 3c 30 8c 5f 6d 25  |_m%/2:._m%<0._m%|
0000dcf0  3d 30 0d e3 9b 14 e7 5f  6d 25 3e 31 32 37 8c 5f  |=0....._m%>127._|
0000dd00  6d 25 3d 31 32 37 0d e3  a4 12 c8 99 26 34 30 31  |m%=127......&401|
0000dd10  38 30 2c 5f 6d 25 3a e1  0d e3 b6 2b dd f2 56 28  |80,_m%:....+..V(|
0000dd20  6e 25 2c 64 25 29 3a c8  99 26 34 34 41 44 34 2c  |n%,d%):..&44AD4,|
0000dd30  31 2c 6e 25 2c 64 25 b8  63 25 3a f2 71 28 63 25  |1,n%,d%.c%:.q(c%|
0000dd40  29 3a e1 0d e3 e3 3c dd  a4 4d 28 6a 25 2c 61 25  |):....<..M(j%,a%|
0000dd50  29 3a ea 65 25 2c 63 25  2c 62 25 3a 62 25 3d a4  |):.e%,c%,b%:b%=.|
0000dd60  66 28 22 56 6f 6c 75 22  2c 61 25 29 3a e7 62 25  |f("Volu",a%):.b%|
0000dd70  3d 30 8c 62 25 3d a4 62  28 31 32 2c 61 25 29 0d  |=0.b%=.b(12,a%).|
0000dd80  e4 10 09 c8 8e 6a 25 ca  0d e4 19 1b c9 30 3a c8  |.....j%......0:.|
0000dd90  99 26 34 34 41 44 34 2c  31 2c 74 25 2c 71 66 25  |.&44AD4,1,t%,qf%|
0000dda0  b8 63 25 0d e4 2b 1b c9  31 3a c8 99 26 34 34 41  |.c%..+..1:..&44A|
0000ddb0  44 34 2c 31 2c 6f 25 2c  60 66 25 b8 63 25 0d e4  |D4,1,o%,`f%.c%..|
0000ddc0  34 1b c9 32 3a c8 99 26  34 34 41 44 34 2c 31 2c  |4..2:..&44AD4,1,|
0000ddd0  6c 25 2c 79 68 25 b8 63  25 0d e4 3d 1b c9 33 3a  |l%,yh%.c%..=..3:|
0000dde0  c8 99 26 34 34 41 44 34  2c 31 2c 6b 25 2c 4f 67  |..&44AD4,1,k%,Og|
0000ddf0  25 b8 63 25 0d e4 46 05  cb 0d e4 46 16 e7 62 25  |%.c%..F....F..b%|
0000de00  3d 30 8c 62 25 3d a4 62  28 63 25 2c 61 25 29 0d  |=0.b%=.b(c%,a%).|
0000de10  e4 4f 07 3d 62 25 0d e4  6a 1e dd a4 78 28 6a 25  |.O.=b%..j...x(j%|
0000de20  2c 61 25 29 3a ea 65 25  2c 63 25 2c 62 25 3a e7  |,a%):.e%,c%,b%:.|
0000de30  45 6d 25 8c 0d e4 7c 23  62 25 3d a4 61 28 63 25  |Em%...|#b%=.a(c%|
0000de40  2c 61 25 29 3a e7 62 25  3d 30 8c 62 25 3d a4 61  |,a%):.b%=0.b%=.a|
0000de50  28 63 25 2c 61 25 29 0d  e4 8e 0a e7 62 25 3d 30  |(c%,a%).....b%=0|
0000de60  8c 0d e4 97 09 c8 8e 6a  25 ca 0d e4 a0 1b c9 30  |.......j%......0|
0000de70  3a c8 99 26 34 34 41 44  34 2c 32 2c 74 25 2c 71  |:..&44AD4,2,t%,q|
0000de80  66 25 2c 63 25 0d e4 bb  1b c9 31 3a c8 99 26 34  |f%,c%.....1:..&4|
0000de90  34 41 44 34 2c 32 2c 6f  25 2c 60 66 25 2c 63 25  |4AD4,2,o%,`f%,c%|
0000dea0  0d e4 cd 1b c9 32 3a c8  99 26 34 34 41 44 34 2c  |.....2:..&44AD4,|
0000deb0  32 2c 6c 25 2c 79 68 25  2c 63 25 0d e4 df 1b c9  |2,l%,yh%,c%.....|
0000dec0  33 3a c8 99 26 34 34 41  44 34 2c 32 2c 6b 25 2c  |3:..&44AD4,2,k%,|
0000ded0  4f 67 25 2c 63 25 0d e4  f1 05 cb 0d e4 f1 11 e7  |Og%,c%..........|
0000dee0  77 25 3d 6a 25 8c f2 71  28 63 25 29 0d e4 fa 05  |w%=j%..q(c%)....|
0000def0  cd 0d e5 03 0f cc 3a 62  25 3d a4 6a 28 61 25 29  |......:b%=.j(a%)|
0000df00  0d e5 1e 05 cd 0d e5 1e  07 3d 62 25 0d e5 42 1b  |.........=b%..B.|
0000df10  dd f2 6e 28 6e 25 2c 6a  25 29 3a 60 6d 25 3d 6e  |..n(n%,j%):`m%=n|
0000df20  25 3a c8 8e 6e 25 ca 0d  e5 54 08 c9 44 64 25 0d  |%:..n%...T..Dd%.|
0000df30  e5 66 48 c9 30 3a c8 99  26 34 34 41 44 44 2c 32  |.fH.0:..&44ADD,2|
0000df40  2c 48 64 25 2c 47 64 25  2c 22 41 72 65 20 79 6f  |,Hd%,Gd%,"Are yo|
0000df50  75 20 73 75 72 65 20 79  6f 75 20 77 61 6e 74 20  |u sure you want |
0000df60  74 6f 20 73 74 61 72 74  20 61 67 61 69 6e 3f 22  |to start again?"|
0000df70  3a 6e 25 3d 48 64 25 0d  e5 6f 4c c9 31 3a c8 99  |:n%=Hd%..oL.1:..|
0000df80  26 34 34 41 44 44 2c 32  2c 48 64 25 2c 47 64 25  |&44ADD,2,Hd%,Gd%|
0000df90  2c 22 41 72 65 20 79 6f  75 20 73 75 72 65 20 79  |,"Are you sure y|
0000dfa0  6f 75 20 77 61 6e 74 20  74 6f 20 70 72 69 6e 74  |ou want to print|
0000dfb0  20 79 6f 75 72 20 77 6f  72 6b 3f 22 3a 6e 25 3d  | your work?":n%=|
0000dfc0  48 64 25 0d e5 78 5f c9  32 3a c8 99 26 34 34 41  |Hd%..x_.2:..&44A|
0000dfd0  44 44 2c 32 2c 48 64 25  2c 47 64 25 2c 22 54 68  |DD,2,Hd%,Gd%,"Th|
0000dfe0  65 72 65 20 61 72 65 20  73 6f 6d 65 20 75 6e 73  |ere are some uns|
0000dff0  61 76 65 64 20 66 69 6c  65 73 2e 20 41 72 65 20  |aved files. Are |
0000e000  79 6f 75 20 73 75 72 65  20 79 6f 75 20 77 61 6e  |you sure you wan|
0000e010  74 20 74 6f 20 71 75 69  74 3f 22 3a 6e 25 3d 48  |t to quit?":n%=H|
0000e020  64 25 0d e5 78 91 c9 33  3a c8 99 26 34 34 41 44  |d%..x..3:..&44AD|
0000e030  44 2c 32 2c 48 64 25 2c  47 64 25 2c 22 54 68 65  |D,2,Hd%,Gd%,"The|
0000e040  20 70 72 65 73 65 6e 74  20 74 75 6e 65 20 68 61  | present tune ha|
0000e050  73 20 6e 6f 74 20 62 65  65 6e 20 73 61 76 65 64  |s not been saved|
0000e060  20 61 6e 64 20 6c 6f 61  64 69 6e 67 20 61 20 6e  | and loading a n|
0000e070  65 77 20 66 69 6c 65 20  77 69 6c 6c 20 6c 6f 73  |ew file will los|
0000e080  65 20 69 74 2e 20 44 6f  20 79 6f 75 20 73 74 69  |e it. Do you sti|
0000e090  6c 6c 20 77 61 6e 74 20  74 6f 20 6c 6f 61 64 20  |ll want to load |
0000e0a0  61 20 6e 65 77 20 66 69  6c 65 3f 22 3a 6e 25 3d  |a new file?":n%=|
0000e0b0  48 64 25 0d e5 81 66 c9  34 3a c8 99 26 34 34 41  |Hd%...f.4:..&44A|
0000e0c0  44 44 2c 32 2c 48 64 25  2c 47 64 25 2c 22 54 68  |DD,2,Hd%,Gd%,"Th|
0000e0d0  61 74 20 66 69 6c 65 20  61 6c 72 65 61 64 79 20  |at file already |
0000e0e0  65 78 69 73 74 73 2e 20  44 6f 20 79 6f 75 20 77  |exists. Do you w|
0000e0f0  61 6e 74 20 74 6f 20 63  6f 6e 74 69 6e 75 65 20  |ant to continue |
0000e100  61 6e 64 20 6f 76 65 72  77 72 69 74 65 20 69 74  |and overwrite it|
0000e110  3f 22 3a 6e 25 3d 48 64  25 0d e5 93 05 cb 0d e5  |?":n%=Hd%.......|
0000e120  93 65 5f 61 25 3d 6e 25  3a c8 99 26 34 34 41 44  |.e_a%=n%:..&44AD|
0000e130  44 2c 31 2c 48 64 25 2c  46 64 25 2c 22 73 79 65  |D,1,Hd%,Fd%,"sye|
0000e140  73 2c 70 79 65 73 22 3a  c8 99 26 34 34 41 44 44  |s,pyes":..&44ADD|
0000e150  2c 35 2c 48 64 25 2c 45  64 25 2c a3 3a c8 99 26  |,5,Hd%,Ed%,.:..&|
0000e160  34 34 41 44 36 2c 6e 25  2c 2d 31 3a c8 99 26 34  |44AD6,n%,-1:..&4|
0000e170  34 41 44 39 2c 6e 25 2c  2d 31 3a 60 61 25 3d 6a  |4AD9,n%,-1:`a%=j|
0000e180  25 3a e1 0d e5 d2 91 dd  f2 63 28 45 24 29 3a 70  |%:.......c(E$):p|
0000e190  63 25 3d a3 3a 60 6d 25  3d 2d 31 3a c8 99 26 34  |c%=.:`m%=-1:..&4|
0000e1a0  34 41 44 44 2c 32 2c 48  64 25 2c 47 64 25 2c 45  |4ADD,2,Hd%,Gd%,E|
0000e1b0  24 3a c8 99 26 34 34 41  44 44 2c 31 2c 48 64 25  |$:..&44ADD,1,Hd%|
0000e1c0  2c 46 64 25 2c 22 73 6f  6b 2c 70 6f 6b 22 3a c8  |,Fd%,"sok,pok":.|
0000e1d0  99 26 34 34 41 44 44 2c  35 2c 48 64 25 2c 45 64  |.&44ADD,5,Hd%,Ed|
0000e1e0  25 2c b9 3a 5f 61 25 3d  48 64 25 3a c8 99 26 34  |%,.:_a%=Hd%:..&4|
0000e1f0  34 41 44 36 2c 48 64 25  2c 2d 31 3a c8 99 26 34  |4AD6,Hd%,-1:..&4|
0000e200  34 41 44 39 2c 48 64 25  2c 2d 31 3a 60 61 25 3d  |4AD9,Hd%,-1:`a%=|
0000e210  2d 33 3a e1 0d e6 3e 22  dd f2 56 63 28 70 25 2c  |-3:...>"..Vc(p%,|
0000e220  64 25 29 3a ea 41 25 2c  43 25 2c 44 25 3a e7 28  |d%):.A%,C%,D%:.(|
0000e230  70 25 80 34 29 8c 0d e6  62 0a c8 8e 5f 61 25 ca  |p%.4)...b..._a%.|
0000e240  0d e6 6b 0e c9 48 64 25  3a c8 8e 64 25 ca 0d e6  |..k..Hd%:..d%...|
0000e250  7d 17 c9 46 64 25 2c 45  64 25 3a f2 65 28 48 64  |}..Fd%,Ed%:.e(Hd|
0000e260  25 2c 64 25 29 0d e6 98  05 cb 0d e6 98 0e c9 44  |%,d%)..........D|
0000e270  64 25 3a c8 8e 64 25 ca  0d e6 aa 17 c9 42 64 25  |d%:..d%......Bd%|
0000e280  2c 43 64 25 3a f2 65 28  44 64 25 2c 64 25 29 0d  |,Cd%:.e(Dd%,d%).|
0000e290  e6 c5 2a c9 79 64 25 2c  41 64 25 3a c8 99 26 34  |..*.yd%,Ad%:..&4|
0000e2a0  34 41 43 41 2c 44 64 25  2c 7a 64 25 2c 7a 64 25  |4ACA,Dd%,zd%,zd%|
0000e2b0  2d 64 25 2c 44 6b 25 2c  31 0d e6 d7 05 cb 0d e6  |-d%,Dk%,1.......|
0000e2c0  d7 05 cb 0d e6 e0 05 cd  0d e6 e9 05 e1 0d e6 f2  |................|
0000e2d0  2d dd f2 63 64 28 64 25  29 3a ea 41 25 3a f2 68  |-..cd(d%):.A%:.h|
0000e2e0  28 5f 61 25 29 3a c8 99  26 34 34 41 44 39 2c 30  |(_a%):..&44AD9,0|
0000e2f0  2c 2d 32 3a c8 8e 5f 61  25 ca 0d e7 28 14 c9 48  |,-2:.._a%...(..H|
0000e300  64 25 3a 41 25 3d 28 64  25 3d 46 64 25 29 0d e7  |d%:A%=(d%=Fd%)..|
0000e310  3a 14 c9 44 64 25 3a 41  25 3d 28 64 25 3d 43 64  |:..Dd%:A%=(d%=Cd|
0000e320  25 29 0d e7 43 05 cb 0d  e7 43 0a c8 8e 60 61 25  |%)..C....C...`a%|
0000e330  ca 0d e7 4c 12 c9 31 3a  f2 6a 62 28 60 6d 25 2c  |...L..1:.jb(`m%,|
0000e340  41 25 29 0d e7 5e 12 c9  32 3a f2 78 62 28 60 6d  |A%)..^..2:.xb(`m|
0000e350  25 2c 41 25 29 0d e7 67  12 c9 33 3a f2 6d 63 28  |%,A%)..g..3:.mc(|
0000e360  60 6d 25 2c 41 25 29 0d  e7 70 0e c9 2d 31 3a 76  |`m%,A%)..p..-1:v|
0000e370  61 25 3d 41 25 0d e7 79  18 c9 2d 32 3a e7 41 25  |a%=A%..y..-2:.A%|
0000e380  8c f2 6e 64 28 6c 6d 25  2c 6d 6d 25 29 0d e7 79  |..nd(lm%,mm%)..y|
0000e390  26 c9 2d 33 3a 61 61 25  2d 3d 31 3a e7 61 61 25  |&.-3:aa%-=1:.aa%|
0000e3a0  3e 3d 30 8c f2 63 28 63  24 28 72 61 25 2d 61 61  |>=0..c(c$(ra%-aa|
0000e3b0  25 29 29 0d e7 82 0f c9  2d 34 3a e7 41 25 8c f2  |%)).....-4:.A%..|
0000e3c0  73 64 0d e7 8b 05 cb 0d  e7 94 05 e1 0d e7 9d 76  |sd.............v|
0000e3d0  dd f2 6b 62 28 6a 25 29  3a f2 63 28 22 53 6f 72  |..kb(j%):.c("Sor|
0000e3e0  72 79 2c 20 50 72 69 6e  74 20 69 73 20 64 69 73  |ry, Print is dis|
0000e3f0  61 62 6c 65 64 20 66 6f  72 20 74 68 69 73 20 64  |abled for this d|
0000e400  65 6d 6f 2e 20 54 68 65  20 66 75 6c 6c 20 76 65  |emo. The full ve|
0000e410  72 73 69 6f 6e 20 70 72  69 6e 74 73 20 75 73 69  |rsion prints usi|
0000e420  6e 67 20 61 6e 79 20 52  49 53 43 20 4f 53 20 70  |ng any RISC OS p|
0000e430  72 69 6e 74 65 72 20 64  72 69 76 65 72 2e 22 29  |rinter driver.")|
0000e440  3a e1 0d e7 b8 e2 dd f2  57 61 28 6d 24 29 3a ea  |:.......Wa(m$):.|
0000e450  41 25 2c 42 25 2c 43 25  2c 4b 63 25 2c 4c 63 25  |A%,B%,C%,Kc%,Lc%|
0000e460  2c 4d 63 25 2c 4e 63 25  2c 4f 63 25 2c 50 63 25  |,Mc%,Nc%,Oc%,Pc%|
0000e470  2c 51 63 25 2c 52 63 25  2c 53 63 25 2c 54 63 25  |,Qc%,Rc%,Sc%,Tc%|
0000e480  2c 66 24 3a 66 24 3d 22  73 22 2b 61 24 28 62 25  |,f$:f$="s"+a$(b%|
0000e490  28 77 25 2c 21 64 69 25  2d 31 29 29 3a c8 99 26  |(w%,!di%-1)):..&|
0000e4a0  32 45 2c 34 30 2b 32 35  36 2c 55 25 2c 6d 24 b8  |2E,40+256,U%,m$.|
0000e4b0  2c 2c 2c 4b 63 25 2c 4c  63 25 2c 53 63 25 2c 4d  |,,,Kc%,Lc%,Sc%,M|
0000e4c0  63 25 3a c8 99 26 32 45  2c 34 30 2b 32 35 36 2c  |c%:..&2E,40+256,|
0000e4d0  55 25 2c 66 24 b8 2c 2c  2c 4e 63 25 2c 4f 63 25  |U%,f$.,,,Nc%,Oc%|
0000e4e0  2c 54 63 25 2c 50 63 25  3a c8 99 26 33 35 2c 4d  |,Tc%,Pc%:..&35,M|
0000e4f0  63 25 2c 33 b8 2c 2c 51  63 25 3a c8 99 26 33 35  |c%,3.,,Qc%:..&35|
0000e500  2c 4d 63 25 2c 34 b8 2c  2c 41 25 3a 4b 63 25 3d  |,Mc%,4.,,A%:Kc%=|
0000e510  4b 63 25 3c 3c 41 25 3a  68 25 21 38 3d 28 31 3c  |Kc%<<A%:h%!8=(1<|
0000e520  3c 41 25 29 0d e8 1b a7  c8 99 26 33 35 2c 4d 63  |<A%)......&35,Mc|
0000e530  25 2c 35 b8 2c 2c 41 25  3a 4c 63 25 3d 4c 63 25  |%,5.,,A%:Lc%=Lc%|
0000e540  3c 3c 41 25 3a 68 25 21  31 32 3d 28 31 3c 3c 41  |<<A%:h%!12=(1<<A|
0000e550  25 29 3a c8 99 26 33 35  2c 50 63 25 2c 33 b8 2c  |%):..&35,Pc%,3.,|
0000e560  2c 52 63 25 3a c8 99 26  33 35 2c 50 63 25 2c 34  |,Rc%:..&35,Pc%,4|
0000e570  b8 2c 2c 41 25 3a 4e 63  25 3d 28 4e 63 25 3c 3c  |.,,A%:Nc%=(Nc%<<|
0000e580  41 25 29 3a 68 25 21 30  3d 31 3c 3c 41 25 3a c8  |A%):h%!0=1<<A%:.|
0000e590  99 26 33 35 2c 50 63 25  2c 35 b8 2c 2c 41 25 3a  |.&35,Pc%,5.,,A%:|
0000e5a0  4f 63 25 3d 28 4f 63 25  3c 3c 41 25 29 3a 68 25  |Oc%=(Oc%<<A%):h%|
0000e5b0  21 34 3d 31 3c 3c 41 25  3a e7 51 63 25 3c 3e 52  |!4=1<<A%:.Qc%<>R|
0000e5c0  63 25 84 51 63 25 3c 3e  31 35 8c 0d e8 7e 3b f2  |c%.Qc%<>15...~;.|
0000e5d0  62 28 22 56 6f 69 63 65  20 73 70 72 69 74 65 73  |b("Voice sprites|
0000e5e0  20 6d 75 73 74 20 68 61  76 65 20 31 36 20 61 6e  | must have 16 an|
0000e5f0  64 20 6f 6e 6c 79 20 31  36 20 63 6f 6c 6f 75 72  |d only 16 colour|
0000e600  73 2e 22 2c a3 29 0d e8  90 af cc 3a c8 99 26 32  |s.",.).....:..&2|
0000e610  30 30 32 45 2c 32 35 2b  32 35 36 2c 55 25 2c 22  |002E,25+256,U%,"|
0000e620  73 74 37 22 3a c8 99 26  32 45 2c 32 37 2b 32 35  |st7":..&2E,27+25|
0000e630  36 2c 55 25 2c 6d 24 2c  22 73 74 37 22 3a c8 99  |6,U%,m$,"st7":..|
0000e640  26 32 45 2c 36 30 2b 32  35 36 2c 55 25 2c 22 73  |&2E,60+256,U%,"s|
0000e650  74 37 22 2c 30 b8 2c 41  25 2c 42 25 2c 43 25 3a  |t7",0.,A%,B%,C%:|
0000e660  c8 99 26 32 45 2c 35 32  2b 32 35 36 2c 55 25 2c  |..&2E,52+256,U%,|
0000e670  66 24 2c 34 2c 34 34 2c  38 2c 68 25 2c 30 3a c8  |f$,4,44,8,h%,0:.|
0000e680  99 26 32 45 2c 33 34 2b  32 35 36 2c 55 25 2c 6d  |.&2E,34+256,U%,m|
0000e690  24 2c 30 2c 30 2c 38 3a  c8 99 26 32 45 2c 36 30  |$,0,0,8:..&2E,60|
0000e6a0  2b 32 35 36 2c 41 25 2c  42 25 2c 43 25 3a e7 53  |+256,A%,B%,C%:.S|
0000e6b0  63 25 3d 31 8c 0d e8 cf  4a c8 99 26 32 45 2c 36  |c%=1....J..&2E,6|
0000e6c0  31 2b 32 35 36 2c 55 25  2c 22 73 74 37 22 2c 30  |1+256,U%,"st7",0|
0000e6d0  b8 2c 41 25 2c 42 25 2c  43 25 3a ef 31 38 2c 30  |.,A%,B%,C%:.18,0|
0000e6e0  2c 31 32 38 2b 36 33 2c  32 33 2c 31 37 2c 33 2c  |,128+63,23,17,3,|
0000e6f0  26 43 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 0d  |&C0,0,0,0,0,0,0.|
0000e700  e8 e1 34 c8 99 26 32 45  2c 35 30 2b 32 35 36 2c  |..4..&2E,50+256,|
0000e710  55 25 2c 66 24 2c 34 2c  34 34 2c 38 2c 68 25 2c  |U%,f$,4,44,8,h%,|
0000e720  30 3a c8 99 26 32 45 2c  36 31 2c 41 25 2c 42 25  |0:..&2E,61,A%,B%|
0000e730  2c 43 25 0d e8 fc 05 cd  0d e8 fc 05 cd 0d e9 05  |,C%.............|
0000e740  05 e1 0d ff                                       |....|
0000e744