REM REM CARDNUM: #1 TO #13 = A,2,3,4,5,6,7,8,9,10,J,Q,K REM CARDNUM: #14+ = SPECIAL CARDS REM CARDNUM: 99 = CARD'S BACK IS SHOWN REM REM PALETTE#: #0 = RED CARDS, #1 = BLACK CARDS REM REM CARDTYPE: #1=HEARTS, #2=SPADES, #3=DIAMONDS #4=CLUBS REM FOR II=1 TO 4 Y=(II-1)*4 FOR I=1 TO 10 X=(I-1)*2 CALL DRAWCARD(X,Y,99,II) NEXT I FOR I=11 TO 16 X=(I-11)*2 CALL DRAWCARD(X,Y+2,99,II) NEXT I NEXT II DO FOR II=1 TO 4 Y=(II-1)*4 FOR I=1 TO 10 X=(I-1)*2 CALL FLIPUP(X,Y) CALL DRAWCARD(X,Y,I,II) NEXT I FOR I=11 TO 16 X=(I-11)*2 CALL FLIPUP(X,Y+2) CALL DRAWCARD(X,Y+2,I,II) NEXT I NEXT II FOR II=1 TO 4 Y=(II-1)*4 FOR I=1 TO 10 X=(I-1)*2 CALL FLIPDOWN(X,Y) NEXT I FOR I=11 TO 16 X=(I-11)*2 CALL FLIPDOWN(X,Y+2) NEXT I NEXT II LOOP SUB FLIPDOWN(X,Y) PAL 2 FOR C=32 TO 40 STEP 2 FOR YY=0 TO 1 FOR XX=0 TO 1 CELL XX+X,YY+Y,C+XX+YY*16 NEXT XX NEXT YY WAIT 2 NEXT C END SUB SUB FLIPUP(X,Y) FOR C=38 TO 32 STEP -2 FOR YY=0 TO 1 FOR XX=0 TO 1 CELL XX+X,YY+Y,C+XX+YY*16 NEXT XX NEXT YY WAIT 2 NEXT C END SUB SUB DRAWCARD(X,Y,CARDNUM,CARDTYPE) IF (CARDTYPE=1 OR CARDTYPE=3) THEN PAL 0 ELSE PAL 1 IF CARDNUM=99 THEN PAL 0 IF CARDNUM<=13 THEN CELL X,Y,1+CARDNUM CELL X+1,Y,15 IF CARDNUM=10 THEN CELL X+1,Y,31 TCELL=16+(CARDTYPE-1)*2 CELL X,Y+1,TCELL CELL X+1,Y+1,TCELL+1 ELSE IF CARDNUM<99 THEN C=42+(CARDNUM-14)*2 FOR YY=0 TO 1 FOR XX=0 TO 1 CELL XX+X,YY+Y,C+XX+YY*16 NEXT XX NEXT YY ELSE PAL 2 C=40 FOR YY=0 TO 1 FOR XX=0 TO 1 CELL XX+X,YY+Y,C+XX+YY*16 NEXT XX NEXT YY END IF END SUB #1:MAIN PALETTES 053F3000003F0000003F0B00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 1F3F3B353135353F1F20242A2E2A2A20 1F3F313D3137313F1F202E222E282E20 1F3F313D313D313F1F202E222E222E20 1F3F3535313D3D3F1F202A2A2E222220 1F3F3137313D313F1F202E282E222E20 1F3F31373135313F1F202E282E2A2E20 1F3F313D3D3D3D3F1F202E2222222220 1F3F31353135313F1F202E2A2E2A2E20 1F3F3135313D313F1F202E2A2E222E20 1F3F34353535343F1F202B2A2A2A2B20 1F3F383D3D353B3F1F202722222A2420 1F3F393636353A3F1F202629292A2520 1F3F35353335353F1F202A2A2C2A2A20 F8FCFCFCFCFCFCFCF804040404040404 3F3E3E3E3F3F3F1F202121212020201F FC4C0C0C1CBCFCF804B4F4F4E44404F8 3F3F3F3F3F3F3F1F202021212020201F FCFCFCFCFCFCFCF844E4F4F444E404F8 3F3F3F3E3F3F3F1F202020212020201F FCBC1C0C1CBCFCF80444E4F4E44404F8 3F3F3F3F3F3F3F1F202121262723201F FCFCFCFCFCFCFCF884C4C4B4F46404F8 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 F8FC7C7C7C7C7CFCF804848484848404 070F0F0F0F0F0F0F0708080808080808 E0F0F0F0F0F0F0F0E010101010101010 01030303030303030102020202020202 80C0C0C0C0C0C0C08040404040404040 01020202020202020103030303030303 804040404040404080C0C0C0C0C0C0C0 07080B0A0B0A0B0A070F0C0D0C0D0C0D E010D0D050D050D0E0F03030B030B030 1F202F2A2D2A2D2A1F3F303532353235 F804F4B454B454B4F8FC0C4CAC4CAC4C 1F3F3C3F3F3D3E3F1F20232020222127 F8FC3C7C7C6CE4ECF804C48484941CF4 1F3F3C3F3F3D3E3F1F20232020222120 F8FC3C7C7C7CFCFCF804D49494943C14 1F3F3C3F3F3D3E3F1F20232020222120 F8FC3C7C7C7CFCFCF804C48484840404 0F0F0F0F0F0F0F070808080808080807 F0F0F0F0F0F0F0E010101010101010E0 03030303030303010202020202020201 C0C0C0C0C0C0C0804040404040404080 02020202020202010303030303030301 4040404040404080C0C0C0C0C0C0C080 0B0A0B0A0B0B08070C0D0C0D0C0C0F07 50D050D050D010E0B030B030B030F0E0 2D2A2D2A2D2F201F3235323532303F1F 54B454B454F404F8AC4CAC4CAC0CFCF8 3F3E3C3B3F3B301F2F3D332725272F1F EC6C2CCCECCC2CF8F494D4F4B4F4F4F8 3F3E3C3B3F3B301F2021232725272F1F EC6C2CCCECCC2CF81494D4F4B4F4F4F8 3B3634333733341F3F292B2F2D2F2F1F DC6C2CCCECCC2CF8FC94D4F4B4F4F4F8