%%HP: T(1)A(D)F(.); @ POKER by Mauro Sgarban « 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 " FAI LA PUNTATA " 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 #30 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 # 83h 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 ‹ { {"COPPIA 1" "DOPPIA COPPIA 2" "TRIS 3" "FULL 12" "NIENTE 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 + { "NIENTE 0" "SCALA 6" "SCALA ALL'ASSO 8" "COLORE 10" "SCALA REALE100" "SCALA REALE ALL'ASSO200"} 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 "MAURO" 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 "SCRIVI IL TUO 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 »