TKJ? \:D:\XE8Q\W P P P 88 MM\T;T>>BB<DHpHDB@~BfZBBBBbRJFBX=1.5@*C(J,30)/3600:Y=16*(C(J,S)-P0) 05(C(J,S)-P0)>5Y=5*16:1860D :+(C(J,S)-P0)<-5Y=-5*16 D(X+60<),(Y+90Z) NJ S X b."NOVI GRAFIK ONDA NAMESTI PAPIR I DAJ 0= ";Q l4Q=0 "DAJ ZA 2. GRAFIK P0= ";P0:1665 $:"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( CY=(ALF-TE)*(1-.00273043x2)/86400(:C(J,38&)=Y 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)):JD=JD*JD/(2*D) 6C(J,29)=-(C(J,29)+JD*(A(J,535)/D))  XMC(J,29)=-.99835ݗ*A(J,513)*((Z+963)/206264.8In33): " K= K=DJURO 13 . . $!|xB|<<B8<8hDBBB(BB DD TBBBB | DD <8<888888# # <@!PL8 X\\\]\YY\o[[[\$X![@@P!88"W K SR P pREDUKCIJA POSMATRANJA * I PLANETA SA VVK, IME PRGRAMA "DJURO 13",POLOZAJ BROJACA 25 NA KASETAMA SA MERENJIMA * 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,38&):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)( 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 ; 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" (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 їC(J,1)=A(J,1):C(J,8)=A(1,39'):I=25:C(J,I)=A(J,I):I:C(J,4)=(J-1):C(J,6)=A(J,6) 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()-A(J,18)+A(J,41))-A(J,19))*250))/1000 HgC(J,19)=((Q*(A(J,40()-A(J,18)-(A(J,41))-A(J,19)))*500))/1000  5000 mC(J,27)=A(1,41)):A(J,13 )=A(J,13 )+C(J,24):Z=A(J,12 )+A(J,13 ) ^A(J,1)>19997000X: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 LC(J,28)>3240004C(J,29)=-C(J,29):C=6480004-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 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 hJ=2A(1,4)+1:C(J,1);6;((C(J,34")/36$))/100d;13 ;C(J,30);25;((C(J,26)/36$))/100d;33!;((C(J,31)*1000))/1000;40(;C(J,6):J |<" 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")  P0=0 ""INDEKS S VELICINE C(J,S)=Y= ";S v" DANA ";D$;" SERIJA: ";C(1,5);" N=";C(1,4);" PL=";C(1,24);" C(J,";S;")-";P0 a:0,0:255,0:0,175:-255,0:0,-175 P=0:X=5 qL=12:I=111 :Y=P-80P:X,(90Z+Y):P=P+16:I:P=0:X=250:L P=0:Y=5 qL=12:I=116:X=P-45-:(X+60<),Y:P=P+15:I:P=0:Y=170:L &&J=2A(1