POKER bH0:0:7::23658j\,8:236099\,80P **** ZX POKER **** ,:#1;" 1985 YT2FSG Goran Stankovic" ^N$(8):C(32 ):B$(4):N(5):B(5):A(5):D(5):Z(5)::X(5):U(8):K(5) h rOq=0:B$(1)="":B$(2)="":B$(3)="":B$(4)="" wPK(1)=7:K(2)=2:K(3)=2:K(4)=7 |CR=502:CI=502 I=18:U(I):I:E  3000 ,:11 ,5;"Sacekaj dok promesam" *#1;" 1985 YT2FSG Goran Stankovic"  1450  1120` /:TI=160:3500 :I=15 !2,21;"JA :";CR;"$" !4,21;"TI :";CI;"$" @3,I*3-1;7;N$(N(I));K(B(I));B$(B(I)) I +11 ,1;"KOJU MENJAS ? (1-5 0)"  X$=:X$<"0"X$>"5"470 .1}L,0 X$="0"520 5VAL=X$:8,VAL*3-1;4;""  1070. N(VAL)=N:B(VAL)=B  470 81160:I=15:A(I)=N(I):D(I)=B(I):I  ,11 ,1;" " 0I=2143:8,I;" ":I SI=15:3,I*3-1;7;N$(A(I));K(B(I));B$(D(I)) &I 081120`:I=15:Z(I)=N(I):X(I)=B(I):I :>I=14:J=I+15:X(I)"3"760 -.2~L,30:8,30;x$+"$"  U1=U1+X$  U1>U870f U1=U970  .U2=U2+1:U1>6U2=U1:1050 *Z11 ,21;"Prihvatam";12 ,21;"i podizem";13 ,21;"za 1$" 4v15,21;"Za koliko";16,21;"podizes";17,21;"ulog ?";18,21;"(1-4 N)" >)X$=:(X$<"1"X$>"4")X$"N"830> C.25~,0 HX$="N"950 RX$="1"U1=U2:970 \ 770 f"17,2;"NE PRIHVATAM" pCR=CR-U2:CI=CI+U2 z!2,21;"JA :";CR;"$" !4,21;"TI :";CI;"$" <CR<018,2;1;"Ostao sam svorc": :CI<07,2;1;"Ostao si svorc": (#0;"JOS JEDNU PARTIJU ? (D/K/N)" X$=:X$="D"400 "X$="K"Q=12.45G333:970 6X$="N"8,2;1;"KUKAVICE ! ! !":  930 $18,2;"JA SAM POBEDIO" CR=CR+U1:CI=CI-U1:890z :TI=65A:3500 :12 ,2;"Moje karte:" WI=15:15,I*3-1;7;N$(Z(I));K(B(I));B$(X(I)):I Q=12.45G333Q=0: ,I=15:Z(I)=A(I):X(I)=D(I):I  1320( 3T>TR8,2;"TI SI POBEDIO":880p TCC950  4CD