Q6,1:,1! ! ! B I O R I T A M ! ! ! UPUTSTVO ZA ROM 2 ! ! ! H. P.AT165,"***********************" P.AT197,"* B I O R I T A M *" (P.AT229,"***********************" 2A=K.(0):A.(7) <F.I=0TO6:T.X$(I):N.I F#"SUBOTU","NEDELJU","PONEDELJAK","UTORAK","SREDU","[ETVRTAK","PETAK" PH. ZP." B I O R I T A M" dP." ===============" nP. xP."OTKUCAJTE DATUM RODJENJA U " P."OBLIKU (DAN MESEC GODINA)" P. I.X$ C.3000 C.1000 G=F/7:C.2000 P.:P."RODJENI STE U ";X$(F-G*7);"." P. P."OTKUCAJTE DATUM ZA KOJI SE CR-" P."TA BIORITAM U ISTOM OBLIKU" P. I.X$ C.3000 X=F:C.1000:F=F-X P. P."STARI STE";F;" DANA";:IFF>32740P.",":P."^TO JE PREVI^E ZA OVAJ BIORITAM!":G.999:E.P."." "P. ,P." PRITISNITE ENTER"; 6IFK.(0)=13E.G.310 @H. JF.I=0TO48:D.0,I:N.I TF.I=0TO64:D.I,24:N.I ^T.900 hF.J=1TO3 rT.A |L=0 F.I=F-10TOF+9 F.K=0TO2 B=SIND(360*(I+K/3)/A) B=INT(22-B*22+.5) D.L,B:L=L+1:N.K:N.I T.X:B.10271+I.(B/3)*32,X N.J #23,70,28,69,33,73 A=K.(0):G.80 F=365*Y+D+31*(M-1) IFM<3F=F+I.((Y-1)/4)-I.(.75*(I.(((Y-1)/100)+1))):RET F=F-I.(.4*M+2.3)+I.(Y/4)-I.(.75*(I.(Y/100)+1)):RET H=-1 IFG<0G=32768*H+I.(G+32768):RET:E.G=G-32768:H=H+1:G.2010 D=V.(P.X$) I=0 C.4000 M=V.(P.X$+I) C.4000 Y=V.(P.X$+I) RET IFB.(P.X$+I)=32I=I+1:RET:E.I=I+1:G.4000 1