BIORITAM H0:0:7::23658j\,8:236099\,80P **** ZX BIORITAM ****  1984 YT2FSG Goran Stankovic  A1="A" I=023:A2  A1+I,A2:I (M24,60<,126~,255,255,126~,24,24 2O102f,231,255,255,126~,126~,60<,24 FO60<,126~,255,231,231,255,126~,60< P1:5:1 Q56,0;"" R57,0;"" T58,0;"" V59 ,0;"" XE7:0:11 ,2;" 1984 YT2FSG Goran Stankovic" d36:"IME :";A$:0,0;1;A$ n5"Datum rodjenja"'"Dan :";D'"Mesec :";M'"Godina :";G x%0,21;D;".";M;".";G;"." }DD=D:MM=M:GG=G 600X:B=X 3"Bioritam za"'"mesec :";M'"Godinu :";G:D=0 600X:A=X C=A-B 700 800  E1=C-(C/23)*23 E2=C-(C/28)*28 E3=C-(C/33!)*33! 56,0;" " 57,0;" " 58,0;" " 59 ,0;" " 611 ,0;" " ,.4L,-20:Z1=(Z-1)*8 D10 ,0;"0":5,0;"+":15,0;"-" 12 ,24:Z1,0 12 ,92\:Z1,0 12 ,161:Z1,0 &12 ,24:0,136 )Z1+12 ,24:0,136 "I=0̺((Z-3)/2) "1I*16+28,24:0,136 ,/I*16+20,88X:0,8 6/I*16+20,24:0,4 @0I*16+20,157:0,4 EI J(19,11 ;"1 1 1 1 1 2 2 2 2" T220,1;"1 3 5 7 9 1 3 5 7 9 1 3 5 7" ^GZ=29Z=3019,29;"2":20,29;"9" `@Z=3119,29;"2 3":20,29;"9 1" h:19,1;1;1;M;".";G;".":0 r{21,0;"Fizicki=";4;"";7;" Emotivni=";2;"";7;" Intelekt=";5;"";7  N=1Z  F=((N+E1)/23*2*) !N1=10 +(8*F)*(-F)  F=((N+E2)/28*2*) !N2=10 +(8*F)*(-F)  F=((N+E3)/33!*2*) !N3=10 +(8*F)*(-F) N1,N;4;"" N2,N;2;"" N3,N;5;"" N .75@,7:.25~,8:.5,7:.5,5:.5,3:.5,2:1,0 /#1;"'P'-Ponovo 'Z'-COPY 'S'-":0 ="P"1000 ="Z":530 !="S"900 "=" "900 & 530 X(M3Q=G:R=M+1:620l bQ=G-1:R=13 +M l1X=(365.256*Q)+(30.6t*R)+D-122z v#X=X-(Q/100d)+(Q/400)  %G4*(G/4)Y=0: )G100d*(G/100d)Y=1: )G400*(G/400)Y=0:  Y=1:  H(M=4)+(M=6)+(M=9 )+(M=11 )=1Z=30: *M=2Z=28+Y: 4Z=31: 0:7:7:0::#0;" 1984 YT2FSG Goran Stankovic":i=11000:0:0:0:7::: l.2~L,30:.3,20::20,0;"Zelis li da promenis datum "'"rodjenja ? (D/N)" ="D":80P Z="N":1;0,0;A$:0,22;DD;".";MM;".";GG;".":140  1010 '  ' *** SAVE *** ' '"BIORITAM"1