%%HP: T(1)A(R)F(.);

  IFERR DEPTH DROPN
-40 FS?C 0 RB DUP
2 LIST PVIEW
    WHILE 1
    REPEAT ERASE
"0 x0x ;0;  0  0 0   "
1 24
      START DUP NUM
32 - RB SWAP 2 24
SUB
      NEXT DROP 1 6
      START 2 LIST
ROT ROT 2 LIST
TLINE
      NEXT PICT
# 93d 4 RB 2 LIST
"10$  " 3 GROB
REPL TIME RDZ 10 0
9
      FOR n MEM
DROP
GROB 26 33 00000000000000000000000000000000000000000FFFF1000EF0E7000CF0CF000CF0CF000CF0CF000CF0CF00F30F30300CF0CF000CF0CF000CF0CF000CF0CF000CF0E7000CFFF1000CF000000CF000000CF000000CF000000CF00000F30FFF300CF000000CF000000CF000000EF100000FF3000000000000000000000000000000000000
GROB 26 33 000000000000000000000000000000000000000008FFF1000CF0F3000C70E3000E70E7000E70E7000E70E700F18F18300E70E7000E70E7000E70E7000E70E7000E70E7000E70E7000E70E7000E70E7000E70E7000E70E7000E70E700F18F18300E70E7000E70E7000C70E3000CF0F30008FFF10000000000000000000000000000000000
GROB 26 33 00000000000000000000000000000000000000008FF0CF100F7007000E7003000E7081000E70C0000E706000F18FCF300E7810000E7C00000E7600000E7F00000EFF00000EFF10000E7F30000E7F30000E7E70000E7CF0000E7CF000F1870E300E70F3000E70F3000E70E7000FF0CF008FF1EF1000000000000000000000000000000000
GROB 26 33 00000000000000000000000000000000000000000FFFF7000EF087000CF007000CF006000CF004000CF00000F30FFF300CF000000CF000000CF040000CF060000CF070000CFF70000CF070000CF060000CF040000CF000000CF00000F30FFF300CF004000CF006000CF007000EF087000FFFF70000000000000000000000000000000000
GROB 27 33 0000000000000000000000000000000000000000CFFF70008F38F1000F30F3000F30F3000F30F3000F30F300F0CF0C700F30F3000F30F3000F30F3000F30F3000F38F1000FFF70000F38F1000F30F3000F30F3000F30F3000F30F300F0CF0C700F30F3000F30E3000F30E3008F70C700CFF08F0000000000000000000000000000000000
0 4
        FOR k PICT
n { 4 INV WAIT
# 104d k 26 * -
# 30d 2 LIST ROT }
{ k 26 * RB # 30d
2 LIST 7 k - ROLL
} IFTE REPL
        NEXT PICT 3
RB 4 RB 2 LIST
" I   II III  IV  V   VI VII VIII IX  X  "
n 4 * 1 + DUP 3 +
SUB 3 GROB REPL
PICT 9 RB # 21d 2
LIST
"  FAA SUA APOSTA  "
2 GROB REPL ""
        DO PICT
# 30d 5 RB 2 LIST
"    *    " 2 GROB
REPL DROP ""
          WHILE
"\RSTHIJ>?@3" 0
WAIT CHR POS DUP 11
 3 PICK "" SAME OR
          REPEAT 1
- DUP -1 SAME OVER
10 SAME OR { DROP
"" } IFT + DUP 0
STR SAME { DROP ""
} IFT PICT # 48d 5
RB 2 LIST 3 PICK
"$    " + 1 4 SUB 2
GROB REPL
          END DROP
        UNTIL DUP2
OBJ 
        END SWAP
OVER OBJ - SWAP
PICT # 93d 4 RB 2
LIST 4 PICK
"$    " + 1 6 SUB 3
GROB REPL PICT 1
RB # 21d 2 LIST
# 131d 9 RB BLANK
REPL { 5 } 0 CON {
0 } 1 5
        FOR j 3 j
SAME { SWAP
          WHILE
"01234X" 0 WAIT 37
+ CHR POS DUP 6 
          REPEAT
DUP { PICT OVER 26
* 16 - RB # 25d 2
LIST
GROB 7 4 F7E3C180
GXOR { 5 } 0 CON
SWAP 1 PUT + } {
DROP } IFTE
          END DROP
SWAP PICT 1 RB
# 25d 2 LIST
# 131d 4 RB BLANK
REPL } { MEM DROP 1
5
          FOR i
OVER i GET 2 MOD 0
SAME { PICT i 26 *
25 - RB # 30d 2
LIST j 3 MOD 1
SAME {
GROB 25 33 CFFFF70020000800100000101401401012802010114010109028021010140110180280101401401012802010114010109028021010140110180280101401401012802010114010109028021010140110180280101401401012802010114010109028021010140110180280101401401012802010104010101000001020000800CFFFF700
REPL
            DO RAND
52 * CEIL DUP2 POS
            UNTIL 0
 { DROP 0 } 1 IFTE
            END
OVER i GET 3 ROLLD
1 LIST i SWAP REPL
SWAP 1 LIST + } {
{
GROB 25 33 CFFFF70020000800100000101F8700109FDF0010D9FC1010D0781010D0281010D0081010D10C1010910C0010930E0010170700101E8300101CD1001018F0001010700010102000101000001010000010100000101000001010000010100000101000001010000010100000101000001010000010100000101000001020000800CFFFF700
GROB 25 33 CFFFF7002000080010000010102000101070001018F000101CD100101E83001017070010930E0010D10C1010930E0010170700101E8300101CD1001018F0001010700010102000101000001010000010100000101000001010000010100000101000001010000010100000101000001010000010100000101000001020000800CFFFF700
GROB 25 33 CFFFF7002000080010000010107000101CF100101CF100101CF100101CF100109BFE00109FFF0010DFFF1010DFFF1010DFFF1010DFFF1010977F001018F000101CF100101EF300101000001010000010100000101000001010000010100000101000001010000010100000101000001010000010100000101000001020000800CFFFF700
GROB 25 33 CFFFF70020000800100000101070001018F000101CF100101EF300101FF700109FFF00109FFF0010DFFF1010DFFF1010DFFF1010DFFF1010977F001018F000101CF100101EF300101000001010000010100000101000001010000010100000101000001010000010100000101000001010000010100000101000001020000800CFFFF700
} 4 PICK i GET 12 +
13 / IP GET { # 10d
# 21d } 5 PICK i
GET 13 MOD 1 +
" K A 2 3 4 5 6 7 8 910 J Q"
SWAP 2 * DUP 1 -
SWAP SUB 3 GROB
GOR REPL } IFTE }
IFT
          NEXT }
IFTE
        NEXT { 4 13
} 0 CON 1 5
        FOR i OVER
i GET 1 PUT
        NEXT DUP
TRN { 4 } 1 CON *
DUP RNRM 1  { {
"COPIA  1"
"DOBRA  2"
"TRINCA  3"
"FULLAND 12"
"NO GANHA  0"
"POKER 25" } OVER
ABS SQ 2 / IP 2 -
DUP 1 SAME { DROP
OVER 2 1 9
        START 0
PUTI
        NEXT DROP
RNRM 2 SAME 1 5
IFTE } IFT GET 5
ROLLD 4 DROPN } {
SWAP RNRM 5 SAME 4
1 IFTE OVER STR
"1 1 1 1 1" POS 0
SAME 0 1 IFTE +
SWAP STR
"1 0 0 0 0 0 0 0 0 1 1 1 1"
POS 0 SAME 0 2 IFTE
+ { "NO GANHA  0"
"ESCALA  6"
"ESCALA TOTAL  8"
"MESMO NAIPE 10"
"ESCALA REAL100"
"ESCALA REAL TOTAL200"
} SWAP GET 3 ROLLD
DROP2 } IFTE DUP
DUP SIZE DUP 2 -
SWAP SUB PICT # 60d
5 RB 2 LIST 3
PICK "   " + 1 4
SUB 2 GROB REPL
OBJ ROT OBJ * ROT
+ DUP 99999 > {
DROP 99999 } IFT
DUP 0 SAME
         9 'n' STO
         IFT SWAP
PICT 9 RB # 21d 2
LIST ROT 1 OVER
SIZE 3 - SUB
"                    "
+ 2 GROB REPL PICT
# 93d 4 RB 2 LIST
3 PICK "$    " + 1
6 SUB 3 GROB REPL
      NEXT
      IF 'RECORD'
VTYPE -1 SAME
      THEN "_____"
1 DUP2 4 DUPN 6
DUPN 0 CHR 15 LIST
'RECORD' STO
      END
      IF RECORD
DUP2 2 GET 
      THEN PICT 9
RB # 21d 2 LIST
"ESCREVA SEU NOME"
2 GROB REPL ""
        WHILE
"012345:;<=>?DEFGHINOPQRSYZX"
0 WAIT 37 + CHR POS
DUP DUP 27  4 PICK
SIZE 8  AND
        REPEAT { 96
+ CHR + PICT # 30d
5 RB 2 LIST 3
PICK "........" + 1
8 SUB "#" + 2 GROB
REPL } { DROP }
IFTE
        END DROP2 0
4 ROLLD 4 ROLLD 1 7
        FOR h DUP2
h 2 * GET  4 ROLL
+ 3 ROLLD
        NEXT ROT 2
* DUP2 3 SWAP SUB
ROT SWAP 1 SWAP
REPL SWAP 1 - 4
ROLLD 4 ROLLD 2
LIST REPL 'RECORD'
STO
      ELSE DROP2
      END PICT 0
RB DUP 2 LIST
# 131d # 64d BLANK
# 44d 0 RB 2 LIST
"RECORD" 3 GROB
GOR 0 RB 9 RB 2
LIST RECORD OBJ
DROP2 1 7
      FOR l "    "
+ 1 5 SUB
"................."
SWAP + 1 ROT REPL l
DISP
      NEXT LCD
REPL REPL 0 WAIT
DROP
    END
  THEN DEPTH 1 -
DROPN { -40 SF }
IFT 'PPAR' PURGE
ERASE
  END

