GAMEPAD 1 RANDOMIZE TIMER REM WASHAW PAUSE OFF BG 1 BG COPY 0,0,20,16 TO 0,0 GLOBAL GX,GY DIM GLOBAL STACK(18,14,100),DECK(52),DCHAR(52) FOR I=1 TO 52 READ DCHAR(I) DECK(I)=I NEXT I DATA 1,2,3,4,5,6,7,8,9,10,11,12,13 DATA 17,18,19,20,21,22,23,24,25,26,27,28,29 DATA 33,34,35,36,37,38,39,40,41,42,43,44,45 DATA 49,50,51,52,53,54,55,56,57,58,59,60,61 FOR I=1 TO 300 C1=RND(51)+1 C2=RND(51)+1 SWAP DECK(C1),DECK(C2) NEXT I FOR I=1 TO 52 CALL PUSH(1,1,DECK(I)) 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) WAIT 6 NEXT IY NEXT Y TABLE_DEAL=65 TABLE_STACK=64 TABLE_P00=71 TABLE_P1=66 TABLE_P2=67 TABLE_P3=68 TABLE_P4=69 GX=1 GY=1 PX=3 PY=3 SPRITE 0,GX*8,GY*8,73 SPRITE 0 SIZE 1 PAL 3 SPRITE 1,PX*8,PY*8,75 SPRITE 1 SIZE 1 PAL 3 CWAIT=0 CFLASH=0 CALL STACKTOTALS DO IF PAUSE THEN PLAY 1,20,10 SOUND 10 IF GY<2 THEN GMODE=0 ELSE GMODE=1 IF PY<2 THEN PMODE=0 ELSE PMODE=1 GETCARD0=STACK(GX,GY,0) GETCARD1=STACK(GX+1,GY,0) PUTCARD0=STACK(PX,PY,0) PUTCARD1=STACK(PX-1,PY,0) BG 1 GTABLE=CELL.C(GX,GY) PTABLE=CELL.C(PX,PY) PAL 1 NUMBER 19,0,GMODE,1 NUMBER 18,1,GTABLE,2 NUMBER 18,2,GETCARD0,2 NUMBER 18,3,GETCARD1,2 NUMBER 19,8,PMODE,1 NUMBER 18,9,PTABLE,2 NUMBER 18,10,PUTCARD0,2 NUMBER 18,11,PUTCARD1,2 IF GMODE=0 AND PMODE=0 AND PTABLE<>TABLE_DEAL AND GETCARD0>0 AND PTABLE>TABLE_DEAL THEN CARD=0 CALL POP(GX,GY,CARD) CALL PUSH(PX,PY,CARD) CALL STACKTOTALS PLAY 1,70,10 SOUND 1 WAIT 60 END IF IF GMODE=1 AND PMODE=1 AND GETCARD0>0 AND PUTCARD0=0 AND GETCARD1=0 AND (PUTCARD1>0 OR PX=1) THEN CARD=0 CALL POP(GX,GY,CARD) CALL PUSH(PX,PY,CARD) CALL STACKTOTALS PLAY 1,70,10 SOUND 1 WAIT 60 END IF END IF AA=BUTTON(0,0) BB=BUTTON(0,1) AB=AA OR BB ADD CWAIT,1,0 TO 6 IF CWAIT=0 THEN IF CFLASH=1 THEN IF AA THEN IF RIGHT(0) AND GX<18 THEN INC GX IF LEFT(0) AND GX>1 THEN DEC GX IF DOWN(0) AND GY<13 THEN GY=GY+2 IF UP(0) AND GY>1 THEN GY=GY-2 ELSE IF BB THEN IF RIGHT(0) AND PX<18 THEN INC PX IF LEFT(0) AND PX>1 THEN DEC PX IF DOWN(0) AND PY<13 THEN PY=PY+2 IF UP(0) AND PY>1 THEN PY=PY-2 END IF END IF ADD CFLASH,1,0 TO 1 IF CFLASH=0 THEN C0=77 ELSE C0=73 IF CFLASH=0 THEN C1=77 ELSE C1=75 SPRITE 0,GX*8,GY*8, SPRITE 1,PX*8,PY*8, END IF WAIT VBL LOOP 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 TEXT 0,Y-1,STR$(TOT) NEXT Y FOR X=3 TO 17 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)) END IF END SUB SUB PUSH(X,Y,CIN) BG 1 C=CELL.C(X,Y) IF C>=64 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) PLAY 0,90,1 SOUND 0 END IF END SUB #1:MAIN PALETTES 04081C2E003F340000080C000014283E 000C3F04003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 BF5F1F5B51E0F1FB40A0E0A4AE1F0E04 3FDFBF7B11E0F1FBC0204084EE1F0E04 3FDFBFDB31E0F1FBC0204024CE1F0E04 5F5F1FDBD1E0F1FBA0A0E0242E1F0E04 1F7F3FDB31E0F1FBE080C024CE1F0E04 9F7F3F5BB1E0F1FB6080C0A44E1F0E04 1FDFDFDBD1E0F1FBE02020242E1F0E04 BF5FBF5BB1E0F1FB40A040A44E1F0E04 BF5F9FDB31E0F1FB40A06024CE1F0E04 6F57576BF1E0F1FB90A8A8940E1F0E04 1FDFDF5BB1E0F1FBE02020A44E1F0E04 BF5F5F1B91E0F1FB40A0A0E46E1F0E04 5F5F3F5B51E0F1FBA0A0C0A4AE1F0E04 FFFFF4F2C9E4D2C9FFFFF2E9E4D2C9E4 FFFF2F974B27934BFFFF9F4F27934B27 00000000000000000000000000000000 BF5F1F5F55E0F1FB40A0E0A0AA1F0E04 3FDFBF7F15E0F1FBC0204080EA1F0E04 3FDFBFDF35E0F1FBC0204020CA1F0E04 5F5F1FDFD5E0F1FBA0A0E0202A1F0E04 1F7F3FDF35E0F1FBE080C020CA1F0E04 9F7F3F5BB1E0F1FB6080C0A44E1F0E04 1FDFDFDFD5E0F1FBE02020202A1F0E04 BF5FBF5FB5E0F1FB40A040A04A1F0E04 BF5F9FDF35E0F1FB40A06020CA1F0E04 6F57576FF5E0F1FB90A8A8900A1F0E04 1FDFDF5FB5E0F1FBE02020A04A1F0E04 BF5F5F1F95E0F1FB40A0A0E06A1F0E04 5F5F3F5F55E0F1FBA0A0C0A0AA1F0E04 D2C9E4D2C9E4D2C9C9E4D2C9E4D2C9E4 934B27934B27934B4B27934B27934B27 00000000000000000000000000000000 FFFFFFFFFFFFFFFF40A0E0A4AE1F1504 FFFFFFFFFFFFFFFFC0204084EE1F1504 FFFFFFFFFFFFFFFFC0204024CE1F1504 FFFFFFFFFFFFFFFFA0A0E0242E1F1504 FFFFFFFFFFFFFFFFE0804024CE1F1504 FFFFFFFFFFFFFFFF6080C0A44E1F1504 FFFFFFFFFFFFFFFFE02020242E1F1504 FFFFFFFFFFFFFFFF40A040A44E1F1504 FFFFFFFFFFFFFFFF40A06024CE1F1504 FFFFFFFFFFFFFFFF90A8A8940E1F1504 FFFFFFFFFFFFFFFFE02020A44E1F1504 FFFFFFFFFFFFFFFF40A0A0E46E1F1504 FFFFFFFFFFFFFFFFA0A0C0A4AE1F1504 D2C9E4D2E9F4FFFFC9E4D2C9E4F2FFFF 934B27934F2FFFFF4B27934B279FFFFF 00000000000000000000000000000000 FFFFFFFFFFFFFFFF40A0E0A0AE1F1F04 FFFFFFFFFFFFFFFFC0204080EE1F1F04 FFFFFFFFFFFFFFFFC0204020CE1F1F04 FFFFFFFFFFFFFFFFA0A0E0202E1F1F04 FFFFFFFFFFFFFFFFE0804020CE1F1F04 FFFFFFFFFFFFFFFF6080C0A04E1F1F04 FFFFFFFFFFFFFFFFE02020202E1F1F04 FFFFFFFFFFFFFFFF40A040A04E1F1F04 FFFFFFFFFFFFFFFF40A06020CE1F1F04 FFFFFFFFFFFFFFFFE02020A04E1F1F04 FFFFFFFFFFFFFFFF90A8A8900E1F1F04 FFFFFFFFFFFFFFFF40A0A0E06E1F1F04 FFFFFFFFFFFFFFFFA0A0C0A0AE1F1F04 FFFF249249249249FFFF924924924924 924924924924FFFF492492492492FFFF FFFFFFFFFFFFFFFF0000001008100000 FFFFFFFFFFFFFFFF0078444242447800 FFFFFFFFFFFFFFFF00081C3E1C080000 FFFFFFFFFFFFFFFF0000143E1C080000 FFFFFFFFFFFFFFFF00081C3E2A080000 FFFFFFFFFFFFFFFF00001C3E3E080000 92492492492492494924924924924924 FFEFD7BBDDEBF7FF00183C66663C1800 FFFFFFFFFFFFFFFF0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000003040504032070F8AB24252423 000000B722B2A2B2000000B722B2A2B2 00000006050604042070F8AE25262424 00000057525252720000005752525272 #3:MAIN BG 000014100E023E023E023E023E023E02 3E023E023E023E023E023E023E023E02 3E023E023E023E023E020F021E024100 00004800000048000000480000004800 00004200000043000000440000004500 00001F021E0200000000000000000000 00000000000000000000000000000000 000000000000000000001F021E024800 40004000400040004000400040004000 40004000400040004000400040004000 40001F021E0200000000000000000000 00000000000000000000000000000000 000000000000000000001F021E024800 40004000400040004000400040004000 40004000400040004000400040004000 40001F021E0200000000000000000000 00000000000000000000000000000000 000000000000000000001F021E024800 40004000400040004000400040004000 40004000400040004000400040004000 40001F021E0200000000000000000000 00000000000000000000000000000000 000000000000000000001F021E024800 40004000400040004000400040004000 40004000400040004000400040004000 40001F021E0200000000000000000000 00000000000000000000000000000000 000000000000000000001F021E024800 40004000400040004000400040004000 40004000400040004000400040004000 40001F021E0200000000000000000000 00000000000000000000000000000000 000000000000000000001F021E024800 40004000400040004000400040004000 40004000400040004000400040004000 40001F021E0200000000000000000000 00000000000000000000000000000000 000000000000000000001F022E023F02 3F023F023F023F023F023F023F023F02 3F023F023F023F023F023F023F023F02 3F022F02 #15:MAIN SOUND 38001000000000003800212201FF0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000