BG COPY 0,0,20,16 TO 0,0 MAXIMAL=256 GLOBAL X DIM GLOBAL V0ON(MAXIMAL),V1ON(MAXIMAL),V2ON(MAXIMAL),V3ON(MAXIMAL) DIM GLOBAL TR0(127),TR1(127),TR2(127),TR3(127) 'DIM VVOL(3,0) X=0 TR=0 DEL=0 TDEL=1 SPLAY=0 TSPLAY=1 'VC=0 SQT=2 FOR I=0 TO 127 V0ON(I)=0 V1ON(I)=0 V2ON(I)=0 V3ON(I)=0 NEXT I 'FOR I=0 TO 3 ' VVOL(I,0)=15 'NEXT I TOUCHSCREEN FONT 128 ATTR 4 TEXT 5,15,"TR" 'TEXT 10,15,"V" 'TEXT 13,15,"VO" ATTR 5 DO XT=TOUCH.X/8 YT=TOUCH.Y/8 IF TOUCH AND XT>17 AND XT<20 AND YT>13 AND YT<16 AND X<107 AND TSPLAY=1 THEN X=X+1 CALL DRSEQ END IF IF TOUCH AND XT>15 AND XT<18 AND YT>13 AND YT<16 AND X>=0 AND TSPLAY=1 THEN X=X-1 CALL DRSEQ END IF IF TOUCH AND XT>6 AND XT<8 AND YT>13 AND YT<16 AND TR<63 THEN TR=TR+0.1 END IF IF TOUCH AND XT>3 AND XT<5 AND YT>13 AND YT<16 AND TR>0.1 THEN TR=TR-0.1 END IF IF TAP AND XT>-1 AND XT<2 AND YT>13 AND YT<16 THEN SWAP DEL,TDEL IF DEL=1 THEN ATTR 4 CELL 0,14,7 CELL 1,14,8 CELL 0,15,23 CELL 1,15,24 ATTR 5 ELSE ATTR 5 CELL 0,14,7 CELL 1,14,8 CELL 0,15,23 CELL 1,15,24 END IF END IF 'IF TAP AND XT>8 AND XT<10 AND YT>13 AND YT<16 AND VC>0 THEN ' VC=VC-1 'END IF 'IF TAP AND XT>10 AND XT<12 AND YT>13 AND YT<16 AND VC<3 THEN ' VC=VC+1 'END IF 'IF TAP AND XT>11 AND XT<13 AND YT>13 AND YT<16 AND VVOL(VC,0)>0 THEN ' VVOL(VC,0)=VVOL(VC,0)-1 ' VOLUME VC,VVOL(VC,0),3 'END IF 'IF TAP AND XT>14 AND XT<16 AND YT>13 AND YT<16 AND VVOL(VC,0)<15 THEN ' VVOL(VC,0)=VVOL(VC,0)+1 ' VOLUME VC,VVOL(VC,0),3 'END IF NUMBER 5,14,INT(TR+1),2 'NUMBER 10,14,VC,1 'NUMBER 13,14,VVOL(VC,0),2 IF TAP AND XT>2 AND YT>2 AND YT<4 THEN IF DEL=0 THEN CELL XT,3,64+TR TR0(X+XT)=INT(TR) V0ON(X+XT)=1 TRACK TR,0 END IF IF DEL=1 THEN ATTR 5 CELL XT,3,2 V0ON(X+XT)=0 ATTR 4 END IF END IF IF TAP AND XT>2 AND YT>5 AND YT<7 THEN IF DEL=0 THEN CELL XT,6,64+TR TR1(X+XT)=INT(TR) V1ON(X+XT)=1 TRACK TR,0 END IF IF DEL=1 THEN ATTR 5 CELL XT,6,2 V1ON(X+XT)=0 ATTR 4 END IF END IF IF TAP AND XT>2 AND YT>8 AND YT<10 THEN IF DEL=0 THEN CELL XT,9,64+TR TR2(X+XT)=INT(TR) V2ON(X+XT)=1 TRACK TR,0 END IF IF DEL=1 THEN ATTR 5 CELL XT,9,2 V2ON(X+XT)=0 ATTR 4 END IF END IF IF TAP AND XT>2 AND YT>11 AND YT<13 THEN IF DEL=0 THEN CELL XT,12,64+TR TR3(X+XT)=INT(TR) V3ON(X+XT)=1 TRACK TR,0 END IF IF DEL=1 THEN ATTR 5 CELL XT,12,2 V3ON(X+XT)=0 ATTR 4 END IF END IF ATTR 5 IF TAP AND XT>1 AND XT<3 AND YT>13 AND YT<16 THEN SWAP SPLAY,TSPLAY SQT=2 X=0 SEQTIMER=TIMER IF SPLAY=1 THEN ATTR 4 CELL 2,14,41 CELL 2,15,57 ATTR 5 ELSE ATTR 5 CELL 2,14,41 CELL 2,15,57 END IF END IF IF SPLAY=1 THEN GOSUB SEQUENCE P0=PEEK($FF43) P1=PEEK($FF4F) P2=PEEK($FF5B) P3=PEEK($FF67) CELL 1,3,P0\32+32 CELL 1,6,P1\32+32 CELL 1,9,P2\32+32 CELL 1,12,P3\32+32 WAIT VBL LOOP SUB DRSEQ BG COPY 3+X,2,18,11 TO 2,2 FOR XS=2 TO 19 IF V0ON(X+XS)=1 THEN CELL XS,3,TR0(X+XS)+64 END IF IF V1ON(X+XS)=1 THEN CELL XS,6,TR1(X+XS)+64 END IF IF V2ON(X+XS)=1 THEN CELL XS,9,TR2(X+XS)+64 END IF IF V3ON(X+XS)=1 THEN CELL XS,12,TR3(X+XS)+64 END IF NEXT XS END SUB SEQUENCE: IF TIMER=SEQTIMER+256 THEN CALL DRSEQ IF V0ON(SQT)=1 THEN TRACK TR0(SQT),0 IF V1ON(SQT)=1 THEN TRACK TR1(SQT),1 IF V2ON(SQT)=1 THEN TRACK TR2(SQT),2 IF V3ON(SQT)=1 THEN TRACK TR3(SQT),3 SEQTIMER=TIMER SQT=SQT+1 X=X+1 IF SQT=126 THEN SQT=2 X=0 END IF END IF RETURN #1:MAIN PALETTES 003F2F0000383400003C0C00003F3C00 0030303F003F2A3F003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000FF818181818181FF 00000000031E70C00000000000000000 00000C7EC20202020000000000000000 18181818181800000000000000000000 00000000000000000000000000000000 808080808080808080BFC6DADADADADA 010101010101010101FD2FEFEFEFEF6F 80808080808080800000000000000000 FF000000000000000000000000000000 7F808080808080800000000000000000 003F665E5E5E667A0000000000000000 00FC46EEEEEE6EEE0000000000000000 0000307E434040400000000000000000 00000000C0780E030000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 C0701E03000000000000000000000000 020202C27E0C00000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 80808080808080FFDADADADADAC7BFFF 01010101010101FEEFEFEFEFEF23FDFE 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 7A7A7A7A7A663F000000000000000000 EEEEEEEEEE6EFC000000000000000000 404040437E3000000000000000000000 030E78C0000000000000000000000000 01010101010101010000000000000000 01010101010101190000000000000000 01010101010119190000000000000000 01010101011919190000000000000000 01010101191919190000000000000000 01010119191919190000000000000000 01011919191919190000000000000000 01191919191919190000000000000000 19191919191919190000000000000000 C0E0E0B0B098988C0000000000000000 0307070D0D1919310000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 8C9898B0B0E0E0C00000000000000000 3119190D0D0707030000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0066767676767600FF818181818181FF 006676666E6E6600FF818181818181FF 0066766676766600FF818181818181FF 006E6A627A7A7A00FF818181818181FF 00465E4676764600FF818181818181FF 004E5E4656564600FF818181818181FF 00627A7A76767600FF818181818181FF 00626A626A6A6200FF818181818181FF 00626A627A7A7200FF818181818181FF 0010545454545000FF818181818181FF 00185C5C5C5C5C00FF818181818181FF 00185C585A5A5800FF818181818181FF 00185C585C5C5800FF818181818181FF 001654505C5C5C00FF818181818181FF 001056505C5C5000FF818181818181FF 0012565054545000FF818181818181FF 00105C5C5A5A5A00FF818181818181FF 0010545054545000FF818181818181FF 001054505C5C5800FF818181818181FF 0010541434341000FF818181818181FF 00185C1C3C3C1C00FF818181818181FF 00185C183A3A1800FF818181818181FF 00185C183C3C1800FF818181818181FF 001654103C3C0C00FF818181818181FF 001056103C3C1000FF818181818181FF 0012561034341000FF818181818181FF 00105C1C3A3A1A00FF818181818181FF 0010541034341000FF818181818181FF 001054103C3C1800FF818181818181FF 0010541454541000FF818181818181FF 00185C1C5C5C1C00FF818181818181FF 00185C185A5A1800FF818181818181FF 00185C185C5C1800FF818181818181FF 001654105C5C1C00FF818181818181FF 001056105C5C1000FF818181818181FF 0012561054541000FF818181818181FF 00105C1C5A5A1A00FF818181818181FF 0010541054541000FF818181818181FF 001054105C5C1800FF818181818181FF 0030240464646000FF818181818181FF 00382C0C6C6C6C00FF818181818181FF 00382C086A6A6800FF818181818181FF 00382C086C6C6800FF818181818181FF 003624006C6C6C00FF818181818181FF 003026006C6C6000FF818181818181FF 0032260064646000FF818181818181FF 00302C0C6A6A6A00FF818181818181FF 0030240064646000FF818181818181FF 003024006C6C6800FF818181818181FF 0000340464640000FF818181818181FF 00083C0C6C6C0C00FF818181818181FF 00083C086A6A0800FF818181818181FF 00083C086C6C0800FF818181818181FF 000634006C6C0C00FF818181818181FF 000036006C6C0000FF818181818181FF 0002360064640000FF818181818181FF 00003C0C6A6A0A00FF818181818181FF 0000340064640000FF818181818181FF 000034006C6C0800FF818181818181FF 0010340424240000FF818181818181FF 00183C0C2C2C0C00FF818181818181FF 00183C082A2A0800FF818181818181FF 00183C082C2C0800FF818181818181FF 001634002C2C0C00FF818181818181FF FFFFFFFFFFFFFFFF0000000000000000 00181818180018000000000000000000 006C6C24000000000000000000000000 00247E24247E24000000000000000000 00083E380E3E08000000000000000000 00626408102646000000000000000000 001C34386E643A000000000000000000 00181830000000000000000000000000 000C183030180C000000000000000000 0030180C0C1830000000000000000000 000024187E1824000000000000000000 000018187E1818000000000000000000 00000000181830000000000000000000 000000007E0000000000000000000000 00000000001818000000000000000000 00060C18306040000000000000000000 00001028281000000000000000000000 00001010101000000000000000000000 00003808203800000000000000000000 00003808183800000000000000000000 00002838080800000000000000000000 00003820083800000000000000000000 00003820383800000000000000000000 00003808080800000000000000000000 00003828383800000000000000000000 00003828380800000000000000000000 00000018001800000000000000000000 00000018001830000000000000000000 00000C1830180C000000000000000000 0000007E007E00000000000000000000 000030180C1830000000000000000000 003C660C180018000000000000000000 003C666E6E603C000000000000000000 00001028382800000000000000000000 00002030283000000000000000000000 00001820201800000000000000000000 00003028283000000000000000000000 00003820303800000000000000000000 00003820302000000000000000000000 00001820281800000000000000000000 00002020382800000000000000000000 00001000101000000000000000000000 00003808083000000000000000000000 00002830282800000000000000000000 00002020203800000000000000000000 00002838282800000000000000000000 00000000382800000000000000000000 00003828283800000000000000000000 00003028302000000000000000000000 00001028281800000000000000000000 00003828302800000000000000000000 00003820083800000000000000000000 00003810101000000000000000000000 00002828283800000000000000000000 00002828281000000000000000000000 00002828382800000000000000000000 00002828102800000000000000000000 00002828101000000000000000000000 00003808203800000000000000000000 003C303030303C000000000000000000 006030180C0602000000000000000000 003C0C0C0C0C3C000000000000000000 00183C66000000000000000000000000 FFFFFFFFFFFFFFFF0000000000000000 #3:MAIN BG 000080100B050A0D0A0D0A0D0A0D0A0D 0A0D0A0D0A0D0A0D0A0D0A0D0A0D0A0D 0A0D0A0D0A0D0A0D0A0D0B0D00000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000090501000A150A150A150A15 0A150A150A150A150A150A150A150A15 0A150A150A150A150A150B1D00000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000004000000000000 00000000000000000000000000000000 00000000000000000004000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000004000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000000905090D0504000400040000 05040004000000000504000400040000 05040004000000000504000400000000 05040004000400000504000400000000 05040004000000000504000400000000 05040004000000000504000400000000 05040004000000000504000400000000 05040004000000000504000400000000 05040004000000000504000400000000 05040004000000000504000400000000 05040004000000000504000400000000 05040004000000000504000400000000 05040004000400000504000400000000 05040004000000000504000400000000 05040004000000000504000400000000 05040004000000000504000400000000 050400040905090D0205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 020502050905090DAD04A904A304B204 AF040004000400040004000400040004 00040004000400040004000400000000 00000000000000000000000000000000 00000000000000040000000000000000 00000000000000000004000400040004 00040004000400000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000005000000000000 00000000000000000000000400000000 00000000000000000000000000000000 00000000000000000000000000000000 000000000905090D0004000400040004 00040004000400040004000400040004 00040004000400040004000400000000 00000004000400040004000400040004 00040004000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000000905090D0205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 020502050905090DA104B204B204A104 AE04A704A504B2040000000000000000 00000000000000000000000000000000 00000000000000000000000000040004 00040004000400000000000000040004 00040004000400040004000400040004 00000000000000000000000000040004 00040004000400040004000400040004 00040004000400040004000400040004 00040004000400040004000400000004 00040004000400040004000400040004 00040004000400040004000400040004 00040000000000040004000400040004 00040004000400040004000400040004 00040004000400040004000400040004 00040004000400040004000400040000 000000040905090D000D000400000000 00000000000400040004000400040004 00040004000400040004000000000000 00000000000000000004000400040004 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000040004000400040004 00040000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00040004000400040004000400040004 00040004000000000000000000000000 00040004000400040004000000000000 00000000000000040000000000040004 00040004000400040004000400040004 00000000000000000000000400040000 000400040905090D020D020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 020502050905090DAE04B80400000000 00000000000000040004000500040004 00040004000400000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000004000000000000000000000000 00000000000000000000000000000000 000000000905090D0004000400000000 00000000000000000000000000000000 00000000000000000000000400000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000050000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000040000000000000000 00000000000000000000000000000000 00000000000000000000000400000000 00000000000000000000000000000000 00000000000000000000000500050005 000500050905090D0205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 02050205020502050205020502050205 020502050905090D0515000400000000 00000000000400040000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000000007050805290500052A050005 00052905000400000005000000000005 0005000003050405040D030D00000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000004 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000000017051805390500053A050005 00053905000400000005000000000005 0005000013051405140D130D00000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #15:MAIN SOUND 6804004C090F2800680200A7090A5000 5801F0100CFF00002800303019FE0000 78012020000000007802F030090F0F00 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 04404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 000000000000572F0000000000000057 2F00000000000000572F000000000000 00572F00572F00572F00572F00572F00 000000000000572F0000000000000057 2F00000000000000572F000000000000 00572F00572F00572F00572F00572F00 190F001B0F00000000270F00190F0000 0000000000250F00190F00140F000000 00160F00000000180F00190F001B0F00 000000250F00190F00000000190F0000 0000190F00200F00190F00000000190F 00140F00000000000000190F00260F00 193F00193F000000000000005E5F0000 0000193F00193F00000000000000193F 000000005E5F00000000000000000000 193F00193F000000000000005E5F0000 0000193F00193F00000000000000193F 000000005E5F00000000000000000000 1B1F0000000000000000000000000000 00000000000000001B1F000000000000 00000000000000000000000000000000 1C1F0000000000000000000000000000 0000000000000000191F000000000000 00000000000000000000000000000000 332F00332F00000000332F00332F0033 2F00332F00332F00332F00332F000000 00000000332F00332F00000000332F00 000000332F00332F00000000332F0000 0000332F00332F00332F00332F00332F 00000000332F00332F00332F00332F00