TOUCHSCREEN RANDOMIZE TIMER REM WAS8BIT SOLITAIRE GAME BG 1 BG COPY 0,0,20,16 TO 0,0 GLOBAL GX,GY,IPLACE DIM GLOBAL STACK(18,14,100),DECK(52),DCHAR(52) DIM BX(52),BY(52),DX(52),DY(52) BI=0 FOR I=1 TO 52 READ DCHAR(I) DECK(I)=I NEXT I DATA 64,65,66,67,68,69,70,71,72,73,74,75,76 DATA 96,97,98,99,100,101,102,103,104,105,106,107,108 DATA 128,129,130,131,132,133,134,135,136,137,138,139,140 DATA 160,161,162,163,164,165,166,167,168,169,170,171,172 FOR I=1 TO 300 C1=RND(51)+1 C2=RND(51)+1 SWAP DECK(C1),DECK(C2) NEXT I T=0 FOR I=1 TO 52 CALL PUSH(1,1,DECK(I)) CALL STACKTOTALS WAIT 2 NEXT I FOR Y=3 TO 13 STEP 2 FOR IY=Y TO 13 STEP 2 CARD=0 CALL POP(1,1,CARD) CALL PUSH(1,IY,CARD) CALL STACKTOTALS WAIT 6 NEXT IY NEXT Y TABLE_DEAL=11 TABLE_STACK=1 TABLE_SORT=6 TABLE_DACE=2 TABLE_HACE=3 TABLE_SPACE=4 TABLE_CLACE=5 REDBLACK=26 DACE=1 HACE=14 SPACE=27 CLACE=40 DKING=13 HKING=26 SPKING=39 CLKING=52 GX=-2 GY=0 PX=-2 PY=0 SPRITE 0,GX*8,GY*8,7 SPRITE 0 SIZE 3 PAL 3 SPRITE 1,PX*8,PY*8,7 SPRITE 1 SIZE 3 PAL 3 CWAIT=0 CFLASH=0 CALL STACKTOTALS IPLACE=0 DO IF TOUCH THEN IF IPLACE=0 THEN CALL TOUCHSET(GX,GY) IPLACE=1 ELSE CALL TOUCHSET(PX,PY) END IF ELSE IF IPLACE=1 THEN IPLACE=10 END IF IF IPLACE=10 AND PX>0 AND PY>0 THEN PLAY 1,20,10 SOUND 10 IF GY<2 THEN GZONE=0 ELSE GZONE=1 IF PY<2 THEN PZONE=0 ELSE PZONE=1 GCARD0=STACK(GX,GY,0) IF GX<18 THEN GCARD1=STACK(GX+1,GY,0) ELSE GCARD1=-1 REM NUMBER 70,1,PX,3 REM NUMBER 80,1,PY,3 PCARD0=STACK(PX,PY,0) PCARD1=STACK(PX-1,PY,0) BG 1 GTABLE=CELL.C(GX,GY) PTABLE=CELL.C(PX,PY) RBOK=0 IF GCARD0<=REDBLACK AND PCARD1>REDBLACK THEN RBOK=1 IF GCARD0>REDBLACK AND PCARD1<=REDBLACK THEN RBOK=1 IF PZONE=1 AND PCARD0=0 AND PX=1 THEN RBOK=1 NG=GCARD0 MOD 13 NP=PCARD1 MOD 13 REM NUMBER 80,8,NG,2 REM NUMBER 80,9,NP,2 NC=NG+1 IF RBOK=1 THEN IF NC<>NP THEN RBOK=0 IF NP=0 AND NG=12 THEN RBOK=1 END IF IF NG=0 AND PX=1 THEN RBOK=1 KING=0 GG=GCARD0 IF PZONE=1 AND PCARD0=0 AND PX=1 THEN IF GG=DKING OR GG=HKING OR GG=SPKING OR GG=CLKING THEN KING=1 END IF IF GG MOD 13=0 THEN KING=1 END IF REM NUMBER 80,3,KING,1 REM NUMBER 80,2,RBOK,1 ACE=0 REM DRAW ANOTHER DEAL CARD IF GTABLE=TABLE_DEAL AND PTABLE=TABLE_DEAL THEN CALL ROLL(GX,GY) PLAY 1,70,10 SOUND 1 WAIT 15 ELSE IF GCARD0=PCARD0 AND GCARD0>0 AND GCARD1=0 THEN REM DOUBLE TAP TO AUTO SCORE PLAY NG=GCARD0 MOD 13 REM NUMBER 80,3,GCARD0,3 REM NUMBER 80,4,NG,3 IF GCARD0<=13 THEN NY=11 ELSE IF GCARD0<=26 THEN NY=13 ELSE IF GCARD0<=39 THEN NY=15 ELSE NY=17 END IF REM NUMBER 80,5,NY,2 Z=STACK(NY,1,0) MOD 13 REM NUMBER 80,6,Z,2 IF NG=Z+1 OR (Z=12 AND NG=0) THEN PLAY 1,90,1 SOUND 1 PLAY 3,90,10 SOUND 3 CARD=0 CALL POP(GX,GY,CARD) CALL PUSH(NY,1,CARD) CALL STACKTOTALS END IF END IF END IF REM MOVE 1 CARD FROM ZONE 0 TO ZONE 0 IF GZONE=0 AND PZONE=0 AND GCARD0>0 AND PTABLE>=2 AND PTABLE<=6 THEN IF GTABLE=TABLE_DEAL OR (GTABLE=TABLE_SORT AND PTABLE<>TABLE_SORT) THEN IF PTABLE<>TABLE_SORT THEN GOSUB FINISHCHECK IF FIN=1 THEN GOSUB GETPUTCARDS ELSE GOSUB GETPUTCARDS END IF END IF END IF REM MOVE 1 CARD FROM ZONE 1 TO ZONE 1 IF GZONE=1 AND PZONE=1 AND GCARD0>0 AND PCARD0=0 AND GCARD1=0 AND (PCARD1>0 OR PX=1) THEN IF PX>1 OR (PX=1 AND KING=1) THEN IF RBOK=1 THEN GOSUB GETPUTCARDS END IF END IF REM MOVE A STACK OF CARDS FROM ZONE 1 TO ZONE 1 IF GZONE=1 AND PZONE=1 AND GCARD0>0 AND PCARD0=0 AND GCARD1>0 AND (PCARD1>0 OR PX=1) THEN IF PX>1 OR (PX=1 AND KING=1) THEN IF RBOK=1 THEN GOSUB MOVESTACK END IF END IF REM MOVE 1 END CARD FROM ZONE 1 TO ZONE 0 IF GZONE=1 AND PZONE=0 AND PTABLE<>TABLE_DEAL AND GCARD0>0 AND GCARD1=0 THEN IF PTABLE<>TABLE_SORT THEN GOSUB FINISHCHECK IF FIN=1 THEN GOSUB GETPUTCARDS ELSE GOSUB GETPUTCARDS END IF END IF REM MOVE 1 CARD FROM ZONE 0 TO ZONE 1 IF GZONE=0 AND PZONE=1 AND GCARD0>0 AND PCARD0=0 AND (PCARD1>0 OR PX=1) THEN IF RBOK=1 THEN GOSUB GETPUTCARDS END IF GOSUB WINCHECK IPLACE=0 GX=-2 PX=-2 END IF SPRITE 0,GX*8-8,GY*8-8, SPRITE 1,PX*8-8,PY*8-8, WAIT VBL LOOP FINISHCHECK: FIN=0 IF PCARD0=0 THEN IF GCARD0=DACE AND PTABLE=TABLE_DACE THEN FIN=1 IF GCARD0=HACE AND PTABLE=TABLE_HACE THEN FIN=1 IF GCARD0=SPACE AND PTABLE=TABLE_SPACE THEN FIN=1 IF GCARD0=CLACE AND PTABLE=TABLE_CLACE THEN FIN=1 ELSE IF GCARD0=PCARD0+1 THEN FIN=1 END IF RETURN WINCHECK: IF STACK(11,1,0)=DKING AND STACK(13,1,0)=HKING AND STACK(15,1,0)=SPKING AND STACK(17,1,0)=CLKING THEN GOTO DOWIN RETURN MOVESTACK: REM HOW MANY CARDS TO MOVE GG=STACK(GX,GY,0) IX=GX WHILE GG<>0 INC IX IF IX>18 THEN GG=0 ELSE GG=STACK(IX,GY,0) WEND TOMOVE=IX-GX REM HOW MUCH SPACE TO MOVE TO TOGO=19-PX IF TOMOVE<=TOGO THEN FOR I=0 TO TOMOVE-1 GGX=GX+I PPX=PX+I CARD=0 CALL POP(GGX,GY,CARD) CALL PUSH(PPX,PY,CARD) CALL STACKTOTALS PLAY 1,70,10 SOUND 1 WAIT 6 NEXT I END IF RETURN GETPUTCARDS: CARD=0 CALL POP(GX,GY,CARD) CALL PUSH(PX,PY,CARD) CALL STACKTOTALS PLAY 1,70,10 SOUND 1 WAIT VBL RETURN DOWIN: SPRITE 1 SIZE 0 CARD=0 T=0 S=0 FOR I=1 TO 52 DECK(I)=I ADD S,1,1 TO 13 IF S=1 THEN INC T CALL POP(9+T*2,1,CARD) BX(I)=(9+T*2)*8 BY(I)=8 DX(I)=0 WHILE ABS(DX(I))<0.5 DX(I)=RND-RND WEND DY(I)=-RND*4 SPRITE I,BX(I),BY(I),DCHAR(I) SPRITE I PAL 1 NEXT I II=1 DO FOR I=1 TO II DY(I)=DY(I)+0.1 BY(I)=BY(I)+DY(I) IF BY(I)>124 THEN DY(I)=-ABS(DY(I)*0.95) BY(I)=124 END IF BX(I)=BX(I)+DX(I) IF BX(I)<0 THEN DX(I)=ABS(DX(I)) IF DY(I)<0.1 AND BY(I)=124 THEN PLAY 2,30+RND(30),30 SOUND 2 SPRITE I,0,0,0 DX(I)=0 BX(I)=60 END IF END IF IF BX(I)>155 THEN DX(I)=-ABS(DX(I)) IF DY(I)<0.1 AND BY(I)=124 THEN PLAY 2,30+RND(30),30 SOUND 2 SPRITE I,0,0,0 DX(I)=0 BX(I)=60 END IF END IF SPRITE I,BX(I),BY(I), NEXT I JWAIT=(JWAIT+1) MOD 60 IF JWAIT=0 AND II<52 THEN INC II WAIT VBL LOOP END SUB TOUCHSET(X,Y) TX=(TOUCH.X-8)\8 TY=(TOUCH.Y-12)\8 X=TX Y=TY IF X<1 THEN X=1 IF Y<1 THEN Y=1 IF X>18 THEN X=18 IF Y/2=Y\2 THEN Y=Y+1 IF Y>13 THEN Y=13 IF Y=1 THEN IF X/2=X\2 THEN X=X+1 IF X>17 THEN X=17 IF X<0 THEN X=1 END IF END SUB SUB STACKTOTALS PAL 4 TEXT 0,0," " FOR Y=1 TO 13 STEP 2 FOR I=0 TO 100 IF STACK(1,Y,I)=0 THEN TOT=I I=100 END IF NEXT I IF Y=1 THEN YY=Y-1 ELSE YY=Y TEXT 0,YY,STR$(TOT) NEXT Y FOR X=3 TO 9 STEP 2 FOR I=0 TO 100 IF STACK(X,1,I)=0 THEN TOT=I I=100 END IF NEXT I TEXT X,0,STR$(TOT) NEXT X END SUB SUB POP(X,Y,COUT) IF STACK(X,Y,0)>0 THEN COUT=STACK(X,Y,0) FOR I=0 TO 99 STACK(X,Y,I)=STACK(X,Y,I+1) NEXT I BG 0 PAL 1 CELL X,Y,DCHAR(STACK(X,Y,0)) CELL X,Y+1,DCHAR(STACK(X,Y,0))+16 END IF END SUB SUB PUSH(X,Y,CIN) BG 1 C=CELL.C(X,Y) IF C<80 THEN FOR I=100 TO 1 STEP -1 STACK(X,Y,I)=STACK(X,Y,I-1) NEXT I STACK(X,Y,0)=CIN BG 0 PAL 1 CELL X,Y,DCHAR(CIN) CELL X,Y+1,DCHAR(CIN)+16 PLAY 0,90,1 SOUND 0 END IF END SUB SUB ROLL(X,Y) CARD=0 CALL POP(X,Y,CARD) FOR I=0 TO 100 IF STACK(X,Y,I)=0 THEN TOT=I I=100 END IF NEXT I STACK(X,Y,TOT)=CARD IF TOT=0 THEN BG 0 PAL 1 CELL X,Y,DCHAR(CARD) CELL X,Y+1,DCHAR(CARD)+16 PLAY 0,90,1 SOUND 0 END IF END SUB #1:MAIN PALETTES 04081C2E003F340000080C00003C2814 003F3F0400081C3000081C0000083000 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000001824420000000000000000 3C7EFFFFF7E3C18000000000081C3E7F 3C7EFFFFC98080C100000000367F7F3E 3C7EFFFFFFFFFFFF000000081C3E7F6B 3C7EFFFFFFFFFFFF000000001C1C6B7F 3C428181818181810000000000000000 00000000000704050000000000000303 0000000000C300000000000000008100 0000000000E020A0000000000000C0C0 00000000000000000000000000000000 FFFFFFFFFFFFFFFF0000000000000000 C080E080F080F8800000000000000000 000000000000047A0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 42422418000000000000000000000000 C1E3F7FFFF7E3C003E1C080000000000 E3F7FFFFFF7E3C001C08000000000000 FFFFFFFFFF7E3C002A08000000000000 FFFFFFFFFF7E3C006B08000000000000 8181818181423C000000000000000000 04040000000000000200000000000000 00000000000000000000000000000000 20200000000000004000000000000000 00000000000000000000000000000000 FFFFFFFFFFFFFFFF0000000000000000 F880F080E080C0800000000000000000 817A0400000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000004040000000000000002 00000000000000000000000000000000 00000000000020200000000000000040 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000C381E781FF810000000000000000 0000030107010F010000000000000000 0000C080E080F0800000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 05040700000000000303000000000000 0000C300000000000081000000000000 A020E00000000000C0C0000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FF81E781C30000000000000000000000 0F010701030000000000000000000000 F080E080C00000000000000000000000 7EE3C19C80809C9C001C3E637F7F6363 7E8180FCE1C39F80007E7F031E3C607F 7E8180FCE1E1FC80007E7F031E1E037F 7E9C9C9C8080FCFC006363637F7F0303 7E80809F8180FC80007F7F607E7F037F 7EC1819F81809C80003E7E607E7F637F 7E8080FCFCF8F9F9007F7F0303070606 7EC1809CC1C19C80003E7F633E3E637F FEC1809C80C0FCC0003E7F637F3F033F 7E9990969696969000666F696969696F FEE0E0F9F9F99981001F1F060606667E 7EE3C19C9C9498C1001C3E63636B673E 7E9C9891838391980063676E7C7C6E67 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 9CF7E3C180C1E37663081C3E7F3E1C08 80F7E3C180C1E3767F081C3E7F3E1C08 81F7E3C180C1E3767E081C3E7F3E1C08 FCF7E3C180C1E37603081C3E7F3E1C08 81F7E3C180C1E3767E081C3E7F3E1C08 C1F7E3C180C1E3763E081C3E7F3E1C08 F9F7E3C180C1E37606081C3E7F3E1C08 C1F7E3C180C1E3763E081C3E7F3E1C08 C1F7E3C180C1E3763E081C3E7F3E1C08 99F7E3C180C1E37666081C3E7F3E1C08 C3F7E3C180C1E3763C081C3E7F3E1C08 E2F7E3C180C1E3761D081C3E7F3E1C08 9CF7E3C180C1E3F663081C3E7F3E1C08 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 7EE3C19C80809C9C001C3E637F7F6363 7E8180FCE1C39F80007E7F031E3C607F 7E8180FCE1E1FC80007E7F031E1E037F 7E9C9C9C8080FCFC006363637F7F0303 7E80809F8180FC80007F7F607E7F037F 7EC1819F81809C80003E7E607E7F637F 7E8080FCFCF8F9F9007F7F0303070606 7EC1809CC1C19C80003E7F633E3E637F 7EC1809C80C0FCC0003E7F637F3F033F 7E9990969696969000666F696969696F 7EE0E0F9F9F99981001F1F060606667E 7EE3C19C9C9498C1001C3E63636B673E 7E9C9891838391980063676E7C7C6E67 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 9CFFC98080C1E3766300367F7F3E1C08 80FFC98080C1E3767F00367F7F3E1C08 81FFC98080C1E3767E00367F7F3E1C08 FCFFC98080C1E3760300367F7F3E1C08 81FFC98080C1E3767E00367F7F3E1C08 C1FFC98080C1E3763E00367F7F3E1C08 F9FFC98080C1E3760600367F7F3E1C08 C1FFC98080C1E3763E00367F7F3E1C08 C1FFC98080C1E3763E00367F7F3E1C08 99FFC98080C1E3766600367F7F3E1C08 C3FFC98080C1E3763C00367F7F3E1C08 E2FFC98080C1E3761D00367F7F3E1C08 9CFFC98080C1E3766300367F7F3E1C08 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 7EFFFFFFFFFFFFFF001C3E637F7F6363 7EFFFFFFFFFFFFFF007E7F031E3C607F FEFFFFFFFFFFFFFF007E7F031E1E037F 7EFFFFFFFFFFFFFF006363637F7F0303 7EFFFFFFFFFFFFFF007F7F607E7F037F 7EFFFFFFFFFFFFFF003E7E607E7F637F 7EFFFFFFFFFFFFFF007F7F0303070606 7EFFFFFFFFFFFFFF003E7F633E3E637F 7EFFFFFFFFFFFFFF003E7F637F3F033F 7EFFFFFFFFFFFFFF00666F696969696F 7EFFFFFFFFFFFFFF001F1F060606667E 7EFFFFFFFFFFFFFF001C3E63636B673E 7EFFFFFFFFFFFFFF0063676E7C7C6E67 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFFFFFFFFFF7E63081C3E7F6B2A08 FFFFFFFFFFFFFF7E7F081C3E7F6B2A08 FFFFFFFFFFFFFF7E7E081C3E7F6B2A08 FFFFFFFFFFFFFF7E03081C3E7F6B2A08 FFFFFFFFFFFFFF7E7E081C3E7F6B2A08 FFFFFFFFFFFFFF7E3E081C3E7F6B2A08 FFFFFFFFFFFFFF7E06081C3E7F6B2A08 FFFFFFFFFFFFFF7E3E081C3E7F6B2A08 FFFFFFFFFFFFFF7E3E081C3E7F6B2A08 FFFFFFFFFFFFFF7E66081C3E7F6B2A08 FFFFFFFFFFFFFF7E3C081C3E7F6B2A08 FFFFFFFFFFFFFF7E1D081C3E7F6B2A08 FFFFFFFFFFFFFF7E63081C3E7F6B2A08 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 7EFFFFFFFFFFFFFF001C3E637F7F6363 7EFFFFFFFFFFFFFF007E7F031E3C607F 7EFFFFFFFFFFFFFF007E7F031E1E037F 7EFFFFFFFFFFFFFF006363637F7F0303 7EFFFFFFFFFFFFFF007F7F607E7F037F 7EFFFFFFFFFFFFFF003E7E607E7F637F 7EFFFFFFFFFFFFFF007F7F0303070606 7EFFFFFFFFFFFFFF003E7F633E3E637F 7EFFFFFFFFFFFFFF003E7F637F3F033F 7EFFFFFFFFFFFFFF00666F696969696F 7EFFFFFFFFFFFFFF001F1F060606667E 7EFFFFFFFFFFFFFF001C3E63636B673E 7EFFFFFFFFFFFFFF0063676E7C7C6E67 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFFFFFFFFFF7E63001C1C6B7F6B08 FFFFFFFFFFFFFF7F7F001C1C6B7F6B08 FFFFFFFFFFFFFF7E7E001C1C6B7F6B08 FFFFFFFFFFFFFF7E03001C1C6B7F6B08 FFFFFFFFFFFFFF7E7E001C1C6B7F6B08 FFFFFFFFFFFFFF7E3E001C1C6B7F6B08 FFFFFFFFFFFFFF7E06001C1C6B7F6B08 FFFFFFFFFFFFFF7E3E001C1C6B7F6B08 FFFFFFFFFFFFFF7E3E001C1C6B7F6B08 FFFFFFFFFFFFFF7E66001C1C6B7F6B08 FFFFFFFFFFFFFF7E3C001C1C6B7F6B08 FFFFFFFFFFFFFF7E1D001C1C6B7F6B08 FFFFFFFFFFFFFF7E63001C1C6B7F6B08 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00181818180018000000000000000000 006C6C24000000000000000000000000 00247E24247E24000000000000000000 00083E380E3E08000000000000000000 00626408102646000000000000000000 001C34386E643A000000000000000000 00181830000000000000000000000000 000C183030180C000000000000000000 0030180C0C1830000000000000000000 000024187E1824000000000000000000 000018187E1818000000000000000000 00000000181830000000000000000000 000000007E0000000000000000000000 00000000001818000000000000000000 00060C18306040000000000000000000 0000000000000000001C2222221C0000 000000000000000000180808081C0000 0000000000000000003C021C203E0000 0000000000000000003C021C023C0000 00000000000000000022223E02020000 0000000000000000003E203C023C0000 0000000000000000001C203C221C0000 0000000000000000001E020202020000 0000000000000000001C221C221C0000 0000000000000000001C221E021C0000 00000018001800000000000000000000 00000018001830000000000000000000 00000C1830180C000000000000000000 0000007E007E00000000000000000000 000030180C1830000000000000000000 003C660C180018000000000000000000 003C666E6E603C000000000000000000 00183C667E6666000000000000000000 007C667C66667C000000000000000000 003C666060663C000000000000000000 00786C66666C78000000000000000000 007E607860607E000000000000000000 007E6078606060000000000000000000 003C606E66663C000000000000000000 0066667E666666000000000000000000 003C181818183C000000000000000000 001E060606663C000000000000000000 00666C78786C66000000000000000000 0060606060607E000000000000000000 0042667E7E6666000000000000000000 0066767E6E6666000000000000000000 003C666666663C000000000000000000 007C667C606060000000000000000000 003C66666A6C3E000000000000000000 007C667C786C66000000000000000000 003E603C06067C000000000000000000 007E1818181818000000000000000000 0066666666663C000000000000000000 00666666663C18000000000000000000 0066667E7E6642000000000000000000 00663C183C6666000000000000000000 0066663C181818000000000000000000 007E0C1830607E000000000000000000 003C303030303C000000000000000000 006030180C0602000000000000000000 003C0C0C0C0C3C000000000000000000 00183C66000000000000000000000000 0000000000007E000000000000000000 #3:MAIN BG 00001410000000000000000000000000 00000000000000000000000000000000 0000000000000000000000000C080B00 0C000600000006000000060000000600 2E0002002D0003002D0004002D000500 2F0000001C081B001C00160000001600 00001600000016003E0012003D001300 3D0014003D0015003F00000000000D00 01000100010001000100010001000100 01000100010001000100010001000100 0100000000001D001100110011001100 11001100110011001100110011001100 11001100110011001100000000000D00 01000100010001000100010001000100 01000100010001000100010001000100 0100000000001D001100110011001100 11001100110011001100110011001100 11001100110011001100000000000D00 01000100010001000100010001000100 01000100010001000100010001000100 0100000000001D001100110011001100 11001100110011001100110011001100 11001100110011001100000000000D00 01000100010001000100010001000100 01000100010001000100010001000100 0100000000001D001100110011001100 11001100110011001100110011001100 11001100110011001100000000000D00 01000100010001000100010001000100 01000100010001000100010001000100 0100000000001D001100110011001100 11001100110011001100110011001100 11001100110011001100000000000D00 01000100010001000100010001000100 01000100010001000100010001000100 0100000000001D001100110011001100 11001100110011001100110011001100 11001100110011001100000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #15:MAIN SOUND 38001000000000003800212201FF0000 210060AA00F0E0002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000