TKJ?\XD:\E8W P P P 88  M\T;T>>BB<DHpHDB@~BfZBBBBbRJFB19997000X:A(J,13 )=A(J,13 )+C(J,29)+A(J,502) +C(J,26)=A(J,12 )+A(J,13 ) UA(J,13 )=A(J,13 )+C(J,27):A(J,12 )=A(J,12 )+161288 +C(J,28)=A(J,12 )+A(J,13 ) SC=A(J,535):A(J,1)>1999C(J,30)=C(J,28):1000  6000p JC(J,28)>3240004C(J,29)=-C(J,29):C=6480P-C VA(J,13 )=A(J,13 )+C(J,29):C(J,30)=A(J,12 )+A(J,13 ) vC(J,31)=C(J,30)-C:OC=OC+C(J,31):C(J,30)<126000vOCE=OCE+C(J,31):N1=N1+1 WD=C(J,30):C(J,30)>3240004D=6480004-C(J,30):1030 0Q1=1:C(J,30)<0Q1=-1 dD1=Q1*(Q1*D/3600):D2=Q1*(Q1*(D-D1*3600)/60<):D3=(D-D1*3600-D2*60<) 7I=15:C(J,31+I)=A(J,491+I):I " PRIM.POP.: Sav.= ";((C(J,7)*1000))/1000;" Br.Sav.= ";C(J,8);" RAN= ";((C(J,9 )*100d))/100d;" KRUG= ";((C(J,10 )*100d))/100d;" KRIV.= ";((KR*100d))/100d " M.Z.= ";((C(J,11 )*100d))/100d;" ( MZL= ";((C(J,12 )*100d))/100d;"p MZG-D= ";((C(J,13 )*100d))/100d;"p MZM= ";((C(J,14)*10000'))/10000';"Ob 1.kon= ";C(J,15);" )" " Sr.nag.= ";((C(J,16)*100d))/100d;"p NG-D= ";((C(J,17)*100d))/100d;"p Sr.N= ";((C(J,18)*100d))/100d;" NG-D= ";((C(J,19)*100d))/100d;" Mer. Z= ";C(J,20) " Bar.= ";((C(J,21)*100d))/100d;" Tb= ";((C(J,22)*100d))/100d;" R(Ts)= ";((C(J,24)*1000))/1000;" R(Tu)-R(Ts)= ";((C(J,25)*1000))/1000  "Z= ";C(J,26);"(";((C(J,26)/36$))/100d;") dFi= ";C(J,27);" D=F+Z= ";C(J,28);" dD= ";((C(J,29)*1000))/1000;" Tau= ";((C(J,37%)*10CP))/10CP  " Do= ";C(J,30);" = ";D1;" ";D2;" ";((1000*D3))/1000;" (O-C)= ";((C(J,31)*1000))/1000 J @::: ^C(1,29)=MZ/A(1,4):C(1,30)=MZL/A(1,4):C(1,31)=MZM/A(1,4):C(1,32 )=OC/A(1,4):N1>0C(1,33!)=OCE/N1:C(1,34")=N1 |<" MZo= ";((C(1,29)*1000))/1000;" MZL= ";((C(1,30)*1000))/1000;" MZM= ";((C(1,31)*10000'))/10000';" O-C= ";((C(1,32 )*1000))/1000;" Ekv.*O-C= ";((C(1,33!)*1000))/1000;" N1= ";C(1,34") "" O-C DANA ";D$  ""INDEKS S VELICINE C(J,S)=Y= ";S a:0,0:255,0:0,175:-255,0:0,-175 P=0:X=5 CI=111 :Y=P-80P:X,(90Z+Y):P=P+16:I P=0:Y=5 CI=116:X=P-45-:(X+557),Y:P=P+15:I &&J=2A(1,4)+1 +9X=1.5@*C(J,30)/3600:Y=16*C(J,S) 00C(J,S)>5Y=5*16:1860D :&C(J,S)<-5Y=-5*16 D(X+557),(Y+90Z) NJ X b."NOVI GRAFIK ONDA NAMESTI PAPIR I DAJ 0= ";Q lQ=0" DATUM: ";C(1,1);".";C(1,2);".";C(1,3);". N= ";C(1,4);" Pl= ";C(1,24):1720 $:"SNIMANE,G0RE,POJACAJ TON !!!": "UKLJUCI KASETOFON" D$C() 1,2::"ISKLJUCI" 1"NOVO SNIMANJE DAJ 0=";Q:Q=01930 1"VERIFIKACIJA DAJ 0= ";Q:Q>02000 D$C() +1,2::"ISKLJUCI ":"KRAJ ??"  AL=A(J,524)/3600 IC(J,20)>1620004AL=AL+12 :AL>24AL=AL-24 .(AL-T0)>12 AL=AL-24:5040 #(AL-T0)<-12 AL=AL+24 :C(J,21)=SB+DB*(AL-T0):C(J,22)=TB+DT*(AL-T0)  Z=C(J,20)/206264.8In33 .T=(Z):R2=T*T:R4=R2*R2:R6=R2*R4:R8=R4*R4 U=U0+U1*R2+U2*R4+U3*R6+U4*R8 >Z<0.7853981IّZ>-0.7853981IّH=1:5100 H=H0+H1*R2+H2*R4+H3*R6 C(J,23)=H:R=(U*T*SP*C(J,21)*(1+.0000184qY*C(J,22))*0.998642*H8^H)/(751.51;*(1+.0001818t>*C(J,22))):TS=(1+.00367xpa*A(J,3))^H:TU=(1+.00367xpa*A(J,2))^H =C(J,24)=R/TS:R1=R/TU:C(J,25)=R1-C(J,24)  p3ALF=A(J,524):D=206264.8In33:A=D/15 zKZ>1620004ALF=ALF+43200:ALF>86400(ALF=ALF-86400( 7(ALF-TE)>43200ALF=ALF-86400(:6040 ,(ALF-TE)<-43200ALF=ALF+86400( 2Y=(ALF-TE)*(1-.00273043x2)/86400( NC(J,37%)=B(1,1)+Y*B(1,2)+Y*Y*B(1,3) A(J,31)=A(J,546)/100d:A(J,32 )=(A(J,524)/A):A(J,33!)=-(A(J,524)/A):A(J,34")=.433596^K*(A(J,535)/D)-(A(J,535)/D)*(A(J,524)/A):A(J,35#)=(A(J,535)/D)*(A(J,524)/A) YdC=.0532|Y>A*A(J,513)*A(J,35#):dD=-.0448|74m*A(J,513)*A(J,34") @A(J,34")=A(J,34")+dC:A(J,35#)=A(J,35#)+dD ʉC(J,29)=0:I=15:C(J,29)=C(J,29)+(B(I,1)+Y*B(I,2)+Y*Y*B(I,3))*A(J,30+I):I 0Q1=1:A(J,524)<0Q1=-1 MJD=-(((B(2,1)+Y*B(2,2)+Y*Y*B(2,3)+Q1*(B(5,1)+Y*B(5,2)+Y*Y*B(5,3)))*(A(J,524)/A)+(B(3,1)+Y*B(3,2)+Y*Y*B(3,3)+Q1*(B(4,1)+Y*B(4,2)+Y*Y*B(4,3)))*(A(J,524)/A))^2)/(2*D) 2((1000*JD*(A(J,535)/D)))/1000 6C(J,29)=-(C(J,29)+JD*(A(J,535)/D))  XMC(J,29)=-.99835ݗ*A(J,513)*((Z+963)/206264.8In33): " DJURO 11 << I}$!|xB|<B8<8hDBBB((B DD TBBBB| DD >8<888888# # <@!P8\\\\\$X![@@P!88"W K SR P VREDUKCIJA POSMATRANJA * I PLANETA SA VVK, IME PRGRAMA "DJURO 11",POLOZAJ BROJACA 130 G"NAMESTI PAPIR, 4 REDA GORE, PRELOM PAPIRA NA DONEM KRAJU ISPUPCENJA" &"IME=DATUM";D$:" UKLUCI KASETOFON " (D$A() 21,2:" ISKLJUCI " ::=# <:/1 >:^1 FC(A(1,4)+1,37%):B(5,3):K(7):D(2,2):L(2,2):E(2,2):U(2,6) K%TE=A(1,43+)+4923.3ff PU0=57.5864fXy>:U1=-.066973} )#:U2=.0002241tjb:U3=-.01359m6fj:U4=.01106f>d:H8=1.0341677_p:H0=1.0002382+:H1=.00136675w3$:H2=-.0115429m6:H3=-.062552iTS_ UK(1)=.915j=p:K(2)=.442bM:K(3)=.24~u[:K(4)=.115}k:K(5)=1.09 :K(6)=.021{,1&:K(7)=.01z# = ZU(1,1)=.914il:U(1,2)=.0028x74m:U(1,3)=.007ye`A:U(1,4)=-.0018wkC:U(1,5)=-.00082vVD:U(1,6)=.06oIS:U(2,1)=.9ffff:U(2,2)=.0022x- :U(2,3)=.008zn:U(2,4)=.0009vkC:U(2,5)=.00176wf:U(2,6)=-.000021q0)( dT" REZULTATI ODREDJIVANJA ABS. DEKLINACIJA SA VVK, POSMATRAC: B0ZHICHKOVICH DJURO" i9" (REDUKOVANO PROGRAMOM ''DJURO 7'')" n:" DATUM POSMATRANJA: ";A(1,1);". ";A(1,2);". ";A(1,3);" BR.*= ";A(1,4)-A(1,45-);" BR. PLAN.= ";A(1,45-):: x$" VELIKI BESELOVI BROJEVI" S"DATUM";9 ;"TAU";16;"A+A'";25;"B+B'";30;" C D" J=13:(A(1,1)+J-1);".";A(1,2);".";7;A(1,5*J);15;A(1,5*J+1);23;A(1,5*J+2);30;A(1,5*J+3);" ";A(1,5*J+4):J: w" OPSTI PODACI ZA POSMATRANJA DANA: ";A(1,1);". ";A(1,2);". ";A(1,3);".": " BR.SERIJE= ";A(1,26);" USLOVI: OBLACI(012)= ";A(1,27);" VETAR(012)= ";A(1,28);" RAD OD ";A(1,29);"h";A(1,30);"m DO ";A(1,31);"h";A(1,32 );"m" "BAROM: POCE= ";A(1,33!);" Tb= ";A(1,34");" KRAJ= ";A(1,35#);" Tb= ";A(1,36$);" T-pod.= ";A(1,37%);" R.Vla.= ";A(1,38&);"%" " * VR. PO. ";A(1,46.);"h";A(1,47/);"m * KRAJ ";A(1,480);"h";A(1,491);"m GRINICKO * VR. U 0h ";A(1,43+);"s" E"Br.SAV.= ";A(1,39');" SR. SAV.= ";A(1,40();" POPRAVKA SR. SIRINE= ";A(1,41));" BLIZ.POC.GOD.= ";A(1,44,);".0":" Izr. RAN= ";A(1,42*);" Usv. RAN= ";A(1,502);" 0.Obrt= ";A(1,513);" dT= ";A(1,524);" Sv.na Gr.= ";A(1,535): lI=14:C(1,I)=A(1,I):I:I=524:C(1,I)=A(1,21+I):I C(1,8)=A(1,29)+A(1,30)/60<:C(1,9 )=A(1,31)+A(1,32 )/60<:C(1,10 )=A(1,46.)+A(1,47/)/60<:C(1,11 )=A(1,480)+A(1,491)/60< 9I=2528:C(1,I)=A(1,25+I) J=15:B(J,1)=A(1,9 +J):B(J,2)=(A(1,14+J)-A(1,4+J))/2:B(J,3)=(A(1,14+J)-2*A(1,9 +J)+A(1,4+J))/2:J gD=(A(1,31)+A(1,32 )/60<-A(1,29)-A(1,30)/60<) ST=(A(1,31)+A(1,32 )/60<+A(1,29)+A(1,30)/60<)/2-A(1,535):ST>12 ST=ST-24 gT0=A(1,43+)/3600+ST*(1+0.002738x3pt)+1.367.#:T0<0T0=T0+24  lSB=(A(1,35#)+A(1,33!))/2:TB=(A(1,36$)+A(1,34"))/2 `DB=(A(1,35#)-A(1,33!))/D:DT=(A(1,36$)-A(1,34"))/D ,<" MERENI I IZRACUNATI PODACI ZA * I PLANETE" 62" (PLANETE NOSE Br.>1999 )": ; iK=A(1,4)+2:OC=0:OCE=0:N1=0:MZ=0:MZL=0:MZM=0 &J=2A(1,4)+1 :::::::::: iSP=1+A(J,502)/10CP:A$="ZVEZDICA":A(J,1)>1999SP=1:A$="PLANETA" I:" ";(J-1);". ";A$;" Br.= ";A(J,1): " DATUM: ";A(1,1);".";A(1,2);".";A(1,3);" N= ";A(1,4);" PL= ";A(1,45-);" Serija: ";A(1,26);" Oblaka: ";A(1,27);" Vetra: ";A(1,28): (P=0:S=12:C=9 :I=12:D(S,I)=(A(J,P+C+1)+A(J,P+C+2)+A(J,P+C+5)+A(J,P+C+6))/40(:L(S,I)=((A(J,P+C+9 )+A(J,P+C+10 ))/20-20):E(S,I)=(A(J,P+C+10 )-A(J,P+C+9 ))/10 :C=11 :I:P=22:S  "MERENJA" ѨC(J,1)=A(J,1):C(J,8)=A(1,39'):I=25:C(J,I)=A(J,I):" ";A(J,I);:I:C(J,4)=(J-1):C(J,6)=A(J,6): P=0:S=12:I=(6+P)(17+P):" ";A(J,I);:I:" D";S;"= ";(D(S,2)-D(S,1)):I=(18+P)(27+P):" ";A(J,I);:I:" Lg= ";E(S,1);" Ld= ";E(S,2):P=22:S:"EFEMERIDA" )I=502546:" ";A(J,I);:I: A(J,1)>1999I=213 :" ";A(K,I);:I::I=1424:" ";A(K,I);:I::K=K+1:500 :  "REZULTATI" 8Q=1:A(J,6)=2Q=-1:530 A(J,6)1A(J,6);" ";A(J,28);" GRESKA U POC. POLOZAJU (1,2)?":"DAJ 1. POLOZAJ= ";A(J,6):"2. POLOZAJ= ";A(J,28):510  P=0:S=12 6A(J,10 +P)=(D(S,1)+D(S,2))/2: &PK1=(A(J,8+P)/2):A(J,8+P)/2=K1K2=0:570: 0 K2=1 :iA(J,11 +P)=(60<*K2+A(J,10 +P))*A(1,502)/120x-A(1,502)/2 DI=12: NA(J,17+P+I)=-L(S,I)*(U(I,1)+U(I,2)*(A(J,2)-15)+U(I,3)*((E(1,I)+E(2,I))/2-19)+U(I,4)*L(S,I)+U(I,5)*L(S,I)*L(S,I)+U(I,6)*L(S,I)*L(S,I)*L(S,I)*L(S,I)) XI bPA(J,26+P)=0A(J,P+23)=A(J,P+23)/1000:640 l5M=5000:A(J,27+P)=0M=4000 veA(J,23+P)=(A(J,P+23)+A(J,P+24)+A(J,P+25)+A(J,P+26)+A(J,P+27))/M PA(J,P+22)=(A(1,513)-A(J,P+22)-A(J,P+23))*20 P=22:S oC(J,9 )=Q*(A(J,33!)-A(J,11 ))/2:C(J,10 )=Q*(A(J,31)-A(J,9 ))/2000 aA(J,12 )=Q*((A(J,29)-A(J,7))*1800+(A(J,30)-A(J,8))*30) A(J,13 )=Q*(A(J,32 )-A(J,10 )+(A(J,31)-A(J,9 ))/1000+A(J,33!)-A(J,11 )+(A(J,40()-A(J,18)+A(J,41))-A(J,19))/2+A(J,44,)-A(J,22))/2 `A=((A(J,29)+A(J,7))*1800+(A(J,30)+A(J,8))*30)-849600Ol C(J,11 )=A+(A(J,32 )+A(J,10 )+(A(J,31)+A(J,9 ))/1000+A(J,33!)+A(J,11 )+(A(J,40()+A(J,18)+A(J,41))+A(J,19))/2+A(J,44,)+A(J,22))/2 MZ=MZ+C(J,11 ) }C(J,12 )=-(L(2,1)+L(1,1)+L(2,2)+L(1,2))/4:MZL=MZL+C(J,12 ) hC(J,13 )=-(L(2,1)+L(1,1)-(L(2,2)+L(1,2)))/2 iC(J,14)=(A(J,44,)+A(J,22))/40(:MZM=MZM+C(J,14):C(J,15)=A(J,4) nA(J,14)=A(J,12 )+A(J,13 ):C(J,7)=-A(1,40()*(A(J,14)/206264.8In33) oA(J,25)=0KR=-((A(J,24)+A(J,46.))/2)*(A(J,535)/206264.8In33):780  iA(J,27)=0KR=-K(5)*(A(J,535)/206264.8In33):C(J,15)=5:780  5KR=-K(A(J,4))*(A(J,535)/206264.8In33)  $A(J,14)>1620004KR=-KR -A(J,13 )=A(J,13 )+C(J,7)+KR  +C(J,20)=A(J,12 )+A(J,13 ) *hC(J,16)=-Q*(L(2,1)-L(1,1)+L(2,2)-L(1,2))/4 4jC(J,17)=-Q*(L(2,1)-L(1,1)-(L(2,2)-L(1,2)))/2 >eC(J,18)=((Q*(A(J,40(