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

MusicBox/!MusicBoxD/Main

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/Main
Read OK:
File size: 4777 bytes
Load address: 0000
Exec address: 0000
File contents
 2494DEFPROCka
 2503*TUNING 0
 2503SYS&40187,0TOya%:za%=FALSE:Aa%=FALSE:Ba%=FALSE:Ca%=FALSE:Da%=&BC7:Ea%=4:Fa%=3:Ga%=2:Ha%=1:sa%=0:w%=-1:Ia%=FALSE:qa%=FALSE:Ja%=0:Ka%=FALSE:La%=FALSE:Ma%=&81001:Na%=&81000:Oa%=Ma%:va%=FALSE:Pa%=FALSE:Qa%=FALSE:Ra%=FALSE:Sa%=FALSE:Ta%=FALSE:Ua%=0:Va%=256:SYS&8,17,"<MusicBoxD$Dir>.Config"TO,,,,v%
 2764DIMe%(4,Va% ,3):DIMj%(3):DIMg%(3):g%()=-1:SYS&44AC1,,pa%,2048TO,Wa%:Xa%=FALSE:Ya%=TRUE:Za%=TRUE:_a%=0:`a%=-1:ab%=FALSE:bb%=FALSE:DIMi%(3):cb%=67*2:db%=66*2:eb%=56:fb%=30:gb%=32*2:hb%=32*2/4:Q%=32*2:ib%=2*4:jb%=1:SYS&411C0,(!Wa%+2048-v%):SYS&40880,"<MusicBoxD$Dir>.4"
 2989kb%=Q%*ib%:lb%=kb%*jb%:mb%=ib%*jb%:nb%=Q%*ib%/2:ob%=2*mb%/ib%:pb%=80:qb%=125:rb%=130:sb%=0:tb%=0:ub%=-1:!ua%=1:SYS&7,14,ua%:IF?ua%=&95THENSYS&44ADC,(!Wa%+2048-v%+4),!Wa%TOv%
 3115vb%=24*20:W%=100:K%=40:wb%=18:d$="s?":z$="s?":xb%=Q%/2:yb%=FALSE:zb%=FALSE:Ab%=FALSE:Bb%=1:Cb%=2:Db%=2:Eb%=-1:IF?ua%=&95THENSYS&1E,11,!Wa%,v%
 3250Fb%=FALSE:Gb%=1:Hb%=1:Ib%=1:Jb%=FALSE:Kb%=FALSE:Lb%=10:Mb%=40:M%=24:Nb%=Mb%*M%:O%=4:Ob%=4*40:Pb%=52:Qb%=52:Rb%=52:Sb%=100:Tb%=40:Ub%=FALSE:DIMV% Sb%*M%*8:SYS&44ADA,V%,Sb%*M%*8:SYS&44AC3,,Wa%:Vb%=0:Wb%=2:Xb%=&FF:Yb%=&17F:Zb%=11:_b%=7:X$="s?"
 3529`b%=18*2:ac%=18:bc%=pa%:cc%=-1:dc%=1:ec%=-1:DIMa%(Zb%-1):DIMk%(20):DIMh%(7,0):DIMfc% gc%:h%()=2:DIMd%(3,3):DIMhc% 16:DIMic% 64*4:DIMjc% vb%*12+12*2:SYS&44ADA,jc%,vb%*12+12*2:jc%+=12:DIMkc% 26*7+1:lc%=kc%+26*7:?lc%=0:IF?ua%=&95THEN
 3745SYS&411C2,fc%:PROCsa
 3772ENDIF
 3772DIMmc% 256:ENDPROC
 3790DEFPROCla:SYS&44AE2,256,pa%,0TO,nc%:SYS&44AE2,256,pa%,0TO,oc%:ENDPROC
 3835DEFPROCha:LOCALA%:pc%=FALSE:gc%=(2^9)*(5*3+4):qc%=0:rc%=-1:sc%=-1:tc%=FALSE:uc%=FALSE:vc%=FALSE:o$="Music Box Demo":S$="MusicBoxD":y$=o$:k$="<"+S$+"$Dir>":n$="<MBInstruments$Dir>":G$="MBInstruments$Dir":H$="<MBInstrumentSprites$Dir>"
 3997I$="<MBInstrumentSprites22$Dir>":J$="<ROMInstrumentSprites$Dir>":K$="<ROMInstrumentSprites22$Dir>":T$="1.25D (26 Nov 1994)":wc%=-1:xc%=-1:yc%=0:SYS&400C0,200,&4B534154,o$TO,ca%:DIMA% 25:$A%="S!MusicBoxD,!MusicBoxE"+CHR$0:A%?25=0
 4114!h%=-1:h%!4=0:h%!8=0:h%!12=68:h%!16=68:h%!20=&311B+2^21:h%!24=A%+25:h%!28=A%:h%!32=1:SYS&400C2,,h%TOzc%:ENDPROC
 4177DEFPROCsa:LOCALe%,Ac%,A,Bc%:Ac%=30:DIMCc% (Q%*M%*2+1)*8*(jb%+1):FORBc%=0TOjb%:FORe%=0TOkb%*8STEP8:A=e%*360/(kb%*8):A=RAD(SIN(RAD(A))*Ac%+90):!(Cc%+e%+kb%*8*Bc%)=(COS(A)*rb%)*2^10:!(Cc%+e%+kb%*8*Bc%+4)=(SIN(A)*rb%)*2^10:NEXT:NEXT:ENDPROC
 4321DEFPROCma:LOCALA%,G%,Dc%,Ec%,Fc%,B%,b$,e%,A$:DIMb$(ea%-1):DIMc%(ea%-1):DIMa$(ea%-1):Fc%=FALSE:IFj$="22"THENr$=""ELSEr$="22"
 4609IFFNg(k$+".Defaults"+j$)THENA$=j$ELSEA$=r$
 4618SYS&411C0,,pa%,k$+".Defaults"+A$TO,Dc%:SYS&411C0,,pa%,k$+".Defaults"+A$TO,r%:IFFNg(k$+".Tools"+j$)THENA$=j$ELSEA$=r$
 4654SYS&411C1,,r%,k$+".Tools"+A$:SYS&44AE2,256,pa%,0TO,G%:Gc%=0:Ec%=0:SYS&20023,"MBROM$Instruments",h%,256,0,0TO,,A%:h%?A%=0:h%?255=0:A$=FNc(h%):IFA%>0THEN
 4753e%=1:WHILEe%<A%+1:b$="":WHILEASC(MID$(A$,e%,1))>32:b$+=MID$(A$,e%,1):e%+=1:ENDWHILE:IFb$<>""THENPROCta(b$)
 4825e%+=1:ENDWHILE:PROCua:SYS&20023,G$,h%,-1,0,0TO,,A%:IFA%<0THENPROCva(n$,ea%-2,"FNV(F$)")
 4870PROCwa:b$(Gc%)="Rest":c%(Gc%)=&80000000:a$(Gc%)="Rest":Gc%+=1:A%=FNe(r%,"Rest",r%,"none","pnone","snone"):A%=FNe(r%,"?",r%,"unknown","punknown","sunknown"):SYS&64AE2,260,Dc%,"sZ",r%,"sprintinst"+a$,0TO;P%
 4969PROCB(r%,"sprintinst",r%,"sprint",1):SYS&64AE2,25,r%,"sprint":FORe%=1TO6:A%=FNe(r%,"t"+STR$(e%),r%,"tool"+STR$(e%),"ptool"+STR$(e%),"-"):SYS&64AE2,25,r%,"tool"+STR$(e%):SYS&64AE2,25,r%,"ptool"+STR$(e%):NEXT
 5041A%=FNe(r%,"speaker",r%,"speak","pspeak","-"):A%=FNe(r%,"load",r%,"_load","_load","-"):A%=FNe(r%,"save",r%,"_save","_save","-"):A%=FNe(r%,"clear",r%,"_clear","_clear","-")
 5077A%=FNe(r%,"copy",r%,"_copy","_copy","-"):A%=FNe(r%,"yes",r%,"_yes","_yes","-"):A%=FNe(r%,"no",r%,"_no","_no","-"):A%=FNe(r%,"Print",r%,"_print","_print","-"):A%=FNe(r%,"Slow",r%,"_Slow","_Slow","-")
 5122A%=FNe(r%,"Fast",r%,"_Fast","_Fast","-"):A%=FNe(r%,"Ok",r%,"_Ok","_Ok","-"):SYS&64AE2,25,r%,"_ok":SYS&64AE2,25,r%,"_save":SYS&64AE2,25,r%,"_load":SYS&64AE2,25,r%,"_slow":SYS&64AE2,25,r%,"_fast":SYS&64AE2,25,r%,"_yes"
 5194SYS&64AE2,25,r%,"_no":SYS&64AE2,25,r%,"_print":SYS&64AE2,25,r%,"_copy":SYS&64AE2,25,r%,"_clear":SYS&64AE2,25,r%,"speak":SYS&64AE2,25,r%,"pspeak":SYS&64AE2,25,r%,"none":SYS&64AE2,25,r%,"pnone":SYS&64AE2,25,r%,"snone"
 5275SYS&64AE2,25,r%,"unknown":SYS&64AE2,25,r%,"punknown":SYS&64AE2,25,r%,"sunknown":SYS&44AC3,,G%:SYS&44AC3,,Dc%:IFFNg(k$+".Sprites"+j$)THENA$=j$ELSEA$=r$
 5356IFNOTFNg(k$+".Sprites"+A$)THENPROCb("Sprites file missign from inside MusicBox. Sorry I can't continue.",TRUE)
 5365SYS&411C1,,r%,k$+".Sprites"+A$TO;A%:IFFNg(k$+".Menu"+j$)THENA$=j$ELSEA$=r$
 5383IF(A%AND1)=0ANDia%THENSYS&411C1,,r%,k$+".Menu"+A$TO;A%
 5392IF(A%AND1)THENPROCb("Not enough memory to load MusicBox.",TRUE)
 5401A%=!r%:DIMU% A%!0:SYS&44AC7,A%!0,A%,U%:SYS&44AC3,,r%:r%=-1:SYS&44AE3,1+2^11,U%,"S?",wb%,wb%,pa%TO,,_%:SYS&44AE3,1+2^11,U%,"S?",wb%,wb%,pa%TO,,Hc%:SYS&40880,"<MusicBoxD$Dir>.11":ENDPROC
 5491DEFFNV(a$):LOCALP%,A%,B%:IFGc%<ea%THEN
 5716b$(Gc%)=a$:c%(Gc%)=0:IFj$="22"THEN
 5743SYS&64AE2,258,G%,H$+"."+a$TO;P%:SYS&64AE2,258,G%,I$+"."+a$TO;P%
 5770ELSE:SYS&64AE2,258,G%,I$+"."+a$TO;P%:SYS&64AE2,258,G%,H$+"."+a$TO;P%
 5797ENDIF
 5797A%=FNe(r%,a$,G%,"Normal","Playing","Small"):IFA%THEN
 5851a$(Gc%)=RIGHT$(a$,11)
 5869ELSE:a$(Gc%)="?"
 5887ENDIF
 5887SYS&64AE2,25,G%,"Normal":SYS&64AE2,25,G%,"Playing":SYS&64AE2,25,G%,"Small":Gc%+=1
 5932ENDIF
 5932=0
 6013DEFPROCB(Ic%,m$,Jc%,f$,z%):LOCALA%,B%,C%,Kc%,Lc%,Mc%,Nc%,Oc%,Pc%,Qc%,Rc%,Sc%,Tc%:SYS&44AE2,40,Ic%,m$TO,,,Kc%,Lc%,Sc%,Mc%:SYS&44AE2,40,Jc%,f$TO,,,Nc%,Oc%,Tc%,Pc%:SYS&35,Mc%,3TO,,Qc%:SYS&35,Mc%,4TO,,A%:Kc%=Kc%<<A%:h%!8=(1<<A%)*z%:SYS&35,Mc%,5TO,,A%
 6085Lc%=Lc%<<A%:h%!12=(1<<A%)*z%: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
 6175PROCb("Voice sprites must have 16 colours",FALSE)
 6193ELSE:SYS&44AE2,60,Ic%,m$,0TO,A%,B%,C%:SYS&44AE2,52,Jc%,f$,((Kc%+2)*z%-Nc%)/(z%*2),((Lc%+2)*z%-Oc%)/(z%*2),8,h%,0:SYS&2E,60,A%,B%,C%:IFSc%=1THEN
 6229SYS&44AE2,61,Ic%,m$,0TO,A%,B%,C%:VDU18,0,128+63,23,17,3,&C0,0,0,0,0,0,0
 6247SYS&44AE2,50,Jc%,f$,((Kc%+2)*z%-Nc%)/(z%*2),((Lc%+2)*z%-Oc%)/(z%*2),8,h%,0:SYS&2E,61,A%,B%,C%
 6274ENDIF
 6274ENDIF
 6283ENDPROC
 6292DEFPROCta(a$):LOCALe%,f%,l$,Y$:l$=RIGHT$(a$,10):FORe%=1TO31:SYS&60183,0,e%TOf%:IFFNc(f%)=a$THEN
 6490b$(Gc%)=a$:c%(Gc%)=&80000000:IFj$="22"THEN
 6517SYS&64AE2,258,G%,J$+"."+l$TO;P%:SYS&64AE2,258,G%,K$+"."+l$TO;P%
 6544ELSE:SYS&64AE2,258,G%,K$+"."+l$TO;P%:SYS&64AE2,258,G%,J$+"."+l$TO;P%
 6571ENDIF
 6571IFFNe(r%,l$,G%,"Normal","Playing","Small")THEN
 6580a$(Gc%)=l$
 6598ELSE:a$(Gc%)="?"
 6616ENDIF
 6616SYS&64AE2,25,G%,"Normal":SYS&64AE2,25,G%,"Playing":SYS&64AE2,25,G%,"Small":Gc%+=1:Ec%+=1
 6670ENDIF
 6670NEXT:ENDPROC
 6688DEFPROCva(A$,Uc%,L$):LOCALVc%,R%,Y%,F$,P%,Wc%,A%:P%=0:REPEAT:SYS&2000C,10,A$,h%,1,P%,64,"*"TOA%,,,R%,P%;Wc%:IF(Wc%AND1)=0THEN
 6760IFR%>0THEN
 6769F$=FNc(h%+20):IF((!h%)AND&FFF00000)=&FFF00000AND(h%!16AND1)=1THEN
 6787Vc%=!h%AND&FFF00
 6805ELSE:Vc%=0
 6823ENDIF
 6823IFVc%=&FFA00THEN
 6832IFEc%>Uc%THEN
 6841PROCb("Music Box can only handle a maximum of "+STR$(ea%)+" instruments. So I shall only use the first "+STR$(ea%)+".",FALSE):ENDPROC
 6850ELSE:Vc%=EVAL(L$):Ec%+=1
 6886ENDIF
 6886ENDIF
 6895F$=A$+"."+F$:IFh%!16=2THENPROCva(F$,Uc%,L$)
 6913ENDIF
 6922ELSE:PROCb(FNc(A%+4),FALSE):R%=0
 6958ENDIF
 6958UNTILR%=0ORP%=-1OREc%>Uc%+1:ENDPROC
 6976DEFFNe(Ic%,a$,G%,s$,l$,p$):LOCALA%:SYS&64AE2,261,G%,s$TOA%:IFA%THEN
 7048a$=RIGHT$(a$,11):SYS&44AE2,260,Dc%,"Z",Ic%,a$,0TO;A%:SYS&44AE2,260,Dc%,"pZ",Ic%,"p"+a$,0TO;P%:A%=(P%ORA%):IFp$<>"-"THEN
 7093SYS&44AE2,260,Dc%,"sZ",Ic%,"s"+a$,0TO;P%:A%=(((P%ORA%)AND1)=0)
 7120ENDIF
 7120IFA%THEN
 7129PROCB(Ic%,a$,G%,s$,1):SYS&64AE2,261,G%,l$TOB%:IFB%THEN
 7156PROCB(Ic%,"p"+a$,G%,l$,1)
 7174ELSE:PROCB(Ic%,"p"+a$,G%,s$,1)
 7192ENDIF
 7192IFp$<>"-"THEN
 7201SYS&64AE2,261,G%,p$TOB%:IFB%THEN
 7219PROCB(Ic%,"s"+a$,G%,p$,1)
 7237ELSE:PROCB(Ic%,"s"+a$,G%,s$,2)
 7255ENDIF
 7255ENDIF
 7264ELSE:SYS&64AE2,25,G%,a$:SYS&64AE2,25,G%,"p"+a$:SYS&64AE2,25,G%,"s"+a$
 7309ENDIF
 7309ELSE:A%=TRUE:IFNOTFc%THEN
 7336PROCb("Some instruments (eg "+a$+") do not have a sprite file containing a sprite called '"+s$+"'. I will create a sprite for these instruments.",FALSE):Fc%=TRUE
 7363ENDIF
 7363a$=RIGHT$(a$,11):SYS&44AE2,260,Dc%,"Z",Ic%,a$,0TO;A%:SYS&44AE2,260,Dc%,"pZ",Ic%,"p"+a$,0TO;P%:A%=(P%ORA%):IFp$<>"-"THEN
 7408SYS&44AE2,260,Dc%,"sZ",Ic%,"s"+a$,0TO;P%:A%=(((P%ORA%)AND1)=0)
 7435ENDIF
 7435IFA%THEN
 7444PROCxa(Ic%,a$,G%,a$,1):PROCxa(Ic%,"p"+a$,G%,a$,1):IFp$<>"-"THENPROCxa(Ic%,"s"+a$,G%,a$,2)
 7471ELSE:SYS&64AE2,25,G%,a$:SYS&64AE2,25,G%,"p"+a$:SYS&64AE2,25,G%,"s"+a$
 7516ENDIF
 7516ENDIF
 7525=A%
 7624DEFPROCxa(Ic%,m$,Jc%,f$,z%):LOCALA%,B%,C%,Kc%,Lc%,Mc%,Nc%,Oc%,Pc%,Qc%,Rc%,Sc%,Tc%:SYS&44AE2,40,Ic%,m$TO,,,Kc%,Lc%,Sc%,Mc%:SYS&35,Mc%,4TO,,A%:Kc%=Kc%<<A%:h%!8=(1<<A%)*z%:SYS&35,Mc%,5TO,,A%:Lc%=Lc%<<A%:h%!12=(1<<A%)*z%:SYS&35,Pc%,4TO,,A%:Nc%=16*2*2:h%!0=4
 7732SYS&35,Pc%,5TO,,A%:Oc%=36*2:h%!4=8:SYS&44AE2,60,Ic%,m$,0TO,A%,B%,C%:GCOL8:IFLEN(f$)>1THEN
 7786SYS&44AE2,51,ASC(MID$(f$,1,1)),,((Kc%+2)*z%-Nc%)/(z%*2),((Lc%+2)*z%-Oc%)/(z%*2),0,h%:SYS&44AE2,51,ASC(MID$(f$,2,1)),,((Kc%+2)*z%)/(z%*2),((Lc%+2)*z%-Oc%)/(z%*2),0,h%
 7813ELSE:SYS&44AE2,51,ASC(MID$(f$,1,1)),,((Kc%+2)*z%-Nc%/2)/(z%*2),((Lc%+2)*z%-Oc%)/(z%*2),0,h%
 7831ENDIF
 7831SYS&2E,60,A%,B%,C%:IFSc%=1THEN
 7849SYS&44AE2,61,Ic%,m$,0TO,A%,B%,C%:VDU18,0,63,23,17,3,&C0,0,0,0,0,0,0
 7867IFLEN(f$)>1THEN
 7876SYS&44AE2,51,ASC(MID$(f$,1,1)),,((Kc%+2)*z%-Nc%)/(z%*2),((Lc%+2)*z%-Oc%)/(z%*2),0,h%:SYS&44AE2,51,ASC(MID$(f$,2,1)),,((Kc%+2)*z%)/(z%*2),((Lc%+2)*z%-Oc%)/(z%*2),0,h%
 7903ELSE:SYS&44AE2,51,ASC(MID$(f$,1,1)),,((Kc%+2)*z%-Nc%/2)/(z%*2),((Lc%+2)*z%-Oc%)/(z%*2),0,h%
 7921ENDIF
 7921SYS&2E,61,A%,B%,C%
 7939ENDIF
 7939ENDPROC
 7948DEFPROCwa:v$=FNo("Tune"):B$=FNo("Beat"):C$=FNo("Sound"):D$=FNo("Chord"):Xc%=FALSE:Yc%=FALSE:Zc%=FALSE:_c%=FALSE:ENDPROC
 8047DEFFNo(c$):LOCALs%,A%,`c%,f%,b$,Uc%,c%:!g%=1:g%!4=Da%:SYS&44AEA,0,"<MB"+c$+"Files$Dir>",g%,c$+"*",pa%TO,s%:f%=!s%:`c%=!f%:Uc%=1:IF`c%>0THEN
 8137f%+=4+16*`c%-16+LEN(c$):REPEAT:A%=f%:f%-=16:WHILE?A%>=ASC("0")AND?A%<=ASC("9"):A%+=1:ENDWHILE:IF?A%<32OR?A%=127THEN
 8209c%=(EVAL(FNc(f%+16)))+1:IFc%>Uc%THENUc%=c%
 8227ENDIF
 8236`c%-=1:UNTIL`c%=0
 8263ENDIF
 8263SYS&44AC3,,s%:=c$+STR$(Uc%)
 8299DEFPROCua:LOCALA%,a$,ad%,bd%:ad%=FALSE:bd%=FALSE:SYS&20023,G$,h%,-1,0,0TO,,A%:IFA%<0THENbd%=TRUE
 8335SYS&20023,"MBBeatFiles$Dir",h%,-1,0,0TO,,A%:IFA%<0THENad%=TRUE
 8353IFad%ANDbd%THENENDPROC
 8362IF(NOTad%)AND(NOTbd%)THEN
 8371PROCya("Please insert a disc containing !MBInsts and !MBFiles into drive 0 ",3)
 8389ELSE:IFNOTad%THEN
 8398PROCya("Please insert a disc containing !MBFiles into drive 0 ",1)
 8416ELSE:PROCya("Please insert a disc containing !MBInsts into drive 0 ",2)
 8434ENDIF
 8434ENDIF
 8443ENDPROC
 8452DEFPROCya(M$,F%):REPEAT:!h%=0:$(h%+4)=M$+CHR$0:SYS&400DF,h%,3+2^4,"Message from MusicBox"TO,A%:IFA%<>1THENENDPROC
 8506CASEF%OF
 8515WHEN1:SYS&20008,17,"ADFS::0.$.!MBFiles"TOA%
 8542WHEN2:SYS&8,17,"ADFS::0.$.!MBInsts"TOA%
 8560WHEN3:SYS&20008,17,"ADFS::0.$.!MBFiles"TOA%:IFA%=2THENSYS&8,17,"ADFS::0.$.!MBInsts"TOA%
 8578ENDCASE
 8587UNTILA%=2:SYS&40245,"0",h%:a$="ADFS::":A%=0:WHILEA%<12AND?(h%+A%+22)>32:a$+=CHR$(?(h%+A%+22)):A%+=1:ENDWHILE:a$+=".$":IF(F%AND1)=1THEN
 8677OSCLI("*SET MBTuneFiles$Dir "+a$+".!MBFiles.Tunes"):OSCLI("*SET MBBeatFiles$Dir "+a$+".!MBFiles.Beats"):OSCLI("*SET MBChordFiles$Dir "+a$+".!MBFiles.Chords"):OSCLI("*SET MBSoundFiles$Dir "+a$+".!MBFiles.Sounds")
 8722ENDIF
 8722IF(F%AND2)=2THEN
 8731OSCLI("*SET MBInstruments$Dir "+a$+".!MBInsts.Instrumnts"):OSCLI("*SET MBInstrumentSprites$Dir "+a$+".!MBInsts.Sprites"):OSCLI("*SET MBInstrumentSprites22$Dir "+a$+".!MBInsts.Sprites22")
 8767ENDIF
 8767ENDPROC
 8776DEFPROCna(e$):LOCALcd%,dd%,ed%,f%,fd%:gd%=3:DIMf%(gd%,4):fd%=0:cd%=4096:hd%=5120+2024:DIMdd% hd%:id%=dd%:SYS&44AC1,,pa%,cd%+20TO,i%:ed%=!i%:i%=ed%+20:SYS&8,17,e$TOja%:IFja%<>1THENPROCb("Template file not found.",TRUE):ENDPROC
 9118SYS&400D9,,e$:PROCza:PROCAa:PROCBa:PROCCa:PROCDa:PROCEa:PROCFa:PROCGa:PROCHa:PROCIa:PROCJa:PROCKa:SYS&400DA:jd%=0:PROCLa:ENDPROC
 9298DEFPROCza:PROCf("info"):SYS&400C1,,i%TOkd%:SYS&44AD0,kd%,9,T$+CHR$0:ENDPROC
 9478DEFPROCAa:PROCf("Topo"):SYS&400C1,,i%TOld%:ENDPROC
 9523DEFPROCBa:LOCALf%:PROCf("LdSv"):md%=1:nd%=3:od%=4:pd%=5:qd%=6:f%=88+i%+md%*32:rd%=(!f%+f%!8)/2-1:sd%=(f%!4+f%!12)/2+2:td%=f%!12-f%!4-16:ud%=f%!8-f%!0-8-48:SYS&400C1,,i%TOvd%:ENDPROC
 9766DEFPROCMa:PROCf("List"):DIMwd% 32:SYS&44AC7,32,i%+88,wd%:i%!84=0:SYS&400C1,,i%TOxd%:ENDPROC
 9838DEFPROCJa:PROCf("Copy"):yd%=4:zd%=5:Ad%=6:Bd%=7:Cd%=8:SYS&400C1,,i%TODd%:ENDPROC
 9964DEFPROCIa:PROCf("Ques"):Ed%=2:Fd%=3:Gd%=1:SYS&400C1,,i%TOHd%:ENDPROC
10072DEFPROCGa:PROCf("ConfTune"):Id%=22:Jd%=25:Kd%=28:Ld%=31:Md%=37:Nd%=38:SYS&400C1,,i%TOOd%:PROCf("ConfStart"):Pd%=16:Qd%=17:Rd%=18:Sd%=19:Td%=20:Ud%=21:Vd%=22:Wd%=23:Xd%=24:Yd%=29:SYS&400C1,,i%TO`%:PROCf("ConfGlobal"):Zd%=23:_d%=24:`d%=25
10414ae%=26:be%=28:ce%=30:de%=11:ee%=32:fe%=35:ge%=38:he%=40:ie%=41:je%=42:ke%=43:le%=44:me%=45:ne%=47:oe%=49:pe%=51:qe%=53:re%=55:se%=57:te%=59:ue%=61:ve%=63:we%=65:SYS&400C1,,i%TOm%:xe%=3:ye%=4:ze%=5:Ae%=6:Be%=7:Ce%=8:De%=9
10711Ee%=10:Fe%=11:PROCf("ConfBeat"):Ge%=23:He%=26:Ie%=29:Je%=32:Ke%=36:Le%=37:SYS&400C1,,i%TOMe%:PROCf("ConfLdSv"):Ne%=14:Oe%=15:Pe%=16:Qe%=17:Re%=18:Se%=19:Te%=20:Ue%=22:Ve%=23:SYS&400C1,,i%TOWe%:ENDPROC
10918DEFPROCCa:LOCALXe%,Ye%,Ze%,_e%,`e%,af%,S%,bf%,cf%,X%,Y%,A%,f%:PROCf("SndB"):df%=15:ef%=16:ff%=4:gf%=5:hf%=6:if%=7:jf%=8:kf%=0:lf%=i%!84-2:mf%=lf%+_b%*Zb%:nf%=14:of%=11:pf%=9:qf%=10:rf%=18:sf%=19:tf%=21:uf%=12:vf%=13:wf%=20
11368f%=i%+88+32*pf%:d%(0,0)=f%!0:d%(0,1)=f%!4:d%(0,2)=f%!8:d%(0,3)=f%!12:SYS&44ADD,5+256,i%,pf%,1:f%=i%+88+32*lf%:Xe%=f%!16:af%=f%!8-f%!0:S%=f%!12-f%!4:cf%=f%!8-f%!40:bf%=f%!12-f%!44:Ye%=f%!0-bf%*(_b%-1)
11530Ze%=f%!4-cf%*(Zb%-1):_e%=f%!8:`e%=f%!12:FORY%=0TOZb%-1:FORX%=0TO_b%-1:f%!0=Ye%+X%*bf%:f%!4=`e%-Y%*cf%-S%:f%!8=Ye%+X%*bf%+S%:f%!12=`e%-Y%*cf%:f%!16=Xe%:f%!20=lc%:f%!24=kc%+26*X%:f%!28=1:f%+=32:NEXT,:f%=i%+88+32*kf%:!f%=Ye%-8:f%!4=Ze%-8:f%!8=_e%+8
11719f%!12=`e%+8:i%!84=mf%:SYS&44ADD,5+256,i%,nf%,1:SYS&400C1,,i%TOt%:PROCP(i%,t%):DIMA% 40:i%(0)=A%:PROCQ(A%,i%+88+32*nf%,t%):ENDPROC
11809DEFPROCDa:IFia%THENPROCf("Menu")ELSEPROCf("Menu2")
11962xf%=3:yf%=4:zf%=5:Af%=6:SYS&400C1,,i%TOBf%:ENDPROC
12016DEFPROCEa:LOCALe%,A%,B%,f%,Cf%,Df%,bf%,cf%,Ef%:PROCf("Inst"):i%!64=U%:Ff%=1:Gf%=2:Hf%=0:If%=3:Jf%=4:Ef%=5:Kf%=If%+2*(Gc%-1):Lf%=Jf%+2*(Gc%-1):i%!84=Lf%+1:Cf%=i%+88+If%*32:Df%=i%+88+Ef%*32:bf%=!Df%-!Cf%:cf%=Df%!4-Cf%!4:Df%=i%+88+Jf%*32
12376Cf%=i%+88+If%*32:f%=Cf%:DIMA% (26+21)*Gc%:FORe%=0TOGc%-1:!f%=!Cf%+bf%*(e%MOD3):f%!4=Cf%!4+cf%*(e%DIV3):f%!8=Cf%!8+bf%*(e%MOD3):f%!12=Cf%!12+cf%*(e%DIV3):f%!16=Cf%!16:f%!20=lc%:f%!24=A%:f%!28=1:$A%="S"+a$(e%)+",p"+a$(e%)+CHR$0:A%+=26:f%+=32
12511!f%=!Df%+bf%*(e%MOD3):f%!4=Df%!4+cf%*(e%DIV3):f%!8=Df%!8+bf%*(e%MOD3):f%!12=Df%!12+cf%*(e%DIV3):f%!16=Df%!16:f%!20=A%:f%!24=0:f%!28=21:$A%=b$(e%)+CHR$0:A%+=21:f%+=32:NEXT:f%=i%+88+Ff%*32:A%=!Cf%+bf%*3:!f%=!f%-f%!8+A%-8:f%!8=A%-8
12664A%=Cf%!4+cf%*((Gc%-3)DIV3)-4:B%=f%!12-f%!4:f%!12=A%-4:f%!4=A%-B%-4:Cf%=f%:f%=i%+88+Gf%*32:A%=!Cf%:!f%=!f%-f%!8+A%-8:f%!8=A%-8:f%!12=Cf%!12:f%!4=Cf%!4:f%=Cf%:Cf%=i%+88+Hf%*32:Cf%!8=f%!8+8:Cf%!4=f%!4-8:i%!8=i%!0+f%!8+12
12844i%!4=i%!12+f%!4-12:SYS&400C1,,i%TOMf%:ENDPROC
12889DEFPROCFa:LOCALf%,Nf%,Of%,e%,A%:PROCf("Comp"):Of%=0:Pf%=1:Qf%=2:Rf%=8:Sf%=9:Tf%=12:Uf%=13:Vf%=14:Wf%=15:Xf%=16:Yf%=17:Zf%=18:_f%=38:`f%=23:ag%=24:bg%=25:cg%=26:dg%=27:eg%=28:fg%=29:Nf%=30:gg%=31:hg%=32:ig%=43:jg%=35:kg%=36:lg%=37:mg%=39
13411ng%=33:og%=40:pg%=41:qg%=42:f%=i%+88+32*ag%:d%(1,0)=f%!0:d%(1,1)=f%!4:d%(1,2)=f%!8:d%(1,3)=f%!12:SYS&44ADD,5+256,i%,ag%,1:SYS&44ADD,5+256,i%,Of%,1:f%=i%+88+Of%*32:rg%=f%!0:sg%=f%!4:tg%=f%!8:ug%=f%!12:A%=Yf%-Of%+1
13582SYS&44ADD,5+256,i%,Of%,1:SYS&44ADD,6+256,i%,ng%,0,2^2:FORe%=Of%TOWf%:SYS&44ADD,6+256,i%,e%,0,2^2:NEXT:DIMvg% 4+32*A%:SYS&44AC7,32*A%,i%+88+32*Of%,vg%+4:!vg%=A%:FORe%=Of%TOYf%:SYS&44ADD,5+256,i%,e%,1:NEXT:SYS&44ADD,5+256,i%,Nf%,1:SYS&400C1,,i%TOo%
13699PROCP(i%,o%):DIMA% 40:PROCQ(A%,i%+88+32*Nf%,o%):i%(1)=A%:Qf%-=Of%:Rf%-=Of%:Sf%-=Of%:Tf%-=Of%:Vf%-=Of%:Wf%-=Of%:Xf%-=Of%:Yf%-=Of%:Of%=0:FORe%=Qf%TORf%:!(vg%+4+24+32*e%)=kc%+26*(e%-Qf%):NEXT:ENDPROC
13861DEFPROCKa:LOCALf%,wg%,xg%,e%,A%:PROCf("RtmB"):xg%=0:yg%=1:zg%=2:Ag%=8:Bg%=9:Cg%=12:Dg%=13:Eg%=14:Fg%=15:Gg%=16:Hg%=17:Ig%=18:Jg%=42:Kg%=20:Lg%=21:Mg%=22:Ng%=24:Og%=25:Pg%=27:wg%=29:Qg%=31:Rg%=40:Sg%=34:Tg%=35:Ug%=36:Vg%=37:Wg%=38:Xg%=39
14419Yg%=41:Zg%=28:_g%=30:f%=i%+88+32*Ng%:d%(3,0)=f%!0:d%(3,1)=f%!4:d%(3,2)=f%!8:d%(3,3)=f%!12:SYS&44ADD,5+256,i%,Ng%,1:SYS&44ADD,5+256,i%,xg%,1:f%=i%+88+xg%*32:`g%=f%!0:ah%=f%!4:bh%=f%!8-1:ch%=f%!12-1:SYS&44ADA,g%,88:g%!0=`g%:g%!4=ah%
14617g%!8=bh%-2:g%!12=ch%-2:g%!20=Qb%:g%!24=-1:g%!28=&80000062:g%!32=&000702FF:g%!40=-Pb%:g%!44=-90000:g%!48=(bh%-`g%)-Pb%:g%!52=Qb%:g%!60=3<<12:g%!64=r%:SYS&400C1,,g%TOdh%:SYS&44ADD,5+256,i%,xg%,1:A%=Gg%-xg%+1
14770SYS&44ADD,6+256,i%,Ig%,0,2^2:FORe%=xg%TOGg%:SYS&44ADD,6+256,i%,e%,0,2^2:NEXT:DIMeh% 4+32*A%:SYS&44AC7,32*A%,i%+88+32*xg%,eh%+4:!eh%=A%:FORe%=xg%TOGg%:SYS&44ADD,5+256,i%,e%,1:NEXT:SYS&44ADD,5+256,i%,wg%,1:SYS&400C1,,i%TOk%:PROCP(i%,k%):DIMA% 40
14896PROCQ(A%,i%+88+32*wg%,k%):i%(3)=A%:zg%-=xg%:Ag%-=xg%:Bg%-=xg%:Cg%-=xg%:Eg%-=xg%:Fg%-=xg%:Gg%-=xg%:xg%=0:FORe%=zg%TOAg%:!(eh%+4+24+32*e%)=kc%+26*(e%-zg%):NEXT:ENDPROC
15022DEFPROCHa:LOCALf%,fh%,gh%,e%,A%:PROCf("CrdB"):hh%=30:ih%=2:jh%=8:kh%=7:IFkh%<>7THENERROR0,"Reassemble MCode"
15220lh%=9:mh%=lh%+kh%*1:nh%=lh%+kh%*2:oh%=30:ph%=32:qh%=33:rh%=34:sh%=35:th%=36:fh%=41:uh%=44:vh%=52:wh%=39:xh%=37:yh%=47:zh%=46:Ah%=40:Bh%=49:Ch%=50:Dh%=51:Eh%=42:Fh%=43:f%=i%+88+32*zh%:d%(2,0)=f%!0:d%(2,1)=f%!4:d%(2,2)=f%!8
15463d%(2,3)=f%!12:SYS&44ADD,5+256,i%,zh%,1:Gh%=mh%+kh%-ih%:DIMHh% 4+32*Gh%:SYS&44AC7,32*Gh%,i%+88+32*ih%,Hh%+4:!Hh%=Gh%:FORe%=ih%TOmh%-1:SYS&44ADD,5+256,i%,e%,1:NEXT:FORe%=mh%TOmh%+kh%-1:SYS&44ADD,6+256,i%,e%,3<<12,&FFFFFFFF:NEXT
15580SYS&44ADD,5+256,i%,fh%,1:SYS&400C1,,i%TOl%:PROCP(i%,l%):DIMA% 40:PROCQ(A%,i%+88+32*fh%,l%):i%(2)=A%:jh%-=ih%:lh%-=ih%:Ih%=Hh%+4+(mh%-ih%)*32:ih%-=ih%:FORe%=ih%TOjh%:!(Hh%+4+24+32*e%)=kc%+26*(e%-ih%):NEXT:FORe%=0TOkh%-1:A%=h%(e%,0)
15715SYS&44ADD,1+512,l%,e%+lh%,"s"+a$(A%-1)+",p"+a$(A%-1),,Hh%:NEXT:DIMJh% kh%*24:SYS&44ADA,Jh%,kh%*24:ENDPROC
15760DEFPROCf(a$):LOCALN%:$ed%=a$+CHR$0:SYS&400DB,,i%,id%,dd%+hd%,-1,ed%,0TO,,id%,,,,N%:IFN%=0THENPROCb("Template not found for "+a$+" window",TRUE)
15904i%!64=U%:ENDPROC
15922DEFPROCQ(A%,B%,n%):!A%=n%:A%!4=B%!0:A%!8=B%!4+eb%:A%!12=B%!8:A%!16=B%!12:ENDPROC
15994DEFPROCP(i%,n%):f%(fd%,0)=n%:f%(fd%,1)=i%!8-i%!0:f%(fd%,2)=i%!12-i%!4:f%(fd%,3)=i%!16:f%(fd%,4)=i%!20:fd%+=1:ENDPROC
16075DEFPROCLa:LOCALKh%,v%,Lh%,Mh%:v%=1024:DIMMh% v%:FORKh%=8TO10STEP2:P%=Mh%:L%=Mh%+v%:[OPT Kh%:.Nh%:EQUD Lh%-Nh%:EQUD vd%:EQUD Oh%-Ph%+8:EQUD0:.Ph%:EQUD0:EQUD%0111011100010010:EQUD rd%:EQUD sd%:EQUD0:EQUD0:EQUD Qh%:EQUD-1:.Oh%:EQUD k%
16300EQUD Lh%-Rh%:.Rh%:EQUD0:EQUD dh%:EQUD%0111011110011010:EQUD(`g%+bh%)/2:EQUD(ch%+ah%)/2+1:EQUD0:EQUD0:EQUD0:EQUD-1:EQUD-1:.Lh%:.Qh%:EQUD0:EQUD1:EQUD0:EQUD6:EQUD1:EQUD1-1:EQUD-1:EQUD-1:EQUD0:.Sh%:EQUD12
16543EQUD ud%:EQUD52:EQUD1:EQUD1:EQUD0:EQUD0:EQUD0:.Th%:EQUD0:EQUD-td%:EQUD ud%:EQUD0:EQUD ud%:EQUD1:EQUD&10000062:EQUB1:EQUB10:EQUB0:EQUB0:EQUS"Files"+CHR$0:ALIGN: ]:NEXT:ENDPROC
16759DEFPROCpa:LOCALgc%,Uh%,ja%,b$,A%:SYS&411C3TOUh%:Vh%=OPENIN("<MusicBoxD$Dir>.MCodeVars"):PROCa(Wh%):PROCa(Xh%):PROCa(Yh%):PROCa(Zh%):PROCa(_h%):PROCa(`h%):PROCa(ai%):PROCa(bi%):PROCa(ci%):PROCa(di%):PROCa(ei%):PROCa(fi%):PROCa(gi%):PROCa(hi%):PROCa(ii%):PROCa(ji%):PROCa(ki%):PROCa(li%):PROCa(mi%)
17056PROCa(ni%):PROCa(oi%):PROCa(pi%):PROCa(qi%):PROCa(ri%):PROCa(si%):PROCa(ti%):PROCa(ui%):PROCa(vi%):PROCa(wi%):PROCa(xi%):PROCa(yi%):PROCa(zi%):PROCa(Ai%):PROCa(Bi%):PROCa(Ci%):PROCa(Di%):PROCa(Ei%):PROCa(Fi%):PROCa(Gi%):PROCa(Hi%):PROCa(Ii%):PROCa(Ji%):PROCa(Ki%):PROCa(Li%):PROCa(Mi%):PROCa(Ni%):PROCa(Oi%)
17308PROCa(Pi%):PROCa(Qi%):PROCa(Ri%):PROCa(Si%):PROCa(Ti%):PROCa(Ui%):PROCa(Vi%):PROCa(Wi%):PROCa(Xi%):PROCa(Yi%):PROCa(Zi%):PROCa(_i%):PROCa(`i%):PROCa(aj%):PROCa(bj%):PROCa(cj%):PROCa(dj%):PROCa(ej%):PROCa(fj%):PROCa(gj%):PROCa(hj%):PROCa(ij%):PROCa(jj%):PROCa(kj%):PROCa(lj%):PROCa(mj%):PROCa(nj%):PROCa(oj%)
17560PROCa(pj%):PROCa(qj%):PROCa(rj%):PROCa(sj%):PROCa(tj%):PROCa(uj%):PROCa(vj%):PROCa(wj%):PROCa(xj%):PROCa(yj%):PROCa(zj%):PROCa(Aj%):PROCa(Bj%):PROCa(Cj%):PROCa(Dj%):PROCa(Ej%):PROCa(Fj%):PROCa(Gj%):PROCa(Hj%):PROCa(Ij%):PROCa(Jj%):PROCa(Kj%):PROCa(Lj%):PROCa(Mj%):PROCa(Nj%):PROCa(Oj%):PROCa(Pj%)
17803PROCa(Qj%):PROCa(Rj%):PROCa(Sj%):PROCa(Tj%):PROCa(Uj%):PROCa(Vj%):PROCa(Wj%):PROCa(Xj%):PROCa(Yj%):PROCa(Zj%):PROCa(_j%):PROCa(`j%):PROCa(ak%):PROCa(bk%):PROCa(ck%):PROCa(dk%):CLOSE#Vh%:Wh%!32=kd%:!li%=jc%:!mi%=W%*12:!Ci%=vg%:Gi%!0=rg%:Gi%!4=sg%:Gi%!8=tg%:Gi%!12=ug%
18028Ii%!0=rg%:Ii%!4=sg%-4:Ii%!8=tg%:Ii%!12=ug%+4:!Ji%=nc%:!Ki%=g%:fi%!0=rg%:fi%!4=sg%:fi%!8=tg%:fi%!12=ug%:!Ri%=Jh%-24:!Si%=Ih%-32:!Vi%=o%:!Wi%=l%:!Xi%=_%:!Yi%=Hc%:!Zi%=h%:!`i%=k%:!aj%=dh%:!cj%=U%:!fj%=oc%:!ij%=Cc%
18226!yj%=Ob%:!zj%=V%:!Aj%=Lb%:!Oj%=V%:!(Yh%+4*10)=_j%:!(Yh%+4*52)=`j%:!(Yh%+4*64)=ak%:!(Yh%+4*94)=bk%:Qh%!4=wj%:ENDPROC
18334DEFPROCa(RETURNek%):INPUT#Vh%,ek%:ek%+=Uh%:ENDPROC
	���ka
	�
*TUNING 0
	��ș&40187,0�ya%:za%=�:Aa%=�:Ba%=�:Ca%=�:Da%=&BC7:Ea%=4:Fa%=3:Ga%=2:Ha%=1:sa%=0:w%=-1:Ia%=�:qa%=�:Ja%=0:Ka%=�:La%=�:Ma%=&81001:Na%=&81000:Oa%=Ma%:va%=�:Pa%=�:Qa%=�:Ra%=�:Sa%=�:Ta%=�:Ua%=0:Va%=256:ș&8,17,"<MusicBoxD$Dir>.Config"�,,,,v%
���e%(4,Va% ,3):�j%(3):�g%(3):g%()=-1:ș&44AC1,,pa%,2048�,Wa%:Xa%=�:Ya%=�:Za%=�:_a%=0:`a%=-1:ab%=�:bb%=�:�i%(3):cb%=67*2:db%=66*2:eb%=56:fb%=30:gb%=32*2:hb%=32*2/4:Q%=32*2:ib%=2*4:jb%=1:ș&411C0,(!Wa%+2048-v%):ș&40880,"<MusicBoxD$Dir>.4"
��kb%=Q%*ib%:lb%=kb%*jb%:mb%=ib%*jb%:nb%=Q%*ib%/2:ob%=2*mb%/ib%:pb%=80:qb%=125:rb%=130:sb%=0:tb%=0:ub%=-1:!ua%=1:ș&7,14,ua%:�?ua%=&95�ș&44ADC,(!Wa%+2048-v%+4),!Wa%�v%
+�vb%=24*20:W%=100:K%=40:wb%=18:d$="s?":z$="s?":xb%=Q%/2:yb%=�:zb%=�:Ab%=�:Bb%=1:Cb%=2:Db%=2:Eb%=-1:�?ua%=&95�ș&1E,11,!Wa%,v%
��Fb%=�:Gb%=1:Hb%=1:Ib%=1:Jb%=�:Kb%=�:Lb%=10:Mb%=40:M%=24:Nb%=Mb%*M%:O%=4:Ob%=4*40:Pb%=52:Qb%=52:Rb%=52:Sb%=100:Tb%=40:Ub%=�:�V% Sb%*M%*8:ș&44ADA,V%,Sb%*M%*8:ș&44AC3,,Wa%:Vb%=0:Wb%=2:Xb%=&FF:Yb%=&17F:Zb%=11:_b%=7:X$="s?"

��`b%=18*2:ac%=18:bc%=pa%:cc%=-1:dc%=1:ec%=-1:�a%(Zb%-1):�k%(20):�h%(7,0):�fc% gc%:h%()=2:�d%(3,3):�hc% 16:�ic% 64*4:�jc% vb%*12+12*2:ș&44ADA,jc%,vb%*12+12*2:jc%+=12:�kc% 26*7+1:lc%=kc%+26*7:?lc%=0:�?ua%=&95�
�ș&411C2,fc%:�sa
��
��mc% 256:�
�:��la:ș&44AE2,256,pa%,0�,nc%:ș&44AE2,256,pa%,0�,oc%:�
����ha:�A%:pc%=�:gc%=(2^9)*(5*3+4):qc%=0:rc%=-1:sc%=-1:tc%=�:uc%=�:vc%=�:o$="Music Box Demo":S$="MusicBoxD":y$=o$:k$="<"+S$+"$Dir>":n$="<MBInstruments$Dir>":G$="MBInstruments$Dir":H$="<MBInstrumentSprites$Dir>"
��I$="<MBInstrumentSprites22$Dir>":J$="<ROMInstrumentSprites$Dir>":K$="<ROMInstrumentSprites22$Dir>":T$="1.25D (26 Nov 1994)":wc%=-1:xc%=-1:yc%=0:ș&400C0,200,&4B534154,o$�,ca%:�A% 25:$A%="S!MusicBoxD,!MusicBoxE"+�0:A%?25=0
k!h%=-1:h%!4=0:h%!8=0:h%!12=68:h%!16=68:h%!20=&311B+2^21:h%!24=A%+25:h%!28=A%:h%!32=1:ș&400C2,,h%�zc%:�
Q���sa:�e%,Ac%,A,Bc%:Ac%=30:�Cc% (Q%*M%*2+1)*8*(jb%+1):�Bc%=0�jb%:�e%=0�kb%*8�8:A=e%*360/(kb%*8):A=�(�(�(A))*Ac%+90):!(Cc%+e%+kb%*8*Bc%)=(�(A)*rb%)*2^10:!(Cc%+e%+kb%*8*Bc%+4)=(�(A)*rb%)*2^10:�:�:�
�e��ma:�A%,G%,Dc%,Ec%,Fc%,B%,b$,e%,A$:�b$(ea%-1):�c%(ea%-1):�a$(ea%-1):Fc%=�:�j$="22"�r$=""�r$="22"
&�g(k$+".Defaults"+j$)�A$=j$�A$=r$

lș&411C0,,pa%,k$+".Defaults"+A$�,Dc%:ș&411C0,,pa%,k$+".Defaults"+A$�,r%:�g(k$+".Tools"+j$)�A$=j$�A$=r$
.�ș&411C1,,r%,k$+".Tools"+A$:ș&44AE2,256,pa%,0�,G%:Gc%=0:Ec%=0:ș&20023,"MBROM$Instruments",h%,256,0,0�,,A%:h%?A%=0:h%?255=0:A$=�c(h%):�A%>0�
�Pe%=1:ȕe%<A%+1:b$="":ȕ�(�A$,e%,1))>32:b$+=�A$,e%,1):e%+=1:�:�b$<>""��ta(b$)
�He%+=1:�:�ua:ș&20023,G$,h%,-1,0,0�,,A%:�A%<0��va(n$,ea%-2,"FNV(F$)")
��wa:b$(Gc%)="Rest":c%(Gc%)=&80000000:a$(Gc%)="Rest":Gc%+=1:A%=�e(r%,"Rest",r%,"none","pnone","snone"):A%=�e(r%,"?",r%,"unknown","punknown","sunknown"):ș&64AE2,260,Dc%,"sZ",r%,"sprintinst"+a$,0�;P%
i��B(r%,"sprintinst",r%,"sprint",1):ș&64AE2,25,r%,"sprint":�e%=1�6:A%=�e(r%,"t"+�(e%),r%,"tool"+�(e%),"ptool"+�(e%),"-"):ș&64AE2,25,r%,"tool"+�(e%):ș&64AE2,25,r%,"ptool"+�(e%):�
��A%=�e(r%,"speaker",r%,"speak","pspeak","-"):A%=�e(r%,"load",r%,"_load","_load","-"):A%=�e(r%,"save",r%,"_save","_save","-"):A%=�e(r%,"clear",r%,"_clear","_clear","-")
��A%=�e(r%,"copy",r%,"_copy","_copy","-"):A%=�e(r%,"yes",r%,"_yes","_yes","-"):A%=�e(r%,"no",r%,"_no","_no","-"):A%=�e(r%,"Print",r%,"_print","_print","-"):A%=�e(r%,"Slow",r%,"_Slow","_Slow","-")
�A%=�e(r%,"Fast",r%,"_Fast","_Fast","-"):A%=�e(r%,"Ok",r%,"_Ok","_Ok","-"):ș&64AE2,25,r%,"_ok":ș&64AE2,25,r%,"_save":ș&64AE2,25,r%,"_load":ș&64AE2,25,r%,"_slow":ș&64AE2,25,r%,"_fast":ș&64AE2,25,r%,"_yes"
J�ș&64AE2,25,r%,"_no":ș&64AE2,25,r%,"_print":ș&64AE2,25,r%,"_copy":ș&64AE2,25,r%,"_clear":ș&64AE2,25,r%,"speak":ș&64AE2,25,r%,"pspeak":ș&64AE2,25,r%,"none":ș&64AE2,25,r%,"pnone":ș&64AE2,25,r%,"snone"
��ș&64AE2,25,r%,"unknown":ș&64AE2,25,r%,"punknown":ș&64AE2,25,r%,"sunknown":ș&44AC3,,G%:ș&44AC3,,Dc%:�g(k$+".Sprites"+j$)�A$=j$�A$=r$
�e笤g(k$+".Sprites"+A$)��b("Sprites file missign from inside MusicBox. Sorry I can't continue.",�)
�Dș&411C1,,r%,k$+".Sprites"+A$�;A%:�g(k$+".Menu"+j$)�A$=j$�A$=r$
0�(A%�1)=0�ia%�ș&411C1,,r%,k$+".Menu"+A$�;A%
7�(A%�1)��b("Not enough memory to load MusicBox.",�)
�A%=!r%:�U% A%!0:ș&44AC7,A%!0,A%,U%:ș&44AC3,,r%:r%=-1:ș&44AE3,1+2^11,U%,"S?",wb%,wb%,pa%�,,_%:ș&44AE3,1+2^11,U%,"S?",wb%,wb%,pa%�,,Hc%:ș&40880,"<MusicBoxD$Dir>.11":�
sݤV(a$):�P%,A%,B%:�Gc%<ea%�
T"b$(Gc%)=a$:c%(Gc%)=0:�j$="22"�
o?ș&64AE2,258,G%,H$+"."+a$�;P%:ș&64AE2,258,G%,I$+"."+a$�;P%
�A�:ș&64AE2,258,G%,I$+"."+a$�;P%:ș&64AE2,258,G%,H$+"."+a$�;P%
��
�3A%=�e(r%,a$,G%,"Normal","Playing","Small"):�A%�
�a$(Gc%)=�a$,11)
��:a$(Gc%)="?"
��
�Rș&64AE2,25,G%,"Normal":ș&64AE2,25,G%,"Playing":ș&64AE2,25,G%,"Small":Gc%+=1
,�
,=0
}���B(Ic%,m$,Jc%,f$,z%):�A%,B%,C%,Kc%,Lc%,Mc%,Nc%,Oc%,Pc%,Qc%,Rc%,Sc%,Tc%:ș&44AE2,40,Ic%,m$�,,,Kc%,Lc%,Sc%,Mc%:ș&44AE2,40,Jc%,f$�,,,Nc%,Oc%,Tc%,Pc%:ș&35,Mc%,3�,,Qc%:ș&35,Mc%,4�,,A%:Kc%=Kc%<<A%:h%!8=(1<<A%)*z%:ș&35,Mc%,5�,,A%
řLc%=Lc%<<A%:h%!12=(1<<A%)*z%:ș&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 colours",�)
1��:ș&44AE2,60,Ic%,m$,0�,A%,B%,C%:ș&44AE2,52,Jc%,f$,((Kc%+2)*z%-Nc%)/(z%*2),((Lc%+2)*z%-Oc%)/(z%*2),8,h%,0:ș&2E,60,A%,B%,C%:�Sc%=1�
UGș&44AE2,61,Ic%,m$,0�,A%,B%,C%:�18,0,128+63,23,17,3,&C0,0,0,0,0,0,0
g_ș&44AE2,50,Jc%,f$,((Kc%+2)*z%-Nc%)/(z%*2),((Lc%+2)*z%-Oc%)/(z%*2),8,h%,0:ș&2E,61,A%,B%,C%
��
��
��
�J��ta(a$):�e%,f%,l$,Y$:l$=�a$,10):�e%=1�31:ș&60183,0,e%�f%:�c(f%)=a$�
Z*b$(Gc%)=a$:c%(Gc%)=&80000000:�j$="22"�
u?ș&64AE2,258,G%,J$+"."+l$�;P%:ș&64AE2,258,G%,K$+"."+l$�;P%
�A�:ș&64AE2,258,G%,K$+"."+l$�;P%:ș&64AE2,258,G%,J$+"."+l$�;P%
��
�-�e(r%,l$,G%,"Normal","Playing","Small")�
�a$(Gc%)=l$
��:a$(Gc%)="?"
��
�Yș&64AE2,25,G%,"Normal":ș&64AE2,25,G%,"Playing":ș&64AE2,25,G%,"Small":Gc%+=1:Ec%+=1
�
�:�
 k��va(A$,Uc%,L$):�Vc%,R%,Y%,F$,P%,Wc%,A%:P%=0:�:ș&2000C,10,A$,h%,1,P%,64,"*"�A%,,,R%,P%;Wc%:�(Wc%�1)=0�
h
�R%>0�
q:F$=�c(h%+20):�((!h%)�&FFF00000)=&FFF00000�(h%!16�1)=1�
�Vc%=!h%�&FFF00
��:Vc%=0
��
��Vc%=&FFA00�
�
�Ec%>Uc%�
�v�b("Music Box can only handle a maximum of "+�(ea%)+" instruments. So I shall only use the first "+�(ea%)+".",�):�
��:Vc%=�(L$):Ec%+=1
��
��
�(F$=A$+"."+F$:�h%!16=2��va(F$,Uc%,L$)
�

�:�b(�c(A%+4),�):R%=0
.�
.�R%=0�P%=-1�Ec%>Uc%+1:�
@:ݤe(Ic%,a$,G%,s$,l$,p$):�A%:ș&64AE2,261,G%,s$�A%:�A%�
�la$=�a$,11):ș&44AE2,260,Dc%,"Z",Ic%,a$,0�;A%:ș&44AE2,260,Dc%,"pZ",Ic%,"p"+a$,0�;P%:A%=(P%�A%):�p$<>"-"�
�=ș&44AE2,260,Dc%,"sZ",Ic%,"s"+a$,0�;P%:A%=(((P%�A%)�1)=0)
��
��A%�
�1�B(Ic%,a$,G%,s$,1):ș&64AE2,261,G%,l$�B%:�B%�
��B(Ic%,"p"+a$,G%,l$,1)
�:�B(Ic%,"p"+a$,G%,s$,1)
�

�p$<>"-"�
!ș&64AE2,261,G%,p$�B%:�B%�
3�B(Ic%,"s"+a$,G%,p$,1)
E�:�B(Ic%,"s"+a$,G%,s$,2)
W�
W�
`C�:ș&64AE2,25,G%,a$:ș&64AE2,25,G%,"p"+a$:ș&64AE2,25,G%,"s"+a$
��
��:A%=�:�Fc%�
���b("Some instruments (eg "+a$+") do not have a sprite file containing a sprite called '"+s$+"'. I will create a sprite for these instruments.",�):Fc%=�
��
�la$=�a$,11):ș&44AE2,260,Dc%,"Z",Ic%,a$,0�;A%:ș&44AE2,260,Dc%,"pZ",Ic%,"p"+a$,0�;P%:A%=(P%�A%):�p$<>"-"�
�=ș&44AE2,260,Dc%,"sZ",Ic%,"s"+a$,0�;P%:A%=(((P%�A%)�1)=0)
�
�A%�
P�xa(Ic%,a$,G%,a$,1):�xa(Ic%,"p"+a$,G%,a$,1):�p$<>"-"��xa(Ic%,"s"+a$,G%,a$,2)
/C�:ș&64AE2,25,G%,a$:ș&64AE2,25,G%,"p"+a$:ș&64AE2,25,G%,"s"+a$
\�
\�
e=A%
����xa(Ic%,m$,Jc%,f$,z%):�A%,B%,C%,Kc%,Lc%,Mc%,Nc%,Oc%,Pc%,Qc%,Rc%,Sc%,Tc%:ș&44AE2,40,Ic%,m$�,,,Kc%,Lc%,Sc%,Mc%:ș&35,Mc%,4�,,A%:Kc%=Kc%<<A%:h%!8=(1<<A%)*z%:ș&35,Mc%,5�,,A%:Lc%=Lc%<<A%:h%!12=(1<<A%)*z%:ș&35,Pc%,4�,,A%:Nc%=16*2*2:h%!0=4
4Pș&35,Pc%,5�,,A%:Oc%=36*2:h%!4=8:ș&44AE2,60,Ic%,m$,0�,A%,B%,C%:�8:�(f$)>1�
j�ș&44AE2,51,�(�f$,1,1)),,((Kc%+2)*z%-Nc%)/(z%*2),((Lc%+2)*z%-Oc%)/(z%*2),0,h%:ș&44AE2,51,�(�f$,2,1)),,((Kc%+2)*z%)/(z%*2),((Lc%+2)*z%-Oc%)/(z%*2),0,h%
�U�:ș&44AE2,51,�(�f$,1,1)),,((Kc%+2)*z%-Nc%/2)/(z%*2),((Lc%+2)*z%-Oc%)/(z%*2),0,h%
��
�ș&2E,60,A%,B%,C%:�Sc%=1�
�Cș&44AE2,61,Ic%,m$,0�,A%,B%,C%:�18,0,63,23,17,3,&C0,0,0,0,0,0,0
�
�(f$)>1�
ěș&44AE2,51,�(�f$,1,1)),,((Kc%+2)*z%-Nc%)/(z%*2),((Lc%+2)*z%-Oc%)/(z%*2),0,h%:ș&44AE2,51,�(�f$,2,1)),,((Kc%+2)*z%)/(z%*2),((Lc%+2)*z%-Oc%)/(z%*2),0,h%
�U�:ș&44AE2,51,�(�f$,1,1)),,((Kc%+2)*z%-Nc%/2)/(z%*2),((Lc%+2)*z%-Oc%)/(z%*2),0,h%
��
�ș&2E,61,A%,B%,C%
�
�
\��wa:v$=�o("Tune"):B$=�o("Beat"):C$=�o("Sound"):D$=�o("Chord"):Xc%=�:Yc%=�:Zc%=�:_c%=�:�
o�ݤo(c$):�s%,A%,`c%,f%,b$,Uc%,c%:!g%=1:g%!4=Da%:ș&44AEA,0,"<MB"+c$+"Files$Dir>",g%,c$+"*",pa%�,s%:f%=!s%:`c%=!f%:Uc%=1:�`c%>0�
�[f%+=4+16*`c%-16+�(c$):�:A%=f%:f%-=16:ȕ?A%>=�("0")�?A%<=�("9"):A%+=1:�:�?A%<32�?A%=127�
 &c%=(�(�c(f%+16)))+1:�c%>Uc%�Uc%=c%
 #�
 ,`c%-=1:�`c%=0
 G�
 Gș&44AC3,,s%:=c$+�(Uc%)
 kJ��ua:�A%,a$,ad%,bd%:ad%=�:bd%=�:ș&20023,G$,h%,-1,0,0�,,A%:�A%<0�bd%=�
 �9ș&20023,"MBBeatFiles$Dir",h%,-1,0,0�,,A%:�A%<0�ad%=�
 ��ad%�bd%��
 ��(�ad%)�(�bd%)�
 �P�ya("Please insert a disc containing !MBInsts and !MBFiles into drive 0 ",3)
 ��:�ad%�
 �C�ya("Please insert a disc containing !MBFiles into drive 0 ",1)
 �E�:�ya("Please insert a disc containing !MBInsts into drive 0 ",2)
 ��
 ��
 ��
!\��ya(M$,F%):�:!h%=0:$(h%+4)=M$+�0:ș&400DF,h%,3+2^4,"Message from MusicBox"�,A%:�A%<>1��
!:	ȎF%�
!C*�1:ș&20008,17,"ADFS::0.$.!MBFiles"�A%
!^&�2:ș&8,17,"ADFS::0.$.!MBInsts"�A%
!pP�3:ș&20008,17,"ADFS::0.$.!MBFiles"�A%:�A%=2�ș&8,17,"ADFS::0.$.!MBInsts"�A%
!��
!�p�A%=2:ș&40245,"0",h%:a$="ADFS::":A%=0:ȕA%<12�?(h%+A%+22)>32:a$+=�(?(h%+A%+22)):A%+=1:�:a$+=".$":�(F%�1)=1�
!��("*SET MBTuneFiles$Dir "+a$+".!MBFiles.Tunes"):�("*SET MBBeatFiles$Dir "+a$+".!MBFiles.Beats"):�("*SET MBChordFiles$Dir "+a$+".!MBFiles.Chords"):�("*SET MBSoundFiles$Dir "+a$+".!MBFiles.Sounds")
"�
"�(F%�2)=2�
"��("*SET MBInstruments$Dir "+a$+".!MBInsts.Instrumnts"):�("*SET MBInstrumentSprites$Dir "+a$+".!MBInsts.Sprites"):�("*SET MBInstrumentSprites22$Dir "+a$+".!MBInsts.Sprites22")
"?�
"?�
"H���na(e$):�cd%,dd%,ed%,f%,fd%:gd%=3:�f%(gd%,4):fd%=0:cd%=4096:hd%=5120+2024:�dd% hd%:id%=dd%:ș&44AC1,,pa%,cd%+20�,i%:ed%=!i%:i%=ed%+20:ș&8,17,e$�ja%:�ja%<>1��b("Template file not found.",�):�
#�Uș&400D9,,e$:�za:�Aa:�Ba:�Ca:�Da:�Ea:�Fa:�Ga:�Ha:�Ia:�Ja:�Ka:ș&400DA:jd%=0:�La:�
$R;��za:�f("info"):ș&400C1,,i%�kd%:ș&44AD0,kd%,9,T$+�0:�
%&��Aa:�f("Topo"):ș&400C1,,i%�ld%:�
%3���Ba:�f%:�f("LdSv"):md%=1:nd%=3:od%=4:pd%=5:qd%=6:f%=88+i%+md%*32:rd%=(!f%+f%!8)/2-1:sd%=(f%!4+f%!12)/2+2:td%=f%!12-f%!4-16:ud%=f%!8-f%!0-8-48:ș&400C1,,i%�vd%:�
&&L��Ma:�f("List"):�wd% 32:ș&44AC7,32,i%+88,wd%:i%!84=0:ș&400C1,,i%�xd%:�
&nD��Ja:�f("Copy"):yd%=4:zd%=5:Ad%=6:Bd%=7:Cd%=8:ș&400C1,,i%�Dd%:�
&�8��Ia:�f("Ques"):Ed%=2:Fd%=3:Gd%=1:ș&400C1,,i%�Hd%:�
'X���Ga:�f("ConfTune"):Id%=22:Jd%=25:Kd%=28:Ld%=31:Md%=37:Nd%=38:ș&400C1,,i%�Od%:�f("ConfStart"):Pd%=16:Qd%=17:Rd%=18:Sd%=19:Td%=20:Ud%=21:Vd%=22:Wd%=23:Xd%=24:Yd%=29:ș&400C1,,i%�`%:�f("ConfGlobal"):Zd%=23:_d%=24:`d%=25
(��ae%=26:be%=28:ce%=30:de%=11:ee%=32:fe%=35:ge%=38:he%=40:ie%=41:je%=42:ke%=43:le%=44:me%=45:ne%=47:oe%=49:pe%=51:qe%=53:re%=55:se%=57:te%=59:ue%=61:ve%=63:we%=65:ș&400C1,,i%�m%:xe%=3:ye%=4:ze%=5:Ae%=6:Be%=7:Ce%=8:De%=9
)׼Ee%=10:Fe%=11:�f("ConfBeat"):Ge%=23:He%=26:Ie%=29:Je%=32:Ke%=36:Le%=37:ș&400C1,,i%�Me%:�f("ConfLdSv"):Ne%=14:Oe%=15:Pe%=16:Qe%=17:Re%=18:Se%=19:Te%=20:Ue%=22:Ve%=23:ș&400C1,,i%�We%:�
*����Ca:�Xe%,Ye%,Ze%,_e%,`e%,af%,S%,bf%,cf%,X%,Y%,A%,f%:�f("SndB"):df%=15:ef%=16:ff%=4:gf%=5:hf%=6:if%=7:jf%=8:kf%=0:lf%=i%!84-2:mf%=lf%+_b%*Zb%:nf%=14:of%=11:pf%=9:qf%=10:rf%=18:sf%=19:tf%=21:uf%=12:vf%=13:wf%=20
,h�f%=i%+88+32*pf%:d%(0,0)=f%!0:d%(0,1)=f%!4:d%(0,2)=f%!8:d%(0,3)=f%!12:ș&44ADD,5+256,i%,pf%,1:f%=i%+88+32*lf%:Xe%=f%!16:af%=f%!8-f%!0:S%=f%!12-f%!4:cf%=f%!8-f%!40:bf%=f%!12-f%!44:Ye%=f%!0-bf%*(_b%-1)
-
�Ze%=f%!4-cf%*(Zb%-1):_e%=f%!8:`e%=f%!12:�Y%=0�Zb%-1:�X%=0�_b%-1:f%!0=Ye%+X%*bf%:f%!4=`e%-Y%*cf%-S%:f%!8=Ye%+X%*bf%+S%:f%!12=`e%-Y%*cf%:f%!16=Xe%:f%!20=lc%:f%!24=kc%+26*X%:f%!28=1:f%+=32:�,:f%=i%+88+32*kf%:!f%=Ye%-8:f%!4=Ze%-8:f%!8=_e%+8
-�tf%!12=`e%+8:i%!84=mf%:ș&44ADD,5+256,i%,nf%,1:ș&400C1,,i%�t%:�P(i%,t%):�A% 40:i%(0)=A%:�Q(A%,i%+88+32*nf%,t%):�
.!$��Da:�ia%��f("Menu")��f("Menu2")
.�.xf%=3:yf%=4:zf%=5:Af%=6:ș&400C1,,i%�Bf%:�
.����Ea:�e%,A%,B%,f%,Cf%,Df%,bf%,cf%,Ef%:�f("Inst"):i%!64=U%:Ff%=1:Gf%=2:Hf%=0:If%=3:Jf%=4:Ef%=5:Kf%=If%+2*(Gc%-1):Lf%=Jf%+2*(Gc%-1):i%!84=Lf%+1:Cf%=i%+88+If%*32:Df%=i%+88+Ef%*32:bf%=!Df%-!Cf%:cf%=Df%!4-Cf%!4:Df%=i%+88+Jf%*32
0X�Cf%=i%+88+If%*32:f%=Cf%:�A% (26+21)*Gc%:�e%=0�Gc%-1:!f%=!Cf%+bf%*(e%�3):f%!4=Cf%!4+cf%*(e%�3):f%!8=Cf%!8+bf%*(e%�3):f%!12=Cf%!12+cf%*(e%�3):f%!16=Cf%!16:f%!20=lc%:f%!24=A%:f%!28=1:$A%="S"+a$(e%)+",p"+a$(e%)+�0:A%+=26:f%+=32
0��!f%=!Df%+bf%*(e%�3):f%!4=Df%!4+cf%*(e%�3):f%!8=Df%!8+bf%*(e%�3):f%!12=Df%!12+cf%*(e%�3):f%!16=Df%!16:f%!20=A%:f%!24=0:f%!28=21:$A%=b$(e%)+�0:A%+=21:f%+=32:�:f%=i%+88+Ff%*32:A%=!Cf%+bf%*3:!f%=!f%-f%!8+A%-8:f%!8=A%-8
1x�A%=Cf%!4+cf%*((Gc%-3)�3)-4:B%=f%!12-f%!4:f%!12=A%-4:f%!4=A%-B%-4:Cf%=f%:f%=i%+88+Gf%*32:A%=!Cf%:!f%=!f%-f%!8+A%-8:f%!8=A%-8:f%!12=Cf%!12:f%!4=Cf%!4:f%=Cf%:Cf%=i%+88+Hf%*32:Cf%!8=f%!8+8:Cf%!4=f%!4-8:i%!8=i%!0+f%!8+12
2,)i%!4=i%!12+f%!4-12:ș&400C1,,i%�Mf%:�
2Y���Fa:�f%,Nf%,Of%,e%,A%:�f("Comp"):Of%=0:Pf%=1:Qf%=2:Rf%=8:Sf%=9:Tf%=12:Uf%=13:Vf%=14:Wf%=15:Xf%=16:Yf%=17:Zf%=18:_f%=38:`f%=23:ag%=24:bg%=25:cg%=26:dg%=27:eg%=28:fg%=29:Nf%=30:gg%=31:hg%=32:ig%=43:jg%=35:kg%=36:lg%=37:mg%=39
4c�ng%=33:og%=40:pg%=41:qg%=42:f%=i%+88+32*ag%:d%(1,0)=f%!0:d%(1,1)=f%!4:d%(1,2)=f%!8:d%(1,3)=f%!12:ș&44ADD,5+256,i%,ag%,1:ș&44ADD,5+256,i%,Of%,1:f%=i%+88+Of%*32:rg%=f%!0:sg%=f%!4:tg%=f%!8:ug%=f%!12:A%=Yf%-Of%+1
5�ș&44ADD,5+256,i%,Of%,1:ș&44ADD,6+256,i%,ng%,0,2^2:�e%=Of%�Wf%:ș&44ADD,6+256,i%,e%,0,2^2:�:�vg% 4+32*A%:ș&44AC7,32*A%,i%+88+32*Of%,vg%+4:!vg%=A%:�e%=Of%�Yf%:ș&44ADD,5+256,i%,e%,1:�:ș&44ADD,5+256,i%,Nf%,1:ș&400C1,,i%�o%
5���P(i%,o%):�A% 40:�Q(A%,i%+88+32*Nf%,o%):i%(1)=A%:Qf%-=Of%:Rf%-=Of%:Sf%-=Of%:Tf%-=Of%:Vf%-=Of%:Wf%-=Of%:Xf%-=Of%:Yf%-=Of%:Of%=0:�e%=Qf%�Rf%:!(vg%+4+24+32*e%)=kc%+26*(e%-Qf%):�:�
6%���Ka:�f%,wg%,xg%,e%,A%:�f("RtmB"):xg%=0:yg%=1:zg%=2:Ag%=8:Bg%=9:Cg%=12:Dg%=13:Eg%=14:Fg%=15:Gg%=16:Hg%=17:Ig%=18:Jg%=42:Kg%=20:Lg%=21:Mg%=22:Ng%=24:Og%=25:Pg%=27:wg%=29:Qg%=31:Rg%=40:Sg%=34:Tg%=35:Ug%=36:Vg%=37:Wg%=38:Xg%=39
8S�Yg%=41:Zg%=28:_g%=30:f%=i%+88+32*Ng%:d%(3,0)=f%!0:d%(3,1)=f%!4:d%(3,2)=f%!8:d%(3,3)=f%!12:ș&44ADD,5+256,i%,Ng%,1:ș&44ADD,5+256,i%,xg%,1:f%=i%+88+xg%*32:`g%=f%!0:ah%=f%!4:bh%=f%!8-1:ch%=f%!12-1:ș&44ADA,g%,88:g%!0=`g%:g%!4=ah%
9�g%!8=bh%-2:g%!12=ch%-2:g%!20=Qb%:g%!24=-1:g%!28=&80000062:g%!32=&000702FF:g%!40=-Pb%:g%!44=-90000:g%!48=(bh%-`g%)-Pb%:g%!52=Qb%:g%!60=3<<12:g%!64=r%:ș&400C1,,g%�dh%:ș&44ADD,5+256,i%,xg%,1:A%=Gg%-xg%+1
9��ș&44ADD,6+256,i%,Ig%,0,2^2:�e%=xg%�Gg%:ș&44ADD,6+256,i%,e%,0,2^2:�:�eh% 4+32*A%:ș&44AC7,32*A%,i%+88+32*xg%,eh%+4:!eh%=A%:�e%=xg%�Gg%:ș&44ADD,5+256,i%,e%,1:�:ș&44ADD,5+256,i%,wg%,1:ș&400C1,,i%�k%:�P(i%,k%):�A% 40
:0��Q(A%,i%+88+32*wg%,k%):i%(3)=A%:zg%-=xg%:Ag%-=xg%:Bg%-=xg%:Cg%-=xg%:Eg%-=xg%:Fg%-=xg%:Gg%-=xg%:xg%=0:�e%=zg%�Ag%:!(eh%+4+24+32*e%)=kc%+26*(e%-zg%):�:�
:�\��Ha:�f%,fh%,gh%,e%,A%:�f("CrdB"):hh%=30:ih%=2:jh%=8:kh%=7:�kh%<>7��0,"Reassemble MCode"
;t�lh%=9:mh%=lh%+kh%*1:nh%=lh%+kh%*2:oh%=30:ph%=32:qh%=33:rh%=34:sh%=35:th%=36:fh%=41:uh%=44:vh%=52:wh%=39:xh%=37:yh%=47:zh%=46:Ah%=40:Bh%=49:Ch%=50:Dh%=51:Eh%=42:Fh%=43:f%=i%+88+32*zh%:d%(2,0)=f%!0:d%(2,1)=f%!4:d%(2,2)=f%!8
<g�d%(2,3)=f%!12:ș&44ADD,5+256,i%,zh%,1:Gh%=mh%+kh%-ih%:�Hh% 4+32*Gh%:ș&44AC7,32*Gh%,i%+88+32*ih%,Hh%+4:!Hh%=Gh%:�e%=ih%�mh%-1:ș&44ADD,5+256,i%,e%,1:�:�e%=mh%�mh%+kh%-1:ș&44ADD,6+256,i%,e%,3<<12,&FFFFFFFF:�
<��ș&44ADD,5+256,i%,fh%,1:ș&400C1,,i%�l%:�P(i%,l%):�A% 40:�Q(A%,i%+88+32*fh%,l%):i%(2)=A%:jh%-=ih%:lh%-=ih%:Ih%=Hh%+4+(mh%-ih%)*32:ih%-=ih%:�e%=ih%�jh%:!(Hh%+4+24+32*e%)=kc%+26*(e%-ih%):�:�e%=0�kh%-1:A%=h%(e%,0)
=c`ș&44ADD,1+512,l%,e%+lh%,"s"+a$(A%-1)+",p"+a$(A%-1),,Hh%:�:�Jh% kh%*24:ș&44ADA,Jh%,kh%*24:�
=�{��f(a$):�N%:$ed%=a$+�0:ș&400DB,,i%,id%,dd%+hd%,-1,ed%,0�,,id%,,,,N%:�N%=0��b("Template not found for "+a$+" window",�)
> i%!64=U%:�
>2I��Q(A%,B%,n%):!A%=n%:A%!4=B%!0:A%!8=B%!4+eb%:A%!12=B%!8:A%!16=B%!12:�
>zm��P(i%,n%):f%(fd%,0)=n%:f%(fd%,1)=i%!8-i%!0:f%(fd%,2)=i%!12-i%!4:f%(fd%,3)=i%!16:f%(fd%,4)=i%!20:fd%+=1:�
>����La:�Kh%,v%,Lh%,Mh%:v%=1024:�Mh% v%:�Kh%=8�10�2:P%=Mh%:L%=Mh%+v%:[OPT Kh%:.Nh%:EQUD Lh%-Nh%:EQUD vd%:EQUD Oh%-Ph%+8:EQUD0:.Ph%:EQUD0:EQUD%0111011100010010:EQUD rd%:EQUD sd%:EQUD0:EQUD0:EQUD Qh%:EQUD-1:.Oh%:EQUD k%
?��EQUD Lh%-Rh%:.Rh%:EQUD0:EQUD dh%:EQUD%0111011110011010:EQUD(`g%+bh%)/2:EQUD(ch%+ah%)/2+1:EQUD0:EQUD0:EQUD0:EQUD-1:EQUD-1:.Lh%:.Qh%:EQUD0:EQUD1:EQUD0:EQUD6:EQUD1:EQUD1-1:EQUD-1:EQUD-1:EQUD0:.Sh%:EQUD12
@��EQUD ud%:EQUD52:EQUD1:EQUD1:EQUD0:EQUD0:EQUD0:.Th%:EQUD0:EQUD-td%:EQUD ud%:EQUD0:EQUD ud%:EQUD1:EQUD&10000062:EQUB1:EQUB10:EQUB0:EQUB0:EQUS"Files"+�0:ALIGN: ]:�:�
Aw���pa:�gc%,Uh%,ja%,b$,A%:ș&411C3�Uh%:Vh%=�("<MusicBoxD$Dir>.MCodeVars"):�a(Wh%):�a(Xh%):�a(Yh%):�a(Zh%):�a(_h%):�a(`h%):�a(ai%):�a(bi%):�a(ci%):�a(di%):�a(ei%):�a(fi%):�a(gi%):�a(hi%):�a(ii%):�a(ji%):�a(ki%):�a(li%):�a(mi%)
B���a(ni%):�a(oi%):�a(pi%):�a(qi%):�a(ri%):�a(si%):�a(ti%):�a(ui%):�a(vi%):�a(wi%):�a(xi%):�a(yi%):�a(zi%):�a(Ai%):�a(Bi%):�a(Ci%):�a(Di%):�a(Ei%):�a(Fi%):�a(Gi%):�a(Hi%):�a(Ii%):�a(Ji%):�a(Ki%):�a(Li%):�a(Mi%):�a(Ni%):�a(Oi%)
C���a(Pi%):�a(Qi%):�a(Ri%):�a(Si%):�a(Ti%):�a(Ui%):�a(Vi%):�a(Wi%):�a(Xi%):�a(Yi%):�a(Zi%):�a(_i%):�a(`i%):�a(aj%):�a(bj%):�a(cj%):�a(dj%):�a(ej%):�a(fj%):�a(gj%):�a(hj%):�a(ij%):�a(jj%):�a(kj%):�a(lj%):�a(mj%):�a(nj%):�a(oj%)
D���a(pj%):�a(qj%):�a(rj%):�a(sj%):�a(tj%):�a(uj%):�a(vj%):�a(wj%):�a(xj%):�a(yj%):�a(zj%):�a(Aj%):�a(Bj%):�a(Cj%):�a(Dj%):�a(Ej%):�a(Fj%):�a(Gj%):�a(Hj%):�a(Ij%):�a(Jj%):�a(Kj%):�a(Lj%):�a(Mj%):�a(Nj%):�a(Oj%):�a(Pj%)
E���a(Qj%):�a(Rj%):�a(Sj%):�a(Tj%):�a(Uj%):�a(Vj%):�a(Wj%):�a(Xj%):�a(Yj%):�a(Zj%):�a(_j%):�a(`j%):�a(ak%):�a(bk%):�a(ck%):�a(dk%):�#Vh%:Wh%!32=kd%:!li%=jc%:!mi%=W%*12:!Ci%=vg%:Gi%!0=rg%:Gi%!4=sg%:Gi%!8=tg%:Gi%!12=ug%
Fl�Ii%!0=rg%:Ii%!4=sg%-4:Ii%!8=tg%:Ii%!12=ug%+4:!Ji%=nc%:!Ki%=g%:fi%!0=rg%:fi%!4=sg%:fi%!8=tg%:fi%!12=ug%:!Ri%=Jh%-24:!Si%=Ih%-32:!Vi%=o%:!Wi%=l%:!Xi%=_%:!Yi%=Hc%:!Zi%=h%:!`i%=k%:!aj%=dh%:!cj%=U%:!fj%=oc%:!ij%=Cc%
G2q!yj%=Ob%:!zj%=V%:!Aj%=Lb%:!Oj%=V%:!(Yh%+4*10)=_j%:!(Yh%+4*52)=`j%:!(Yh%+4*64)=ak%:!(Yh%+4*94)=bk%:Qh%!4=wj%:�
G�"��a(�ek%):�#Vh%,ek%:ek%+=Uh%:�
�
00000000  0d 09 be 08 dd f2 6b 61  0d 09 c7 0d 2a 54 55 4e  |......ka....*TUN|
00000010  49 4e 47 20 30 0d 09 c7  ed c8 99 26 34 30 31 38  |ING 0......&4018|
00000020  37 2c 30 b8 79 61 25 3a  7a 61 25 3d a3 3a 41 61  |7,0.ya%:za%=.:Aa|
00000030  25 3d a3 3a 42 61 25 3d  a3 3a 43 61 25 3d a3 3a  |%=.:Ba%=.:Ca%=.:|
00000040  44 61 25 3d 26 42 43 37  3a 45 61 25 3d 34 3a 46  |Da%=&BC7:Ea%=4:F|
00000050  61 25 3d 33 3a 47 61 25  3d 32 3a 48 61 25 3d 31  |a%=3:Ga%=2:Ha%=1|
00000060  3a 73 61 25 3d 30 3a 77  25 3d 2d 31 3a 49 61 25  |:sa%=0:w%=-1:Ia%|
00000070  3d a3 3a 71 61 25 3d a3  3a 4a 61 25 3d 30 3a 4b  |=.:qa%=.:Ja%=0:K|
00000080  61 25 3d a3 3a 4c 61 25  3d a3 3a 4d 61 25 3d 26  |a%=.:La%=.:Ma%=&|
00000090  38 31 30 30 31 3a 4e 61  25 3d 26 38 31 30 30 30  |81001:Na%=&81000|
000000a0  3a 4f 61 25 3d 4d 61 25  3a 76 61 25 3d a3 3a 50  |:Oa%=Ma%:va%=.:P|
000000b0  61 25 3d a3 3a 51 61 25  3d a3 3a 52 61 25 3d a3  |a%=.:Qa%=.:Ra%=.|
000000c0  3a 53 61 25 3d a3 3a 54  61 25 3d a3 3a 55 61 25  |:Sa%=.:Ta%=.:Ua%|
000000d0  3d 30 3a 56 61 25 3d 32  35 36 3a c8 99 26 38 2c  |=0:Va%=256:..&8,|
000000e0  31 37 2c 22 3c 4d 75 73  69 63 42 6f 78 44 24 44  |17,"<MusicBoxD$D|
000000f0  69 72 3e 2e 43 6f 6e 66  69 67 22 b8 2c 2c 2c 2c  |ir>.Config".,,,,|
00000100  76 25 0d 0a cc f0 de 65  25 28 34 2c 56 61 25 20  |v%.....e%(4,Va% |
00000110  2c 33 29 3a de 6a 25 28  33 29 3a de 67 25 28 33  |,3):.j%(3):.g%(3|
00000120  29 3a 67 25 28 29 3d 2d  31 3a c8 99 26 34 34 41  |):g%()=-1:..&44A|
00000130  43 31 2c 2c 70 61 25 2c  32 30 34 38 b8 2c 57 61  |C1,,pa%,2048.,Wa|
00000140  25 3a 58 61 25 3d a3 3a  59 61 25 3d b9 3a 5a 61  |%:Xa%=.:Ya%=.:Za|
00000150  25 3d b9 3a 5f 61 25 3d  30 3a 60 61 25 3d 2d 31  |%=.:_a%=0:`a%=-1|
00000160  3a 61 62 25 3d a3 3a 62  62 25 3d a3 3a de 69 25  |:ab%=.:bb%=.:.i%|
00000170  28 33 29 3a 63 62 25 3d  36 37 2a 32 3a 64 62 25  |(3):cb%=67*2:db%|
00000180  3d 36 36 2a 32 3a 65 62  25 3d 35 36 3a 66 62 25  |=66*2:eb%=56:fb%|
00000190  3d 33 30 3a 67 62 25 3d  33 32 2a 32 3a 68 62 25  |=30:gb%=32*2:hb%|
000001a0  3d 33 32 2a 32 2f 34 3a  51 25 3d 33 32 2a 32 3a  |=32*2/4:Q%=32*2:|
000001b0  69 62 25 3d 32 2a 34 3a  6a 62 25 3d 31 3a c8 99  |ib%=2*4:jb%=1:..|
000001c0  26 34 31 31 43 30 2c 28  21 57 61 25 2b 32 30 34  |&411C0,(!Wa%+204|
000001d0  38 2d 76 25 29 3a c8 99  26 34 30 38 38 30 2c 22  |8-v%):..&40880,"|
000001e0  3c 4d 75 73 69 63 42 6f  78 44 24 44 69 72 3e 2e  |<MusicBoxD$Dir>.|
000001f0  34 22 0d 0b ad aa 6b 62  25 3d 51 25 2a 69 62 25  |4"....kb%=Q%*ib%|
00000200  3a 6c 62 25 3d 6b 62 25  2a 6a 62 25 3a 6d 62 25  |:lb%=kb%*jb%:mb%|
00000210  3d 69 62 25 2a 6a 62 25  3a 6e 62 25 3d 51 25 2a  |=ib%*jb%:nb%=Q%*|
00000220  69 62 25 2f 32 3a 6f 62  25 3d 32 2a 6d 62 25 2f  |ib%/2:ob%=2*mb%/|
00000230  69 62 25 3a 70 62 25 3d  38 30 3a 71 62 25 3d 31  |ib%:pb%=80:qb%=1|
00000240  32 35 3a 72 62 25 3d 31  33 30 3a 73 62 25 3d 30  |25:rb%=130:sb%=0|
00000250  3a 74 62 25 3d 30 3a 75  62 25 3d 2d 31 3a 21 75  |:tb%=0:ub%=-1:!u|
00000260  61 25 3d 31 3a c8 99 26  37 2c 31 34 2c 75 61 25  |a%=1:..&7,14,ua%|
00000270  3a e7 3f 75 61 25 3d 26  39 35 8c c8 99 26 34 34  |:.?ua%=&95...&44|
00000280  41 44 43 2c 28 21 57 61  25 2b 32 30 34 38 2d 76  |ADC,(!Wa%+2048-v|
00000290  25 2b 34 29 2c 21 57 61  25 b8 76 25 0d 0c 2b 80  |%+4),!Wa%.v%..+.|
000002a0  76 62 25 3d 32 34 2a 32  30 3a 57 25 3d 31 30 30  |vb%=24*20:W%=100|
000002b0  3a 4b 25 3d 34 30 3a 77  62 25 3d 31 38 3a 64 24  |:K%=40:wb%=18:d$|
000002c0  3d 22 73 3f 22 3a 7a 24  3d 22 73 3f 22 3a 78 62  |="s?":z$="s?":xb|
000002d0  25 3d 51 25 2f 32 3a 79  62 25 3d a3 3a 7a 62 25  |%=Q%/2:yb%=.:zb%|
000002e0  3d a3 3a 41 62 25 3d a3  3a 42 62 25 3d 31 3a 43  |=.:Ab%=.:Bb%=1:C|
000002f0  62 25 3d 32 3a 44 62 25  3d 32 3a 45 62 25 3d 2d  |b%=2:Db%=2:Eb%=-|
00000300  31 3a e7 3f 75 61 25 3d  26 39 35 8c c8 99 26 31  |1:.?ua%=&95...&1|
00000310  45 2c 31 31 2c 21 57 61  25 2c 76 25 0d 0c b2 e0  |E,11,!Wa%,v%....|
00000320  46 62 25 3d a3 3a 47 62  25 3d 31 3a 48 62 25 3d  |Fb%=.:Gb%=1:Hb%=|
00000330  31 3a 49 62 25 3d 31 3a  4a 62 25 3d a3 3a 4b 62  |1:Ib%=1:Jb%=.:Kb|
00000340  25 3d a3 3a 4c 62 25 3d  31 30 3a 4d 62 25 3d 34  |%=.:Lb%=10:Mb%=4|
00000350  30 3a 4d 25 3d 32 34 3a  4e 62 25 3d 4d 62 25 2a  |0:M%=24:Nb%=Mb%*|
00000360  4d 25 3a 4f 25 3d 34 3a  4f 62 25 3d 34 2a 34 30  |M%:O%=4:Ob%=4*40|
00000370  3a 50 62 25 3d 35 32 3a  51 62 25 3d 35 32 3a 52  |:Pb%=52:Qb%=52:R|
00000380  62 25 3d 35 32 3a 53 62  25 3d 31 30 30 3a 54 62  |b%=52:Sb%=100:Tb|
00000390  25 3d 34 30 3a 55 62 25  3d a3 3a de 56 25 20 53  |%=40:Ub%=.:.V% S|
000003a0  62 25 2a 4d 25 2a 38 3a  c8 99 26 34 34 41 44 41  |b%*M%*8:..&44ADA|
000003b0  2c 56 25 2c 53 62 25 2a  4d 25 2a 38 3a c8 99 26  |,V%,Sb%*M%*8:..&|
000003c0  34 34 41 43 33 2c 2c 57  61 25 3a 56 62 25 3d 30  |44AC3,,Wa%:Vb%=0|
000003d0  3a 57 62 25 3d 32 3a 58  62 25 3d 26 46 46 3a 59  |:Wb%=2:Xb%=&FF:Y|
000003e0  62 25 3d 26 31 37 46 3a  5a 62 25 3d 31 31 3a 5f  |b%=&17F:Zb%=11:_|
000003f0  62 25 3d 37 3a 58 24 3d  22 73 3f 22 0d 0d c9 d3  |b%=7:X$="s?"....|
00000400  60 62 25 3d 31 38 2a 32  3a 61 63 25 3d 31 38 3a  |`b%=18*2:ac%=18:|
00000410  62 63 25 3d 70 61 25 3a  63 63 25 3d 2d 31 3a 64  |bc%=pa%:cc%=-1:d|
00000420  63 25 3d 31 3a 65 63 25  3d 2d 31 3a de 61 25 28  |c%=1:ec%=-1:.a%(|
00000430  5a 62 25 2d 31 29 3a de  6b 25 28 32 30 29 3a de  |Zb%-1):.k%(20):.|
00000440  68 25 28 37 2c 30 29 3a  de 66 63 25 20 67 63 25  |h%(7,0):.fc% gc%|
00000450  3a 68 25 28 29 3d 32 3a  de 64 25 28 33 2c 33 29  |:h%()=2:.d%(3,3)|
00000460  3a de 68 63 25 20 31 36  3a de 69 63 25 20 36 34  |:.hc% 16:.ic% 64|
00000470  2a 34 3a de 6a 63 25 20  76 62 25 2a 31 32 2b 31  |*4:.jc% vb%*12+1|
00000480  32 2a 32 3a c8 99 26 34  34 41 44 41 2c 6a 63 25  |2*2:..&44ADA,jc%|
00000490  2c 76 62 25 2a 31 32 2b  31 32 2a 32 3a 6a 63 25  |,vb%*12+12*2:jc%|
000004a0  2b 3d 31 32 3a de 6b 63  25 20 32 36 2a 37 2b 31  |+=12:.kc% 26*7+1|
000004b0  3a 6c 63 25 3d 6b 63 25  2b 32 36 2a 37 3a 3f 6c  |:lc%=kc%+26*7:?l|
000004c0  63 25 3d 30 3a e7 3f 75  61 25 3d 26 39 35 8c 0d  |c%=0:.?ua%=&95..|
000004d0  0e a1 14 c8 99 26 34 31  31 43 32 2c 66 63 25 3a  |.....&411C2,fc%:|
000004e0  f2 73 61 0d 0e bc 05 cd  0d 0e bc 0e de 6d 63 25  |.sa..........mc%|
000004f0  20 32 35 36 3a e1 0d 0e  ce 3a dd f2 6c 61 3a c8  | 256:....:..la:.|
00000500  99 26 34 34 41 45 32 2c  32 35 36 2c 70 61 25 2c  |.&44AE2,256,pa%,|
00000510  30 b8 2c 6e 63 25 3a c8  99 26 34 34 41 45 32 2c  |0.,nc%:..&44AE2,|
00000520  32 35 36 2c 70 61 25 2c  30 b8 2c 6f 63 25 3a e1  |256,pa%,0.,oc%:.|
00000530  0d 0e fb d4 dd f2 68 61  3a ea 41 25 3a 70 63 25  |......ha:.A%:pc%|
00000540  3d a3 3a 67 63 25 3d 28  32 5e 39 29 2a 28 35 2a  |=.:gc%=(2^9)*(5*|
00000550  33 2b 34 29 3a 71 63 25  3d 30 3a 72 63 25 3d 2d  |3+4):qc%=0:rc%=-|
00000560  31 3a 73 63 25 3d 2d 31  3a 74 63 25 3d a3 3a 75  |1:sc%=-1:tc%=.:u|
00000570  63 25 3d a3 3a 76 63 25  3d a3 3a 6f 24 3d 22 4d  |c%=.:vc%=.:o$="M|
00000580  75 73 69 63 20 42 6f 78  20 44 65 6d 6f 22 3a 53  |usic Box Demo":S|
00000590  24 3d 22 4d 75 73 69 63  42 6f 78 44 22 3a 79 24  |$="MusicBoxD":y$|
000005a0  3d 6f 24 3a 6b 24 3d 22  3c 22 2b 53 24 2b 22 24  |=o$:k$="<"+S$+"$|
000005b0  44 69 72 3e 22 3a 6e 24  3d 22 3c 4d 42 49 6e 73  |Dir>":n$="<MBIns|
000005c0  74 72 75 6d 65 6e 74 73  24 44 69 72 3e 22 3a 47  |truments$Dir>":G|
000005d0  24 3d 22 4d 42 49 6e 73  74 72 75 6d 65 6e 74 73  |$="MBInstruments|
000005e0  24 44 69 72 22 3a 48 24  3d 22 3c 4d 42 49 6e 73  |$Dir":H$="<MBIns|
000005f0  74 72 75 6d 65 6e 74 53  70 72 69 74 65 73 24 44  |trumentSprites$D|
00000600  69 72 3e 22 0d 0f 9d e1  49 24 3d 22 3c 4d 42 49  |ir>"....I$="<MBI|
00000610  6e 73 74 72 75 6d 65 6e  74 53 70 72 69 74 65 73  |nstrumentSprites|
00000620  32 32 24 44 69 72 3e 22  3a 4a 24 3d 22 3c 52 4f  |22$Dir>":J$="<RO|
00000630  4d 49 6e 73 74 72 75 6d  65 6e 74 53 70 72 69 74  |MInstrumentSprit|
00000640  65 73 24 44 69 72 3e 22  3a 4b 24 3d 22 3c 52 4f  |es$Dir>":K$="<RO|
00000650  4d 49 6e 73 74 72 75 6d  65 6e 74 53 70 72 69 74  |MInstrumentSprit|
00000660  65 73 32 32 24 44 69 72  3e 22 3a 54 24 3d 22 31  |es22$Dir>":T$="1|
00000670  2e 32 35 44 20 28 32 36  20 4e 6f 76 20 31 39 39  |.25D (26 Nov 199|
00000680  34 29 22 3a 77 63 25 3d  2d 31 3a 78 63 25 3d 2d  |4)":wc%=-1:xc%=-|
00000690  31 3a 79 63 25 3d 30 3a  c8 99 26 34 30 30 43 30  |1:yc%=0:..&400C0|
000006a0  2c 32 30 30 2c 26 34 42  35 33 34 31 35 34 2c 6f  |,200,&4B534154,o|
000006b0  24 b8 2c 63 61 25 3a de  41 25 20 32 35 3a 24 41  |$.,ca%:.A% 25:$A|
000006c0  25 3d 22 53 21 4d 75 73  69 63 42 6f 78 44 2c 21  |%="S!MusicBoxD,!|
000006d0  4d 75 73 69 63 42 6f 78  45 22 2b bd 30 3a 41 25  |MusicBoxE"+.0:A%|
000006e0  3f 32 35 3d 30 0d 10 12  6b 21 68 25 3d 2d 31 3a  |?25=0...k!h%=-1:|
000006f0  68 25 21 34 3d 30 3a 68  25 21 38 3d 30 3a 68 25  |h%!4=0:h%!8=0:h%|
00000700  21 31 32 3d 36 38 3a 68  25 21 31 36 3d 36 38 3a  |!12=68:h%!16=68:|
00000710  68 25 21 32 30 3d 26 33  31 31 42 2b 32 5e 32 31  |h%!20=&311B+2^21|
00000720  3a 68 25 21 32 34 3d 41  25 2b 32 35 3a 68 25 21  |:h%!24=A%+25:h%!|
00000730  32 38 3d 41 25 3a 68 25  21 33 32 3d 31 3a c8 99  |28=A%:h%!32=1:..|
00000740  26 34 30 30 43 32 2c 2c  68 25 b8 7a 63 25 3a e1  |&400C2,,h%.zc%:.|
00000750  0d 10 51 c6 dd f2 73 61  3a ea 65 25 2c 41 63 25  |..Q...sa:.e%,Ac%|
00000760  2c 41 2c 42 63 25 3a 41  63 25 3d 33 30 3a de 43  |,A,Bc%:Ac%=30:.C|
00000770  63 25 20 28 51 25 2a 4d  25 2a 32 2b 31 29 2a 38  |c% (Q%*M%*2+1)*8|
00000780  2a 28 6a 62 25 2b 31 29  3a e3 42 63 25 3d 30 b8  |*(jb%+1):.Bc%=0.|
00000790  6a 62 25 3a e3 65 25 3d  30 b8 6b 62 25 2a 38 88  |jb%:.e%=0.kb%*8.|
000007a0  38 3a 41 3d 65 25 2a 33  36 30 2f 28 6b 62 25 2a  |8:A=e%*360/(kb%*|
000007b0  38 29 3a 41 3d b2 28 b5  28 b2 28 41 29 29 2a 41  |8):A=.(.(.(A))*A|
000007c0  63 25 2b 39 30 29 3a 21  28 43 63 25 2b 65 25 2b  |c%+90):!(Cc%+e%+|
000007d0  6b 62 25 2a 38 2a 42 63  25 29 3d 28 9b 28 41 29  |kb%*8*Bc%)=(.(A)|
000007e0  2a 72 62 25 29 2a 32 5e  31 30 3a 21 28 43 63 25  |*rb%)*2^10:!(Cc%|
000007f0  2b 65 25 2b 6b 62 25 2a  38 2a 42 63 25 2b 34 29  |+e%+kb%*8*Bc%+4)|
00000800  3d 28 b5 28 41 29 2a 72  62 25 29 2a 32 5e 31 30  |=(.(A)*rb%)*2^10|
00000810  3a ed 3a ed 3a e1 0d 10  e1 65 dd f2 6d 61 3a ea  |:.:.:....e..ma:.|
00000820  41 25 2c 47 25 2c 44 63  25 2c 45 63 25 2c 46 63  |A%,G%,Dc%,Ec%,Fc|
00000830  25 2c 42 25 2c 62 24 2c  65 25 2c 41 24 3a de 62  |%,B%,b$,e%,A$:.b|
00000840  24 28 65 61 25 2d 31 29  3a de 63 25 28 65 61 25  |$(ea%-1):.c%(ea%|
00000850  2d 31 29 3a de 61 24 28  65 61 25 2d 31 29 3a 46  |-1):.a$(ea%-1):F|
00000860  63 25 3d a3 3a e7 6a 24  3d 22 32 32 22 8c 72 24  |c%=.:.j$="22".r$|
00000870  3d 22 22 8b 72 24 3d 22  32 32 22 0d 12 01 26 e7  |="".r$="22"...&.|
00000880  a4 67 28 6b 24 2b 22 2e  44 65 66 61 75 6c 74 73  |.g(k$+".Defaults|
00000890  22 2b 6a 24 29 8c 41 24  3d 6a 24 8b 41 24 3d 72  |"+j$).A$=j$.A$=r|
000008a0  24 0d 12 0a 6c c8 99 26  34 31 31 43 30 2c 2c 70  |$...l..&411C0,,p|
000008b0  61 25 2c 6b 24 2b 22 2e  44 65 66 61 75 6c 74 73  |a%,k$+".Defaults|
000008c0  22 2b 41 24 b8 2c 44 63  25 3a c8 99 26 34 31 31  |"+A$.,Dc%:..&411|
000008d0  43 30 2c 2c 70 61 25 2c  6b 24 2b 22 2e 44 65 66  |C0,,pa%,k$+".Def|
000008e0  61 75 6c 74 73 22 2b 41  24 b8 2c 72 25 3a e7 a4  |aults"+A$.,r%:..|
000008f0  67 28 6b 24 2b 22 2e 54  6f 6f 6c 73 22 2b 6a 24  |g(k$+".Tools"+j$|
00000900  29 8c 41 24 3d 6a 24 8b  41 24 3d 72 24 0d 12 2e  |).A$=j$.A$=r$...|
00000910  91 c8 99 26 34 31 31 43  31 2c 2c 72 25 2c 6b 24  |...&411C1,,r%,k$|
00000920  2b 22 2e 54 6f 6f 6c 73  22 2b 41 24 3a c8 99 26  |+".Tools"+A$:..&|
00000930  34 34 41 45 32 2c 32 35  36 2c 70 61 25 2c 30 b8  |44AE2,256,pa%,0.|
00000940  2c 47 25 3a 47 63 25 3d  30 3a 45 63 25 3d 30 3a  |,G%:Gc%=0:Ec%=0:|
00000950  c8 99 26 32 30 30 32 33  2c 22 4d 42 52 4f 4d 24  |..&20023,"MBROM$|
00000960  49 6e 73 74 72 75 6d 65  6e 74 73 22 2c 68 25 2c  |Instruments",h%,|
00000970  32 35 36 2c 30 2c 30 b8  2c 2c 41 25 3a 68 25 3f  |256,0,0.,,A%:h%?|
00000980  41 25 3d 30 3a 68 25 3f  32 35 35 3d 30 3a 41 24  |A%=0:h%?255=0:A$|
00000990  3d a4 63 28 68 25 29 3a  e7 41 25 3e 30 8c 0d 12  |=.c(h%):.A%>0...|
000009a0  91 50 65 25 3d 31 3a c8  95 65 25 3c 41 25 2b 31  |.Pe%=1:..e%<A%+1|
000009b0  3a 62 24 3d 22 22 3a c8  95 97 28 c1 41 24 2c 65  |:b$="":...(.A$,e|
000009c0  25 2c 31 29 29 3e 33 32  3a 62 24 2b 3d c1 41 24  |%,1))>32:b$+=.A$|
000009d0  2c 65 25 2c 31 29 3a 65  25 2b 3d 31 3a ce 3a e7  |,e%,1):e%+=1:.:.|
000009e0  62 24 3c 3e 22 22 8c f2  74 61 28 62 24 29 0d 12  |b$<>""..ta(b$)..|
000009f0  d9 48 65 25 2b 3d 31 3a  ce 3a f2 75 61 3a c8 99  |.He%+=1:.:.ua:..|
00000a00  26 32 30 30 32 33 2c 47  24 2c 68 25 2c 2d 31 2c  |&20023,G$,h%,-1,|
00000a10  30 2c 30 b8 2c 2c 41 25  3a e7 41 25 3c 30 8c f2  |0,0.,,A%:.A%<0..|
00000a20  76 61 28 6e 24 2c 65 61  25 2d 32 2c 22 46 4e 56  |va(n$,ea%-2,"FNV|
00000a30  28 46 24 29 22 29 0d 13  06 c9 f2 77 61 3a 62 24  |(F$)").....wa:b$|
00000a40  28 47 63 25 29 3d 22 52  65 73 74 22 3a 63 25 28  |(Gc%)="Rest":c%(|
00000a50  47 63 25 29 3d 26 38 30  30 30 30 30 30 30 3a 61  |Gc%)=&80000000:a|
00000a60  24 28 47 63 25 29 3d 22  52 65 73 74 22 3a 47 63  |$(Gc%)="Rest":Gc|
00000a70  25 2b 3d 31 3a 41 25 3d  a4 65 28 72 25 2c 22 52  |%+=1:A%=.e(r%,"R|
00000a80  65 73 74 22 2c 72 25 2c  22 6e 6f 6e 65 22 2c 22  |est",r%,"none","|
00000a90  70 6e 6f 6e 65 22 2c 22  73 6e 6f 6e 65 22 29 3a  |pnone","snone"):|
00000aa0  41 25 3d a4 65 28 72 25  2c 22 3f 22 2c 72 25 2c  |A%=.e(r%,"?",r%,|
00000ab0  22 75 6e 6b 6e 6f 77 6e  22 2c 22 70 75 6e 6b 6e  |"unknown","punkn|
00000ac0  6f 77 6e 22 2c 22 73 75  6e 6b 6e 6f 77 6e 22 29  |own","sunknown")|
00000ad0  3a c8 99 26 36 34 41 45  32 2c 32 36 30 2c 44 63  |:..&64AE2,260,Dc|
00000ae0  25 2c 22 73 5a 22 2c 72  25 2c 22 73 70 72 69 6e  |%,"sZ",r%,"sprin|
00000af0  74 69 6e 73 74 22 2b 61  24 2c 30 b8 3b 50 25 0d  |tinst"+a$,0.;P%.|
00000b00  13 69 b6 f2 42 28 72 25  2c 22 73 70 72 69 6e 74  |.i..B(r%,"sprint|
00000b10  69 6e 73 74 22 2c 72 25  2c 22 73 70 72 69 6e 74  |inst",r%,"sprint|
00000b20  22 2c 31 29 3a c8 99 26  36 34 41 45 32 2c 32 35  |",1):..&64AE2,25|
00000b30  2c 72 25 2c 22 73 70 72  69 6e 74 22 3a e3 65 25  |,r%,"sprint":.e%|
00000b40  3d 31 b8 36 3a 41 25 3d  a4 65 28 72 25 2c 22 74  |=1.6:A%=.e(r%,"t|
00000b50  22 2b c3 28 65 25 29 2c  72 25 2c 22 74 6f 6f 6c  |"+.(e%),r%,"tool|
00000b60  22 2b c3 28 65 25 29 2c  22 70 74 6f 6f 6c 22 2b  |"+.(e%),"ptool"+|
00000b70  c3 28 65 25 29 2c 22 2d  22 29 3a c8 99 26 36 34  |.(e%),"-"):..&64|
00000b80  41 45 32 2c 32 35 2c 72  25 2c 22 74 6f 6f 6c 22  |AE2,25,r%,"tool"|
00000b90  2b c3 28 65 25 29 3a c8  99 26 36 34 41 45 32 2c  |+.(e%):..&64AE2,|
00000ba0  32 35 2c 72 25 2c 22 70  74 6f 6f 6c 22 2b c3 28  |25,r%,"ptool"+.(|
00000bb0  65 25 29 3a ed 0d 13 b1  aa 41 25 3d a4 65 28 72  |e%):.....A%=.e(r|
00000bc0  25 2c 22 73 70 65 61 6b  65 72 22 2c 72 25 2c 22  |%,"speaker",r%,"|
00000bd0  73 70 65 61 6b 22 2c 22  70 73 70 65 61 6b 22 2c  |speak","pspeak",|
00000be0  22 2d 22 29 3a 41 25 3d  a4 65 28 72 25 2c 22 6c  |"-"):A%=.e(r%,"l|
00000bf0  6f 61 64 22 2c 72 25 2c  22 5f 6c 6f 61 64 22 2c  |oad",r%,"_load",|
00000c00  22 5f 6c 6f 61 64 22 2c  22 2d 22 29 3a 41 25 3d  |"_load","-"):A%=|
00000c10  a4 65 28 72 25 2c 22 73  61 76 65 22 2c 72 25 2c  |.e(r%,"save",r%,|
00000c20  22 5f 73 61 76 65 22 2c  22 5f 73 61 76 65 22 2c  |"_save","_save",|
00000c30  22 2d 22 29 3a 41 25 3d  a4 65 28 72 25 2c 22 63  |"-"):A%=.e(r%,"c|
00000c40  6c 65 61 72 22 2c 72 25  2c 22 5f 63 6c 65 61 72  |lear",r%,"_clear|
00000c50  22 2c 22 5f 63 6c 65 61  72 22 2c 22 2d 22 29 0d  |","_clear","-").|
00000c60  13 d5 c5 41 25 3d a4 65  28 72 25 2c 22 63 6f 70  |...A%=.e(r%,"cop|
00000c70  79 22 2c 72 25 2c 22 5f  63 6f 70 79 22 2c 22 5f  |y",r%,"_copy","_|
00000c80  63 6f 70 79 22 2c 22 2d  22 29 3a 41 25 3d a4 65  |copy","-"):A%=.e|
00000c90  28 72 25 2c 22 79 65 73  22 2c 72 25 2c 22 5f 79  |(r%,"yes",r%,"_y|
00000ca0  65 73 22 2c 22 5f 79 65  73 22 2c 22 2d 22 29 3a  |es","_yes","-"):|
00000cb0  41 25 3d a4 65 28 72 25  2c 22 6e 6f 22 2c 72 25  |A%=.e(r%,"no",r%|
00000cc0  2c 22 5f 6e 6f 22 2c 22  5f 6e 6f 22 2c 22 2d 22  |,"_no","_no","-"|
00000cd0  29 3a 41 25 3d a4 65 28  72 25 2c 22 50 72 69 6e  |):A%=.e(r%,"Prin|
00000ce0  74 22 2c 72 25 2c 22 5f  70 72 69 6e 74 22 2c 22  |t",r%,"_print","|
00000cf0  5f 70 72 69 6e 74 22 2c  22 2d 22 29 3a 41 25 3d  |_print","-"):A%=|
00000d00  a4 65 28 72 25 2c 22 53  6c 6f 77 22 2c 72 25 2c  |.e(r%,"Slow",r%,|
00000d10  22 5f 53 6c 6f 77 22 2c  22 5f 53 6c 6f 77 22 2c  |"_Slow","_Slow",|
00000d20  22 2d 22 29 0d 14 02 d4  41 25 3d a4 65 28 72 25  |"-")....A%=.e(r%|
00000d30  2c 22 46 61 73 74 22 2c  72 25 2c 22 5f 46 61 73  |,"Fast",r%,"_Fas|
00000d40  74 22 2c 22 5f 46 61 73  74 22 2c 22 2d 22 29 3a  |t","_Fast","-"):|
00000d50  41 25 3d a4 65 28 72 25  2c 22 4f 6b 22 2c 72 25  |A%=.e(r%,"Ok",r%|
00000d60  2c 22 5f 4f 6b 22 2c 22  5f 4f 6b 22 2c 22 2d 22  |,"_Ok","_Ok","-"|
00000d70  29 3a c8 99 26 36 34 41  45 32 2c 32 35 2c 72 25  |):..&64AE2,25,r%|
00000d80  2c 22 5f 6f 6b 22 3a c8  99 26 36 34 41 45 32 2c  |,"_ok":..&64AE2,|
00000d90  32 35 2c 72 25 2c 22 5f  73 61 76 65 22 3a c8 99  |25,r%,"_save":..|
00000da0  26 36 34 41 45 32 2c 32  35 2c 72 25 2c 22 5f 6c  |&64AE2,25,r%,"_l|
00000db0  6f 61 64 22 3a c8 99 26  36 34 41 45 32 2c 32 35  |oad":..&64AE2,25|
00000dc0  2c 72 25 2c 22 5f 73 6c  6f 77 22 3a c8 99 26 36  |,r%,"_slow":..&6|
00000dd0  34 41 45 32 2c 32 35 2c  72 25 2c 22 5f 66 61 73  |4AE2,25,r%,"_fas|
00000de0  74 22 3a c8 99 26 36 34  41 45 32 2c 32 35 2c 72  |t":..&64AE2,25,r|
00000df0  25 2c 22 5f 79 65 73 22  0d 14 4a d2 c8 99 26 36  |%,"_yes"..J...&6|
00000e00  34 41 45 32 2c 32 35 2c  72 25 2c 22 5f 6e 6f 22  |4AE2,25,r%,"_no"|
00000e10  3a c8 99 26 36 34 41 45  32 2c 32 35 2c 72 25 2c  |:..&64AE2,25,r%,|
00000e20  22 5f 70 72 69 6e 74 22  3a c8 99 26 36 34 41 45  |"_print":..&64AE|
00000e30  32 2c 32 35 2c 72 25 2c  22 5f 63 6f 70 79 22 3a  |2,25,r%,"_copy":|
00000e40  c8 99 26 36 34 41 45 32  2c 32 35 2c 72 25 2c 22  |..&64AE2,25,r%,"|
00000e50  5f 63 6c 65 61 72 22 3a  c8 99 26 36 34 41 45 32  |_clear":..&64AE2|
00000e60  2c 32 35 2c 72 25 2c 22  73 70 65 61 6b 22 3a c8  |,25,r%,"speak":.|
00000e70  99 26 36 34 41 45 32 2c  32 35 2c 72 25 2c 22 70  |.&64AE2,25,r%,"p|
00000e80  73 70 65 61 6b 22 3a c8  99 26 36 34 41 45 32 2c  |speak":..&64AE2,|
00000e90  32 35 2c 72 25 2c 22 6e  6f 6e 65 22 3a c8 99 26  |25,r%,"none":..&|
00000ea0  36 34 41 45 32 2c 32 35  2c 72 25 2c 22 70 6e 6f  |64AE2,25,r%,"pno|
00000eb0  6e 65 22 3a c8 99 26 36  34 41 45 32 2c 32 35 2c  |ne":..&64AE2,25,|
00000ec0  72 25 2c 22 73 6e 6f 6e  65 22 0d 14 9b 8d c8 99  |r%,"snone"......|
00000ed0  26 36 34 41 45 32 2c 32  35 2c 72 25 2c 22 75 6e  |&64AE2,25,r%,"un|
00000ee0  6b 6e 6f 77 6e 22 3a c8  99 26 36 34 41 45 32 2c  |known":..&64AE2,|
00000ef0  32 35 2c 72 25 2c 22 70  75 6e 6b 6e 6f 77 6e 22  |25,r%,"punknown"|
00000f00  3a c8 99 26 36 34 41 45  32 2c 32 35 2c 72 25 2c  |:..&64AE2,25,r%,|
00000f10  22 73 75 6e 6b 6e 6f 77  6e 22 3a c8 99 26 34 34  |"sunknown":..&44|
00000f20  41 43 33 2c 2c 47 25 3a  c8 99 26 34 34 41 43 33  |AC3,,G%:..&44AC3|
00000f30  2c 2c 44 63 25 3a e7 a4  67 28 6b 24 2b 22 2e 53  |,,Dc%:..g(k$+".S|
00000f40  70 72 69 74 65 73 22 2b  6a 24 29 8c 41 24 3d 6a  |prites"+j$).A$=j|
00000f50  24 8b 41 24 3d 72 24 0d  14 ec 65 e7 ac a4 67 28  |$.A$=r$...e...g(|
00000f60  6b 24 2b 22 2e 53 70 72  69 74 65 73 22 2b 41 24  |k$+".Sprites"+A$|
00000f70  29 8c f2 62 28 22 53 70  72 69 74 65 73 20 66 69  |)..b("Sprites fi|
00000f80  6c 65 20 6d 69 73 73 69  67 6e 20 66 72 6f 6d 20  |le missign from |
00000f90  69 6e 73 69 64 65 20 4d  75 73 69 63 42 6f 78 2e  |inside MusicBox.|
00000fa0  20 53 6f 72 72 79 20 49  20 63 61 6e 27 74 20 63  | Sorry I can't c|
00000fb0  6f 6e 74 69 6e 75 65 2e  22 2c b9 29 0d 14 f5 44  |ontinue.",.)...D|
00000fc0  c8 99 26 34 31 31 43 31  2c 2c 72 25 2c 6b 24 2b  |..&411C1,,r%,k$+|
00000fd0  22 2e 53 70 72 69 74 65  73 22 2b 41 24 b8 3b 41  |".Sprites"+A$.;A|
00000fe0  25 3a e7 a4 67 28 6b 24  2b 22 2e 4d 65 6e 75 22  |%:..g(k$+".Menu"|
00000ff0  2b 6a 24 29 8c 41 24 3d  6a 24 8b 41 24 3d 72 24  |+j$).A$=j$.A$=r$|
00001000  0d 15 07 30 e7 28 41 25  80 31 29 3d 30 80 69 61  |...0.(A%.1)=0.ia|
00001010  25 8c c8 99 26 34 31 31  43 31 2c 2c 72 25 2c 6b  |%...&411C1,,r%,k|
00001020  24 2b 22 2e 4d 65 6e 75  22 2b 41 24 b8 3b 41 25  |$+".Menu"+A$.;A%|
00001030  0d 15 10 37 e7 28 41 25  80 31 29 8c f2 62 28 22  |...7.(A%.1)..b("|
00001040  4e 6f 74 20 65 6e 6f 75  67 68 20 6d 65 6d 6f 72  |Not enough memor|
00001050  79 20 74 6f 20 6c 6f 61  64 20 4d 75 73 69 63 42  |y to load MusicB|
00001060  6f 78 2e 22 2c b9 29 0d  15 19 ad 41 25 3d 21 72  |ox.",.)....A%=!r|
00001070  25 3a de 55 25 20 41 25  21 30 3a c8 99 26 34 34  |%:.U% A%!0:..&44|
00001080  41 43 37 2c 41 25 21 30  2c 41 25 2c 55 25 3a c8  |AC7,A%!0,A%,U%:.|
00001090  99 26 34 34 41 43 33 2c  2c 72 25 3a 72 25 3d 2d  |.&44AC3,,r%:r%=-|
000010a0  31 3a c8 99 26 34 34 41  45 33 2c 31 2b 32 5e 31  |1:..&44AE3,1+2^1|
000010b0  31 2c 55 25 2c 22 53 3f  22 2c 77 62 25 2c 77 62  |1,U%,"S?",wb%,wb|
000010c0  25 2c 70 61 25 b8 2c 2c  5f 25 3a c8 99 26 34 34  |%,pa%.,,_%:..&44|
000010d0  41 45 33 2c 31 2b 32 5e  31 31 2c 55 25 2c 22 53  |AE3,1+2^11,U%,"S|
000010e0  3f 22 2c 77 62 25 2c 77  62 25 2c 70 61 25 b8 2c  |?",wb%,wb%,pa%.,|
000010f0  2c 48 63 25 3a c8 99 26  34 30 38 38 30 2c 22 3c  |,Hc%:..&40880,"<|
00001100  4d 75 73 69 63 42 6f 78  44 24 44 69 72 3e 2e 31  |MusicBoxD$Dir>.1|
00001110  31 22 3a e1 0d 15 73 1f  dd a4 56 28 61 24 29 3a  |1":...s...V(a$):|
00001120  ea 50 25 2c 41 25 2c 42  25 3a e7 47 63 25 3c 65  |.P%,A%,B%:.Gc%<e|
00001130  61 25 8c 0d 16 54 22 62  24 28 47 63 25 29 3d 61  |a%...T"b$(Gc%)=a|
00001140  24 3a 63 25 28 47 63 25  29 3d 30 3a e7 6a 24 3d  |$:c%(Gc%)=0:.j$=|
00001150  22 32 32 22 8c 0d 16 6f  3f c8 99 26 36 34 41 45  |"22"...o?..&64AE|
00001160  32 2c 32 35 38 2c 47 25  2c 48 24 2b 22 2e 22 2b  |2,258,G%,H$+"."+|
00001170  61 24 b8 3b 50 25 3a c8  99 26 36 34 41 45 32 2c  |a$.;P%:..&64AE2,|
00001180  32 35 38 2c 47 25 2c 49  24 2b 22 2e 22 2b 61 24  |258,G%,I$+"."+a$|
00001190  b8 3b 50 25 0d 16 8a 41  cc 3a c8 99 26 36 34 41  |.;P%...A.:..&64A|
000011a0  45 32 2c 32 35 38 2c 47  25 2c 49 24 2b 22 2e 22  |E2,258,G%,I$+"."|
000011b0  2b 61 24 b8 3b 50 25 3a  c8 99 26 36 34 41 45 32  |+a$.;P%:..&64AE2|
000011c0  2c 32 35 38 2c 47 25 2c  48 24 2b 22 2e 22 2b 61  |,258,G%,H$+"."+a|
000011d0  24 b8 3b 50 25 0d 16 a5  05 cd 0d 16 a5 33 41 25  |$.;P%........3A%|
000011e0  3d a4 65 28 72 25 2c 61  24 2c 47 25 2c 22 4e 6f  |=.e(r%,a$,G%,"No|
000011f0  72 6d 61 6c 22 2c 22 50  6c 61 79 69 6e 67 22 2c  |rmal","Playing",|
00001200  22 53 6d 61 6c 6c 22 29  3a e7 41 25 8c 0d 16 db  |"Small"):.A%....|
00001210  13 61 24 28 47 63 25 29  3d c2 61 24 2c 31 31 29  |.a$(Gc%)=.a$,11)|
00001220  0d 16 ed 11 cc 3a 61 24  28 47 63 25 29 3d 22 3f  |.....:a$(Gc%)="?|
00001230  22 0d 16 ff 05 cd 0d 16  ff 52 c8 99 26 36 34 41  |"........R..&64A|
00001240  45 32 2c 32 35 2c 47 25  2c 22 4e 6f 72 6d 61 6c  |E2,25,G%,"Normal|
00001250  22 3a c8 99 26 36 34 41  45 32 2c 32 35 2c 47 25  |":..&64AE2,25,G%|
00001260  2c 22 50 6c 61 79 69 6e  67 22 3a c8 99 26 36 34  |,"Playing":..&64|
00001270  41 45 32 2c 32 35 2c 47  25 2c 22 53 6d 61 6c 6c  |AE2,25,G%,"Small|
00001280  22 3a 47 63 25 2b 3d 31  0d 17 2c 05 cd 0d 17 2c  |":Gc%+=1..,....,|
00001290  06 3d 30 0d 17 7d e7 dd  f2 42 28 49 63 25 2c 6d  |.=0..}...B(Ic%,m|
000012a0  24 2c 4a 63 25 2c 66 24  2c 7a 25 29 3a ea 41 25  |$,Jc%,f$,z%):.A%|
000012b0  2c 42 25 2c 43 25 2c 4b  63 25 2c 4c 63 25 2c 4d  |,B%,C%,Kc%,Lc%,M|
000012c0  63 25 2c 4e 63 25 2c 4f  63 25 2c 50 63 25 2c 51  |c%,Nc%,Oc%,Pc%,Q|
000012d0  63 25 2c 52 63 25 2c 53  63 25 2c 54 63 25 3a c8  |c%,Rc%,Sc%,Tc%:.|
000012e0  99 26 34 34 41 45 32 2c  34 30 2c 49 63 25 2c 6d  |.&44AE2,40,Ic%,m|
000012f0  24 b8 2c 2c 2c 4b 63 25  2c 4c 63 25 2c 53 63 25  |$.,,,Kc%,Lc%,Sc%|
00001300  2c 4d 63 25 3a c8 99 26  34 34 41 45 32 2c 34 30  |,Mc%:..&44AE2,40|
00001310  2c 4a 63 25 2c 66 24 b8  2c 2c 2c 4e 63 25 2c 4f  |,Jc%,f$.,,,Nc%,O|
00001320  63 25 2c 54 63 25 2c 50  63 25 3a c8 99 26 33 35  |c%,Tc%,Pc%:..&35|
00001330  2c 4d 63 25 2c 33 b8 2c  2c 51 63 25 3a c8 99 26  |,Mc%,3.,,Qc%:..&|
00001340  33 35 2c 4d 63 25 2c 34  b8 2c 2c 41 25 3a 4b 63  |35,Mc%,4.,,A%:Kc|
00001350  25 3d 4b 63 25 3c 3c 41  25 3a 68 25 21 38 3d 28  |%=Kc%<<A%:h%!8=(|
00001360  31 3c 3c 41 25 29 2a 7a  25 3a c8 99 26 33 35 2c  |1<<A%)*z%:..&35,|
00001370  4d 63 25 2c 35 b8 2c 2c  41 25 0d 17 c5 99 4c 63  |Mc%,5.,,A%....Lc|
00001380  25 3d 4c 63 25 3c 3c 41  25 3a 68 25 21 31 32 3d  |%=Lc%<<A%:h%!12=|
00001390  28 31 3c 3c 41 25 29 2a  7a 25 3a c8 99 26 33 35  |(1<<A%)*z%:..&35|
000013a0  2c 50 63 25 2c 33 b8 2c  2c 52 63 25 3a c8 99 26  |,Pc%,3.,,Rc%:..&|
000013b0  33 35 2c 50 63 25 2c 34  b8 2c 2c 41 25 3a 4e 63  |35,Pc%,4.,,A%:Nc|
000013c0  25 3d 28 4e 63 25 3c 3c  41 25 29 3a 68 25 21 30  |%=(Nc%<<A%):h%!0|
000013d0  3d 31 3c 3c 41 25 3a c8  99 26 33 35 2c 50 63 25  |=1<<A%:..&35,Pc%|
000013e0  2c 35 b8 2c 2c 41 25 3a  4f 63 25 3d 28 4f 63 25  |,5.,,A%:Oc%=(Oc%|
000013f0  3c 3c 41 25 29 3a 68 25  21 34 3d 31 3c 3c 41 25  |<<A%):h%!4=1<<A%|
00001400  3a e7 51 63 25 3c 3e 52  63 25 84 51 63 25 3c 3e  |:.Qc%<>Rc%.Qc%<>|
00001410  31 35 8c 0d 18 1f 2e f2  62 28 22 56 6f 69 63 65  |15......b("Voice|
00001420  20 73 70 72 69 74 65 73  20 6d 75 73 74 20 68 61  | sprites must ha|
00001430  76 65 20 31 36 20 63 6f  6c 6f 75 72 73 22 2c a3  |ve 16 colours",.|
00001440  29 0d 18 31 88 cc 3a c8  99 26 34 34 41 45 32 2c  |)..1..:..&44AE2,|
00001450  36 30 2c 49 63 25 2c 6d  24 2c 30 b8 2c 41 25 2c  |60,Ic%,m$,0.,A%,|
00001460  42 25 2c 43 25 3a c8 99  26 34 34 41 45 32 2c 35  |B%,C%:..&44AE2,5|
00001470  32 2c 4a 63 25 2c 66 24  2c 28 28 4b 63 25 2b 32  |2,Jc%,f$,((Kc%+2|
00001480  29 2a 7a 25 2d 4e 63 25  29 2f 28 7a 25 2a 32 29  |)*z%-Nc%)/(z%*2)|
00001490  2c 28 28 4c 63 25 2b 32  29 2a 7a 25 2d 4f 63 25  |,((Lc%+2)*z%-Oc%|
000014a0  29 2f 28 7a 25 2a 32 29  2c 38 2c 68 25 2c 30 3a  |)/(z%*2),8,h%,0:|
000014b0  c8 99 26 32 45 2c 36 30  2c 41 25 2c 42 25 2c 43  |..&2E,60,A%,B%,C|
000014c0  25 3a e7 53 63 25 3d 31  8c 0d 18 55 47 c8 99 26  |%:.Sc%=1...UG..&|
000014d0  34 34 41 45 32 2c 36 31  2c 49 63 25 2c 6d 24 2c  |44AE2,61,Ic%,m$,|
000014e0  30 b8 2c 41 25 2c 42 25  2c 43 25 3a ef 31 38 2c  |0.,A%,B%,C%:.18,|
000014f0  30 2c 31 32 38 2b 36 33  2c 32 33 2c 31 37 2c 33  |0,128+63,23,17,3|
00001500  2c 26 43 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,&C0,0,0,0,0,0,0|
00001510  0d 18 67 5f c8 99 26 34  34 41 45 32 2c 35 30 2c  |..g_..&44AE2,50,|
00001520  4a 63 25 2c 66 24 2c 28  28 4b 63 25 2b 32 29 2a  |Jc%,f$,((Kc%+2)*|
00001530  7a 25 2d 4e 63 25 29 2f  28 7a 25 2a 32 29 2c 28  |z%-Nc%)/(z%*2),(|
00001540  28 4c 63 25 2b 32 29 2a  7a 25 2d 4f 63 25 29 2f  |(Lc%+2)*z%-Oc%)/|
00001550  28 7a 25 2a 32 29 2c 38  2c 68 25 2c 30 3a c8 99  |(z%*2),8,h%,0:..|
00001560  26 32 45 2c 36 31 2c 41  25 2c 42 25 2c 43 25 0d  |&2E,61,A%,B%,C%.|
00001570  18 82 05 cd 0d 18 82 05  cd 0d 18 8b 05 e1 0d 18  |................|
00001580  94 4a dd f2 74 61 28 61  24 29 3a ea 65 25 2c 66  |.J..ta(a$):.e%,f|
00001590  25 2c 6c 24 2c 59 24 3a  6c 24 3d c2 61 24 2c 31  |%,l$,Y$:l$=.a$,1|
000015a0  30 29 3a e3 65 25 3d 31  b8 33 31 3a c8 99 26 36  |0):.e%=1.31:..&6|
000015b0  30 31 38 33 2c 30 2c 65  25 b8 66 25 3a e7 a4 63  |0183,0,e%.f%:..c|
000015c0  28 66 25 29 3d 61 24 8c  0d 19 5a 2a 62 24 28 47  |(f%)=a$...Z*b$(G|
000015d0  63 25 29 3d 61 24 3a 63  25 28 47 63 25 29 3d 26  |c%)=a$:c%(Gc%)=&|
000015e0  38 30 30 30 30 30 30 30  3a e7 6a 24 3d 22 32 32  |80000000:.j$="22|
000015f0  22 8c 0d 19 75 3f c8 99  26 36 34 41 45 32 2c 32  |"...u?..&64AE2,2|
00001600  35 38 2c 47 25 2c 4a 24  2b 22 2e 22 2b 6c 24 b8  |58,G%,J$+"."+l$.|
00001610  3b 50 25 3a c8 99 26 36  34 41 45 32 2c 32 35 38  |;P%:..&64AE2,258|
00001620  2c 47 25 2c 4b 24 2b 22  2e 22 2b 6c 24 b8 3b 50  |,G%,K$+"."+l$.;P|
00001630  25 0d 19 90 41 cc 3a c8  99 26 36 34 41 45 32 2c  |%...A.:..&64AE2,|
00001640  32 35 38 2c 47 25 2c 4b  24 2b 22 2e 22 2b 6c 24  |258,G%,K$+"."+l$|
00001650  b8 3b 50 25 3a c8 99 26  36 34 41 45 32 2c 32 35  |.;P%:..&64AE2,25|
00001660  38 2c 47 25 2c 4a 24 2b  22 2e 22 2b 6c 24 b8 3b  |8,G%,J$+"."+l$.;|
00001670  50 25 0d 19 ab 05 cd 0d  19 ab 2d e7 a4 65 28 72  |P%........-..e(r|
00001680  25 2c 6c 24 2c 47 25 2c  22 4e 6f 72 6d 61 6c 22  |%,l$,G%,"Normal"|
00001690  2c 22 50 6c 61 79 69 6e  67 22 2c 22 53 6d 61 6c  |,"Playing","Smal|
000016a0  6c 22 29 8c 0d 19 b4 0e  61 24 28 47 63 25 29 3d  |l").....a$(Gc%)=|
000016b0  6c 24 0d 19 c6 11 cc 3a  61 24 28 47 63 25 29 3d  |l$.....:a$(Gc%)=|
000016c0  22 3f 22 0d 19 d8 05 cd  0d 19 d8 59 c8 99 26 36  |"?"........Y..&6|
000016d0  34 41 45 32 2c 32 35 2c  47 25 2c 22 4e 6f 72 6d  |4AE2,25,G%,"Norm|
000016e0  61 6c 22 3a c8 99 26 36  34 41 45 32 2c 32 35 2c  |al":..&64AE2,25,|
000016f0  47 25 2c 22 50 6c 61 79  69 6e 67 22 3a c8 99 26  |G%,"Playing":..&|
00001700  36 34 41 45 32 2c 32 35  2c 47 25 2c 22 53 6d 61  |64AE2,25,G%,"Sma|
00001710  6c 6c 22 3a 47 63 25 2b  3d 31 3a 45 63 25 2b 3d  |ll":Gc%+=1:Ec%+=|
00001720  31 0d 1a 0e 05 cd 0d 1a  0e 07 ed 3a e1 0d 1a 20  |1..........:... |
00001730  6b dd f2 76 61 28 41 24  2c 55 63 25 2c 4c 24 29  |k..va(A$,Uc%,L$)|
00001740  3a ea 56 63 25 2c 52 25  2c 59 25 2c 46 24 2c 50  |:.Vc%,R%,Y%,F$,P|
00001750  25 2c 57 63 25 2c 41 25  3a 50 25 3d 30 3a f5 3a  |%,Wc%,A%:P%=0:.:|
00001760  c8 99 26 32 30 30 30 43  2c 31 30 2c 41 24 2c 68  |..&2000C,10,A$,h|
00001770  25 2c 31 2c 50 25 2c 36  34 2c 22 2a 22 b8 41 25  |%,1,P%,64,"*".A%|
00001780  2c 2c 2c 52 25 2c 50 25  3b 57 63 25 3a e7 28 57  |,,,R%,P%;Wc%:.(W|
00001790  63 25 80 31 29 3d 30 8c  0d 1a 68 0a e7 52 25 3e  |c%.1)=0...h..R%>|
000017a0  30 8c 0d 1a 71 3a 46 24  3d a4 63 28 68 25 2b 32  |0...q:F$=.c(h%+2|
000017b0  30 29 3a e7 28 28 21 68  25 29 80 26 46 46 46 30  |0):.((!h%).&FFF0|
000017c0  30 30 30 30 29 3d 26 46  46 46 30 30 30 30 30 80  |0000)=&FFF00000.|
000017d0  28 68 25 21 31 36 80 31  29 3d 31 8c 0d 1a 83 12  |(h%!16.1)=1.....|
000017e0  56 63 25 3d 21 68 25 80  26 46 46 46 30 30 0d 1a  |Vc%=!h%.&FFF00..|
000017f0  95 0b cc 3a 56 63 25 3d  30 0d 1a a7 05 cd 0d 1a  |...:Vc%=0.......|
00001800  a7 10 e7 56 63 25 3d 26  46 46 41 30 30 8c 0d 1a  |...Vc%=&FFA00...|
00001810  b0 0d e7 45 63 25 3e 55  63 25 8c 0d 1a b9 76 f2  |...Ec%>Uc%....v.|
00001820  62 28 22 4d 75 73 69 63  20 42 6f 78 20 63 61 6e  |b("Music Box can|
00001830  20 6f 6e 6c 79 20 68 61  6e 64 6c 65 20 61 20 6d  | only handle a m|
00001840  61 78 69 6d 75 6d 20 6f  66 20 22 2b c3 28 65 61  |aximum of "+.(ea|
00001850  25 29 2b 22 20 69 6e 73  74 72 75 6d 65 6e 74 73  |%)+" instruments|
00001860  2e 20 53 6f 20 49 20 73  68 61 6c 6c 20 6f 6e 6c  |. So I shall onl|
00001870  79 20 75 73 65 20 74 68  65 20 66 69 72 73 74 20  |y use the first |
00001880  22 2b c3 28 65 61 25 29  2b 22 2e 22 2c a3 29 3a  |"+.(ea%)+".",.):|
00001890  e1 0d 1a c2 16 cc 3a 56  63 25 3d a0 28 4c 24 29  |......:Vc%=.(L$)|
000018a0  3a 45 63 25 2b 3d 31 0d  1a e6 05 cd 0d 1a e6 05  |:Ec%+=1.........|
000018b0  cd 0d 1a ef 28 46 24 3d  41 24 2b 22 2e 22 2b 46  |....(F$=A$+"."+F|
000018c0  24 3a e7 68 25 21 31 36  3d 32 8c f2 76 61 28 46  |$:.h%!16=2..va(F|
000018d0  24 2c 55 63 25 2c 4c 24  29 0d 1b 01 05 cd 0d 1b  |$,Uc%,L$).......|
000018e0  0a 19 cc 3a f2 62 28 a4  63 28 41 25 2b 34 29 2c  |...:.b(.c(A%+4),|
000018f0  a3 29 3a 52 25 3d 30 0d  1b 2e 05 cd 0d 1b 2e 1b  |.):R%=0.........|
00001900  fd 52 25 3d 30 84 50 25  3d 2d 31 84 45 63 25 3e  |.R%=0.P%=-1.Ec%>|
00001910  55 63 25 2b 31 3a e1 0d  1b 40 3a dd a4 65 28 49  |Uc%+1:...@:..e(I|
00001920  63 25 2c 61 24 2c 47 25  2c 73 24 2c 6c 24 2c 70  |c%,a$,G%,s$,l$,p|
00001930  24 29 3a ea 41 25 3a c8  99 26 36 34 41 45 32 2c  |$):.A%:..&64AE2,|
00001940  32 36 31 2c 47 25 2c 73  24 b8 41 25 3a e7 41 25  |261,G%,s$.A%:.A%|
00001950  8c 0d 1b 88 6c 61 24 3d  c2 61 24 2c 31 31 29 3a  |....la$=.a$,11):|
00001960  c8 99 26 34 34 41 45 32  2c 32 36 30 2c 44 63 25  |..&44AE2,260,Dc%|
00001970  2c 22 5a 22 2c 49 63 25  2c 61 24 2c 30 b8 3b 41  |,"Z",Ic%,a$,0.;A|
00001980  25 3a c8 99 26 34 34 41  45 32 2c 32 36 30 2c 44  |%:..&44AE2,260,D|
00001990  63 25 2c 22 70 5a 22 2c  49 63 25 2c 22 70 22 2b  |c%,"pZ",Ic%,"p"+|
000019a0  61 24 2c 30 b8 3b 50 25  3a 41 25 3d 28 50 25 84  |a$,0.;P%:A%=(P%.|
000019b0  41 25 29 3a e7 70 24 3c  3e 22 2d 22 8c 0d 1b b5  |A%):.p$<>"-"....|
000019c0  3d c8 99 26 34 34 41 45  32 2c 32 36 30 2c 44 63  |=..&44AE2,260,Dc|
000019d0  25 2c 22 73 5a 22 2c 49  63 25 2c 22 73 22 2b 61  |%,"sZ",Ic%,"s"+a|
000019e0  24 2c 30 b8 3b 50 25 3a  41 25 3d 28 28 28 50 25  |$,0.;P%:A%=(((P%|
000019f0  84 41 25 29 80 31 29 3d  30 29 0d 1b d0 05 cd 0d  |.A%).1)=0)......|
00001a00  1b d0 08 e7 41 25 8c 0d  1b d9 31 f2 42 28 49 63  |....A%....1.B(Ic|
00001a10  25 2c 61 24 2c 47 25 2c  73 24 2c 31 29 3a c8 99  |%,a$,G%,s$,1):..|
00001a20  26 36 34 41 45 32 2c 32  36 31 2c 47 25 2c 6c 24  |&64AE2,261,G%,l$|
00001a30  b8 42 25 3a e7 42 25 8c  0d 1b f4 1a f2 42 28 49  |.B%:.B%......B(I|
00001a40  63 25 2c 22 70 22 2b 61  24 2c 47 25 2c 6c 24 2c  |c%,"p"+a$,G%,l$,|
00001a50  31 29 0d 1c 06 1c cc 3a  f2 42 28 49 63 25 2c 22  |1).....:.B(Ic%,"|
00001a60  70 22 2b 61 24 2c 47 25  2c 73 24 2c 31 29 0d 1c  |p"+a$,G%,s$,1)..|
00001a70  18 05 cd 0d 1c 18 0d e7  70 24 3c 3e 22 2d 22 8c  |........p$<>"-".|
00001a80  0d 1c 21 1e c8 99 26 36  34 41 45 32 2c 32 36 31  |..!...&64AE2,261|
00001a90  2c 47 25 2c 70 24 b8 42  25 3a e7 42 25 8c 0d 1c  |,G%,p$.B%:.B%...|
00001aa0  33 1a f2 42 28 49 63 25  2c 22 73 22 2b 61 24 2c  |3..B(Ic%,"s"+a$,|
00001ab0  47 25 2c 70 24 2c 31 29  0d 1c 45 1c cc 3a f2 42  |G%,p$,1)..E..:.B|
00001ac0  28 49 63 25 2c 22 73 22  2b 61 24 2c 47 25 2c 73  |(Ic%,"s"+a$,G%,s|
00001ad0  24 2c 32 29 0d 1c 57 05  cd 0d 1c 57 05 cd 0d 1c  |$,2)..W....W....|
00001ae0  60 43 cc 3a c8 99 26 36  34 41 45 32 2c 32 35 2c  |`C.:..&64AE2,25,|
00001af0  47 25 2c 61 24 3a c8 99  26 36 34 41 45 32 2c 32  |G%,a$:..&64AE2,2|
00001b00  35 2c 47 25 2c 22 70 22  2b 61 24 3a c8 99 26 36  |5,G%,"p"+a$:..&6|
00001b10  34 41 45 32 2c 32 35 2c  47 25 2c 22 73 22 2b 61  |4AE2,25,G%,"s"+a|
00001b20  24 0d 1c 8d 05 cd 0d 1c  8d 11 cc 3a 41 25 3d b9  |$..........:A%=.|
00001b30  3a e7 ac 46 63 25 8c 0d  1c a8 9b f2 62 28 22 53  |:..Fc%......b("S|
00001b40  6f 6d 65 20 69 6e 73 74  72 75 6d 65 6e 74 73 20  |ome instruments |
00001b50  28 65 67 20 22 2b 61 24  2b 22 29 20 64 6f 20 6e  |(eg "+a$+") do n|
00001b60  6f 74 20 68 61 76 65 20  61 20 73 70 72 69 74 65  |ot have a sprite|
00001b70  20 66 69 6c 65 20 63 6f  6e 74 61 69 6e 69 6e 67  | file containing|
00001b80  20 61 20 73 70 72 69 74  65 20 63 61 6c 6c 65 64  | a sprite called|
00001b90  20 27 22 2b 73 24 2b 22  27 2e 20 49 20 77 69 6c  | '"+s$+"'. I wil|
00001ba0  6c 20 63 72 65 61 74 65  20 61 20 73 70 72 69 74  |l create a sprit|
00001bb0  65 20 66 6f 72 20 74 68  65 73 65 20 69 6e 73 74  |e for these inst|
00001bc0  72 75 6d 65 6e 74 73 2e  22 2c a3 29 3a 46 63 25  |ruments.",.):Fc%|
00001bd0  3d b9 0d 1c c3 05 cd 0d  1c c3 6c 61 24 3d c2 61  |=.........la$=.a|
00001be0  24 2c 31 31 29 3a c8 99  26 34 34 41 45 32 2c 32  |$,11):..&44AE2,2|
00001bf0  36 30 2c 44 63 25 2c 22  5a 22 2c 49 63 25 2c 61  |60,Dc%,"Z",Ic%,a|
00001c00  24 2c 30 b8 3b 41 25 3a  c8 99 26 34 34 41 45 32  |$,0.;A%:..&44AE2|
00001c10  2c 32 36 30 2c 44 63 25  2c 22 70 5a 22 2c 49 63  |,260,Dc%,"pZ",Ic|
00001c20  25 2c 22 70 22 2b 61 24  2c 30 b8 3b 50 25 3a 41  |%,"p"+a$,0.;P%:A|
00001c30  25 3d 28 50 25 84 41 25  29 3a e7 70 24 3c 3e 22  |%=(P%.A%):.p$<>"|
00001c40  2d 22 8c 0d 1c f0 3d c8  99 26 34 34 41 45 32 2c  |-"....=..&44AE2,|
00001c50  32 36 30 2c 44 63 25 2c  22 73 5a 22 2c 49 63 25  |260,Dc%,"sZ",Ic%|
00001c60  2c 22 73 22 2b 61 24 2c  30 b8 3b 50 25 3a 41 25  |,"s"+a$,0.;P%:A%|
00001c70  3d 28 28 28 50 25 84 41  25 29 80 31 29 3d 30 29  |=(((P%.A%).1)=0)|
00001c80  0d 1d 0b 05 cd 0d 1d 0b  08 e7 41 25 8c 0d 1d 14  |..........A%....|
00001c90  50 f2 78 61 28 49 63 25  2c 61 24 2c 47 25 2c 61  |P.xa(Ic%,a$,G%,a|
00001ca0  24 2c 31 29 3a f2 78 61  28 49 63 25 2c 22 70 22  |$,1):.xa(Ic%,"p"|
00001cb0  2b 61 24 2c 47 25 2c 61  24 2c 31 29 3a e7 70 24  |+a$,G%,a$,1):.p$|
00001cc0  3c 3e 22 2d 22 8c f2 78  61 28 49 63 25 2c 22 73  |<>"-"..xa(Ic%,"s|
00001cd0  22 2b 61 24 2c 47 25 2c  61 24 2c 32 29 0d 1d 2f  |"+a$,G%,a$,2)../|
00001ce0  43 cc 3a c8 99 26 36 34  41 45 32 2c 32 35 2c 47  |C.:..&64AE2,25,G|
00001cf0  25 2c 61 24 3a c8 99 26  36 34 41 45 32 2c 32 35  |%,a$:..&64AE2,25|
00001d00  2c 47 25 2c 22 70 22 2b  61 24 3a c8 99 26 36 34  |,G%,"p"+a$:..&64|
00001d10  41 45 32 2c 32 35 2c 47  25 2c 22 73 22 2b 61 24  |AE2,25,G%,"s"+a$|
00001d20  0d 1d 5c 05 cd 0d 1d 5c  05 cd 0d 1d 65 07 3d 41  |..\....\....e.=A|
00001d30  25 0d 1d c8 f0 dd f2 78  61 28 49 63 25 2c 6d 24  |%......xa(Ic%,m$|
00001d40  2c 4a 63 25 2c 66 24 2c  7a 25 29 3a ea 41 25 2c  |,Jc%,f$,z%):.A%,|
00001d50  42 25 2c 43 25 2c 4b 63  25 2c 4c 63 25 2c 4d 63  |B%,C%,Kc%,Lc%,Mc|
00001d60  25 2c 4e 63 25 2c 4f 63  25 2c 50 63 25 2c 51 63  |%,Nc%,Oc%,Pc%,Qc|
00001d70  25 2c 52 63 25 2c 53 63  25 2c 54 63 25 3a c8 99  |%,Rc%,Sc%,Tc%:..|
00001d80  26 34 34 41 45 32 2c 34  30 2c 49 63 25 2c 6d 24  |&44AE2,40,Ic%,m$|
00001d90  b8 2c 2c 2c 4b 63 25 2c  4c 63 25 2c 53 63 25 2c  |.,,,Kc%,Lc%,Sc%,|
00001da0  4d 63 25 3a c8 99 26 33  35 2c 4d 63 25 2c 34 b8  |Mc%:..&35,Mc%,4.|
00001db0  2c 2c 41 25 3a 4b 63 25  3d 4b 63 25 3c 3c 41 25  |,,A%:Kc%=Kc%<<A%|
00001dc0  3a 68 25 21 38 3d 28 31  3c 3c 41 25 29 2a 7a 25  |:h%!8=(1<<A%)*z%|
00001dd0  3a c8 99 26 33 35 2c 4d  63 25 2c 35 b8 2c 2c 41  |:..&35,Mc%,5.,,A|
00001de0  25 3a 4c 63 25 3d 4c 63  25 3c 3c 41 25 3a 68 25  |%:Lc%=Lc%<<A%:h%|
00001df0  21 31 32 3d 28 31 3c 3c  41 25 29 2a 7a 25 3a c8  |!12=(1<<A%)*z%:.|
00001e00  99 26 33 35 2c 50 63 25  2c 34 b8 2c 2c 41 25 3a  |.&35,Pc%,4.,,A%:|
00001e10  4e 63 25 3d 31 36 2a 32  2a 32 3a 68 25 21 30 3d  |Nc%=16*2*2:h%!0=|
00001e20  34 0d 1e 34 50 c8 99 26  33 35 2c 50 63 25 2c 35  |4..4P..&35,Pc%,5|
00001e30  b8 2c 2c 41 25 3a 4f 63  25 3d 33 36 2a 32 3a 68  |.,,A%:Oc%=36*2:h|
00001e40  25 21 34 3d 38 3a c8 99  26 34 34 41 45 32 2c 36  |%!4=8:..&44AE2,6|
00001e50  30 2c 49 63 25 2c 6d 24  2c 30 b8 2c 41 25 2c 42  |0,Ic%,m$,0.,A%,B|
00001e60  25 2c 43 25 3a e6 38 3a  e7 a9 28 66 24 29 3e 31  |%,C%:.8:..(f$)>1|
00001e70  8c 0d 1e 6a 9b c8 99 26  34 34 41 45 32 2c 35 31  |...j...&44AE2,51|
00001e80  2c 97 28 c1 66 24 2c 31  2c 31 29 29 2c 2c 28 28  |,.(.f$,1,1)),,((|
00001e90  4b 63 25 2b 32 29 2a 7a  25 2d 4e 63 25 29 2f 28  |Kc%+2)*z%-Nc%)/(|
00001ea0  7a 25 2a 32 29 2c 28 28  4c 63 25 2b 32 29 2a 7a  |z%*2),((Lc%+2)*z|
00001eb0  25 2d 4f 63 25 29 2f 28  7a 25 2a 32 29 2c 30 2c  |%-Oc%)/(z%*2),0,|
00001ec0  68 25 3a c8 99 26 34 34  41 45 32 2c 35 31 2c 97  |h%:..&44AE2,51,.|
00001ed0  28 c1 66 24 2c 32 2c 31  29 29 2c 2c 28 28 4b 63  |(.f$,2,1)),,((Kc|
00001ee0  25 2b 32 29 2a 7a 25 29  2f 28 7a 25 2a 32 29 2c  |%+2)*z%)/(z%*2),|
00001ef0  28 28 4c 63 25 2b 32 29  2a 7a 25 2d 4f 63 25 29  |((Lc%+2)*z%-Oc%)|
00001f00  2f 28 7a 25 2a 32 29 2c  30 2c 68 25 0d 1e 85 55  |/(z%*2),0,h%...U|
00001f10  cc 3a c8 99 26 34 34 41  45 32 2c 35 31 2c 97 28  |.:..&44AE2,51,.(|
00001f20  c1 66 24 2c 31 2c 31 29  29 2c 2c 28 28 4b 63 25  |.f$,1,1)),,((Kc%|
00001f30  2b 32 29 2a 7a 25 2d 4e  63 25 2f 32 29 2f 28 7a  |+2)*z%-Nc%/2)/(z|
00001f40  25 2a 32 29 2c 28 28 4c  63 25 2b 32 29 2a 7a 25  |%*2),((Lc%+2)*z%|
00001f50  2d 4f 63 25 29 2f 28 7a  25 2a 32 29 2c 30 2c 68  |-Oc%)/(z%*2),0,h|
00001f60  25 0d 1e 97 05 cd 0d 1e  97 1d c8 99 26 32 45 2c  |%...........&2E,|
00001f70  36 30 2c 41 25 2c 42 25  2c 43 25 3a e7 53 63 25  |60,A%,B%,C%:.Sc%|
00001f80  3d 31 8c 0d 1e a9 43 c8  99 26 34 34 41 45 32 2c  |=1....C..&44AE2,|
00001f90  36 31 2c 49 63 25 2c 6d  24 2c 30 b8 2c 41 25 2c  |61,Ic%,m$,0.,A%,|
00001fa0  42 25 2c 43 25 3a ef 31  38 2c 30 2c 36 33 2c 32  |B%,C%:.18,0,63,2|
00001fb0  33 2c 31 37 2c 33 2c 26  43 30 2c 30 2c 30 2c 30  |3,17,3,&C0,0,0,0|
00001fc0  2c 30 2c 30 2c 30 0d 1e  bb 0d e7 a9 28 66 24 29  |,0,0,0......(f$)|
00001fd0  3e 31 8c 0d 1e c4 9b c8  99 26 34 34 41 45 32 2c  |>1.......&44AE2,|
00001fe0  35 31 2c 97 28 c1 66 24  2c 31 2c 31 29 29 2c 2c  |51,.(.f$,1,1)),,|
00001ff0  28 28 4b 63 25 2b 32 29  2a 7a 25 2d 4e 63 25 29  |((Kc%+2)*z%-Nc%)|
00002000  2f 28 7a 25 2a 32 29 2c  28 28 4c 63 25 2b 32 29  |/(z%*2),((Lc%+2)|
00002010  2a 7a 25 2d 4f 63 25 29  2f 28 7a 25 2a 32 29 2c  |*z%-Oc%)/(z%*2),|
00002020  30 2c 68 25 3a c8 99 26  34 34 41 45 32 2c 35 31  |0,h%:..&44AE2,51|
00002030  2c 97 28 c1 66 24 2c 32  2c 31 29 29 2c 2c 28 28  |,.(.f$,2,1)),,((|
00002040  4b 63 25 2b 32 29 2a 7a  25 29 2f 28 7a 25 2a 32  |Kc%+2)*z%)/(z%*2|
00002050  29 2c 28 28 4c 63 25 2b  32 29 2a 7a 25 2d 4f 63  |),((Lc%+2)*z%-Oc|
00002060  25 29 2f 28 7a 25 2a 32  29 2c 30 2c 68 25 0d 1e  |%)/(z%*2),0,h%..|
00002070  df 55 cc 3a c8 99 26 34  34 41 45 32 2c 35 31 2c  |.U.:..&44AE2,51,|
00002080  97 28 c1 66 24 2c 31 2c  31 29 29 2c 2c 28 28 4b  |.(.f$,1,1)),,((K|
00002090  63 25 2b 32 29 2a 7a 25  2d 4e 63 25 2f 32 29 2f  |c%+2)*z%-Nc%/2)/|
000020a0  28 7a 25 2a 32 29 2c 28  28 4c 63 25 2b 32 29 2a  |(z%*2),((Lc%+2)*|
000020b0  7a 25 2d 4f 63 25 29 2f  28 7a 25 2a 32 29 2c 30  |z%-Oc%)/(z%*2),0|
000020c0  2c 68 25 0d 1e f1 05 cd  0d 1e f1 15 c8 99 26 32  |,h%...........&2|
000020d0  45 2c 36 31 2c 41 25 2c  42 25 2c 43 25 0d 1f 03  |E,61,A%,B%,C%...|
000020e0  05 cd 0d 1f 03 05 e1 0d  1f 0c 5c dd f2 77 61 3a  |..........\..wa:|
000020f0  76 24 3d a4 6f 28 22 54  75 6e 65 22 29 3a 42 24  |v$=.o("Tune"):B$|
00002100  3d a4 6f 28 22 42 65 61  74 22 29 3a 43 24 3d a4  |=.o("Beat"):C$=.|
00002110  6f 28 22 53 6f 75 6e 64  22 29 3a 44 24 3d a4 6f  |o("Sound"):D$=.o|
00002120  28 22 43 68 6f 72 64 22  29 3a 58 63 25 3d a3 3a  |("Chord"):Xc%=.:|
00002130  59 63 25 3d a3 3a 5a 63  25 3d a3 3a 5f 63 25 3d  |Yc%=.:Zc%=.:_c%=|
00002140  a3 3a e1 0d 1f 6f 82 dd  a4 6f 28 63 24 29 3a ea  |.:...o...o(c$):.|
00002150  73 25 2c 41 25 2c 60 63  25 2c 66 25 2c 62 24 2c  |s%,A%,`c%,f%,b$,|
00002160  55 63 25 2c 63 25 3a 21  67 25 3d 31 3a 67 25 21  |Uc%,c%:!g%=1:g%!|
00002170  34 3d 44 61 25 3a c8 99  26 34 34 41 45 41 2c 30  |4=Da%:..&44AEA,0|
00002180  2c 22 3c 4d 42 22 2b 63  24 2b 22 46 69 6c 65 73  |,"<MB"+c$+"Files|
00002190  24 44 69 72 3e 22 2c 67  25 2c 63 24 2b 22 2a 22  |$Dir>",g%,c$+"*"|
000021a0  2c 70 61 25 b8 2c 73 25  3a 66 25 3d 21 73 25 3a  |,pa%.,s%:f%=!s%:|
000021b0  60 63 25 3d 21 66 25 3a  55 63 25 3d 31 3a e7 60  |`c%=!f%:Uc%=1:.`|
000021c0  63 25 3e 30 8c 0d 1f c9  5b 66 25 2b 3d 34 2b 31  |c%>0....[f%+=4+1|
000021d0  36 2a 60 63 25 2d 31 36  2b a9 28 63 24 29 3a f5  |6*`c%-16+.(c$):.|
000021e0  3a 41 25 3d 66 25 3a 66  25 2d 3d 31 36 3a c8 95  |:A%=f%:f%-=16:..|
000021f0  3f 41 25 3e 3d 97 28 22  30 22 29 80 3f 41 25 3c  |?A%>=.("0").?A%<|
00002200  3d 97 28 22 39 22 29 3a  41 25 2b 3d 31 3a ce 3a  |=.("9"):A%+=1:.:|
00002210  e7 3f 41 25 3c 33 32 84  3f 41 25 3d 31 32 37 8c  |.?A%<32.?A%=127.|
00002220  0d 20 11 26 63 25 3d 28  a0 28 a4 63 28 66 25 2b  |. .&c%=(.(.c(f%+|
00002230  31 36 29 29 29 2b 31 3a  e7 63 25 3e 55 63 25 8c  |16)))+1:.c%>Uc%.|
00002240  55 63 25 3d 63 25 0d 20  23 05 cd 0d 20 2c 11 60  |Uc%=c%. #... ,.`|
00002250  63 25 2d 3d 31 3a fd 60  63 25 3d 30 0d 20 47 05  |c%-=1:.`c%=0. G.|
00002260  cd 0d 20 47 1b c8 99 26  34 34 41 43 33 2c 2c 73  |.. G...&44AC3,,s|
00002270  25 3a 3d 63 24 2b c3 28  55 63 25 29 0d 20 6b 4a  |%:=c$+.(Uc%). kJ|
00002280  dd f2 75 61 3a ea 41 25  2c 61 24 2c 61 64 25 2c  |..ua:.A%,a$,ad%,|
00002290  62 64 25 3a 61 64 25 3d  a3 3a 62 64 25 3d a3 3a  |bd%:ad%=.:bd%=.:|
000022a0  c8 99 26 32 30 30 32 33  2c 47 24 2c 68 25 2c 2d  |..&20023,G$,h%,-|
000022b0  31 2c 30 2c 30 b8 2c 2c  41 25 3a e7 41 25 3c 30  |1,0,0.,,A%:.A%<0|
000022c0  8c 62 64 25 3d b9 0d 20  8f 39 c8 99 26 32 30 30  |.bd%=.. .9..&200|
000022d0  32 33 2c 22 4d 42 42 65  61 74 46 69 6c 65 73 24  |23,"MBBeatFiles$|
000022e0  44 69 72 22 2c 68 25 2c  2d 31 2c 30 2c 30 b8 2c  |Dir",h%,-1,0,0.,|
000022f0  2c 41 25 3a e7 41 25 3c  30 8c 61 64 25 3d b9 0d  |,A%:.A%<0.ad%=..|
00002300  20 a1 0e e7 61 64 25 80  62 64 25 8c e1 0d 20 aa  | ...ad%.bd%... .|
00002310  13 e7 28 ac 61 64 25 29  80 28 ac 62 64 25 29 8c  |..(.ad%).(.bd%).|
00002320  0d 20 b3 50 f2 79 61 28  22 50 6c 65 61 73 65 20  |. .P.ya("Please |
00002330  69 6e 73 65 72 74 20 61  20 64 69 73 63 20 63 6f  |insert a disc co|
00002340  6e 74 61 69 6e 69 6e 67  20 21 4d 42 49 6e 73 74  |ntaining !MBInst|
00002350  73 20 61 6e 64 20 21 4d  42 46 69 6c 65 73 20 69  |s and !MBFiles i|
00002360  6e 74 6f 20 64 72 69 76  65 20 30 20 22 2c 33 29  |nto drive 0 ",3)|
00002370  0d 20 c5 0c cc 3a e7 ac  61 64 25 8c 0d 20 ce 43  |. ...:..ad%.. .C|
00002380  f2 79 61 28 22 50 6c 65  61 73 65 20 69 6e 73 65  |.ya("Please inse|
00002390  72 74 20 61 20 64 69 73  63 20 63 6f 6e 74 61 69  |rt a disc contai|
000023a0  6e 69 6e 67 20 21 4d 42  46 69 6c 65 73 20 69 6e  |ning !MBFiles in|
000023b0  74 6f 20 64 72 69 76 65  20 30 20 22 2c 31 29 0d  |to drive 0 ",1).|
000023c0  20 e0 45 cc 3a f2 79 61  28 22 50 6c 65 61 73 65  | .E.:.ya("Please|
000023d0  20 69 6e 73 65 72 74 20  61 20 64 69 73 63 20 63  | insert a disc c|
000023e0  6f 6e 74 61 69 6e 69 6e  67 20 21 4d 42 49 6e 73  |ontaining !MBIns|
000023f0  74 73 20 69 6e 74 6f 20  64 72 69 76 65 20 30 20  |ts into drive 0 |
00002400  22 2c 32 29 0d 20 f2 05  cd 0d 20 f2 05 cd 0d 20  |",2). .... .... |
00002410  fb 05 e1 0d 21 04 5c dd  f2 79 61 28 4d 24 2c 46  |....!.\..ya(M$,F|
00002420  25 29 3a f5 3a 21 68 25  3d 30 3a 24 28 68 25 2b  |%):.:!h%=0:$(h%+|
00002430  34 29 3d 4d 24 2b bd 30  3a c8 99 26 34 30 30 44  |4)=M$+.0:..&400D|
00002440  46 2c 68 25 2c 33 2b 32  5e 34 2c 22 4d 65 73 73  |F,h%,3+2^4,"Mess|
00002450  61 67 65 20 66 72 6f 6d  20 4d 75 73 69 63 42 6f  |age from MusicBo|
00002460  78 22 b8 2c 41 25 3a e7  41 25 3c 3e 31 8c e1 0d  |x".,A%:.A%<>1...|
00002470  21 3a 09 c8 8e 46 25 ca  0d 21 43 2a c9 31 3a c8  |!:...F%..!C*.1:.|
00002480  99 26 32 30 30 30 38 2c  31 37 2c 22 41 44 46 53  |.&20008,17,"ADFS|
00002490  3a 3a 30 2e 24 2e 21 4d  42 46 69 6c 65 73 22 b8  |::0.$.!MBFiles".|
000024a0  41 25 0d 21 5e 26 c9 32  3a c8 99 26 38 2c 31 37  |A%.!^&.2:..&8,17|
000024b0  2c 22 41 44 46 53 3a 3a  30 2e 24 2e 21 4d 42 49  |,"ADFS::0.$.!MBI|
000024c0  6e 73 74 73 22 b8 41 25  0d 21 70 50 c9 33 3a c8  |nsts".A%.!pP.3:.|
000024d0  99 26 32 30 30 30 38 2c  31 37 2c 22 41 44 46 53  |.&20008,17,"ADFS|
000024e0  3a 3a 30 2e 24 2e 21 4d  42 46 69 6c 65 73 22 b8  |::0.$.!MBFiles".|
000024f0  41 25 3a e7 41 25 3d 32  8c c8 99 26 38 2c 31 37  |A%:.A%=2...&8,17|
00002500  2c 22 41 44 46 53 3a 3a  30 2e 24 2e 21 4d 42 49  |,"ADFS::0.$.!MBI|
00002510  6e 73 74 73 22 b8 41 25  0d 21 82 05 cb 0d 21 8b  |nsts".A%.!....!.|
00002520  70 fd 41 25 3d 32 3a c8  99 26 34 30 32 34 35 2c  |p.A%=2:..&40245,|
00002530  22 30 22 2c 68 25 3a 61  24 3d 22 41 44 46 53 3a  |"0",h%:a$="ADFS:|
00002540  3a 22 3a 41 25 3d 30 3a  c8 95 41 25 3c 31 32 80  |:":A%=0:..A%<12.|
00002550  3f 28 68 25 2b 41 25 2b  32 32 29 3e 33 32 3a 61  |?(h%+A%+22)>32:a|
00002560  24 2b 3d bd 28 3f 28 68  25 2b 41 25 2b 32 32 29  |$+=.(?(h%+A%+22)|
00002570  29 3a 41 25 2b 3d 31 3a  ce 3a 61 24 2b 3d 22 2e  |):A%+=1:.:a$+=".|
00002580  24 22 3a e7 28 46 25 80  31 29 3d 31 8c 0d 21 e5  |$":.(F%.1)=1..!.|
00002590  c7 ff 28 22 2a 53 45 54  20 4d 42 54 75 6e 65 46  |..("*SET MBTuneF|
000025a0  69 6c 65 73 24 44 69 72  20 22 2b 61 24 2b 22 2e  |iles$Dir "+a$+".|
000025b0  21 4d 42 46 69 6c 65 73  2e 54 75 6e 65 73 22 29  |!MBFiles.Tunes")|
000025c0  3a ff 28 22 2a 53 45 54  20 4d 42 42 65 61 74 46  |:.("*SET MBBeatF|
000025d0  69 6c 65 73 24 44 69 72  20 22 2b 61 24 2b 22 2e  |iles$Dir "+a$+".|
000025e0  21 4d 42 46 69 6c 65 73  2e 42 65 61 74 73 22 29  |!MBFiles.Beats")|
000025f0  3a ff 28 22 2a 53 45 54  20 4d 42 43 68 6f 72 64  |:.("*SET MBChord|
00002600  46 69 6c 65 73 24 44 69  72 20 22 2b 61 24 2b 22  |Files$Dir "+a$+"|
00002610  2e 21 4d 42 46 69 6c 65  73 2e 43 68 6f 72 64 73  |.!MBFiles.Chords|
00002620  22 29 3a ff 28 22 2a 53  45 54 20 4d 42 53 6f 75  |"):.("*SET MBSou|
00002630  6e 64 46 69 6c 65 73 24  44 69 72 20 22 2b 61 24  |ndFiles$Dir "+a$|
00002640  2b 22 2e 21 4d 42 46 69  6c 65 73 2e 53 6f 75 6e  |+".!MBFiles.Soun|
00002650  64 73 22 29 0d 22 12 05  cd 0d 22 12 0e e7 28 46  |ds")."...."...(F|
00002660  25 80 32 29 3d 32 8c 0d  22 1b b2 ff 28 22 2a 53  |%.2)=2.."...("*S|
00002670  45 54 20 4d 42 49 6e 73  74 72 75 6d 65 6e 74 73  |ET MBInstruments|
00002680  24 44 69 72 20 22 2b 61  24 2b 22 2e 21 4d 42 49  |$Dir "+a$+".!MBI|
00002690  6e 73 74 73 2e 49 6e 73  74 72 75 6d 6e 74 73 22  |nsts.Instrumnts"|
000026a0  29 3a ff 28 22 2a 53 45  54 20 4d 42 49 6e 73 74  |):.("*SET MBInst|
000026b0  72 75 6d 65 6e 74 53 70  72 69 74 65 73 24 44 69  |rumentSprites$Di|
000026c0  72 20 22 2b 61 24 2b 22  2e 21 4d 42 49 6e 73 74  |r "+a$+".!MBInst|
000026d0  73 2e 53 70 72 69 74 65  73 22 29 3a ff 28 22 2a  |s.Sprites"):.("*|
000026e0  53 45 54 20 4d 42 49 6e  73 74 72 75 6d 65 6e 74  |SET MBInstrument|
000026f0  53 70 72 69 74 65 73 32  32 24 44 69 72 20 22 2b  |Sprites22$Dir "+|
00002700  61 24 2b 22 2e 21 4d 42  49 6e 73 74 73 2e 53 70  |a$+".!MBInsts.Sp|
00002710  72 69 74 65 73 32 32 22  29 0d 22 3f 05 cd 0d 22  |rites22")."?..."|
00002720  3f 05 e1 0d 22 48 c4 dd  f2 6e 61 28 65 24 29 3a  |?..."H...na(e$):|
00002730  ea 63 64 25 2c 64 64 25  2c 65 64 25 2c 66 25 2c  |.cd%,dd%,ed%,f%,|
00002740  66 64 25 3a 67 64 25 3d  33 3a de 66 25 28 67 64  |fd%:gd%=3:.f%(gd|
00002750  25 2c 34 29 3a 66 64 25  3d 30 3a 63 64 25 3d 34  |%,4):fd%=0:cd%=4|
00002760  30 39 36 3a 68 64 25 3d  35 31 32 30 2b 32 30 32  |096:hd%=5120+202|
00002770  34 3a de 64 64 25 20 68  64 25 3a 69 64 25 3d 64  |4:.dd% hd%:id%=d|
00002780  64 25 3a c8 99 26 34 34  41 43 31 2c 2c 70 61 25  |d%:..&44AC1,,pa%|
00002790  2c 63 64 25 2b 32 30 b8  2c 69 25 3a 65 64 25 3d  |,cd%+20.,i%:ed%=|
000027a0  21 69 25 3a 69 25 3d 65  64 25 2b 32 30 3a c8 99  |!i%:i%=ed%+20:..|
000027b0  26 38 2c 31 37 2c 65 24  b8 6a 61 25 3a e7 6a 61  |&8,17,e$.ja%:.ja|
000027c0  25 3c 3e 31 8c f2 62 28  22 54 65 6d 70 6c 61 74  |%<>1..b("Templat|
000027d0  65 20 66 69 6c 65 20 6e  6f 74 20 66 6f 75 6e 64  |e file not found|
000027e0  2e 22 2c b9 29 3a e1 0d  23 9e 55 c8 99 26 34 30  |.",.):..#.U..&40|
000027f0  30 44 39 2c 2c 65 24 3a  f2 7a 61 3a f2 41 61 3a  |0D9,,e$:.za:.Aa:|
00002800  f2 42 61 3a f2 43 61 3a  f2 44 61 3a f2 45 61 3a  |.Ba:.Ca:.Da:.Ea:|
00002810  f2 46 61 3a f2 47 61 3a  f2 48 61 3a f2 49 61 3a  |.Fa:.Ga:.Ha:.Ia:|
00002820  f2 4a 61 3a f2 4b 61 3a  c8 99 26 34 30 30 44 41  |.Ja:.Ka:..&400DA|
00002830  3a 6a 64 25 3d 30 3a f2  4c 61 3a e1 0d 24 52 3b  |:jd%=0:.La:..$R;|
00002840  dd f2 7a 61 3a f2 66 28  22 69 6e 66 6f 22 29 3a  |..za:.f("info"):|
00002850  c8 99 26 34 30 30 43 31  2c 2c 69 25 b8 6b 64 25  |..&400C1,,i%.kd%|
00002860  3a c8 99 26 34 34 41 44  30 2c 6b 64 25 2c 39 2c  |:..&44AD0,kd%,9,|
00002870  54 24 2b bd 30 3a e1 0d  25 06 26 dd f2 41 61 3a  |T$+.0:..%.&..Aa:|
00002880  f2 66 28 22 54 6f 70 6f  22 29 3a c8 99 26 34 30  |.f("Topo"):..&40|
00002890  30 43 31 2c 2c 69 25 b8  6c 64 25 3a e1 0d 25 33  |0C1,,i%.ld%:..%3|
000028a0  a5 dd f2 42 61 3a ea 66  25 3a f2 66 28 22 4c 64  |...Ba:.f%:.f("Ld|
000028b0  53 76 22 29 3a 6d 64 25  3d 31 3a 6e 64 25 3d 33  |Sv"):md%=1:nd%=3|
000028c0  3a 6f 64 25 3d 34 3a 70  64 25 3d 35 3a 71 64 25  |:od%=4:pd%=5:qd%|
000028d0  3d 36 3a 66 25 3d 38 38  2b 69 25 2b 6d 64 25 2a  |=6:f%=88+i%+md%*|
000028e0  33 32 3a 72 64 25 3d 28  21 66 25 2b 66 25 21 38  |32:rd%=(!f%+f%!8|
000028f0  29 2f 32 2d 31 3a 73 64  25 3d 28 66 25 21 34 2b  |)/2-1:sd%=(f%!4+|
00002900  66 25 21 31 32 29 2f 32  2b 32 3a 74 64 25 3d 66  |f%!12)/2+2:td%=f|
00002910  25 21 31 32 2d 66 25 21  34 2d 31 36 3a 75 64 25  |%!12-f%!4-16:ud%|
00002920  3d 66 25 21 38 2d 66 25  21 30 2d 38 2d 34 38 3a  |=f%!8-f%!0-8-48:|
00002930  c8 99 26 34 30 30 43 31  2c 2c 69 25 b8 76 64 25  |..&400C1,,i%.vd%|
00002940  3a e1 0d 26 26 4c dd f2  4d 61 3a f2 66 28 22 4c  |:..&&L..Ma:.f("L|
00002950  69 73 74 22 29 3a de 77  64 25 20 33 32 3a c8 99  |ist"):.wd% 32:..|
00002960  26 34 34 41 43 37 2c 33  32 2c 69 25 2b 38 38 2c  |&44AC7,32,i%+88,|
00002970  77 64 25 3a 69 25 21 38  34 3d 30 3a c8 99 26 34  |wd%:i%!84=0:..&4|
00002980  30 30 43 31 2c 2c 69 25  b8 78 64 25 3a e1 0d 26  |00C1,,i%.xd%:..&|
00002990  6e 44 dd f2 4a 61 3a f2  66 28 22 43 6f 70 79 22  |nD..Ja:.f("Copy"|
000029a0  29 3a 79 64 25 3d 34 3a  7a 64 25 3d 35 3a 41 64  |):yd%=4:zd%=5:Ad|
000029b0  25 3d 36 3a 42 64 25 3d  37 3a 43 64 25 3d 38 3a  |%=6:Bd%=7:Cd%=8:|
000029c0  c8 99 26 34 30 30 43 31  2c 2c 69 25 b8 44 64 25  |..&400C1,,i%.Dd%|
000029d0  3a e1 0d 26 ec 38 dd f2  49 61 3a f2 66 28 22 51  |:..&.8..Ia:.f("Q|
000029e0  75 65 73 22 29 3a 45 64  25 3d 32 3a 46 64 25 3d  |ues"):Ed%=2:Fd%=|
000029f0  33 3a 47 64 25 3d 31 3a  c8 99 26 34 30 30 43 31  |3:Gd%=1:..&400C1|
00002a00  2c 2c 69 25 b8 48 64 25  3a e1 0d 27 58 de dd f2  |,,i%.Hd%:..'X...|
00002a10  47 61 3a f2 66 28 22 43  6f 6e 66 54 75 6e 65 22  |Ga:.f("ConfTune"|
00002a20  29 3a 49 64 25 3d 32 32  3a 4a 64 25 3d 32 35 3a  |):Id%=22:Jd%=25:|
00002a30  4b 64 25 3d 32 38 3a 4c  64 25 3d 33 31 3a 4d 64  |Kd%=28:Ld%=31:Md|
00002a40  25 3d 33 37 3a 4e 64 25  3d 33 38 3a c8 99 26 34  |%=37:Nd%=38:..&4|
00002a50  30 30 43 31 2c 2c 69 25  b8 4f 64 25 3a f2 66 28  |00C1,,i%.Od%:.f(|
00002a60  22 43 6f 6e 66 53 74 61  72 74 22 29 3a 50 64 25  |"ConfStart"):Pd%|
00002a70  3d 31 36 3a 51 64 25 3d  31 37 3a 52 64 25 3d 31  |=16:Qd%=17:Rd%=1|
00002a80  38 3a 53 64 25 3d 31 39  3a 54 64 25 3d 32 30 3a  |8:Sd%=19:Td%=20:|
00002a90  55 64 25 3d 32 31 3a 56  64 25 3d 32 32 3a 57 64  |Ud%=21:Vd%=22:Wd|
00002aa0  25 3d 32 33 3a 58 64 25  3d 32 34 3a 59 64 25 3d  |%=23:Xd%=24:Yd%=|
00002ab0  32 39 3a c8 99 26 34 30  30 43 31 2c 2c 69 25 b8  |29:..&400C1,,i%.|
00002ac0  60 25 3a f2 66 28 22 43  6f 6e 66 47 6c 6f 62 61  |`%:.f("ConfGloba|
00002ad0  6c 22 29 3a 5a 64 25 3d  32 33 3a 5f 64 25 3d 32  |l"):Zd%=23:_d%=2|
00002ae0  34 3a 60 64 25 3d 32 35  0d 28 ae de 61 65 25 3d  |4:`d%=25.(..ae%=|
00002af0  32 36 3a 62 65 25 3d 32  38 3a 63 65 25 3d 33 30  |26:be%=28:ce%=30|
00002b00  3a 64 65 25 3d 31 31 3a  65 65 25 3d 33 32 3a 66  |:de%=11:ee%=32:f|
00002b10  65 25 3d 33 35 3a 67 65  25 3d 33 38 3a 68 65 25  |e%=35:ge%=38:he%|
00002b20  3d 34 30 3a 69 65 25 3d  34 31 3a 6a 65 25 3d 34  |=40:ie%=41:je%=4|
00002b30  32 3a 6b 65 25 3d 34 33  3a 6c 65 25 3d 34 34 3a  |2:ke%=43:le%=44:|
00002b40  6d 65 25 3d 34 35 3a 6e  65 25 3d 34 37 3a 6f 65  |me%=45:ne%=47:oe|
00002b50  25 3d 34 39 3a 70 65 25  3d 35 31 3a 71 65 25 3d  |%=49:pe%=51:qe%=|
00002b60  35 33 3a 72 65 25 3d 35  35 3a 73 65 25 3d 35 37  |53:re%=55:se%=57|
00002b70  3a 74 65 25 3d 35 39 3a  75 65 25 3d 36 31 3a 76  |:te%=59:ue%=61:v|
00002b80  65 25 3d 36 33 3a 77 65  25 3d 36 35 3a c8 99 26  |e%=63:we%=65:..&|
00002b90  34 30 30 43 31 2c 2c 69  25 b8 6d 25 3a 78 65 25  |400C1,,i%.m%:xe%|
00002ba0  3d 33 3a 79 65 25 3d 34  3a 7a 65 25 3d 35 3a 41  |=3:ye%=4:ze%=5:A|
00002bb0  65 25 3d 36 3a 42 65 25  3d 37 3a 43 65 25 3d 38  |e%=6:Be%=7:Ce%=8|
00002bc0  3a 44 65 25 3d 39 0d 29  d7 bc 45 65 25 3d 31 30  |:De%=9.)..Ee%=10|
00002bd0  3a 46 65 25 3d 31 31 3a  f2 66 28 22 43 6f 6e 66  |:Fe%=11:.f("Conf|
00002be0  42 65 61 74 22 29 3a 47  65 25 3d 32 33 3a 48 65  |Beat"):Ge%=23:He|
00002bf0  25 3d 32 36 3a 49 65 25  3d 32 39 3a 4a 65 25 3d  |%=26:Ie%=29:Je%=|
00002c00  33 32 3a 4b 65 25 3d 33  36 3a 4c 65 25 3d 33 37  |32:Ke%=36:Le%=37|
00002c10  3a c8 99 26 34 30 30 43  31 2c 2c 69 25 b8 4d 65  |:..&400C1,,i%.Me|
00002c20  25 3a f2 66 28 22 43 6f  6e 66 4c 64 53 76 22 29  |%:.f("ConfLdSv")|
00002c30  3a 4e 65 25 3d 31 34 3a  4f 65 25 3d 31 35 3a 50  |:Ne%=14:Oe%=15:P|
00002c40  65 25 3d 31 36 3a 51 65  25 3d 31 37 3a 52 65 25  |e%=16:Qe%=17:Re%|
00002c50  3d 31 38 3a 53 65 25 3d  31 39 3a 54 65 25 3d 32  |=18:Se%=19:Te%=2|
00002c60  30 3a 55 65 25 3d 32 32  3a 56 65 25 3d 32 33 3a  |0:Ue%=22:Ve%=23:|
00002c70  c8 99 26 34 30 30 43 31  2c 2c 69 25 b8 57 65 25  |..&400C1,,i%.We%|
00002c80  3a e1 0d 2a a6 d6 dd f2  43 61 3a ea 58 65 25 2c  |:..*....Ca:.Xe%,|
00002c90  59 65 25 2c 5a 65 25 2c  5f 65 25 2c 60 65 25 2c  |Ye%,Ze%,_e%,`e%,|
00002ca0  61 66 25 2c 53 25 2c 62  66 25 2c 63 66 25 2c 58  |af%,S%,bf%,cf%,X|
00002cb0  25 2c 59 25 2c 41 25 2c  66 25 3a f2 66 28 22 53  |%,Y%,A%,f%:.f("S|
00002cc0  6e 64 42 22 29 3a 64 66  25 3d 31 35 3a 65 66 25  |ndB"):df%=15:ef%|
00002cd0  3d 31 36 3a 66 66 25 3d  34 3a 67 66 25 3d 35 3a  |=16:ff%=4:gf%=5:|
00002ce0  68 66 25 3d 36 3a 69 66  25 3d 37 3a 6a 66 25 3d  |hf%=6:if%=7:jf%=|
00002cf0  38 3a 6b 66 25 3d 30 3a  6c 66 25 3d 69 25 21 38  |8:kf%=0:lf%=i%!8|
00002d00  34 2d 32 3a 6d 66 25 3d  6c 66 25 2b 5f 62 25 2a  |4-2:mf%=lf%+_b%*|
00002d10  5a 62 25 3a 6e 66 25 3d  31 34 3a 6f 66 25 3d 31  |Zb%:nf%=14:of%=1|
00002d20  31 3a 70 66 25 3d 39 3a  71 66 25 3d 31 30 3a 72  |1:pf%=9:qf%=10:r|
00002d30  66 25 3d 31 38 3a 73 66  25 3d 31 39 3a 74 66 25  |f%=18:sf%=19:tf%|
00002d40  3d 32 31 3a 75 66 25 3d  31 32 3a 76 66 25 3d 31  |=21:uf%=12:vf%=1|
00002d50  33 3a 77 66 25 3d 32 30  0d 2c 68 ca 66 25 3d 69  |3:wf%=20.,h.f%=i|
00002d60  25 2b 38 38 2b 33 32 2a  70 66 25 3a 64 25 28 30  |%+88+32*pf%:d%(0|
00002d70  2c 30 29 3d 66 25 21 30  3a 64 25 28 30 2c 31 29  |,0)=f%!0:d%(0,1)|
00002d80  3d 66 25 21 34 3a 64 25  28 30 2c 32 29 3d 66 25  |=f%!4:d%(0,2)=f%|
00002d90  21 38 3a 64 25 28 30 2c  33 29 3d 66 25 21 31 32  |!8:d%(0,3)=f%!12|
00002da0  3a c8 99 26 34 34 41 44  44 2c 35 2b 32 35 36 2c  |:..&44ADD,5+256,|
00002db0  69 25 2c 70 66 25 2c 31  3a 66 25 3d 69 25 2b 38  |i%,pf%,1:f%=i%+8|
00002dc0  38 2b 33 32 2a 6c 66 25  3a 58 65 25 3d 66 25 21  |8+32*lf%:Xe%=f%!|
00002dd0  31 36 3a 61 66 25 3d 66  25 21 38 2d 66 25 21 30  |16:af%=f%!8-f%!0|
00002de0  3a 53 25 3d 66 25 21 31  32 2d 66 25 21 34 3a 63  |:S%=f%!12-f%!4:c|
00002df0  66 25 3d 66 25 21 38 2d  66 25 21 34 30 3a 62 66  |f%=f%!8-f%!40:bf|
00002e00  25 3d 66 25 21 31 32 2d  66 25 21 34 34 3a 59 65  |%=f%!12-f%!44:Ye|
00002e10  25 3d 66 25 21 30 2d 62  66 25 2a 28 5f 62 25 2d  |%=f%!0-bf%*(_b%-|
00002e20  31 29 0d 2d 0a f0 5a 65  25 3d 66 25 21 34 2d 63  |1).-..Ze%=f%!4-c|
00002e30  66 25 2a 28 5a 62 25 2d  31 29 3a 5f 65 25 3d 66  |f%*(Zb%-1):_e%=f|
00002e40  25 21 38 3a 60 65 25 3d  66 25 21 31 32 3a e3 59  |%!8:`e%=f%!12:.Y|
00002e50  25 3d 30 b8 5a 62 25 2d  31 3a e3 58 25 3d 30 b8  |%=0.Zb%-1:.X%=0.|
00002e60  5f 62 25 2d 31 3a 66 25  21 30 3d 59 65 25 2b 58  |_b%-1:f%!0=Ye%+X|
00002e70  25 2a 62 66 25 3a 66 25  21 34 3d 60 65 25 2d 59  |%*bf%:f%!4=`e%-Y|
00002e80  25 2a 63 66 25 2d 53 25  3a 66 25 21 38 3d 59 65  |%*cf%-S%:f%!8=Ye|
00002e90  25 2b 58 25 2a 62 66 25  2b 53 25 3a 66 25 21 31  |%+X%*bf%+S%:f%!1|
00002ea0  32 3d 60 65 25 2d 59 25  2a 63 66 25 3a 66 25 21  |2=`e%-Y%*cf%:f%!|
00002eb0  31 36 3d 58 65 25 3a 66  25 21 32 30 3d 6c 63 25  |16=Xe%:f%!20=lc%|
00002ec0  3a 66 25 21 32 34 3d 6b  63 25 2b 32 36 2a 58 25  |:f%!24=kc%+26*X%|
00002ed0  3a 66 25 21 32 38 3d 31  3a 66 25 2b 3d 33 32 3a  |:f%!28=1:f%+=32:|
00002ee0  ed 2c 3a 66 25 3d 69 25  2b 38 38 2b 33 32 2a 6b  |.,:f%=i%+88+32*k|
00002ef0  66 25 3a 21 66 25 3d 59  65 25 2d 38 3a 66 25 21  |f%:!f%=Ye%-8:f%!|
00002f00  34 3d 5a 65 25 2d 38 3a  66 25 21 38 3d 5f 65 25  |4=Ze%-8:f%!8=_e%|
00002f10  2b 38 0d 2d c7 74 66 25  21 31 32 3d 60 65 25 2b  |+8.-.tf%!12=`e%+|
00002f20  38 3a 69 25 21 38 34 3d  6d 66 25 3a c8 99 26 34  |8:i%!84=mf%:..&4|
00002f30  34 41 44 44 2c 35 2b 32  35 36 2c 69 25 2c 6e 66  |4ADD,5+256,i%,nf|
00002f40  25 2c 31 3a c8 99 26 34  30 30 43 31 2c 2c 69 25  |%,1:..&400C1,,i%|
00002f50  b8 74 25 3a f2 50 28 69  25 2c 74 25 29 3a de 41  |.t%:.P(i%,t%):.A|
00002f60  25 20 34 30 3a 69 25 28  30 29 3d 41 25 3a f2 51  |% 40:i%(0)=A%:.Q|
00002f70  28 41 25 2c 69 25 2b 38  38 2b 33 32 2a 6e 66 25  |(A%,i%+88+32*nf%|
00002f80  2c 74 25 29 3a e1 0d 2e  21 24 dd f2 44 61 3a e7  |,t%):...!$..Da:.|
00002f90  69 61 25 8c f2 66 28 22  4d 65 6e 75 22 29 8b f2  |ia%..f("Menu")..|
00002fa0  66 28 22 4d 65 6e 75 32  22 29 0d 2e ba 2e 78 66  |f("Menu2")....xf|
00002fb0  25 3d 33 3a 79 66 25 3d  34 3a 7a 66 25 3d 35 3a  |%=3:yf%=4:zf%=5:|
00002fc0  41 66 25 3d 36 3a c8 99  26 34 30 30 43 31 2c 2c  |Af%=6:..&400C1,,|
00002fd0  69 25 b8 42 66 25 3a e1  0d 2e f0 e2 dd f2 45 61  |i%.Bf%:.......Ea|
00002fe0  3a ea 65 25 2c 41 25 2c  42 25 2c 66 25 2c 43 66  |:.e%,A%,B%,f%,Cf|
00002ff0  25 2c 44 66 25 2c 62 66  25 2c 63 66 25 2c 45 66  |%,Df%,bf%,cf%,Ef|
00003000  25 3a f2 66 28 22 49 6e  73 74 22 29 3a 69 25 21  |%:.f("Inst"):i%!|
00003010  36 34 3d 55 25 3a 46 66  25 3d 31 3a 47 66 25 3d  |64=U%:Ff%=1:Gf%=|
00003020  32 3a 48 66 25 3d 30 3a  49 66 25 3d 33 3a 4a 66  |2:Hf%=0:If%=3:Jf|
00003030  25 3d 34 3a 45 66 25 3d  35 3a 4b 66 25 3d 49 66  |%=4:Ef%=5:Kf%=If|
00003040  25 2b 32 2a 28 47 63 25  2d 31 29 3a 4c 66 25 3d  |%+2*(Gc%-1):Lf%=|
00003050  4a 66 25 2b 32 2a 28 47  63 25 2d 31 29 3a 69 25  |Jf%+2*(Gc%-1):i%|
00003060  21 38 34 3d 4c 66 25 2b  31 3a 43 66 25 3d 69 25  |!84=Lf%+1:Cf%=i%|
00003070  2b 38 38 2b 49 66 25 2a  33 32 3a 44 66 25 3d 69  |+88+If%*32:Df%=i|
00003080  25 2b 38 38 2b 45 66 25  2a 33 32 3a 62 66 25 3d  |%+88+Ef%*32:bf%=|
00003090  21 44 66 25 2d 21 43 66  25 3a 63 66 25 3d 44 66  |!Df%-!Cf%:cf%=Df|
000030a0  25 21 34 2d 43 66 25 21  34 3a 44 66 25 3d 69 25  |%!4-Cf%!4:Df%=i%|
000030b0  2b 38 38 2b 4a 66 25 2a  33 32 0d 30 58 e3 43 66  |+88+Jf%*32.0X.Cf|
000030c0  25 3d 69 25 2b 38 38 2b  49 66 25 2a 33 32 3a 66  |%=i%+88+If%*32:f|
000030d0  25 3d 43 66 25 3a de 41  25 20 28 32 36 2b 32 31  |%=Cf%:.A% (26+21|
000030e0  29 2a 47 63 25 3a e3 65  25 3d 30 b8 47 63 25 2d  |)*Gc%:.e%=0.Gc%-|
000030f0  31 3a 21 66 25 3d 21 43  66 25 2b 62 66 25 2a 28  |1:!f%=!Cf%+bf%*(|
00003100  65 25 83 33 29 3a 66 25  21 34 3d 43 66 25 21 34  |e%.3):f%!4=Cf%!4|
00003110  2b 63 66 25 2a 28 65 25  81 33 29 3a 66 25 21 38  |+cf%*(e%.3):f%!8|
00003120  3d 43 66 25 21 38 2b 62  66 25 2a 28 65 25 83 33  |=Cf%!8+bf%*(e%.3|
00003130  29 3a 66 25 21 31 32 3d  43 66 25 21 31 32 2b 63  |):f%!12=Cf%!12+c|
00003140  66 25 2a 28 65 25 81 33  29 3a 66 25 21 31 36 3d  |f%*(e%.3):f%!16=|
00003150  43 66 25 21 31 36 3a 66  25 21 32 30 3d 6c 63 25  |Cf%!16:f%!20=lc%|
00003160  3a 66 25 21 32 34 3d 41  25 3a 66 25 21 32 38 3d  |:f%!24=A%:f%!28=|
00003170  31 3a 24 41 25 3d 22 53  22 2b 61 24 28 65 25 29  |1:$A%="S"+a$(e%)|
00003180  2b 22 2c 70 22 2b 61 24  28 65 25 29 2b bd 30 3a  |+",p"+a$(e%)+.0:|
00003190  41 25 2b 3d 32 36 3a 66  25 2b 3d 33 32 0d 30 df  |A%+=26:f%+=32.0.|
000031a0  da 21 66 25 3d 21 44 66  25 2b 62 66 25 2a 28 65  |.!f%=!Df%+bf%*(e|
000031b0  25 83 33 29 3a 66 25 21  34 3d 44 66 25 21 34 2b  |%.3):f%!4=Df%!4+|
000031c0  63 66 25 2a 28 65 25 81  33 29 3a 66 25 21 38 3d  |cf%*(e%.3):f%!8=|
000031d0  44 66 25 21 38 2b 62 66  25 2a 28 65 25 83 33 29  |Df%!8+bf%*(e%.3)|
000031e0  3a 66 25 21 31 32 3d 44  66 25 21 31 32 2b 63 66  |:f%!12=Df%!12+cf|
000031f0  25 2a 28 65 25 81 33 29  3a 66 25 21 31 36 3d 44  |%*(e%.3):f%!16=D|
00003200  66 25 21 31 36 3a 66 25  21 32 30 3d 41 25 3a 66  |f%!16:f%!20=A%:f|
00003210  25 21 32 34 3d 30 3a 66  25 21 32 38 3d 32 31 3a  |%!24=0:f%!28=21:|
00003220  24 41 25 3d 62 24 28 65  25 29 2b bd 30 3a 41 25  |$A%=b$(e%)+.0:A%|
00003230  2b 3d 32 31 3a 66 25 2b  3d 33 32 3a ed 3a 66 25  |+=21:f%+=32:.:f%|
00003240  3d 69 25 2b 38 38 2b 46  66 25 2a 33 32 3a 41 25  |=i%+88+Ff%*32:A%|
00003250  3d 21 43 66 25 2b 62 66  25 2a 33 3a 21 66 25 3d  |=!Cf%+bf%*3:!f%=|
00003260  21 66 25 2d 66 25 21 38  2b 41 25 2d 38 3a 66 25  |!f%-f%!8+A%-8:f%|
00003270  21 38 3d 41 25 2d 38 0d  31 78 db 41 25 3d 43 66  |!8=A%-8.1x.A%=Cf|
00003280  25 21 34 2b 63 66 25 2a  28 28 47 63 25 2d 33 29  |%!4+cf%*((Gc%-3)|
00003290  81 33 29 2d 34 3a 42 25  3d 66 25 21 31 32 2d 66  |.3)-4:B%=f%!12-f|
000032a0  25 21 34 3a 66 25 21 31  32 3d 41 25 2d 34 3a 66  |%!4:f%!12=A%-4:f|
000032b0  25 21 34 3d 41 25 2d 42  25 2d 34 3a 43 66 25 3d  |%!4=A%-B%-4:Cf%=|
000032c0  66 25 3a 66 25 3d 69 25  2b 38 38 2b 47 66 25 2a  |f%:f%=i%+88+Gf%*|
000032d0  33 32 3a 41 25 3d 21 43  66 25 3a 21 66 25 3d 21  |32:A%=!Cf%:!f%=!|
000032e0  66 25 2d 66 25 21 38 2b  41 25 2d 38 3a 66 25 21  |f%-f%!8+A%-8:f%!|
000032f0  38 3d 41 25 2d 38 3a 66  25 21 31 32 3d 43 66 25  |8=A%-8:f%!12=Cf%|
00003300  21 31 32 3a 66 25 21 34  3d 43 66 25 21 34 3a 66  |!12:f%!4=Cf%!4:f|
00003310  25 3d 43 66 25 3a 43 66  25 3d 69 25 2b 38 38 2b  |%=Cf%:Cf%=i%+88+|
00003320  48 66 25 2a 33 32 3a 43  66 25 21 38 3d 66 25 21  |Hf%*32:Cf%!8=f%!|
00003330  38 2b 38 3a 43 66 25 21  34 3d 66 25 21 34 2d 38  |8+8:Cf%!4=f%!4-8|
00003340  3a 69 25 21 38 3d 69 25  21 30 2b 66 25 21 38 2b  |:i%!8=i%!0+f%!8+|
00003350  31 32 0d 32 2c 29 69 25  21 34 3d 69 25 21 31 32  |12.2,)i%!4=i%!12|
00003360  2b 66 25 21 34 2d 31 32  3a c8 99 26 34 30 30 43  |+f%!4-12:..&400C|
00003370  31 2c 2c 69 25 b8 4d 66  25 3a e1 0d 32 59 e4 dd  |1,,i%.Mf%:..2Y..|
00003380  f2 46 61 3a ea 66 25 2c  4e 66 25 2c 4f 66 25 2c  |.Fa:.f%,Nf%,Of%,|
00003390  65 25 2c 41 25 3a f2 66  28 22 43 6f 6d 70 22 29  |e%,A%:.f("Comp")|
000033a0  3a 4f 66 25 3d 30 3a 50  66 25 3d 31 3a 51 66 25  |:Of%=0:Pf%=1:Qf%|
000033b0  3d 32 3a 52 66 25 3d 38  3a 53 66 25 3d 39 3a 54  |=2:Rf%=8:Sf%=9:T|
000033c0  66 25 3d 31 32 3a 55 66  25 3d 31 33 3a 56 66 25  |f%=12:Uf%=13:Vf%|
000033d0  3d 31 34 3a 57 66 25 3d  31 35 3a 58 66 25 3d 31  |=14:Wf%=15:Xf%=1|
000033e0  36 3a 59 66 25 3d 31 37  3a 5a 66 25 3d 31 38 3a  |6:Yf%=17:Zf%=18:|
000033f0  5f 66 25 3d 33 38 3a 60  66 25 3d 32 33 3a 61 67  |_f%=38:`f%=23:ag|
00003400  25 3d 32 34 3a 62 67 25  3d 32 35 3a 63 67 25 3d  |%=24:bg%=25:cg%=|
00003410  32 36 3a 64 67 25 3d 32  37 3a 65 67 25 3d 32 38  |26:dg%=27:eg%=28|
00003420  3a 66 67 25 3d 32 39 3a  4e 66 25 3d 33 30 3a 67  |:fg%=29:Nf%=30:g|
00003430  67 25 3d 33 31 3a 68 67  25 3d 33 32 3a 69 67 25  |g%=31:hg%=32:ig%|
00003440  3d 34 33 3a 6a 67 25 3d  33 35 3a 6b 67 25 3d 33  |=43:jg%=35:kg%=3|
00003450  36 3a 6c 67 25 3d 33 37  3a 6d 67 25 3d 33 39 0d  |6:lg%=37:mg%=39.|
00003460  34 63 d6 6e 67 25 3d 33  33 3a 6f 67 25 3d 34 30  |4c.ng%=33:og%=40|
00003470  3a 70 67 25 3d 34 31 3a  71 67 25 3d 34 32 3a 66  |:pg%=41:qg%=42:f|
00003480  25 3d 69 25 2b 38 38 2b  33 32 2a 61 67 25 3a 64  |%=i%+88+32*ag%:d|
00003490  25 28 31 2c 30 29 3d 66  25 21 30 3a 64 25 28 31  |%(1,0)=f%!0:d%(1|
000034a0  2c 31 29 3d 66 25 21 34  3a 64 25 28 31 2c 32 29  |,1)=f%!4:d%(1,2)|
000034b0  3d 66 25 21 38 3a 64 25  28 31 2c 33 29 3d 66 25  |=f%!8:d%(1,3)=f%|
000034c0  21 31 32 3a c8 99 26 34  34 41 44 44 2c 35 2b 32  |!12:..&44ADD,5+2|
000034d0  35 36 2c 69 25 2c 61 67  25 2c 31 3a c8 99 26 34  |56,i%,ag%,1:..&4|
000034e0  34 41 44 44 2c 35 2b 32  35 36 2c 69 25 2c 4f 66  |4ADD,5+256,i%,Of|
000034f0  25 2c 31 3a 66 25 3d 69  25 2b 38 38 2b 4f 66 25  |%,1:f%=i%+88+Of%|
00003500  2a 33 32 3a 72 67 25 3d  66 25 21 30 3a 73 67 25  |*32:rg%=f%!0:sg%|
00003510  3d 66 25 21 34 3a 74 67  25 3d 66 25 21 38 3a 75  |=f%!4:tg%=f%!8:u|
00003520  67 25 3d 66 25 21 31 32  3a 41 25 3d 59 66 25 2d  |g%=f%!12:A%=Yf%-|
00003530  4f 66 25 2b 31 0d 35 0e  e4 c8 99 26 34 34 41 44  |Of%+1.5....&44AD|
00003540  44 2c 35 2b 32 35 36 2c  69 25 2c 4f 66 25 2c 31  |D,5+256,i%,Of%,1|
00003550  3a c8 99 26 34 34 41 44  44 2c 36 2b 32 35 36 2c  |:..&44ADD,6+256,|
00003560  69 25 2c 6e 67 25 2c 30  2c 32 5e 32 3a e3 65 25  |i%,ng%,0,2^2:.e%|
00003570  3d 4f 66 25 b8 57 66 25  3a c8 99 26 34 34 41 44  |=Of%.Wf%:..&44AD|
00003580  44 2c 36 2b 32 35 36 2c  69 25 2c 65 25 2c 30 2c  |D,6+256,i%,e%,0,|
00003590  32 5e 32 3a ed 3a de 76  67 25 20 34 2b 33 32 2a  |2^2:.:.vg% 4+32*|
000035a0  41 25 3a c8 99 26 34 34  41 43 37 2c 33 32 2a 41  |A%:..&44AC7,32*A|
000035b0  25 2c 69 25 2b 38 38 2b  33 32 2a 4f 66 25 2c 76  |%,i%+88+32*Of%,v|
000035c0  67 25 2b 34 3a 21 76 67  25 3d 41 25 3a e3 65 25  |g%+4:!vg%=A%:.e%|
000035d0  3d 4f 66 25 b8 59 66 25  3a c8 99 26 34 34 41 44  |=Of%.Yf%:..&44AD|
000035e0  44 2c 35 2b 32 35 36 2c  69 25 2c 65 25 2c 31 3a  |D,5+256,i%,e%,1:|
000035f0  ed 3a c8 99 26 34 34 41  44 44 2c 35 2b 32 35 36  |.:..&44ADD,5+256|
00003600  2c 69 25 2c 4e 66 25 2c  31 3a c8 99 26 34 30 30  |,i%,Nf%,1:..&400|
00003610  43 31 2c 2c 69 25 b8 6f  25 0d 35 83 b4 f2 50 28  |C1,,i%.o%.5...P(|
00003620  69 25 2c 6f 25 29 3a de  41 25 20 34 30 3a f2 51  |i%,o%):.A% 40:.Q|
00003630  28 41 25 2c 69 25 2b 38  38 2b 33 32 2a 4e 66 25  |(A%,i%+88+32*Nf%|
00003640  2c 6f 25 29 3a 69 25 28  31 29 3d 41 25 3a 51 66  |,o%):i%(1)=A%:Qf|
00003650  25 2d 3d 4f 66 25 3a 52  66 25 2d 3d 4f 66 25 3a  |%-=Of%:Rf%-=Of%:|
00003660  53 66 25 2d 3d 4f 66 25  3a 54 66 25 2d 3d 4f 66  |Sf%-=Of%:Tf%-=Of|
00003670  25 3a 56 66 25 2d 3d 4f  66 25 3a 57 66 25 2d 3d  |%:Vf%-=Of%:Wf%-=|
00003680  4f 66 25 3a 58 66 25 2d  3d 4f 66 25 3a 59 66 25  |Of%:Xf%-=Of%:Yf%|
00003690  2d 3d 4f 66 25 3a 4f 66  25 3d 30 3a e3 65 25 3d  |-=Of%:Of%=0:.e%=|
000036a0  51 66 25 b8 52 66 25 3a  21 28 76 67 25 2b 34 2b  |Qf%.Rf%:!(vg%+4+|
000036b0  32 34 2b 33 32 2a 65 25  29 3d 6b 63 25 2b 32 36  |24+32*e%)=kc%+26|
000036c0  2a 28 65 25 2d 51 66 25  29 3a ed 3a e1 0d 36 25  |*(e%-Qf%):.:..6%|
000036d0  e4 dd f2 4b 61 3a ea 66  25 2c 77 67 25 2c 78 67  |...Ka:.f%,wg%,xg|
000036e0  25 2c 65 25 2c 41 25 3a  f2 66 28 22 52 74 6d 42  |%,e%,A%:.f("RtmB|
000036f0  22 29 3a 78 67 25 3d 30  3a 79 67 25 3d 31 3a 7a  |"):xg%=0:yg%=1:z|
00003700  67 25 3d 32 3a 41 67 25  3d 38 3a 42 67 25 3d 39  |g%=2:Ag%=8:Bg%=9|
00003710  3a 43 67 25 3d 31 32 3a  44 67 25 3d 31 33 3a 45  |:Cg%=12:Dg%=13:E|
00003720  67 25 3d 31 34 3a 46 67  25 3d 31 35 3a 47 67 25  |g%=14:Fg%=15:Gg%|
00003730  3d 31 36 3a 48 67 25 3d  31 37 3a 49 67 25 3d 31  |=16:Hg%=17:Ig%=1|
00003740  38 3a 4a 67 25 3d 34 32  3a 4b 67 25 3d 32 30 3a  |8:Jg%=42:Kg%=20:|
00003750  4c 67 25 3d 32 31 3a 4d  67 25 3d 32 32 3a 4e 67  |Lg%=21:Mg%=22:Ng|
00003760  25 3d 32 34 3a 4f 67 25  3d 32 35 3a 50 67 25 3d  |%=24:Og%=25:Pg%=|
00003770  32 37 3a 77 67 25 3d 32  39 3a 51 67 25 3d 33 31  |27:wg%=29:Qg%=31|
00003780  3a 52 67 25 3d 34 30 3a  53 67 25 3d 33 34 3a 54  |:Rg%=40:Sg%=34:T|
00003790  67 25 3d 33 35 3a 55 67  25 3d 33 36 3a 56 67 25  |g%=35:Ug%=36:Vg%|
000037a0  3d 33 37 3a 57 67 25 3d  33 38 3a 58 67 25 3d 33  |=37:Wg%=38:Xg%=3|
000037b0  39 0d 38 53 e7 59 67 25  3d 34 31 3a 5a 67 25 3d  |9.8S.Yg%=41:Zg%=|
000037c0  32 38 3a 5f 67 25 3d 33  30 3a 66 25 3d 69 25 2b  |28:_g%=30:f%=i%+|
000037d0  38 38 2b 33 32 2a 4e 67  25 3a 64 25 28 33 2c 30  |88+32*Ng%:d%(3,0|
000037e0  29 3d 66 25 21 30 3a 64  25 28 33 2c 31 29 3d 66  |)=f%!0:d%(3,1)=f|
000037f0  25 21 34 3a 64 25 28 33  2c 32 29 3d 66 25 21 38  |%!4:d%(3,2)=f%!8|
00003800  3a 64 25 28 33 2c 33 29  3d 66 25 21 31 32 3a c8  |:d%(3,3)=f%!12:.|
00003810  99 26 34 34 41 44 44 2c  35 2b 32 35 36 2c 69 25  |.&44ADD,5+256,i%|
00003820  2c 4e 67 25 2c 31 3a c8  99 26 34 34 41 44 44 2c  |,Ng%,1:..&44ADD,|
00003830  35 2b 32 35 36 2c 69 25  2c 78 67 25 2c 31 3a 66  |5+256,i%,xg%,1:f|
00003840  25 3d 69 25 2b 38 38 2b  78 67 25 2a 33 32 3a 60  |%=i%+88+xg%*32:`|
00003850  67 25 3d 66 25 21 30 3a  61 68 25 3d 66 25 21 34  |g%=f%!0:ah%=f%!4|
00003860  3a 62 68 25 3d 66 25 21  38 2d 31 3a 63 68 25 3d  |:bh%=f%!8-1:ch%=|
00003870  66 25 21 31 32 2d 31 3a  c8 99 26 34 34 41 44 41  |f%!12-1:..&44ADA|
00003880  2c 67 25 2c 38 38 3a 67  25 21 30 3d 60 67 25 3a  |,g%,88:g%!0=`g%:|
00003890  67 25 21 34 3d 61 68 25  0d 39 19 ce 67 25 21 38  |g%!4=ah%.9..g%!8|
000038a0  3d 62 68 25 2d 32 3a 67  25 21 31 32 3d 63 68 25  |=bh%-2:g%!12=ch%|
000038b0  2d 32 3a 67 25 21 32 30  3d 51 62 25 3a 67 25 21  |-2:g%!20=Qb%:g%!|
000038c0  32 34 3d 2d 31 3a 67 25  21 32 38 3d 26 38 30 30  |24=-1:g%!28=&800|
000038d0  30 30 30 36 32 3a 67 25  21 33 32 3d 26 30 30 30  |00062:g%!32=&000|
000038e0  37 30 32 46 46 3a 67 25  21 34 30 3d 2d 50 62 25  |702FF:g%!40=-Pb%|
000038f0  3a 67 25 21 34 34 3d 2d  39 30 30 30 30 3a 67 25  |:g%!44=-90000:g%|
00003900  21 34 38 3d 28 62 68 25  2d 60 67 25 29 2d 50 62  |!48=(bh%-`g%)-Pb|
00003910  25 3a 67 25 21 35 32 3d  51 62 25 3a 67 25 21 36  |%:g%!52=Qb%:g%!6|
00003920  30 3d 33 3c 3c 31 32 3a  67 25 21 36 34 3d 72 25  |0=3<<12:g%!64=r%|
00003930  3a c8 99 26 34 30 30 43  31 2c 2c 67 25 b8 64 68  |:..&400C1,,g%.dh|
00003940  25 3a c8 99 26 34 34 41  44 44 2c 35 2b 32 35 36  |%:..&44ADD,5+256|
00003950  2c 69 25 2c 78 67 25 2c  31 3a 41 25 3d 47 67 25  |,i%,xg%,1:A%=Gg%|
00003960  2d 78 67 25 2b 31 0d 39  b2 dd c8 99 26 34 34 41  |-xg%+1.9....&44A|
00003970  44 44 2c 36 2b 32 35 36  2c 69 25 2c 49 67 25 2c  |DD,6+256,i%,Ig%,|
00003980  30 2c 32 5e 32 3a e3 65  25 3d 78 67 25 b8 47 67  |0,2^2:.e%=xg%.Gg|
00003990  25 3a c8 99 26 34 34 41  44 44 2c 36 2b 32 35 36  |%:..&44ADD,6+256|
000039a0  2c 69 25 2c 65 25 2c 30  2c 32 5e 32 3a ed 3a de  |,i%,e%,0,2^2:.:.|
000039b0  65 68 25 20 34 2b 33 32  2a 41 25 3a c8 99 26 34  |eh% 4+32*A%:..&4|
000039c0  34 41 43 37 2c 33 32 2a  41 25 2c 69 25 2b 38 38  |4AC7,32*A%,i%+88|
000039d0  2b 33 32 2a 78 67 25 2c  65 68 25 2b 34 3a 21 65  |+32*xg%,eh%+4:!e|
000039e0  68 25 3d 41 25 3a e3 65  25 3d 78 67 25 b8 47 67  |h%=A%:.e%=xg%.Gg|
000039f0  25 3a c8 99 26 34 34 41  44 44 2c 35 2b 32 35 36  |%:..&44ADD,5+256|
00003a00  2c 69 25 2c 65 25 2c 31  3a ed 3a c8 99 26 34 34  |,i%,e%,1:.:..&44|
00003a10  41 44 44 2c 35 2b 32 35  36 2c 69 25 2c 77 67 25  |ADD,5+256,i%,wg%|
00003a20  2c 31 3a c8 99 26 34 30  30 43 31 2c 2c 69 25 b8  |,1:..&400C1,,i%.|
00003a30  6b 25 3a f2 50 28 69 25  2c 6b 25 29 3a de 41 25  |k%:.P(i%,k%):.A%|
00003a40  20 34 30 0d 3a 30 9a f2  51 28 41 25 2c 69 25 2b  | 40.:0..Q(A%,i%+|
00003a50  38 38 2b 33 32 2a 77 67  25 2c 6b 25 29 3a 69 25  |88+32*wg%,k%):i%|
00003a60  28 33 29 3d 41 25 3a 7a  67 25 2d 3d 78 67 25 3a  |(3)=A%:zg%-=xg%:|
00003a70  41 67 25 2d 3d 78 67 25  3a 42 67 25 2d 3d 78 67  |Ag%-=xg%:Bg%-=xg|
00003a80  25 3a 43 67 25 2d 3d 78  67 25 3a 45 67 25 2d 3d  |%:Cg%-=xg%:Eg%-=|
00003a90  78 67 25 3a 46 67 25 2d  3d 78 67 25 3a 47 67 25  |xg%:Fg%-=xg%:Gg%|
00003aa0  2d 3d 78 67 25 3a 78 67  25 3d 30 3a e3 65 25 3d  |-=xg%:xg%=0:.e%=|
00003ab0  7a 67 25 b8 41 67 25 3a  21 28 65 68 25 2b 34 2b  |zg%.Ag%:!(eh%+4+|
00003ac0  32 34 2b 33 32 2a 65 25  29 3d 6b 63 25 2b 32 36  |24+32*e%)=kc%+26|
00003ad0  2a 28 65 25 2d 7a 67 25  29 3a ed 3a e1 0d 3a ae  |*(e%-zg%):.:..:.|
00003ae0  5c dd f2 48 61 3a ea 66  25 2c 66 68 25 2c 67 68  |\..Ha:.f%,fh%,gh|
00003af0  25 2c 65 25 2c 41 25 3a  f2 66 28 22 43 72 64 42  |%,e%,A%:.f("CrdB|
00003b00  22 29 3a 68 68 25 3d 33  30 3a 69 68 25 3d 32 3a  |"):hh%=30:ih%=2:|
00003b10  6a 68 25 3d 38 3a 6b 68  25 3d 37 3a e7 6b 68 25  |jh%=8:kh%=7:.kh%|
00003b20  3c 3e 37 8c 85 30 2c 22  52 65 61 73 73 65 6d 62  |<>7..0,"Reassemb|
00003b30  6c 65 20 4d 43 6f 64 65  22 0d 3b 74 e1 6c 68 25  |le MCode".;t.lh%|
00003b40  3d 39 3a 6d 68 25 3d 6c  68 25 2b 6b 68 25 2a 31  |=9:mh%=lh%+kh%*1|
00003b50  3a 6e 68 25 3d 6c 68 25  2b 6b 68 25 2a 32 3a 6f  |:nh%=lh%+kh%*2:o|
00003b60  68 25 3d 33 30 3a 70 68  25 3d 33 32 3a 71 68 25  |h%=30:ph%=32:qh%|
00003b70  3d 33 33 3a 72 68 25 3d  33 34 3a 73 68 25 3d 33  |=33:rh%=34:sh%=3|
00003b80  35 3a 74 68 25 3d 33 36  3a 66 68 25 3d 34 31 3a  |5:th%=36:fh%=41:|
00003b90  75 68 25 3d 34 34 3a 76  68 25 3d 35 32 3a 77 68  |uh%=44:vh%=52:wh|
00003ba0  25 3d 33 39 3a 78 68 25  3d 33 37 3a 79 68 25 3d  |%=39:xh%=37:yh%=|
00003bb0  34 37 3a 7a 68 25 3d 34  36 3a 41 68 25 3d 34 30  |47:zh%=46:Ah%=40|
00003bc0  3a 42 68 25 3d 34 39 3a  43 68 25 3d 35 30 3a 44  |:Bh%=49:Ch%=50:D|
00003bd0  68 25 3d 35 31 3a 45 68  25 3d 34 32 3a 46 68 25  |h%=51:Eh%=42:Fh%|
00003be0  3d 34 33 3a 66 25 3d 69  25 2b 38 38 2b 33 32 2a  |=43:f%=i%+88+32*|
00003bf0  7a 68 25 3a 64 25 28 32  2c 30 29 3d 66 25 21 30  |zh%:d%(2,0)=f%!0|
00003c00  3a 64 25 28 32 2c 31 29  3d 66 25 21 34 3a 64 25  |:d%(2,1)=f%!4:d%|
00003c10  28 32 2c 32 29 3d 66 25  21 38 0d 3c 67 d3 64 25  |(2,2)=f%!8.<g.d%|
00003c20  28 32 2c 33 29 3d 66 25  21 31 32 3a c8 99 26 34  |(2,3)=f%!12:..&4|
00003c30  34 41 44 44 2c 35 2b 32  35 36 2c 69 25 2c 7a 68  |4ADD,5+256,i%,zh|
00003c40  25 2c 31 3a 47 68 25 3d  6d 68 25 2b 6b 68 25 2d  |%,1:Gh%=mh%+kh%-|
00003c50  69 68 25 3a de 48 68 25  20 34 2b 33 32 2a 47 68  |ih%:.Hh% 4+32*Gh|
00003c60  25 3a c8 99 26 34 34 41  43 37 2c 33 32 2a 47 68  |%:..&44AC7,32*Gh|
00003c70  25 2c 69 25 2b 38 38 2b  33 32 2a 69 68 25 2c 48  |%,i%+88+32*ih%,H|
00003c80  68 25 2b 34 3a 21 48 68  25 3d 47 68 25 3a e3 65  |h%+4:!Hh%=Gh%:.e|
00003c90  25 3d 69 68 25 b8 6d 68  25 2d 31 3a c8 99 26 34  |%=ih%.mh%-1:..&4|
00003ca0  34 41 44 44 2c 35 2b 32  35 36 2c 69 25 2c 65 25  |4ADD,5+256,i%,e%|
00003cb0  2c 31 3a ed 3a e3 65 25  3d 6d 68 25 b8 6d 68 25  |,1:.:.e%=mh%.mh%|
00003cc0  2b 6b 68 25 2d 31 3a c8  99 26 34 34 41 44 44 2c  |+kh%-1:..&44ADD,|
00003cd0  36 2b 32 35 36 2c 69 25  2c 65 25 2c 33 3c 3c 31  |6+256,i%,e%,3<<1|
00003ce0  32 2c 26 46 46 46 46 46  46 46 46 3a ed 0d 3c dc  |2,&FFFFFFFF:..<.|
00003cf0  d6 c8 99 26 34 34 41 44  44 2c 35 2b 32 35 36 2c  |...&44ADD,5+256,|
00003d00  69 25 2c 66 68 25 2c 31  3a c8 99 26 34 30 30 43  |i%,fh%,1:..&400C|
00003d10  31 2c 2c 69 25 b8 6c 25  3a f2 50 28 69 25 2c 6c  |1,,i%.l%:.P(i%,l|
00003d20  25 29 3a de 41 25 20 34  30 3a f2 51 28 41 25 2c  |%):.A% 40:.Q(A%,|
00003d30  69 25 2b 38 38 2b 33 32  2a 66 68 25 2c 6c 25 29  |i%+88+32*fh%,l%)|
00003d40  3a 69 25 28 32 29 3d 41  25 3a 6a 68 25 2d 3d 69  |:i%(2)=A%:jh%-=i|
00003d50  68 25 3a 6c 68 25 2d 3d  69 68 25 3a 49 68 25 3d  |h%:lh%-=ih%:Ih%=|
00003d60  48 68 25 2b 34 2b 28 6d  68 25 2d 69 68 25 29 2a  |Hh%+4+(mh%-ih%)*|
00003d70  33 32 3a 69 68 25 2d 3d  69 68 25 3a e3 65 25 3d  |32:ih%-=ih%:.e%=|
00003d80  69 68 25 b8 6a 68 25 3a  21 28 48 68 25 2b 34 2b  |ih%.jh%:!(Hh%+4+|
00003d90  32 34 2b 33 32 2a 65 25  29 3d 6b 63 25 2b 32 36  |24+32*e%)=kc%+26|
00003da0  2a 28 65 25 2d 69 68 25  29 3a ed 3a e3 65 25 3d  |*(e%-ih%):.:.e%=|
00003db0  30 b8 6b 68 25 2d 31 3a  41 25 3d 68 25 28 65 25  |0.kh%-1:A%=h%(e%|
00003dc0  2c 30 29 0d 3d 63 60 c8  99 26 34 34 41 44 44 2c  |,0).=c`..&44ADD,|
00003dd0  31 2b 35 31 32 2c 6c 25  2c 65 25 2b 6c 68 25 2c  |1+512,l%,e%+lh%,|
00003de0  22 73 22 2b 61 24 28 41  25 2d 31 29 2b 22 2c 70  |"s"+a$(A%-1)+",p|
00003df0  22 2b 61 24 28 41 25 2d  31 29 2c 2c 48 68 25 3a  |"+a$(A%-1),,Hh%:|
00003e00  ed 3a de 4a 68 25 20 6b  68 25 2a 32 34 3a c8 99  |.:.Jh% kh%*24:..|
00003e10  26 34 34 41 44 41 2c 4a  68 25 2c 6b 68 25 2a 32  |&44ADA,Jh%,kh%*2|
00003e20  34 3a e1 0d 3d 90 7b dd  f2 66 28 61 24 29 3a ea  |4:..=.{..f(a$):.|
00003e30  4e 25 3a 24 65 64 25 3d  61 24 2b bd 30 3a c8 99  |N%:$ed%=a$+.0:..|
00003e40  26 34 30 30 44 42 2c 2c  69 25 2c 69 64 25 2c 64  |&400DB,,i%,id%,d|
00003e50  64 25 2b 68 64 25 2c 2d  31 2c 65 64 25 2c 30 b8  |d%+hd%,-1,ed%,0.|
00003e60  2c 2c 69 64 25 2c 2c 2c  2c 4e 25 3a e7 4e 25 3d  |,,id%,,,,N%:.N%=|
00003e70  30 8c f2 62 28 22 54 65  6d 70 6c 61 74 65 20 6e  |0..b("Template n|
00003e80  6f 74 20 66 6f 75 6e 64  20 66 6f 72 20 22 2b 61  |ot found for "+a|
00003e90  24 2b 22 20 77 69 6e 64  6f 77 22 2c b9 29 0d 3e  |$+" window",.).>|
00003ea0  20 0e 69 25 21 36 34 3d  55 25 3a e1 0d 3e 32 49  | .i%!64=U%:..>2I|
00003eb0  dd f2 51 28 41 25 2c 42  25 2c 6e 25 29 3a 21 41  |..Q(A%,B%,n%):!A|
00003ec0  25 3d 6e 25 3a 41 25 21  34 3d 42 25 21 30 3a 41  |%=n%:A%!4=B%!0:A|
00003ed0  25 21 38 3d 42 25 21 34  2b 65 62 25 3a 41 25 21  |%!8=B%!4+eb%:A%!|
00003ee0  31 32 3d 42 25 21 38 3a  41 25 21 31 36 3d 42 25  |12=B%!8:A%!16=B%|
00003ef0  21 31 32 3a e1 0d 3e 7a  6d dd f2 50 28 69 25 2c  |!12:..>zm..P(i%,|
00003f00  6e 25 29 3a 66 25 28 66  64 25 2c 30 29 3d 6e 25  |n%):f%(fd%,0)=n%|
00003f10  3a 66 25 28 66 64 25 2c  31 29 3d 69 25 21 38 2d  |:f%(fd%,1)=i%!8-|
00003f20  69 25 21 30 3a 66 25 28  66 64 25 2c 32 29 3d 69  |i%!0:f%(fd%,2)=i|
00003f30  25 21 31 32 2d 69 25 21  34 3a 66 25 28 66 64 25  |%!12-i%!4:f%(fd%|
00003f40  2c 33 29 3d 69 25 21 31  36 3a 66 25 28 66 64 25  |,3)=i%!16:f%(fd%|
00003f50  2c 34 29 3d 69 25 21 32  30 3a 66 64 25 2b 3d 31  |,4)=i%!20:fd%+=1|
00003f60  3a e1 0d 3e cb da dd f2  4c 61 3a ea 4b 68 25 2c  |:..>....La:.Kh%,|
00003f70  76 25 2c 4c 68 25 2c 4d  68 25 3a 76 25 3d 31 30  |v%,Lh%,Mh%:v%=10|
00003f80  32 34 3a de 4d 68 25 20  76 25 3a e3 4b 68 25 3d  |24:.Mh% v%:.Kh%=|
00003f90  38 b8 31 30 88 32 3a 50  25 3d 4d 68 25 3a 4c 25  |8.10.2:P%=Mh%:L%|
00003fa0  3d 4d 68 25 2b 76 25 3a  5b 4f 50 54 20 4b 68 25  |=Mh%+v%:[OPT Kh%|
00003fb0  3a 2e 4e 68 25 3a 45 51  55 44 20 4c 68 25 2d 4e  |:.Nh%:EQUD Lh%-N|
00003fc0  68 25 3a 45 51 55 44 20  76 64 25 3a 45 51 55 44  |h%:EQUD vd%:EQUD|
00003fd0  20 4f 68 25 2d 50 68 25  2b 38 3a 45 51 55 44 30  | Oh%-Ph%+8:EQUD0|
00003fe0  3a 2e 50 68 25 3a 45 51  55 44 30 3a 45 51 55 44  |:.Ph%:EQUD0:EQUD|
00003ff0  25 30 31 31 31 30 31 31  31 30 30 30 31 30 30 31  |%011101110001001|
00004000  30 3a 45 51 55 44 20 72  64 25 3a 45 51 55 44 20  |0:EQUD rd%:EQUD |
00004010  73 64 25 3a 45 51 55 44  30 3a 45 51 55 44 30 3a  |sd%:EQUD0:EQUD0:|
00004020  45 51 55 44 20 51 68 25  3a 45 51 55 44 2d 31 3a  |EQUD Qh%:EQUD-1:|
00004030  2e 4f 68 25 3a 45 51 55  44 20 6b 25 0d 3f ac cc  |.Oh%:EQUD k%.?..|
00004040  45 51 55 44 20 4c 68 25  2d 52 68 25 3a 2e 52 68  |EQUD Lh%-Rh%:.Rh|
00004050  25 3a 45 51 55 44 30 3a  45 51 55 44 20 64 68 25  |%:EQUD0:EQUD dh%|
00004060  3a 45 51 55 44 25 30 31  31 31 30 31 31 31 31 30  |:EQUD%0111011110|
00004070  30 31 31 30 31 30 3a 45  51 55 44 28 60 67 25 2b  |011010:EQUD(`g%+|
00004080  62 68 25 29 2f 32 3a 45  51 55 44 28 63 68 25 2b  |bh%)/2:EQUD(ch%+|
00004090  61 68 25 29 2f 32 2b 31  3a 45 51 55 44 30 3a 45  |ah%)/2+1:EQUD0:E|
000040a0  51 55 44 30 3a 45 51 55  44 30 3a 45 51 55 44 2d  |QUD0:EQUD0:EQUD-|
000040b0  31 3a 45 51 55 44 2d 31  3a 2e 4c 68 25 3a 2e 51  |1:EQUD-1:.Lh%:.Q|
000040c0  68 25 3a 45 51 55 44 30  3a 45 51 55 44 31 3a 45  |h%:EQUD0:EQUD1:E|
000040d0  51 55 44 30 3a 45 51 55  44 36 3a 45 51 55 44 31  |QUD0:EQUD6:EQUD1|
000040e0  3a 45 51 55 44 31 2d 31  3a 45 51 55 44 2d 31 3a  |:EQUD1-1:EQUD-1:|
000040f0  45 51 55 44 2d 31 3a 45  51 55 44 30 3a 2e 53 68  |EQUD-1:EQUD0:.Sh|
00004100  25 3a 45 51 55 44 31 32  0d 40 9f a6 45 51 55 44  |%:EQUD12.@..EQUD|
00004110  20 75 64 25 3a 45 51 55  44 35 32 3a 45 51 55 44  | ud%:EQUD52:EQUD|
00004120  31 3a 45 51 55 44 31 3a  45 51 55 44 30 3a 45 51  |1:EQUD1:EQUD0:EQ|
00004130  55 44 30 3a 45 51 55 44  30 3a 2e 54 68 25 3a 45  |UD0:EQUD0:.Th%:E|
00004140  51 55 44 30 3a 45 51 55  44 2d 74 64 25 3a 45 51  |QUD0:EQUD-td%:EQ|
00004150  55 44 20 75 64 25 3a 45  51 55 44 30 3a 45 51 55  |UD ud%:EQUD0:EQU|
00004160  44 20 75 64 25 3a 45 51  55 44 31 3a 45 51 55 44  |D ud%:EQUD1:EQUD|
00004170  26 31 30 30 30 30 30 36  32 3a 45 51 55 42 31 3a  |&10000062:EQUB1:|
00004180  45 51 55 42 31 30 3a 45  51 55 42 30 3a 45 51 55  |EQUB10:EQUB0:EQU|
00004190  42 30 3a 45 51 55 53 22  46 69 6c 65 73 22 2b bd  |B0:EQUS"Files"+.|
000041a0  30 3a 41 4c 49 47 4e 3a  20 5d 3a ed 3a e1 0d 41  |0:ALIGN: ]:.:..A|
000041b0  77 e3 dd f2 70 61 3a ea  67 63 25 2c 55 68 25 2c  |w...pa:.gc%,Uh%,|
000041c0  6a 61 25 2c 62 24 2c 41  25 3a c8 99 26 34 31 31  |ja%,b$,A%:..&411|
000041d0  43 33 b8 55 68 25 3a 56  68 25 3d 8e 28 22 3c 4d  |C3.Uh%:Vh%=.("<M|
000041e0  75 73 69 63 42 6f 78 44  24 44 69 72 3e 2e 4d 43  |usicBoxD$Dir>.MC|
000041f0  6f 64 65 56 61 72 73 22  29 3a f2 61 28 57 68 25  |odeVars"):.a(Wh%|
00004200  29 3a f2 61 28 58 68 25  29 3a f2 61 28 59 68 25  |):.a(Xh%):.a(Yh%|
00004210  29 3a f2 61 28 5a 68 25  29 3a f2 61 28 5f 68 25  |):.a(Zh%):.a(_h%|
00004220  29 3a f2 61 28 60 68 25  29 3a f2 61 28 61 69 25  |):.a(`h%):.a(ai%|
00004230  29 3a f2 61 28 62 69 25  29 3a f2 61 28 63 69 25  |):.a(bi%):.a(ci%|
00004240  29 3a f2 61 28 64 69 25  29 3a f2 61 28 65 69 25  |):.a(di%):.a(ei%|
00004250  29 3a f2 61 28 66 69 25  29 3a f2 61 28 67 69 25  |):.a(fi%):.a(gi%|
00004260  29 3a f2 61 28 68 69 25  29 3a f2 61 28 69 69 25  |):.a(hi%):.a(ii%|
00004270  29 3a f2 61 28 6a 69 25  29 3a f2 61 28 6b 69 25  |):.a(ji%):.a(ki%|
00004280  29 3a f2 61 28 6c 69 25  29 3a f2 61 28 6d 69 25  |):.a(li%):.a(mi%|
00004290  29 0d 42 a0 e3 f2 61 28  6e 69 25 29 3a f2 61 28  |).B...a(ni%):.a(|
000042a0  6f 69 25 29 3a f2 61 28  70 69 25 29 3a f2 61 28  |oi%):.a(pi%):.a(|
000042b0  71 69 25 29 3a f2 61 28  72 69 25 29 3a f2 61 28  |qi%):.a(ri%):.a(|
000042c0  73 69 25 29 3a f2 61 28  74 69 25 29 3a f2 61 28  |si%):.a(ti%):.a(|
000042d0  75 69 25 29 3a f2 61 28  76 69 25 29 3a f2 61 28  |ui%):.a(vi%):.a(|
000042e0  77 69 25 29 3a f2 61 28  78 69 25 29 3a f2 61 28  |wi%):.a(xi%):.a(|
000042f0  79 69 25 29 3a f2 61 28  7a 69 25 29 3a f2 61 28  |yi%):.a(zi%):.a(|
00004300  41 69 25 29 3a f2 61 28  42 69 25 29 3a f2 61 28  |Ai%):.a(Bi%):.a(|
00004310  43 69 25 29 3a f2 61 28  44 69 25 29 3a f2 61 28  |Ci%):.a(Di%):.a(|
00004320  45 69 25 29 3a f2 61 28  46 69 25 29 3a f2 61 28  |Ei%):.a(Fi%):.a(|
00004330  47 69 25 29 3a f2 61 28  48 69 25 29 3a f2 61 28  |Gi%):.a(Hi%):.a(|
00004340  49 69 25 29 3a f2 61 28  4a 69 25 29 3a f2 61 28  |Ii%):.a(Ji%):.a(|
00004350  4b 69 25 29 3a f2 61 28  4c 69 25 29 3a f2 61 28  |Ki%):.a(Li%):.a(|
00004360  4d 69 25 29 3a f2 61 28  4e 69 25 29 3a f2 61 28  |Mi%):.a(Ni%):.a(|
00004370  4f 69 25 29 0d 43 9c e3  f2 61 28 50 69 25 29 3a  |Oi%).C...a(Pi%):|
00004380  f2 61 28 51 69 25 29 3a  f2 61 28 52 69 25 29 3a  |.a(Qi%):.a(Ri%):|
00004390  f2 61 28 53 69 25 29 3a  f2 61 28 54 69 25 29 3a  |.a(Si%):.a(Ti%):|
000043a0  f2 61 28 55 69 25 29 3a  f2 61 28 56 69 25 29 3a  |.a(Ui%):.a(Vi%):|
000043b0  f2 61 28 57 69 25 29 3a  f2 61 28 58 69 25 29 3a  |.a(Wi%):.a(Xi%):|
000043c0  f2 61 28 59 69 25 29 3a  f2 61 28 5a 69 25 29 3a  |.a(Yi%):.a(Zi%):|
000043d0  f2 61 28 5f 69 25 29 3a  f2 61 28 60 69 25 29 3a  |.a(_i%):.a(`i%):|
000043e0  f2 61 28 61 6a 25 29 3a  f2 61 28 62 6a 25 29 3a  |.a(aj%):.a(bj%):|
000043f0  f2 61 28 63 6a 25 29 3a  f2 61 28 64 6a 25 29 3a  |.a(cj%):.a(dj%):|
00004400  f2 61 28 65 6a 25 29 3a  f2 61 28 66 6a 25 29 3a  |.a(ej%):.a(fj%):|
00004410  f2 61 28 67 6a 25 29 3a  f2 61 28 68 6a 25 29 3a  |.a(gj%):.a(hj%):|
00004420  f2 61 28 69 6a 25 29 3a  f2 61 28 6a 6a 25 29 3a  |.a(ij%):.a(jj%):|
00004430  f2 61 28 6b 6a 25 29 3a  f2 61 28 6c 6a 25 29 3a  |.a(kj%):.a(lj%):|
00004440  f2 61 28 6d 6a 25 29 3a  f2 61 28 6e 6a 25 29 3a  |.a(mj%):.a(nj%):|
00004450  f2 61 28 6f 6a 25 29 0d  44 98 db f2 61 28 70 6a  |.a(oj%).D...a(pj|
00004460  25 29 3a f2 61 28 71 6a  25 29 3a f2 61 28 72 6a  |%):.a(qj%):.a(rj|
00004470  25 29 3a f2 61 28 73 6a  25 29 3a f2 61 28 74 6a  |%):.a(sj%):.a(tj|
00004480  25 29 3a f2 61 28 75 6a  25 29 3a f2 61 28 76 6a  |%):.a(uj%):.a(vj|
00004490  25 29 3a f2 61 28 77 6a  25 29 3a f2 61 28 78 6a  |%):.a(wj%):.a(xj|
000044a0  25 29 3a f2 61 28 79 6a  25 29 3a f2 61 28 7a 6a  |%):.a(yj%):.a(zj|
000044b0  25 29 3a f2 61 28 41 6a  25 29 3a f2 61 28 42 6a  |%):.a(Aj%):.a(Bj|
000044c0  25 29 3a f2 61 28 43 6a  25 29 3a f2 61 28 44 6a  |%):.a(Cj%):.a(Dj|
000044d0  25 29 3a f2 61 28 45 6a  25 29 3a f2 61 28 46 6a  |%):.a(Ej%):.a(Fj|
000044e0  25 29 3a f2 61 28 47 6a  25 29 3a f2 61 28 48 6a  |%):.a(Gj%):.a(Hj|
000044f0  25 29 3a f2 61 28 49 6a  25 29 3a f2 61 28 4a 6a  |%):.a(Ij%):.a(Jj|
00004500  25 29 3a f2 61 28 4b 6a  25 29 3a f2 61 28 4c 6a  |%):.a(Kj%):.a(Lj|
00004510  25 29 3a f2 61 28 4d 6a  25 29 3a f2 61 28 4e 6a  |%):.a(Mj%):.a(Nj|
00004520  25 29 3a f2 61 28 4f 6a  25 29 3a f2 61 28 50 6a  |%):.a(Oj%):.a(Pj|
00004530  25 29 0d 45 8b da f2 61  28 51 6a 25 29 3a f2 61  |%).E...a(Qj%):.a|
00004540  28 52 6a 25 29 3a f2 61  28 53 6a 25 29 3a f2 61  |(Rj%):.a(Sj%):.a|
00004550  28 54 6a 25 29 3a f2 61  28 55 6a 25 29 3a f2 61  |(Tj%):.a(Uj%):.a|
00004560  28 56 6a 25 29 3a f2 61  28 57 6a 25 29 3a f2 61  |(Vj%):.a(Wj%):.a|
00004570  28 58 6a 25 29 3a f2 61  28 59 6a 25 29 3a f2 61  |(Xj%):.a(Yj%):.a|
00004580  28 5a 6a 25 29 3a f2 61  28 5f 6a 25 29 3a f2 61  |(Zj%):.a(_j%):.a|
00004590  28 60 6a 25 29 3a f2 61  28 61 6b 25 29 3a f2 61  |(`j%):.a(ak%):.a|
000045a0  28 62 6b 25 29 3a f2 61  28 63 6b 25 29 3a f2 61  |(bk%):.a(ck%):.a|
000045b0  28 64 6b 25 29 3a d9 23  56 68 25 3a 57 68 25 21  |(dk%):.#Vh%:Wh%!|
000045c0  33 32 3d 6b 64 25 3a 21  6c 69 25 3d 6a 63 25 3a  |32=kd%:!li%=jc%:|
000045d0  21 6d 69 25 3d 57 25 2a  31 32 3a 21 43 69 25 3d  |!mi%=W%*12:!Ci%=|
000045e0  76 67 25 3a 47 69 25 21  30 3d 72 67 25 3a 47 69  |vg%:Gi%!0=rg%:Gi|
000045f0  25 21 34 3d 73 67 25 3a  47 69 25 21 38 3d 74 67  |%!4=sg%:Gi%!8=tg|
00004600  25 3a 47 69 25 21 31 32  3d 75 67 25 0d 46 6c d6  |%:Gi%!12=ug%.Fl.|
00004610  49 69 25 21 30 3d 72 67  25 3a 49 69 25 21 34 3d  |Ii%!0=rg%:Ii%!4=|
00004620  73 67 25 2d 34 3a 49 69  25 21 38 3d 74 67 25 3a  |sg%-4:Ii%!8=tg%:|
00004630  49 69 25 21 31 32 3d 75  67 25 2b 34 3a 21 4a 69  |Ii%!12=ug%+4:!Ji|
00004640  25 3d 6e 63 25 3a 21 4b  69 25 3d 67 25 3a 66 69  |%=nc%:!Ki%=g%:fi|
00004650  25 21 30 3d 72 67 25 3a  66 69 25 21 34 3d 73 67  |%!0=rg%:fi%!4=sg|
00004660  25 3a 66 69 25 21 38 3d  74 67 25 3a 66 69 25 21  |%:fi%!8=tg%:fi%!|
00004670  31 32 3d 75 67 25 3a 21  52 69 25 3d 4a 68 25 2d  |12=ug%:!Ri%=Jh%-|
00004680  32 34 3a 21 53 69 25 3d  49 68 25 2d 33 32 3a 21  |24:!Si%=Ih%-32:!|
00004690  56 69 25 3d 6f 25 3a 21  57 69 25 3d 6c 25 3a 21  |Vi%=o%:!Wi%=l%:!|
000046a0  58 69 25 3d 5f 25 3a 21  59 69 25 3d 48 63 25 3a  |Xi%=_%:!Yi%=Hc%:|
000046b0  21 5a 69 25 3d 68 25 3a  21 60 69 25 3d 6b 25 3a  |!Zi%=h%:!`i%=k%:|
000046c0  21 61 6a 25 3d 64 68 25  3a 21 63 6a 25 3d 55 25  |!aj%=dh%:!cj%=U%|
000046d0  3a 21 66 6a 25 3d 6f 63  25 3a 21 69 6a 25 3d 43  |:!fj%=oc%:!ij%=C|
000046e0  63 25 0d 47 32 71 21 79  6a 25 3d 4f 62 25 3a 21  |c%.G2q!yj%=Ob%:!|
000046f0  7a 6a 25 3d 56 25 3a 21  41 6a 25 3d 4c 62 25 3a  |zj%=V%:!Aj%=Lb%:|
00004700  21 4f 6a 25 3d 56 25 3a  21 28 59 68 25 2b 34 2a  |!Oj%=V%:!(Yh%+4*|
00004710  31 30 29 3d 5f 6a 25 3a  21 28 59 68 25 2b 34 2a  |10)=_j%:!(Yh%+4*|
00004720  35 32 29 3d 60 6a 25 3a  21 28 59 68 25 2b 34 2a  |52)=`j%:!(Yh%+4*|
00004730  36 34 29 3d 61 6b 25 3a  21 28 59 68 25 2b 34 2a  |64)=ak%:!(Yh%+4*|
00004740  39 34 29 3d 62 6b 25 3a  51 68 25 21 34 3d 77 6a  |94)=bk%:Qh%!4=wj|
00004750  25 3a e1 0d 47 9e 22 dd  f2 61 28 f8 65 6b 25 29  |%:..G."..a(.ek%)|
00004760  3a e8 23 56 68 25 2c 65  6b 25 3a 65 6b 25 2b 3d  |:.#Vh%,ek%:ek%+=|
00004770  55 68 25 3a e1 0d ff                              |Uh%:...|
00004777