B!P J? WeD:\a |<<@~@B<<|~@BB<<~ ~B@@BB<< <|<>| < BBDB@@@B@BB@FBB@D@BB@@B@B(FF(FFB@BHbBB@ @B@@BBB@@(FB@F@@B@B@ @BBBB  BB@BHbBB BBBB B BB(B@|@B<~|J@B|B<BB|@B<~JJJJ(B|BpR@| |B@@~BB<|J||J|@B<~| <BB@~ ( B|BpR@ BBB  |B~@@@BB<R@|@B~|@@BBRRRRHB@~HJN< @B@@BBB@RB@R@@BBB |~NB H B@~HJN< <|~| < DBB@@@BBB@BbBD@DBBD@@BBBbbbb~B@BDFB@B @B@@BBBB@bB@b@@BBBB BDBBB ~ BB@BDFB@ @@BD @ B<B~@~<<BB@~<<<><<<@BB>B<~< @<~~B<<<~><|~<@~<B<~ ~@B>B ~$UUUPUUUPUUUPUUUPUUUPUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU <UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUTUUUTUUUTUUUT#B<~|<<>B|@<<<<|BB~>|BH@B@B@|~QFB@DBBF@@BB@b@BBBD@B@IBDx< B<~B<<>B@~B><~<@<<<~~<~>~>BB<@88  ,,.1Q 5 ( 8AA# <@cT&F\\\Ye\06XeC555\VX![!PX!!X> W K SR P0:0:6:64599W:"":236099\,99c:#1;1,0;" Copyright 1984  ZE OLIVEIRA "     1986 ZARSOFT    23658j\,0 f VARIAVEIS  g23658j\,0 nAPOSTAR=500 sFIXAR VIRAR=600X xDOBRA JUNTA=700 zJUNTAR=750 }DOBRAR=800  MAIOR=950 CREDIT=21004 PREMIOS=2200 ORDEM=2300 NPRINT=2400` PRINT=2500 VIRAR =3000 VHELD=3200 FIXAR=3300 ESCOLHER=3400H VERIFY=8000@  O(9 ) O(1)=1 O(2)=2 O(3)=2 O(4)=4 O(5)=6 O(6)=10 O(7)=25 O(8)=100d O(9 )=250  P$(10 ) CRDT=0 BET=0 P(9 ) BIP=3100 .  6!0,10 ;"ROYAL FLUSH" 7!7;10 ;"STAR FLUSH" 8"6;10 ;"4 OF A KING" 9!7;10 ;"FULL HOUSE" :6;10 ;"FLUSH" ;7;10 ;"STRAIGHT" <"6;10 ;"3 OF A KING" =7;10 ;"2 PAIR" >&6;10 ;"JACKS OR BETTER" B1,1;"CREDIT" D4,1;"BET" FCREDIT H p=0 J S=0 INICIALIZACAO Is13 ,7;"";14,7;"";15,7;"" 17,0;"" BET=0:CREDIT GP8;1;9 -P,10 ;" ":p=0  s=0 P$(10 )  H(6):BET=0  !N=19 :P(N)=O(N):N  PREMIOS: C=15:NPRINT:C (METER MOEDAS +(="A"BIP:CRDT=CRDT+10 :CREDIT 2 APOSTAR 7lq$=:Q$"1"Q$"9"BET+Q$20CRDT-Q$0BIP:CRDT=CRDT-Q$:BET=BET+Q$:CREDIT:PREMIOS <VIRAR CARTAS ?%="d"betBIP:VIRAR:FIXAR VIRAR Fr18,15;"";18,15;"INSERT COIN";15;"PLAY 120";15;"PUSH DEAL" S 550& ZFIXAR VIRAR d18,0;"" lM=060< m2q$=:q$"1"q$"9"BIP:H(q$)=1:FIXAR v="c"BIP:H(9 ):FIXAR  ="d"BIP:VIRAR:DOBRA JUNTA cM<2018,15;"";18,15;"PUSH OLD TO";15;"HOLD CARD..." uM20M<40(18,15;"";18,15;"PUSH CANCEL TO";15;"CANCEL HOLDS..." [M40(18,15;"";18,15;"PUSHTO";15;"PROCEED." M  620l DOBRA JUNTA VERIFY:PAPOSTAR ds13 ,7;"";14,7;"";15,7;"";17,0;"" N=025 ="d"BIP:DOBRAR ="t"BIP:JUNTAR UN<2020,0;"";20,2;"DOUBLE UP BETTAKE SCORE" N  721  JUNTAR !N=P(P)-10-1 CRDT=CRDT+1:CREDIT %9 -P,26;30-N;N N  APOSTAR " DOBRAR + S=0 .C=15:NPRINT:C 020,0;"" 5N=025 6"="b"BIP:S=1:850R A#="s"BIP:S=-1:850R HLN<2020,0;"";20,2;"PUSH BIG SMALL" JN M 8204 W H(6) \C=1:q$="":ESCOLHER a&N=9 15:N,0;,,:N fPRINT r8Q$(2)=47/n=0100d:n:APOSTAR vQ$(2)>47/MAIOR  MENOR b13 ,7;"";14,7;"";15,7;"" ,S=1n=0200:n:APOSTAR  970  MAIOR X13 ,7;"";14,7;"";15,7;"" -S=-1n=0200:n:APOSTAR  WIN P(P)=2*P(P) X17,7;"";18,7;"";19,7;""  PREMIOS DOBRA JUNTA + 20 6 CREDIT H'2,0;7-CRDT;CRDT R%4,4;7-BET;BET \  PREMIOS N=19 SP(N)=(BET+bet)*O(N) +9 -N,26;30-P(N);P(N) N H#1;1,0;" Copyright 1984  ZE OLIVEIRA "   ORDEM N=51-1 M=41-1 FA$(M)>A$(M+1)B$=A$(M+1):A$(M+1)=A$(M):A$(M)=B$ $M .N 8 b NPRINT lH0:7:1:236066\,88X:236077\,251 }$9 ,C*6-5;"<>>>=" ~%10 ,C*6-5;">" %11 ,C*6-5;">" %12 ,C*6-5;">" %13 ,C*6-5;">" %14,C*6-5;">" %15,C*6-5;"\>>>]" F0:6:0:236066\,0:236077\,60<   A$=P$(2*C-1) A$=A$+(A$+32 ) B$=P$(2*C) C$(7,5) NUMERO =C$(1,1)=B$:C$(7,5)=(B$+32 ) PINTAS RB$"3"B$"5"C$(2,1)=A$(1):C$(6,5)=A$(2) 1B$","B$"2"C$(2,2)=A$(1) B$","B$"2"C$(2,2)=A$(1):C$(2,4)=A$(1):C$(6,2)=A$(2):C$(6,4)=A$(2):B$"."C$(4,2)=A$(1):C$(4,4)=A$(1) B$="2"C$(3,2)=A$(1):C$(3,4)=A$(1):C$(5,2)=A$(2):C$(5,4)=A$(2) >B$=")"B$="+"B$="-"B$="1"C$(4,3)=A$(1) >B$="*"B$="/"B$="0"B$="1"C$(3,3)=A$(1) 7B$="*"B$="0"B$="1"C$(5,3)=A$(2) JB$="+"C$(2,3)=A$(1):C$(6,3)=A$(2) C$(1,5)=";" C$(7,1)="Z" H0:7:1:236066\,88X:236077\,251 N=17 M0+2*(a$(1)>557);8+N,6*C-5;C$(N) N F0:6:0:236066\,0:236077\,60<  VIRAR CARTAS 18,15;"" APAGAR CARTAS COM HELD C=15 H(C)NPRINT C 0N=15:H(N)H(6)=1:N Q$="" H(6)VHELD %C=15:H(C)3080 ESCOLHER PRINT C H(6):FIXAR   BIP '.1}L,20+*10 v VHELD C=15 -H(C)Q$=Q$+P$(2*C-12*C) C  FIXAR N=15 :16,6*N-5;("HELD"H(N));(" "H(N)) n  JESCOLHER R Q$=Q$+" " ^*Q$(Q$-1)=(546+(*4)) `'P$(2*C-1)=Q$(Q$-1) b#Q$(Q$)=(41)+(*13 )) dP$(2*C)=Q$(Q$) uQ$=2 N=1̱Q$-22 1Q$(NN+1)=Q$(Q$-1̱Q$)3420\ N  B JC=9 1-1 T8000@+C*100d ^P8050r hC: wB1;8;1;9 -P,10 ;" " | JACKSBETTER A$="" N=210 2 "P$(N)=")"P$(N)>"2"A$=A$+P$(N) N A$=A$+"ABCDE":ORDEM N=14 "A$(N)=A$(N+1)P=1: N  2 PAIR A$="" 3N=210 2:A$=A$+P$(N):N:ORDEM :?A$(1)=A$(2)A$(4)=A$(5)P=2: D?A$(1)=A$(2)A$(3)=A$(4)P=2: N=A$(2)=A$(3)A$(5)=A$(4)P=2 b n3 OF A KING v:A$="":N=210 2:A$=A$+P$(N):N:ORDEM ?A$(1)=A$(2)A$(2)=A$(3)P=3: ?A$(2)=A$(3)A$(3)=A$(4)P=3: =A$(3)=A$(4)A$(4)=A$(5)P=3  STRAIGHT :A$="":N=210 2:A$=A$+P$(N):N:ORDEM !N=14 ! !A$(N)+1ɯA$(N+1) !N ! P=4: !6 FLUSH !HoP$(1)=P$(3)P$(3)=P$(5)P$(5)=P$(7)P$(7)=P$(9 )P=5 !\ !FULL HOUSE !:A$="":N=210 2:A$=A$+P$(N):N:ORDEM !XA$(1)=A$(2)A$(2)=A$(3)A$(4)=A$(5)P=6: !VA$(1)=A$(2)A$(4)=A$(3)A$(4)=A$(5)P=6 ! !4 OF A KING "A$="" "3N=210 2:A$=A$+P$(N):N:ORDEM "3nA$(2)=A$(3)A$(3)=A$(4)A$(1)=A$(2)A$(4)=A$(5)P=7 "L "bSTAR FLUSH "tpP$(1)=P$(3)P$(3)=P$(5)P$(5)=P$(7)P$(7)=P$(9 )8850" "~ ":A$="":N=210 2:A$=A$+P$(N):N:ORDEM "N=14 "!A$(N)+1ɯA$(N+1) "N " P=8: "ROYAL FLUSH " A$=" " "N=15 "$P$(2*N)=")"A$(1)="1" "$P$(2*N)="2"A$(2)="1" "$P$(2*N)="3"A$(3)="1" "$P$(2*N)="4"A$(4)="1" "$P$(2*N)="5"A$(5)="1" "N "A$="1"8950" " #oP$(1)=P$(3)P$(3)=P$(5)P$(5)=P$(7)P$(7)=P$(9 )P=9 ## #& #* #verificador de  # 9819[& #p$ # P=0 #VERIFY #P &1 &S"8)84828385" &T"7)7-7+7*7," &U"6+7+8+9+7)" &V"6*6.7.7*9." &W"6)6.61656*" &X"616/72808." &Y"656373837*" &Z"959*657*8)" &["6+8)759)7*" ' ' ' ':9992' '1"POKER"0:"CARTAS"64600X,768 ' "":"" postaixarviraXobrajuntuntaobra aioredi4remiordeprin` rin ira hel ixa scolheH erif@0  drdde0  di ps  ! Q"" Je LMM\M3;MM wP P 3 P v> HHH$~$$~$~H~ ~bd&F8(*Dz  $?!)%!!8$"!*>kk"w>>>ݪݪw߫wݪwݪwݪw~~@p66&"**>>~bb~bbxh~bb~~````~xhnbb~~`~``~~`~```~``bb~bb~bbbqpqp`q $(1!px px q @ppqpqHIxyxD$%E8|T888|D8||8ݪwݪwݫ8Tx~~BB~BBxH~BB~~@@@@~xHNBB~~@~@@~~@~@@@~@@BB~BB~BBB~~~~BB~HHH@~~BzJJJJN~BBBB~~BB~@@~BBJJ~~BB~HH~@~~~@B~BB~J~HH~BBBBB~@@@~~@~xݪwݫtL>BB<DHpHDB@~BfZBBBBbRJFB