+6,Z2:,Z2 C.1000 (P.AT448,"KO [E IZABRATI PO[ETNI BROJ ZVEZDICA ? (I)GRA[ ILI (R)A[UNAR ?"; 2IFK.(18)G.440 <IFK.(9)E.G.50 ZP.AT448," IZABERI PO[ETNI BROJ ZVEZDICA ( 30 - 50 ) !! "; _PRINT AT 416,""; dI.X nIF(X<30)+(X>50)P.AT448,"";:G.460 xH. }P.AT96,""; F.I=1TOX P."*"; N.I P.AT320,"KO PO[INJE ? (R)A[UNAR (I)GRA["; IFK.(18)G.290 IFKEY(9)E.G.160 P.AT320,"UZMI 1,2 ILI 3 ZVEZDICE !! "; Y=0 IFK.(33)Y=1 IFK.(34)Y=2 IFK.(35)Y=3 IFY=0G.215 X=X-Y H. IFX=0G.470 P.AT96,""; F.J=1TOX P."*"; N.J "P.AT320,"UZIMAM ZVEZDICE "; ,F.I=1TO500:N.I 6M=X/4 @IFM<1G.480 JIFM=I.(M)G.490 TE=X ^E=E-4 hIFE>4G.350 rX=X-E |IFX=0G.490 H.:P.AT96,""; F.H=1TOX P."*"; N.H G.200 X=I.(R.*20+30) G.120 P.AT448," PAZI NA BROJ ZVEZDICA !! ";:P.AT 480,"=============================="; F.I=1TO500:N.I:P.AT416," ";:G.90 F.I=1TO500:N.I:P.AT416," ";:G.90 H.:P.AT200,"P O B E D I O S I !!":P.AT232,"======================";:G.600 H.:P.AT200,"I Z G U B I O S I !!":P.AT232,"=====================";:G.600 E=I.(3*R.+1) G.370 XP.AT448,"JO^ JEDNOM ?? (D/N)"; bIFK.(4)H.:G.40 lIFK.(14):H.:S. vG.610 H. P.AT8,"Z V E Z D I C E" P.AT40,"===============" P.AT96," U OVOJ IGRI VI SE TAKMI[ETE SA RA[UNAROM U ODUZIMANJU ZVEZDICA.PO[ETNI BROJ ZVEZDICA JE OD 30" P.AT192,"DO 50. OVAJ BROJ MO]ETE IZABRATIVI ILI RA[UNAR." P.:P."ODJEDNOM MO]ETE UZETI 1,2 ILI 3 ZVEZDICE. IGRU MO]ETE PO\ETI VI ILI RA[UNAR." $P.AT480,"ZA PO[ETAK UKUCAJ ENTER !"; .IFK.(48)RET 8G.1070 BGOTO 1080 2