NNNNNN.(p NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNONNNNNNNNNNNNNNNNNNNNNNޢO`  @`!O')+-/1 3@5`79;=?A E`GIKMOQ S@U`WY[]_a c@e`gikmoqOwy{} @` @ ` ` / @ ` @ ` ǀ ɠ / @ ` ׀ ٠  @`/o!Aa   !Aa!!#A%a')+-/1!359;=?A!CAEaGIKMOQ!SAUaWY[]_a!cAeagikmoq!sAuawy{}!Aa!Aa!a!Aa!Aaǁɡ!Aaׁ١!Aa!Aa  !/!B!!!!!"!#%b")"+""/#1"#3B#5b#7#9#;#=#?$aCB$Eb$G$I$KM$O%Q"%SB%Ub%W%Y%[%]%&/&cB&o&O`  @`!O')+-/1 3@5`79;=?A E`GIKMOQ S@U`WY[]_a c@e`gikmoqOwy{} @` @ ` ` / @ ` @ ` ǀ ɠ / @ ` ׀ ٠  @`/o!Aa   !Aa!!#A%a')+-/1!359;=?A!CAEaGIKMOQ!SAUaWY[]_a!cAeagikmoq!sAuawy{}!Aa!Aa!a!Aa!Aaǁɡ!Aaׁ١!Aa!Aa  !/!B!!!!!"!#%b")"+""/#1"#3B#5b#7#9#;#=#?$aCB$Eb$G$I$KM$O%Q"%SB%Ub%W%Y%[%]%&/&cB&o&A301 ֤2NDSTAR sASTROPHO10 s%CHAOS .suKALENDER142CsSONNEUHR12 Ms6STARFIND 5/STARTREK sALEES DITu eKESKTOP INFF a. s.. 2NDSTAR LST F !2NDSTAR PRG F O2NDSTAR RSC F 2NDSTAR RSD F "WEITERESTXT ##6SSSSSSS ra"}' 2ndSTar 1.31 ' Programm zur Simulation von bedeckungsvernderlichen DoppelSTernen ' 1987 sinccom software ' (Public Domain) ' ' geschrieben von Daniel Roth ' Brcker Mauspfad 448 ' D-5000 Kln 91 ' ' Verbesserungsvorschlge, weitere Anregungen, ' sowie Aufmerksammachen auf Fehler sind erwnscht! ' ' Resource-Parameter ' Param%=0 Hell1%=8 Hell2%=11 Radius1%=12 Radius2%=13 Abstand%=14 Winkel%=15 Graphik%=16 Los%=17 Beispiel%=18 Schluss%=19 ' Deffn Rad(Deg)=Deg*Pi/180 Deffn Arcos(X)=-Atn(X/Sqr(1-X*X))+Pi/2 Deffn Me(M)=10^((M+14.18)/-2.5) Deffn Em(E)=-2.5*Log(E)/Log(10)-14.18 Deffn Zen$(A$)=Space$(Int((80-Len(A$))/2))+A$ Dim Helligkeiten(314) Dim Zweiter%(8065) Zweiter_adr%=256*((Varptr(Zweiter%(0))+255) Div 256) Erster_adr%=Xbios(3) ' Gosub Rsrc_load("2ndstar.rsc") Gosub Rsrc_gtree(Param%,*Baum%) Gosub Form_center(Baum%) X%=Dpeek(Baum%+16) Y%=Dpeek(Baum%+18) B%=Dpeek(Baum%+20) H%=Dpeek(Baum%+22) Gosub Sstate(Baum%,Graphik%,1) Gosub Stext(Baum%,Hell1%," 0") Gosub Stext(Baum%,Hell2%," 0") Gosub Stext(Baum%,Radius1%," 0") Gosub Stext(Baum%,Radius2%," 0") Gosub Stext(Baum%,Abstand%," 0") Gosub Stext(Baum%,Winkel%," 0") ' Nochmal=-1 Repeat Cls Gosub Auswahl If Nochmal Gosub 3.modell Endif Until Not Nochmal Gosub Rsrc_free End ' Procedure Auswahl Gosub Form_dial(1,10,10,0,0,X%,Y%,B%,H%) Repeat Gosub Objc_draw(Baum%,0,8,X%,Y%,B%,H%) Gosub Form_do(Baum%,Hell1%) Ex%=Dpeek(Gintout) Gosub Sstate(Baum%,Ex%,0) If Ex%=Schluss% Then Nochmal=0 Else If Ex%=Beispiel% Then Gosub Stext(Baum%,Hell1%," 1") Gosub Stext(Baum%,Hell2%," 3") Gosub Stext(Baum%,Radius1%," 3") Gosub Stext(Baum%,Radius2%," 1") Gosub Stext(Baum%,Abstand%," 7") Gosub Stext(Baum%,Winkel%," 70") Else Gosub Gstate(Baum%,Graphik%,*Status%) Gosub Gtext(Baum%,Hell1%,*Hell1$) Gosub Gtext(Baum%,Hell2%,*Hell2$) Gosub Gtext(Baum%,Radius1%,*Radius1$) Gosub Gtext(Baum%,Radius2%,*Radius2$) Gosub Gtext(Baum%,Abstand%,*Abstand$) Gosub Gtext(Baum%,Winkel%,*Winkel$) Mag1=Val(Hell1$) Mag2=Val(Hell2$) R1=Val(Radius1$) R2=Val(Radius2$) R=Val(Abstand$) Wi=Val(Winkel$) Ok=Mag1*Mag2*R1*R2 If R1+R2>R And Ok<>0 Alert 2,"Fr Kontaktsysteme|ist die Berechnung|nicht korrekt!",1,"Abbruch|Trotzdem",Taste% If Taste%=1 Ok=0 Endif Endif If Status%=1 Graphik$="j" Else Graphik$="n" Endif Endif Endif Until Ex%=Schluss% Or (Ex%=Los% And Ok<>0) Return ' Procedure 3.modell Cls ' greren Stern in die Mitte setzen If R196 Blup=96/(Rs+R2) Endif If Blup*R1>96 Blup=96/R1 Endif Print Fn Zen$("Die Lichtkurve wird berechnet!") If Graphik$="j" Void Xbios(5,L:Zweiter_adr%,L:-1,-1) Endif E1=Fn Me(Mag1) E2=Fn Me(Mag2) Hellgetr=Fn Em(E1+E2) If Mag2Mag1 F=7 Else F=4 Endif Endif R1=R1*Blup R2=R2*Blup R12=R1*R1 R22=R2*R2 T%=0 Absmin=-10000000000 For Ph=Pi To 3*Pi Step 0.02 Dmx=Blup*R*Cos(Ph) Dmy=-Blup*Rs*Sin(Ph) Dmxs=Sqr(Dmx*Dmx+Dmy*Dmy) If Abs(Dmxs)R1-R2 La=Abs((R22-R12)/2/Dmxs-Dmxs/2) Mu=Sqr(R12-La*La) A=Fn Arcos(La/R1)*R12-Mu*La La=Abs(Dmxs)-La A=A+Fn Arcos(La/R2)*R22-Mu*La Else If Abs(Dmxs)1 If Taste=0 Then Faktor%=80/(Absmin-Hellgetr) Else Faktor%=80 Endif Gosub Zeichnen(Faktor%) If Graphik$<>"j" For T%=0 To 314 Plot 162+T%,100-(Hellgetr-Helligkeiten(T%))*Faktor% Next T% Else T%=0 Aa%=1 Modus%=3 Grenze=R1+R2+(R1+R2)/10 Deffill 1,2,8-F Pcircle 320,300,R1 Get 320-R1,300-R1,320+R1,300+R1,Stern1$ Deffill 1,2,F Pcircle 320-Blup*R,300,R2 Get 320-Blup*R-R2,300-R2,320-Blup*R+R2,301+R2,Stern2$ For Ph=Pi To 3*Pi Step 0.02 Dmx=Blup*R*Cos(Ph) Dmy=-Blup*Rs*Sin(Ph) Dmxs=Sqr(Dmx*Dmx+Dmy*Dmy) If Aa%<>0 Put 320-R1,300-R1,Stern1$,Modus% Aa%=0 Endif If Sgn(Sin(Ph))=1 Put 320+Dmx-R2,300+Dmy-R2,Stern2$,Modus% If Abs(Dmx)"" Or Mousek<>0 Endif Void Xbios(5,L:Erster_adr%,L:Erster_adr%,-1) Return ' Procedure Zeichnen(Faktor%) Local X%,Y%,Dm Cls Deftext 1,0,0,13 Text 224,16,"2 STar von Daniel Roth" Deftext 1,0,0,6 Text 232,10,"ND" Print At(62,4);Using "Stern 1: ##.## mag",Mag1 Print At(62,5);Using "Stern 2: ##.## mag",Mag2 Print At(62,6);"Gesamthelligkeit:" Print At(62,7);Using "##.## mag",Hellgetr Print At(62,8);"Radienverhltnis:" Print At(62,9);Using "R1/R2=##.##",R1/R2 Print At(62,10);"Neigungswinkel:" Print At(62,11);Using "###.# ",Wi Deftext 1,0,900,6 Text 98,180,"m in mag" Defline 1,1,0,1 Line 97,100,97,70 Defline 1,1,0,0 Deftext 1,0,0,6 Dm=-80/Faktor% For Y%=0 To 160 Step 40 Line 162,40+Y%,477,40+Y% Zahl$=Str$(Int(Dm*100+0.5)/100) If Sgn(Dm)=1 Zahl$="+"+Zahl$ Else If Sgn(Dm)=0 Zahl$=" "+Zahl$ Endif Endif Text 114,43+Y%,Zahl$ Dm=Dm+40/Faktor% Next Y% For X%=0 To 315 Step 45 Line 162+X%,40,162+X%,200 Next X% Return ' ' Include fr Dialog-Handling ' Procedure Objc_draw(Tree%,Start%,Depth%,X%,Y%,B%,H%) Lpoke Addrin,Tree% Dpoke Gintin,Start% Dpoke Gintin+2,Depth% Dpoke Gintin+4,X% Dpoke Gintin+6,Y% Dpoke Gintin+8,B% Dpoke Gintin+10,H% Gemsys 42 Return Procedure Form_do(Tree%,Start%) Lpoke Addrin,Tree% Dpoke Gintin,Start% Gemsys 50 Return Procedure Form_dial(F%,X%,Y%,B%,H%,Xb%,Yb%,Bb%,Hb%) Dpoke Gintin,F% Dpoke Gintin+2,X% Dpoke Gintin+4,Y% Dpoke Gintin+6,B% Dpoke Gintin+8,H% Dpoke Gintin+10,Xb% Dpoke Gintin+12,Yb% Dpoke Gintin+14,Bb% Dpoke Gintin+16,Hb% Gemsys 51 Return Procedure Form_center(Tree%) Lpoke Addrin,Tree% Gemsys 54 Return Procedure Rsrc_load(Nam$) Nam$=Nam$+Chr$(0) Lpoke Addrin,Varptr(Nam$) Gemsys 110 Return Procedure Rsrc_free Gemsys 111 Return Procedure Rsrc_gaddr(Type%,Index%) Dpoke Gintin,Type% Dpoke Gintin+2,Index% Gemsys 112 Return Procedure Rsrc_gtree(Index_%,Tree.%) Lpoke Gintin,Index_% Gemsys 112 *Tree.%=Lpeek(Addrout) Return ' Procedure Gstate(T_%,N_%,X.%) *X.%=Dpeek(T_%+24*N_%+10) Return ' Procedure Sstate(T_%,N_%,X_%) Dpoke T_%+24*N_%+10,X_% Return ' Procedure Gtext(T_%,N_%,X.%) Local X_$ X_$=Space$(100) T_%=Lpeek(Lpeek(T_%+24*N_%+12)) Bmove T_%,Varptr(X_$),100 *X.%=Left$(X_$,Instr(X_$,Chr$(0))-1) Return ' Procedure Stext(T_%,N_%,X_$) X_$=X_$+Chr$(0) T_%=Lpeek(T_%+24*N_%+12) Bmove Varptr(X_$),Lpeek(T_%),Min(Len(X_$),Dpeek(T_%+24)-1) Return ' `O^S4` Efv*oM% m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNdHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHNFALNHz2?< NA\pdAxr0XQ)K\NN>JrBjNuHz?<&NN\NCAp$L Qp N9lrBlJpNNpMN9@pdAr 0Q0tr N>9lNupealp`NuaNJHz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNvpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@NB?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NTJFkSFk&aQNT`Ha"FFaQL8N(6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N(<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dGe GbFGNu G0dFGHANu~NuAd RdQRB6Ce0 C/jC C@j C jr0H@{0DH@Nur{0Nu{0NutNuJj(:,af AfBfNu&<x*<NրHn߄r$g4jDk( b4<J@`@[H@0Nu4<Ѐ[Nu4<NuNuAd RdQRBBkBjDBJjDNupNufJj fJAkNupNdRdRrxaAffBWHNuJjDBDA@JBfprJjDEDD@JEfvxNuaغBffAVHNuCDEaEf fDUHNu]HNuCDEaEffDftNuN.N&JjtNupN&AHplrtN>B 2pN.pN"papaprapalpalpalpaTpaTpaTBp'a?<NNT@B){L9|0<rtN>papap9@p`pvN0v`v`vj`v `v`v`v`?Aa*` Al 2l 4)lVH)lRprtN>Al 2l 4HVNu9Cp rtN>Av` Av `Avl 2l 4)lVHNA VB0BP9|p tN>aBp0,l 2Nua40,HNua*p0,l 4Nuaprt0,l 22,l 44,NuN9||BlBlrҌpsNBNu@((?<NN.?<NNX@LvA HA HNuNup9@HA)A,N FNj @e024E$ Bb5B5A6CC5CK5CAB008:Dk`Ek\00<,>,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNupmrtA)HA)HN>pNTHHPN4 _:8><DbFEbGCHP@dʾAdBD2ƞE29|C???FF22N23BRG0@\@NT"2)IN(* 9AJA)H@@[000][ˈNj Evz`* [g" ]g |g QSz` zQSpQ][ɈNj Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NHNur|<Nj @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N>2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNu?<?<NAXJgJgNDAH@B pNTA NuApNTN$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpNT _0HpNTp"_0HqN|E ұeHHQ0)NT$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNWHNuNVHNu Ihd*N$E$RR@H`2QˈNj ENu(* 0(iN$E 4R`Q$D 4R`QˈNj DNj ENua NuNj IHPg"B  g &gN@JBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNRB0 b b瀀`RB0 fрd`2p <0N`QNur ,* Nj& ( ENj C"Sj|Ac4, 6fprta0,2,NuA4, 6f9@9Ap rt`p`pNu)H9@Jp4NP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8NZ  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(NX"l`Yd&-KNN"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`& $Y8gHRDD*D%H8#$c2g# HRDD%H`p"l`Qd&&| NuN"l`QepZNpr`&AdRd QJBgRBBABJk"l` d&6&|0!NuN"l` epZNC ҳfHP0(N$W$RR@H`2Q"H _$l` dd" $X&0BP6Y&|Hg R@@%E ҳeHQ0)NT$_$RR@H`2QNu$Y 0P1@Hg R@@%NuN$l` epZN,jJk `BffAge Jj 2$NuJjNu,jJj `BffAgb Jj 2$NuJjNu)H,Bl0NuE+000 l,Nj0l0oN|NuaNnHP l,"X42,0Rl0Bd1 _g !g &g, \g2Nt`Rl01` _NjJ@fp NtNt _N" N|pR@RABd 1\fRA9A0 _/Nj"@cԒ@H/N| N,p?Nt _N"p%NtLNH l,"X42,0Rl0Bd1 _g,vxz| +g. -g( *g $g" #g Nt`Rl01`` `RCRABd1 _fRA` #g $g *g ,g ^gB +gZ -gT .fRxRDRABdH1 #g ^g +g. -g( _f&RA`RERABd1 ^g +g -f2ALH@NL8"aC " Lx2DE A,b -fEt1BQt1$0000QE[JEft Q0JgE\J"f0J"ff JFj-Sg$E[JEgRE\JEg vJ*g RCJ*f~ g~*Jf`9I0`JEf@RANhE[JEg*ÒEA, gSAR`Ô l,HQ?HjSl0 l,"X0Rl0gL _g0 ,g .g +g( -g $_HRNt`$W "0d`Rl0`p Jojp-`Sl0NuB>+|B+| F+| J+| N+|R+|V+|Z+|^+|b+|f`4LANNANXN&<x*<N.N`^LANANpN&<x*<NN&ANXN(NBHNvN0L8NN`RLA NA Np& N.NStern 1: ##.## magNpANpNTNNTpr>N.NStern 2: ##.## magNpA$NpNTNNTpr>N.NGesamthelligkeit:4NnNTpr>N.N ##.## mag%NpA`NpNTNNTpr>N.NRadienverhltnis:4NnNTp r>N.N R1/R2=##.##4NpA0NpA*NXN(NTNNTp r>N.NNeigungswinkel:NnNTp r>N.N###.# %NpA0 67 Fehl$(I%L)=Fehl$(I%L)+ CHR$( PEEK(Adr%L+J%L)) 68 J%L=J%L+1 69 WEND 70 NEXT I%L 71 XBIOS (Aufl%L,4) 72 IF Aufl%L<>2 THEN 73 FORM_ALERT (1,Fehl$(0)) 74 ENDIF 75 Zeilen%L=14 76 Pfad$=FN Aktpfad$+"*.EXP" 77 Ok%L=1:Name$="ASTROPHO.EXP" 78 WHILE NOT FN Datei_Existent%L(Name$,Ok%L) AND Ok%L=1 79 Menu_Retten 80 FILL COLOR =0 81 Vs_Clip: PBOX 0,0,640,18 82 V_Gtext(116,14,Fehl$(1)) 83 FILESELECT (Pfad$,Name$,Ok%L) 84 Menu_Schreiben 85 WEND 86 DIM Film$(99) 87 Film_Zahl%L=0 88 OPEN "I",1,FN Kmpl$(Pfad$,Name$) 89 LINE INPUT #1,Name$ 90 WHILE Name$<>"#" 91 IF LEFT$(Name$+"*",1)<>"*" THEN 92 LINE INPUT #1,Exp$ 93 IF Film_Zahl%L<100 THEN 94 IF LEN(Name$+Exp$)>38 THEN 95 FORM_ALERT (1,Fehl$(2)) 96 ELSE 97 Film$(Film_Zahl%L)=" "+Name$+ SPACE$(39- LEN(Name$)- LEN(Exp$))+Exp$ 98 Film_Zahl%L=Film_Zahl%L+1 99 ENDIF 100 ELSE 101 FORM_ALERT (1,Fehl$(3)) 102 EXIT 103 ENDIF 104 ENDIF 105 LINE INPUT #1,Name$ 106 WEND 107 CLOSE 1 108 IF Film_Zahl%L60 THEN T!=T!/60:Eh$=" m" 200 IF T!>60 THEN T!=T!/60:Eh$=" h" 201 Einlesen(Dmax_Adr%L,Fmaxmaxb%L, STR$(T!)+Eh$) 202 Objc_Draw(Fmaxmaxb%L,8,Dmaxx%L,Dmaxy%L,Dmaxw%L,Dmaxh%L,Dmax_Adr%L) 203 ENDIF 204 ENDIF 205 Objc_Change(Exit_Knopf%L,Dmaxx%L,Dmaxy%L,Dmaxw%L,Dmaxh%L,0,1,Dmax_Adr%L) 206 UNTIL Exit_Knopf%L=Kmaxausg%L 207 Form_Dial(2,Dmaxx%L,Dmaxy%L,Dmaxw%L,Dmaxh%L) 208 Form_Dial(3,Dmaxx%L,Dmaxy%L,Dmaxw%L,Dmaxh%L) 209 RETURN 210 211 DEF PROC Notwbelibox 212 LOCAL Exit_Knopf%L,Exp$,E%L,Dd!,D!,M!,P!,V!,I!,T!,Eh$ 213 Form_Dial(0,Dnotx%L,Dnoty%L,Dnotw%L,Dnoth%L) 214 Form_Dial(1,Dnotx%L,Dnoty%L,Dnotw%L,Dnoth%L) 215 Objc_Draw(0,8,Dnotx%L,Dnoty%L,Dnotw%L,Dnoth%L,Dnot_Adr%L) 216 REPEAT 217 Form_Do(0,Dnot_Adr%L,Exit_Knopf%L) 218 IF Exit_Knopf%L=Knotqsex%L THEN 219 Exp$=FN Schwauswahl$ 220 IF Exp$<>"" THEN Einlesen(Dnot_Adr%L,Fmotsexp%L,Exp$) 221 Objc_Draw(0,8,Dnotx%L,Dnoty%L,Dnotw%L,Dnoth%L,Dnot_Adr%L) 222 ENDIF 223 IF Exit_Knopf%L=Knotbere%L THEN 224 Fehler%L=0 225 E%L= CINTL( VAL(FN Auslesen$(Dnot_Adr%L,Fmotempf%L))) 226 Dd!= VAL(FN Auslesen$(Dnot_Adr%L,Fmotdurc%L)) 227 D!= VAL(FN Auslesen$(Dnot_Adr%L,Fmotbeug%L))/1000 228 M!= VAL(FN Auslesen$(Dnot_Adr%L,Fmotobhe%L)) 229 P!= VAL(FN Auslesen$(Dnot_Adr%L,Fmotsexp%L)) 230 IF D!*D!=0 THEN 231 FORM_ALERT (1,Fehl$(6)) 232 Fehler%L=-1 233 ENDIF 234 IF NOT Fehler%L AND E%L=0 THEN 235 FORM_ALERT (1,Fehl$(7)) 236 Fehler%L=-1 237 ENDIF 238 IF NOT Fehler%L AND P!=0 THEN 239 FORM_ALERT (1,Fehl$(8)) 240 Fehler%L=-1 241 ENDIF 242 IF NOT Fehler%L AND Dd!=0 THEN 243 FORM_ALERT (1,Fehl$(9)) 244 Fehler%L=-1 245 ENDIF 246 IF NOT Fehler%L THEN 247 V!=Dd!*Dd!/(D!*D!) 248 I!=10^(-.4*M!)*2.06E-6 249 T!=(2.5/(I!*V!*E%L))^(1/P!):Eh$=" s" 250 IF T!>60 THEN T!=T!/60:Eh$=" m" 251 IF T!>60 THEN T!=T!/60:Eh$=" h" 252 Einlesen(Dnot_Adr%L,Knotnotb%L, STR$(T!)+Eh$) 253 Objc_Draw(Knotnotb%L,8,Dnotx%L,Dnoty%L,Dnotw%L,Dnoth%L,Dnot_Adr%L) 254 ENDIF 255 ENDIF 256 Objc_Change(Exit_Knopf%L,Dnotx%L,Dnoty%L,Dnotw%L,Dnoth%L,0,1,Dnot_Adr%L) 257 UNTIL Exit_Knopf%L=Knotausg%L 258 Form_Dial(2,Dnotx%L,Dnoty%L,Dnotw%L,Dnoth%L) 259 Form_Dial(3,Dnotx%L,Dnoty%L,Dnotw%L,Dnoth%L) 260 RETURN 261 262 DEF PROC Grenzhelbox 263 LOCAL Exit_Knopf%L,Exp$,E%L,Dd!,D!,T!,P!,M! 264 Form_Dial(0,Dgrex%L,Dgrey%L,Dgrew%L,Dgreh%L) 265 Form_Dial(1,Dgrex%L,Dgrey%L,Dgrew%L,Dgreh%L) 266 Objc_Draw(0,8,Dgrex%L,Dgrey%L,Dgrew%L,Dgreh%L,Dgre_Adr%L) 267 REPEAT 268 Form_Do(0,Dgre_Adr%L,Exit_Knopf%L) 269 IF Exit_Knopf%L=Kgresexp%L THEN 270 Exp$=FN Schwauswahl$ 271 IF Exp$<>"" THEN Einlesen(Dgre_Adr%L,Fgresexp%L,Exp$) 272 Objc_Draw(0,8,Dgrex%L,Dgrey%L,Dgrew%L,Dgreh%L,Dgre_Adr%L) 273 ENDIF 274 IF Exit_Knopf%L=Kgrebere%L THEN 275 Fehler%L=0 276 E%L= CINTL( VAL(FN Auslesen$(Dgre_Adr%L,Fgreempf%L))) 277 Dd!= VAL(FN Auslesen$(Dgre_Adr%L,Fgredurc%L)) 278 D!= VAL(FN Auslesen$(Dgre_Adr%L,Fgrebeug%L))/1000 279 T!= VAL(FN Auslesen$(Dgre_Adr%L,Fgrebeli%L)) 280 P!= VAL(FN Auslesen$(Dgre_Adr%L,Fgresexp%L)) 281 IF D!*D!=0 THEN 282 FORM_ALERT (1,Fehl$(6)) 283 Fehler%L=-1 284 ENDIF 285 IF NOT Fehler%L AND T!=0 THEN 286 FORM_ALERT (1,Fehl$(10)) 287 Fehler%L=-1 288 ENDIF 289 IF NOT Fehler%L AND E%L=0 THEN 290 FORM_ALERT (1,Fehl$(7)) 291 Fehler%L=-1 292 ENDIF 293 IF NOT Fehler%L AND Dd!=0 THEN 294 FORM_ALERT (1,Fehl$(9)) 295 Fehler%L=-1 296 ENDIF 297 IF NOT Fehler%L THEN 298 V!=Dd!*Dd!/(D!*D!) 299 M!= LN(2.5/(2.06E-6*(T!^P!)*E%L*V!))/ LN(10)/-.4 300 Einlesen(Dgre_Adr%L,Fgreerhe%L, STR$(M!)) 301 Objc_Draw(Fgreerhe%L,8,Dgrex%L,Dgrey%L,Dgrew%L,Dgreh%L,Dgre_Adr%L) 302 ENDIF 303 ENDIF 304 Objc_Change(Exit_Knopf%L,Dgrex%L,Dgrey%L,Dgrew%L,Dgreh%L,0,1,Dgre_Adr%L) 305 UNTIL Exit_Knopf%L=Kgreausg%L 306 Objc_Change(Exit_Knopf%L,Dgrex%L,Dgrey%L,Dgrew%L,Dgreh%L,0,0,Dgre_Adr%L) 307 Form_Dial(2,Dgrex%L,Dgrey%L,Dgrew%L,Dgreh%L) 308 Form_Dial(3,Dgrex%L,Dgrey%L,Dgrew%L,Dgreh%L) 309 RETURN 310 311 DEF FN Schwauswahl$ 312 LOCAL Rtrn$,Posi%L,I%L,Which%L,Mx%L,My%L,Unw%L,Code%L,Objekt%L,Stelle%L 313 Rtrn$="" 314 Posi%L=FN Diskret%L(Dsex_Adr%L,Uschiebe%L,Schieber%L,Zeilen%L,Film_Zahl%L) 315 FOR I%L=0 TO Zeilen%L-1 316 Einlesen(Dsex_Adr%L,Emul0%L+I%L,Film$(I%L+Posi%L-Zeilen%L)) 317 NEXT I%L 318 Form_Dial(1,Dsexx%L,Dsexy%L,Dsexw%L,Dsexh%L) 319 Objc_Draw(0,8,Dsexx%L,Dsexy%L,Dsexw%L,Dsexh%L,Dsex_Adr%L) 320 REPEAT 321 Evnt_Multi(3,1,1,1,0,0,0,0,0,0,0,0,0,0,0,Evnt$,Which%L,Mx%L,My%L,Unw%L,Unw%L,Code%L,Unw%L) 322 IF Which%L=2 THEN 323 Objc_Find(0,8,Mx%L,My%L,Dsex_Adr%L,Objekt%L) 324 ELSE 325 IF CINT(Code%L AND $FF)=13 THEN Objekt%L=Ksexausg%L 326 ENDIF 327 IF Objekt%L>=Emul0%L AND Objekt%L<=Emul13%L THEN 328 Rtrn$=Film$(Objekt%L-Emul0%L+Posi%L-Zeilen%L) 329 Rtrn$= RIGHT$(Rtrn$, INSTR( MIRROR$(Rtrn$)," ")-1) 330 Stelle%L= INSTR(Rtrn$,".") 331 IF Stelle%L<2 THEN 332 FORM_ALERT (1,Fehl$(11)) 333 Rtrn$="" 334 ELSE 335 Objc_Change(Objekt%L,Dsexx%L,Dsexy%L,Dsexw%L,Dsexh%L,1,1,Dsex_Adr%L) 336 Objc_Change(Objekt%L,Dsexx%L,Dsexy%L,Dsexw%L,Dsexh%L,0,0,Dsex_Adr%L) 337 IF LEN(Rtrn$)>4 THEN Rtrn$= LEFT$(Rtrn$,4) 338 Objekt%L=Ksexausg%L 339 ENDIF 340 ENDIF 341 IF Objekt%L=Schieber%L THEN 342 Graf_Mouse(4) 343 Posi%L=FN Benutze_Schieber%L(Dsex_Adr%L,Uschiebe%L,Schieber%L,Zeilen%L,Film_Zahl%L) 344 Graf_Mouse(0) 345 FOR I%L=0 TO Zeilen%L-1 346 Einlesen(Dsex_Adr%L,Emul0%L+I%L,Film$(I%L+Posi%L-Zeilen%L)) 347 NEXT I%L 348 Objc_Draw(Emulhuel%L,8,Dsexx%L,Dsexy%L,Dsexw%L,Dsexh%L,Dsex_Adr%L) 349 ENDIF 350 UNTIL Objekt%L=Ksexausg%L 351 Objc_Change(Objekt%L,Dsexx%L,Dsexy%L,Dsexw%L,Dsexh%L,1,1,Dsex_Adr%L) 352 Evnt_Button(1,1,0,Unw%L,Mx%L,My%L,Unw%L,Unw%L) 353 Form_Dial(2,Dsexx%L,Dsexy%L,Dsexw%L,Dsexh%L) 354 Objc_Change(Objekt%L,Dsexx%L,Dsexy%L,Dsexw%L,Dsexh%L,0,0,Dsex_Adr%L) 355 WPOKE Dsex_Adr%L+24*Schieber%L+18,0 356 RETURN (Rtrn$) 357 358 DEF PROC Menu_Retten 359 MOUSEOFF : BITBLT 0,0,640,19 TO Menu_Zeile%L: MOUSEON 360 RETURN 361 362 DEF PROC Menu_Schreiben 363 MOUSEOFF : BITBLT Menu_Zeile%L TO 0,0,640,19: MOUSEON 364 RETURN 365 366 DEF FN Kmpl$(P$,N$) 367 RETURN ( LEFT$(P$, LEN(P$)- INSTR( MIRROR$(P$),"\")+1)+N$+ CHR$(0)) 368 369 DEF PROC Einlesen(Adr%L,Objekt%L,Text$) 370 LOCAL Zeiger%L,Ptext%L,Txtlen%L,I%L 371 Text$=Text$+ CHR$(0)+ SPACE$(99) 372 Zeiger%L= LPEEK(Adr%L+24*Objekt%L+12) 373 Ptext%L= LPEEK(Zeiger%L) 374 Txtlen%L= WPEEK(Zeiger%L+24)-2 375 FOR I%L=0 TO Txtlen%L: POKE (Ptext%L+I%L), ASC( MID$(Text$,I%L+1,1)): NEXT I%L 376 RETURN 377 378 DEF FN Auslesen$(Adr%L,Objekt%L) 379 LOCAL Zeiger%L,Ptext%L,Txtlen%L,Text$,I%L 380 Zeiger%L= LPEEK(Adr%L+24*Objekt%L+12) 381 Ptext%L= LPEEK(Zeiger%L) 382 Txtlen%L= WPEEK(Zeiger%L+24)-2 383 I%L=0:Text$="" 384 WHILE PEEK(Ptext%L+I%L)<>0 385 Text$=Text$+ CHR$( PEEK(Ptext%L+I%L)):I%L=I%L+1 386 WEND 387 RETURN Text$ 388 389 DEF FN Diskret%L(Dbox%L,Ueb%L,Unt%L,A%L,B%L) 390 LOCAL Delta%L 391 Delta%L= WPEEK(Dbox%L+Ueb%L*24+22)- WPEEK(Dbox%L+Unt%L*24+22) 392 IF Delta%L<>0 THEN 393 RETURN CINT( INT(A%L+(B%L-A%L)* WPEEK(Dbox%L+Unt%L*24+18)\Delta%L+.5)) 394 ENDIF 395 RETURN (A%L) 396 397 DEF PROC Setze_Schieber(Dbox%L,Ueb%L,Unt%L,Posi%L,A%L,B%L,Neu%L) 398 LOCAL Delta%L 399 Delta%L=B%L-A%L 400 IF Delta%L<>0 THEN 401 WPOKE Dbox%L+24*Unt%L+18,(Posi%L-A%L)*( WPEEK(Dbox%L+24*Ueb%L+22)- WPEEK(Dbox%L+24*Unt%L+22))\Delta%L 402 ELSE 403 WPOKE Dbox%L+24*Unt%L+18,0 404 ENDIF 405 IF Neu%L THEN Objc_Draw(Ueb%L,8,0,0,640,400,Dbox%L) 406 RETURN 407 408 DEF FN Benutze_Schieber%L(Dbox%L,Ueb%L,Unt%L,A%L,B%L) 409 LOCAL Posi%L 410 Graf_Slidebox(Ueb%L,Unt%L,1,Dbox%L,Posi%L) 411 WPOKE Dbox%L+Unt%L*24+18,(( WPEEK(Dbox%L+Ueb%L*24+22)- WPEEK(Dbox%L+Unt%L*24+22))*Posi%L)\1000 412 Pos_I%L=FN Diskret%L(Dbox%L,Ueb%L,Unt%L,A%L,B%L) 413 Setze_Schieber(Dbox%L,Ueb%L,Unt%L,Pos_I%L,A%L,B%L,-1) 414 RETURN (Pos_I%L) 415 416 DEF FN Datei_Existent%L(Was$,Ok%L) 417 LOCAL Name$,Name_Zeiger%L,Handle%L 418 Name$=Was$+ CHR$(0) 419 Name_Zeiger%L= LPEEK( SEGPTR +28)+ LPEEK( VARPTR(Name$)) 420 GEMDOS (Handle%L,$3D, HIGH(Name_Zeiger%L), LOW(Name_Zeiger%L),0) 421 IF Handle%L<0 THEN 422 IF Ok%L<>0 THEN 423 Was$= RIGHT$(Was$, INSTR( MIRROR$("\"+Was$),"\")-1) 424 FORM_ALERT (1,"[1]["+ UPPER$(Was$)+" wurde|nicht gefunden!][Auswahl]") 425 ENDIF 426 RETURN (0) 427 ELSE 428 GEMDOS (,$3E,Handle%L) 429 ENDIF 430 RETURN (-1) 431 432 DEF FN Aktpfad$ 433 LOCAL Drive%L,Path$ 434 GEMDOS (Drive%L,$19) 435 Path$=" "*64:Adr%L= LPEEK( SEGPTR +28)+ LPEEK( VARPTR(Path$)) 436 GEMDOS (,$47, HIGH(Adr%L), LOW(Adr%L),0) 437 Path$= LEFT$(Path$, INSTR(Path$+ CHR$(0), CHR$(0))-1) 438 Path$= CHR$(65+Drive%L)+":"+Path$+"\" 439 RETURN (Path$) 440 441 DEF PROC Rsc_Init 442 ' Resource-Set indicies fuer ASTROPHO 443 Menu%L=0' Menuebaum 444 Info%L=9' STRING in Baum MENU 445 Ende%L=18' STRING in Baum MENU 446 Ssplaeng%L=21' STRING in Baum MENU 447 Maxbelic%L=22' STRING in Baum MENU 448 Notwbeli%L=24' STRING in Baum MENU 449 Grenzhel%L=25' STRING in Baum MENU 450 Dinfo%L=1' Formula/Dialog 451 Kinfo%L=1' BOX in Baum DINFO 452 Dssplaen%L=2' Formula/Dialog 453 Fsspobjk%L=5' FTEXT in Baum DSSPLAEN 454 Fsspbeli%L=6' FTEXT in Baum DSSPLAEN 455 Fsspdekl%L=7' FTEXT in Baum DSSPLAEN 456 Ksspbere%L=8' BUTTON in Baum DSSPLAEN 457 Fsspstri%L=9' FTEXT in Baum DSSPLAEN 458 Ksspausg%L=10' BUTTON in Baum DSSPLAEN 459 Dmaxbeli%L=3' Formula/Dialog 460 Fmaxobje%L=5' FTEXT in Baum DMAXBELI 461 Fmaxdekl%L=6' FTEXT in Baum DMAXBELI 462 Kmaxbere%L=7' BUTTON in Baum DMAXBELI 463 Fmaxmaxb%L=8' FTEXT in Baum DMAXBELI 464 Kmaxausg%L=9' BUTTON in Baum DMAXBELI 465 Dnotwbel%L=4' Formula/Dialog 466 Fmotempf%L=5' FTEXT in Baum DNOTWBEL 467 Fmotdurc%L=7' FTEXT in Baum DNOTWBEL 468 Fmotbeug%L=8' FTEXT in Baum DNOTWBEL 469 Fmotobhe%L=9' FTEXT in Baum DNOTWBEL 470 Fmotsexp%L=10' FTEXT in Baum DNOTWBEL 471 Knotqsex%L=11' BUTTON in Baum DNOTWBEL 472 Knotbere%L=12' BUTTON in Baum DNOTWBEL 473 Knotnotb%L=13' FTEXT in Baum DNOTWBEL 474 Knotausg%L=14' BUTTON in Baum DNOTWBEL 475 Dgrenzhe%L=5' Formula/Dialog 476 Fgreempf%L=4' FTEXT in Baum DGRENZHE 477 Fgredurc%L=6' FTEXT in Baum DGRENZHE 478 Fgrebeug%L=7' FTEXT in Baum DGRENZHE 479 Fgrebeli%L=8' FTEXT in Baum DGRENZHE 480 Fgresexp%L=9' FTEXT in Baum DGRENZHE 481 Kgresexp%L=10' BUTTON in Baum DGRENZHE 482 Kgrebere%L=11' BUTTON in Baum DGRENZHE 483 Fgreerhe%L=12' FTEXT in Baum DGRENZHE 484 Kgreausg%L=13' BUTTON in Baum DGRENZHE 485 Dsexppau%L=6' Formula/Dialog 486 Ksexausg%L=1' STRING in Baum DSEXPPAU 487 Emulhuel%L=2' BOX in Baum DSEXPPAU 488 Emul0%L=3' TEXT in Baum DSEXPPAU 489 Emul13%L=16' TEXT in Baum DSEXPPAU 490 Uschiebe%L=17' BOX in Baum DSEXPPAU 491 Schieber%L=18' BOX in Baum DSEXPPAU 492 Fehler0%L=0' Freier String Index 493 Fehler1%L=1' Freier String Index 494 Fehler2%L=2' Freier String Index 495 Fehler3%L=3' Freier String Index 496 Fehler4%L=4' Freier String Index 497 Fehler5%L=5' Freier String Index 498 Fehler6%L=6' Freier String Index 499 Fehler7%L=7' Freier String Index 500 Fehler8%L=8' Freier String Index 501 Fehler9%L=9' Freier String Index 502 Fehler10%L=10' Freier String Index 503 Fehler11%L=11' Freier String Index 504 RETURN 505 506 END 'GEM Library fr OMIKRON-BASIC. Version 2.0. 507 'Copyright (C) Artur Sdler, Pforzheim & Thomas Kemp, Birkenfeld 508 ' 509 'Zeile 64013: $f0,$f4,$f8 fr ACCESSORIES, $64,$6c,$7c fr APPLICATIONS 510 'Zeile 64018: REMen fr ACCESSORIES 511 ' 512 'SAVE SYSTEM LPEEK($EC) ist fr MODUL-Interpreter angebracht. 513 '--- und wenn dann nicht alles wieder luft, fre' ich 'nen Besen. 514 ' 515 'AES 516 ' 517 DEF PROC Appl_Init: LOCAL X%L,Y%L,W%L,H%L: DIM Ctrl%(12),Intin%(128),Addrout%L(1) 518 DIM Intout%(128),Ptsin%(1,128),Ptsout%(1,6),Addrin%L(3),Global%(15) 519 Wi_Pok1%L=$64:Wi_Pok2%L=$6C:Wi_Pok3%L=$7C:Wi_Pok4%L=Wi_Pok2%L+8 520 Mn_Selected%L=10:Wm_Redraw%L=20:Wm_Topped%L=21:Wm_Closed%L=22:Wm_Fulled%L=23:Wm_Arrowed%L=24 521 Wm_Hslid%L=25:Wm_Vslid%L=26:Wm_Sized%L=27:Wm_Moved%L=28:Wm_Newtop%L=29:Ac_Open%L=40 522 Ac_Close%L=41:Mu_Keybd%L=1:Mu_Button%L=2:Mu_M1%L=4:Mu_M2%L=8:Mu_Mesag%L=16:Mu_Timer%L=32 523 Appl_Exit:Graf_Handle(Ctrl%(6)): PRINT CHR$(27);"H"; CHR$(27);"H"; CHR$(27);"f"; CHR$(27);"b1"; CHR$(27);"c0";:Graf_Mouse(0):V_Show_C(0) 524 Wind_Get(0,4,X%L,Y%L,W%L,H%L):Form_Dial(0,X%L,Y%L,W%L,H%L):Form_Dial(3,X%L,Y%L,W%L,H%L) 525 RETURN 526 ' 527 DEF PROC Appl_Exit: LOCAL I%L 528 FOR I%L=1 TO 10 529 Wind_Delete(I%L) 530 NEXT I%L 531 Form_Dial(3,0,0,1,1):V_Clsvwk:Rsrc_Free 532 Wind_Update(0):Wind_Update(2):Menu_Bar 533 Graf_Handle(Ctrl%(6)):V_Hide_C: CLIP : PRINT CHR$(27);"H"; CHR$(27);"H";: RETURN 'CLIP n i c h t herausnehmen!!! (Anm. des Programmierers, er wei warum!) 534 ' 535 DEF PROC Evnt_Button(Intin%(0),Intin%(1),Intin%(2),R Intout%(0),R Intout%(1),R Intout%(2),R Intout%(3),R Intout%(4)) 536 AES (21,Global%(15),Intin%(3),Addrin%L(0),Intout%(5),Addrout%L(0)) 537 RETURN 538 ' 539 DEF PROC Evnt_Mesag(R Text$):Text$= CHR$(0)*16 540 Addrin%L(0)= LPEEK( VARPTR(Text$))+ LPEEK( SEGPTR +28) 541 AES (23,Global%(15),Intin%(0),Addrin%L(1),Intout%(1),Addrout%L(0)) 542 IF CVI(Text$)=41 THEN LPOKE Wi_Pok2%L, LPEEK(Wi_Pok2%L) AND 7 SHL 29: LPOKE Wi_Pok4%L, LPEEK(Wi_Pok4%L) AND 7 SHL 29 543 RETURN 544 ' 545 DEF PROC Evnt_Multi(Intin%(0),Intin%(1),Intin%(2),Intin%(3),Intin%(4),Intin%(5),Intin%(6),Intin%(7),Intin%(8),Intin%(9),X%L,Y%L,W%L,H%L,T%L,R Text$,R Intout%(0),R Intout%(1),R Intout%(2),R Intout%(3),R Intout%(4),R Intout%(5),R Intout%(6)) 546 Intin%(10)=X%L:Intin%(11)=Y%L:Intin%(12)=W%L:Intin%(13)=H%L 547 Intin%(14)= LOW(T%L):Intin%(15)= HIGH(T%L):Text$= CHR$(0)*16 548 Addrin%L(0)= LPEEK( VARPTR(Text$))+ LPEEK( SEGPTR +28) 549 AES (25,Global%(15),Intin%(16),Addrin%L(1),Intout%(7),Addrout%L(0)) 550 IF Intout%(0) AND 16 THEN 551 IF CVI(Text$)=41 THEN LPOKE Wi_Pok2%L, LPEEK(Wi_Pok2%L) AND 7 SHL 29: LPOKE Wi_Pok4%L, LPEEK(Wi_Pok4%L) AND 7 SHL 29 552 ENDIF RETURN 553 ' 554 DEF PROC Menu_Bar(Addrin%L(0),Intin%(0)) 555 AES (30,Global%(15),Intin%(1),Addrin%L(1),Intout%(1),Addrout%L(0)) 556 RETURN 557 DEF PROC Menu_Bar(X%L) 558 Menu_Bar:Menu_Bar%L=X%L:Addrin%L(0)=X%L:Intin%(0)=1 559 LPOKE Wi_Pok4%L, LPEEK(Wi_Pok4%L) OR 1 SHL 30 560 AES (30,Global%(15),Intin%(1),Addrin%L(1),Intout%(1),Addrout%L(0)) 561 RETURN 562 DEF PROC Menu_Bar 563 Intin%(0)=0:Addrin%L(0)=Menu_Bar%L 564 IF FN Wind_Chek%L(30,8) THEN 565 LPOKE Wi_Pok4%L, LPEEK(Wi_Pok4%L) XOR 1 SHL 30 566 AES (30,Global%(15),Intin%(1),Addrin%L(1),Intout%(1),Addrout%L(0)) 567 ENDIF Menu_Bar%L=0: RETURN 568 ' 569 DEF PROC Menu_Tnormal(Intin%(0),Intin%(1)):Addrin%L(0)=Menu_Bar%L 570 IF Menu_Bar%L THEN 571 AES (33,Global%(15),Intin%(2),Addrin%L(1),Intout%(1),Addrout%L(0)) 572 ENDIF RETURN 573 ' 574 DEF PROC Objc_Draw(Intin%(0),Intin%(1),Intin%(2),Intin%(3),Intin%(4),Intin%(5),Addrin%L(0)) 575 AES (42,Global%(15),Intin%(6),Addrin%L(1),Intout%(1),Addrout%L(0)) 576 RETURN 577 ' 578 DEF PROC Objc_Find(Intin%(0),Intin%(1),Intin%(2),Intin%(3),Addrin%L(0),R Intout%(0)) 579 AES (43,Global%(15),Intin%(4),Addrin%L(1),Intout%(1),Addrout%L(0)) 580 RETURN 581 ' 582 DEF PROC Objc_Change(Intin%(0),Intin%(6),Addrin%L(0)) 583 Intin%(1)=0:Intin%(7)=0 584 AES (47,Global%(15),Intin%(8),Addrin%L(1),Intout%(1),Addrout%L(0)) 585 RETURN 586 DEF PROC Objc_Change(Intin%(0),Intin%(2),Intin%(3),Intin%(4),Intin%(5),Intin%(6),Intin%(7),Addrin%L(0)) 587 Intin%(1)=0 588 AES (47,Global%(15),Intin%(8),Addrin%L(1),Intout%(1),Addrout%L(0)) 589 RETURN 590 ' 591 DEF PROC Form_Do(Intin%(0),Addrin%L(0),R Intout%(0)) 592 AES (50,Global%(15),Intin%(1),Addrin%L(1),Intout%(1),Addrout%L(0)) 593 RETURN 594 ' 595 DEF PROC Form_Dial(X%L,Intin%(5),Intin%(6),Intin%(7),Intin%(8)) 596 IF X%L=0 THEN IF FN Wind_Chek%L(29,0) THEN RETURN ELSE LPOKE Wi_Pok2%L, LPEEK(Wi_Pok2%L) OR 1 SHL 29 597 IF X%L=3 THEN IF FN Wind_Chek%L(29,0) THEN LPOKE Wi_Pok2%L, LPEEK(Wi_Pok2%L) XOR 1 SHL 29 ELSE RETURN 598 Intin%(1)=Intin%(5)+Intin%(7) SHR 1:Intin%(3)=1:Intin%(0)=X%L 599 Intin%(2)=Intin%(6)+Intin%(8) SHR 1:Intin%(4)=1 600 AES (51,Global%(15),Intin%(9),Addrin%L(0),Intout%(1),Addrout%L(0)) 601 RETURN 602 ' 603 DEF PROC Form_Center(Addrin%L(0),R Intout%(1),R Intout%(2),R Intout%(3),R Intout%(4)) 604 AES (54,Global%(15),Intin%(0),Addrin%L(1),Intout%(5),Addrout%L(0)) 605 RETURN 606 ' 607 DEF PROC Graf_Slidebox(Intin%(0),Intin%(1),Intin%(2),Addrin%L(0),R Intout%(0)) 608 AES (76,Global%(15),Intin%(3),Addrin%L(1),Intout%(1),Addrout%L(0)) 609 RETURN 610 ' 611 IF TIMER THEN DEF PROC Graf_Handle(R Intout%(0),R Intout%(1),R Intout%(2),R Intout%(3),R Intout%(4)) ELSE DEF PROC Graf_Handle(R Intout%(0)) 612 AES (77,Global%(15),Intin%(0),Addrin%L(0),Intout%(5),Addrout%L(0)) 613 RETURN 614 ' 615 DEF PROC Graf_Mouse(X%L,Y%L,W%L,H%L,T%L): LOCAL I%L 616 IF Graf_Mouse%L=0 THEN Graf_Mouse%L= MEMORY(74) 617 T%L= LPEEK(T%L)+ LPEEK( SEGPTR +20):Intin%(0)=255 618 WPOKE Graf_Mouse%L,X%L: WPOKE Graf_Mouse%L+2,Y%L: WPOKE Graf_Mouse%L+4,0 619 WPOKE Graf_Mouse%L+6,W%L: WPOKE Graf_Mouse%L+8,H%L 620 FOR I%L=0 TO 62 STEP 2: WPOKE Graf_Mouse%L+10+I%L, WPEEK(T%L+I%L): NEXT 621 Addrin%L(0)=Graf_Mouse%L 622 AES (78,Global%(15),Intin%(1),Addrin%L(1),Intout%(1),Addrout%L(0)) 623 RETURN 624 DEF PROC Graf_Mouse(Intin%(0)) 625 AES (78,Global%(15),Intin%(1),Addrin%L(1),Intout%(1),Addrout%L(0)) 626 RETURN 627 ' 628 DEF FN Wind_Chek%L(W%L,H%L) 629 IF LPEEK(Wi_Pok3%L) THEN LPOKE Wi_Pok2%L,0: LPOKE Wi_Pok4%L,0: LPOKE Wi_Pok3%L,0: LPOKE Wi_Pok1%L,0 630 IF W%L<1 THEN RETURN 0 631 RETURN BIT(W%L, LPEEK(Wi_Pok2%L+H%L)) 632 ' 633 DEF PROC Wind_Close(W%L) 634 IF FN Wind_Chek%L(W%L,8) THEN 635 LPOKE Wi_Pok4%L, LPEEK(Wi_Pok4%L) XOR 1 SHL W%L:Intin%(0)=W%L 636 AES (102,Global%(15),Intin%(1),Addrin%L(0),Intout%(1),Addrout%L(0)) 637 ENDIF RETURN 638 ' 639 DEF PROC Wind_Delete(W%L):Wind_Close(W%L) 640 IF FN Wind_Chek%L(W%L,0) THEN 641 LPOKE Wi_Pok2%L, LPEEK(Wi_Pok2%L) XOR 1 SHL W%L:Intin%(0)=W%L 642 AES (103,Global%(15),Intin%(1),Addrin%L(0),Intout%(1),Addrout%L(0)) 643 ENDIF RETURN 644 ' 645 DEF PROC Wind_Get(Intin%(0),Intin%(1),R Intout%(1)) 646 IF FN Wind_Chek%L(Intin%(0),0)=0 AND Intin%(1)<>10 THEN RETURN 647 AES (104,Global%(15),Intin%(2),Addrin%L(0),Intout%(5),Addrout%L(0)) 648 RETURN 649 DEF PROC Wind_Get(Intin%(0),Intin%(1),R Intout%(1),R Intout%(2),R Intout%(3),R Intout%(4)) 650 IF FN Wind_Chek%L(Intin%(0),0)=0 AND Intin%(0) THEN RETURN 651 AES (104,Global%(15),Intin%(2),Addrin%L(0),Intout%(5),Addrout%L(0)) 652 RETURN 653 ' 654 DEF PROC Wind_Update(X%L):Intin%(0)=X%L 655 IF X%L=0 THEN IF FN Wind_Chek%L(30,0)=0 THEN RETURN ELSE LPOKE Wi_Pok2%L, LPEEK(Wi_Pok2%L) XOR 1 SHL 30 656 IF X%L=1 THEN IF FN Wind_Chek%L(30,0) THEN RETURN ELSE LPOKE Wi_Pok2%L, LPEEK(Wi_Pok2%L) XOR 1 SHL 30 657 IF X%L=2 THEN IF FN Wind_Chek%L(31,0)=0 THEN RETURN ELSE LPOKE Wi_Pok2%L, LPEEK(Wi_Pok2%L) XOR 1 SHL 31 658 IF X%L=3 THEN IF FN Wind_Chek%L(31,0) THEN RETURN ELSE LPOKE Wi_Pok2%L, LPEEK(Wi_Pok2%L) XOR 1 SHL 31 659 AES (107,Global%(15),Intin%(1),Addrin%L(0),Intout%(1),Addrout%L(0)) 660 RETURN 661 ' 662 DEF PROC Rsrc_Load(Text$,R Intout%(0)):Text$=Text$+ CHR$(0) 663 Rsrc_Free:Addrin%L(0)= LPEEK( VARPTR(Text$))+ LPEEK( SEGPTR +28) 664 AES (110,Global%(15),Intin%(0),Addrin%L(1),Intout%(1),Addrout%L(0)) 665 LPOKE Wi_Pok1%L,Global%(5) SHL 16 OR Global%(6) 666 RETURN 667 ' 668 DEF PROC Rsrc_Free 669 IF LPEEK(Wi_Pok3%L) THEN LPOKE Wi_Pok2%L,0: LPOKE Wi_Pok4%L,0: LPOKE Wi_Pok3%L,0: LPOKE Wi_Pok1%L,0 670 IF LPEEK(Wi_Pok1%L) THEN 671 Global%(5)= WPEEK(Wi_Pok1%L):Global%(6)= LOW( LPEEK(Wi_Pok1%L)): LPOKE Wi_Pok1%L,0 672 AES (111,Global%(15),Intin%(0),Addrin%L(0),Intout%(1),Addrout%L(0)) 673 ENDIF RETURN 674 ' 675 DEF PROC Rsrc_Gaddr(Intin%(0),Intin%(1),R Addrout%L(0)) 676 AES (112,Global%(15),Intin%(2),Addrin%L(0),Intout%(1),Addrout%L(1)) 677 RETURN 678 ' 679 'VDI 680 ' 681 DEF PROC V_Gtext(Ptsin%(0,0),Ptsin%(1,0),Text$): LOCAL I%L 682 FOR I%L=0 TO LEN(Text$)-1:Intin%(I%L)= ASC( MID$(Text$,I%L+1,1)): NEXT 683 VDI (8,Ctrl%(12),Intin%(I%L),Ptsin%(0,1),Intout%(0),Ptsout%(0,0)) 684 RETURN 685 ' 686 DEF PROC Vsin_Mode(Intin%(0),Intin%(1)) 687 VDI (33,Ctrl%(12),Intin%(2),Ptsin%(0,0),Intout%(1),Ptsout%(0,0)) 688 RETURN 689 ' 690 DEF PROC V_Opnvwk 691 V_Opnvwk(1,1,1,1,1,1,1,1,1,1,2) 692 RETURN 693 DEF PROC V_Opnvwk(Intin%(0),Intin%(1),Intin%(2),Intin%(3),Intin%(4),Intin%(5),Intin%(6),Intin%(7),Intin%(8),Intin%(9),Intin%(10)) 694 VDI (100,Ctrl%(12),Intin%(11),Ptsin%(0,0),Intout%(45),Ptsout%(0,6)) 695 RETURN 696 ' 697 DEF PROC V_Clsvwk 698 VDI (101,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 699 RETURN 700 ' 701 IF TIMER THEN DEF PROC V_Show_C(Intin%(0)) ELSE DEF PROC V_Show_C:Intin%(0)=0 702 VDI (122,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 703 RETURN 704 ' 705 DEF PROC V_Hide_C 706 VDI (123,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 707 RETURN 708 ' 709 DEF PROC Vs_Clip(Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,1),Ptsin%(1,1)) 710 Intin%(0)=1 711 VDI (129,Ctrl%(12),Intin%(1),Ptsin%(0,4),Intout%(0),Ptsout%(0,0)) 712 RETURN 713 ' 714 DEF PROC Vs_Clip:Intin%(0)=0 715 VDI (129,Ctrl%(12),Intin%(1),Ptsin%(0,4),Intout%(0),Ptsout%(0,0)) 716 RETURN 717 ' * Diese Datei enthlt Angaben ber Schwarzschildexponenten einiger * Filme. Sie wird vom Programm 'AstroPho' eingelesen. Erweiterungen * knnen mit einem Editor hier eingetragen werden (bis maximal 100 Filme). * Kommentarzeilen mssen mit einem Stern beginnen! * Zuerst kommt der Filmname, dann in der nchsten Zeile der Exponent. * Am Ende der Datei mu ein Doppelkreuz stehen! * * AstroPho * (pd) 1988 sinccom software * programmiert von Daniel Roth in Omikron Basic * Kurze Belichtungszeiten (<10s) 1.00 Agfapan 25 0.64 Agfapan 100 0.64 Agfapan 200 0.64 Agfapan 400 0.64 Ilford Pan F 0.69 Ilford FP 4 0.62 Ilford HP 5 0.66 Kodak Technical Pan 2415 0.7 Kodak Plus X Pan 0.65 Kodak Tri X Pan 0.60 Kodak Recording Film 2475 0.60 Kodak 103 a-E 0.98 Kodak 103 a-F 0.98 Kodak 103 a-G 0.98 Kodak 103 a-O 0.98 # `8_MA0"< .Ӯ"Hd d3 d# d `# # # # Q"<p#Q`6A:\OM-BASIC.INFOMIKRON.BASLIB 3.00 (C) 1988 ASY K/OHz ?<&NNBNAJ-` +L Pg Vg Cg Mg `-p`p`p/TWaXNuK.rNi+I+_+nA+H8C,A#A-#A##a&mC0ۓ/ //<JNAPa+xAF!AHv8gP]+HZ j(0@4P@Ag$PS@g JPfX4hY+J +N+xN@xAC->p"QAJgE,"Jp&I Q&m+|+|F#p+@Bp a;mp+@BpMaz;mpA000BXBmpNa\P?aaRm& mJ(,k0BgHzJ?<=a\Pk<HmHx??<?aDSWa>O al mQaN0A,"h X0g&/2 //A,aX A,T"h 3_Nu"hN(_ -R@+@&@/?<HNAJoF+@BS?<HNAJo2"-RA+AҐ"<k.+@?<HNAJo+@.KN`+:X ЛЛЛЛ/?<HNA\Jo+@LNuPpa(+m@,HF:HDFe4Ge6SBSC<>@ADEJ@j@B@JAjABAJDjDBDJEjEBEJf2J-g,C"QmQG>amQF<anQE:anQD8@mAmH +|m;|HaLNuHaLNuH :(Ci'a"BKdKd `Q"DMdMd `QL0Nu/ @a _NuaQNu`&a/p ap a Nu/ or fR/H _NuH N.SG*EfzEC R,`TRQQ>HFHFBF܇P^܆vx&mX(KJg&P(K"K(Ę&.ޅ/(/H L` "NّбXfL٭Xa%~(CvّQ(&ۛ&66C SAf&`T6Q Ĝo8p2<v HBSg0e8kBd6d&e` HF&&&&QHFQLNu6&]n`6&&n`&6]n`HaLNuHaLNuH>| $r a:z JjDz-r6BBHB(8HB4HD0 :e^DRAJf L|NuHr0a "&H|/ a2 @LNuHaLNuHa!LNuJ[jDJjFWD d?B@H@HA2HA02 JgDNuH8tvx`ҁRCdSCj LJgDNue萁`H:( d$a:`"D6KdKd `QQL8NuJAf$4NuH "mh_ m`da m`e$B4RBB0"HXB+H`"$4L$@gIdId `Q` RAId2Id"Id `""""Q"_Nuff&CgNur@BNugAgNur@BNupNupNuA2jrVNuSAkA2g#NuH@a AIg AVg ACg AMf#t;@LNu5!9A"9A.9<19<9<9<9<9<9D 9E 9F 9D9K$S-At 2XWf0;@r2@ @9fI 00A>^HAA-g ??<>NAX.m|A> ra\ -2-aPA. raDp0-aF#;maJ`> l? in m@T"m"iȐDnp" ҈$AIdWo J\`"J]dQNu// 2)a$YJ*g$/ 0@G$R&_ `Q$_ _2NuRAId0Id Id ` Q$_ _2Nu^%0x;@HItBCBD:<BFa LNuQ4BmBmNuP4BmNu&m`(K(-haPd gD`a$m`* f!V H`4Q&m`IXd!$ ga`B" f!$gRBR&DSAJ`7$Q+Kh+K/ ?0-S@k@G +Ifa fa8&_Nu 2NuJmf +mlha,J-4f&m`F 2ANuJmfJ-4fJmf Jmfp?a`pCa;QCf Jjp`a-5fQ6`VQ5C< g(C< `gC< ^gC< g C< ~f fp`2>Wf) gpa~ fa&` e8 g0@Cg^ Lr4`SBkRSBk  g ^f dr` g +gl -gV g aeG Xg Sg Mg CfUBkf` e 0eJ :ez Ae> [e ae0 {eC g` gZJj?)LfH g& `g g ~gf mf ^fJk*@5`$ 0` %fPr` Uf Lf) %` Uf Lf Ag g gJmg Ag %gH 0gB Ag< g6 g0 Lg* Ug$ Mg`xSBkrfr` SBkdfr`VJAgJ-6f.J-lg.Cg*?>Cp H@E0DgRDH@Qa 0m560a9,J-5gpDa9P6`FRCCd>RD`0H@ f,JCg$Cg4J-lf.SCpDa8p a8pDa8 0` Sf*JCgJ-lfSCpDa8>CgSDE0Qav` Rf2 gF-l`¸Cg>Cp H@E0DgRDH@Qa>` MfCgRCpCa8V` KfJCf gvp`ZSCpDa84`f`bE0>C` pa8$a8Qfp a8>CpDa7QNu>D`a7Q>C`pTJg| /a Nu L4/` SBRSBkRSBjNu  g ^g ae Cg +g -g >f BakRXBx8+ RDDf&_Nu(kCpdQDaX mp"-``0&j"CfPf"BQe`a pa JJ@WCNuH @"B8Ad8D` VfCLNudxLNuxLNuH a`LNuH @B@`k ae {d  `;QLNuAEEEIIIOOUUYAIOUAOH@"@a`QLNuHJk4aBr$Rd0d d `HB QHBQLNu?<HanL\NuZ@/?<HaV\ @Jo T+HTX Nu`4.`S-@R-kaF/rax _NuJAg H78&@(@aLNuH??4aJ`Q24 _NuH:SDԄAe@DeAUCUĖAo: C!d.2gh Jgtkx dFH@xЀ[DDiVNu 2NuDC C!dB2g,dD AJg2kx dH@xЀ[DDiNuтdTAiFNu2Nup2<NuJAk2x`~gCCi(*H@<HBԆH@GBDHDԄGH@:BBHBЂk EрgUAiEчeNuTAiNup2<NuJgJAk`Jg <TAiNug CAi2J@gBCevgH@h(:HEBE|<xTHBJBgH@:BB`8BBH@:dSDԀdHDH@h:HEBE|<8NuJ-g0-aEA"C C E ps` <F~G?<a>CClDABEG62 CAd< C e *tC `,@DCC 禊DJ_fمтd TAi dNuTNudD@ AJkfJg8BFJf xF d H@HD0BDFJk SF؄р[FFiNupx2<Nug CAi&2Jg BgdڄՀSWv@D` dڄՀ߇݆څՂeQ` SCkއ݆څՂdQFFJ_gfFFJ_ge(Rd$Rd DdRd RdTAi lTAi f( Nu `"~***g CCiBC<*,HFݭdRm,HFݭdRm,HF.HGݥdRm,ݕdRm<ݕdRm,HFݭdRm,HFݭdRm,HFݭdRm,HFݭdRm,ݥdRm,HF.HGݕdRm,.HGHFݕdRm,HFݭdRm,HFݭdRm,.HFHG6-( %ІkgCلрUAi0JCjRe Nupx2<NuRdTAi NuDNuDNu?CCg6gDNu6AgmDNugNuAglDNugNur@JgjRADi dA H@SAЀ[SANuJAk:Ig6e A d DAA Nu A gd DAA DNu f jNupNu  @ 6ɿlŭ+pxIϦGɀT~ތ Jvuu ;]=]5(`R yjNpx2<t;BaX  g  gE.Bg +g -f>a2 $gN %gD &fJa Hg8 Dg6 Bg( Og hg dg bg og$` a -fFWf(KB`aBg .f>a 0eVRm0  e_  e< *e Rd./$***6* ah$*6 aaabJWgSW`+zJWgRW eg Eg dg DfZa2~ +g -f~a6 0e40  e  e *e d dڂa`JGjDt4HԅgP[jD ?eJfJ`6 C gJ CfBC Cfv CfvBJk BiQ`BiQJogRAXNupx2<XNu6 Cd$*?a6JfaB`a` <x2<H7 | E? gH$**6*/ a $_LHQU<QLNuteNuBNut-ft JgH0@HJFf ?a<$< ~66j DC CDdaL6JWka`atJog&$<6<0agd$<6<avSW`$<ɿ*<6<la~fgd$<z6<aSW`$<zBCaIDAA?QWk J-f0J-f Wd$> G(e><(`J-fE Wl@J-f:BGE|0&RFbfJgتуSFPJfQQJfJg\.<RFj"J-fFFgJ-g F e<< 0Q|0&RFbfJgتуSFPJfQJfJf|DJ-f"J-f Wm WlXONu Df Wet+<jDFt-JFf0TNuE$0~/RG@e~0RG@bg@SG0fTNud $<BCa(aV^Wk J-f0J-f Wd$> G(e><(`J-fE Wl.J-f(BGE|0RFbgВSFXJfYQJgH.<RFj J-fFFgJ-g F e| 0Q|0RFbgВSFXJfYJf<E`X0J-gpEJfpD0NuB@'d #o~ƀZz@ NrԥHvT ;B@'d <jg:r <NuNg F d~F,ggFRЇdTAi@Nu$6 V~*YX r?/6$a^?/? 2$/6/aH$6aSWfP$6`2$<ڢva|$6 <ڢr Am:a$6aaV Am$g ev$<a>` $<BCa,E`j-  h5]( ڢJgf?BA$<4BCa$<4va$<vaE0a$<va$60H@aa$`H`R`N`Ř`Ÿ`Ŵ`ž`ź```$` ```T````*`P`ǀ`Ȕ``````````````φ`ς`\```\`X`T`X`Њ`Д`А`Ќ`Ј`Є`0`Ѭ``Ѿ`Ѻ`Ѷ`Ѳ`Ѯ`Ѫ`Ѧ```` `` ```````````````(`z`v`z`v`r`n`j`f`p`l`h`d```\`X`T`P`L`H`D`@`<`<`8`4`0`,`(`4`0`,`(`$` ````` ````````` ```````````````````ќ`Ѻ`є`Ѳ`ь`Ѫ`Ѧ`Ѣ`ў`њ`і`Ѱ``````Ԝ`Ԙ`Ԕ`Ԑ`Ԍ```Ծ`Ժ`Զ`Բ`Ԯ`Ԫ`Ԧ`Ԣ`Ԟ`Ԛ`Ԗ`Ԓ`Ԏ`Ԋ`Ԇ`Ԃ`~`z`v`r`n`j`f`b`^`Z`V`Ԏ`Ԡ`Ԝ`Ԙ`P`Վ`Պ`Ն`Ղ`~`z`v`Վ`Պ`Ն`ո`մ`հ`լ`ը`դ`ՠ`՜`՘`Ք`Ր`Ռ`Ո`Մ`Ն`Ղ`~`z`v`r`n`p`l`h`d`Ւ`Վ`Պ`Ն`Ղ`~`z`v`r`x``ռ`ո`մ`հ`լ`ը`դ`ՠ`՜`՘`Ք`Ր`Ռ`Ո`Մ`Հ`|`x`t`p`l`h`d```\`X`T`P`L`H`D`@`<`8`4`0Unprintable error Syntax errorRETURN without GOSUB Out of DATAIllegal function call OverflowOut of memoryUndefined StatementDivision by zeroType mismatchString too longRESUME without errorMissing OperandBreak Bus error Adress errorUnknown opcodeDivision by zero CHK error TRAPV errorPrivilege violationTrace!Out of memory or odd MALLOCationMatrix not regularFIELD overflowBad file numberFile not foundBad file modeFile already openFile not openTOS error #00File already existsFile type mismatch Bad disk Disk fullInput past endBad record numberBad file namePath not foundToo many files Write error Read errorDisk write protected/p a Nu/pa Jmg?-;ma;_NuHJ-EgQ?`J-(g?aˢ0J-?f(mZr*A xNLNuaeEiou^`aAeiou^aeiouaAeioOuUyaAnNoOM6xB((MvNN N4pN`4A1"_! #A1"_! #A1"_! #-_>-_:-_6Nu/.6/.:/.>A$X/ %?B`! A$X/ %?B`! A$X/ %?B`! Hz+mlhN1 <N-@B?<NBT .:?N ASTROPHO.RSC/?NG>\0H-@:J:f,N[2][.RSC-Error][EXIT]tNN4pNN0B/.J .F??<NHX-_J/.JN:X/.R .N??<NHX-_R .b? .^? .Z? .V?/.RN?X0H-@V0H-@Z0H-@^0H-@b/.j .f??<NHX-_j .z? .v? .r? .n?/.jN?X0H-@n0H-@r0H-@v0H-@z/. .~??<NHX-_ .? .? .? .?/.N?X0H-@0H-@0H-@0H-@/. .??<NHX-_ .? .? .? .?/.N?X0H-@0H-@0H-@0H-@/. .??<NHX-_ .? .? .? .?/.N?X0H-@0H-@0H-@0H-@/. .??<NHX-_ .? .? .? .?/.N?X0H-@0H-@0H-@0H-@r/?/.&/.jN&rOr/?/.*/.jN&rOr/?/../.jN&rOr/?/.B/.N&rOr/?/.F/.N&rOr/?/.b/.N&rOr/?/.f/.N&rOr/?/.n/.N&rOr/?/.Z/.N&rOr/?/./.N&rOr/?/./.N&rOr/?/./.N&rOr/?/.~/.N&rOp /0p / &@ .>`p-@/. .>Ю??<NHX-_ .Ю @pJgT$n .>ЀЀCNl6$ .Ю @pNHN$n$.>ԂԂNP+mlhR` .>R-@>oh&_p?NT-@6p6g nCNltN+mlhp-@N.6$N*.EXPNENP+mlhp-@:N ASTROPHO.EXPENP+mlh .:/CNl/?N->O "Fp:WHHJgz+mlhN% pNNLtv(<zBCSDSENX nCNl/??<?<tNIO +mlhACN-@:+mlhN%f`Vpc/0 O .b? .^? .Z? .V?/<N> O /.R .b? .^? .Z? .V??<?<N;XO .?/.R?<N=\0H-@/.R?<?< .b? .^? .Z? .V? .?N O .b? .^? .Z? .V?/<N> O Nu`(A!1A!1A !1A!1-_Nu/.A?/A?/A ?/A?/Hz .z? .v? .r? .n?/<N> O .z? .v? .r? .n?/<N> O /.j .z? .v? .r? .n??<?<N;XO .?/.j?<N=\0H-@ ."f .&/ .j/N'PNLN=A-@+mlh .*/ .j/N'PNLN=A-@+mlh ../ .j/N'PNLN=A -@+mlh6.$.2. .N,6$2. .NN,6$ <rN=A-@2. .N$/?/.2/.jN&rO+mlh/.j .z? .v? .r? .n??< .2?N;XO/.j?<?< .z? .v? .r? .n? .?N O .z? .v? .r? .n?/<N> O Nu`0A1"_! #A !1A!1A!1-_:-_Nu/./.:A?/A ?/A?/A$X/ %?B`! Hz+mlh .? .? .? .?/<N> O .? .? .? .?/<N> O /. .? .? .? .??<?<N;XO .?/.?<N=\0H-@ .>f.p-@: .B/ ./N'PNLN=A-@+mlh .F/ ./N'PNLN=A -@+mlh6.$.p2<NTf nCNltN+mlhp-@:".:F/2. .N6$p2<NTW"HHJg nCNltN+mlhp-@: .:FJgD$<@v2. .N6$2. .NN=A-@N sENP+mlh6.$. <r NTl46.$. <r N=A-@N mENP+mlh6.$. <r NTl46.$. <r N=A-@N hENP+mlh2. .N$6$CNlN/?/.J/.N&rO+mlh/. .? .? .? .??< .J?N;XO/.?<?< .? .? .? .? .?N O .? .? .? .?/<N> O Nu`\A1"_! #A !1A6!1A0!1A*!1A$!1A!1A!1-_RA1"_! #-_Nu/.A$X/ %?B`! /.RA?/A ?/A?/A$?/A*?/A0?/A?/A$X/ %?B`! HzD+mlh .? .? .? .?/<N> O .? .? .? .?/<N> O /. .? .? .? .??<?<N;XO .?/.?<N=\0H-@ .VfNENP+mlhCNl6$rNg&CNl/?/.Z/.N&rO+mlh+mlh/. .? .? .? .??<?<N;XO .^fp-@: .b/ ./N'PNLN-@R+mlh .f/ ./N'PNLN=A-@+mlh .j/ ./N'PNL*6$ <rxNN=A -@+mlh .n/ ./N'PNLN=A-@ +mlh .Z/ ./N'PNLN=A$-@&+mlh6. $.2. .N,6$p2<NTf nC$NltN+mlhp-@:".:FJRWHHJg nC*NltN+mlhp-@:".:F/6.$$.&p2<NTW"HHJg nC0NltN+mlhp-@:".:F/6.$.p2<NTW"HHJg nC6NltN+mlhp-@: .:FJg6.$.2. .N,6$H06. $.2. .N,L N=A*-@, <rH$rN,=A0-@2$<vH06.0$.22.* .,N,6$ .RNN,L NH$<v2.$ .&N6$LN=A-@N sENP+mlh6.$. <r NTl46.$. <r N=A-@N mENP+mlh6.$. <r NTl46.$. <r N=A-@N hENP+mlh2. .N$6$CNlN/?/.r/.N&rO+mlh/. .? .? .? .??< .r?N;XO/.?<?< .? .? .? .? .?N O .? .? .? .?/<N> O Nu`@A$!1A*!1A !1A!1A!1-_RA1"_! #-_Nu/.A$X/ %?B`! /.RA?/A ?/A?/A$?/A?/Hz+mlh .? .? .? .?/<N> O .? .? .? .?/<N> O /. .? .? .? .??<?<N;XO .?/.?<N=\0H-@ .zfNENP+mlhCNl6$rNg&CNl/?/.~/.N&rO+mlh+mlh/. .? .? .? .??<?<N;XO .f$p-@: ./ ./N'PNLN-@R+mlh ./ ./N'PNLN=A-@+mlh ./ ./N'PNL*6$ <rxNN=A -@+mlh ./ ./N'PNLN=A-@+mlh .~/ ./N'PNLN=A$-@&+mlh6. $.2. .N,6$p2<NTf nC$NltN+mlhp-@:".:F/6.$.p2<NTW"HHJg nCvH02. .6.$$.&NL N,6$ .RNN,6$2.* .,N,L NNt6$ <rNtN6$ O .? .? .? .?/<N> O Nu`+_lNu/-l+mhlHz`4-_-_-_-_-_-_-_-_>-_A1"_! #NuA$X/ %?B`! /./.>/././././././.Hz+mlhrENP+mlh ./ ./ ./ ./ ./N(O-@+mlhp-@> .S/ &@ .>`L$n .Ю>ЀЀCNl/? .>Ю//.N&rO+mlh .>R-@>o&_ .? .? .? .?/<N> O /. .? .? .? .??<?<N;XO .? .? .? .? .? .? .?CNl/?/</</</</<?<?<?<?<?<?<?<?<?<?<N7zO(A1"_! #0H-@0H-@0H-@0H-@0H-@0H-@0H-@+mlhpf6 .?/. .? .??<?<N;O 0H-@`".pSHr f-n"._ .ư\AHHJgf$n .ЮЀЀCNlENP+mlhCNlN6$N xNT"SE0*AdpR@NENP+mlhCNl6$N.xNT-@+mlhpo. nCBNltN+mlhrENP+mlh`/.?<?< .? .? .? .? .?N .S/ &@ .>`L$n .Ю>ЀЀCNl/? .>Ю//.N&rO+mlh .>R-@>o&_/. .? .? .? .??< .?N;XO .°fZ/.?<?< .? .? .? .? .?N O /.?<?< .? .? .? .? .?N-_-_-_Nu/./././.>HzCNl6$pNHN6$pcN\NENP+mlh ."ЀЁЮм @ -@ . @ -@ .м @0HU-@p-@> ./ &@ .>`, .>Ю @E .>RN+mlh .>R-@>o&_Nu`2-_-_+_lNuC/-l+mhlA/!A/!Hz` -_>A1"_! #-_-_-_Nu/././.A$X/ %?B`! /.>Hz+mlh ."ЀЁЮм @ -@ . @ -@ .м @0HU-@p-@>rENP+mlh .>Ю @pJg:CNl6$ .>Ю @pNHNENP+mlhR>`CNlNu+mlh`V-_-_-_-_-_+_lNuC/-l+mhlA/!A/!A/!A/!A/!Hz`-_Nu/.Hz". ҁҀҮҼ A2H .$ЀЂЮм @0H-@Jg".꒮ .$ЀЂЮм @0HJ[jDJjFWDdA4H@H@B@ЁJjD".H4H´f iHP`LN<ЮN$6 <rNN4NHNu .Nu-_-_-_-_-_-_-_NuCA/!A/!A/!A/!A/!A/!A/!Hz`-_Nu/.Hz .ꐮ-@Jg ."ЀЁЮм @".$. ԂԀԮԼ"B4H .&ЀЃЮм"@0HJ[jDJjFWDdA4H@H@B@ЁJjD".H4H´f iHP`LN<0` ."ЀЁЮм @p0 .Jg*/.?<?<?<?<?< .?N;XONu`V-_-_-_-_-_+_lNuC/-l+mhlA/!A/!A/!A/!A/!Hz`-_Nu/.Hz .?/.?< .? .?N@O 0H-@ ."ЀЁЮм @ ."ЀЁЮм"@0H".$ҁ҂ҮҼ"A2H .J[jDJjFWDdA4H@H@B@ЁJjD"<H4H´f iHP`LN<0 ./ ./ ./ ./ ./N(O-@+mlh/?NXpNu`+_lNu/-l+mhlHz`A1"_! #-_Nu/.A$X/ %?B`! Hz+mlhp?NT-@N t@NLENP+mlhA" A"p@Ѝм @ Ё-@+mlhp? .H? .H@H?pG?NPCNl6$pNHN6$pNHxNT"SpENENP+mlh .мANH6$N:N6$CNlN6$N\NENP+mlhCNlNu+mlhp-@Fp -@p-@p-@ p-@p-@p-@p-@Np-@p-@fp-@&p-@*p-@.p-@"p -@2p -@6p-@~p-@Bp-@Fp-@>p-@Jp -@Np-@p-@bp-@fp-@jp -@np -@Zp -@Vp -@^p -@rp-@vp-@p-@p-@p-@p-@p -@~p -@zp -@p -@p -@p-@p-@p-@p-@p-@p-@p-@p-@p-@ p-@p-@p-@p-@p-@p-@"p-@&p -@*p -@.p -@2NuN`-_B-_>-_:-_6Nu/.6/.:/.>/.BHzp /0? .:? .6??<?<NE"X0H-@60H-@:0H-@>0H-@B .B? .>? .:? .6?/<N> O .B? .>? .:? .6?/<N> O Nu`-_>Nu/.>Hzp-@>p / &@ .>`/.>NCX .>R-@>o&_?<?<?<?</<N> O NKxNH/<NEX/<NEXN:jY nA ?/HNA$o5XNKNpNHNNHNpNHNNHN+mlhNuCD _31 _31 _31 _31 _31 _1 _1 _1NuC n?/1 nT?/1 nX?/1 n?1/ nT?1/ nX?1/ n\?1/ nP?1/Hzn"<$<&<(<*<pN-_:-_6 _1 _1 _1 _1 _1 _1 _1 _1 _1 _1NuC n?/1 nT?/1 nX?/1 n\?/1 nP?/1 nA ?/1 nA ?/1 nA?/1 nA?/1 nA?/1A6/!A:/!A>/!AB/!A/!E R/!?*2 NP n?1/ nT?1/ nX?1/ n\?1/ nP?1/ nA ?1/ nA ?1/Hzj+mlh .6 n1@ .: n1@ .> n1@ .B n1@ .H n1@ .H@H n1@pNHtNLENP+mlhr@ҍҼ A"A  @ Ё n +mlh"<$<&<(<*<pN< n0H"pJgLCNlNr)f2 .J @".J"A"tp .R @".R"A"tp +mlhNu _1 _!NuC n//! n?/1Hz"<$<&<(<*<pN .R @".R"A"tp娳 "<$<&<(<*<pN-_:-_6NuCA6/!A:/!A>/!AB/!A/!Hz`-_>Nu/.>HzJf pJN-@r@ҍҼ A" . @ Ё-@ n0 . @ .60 .T @ .:0 .X @p0 .\ @ .>0 .P @ .B0p-@>p>/ &@ .>`, .м Ю> @ .>Ю"@0H0 .>T-@>o&_ n "<$<&<(<*<pNN+_lNuC/-l+mhlA>/!AB/!Hz .N @ Jg* .J @p .R @p .N @p .F @p J>npNu .BЮJ @ ".>VHHNu-_>NuCA>/!Hzp/ .>/NBP+mlhJgJ .R @".R"A"$.>p娳 .> n0"<$<&<(<*<pfNNuCA>/!Hz/.>NCRXp/ .>/NBP+mlhJgJ .J @".J"A"$.>p娳 .> n0"<$<&<(<*<pgNNu/.>Hzp-@>p0.S/ &@ .>`.E .>RN$n".>ҁ4+mlh .>R-@>o&_"< $.>HB4<&<(<*< pN8Nu _1 _1NuC n?/1 nT?/1Hz"< $<&<(<*< p!N8Nu?<?<?<?<?<?<?<?<?<?<?<NJONu _1 _1 _1 _1 _1 _1 _1 _1 _1 _1 _1NuC n?/1 nT?/1 nX?/1 n\?/1 nP?/1 nA ?/1 nA ?/1 nA?/1 nA?/1 nA?/1 nA?/1Hz>"< $< &<(<-*< pdN8Nu"< $<&<(<*< peN8Nu 9Jg _1NuC n?/1Hz` n0"< $<&<(<*< pzN8Nu"< $<&<(<*< p{N8Nu _1 _1 _1 _1NuC/ $n"Jp/pПЀ"_?/ 5/ $n"Jp/pПЀ"_?/ 5/ $n"Jp/pПЀ"_?/ 5/ $n"Jp/pПЀ"_?/ 5Hzp n0"< $<&<(<*< pTN8Nu n0"< $<&<(<*< pTN8NuNpNh   ! "#$%0&<'V()*+,V-p./01,2p3456789:0;H<`=x>?@ABCDZE^FbGtHIJKLMNO(P4Q:RXSTUVWXYZ$[>\t]^_`ab>cBdBeLfdghhhihjklmnop fq fr ps vt u v w x y z { | } $~ R 4 \  , . . .  ( R | >>r~<d>Tlrr^DPxj&`4^,DJJt"0h(***   4 4 R^rBBZ `!`"x#$%&'()*+*,-./01B2N3456789`:p;<=> ? 4@ bA bB!2C!<D!lE!pF!G!H!I!J"K">L"HM"`N"pO"tP"Q"R#S#T#U#V#W#&X#XY#dZ#|[#\#]#^#_$ `$>a$b$c$d%e% f% g% h%di%fj%fk%fl%m%n%o&p&\q&\r&s&t'u' v',w'Bx'y'z'{'|( }(*~(6(L(b(v(((())()f)n*****f*x**+4+8+T+T+++++,,,--$-$-t---..$.,.|........//</J///020B0B0B0B0H0N0T0Z0`0f0l0r0x0~000000000000000000000111111 1&1,12181>1D1J1P1V1\1b1h1n1t1z11111111111111111111112$22 2 3 3, 3 4n4p4p4444455Z5Z56666h666 6!6"8#8$9%9*&9N'9b(9)9*9+9,9-9.:/:,0:D1:h2:j3:j4:z5:6:7:8:9::; ;;<;8=;:>;:?;@;A;B;CTU>V>W?X?PY?tZ?v[?v\?]?^@_@`@Za@~b@c@dAeA8fA:gA:hAiAjAkAlB mBPnBXoB|pB~qBrBsBtBuBvC&wC2xCLyCLzCb{C|C}C~CCCD D.DRDTDTDDDDEpEEEEEF.FxFGG$G&G&GGGH HHHHDHRHHHHHIIIIIIIJJJJ0JTJVJVJVJJKRKvKxKxKxKKKKKKKKLLLLLLLLLM M M C    )\/&M-\ # > ;K y x[   c. C>& ($ 'LHk @# z9"d< UoB"""az|hh*NXP@+w1 R"$ \xp(   Datei BerechnungAstroPho 1.0 AstroPho-------------------- Desk-Zubehr 1 Desk-Zubehr 2 Desk-Zubehr 3 Desk-Zubehr 4 Desk-Zubehr 5 Desk-Zubehr 6 Beenden Ohne Nachfhrung Strichspurlnge Maximale Belichtungszeit Mit Nachfhrung Notwendige Belichtungszeit Grenzhelligkeit einer AufnahmeAstroPhoKeine Angst vor Astroaufnahmen!programmiert von Daniel Roth(pd) 1988 sinccom softwareOMIKRON BASICVERBESSERUNGS- UND ERWEITERUNGSVORSCHLAGEVERWERTE ICH GERNEDANIEL ROTHBRUCKER MAUSPFAD 448D-5000 KOLN 91Lnge der Strichspur eines sternfrmigenObjektes bei einer Aufnahme ohne Nachfhrung_____Objektivbrennweite: _____ mmxxxxx_____Belichtungszeit: _____ sxxxxx__Deklinationswinkel: __ 99Berechnen______________Strichspurlnge auf dem Negativ: ______________ mmxxxxxxxxxxxxxxAusgangMaximale Belichtungszeit fr eine 'punktfrmige'Abbildung bei einer Aufnahme ohne Nachfhrung_____Objektivbrennweite: _____ mmxxxxx__Deklinationswinkel: __ 99Berechnen______________Maximale Belichtungszeit: ______________xxxxxxxxxxxxxxAusgangNotwendige Belichtungszeit fr ein Objekt bekannterHelligkeit bei einer Aufnahme mit Nachfhrung_____Filmempfindlichkeit: _____ ASAxxxxxWirksamer ffnungsdurchmesser des_____Aufnahmeobjektivs: _____ mmxxxxx30__Durchmesser des Beugungsscheibchens: ____ mxxxx_____Objekthelligkeit: _____ magxxxxx____Schwarzschildexponent der Emulsion: ____xxxx ?Berechnen________________Notwendige Belichtungszeit: ________________xxxxxxxxxxxxxxxxAusgangGrenzhelligkeit einer Aufnahme mit Nachfhrung_____Filmempfindlichkeit: _____ ASAxxxxxWirksamer ffnungsdurchmesser des_____Aufnahmeobjektivs: _____ mmxxxxx30__Durchmesser des Beugungsscheibchens: ____ mxxxx______Belichtungszeit: ______ sxxxxxx____Schwarzschildexponent der Emulsion: ____xxxx ?Berechnen_____Erreichte Grenzhelligkeit: _____ magxxxxxAusgangSchwarzschildexponenten einiger Emulsionen Kodak Technical Pan Kodak Technical Pan Kodak Technical Pan Kodak Technical Pan Kodak Technical Pan Kodak Technical Pan Kodak Technical Pan Kodak Technical Pan Kodak Technical Pan Kodak Technical Pan Kodak Technical Pan Kodak Technical Pan Kodak Technical Pan Kodak Technical Pan [1][Keine Gewhr fr diese|Auflsung!][OK]Bitte whlen Sie die zu ladende Filmdatei aus![1][Fehler in ASTROPHO.EXP,|Text zu lang!][OK][1][Zu viele Filme in|der Datei|ASTROPHO.EXP!][OK][1][Bitte richtige Brennweite|eingeben!][OK][1][Den Pol knnen Sie solange|belichten wie Sie wollen!][OK][1][Bitte Beugungsscheibchen-|durchmesser eintragen|(30 m)!][OK][1][Bitte Filmempfindlichkeit|eingeben!][OK][1][Bitte Schwarschildexponent|eingeben!][OK][1][Bitte Objektivdurchmesser|eingeben!][OK][1][Bitte Belichtungszeit|eingeben!][OK][1][Fehler in|ASTROPHO.EXP!][OK]]0p`c6 06c0 @0`Ç$H$$$$$$$$H$#$ K z G  : \  ;HI *&'(45 6KLM\] ,25Q^m3FLior,*-/5QW\)-MSr-!&O)bh%)  )  E F) G p q) r ) ) )  )  G H) I r s) t ) ) )  )PP $ ( / C P  J U j }   """ "&"8" U"1)% vR @`@      n     $  |@   19 5 ^(,,\x T   2%, 18 4 0-/   +%+ 1953!-O3 !< X, t   ( -   ,%, 16 2..x!,   8 ( T,  X  T$%) Q0 *,p((((( ( ( 4( P( l ( ( ( ( ()  h`=MENU INFOENDESSPLAENGMAXBELICNOTWBELIGRENZHELDINFOELKINFOELDSSPLAENFSSPOBJKFSSPBELIFSSPDEKLKSSPBERE FSSPSTRI KSSPAUSGDMAXBELIFMAXOBJEFMAXDEKLKMAXBEREFMAXMAXB KMAXAUSGDNOTWBELFNOTEMPFFNOTDURCFNOTBEUG FNOTOBHE FNOTSEXP KNOTQSEX KNOTBERE KNOTNOTBKNOTAUSGDGRENZHEFGREEMPFFGREDURCFGREBEUGFGREBELI FGRESEXP KGRESEXP KGREBERE FGREERHE KGREAUSGDSEXPPAUKSEXAUSGEMULHUELEMUL0ELEMUL13LUSCHIEBESCHIEBERFEHLER0FEHLER1FEHLER2FEHLER3FEHLER4FEHLER5FEHLER6FEHLER7FEHLER8 FEHLER9 FEHLER10 FEHLER11 2ndSTar AstroPho 1.0 Chaos Codes Disketteninhaltdruckprogramm 1.2 FShell 1.11 HBKon Kalender 1.42 Sonnenuhr 1.2 StarTrek alle Programme von dANIEL rOTH Brcker Mauspfad 448 D-5000 Kln 91 Eine Diskette mit den aktuellen Versionen erhalten Sie gegen Einsendung von 10 DM als Scheck/Schein. Wer sich fr Astronomie interessiert kann bei obiger Adresse gegen Einsendung eines an sich selbst adressierten und frankierten Rckumschlags (DIN C5) und 1 DM in Briefmarken eine 12-seitige Liste ber Astronomie-PD-Software fr den Atari ST bestellen. . .su.. CHAOS PRG F v4CHAOS RSC F CHAOS TXT F 'FEIGENBADOO F }MANDEL DOO F }WEITERESTXT #6`=y*MA)"< .Ӯ"Hd d3 d# d `# # # # Q"<p#Q`XRfSxRkHK)jRbA$&XSRg g fB` :<+a&mP Jx>f08h@fJ08hH@CxeB@R@@ @@|84B@ˆ08VFJkf,tQ08tQtf8B7|0kBk 08T xV`"g "AH瀀NLQJxfp.?<NNTp.ѸLRxRNsA:\OM-BASIC.INFOMIKRON.BASLIB 3.00 (C) 1988 ASY K( OHz?<&NNBNAHK(Hz @/-NuJ-kHz /e d aL NsP(P)aL NsHK'Hz @/-NuJ-kHz\ /e daDL!NsP(a@L!Ns@J-f$`@JWk/-l+mhlJ-(ga+mlh+_lNsNuHPES-Q(aJR-J-(fQELNu fB-? fP?2-A!Xmg;ANua/<NMXJ@g/<NMX"d/< NMXr AAf ;mB-?0-mNu/<aBXJ@NuS-a@R-kaFgA2 0X1Nu/<a XNuK&hNi+I+_+nA+H8C,A#A%#A##a&mC0ۓ/ //<JNAPa+xA!Av8gAJxg. NMU@e B^WNMJg0U+HPBxRC+QA"+aA"+xpA&!p]+HZ j(0@4P@Ag$PS@g JPfX4hY+J X Y+hL Y+hLA*+H$xBDvp 8L0 NrOtJ@nr' (<QAD+H +H+N+xN@xAC$p"QAJgE$"Jp&I Q&m+|+|F#p+@Bp a;mp+@BpMa;mpA000BXBmpNaP?aaRxRRm& mJ(,k0BgHz?<=a Pk<HmHx??<?a SWa O B@a!la mQaN0A$"h X0g:/2"h$ B) //A#aX A#"h$W T"h 3_Nu"hN(_ -R@+@&@/?<HNAJoF+@BS?<HNAJo2"-RA+AҐ"<k.+@?<HNAJo+@.KN`"pX ЛЛЛЛ/?<HNA\Jo+@LNu/-L?<INA/mNAT -//<JJFkNAO Nu&_O/-?<INA.?<INAPNPp+m@p QF'!!!p!F# mN`/-Nu mC0$I" g"ӑW@t`f S@f` ӑS@fNuA5 a _+O+HdNPpaf -Tg @+PT/?<Ia x\`QAB`+m<Z+m<xQPC m"HE0+JD+J@+JH$mLX+JP$m+J+JX+J+J`U+Jp+Jh+Jl$mG+Kt+J|Y+Jx,mL&N&<r  `6&&Q `6&Q d6d`&&Q `&6Q d6d`&&Qa Qat _.m|N`/AkLe| AgLeJrсkB,NuA gd6DA|цD,Nu f / o< _ Fg Jk ,NupL@Nu`Jj RkTAiNur@Jg"jRADi dA H@SAЀ[SANu2<Nu/-ha.+_h`?2*@e.$RJ*f p"2Nu2/EA$jp"2Nup2Nu+_HNuHETGdP`HEXG@Q$&;@AJ H@r@I0 H@2$HB>,HF:HDFe4Ge6SBSC<>@ADEJ@j@B@JAjABAJDjDBDJEjEBEJf2J-g,C"QmQG>amQF<anQE:anQD8@mAmH +|m;|Ha`LNuHa fLNuH :(Cia "BKdKd `Q"DMdMd `QL0Nu/ @a _NuaQNu`8a// m$B( _p a"p a Nu/ or fR/H _NuH N.SG*EfzEC R,`TRQQ>HFHFBF܇P^܆vx&mX(KJg&P(K"K(Ę&.ޅ/(/H L` "NّбXfL٭Xa(CvّQ(&ۛ&66C SAf&`T6Q Ĝo8p2<v HBSg0e8kBd6d&e` HF&&&&QHFQLNu6&]n`6&&n`&6]n`Ha LNuHa LNuH>| $r a z JjDz-r6BBHB(8HB4HD0 :e^DRAJf L|NuHr0a "&H|/ a2 @LNuHa LNuJ[jDJjFWD d?B@H@0B@H@JgDNuH8tv`ҁRCdSCj LJgDNueꐁ`H:( dTa `"D6KdKd `QQL8NuJAf$4NuH "mh_ m`da m`e4RBB0"HXB+H`"$4L$@gIdId `Q` RAId2Id"Id `""""Q"_Nuff&CgNur@BNugAgNur@BNupNupNu5!9A"9A.9<19<9<9<9<9<9D 9E 9F 9D9KS-At 2XWf0;@r2@ @9fI 00A5@HAA3-g ??<>NAXJAf -`g @R-aN.m|+m@ ra -2-azA. ranp0-aF#;mad` l? in m@T"m"iȐDnp" ҈$AIdWo J\`"J]dQNu// 2)a$YJ*g$/ 0@G$R&_ `Q$_ _2NuRAId0Id Id ` Q$_ _2Nu m$|a a +H`NuH@"@a`QLNup0-Nup0-Nu -2-NuHJk4aBr$Rd0d d `HB QHBQLNu?<Ha>L\NuZ@/?<Ha&\ @Jo T+HTX Nu/ m p0 _Nu/ m p0( _Nu/ m p0( _Nu`3`?`4`hUAe6k8/ @ : _f&@@?Hm?<6aP0-Nua( -h`NuS-@R-kaF/ra _NuJAg H78&@(@a fLNuH??4a`Q24 _NuH:SDԄAe@DeAUCUĖAo: C!d.2gh Jgtkx dFH@xЀ[DDiVNu 2NuDC C!dB2g,dD AJg2kx dH@xЀ[DDiNuтdTAi$Nu2Nup2<NuJAkx`~gCCi(*H@<HBԆH@GBDHDԄGH@:BBHBЂk EрgUAiEчeNuTAiNup2<NuJgJAk`Jg <TAiNug CAi2J@gBCevgH@h(:HEBE|<xTHBJBgH@:BB`8BBH@:dSDԀdHDH@h:HEBE|<8NuJ-g0-aEA"C C E ps`<F~G?<a>CClDABEG62 CAd< C e *tC `,@DCC 禊DJ_fمтd TAi BNuTNudD@ AJkfJg8BFJf xF d H@HD0BDFJk SF؄р[FFiNupx2<Nug CAi&2Jg BgdڄՀSWv@D` dڄՀ߇݆څՂeQ` SCkއ݆څՂdQFFJ_gfFFJ_ge(Rd$Rd DdRd RdTAi JTAi D( Nu `"~***g CCiBC<*,HFݭdRm,HFݭdRm,HF.HGݥdRm,ݕdRm<ݕdRm,HFݭdRm,HFݭdRm,HFݭdRm,HFݭdRm,ݥdRm,HF.HGݕdRm,.HGHFݕdRm,HFݭdRm,HFݭdRm,.HFHG6-( %ІkgCلрUAi0JCjRe Nupx2<NuRdTAi NuDNuDNu?CCg6gDNu6AgmDNugNuAglDNugNur@JgjRADi dA H@SAЀ[SANuJAk:Ig6e A d rDAA Nu A gd ^DAA DNu f HNupNu  @ 6ɿlŭ+pxIϦGɀT~ތ Jvuu ;]=]5(`R yjNpx2<t;BaX  g  gE.Bg +g -f>a2 $gN %gD &fJa Hg8 Dg6 Bg( Og hg dg bg og$` a -fFWf(KB`aBg .f>a 0eVRm0  e_  e< *e Rd./$***6* ah$*6 aaabJWgSW`+zJWgRW eg Eg dg DfZa2~ +g -f~a6 0e40  e  e *e d dڂa`JGjDt4HԅgP[jD ?eJfJ`6 C gJ CfBC Cfv CfvBJk BiQ`BiQJogRAXNupx2<XNu6 Cd$*?a6JfaB`a` <x2<H7 | E? gH$**6*/ a $_LHQU<QLNuteNuBNut-ft JgH0@HJFf ?a<$< ~66j DC CDdaL6JWka`atJog&$<6<0agd$<6<avSW`$<ɿ*<6<la~fgd$<z6<aSW`$<zBCaIDAA?QWk J-f0J-f Wd$> G(e><(`J-fE Wl@J-f:BGE|0&RFbfJgتуSFPJfQQJfJg\.<RFj"J-fFFgJ-g F e<< 0Q|0&RFbfJgتуSFPJfQJfJf|DJ-f"J-f Wm WlXONu Df Wet+<jDFt-JFf0TNuE$0~/RG@e~0RG@bg@SG0fTNud $<BCa(aV^Wk J-f0J-f Wd$> G(e><(`J-fE Wl.J-f(BGE|0RFbgВSFXJfYQJgH.<RFj J-fFFgJ-g F e| 0Q|0RFbgВSFXJfYJf<E`X0J-gpEJfpD0NuB@'d #o~ƀZz@ NrԥHvT ;B@'d fjJg8?/BA Qd $`J`R`Ɋ`ˆ`˂````` ```N`P`\`2`.`*`&`"`,`(`p`̀`̀`͜`Ͷ``````````````6`2`<`8`4`0`,`(`$`|`ϸ`D`z`v`r`n`О``8`4`0`,`(`$` ````` ``` `` `````````````````````<```j`v`Ғ`Ҏ`Ҋ`҆`҂`~`z`v`r`Ҷ`Ҳ`Ү`Ҫ`Ҹ````F`B`F`B`>`:`6`2`.`*`&`"`,`(`$` ````` ```````````````````````````````````````Ҽ`Ҹ`Ҵ`Ұ`Ҭ`Ҩ`Ҥ`h`Ҝ```Ҕ`X`Ҍ`҈`҄`Ҁ`Ҳ`Ҵ`````0```````````````Ӿ`Ӻ`Ӷ`Ӳ`Ӯ`Ӱ`Ӭ`Ө`Ӥ`Ӽ`Ӹ`Ӵ`Ӱ`Ӭ`Ө`Ӥ`Ӡ`Ө`Ӥ`Ӡ``````Ԭ```````(`@`<`8`j`f`b`^`Z`V`R`N`J`F`B`>`:`6`8`T`P`L`H`D`@`B`>`:`6`d```h`հ`ղ`ծ`ժ`զ`բ`ը``````````````ռ`ո`մ`հ`լ`ը`դ`ՠ`՜`՘`Ք`Ր`Ռ`Ո`Մ`Հ`|`x`t`p`l`h`d``Unprintable error Syntax errorRETURN without GOSUB Out of DATAIllegal function call OverflowOut of memoryUndefined StatementDivision by zeroType mismatchString too longRESUME without errorMissing OperandBreak Bus error Adress errorUnknown opcodeDivision by zero CHK error TRAPV errorPrivilege violationTrace!Out of memory or odd MALLOCationMatrix not regularFIELD overflowBad file numberFile not foundBad file modeFile already openFile not openTOS error #00File already existsFile type mismatch Bad disk Disk fullInput past endBad record numberBad file namePath not foundToo many files Write error Read errorDisk write protectedJ+ g,AA)F?/a ,_0rSBk"gtPFFQNuFF(QNuFF(F(F(QNu/ m$B( _/ m$| _`/pa Jmg?-;ma;_NuHJ-EgQ?`J-(g?a˸0J-?f@F$@K (]&U:<+(+ 6+>+J-gaBmHzzJf dT g < g H g XSg ZSg `Sg Sg Sg Ug FSg XSg Sk.Wk Nu ^fJAj hfr`:+ 67FFLNuB+SgV gUe Lg `Ue g A` gAd [gAh YgAh gAp y`va+gB+`8(mZr*A xNLNuaeEiou^`aAeiou^aeiouaAeioOuUyaAnNoO g2BBWf0`8@Ae @7d @0;NNunz\nZ`fl JFg2SFPNuFgRFPNu/ ??aa<:(_NuEgRERNuJkBJDja `BEa |gaNp|`RJEgSESJEfJjJFg |fAp 2`Q faaj:NuaB`aZatJFfNuJEf$JFf kkpOrJkfp''@'A6>BFBE`4a*FfBENuJFf?a:Nua/ ??a`aaWf<:(_NuJkLa0ER@HC/HEHFHG+ O"AASBkgJ6<4J"HJgJd2Jd"Jd `""""QgPQHC(HEHFHGNu6<HDOD4J"HJg HDHDRJd"Je`""""Qg HDHDDQHC(HEHFHGNuHE?6<HDODOEHEOE4J"HJgHDHDDHEEHE\Je`""""QgHDHDDHEEHEEQHC:(HFHGNuap 2E LQFg / ??aBE |fa`<:(_NuBEa\Jjn |@4F2"L`PQA`QPP$H,I2Q/xa0p 2 LQ(Ffp|`Fga,0R@HCHE:SEFHF<<6QC"AASBkgJ6<4$H,IJgJd<6HB4ĄQHC(:HFHG`TBEJj" |fa`Jja0D@ 4|gNu|NugR+NuJj// ??t 0?RCaSC4EdGg.?aNz4 |gBES  g?ap|a0a<:(_(NuCgEkBEFkBF7C7G`JEgt6>`Jja `p RCa@SC  fWga<:(_(Nu@F'?<HyNM\FNugJj L |gJEg(aRCp aSCSESNupE@?aP0QNuV+ e d`BF` e d`BE2+F0A@AkE(mNu@Nu@ NuM4 xNX2.F0Y@YHF<EpBfgRFFHFNu]l0,(vrpVN4 <rNN4N ZNIpN4N`8-_-_=_-_-_-_|-_x-_t-_pA1"_! #-_lNu/.lA$X/ %?B`! /.p/.t/.x/.|/./.?././.Hz+mlhNG.?<NSTp?NT-@pg>N'[1][Bitte hohe Auflsung|whlen!][Ende]tNNIN .l?N CHAOS.RSC/?NXl\0H-@lJlfNN6[2][Die Resource-Datei|wurde nicht gefunden!][Schade!]tNNINN>&/. .??<NYX-_ .? .? .? .?/.NQFX0H-@0H-@0H-@0H-@/. .??<NYX-_ .? .? .? .?/.NQFX0H-@0H-@0H-@0H-@/. .??<NYX-_ .? .? .? .?/.NQFX0H-@0H-@0H-@0H-@/. .??<NYX-_ .? .? .? .?/.NQFX0H-@0H-@0H-@0H-@/. .??<NYX-_ .? .? .? .?/.NQFX0H-@0H-@0H-@0H-@/. .??<NYX-_ /. NKXpNldN[1][Zu wenig|Speicherplatz!|6$pNN N6$N ][Abbruch]NtN+mlhNIN <}N-@N FEIGENBA.DOO6$pNHNENP+mlhA" A"p@Ѝм @ Ё-@p+mlh <}N-@p? .pH? .pH@H?p=?NP-@tJtlFN/[1][FEIGENBA.DOO wurde|nicht gefunden!][Weiter]tNp-@` .\H? .\H@H? <}H? <}H@H? .t?p??NO -@x .t?p>?NX-@x . @p0 .T @0 .X @0p-@N MANDEL.DOO6$pNHNENP+mlhA" A"p@Ѝм @ Ё-@p+mlh <}N-@p? .pH? .pH@H?p=?NP-@tJtlDN-[1][MANDEL.DOO wurde|nicht gefunden!][Weiter]tNp-@` .\H? .\H@H? <}H? <}H@H? .t?p??NO -@x .t?p>?NX-@x . @p0 .T @0 .X @0p-@ <N-@p-@p-@ ./0<r$<0NX ./p/0<"r$<0NPp/0<&r$<0NX+mlhN f(p)=p+k*p*(1-p) nENP+mlhN f(p)=k*p*p*(1-p) nENP+mlhN f(p)=k*p*(1-p*p) nE NP+mlhN f(p)=k*SQR(p*(1-p)) nENP+mlhN f(p)=k*(1-2*ABS(p-0.5)) nENP+mlhN f(p)=k*SIN(p)*COS(p) nENP+mlhANp-@| ./ &@ .|`\p-@p/ &@ .`6N$n""J$.|/$.ԟԂԂNP+mlh .R-@o&_ .|R-@|o&_A Np-@|p/ &@ .|`*N$n&$.|ԂԂNP+mlh .|R-@|o&_`P :N1.5NN1.8NN3NN0NN50NN50NN >`N N1.5NN4NN7NN0NN50NN50NN `T N1.2NN1.8NN3NN-0.5NN50NN50NN `R 4N1.3NN1.5NN2.5NN0NN50NN50NN 8`R N2NN-1NN1.2NN-1NN50NN50NN `R N2.5NN0.8NN5NN-1NN50NN50NN `b N1.2NN-1NN2.5NN-1.2NN11NN20NN100NN N.N=p?p!?NX-@".Hp=@0.H?p!?NX-@x-|$p-@(A Np"N-@, .,-@| .,м!/ &@ .|` N-@ .| @ . .|R-@|o&_`T >pNpNpNpwNpNpNpNppNpNpNpNpwNN B`T pNpNpNppNpNppNpNpNpNpNpNpwNN `H]pNpUNpNp3NpNp3NpNpsNpNpsNN]p-@0p -@4-|l8p -@<-||@ND6$N*.*NENP+mlh?<NSTN@zpNrpN?<N[?NX-@x?<NST+mlh".tDWp(WAHHJg,p-@(?< .t?NLzX?< .x?NLzX".xDWJ(WAHHJg,p-@(?< .t?NLzX?< .x?NLzX .|DfNu`-_Nu/.Hz .? .? .? .?/<NOO .? .? .? .?/<NOO /. .? .? .? .??<?<NMNO .?/.?<NOX\0H-@?<?< .? .? .? .??< .?/.NMO .? .? .? .?/<NOO .? .? .? .?/<NOO Nu`4-_-_-_-_-_A !1A!1-_-_-_Nu/././.A?/A?//././././.HzAENNNNN@NNNpf Np-@ NNN-@+mlhN .fNp WJW@HHp0WHHJgN6.$.$n""Jp/pПЀЀCNlNLNNTg Np-@ +mlhN6. $.$n""Jp/pПЀЀCNlNLNNTg Np-@ +mlhN6.$.$n""Jp/pПЀЀCNlNLNNTg Np-@ +mlhN6.$. $n""Jp/pПЀЀCNlNLNNTg Np-@ +mlhN$n""Jp/pПЀЀCNlNLNHg Np-@ +mlhN$n""Jp/pПЀЀCNlNLNHg Np-@ +mlhNNp WJW@HHp0WHHJgXNNNp-@ N . @p8HDp8 <:HE <:"yNtT&pNNN`NpfN6.$.2.T .VNTg Np-@N6. $.2.Z .\NTg Np-@N6.$.2.` .bNTg Np-@N6.$. 2.f .hNTg Np-@N .аg Np-@N .԰g Np-@N .ذ0g Np-@N .ܰg Np-@NNpf*NNNp-@NN@NN`NNNp0fNpNNrpNNtv(<*<BCSDSENXNpNNrpNN$.4S&.6.$. n&CNlNLNNTgp-@ +mlh6. $. n&CNlNLNNTgp-@ +mlh6.$. n&C NlNLNNTgp-@ +mlh6.$. n&CNlNLNNTgp-@ +mlh n&CNlNLNHgp-@ +mlh n&CNlNLNHgp-@ +mlh n&C$NlNLNHgp-@ +mlhr Wp0WAHHJgHNp-@ . @p8HDp8 <:HE <:"yNtT&pNN`jpf6.$.2.T .VNTgp-@6. $.2.Z .\NTgp-@6.$.2.` .bNTgp-@6.$. 2.f .hNTgp-@ .మgp-@ .䰮gp-@ .谮gp-@ .ذ0gp-@pfNp-@N@N`~Np0fpNrpNtv(<*<BCSDSENXpNrpN$.4S&.6.0$.22.0 .2N,=AB-@D$<v2.6 .8N,6$2.0 .2N,6$2.N .PN =A0-@26.<$.>2.B .DN 6$2.H .JN =A6-@8R".䲮W/6.<$.>2.B .DN6$ .NNT]"AHHJg".䲮WHH$.മ^/ .rNH"JWBHHJg". .NLSC6$EN2 N%56$NTlO RNJgJNN#[3][ Pause ][Rechne!|Auswahl]tN-@Npf`$C6$EH2 N%56$NTlO N?<NSTN-@JgpfNSf2N-@N -@/./././.N?r$<NPp/0 .\ @".\"A"tp娳 "<F$<.&<B(<6*<2pN/ &@ .|`, .м Ю| @ .|Ю"@0H0 .|T-@|o&_ nB "<F$<.&<B(<6*<2pNNpN8Nu _1NuC n.?/1Hz"< *$<.&<:(<6*<>pN8Nu _1 _1NuC n.?/1 n.T?/1Hz"< *$<.&<:(<6*<>p!N8Nu?<?<?<?<?<?<?<?<?<?<?<N\(ONu _1 _1 _1 _1 _1 _1 _1 _1 _1 _1 _1NuC n.?/1 n.T?/1 n.X?/1 n.\?/1 n.P?/1 n.A ?/1 n.A ?/1 n.A?/1 n.A?/1 n.A?/1 n.A?/1Hz>"< *$< .&<:(<-6*<>pdN8Nu"< *$<.&<:(<6*<>peN8Nu 9Jg _1NuC n.?/1Hz` n.0"< *$<.&<:(<6*<>pzN8Nu"< *$<.&<:(<6*<>p{N8NuNpNh  $**04444 !"#$% &'()*+>,F-./012345T6n789:*;n<=>?@ABCDEFGHIJBKfLtMNOPQR&S:TDUPV\WbXbYbZb[\]^_`$a*b.cpdefghijklmnopq<rdstuvwxyz4{H|r}~ 6 0 < < H H H Z h ~ : , 2 8 @ L R X Z Z Z Z 2` ,<NRXdt 6>Pbbb     :J`lvJn*>J J!P"P#P$P%n&t'()*+,-./0123456&7N8|9:;<"=$>$?$@$ABCDEFGHIJKLMNbOPQ@RSTUVWXHYPZT[T\b]^_`ab.cHdbefftg|hijklmnopqrst&uNvrwvx~yz{|}~FXzz&.266FFJVbptZ2\Ftt  L L L L l p       ! ! ! ! !,!T!|!!""("P"V"""""""""##<#Z#####$$$$0$0$\$$$$$$$%"%L%f%%%&&$&6&L&&''*'<'B'B'X ' ' ' ' (&(Z(((((()>)P)b)x))*D*V*h*n*n *!*"*#*$+ %+N&+'+(+)+*+++,,-,j.,|/,0,1,2-3-x4-5-6-7-8-9-:-;.<.&=.j>.?.@.A.B.C.D.E.F.G/ H/I/XJ/jK/lL/lM/lN/lO0P0Q0R0S0,T0,U0<V0HW0HX0dY0Z0[0\1]1F^1p_1`1a1b1c1d1e1f2g2h2 i2*j2Hk2fl2m2n2o2p2q2r2s2t2u2v2w2x2y2z2{3|3 }3&~3,343X3|333333333334 4.4v44445 585<5|555555556.626@6@6f6j6j6j6j6v6v6v6~6666666677V77788D8j8j8v8v888888889 9:9:9Z9999999999::>:l:::;;;F;F;F;F;R;X;z;;;;<<:<<<<<<===4=`=========>>$>&>&>&>&>,>2>8>>>D >J >P >V >\ >b>h>n>t>z>>>>>>>>>>>>>> >!>">#>$>%>&>'>(?)? *?+?,?-?.?/?0?d1?~2?3?4?5?6?7?8?9?:?;?<?=?>@>?@@@@@A@@B@@C@xD@zE@zF@zG@zH@I@J@K@L@MANAOAPAQA@RAjSATAUAVAWB XB"YB"ZB"[BJ\B]B^C_C&`C2aCbCcCdCeCfCgDhDTiDzjDkDlDmDnDoDpDqE4rETsEtEuEvEwExEyEzE{E|E}E~EEEFF FjFnFxF~F~FFFFGGG$G$G*G*G.G.G.G.G.G.G.G.G.G.G.GHH2HVHzHI"IIIIIIJJ,JNJJJK KDKKKKKKKLLLL,LDLhLpLpLLLLLMM M.M0M0MMMMNjNNO OOBODODO~OOOPPDPPPQ"Q$Q$QQQQRBRfRhRhRRRSS8S~SSSSSSSTTTT`TzTzTTTTTTUU8U\UUU U V V( V* VVVWWW W\WWX.XRXTXTXXYY:Y<Y< Y<!Yr"Y#Y$Y%Y&Y'Z(Z4)Z6*Z6+Z6,Z6-Z.[ /[40[61[62[N3[r4[t5[t6[7[8[9[:[;[<[=\>\?\@\A\B]C] D] E]:F]^G]`H]`I]`J]K]]FEHLERESTANDARDSTANDARD DEGAS_DA F0%F1'BF2(F3*nF4+F5-ENDE.F)- 8AM(+***2%T+% TX   $  9 9 @  # ; g8/ %'  L> < > : B .s5e [& $   )խx *# 9"$< UoB"""axhBx+7:`^^$ {  Programm Bilder Ende Chaos---------------------- Desk Accessory 1 Desk Accessory 2 Desk Accessory 3 Desk Accessory 4 Desk Accessory 5 Desk Accessory 6 mit Rahmen-------------------- Bild anschauen Hardcopy---- Druckertyp ---- 960 Punkte 1280 Punkte-------------------- Bild abspeichern----- Bildart ------ Degas Doodle EndeFeigenbaum Diagramm 1.0von Daniel Roth(pd) sinccom software 1988Rnder:----------- Oben: ___________XXXXXXXXXXX----------- Links: ___________XXXXXXXXXXX----------- Rechts: ___________XXXXXXXXXXX----------- Unten: ___________XXXXXXXXXXX---- Anzahl der unsichtbaren Berechnungen: ____XXXX---- Anzahl der sichtbaren Berechnungen: ____XXXX f(p)=p+k*p*(1-p)  Hilfe Standardwerte Rechne! Ende C H A O S(pd) sinccom software 1988Das Programm wurde in Omikron-Basic geschrieben.Das dokumentierte Basic-Listing sende ich Ihnen gerne gegen 10 DM plus Diskette zu!Daniel RothBrcker Mauspfad 448BLZ: 370502995000 Kln 91KTNR: 1000000290Literatur:Computergrafische Experimente mit PascalK.H.Becker und M.DrflerViewegBedienung:In die Eingabefelder knnen die Zeichengrenzen, sowiedie Berechnungsanzahl eingegeben werden. Bei den unsichtbarenIterationen werden die Populationswerte nicht gezeichnet!Die Berechnung der Populationswerte erfolgt gem der ange-whlten Rekursionsformel. Zu jeder Formel existieren Standard-werte, die mit dem entsprechenden Knopf aufgerufen werden.Die Berechnung kann durch den Druck einer Maustaste angehaltenwerden. Wenn die zeigende Hand erscheint, kann man mit derlinken Maustaste einen zu vergrernden Ausschnitt umfahren,wohingegen man mit der rechten Maustaste direkt wieder zurDialogbox gelangt.Mandelbrot Menge 1.0von Daniel Roth(pd) sinccom software Rnder: ----------- Oben: ___________XXXXXXXXXXX----------- Links: ___________XXXXXXXXXXX----------- Rechts: ___________XXXXXXXXXXX----------- Unten: ___________XXXXXXXXXXX--- Rechentiefe: Bis ___ werden Hhenlinien und ab 999--- ___ wird die Mandelbrot-Menge gezeichnet. 999---- Abbruchkriterium fr Divergenz: ____9999HilfeStandardwerteRechne!EndeBedienung:In die Eingabefelder knnen die Zeichengrenzen, sowie dieGrenzen, ab welcher Rechentiefe Hhenlinien, bzw. dasApfelmnnchen selbst gezeichnet werden soll, eingetragenwerden. Wenn Sie den Knopf Standardwerte anwhlen, werdendie Werte eingetragen, bei denen das Apfelmnnchen inseiner ganzen Pracht zu sehen ist.Die Berechnung kann durch den Druck einer Maustaste angehaltenwerden, dabei mssen Sie allerdings solange warten, bis eineneue Spalte angefangen wird (Rechengeschwindigkeit).Wenn die zeigende Hand erscheint, kann man mit der linkenMaustaste einen zu vergrernden Ausschnitt umfahren,wohingegen man mit der rechten Maustaste direkt wieder zurDialogbox gelangt. ?AhxHg= 0PBE =@AxĄG xp@PU8A0$ `!B by? TB K2Bm`' T"S(I?=||H@"@$M@ @$Jx xH@&@$H@"@$H@"@$H@|#>  ??|??``???|? >"xLJ 2D$H 2D$H*DLj*D$H&D$H&D$H"xG0p`c6 06c0 @0`Ç$H$$$$$$$$H$#$ + 0 +^  #7 COd p| ,*#$Yex      >1BFr,v{&PP $ (  2 :!P  A I ` u P+ P+!  1>Lat    ""! 14         *  F ,b,~  %*'/ ? %I*1>:P  @@Zu06       +  * 7( H S(| 1D @ 5=;W=> :  > N :  <  :  14  )9 O           0&0B0  %*1D@ 9 5 B: }9 7  "   >  Q <   4   9  5 3: n^Nf CHAOS Chaos und Ordnung in dynamischen Systemen ist das Thema dieses Programms. Dabei werden die nach M.J.Feigenbaum benannten Diagramme, sowie die von B.B.Mandelbrot entdeckten und nach ihm benannten Mandelbrot-Mengen darge- stellt. Unter dem Menupunkt Programm knnen Sie zwischen den beiden Unterprogrammen whlen. Zuerst zu Feigenbaum: Es erscheint eine Dialogbox, in welche Sie die Zeichengrenzen eintragen knnen. Dabei werden unkorrekte Eingaben zurckgewiesen. Den Feigenbaum-Diagrammen liegen rekursive nicht-lineare Funktionen zugrunde. Davon stehen mehrere in diesem Programm zur Auswahl. Zu jeder Formel gibt es einen Satz von Standardwerten, welche durch Druck auf den Knopf Standardwerte automatisch eingetragen werden. Bei der ersten Formel wird bei eingestellten Standardwerten ein schon fertiges Bild auf den Bildschirm gebracht. Das gibt Ihnen die Mglichkeit direkt weiter zu experimentieren. Auer den Zeichengrenzen stehen noch zwei weitere Parameter zur Verfgung: Anzahl der sichtbaren, sowie der unsichtbaren Berechnungen. Zuerst werden die sich aus der Formel ergeben- den 'Populationswerte' (p) nicht auf den Bildschirm gezeichnet bis sich eine gewisse Stabilitt eingestellt hat (oder auch nicht), dann wird eine gewisse Anzahl von Berechnungen auch auf dem Bildschirm ausgegeben. Bei hohen Vergrerungen empfiehlt es sich besonders den letzten Parameter hher einzustellen. Zu Mandelbrot: Hier werden die auch 'Apfelmnnchen' genannten Figuren gezeichnet. Wie bei Feigenbaum werden die Zeichengrenzen ebenfalls in einer Dialogbox eingetragen. Bei angewhlten Standardwerten erscheint bei der Berechnung wieder ein von Diskette geladenes Bild, damit Sie sich direkt in die Tiefen der Mandelbrot-Menge begeben knnen. In der Dialogbox sind noch drei weitere Parameter einzustellen. Hhenlinien: In Bereichen auerhalb der Mandelbrot-Menge (schwarzer Krper) kann man eine Aussage darber machen, wie schnell die Werte divergieren (gegen Unendlich stre- ben). Dazu dienen die Hhenlinien, der Wert sollte nicht hher sein als der folgende: Rechentiefe. Wenn bis zur angegebenen Rechentiefe die Funktionswerte noch nicht den Wert des nchsten Parameters Schranke berschritten haben, wird angenommen, da dieser Punkt zur Mandelbrot- Menge gehrt, also wird der entsprechende Punkt auf dem Bildschirm gesetzt. Auch hier sollte man den letzten Parameter Schranke bei hohen Vergrerungen hochsetzen, z.B. 1000. Soll die Berechnung eines Bildes abgebrochen werden, so drcken Sie einfach nur die Maustaste. Bei der Berechnung der Mandelbrot-Menge mssen Sie allerdings die Maustaste solange gedrckt halten, bis eine neue Spalte berechnet wird. Dies ist aus Geschwindigkeitsgrnden sinnvoll. Wenn die Bilder komplett gezeichnet sind, haben Sie die Mglichkeit mit der rechten Maustaste direkt wieder in die Dialogbox zurckzukehren. Wenn Sie hingegen die linke Maustaste drcken (und gedrckt lassen) knnen Sie einen zu vergrernden Bildschirmausschnitt mit der Maus umfahren. Wenn Sie die Maustaste dann loslassen, werden die neuen Zeichengrenzen in der Dialogbox eingetragen, und Sie knnen die Berechnung des Ausschnitts starten. Wenn Sie aus einer der beiden Dialogboxen ausgestiegen sind, knnen Sie das Bild nachtrglich noch ausdrucken, anschauen oder abspeichern. Fr die Hardcopy knnen Sie vorher einstellen, ob mit 1280 Punkten (Atari-Drucker) oder mit 960 Punkten (EPSON-Drucker) gedruckt werden soll. Genauso einfach knnen Sie bestimmen in welchem Format (Degas oder Doodle) die Bilder abgespeichert werden. Nach dem Sie ein Bild abgespeichert haben, knnen Sie wieder das Unterprogramm anwhlen mit welchem Sie das Bild erzeugt haben, um dann eine Vergrerung an dem berechneten Bild vorzunehmen. Wenn Sie die Parameter nmlich nicht verndern, wird das alte Bild direkt wieder zur Auswahl gestellt, und Sie knnen mit der Maus einen zu vergrernden Bereich umfahren! Das kommentierte Omikron-Basic-Listing erhalten Sie beim Autor gegen die Gebhr von 10 DM plus Diskette: Daniel Roth Konto-Nr.: 1000000290 Brcker Mauspfad 448 BLZ: 37050299 5000 Kln 91 Kreissparkasse Kln UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@U@U@U@U@U@U@U@U@U@U@U@U@U@U@U@U@U@U@U@U@U@?U@߻Um_@UW@?U,Ku@QU{"̎&@?&򞕴U߼*@?zQ2U_UӅ @m~4/UT]tPK@ ,=%{U-&j6@ }h_f U]4RLX@>߿\$gkCU/߿Nk%MA@'}Gvg8y\9@++U]G# 3-h! hgQ3.@Vw  mm̈RU|/x76Ļ$Ҷ P)@~6_}P U .MHH+l @<!O`[OV]GtCU\/1ۗboN48$l0@ })'B'JU0T)S/ʤáj@?-MHPZJT U}t: %Q&@8/L[2Bt`"AX U7ED{tA|14ZC@ %o+}d$0+U! gT(@`>];ׅ`^ h'THUyu$NA @r ONO[TDX"ׁU>ڬPR  )ZrB @~U9?X* UhyzDS@p LOiB@71h#Lb2IUau x5cJ}%24=&\Z*@h\BP P|@[3P@"N3U~`7])qa >L/@PRӁ@<܌y ](i,p) ÃU >XF$?wvn m:BdN @~M!6J$Eմ6PJI +Up QB2@X$,@?dx< ^ 9 ! EqU8%~!+`* C6@gs%O8LHUx&qN } 1\@8"4BH@TAQu!U)W>%a@$Q@  9,`t5 U ?ܟ"(AaqÀcM@ D @0)uSF !HL!AHUO/%WiY@` @8nBB0a @%U\ ac"$n*@k jlh!P9U0q,wP:@J\@@$^[ U=}TɌ /"@ `42 DI0NU9ϱnB:Kʡq@{>$V9x@` @#U`pRH P"@4@8;UH L%;I *Up/_s !lF aGb@ecPIU=Z ,BP@@w3r H  U䔴= @%@? #e0exP("Ud#R" @B%]@P%P$UD  \@!@ @#e)"m`BPC"U~ǀ5"$ @$` #PU vw kBf@]D 2h P P3U]ܤ9BB @`0 $4 - #U0wS J@<=r(. @!@U%,H`@ jFF E U.U!sb @+USHAi,dU+ !a@$Ab@H@ W(}FU@ s.$@Gb"@ `Pur`H%X8( Uc. I9  P@AB@z F{(f@P"wd Uɑ6Ɋ$ H9@80D|6( @DUI!N "P"@`8T)2P<Bc@U 9t .@\24_ @y)Qn (! @QCU "P%H!@)\Ӊ%U@@,x?T H4 &@@9$U1Y8P/RU0^bRȠ lL"@X" @@U 0l @BP@(  `4H4 J^6!U 20DP!* @0 d"`%@CE@D U  %DJ2@P( 0@ " D DdU P8.N c @0L(pG'T 8 #U?8%PY` @ *@r  CIAX U P"Ddh@ d@04) ( HAI U !Qpu@T!A@I @2FL HU`"G!`LF@8( 0 6 A@ UdD%eQ H"@""Q C`UpD@`p!IH4 @ 0TF P$d2 UX€% Vh@Q"@`8%j(n FQ!ȄU{`H@ Xp&@p0(I P5F U` bp 9I0@qPC$ $TQU $AEH b %@p3 d * LBHUX& HB`  @v@  .!T@p hX ؀U8x@H"D! f*E2@>L 4 "PUYP @"@   $P @`U8DqL!$il  B@p $  0 8 @U` ؀;!$ D U2@  t`8 l 0 UaL)Q B\NCB@@ q T, .@PPLI U<X!@(<8wb @pèa d$iA #Ux P@&(FhL<1Q @  a0c |T RUp)` @B DVD@7:ExR"!@$Ձ @U`e$P 4.@Ԅ0† @80$hPJiX($DRH U@b@ %F@Z1Rt  @'t(f dB 0Udvp$J@)($@ 0" U @ZH\8 !@BQ$B@@Z@""@# aL!D1UxbQzDX! "2@qB  -R@ht (">E#U|AP CB)&@|@0HH!0zB@U>D @xe*@ %Hz`U Q I  MN @x`"<@XMU d(8H- :h(&@?   @"H$ HU- T Z$  B@hL!`@@=I `(U@@I >@@`3 P U |O aDH E C@! $l@XFU`~< a O (@M4)+LD.@@U(@@H  U&@-# U2Lb D@]ٛr@S$A0@D #U |\(B0+0dX,@!KB` @@D@Up tj BP@= p4$0@  U\P  0@0T) "@4&( U t(p@ @@ϴ!"A F@U `  @8ՠT"#@ UzYB DH Ap@] 0ـP#U8 @+@C( @*@h"hD@ v GHP@>ݭ%1YH0(G+U0X ( GD@ @QFB'B.U pp Q@@@@+$U&P" $@@ݟ,"T@D3"Ua DH@G ` @=6 0U%rb0ĚF @8` 1/QU#a5PP*D@<+eA4$JAUR @!2@’@"U|4' @# xH:@|26! P$ Њ UM  ,R@:AD@!3 #U9$tEA@ HP(RP\@,Fa"'q " U*$C% @{='`J@A  X; +U; T8A@d@$uʈ7UK1PԄIMH@SLP D1UN0ހ,@r/H@ R$`D @ N@HUqF PVX!@eB ` +UgaJ5 @%PD @Ф p0AFUPp-HXH@vބP}@kH,UhHJ"@Mh@P$ a U2C$@X " PU (B @$@ (@e@ U@t@v, J 7Ub -v 5"@:&($&!8UF)@H F @}+dT@ DU?1 Bf""@|JU9L4rI@w4P!@aUB'UЀ@RUޜP@|gUn K` @(@#UP ‚@1@۟Up"@ PkU@T*&U& R@?AU*@  UMD@@ILU%)&@)#Ui *@i'U@<1U@#UX@DU3R@J;U.@֛UҾ@'U@U6@U~@U@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU?UUU?U?>U?}#U?灳?ŻUcU U?9??s1Uୃ~U|9U?Ia?pUi`?*@]U?3rs?@*|bU?5?@ULŇ?@UN@rӇU9;@??UY@?U?Lp@8?U>3@|0]NUl(?@?h9|U )?@U ֬G@??U5X?@7@l 0U4ޏ!?@vT'i+\U?u@e?U?_RG@$BUƇ3?@'?UP?@?́ʦUơ@CwU???@?ƌU[@?SUL??@!UY@?U1?@?H1URNU<z?kTO@>9鼙)1U>cXl!B??@|V_LgU|B~A32~@|@bDG?U Ob3g@?Ԝž'U?IZa6ߋl@?H4/IUT@Y@N~IUE>'9@k?U6 ?a??@1U8?@X?U|@r??U`3f?@LBaU#Q0~@1\?U2SwK壟@fO?U, '@Ɛ gU>9"*#?@?>3eB?U?|hl@??d OU?&a=O?@?pU?OpG@?0RpUT8Vp?;C@kV8?US<@ M?UmgNqô@k]@ghU^! ? &@W#m5? `U =-0@ 90??U~Tn5?@x:p?Ug?T|Cvp?@Vx>e?&4?UV?#γ ?@?3L)BhUd.)(J+@sA1B,|G%'1U966Ma@8?@ + XU8`X$@8p8?U8x`?E ʱ@9w>k!.?ޱU3(.?@,(4ǍӢi?U%G@b%@!Ut`_ɴ@hx;&άx?U.?.l<@&? f?U4@;@37`e C?U;bdA@ecÑ`U @a`?@Jc)?p???UYa'x?@fК<?UI?d?V>8?@U?UE@Sʜ@S?U_A-~X@_PUʿs"0?@?  ?U?wk0@?pJɉU?:?wr9@?8 ?U?A?޹?@?M?UO?,x @ ?4#>rU0@G??̀U_q@@Ɵp*Uo;,|?@#q]?U(6ߵ@?d p@gU9,2)>@yU9,2)>@?d p@gU(6ߵ@#q]?Uo;,|?@Ɵp*U_q@@G??̀U0@ ?4#>rUO?,x @?M?U?A?޹?@?8 ?U?:?wr9@?pJɉU?wk0@?  ?Uʿs"0?@_PU_A-~X@S?UE@Sʜ@U?UI?d?V>8?@fК<?UYa'x?@Jc)?p???U @a`?@ecÑ`U;bdA@37`e C?U4@;@&? f?U.?.l<@hx;&άx?Ut`_ɴ@b%@!U%G@,(4ǍӢi?U3(.?@9w>k!.?ޱU8x`?E ڱ@8p8?U8`X$@8?@ + XU966Ma@sA1B,|G%'1Ud.)(J+@?3L)BhUV?#γ ?@Vx>e?&4?Ug?T|Cvp?@x:p?U~Tn5?@ 90??U =-0@W#m5? `U^! ? &@k]@ghUmgNqô@ M?US<@kV8?UT8Vp?;C@?0RpU?OpG@?pU?&a=O?@??d OU?|hl@?>3eB?U>9"*#?@Ɛ gU, '@fO?U2SwK壟@1\?U#Q0~@LBaU`3f?@r??U|@X?U8?@1U6 ?a??@k?UE>'9@N~IUT@Y@?H4/IU?IZa6ߋl@?Ԝž'U Ob3g@|@bDG?U|B~A32~@|V_LgU>cXl!B??@>9鼙)1U<z?kTO@`5$G>RNUDN@Ɠ@C?hFan?U ,!PI^@ ?iƟӉFUwrxf6@||?4117$U?2m-0/t??@?? xU~1?£@?U3@8?U?Lp@?UY@??U9;@rӇUN@ULŇ?@U?5?@*|bU?3rs?`?*@]UipU?Ia?|9U~Uୃ?s1U?9?U UcŻU?灳?}#U?U?>U?UU?UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 2ndSTar AstroPho 1.0 Chaos Codes Disketteninhaltdruckprogramm 1.2 FShell 1.11 HBKon Kalender 1.42 Sonnenuhr 1.2 StarTrek alle Programme von dANIEL rOTH Brcker Mauspfad 448 D-5000 Kln 91 Eine Diskette mit den aktuellen Versionen erhalten Sie gegen Einsendung von 10 DM als Scheck/Schein. Wer sich fr Astronomie interessiert kann bei obiger Adresse gegen Einsendung eines an sich selbst adressierten und frankierten Rckumschlags (DIN C5) und 1 DM in Briefmarken eine 12-seitige Liste ber Astronomie-PD-Software fr den Atari ST bestellen. . Cs.. KALENDERINF GF KALENDERPRG JF WEITERESTXT #46naji`# o"h###,Oc.N//Bg?<JNA ByĝN/,HNVtAH-Hp=@r=A4.=B?<HnHnHntHn|Nn n0.0"n 2.2N^,_ _ NNV?<NAN^NuNV?<NAN^NuNV?<NNN^Nu/,HNVA"-HpHyL?N?<ENXN^,_Nu/,HNVAr-HpHyL?N?<YNA]"O2"?<BN^N0?NA ]"O2"?<BN^N0?NXN^,_ _ N/,HNVA"-HpHyL?N?<eNXN^,_Nu/,HNVA"-HpHyL?N?<fNXN^,_Nu/,HNVA8-Hp=@2. =A`HyL?< NXRn0.noN^,_ _TN/,HNVvA0-HAvBXB BBgNHnvHz?< N&NrAf^A03 HHnvN$A03 FHnvN$A03 DHnvN$A03 BHnvNv`"pn3 Hta3 Fvj3 Dxi3 B09 DrjAf t3 <49 BviCf 8<3 :BgN:NfNp3 >NzrAfZHyLHz?<N$N XHyLHzl?<N$N Xp3 >N=@N^ yNNrAfp3 8`3 809 8rAW69 :8<DWEBd,Bg???N~?<?9 :?9 :?9 :N~ACpQAC pQACrpQAjC p QALCpQA.ChpQACpQAC AC^ACACACTACACAhCJpQAJCpQA0CAC@pQACACAC6ACpQAC pQAnC,pQAPC~pQA2CpQACpQACh p QACpQAC  p QA|C ^ p QA\C  p QA@C pQAC TpQAC  pQAC  p QAC JpQACpQAlCDp QANCpQA(CpQAC p r AC t v AC @x Az CA @C 2|"Q| 09 HrfAf2A @C 2t"QA C J2t"Q`.A C 2t"QA C J2t"QHnvNvN^,_Nu r 4 G 5 HLetztes ViertelVollmondErstes ViertelNeumondBu- und BettagFronleichnamPfingstenChristi HimmelfahrtOsternKarfreitagWeihnachtenAllerheiligenTag der deutschen EinheitMaifeiertagNeujahrDezemberNovemberOktoberSeptemberAugustJuliJuniMaiAprilMrzFebruarJanuarSoSaFrDoMiDiMoSonntagSamstagFreitagDonnerstagMittwochDienstagMontagAuflsung whlen!Bitte mittlere oder hoheKALENDER.INF/,HNVAL-H09 8rAW69 :8<DWEBd BgBgBgBgN~?<BgBgBgN~NN^,_Nu/,HNVA-HNJHyLN XHyLHz?<.N$N XHyLHz?<N$X0<HyL?NHzV?<'N$N XHyLN XHyLN XHyLHz?<AN$N XHyLHz~?<AN$N XHyLHz(?<:N$N XHyLHz?<3N$N XHyLHz?<3N$N XHyLHz:?<1N$N XHyLHz?</N$N XHyLHz?<;N$N XHyLHzB?<7N$N XHyLHz?<-N$N XHyLHz?<3N$N XHyLHz\?</N$N XHyLHz?<.N$N XHyLHz?<*N$N XHyLN XHyLHzp?<1N$N XN?<Hy 6Hy 4Nr09 429 83 4@tH3 0vC\z E_FDdNfN^,_Nu Bitte whlen Sie! Ende Information Einstellungen Urlaubstageberechnung Feiertage Jahreskalender auf dem Drucker Halbjahreskalender auf dem Bildschirm Monatsbersicht Wochentag zum Datum Datum minus Tagesanzahl Datum plus Tagesanzahl Berechnung von Tagen zwischen Daten Umwandlung von Kalenderdatum in Julianisches Datum Umwandlung von Julianischem Datum in Kalenderdatum 1990 sinccom software von Daniel Roth Kalender 1.42/,HNVAl-HHyLN XHyLHzj?<N$XN=@?Hz@?<Np2AdrjAWvJCWĄDBd t=B`t=B0.N^,_NuDDNoch einmal (j/n) ? /,HNVA:-HA ]"O2"?GNf??<N?<NA]"O2"r?NN^HnN`HyLN XHyLHz(?<N$N XN=@rr3 @09 @@d`HyLN XHyLHz?<6N$XHyLHz?< N$N XHyLHz>?<'N$XHyLHz?<N$N XHyLHz?<'N$XHyLHz?<N$N XHyLHzB?<7N$N XHyLN XHyLHz?<N$XN=@r?Hz?<Np2Ad?<NBgNNpHyL?N?<JNXHyLN XHyLHzT?<N$X0.rr1AfHyLHz ?<N$X`HyLHz?<N$X?<HnNHyLN X09 @@d`A]"O2"A]"O2"A]"O2"NXN*0@d4HyLHzN?<-N$N XN=@rr3 @`TA]"O2"p?NNN2Ad0HyLHz?<N$N XN=@rr3 @09 @@d` A]"O2"A]"O2"NzNHyLHz?<2N$N XHyLN XHyLHz6?<7N$XHyLHz?< N$N XHyLHz ?<N$Ax]"O2"N0?NΤ?<.NA]"O2"N0?NΤ?<.NXA]"O2"N0HyL?NΤHz b?<N$A~]"O2"N0?NΤ?<.NA]"O2"N0?NΤ?<.NA]"O2"N0?NΤ?<:NN XHyLN X0.rr1AfA]"O2"A0 BgNA0 BgNA0 A]"O2"A0 t=BpBgNA0 BgNA0 A]"O2"A]"O2"NXA]"O2"N^0<m?NNXr?NN*4Bd t=Bp`A]"O2"A]"O2"NXA]"O2"N^N4BA:60 t Bf&C]$O4$v?NN^C2"C]$O4$C]$O4$NN6Cd*C]$O4$v?NN^C2"`C]$O4$C]$O4$N*6Cd*C]$O4$C2"C]$O4$C2"A]"O2"t?NN^A0 6.pA]"O2"A]"O2"A]"O2"NX?NNXN*8DCdA]"O2"A0 A]"O2"?NN^A0 A]"O2"HnHnHnNA]"O2"p?NNZ2A]"O2"?NNZ4BA]"O2"A]"O2"A]"O2"N^?NNXNZ4BAd$A]"O2"?NN^A0 A]"O2"A0 A]"O2"HnHnHnNHyLHz ,?<N$A]"O2"N0?NΤ?<.NA]"O2"N0?NΤ?<.NA]"O2"N0?NΤN XA]"O2"p?NN^A0 HyLHzp?<N$A]"O2"A]"O2"??<FN$N XHyLHz?<+N$N XHyLN XHyLHz?<.N$N XHyLHzP?<2N$N XHyLHz?<.N$N XHyLHz?<(N$/.NRN XHyLHzl?<0N$/.NR?<)NN XN?<Hy 2Hy 2NL?< NAT2AdN=@`NfN^,_Nu Kreissparkasse Kln (BLZ Konto-Nr: 5000 Kln 91 Brcker Mauspfad 448 Daniel Roth Danke! und eine Anleitung mit Erluterungen fr das eigene Programm! Sie erhalten dafr das Pascal-Listing, sptere Updates des Programms dann knnen Sie DM 20,- auf mein Konto berweisen. Wenn Sie mit dem Programm arbeiten und es fr gut halten, ich stets dankbar! Fr Fragen, Anregungen und Verbesserungen bin kopiert werden! Dieses Programm ist Public Domain, es darf und soll also beliebig Einfachdruck ein gutes Ergebnis. Bei nicht-kompatiblen Druckern liefert eventuell der kann durch zweimaligen Druck der Escape-Taste beendet werden! Die Druckerausgabe, welche FX-80 bzw. NEC CP6/7 Kompatibilitt voraussetzt, Escape-Taste abgebrochen werden! Alle Funktionen knnen bei der Eingabe durch Drcken derA*#AC!It0B BALBt0B  NBrAmN>09 >@eN xN09 0`jN\`N`N`~N`vNJ`nN`fNv`^N `VNN`NNѮ`FN `>N`6N|`. @ b&@0;NN09 0r AfDN NHyLNvBgNA/,HNV8A<-HN@0. =@?.Bg?<BgHnHnHnhHnPHn8BgNN^,_ _XN/,HNVA-HN@?< ?. NN^,_ _TN/,HNV8AT-HN@0.=@2.=A4.=B6. =C?<Bg?<BgHnHnHnhHnPHn8BgNN^,_ _PN/,HNVA"-HN@?. N@?<?. NN^,_ _TN/,HNVA-HN@?<?. NN^,_ _TN/,HNV8AB-HN@0. =@Pr=AR?<BgBg?<HnHnHnhHnPHn8BgNN^,_ _TN/,HNV8AR-HN@?.?. NJ0.=@2. =A?<lBg?<BgHnHnHnhHnPHn8BgNN^,_ _XN/,HNVA"-HN@?. NZ?<?. NN^,_ _TN/,HNVA.-HN@0. rA?Nn?<h0. rA?NN^,_ _TN/,HNVAl-HN@?. Nd0. =@rAo$t=BS@=@ vCox=D@=@ ?<?.N*0.rAo?<?. NN^,_ _TN/,HNV6AD-HN@0. =@2.=A?<'Bg?<BgHnHnHnhHnPHn8BgNN^,_ _XN/,HNVA-HN@?<j?. NN^,_ _TN/,HNV8AB-HN@p=@P2. =AR?< BgBg?<HnHnHnhHnPHn8BgNN^,_ _TN/,HNVA-HN@?<?. N N^,_ _TN/,HNV2A-HN@Hn2Hn4Hn6NxBgBgNn0.=@P2.=AR4.BS@=@T=AV6.BSC=CX8. DSA=AZ:.=E\<.DSF=F^=E`0.=@b?<BgBg?<HnHnHnhHnPHn8?<N?.4?.6NN^,_ _PN/,HNV8A`-HN@0.=@P2.=AR4.BS@=@T6. CSA=AV?< ?< Bg?<HnHnHnhHnPHn8?<NN^,_ _PN/,HNVAr-HN@HnHnHnNǔBgN?<NHnHnHnNx?.Nx?.?.?.?. N*?.N?.N?.NLN^,_ _PN/,HNVtA6-HN@0.=@". -Ax?<NHnHnHnxHntNnN^,_ _\N/,HNVA-HN@?</. NN^,_ _XN/,HNVA-HN@0. ?BNjN^,_ _TN/,HNVA4-HN@N.rAf ?</N2N.R@?N6N^,_Nu/,HNVAB-HN@N.rAo*N.S@?N6N.rAf ?</NN^,_Nu/,HNVA<-HN@p?/Np=@N.=@` NxRn0.noN^,_Nu/,HNVtA,-HN@p=@?<kHnHnHnxHntNnN^,_Nu/,HNVtA,-HN@p=@?<kHnHnHnxHntNnN^,_Nu/,HNVnAV-HN@?<MHnHnzHnrHnnNn n0.|0"n2.~2$n4.4&n 6.68.z=D0.N^,_ _N/,HNV,A-HN@0. rAg =A.`$Hn,Hn,Hn,Hn,NT?Nưpd=@.0. =@r=A`0.@rA1Rn n op=@?..Bg?< BgHnHnHn`HnHHn0BgN0.=@0.N^,_ _TN/,HNVAX-HNƺ=@?.Nư0. =@?<fBg?<BgHnHn n/Hn"n/ BgN?.NưN^,_ _ N/,HNV4A-HNƺ=@6?. Nư?. HnhHn8?<N\0.hrAg te=B4`t=B4????HnHnHnhHnPHn8?N0. 2.6Ag?Nư` BgNưN^,_ _TN/,HNV8A2-HN@?<BgBgBgHnHnHnhHnPHn8BgNN^,_Nu/,HNVjA-HN@p=@j?< HnHnzHnrHnnNn0.z=@lrAg?<N=@j?.jN?.jNư?#r6#:0/3r| H |&"|tH2H2H209r @pf2<`2<3z"<60<NBNu _<#^#V#Z#R"_#N:3E3_3_ 2/3yb Jg.El: yV8DSEk0 yj00 yh0Q?"<N0<sNBJ_g2 yN:( y^8DSEk0 yj00 yj0QNu _3bN09bNu _3dN09dNu _3j3hN _"_$_2j4hN _3n3lN _"_$_2n4lN _3fN09fNu09pNu _3pN _3N _33N _3 N _3"N _3$N _"_$_&_642N _"_$_&_6 4"2$N _ RNH _024SBgQ@4BAAc/LNuHyNRange error during set-operationH _0246@SCBgQAn68DCCc 0AgRB`/LNuH _0@CEHS@rIVW.J?/LNuH _0@CEHS@rIVV.J?/LNuH _0@CEHS@2FA_VW.J?/LNuH _0@CEHS@2FAYVW.J?/LNuH _0@274BAAc7V`tO>/LNuH _0@"_24BAAc1V`t>/LNuH _02S@AC2YQ/LNuH _02S@AC2YQ/LNuH _02S@AC2FAYQ/LNuB9`PBy _0g$_jp"_// HNvLBtJ@fL)J9f f8| i f(Bi ` f|Ji f 3| `4<gG BQB) @e *:f&Jrt `e QGtWJBkG3 J9f fpBi `\ f3| p`J g( f*3| H@?3| NAXNu/")x itg$H@//?) ?<@NA LJof _Nu _4` _t6 Bo r aSB`2aNH? _r ar a/L?Nu _r aN _4` _t"x0HgJJjDxvCzp cRЀ`|e W0R"f`6 _4` _t2xJAjDAxvCp0 2H@0RJAfJg<-RBlCSBr aQSCaQN _"_v` _"_60`JfQ$ItRJf` _4v` _46"_JBjtJCkgCe4` BSCr axQSBkalQN _6kfv2_t Cc"4YBv` _6kfv"_t Cc4QBvSBkr a(QSCC" A0 9c^a JgYC`NH "oA/ NL Nu/,HNVA&-H V"h0.  V"h/ NN^,_ _TN/,HNVAF-H0. r A^0. J@_ÄCBd?<0 VN`0. r VA0? VNxN^,_ _TN/,HNVA|-HA]"O2"p?NN60=@0.@dA]"O2"NH@Hzp `H@Hzp 3 dp/?<?<@NA LQ` d4 gb9@HHzxp/?<?<@NA LJ9g& AfH@HzFp/?<?<@NA L NuHzR0<`Hz$0< LN  p Exit q C^AReset required prior to Read or GetAttempt to read past end-of-file/,HNVA-HN@A ]"O2"A0 p.@=@0.J@nBgNA0 `0.r(AmA]"O2"A0 `|0.rH=@0.2.tA02<v8.zHĉHDDiAA0.rAl0.R@=@0.rA`A]"O2"A0 .2.N^,_ _\N/,HNVA-HN@A ]"O2"BBgNZ0@dBBgA0 `fA ]"O2"?</<N*0@d0p=@?</<A ]"O2"N~A 0 `A ]"O2"?</<N60@d6p=@?</<A ]"O2"N~NBGHGv8ބdRC8ބdRC>HGvކdRC8ބdRCHGv48ބBޅB:>HG8ކkE߇SDkBg|d RdRDUJg( DbRD ME \/L NuBBo `H _0/2// v/ 8://~/?DD?DBo 8JgJgG|HD8H@0zr)`рe efef<څ߇QgRCgڼd RGdSCJCkD|blo/EC \/L NuoH _p2/g/ f/W?o `ֲ@e:f$/&e&f // d*B6//J/ k`(&// S@Q`&// `R"/?/[4JfFӃddRdRR/eJd RdRd`/AG o Jk`z0H*kS/JkFft grkRBjIHA~`( dtHAI.kRBҁjBG` BBRBӁj/e2/AG o Jk\/L NuH _0 @&b(CC/)?/L NuHy`HyL N Hz@CPt$> nk(:C@hԥ*5 c_1ɿ1.Ź^ k:v #-xŬX&x2n)h? SYQa@%oNˏ'?9x!7I|o|@Eŭ+E75vV 9@{pvPFloating point overflowFloating point division by zero _pJ.g 0( hNVg4 ( hg( hH`0( hNVg ( hg hHfXgr"ODd2Sk "Sj` _"ye HyNN#X#T .f -|`-| nNнTf yXNStack overruns heapH?\ _z gBjDRE"g8jDRE$6HBJBg8HAJAf,HBJBf$ւi EdD.` $HB8`B/L?\Nu0NvDNH\|` H\| _z f0NjDRE"g`jDREdJgR(`DfxJg<`DxSDbb JgHA8`"tcRЀ`xeWJg(MdD.`B/L\Nu y| f#|#Bh6Nu&_a"h $h43_2NH&_a"h 3_2?/ LNu&_a1_$1_"1_1_1_1_1_,1_*1_(1_&1| N&_aj1_2!_.1_$1_1_1_1_1_*1_(1_&Bh4N&_a41_2!_.1_$1_1_1_1_1_,1_*1_(1_&Bh4N&_a1_2!_.1_$1_1_1_1_1_("h3_$_0)gk"h (JS@"Q"Bh4N&_a1_h1_Z01_N1_L2 @b"y@$qBh$1|jBhr!jLT1jPXj$"jHA1qHBhJTA01hH1@P1jRRBhf1|B1|D1j>\1j@^1j:`([g1j6d1j8b`BhbBhd1|F1|@!|l1|@pNa"hBQ$hB5| NuaĠ Nu&_a$h\BZ4"_p$Q"_p$Q N&_a$_ N&_a$_ _20/ ,_N&_an1_>1_<1_:1_81_6h6N##,_,y yN _(N _0/Ho |3JyfXNX/#"|a "_a"|aJyg y9BgNA/ ?< NA\Nu09Nu09ByNu _3ByNByNu  *** *** Copyright 1986, CCD and OSS, Inc.&>b    &  0 B              B &"$  8$ $ & *   <2"  (* >J4  ,0 0 0 80f $ " DL 2R$$ " $& 4$ ": $4f$ 0  , &  $ 0  , 00 &  &6666666h  6 24" 0 Z * " ,* $$& &P:* 2  *$$0 ,0 ,0 "< ,2,8> ,2,8$$((D  & "&& &8 HZb@ | @($   $      *:   2 :   2 : &&* &      P  <(*    <(*    j0     F   .N  2> *( ,J*  " 0  2 08 &   &   .L  .X  &     $H&P J^&" JX.(   T 2     *,0 0&* <   ">  L      8\(0  lL0 L0 &   * R2"*,0 0&* <  L 8\"0  lL0 L0 $  68 2h J6 $    ,(   (   $  T  T "    4  ,     **&  0 "&*F62&.:   (  &   (     , $"4$6&   (  &   (     v                      0 ,H ,,6 8 ,2 v8 ,6 ,,T  T* ,,  .6  V0b,4 "T & & (,          ,*< * * , , 0 , " BBb4&2J2"n4$&4&\8(*0  :lX$Fr44*(*" ,D(N0$.$$$$H* z  f H F   V  &     2ndSTar AstroPho 1.0 Chaos Codes Disketteninhaltdruckprogramm 1.2 FShell 1.11 HBKon Kalender 1.42 Sonnenuhr 1.2 StarTrek alle Programme von dANIEL rOTH Brcker Mauspfad 448 D-5000 Kln 91 Eine Diskette mit den aktuellen Versionen erhalten Sie gegen Einsendung von 10 DM als Scheck/Schein. Wer sich fr Astronomie interessiert kann bei obiger Adresse gegen Einsendung eines an sich selbst adressierten und frankierten Rckumschlags (DIN C5) und 1 DM in Briefmarken eine 12-seitige Liste ber Astronomie-PD-Software fr den Atari ST bestellen. . Ns6.. SONNEUHRINF "7jSONNEUHRPRG !8ySONNEUHRRSC "F ,SONNEUHRSTO F ZSONNEUHRTXT aWEITERESTXT #6"\SONNEUHR.12\*.STO","\*.DOO","\SONNEUHR.12\*.BER" 24, 4, 35 .5, .9, 1 0, 1, 3 10, 8, 0, 0, 1.2 `Pr)lMA:t"< .Ӯ"Hd d3 d# d `# # # # Q"<p#Q`XRfSxRkHK:RbA$&XSRg g fB` :<+a&mP Jx>f08h@fJ08hH@CxeB@R@@ @@|84B@ˆ08VFJkf,tQ08tQtf8B7|0kBk 08T xV`"g "AH瀀NLQJxfp.?<NNTp.ѸLRxRNsA:\OM-BASIC.INFOMIKRON.BASLIB 3.01 (C) 1988 ASY K8OHzh?<&NNBNAHK8Hz @/-NuJ-kHz /e d aL NsP(P)a L NsHK8fJ-` X+L Pg Vg Cgr Mg `5p`p`p/TWadXNuK6XNi+I+_+nA+H8C,A#A5#A##a&mC0ۓ/ //<JNAPa+xA!Av8gAJxg. NMU@e B^WNMJg0U+HPBxRC+QA<"+aA"+xpAl!p]+HZ j(0@4P@Ag$PS@g JPfX4hY+J X Y+hL Y+hLA*+H$xBDvp 8L0 NrOtJ@nr' (<QAD+H +H+N+xN@xAC4tp"QAJgE4"Jp&I Q&m+|+|F#p+@Bp aN;mp+@BpMa8;mpA000BXBmpNaP?a"aRxRRm& mJ(,k0BgHz:?<=aPk<HmHx??<?aSWaO B@a1@a mQaN0A3"h X0g:/2"h$ B) //A3aX A3"h$W T"h 3_Nu"hN(_ -R@+@&@/?<HNAJoF+@BS?<HNAJo2"-RA+AҐ"<k.+@?<HNAJo+@.KN`2NX ЛЛЛЛ/?<HNA\Jo+@LNu/-L?<INA/mNAT -//<JJFkNAO Nu&_O/-?<INA.?<INAPNPpa+m@,HF:HDFe4Ge6SBSC<>@ADEJ@j@B@JAjABAJDjDBDJEjEBEJf2J-g,C"QmQG>amQF<anQE:anQD8@mAmH +|m;|Ha*LNuH?aVLNuHa"LNuHa|LNuH :(Ci-a~"BKdKd `Q"DMdMd `QL0Nu/ @a _NuaQNu`a// m$B( _p ap a Nu/ or fR/H _NuH N.SG*EfzEC R,`TRQQ>HFHFBF܇P^܆vx&mX(KJg&P(K"K(Ę&.ޅ/(/H L` "NّбXfL٭Xa+(CvّQ(&ۛ&66C SAf&`T6Q Ĝo8p2<v HBSg0e8kBd6d&e` HF&&&&QHFQLNu6&]n`6&&n`&6]n`/-ha+_h`rHa&LNuHaLNuHa:LNuHa*LNu`H>| $r ajz JjDz-r6BBHB(8HB4HD0 :e^DRAJf L|NuHr0a "&H|/ a"2 @LNuHr0a "&H|/ a"^2 @LNuHaLNuHa LNuHa&xLNuJ[jDJjFWD d?B@H@HA2HA02 JgDNuH8tvx`ҁRCdSCj LJgDNue萁`J[jDJjFWD d?B@H@0B@H@JgDNuH8tv`ҁRCdSCj LJgDNueꐁ`H:( d*Pa`"D6KdKd `QQL8NuJAf$4NuH "mh_ m`da m`e)4RBB0"HXB+H`"$4L$@gIdId `Q` RAId2Id"Id `""""Q"_Nuff&CgNur@BNugAgNur@BNupNupNuffCgNur@BgNuNugԶAgNur@BgNuNuCa0 AOg& AAg AKg APg AVg ACg AMf(2NuA2jrVNuSAkA2g(NuH@a AIg AVg ACg AMf(;@LNu5!9A"9A.9<19<9<9<9<9<9D 9E 9F 9D9K)>S-At 2XWf0;@r2@ @9fI 00ACHAAABAQB@SAo+H;A -dg +@a;P+mlhBmBm>-g ??<>NAX.m|+m@ ra -2-aA. rap0-a8F#;maV` l? in m@T"m"iȐDnp" ҈$AIdWo J\`"J]dQNu// 2)a$YJ*g$/ 0@G$R&_ `Q$_ _2NuRAId0Id Id ` Q$_ _2Nuaa `aa `^%0x;@HItBCBD:<BFa LNuQ4BmBmNuP4BmNu&m`(K(-haHd gD`a&$m`* f&\ H`4Q&m`IXd&& ga`B" f&"$gRBR&DSAJ`7$Q+Kh+K/ ?0-S@k@G +Ifa fa8&_Nu 2NuJmf +mlha,J-4f&m`F 2ANuJmfJ-4fJmf Jmfp?aCaCPaaB3@J-4fGv6-(Kr"g&Sr,gfS 2 KARC;CJfBmNugfS R2 @t,gfS4 KB`S-ax@R-kaFf:%xgA%rBXp`?Gp~a?BCa6>`pCaC QCf Jjp`a-5fQ6`VQ5CD g(CD `gCD ^gCD g CD ~f fp`2>Wf) gza fa&` eB g:@Cg^ Lr4`SBk$RSBk  g ^f dr` g +gl -gV g aeG Xg Sg Mg CfUBk#f` e 0eJ :ez Ae> [e ae0 {eC g` gZJj?)LfH g& `g g ~gf mf ^fJk*@5`$ 0` %fPr` Uf Lf) %` Uf Lf Ag g gJmg Ag %gH 0gB Ag< g6 g0 Lg* Ug$ Mg`"~SBk"xfr` SBk"jfr`VJAgJ-6f.J-lg.Cg*?>Cp H@E0DgRDH@Qa0m560 m$|a@lJ-5gpDa@HP6`CgSDE0Qav` Rf2 gF-l`Cg>Cp H@E0DgRDH@Qa>` MfCgRCpCa?`~ KfJCf glp`ZSCpDa?d`\`XE0>C` pa?da?^Qfp a?P>CpDa?.QNu>D`a?6Q>C`pTJg| /a Nu L4/` SBRSBk RSBjNu  g ^g ae Cg +g -g >f S@d p?a0S@f/ @6RCmfBm@G8gb+ KfS-< Of( kt4+ RB//??<@aFkZ WDe??<>Ba.kBXBx8+ RDDf&_Nu(kCpdQDaH mp"-``0&j"CfPf"BQe`ahaBH @"B8Ad8D` VfCLNudxLNuxLNuH @B@`k ae {d  `;QLNuAEEEIIIOOUUYAIOUAOH@"@a ,`QLNuHJk4aBr$Rd0d d `HB QHBQLNu?<Ha\LNuZ@/?<Ha\ @Jo T+HTX Nu/ m p0( _Nu``9`Fj`;``jH`S@@@G Seg +Rg +Oga WHHLNuJkV`UAe4k6/ @ :f&@@?Hm?<6a:P0-Nua & -h`NuH S-a@R-ka6Fga $ra LNur LNu/ra _NuJAg DH78&@(@aLNuH??4a`Q24 _NuH:SDԄAe@DeAUCUĖAo: C!d.2gh Jgtkx dFH@xЀ[DDiVNu 2NuDC C!dB2g,dD AJg2kx dH@xЀ[DDiNuтdTAi>Nu2Nup2<NuJAk*x`~gCCi(*H@<HBԆH@GBDHDԄGH@:BBHBЂk EрgUAiEчeNuTAiNup2<NuJgJAk` Jg <TAiNug CAi2J@gBCevgH@h(:HEBE|<xTHBJBgH@:BB`8BBH@:dSDԀdHDH@h:HEBE|<8NuJ-g0-aEA"C C E C. ps`$6 <r`<FdUFm~Fe|ІeNu|TANuUFm~Fe|ƐjNuЀUANu A<F~G?<a>CClDABEG62 CAd< C e *tC `,@DCC 禊DJ_fمтd TAiNuTNudD@ AJkfJg8BFJf xF d H@HD0BDFJk SF؄р[FFiNupx2<Nug CAi2JgBgdڄՀSWv@D` dڄՀ߇݆څՂeQ` SCkއ݆څՂdQFFJ_gfFFJ_ge(Rd$Rd DdRd RdTAiTAi( Nu `~***g CCiBC<*,HFݭdRm,HFݭdRm,HF.HGݥdRm,ݕdRm<ݕdRm,HFݭdRm,HFݭdRm,HFݭdRm,HFݭdRm,ݥdRm,HF.HGݕdRm,.HGHFݕdRm,HFݭdRm,HFݭdRm,.HFHG6-( %ІkgCلрUAi0JCjRe Nupx2<NuRdTAi NuDNuDNu?CCg6gDNu6AgmDNugNuAglDNugNur@Jg6jRADi dA H@SAЀ[SANuJAk:Ig6e A d 6DAA Nu A gd "DAA DNu f NupNu  @ 6ɿlŭ+pxIϦGɀT~ތ Jvuu ;]=]5(`R yjNpx2<t;BaX  g  gE.Bg +g -f>a2 $gN %gD &fJa Hg8 Dg6 Bg( Og hg dg bg og$` a -fFWf(KB`aBg .f>a 0eVRm0  e_  e< *e Rd./$***6* ah$*6 aaabJWgSW`+zJWgRW eg Eg dg DfZa2~ +g -f~a6 0e40  e  e *e d dڂa`JGjDt4HԅgP[jD ?eJfJ` 6 C gJ CfBC Cfv CfvBJk Bi zQ`BiQJogRAXNupx2<XNu6 Cd$*?a6JfaB`a` <x2<H7 | E? gH$**6*/ a $_LHQU<QLNuteNuBNut-ft JgH0@HJFf ?a<$< ~66j DC CDdaL6JWka`atJog&$<6<0agd$<6<a SW`$<ɿ*<6<la~fgd$<z6<aSW`$<zBCaIDAA?QWk J-f0J-f Wd$> G(e><(`J-fE Wl@J-f:BGE|0&RFbfJgتуSFPJfQQJfJg\.<RFj"J-fFFgJ-g F e<< 0Q|0&RFbfJgتуSFPJfQJfJf|DJ-f"J-f Wm WlXONu Df Wet+<jDFt-JFf0TNuE$0~/RG@e~0RG@bg@SG0fTNud $<BCaaV^Wk J-f0J-f Wd$> G(e><(`J-fE Wl.J-f(BGE|0RFbgВSFXJfYQJgH.<RFj J-fFFgJ-g F e| 0Q|0RFbgВSFXJfYJf<E`X0J-gpEJfpD0NuB@'d #o~ƀZz@ NrԥHvT ;B@'d f:Jg?/BA Qd $2`:`6`2`.`*`&`"`````` ``|``t`;`l`Ͷ``````8`N`n`z`Κ```v`r`n`j`f`Ѡ`ќ`ј`є`ѐ`ь`ш`ф`р`|`x`t`p`l`h`d```x`t`p`l`h`d```\`d```\`X`ѐ`Ѥ`Ѡ`ќ`T`Ғ`Ҏ`Ҋ`҆`Җ`Ҹ`Ҵ`````````````````````Ҽ`Ҹ`Ҵ`Ұ`Ҳ`Ү`Ҫ`Ҧ```````` `` `T`P`L`H`D`@`<`8`l`Ӡ`Ӝ`Ә`Ӕ`Ӑ`ӌ`ӈ`ӄ`Ӏ`|`x`t`p`l`h`d```\`X`T`P`L`H`D`@`<`8`4Unprintable error Syntax errorRETURN without GOSUB Out of DATAIllegal function call OverflowOut of memoryUndefined StatementDivision by zeroType mismatchString too longRESUME without errorMissing OperandBreak Bus error Adress errorUnknown opcodeDivision by zero CHK error TRAPV errorPrivilege violationTrace!Out of memory or odd MALLOCationMatrix not regularFIELD overflowBad file numberFile not foundBad file modeFile already openFile not openTOS error #00File already existsFile type mismatch Bad disk Disk fullInput past endBad record numberBad file namePath not foundToo many files Write error Read errorDisk write protectedJ+ g,AA)F?/a ,_0rSBk"gtPFFQNuFF(QNuFF(F(F(QNu+ Pg Vg Cg Mg r`r`r`r@?/`2-kSAAtv d tv gtv g t fJVAG Skgx +Of(kr2+RAk f/ /??<@a BA7ALNuSPd8BP`4PPP`,@A gRP d4SP g g fBP?BVWS-NMR-fat\LNuJmgGFr-WfS-pa&pRa"+-va;0R-`#$@[\]^`{|}~?BVWNM\Nu#$@[\]^`{|}~ *(Jk#ERHC)ig$%0+ytusDI"// m$B( _p a Nu/ m$| _`/pa Jmg?-;ma;_NuHJmfJ-EgQ?`J-(g?ah0J-?f@F$@K (]&U:<+(+ 6+>+J-ga:BmHzzJf dT g < g H g XSg ZSg `Sg Sg Sg Ug FSg XSg Sk.Wk Nu ^fJA hfr`:+ 67FFLNuB+SgV gUe Lg `Ue g A` gAd [gAh YgAh gAp y`va+gB+`8(mZr*A xNLNuaeEiou^`aAeiou^aeiouaAeioOuUyaAnNoO g2BBWf0`8@Ae @7d @0;NNunz\nZ`fl JFg2SFPNuFgRFPNu/ ??aa<:(_NuEgRERNuJkBJDja `BEa |gaNp|`RJEgSESJEfJjJFg |fAp 2`Q faaj:NuaB`aZatJFfNuJEf$JFf kkpOrJkfp''@'A6>BFBE`4a*FfBENuJFf?a:Nua/ ??a`aaWf<:(_NuJkLa0ER@HC/HEHFHG+ O"AASBkgJ6<4J"HJgJd2Jd"Jd `""""QgPQHC(HEHFHGNu6<HDOD4J"HJg HDHDRJd"Je`""""Qg HDHDDQHC(HEHFHGNuHE?6<HDODOEHEOE4J"HJgHDHDDHEEHE\Je`""""QgHDHDDHEEHEEQHC:(HFHGNuap 2E LQFg / ??aBE |fa`<:(_NuBEa\Jjn |@4F2"L`PQA`QPP$H,I2Q/xa0p 2 LQ(Ffp|`Fga,0R@HCHE:SEFHF<<6QC"AASBkgJ6<4$H,IJgJd<6HB4ĄQHC(:HFHG`TBEJj" |fa`Jja0D@ 4|gNu|NugR+NuJj// ??t 0?RCaSC4EdGg.?aNz4 |gBES  g?ap|a0a<:(_(NuCgEkBEFkBF7C7G`JEgt6>`Jja `p RCa@SC  fWga<:(_(Nu@F'?<HyNM\FNugJj L |gJEg(aRCp aSCSESNupE@?aP0QNuV+ e d`BF` e d`BE2+F0A@AkE(mNu@Nu@ NuM4 xNX2.F0Y@YHF<EpBfgRFFHFNu0 \T(~% pN"/rN4"Ё"<NN@N "N NN`(A1"_! #A1"_! #-_-_-_Nu/././.A$X/ %?B`! A$X/ %?B`! Hz+mlhNjp?NT-@p?NT-@pg,N[1][ Nur |monochrom!][OK]tN?<NT .?N SONNEUHR.RSC/?N \0H-@ .D-@ .FJg,N[2][.RSC-Error][EXIT]tNNNN/. .??<NX-_/.N6X/. .??<NX-_ .? .? .? .?/.N\X0H-@0H-@0H-@0H-@/. .??<NX-_ .? .? .? . ?/.N\X0H-@ 0H-@0H-@0H-@/. .??<NX-_ .0? .,? .(? .$?/. N\X0H-@$0H-@(0H-@,0H-@0/.8 .4??<NX-_8 .H? .D? .@? .N&[2][ Zu wenig |Speicherplatz][Ende]tNNN .мN-@ <N-@pN-@ .N-@ .".H4H´f iHP`LN<-@NDN(NDNxv$<ڢ*r$< NP ./p/0X .0fN. .4fN4x .8fNYN .<fN] .@f/<N=X .Df/NCH-2502 Biel, Hheweg 5/?/.d/.NtON-15/?/.p/.NtON-7.236/?/.t/.NtON47.14/?/.x/.NtON-47.05/?/.|/.NtON0/?/./.NtON92.7/?/./.NtOr/?/.l/.NtO/.?<?< .? .? .? . ? .h?NONu .d/ ./NڠP6$/N tNL$NtAd2N6$N.STONENP+mlhNTpNNtv(.*.BCSDSENXNStandortdatei abspeichern/? ."爐r H4H´f iHP`LN  @ Юt-@ .@ @ -@$.".pNAB  @ Юt-@ .@ @ -@$.".pNAF  @ Юt-@ .@ @ -@$.".pNAJ  @ Юt-@ .@ @ -@$.".pNpN/<N>Xp-@D?<NTNuN9F+mlhJgNu .d/ ./NڠP6$/N tNL$NtAd2N6$N.BERNENP+mlhNTpNNtv(.*.BCSDSENXNBerechnungsdatei abspeichern/? ."爐r H4H´f iHP`LN  @ Юt-@ .@ @ -@$.".pNAB  @ Юt-@ .@ @ -@$.".pNAF  @ Юt-@ .@ @ -@$.".pNAJ  @ Юt-@ .@ @ -@$.".pNpN?<NTNu-_`NuCA`/!Hzp-@ .`JgNޚ6$N*.INFNENP+mlhN SONNEUHR.INFENP+mlhp/CNl/?CNl/?NO /?N܄O F+mlhJgp-@`rENP+mlh+mlhNTpNNtv(.*.BCSDSENXNEinstellungsdatei laden/? ."爐r H4H´f iHP`LN-@@pN=A-@pN=A-@pN=A-@Np/2.6 .8?/NO /?/./.8NtO+mlhp/2.> .@?/NO /?/./.8NtO+mlhp/2. .?/NO /?/./.8NtO+mlhp/2. .?/NO /?/./.8NtO+mlhp/2. .?/NO /?/./.8NtO+mlhpN`: .`Jg0Nޚ6$N*.STONENP+mlhNޚ6$N*.DOONENP+mlhNޚ6$N*.BERNENP+mlhp-@p-@p#-@N 0.5/?/./.PNtON 0.9/?/./.PNtON 1/?/./.PNtO/.8?<?< .H? .D? .@? .$<vH06.<$.>2.< .>N,L N N=AB-@D6.B$.Dp2<NTf2.B .DNN=AH-@J ./ ./NڠPNLN=AN-@P+mlh6.N$.P2.H .JNN,N$ENP+mlhr2.SE0*AdpR@NENP+mlhCNl/?/.l/.NtO+mlh/. .? .? .? . ??< .l?NO".IJ\W .Ȱ\WAHHJg .İ\f/<N>X`p-@D/.?<?< .? .? .? . ? .\?NO .? .? .? . ?/<NO .? .? .? . ?/<NO Nu`-_\Nu/.\Hz .t/ ./NڠP6$/N tNL$NtAd2ENP+mlhCNl/?/./.NtO+mlh .x/ ./NڠP6$/N tNL$NtAd2ENP+mlhCNl/?/./.NtO+mlh .? .? .? .?/<NO .? .? .? .?/<NO /. .? .? .? .??<?<NO .\?/. .?Nn\0H-@\ .԰\f/././. ./ ./NڠP/?N؊\-_-_-_+mlh ./ ./NڠP6$/N tNL$NENP+mlhCNltSBHkЂBdBAtAd2NL*6$H4CNltSBHkЂBdBAtAd2NL*6$ <r xNL,NN=A<-@>+mlh ./ ./N*PSf2.< .>N=A<-@>+mlh ./ ./N*PSf6.<$.> <rN =A<-@>+mlh ./ ./NڠPNLN=AT-@V+mlh ./ ./NڠPNLN=A*-@,+mlh .N$6H06.<$.> <r NL N=AZ-@\ ./ ./2.Z .\?/NO=A`-@b+mlh6.`$.b ?NX-@N .FJg6N+mlhND6$rNVNJVAHHJg+mlh".F$. .JgNԊNu`+_lNu/-l+mhlHz`-_Nu/.Hz/./.H/.DNN|-_D-_H-_ .H? .D? .@? ."Jp/ .ПЀЀ"JV$n>"Jp/ .ПЀЀ JVAHHJg\ .N$6H0$n:"Jp/ .ПЀЀA6$2. .N,L N=A-@ .N$6H0$n6"Jp/ .ПЀЀA6$2. .N,L N =A-@ .N$6H0$n:"Jp/ .ПЀЀA6$2. .N,L N=A-@ .N$6H0$n6"Jp/ .ПЀЀA6$2. .N,L N =A-@A?/A?/A?/A?/N2O .R-@o2&_+mlh . / ./N*PSfp-@p/ &@ .` . / .Ю S/N*PSffp-@p-@p/ &@ .`D .N$6H0$n."J ./ .ПЀЀA6$2. .N,L N=A-@ .N$6H0$n*"J ./ .ПЀЀA6$2. .N,L N =A-@$n2"J ./ .ПЀЀ Jgv .JgN .Jg&A?/A?/NO p-@`A?/A?/N҄O `A?/A?/NO `p-@ .R-@o&_+mlh .R-@oh&_+mlh . / ./N*PSfp-@p/ &@ .`z . / .ЮS/N*PSfJp-@p-@p#/ &@ .`D .N$6H0$nF"J ./ .ПЀЀA6$2. .N,L N=A-@ .N$6H0$nB"J ./ .ПЀЀA6$2. .N,L N =A-@$nJ"J ./ .ПЀЀ Jgv .JgN .Jg&A?/A?/NO p-@`A?/A?/N҄O `A?/A?/NO `p-@ .R-@o&_ . / ./N*P"SWHH .F+mlhJg .N$6H0$nF"Jp/ .ПЀЀA6$2. .N,L N=A-@ .N$6H0$nB"Jp/ .ПЀЀA6$2. .N,L N =A-@A?/A?/N҄O +mlh .R-@o&_+mlh . / ./N*PSfp-@p/ &@ .` .мrNHЮ$-@ . / . /N*PSfNp-@p/ &@ .`2 .^-@(r(]p(^AHHJg$n>"J ./ .(ПЀЀ"JV$n>"J .R/ .(SПЀЀ JVAHHJg .N$6H0$n:"J ./ .(ПЀЀA6$2. .N,L N=A-@ .N$6H0$n6"J ./ .(ПЀЀA6$2. .N,L N =A-@ .N$6H0$n:"J .R/ .(SПЀЀA6$2. .N,L N=A-@ .N$6H0$n6"J .R/ .(SПЀЀA6$2. .N,L N =A-@ .Jg0A?/A?/A?/A?/N2O`6A?/A?/NO A?/A?/NO .R-@o&_+mlh .R-@on&_+mlh . / .,/N*PSfp-@p/ &@ .` .0м-@ . / . /N*PSfLp-@p/ &@ .`0pЮ-@4J4^p4^AHHJg$n>"J ./ .4ПЀЀ"JV$n>"J .R/ .4RПЀЀ JVAHHJg .N$6H0$n:"J ./ .4ПЀЀA6$2. .N,L N=A-@ .N$6H0$n6"J ./ .4ПЀЀA6$2. .N,L N =A-@ .N$6H0$n:"J .R/ .4RПЀЀA6$2. .N,L N=A-@ .N$6H0$n6"J .R/ .4RПЀЀA6$2. .N,L N =A-@ .Jg0A?/A?/A?/A?/N2O`6A?/A?/NO A?/A?/NO .R-@o&_+mlh .R-@ov&_+mlhNu-_8NuCA8/!HzN9F+mlhJgNuN:"F+mlhJgNup-@ . ."J ./ .ПЀЀ Jg$n6"J ./ .ПЀЀA2 ?/N$\/?$n:"J ./ .ПЀЀA2 ?/N$\/? .N /?NO+mlhN> . . ."J ./ .ПЀЀp$ .R-@o&_p-@p#/ &@ .`v$nB"J ./ .ПЀЀ4$$nF"J ./ .ПЀЀ4$$nJ"J ./ .ПЀЀp$ .R-@o&_ .R-@oB&_=|-|aG =|-|h=| -| .p/ ./NڠPNLN=A-@+mlh .t/ ./NڠPNLN=A-@+mlh .x/ ./NڠPNLN=A*-@,+mlh .|/ ./NڠPNLN=A$-@&+mlh ./ ./NڠPNLN=A0-@2+mlh ./ ./NڠPNLN=AN-@P+mlh/./.H/.hNX-_HXpHf0 .l/ ./NڠPNLN=A-@+mlh`CAN2"v$<ڢ*2.6 .8N6$2. .NN,6$H02.6 .8N6$2. .NN,6$2. .NN,L N=A-@2.6 .8N6$2. .NN,=A&-@($<vH06.<$.>2.< .>N,L N N=AB-@D6.B$.Dp2<NTfBN+[1][Division durch| Null ][Abbruch]tNp-@l`"6.<$.>2.B .DNN=AH-@J .lJgN$$<v2. .N,6$2.H .JN =A,-@.N&CA22"2. .N6$2.6 .8NN,6$H02. .N6$2. .NN,6$2.6 .8NN,L N=A-@2. .N6$2. .NN,=A&-@(N&CA22"p-@p/ &@ .`n6. $."p2<NTlp-@6. $."p2<NTmp-@CZA 2"N2. ."JgA=A -@" .R-@ܰo&_p-@6.*$., <rN6$H06.*$., <rNL N4N 6$| <ֿrNTo-@@$<vH06.$.2.> .@UAh2<pNN,L NN,=AD-@F2.8 .:N=A-@2.8 .:N6$2. ."NN,=A&-@(N&C A22"6.D$.FH06.$.2.D .FNN,L N =AJ-@L6.$. 2. .N,6$2.J .LN6$2. .N NN=AP-@R2.8 .:N6$2. ."NN,=A<-@>$<vH06.<$.>2.< .>N,L N N=AB-@D6.B$.Dp2<NTfBN+[1][Division durch| Null ][Abbruch]tNp-@l`"6.<$.>2.B .DNN=AZ-@\ .lJgN$NR .Pм -@Po&_p-@Dp-@p/ &@ .`p-@Tp-@p/ &@ .`8$n>"J ./ .ПЀЀ Jf p-@T` .R-@ܰo&_ .TFJg@/. ?<?< .H? .D? .@? ."J ./ .(ПЀЀ"JV$n>"J .R/ .(SПЀЀ JVAHHJgRX .R-@ot&_ .мrNHЮ$-@ pXl:/. ?<?< .H? .D? .@? ."J ./ .4ПЀЀ"JV$n>"J ./ .4RПЀЀ JVAHHJgRX .R-@ox&_ .0м-@ pXl:/. ?<?< .H? .D? .@? ."J ./ .\ПЀЀ$\pfh$nB"J ./ .\ПЀЀA4$$nF"J ./ .\ПЀЀA&4$$nJ"J ./ .\ПЀЀ$\ .\R-@\o&_NuC(Ar3#!1Al3#!1Al!1NuCAf?/!1Al?/!1Ar?/!1Hz`\A!1AB!1A,!1A!1A!1A!1AP!1A!1A!1A!1A!1NuAz?/A?/A?/A?/AJ?/A?/A~?/A?/A&?/A$<vH06.<$.>2.< .>N,L N N=A-@$<v2.z .|N6$H06.<$.>2. .NL NN,=Ar-@t$<v 2.z .|N6$H06.&$.(H06.$.2. .NL NL NN,=Al-@n6.l$.np2<NTo6.l$.n <r N=Al-@nNu`F-_-_A`!1+_lNuC/-l+mhlAZ?/!1A/!A/!Hz`-_-_d-_A!1-_`Nu/.`A?//./.d/.Hz2.Z .\N4N"$. ԂԀԀ .&H@'H@B@'ЃЂЁ-@`=| -| .мh-@ .R-@dpm Sp Ѯd hׅ`m .мXrdH4H´f iHP`LN<-@6.$. <r N6$ .NN 6$ .rH4H´f iHP$`LN?NXpNu`+_lNu/-l+mhlHz`A*1"_! #-_Nu/.A$$X/ %?B`! Hz+mlhp?NT-@N t@NLE$NP+mlhA$" A"p@Ѝм @ Ё-@+mlhp? .H? .H@H?pG?NPC$Nl6$pNHN6$pNHxNT"SpE$NE$NP+mlh .мANH6$N:N6$C$NlN6$N\NE$NP+mlhC$NlNu+mlhp-@p -@ p-@p-@p-@p-@p-@ p-@$p-@Xp!-@(p"-@,p$-@0p&-@4p)-@8p*-@ . @". "A"tp娳 "<r$<^&<n(<V*<bpN"< Z$< ^&<f(<-V*<jpdN8Nu"< Z$<^&<f(<V*<jpeN8Nu _1NuC n^?/1Hz"< Z$<^&<f(<V*<jpzN8Nu"< Z$<^&<f(<V*<jp{N8Nu n^0"< Z$<^&<f(<V*<jpTN8NuNpNh $*0 6!<"@#@$@%&'()*+,-8.D/d0j1n2n3t456789V:p;<=>,?p@ABC,DFEFGHIJKLJMzNONPTQxRST$U.V.W@XNY^Zj[\]^_`abPcde f g h "i "j "k fl fm fn o p q r s <t Hu Nv Nw Zx hy hz t{ z| z} ~     " " . 4 4 @ F F R ` ` l z z     < d 4 6 6 L R \ n2RX6`r"V4TvX^dNbJNz     VZjpv|f|| !"#$%&'(&)6*D+D,V-f.t/t0123456789:;<=&>4?4@FAVBdCdDvEFGHIJKLMNOPQ*R0S6TTUVWXYZ0[B\B]T^d_r`rabcdefghijklmn$o2p2qDrTsbtbutvwxyz{|}~",rXx~Nv  L t   !,!>!r!!"."d"""""# #0#V#h###$$<$p$$$$%%%%%%%4%:%@%^%%&& &&T&''6'j'''((N(f(())6)j)p)p)r)r)r))))* *"*"*P*x*****+&+P+,,D,Z,,,,--f------.2.Z....... /> /b / / //00 0J01121n1112,2X2233*3R 3!3"3#3$3%4&&4N'4v(4x)4x*4x+4,4-4.5/50515625V35n455565758596:6,;6D<6x=6>6?6@6A6B6C7 D7<E7@F7tG7H7I7J7K7L7M8N8BO8FP8zQ8R8S8T8U9V9W9X9BY9jZ9[9\9]9^9_9`:a:b:c:d:e:0f:Bg:Nh:i:j:k:l:m:n:o:p;&q;Nr;vs;t;u;v<w=f========>>@>>>>>>??@?v???@@4@@@@@@AAxAAAAAAAAAB<B~BCCC$CTCxCCDDDDDDFDFDdDfDfD~DDDDE,E,ELElEEEF8FFG G:GjGjGvGHHHHVHHII8IhIhItIJJ>JtJJJJJKK*KRKVKfKfKKLL6L6LLLLLM*M`MfMMMMMN"NJNZN^N^NNNO O" OF O^ O O OOPP4P4P6P6PPPQ QTQpQQR*RpRpRt R!R"R#R$R%R&S 'Sb(S|)S*T+TH,T-T.T/U.0Up1U2Vb3V4W5W6W&7W&8W89W>:W;W<X=Xl>X?Y @Y AY2BY6CY<DYJEYNFYNGYNHY`IYvJYKYLYMYNZ"OZvPZQZRZSZTZUZV[ W[*X[<Y[NZ[b[[d\[d][^[_\ `\Na\b]|c]d]e]f]g]h]i]j^k^l^,m^,n^@o^p^q^r^s^t^u_v_>w_x`y`z`{`|a}aV~aabbLbjbbbc<clcccccd d dd6dZdbddddee,eeff f2f6f<fJf~f~ffgBg~ghdi(idiri|i|iiiijjj.jbjhjtjjjk$k<kTkvkllpl~l~lllllllmmnmmmmnn<nVnjnpnnnoBoLooooooooop p(pppqqTqqqqqqrr0r6rJrrssss<s@sZsZs^sxsxs|ssssssss t t t th ttttu uu*u*u.uHuHuLuRuRuduuv.vH vH!vH"v`#v`$v%v&v'v(v)v*w+wT,w-w.xB/x0x1x2x3y4y5y6y7y8y9y*:y*;yJ<y^=yp>y?y@yAyBzCzdDzE{F{VG{`H{I{J{K{L{M{N{O{P{Q{R{S{T| U| V|6W|BX|ZY|Z|[}\}Z]}^~_~h`~a~b~cdefghiBjlkl"m6nHoHpRqXrstuvw$x8yz{|}~"<P^d(<>>>Pf8|~~XjB\z**\ll $FZx||&,006688NX^r"4^0Zt~P(P   6 < H:FLdv| $ !"#$%X&'()*+`,-./0122324B5L6b7h8h9h:|;<=>?@ABXCXDjEjF~GHIJKLM NZOZPlQlRSTUVWXYZ[*\B]L^_`abcdefgh injrkrlrmnopqr s tu$v$w&x&y&z<{|}~ d`l"rR(&nVj.<|NN^r$.....$fZ*4<  8  4>|.:DHRRPbb:L f    R`bfpp rl !"#$%B&H'^(z)*+,-.4/F0F1d2x34506n7r89:;<=>?@ABCD^EFGHJIXJKLZM^NhOhP˜QRjSÀTâUV WbXĤYİZĺ[ľ\]^_8`Navbňcdef gHhLiƆjƊkƘlƘm6nHoxp~qǀrǀst uvvȞwxyzɨ{|F}ʬ~`x "&00Vl̪ (lͲJ\nϼ JN\\zЈъќprrҤjBDDDԈԊԊԊRTTTՖ՘՘՘ &nF׎פפ ``*\^^٨".Dڌڎڎ,8Ndx۬۰Ljjܺ:^݂ݦݮݸttx|ތތސ ސ ި   (Hߊ $ *!0"6#<$B%H&N'T(Z)`*f+l,r-x.~/0123456789:;<=>?@ABCDEFGHI J&K,L2M8N>ODPJQPRVS\TbUhVnWtXzYZ[\]^_`abcdefghijklmnop qrst"u(v.w4x:y@zF{L|R}X~^dffjjjRn6@b DFF(00Fbz@Jnpp x*4XZZZ8:: DFFz .RTTvRZr&4br      "    022Jnppp !"BERECHNU$&5-#   s,kh-k # 25506H )  &8%&{(7" &: 17%c   2     ):#p!+$  C%% ]5.$ "EECA  (  '5hX&: -!:  {  ' #%  %'   X D04#$k! M1 TT! M1 OW2%-#[f-'.&E'|H/ H*27f 1 (g# #  )  )----,c !3  3 !  3 "1f<u>"#>S5gb # 9"F< pB"""aS|y|.AP@$+3  8(8$ (,` , Datei Berechnungen AusgabeSonnenuhr 1.2 Sonnenuhr 1.2-------------------- Desk-Zubehr 1 Desk-Zubehr 2 Desk-Zubehr 3 Desk-Zubehr 4 Desk-Zubehr 5 Desk-Zubehr 6 Standort laden Standort speichern--------------------------- Berechnung laden Berechnung speichern--------------------------- Einstellungen laden Einstellungen speichern--------------------------- Standort eingeben Sonnenuhr berechnen----------------------- Sonnenazimut----------------------- Schattenberechnung--auf Drucker--------- Sonnenuhrzeichnung zusammensetzbare Sonnenuhrzeichnung Koordinaten Beschreibung--auf Bildschirm------ Sonnenuhrzeichnung Koordinaten Beschreibung--auf Datei----------- Bild abspeichernEingabe der Standortdaten--------------------------------Name: ________________________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX------Lnge der Zeitzone: ______ westl. pos.xxxxxx------Geographische Lnge des Ortes: ______ westl. pos.xxxxxx------Geographische Breite des Ortes: ______ nrdl. pos.xxxxxx------Azimut der Wandnormalen: ______ von S -> Wxxxxxx------Elevation der Wandnormalen: ______ rekli. pos.xxxxxx------Gnomonlnge: ______ mmxxxxxx------Gnomonlnge': ______ mmxxxxxxnach MichnikOKBerechnenS o n n e n u h r 1.2Grundprogramm zur Berechnung derKoordinatenpunktevon Heinz Schilt aus seinem BuchE B E N E S O N N E N U H R E Nverstehen und planenberechnen undbauenBESTELLUNG DURCH EINZAHLUNG VON SFR. 23.- FUR HEINZ SCHILTHOHEWEG 5 CH-2502 BIEL POSTCHECK NR. 25-314-2Atari ST Version mit Graphikdarstellungund restlichen Funktionenvon Daniel Roth, (pd) 1990 sinccom softwareBrcker Mauspfad 448, D-5000 Kln 91OMIKRON BASICZeichnung mitmittlerer Zeitwahrer Zeit123456789101112131415161718192021222324123456789101112131415161718192021222324babylonischen Stundenitalienischen Stunden123456789101112131415161718192021222324123456789101112131415161718192021222324SonnenwendenTag- und NachtgleicheMonatslinienpunktiertverbundenbeziffertweiterDruckerparameter120*144240*2169 Nadler180*180360*180360*360 NEC360*360 EPSON24 NadlerHP-LaserJetHP-DeskJetCANONEPSONLaserGnomon:horizontalvertikalAusma in oder :PunktenZoll----horizontal: ____XXXX----vertikal: ____XXXX----Linker Rand in Zoll: ____XXXX----Oberer Rand in Zoll: ____XXXXSeitenverhltnis-------(horizontal zu vertikal): _______XXXXXXXAbbruchFF sendenweitersonstige Parameter--------relative Gnomonposition (horizontal): ________XXXXXXXX--------relative Gnomonposition (vertikal): ________XXXXXXXX--------Vergrerungsfaktor: ________XXXXXXXXAbbruchOKzusammensetzbare Sonnenuhrzeichnungauf Drucker mit RandmarkierungenBilder______999 zum ZusammensetzenAbbruchDrucken!Berechnung des Sonnenazimuts------geogr. Lnge: ______ westl. pos.XXXXXX------geogr. Breite: ______ nrdl. pos.XXXXXX____Zeit: __:__9999MEZMESZUT________Datum: __.__.____99999999_____Hhe: _____ XXXXX______Azimut: ______ von S -> WXXXXXXAusgangBerechnenEingabe derSchattenlngeStabdickeoder der_____________Schattenlnge: _____________XXXXXXXXXXXXX_____________Stabdicke: _____________XXXXXXXXXXXXXAusgangBerechnen R#??0p`c6 06c0 @0`Ç$H$$$$$$$$H$#$ @a!'5(5/6k5ry45*,18d,;vw;x0=KL     7 < A ` v ~ "  4  # W 4 ` i  4   Q X {# $       7 }  PP! $ ' .  < EC  'P  S c x   ,?Vr '!& "#$%& -(4 )B*Y-+,,n*./0123 4 '   7&(&D4`4|434  +  + k  x '{* 62 @@     !   '   5   +   $ # ' +$ @ r7M [jvxz |  ~              65 !" # $%&'( ) *+,-. / 01 2 3 4 5  7 8  Q9P : ;"<$=& >( ?*@,A.B0C2 D5 E8F;G>HAID JG KJLM MP NS OV PY 8\ jRi S_TaUcVe Wg XiYkZm[o\q ]t ^w_z`}ab c de f g h i Q nkm lmjqopp n r ' .1(       %   -   9   G    Q  ] h n  t  z         \ x  e!   ' ! 7  33 3 ' -* #     <  #    !#  #  + #%# / 4 X"t#            > ' F# .  P  \ j t   ' ! 80h`%(((*8+"CH-2502 Biel, Hheweg 5" "-15" "-7.236" "47.14" "-47.05" "0" "92.7" "92.7" "-"  S O N N E N U H R 1 . 2 Mach es wie die Sonnenuhr, zhl' die heit'ren Stunden nur! Ein Programm zur Konstruktion von ebenen Sonnenuhren, welche wahre Zeit und mittlere Zeit anzeigen knnen, d.h. auch MEZ. Zustzliche Berechnung von italienischen und babylonischen Stunden. von Daniel Roth (pd) 1989,90 sinccom software Verbesserungsvorschlge und Fehlermitteilungen erwnscht! Adresse: Daniel Roth Brcker Mauspfad 448 D-5000 Kln 91 'Sonnenuhr 1.2' ist ein Public-Domain-Programm, es darf und soll also beliebig kopiert werden! Grundprogramm von Heinz Schilt, Hheweg 5, CH-2502 Biel aus seinem Buch: E B E N E S O N N E N U H R E N verstehen und planen berechnen und bauen Dieses Buch kann beim Autor direkt durch berweisung von Sfr. 23,- auf das Postchek-Konto Nr. 25-314-2, CH-2502 Biel bezogen werden. Wenn Sie in Ihrer Umgebung eine Sonnenuhr kennen, dann wrde ich mich sehr ber eine Mitteilung freuen, da ich Sonnenuhrenstandorte archiviere. Dies ist auch eine Aufgabe, die sich die Deutsche Gesellschaft fr Chronometrie e.V. / Arbeitskreis Sonnenuhren c/o Dr.-Ing. Hugo Philipp Dsseldorferstr. 73 D-4010 Hilden stellt. Dort kann man spezielle Sonnenuhren-Karteibltter bestellen, um darauf genaue Angaben zu einer Sonnenuhr machen zu knnen. Als Gegenleistung werden Ihnen Sonnenuhren in Ihrer Umgebung genannt. Ein wenig ber Sonnenuhren: --------------------------- Sonnenuhren gehen doch oft falsch, oder? Nein, jede richtig konstruierte Sonnenuhr zeigt ihre eigene Zeit immer richtig an. In den meisten Fllen handelt es sich bei 'ihrer' Zeit um die wahre Ortszeit. Bei diesem Zeitma ist es an dem Ort, an dem sie gilt, genau dann 12 Uhr mittags, wenn die Sonne im Sden ist und ihren hchsten Stand erreicht. Da dieser Mittag eine Folge der Erddrehung ist, tritt dieser sogenannte wahre Mittag an allen Orten verschiedener geographischer Lnge zu verschiedenen Zeitpunkten ein. Mit der Einfhrung genauer mechanischer Uhrwerke stellte man fest, da die Sonnenuhr nicht gleichmig luft. Vielmehr kommt es zu periodi- schen Abweichungen von fast einer Viertelstunde von einer genaugehenden Rder- uhr. Dies ist eine Folge der ungleichmigen Bahngeschwindigkeit der Erde um die Sonne. Im sonnennheren Teil luft die Erde aufgrund der hheren An- ziehungskraft der Sonne schneller und umgekehrt. Diese Gesetzmigkeit be- zeichnet man als das 2.Keplersche Gesetz. Denkt man sich nun eine Sonne, die immer gleichmig luft, so gelangt man zum Begriff der mittleren Sonne, welche eine mittlere Zeit bestimmt. In frheren Zeiten hatte jede Gemeinde ihre eigene, mittlere oder wahre Zeit, die durch eine Sonnenuhr z.B. an der Kirche oder dem Rathaus bestimmt wurde. Mit dem Aufkommen von schnellen Verkehrsmitteln wie der Eisenbahn ergaben sich bald Probleme, nmlich dann, wenn man bestimmen wollte wie lange ein Zug von A nach B und umgekehrt bentigt. Naturgem waren die auf Grundlage der Ortszeit bestimmten Zeitdauern fr Hin- und Rckfahrt nicht gleich. So entschlo man sich zur Einfhrung einer Zonenzeit, die mit der mittleren Ortszeit auf einem bestimmten Lngengrad bereinstimmt. Bei der MEZ (Mittlere Europische Zonen- zeit) bezieht man sich auf den 15. stlichen Lngengrad. brigens: Unsere mechanischen, elektrischen oder sonstwie betriebenen Uhren sind keine Zeitbestimmungsgerte. Sie dienen lediglich dazu eine einmal be- stimmte Zeit zu bewahren, was sie mit verschiedener Genauigkeit tun knnen. Eine Sonnenuhr hingegen gibt bei Sonnenschein die Zeit wirklich an - und das tut sie auch in hunderttausend Jahren noch, wenn andere Uhren lngst aus dem Rhythmus gekommen sind. Auch die Atomuhren werden im Prinzip nach einer Sonnenuhr gestellt. Nicht aber aus dem Grunde, da sie zu ungenau gingen, sondern weil die Erde sich ungleichmig schnell um ihre Achse dreht. Man fhrt dann eine Schaltsekunde ein, so wie Sylvester/Neujahr 1989/90. Eine Sonnenuhr zeigt diese Schaltsekunde jedoch automatisch an. ... und nachts? - Geht sie nach dem Mond! Das ist kein Witz, sondern wirklich mglich. Abgesehen davon, da der Mond tagsber genauso oft scheint wie nachts, stellt sich dabei aber noch das Problem der Bestimmung des Mondalters aus der Sichelgestalt. Wenn es genau Vollmond ist, dann zeigt jede Sonnenuhr auch in der Nacht die Zeit (abgesehen von einer Differenz von 12 Stunden) richtig an. Es gibt einige Sonnenuhren, an denen Tabellen angebracht sind, mit denen sich auch nachts bei Mondschein die Zeit bestimmen lt. Itali(eni)sche und babylonische Stunden Itali(eni)sche Stunden werden gezhlt ab Sonnenuntergang bis zum nchsten Sonnenuntergang. Aus der Differenz zu 24 lt sich so die verbleibende Tagzeit ermitteln. Umgekehrt werden die babylonischen Stunden ab Sonnenaufgang bis zum nchsten Sonnenaufgang gezhlt. Im schnen Tessin findet man heute noch zahlreiche Sonnenuhren mit itali(eni)schen Stunden. Ein Wanderer konnte an ihnen ablesen, ob der Tag noch gengend lang dauert um ber einen Pa in das nchste Tal zu gelangen. Heute allerdings wissen leider die wenigsten Leute noch etwas mit diesen Stunden anzufangen. Natrlich empfehle ich jedem die Bestellung des oben angegebenen Buches von Prof. Heinz Schilt, das nur bei ihm direkt bestellt werden kann. Darin wird auch die geometrische Konstruktion von Sonnenuhren erlutert, es wird ber Wassersonnenuhren, Sonnenkompasse und allerlei andere Spezialitten berichtet. Zum Programm: Gbe ich dieses Programm erst dann weiter, wenn alle Fehler ausgelscht und alles Programmierenswerte eingebaut wre, dann knnte man noch sehr lange darauf warten. Sollten Sie Gefallen an den Sonnenuhren gefunden haben, und eine eigene Sonnenuhr mit diesem Programm konstruieren wollen, dann empfehle ich Ihnen natrlich eine aktuelle Version bei mir anzufordern (bitte immer mit Rckporto). Wenn Sie meine Arbeit, die ich mir mit diesem Programm gemacht habe, honorieren mchten, dann knnen Sie mir eine Spende zukommen lassen: Daniel Roth, Brcker Mauspfad 448, D-5000 Kln 91 Kreissparkasse Kln (BLZ 370 502 99), Konto-Nr. 1 000 000 290 Als Geschenk erhalten Sie dann von mir die aktuellste Version und eine umfangreiche Liste mit Sonnenuhrenstandorten. Geplante Erweiterungen: -feinere Linienzeichnung, so da keine Kanten mehr in Erscheinung treten -Bezifferung, wahlweise mit perspektivischer Verzerrung -Datumslinien (Monatsbeginn, Tierkreis, spezielles Datum) -Berechnung der Tageslngen fr italienische und babylonische Stunden -Stundenlinien fr wahre Ortszeit bei der geogr. Lnge der Zeitzone -zustzliche Linien fr eine Sonnenuhr mit Polos -andere Zifferblattflchen, z.B. fr eine Zylinderuhr -Linien fr antike Stunden -Berechnung der Zeitgleichung -Ausdruck mittels GDOS -Erzeugen von .IMG-Dateien Programmbeschreibung: Nach dem Starten des Programms wird die Resource-Datei eingeladen, ohne die das Programm nicht funktionsfhig ist. Anschlieend wird versucht die Dateien 'SONNEUHR.INF', 'SONNEUHR.STO' und 'SONNEUHR.BER' einzuladen. Keine dieser Dateien wird jedoch zwingend bentigt. 'SONNEUHR.INF' enthlt verschiedene Einstellungen. 'SONNEUHR.STO' enthlt Daten ber einen Sonnenuhrenstandort. Und 'SONNEUHR.BER' schlielich beinhaltet eine fertig gerechnete Sonnenuhr. Bei den ersten beiden Dateien wird der Benutzer aufgefordert die entsprechende Ersatz- datei anzugeben, wenn die Standard-Dateien nicht gefunden worden sind. Diese Anforderungen des Programms kann man jedoch abbrechen - dann werden programmintern die Einstellungen vorgenommen. Wird die Datei mit der fertig berechneten Sonnenuhr nicht gefunden, so belt es das Programm dabei. Menu '' (unendlich) -------------------- Das Symbol stellt hier eine sogenannte Analemme (siehe Fachwrterver- zeichnis) dar. An erster Stelle dieses Pull-Down-Menus finden Sie den blichen Eintrag, der Programmautor etc. kommentiert. Im Anschlu daran finden Sie Ihre Accessories, deren Verwendung ohne Kom- plikationen verlaufen sollte. Menu 'Datei' ------------ Standort laden -------------- Damit wird die Mglichkeit gegeben die Daten, die zu einer Sonnenuhr notwendig sind, einzuladen. Standort speichern ------------------ Es werden die Standortdaten abgespeichert, die Sie im zweiten Menu unter 'Standort eingeben' eintragen knnen. Berechnung laden ---------------- Um die Wartezeit der Sonnenuhrenberechnung zu umgehen knnen Sie eine einmal abgespeicherte Berechnung wieder einladen. In der vorliegenden Version kennt das Programm dann aber nur die Koordinatenpunkte und nicht den Standort der Sonnenuhr, so da Sie vor dem Zeichnen einer Sonnenuhr immer daran erinnert werden, da Berechnung und Standortdaten eventuell nicht bereinstimmen (dieses Manko wird in einer spteren Version behoben sein). Berechnung speichern -------------------- Nachdem eine Sonnenuhr berchnet worden ist, knnen Sie mit diesem Menupunkt die berechneten Daten abspeichern. Einstellungen laden ------------------- Hier knnen Sie andere Einstellungsdateien laden, die Sie sich fr spezielle Anwendungen angelegt haben. Einstellungen speichern ----------------------- Es werden folgende Einstellungen in eine Datei mit der Endung '.INF' ge- schrieben: Dateipfade fr Standort-, Graphik- und Berechnungsdateien, relative Gnomonposition (siehe Fachwrterverzeichnis), Vergrerungsfaktor, Druckertyp, Auflsungen fr den Ausdruck, Angabe in Punkten oder Zoll, linker Rand, oberer Rand, sowie das Seitenverhltnis der Druckerauflsung. Menu 'Berechnung' ----------------- Standort eingeben ----------------- Es erscheint eine Dialogbox. Hier werden die zur vollstndigen Bestimmung einer Sonnenuhr auf einer irgendwie orientierten Ebene ntigen Daten eingegeben. Dazu gehren die geographischen Koordinaten des Standortes, sowie das Azimut (Himmelsrichtung) und die Elevation (Neigung) der Wand. Bei der Angabe des Azimuts der Wand, d.i. genauer das Azimut der Wandnormalen, also der Richtung die senkrecht von der Wand wegweist, wird von Sden ausgehend mit 0 Grad angefangen zu zhlen. Westen liegt dann bei 90 Grad, Norden bei 180 Grad und Osten bei 270 oder -90 Grad. Beachten Sie, da es sich hierbei um die astronomische Definition des Azimuts handelt, im Gegensatz zur nautischen, wo das Azimut von Norden ber Osten gezhlt wird. Reklinierende Elevation bezeichnet den Winkel um den sich eine Wand zurck- lehnt, diese ist positiv einzugeben. Neigt sich die Wand zum Betrachter, so mu die Elevation in Grad negativ eingegeben werden. Im Normalfall einer vertikalen Wand ist hier der Wert Null einzutragen. Soll ein Horizontalzifferblatt berechnet werden, so gibt man den Wert 90 Grad ein. Von der Dialogbox aus kann man die Berechnung der Koordinatenpunkte starten. Sonnenuhr berechnen ------------------- Ohne die Anzeige der Dialogbox mit den Standortangaben kann direkt die Berechnung der Koordinatenpunkte gestartet werden. Die Berchnung dauert unge- fhr 15 Sekunden. Sonnenazimut ------------ Nach Eingabe der geographischen Koordinaten, welche aus der Dialogbox zur Standortangabe bernommen wird, Datum und Uhrzeit knnen Azimut und Hhe der Sonne ber Horizont bestimmt werden. Dies ist hilfreich um das Azimut der Wandnormalen zu bestimmen. Dabei geht man so vor, da der Schatten einer lotrechten Linie auf einer genau horizontal liegenden Ebene in Bezug auf die Wand bestimmt wird. Durch einfache Geometrie erhlt man dann die genaue Orientierung der Wand. Von der Bestimmung mit einem Kompa ist abzuraten, da lokal unbekannte Miweisungen vorherrschen knnen. Schattenlnge ------------- Da die Sonne keine punktfrmige Lichtquelle ist, wirft jeder Krper in ihrem Licht einen Halb- und einen Kernschatten. Fr die Konstruktion einer Sonnenuhr ist es nun notwendig, da der Schattenstab ber den gesamten Zifferblattbereich noch einen Kernschatten wirft. Entstnde nur noch ein Halbschatten, so wre ein genaues Ablesen unter Umstnden nicht mehr mglich. Mit dieser Dialogbox hat man die Mglichkeit zum einen aus der Stabdicke die Lnge des Kernschattens zu berechnen, und zum anderen, sich fr eine vorgegebene Wegstrecke den Mindest- durchmesser fr einen schattenwerfenden Stab angeben zu lassen. Menu 'Ausgabe auf Drucker' -------------------------- Sonnenuhrzeichnung ------------------ Nach Anwahl dieses Menupunktes erscheint eine Dialogbox, in der Sie ver- schiedene Einstellungen fr die Ausgabe auf einen Drucker vornehemen knnen. Dazu gehrt die Angabe der Druckerauflsung. Wie Sie sehen, erreicht das Programm auf Neunnadlern eine Auflsung von 240*216 dpi^2 und auf 24-Nadlern 360*360 dpi^2. Da es sich in beiden Fllen nur um eine virtuelle Auflsung des Druckers handelt, da die Nadelabdrcke sich berlagern, ist es nicht notwendig diese hohen Auflsungen auch zu benutzen, zumal die in dieser Version vor- liegenden Hardcopyroutinen nicht gengend schnell sind. Am besten ist es, wenn Sie 120*144 dpi^2, bzw. 180*180 dpi^2 verwenden. Die Ansteuerung des Druckkopfes ist noch nicht druckweg-optimiert, d.h., da z.B. leere Graphikzeilen von Druckern mit unintelligenter Firmware abgefahren werden. Die Routinen fr Laserdrucker konnte ich noch nicht schreiben, da mir die ntigen Ansteuerungssequenzen fehlen (wer sie hat, der schreibe mir). Es ist angenehmer die Eingaben des Druckausmaes in Zoll einzugeben. Beachten Sie aber, da intern immer auf eine durch 16 teilbare Anzahl von entsprechenden Punkten aufgerundet wird. Um zu kontrollieren, ob die Lnge des Schattenstabes fr die Sonnenuhr der Eingabe entspricht, knnen Sie die Lnge des Schattenstabes horizontal und/oder vertikal mitzeichnen lassen. Eventuell knnen dann Korrekturen mit dem Eingabe- feld fr das Seitenverhltnis erzielt werden. Beachten Sie, da sich die Lnge des Schattenstabes aus dem Produkt der Schattenlnge in mm, die Sie bei den Standortangaben gemacht haben, und dem Vergrerungsfaktor ergibt, der in der Dialogbox zur Eingabe sonstiger Parameter vorgewhlt wird. Normalerweise sollte dieser den Wert 1 haben. Wird der Knopf 'FF senden' angewhlt, so wird nach dem kompletten Ausdruck einer Seite das Papier ausgeworfen. Nachdem die ntigen Angaben gemacht wurden erscheint eine Dialogbox, in der Sie eintragen knnen, welche Arten von Stunden mit welchen Stundenzahlen gezeichnet werden sollen. Benutzen Sie dabei das Fachwrterverzeichnis um zu entscheiden, was Sie angeben mchten. Die zeitaufwendige Darstellung dieser Dialogbox lt sich berspringen, indem man die Shift-Taste vor dem Erscheinen gedrckt hlt. Dabei werden die alten Einstellungen einfach bernommen. Weiter geht es mit einer Dialogbox, in die die relative Gnomonposition und der Vergrerungsfaktor eingetragen wird. Dies lt sich durch Drcken von Alternate berspringen. Bei der relativen Gnomonposition handelt es sich um die Stelle, in die der Schattenstab eingesetzt wird. Bei der hier behandelten Sonnenuhr wird der Schattenstab senkrecht zur Wand eingesetzt. Sein Ende dient als Punktmarkierung. Der Schattenendpunkt bestimmt also die Zeit. Die relative Position bewegt sich in der Regel im Intervall von 0 bis 1, wenn der Stabfu- punkt noch auf der Zeichnung sein soll. Nach dem Verlassen der letzten Dialogbox beginnt der Druckvorgang. Es wird nicht abgefragt, ob der Drucker empfangsbereit ist. Der Druckvorgang kann abgebrochen werden, wenn 'S' (groer Buchstabe) eingegeben wird. Dabei wird allerdings erst eine Alarmbox erscheinen nachdem eine komplette Druckzeile berechnet worden ist. Wenn Sie im Ausdruck an manchen Stellen kleine Lcken in der Linienfhrung erkennen, so ist dies nicht auf einen Fehler im Programm 'Sonnenuhr 1.2' zurckzufhren, sondern liegt vielmehr in einer mangelhaften Clipping-Routine des Betriebssystems. Dieser Fehler ist auch noch im neuen TOS 1.4 vorhanden. Eventuell werde ich bei Gelegenheit eine eigene Clipping-Routine in das Programm einbauen. zusammensetzbare Sonnenuhrzeichnung auf Drucker ----------------------------------------------- Steht man vor der Aufgabe an eine Hauswand eine Sonnenuhr anzubringen, so bentigt man eine Vorlage, die 1:1 auf die Wand bertragen werden kann. Dieses Programm ist in der Lage mehrere Bltter (bis zu 100) so auszudrucken, da sie zusammengesetzt eine groe Sonnenuhr ergeben. Nach Anwahl dieses Menupunktes geht es zuerst so vor sich wie beim darber- liegenden Menupunkt. Nach der Dialogbox zur Eingabe der relativen Gnomon- position erscheint eine zustzliche Dialogbox, in die eine Miniaturausgabe der Sonnenuhr gezeichnet wird. Darber liegt ein Raster, das Sie mit den Pfeil- knpfen verfeinern oder wieder vergrbern knnen. Jedes Rasterelement ent- spricht dem Blattformat, da Sie in der Dialogbox mit den Druckerparametern spezifiziert haben. Daher verkleinert sich auch das Bild der Uhr in der Dialogbox mit der Verfeinerung des Rasters. Damit nun nicht leere Bltter unntig ausgegeben werden, mssen Sie zuerst selektieren welche Seiten aus- gedruckt werden sollen. Dazu klicken Sie einfach mit der Maus auf das entsprechende Rasterelement. Damit nacher das Zusammenfgen der Bltter leichter fllt, kann man angeben, ob Randmarkierungen mit ausgegeben werden sollen. Um nachher das Puzzle zusammenzusetzen empfiehlt es sich wieder diese Dialogbox aufzurufen. Koordinaten auf Drucker ----------------------- Mchte man eine Sonnenuhr nicht ausdrucken lassen, so kann man sie auch per Hand aus den Koordinatenpaaren zeichnen. Die dazu ntigen Zahlen werden von diesem Menupunkt ausgedruckt. Vorsicht, es handelt sich um recht viele Daten. Der Ausdruck kann aber jederzeit durch Drcken von 'q' oder CTRL-C abgebrochen werden. Beschreibung auf Drucker ------------------------ Ausgabe dieser Beschreibung auf Drucker. Abbruch mit 'q' oder CTRL-C. Sonnenuhrzeichnung auf Bildschirm --------------------------------- Diese luft bis auf die Einstellung der Druckerparameter genauso ab, wie die Ausgabe einer Sonnenuhrzeichnung auf Drucker. Die Zeichnung auf dem Bildschirm entspricht vom Ausschnitt her nicht der der Druckerzeichnung. Um dennoch vorher absehen zu knnen wie die Zeichnung auf Drucker aussehen wird, mssen Sie zuerst die Dialogbox mit den Druckerparametern aufrufen. Danach bettigen Sie den Knopf zum Abbruch und rufen anschlieend den Menupunkt 'Sonnenuhrzeichnung auf Bildschirm' wieder auf. Bevor die Zeichnung angefertigt wird mu nun die Control-Taste gedrckt werden. Diese Prozedur ist notwendig, da das Programm bei der Ausgabe auf Bildschirm nicht wissen kann, welche Proportionen der Ausdruck auf Papier haben wird. Koordinaten auf Bildschirm -------------------------- Ausgabe der Koordinatenpunkte auf Bildschirm. Abbruch mit 'q' oder CTRL-C. Beschreibung auf Bildschirm --------------------------- Ausgabe dieser Beschreibung auf Bildschirm. Abbruch mit 'q' oder CTRL-C. Bild abspeichern ---------------- Nach Eingabe eines Dateinamens, unter dem die Graphik abgespeichert werden soll, wird die Sonnenuhr mit den zuvor gemachten Einstellungen direkt gezeich- net und abgespeichert. Drckt man vor dem Zeichnen wieder die Control-Taste, so erhlt man die Verhltnisse wie auf einer Druckerzeichnung. Bei der Ab- speicherung wird eine Datei von der Lnge des Bildschirmspeichers erzeugt. Sie lt sich z.B. mit DR Doodle oder jedem anderen vernnftigen Graphikprogramm einladen. Allerdings besteht keine besondere Veranlassung dazu eine solche Graphik abzuspeichern. In einer spteren Version soll die Abspeicherung u.a. im IMG- Format erfolgen, so da auch groe Sonnenuhren weiterverarbeitet werden knnen. Fachwrter: Analemme: Betrachtet man den wahren Stand der Sonne ber ein Jahr hinweg stets zur selben mittleren Zeit, so beschreibt dieser die Form einer Analemme (verzerrte Acht). Durch den Schatten- wurf wird diese Figur auf das Zifferblatt projiziert. Azimut: Richtung am Horizont, diese wird hier von Sden ber Westen in Grad gezhlt. antike Stunden: Im Altertum verwendete Tageseinteilung bei der Tag und Nacht in je 12 Stunden eingeteilt wurden. Antike Tag- und Nachtstunden sind daher i.A. ungleich lang. babylonische Stunden: Seit dem Sonnenaufgang verflossene Stundenzahl. itali(eni)sche Stunden: Seit dem Sonnenuntergang verflossene Stundenzahl. Aus der Differenz zwischen 24 und der italienischen Zeit ergibt sich die Zeit bis zum nchsten Sonnenuntergang. Ekliptik: Die Ebene der Erdbahn schneidet die Himmelskugel in der Ekliptik. Als Folge davon luft die wahre Sonne scheinbar auf dieser Linie. Gnomon: Der Gnomon ist der Schattenwerfer einer Sonnenuhr. Im Programm wird der Schatten fr einen Punkt berechnet, welcher sich senkrecht ber der gezeichneten Markierung im Abstand der Gnomonlnge befinden mu. Der Punkt kann Ende eines Stabes sein. Polos: Steht der schattenwerfende Stab einer Sonnenuhr parallel zur Erdachse, so bezeichnet man ihn auch als Polos. wahre Sonne: Bezeichnung fr den realen Lauf der Sonne in der Ekliptik. Dieser ist ungleichmig, da die Erde sich auf einer Ellipsenbahn um die Sonne bewegt. Nach dem dem 2. Keplerschen Gesetz luft ein Krper auf dem zentralkrper-nheren Teil der Ellipse schneller als auf dem entfernteren Teil. mittlere Sonne: Im Gegensatz zur wahren Sonne beschreibt die (fiktive) mittlere Sonne eine gleichfrmige Bewegung auf dem Himmelsquator. Unsere mechanischen Uhren richten sich nach der mittleren Sonne. Sonnenwenden: Am 21.Dezember ist Wintersonnenwende - die Sonne hat dann ihre sdlichste Position erreicht. Ihre Mittagshhe ist auf der Nordhalbkugel dann am geringsten. Am 21.Juni ist Sommer- sonnenwende - entsprechend hat die Sonne ihre nrdlichste Position und erreicht auf der Nordhalbkugel ihren hchsten Mittagsstand. Tag- und Nachtgleiche: Am 21.Mrz und am 23.September sind Tag und Nacht von gleicher Lnge. Der Schattenpunkt einer Sonnenuhr beschreibt dann auf der Zifferblattflche i.A. eine Gerade. An allen anderen Tagen beschreibt der Schatten mehr oder weniger stark gekrmmte Hyperbeln (die Gerade ist eine entartete Hyperbel). wahre Zeit: Diese wird durch die wahre Sonne gegeben. Der wahre Mittag tritt ein, wenn die Sonne ihren hchsten Stand erreicht. Sie steht dann genau im Sden und es ist 12 Uhr wahre Zeit. mittlere Zeit: Dies ist die Zeit nach der sich unser tgliches Leben richtet, also z.B. MEZ oder MESZ. Die mittlere Zeit wird durch die mittlere Sonne bestimmt. MEZ bezieht sich dabei auf den 15. stlichen Lngengrad. Zeitgleichung: Sie ist definiert als die Differenz zwischen wahrer Zeit und mittlerer Zeit. Ihre Entstehung beruht auf der verschieden schnellen Bewegung der Erde um die Sonne auf einer Ellipsen- bahn, sowie der Neigung des quators gegenber der Erdbahnebene. Kln, den 19.Mrz 1990 2ndSTar AstroPho 1.0 Chaos Codes Disketteninhaltdruckprogramm 1.2 FShell 1.11 HBKon Kalender 1.42 Sonnenuhr 1.2 StarTrek alle Programme von dANIEL rOTH Brcker Mauspfad 448 D-5000 Kln 91 Eine Diskette mit den aktuellen Versionen erhalten Sie gegen Einsendung von 10 DM als Scheck/Schein. Wer sich fr Astronomie interessiert kann bei obiger Adresse gegen Einsendung eines an sich selbst adressierten und frankierten Rckumschlags (DIN C5) und 1 DM in Briefmarken eine 12-seitige Liste ber Astronomie-PD-Software fr den Atari ST bestellen. . 5/.. STARFI12PRG 0e[CASABLANLOC VHAMBURG LOC KLONDON LOC dXRIO LOC YSTANDARDLOC K1957_NAVSKY @MRp N_CONST SKY -iX p STANDARDSKY -iX p PRINTOUTTBL N_CONST OIN l N_CONST INF  M1724IBMTBL F OINMAKE PRG Q$EVENTS TXT NEC_P6 TBL F "SAC_NAV SKY d$ README 'STANDARDOIN l (STARFI12INF k-]`T` Efv*oM1 m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNТHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN(ALNHz2?< NA\pdAxr0XQ)K\NN HH`xxxJrBjNuHz?<&NN\NFCAp$L Qp N29lrBlJpNN2pMN29@pdAr 0Q0tr Nр9lNNupealp`NuaN,Hz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHnD 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNԸpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@NԄ?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NԖJFkSFk&aQNԖ`Ha"FFaQL8Nj6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?Nj<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dGe GbFGNu G0dFGHANu~NuAd RdQRB6Ce0 C/jC C@j C jr0H@{0DH@Nur{0Nu{0NutNuJj(:,af AfBfNu&<x*<NHnr$g4jDk( b4<J@`@[H@0Nu4<Ѐ[Nu4<NuNuAd RdQRBBkBjDBJjDNupNufJj fJAkNupNdRdRrxaAffBWHNuJjDBDA@JBfprJjDEDD@JEfvxNuaغBffAVHNuCDEaEf fDUHNu]HNuCDEaEffDftNuCDEHHNpNhL8NL8NNpNhJjtNupN&NAXJ@jNNu~c0NQNuNJ@g,A,BBgHQ?<=NAP FJ@k??<>NAXtNutNu ::/rI IN<,(k$/<??<?N`NA Jj ?a0NNHrO INLA NN <ڢ2,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNupmrtA)HA)HNр(* 9AJA)H@@[000][ˈN Evz`* [g" ]g |g QSz` zQSpQ][ɈN Dvx`* [g" ]g |g QSx` xQSpQ]Bp4N2HNu*( INA)H @depd ae zb QB DNA\)H @ e` ae zb \gQBA BhNlpZN2A BP"`#|}NA"H0,tg"Hg \f`A\fS A ENAR@H`2QNu@9@JpNN2A R4RB`A Gf //o~4$_<F"OSG !H@Ь 2 Q)@RHRprNр"H2@N.0H@N.YdNHAN, NtaoR6 .fJS@gFt ao>AA .f4S@g04<;ark(AjA AbAPjAdYA??<+NAX FNta>k:Y6 :fRS@g*t;a(k$AA :fRS@g t;akIA??<-NAXNurxS@k0  bS@jrNu .g( :g"0  b DBb BdeS@jJANuSR@JANu2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NNP"l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNu?<?<NAXJgJgNAH@B pNA NuApNN$N8$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0NuNJ@gpNu _0HpN _0HpNp"_0HqNp"_0HqNE ұeHHQ0)N$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNWHNuNVHNuJhg NNNu Ihd*N8$E$RR@H`2QˈN ENu Ihd"*N8$E8*$R`"QˈN ENu2)A IJAfr4(Ae*RBBc0*SA?N8$E$R`QˈN ENup`(* 0(iN8$E 4R`Q$D 4R`QˈN DN ENua NuN IHPg"B  g &gNւJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNRB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<,NATANpN?<*NATANp N"H2X@N:0H@?N:AAN0g< @g4:8(g* b.&N8SD`Q0$C$RQLjN CNuNpN8p N?Hl?<GNAPA"HJf SNpC 0(gFd"P$I` *N8$E$R(S@jv A(Wf( ae zb Q DNur ,* N& ( EN C"Sj|Ac`H FfN6`RGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"NNN JfNup#`NJf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(NX)l g,vARC( g9CJ9|Lp!,N2 FPeNuA JpBQA/)H )l gBlJpN2B Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8N2p>L8Np*HEAJ0?C bL000H?A/.)HpN2LrHH/>Bl/,ff.f.ffNu l /.g&, ^`D&, N`>&, R`8&, V`2&, Z`,2,/4WAARA0,/6A hfRAS@f9A/,&, Jo ? CN 0`@k Ap0(/.NuA Nup)@JphN2LtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, N2"F QNu?S@k&8L &LeBLe,C`(A? fHa)_ 2TNuBlJ`l *bl ,bH .NN0S@k@>A PC/~. 0(JgRJ)@g1@CJ2fP2HP" &" *pdN20,r W1@AJ00 piN29|L@NpiN2 _CL""pe`9| LpiN29|LphN2LtH 2H/`SBSC@AHH/jP 6P/^P0<rtNрpapapapaL/jr`S@k6@ A 9PJg8BPpfN2pgN29| LphN29@JfdBlJa\Q 6BB 2`NuS@k @ A 9pJg a$Bp`NuHS&I. FV 7p&N|9l/h8,:,L/d4,pĴ@cS@9@p4,rŴAcBSA9Ar`8pJ, 7fnJ/^k0 Eg$2,/h pg  qfH9A/hpjNh` -NHN^L8N&<x*<NpNb&<x*<N&<x*<NND? -NHN^L8N&<x*<NpNX&<x*<N&<x*<NND? -NHN^L8N&<x*<NpNb&<x*<N&<x*<NND? -NHN^L8N&<x*<NpNX&<x*<N&<x*<NND?~N`N`>NqHmpVN"_NpJBgp/HmpvN"_NpJBgp$fN`L <"<Nr <N <"<NrANӲ&<x*<N&<x*<N&<x*<NpNDN <"<NrANӲ&<x*<N&<x*<N&<x*<NpNDNN NAN AN AN AN A~N AN ANӲANӚNANӚNANN^NANӚNJBfN`N^NANӚNAN`ANӲzNJBfNa N^NANӚNAN`ANӲvNNb&<x*<N~HANӲNXL8NHA NӲNXL8NHA NӲANӚNvNNb&<x*<N~L8NA~NA~NӲNߎA~NA~NӲN&<x*<NNߎA~NӚNjNNA~NA~NӲ&<x*<NHN^L8Nj&<x*<NA&NA~NӲzNۚJBfNbpBm NeANӲNbHA NӲNXL8NHA~NӲNbL8NjANANӲN&<x*<NJBfNc(ANӲ&<x*<NJBfNcA 0Nc"A 40NeANӲN&<x*<NNߎANӚNjNBANANӲ&<x*<NHN^L8NjANA,NӲzNJBfNeA NӲNbHANӲNbL8NjANANӲ&<x*<NJBfNdZA,NӲNHA2NӲNL8NJBfNdTANӲ&<x*<NANNepANӲN&<x*<NANANӲzNJBfNdANӲNߎANӚNjNANANӲ&<x*<NHN^L8NjANNe0ANӲN&<x*<N&<x*<NANANӲA&NӚNJBfNepANӲ&<x*<NANA,NӲzNJBfNeANӲ&<x*<NANNeA2NӲzNJBfNeANӲ&<x*<NANANӲzNJBfNf&ANӲ&<x*<NAN`ANӲ&<x*<NJBfNfn <r$<ANӚNAN`CA8 0N NAN A퀐N A>N A,NӲzNJBfNgA,NӲ&<x*<NA>NA>NӲA2NӚNANA>NӲA2NӚNA퀐NNgxA,NӲ&<x*<NA>NA2NӲBHA>NӲL8NANA2NӲA>NӚNA퀐NA퀐NӲANӚNJBfNgCAD 0C퀐AJ 0NgC퀐AD 0CAJ 0ADNӲ&<x*<NJBfNhADNӲ&<x*<NADNAJNӲ&<x*<NJBfNhXAJNӲ&<x*<NAJNADNӲzNpJBgp/AJNӲzNpJBgp$fNh+|NhBN NA NӲANӚNvNNb&<x*<N~APNӚNHANӲNXL8NjHA NӲNXL8NjANANӲzNpJBgp/ANӲ&<x*<NpJBgp$fNi~ANӲNߎANBANӲzNJBfNi+|ANӲ&<x*<NJBfNi+|N NAN AN AP zG0AhN CA퀐 0 -SgNj$A퀐 0 -RgNj6BmAP 0AhN -JgNlANӲN&<x*<NNߎANӚNjNANANӲ&<x*<NHN^L8NjNANANӲANӚNHA\NӲL8NHAbNӲL8NAVNAVNӲ&<x*<NpAVNAVNӲzNJBfNknAVNӲ&<x*<NAVN`AVNӲ&<x*<NJBfNk <r$<AVNӚNAVN`ANӲBHANӲL8NHA\NӲL8NHAbNӲL8NAhNAhNӲ&<x*<NpAhNAhNӲzNJBfNldAhNӲ&<x*<NAhN`AhNӲ&<x*<NJBfNl <r$<AhNӚNAhN`ANӲA퀐NӚNJBfNlAhCV  "002N NpNHPp\N"_NHPNHPp"_NV"_NHPN$.COR"_NCNXANNXJBfNmpiNHPAr"_N(pNN CNXpNNANpNN CNXpNNANNNn(N$Correction file for|HPNHPp"_NV"_NHPN$ doesn't exist !"_NCNXHxHmN0No Corrr"_ N+@BmBmN NpiNHPAr"_N(pNN CNXpNN CNXpNN CNXpNN CNXpNN CNXpNNA,NpNN CNXpNNA\NpNN CNXpNNANNN NAN |AN |A N |AN | -CfNC NXA N+@+| BB+|Np#r4NHm p"- "_NCNXHmp|N"_NJBfNoRNvBN -#r4NNo - mNoRNvNAN&R Nv - ovN NAN |AN |AN +|BA CNXHmA "_NJBfNpHmp"-"_NCNXHmp N"_NJBfNpHmA"_NCNXRNvHmp N"_NJBgAN쐭Nv+@ -JnNpHm -"_NVCNXNpA CNXN NAN A N AN |ACNXHmp\N"_N,+@ -JnNq\HmAN쐭Nv"_NVCNX -JfHmANNH <r$<L8NND"_N.CNXBpVAN/-A ClN/-A CrN/-N$No info available.CfNN`NqNqpiNHPAr"_N(pNV+@Np*N"-NJCNXHm -"_NHmANNH <r$<L8NND"_NVCNXBANJnNsH/-Hmp"_N.ClN/-Hmpr"_NCrN/-Hmpr"_NN CHN/-Hmpr"_NN CNNHmANNH <r$<L8NND"_NVCNXRNv` Please check if update is available before sending diskette !NNNJC I would appreciate to receive new .SKY and .OIN files, bug reports4NNNJ1 (exact circumstances and program version please)fNNNJ9 and tips about nice features to implement in the future.4NN0Author of Starfinder V fHPA"_NHPN$. :|D. Marxsen|Im Muehlengrund 6|D-2805 Stuhr 4"_NCNXHxHmN$OKr"_ N+@pN N Np NvN$ Load Data of Observation Place rN ZpNNNNNN< Select file :NpNHPN$\*.LOC"_NHPN$ STANDARD.LOCHPA""_NpANJnNNNNNJ Loading...NAn0N pN N Np NvN$ Save Data of Observation Place rN ZpNNNNNN<2Enter max. 8 chars long (shortcut of) placename : ArNpNHPp\N"_NHPA"_NHPN$.LOC"_NCNXBANNXJBfNHxN$"Name already exists.|Your choice ?HPN$Replace|Cancelr"_ N+@+| -SgNB -JfNNNNJ Saving...NpoNHPAr"_N(pNNJLOCTOWN4NpNAN&NpNN< LOCCOUNTRYNpNAN&NpNNJPHI4NpNA,NNpNN<LAMBDANpNA\NNpNN<VIEWNpNANNNpN N Np NvN$ Save Correction Data rN ZpNNNNNN<&Enter year data is valid for (YYYY) : ArNpNHPp\N"_NHPA"_NHPN$.COR"_NCNXBANNXJBfNT+|HxN0%File already exists.|What to do now ?4HPN$Replace|Cancelr"_ N+@ -SgNTB -JgNNNNNJ Saving...NpoNHPAr"_N(pNNJABINpNANNpNNJAMO4NpNANNNpN N Np NvN$ Load Object Data rN ZpNNNNNN< Select file :NpNHPN$\*.SKY"_NHPN$ STANDARD.SKYHPA""_NpANJnNNNNNJ Loading...NApN pN N NAdN AjN AN p NvN$ Save Object Data rN ZpNNNNNNJ#Enter max. 8 chars long filename : 4ArNpNHPp\N"_NHPA"_NHPN$.SKY"_NCNXBANNXJBfNHxN0#Name already exists.|Replace file ?4HPN$Replace|Cancelr"_ N+@ -UgN+| -JfNNNNJ Saving...NN$ CNXHmA"_NB -ClNNHPA "_NJBfN6N$ CjNXHmj -CHNlN"_NN$ CdNXHmd -CNNlN"_NHm -ClN"_NHP -CrN"_NHPAj"_NHPAd"_NCNXRNv`,Hm -/AN""_N@pN N NHxN$Do you really want|to exit ?HPN$Yes|Nor"_ N+@ -SgNNN NAN A큶N AtN A큼N AN A퀄N AN A6N AN AN ApN pNv -JgNFN$ General Data rN ZNnN0 Transmitting General Data rN ZpNNNprN -SgNACNXACNXNNCNXNCNXNNNNJ Location: 4AN&N< in AN&NNNNNJ? Phi Lambda Dec circumpol. Visibility border4N -SgNpNNJ Location: 4AN&N< in AN&NpNNpNNJ? Phi Lambda Dec circumpol. Visibility border4NC,An 0A{N Np NA4N& -SgNBpNp NA4N&C\An 0A{N NpN.A4N& -SgNpNpN.A4N&A,NӲzNJBfNA,NӲ&<x*<NAnNNA,NӲ&<x*<NAnNA{N A,NӲzNJBfNFHm4N0...90"_NHP <N"_NC4NXNvHm4N$...-90"_NHP <N"_NC4NXNpN.A4N& -SgNpNpN.A4N&CAn 0A{N Np.N.A4N&NNNNNJ- UTC Star-Time Aries PositionuN -SgNpNp.N.A4N&NpNNpNNJ- UTC Star-Time Aries PositioniNHmp"_N.HPN$h "_NHPHmpr"_N"_NHPN$m "_NHPHmp"_NV"_NHPpsN"_NCpNXNp NApN& -SgN(pNp NApN&AR~N CAn 0A{N AnNӲ&<x*< N&<x*<NpNڴAnNAnNӲ&<x*< N@AtNAtNӲ&<x*< NAnNӚNAnNAnNӲ&<x*<N@ANANӲ&<x*<NAnNӚNANNpN.AtNӲNN&N<h ANӲNN&N<m ANӲNN&psNNpN.A4N&NNNNN<* Date Julianic Date Year StatusNNp NAN&pN. -NNN&pN. -SgNpNpN.AtNӲNN&N<h ANӲNN&N<m ANӲNN&psNpNpN.A4N&NpNNpNN<* Date Julianic Date Year StatusNpNp NAN&pN. -NNN&pN. -SgN(NN<LeapN -SgN"pNN<LeapNN`NN<NormalN -SgN`pNN<NormalNNNNN<( Eq. of time Mean Noon Real NoonN -SgNpNNpNN<( Eq. of time Mean Noon Real NoonNANӲ&<x*<NpANANӲvNAnNAwN Np NA.N& -SgNdpNp NA.N&A\NӲ&<x*<Np&<x*<NAnNAnNӲzNJBfNAnNӲ&<x*<NAnNAwN NpN.A(N& -SgNpNpN.A(N&ANӲAnNӚNAnNAnNӲzNJBfNfAnNӲ&<x*<NAnNAnNӲ&<x*<NJBfN <r$<AnNӚNAnNAwN NpN.A(N&NNNNN<4 Sol RA Sol Dec Sol EL Sol AZN -SgNpNpN.A(N&NpNNpNN<4 Sol RA Sol Dec Sol EL Sol AZNCAb 0CbAn 0A{N AyN Np NA4N& -SgNpNp NA4N&CA2 0C2An 0A{N NpN.A4N& -SgN@pNpN.A4N&A`TN C&An 0A{N NpN.A4N& -SgNpNpN.A4N&C8An 0A{N Np.N.A4N&NNNNNJ; Sunrise Sunset Upper culmin. Lower culmin.!N -SgNpNp.N.A4N&NpNNpNNJ; Sunrise Sunset Upper culmin. Lower culmin.NAiN -JgN@CVAn 0AwN Np NA(N& -SgNpNp NA(N&ChAn 0AwN NpN.A(N& -SgN:pNpN.A(N&N -SgNNN< ~~ Permanent day ~~~~ -SgNpNN< ~~ Permanent day ~~~~NNN< ~~ Permanent night ~~ -SgNpNN< ~~ Permanent night ~~AfN CDAn 0A{N NpN.A4N& -SgNHpNpN.A4N&CJAn 0A{N Np.N.A4N&NNNNN< Luna-Sol-Angle Moonillum.N -SgNpNp.N.A4N&NpNNpNN< Luna-Sol-Angle Moonillum.N -NH NCNXNCNXpNpNprNAN&NprNAN&pNpAR~N Np(rNNJBase Parameters4NNp(rNNJObjects%NB -NzNۚpJBgp/ -NH <r$<L8NHtL8N NDClNHPp"_N.HPA "_NpJBgp$fN -JnN -NH <r$<L8NNDCHNlAbN -NH <r$<L8NNDCNNlA2NNCAb 0CA2 0A`TN C&An 0A{N A4C@NXA&NӲzNJBfN,+|N0B -$fN`C8An 0A{N A4CFNX -CTNlH -CZNlHA2N A8NӲHA&NӲHA2N /-A8NӲCTN/-A&NӲCZNRNvNCNXHmpN"_NgN A[hN `Np(rNNJObjectsNHmpN"_NgNF`pNppNDpN N NAN AN AvN pNvN0! Elevation / Azimuth Calculation rN ZpNNNNJE VT No EL AZ Name VT No EL AZ NameN -SgN6ACNXACNXNNNCNXNCNXAR~N +| -NH <r$<L8NNDClNHPp"_N.HPA "_NJBfN -NH <r$<L8NNDCHNlAbN -NH <r$<L8NNDCNNlA2NA`TN C&An 0A{N A4C@NX -NH <r$<L8NNDCZNlA&NӚNJBfN͒+| -NH <r$<L8NNDCZNlA&NӚNJBfN+| -NH <r$<L8NND/A&NӲCZNANӲA&NӚNJBfNB+|NFBC8An 0A{N A4CFNX -NH <r$<L8NNDClNCLNXAN RNvNCvNXHmvA "_NgN`HmvA "_NJBg$pN N NpNvN0 Culmination Angle Calculation rN ZpNNNNJE Cp No Upper Lower Name Cp No Upper Lower NameN+|B -NH <r$<L8NNDClNHPp"_N.HPA "_NJBfNЮ -NH <r$<L8NNDCNNlA2NAfN CDAn 0A{N A4C@NXCJAn 0A{N A4CFNX -NH <r$<L8NNDClNCLNXAN RNv`NHPA "_NJBgpN N NAN AN pNvN$ Rise / Set Calculation rN ZpNNNNJE No Rise Set Name No Rise Set NameNBB -SgNќACNXACNXNѴNCNXNCNXAR~N +| -NH <r$<L8NNDClNHPp"_N.HPA "_NJBfNӈ -NH <r$<L8NNDCHNlAbN -NH <r$<L8NNDCNNlA2NAiN -JgNCVAn 0AwN A(C@NXChAn 0AwN A(CFNXN> -SgNN$++++++++++++++++C@NXN2N$----------------C@NXA CFNX -NH <r$<L8NNDClNCLNXAN RNv`@NHPA "_NJBgpN N NA>>>4@22&bz<( zFXJ6f l$T.(B\V:(:Hh`ZrTL^L,<"LZr"$fx,,,       <Z *.0"J0"$2$&:P"P"HN"F~޸$(v ^b< LLjj@ x` (\hFZPb2JP>NAXJ@jNNu~c0NQNuNJ@g,A,BBgHQ?<=NAP FJ@k??<>NAXtNutNu ::/rI IN<,(k$/<??<?N`NA Jj ?a0NN$HrO INLA NN$ <ڢ2,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNupmrtA)HA)HNѰ(* 9AJA)H@@[000][ˈN Evz`* [g" ]g |g QSz` zQSpQ][ɈN Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NbHNu*( INA)H @depd ae zb QB DNA\)H @ e` ae zb \gQBA BhNpZNbA BP"`#|}NA"H0,tg"Hg \f`A\fS A ENAR@H`2QNu@9@JpNNbA R4RB`A Gf //o~4$_<F"OSG !H@Ь 2 Q)@RHRprNѰ"H2@N.0H@N.YdNHAN, NtaoR6 .fJS@gFt ao>AA .f4S@g04<;ark(AjA AbAPjAdYA??<+NAX FNta>k:Y6 :fLOCTOWN Hamburg LOCCOUNTRY FR Germany PHI 53.5 LAMBDA 10 VIEW 10 Nu .g( :g"0  b DBb BdeS@jJANuSR@JANu2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NNf"l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNu?<?<NAXJgJgNAH@B pNA NuApNN"$NN$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0NuNJ@gpNu _0HpN _0HpNp"_0HqNp"_0HqNE ұeHHQ0)N$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNWHNuNVHNuJhg NNNu Ihd*NN$E$RR@H`2QˈN ENu Ihd"*NN$E8*$R`"QˈN ENu2)A IJAfr4(Ae*RBBc0*SA?NN$E$R`QˈN ENup`(* 0(iNN$E 4R`Q$D 4R`QˈN DN ENua NuN IHPg"B  g &gNֲJBjt BNut`Rptr aeLOCTOWN London (Greenwich) LOCCOUNTRY Great Britain PHI 51.5 LAMBDA 0 VIEW 10 kN4RB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<,NATAN4pN?<*NATANp N"H2X@N:0H@?N:AAN0g< @g4:8(g* b.&NNSD`Q0$C$RQLjN CNuNpNNp N?Hl?<GNAPA"HJf SNpC 0(gFd"P$I` *NN$E$R(S@jv A(Wf( ae zb Q DNur ,* N& ( EN C"Sj|Ac`H FfN6`pNV+@Np*N"-N`CNnHm -"_NHmANN4H <r$<L8NDNt"_NlCNnBANJnNr/-Hmp"_NDCdN/-Hmpr"_NCjN/-Hmpr"_NN"C@N/-Hmpr"_NN"CFNHmANN4H <r$<L8NDNt"_NlCNnRNv`piNHPAr"_N>pNV+@Np*N"-N`CNnHm -"_NNNNNN` Configuring info :4NBANJn************************************ * Configuration table for PRINTOUT * ************************************ ************************************ * Lines beginning with a '*' * * contain remarks only, others * * contain data. No data line * * before conversion data may * * become deleted. * ************************************ * * This table set up by D. Marxsen * * Printer name : Brother M-1724L * Emulation-mode : IBM ( set II ) * ************************************ * All following data DECIMAL ! * * Separate codes with space. * * No space behind the last code * * in a line. * ************************************ * * Characters per line in comprimed mode : 131 * Characters per line in normal mode : 76 * * Printer control codes for... * * Superscript on 27 83 0 * Superscript off 27 84 * Line advance at comprimed mode 27 51 17 * Line advance at normal mode 27 51 30 * Condensed on (Here: 17 CPI) 27 15 * Condensed off (Here: 10 CPI) 27 18 * ************************************ * Now following: Conversion data. * * Data line format: * * First number: Atari-code. * e.g. Suppress LF-code: * Following numbers: Code sequence * type '10 0' * to be sent. * * Every Atari-code which is not * ( the code 0 gets ignored * mentioned gets directly sent * by most printers ) * to printer. * * Conversion data doesn't disturb * * printer control codes. * ************************************ * * Non-printables: Question-mark upside down. 1 168 2 168 3 168 4 168 5 168 6 168 7 168 8 168 9 168 * (Send LF) 11 168 * (Send FF) * (Send CR) 14 168 15 168 * Following LCDs converted to standard numbers 16 48 17 49 18 50 19 51 20 52 21 53 22 54 23 55 24 56 25 57 26 168 27 168 28 168 29 168 30 168 * Send code for the german esszet: 158 225 * End of table. &<x`QF` Efv*oM m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN(ALNHz2?< NA\pdAxr0XQ)K\NN JrBjNuHz?<&NN\N@CAp$L Qp N,9lrBlJpNN,pMN,9@pdAr 0Q0tr Nz9lNupealp`NuaN,Hz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@Nj?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</N|JFkSFk&aQN|`Ha"FFaQL8N6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dp `p ap Cpln<,(AL$I"vz x `gfURf~QjJFj4\Fk.aPHS&I.N``p???<NM\Qj&_Nu|HQ/g ??<@NAXXfNuJkp%NNu09p`pN @ddAgH`p`p9@(9@*BlNup`pN0<9@:, INtJ@g@8 FNt EdbAJfE @e4r$Wf"FANuPRN:LST:AUX:CON:MID:IKB:VID:,J@fC E& B Og& Rgl Ag@ Ug2 Ig $CpNp=`pNAXJ@jNNu~c0NzQNuvNl)@p `H@)@prtNzAHplrtNzB 2pNjpN^papaprapalpalpalpaTpaTpaTBp'a?<NNT@B){L9|0<rtNzpapap9@p`pvNlv`v`vj`v `v`v`v`?2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNuApN^Nf$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpN^p"_0HqN>p"_0HqN>(* 0(iN$E 4R`Q$D 4R`QˈNt DNt ENu?Hl?<GNAPA"HJf SN^p`pJ@gHzZ?<&NN\NuB?< NA\Av ACLElp"Jg X\QC"C!/:@?< NA\NuLH!NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A6@ Ni LHL|1R/:?< NApdK`HaJLxNNu)H9@Jp4N,P'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8NZ  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(NX"l`Yd&-KNN"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`& $Y8gHRDD*D%H8#$c2g# HRDD%H`p"l`Qd&&| NuN"l`QepZNNNCreating file EMPTY.OIN...N0poNNHPpNHPN \EMPTY.OIN"_Nr"_NpNNINFON0ANZBpUANNNWriting -NN&<x*<NN N . slot...4N0pNNNAMEN0ANZN`NqNqNNN...done.N0NNANBp ANpNN0N`NqNqNN(pJBfN~NFCluster C^NnA큘N/A큞N"N\ <r$<A큘NNDNt/ <r$<A큞NNDNt"N\A큘N&<x*<NHNt/A큞N&<x*<NHNt"N\ <r$<A큘NNDNt/ <r$<A큞NNDNt"N\ <r$<A큘NNDNt/A큞N&<x*<NHNt"N\ <r$<A큘NNDNt/A큞N&<x*<NHNt"N\A큘N&<x*<NHNt/ <r$<A큞NNDNt"N\A큘N&<x*<NHNt/ <r$<A큞NNDNt"N\A큘N&<x*<NHNt/A큞N"N\A큘N/A큞N&<x*<NHNt"N\NrHmN:SG "_NJBfNNF Spiral GalaxyC^Nn <r$<A큘NNDNt? <r$<================================================================= =========== Collection of future astronomic events ========== ================================================================= Created : 06-MAR-1990 Edited : 06-MAR-1990 Author : D. Marxsen This file is in a special format which is used with my own database program. This program will perhaps be available "public domain" in the future. ### Year Month Day Event ### 1990 APR 13 Mercury is at its brightest. To be seen about one hour after# sunset. MAY 24 Very thin lunar crescent. Western sky. JUL -- Saturn is very bright. Good visibilty of the rings. 29 Meteor shower coming from the southern sky. AUG 6 Lunar eclipse 68%. 11 Meteor shower (Perseides). 12 Conjunction of Venus and Jupiter. SEP 24 Best visibility of Mercury. OCT 20 Meteor shower coming from the southern sky. NOV 4 Mars is near the moon. 16 Meteor shower (Leonides). 27 Mars will be the brightest it will get until 2001. DEC 13 Meteor shower coming from east late in the evening. 1991 JUL 11 Total solar eclipse visible from california and Hawaii.# Lasting about 1.5 to 2 minutes. DEC 21 Lunar eclipse 9%. 1992 JUN 15 Lunar eclipse 69%. DEC 10 Lunar eclipse 100%. 1993 JUN 4 Lunar eclipse 100%. NOV 6 Mercury travels above the picture of the sun. 29 Lunar eclipse 100%. 1994 MAY 25 Lunar eclipse 28%. 1995 APR 15 Lunar eclipse 12%. 1996 APR 4 Lunar eclipse 100%. SEP 27 Lunar eclipse 100%. 1997 MAR 24 Lunar eclipse 93%. SEP 16 Lunar eclipse 100%. 1999 JUL 28 Lunar eclipse 42%. AUG 11 Solar eclipse 100%. Lasting from 10h37m57s to 10h39m29s UTC.# Visible from southern Germany. A prophecy of Nostradamus states# the end of the world at this date. So later events should# be meaningless... NOV 16 Meteor shower (Leonides). Possibly very strong. 2000 JAN 21 Lunar eclipse 100%. JUL 16 Lunar eclipse 100%. uter.NNp rNNR This program is public domain !NNN`I You are allowed to use and copy it as you want. If you have questions or%NNNRJ require more detailed information : Send a letter, but, please, include aNNN`K correctly stamped envelope with your address. For update include formatted!NNN`I diskette, envelope (as mentioned before) and DM 5,- in stamps or cheque.eNNNR> Please check if update is available before sending diskette !NNN`C I would appreciate to receive new .SKY and .OIN files, bug reports4NNN`1 (exact circumstances and program version please)fNNN`9 and tips about nice features to implement in the future.4NNFAuthor of Starfinder V fHPA"_NHPN:. :|D. Marxsen|************************************ * Configuration table for PRINTOUT * ************************************ ************************************ * Lines beginning with a '*' * * contain remarks only, others * * contain data. No data line * * before conversion data may * * become deleted. * ************************************ * * This table set up by Rdiger Lthy * * Printer name : NEC P6 * Emulation-mode : * ************************************ * All following data DECIMAL ! * * Separate codes with space. * * No space behind the last code * * in a line. * ************************************ * * Characters per line in comprimed mode : 120 * Characters per line in normal mode : 60 * * Printer control codes for... * * Superscript on 27 83 0 * Superscript off 27 84 * Line advance at comprimed mode 27 51 17 * Line advance at normal mode 27 51 30 * Condensed on (Here: 17 CPI) 27 15 * Condensed off (Here: 10 CPI) 18 * ************************************ * Now following: Conversion data. * * Data line format: * * First number: Atari-code. * e.g. Suppress LF-code: * Following numbers: Code sequence * type '10 0' * to be sent. * * Every Atari-code which is not * ( the code 0 gets ignored * mentioned gets directly sent * by most printers ) * to printer. * * Conversion data doesn't disturb * * printer control codes. * ************************************ * * Non-printables: Question-mark upside down. 1 168 2 168 3 168 4 168 5 168 6 168 7 168 8 168 9 168 * (Send LF) 11 168 * (Send FF) * (Send CR) 14 168 15 168 * Following LCDs converted to standard numbers 16 48 17 49 18 50 19 51 20 52 21 53 22 54 23 55 24 56 25 57 26 168 27 168 28 168 29 168 30 168 * Send code for the german esszet: 158 225 * End of table. B -CdNN2HPA "_N1.2 alpha And______2.1 357.9029.09 gamma Peg______2.9 356.6915.18 alpha Cas______2.3 358.8756.54 beta Cet_______2.2 349.1 -17.99beta And_______2.4 342.5635.62 alpha Eri______.6 335.57-57.24alpha Hyi______3 330.30-61.57alpha Psc______4.3 329.482.76 alpha Ari______2.2 328.2 23.46 alpha UMi______2.1 322.0589.26 gamma Cet______3.6 319.173.24 alpha Cet______2.8 314.424.09 alpha Per______1.9 308.9249.86 alpha Dor______3.5 291.5 -55.05alpha Tau______1.1 291.0216.51 alpha Cae______4.5 289.86-41.86beta Ori_______.3 281.36-8.2 alpha Aur______.2 280.8246 gamma Ori______1.7 278.716.35 alpha Lep______2.7 276.81-17.82alpha Col______2.7 275.08-34.07alpha Ori______.3 271.207.41 my Gem_________3.2 264.2522.51 alpha Car______-.9 264.01-52.7 alpha CMa______-1.6258.70-16.71alpha Gem______1.6 246.3531.89 alpha CMi______.5 245.175.23 beta Gem_______1.2 243.6628.03 zeta Pup_______2.3 239.10-40 gamma 2 Vel____1.9 237.61-47.34beta Vol_______3.6 233.56-66.14alpha Pyx______3.7 229.1 -33.19alpha Cnc______4.3 225.3711.86 lambda Vel_____2.2 223 -43.43beta Car_______1.8 221.69-69.72alpha Hya______2.2 218.10-8.66 alpha Leo______1.3 207.9011.97 gamma Leo______2.6 205.0019.84 gamma Cha______4.1 201.13-78.61beta UMa_______2.4 194.5456.38 alpha UMa______1.9 194.0661.75 beta Leo_______2.2 182.7314.57 alpha 1 Cru____1.6 173.35-63.1 gamma Cru______1.6 172.20-57.11beta Crv_______2.8 171.40-23.4 alpha Mus______2.9 170.70-69.14gamma Vir______2.9 169.58-1.6 beta Mus_______3.3 168.42-68.11beta Cru_______1.5 168.07-59.69alpha 2 Cvn____2.9 165.9938.32 epsilon Vir____2.9 164.4510.96 alpha Vir______1.2 158.7 -11.16alpha Dra______3.6 148.9 64.38 theta Cen______2.3 148.32-36.37alpha Cen______.1 140.06-60.84alpha 2 Lib____2.9 137.27-16.04alpha Ser______2.7 123.936.43 delta Sco______2.5 119.91-22.62alpha Sco______1.2 112.65-26.43beta Her_______2.8 112.4421.49 alpha Tra______1.9 107.83-69.03alpha Her______3.5 101.3314.39 lambda Sco_____1.7 96.595-37.1 alpha Sct______4.1 81.2 -8.24 alpha Lyr______.1 80.76638.78 sigma Sgr______2.1 76.183-26.3 beta 1 Cyg_____3.2 67.32027.96 alpha Cyg______1.3 49.64145.28 alpha Aqr______3.2 28.554-0.32 alpha Gru______2.2 27.941-46.96gamma Aqr______4 24.587-1.39 alpha Psa______1.3 15.591-29.62beta Peg_______2.6 14.05828.08 alpha Peg______2.6 13.81215.21 gamma Scl______4.5 10.295-32.53beta Scl_______4.5 6.7625-37.82gamma Cep______3.4 5.162577.63 Mercury________PL 322.8911.209Venus__________PL 342.155.4899Mars___________PL 6.6122-4.796Jupiter________PL 258.4323.167Saturn_________PL 63.080-20.97R( Eq. of time Mean Noon Real NoonN -SgNXpNNpNNR( Eq. of time Mean Noon Real NoonNAN&<x*<NՠANANvNAnNAwN Np NA.N< -SgNpNp NA.N+| -N4H <r$<L8NDNt/A NCRNAhNA NN8JBfNˢ+|N˦BC2An 0AylN A:CFNn -N4H <r$<L S T A R F I N D E R V 1.2 ============================= STARFI__.INF First version: 19-FEB-1990 This version: 20-MAY-1990 Author: D. Marxsen 1. ENGLISH 2. DEUTSCH ................... 1. ENGLISH Quick guide to use the program -------------------------------------------------------------- WARNING: This version should NOT be used for navigation puposes ! Although accuracy can be increased to navigational needs it is recommended not to use extracted data without strong checking. -------------------------------------------------------------- This documentation describes the features of the STARFINDER program. It will not cover the astronomy background. Please refer to appropriate literature. Global informations ------------------- All times entered into and displayed by the program are UTC (Universal Time Coordinated), that is similar to GMT. All degrees get displayed in degrees/minutes or degrees/decimals depending on the mode you chose. Right ascension can be displayed in degrees or in hours. Elevation outputs don't contain corrections for atmospheric distortions. Coordinates of objects are given in declination and right ascension. Normally the program calculates quick and dirty. That means accuracy will be high enough for normal sky watching. It is possible to increase accuracy by entering special data - that will be discussed later. All files named STANDARD contain data to be used at the startup of STARFINDER. You can rename your files to STANDARD for being used at startup. Some clearifications -------------------- - Azimuth is the direction of the object compared to geographic north. This value is similar to compass direction. - Elevation is the distance of the object to the horizon in degrees. - Zenith is the point of sky just above you. - Culmination is the point of the track of an object where it reaches its highest or lowest elevation. - Circumpolar are objects which will never touch the horizon on their daily move. The never seen circumpolar objects are of no interest. So when I'll call an object 'circumpolar' it will be an object which never drops below the horizon. A journey through the menu -------------------------- *FINDER INFO Here you get some information about how to get program updates. FILE LOAD LOCAL DATA Loads predefined local data. Look at 'CHANGE LOCAL DATA' for more information. SAVE LOCAL DATA Saves the momentary active local data. SAVE CORRECTIONS Saves the actual correction data. Look at 'CHANGE CORRECTIONS' for more information. The actual year will specify the name of the .COR file. E.g. the 1992 correction file will be 1992.COR . LOAD OBJECTS - Loads the objects included in the selected .SKY file. - Looks if a corresponding .OIN file exists and loads if found. .OIN (Object INformation) files contain special infos about some or all objects of the corresponding .SKY files. You can edit your own .OIN file using an editor that can save files as 'ASCII'. The format is : Every info has a name line containing exactly the name of the object it belongs to. The info itself follows - that is a field 10 lines long with max. 25 characters on each line. More characters will be cut off at runtime. Don't change the line count ! Leave unused lines blank. Max. 86 info fields with name line can form the object part of the .OIN file. An additional field with the name 'INFO' contains some info about the file. This info will be displayed first when entering 'EL/AZ SKY' and if you select the sun. To be sure you meet the format mentioned above there is a program included called OINMAKE.PRG. It creates an empty template you can fill up with text. The template file will be named EMPTY.OIN . Switch your editor to overstrike mode. After editing you have to name it the same as the .SKY file it will belong to. SAVE OBJECTS Saves the actual used objects. Doesn't affect the corresponding .OIN file. EXIT Exits the program. No automatic data save will take place ! CALCULATE GENERAL DATA Here global data valid for your choosen place, date and time is displayed. That is : - Phi, your latitude. - Lambda, your longitude. - Dec circumpolar, that's the range of declination an object has to have to be circumpolar. - Visibility border, that's the value you loaded or entered at 'CHANGE LOCAL DATA'. - UTC is your actual running or fixed time (UTC !). - Star-time is the time based on the rotation of earth compared to the star background. - Aries position is the actual position of the zero point of right ascension counting. - Date is the actual set date. - Julianic date is a way to define a date in number of days since an international fixed day. - Year status tells if the actual year is a leap year. - Equation of time is a value that tells the difference between real and mean noon. The difference is caused by the excentricity of the earth's orbit. - Mean noon is the time the sun would have its upper culmination if the earth's orbit were a perfect circle. - Real noon is the time when the sun has its upper culmination in reality. - Sol RA is the momentary right ascension of the sun. - Sol Dec is the momentary declination of the sun. - Sol EL is the actual elevation of the sun. - Sol AZ is the actual azimuth of the sun. - Sunrise is the rise of the real sun without athmospheric distortions. - ...and sunset is the set. - Upper culmination is the greatest elevation the sun will have on that specific day. - Lower culmination is the lowest... - Luna-Sol-Angle is the angle between sun and moon viewed from earth. This value is a help to guess if the moon could disturb your observations. - Moonillumination will give you the intensity of the moonlight and its tendence (increasing/decreasing). EL/AZ SKY This function displays the sky at the specified time and position on earth. You'll see the same constellations in reality when facing to south and looking up to the sky. The program calculates all objects, in an endless loop. Available keyboard commands are : - : Back to menu. - G : Toggle grid display. - I : Invert sky. - V : Display visibility border. While calculating, the actual position of the mouse gets continuously compared with the displayed objects. The data of the nearest object get displayed. If a .OIN file got loaded and it contained info about the selected object this text appears in the info box. EL/AZ TABLE The actual elevation and azimuth of every object get displayed. An asterisk at the column 'V' tells that the object is above the specified visibility border. The column 'T' shows the tendence. A plus means increasing elevation, a minus decreasing elevation. This data get valid at the second calculation loop. CULM ANGLE TABLE The upper and lower culmination angles of every object get displayed. An asterisk at the 'Cp' column marks an object which is circumpolar. RISE/SET TABLE Here the rise and set times of all objects get displayed. Objects which never drop below the horizon (circumpolar) are marked with a line of plus signs. Objects which never rise above the horizon are marked with a line of minus signs. PRINTOUT This function prints all general data and all object data via a selectable port in a condensed mode. The program loads a file named PRINTOUT.TBL which contains command sequences for specific printer types. You can edit this file to meet you needs. 1) CUSTOMIZE CHANGE LOCAL DATA Local data contains three values : - Visibility border, that's a value you can enter to tell the program below what elevation an object can't be seen at your site. - Position on earth, that is - Phi = Latitude and - Lambda = Longitude. - Country and City you are watching from. These data is stored in .LOC files. CHANGE CORRECTIONS Here the accuracy of the calculation can become increased. The major reason for calculation errors is a poor known position of Aries. If you have access to epheremides do the following : The program asks you for the parameters ABI and AMO. Note the aries position at 21-MAR 00:00 UTC of the actual year and display the value calculated by STARFINDER. Calculate STARFINDERvalue - EPHEREMIDESvalue = Difference. Enter this difference into parameter ABI. Note the aries position at 21-MAR 00:00 UTC of the next year and calculate VALUEnextyear - VALUEthisyear = Move. Enter this move into parameter AMO. This procedure will increase accuracy significantly. This data will be saved on disk using SAVE CORRECTIONS. If done, STARFINDER will load this correction automatically. CHANGE DATE/TIME Enables you to change observation date and time. ARIES ADJUST Fixes Aries onto a known true point to prevent all calculation errors caused by poor Aries position. You could use epheremides to get this data. Before you can enter the true Aries position you have to stop the clock and to set the correct date and time. This function will increase accuracy to maximum. OBJECT TABLE The known objects get displayed. To change the data of an object hit the two number keys that correspond to the object number. If done you'll get prompted for every item of the object record. If you select an existing object and enter no name this object gets deleted. You can enter right ascension in two formats : To enter the value nautical (in degrees) just type it in. To enter it astronomical follow the hours with a space, minutes, space and seconds. You can use dashes as a replacement for the spaces also. The program recognises this format and converts it to nautical format internally. Entries in degrees are affected by the degree-mode ! This version of STARFINDER supports following object types : SG = Spiral Galaxy, EG = Elliptic Galaxy, N = Nebula, C = Cluster, PL = Planet. If you enter a pure numeric value, STARFINDER interprets the object as a star with the entered visible magnitude. To leave the function enter a number which is outside the allowed range of object numbers (1...86) or hit two alphabetic keys. MODES CLOCK RUNNING / CLOCK STOPPED The actual time mode gets displayed. Clicking changes the mode. If you change the mode to STOPPED the last entered time gets active again. NOW DEG.MIN / NOW DEG.DECIMAL The actual degree mode gets displayed. Clicking changes the mode. This mode specifies how angles get displayed. - Degrees and minutes or - Degrees and decimals. NOW RA NAUTICAL / NOW RA ASTRONOMICAL The actual RA format gets displayed. Clicking changes the mode. NOW NORMAL SCREEN / NOW INVERTED SCREEN The actual screen mode gets displayed. Clicking changes the mode. This function controls the background colour of the screen. I hope this quick guide helps a bit. The STARFINDER program and this guide will get updated using feedback by users. D. Marxsen, Im Muehlengrund 6, D-2805 Stuhr 4, FRG. **** 1) PRINTOUT.TBL is a file originally used with my program PRINTOUT.PRG which is a print utility to hardcopy structurized sourcecode. .............. 2. DEUTSCH Kurzanleitung zum Programm -------------------------------------------------------------- WARNUNG: Diese Programmversion sollte NICHT fr navigatorische Zwecke verwendet werden ! Obwohl die Rechengenauigkeit bis auf Navigationsansprche erhht werden kann, sollten Rechenergebnisse mit grsster Vorsicht verwendet werden. -------------------------------------------------------------- Diese Anleitung beschreibt die Funktionen des STARFINDER Programms. Es wird nicht nher auf astronomische Details eingegangen. Bitte ziehen Sie hierfr entsprechende Literatur zu Rate. Allgemeine Informationen ------------------------ Alle im Programm verwendeten Uhrzeiten sind UTC, diese ist hnlich der schon lange gebruchlichen GMT (Greenwich Mean Time). Es gilt : MEZ = UTC + 1 , MESZ = UTC + 2 . Alle Winkelangaben erfolgen in Grad/Minuten oder Grad/Dezimalen je nach gewhlter Betriebsart. Die Rektaszension wird abhngig von der Betriebsart entweder in Grad oder in Stunden angegeben. Alle Hhenwinkelangaben erfolgen unter Vernachlssigung smtlicher atmosphrischer Streffekte. Die Koordinaten der Objekte werden in Deklination und Rektaszension angegeben. Das Programm errechnet normalerweise bestimmte Grundparameter nur mit mittlerer Genauigkeit (dafr aber schnell). Diese Genauigkeit kann vom Anwender deutlich erhht werden. Darber spter mehr. Alle Dateien mit dem Namen STANDARD enthalten Daten, die beim Anfahren des Programmes verwendet werden. Sie knnen eigene Dateien auf STANDARD umbenennen. Ein paar Begriffserklrungen ---------------------------- - Azimuth ist die Richtung des Objekts bezglich geografisch Nord. Dieser Wert entspricht also in etwa der Ablesung auf einem Kompass. - Elevation (Hhenwinkel) ist die Hhe des Objekts ber dem Horizont in Winkelgraden. - Zenit ist der Punkt des Himmels direkt ber dem Beobachter. - Culmination ist das Erreichen des hchsten oder niedrigsten Punktes auf der tglichen Bahn eines Objektes. - Circumpolar sind Objekte, deren tgliche Bahn nicht den Horizont schneidet. Diese Objekte sind also entweder stndig ber oder unter dem Horizont. Da uns nie sichtbare Objekte nicht interessieren, meine ich im Folgenden mit 'zirkumpolar' Objekte, die nie unter den Horizont sinken. Eine Reise durch das Men ------------------------- *FINDER INFO Hier gibt es ein paar Informationen zu Updates und hnlichem. FILE LOAD LOCAL DATA Dient dem Laden von vordefinierten Daten des Beobachtungsortes. Weitere Informationen unter 'CHANGE LOCAL DATA'. SAVE LOCAL DATA Speichert die aktuellen Daten des Beobachtungsortes auf Disk. SAVE CORRECTIONS Speichert die aktuellen Korrekturdaten. Die Datei wird automatisch nach dem entsprechenden Jahr benannt (z.B. 1992.COR). Weitere Informationen unter 'CHANGE CORRECTIONS'. LOAD OBJECTS - Ldt die Objekte der ausgewhlten .SKY Datei. - Ldt die zugehrige .OIN Datei, falls sie existiert. .OIN Dateien enthalten nhere Klartextinformationen zu den Objekten des .SKY Datensatzes. Sie knnen eigene .OIN Dateien schreiben (oder bestehende ndern). Verwenden Sie hierzu einen Editor, der Dateien als 'rein ASCII' ablegen kann. .OIN Dateien sind in einem strikten Format : Jede Information zu einem Objekt wird durch eine Zeile eingeleitet, die exakt den Objektnamen, wie er in der .SKY Datei verwendet wird, enthlt. Es folgen exakt zehn Zeilen, die maximal 25 Zeichen an Klartext enthalten knnen. berstehende Zeichen werden vom Programm ignoriert. ndern Sie nicht die Zeilenzahl ! Lassen Sie nicht verwendete Zeilen leer. Maximal 86 Objektinformationen knnen so abgelegt werden. Ein zustzlicher Datensatz mit dem festen Namen INFO enthlt Informationen zum Inhalt der Datei (z.B. Autor, Datum, Zweck...). Diese Info wird beim Start von 'EL/AZ SKY' sowie beim selektieren der Sonne angezeigt. Um Ihnen die Erstellung einer .OIN Datei zu erleichtern ist das Programm OINMAKE.PRG beigefgt, das eine leere aber vorformatierte Datei namens EMPTY.OIN erzeugt. Sie knnen hier eigene Daten einfgen, aber schalten Sie zur Sicherheit Ihren Editor auf 'Overwrite' um versehentliches Zufgen von Zeilen zu verhindern. Nach getaner Arbeit geben sie der Datei den gleichen Namen wie die .SKY Datei, zu der die Informationen gehren. SAVE OBJECTS Speichert die zur Zeit verwendete Objektliste auf Disk. Beeinflusst nicht die evtl. zugehrige .OIN Datei. EXIT Bringt Sie zum Desktop zurck. Es findet keine automatische Daten- sicherung statt (Woher soll das Programm auch wissen, was Sie auf der Disk aktualisiert haben wollen...?). CALCULATE GENERAL DATA Hier werden allgemeine Daten fr den gewhlten Beobachtungsort und aktuelle Uhrzeit sowie Datum angezeigt : - PHI, die geogr. Breite des Ortes. - Lambda, die geogr. Lnge des Ortes. - Dec circumpolar, das ist der Winkelbereich der Deklination fr Objekte, die zirkumpolar sind. - Visibility border, das ist der Wert, den Sie unter 'CHANGE LOCAL DATA' eingegeben haben. - UTC ist die Beobachtungszeit. - Star-time (Sternzeit, Kpt'n Kirk lsst grssen...) ist die Uhrzeit gemessen gegen den Fixsternhimmel. - Aries position ist die Postion des Widderpunktes, des Nullpunktes der Rektaszensionszhlung. - Date, das Beobachtungsdatum. - Julianic date (Julianisches Datum) ist eine Datumsangabe in Form von Tagen seit einem international festgelegten Startdatum. - Year status zeigt an, ob ein Schaltjahr ('Leap') vorliegt. - Equation of time (Zeitgleichung) ist die Abweichung des wahren vom mittleren Mittag, hervorgerufen durch die Exzentrizitt der Erdbahn. - Mean noon ist die Uhrzeit, bei der die Sonne ber dem Beobachtungs- ort ihren hchsten Stand htte, wenn es das Problem der Zeitgleichung nicht gbe. - Real noon ist die Uhrzeit des hchsten Sonnenstandes. - Sol RA ist die momentane Rektaszension der Sonne. - Sol Dec ist die momentane Deklination der Sonne. - Sol EL ist der aktuelle Hhenwinkel der Sonne. - Sol AZ ist die aktuelle Kompasspeilung der Sonne. (Wenn man Missweisung, Deviation und andere Schweinereien beachtet hat...) - Sunrise ist der Sonnenaufgang. - Sunset ist der Sonnenuntergang. - Upper culmimation ist der hchste, und... - Lower culmination ist der niedrigste Sonnenstand. - Luna-Sol-Angle ist der Winkel zwischen Sonne und Mond. Dieser Wert gibt einen Anhaltspunkt, ob der Mond die Beobachtung stren knnte. - Moonillumination gibt an, wieviel Prozent der Mondoberflche erleuchtet sind. Inc = Zunehmend, Dec = Abnehmend. EL/AZ SKY Diese Funktion stellt den Himmel fr den gewhlten Beobachtungsort und -zeitpunkt dar. Wenn Sie sich bei der Beobachtung nach Sden wenden und nach oben sehen, dann deckt sich der sich der errechnete mit dem wahren Himmel. Das Programm errechnet alle Objekte in einer Endlosschleife. Verfgbare Tastaturkommandos sind : - : Zurck zum Men. - G : Gradnetz ein/aus. - I : Himmel invertieren. - V : Darstellung der Sichtbarkeitsgrenze ein/aus. Whrend der Berechnung wird stndig die Mausposition berprft und die Daten des nchsten Objektes werden angezeigt. Die Daten im Info-Fenster stammen aus der .OIN Datei. EL/AZ TABLE Die aktuellen Werte fr Azimut und Hhenwinkel werden angezeigt. Eine Markierung in der V-Spalte signalisiert, dass sich das Objekt ber der von Ihnen spezifizierten Sichtbarkeitsgrenze befindet. Die T-Spalte gibt die Tendenz des Objektes an (+ steigend, - fallend). Dieser Wert wird erst beim zweiten Rechendurchlauf gltig. CULM ANGLE TABLE Die oberen und unteren Kulminationen der Objekte werden errechnet. Eine Markierung in der Cp-Spalte kennzeichnet ein zirkumpolares Objekt. RISE/SET TABLE Hier werden die Auf- und Untergangszeiten der Objekte berechnet. Objekte, die nie unter den Horizont sinken, erhalten eine Zeile von Pluszeichen. Objekte, die nie ber den Horizont gelangen, erhalten eine Zeile von Minuszeichen. PRINTOUT Diese Funktion druckt alle allgemeinen und objektspezifischen Daten in komprimierter Form aus. Das Programm ldt eine Datei namens PRINTOUT.TBL, die Steuer- sequenzen fr den verwendeten Drucker enthlt. Sie knnen diese Datei editieren, um ihren eigenen Drucker anzupassen. Siehe auch 1) CUSTOMIZE CHANGE LOCAL DATA Hier werden drei Werte erwartet : - Visibility border, das ist der Hhenwinkel, ab dem ein Objekt sichtbar wird (Hindernisse, z.B. Bume, Huser oder Dunst). - Position on earth, hier werden Phi (geogr. Breite) und Lambda (geogr. Lnge) des Beobachtung. sA.. STARTREKBAS ZF B'STARTREKPRG `F LDJWEITERESTXT #_60 ' STar Treck 1.0 1 ' 2 ' fr alle Raumschiff Enterprise Fans 3 ' 4 ' nach Computer-Kurzweil von A.K.Dewdney 5 ' aus Spektrum der Wissenschaft Januar 1987 6 ' 7 ' programmiert von Daniel Roth - sinccom software 8 ' auf ATARI ST unter Omikron Basic 9 ' Adresse: Brcker Mauspfad 448 10 ' D-5000 Kln 91 11 ' 12 ' 13 ' Zentrierte Ausagbe von Text$ 14 ' 15 DEF FN Zen$(Text$)= SPACE$((80- LEN(Text$))/2)+Text$ 16 ' 17 ' Initialisierungen 18 ' 19 ' weie Schrift, schwarzer Bildschirm 20 ' 21 PRINT CHR$(27);"b0"; CHR$(27);"c1"; 22 ' 23 ' Cursor ausschalten 24 ' 25 PRINT CHR$(27);"f"; 26 ' 27 ' Tastaturklick ausschalten 28 ' 29 POKE $484,10 30 ' 31 ' Winkelberechnungen in Altgrad 32 ' 33 DEG 34 ' 35 ' Kraftfunktion 36 ' 37 DEF FN Kraft!(Abstand!)=800/Abstand!^2 38 ' 39 ' Geschwindigkeiten und Positionen 40 ' 41 DIM Vel!(22,2),Pos!(22,2),Apos!(22,2) 42 ' 43 ' Alter, Zustand der Torpedos 44 ' 45 DIM Zeit%L(22),Aus%L(22),Zug%L(22) 46 ' 47 DIM Torp%L(2),Schub%L(2),Rechts%L(2),Links%L(2),Orient%L(2),Aorient%L(2),Feuer%L(2),Treib!(2),C%L(2) 48 ' 49 ' Erfffnung 50 ' 51-Eroeffnung 52 CLS 53 PRINT 54 PRINT FN Zen$("STar Treck") 55 PRINT 56 PRINT FN Zen$("nach Computer-Kurzweil von A.K.Dewdney") 57 PRINT FN Zen$("aus Spektrum der Wissenschaft Januar 1987") 58 PRINT 59 PRINT FN Zen$("programmiert von Daniel Roth - sinccom software") 60 PRINT 61 PRINT 62 PRINT FN Zen$("Steuerung des Raumschiffes der Fderation:") 63 PRINT 64 PRINT " A - Schub","S - Drehung links","D - Drehung rechts","F - Feuer" 65 PRINT 66 PRINT 67 PRINT FN Zen$("Steuerung des Raumschiffes der Klingonen:") 68 PRINT 69 PRINT " 4 - Schub","5 - Drehung links","6 - Drehung rechts","+ - Feuer" 70 PRINT 71 PRINT 72 PRINT 73 PRINT FN Zen$("Zum Start: Taste drcken!") 74 REPEAT Taste$= INKEY$ UNTIL Taste$<>"" 75 IF ASC( MID$(Taste$,2,1))=$61 THEN 76 PRINT CHR$(27);"b1"; CHR$(27);"c0" 77 POKE $484,15 78 END 79 ENDIF 80 CLS 81 LINE COLOR =0:C%L(1)=1:C%L(2)=1 82 FILL COLOR =0 83 PCIRCLE 320,200,10 84 ' 85 ' Aktive Torpedos 86 ' 87 Torpak%L=0 88 ' 89 ' Orientierungen von Fderations- und Klingonenschiff 90 ' 0-Osten, 90-Norden, ... 91 ' 92 Orient%L(1)=0:Aorient%L(1)=0:Orient%L(2)=180:Aorient%L(2)=180 93 ' 94 ' Treibstoffvorrte 95 ' 96 Treib!(1)=10:Treib!(2)=10 97 ' 98 ' Geschwindigkeiten und Positionen lschen 99 ' 100 FOR I%L=1 TO 22 101 Vel!(I%L,1)=0:Vel!(I%L,2)=0:Pos!(I%L,1)=0:Pos!(I%L,2)=0:Apos!(I%L,1)=0:Apos!(I%L,2)=0 102 NEXT I%L 103 ' 104 ' Torpedozeiten und Zustnde lschen 105 ' 106 FOR I%L=1 TO 22 107 Zeit%L(I%L)=0:Aus%L(I%L)=0:Zug%L(I%L)=0 108 NEXT I%L 109 ' 110 ' Zeiger innerhalb zirkulrer Warteschlange der Torpedos 111 ' 112 Alt%L=3:Neu%L=3 113 ' 114 ' Startpositionen der Raumschiffe 115 ' 116 Pos!(1,1)=100:Pos!(1,2)=200 117 Pos!(2,1)=540:Pos!(2,2)=200 118 ' 119 Torp%L(1)=0:Torp%L(2)=0:Torpak%L=0 120 ' 121-Start 122 Taste$= INKEY$ 123 IF Taste$<>"" THEN 124 Scan%L= ASC( MID$(Taste$,2,1)) 125 IF Scan%L=$1E THEN Schub%L(1)=1 126 IF Scan%L=$1F THEN Rechts%L(1)=1 127 IF Scan%L=$20 THEN Links%L(1)=1 128 IF Scan%L=$21 AND Torp%L(1)<10 THEN Feuer%L(1)=1:Torpak%L=Torpak%L+1:Torp%L(1)=Torp%L(1)+1 129 IF Scan%L=$6A THEN Schub%L(2)=1 130 IF Scan%L=$6B THEN Rechts%L(2)=1 131 IF Scan%L=$6C THEN Links%L(2)=1 132 IF Scan%L=$4E AND Torp%L(2)<10 THEN Feuer%L(2)=1:Torpak%L=Torpak%L+1:Torp%L(2)=Torp%L(2)+1 133 ENDIF 134 ' 135 FOR I%L=1 TO 2 136 X!=Pos!(I%L,1):Y!=Pos!(I%L,2) 137 Abstand!= SQR((X!-320)^2+(Y!-200)^2) 138 IF Abstand!<10 THEN 139 IF I%L=1 THEN 140 PRINT "Das Raumschiff der Fderation ist in der Sonne verglht!" 141 ELSE 142 PRINT "Das Raumschiff der Klingonen ist in der Sonne verglht!" 143 ENDIF 144 WAIT 2 145 REPEAT UNTIL INKEY$ ="" 146 REPEAT UNTIL INKEY$ <>"" 147 EXIT TO Eroeffnung 148 ENDIF 149 Kraft!=FN Kraft!(Abstand!) 150 IF Schub%L(I%L)=1 THEN 151 Schub%L(I%L)=0 152 IF Treib!(I%L)>1 THEN 153 Treib!(I%L)=Treib!(I%L)-.1 154 Vel!(I%L,1)=Vel!(I%L,1)+ COS(Orient%L(I%L)) 155 Vel!(I%L,2)=Vel!(I%L,2)+ SIN(Orient%L(I%L)) 156 ENDIF 157 ENDIF 158 IF Links%L(I%L)=1 THEN 159 Links%L(I%L)=0 160 Aorient%L(I%L)=Orient%L(I%L) 161 Orient%L(I%L)=Orient%L(I%L)+90: IF Orient%L(I%L)=360 THEN Orient%L(I%L)=0 162 ENDIF 163 IF Rechts%L(I%L)=1 THEN 164 Rechts%L(I%L)=0 165 Aorient%L(I%L)=Orient%L(I%L) 166 Orient%L(I%L)=Orient%L(I%L)-90: IF Orient%L(I%L)=-90 THEN Orient%L(I%L)=270 167 ENDIF 168 Vel!(I%L,1)=Vel!(I%L,1)-Kraft!*(X!-320)/Abstand! 169 Vel!(I%L,2)=Vel!(I%L,2)-Kraft!*(Y!-200)/Abstand! 170 Schiff(I%L,Apos!(I%L,1),Apos!(I%L,2),Aorient%L(I%L)) 171 Pos!(I%L,1)=X!+Vel!(I%L,1):Pos!(I%L,1)=Pos!(I%L,1)- INT(Pos!(I%L,1)/640)*640 172 Pos!(I%L,2)=Y!+Vel!(I%L,2):Pos!(I%L,2)=Pos!(I%L,2)- INT(Pos!(I%L,2)/400)*400 173 Schiff(I%L,Pos!(I%L,1),Pos!(I%L,2),Orient%L(I%L)) 174 Apos!(I%L,1)=Pos!(I%L,1):Apos!(I%L,2)=Pos!(I%L,2):Aorient%L(I%L)=Orient%L(I%L) 175 IF Feuer%L(I%L)=1 THEN 176 Feuer%L(I%L)=0:Zug%L(Neu%L)=I%L 177 NOISE 1,6*I%L: VOLUME 1,15,1000 178 Pos!(Neu%L,1)=Pos!(I%L,1)+6* COS(Orient%L(I%L)):Pos!(Neu%L,2)=Pos!(I%L,2)+6* SIN(Orient%L(I%L)) 179 Vel!(Neu%L,1)=Vel!(I%L,1)+3* COS(Orient%L(I%L)):Vel!(Neu%L,2)=Vel!(I%L,2)+3* SIN(Orient%L(I%L)) 180 Neu%L=Neu%L+1:Neu%L=Neu%L- INT((Neu%L-3)/20)*20 181 ENDIF 182 NEXT I%L 183 IF (Pos!(1,1)-Pos!(2,1))^2+(Pos!(1,2)-Pos!(2,2))^2<36 THEN 184 PRINT "Die beiden Raumschiffe sind kollidiert!" 185 WAIT 2 186 REPEAT UNTIL INKEY$ ="" 187 REPEAT UNTIL INKEY$ <>"" 188 GOTO Eroeffnung 189 ENDIF 190 J%L=0 191 WHILE J%L"" 222 EXIT TO Eroeffnung 223 ENDIF 224 IF (Pos!(I%L,1)-Pos!(2,1))^2+(Pos!(I%L,2)-Pos!(2,2))^2<9 THEN 225 PRINT "Das Raumschiff der Klingonen wurde zerstrt!" 226 WAIT 2 227 REPEAT UNTIL INKEY$ ="" 228 REPEAT UNTIL INKEY$ <>"" 229 EXIT TO Eroeffnung 230 ENDIF 231 ENDIF 232 ENDIF 233 ENDIF 234 J%L=J%L+1 235 WEND 236 ' 237 GOTO Start 238 ' 239 DEF PROC Schiff(I%L,X%L,Y%L,Phi%L) 240 LINE COLOR =C%L(I%L):C%L(I%L)=1-C%L(I%L) 241 IF I%L=1 THEN 242 IF Phi%L=0 THEN 243 DRAW X%L-4,Y%L-2 TO X%L-1,Y%L-2: DRAW X%L+1,Y%L-2 TO X%L+3,Y%L-2 244 DRAW X%L-4,Y%L+2 TO X%L-1,Y%L+2: DRAW X%L+1,Y%L+2 TO X%L+3,Y%L+2 245 DRAW X%L-2,Y%L-1 TO X%L-2,Y%L+1: DRAW X%L,Y%L-1 TO X%L,Y%L+1 246 DRAW X%L+4,Y%L-1 TO X%L+4,Y%L+1: DRAW X%L-1,Y%L 247 ENDIF 248 IF Phi%L=90 THEN 249 DRAW X%L-2,Y%L+3 TO X%L-2,Y%L+1: DRAW X%L-2,Y%L-1 TO X%L-2,Y%L-4 250 DRAW X%L+2,Y%L+3 TO X%L+2,Y%L+1: DRAW X%L+2,Y%L-1 TO X%L+2,Y%L-4 251 DRAW X%L-1,Y%L-2 TO X%L+1,Y%L-2: DRAW X%L-1,Y%L TO X%L+1,Y%L 252 DRAW X%L-1,Y%L+4 TO X%L+1,Y%L+4: DRAW X%L,Y%L-1 253 ENDIF 254 IF Phi%L=180 THEN 255 DRAW X%L-3,Y%L-2 TO X%L-1,Y%L-2: DRAW X%L+1,Y%L-2 TO X%L+4,Y%L-2 256 DRAW X%L-3,Y%L+2 TO X%L-1,Y%L+2: DRAW X%L+1,Y%L+2 TO X%L+4,Y%L+2 257 DRAW X%L-4,Y%L+1 TO X%L-4,Y%L-1: DRAW X%L,Y%L+1 TO X%L,Y%L-1 258 DRAW X%L+2,Y%L+1 TO X%L+2,Y%L-1: DRAW X%L+1,Y%L 259 ENDIF 260 IF Phi%L=270 THEN 261 DRAW X%L-2,Y%L-1 TO X%L-2,Y%L-3: DRAW X%L+2,Y%L-1 TO X%L+2,Y%L-3 262 DRAW X%L-1,Y%L-4 TO X%L+1,Y%L-4: DRAW X%L-1,Y%L TO X%L+1,Y%L 263 DRAW X%L-2,Y%L+1 TO X%L-2,Y%L+4: DRAW X%L+2,Y%L+1 TO X%L+2,Y%L+4 264 DRAW X%L-1,Y%L+2 TO X%L+1,Y%L+2: DRAW X%L,Y%L+1 265 ENDIF 266 ELSE 267 IF Phi%L=0 THEN 268 DRAW X%L-3,Y%L TO X%L+3,Y%L: DRAW X%L+4,Y%L+1 TO X%L+4,Y%L-1 269 DRAW X%L-3,Y%L+1 TO X%L-1,Y%L+1: DRAW X%L-3,Y%L-1 TO X%L-1,Y%L-1 270 DRAW X%L-4,Y%L+2 TO X%L-2,Y%L+2: DRAW X%L-4,Y%L-2 TO X%L-2,Y%L-2 271 ENDIF 272 IF Phi%L=90 THEN 273 DRAW X%L,Y%L+3 TO X%L,Y%L-3: DRAW X%L-1,Y%L+4 TO X%L+1,Y%L+4 274 DRAW X%L-1,Y%L-1 TO X%L-1,Y%L-3: DRAW X%L+1,Y%L-1 TO X%L+1,Y%L-3 275 DRAW X%L-2,Y%L-2 TO X%L-2,Y%L-4: DRAW X%L+2,Y%L-2 TO X%L+2,Y%L-4 276 ENDIF 277 IF Phi%L=180 THEN 278 DRAW X%L-4,Y%L-1 TO X%L-4,Y%L+1: DRAW X%L-3,Y%L TO X%L+3,Y%L 279 DRAW X%L+1,Y%L+1 TO X%L+3,Y%L+1: DRAW X%L+1,Y%L-1 TO X%L+3,Y%L-1 280 DRAW X%L+2,Y%L+2 TO X%L+4,Y%L+2: DRAW X%L+2,Y%L-2 TO X%L+4,Y%L-2 281 ENDIF 282 IF Phi%L=270 THEN 283 DRAW X%L,Y%L+3 TO X%L,Y%L-3: DRAW X%L-1,Y%L-4 TO X%L+1,Y%L-4 284 DRAW X%L-1,Y%L+1 TO X%L-1,Y%L+3: DRAW X%L+1,Y%L+1 TO X%L+1,Y%L+3 285 DRAW X%L-2,Y%L+2 TO X%L-2,Y%L+4: DRAW X%L+2,Y%L+2 TO X%L+2,Y%L+4 286 ENDIF 287 ENDIF 288 RETURN 289 ' `.@MA"< .Ӯ"Hd d3 d# d `# # # # Q"<p#Q`6A:\OM-BASIC.INFOMIKRON.BASLIB 3.00 (C) 1988 ASY KBOHz,?<&NNBNANu/<a XJ@Nu/<a XNuK Ni+I+_+nA+H8C,A#A#A##a&mC0ۓ/ //<JNAPa+xA:!A(v8g]+HZ j(0@4P@Ag$PS@g JPfX4hY+J +N+xN@xACp"QAJgEp"Jp&I Q&m+|+|F#p+@Bp a ;mp+@BpMa ;mpA000BXBmpNa rP?a `aRm& mJ(,k0BgHz.?<=a Pk<HmHx??<?aSWaO ax mN0Ap"h X0g&/2 //AVaX ALT"h 3_Nu"hN(_ -R@+@&@/?<HNAJoF+@BS?<HNAJo2"-RA+AҐ"<k.+@?<HNAJo+@.KN`X ЛЛЛЛ/?<HNA\Jo+@LNuPp+m@HFHFBF܇P^܆vx&mX(KJg&P(K"K(Ę&.ޅ/(/H L` "NّбXfL٭Xa `(CvّQ(&ۛ&66C SAf&`T6Q Ĝo8p2<v HBSg0e8kBd6d&e` HF&&&&QHFQLNu6&]n`6&&n`&6]n`HaLNuHaLNuH>| $r aDz JjDz-r6BBHB(8HB4HD0 :e^DRAJf L|NuHa$LNuHa LNuJAf$4NuH "mh_ m`da m`e 4RBB0"HXB+H`"$4L$@gIdId `Q` RAId2Id"Id `""""Q"_Nuff&CgNur@BNugAgNur@BNupNupNu5!9A"9A.9<19<9<9<9<9<9D 9E 9F 9D9K At 2XWf0;@r2@ @9fI 00A%>HAA#:BAQB@SAo+H;A -dg +@al;P+mlh>-g ??<>NAX.m|A> rar -2-afA. raZp0-aF#;ma`| l? in m@T"m"iȐDnp" ҈$AIdWo J\`"J]dQNu// 2)a$YJ*g$/ 0@G$R&_ `Q$_ _2NuRAId0Id Id ` Q$_ _2NuaAUCUĖAo: C!d.2gh Jgtkx dFH@xЀ[DDiVNu 2NuDC C!dB2g,dD AJg2kx dH@xЀ[DDiNuтdTAiNu2Nup2<NuJAkx`~gCCi(*H@<HBԆH@GBDHDԄGH@:BBHBЂk EрgUAiEчeNuTAiNup2<NuJgJAk`Jg <TAi|Nug CAi2J@gBCevgH@h(:HEBE|<xTHBJBgH@:BB`8BBH@:dSDԀdHDH@h:HEBE|<8NuJ-g0-aEA"C C E ps`Xpx2<NufJgp?/BA Qd $`f`n`j`f`b`^`Z`V`R`N`J`F`B`>`:`6`2`.`*`&`"`````` ````````````` ``D`@`<`8`4`0`,`(`$` ````` ````````````````````````````````````````````````````````````````````````````````````````````````````````|`x`t`pUnprintable error Syntax errorRETURN without GOSUB Out of DATAIllegal function call OverflowOut of memoryUndefined StatementDivision by zeroType mismatchString too longRESUME without errorMissing OperandBreak Bus error Adress errorUnknown opcodeDivision by zero CHK error TRAPV errorPrivilege violationTrace!Out of memory or odd MALLOCationMatrix not regularFIELD overflowBad file numberFile not foundBad file modeFile already openFile not openTOS error #00File already existsFile type mismatch Bad disk Disk fullInput past endBad record numberBad file namePath not foundToo many files Write error Read errorDisk write protected/pa Jmg?-;ma;_NuHJ-EgQ?`J-(g?aT0J-?f(mZr*A xNLNu&$ <(&v``AB1$_! %NuCE< Z/!?]2 NPHzr2.@pPNUAh2<pNN\6$Cx?@A"B(C.DrExFGHIJKPLbMNOPQRSTUVWXYZ[\] ^ _ ` a0b0c0d0eDfg.h.i.j.kBlxmnopqrstuvwx8y8z8{J|`}t~   . p p v " : D    < R d  t t t   $ 6 V *   2"@^ddjvr8Tdh b6 b2PVVVVVZ^^dd ( h !!\!!!!""R""""##D# # # # # #$:$z$z$$%%@%@%L%%&&&&P&&& &!&&EROEFFNU`START8$"()ZU &ҞT `! 0 2ndSTar AstroPho 1.0 Chaos Codes Disketteninhaltdruckprogramm 1.2 FShell 1.11 HBKon Kalender 1.42 Sonnenuhr 1.2 StarTrek alle Programme von dANIEL rOTH Brcker Mauspfad 448 D-5000 Kln 91 Eine Diskette mit den aktuellen Versionen erhalten Sie gegen Einsendung von 10 DM als Scheck/Schein. Wer sich fr Astronomie interessiert kann bei obiger Adresse gegen Einsendung eines an sich selbst adressierten und frankierten Rckumschlags (DIN C5) und 1 DM in Briefmarken eine 12-seitige Liste ber Astronomie-PD-Software fr den Atari ST bestellen. sortes erwartet. - Name des Ortes und des Landes. Diese Daten werden bei 'SAVE LOCAL DATA' in .LOC Dateien gespeichert. CHANGE CORRECTIONS Hier knnen Sie die Rechengenauigkeit des Programms erhhen. Der grsste Rechenfehler ist die ungenaue Postion des Widderpunktes. Wenn Sie Zugang zu Epheremiden haben, tun Sie folgendes : Geben Sie die beiden Parameter ABI und AMO ein. Diese ergeben sich folgendermassen : Notieren Sie den Wert 'Aries position', den STARFINDER fr den 21. Mrz 00:00 UTC des aktuellen Jahres errechnet. Notieren Sie den Wert den die Epheremiden hierfr geben. Es ergibt sich : ABI = STARFINDERwert - EPHEREMIDENwert. Notieren Sie den Wert den die Epheremiden fr den 21. Mrz 00:00 UTC des folgende Jahr angeben. Es ergibt sich : AMO = EPHEREMIDENwert_nchstes_Jahr - EPHEREMIDENwert. Diese Prozedur erhht die Rechengenauigkeit deutlich. Die eingegebenen Korrekturdaten knnen mit 'SAVE CORRECTIONS' auf Disk gespeichert werden. Diese werden dann spter automatisch geladen. CHANGE DATE/TIME ndern von Beobachtungsdatum und -uhrzeit. ARIES ADJUST Synchronisiert den Widderpunkt auf einen exakten Wert und gleicht so alle diesbezglichen Rechenfehler aus. Entsprechende Daten knnen Sie aus den Epheremiden beziehen. OBJECT TABLE Die Objektliste wird angezeigt. Um die Daten eines Objekts zu ndern, tippen Sie die entsprechende Nummer ein. In diesem Fall werden Sie nach allen Objektdaten gefragt. Sie knnen die Rektaszension im astronomischen oder im nautischen Format eingeben : Wenn Sie eine normale Dezimalzahl eingeben, so wird sie als Eingabe im nautischen Format interpretiert. Kennzeichnen Sie eine Eingabe im astronomischen Format durch einen Leerraum zwischen Stunden-, Minuten- und Sekundenangabe. Sie knnen anstelle des Leerraumes auch Bindestriche verwenden, was bei Verwendung des numerischen Tastenfeldes von Vorteil ist. Das Format wird vom Programm erkannt und intern umgerechnet. Diese STARFINDER Version kennt folgende Objekttypen : SG = Spiralgalaxie, EG = Elliptische Galaxie, N = Nebel, C = Sternhaufen, PL = Planet. Wenn Sie als Objekttyp eine reine Zahl eingeben, interpretiert STARFINDER das Objekt als Stern mit der angegebenen scheinbaren Helligkeit. Zum Verlassen der Funktion geben Sie eine Objektnummer ausserhalb des erlaubten Bereiches (1...86) ein oder drcken Sie zwei Buchstabentasten. MODES CLOCK RUNNING / CLOCK STOPPED Zeigt an, ob die Referenzuhr luft oder steht. Anklicken wechselt die Betriebsart. Wenn Sie auf 'STOPPED' wechseln, wird die letzte Zeiteingabe wieder aktiv. NOW DEG.MIN / NOW DEG.DECIMAL Zeigt an, wie Winkel dargestellt werden. Anklicken wechselt die Betriebsart. NOW RA NAUTICAL / NOW RA ASTRONOMICAL Zeigt die aktuelle Darstellungsart der Rektaszension an. Anklicken wechselt die Betriebsart. NOW NORMAL SCREEN / NOW INVERTED SCREEN Die aktuelle Bildschirmdarstellung wird angezeigt. Anklicken wechselt die Betriebsart. Ich hoffe, diese Kurzanleitung hilft ber einige Schwierigkeiten hinweg. Der STARFINDER und diese Anleitung werden unter Zuhilfenahme von Anwenderfeedback unregelmssig aktualisiert ('upgedated'). D. Marxsen, Im Muehlengrund 6, D-2805 Stuhr 4 . **** 1) PRINTOUT.TBL ist eine Datei, die ursprnglich fr die Verwendung mit meinem Programm PRINTOUT.PRG (zur Ausgabe von komprimierten und formatierten Listings) vorgesehen ist. ******************************************************************** Deze diskette is samengesteld door de Stichting ST, Postbus 11129, 2301 EC Leiden. Onze bibliotheek van public domain programma's omvat op dit moment (lente 1991) al meer dan vijfhonderd disks. Daarop vindt u programma's op elk gebied, van tekstverwerker en database tot de leukste spelletjes, de fraaiste tekenprogramma's en de handigste utilities. Ook bevat onze bibliotheek een speciale afdeling voor public domain disks met Macintosh software, die te gebruiken zijn onder de ALADIN emulator. Deze MAC-PD serie bevat tot nu toe ongeveer vijfendertig disks. ******************************************************************** U vindt in het twee maandelijks tijdschrift "ST" (Onafhankelijk tijd- schrift van en voor gebruikers van Atari ST computers) een overzicht en een bespreking van de inhoud van de nieuwe public-domain diskettes. Dit tijdschrift bevat tevens een bestelkaart zodat U vlot over de software kunt beschikken. De Stichting ST geeft ook een speciale PD catalogus disk uit. Deze public domain disk is geproduceerd en gedistribueerd door: ************** Stichting ST afd. Software Bakkersteeg 9A 2311 RH LEIDEN ************** Ondanks onze controle komt het af en toe voor dat een diskje niet goed is gecopieerd.Mocht U dit overkomen, aarzel dan niet en stuur de defecte disk aan ons terug. U krijgt dan direct een vervangende disk toegestuurd. ************************************************************************ Teneinde het voor ons mogelijk te maken om productiefouten op te sporen en vervolgens in de toekomst te vermijden, zijn alle disks, geproduceerd door de Stichting ST, voorzien van een groen productienummer. ************************************************************************