GAMEPAD 1 RANDOMIZE TIMER REM WAS8BIT SOLITAIRE GAME FONT 0 BG 1 BG COPY 0,0,20,16 TO 0,0 BG 0 GLOBAL GX,GY,IPLACE, XCUR,YCUR,NCUR$,IWIN DIM GLOBAL STACK(20,14,100),DECK(96),DCHAR(96) DIM GLOBAL NAME$(20,14),NUM(20,14) DIM BX(96),BY(96),DX(96),DY(96) IWIN=0 FOR I=1 TO 96 READ DCHAR(I) DECK(I)=I NEXT I DATA 64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79 DATA 096,097,098,099,100,101,102,103,104,105,106,107,108,109,110,111 DATA 128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143 DATA 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175 DATA 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207 DATA 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239 NAME$(1,1)="DEAL" FOR I=3 TO 6 NAME$(I,1)="REG" NUM(I,1)=I-2 NEXT I FOR I=8 TO 19 NAME$(I,1)="TREG" NUM(I,1)=I-7 NEXT I ISTACK=0 FOR Y=3 TO 13 STEP 2 INC ISTACK FOR X=1 TO 8 REM NAME$(X,Y)="STACK"+STR$(ISTACK)+":" NAME$(X,Y)="STACK" NUM(X,Y)=X NEXT X FOR X=11 TO 18 REM NAME$(X,Y)="STACK"+STR$(ISTACK)+":" NAME$(X,Y)="STACK" NUM(X,Y)=X NEXT X NEXT Y FOR I=1 TO 500 C1=RND(95)+1 C2=RND(95)+1 SWAP DECK(C1),DECK(C2) NEXT I T=0 FOR I=1 TO 96 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 FOR X=1 TO 11 STEP 10 CARD=0 CALL POP(1,1,CARD) CALL PUSH(X,IY,CARD) CALL STACKTOTALS WAIT 6 NEXT X NEXT IY NEXT Y GX=-2 GY=0 PX=-2 PY=0 XCUR=1 YCUR=1 SPRITE 1,GX*8,GY*8,12 SPRITE 1 SIZE 3 PAL 3 SPRITE 2,PX*8,PY*8,12 SPRITE 2 SIZE 3 PAL 2 SPRITE 0,XCUR*8,YCUR*8,12 SPRITE 0 SIZE 3 PAL 0 CWAIT=0 CFLASH=0 IPLACE=0 CALL STACKTOTALS CALL MOVECUR(0,0) DO REM TRACE " ",XCUR,YCUR,NCUR$ IF RIGHT(0) THEN CALL MOVECUR(1,0) IF LEFT(0) THEN CALL MOVECUR(-1,0) IF UP(0) THEN CALL MOVECUR(0,-1) IF DOWN(0) THEN CALL MOVECUR(0,1) IF BUTTON TAP(0,1) AND IPLACE=0 THEN SCARD0=STACK(XCUR,YCUR,0) SCARD1=STACK(XCUR+1,YCUR,0) SCOLOR=(SCARD0-1)\32 SNUM=(SCARD0-1) MOD 8 SSET=(SCARD0-1)\8+1 GX=XCUR GY=YCUR IF ((NCUR$="DEAL" OR NCUR$="REG") AND SCARD0>0) OR (NCUR$="STACK" AND SCARD1=0) THEN XCHECK=SSET+7 PNUMCH=(STACK(XCHECK,1,0)-1) MOD 8 IF SNUM=0 AND STACK(XCHECK,1,0)=0 THEN PX=XCHECK PY=1 GOSUB GETPUTCARDS PLAY 2,70,1 SOUND 7 ELSE IF PNUMCH+1=SNUM AND STACK(XCHECK,1,0)>0 THEN PX=XCHECK PY=1 GOSUB GETPUTCARDS PLAY 2,70,1 SOUND 7 ELSE PLAY 2,20,5 SOUND 6 END IF ELSE PLAY 2,20,5 SOUND 6 END IF END IF IF BUTTON TAP(0,0) THEN IF IPLACE=0 THEN GX=XCUR GY=YCUR TRACE GX,GY SPRITE 2,GX*8-4,GY*8-4, SPRITE OFF 0 IPLACE=2 GNAME$=NCUR$ PLAY 2,90,3 SOUND 2 WAIT 15 ELSE IF IPLACE=2 THEN PX=XCUR PY=YCUR SPRITE 1,PX*8-4,PY*8-4, SPRITE OFF 0 IPLACE=3 PNAME$=NCUR$ PLAY 2,90,3 SOUND 2 WAIT 15 END IF END IF IF IPLACE=3 THEN PLAY 1,20,10 SOUND 10 GCARD0=STACK(GX,GY,0) GCARD1=STACK(GX+1,GY,0) PCARD0=STACK(PX,PY,0) PCARD1=STACK(PX-1,PY,0) REM GCOLOR=(GCARD0-1)\32 PCOLOR=(PCARD0-1)\32 GNUM=(GCARD0-1) MOD 8 PNUM=(PCARD0-1) MOD 8 PNUM1=(PCARD1-1) MOD 8 GSET=(GCARD0-1)\8+1 IF PNAME$="TREG" THEN PSET=NUM(PX,PY) ELSE PSET=-1 PCOLOR1=(PCARD1-1)\32 IF GCOLOR=PCOLOR OR GCARD0=0 THEN COLOR0=0 ELSE COLOR0=1 IF GCOLOR=PCOLOR1 OR GCARD0=0 OR PCARD1=0 THEN COLOR1=0 ELSE COLOR1=1 NUMBER0=GNUM-PNUM NUMBER1=GNUM-PNUM1 REM IPLACE=0 ''' APPLY RULES ''' 'DRAW NEW CARD IF GNAME$="DEAL" AND PNAME$="DEAL" THEN FOR II=1 TO 3 CALL ROLL(GX,GY) PLAY 1,70,10 SOUND 1 WAIT 30 NEXT II END IF 'PLAY TO STACK IF GCARD0>0 AND PNAME$="STACK" AND PCARD0=0 THEN IF NUMBER1=-1 AND COLOR1=1 THEN IF GCARD1=0 THEN GOSUB GETPUTCARDS ELSE IF GCARD1>0 AND GNAME$="STACK" THEN GOSUB MOVESTACK ELSE GOSUB GETPUTCARDS END IF END IF END IF 'PLAY TO SORT PILE IF GCARD0>0 AND GNAME$<>"REG" AND PNAME$="REG" THEN IF GNAME$="DEAL" THEN GOSUB GETPUTCARDS IF GNAME$="STACK" AND GCARD1=0 THEN GOSUB GETPUTCARDS END IF 'PLAY TO EMPTY STACK WITH A #7 CARD IF GNUM=7 AND PNAME$="STACK" AND (PX=1 OR PX=11) AND PCARD0=0 THEN IF GNAME$="DEAL" OR GNAME$="REG" THEN GOSUB GETPUTCARDS IF GNAME$="STACK" AND GCARD1=0 THEN GOSUB GETPUTCARDS IF GNAME$="STACK" AND GCARD1>0 THEN GOSUB MOVESTACK END IF 'PLAY TO TARGET PILE IF GNAME$<>"TREG" AND PNAME$="TREG" THEN IF PSET=GSET THEN IF (PCARD0=0 AND PNUM=0) OR NUMBER0=1 THEN GOSUB GETPUTCARDS END IF END IF GOTO SKIP22 'DOUBLE TAP CHECK TO TARGET IF GNAME$<>"DEAL" AND GCARD0=PCARD0 AND GCARD0>0 AND (GCARD1=0 OR GNAME$="REG") THEN XCHECK=GSET+7 PNUMCH=(STACK(XCHECK,1,0)-1) MOD 8 IF GNUM=0 AND STACK(XCHECK,1,0)=0 THEN PX=XCHECK PY=1 GOSUB GETPUTCARDS ELSE IF PNUMCH+1=GNUM AND STACK(XCHECK,1,0)>0 THEN PX=XCHECK PY=1 GOSUB GETPUTCARDS END IF PLAY 1,90,1 END IF SKIP22: GX=-10 GY=-10 PX=-10 PY=-10 SPRITE OFF 1 SPRITE OFF 2 CALL MOVECUR(0,0) END IF WAIT VBL LOOP 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 WAIT 15 RETURN GETPUTCARDS: CARD=0 CALL POP(GX,GY,CARD) CALL PUSH(PX,PY,CARD) CALL STACKTOTALS PLAY 1,70,10 SOUND 1 WAIT 15 RETURN SUB MOVECUR(DX,DY) XX=XCUR+DX YY=YCUR+DY*2 IF XX<=19 AND XX>=1 AND YY<=13 AND YY>=0 THEN XCUR=XX YCUR=YY SPRITE 0,XX*8-4,YY*8-4, PLAY 3,40,1 SOUND 3 WAIT 6 END IF NCUR$=NAME$(XCUR,YCUR) END SUB SUB STACKTOTALS PAL 4 TEXT 0,0," " FOR X=1 TO 11 STEP 10 FOR Y=1 TO 13 STEP 2 FOR I=0 TO 100 IF STACK(X,Y,I)=0 THEN TOT=I I=100 END IF NEXT I IF Y=1 THEN YY=Y-1 ELSE YY=Y TEXT X-1,YY,STR$(TOT) NEXT Y NEXT X FOR X=3 TO 6 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 FOR X=8 TO 19 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) IF TOT=8 AND CELL.A(X,1)<3 THEN INC IWIN FOR W=1 TO 10 FOR WS=4 TO 63 SPRITE WS,X*8+RND(8),8+RND(16),1+RND(1) SPRITE WS FLIP RND(1),RND(1) PAL 3 NEXT WS PLAY 0,60+RND(30),1 SOUND 3 WAIT VBL NEXT W SPRITE OFF 4 TO 63 BG TINT X,1 TO X,2 PAL 3 IF IWIN=12 THEN SPRITE OFF BG 1 FOR IY=0 TO 15 FOR IX=0 TO 19 IF CELL.A(IX,IY)<>3 THEN FOR W=1 TO 2 FOR WS=4 TO 63 SPRITE WS,IX*8+RND(8),IY*8+RND(8),1+RND(1) SPRITE WS FLIP RND(1),RND(1) PAL 3 NEXT WS PLAY 0,60+RND(30),1 SOUND 3 WAIT VBL NEXT W TINT IX,IY PAL 3 END IF NEXT IX NEXT IY DO FOR WS=4 TO 63 IX=RND(19) IY=RND(15) SPRITE WS,IX*8+RND(8),IY*8+RND(8),1+RND(1) SPRITE WS FLIP RND(1),RND(1) PAL 3 NEXT WS WAIT VBL LOOP END IF END IF 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 CALL DRAWCARD(X,Y,STACK(X,Y,0)) END IF END SUB SUB PUSH(X,Y,CIN) FOR I=100 TO 1 STEP -1 STACK(X,Y,I)=STACK(X,Y,I-1) NEXT I STACK(X,Y,0)=CIN CALL DRAWCARD(X,Y,CIN) PLAY 0,90,1 SOUND 0 END SUB SUB ROLL(X,Y) IF STACK(X,Y,1)>0 THEN FOR I=0 TO 100 IF STACK(X,Y,I)=0 THEN TOT=I-1 I=100 END IF NEXT I CARD=STACK(X,Y,TOT) STACK(X,Y,TOT)=0 CALL PUSH(X,Y,CARD) END IF END SUB SUB DRAWCARD(X,Y,C) CALL SETPAL(C) CELL X,Y,DCHAR(C) IF C=0 THEN CELL X,Y+1,0 ELSE CELL X,Y+1,DCHAR(C)+16 END SUB SUB SETPAL(I) IF I<=32 THEN PAL 0 ELSE IF I<=64 THEN PAL 1 ELSE PAL 2 END IF END SUB #1:MAIN PALETTES 003F3020003F0C08003F1B070014283C 003F3F040000302000001C0A00000B07 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000040000000000000004000000000 00000800000000000000080000000000 00030003000300030003000300030003 00C300C300C300C300C300C300C300C3 00C000C000C000C000C000C000C000C0 0000000000547C830000000000547C83 00837C540000000000837C5400000000 00000000007E226300000000007E2263 2063227E000000002063227E00000000 3C7EFFFFFFFFFFFF3C7EFFFFFFFFFFFF 3C428181818181813C42818181818181 00003F302020202000003F2F38303030 0000FC0C040404040000FCF41C0C0C0C 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000001C2222221C0000 000000000000000000180808081C0000 0000000000000000003C021C203E0000 0000000000000000003C021C023C0000 00000000000000000022223E02020000 0000000000000000003E203C023C0000 0000000000000000001C203C221C0000 0000000000000000001E020202020000 0000000000000000001C221C221C0000 0000000000000000001C221E021C0000 FFFFFFFFFF7E3C00FFFFFFFFFF7E3C00 8181818181423C008181818181423C00 20202030202020203030302030303030 0404040C040404040C0C0C040C0C0C0C 00000000000000000000000000000000 00000000000000000000000000000000 3C42BDFFFFFFFFFF3C7EFFFFFFE7DBBD 3C42BDFFFFFFFFFF3C7EFFFFE3DDD5D5 3C42BDFFFFFFFFFF3C7EFFFFE7810024 3C42BDFFFFFFFFFF3C7EFFFFFF6DD7F7 3C42BDFFFFFFFFFF3C7EFFFFFFA5C3E7 3C42BDFFFFFFFFFF3C7EFFFFFFF9B883 3C42BDFFFFFFFFFF3C7EFFFFFFFFE185 3C42BDFFFFFFFFFF3C7EFFFFFFFFF999 3C42BDFFFFFFFFFF3C7EFFFFFFE3C7CF 3C42BDFFFFFFFFFF3C7EFFFFC783AB83 3C42BDFFFFFFFFFF3C7EFFFFFFE1EDE9 3C42BDFFFFFFFFFF3C7EFFFFFF9F0F0A 20202020303F0000303030382F3F0000 040404040CFC00000C0C0C1CF4FC0000 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFFFFFFBD423C99E7E7FFFFFF7E3C FFFFFFFFFFBD423CD5DDE3FFFFFF7E3C FFFFFFFFFFBD423C000099FFFFFF7E3C FFFFFFFFFFBD423CEF7DEFFFFFFF7E3C FFFFFFFFFFBD423CE7DBDBFFFFFF7E3C FFFFFFFFFFBD423CC3FFFFFFFFFF7E3C FFFFFFFFFFBD423C01FFFFFFFFFF7E3C FFFFFFFFFFBD423C67FFFFFFFFFF7E3C FFFFFFFFFFBD423CC7E3FFFFFFFF7E3C FFFFFFFFFFBD423C83ABFFFFFFFF7E3C FFFFFFFFFFBD423CC9CFFFFFFFFF7E3C FFFFFFFFFFBD423C9FFFFFFFFFFF7E3C 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 7EE3C1889C9C88C1001C3E776363773E 7EE3E3F3F3F3F3E1001C1C0C0C0C0C1E 7E8180FCE1C39F80007E7F031E3C607F 7E8180FCE1E1FC80007E7F031E1E037F 7E9C9C9C8080FCFC006363637F7F0303 7E80809F8180FC80007F7F607E7F037F 7EC1819F81809C80003E7E607E7F637F 7E8080FCFCF8F9F9007F7F0303070606 7EE3C1889C9C88C1001C3E776363773E 7EE3E3F3F3F3F3E1001C1C0C0C0C0C1E 7E8180FCE1C39F80007E7F031E3C607F 7E8180FCE1E1FC80007E7F031E1E037F 7E9C9C9C8080FCFC006363637F7F0303 7E80809F8180FC80007F7F607E7F037F 7EC1819F81809C80003E7E607E7F637F 7E8080FCFCF8F9F9007F7F0303070606 E3FFFFFFFFFFFF7E1C00182442661818 E1FFFFFFFFFFFF7E1E00182442661818 80FFFFFFFFFFFF7E7F00182442661818 81FFFFFFFFFFFF7E7E00182442661818 FCFFFFFFFFFFFF7E0300182442661818 81FFFFFFFFFFFF7E7E00182442661818 C1FFFFFFFFFFFF7E3E00182442661818 F9FFFFFFFFFFFF7E0600182442661818 E3FFFFFFFFFFFF7E1C1C222A2A2A221C E1FFFFFFFFFFFF7E1E1C222A2A2A221C 80FFFFFFFFFFFF7E7F1C222A2A2A221C 81FFFFFFFFFFFF7E7E1C222A2A2A221C FCFFFFFFFFFFFF7E031C222A2A2A221C 81FFFFFFFFFFFF7E7E1C222A2A2A221C C1FFFFFFFFFFFF7E3E1C222A2A2A221C F9FFFFFFFFFFFF7E061C222A2A2A221C 7EE3C1889C9C88C1001C3E776363773E 7EE3E3F3F3F3F3E1001C1C0C0C0C0C1E 7E8180FCE1C39F80007E7F031E3C607F 7E8180FCE1E1FC80007E7F031E1E037F 7E9C9C9C8080FCFC006363637F7F0303 7E80809F8180FC80007F7F607E7F037F 7EC1819F81809C80003E7E607E7F637F 7E8080FCFCF8F9F9007F7F0303070606 7EE3C1889C9C88C1001C3E776363773E 7EE3E3F3F3F3F3E1001C1C0C0C0C0C1E 7E8180FCE1C39F80007E7F031E3C607F 7E8180FCE1E1FC80007E7F031E1E037F 7E9C9C9C8080FCFC006363637F7F0303 7E80809F8180FC80007F7F607E7F037F 7EC1819F81809C80003E7E607E7F637F 7E8080FCFCF8F9F9007F7F0303070606 E3FFFFFFFFFFFF7E1C187EFFDBFFFF66 E1FFFFFFFFFFFF7E1E187EFFDBFFFF66 80FFFFFFFFFFFF7E7F187EFFDBFFFF66 81FFFFFFFFFFFF7E7E187EFFDBFFFF66 FCFFFFFFFFFFFF7E03187EFFDBFFFF66 81FFFFFFFFFFFF7E7E187EFFDBFFFF66 C1FFFFFFFFFFFF7E3E187EFFDBFFFF66 F9FFFFFFFFFFFF7E06187EFFDBFFFF66 E3FFFFFFFFFFFF7E1C00922808108210 E1FFFFFFFFFFFF7E1E00922808108210 80FFFFFFFFFFFF7E7F00922808108210 81FFFFFFFFFFFF7E7E00922808108210 FCFFFFFFFFFFFF7E0300922808108210 81FFFFFFFFFFFF7E7E00922808108210 C1FFFFFFFFFFFF7E3E00922808108210 F9FFFFFFFFFFFF7E0600922808108210 7EE3C1889C9C88C1001C3E776363773E 7EE3E3F3F3F3F3E1001C1C0C0C0C0C1E 7E8180FCE1C39F80007E7F031E3C607F 7E8180FCE1E1FC80007E7F031E1E037F 7E9C9C9C8080FCFC006363637F7F0303 7E80809F8180FC80007F7F607E7F037F 7EC1819F81809C80003E7E607E7F637F 7E8080FCFCF8F9F9007F7F0303070606 7EE3C1889C9C88C1001C3E776363773E 7EE3E3F3F3F3F3E1001C1C0C0C0C0C1E 7E8180FCE1C39F80007E7F031E3C607F 7E8180FCE1E1FC80007E7F031E1E037F 7E9C9C9C8080FCFC006363637F7F0303 7E80809F8180FC80007F7F607E7F037F 7EC1819F81809C80003E7E607E7F637F 7E8080FCFCF8F9F9007F7F0303070606 E3FFFFFFFFFFFF7E1C005A3C18182424 E1FFFFFFFFFFFF7E1E005A3C18182424 80FFFFFFFFFFFF7E7F005A3C18182424 81FFFFFFFFFFFF7E7E005A3C18182424 FCFFFFFFFFFFFF7E03005A3C18182424 81FFFFFFFFFFFF7E7E005A3C18182424 C1FFFFFFFFFFFF7E3E005A3C18182424 F9FFFFFFFFFFFF7E06005A3C18182424 E3FFFFFFFFFFFF7E1C0006477C3C0000 E1FFFFFFFFFFFF7E1E0006477C3C0000 80FFFFFFFFFFFF7E7F0006477C3C0000 81FFFFFFFFFFFF7E7E0006477C3C0000 FCFFFFFFFFFFFF7E030006477C3C0000 81FFFFFFFFFFFF7E7E0006477C3C0000 C1FFFFFFFFFFFF7E3E0006477C3C0000 F9FFFFFFFFFFFF7E060006477C3C0000 7EE3C1889C9C88C1001C3E776363773E 7EE3E3F3F3F3F3E1001C1C0C0C0C0C1E 7E8180FCE1C39F80007E7F031E3C607F 7E8180FCE1E1FC80007E7F031E1E037F 7E9C9C9C8080FCFC006363637F7F0303 7E80809F8180FC80007F7F607E7F037F 7EC1819F81809C80003E7E607E7F637F 7E8080FCFCF8F9F9007F7F0303070606 7EE3C1889C9C88C1001C3E776363773E 7EE3E3F3F3F3F3E1001C1C0C0C0C0C1E 7E8180FCE1C39F80007E7F031E3C607F 7E8180FCE1E1FC80007E7F031E1E037F 7E9C9C9C8080FCFC006363637F7F0303 7E80809F8180FC80007F7F607E7F037F 7EC1819F81809C80003E7E607E7F637F 7E8080FCFCF8F9F9007F7F0303070606 E3FFFFFFFFFFFF7E1C001E7AFE000000 E1FFFFFFFFFFFF7E1E001E7AFE000000 80FFFFFFFFFFFF7E7F001E7AFE000000 81FFFFFFFFFFFF7E7E001E7AFE000000 FCFFFFFFFFFFFF7E03001E7AFE000000 81FFFFFFFFFFFF7E7E001E7AFE000000 C1FFFFFFFFFFFF7E3E001E7AFE000000 F9FFFFFFFFFFFF7E06001E7AFE000000 E3FFFFFFFFFFFF7E1C00000666980000 E1FFFFFFFFFFFF7E1E00000666980000 80FFFFFFFFFFFF7E7F00000666980000 81FFFFFFFFFFFF7E7E00000666980000 FCFFFFFFFFFFFF7E0300000666980000 81FFFFFFFFFFFF7E7E00000666980000 C1FFFFFFFFFFFF7E3E00000666980000 F9FFFFFFFFFFFF7E0600000666980000 7EE3C1889C9C88C1001C3E776363773E 7EE3E3F3F3F3F3E1001C1C0C0C0C0C1E 7E8180FCE1C39F80007E7F031E3C607F 7E8180FCE1E1FC80007E7F031E1E037F 7E9C9C9C8080FCFC006363637F7F0303 7E80809F8180FC80007F7F607E7F037F 7EC1819F81809C80003E7E607E7F637F 7E8080FCFCF8F9F9007F7F0303070606 7EE3C1889C9C88C1001C3E776363773E 7EE3E3F3F3F3F3E1001C1C0C0C0C0C1E 7E8180FCE1C39F80007E7F031E3C607F 7E8180FCE1E1FC80007E7F031E1E037F 7E9C9C9C8080FCFC006363637F7F0303 7E80809F8180FC80007F7F607E7F037F 7EC1819F81809C80003E7E607E7F637F 7E8080FCFCF8F9F9007F7F0303070606 E3FFFFFFFFFFFF7E1C001C3830381C00 E1FFFFFFFFFFFF7E1E001C3830381C00 80FFFFFFFFFFFF7E7F001C3830381C00 81FFFFFFFFFFFF7E7E001C3830381C00 FCFFFFFFFFFFFF7E03001C3830381C00 81FFFFFFFFFFFF7E7E001C3830381C00 C1FFFFFFFFFFFF7E3E001C3830381C00 F9FFFFFFFFFFFF7E06001C3830381C00 E3FFFFFFFFFFFF7E1C387C547C7C5400 E1FFFFFFFFFFFF7E1E387C547C7C5400 C0FFFFFFFFFFFF7E3F387C547C7C5400 81FFFFFFFFFFFF7E7E387C547C7C5400 FCFFFFFFFFFFFF7E03387C547C7C5400 81FFFFFFFFFFFF7E7E387C547C7C5400 C1FFFFFFFFFFFF7E3E387C547C7C5400 F9FFFFFFFFFFFF7E06387C547C7C5400 7EE3C1889C9C88C1001C3E776363773E 7EE3E3F3F3F3F3E1001C1C0C0C0C0C1E 7E8180FCE1C39F80007E7F031E3C607F 7E8180FCE1E1FC80007E7F031E1E037F 7E9C9C9C8080FCFC006363637F7F0303 7E80809F8180FC80007F7F607E7F037F 7EC1819F81809C80003E7E607E7F637F 7E8080FCFCF8F9F9007F7F0303070606 7EE3C1889C9C88C1001C3E776363773E 7EE3E3F3F3F3F3E1001C1C0C0C0C0C1E 7E8180FCE1C39F80007E7F031E3C607F 7E8180FCE1E1FC80007E7F031E1E037F 7E9C9C9C8080FCFC006363637F7F0303 7E80809F8180FC80007F7F607E7F037F 7EC1819F81809C80003E7E607E7F637F 7E8080FCFCF8F9F9007F7F0303070606 E3FFFFFFFFFFFF7E1C001E1216363000 E1FFFFFFFFFFFF7E1E001E1216363000 80FFFFFFFFFFFF7E7F001E1216363000 81FFFFFFFFFFFF7E7E001E1216363000 FCFFFFFFFFFFFF7E03001E1216363000 81FFFFFFFFFFFF7E7E001E1216363000 81FFFFFFFFFFFF7E7E001E1216363000 F9FFFFFFFFFFFF7E06001E1216363000 E3FFFFFFFFFFFF7E1C0060F0F5600000 E1FFFFFFFFFFFF7E1E0060F0F5600000 80FFFFFFFFFFFF7E7F0060F0F5600000 81FFFFFFFFFFFF7E7E0060F0F5600000 FCFFFFFFFFFFFF7E030060F0F5600000 81FFFFFFFFFFFF7E7E0060F0F5600000 C1FFFFFFFFFFFF7E3E0060F0F5600000 F9FFFFFFFFFFFF7E060060F0F5600000 #3:MAIN BG 00001410000000000000000000000000 00000000000000000000000000000000 00000000000000000000000003040A04 04040B040B040B040B04040420052105 22052305240625062606270628072907 2A072B0703041A0404041B041B041B04 1B040404300531053205330534063506 36063706380739073A073B0700040804 06040604060406040604060406040000 00040804060406040604060406040604 06040004000009040704070407040704 07040704070400040004090407040704 07040704070407040704000000040804 06040604060406040604060406040004 00040804060406040604060406040604 06040004000409040704070407040704 07040704070400040004090407040704 07040704070407040704000400000804 06040604060406040604060406040004 00040804060406040604060406040604 06040004000409040704070407040704 07040704070400040004090407040704 07040704070407040704000400000804 06040604060406040604060406040004 00040804060406040604060406040604 06040000000409040704070407040704 07040704070400040004090407040704 07040704070407040704000400040804 06040604060406040604060406040004 00040804060406040604060406040604 06040000000009040704070407040704 07040704070400040004090407040704 07040704070407040704000400000804 06040604060406040604060406040000 00000804060406040604060406040604 06040000000009040704070407040704 07040704070400040004090407040704 07040704070407040704000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #15:MAIN SOUND 38001000000000003800212201FF0000 210010001000E0000800202011000000 38002020000000003800505000000000 0800000F00000000080000BB00FD8000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000