C6,s=:,s=hA.(8):H.:P."OTKUCAJTE VASE IME ";:I.Y$:P.C.(29):P.:P."PRICEKAJTE MALO.":T.0 rF.I=1TO8:T.X$(I):N.I w#"PIK","HERC","KARO","TREF"," PUB"," DAMA"," KRALJ"," AS" |F=10000:G=F F.I=0TO7:T.A(I+69):N.I:T.W C.1450 C.1120 H.:P."VASE KARTE:" F.I=1TO5 IFA(I+33)<5P.A(I+33)+6,X$(A(I+51)):E.P.X$(A(I+33)),X$(A(I+51)) N.I:H.192 P.:P."KOJE KARTE MENJATE ?":Z=0 P."*" F.I=32TO37:IFK.(I)G.476:E.N.I:G.475 Y=I-32:B.W.(&2A68)-31,I+16 IFK.(I)G.477 IFY=0G.520 Z=Z+1:IFZ=5P."ZAO MI JE, ALI NE MOZETE VISE DAMENJATE KARTE!":G.520 C.1070 A(Y+33)=N:A(Y+51)=B G.470 C.1160:F.I=1TO5:A(I+39)=A(I+33):A(I+45)=A(I+51):N.I:H.:P."VASE KARTE:" F.I=1TO5 IFA(I+39)<5P.A(I+39)+6,X$(A(I+45)):E.P.X$(A(I+39)),X$(A(I+45)) &N.I:H.192:P.:P."SAMO MOMENAT DA I SEBI PODELIM KARTE.":P. 0C.1120:F.I=1TO5:A(I+57)=A(I+33):A(I+63)=A(I+51):N.I :F.I=1TO4:F.J=I+1TO5:IFA(I+63)50)G.750 O=O+V:P.C.(29); IFO>UG.870 IFO=UQ=O:G.970 X=I.(50*R.):IFX=0Q=O:G.970:E.Q=O+X:IFO>1000Q=O:G.1050 *P.AT288,"PRIHVATAM I PODIZEM ZA $";:W.W.(&2A68)+1,&2020:P.X;AT16,"GALAKSIJA";Q;AT48,Y$;O 4P.AT352,"ZA KOLIKO PODIZETE VAS ULOG"; >I.V:F.I=1TO33:P.C.(29);:N.I:IFV=0G.950:E.IF(V50)G.820 RIFV=XO=Q:G.970 \G.770 fIF((Q>500)+(F<500)+(R.<.92))Q=O:G.970:E.P.:P.:P."NE PRIHVATAM, VI STE POBEDILI !":F.I=1TO7:P.:N.I pF=F-Q:G=G+Q zP.AT288,"GALAKSIJA",F P.Y$,AT336,G IFF<0G.1560:E.IFG<0G.1580 P.:P."DA LI IGRATE JOS JEDNU PARTIJU?" IFK.(4)P.:P."OK ! PRICEKAJTE MALO.":G.400 IFK.(14)G.1540:E.G.930 P.:P."JA SAM POBEDIO ! ":F.I=1TO7:P.:N.I F=F+O:G=G-O:G.890 P.AT16,"MOJE KARTE:" F.I=1TO5:IFA(I+57)<5P.AT32*I+16,A(I+57)+6,X$(A(I+63)):N.I:E.P.AT32*I+16,X$(A(I+57)),X$(A(I+63)):N.I F.I=1TO5:A(I+57)=A(I+39):A(I+63)=A(I+45):N.I C.1320 IFT>DP.:P."VI STE POBEDILI !":F.I=1TO7:P.:N.I:G.880 IFTEG.950:E.IFH