TF?\KD:\E8W P P P M"@ M\\X;T>>BB<DHpHDB@~BfZBBBBbRJFB0Q1=1:2230  Q1=-1 7B=(A(P,21)*/180):B>02280  C=(A(P,22)*/180) 7A(J,502)=Q1*A(P,15)*(1-(C))/2  P=P+1  1180 1E=A*(A(P,21)*/180):E=(E):=(E) PA(J,502)=Q1*A(P,15)*(1-(E))/2:P=P+1:1180 {S2=(1-E2*(A(P,20)*/180)*(A(P,20)*/180))/(1-E2):A(P,23)=A(P,15)*(S2)  2150f " DJURO 6 'T' 2$!|xB|<<B8<8hDBBB@B DD TBBBB|| DD 888888# # <@!P8\\\\\zX![@@P!88"W K SR P IME PROGRAMA "DJURO 6" /POCETAK NA 5O, PRIPREMA POSMATRANJA * NA VVK L0=-4923.3ff F"UKUPAN BR. * I PLAN. N= ";N:"No * I P ";N;" P0 ";:"P0= ";P0:P0: (VA(N+1+P0,546):C(2):D(2):E(2):F(2):R(2) 2"DATUM ";:"DAN= ";A(1,1):"MESEC= ";A(1,2):"GOD= ";A(1,3):A(1,1);". ";A(1,2);". ";A(1,3) 6A(1,44,)=A(1,44,)+1 4=T=(A(1,44,)-75K)/100d:T2=T*T:T3=T*T2 >K$="213FK4*" HQ"PRIPREMI KASETU SA FK4*, NASTAVI SA CONTINUE":::"UKLJUCI EMITOVANJE KASETE" RK$B() \'1,2:"ISKLJUCI KASETOFON" aP=N+2:M=1 fJ=2N+1 z%A(J,1)>19992000 S=M535 'A(J,1)=B(S,1)1100L S :"TRAZIM NOVU GRUPU FK4*":: BA(J,1);" * TRAZIM, A ZADNJA FK4* JE= ";B(535,1) !::"UKLJUCI EMITOVANJE KASETE" K$B() '1,2:"ISKLJUCI KASETOFON" ."DAJ CONTINUE,AKO MISLIS DA ZAVRSIM STVAR": M=1:900 LEB(S,12 )>80PQ=20/3:Q9=10 :1120` VQ=4/3:Q9=2 `3A(J,502)=B(S,4):SPEKTRALNA REFRAKCIJA j'A(J,513)=B(S,5):PARALAKSA tA(J,524)=(B(S,6)*3600+B(S,7)*60<+B(S,8)+B(S,9 )*T+B(S,10 )*T2+Q*(B(S,10 )-B(S,11 ))*T3):ALFA ~A(J,535)=(B(S,12 )*3600+B(S,13 )*60<+B(S,14)+B(S,15)*T+B(S,16)*T2+Q*(B(S,16)-B(S,17))*T3):DELTA `A(J,546)=(B(S,18)+B(S,19)*T+(B(S,19)-B(S,20))*Q9*T2):MI ZA DELTU M=S J :1;"SNIMANJE !!! " "IME PODATAKA= ";A$ A$A() B1,2:"NOVO SNIMANJE, NE=0 ";Q:Q>01220 6:"VRATI TRAKU ZA VERIFIKACIJU, UTIKAC U DONJU RUPU" A$A() =1,2:"ISKLJUCI KASETOFON":1;" KRAJ ?? "  "PLANETA BR. ";A(J,1) O:"EFEMERIDA ZA DATUM ";A(1,1)+1;".";A(1,2);"." -A(P,1)=A(J,1):" ALFA RAZ." |"SAT= ";A(P,2):"MIN.= ";A(P,3):"SEC= ";A(P,4):"GOR. RAZ.= ";A(P,5):"DONJ. RAZ.= ";A(P,6) `15;A(P,5):A(P,2);" ";A(P,3);" ";A(P,4):15;A(P,6) " DELTA RAZ."  y"STEP.= ";A(P,7):"MIN= ";A(P,8):"SEC= ";A(P,9 ):I=14:(I);". RAZ.= ";A(P,9 +I):I 214;A(P,10 ):14;A(P,11 )  0A(P,7);" ";A(P,8);" ";A(P,9 ) *214;A(P,12 ):14;A(P,13 ) 4Y"HOR.PARAL.= ";A(P,14):"HOR.PARAL.= ";A(P,14):A(J,513)=A(P,14) >4"RADIUS= ";A(P,15):"RADIUS= ";A(P,15) H"KULMINACIJA, SAT= ";A(P,16):"KULM.= ";A(P,16);" ";:"MIN.= ";A(P,17):A(P,17);" ";:"SEC= ";A(P,18):A(P,18);" RAZ.= ";:"RAZ.= ";A(P,19):A(P,19) RvA(J,1)=2005E2=0.1288~%:"JUPITER, DAJ P= ";A(P,20):"P JUPITERA= ";A(P,20):2300 \uA(J,1)=2006E2=0.1992~K:"SATURN DAJ D+= ";A(P,20):"D+ SATURNA= ";A(P,20):2300 fe"FAZA F= ";A(P,21):"FAZA F= ";A(P,21);" Q= ";:"FAZA Q= ";A(P,22):A(P,22) js:"GRESKA U EFEM. DAJ 0 ";Q:Q=0"I= ";I:A(P,I);" STARO, NOVO ";:"A(P,I)= ";A(P,I):A(P,I)::2154j pcME=A(P,16)+A(P,17)/60<+A(P,18)/3600:DM=LE*A(P,19)/86400( zAA(J,546)=(ME+(LE+DM)/3600)/24:D=A(J,546) D>0.5D=D-1 A(J,524)=(3600*A(P,2)+60<*A(P,3)+