2p O` O`! #@%`')+-/1 3@5`79;=?A C@EGIKMOQ S@U`WY[]_ac@e`gikmoq s@u`wy{} @`` @ ` @ ` @ ` @ ` ׀ ٠  @`O` O`! #@%`')+-/1 3@5`79;=?A C@EGIKMOQ S@U`WY[]_ac@e`gikmoq s@u`wy{} @`` @ ` @ ` @ ` @ ` ׀ ٠  @`A467 xLBIORHYTHMUSXU'BIORHYTHPD ]U'BRUCH U'PROFIBIO U'LEES DIT K. YU'.. BIORHYTHPRG F 7READ_ME_BIO F 7`7>TV` Efv*oM m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHNFALN&Hz2?< NA\pdAxr0XQ)K\NNvvvJrBjNuHz?<&NN\N0CAp$L Qp N9lrBlJpNNpMN9@pdAr 0Q0tr Nj9lNupealp`NuaNJHz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa2|a>:><|a4g RGj`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 BbNuNpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@Nl?<,>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"FFaQL8NR6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?NR<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A d$_& if"QdփփHRNNN~,Nq8DRzXEEg"7PNqR$HBJBgpNJgJigp`eetЂ`"ЀeЁdp`ЀeЀe"Ѕe$W.H@@NL"2` NqR YEjrd0` SjN" KC`e N̳`d \N8 l\Ӭ\ NupNd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNu0,p2,rR@RANuS@SA9@p9ArNu9@pNj4, 6fprta0,2,NuA4, 6f9@9Ap rt`Blf`pBlf`p9| f|9Fd@9@hN9@^9A`9Ab~`$aJf,H@ Kg Mg Pg Hf~`BSGj>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`<(`|HP?N<pg2JFg W"X2@e2<A`QNCpR@ 1 fA 0! "_Np`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`YepNpCNbBNSonntagCN:HxNMontagCN:HxNDienstagCN:HxNMittwochCN:HxN DonnerstagCN:HxNFreitagCN:HxNSamstagCN:NNprNNName ? AprNHmpA "_NfN@NNprNNBiorhythmus fr (tt.mm.jjjj) ? Ar NHmpr"_NN2A`NHmp"_NN2AzNHmp"_NN2AfNA`N&<x*<NAfNNH <r$<L8NHA`N&<(8<*<NN L8NHA`N&<x*<N:NNL8NH <r$<AzNN&<x*<NL8NHA`N&<x*<N@NAzNNvNN L8NAlNAzN&<x*<N&<x*<NXHAzN&<x*<N&<x*<NXN L8NpJBgp/A`N&<x*<N:pJBgpNZAlNNHAzN&<x*<N&<x*<NXN L8NHAzN&<x*<N&<x*<NXN L8NAlNAlN&<x*<NXN &<x*<NAlNNArNNNprNNBiorhythmus vom ArNCNNN, den ANN fr ApNNNprNNGeburtsdatum (tt.mm.jjjj) Ajr NHmjpr"_NN2AtNHmjp"_NN2A6NHmjp"_NN2A퀨NAtN&<x*<NA퀨NNH <r$<L8NHAtN&<(8<*<NN L8NHAtN&<x*<N:NNL8NH <r$<A6NN&<x*<NL8NHAtN&<x*<N@NA6NNvNN L8NA큘NA6N&<x*<N&<x*<NXHA6N&<x*<N&<x*<NXN L8NpJBgp/AtN&<x*<N:pJBgpNZA큘NNHA6N&<x*<N&<x*<NXN L8NHA6N&<x*<N&<x*<NXN L8NA큘NA큘N&<x*<NXN &<x*<NA큘NNANNprNN Sie sind am ANCNNN ,den AjNN geborenNA큘NAlNNA큞NNp rNN Lebenstage : A큞NNHxNAngaben|richtig:HPNja|nein r"_ N ANVAN&<x*<NfN%NA큞N&<x*<NHA큞N&<x*<N&<x*<NXN &<x*<NL8NHNN&<x*<NXL8NNp&<x*<N&<x*<NANA큞N&<x*<NHA큞N&<x*<N&<x*<NXN &<x*<NL8NHNN&<x*<NXL8NNp&<x*<N&<x*<NAHNA큞N&<x*<NHA큞N&<x*<N&<x*<NXN &<x*<NL8NHNN&<x*<NXL8NNp&<x*<N&<x*<NA큶NNprNNIhr Biorhythmus heute : NNprNN Physisch : AN&<x*<NN &<x*<NXNNNprNN Psychisch : AHN&<x*<NN &<x*<NXNNNprNNIntellektuell : A큶N&<x*<NN &<x*<NXNNNCNHmA "_NgA퀖 0NNprNNBiorhythmus fr ApNN geboren am ANCNNN, den AjNN?< ?<?<?<~NNprNN = PhysischNpNpNprN?<?<?<?<~NNprNN = Psychisch4NpNpNprN?<,?<?<J?<~NNpr,NN= Intellektuell4NpNpNprNBg?<?<?<~NBg?<h?<?<h~NBg?<(?<?<(~NpNpNpNpNA퀖N"<NN%Ingo Montermann Andernach Januar 1989NpNpNpNpNC큞A* 0A큞N&<x*<NA*NA퀖N??<(A퀖N??<h~NA퀖N"<rNAfNNXNA퀖N"<yNA`NNXNA퀖N"<NAzNNXHPp"_NNA*N&<x*<NANAN&<x*<NANAN&<x*<NXN &<x*<NANNHNN&<x*<NXL8NNp&<x*<N&<x*<N&<x*<N&<x*<NANAN&<x*<NXN &<x*<NANNHNN&<x*<NXL8NNp&<x*<N&<x*<N&<x*<N&<x*<NANA퀖N?AN?A퀖N&<x*<NN?AN?~NA*N&<x*<NANAN&<x*<NANAN&<x*<NXN &<x*<NANNHNN&<x*<NXL8NNp&<x*<N&<x*<N&<x*<N&<x*<NAHNAN&<x*<NXN &<x*<NANNHNN&<x*<NXL8NNp&<x*<N&<x*<N&<x*<N&<x*<NANpNpNprNA퀖N?AHN?A퀖N&<x*<NN?AN?~NA*N&<x*<NANAN&<x*<NANAN&<x*<NXN &<x*<NANNHNN&<x*<NXL8NNp&<x*<N&<x*<N&<x*<N&<x*<NA큶NAN&<x*<NXN &<x*<NANNHNN&<x*<NXL8NNp&<x*<N&<x*<N&<x*<N&<x*<NATNpNpNprNA퀖N?A큶N?A퀖N&<x*<NN?ATN?~NA퀖N&<x*<NA퀖NAfN&<x*<NAfNA`N&<x*<NpJBgp/A`N&<x*<NpJBgp/A`N&<x*<NpJBgp/A`N&<x*<NpJBgp/A`N&<x*<NpJBgp/A`N&<x*<NpJBgp/A`N&<x*<NpJBgp$VHfN4AfN&<x*<NfN4Af 0A`N&<x*<NA`NA`N&<x*<NfN4A` 0AzN&<x*<NAzNA`N&<x*<NpJBgp/A`N&<x*<NpJBgp/A`N&<x*<NpJBgp/A`N&<x*<NpJBgp$VHfN5VAfN&<x*<NfN5VAf 0A`N&<x*<NA`NA`N&<x*<NfN5VA` 0AzN&<x*<NAzNA`N&<x*<NfN6AzNvNHAzNvNN L8NfN6VAfN&<x*<NfN6PAf 0A`N&<x*<NA`NA`N&<x*<NfN6PA` 0AzN&<x*<NAzNN6AfN&<x*<NfN6Af 0A`N&<x*<NA`NA`N&<x*<NfN6A` 0AzN&<x*<NAzNpNpNprNN`jNqNCNHmA "_NgNN8"R"RR4"R6"Rp Biorhythmus auf dem Atari ST Das Programm zur Berechnung des persnlichen Biorhythmus auf dem Atari wurde in GFA-Basic V2.0 geschrieben und anschlieend compiliert. Nach der Eingabe des Namens, dem Berechnungs- und Geburtsdatum gibt der ST drei Kurven fr den physischen, den psychischen und den intellektuellen Rhythmus auf den Zeitraum zwischen Berechnungsdatum und 31 Tagen dannach aus. Das Programmende kann durch Nichteingabe des Namens erreicht werden. Ingo Montermann Wiesenstr. 34 5470 Andernach - Namedy . `U'.. BIORHYTHPRG F TAG TOS F FfTAG PAS F `2BIORHYTHPAS F bwREADME DOC F ?README TAG F =NO_PANIK F `v,o&*n.. V/<V/Bg?<JNAO Jfr/Y=B K C V Y R W V FALTZ` 8```@`(````` *`` t` h`4` <` D` 0` B`J` ```````:``H`V`````0```v`~`z`v`Z`,`>`f`J``.`V`R`N`Z`T`t``n`D`4!**** KatCe-ST Vers. 1.2 ****7W//|NsWNsJf99NuHB,C*J g"o / ??<Bg?<NNO LNu/ &z'R,&_9NsO'O E'EPC Cd A' HZ7|7|O?<NNTJf 7|7|' kBBBkBkABBAC C C C C C AC C C C C '@'I'h'h'h 'h'h?<NNT'@Р ?<?<NNX k'HB ЈЈЫ@'@'|z + 4Vxf/NuBk0B?< NA\'@HzF?<?<NMP'|@a6Jf '|a&Bka,AD'HA'HBk`BPNs~ kBppNuMI| > \/??<NMPQNurxJ '`(r$&;)*D/=,>6H@?/<NM\LNu/?<NAT _NuH?/<NM\LNuH`/<NMXLNuH`/<`H`Bg?<`NurtNuaPC?< NDaD?<NNT|<f|?</NAT,@BgHz|?<NNAPJ@f>a?<ONATJka `?<NDNu$NErg( .g ?< NDSA`  gp ?< ND|`p.`p ?< NDQSf>aNuInhalt:*.*H@H@A<2ggX` H@J@g7@H@LNuB@`Jkg 0+Bk` aJ@fa fpNu?Ha0az0Nu/?< NAT _Nua?<?<NNX /+?< NA\BgNANu!KatCe-ST wirklich beenden (J/N)? H7ApapYa H< a0< aLNuH@PA$HpSfB"JLNuHa/Bg/ ?<NAXJf"ap'@LNuH&PA/?<ANA\Jk"ap'@LNu$Ap$Bg?/?<BNAO fp'@NuHEfa`p.a4L?NuaHaJf&Hk/<??<@NAO f'@L'NuaHahJf&Hk/<??<?NAO f'@L'Nu4+`4+7BNuH瀀??<NAXLNuH.l8a`aNza>EK&f R g kA(HX$&g0`REaESc$f`aHJgaa:JgXL6t`2a LJgNpL6tNuH.l8aa4zCE""PسfJgaaaRCn` aJgXL6taJfaNuaa,IC aIRNuH IBa6 e Raz` g( g gpa``pJgSSaRp aNpaJ`ajLNua` :o @NA\ '@ 4Vx'@`H'Hg 4Vx'HNuH@< dp g g g&`8pa8pJa2p `pa&pKa p`rpapEaBkp `^<g4< g< g4< f>>> Kein Code verfgbarWelches File starten: Pfadnamen eingeben: a`aaH`HZ$I'|aB Bk@aaC`'I'OHz`ICaa8`Kein Code zum Modul vorhandena`BFkaada"B$B|.fada$BrA g Qa$`IAp00AN`XNuW+kNsWk+7WHZ\+ft"ka&+aaAgj+faJgFa>< f`4< f`&<f+faJf&+xz2CgQ az+a.LdgaaR`aaDdafeva`.JBgjIZJfJIzJeX`a<:fHa(</g< f4Nua^a4'CNurPNsa2Ca o` -g2 *g" /fJg2p=aap&aHC2ap=a`Ж$`ԃ`B2+<0k<5j|<3fI@HBA&40Cԉ'BA 00N   NuH G%nAGB<0pABN`~ L@NuR &.2< . #\""v$2$% &&'f#r') )**)<))* *.#H"@ 6ɿkŭ+pxIGɀS~*vu@H8C 48k De`2 Ddpr`"C DDAx Bg$&(NPDfLNuH<$O`rvzRj8*S1@ ,g5C 0k  SENuA "A$&aHp0* 0a L a BA !AJPgRjNu5|Bja j g j- Wfal j+ fa`ABBBjBj J*gBj jlaj`Rj a0`6* C.f$a J*gBj jla:Sj a` jE g je fVa j- Wfa j+ faBjJ*g6* 8* DD5Ca`6*J*gDCj J*g Jjg0* a"fH$*&*aJ%@%A$<&<aJGg *"*>*HGBGL 0؀dRE؃dRE68HDBE؂dRE؆dRE<8HD>؁k KVUGk:JCjRFd RdTG|@dOgd0H@HD0"2LNu`BB`H0$&aL NuH?:8HDHC8,HB2Ag264HBHF4H@<@gpFAgzF0FA@Br1` Ke b fCbERQgR@d RdRFdVR@J@k| l2AH@0"`BBLNuLNuLNuJg BaBNuH?$B*CHL0@2DHA2HE:@gFDg2BF@efe|fCctDEG40I2BDgb|gbHG>HG`JO>BEHE`>| gb |>BEHE`(MHE>B`BBG|`|0gb| HE>BoV4@@Fk:GӅd$SdRCdRRB f0H@HA02`JFjRCdRd`NUƗGJkSBNSk>g&HAJAf2BCBJk(SBj` HASBKj`| 2gkSBIjHABCgBB`0H@HA02` " L?Nu`"0< Jgj0< DkS@jH@HA0BA`BBNuH8BCAJjvHA|8< Ao| d$H@4JCgD`B `LNuH0$&HBB BoL B'bBJgSfJ@fJg"f P`Jj`BBL NuHa$&La`H0$& <Ba`H?@B*(ktglH@ @d><@O0<G` @H@H@gH>HGOG$& "aba.f.jD nLNuLNuH0V$<&B3X g*U$D֝*$%}$H0$<&<;)\aaL NuH0$<Ԛ&Jo^H@B<0<@HH@ oR(*$<BaDEat$&aA"zap$& aadL|Nu`aC(: !Yb8N;)\H0aV$<r&<aFL NuH0a8$< &<`a&a"` <"<ڢ!cNuHJkFgL  n>>VTJB  6 h h  L X \ \ r   . D V  > L L ^ x A "_$Or$(TSQBNLMv  B N F R J r p 0\$tzP> \ "&*48< $4b&@C`D|NuB+Nu'kB+||BBBBBLBT'k(kHAV'HPNu'BԼ"@`"kԋ OX'H B'H'Hp _.IC'IN.kYNu?< NDNs?<"`?<*`?<.`?<`?<+`?</`C`C` C`C/ ?</?<NMP'@DNuC`C/ ?<,?<NMP'@@Nu?<NDJg?<NDNs8<(`8<,,_"a* a 鋆E"?NDNAv6lT`6Nu K %  ` X,nK/+D?</?<NMPONu/+@?<,?<NMPNu?<NDJgpNupNu",_?<NDN"@?<NDH2Nu?LNDHNu&"k*I|NL eRNO` g( g gpNO`pJgSSNOp NOpNO` Nu,_.fSWo ,p SgNO`CJgCaNTRUEFALSEp NOp NONugNOSfNup NONup`"Wa. їNu,_"k$~v R@gS&RG" /?<3NDJf`,_"O*IJg2o SAp NOQarTN?<NDNu,_"/ l A NuvQ`԰lA NuHz /LNuHNupA?<5NDNuB,NuЫ,,nNu lH@A@FNuvU`nr+M f|LB+a`@|R+MICX"2BQFNu@|+MCXrg4gPR`S+M+NjS+NQPg6)kT IP""R`FNu/ &zRR,JkLo^LHt+N+Mg4R+NJC\2'IPp0+.H@J@f i(kN kPP`B+NB+LAV'HPL&_9NsNs@| kP2@f2+T@gFpNuPkTFpNu@| @ kPPkTNs kPJPkpNupNu'H"k'IeSB2Q'HNu _vK`X k2SBf'HJNu/"kıe"H _d k Nu _ Nu @SfNu <;a,/ n6ҁ$҂҂e" 0eZ :dT` g JgS AvNuvNuRv 0e :e Ae am 7e dB鉂Sf`gD`Rrv p0m nҁSf  ` ae {d< Nu g g f<Nu<Nu<Nu "$<v~g~?<3ND~$?<3ND~?<3NDJfNuv`P~`~`~` ~`~ `~ " $&?<3ND fNupNu,_~?<3ND//N,_//N,_~?<3ND$&`,_$&" ~/`X~`P~`H~`D~ `@~ `<~?<3ND~#`0~`0~`,~`(~`$~`~`~`~`~ `~!` ~$`~%`$&" ?<3ND*,JfNu`x @H`Nu~ "?<3ND`~`,_B"@T*OK:SfN*@ k8R6g(SC`Q"H~?<3NDHGGf **BNuJ+fp'@Nuv`(",_$_^C*Q -g(d"M*U`f"/ `$ / *+B" "$N Ё'@X؍e dtp`/vK`a Nua Nuxz*k&-g؃ d**U` +Q"+e؀d*Nu @ Nu @'PNu,_ @p*OARd`SAfRRSf.MN,_  Or*T/"X*H W.e RJg"Sf _.HNal  Q.INa\ FQ`aN  Q`t`ta:SfHt f Qt`t`ta fQ O@ N*_,_"Or IA N,_ OA"JgO$pNaJO$gpN,_ @O"Or"QN,_&eFR$"apd RpvSf` p OXpNu,_2aN,_r *Opr*SfN,_"@r"SfN,_"o r"QO$NBTNu*_$"@* ~?<3NDv~/ "k?<3ND$_vmQN*_~& g~`v $"@:" `|`BF,_$_"O @*Oa~?<3NDf4HGSg <fRR` JFf~?<3ND($`H.MN/v`A4`A0`AZ`AR` A*`A&p,_$O*Oa"MaNp fLSd`Bpg<g<o e0f*Sfd"`$pggo e f Sfn@.MJgpNp,_$O*Oa"Mag gm I(JfSg `RSR`p.M(kN,_$O O*Ja\"MedaLgSfgSf$OBT(MI:Sf.L(kN*O(OBT,]$ nJg $MaSen0RSfBT(MI"O:Sf.L(kN,_ _Jgn nfgdR"OO*OgSf"H, (IRgSd"F/edRg"OSfO*OaJ.M(kN/vV`Jg@$/ n:"oBn(&ր(d R@ I$IBR@gSf,_PN/ve`~p,_*O&TN?<NDA& 1AY&CR vNt|.x UC*aBUB*aH*a\*aLRRSfCp?< NDRSaLC?< NDrp?< NDSfNrSEa,RQNuSEa RQNuSEaSQNuSEaSQNu"ቂ?<NDp*?< NDNu2 Laden Sie uns zum Essen ein ! Dann sagen wir,7 wie Kat-Ce wieder zum Leben erweckt wird. ,_&.a G?<7`,_.a G|?<6a2pNDJ@fN/0<f`,_aa.kp @"|?<6NDNu,_*OAg (nSf gR.MNBP`/v1`?<NDJf '@J+gJgp+Hvf`Nu +Nu _*O$kg SfB gR.M"kN4+rg?<NDSAjNuB*@-* fpap apa-*g:Jm,f *+m.@AC

>> RUN-Time Error, press Reset <<<~NF"<N$<~NF.<pzNx.<Nxt .<~Ax~NFp/p/,<><NF.<~)xp/p/,<><NF.<~)xp/p/,<#><NF.<~)x.<Nxt.<~Cx k2Q'HJNu.<Nxt .<NF.<NF.<NF"  _ .<NF"  _ .)x .<NF"  _ . 4x _ .<NF"  _ .<NFp~NF.<Nxt/.<NF~jNF/p" "&kR/ .<NF/.<NF"Ё/.< 4x/p"><NF/p" /p/><NF.<NF.<Nxt.<NFП/~!NF..m< ><NF.<.HtxpSr ><NFП/pП/p _.<.HtxpSr ><NFП/pП/p _.<.HtxpSr ><NFП/pП/p _.<.HtxpSr ><NFП/p.@?< ><NF.<.HtxpSr ><NFП/pП/p _.<.HtxpSr ><NFП/pП/p _.<.HtxpSr ><NFП/~!NF..m< ><NF.<.HtxpSr ><NFП/pП/p _.<.HtxpSr ><NFП/pП/pE _.<.HtxpSr ><NFП/pП/p _.<.HtxpSr ><NFП/~!NF..m< ><NF.<.HtxpSr ><NFП/pП/p _.<.HtxpSr ><NFП/pП/pF _.<.HtxpSr ><NFП/pП/p _.<.HtxpSr ><NFП/~!NF...< ><NF.<.HtxpSr ><NFП/pП/p _.<.HtxpSr ><NFП/pП/pW _.<.HtxpSr ><NFП/pП/p1 _.<.HtxpSr ><NFП/pП/p _.<.HtxpSr ><NFП/~!NF...< ><NF.<.HtxpSr ><NFП/pП/p _.<.HtxpSr ><NFП/pП/pW _.<.HtxpSr ><NFП/pП/p0 _.<.HtxpSr ><NFП/pП/p _.<Nxt.<^Cx k2Q'HJNu.<Nxt.<NFП/~!NFJanuar3< ><NF.<NFП/~!NFFebruar< ><NF.<NFП/~!NFMrzu< ><NF.<NFП/~!NFApril< ><NF.<NFП/~!NFMai< ><NF.<NFП/~!NFJunil< ><NF.<NFП/~!NFJulil< ><NF.<NFП/~!NFAugustr< ><NF.<NFП/~!NF September< ><NF.<NFП/~!NFOktober< ><NF.<NFП/~!NFNovemberr< ><NF.<NFП/~!NFDezemberr< ><NF.<Nxt.<NF/.<NF.<Nx <NF/.<NF.<Nx <,Ќ @*,.<, 4xt.<Cx k2Q'HJNu.<Nx.<Nxt.<NF.< 4x><NF.<Nxt.<NF <Ќ/a <Ќ><NF.< 4x/p"WHHg: <Ќ/a <Ќ><NF <Ќ/a <Ќ><NF <Ќ/ <Ќ/a <Ќ/ <Ќ/a <Ќ @*,// <Ќ @*,&(,*><NF.< 4x><NF` <..<)xp .<)xp.<)x <Ќ/a <Ќ><NF <Ќ/a <Ќ><NF <Ќ/ <Ќ/a <Ќ @*,// <Ќ @*,&(,*><NF.< 4x><NFp.<)x <Ќ/aj <Ќ><NF <Ќ/aN <Ќ><NF <Ќ/ <Ќ/a.< 4x @*,// <Ќ @*,// <Ќ @*,&(,*><NF&(,*><NF//p~"NF&(,*><NF.< 4x><NF.<Nxt(..<NF.< 4x/ <NF&( ~"NF><NF <|Ќ><NF.< 4x/p"]HHg.< 4x/p "Ё.<)x <|Ќ @*,//p~"NF&(,*><NF <|Ќ><NF <|Ќ @*,//p~"NF&(,*><NFgJpc~"NF <|Ќ><NF <NF <NF.< 4x~"NF <NF.< 4x~"NF <NF.< 4x&rf" <NF//p~"NF&(,*><NF//p ~"NF&(,*><NF~hNF&(,*><NF// <|Ќ @*,&(,*><NF// <|Ќ @*,//p~"NF&(,*><NF~hNF&(,*><NF//p~"NF&(,*><NF// <NF <NF``ցrfV <NF//p~"NF&(,*><NF//p ~"NF&(,*><NF~hNF&(,*><NF// <|Ќ @*,&(,*><NF// <|Ќ @*,//p~"NF&(,*><NF~hNF&(,*><NF// <NF~hNF&(,*><NF//p/ <NF&(,*><NF <NF <NF~hNF&( ~"NF><NF&(,*><NF <NF <NFg6 <NF <NF <NFgz <NFp.@?~mNF <6Ќ><NF~mNFp.@?~mNF <0Ќ><NF~mNF< <Ќ~9NF <Ќ><NF~jNF/p "]HHgn <Ќ><NF~jNF/p "&kNR/ .<)x <Ќ><NFp @?~mNF< <Ќ~9NF.<RxSfX.<NF~mNF< <Ќ~9NF`Nցrf0~!NFSo, <Ќ><NF~mNF< <Ќ~9NF`ցrf0~!NFMo, <Ќ><NF~mNF< <Ќ~9NF`ցrf0~!NFDi, <Ќ><NF~mNF< <Ќ~9NF`ցrf0~!NFMi, <Ќ><NF~mNF< <Ќ~9NF`nցrf0~!NFDo, <Ќ><NF~mNF< <Ќ~9NF`6ցrf,~!NFFr, <Ќ><NF~mNF< <Ќ~9NF`.~!NF--,~!NF --.--.----5~mNF< <Ќ~9NF.<` 4x/.<\ 4x/ <Ќ><NFa.<Nxt&.<Cx k2Q'HJNu.<Nx.<Nxt.<NFП/.< 4xSr|><NFП/.< 4xSП/ < _ .<NF <Ќ><NFp.<)x.<04xH/p"WHHg4.< 4x/p"WHHg.< 4x/p"WHHg.<NFП/pSr|><NFП/pSП/ < _ .<NFП/pSr|><NFП/pSП/ < _ .<NFП/pSr|><NFП/pSП/ < _ <Ќ @*,//p~"NF&(,*><NF <Ќ><NF <Ќ @*,//p~"NF&(,*><NFgp/p"&k~R/ .<)x.<NFП/.< 4xSr|><NFП/.< 4xSП/ < _ .<NF.< 4x/ <."WHHgp.<)x < Ќ.<NF <Ќ><NFp/p "&kR/ .< )x~!NF ** Ermittle .<NFП><NF~mNF~!NF. Bitte Warten. ** ~mNF<Q <Ќ~9NFp/p/ <Ќ><NFap/.<NFП/.< 4xSr|><NFП/.< 4xSП/*<,<// <Ќ @*,&(,*><NF~_NF//p2~"NF&(,*><NF//p7~"NF&(,*><NF~+NF _ .<NFП/.< 4xSr|><NFП/.< 4xSП/*<,<NF~_NF//p2~"NF&(,*><NF//p7~"NF&(,*><NF~+NF _ .<NFП/.< 4xSr|><NFП/.< 4xSП/*<,<ח// <Ќ @*,&(,*><NF~_NF//p2~"NF&(,*><NF//p7~"NF&(,*><NF~+NF _ .< 4x/ <."WHH/.<04xH/p"WHH"A/ <Ќ @*,//p~"NF&(,*><NF"Aga <Ќ @*,//p~"NF&(,*><NF <Ќ><NF.<RxSf>X.< RxSfjX.<Nxt. 50-ap'/p/~!NF$A/D : Tag Y/C : Monat (-/+)rap'/p /~!NF J : Datum L : Drucke aԨp'/p /~!NF$ H : Copy S : Deuten E : Enderarp/p/~!NFKrper :paXp/p /~!NFSeele :pa>p/p /~!NFGeist :pa$p/p/~!NF Geb. Datum:ap/p/~!NF Akt. Datum:ap*/p7/ <V/p7/aҌp*/p7/p" / <V/p7/p" /a`p(/p7/p2"Ё/p(/p7/p2" /a:p)/p7/p2"Ё/p)/p7/p2" /ap/p"&kR/ .<NF"Ё/p-/p7/.<NF"Ё/aѨp#/p7/.<NF" /p-/p7/.<NF" /aX.<NF"Ё/p7/p"Ё/p(/.<NF"Ё/p7/p" /ap)/.<NF"Ё/p7/p"Ё/p)/.<NF"Ё/p7/p" /aj.<NF~+NF/~!NF+10ap/ </p7" /p "Ё/p~"NF&( ~"NF><NF~+NF/p"Ё/~!NF-10aѰp/ </p7" /p" /p~"NF&( ~"NF><NF~+NF/~!NF+20ahp/ </p7" /p"Ё/p~"NF&( ~"NF><NF~+NF/~!NF-20a"p/ </p7" /p" /p~"NF&( ~"NF><NF~+NF/p"Ё/~!NF+30ap/ </p7" /p"Ё/p~"NF&( ~"NF><NF~+NF/~!NF-30aЌp/ </p7" /p(" /p~"NF&( ~"NF><NF~+NF/p"Ё/~!NF+40a<NF~+NF/~!NF-40ap/ </p7" /p2" /p~"NF&( ~"NF><NF~+NF/p"Ё/~!NF+50aϦp/ </p7" /p2"Ё/p~"NF&( ~"NF><NF~+NF/~!NF-50a`p/ </p7" /p~"NF&( ~"NF><NF~+NF/p"Ё/p5@?ap/ </p7" /p~"NF&( ~"NF><NF~+NF/p"Ё/~!NF100ap%/ </p7" /p~"NF&( ~"NF><NF~+NF/p"Ё/~!NF150aΎp0/ </p7" /p~"NF&( ~"NF><NF~+NF/p"Ё/~!NF200aHp;/ </p7" /p~"NF&( ~"NF><NF~+NF/p"Ё/~!NF250apG/ </p7" /p~"NF&( ~"NF><NF~+NF/p"Ё/~!NF300aͼ.<Nxt.0000): .< 4x~NF~'NF~NF.< 4x @ /p"^HHg.< 4xм /.< 4x @ /a _0~NF Monat: 0.< 4xX~NF~'NF~NF.< 4xX @ /p "_HHg~NF Tag (<=0.<NFg.< 4xм/p _ `.< 4xм/p _ .< 4x @ / <."WHH/.< 4xX @ /p "WHH"A/.< 4xм @ /p"^HH"A/.< 4xм @ /p"]HH"Ag~NF~NF9 ! Dieses Datum hat nie exisiert, es wurde bei der ! ~NF~NF ! Kalenderumstellung anno r <./p~ NF~NF ausgelassen. e~NF !l~NF~NF9 ! Bitte neuen Tag eingeben ! ~NF~NFp.<9x.<04xHg.<Nxt.<NFП><NFp~NF.<.HtxpSr ><NFП><NFp~NF~NF~NF~NF~NF Sie haben am .<.HtxpSr ><NFП><NFp~NF~NF <NFП><NFp~NF~NF, den b.<| 4x/p~ NFp.NO.<NFП/.<NFП/.<| 4xSП @ / <"]HHg~NF~NF eine b~NF <.<NFП/.<NFП/.<| 4xSП @ /p7" /p ~"NF&( ~"NF><NF~hNF//.<NFП/.<NFП/.<| 4xSП @ /p7" /p ~"NF&( ~"NF><NF~hNF//.<NFП/.<NFП/.<| 4xSП @ / <"WHH"Agp.<NFП/.<NFП/.<| 4xSП @ / <"WHHgF.<NFП/.<NFП/.<| 4xSП @ /p7" /p ~"NF&( ~"NF><NF~hNF//.<NFП/.<NFП/.<| 4xSП @ /p7" /p ~"NF&( ~"NF><NF~hNF&(,*~xNFg.<NFП/.<NFП/.<| 4xSП @ /p7" /p"^HHg\~NF.<.HtxpSr ><NFП><NFp~NF~NF%Guter Tag fr alle Angelegenheiten ! ~NF`.<NFП/.<NFП/.<| 4xSП @ /p7" /p"]HHg^~NF.<.HtxpSr ><NFП><NFp~NF~NF*Schlechter Tag fr alle Angelegenheiten ! t~NF.<NFП/.<NFП/.<| 4xSП @ /p7" /p "~NF/p"WHHg.<NFП/.<NFП/.<| 4xSП @ /p7" /p "~NF/p"WHHg..<NFП/.<NFП/.<| 4xSП @ /p7" /p "~NF/p"WHHg.<NFП><NFp~NF~NF( GEFAHR ! DREI NULLDURCHGNGE ! GEFAHR !!~NF~NF~NF~NF) ACHTUNG VOR UNFLLEN/KRANKHEITEN/TOD ! ~NF~NF.<NFП><NFp~NF~NF.<NFП/.<NFП/.<| 4xSП @ / <"]HHg~NF~NF Das ist ihr ~NF <NFП><NFp~NF~NFGltig fr Geb.-Datum : A~NF <Ќ/aɺ&rf~NF~NFSal~NF`ցrf~NF~NFSol~NF`ցrf~NF~NFMol~NF`vցrf~NF~NFDil~NF`Xցrf~NF~NFMil~NF`:ցrf~NF~NFDol~NF`ցrf~NF~NFFrl~NF~NFp,NO.<$ 4x/p~ NFp.NO.< 4x/p~ NFp.NO.< 4x/p~ NFp.NO.<.HtxpSr ><NFП><NFp~NF~NF -mkb 88~NF~NF~NF.<.HtxpSr ><NFП><NFp~NF~NFp/p("&k0R/ .<NFП><NF~mNF~!NF CAUTIONDAY e~mNF.<.HtxpSr ><NFП><NF~mNF<Q <Ќ~9NF.<" 4x/p "\HHg~!NF D<Q <Ќ~9NFp/.<" 4x/p "~NF"&kNR/ .<)x <Ќ><NFp+@?~mNF<Q <Ќ~9NF.<RxSfX`.<" 4x/ <"]HHg~!NF<Q <Ќ~9NFp/.<" 4x/p"><NF/p "~NF"&kNR/ .<)x <Ќ><NFp-@?~mNF<Q <Ќ~9NF.<RxSfX`4~!NF (nicht gelebt)<Q <Ќ~9NF.<Nxt.<Cx k2Q'HJNut4.<&Ax~NFap'/p/~!NF"Druckerausgabe mit Deutung (J/N) :Ta <8Ќ~NF.<804x~*NF.<89xp'/p/~!NF# aa < Ќ.<&Cxr~NFp.<.)x~NF.<.HtxpSr ><NFП><NFp~NF~NF~NF~NF~NF~NF~NF~NFBiorhythmuswerte ~NF~NF~NF~NF---------------- ~NF~NF~NF~NF~NF~NF~NF~NF~NF~NFFr:-~NF~NF~NF~NF Geb. am : -~NF <Ќ/aR&rf~NF~NFSab~NF`ցrf~NF~NFSob~NF`ցrf~NF~NFMob~NF`vցrf~NF~NFDib~NF`Xցrf~NF~NFMib~NF`:ցrf~NF~NFDob~NF`ցrf~NF~NFFrb~NF~NF~NF, b.<$ 4x/p~ NF~NF. b.<NFП><NFp~NF~NF~NFp NO.< 4x/p~ NF~NF~NF~NF~NFGeltungsmonat: .<NFП><NFp~NF~NF~NFp NO.< 4x/p~ NF~NF~NF~NF~NFDer Monat enthlt den ~NF <:Ќ/ <Ќ/ <&Ќ/a2 <:Ќ @*,~+NF/p"Ё.<NFП><NFp~NF.<.HtxpSr ><NFП><NFp~NFp NO.<NFП><NFp~NF.<.HtxpSr ><NFП><NFp~NF~NF~NFp/p"&kR/ .<NFП/.< 4xSr|><NFП/.<NFП/.< 4xSr|><NFП/.<NFp~NF~NF~NF.<NFП/.< 4xSr|><NFП/.< 4xSП @ /p "~NF/.<NFП/.< 4xSr|><NFП/.< 4xSП @ /p "~NF"WHHg.<NFП/.< 4xSr|><NFП/.< 4xSП @ /p7" /p"^HHg\~NF.<.HtxpSr ><NFП><NFp~NF~NF%Guter Tag fr alle Angelegenheiten ! ~NF`.<NFП/.< 4xSr|><NFП/.< 4xSП @ /p7" /p"]HHg^~NF.<.HtxpSr ><NFП><NFp~NF~NF*Schlechter Tag fr alle Angelegenheiten ! t~NF`(.<NFП><NFp~NF~NF~NF.<Nxt.<&Cx k2Q'HJNu.< HNx.<Nxt6.<NFП/.< 4xSr|><NFП/.< 4xSП @ / <"]HH"A/.<NFП/.< 4xSr|><NFП/.< 4x/p"ЁSП @ / <"]HH"Ag p1/p/.< 4x/p" "><NF"Ё/.<NFП/.< 4xSr|><NFП/.< 4xSП @ /p1/p/.< 4x"><NF"Ё/p" /.<NFП/.< 4xSr|><NFП/.< 4x/p"ЁSП @ /a.< 4x/p"WHH/.<NFП/.< 4xSr|><NFП/.< 4xSП @ / <"]HH"A/.<NFП/.< 4xSr|><NFП/.< 4x/p"ЁSП @ / <"]HH"Ag^p1/p/.< 4x/p" "><NF"Ё/.<NFП/.< 4xSr|><NFП/.< 4xSП @ /p1/p/.< 4x/p" "><NF"Ё/p" /.<NFП/.< 4xSr|><NFП/.< 4xSП @ /p" /a.< 4x/.<NF"Ё/.<NFП/.< 4xSr|><NFП/.< 4x/p"ЁSП @ /p1/p/.< 4x"><NF"Ё/p" /.<NFП/.< 4xSr|><NFП/.< 4x/p"ЁSП @ /aZ.<NF"Ё/p7/p"Ё/p//.< 4x"Ё/p/.< 4x/p" "><NF"Ё/p7/p" /a.<NF"Ё/p7/p2"Ё/p1/.< 4x/p" /p"><NF"Ё/p7/p2" /a.<Nxt .<NFp.<9xp.<9xaѦp.<9x < Ќ/ap/p/ < Ќ/a < Ќ/anp/p"&kR/ .<)x.<NFП/.< 4xSr|><NFП/.< 4xSП @ /p7" /p/ <ЌrQ~@NF <Ќ><NF~jNF/p"]HHgxp/p/ <Ќ><NF~jNF" "&kNR/ .<NFp @?~mNF<Q <Ќ~9NF.<NFП/.< 4xSr|><NFП/.< 4xSП @ / <"WHHg~!NF---<Q <Ќ~9NFp/p/.< 4x"Ё/ <Ќ><NFa.<RxSf>X <Ќ~NF.<04x/><NFpa><NFpA><NFpd><NFpD><NFpy><NFpY><NFpc><NFpC><NFpj><NFpJ><NFpl><NFpL><NFpe><NFpE><NFph><NFpH><NFps><NFpS><NF~vNFgF < Ќ/a.<04x&ragցrAf.< 4x/p" .<)x.< 4x/p"]HHgp.<9x < Ќ/a.<NFgp.<)x`p.<)x.<04xH/.<04xH"Ag.<04xH/.<04xH"AgZad.< 4x/p"]HH/.<04xH"Ag.<Nxt.<Cx k2Q'HJNuanaNa~NF~NF,(c) mkb rewritten dec. 88 on atari from c128e~NF.<Nx><NFp.<9xp.<9x`|ցrlgցrLf a@``ցrhgցrHf&`ex,o&*n.. V/<V/Bg?<JNAO Jfr/Y=B K C V Y R W V FALTZ` 8```@`(````` *`` t` h`4` <` D` 0` B`J` ```````:``H`V`````0```v`~`z`v`Z`,`>`f`J``.`V`R`N`Z`T`t``n`D`4!**** KatCe-ST Vers. 1.2 ****7W//|NsWNsJf99NuHB,C*J g"o / ??<Bg?<NNO LNu/ &z'R,&_9NsO'O E'EPC Cd A' HZ7|7|O?<NNTJf 7|7|' kBBBkBkABBAC C C C C C AC C C C C '@'I'h'h'h 'h'h?<NNT'@Р ?<?<NNX k'HB ЈЈЫ@'@'|z + 4Vxf/NuBk0B?< NA\'@HzF?<?<NMP'|@a6Jf '|a&Bka,AD'HA'HBk`BPNs~ kBppNuMI| > \/??<NMPQNurxJ '`(r$&;)*D/=,>6H@?/<NM\LNu/?<NAT _NuH?/<NM\LNuH`/<NMXLNuH`/<`H`Bg?<`NurtNuaPC?< NDaD?<NNT|<f|?</NAT,@BgHz|?<NNAPJ@f>a?<ONATJka `?<NDNu$NErg( .g ?< NDSA`  gp ?< ND|`p.`p ?< NDQSf>aNuInhalt:*.*H@H@A<2ggX` H@J@g7@H@LNuB@`Jkg 0+Bk` aJ@fa fpNu?Ha0az0Nu/?< NAT _Nua?<?<NNX /+?< NA\BgNANu!KatCe-ST wirklich beenden (J/N)? H7ApapYa H< a0< aLNuH@PA$HpSfB"JLNuHa/Bg/ ?<NAXJf"ap'@LNuH&PA/?<ANA\Jk"ap'@LNu$Ap$Bg?/?<BNAO fp'@NuHEfa`p.a4L?NuaHaJf&Hk/<??<@NAO f'@L'NuaHahJf&Hk/<??<?NAO f'@L'Nu4+`4+7BNuH瀀??<NAXLNuH.l8a`aNza>EK&f R g kA(HX$&g0`REaESc$f`aHJgaa:JgXL6t`2a LJgNpL6tNuH.l8aa4zCE""PسfJgaaaRCn` aJgXL6taJfaNuaa,IC aIRNuH IBa6 e Raz` g( g gpa``pJgSSaRp aNpaJ`ajLNua` :o @NA\ '@ 4Vx'@`H'Hg 4Vx'HNuH@< dp g g g&`8pa8pJa2p `pa&pKa p`rpapEaBkp `^<g4< g< g4< f>>> Kein Code verfgbarWelches File starten: Pfadnamen eingeben: a`aaH`HZ$I'|aB Bk@aaC`'I'OHz`ICaa8`Kein Code zum Modul vorhandena`BFkaada"B$B|.fada$BrA g Qa$`IAp00AN`XNuW+kNsWk+7WHZ\+ft"ka&+aaAgj+faJgFa>< f`4< f`&<f+faJf&+xz2CgQ az+a.LdgaaR`aaDdafeva`.JBgjIZJfJIzJeX`a<:fHa(</g< f4Nua^a4'CNurPNsa2Ca o` -g2 *g" /fJg2p=aap&aHC2ap=a`Ж$`ԃ`B2+<0k<5j|<3fI@HBA&40Cԉ'BA 00N   NuH G%nAGB<0pABN`~ L@NuR &.2< . #\""v$2$% &&'f#r') )**)<))* *.#H"@ 6ɿkŭ+pxIGɀS~*vu@H8C 48k De`2 Ddpr`"C DDAx Bg$&(NPDfLNuH<$O`rvzRj8*S1@ ,g5C 0k  SENuA "A$&aHp0* 0a L a BA !AJPgRjNu5|Bja j g j- Wfal j+ fa`ABBBjBj J*gBj jlaj`Rj a0`6* C.f$a J*gBj jla:Sj a` jE g je fVa j- Wfa j+ faBjJ*g6* 8* DD5Ca`6*J*gDCj J*g Jjg0* a"fH$*&*aJ%@%A$<&<aJGg *"*>*HGBGL 0؀dRE؃dRE68HDBE؂dRE؆dRE<8HD>؁k KVUGk:JCjRFd RdTG|@dOgd0H@HD0"2LNu`BB`H0$&aL NuH?:8HDHC8,HB2Ag264HBHF4H@<@gpFAgzF0FA@Br1` Ke b fCbERQgR@d RdRFdVR@J@k| l2AH@0"`BBLNuLNuLNuJg BaBNuH?$B*CHL0@2DHA2HE:@gFDg2BF@efe|fCctDEG40I2BDgb|gbHG>HG`JO>BEHE`>| gb |>BEHE`(MHE>B`BBG|`|0gb| HE>BoV4@@Fk:GӅd$SdRCdRRB f0H@HA02`JFjRCdRd`NUƗGJkSBNSk>g&HAJAf2BCBJk(SBj` HASBKj`| 2gkSBIjHABCgBB`0H@HA02` " L?Nu`"0< Jgj0< DkS@jH@HA0BA`BBNuH8BCAJjvHA|8< Ao| d$H@4JCgD`B `LNuH0$&HBB BoL B'bBJgSfJ@fJg"f P`Jj`BBL NuHa$&La`H0$& <Ba`H?@B*(ktglH@ @d><@O0<G` @H@H@gH>HGOG$& "aba.f.jD nLNuLNuH0V$<&B3X g*U$D֝*$%}$H0$<&<;)\aaL NuH0$<Ԛ&Jo^H@B<0<@HH@ oR(*$<BaDEat$&aA"zap$& aadL|Nu`aC(: !Yb8N;)\H0aV$<r&<aFL NuH0a8$< &<`a&a"` <"<ڢ!cNuHJkFgL  n>>VTJB  6 h h  L X \ \ r   . D V  > L L ^ x A "_$Or$(TSQBNLMv  B N F R J r p 0\$tzP> \ "&*48< $4b&@C`D|NuB+Nu'kB+||BBBBBLBT'k(kHAV'HPNu'BԼ"@`"kԋ OX'H B'H'Hp _.IC'IN.kYNu?< NDNs?<"`?<*`?<.`?<`?<+`?</`C`C` C`C/ ?</?<NMP'@DNuC`C/ ?<,?<NMP'@@Nu?<NDJg?<NDNs8<(`8<,,_"a* a 鋆E"?NDNAv6lT`6Nu K %  ` X,nK/+D?</?<NMPONu/+@?<,?<NMPNu?<NDJgpNupNu",_?<NDN"@?<NDH2Nu?LNDHNu&"k*I|NL eRNO` g( g gpNO`pJgSSNOp NOpNO` Nu,_.fSWo ,p SgNO`CJgCaNTRUEFALSEp NOp NONugNOSfNup NONup`"Wa. їNu,_"k$~v R@gS&RG" /?<3NDJf`,_"O*IJg2o SAp NOQarTN?<NDNu,_"/ l A NuvQ`԰lA NuHz /LNuHNupA?<5NDNuB,NuЫ,,nNu lH@A@FNuvU`nr+M f|LB+a`@|R+MICX"2BQFNu@|+MCXrg4gPR`S+M+NjS+NQPg6)kT IP""R`FNu/ &zRR,JkLo^LHt+N+Mg4R+NJC\2'IPp0+.H@J@f i(kN kPP`B+NB+LAV'HPL&_9NsNs@| kP2@f2+T@gFpNuPkTFpNu@| @ kPPkTNs kPJPkpNupNu'H"k'IeSB2Q'HNu _vK`X k2SBf'HJNu/"kıe"H _d k Nu _ Nu @SfNu <;a,/ n6ҁ$҂҂e" 0eZ :dT` g JgS AvNuvNuRv 0e :e Ae am 7e dB鉂Sf`gD`Rrv p0m nҁSf  ` ae {d< Nu g g f<Nu<Nu<Nu "$<v~g~?<3ND~$?<3ND~?<3NDJfNuv`P~`~`~` ~`~ `~ " $&?<3ND fNupNu,_~?<3ND//N,_//N,_~?<3ND$&`,_$&" ~/`X~`P~`H~`D~ `@~ `<~?<3ND~#`0~`0~`,~`(~`$~`~`~`~`~ `~!` ~$`~%`$&" ?<3ND*,JfNu`x @H`Nu~ "?<3ND`~`,_B"@T*OK:SfN*@ k8R6g(SC`Q"H~?<3NDHGGf **BNuJ+fp'@Nuv`(",_$_^C*Q -g(d"M*U`f"/ `$ / *+B" "$N Ё'@X؍e dtp`/vK`a Nua Nuxz*k&-g؃ d**U` +Q"+e؀d*Nu @ Nu @'PNu,_ @p*OARd`SAfRRSf.MN,_  Or*T/"X*H W.e RJg"Sf _.HNal  Q.INa\ FQ`aN  Q`t`ta:SfHt f Qt`t`ta fQ O@ N*_,_"Or IA N,_ OA"JgO$pNaJO$gpN,_ @O"Or"QN,_&eFR$"apd RpvSf` p OXpNu,_2aN,_r *Opr*SfN,_"@r"SfN,_"o r"QO$NBTNu*_$"@* ~?<3NDv~/ "k?<3ND$_vmQN*_~& g~`v $"@:" `|`BF,_$_"O @*Oa~?<3NDf4HGSg <fRR` JFf~?<3ND($`H.MN/v`A4`A0`AZ`AR` A*`A&p,_$O*Oa"MaNp fLSd`Bpg<g<o e0f*Sfd"`$pggo e f Sfn@.MJgpNp,_$O*Oa"Mag gm I(JfSg `RSR`p.M(kN,_$O O*Ja\"MedaLgSfgSf$OBT(MI:Sf.L(kN*O(OBT,]$ nJg $MaSen0RSfBT(MI"O:Sf.L(kN,_ _Jgn nfgdR"OO*OgSf"H, (IRgSd"F/edRg"OSfO*OaJ.M(kN/vV`Jg@$/ n:"oBn(&ր(d R@ I$IBR@gSf,_PN/ve`~p,_*O&TN?<NDA& 1AY&CR vNt|.x UC*aBUB*aH*a\*aLRRSfCp?< NDRSaLC?< NDrp?< NDSfNrSEa,RQNuSEa RQNuSEaSQNuSEaSQNu"ቂ?<NDp*?< NDNu2 Laden Sie uns zum Essen ein ! Dann sagen wir,7 wie Kat-Ce wieder zum Leben erweckt wird. ,_&.a G?<7`,_.a G|?<6a2pNDJ@fN/0<f`,_aa.kp @"|?<6NDNu,_*OAg (nSf gR.MNBP`/v1`?<NDJf '@J+gJgp+Hvf`Nu +Nu _*O$kg SfB gR.M"kN4+rg?<NDSAjNuB*@-* fpap apa-*g:Jm,f *+m.@AC

>> RUN-Time Error, press Reset <<<~NF"<2$<~NF.<Nxp.<9x~NF~NFWochentagsermittlung (p)88 mkb-~NF~NF-------------------------------~NF~NF~NF<- Bitte Jahr eingeben : ~NF~NF.. <Ќ~NF~(NF~NF <Ќ @*,//p~"NF&(,*><NFgp.<9x.<04xHF@g ~NF<- Bitte Monat eingeben : -~NF~NF.. <Ќ~NF~(NF~NF <Ќ @*,//p~"NF&(,*><NF/ <Ќ @*,//p ~"NF&(,*><NF"Ag~NF<- Bitte Tag eingeben : :~NF~NF.. <Ќ~NF~(NF~NF <Ќ @*,//p~"NF&(,*><NF/ <Ќ @*,//p ~"NF&(,*><NF"Ag~NF <Ќ @*,// <Ќ @*,//pd~"NF&(,*><NF~hNF//pd~"NF&(,*><NF&(,*><NF <Ќ><NF <Ќ @*,// <Ќ @*,&(,*><NF//pd~"NF&(,*><NF <Ќ><NF <Ќ @*,//p~"NF&(,*><NFg <Ќ @*,//p ~"NF&(,*><NF <Ќ><NF <Ќ @*,//p~"NF&(,*><NF <Ќ><NF <Ќ @*,//p~"NF&(,*><NFgJpc~"NF <Ќ><NF <Ќ @*,//p~"NF&(,*><NF <Ќ><NFp.<)x <Ќ @*,//pd~"NF&(,*><NF// <Ќ @*,&(,*><NF// <.~"NF&(,*><NFgp.<)x`\ <Ќ @*,//pd~"NF&(,*><NF// <Ќ @*,&(,*><NF// <.~"NF&(,*><NFgp.<)x` <Ќ @*,//p ~"NF&(,*><NFgp.<)x` <Ќ @*,//p ~"NF&(,*><NFgp.<)x`r <Ќ @*,//p~"NF&(,*><NFgp.<)x`8 <Ќ @*,//p~"NF&(,*><NFgp.<)x.< 4x&rf0~NF -- Datum hat nicht existiert --~NF`ցrf" <Ќ @*,// <Ќ @*,//p~"NF&(,*><NF//p~"NF&(,*><NF//p ~"NF&(,*><NF~hNF&(,*><NF// <Ќ @*,&(,*><NF// <Ќ @*,//p~"NF&(,*><NF~hNF&(,*><NF//p~"NF&(,*><NF// <Ќ @*,&(,*><NF <Ќ><NF``ցrfV <Ќ @*,// <Ќ @*,//p~"NF&(,*><NF//p~"NF&(,*><NF//p ~"NF&(,*><NF~hNF&(,*><NF// <Ќ @*,&(,*><NF// <Ќ @*,//p~"NF&(,*><NF~hNF&(,*><NF// <Ќ @*,//p~"NF&(,*><NF~hNF&(,*><NF//p/ <Ќ @*,&( ~"NF><NF&(,*><NF <Ќ><NF <Ќ @*,//p/ <Ќ @*,//p~"NF&(,*><NF~hNF&( ~"NF><NF&(,*><NF <Ќ><NF <Ќ @*,//p~"NF&(,*><NFg6 <Ќ @*,//p~"NF&(,*><NF <Ќ><NF <Ќ @*,//p~"NF&(,*><NFgz.< 4x/p"^HHg <Ќ @*,~+NF&rf~NF -> Samstagh~NF`ցrf~NF -> Sonntagh~NF`ցrf~NF -> Montag~NF`ցrf~NF -> Dienstag~NF`fցrf~NF -> Mittwoch~NF`Dցrf~NF -> Donnerstag~NF` ցrf~NF -> Freitagt~NF,<><NF~"NF <Ќ><NF.<04xHgN.<Nx><NFЌ @*,//p~"NF&(,*><NFg6 <Ќ @*,//p~"NF&(,*><NFvar j,c,t,m : real; system : integer; ende : boolean; begin ende:=false; repeat clrscr;writeln('Wochentagsermittlung (p)88 mkb'); writeln('------------------------------');writeln; writeln('<- Bitte Jahr eingeben : ');write('..'); readln(c); if c<0 then ende:=true; if not ende then begin writeln('<- Bitte Monat eingeben : ');write('..'); repeat readln(m); until (m>0) and (m<13); writeln('<- Bitte Tag eingeben : ');write('..'); repeat readln(t); until (t>0) and (t<32);writeln; j:=c-int(c/100)*100; c:=(c-j)/100; if m<3 then begin m:=m+12; j:=j-1; if j<0 then begin j:=99; c:=c-1; end; end; system:=0; if c*100+j<1582 then system:=1 else if c*100+j>1582 then system:=2 else if m<10 then system:=1 else if m>10 then system:=2 else if t<5 then system:=1 else if t>14 then system:=2; case system of 0 : writeln(' -- Datum hat nicht existiert --'); 1 : t:=t+int((m+1)*26/10)+j+int(j/4)+5-c; 2 : t:=t+int((m+1)*26/10)+j+int(j/4)+int(c/4)-2*c; end; t:=t-7*int(t/7); repeat if t>6 then t:=t-7; until t<=7; if (system>0) then case round(t) of 0 : writeln('-> Samstag'); 1 : writeln('-> Sonntag'); 2 : writeln('-> Montag'); 3 : writeln('-> Dienstag'); 4 : writeln('-> Mittwoch'); 5 : writeln('-> Donnerstag'); 6 : writeln('-> Freitag'); end; j:=crawcin; end; until ende; end. program biorhythmus; {(c) 1987/88 mkb } { ----------------- Systemunabhngige Variablen/Konstanten ------------------ } type byte = 0..255; { nur ntig, wenn nicht implementiert } dat = record jahr : integer; monat : byte; tag : byte; schalt : boolean; system : byte; end; sht = string; const stichjahr = 1582; stichmonat = 10; stichtag_jul = 4; stichtag_greg = 15; koerper = 0.27318197; { hier evtl. genauere Werte (je nach } seele = 0.224399475; { System) einsetzen, diese zieml. genau } geist = 0.190399555; { } null = 55; imp_version = '4.mG'; { Version 4.09 auf Mot. 68000 in Deutsch } var monatsl : array [1..12] of byte; verg : array [1..12] of integer; wert2 : array [0..7] of integer; monatsn : array [1..12] of string[10]; wert : array [1..3,1..12,1..31] of byte; druckstr : array [1..7] of string[8]; geb_datum : dat; akt_datum : dat; testdat : dat; print : string [80]; print1 : string [8]; print2 : string [8]; print3 : string [8]; beenden : boolean; testdiff : real; i,u,w : integer; { ------------- Systemabhngige Variablen : hier f. ATARI ST ---------------- } handle_gem : integer; work_gem : array [0..56] of integer; { ---------------- Systemabhngiger Teil : hier f. ATARI ST ----------------- } procedure curs_on; var i : integer; begin i:=cursconf(1,0); i:=cursconf(4,20); i:=kbrate(14,2); end; procedure curs_off; var i : integer; begin i:=cursconf(0,0); i:=kbrate(8,3); end; procedure hireson; begin curs_off; { Mindestgrafikauflsung : } for i:=0 to 9 do work_gem[i]:=1; { } work_gem[10]:=2; { } v_opnvwk(work_gem,handle_gem,work_gem); { } work_gem[0]:=vswr_mode(handle_gem,3); { 640 * 200 Punkte HIRES } work_gem[0]:=vsl_type(handle_gem,1); work_gem[0]:=vsl_width(handle_gem,1); { Hier eine bel. HIRES- } vsl_ends(handle_gem,0,0); { Grafikauflsung einschal-} hidemouse; { ten. } end; procedure hiresoff; begin v_clsvwk(handle_gem); curs_on; end; procedure clrhires; begin clrscr; end; procedure plot(x,y : integer); begin work_gem[0]:=x; { Umrechnungen : } work_gem[1]:=400-2*y; { } work_gem[2]:=x; { X_koor = (X_Aufl/640)*x } work_gem[3]:=400-2*y; { Y_koor = Y_Aufl-(Y_Aufl/200)*y } v_pline(handle_gem,2,work_gem); { [Nullpunkt : unten links !] } end; { X_Aufl : Die eigene x-Aufl. } { Y_Aufl : Die eigene y-AUfl. } procedure line(x1,y1,x2,y2 : integer); begin work_gem[0]:=x1; work_gem[1]:=400-2*y1; work_gem[2]:=x2; work_gem[3]:=400-2*y2; v_pline(handle_gem,2,work_gem); end; procedure printat(x,y : integer;print : sht); begin gotoxy(x,y-1);write(print); { Umrechnungen : } end; { } { Bildschirm hat 2000 } procedure writesmall(x,y : integer;print : sht); { Zeichen : 80*25 } var i:integer; { Nullpunkt [0;0] : } begin { links oben } for i:=0 to length(print)-1 do { Werteber. : x) 0..79 } put_char(print[i+1],x*8+i*8,(y*16)-4,0); { y) 0..24 } end; { [von y evtl. 1 ab- } { ziehen] } procedure hardcopy; { Zeichenmatrix : 8*8 } begin scrdmp; { eigene Routine oder } end; { Systemroutine } procedure druckeranpassung; begin druckstr[1]:='..'; ; { Fr jedes Steuerbefehlzeichen ein Punkt } druckstr[1][1]:=chr(13) ; { chr(0) zhlt nicht mitrechnen ! } druckstr[1][2]:=chr(10) ; druckstr[1][3]:=chr(00) ; { Zeilenvorschub } druckstr[2]:='.'; druckstr[2][1]:=chr(12) ; druckstr[2][2]:=chr(00) ; { Seitenauswurf } druckstr[3]:='..'; druckstr[3][1]:=chr(27) ; druckstr[3][2]:=chr(69) ; druckstr[3][3]:=chr(00) ; { Fettdruck Anf./evtl. dopp. Anschlag } druckstr[4]:='..'; druckstr[4][1]:=chr(27) ; druckstr[4][2]:=chr(70) ; druckstr[4][3]:=chr(00) ; { Fettdruck Ende/evtl. dopp. Anschlag } druckstr[5]:='...'; druckstr[5][1]:=chr(27) ; druckstr[5][2]:=chr(87) ; druckstr[5][3]:=chr(49) ; druckstr[5][4]:=chr(00) ; { Hervorhebung Anfang - hier dopp. B.} druckstr[6]:='...'; druckstr[6][1]:=chr(27) ; druckstr[6][2]:=chr(87) ; druckstr[6][3]:=chr(48) ; druckstr[6][4]:=chr(00) ; { Hervorhebung Ende - evtl. Kursiv } { statt Fettdruck : doppelter Anschlag/NLQ } { statt doppelter Breite : Invertdruck - chr(18) bei mps80x-kompatiblen } end; { -------------------- ab hier computerunabhngiger Teil ---------------------} procedure initarrays; begin wert2[1]:=1 ;wert2[2]:=2 ;wert2[3]:=4 ;wert2[4]:=8;wert2[5]:=16; wert2[6]:=32;wert2[7]:=64;wert2[8]:=128; monatsl[1]:=31;monatsl[2]:=29 ;monatsl[3]:=31 ;monatsl[4]:=30; monatsl[5]:=31;monatsl[6]:=30 ;monatsl[7]:=31 ;monatsl[8]:=31; monatsl[9]:=30;monatsl[10]:=31;monatsl[11]:=30;monatsl[12]:=31; verg[1]:=0 ;verg[2]:=31 ;verg[3]:=59 ;verg[4]:=90 ;verg[5]:=120 ; verg[6]:=151 ;verg[7]:=182 ;verg[8]:=213;verg[9]:=243;verg[10]:=273; verg[11]:=304;verg[12]:=334; monatsn[1]:='Januar' ;monatsn[2]:='Februar' ;monatsn[3]:='Mrz'; monatsn[4]:='April' ;monatsn[5]:='Mai' ;monatsn[6]:='Juni'; monatsn[7]:='Juli' ;monatsn[8]:='August' ;monatsn[9]:='September'; monatsn[10]:='Oktober';monatsn[11]:='November';monatsn[12]:='Dezember'; end; function julianisch (datum : dat) : real; begin julianisch:=(datum.jahr-1)*365+verg[datum.Monat]+((datum.jahr-1) div 4)+ datum.tag; end; function gregorianisch (datum : dat) : real; begin gregorianisch:=(datum.jahr-1)*365+verg[datum.monat]+((datum.jahr-1) div 4)-((datum.jahr-1) div 100) + ((datum.jahr-1) div 400) + datum.tag; end; procedure zeitdifferenz (var diff : real;geb_datum : dat;akt_datum : dat); var diff_1 : real; diff_2 : real; dummy : dat; procedure korrektur (datum : dat;var diff : real); begin if (datum.schalt=true) and (datum.monat>=3) then diff:=diff+1; end; begin if (geb_datum.system)=(akt_datum.system) then begin if (geb_datum.system)=1 then begin diff_1:=julianisch(geb_datum); diff_2:=julianisch(akt_datum); end; if (geb_datum.system)=2 then begin diff_1:=gregorianisch(geb_datum); diff_2:=gregorianisch(akt_datum); end; korrektur(geb_datum,diff_1); korrektur(akt_datum,diff_2); diff:=diff_2-diff_1; end else begin dummy.jahr:=stichjahr; dummy.monat:=stichmonat; dummy.tag:=stichtag_jul; diff_1:=julianisch(geb_datum); diff_2:=julianisch(dummy); korrektur(geb_datum,diff_1); diff:=diff_2-diff_1; dummy.tag:=stichtag_greg; diff_1:=gregorianisch(dummy); diff_2:=gregorianisch(akt_datum); korrektur(akt_datum,diff_2); diff:=diff+(diff_2-diff_1)+1; end; end; function wochentag (datum : dat) : integer ; var j,c,t,m : real; begin c:=datum.jahr div 100; j:=datum.jahr-c*100; if datum.monat<3 then begin datum.monat:=datum.monat+12; j:=j-1; if j<0 then begin j:=99; c:=c-1; end; end; m:=datum.monat; t:=datum.tag; case datum.system of 1 : t:=t+int((m+1)*26/10)+j+int(j/4)+5-c; 2 : t:=t+int((m+1)*26/10)+j+int(j/4)+int(c/4)-2*c; end; t:=t-7*int(t/7); repeat if t>6 then t:=t-7; until t<=7; wochentag:=round(t); end; procedure drucke (x,y : integer;datum : dat); var print1 : string[5]; print2 : string[5]; print3 : string[5]; print : string[20]; i : integer; begin str(datum.tag,print1); str(datum.monat,print2); str(datum.jahr,print3); print:=print1+'.'+print2+'.'+print3; if length(print)<10 then for i:=length(print) to 10 do print:=print+' '; if (datum.jahr=stichjahr) then if (datum.monat=stichmonat) then if (datum.tag>stichtag_jul) and (datum.tag 50'); printat(39,8,'A/D : Tag Y/C : Monat (-/+)'); printat(39,9,' J : Datum L : Drucke'); printat(39,10,' H : Copy S : Deuten E : Ende'); printat(4,8,'Krper :'); printat(4,9,'Seele :'); printat(4,10,'Geist :'); printat(4,3,'Geb. Datum:'); printat(22,3,'Akt. Datum:'); line(42,null,598,null); line(42,null-1,598,null-1); line(40,null+50,40,null-50); line(41,null+50,41,null-50); for i:=1 to 5 do begin line(35,null+i*10,45,null+i*10); line(35,null-i*10,45,null-i*10); end; for i:=1 to 31 do begin line(40+i*18,null+2,40+i*18,null-2); line(41+i*18,null+2,41+i*18,null-2); end; writesmall(1,round((200-null-10)/8),'+10'); { Aufgrund der groben } writesmall(1,round((200-null+10)/8)+1,'-10'); { Rundung ist ein Be- } writesmall(1,round((200-null-20)/8),'+20'); { schriftung per FOR- } writesmall(1,round((200-null+20)/8),'-20'); { DO-Schleife nicht zu } writesmall(1,round((200-null-30)/8)+1,'+30'); { empfehlen ! } writesmall(1,round((200-null+30)/8),'-30'); writesmall(1,round((200-null-40)/8)+1,'+40'); { Die x/y-Koordinaten } writesmall(1,round((200-null+40)/8),'-40'); { mssen die gleichen } writesmall(1,round((200-null-50)/8)+1,'+50'); { Dimensionen haben } writesmall(1,round((200-null+50)/8),'-50'); { wie die x/y-Koordi- } writesmall(15,round((200-null)/8)+1,'5'); { naten der 'printat'- } writesmall(26,round((200-null)/8)+1,'10'); { Routine ! } writesmall(37,round((200-null)/8)+1,'15'); writesmall(48,round((200-null)/8)+1,'20'); writesmall(59,round((200-null)/8)+1,'25'); writesmall(71,round((200-null)/8)+1,'30'); end; function schaltjahr (jahr : integer) : boolean; var richtig : boolean; begin richtig:=false; if jahr0) then richtig:=false; end; schaltjahr:=richtig; end; procedure datumseingabe; procedure datumseing2 (var datum : dat); var richtig:boolean; begin repeat repeat write(' Jahr (>0000): ');readln(datum.jahr); until datum.Jahr>0; datum.schalt:=schaltjahr(datum.jahr); repeat write(' Monat: ');readln(datum.monat); until (datum.monat<=12); repeat write(' Tag (<=',monatsl[datum.monat],'): ');readln(datum.tag); until (datum.tag<=monatsl[datum.monat]); richtig:=true; if (datum.monat=2) and (not datum.schalt) and (datum.tag=29) then datum.tag:=datum.tag-1; if julianisch(datum)<=testdiff then datum.system:=1 else datum.system:=2; if (datum.jahr=stichjahr) and (datum.monat=stichmonat) and (datum.tag>stichtag_jul) and (datum.tag0 then write(lst,druckstr[1],'Guter Tag fr alle Angelegenheiten ! ') else if wert[2,akt_datum.monat,akt_datum.tag]-null<0 then write(lst,druckstr[1],'Schlechter Tag fr alle Angelegenheiten ! '); if ((wert[1,akt_datum.monat,akt_datum.tag]-null) div 10) = 0 then if ((wert[2,akt_datum.monat,akt_datum.tag]-null) div 10) = 0 then if ((wert[3,akt_datum.monat,akt_datum.tag]-null) div 10) = 0 then if (akt_datum.jahr)<>(geb_datum.jahr) then begin writeln(lst,druckstr[1] ,' GEFAHR ! DREI NULLDURCHGNGE ! GEFAHR !'); writeln(lst,' ACHTUNG VOR UNFLLEN/KRANKHEITEN/TOD ! '); end; if single then begin write(lst,druckstr[1]); if wert[1,akt_datum.monat,akt_datum.tag]<200 then begin write(lst,'Das ist ihr '); zeitdifferenz(x,geb_datum,akt_datum); i:=round(x)+1; writeln(lst,i,'. Lebenstag.'); end; write(lst,druckstr[1],'Gltig fr Geb.-Datum : '); case wochentag(geb_datum) of 0 : write(lst,'Sa'); 1 : write(lst,'So'); 2 : write(lst,'Mo'); 3 : write(lst,'Di'); 4 : write(lst,'Mi'); 5 : write(lst,'Do'); 6 : write(lst,'Fr'); end; writeln(lst,',',geb_datum.tag,'.',geb_datum.monat,'.', geb_datum.jahr,'.',druckstr[1],' -mkb 88'); end; write(lst,druckstr[4]);for i:=1 to 40 do write(lst,'.');writeln(lst); end; procedure druckerausgabe; var y,i,u,bte : integer; x : real; m : char; dummy : dat; procedure plusminus(x : integer); var i : integer; c : char; begin x:=x-null; if x<=50 then begin if x<10 then if x>-10 then print:=' '+druckstr[3]+' CAUTIONDAY '+druckstr[4]; if x>=10 then begin print:=' '; for i:=1 to (x div 10) do print:=print+'+'; end else if x<-10 then begin print:=''; for i:=1 to ((x*-1) div 10) do print:=print+'-'; end; end else print:=' (nicht gelebt)'; end; begin curs_on; printat(39,5,'Druckerausgabe mit Deutung (J/N) :'); read(kbd,m);m:=upcase(m); printat(39,5,' '); curs_off; dummy:=akt_datum; dummy.tag:=1; writeln(lst,druckstr[2]);writeln(lst); writeln(lst,'Biorhythmuswerte'); writeln(lst,'----------------'); writeln(lst);writeln(lst); writeln(lst,'Fr:'); write(lst,'Geb. am : '); case wochentag(geb_datum) of 0 : write(lst,'Sa'); 1 : write(lst,'So'); 2 : write(lst,'Mo'); 3 : write(lst,'Di'); 4 : write(lst,'Mi'); 5 : write(lst,'Do'); 6 : write(lst,'Fr'); end; write(lst,', ',geb_datum.tag,'. ',monatsn[geb_datum.monat]); writeln(lst,' ',geb_datum.jahr); write(lst,'Geltungsmonat: ',monatsn[akt_datum.monat]); writeln(lst,' ',akt_datum.jahr); write(lst,'Der Monat enthlt den '); zeitdifferenz(x,geb_datum,dummy); i:=round(x)+1; write(lst,i,'. - '); dummy.tag:=monatsl[akt_datum.monat]; if (akt_datum.monat=2) and (not akt_datum.schalt) then dummy.tag:=28; zeitdifferenz(x,geb_datum,dummy); i:=round(x)+1; writeln(lst,i,'. Lebenstag. '); writeln(lst);writeln(lst); u:=monatsl[akt_datum.monat]; if (u=28) and (schaltjahr(akt_datum.jahr)) then u:=29; for i:=1 to u do begin if m='N' then begin writeln(lst);writeln(lst,druckstr[3], druckstr[5],' ',i,' ',druckstr[6],druckstr[4]); for w:= 1 to 3 do begin case w of 1 : write(lst,'Krper: '); 2 : write(lst,'Seele : '); 3 : write(lst,'Geist : '); end; write(lst,wert[w,akt_datum.monat,i]-null); plusminus(wert[w,akt_datum.monat,i]); writeln(lst,' ',print); end; if wert[1,akt_datum.monat,akt_datum.tag] div 10 = wert[2,akt_datum.monat,akt_datum.tag] div 10 then if wert[2,akt_datum.monat,akt_datum.tag]-null>0 then write(lst,druckstr[1],'Guter Tag fr alle Angelegenheiten ! ') else if wert[2,akt_datum.monat,akt_datum.tag]-null<0 then write(lst,druckstr[1], 'Schlechter Tag fr alle Angelegenheiten ! '); end else begin dummy.tag:=i; deute(dummy,false); end; end; writeln(lst);writeln(lst);writeln(lst,'Biorhythmus erstellt auf einem '); write(lst,'atari st/[c 128]/[s-pc/d];'); writeln(lst,'(C) 1987 Matthias Berger/(c) 88 mkb [rewritten]'); writeln(lst);writeln(lst,druckstr[2]); end; procedure hauptprogramm; var i : integer; wahl : char; monat : boolean; jahr : boolean; procedure zeichne(datum : dat); { Diese Procedure zeichnet alleine } var i : integer; { die Rhythmenkurven anhand der } u : byte; { Werte in drei Linienarten (Sys- } z : boolean; { temunabhngig !) } l : dat; begin z:=false; for i:=1 to monatsl[datum.monat]-1 do begin z:=not z; for u:=1 to 3 do begin if ((u=1) or ((u=2) and (z=true))) and (wert[u,datum.monat,i]<200) and (wert[u,datum.monat,i+1]<200) then line(49+(18*(i-1)),wert[u,datum.monat,i], 49+(18*i)-1,wert[u,datum.monat,i+1]); if (u=3) and (wert[u,datum.monat,i]<200) and (wert[u,datum.monat,i+1]<200) then begin line(49+(18*(i-1)),wert[u,datum.monat,i],49+(18*(i-1))-1, wert[u,datum.monat,i]-1); if i=monatsl[datum.monat]-1 then line(49+(18*i),wert[u,datum.monat,i+1],49+(18*(i))-1, wert[u,datum.monat,i+1]); end; end; end; l:=akt_datum;l.tag:=1; if ((l.jahr=stichjahr) and (l.monat<>stichmonat)) or (l.jahr<>stichjahr) then begin repeat if wochentag(l)=1 then begin for i:=0 to 4 do line(47+i+(18*(l.tag-1)),null+4,47+i+(18*(l.tag-1)),null-4); l.tag:=l.tag+7; end else l.tag:=l.tag+1; until l.tag>monatsl[l.monat]; end; end; procedure linie (datum : dat); begin line(49+((datum.tag-1)*18),null+50,49+((datum.tag-1)*18),null-50); end; begin testdat.jahr:=stichjahr;testdat.tag:=stichtag_jul;testdat.monat:=stichmonat; testdat.system:=1;testdat.schalt:=false; testdiff:=julianisch(testdat); beenden:=false; repeat jahr:=false; datumseingabe; repeat monat:=false; zeichne(akt_datum); repeat drucke(22,4,akt_datum); linie(akt_datum); for i:=1 to 3 do begin str(wert[i,akt_datum.monat,akt_datum.tag]-null,print); if length(print)<3 then for u:=1 to 3-length(print) do print:=print+' '; if wert[i,akt_datum.monat,akt_datum.tag]=200 then print:='---'; printat(16,7+i,print); end; repeat read(kbd,wahl); until wahl in ['a','A','d','D','y','Y','c','C','j','J','l','L', 'e','E','h','H','s','S']; linie(akt_datum); case wahl of 'a','A' : begin akt_datum.tag:=akt_datum.tag-1; if akt_datum.tag<1 then begin monat:=true; zeichne(akt_datum); akt_datum.tag:=monatsl[akt_datum.monat-1]; if (akt_datum.monat=3) and (not akt_datum.schalt) then akt_datum.tag:=28; if akt_datum.monat-1<1 then jahr:=true; akt_datum.monat:=akt_datum.monat-1; end; end; 'd','D' : begin akt_datum.tag:=akt_datum.tag+1; if (akt_datum.tag>monatsl[akt_datum.monat]) or ((akt_datum.monat=2) and (not akt_datum.schalt) and (akt_datum.tag=29)) then begin monat:=true; zeichne(akt_datum); akt_datum.tag:=1; if akt_datum.monat+1>12 then jahr:=true; akt_datum.monat:=akt_datum.monat+1; end; end; 'e','E' : begin hiresoff; beenden:=true; end; 'y','Y' : begin monat:=true; zeichne(akt_datum); akt_datum.monat:=akt_datum.monat-1; if akt_datum.monat<1 then jahr:=true; end; 'c','C' : begin monat:=true; zeichne(akt_datum); akt_datum.monat:=akt_datum.monat+1; if akt_datum.monat>12 then jahr:=true; end; 'j','J' : begin jahr:=true; monat:=true; end; 'l','L' : druckerausgabe; 'h','H' : begin linie(akt_datum); hardcopy; linie(akt_datum); end; 's','S' : deute(akt_datum,true); end; if julianisch(akt_datum)<=testdiff then akt_datum.system:=1 else akt_datum.system:=2; until (monat) or (beenden); until (jahr) or (beenden); hiresoff until (geb_datum.jahr<0) or (beenden); end; begin initarrays; druckeranpassung; hauptprogramm; clrscr;writeln('(c) mkb rewritten dec. 88 on atari from c128'); end. { Es wurden im systemunabhngigen Teil nur bliche impl. Proceduren/Functionen} { verwendet. Lt sich eine, nicht elementar wichtige, systemabhngige, } { Procedure/Function keine Implementation finden, so lt man den Anweisungs- } { teil dieser Procedure/Function leer. } { Das Programm luft auf System impl. Version fr Drucker } { --------------------------------------------------------------------------- } { } { - CPM+/C128d 3.z[80]G sl80ai/ipd560 } { - MS-dos/Siemens PC-d 3.i[86]G ibm-comp. } { - ATARI ST 4.m[86]G sl80ai[ibm/fx80] } { } { Entwicklungssystem war ein C128d mit 80-Zeichen-Monochrom-Monitor und } { SL80ai-Drucker unter CP/M+. Entwicklungssprache war TURBO-PASCAL. } { Die Sprache wurde anderen Versionen angepasst, die Grafik/Text-Vorgaben } { sind voll in den computerunabhngigen Teil bernommen worden, da sie einen } { Minimal-Standart darstellen. Bitte die Umrechnungsangaben im computersprez- } { ifischen Teil beachten. } BIORHYTHMUSBERECHNUNG ===================== Das Standardprogramm von mkb in der TOS-Version BEDIENUNGSANLEITUNG UND DOKUMENTATION _____________________________________ i. Einleitung ------------- Der 'Biorhythmus' ist eine oft falsch verstandene Sache. Er ist keine Astrologie, sondern beruht einerseits auf jahrtausende alten Kenntnissen, andererseits auf neueren Forschungen, z.b. vom Berliner Sanittsrat Dr. Werner Flie (1873-1963) und anderen. Die Biorhythmen sind nichts anderes als 'gestreckte' Sinus-Funktionen, die bei der Geburt anfangen periodisch zu schwingen. Natrlich kann ein so komplexes Gebilde wie der Mensch nicht allein durch drei mathematische Funktionen bestimmt werden, dennoch kann man bei tieferen Forschungen die fundamentale Periode von 28 Tagen (eine Mondperiode) bei Mensch und Tier hufig finden (siehe auch 'Reader's Digest' Dezember 1961). Auch z.B. der stndige Wechsel zwischen guter und schlechter Stimmung lt auf einen 'Biorhythmus' deuten. Der Biorhythmus sollte nun so verstanden werden, da er einen Grundtenor bildet, ber den sich andere Einflsse wie Alter oder Allgemeinstimmung legen knnen; er sollte nicht zu wrtlich genommen werden. Interessant ist allerdings, seinen pershnlichen Biorhythmus in der Vergangenheit anhand bestimmter Ereignisse zu berprfen - man wird verblffende bereinstim- mungen finden (natrlich auch das Gegenteil...). I. Allgemeine Einfhrung in die Theorie des Biorhythmus ------------------------------------------------------- Es gibt drei Biorhythmen. Den Krperrhythmus, den Seelenrhythmus und den Geistesrhythmus. Fr jeden Rhythmus gibt es eine 'Kurve', einen Graphen. Das Zusammenspiel aller drei Rhytmen zusammen ergibt den 'Biorhythmus'. Die einzelnen Rhythmen sind Funktionsgraphen der Form f(x): y=A*sin(wert*tage). 'A' ist normalerweise 1, im vorliegenden Programm sind die y-Werte (auf der vertikale Achse) gestreckt, die Werte rangieren von +50 bis -50. 'wert' ist ein fr jeden der drei Rhythmen spezifischer Wert. Fr den Krperrhythmus ist 'wert' gleich 0.27318197, fr den Seelenrhythmus gilt ein Wert von 0.224399475 und fr die Geisteskurve ist 'wert' 0.19039955. (Es entstehen bei sinnvollen Eingaben keine Rundungsfehler). 'tage' ist die Anzahl bisher vergangener Lebenstage. Am Geburtstag ist 'tage' 0. Negative Werte sind nicht erlaubt. Der Biorhythmus ist im Grunde nur eine Berechnungssache, daher ist ein Computer prdestiniert fr diese Aufgabe. Die Rhythmen fangen also am Geburtstag an zu laufen, der Biorhythmus hngt nur vom Geburtstag ab. Liegt ein Rhythmuswert an einem Tag ber der Null- linie, so bedeutet das gute Kondition, gute Seelenlage oder gute Geistes- kraft. Liegt der Wert unter der Nullinie, so bedeutet das eine krperliche Erholungsphase, ein seelisches 'Tief' oder schlechte Geisteskraft. Je hher/tiefer die einzelnen Werte, desto besser/schlechter. Besondere Bedeutung haben die Nulldurchgnge, d.h. das Schneiden einer oder mehrerer Kurven mit der Nullinie : Ein Nulldurchgang bedeutet stets einen kritischen Tag in der entsprechenden Sparte. Bei einem krperlichen Null- durchgang sollte man sich nicht anstrengen, bei einem seelischen Nulldurch- gang steht man am besten nicht auf und bei einem geistigen Nulldurchgang sind keine Prfungen und andere schwerwiegende Geistesleistungen angesagt. Fallen zwei Nulldurchgnge auf einen Tag, so ist die Gefahr noch grer in den entspr. Sparten, und sollten an einem Tag etwa drei Nulldurchgnge sein, so lt man den Tag am besten aus (so eine Konstellation kommt etwa alle 10 Jahre einmal vor). Auch das Zusammenspiel der Krper- und Seelenkurve ist von Bedeutung : Schneiden sich die beiden Kurven ber der Nullinie, so ist der Tag gut geeignet fr alle Angelegenheiten, etwa Termine, Berwerbungsgesprche, sportliche Leistungen oder Konferenzen. Treffen sich die beiden Kurven unter der Linie, so sollten Sie obige Anlsse lieber verschieben. Alle diese Angaben sind ein Extrakt unterschiedlicher Theorien. Es gibt Leute, die untersttzen eine Biorhythmentheorie allein mit der Krper- kurve (Periode von 28 Tagen), was die elementarste Biorhythmenlehre dar- stellt. Weitere finden das Zusammenspiel von Krper- und Seelenkurve als Elementar (z.B. Autor A.Appel), wieder andere vertreten die Meinung, da alle drei Kurven genauso wichtig sind und die Nulldurchgnge speziell von Bedeutung. Hier ist weitefhrende Literatur angebracht. Das vorliegende Programm versteht sich als 'Werkzeug' zur schnellen Berechnung beliebiger Biorhythmen. Welche Position man dabei vertritt, ist egal, da die implementierten Rhythmen (wenn auch jew. nur zum Teil) von jeder Theorie gleich vertreten werden. Auch die eingebauten 'Deutungs'-Routinen folgen eher einem Mischmasch aller Theorien, nmlich wird bei drei Rhytmen auf Nulldurchgnge UND dem Zusammenspiel der Korper/Seelenkurve geachtet. Das ist kein Nachteil, da so viele Aspekte eingebracht werden, die anhand bekannter Ereignisse in der eigenen Vergangenheit berprft werden knnen - und man sich so ein eigenes Bild ber die Korrektheit einer 'Biorhythmus-Theorie' machen kann. II. Bedienungsanleitung des Programmes (erweiterte Version 4.m86G) ------------------------------------------------------------------ Nach Starten des Programmes befindet man sich in der Datumseingabe. Datumseingabe - - - - - - - Zuerst ist das Geburtsjahr, dann der Geburtsmonat und der entsprechende Tag einzugeben, an dem die Rhythmen anfangen sollen. Es wird auf Korrekt- heit der Eingaben geachtet, wird einmal nur Return gedrckt, so strzt das Programm vollstndig ab (compilerbedingt). Das Datum, an dem der Rhythmus berechnet werden soll, wird analog eingegeben (wichtig ist dabei nur das Jahr, da zur besseren bersicht stets der Biorhythmus des ganzen Jahres berechnet wird, man kann dann im Jahr blttern). Es werden alle Daten ab 0.0.0 untersttzt. Dabei werden die zwei Datums- systeme bercksichtigt. Auf Korrektheit im Jahr 1582 wurde besonders Wert gelegt. Bitte nur Daten bis 3500 eingeben, da ab dann der aktuelle gregorianische Kalender mit den Jahreszeiten nicht mehr bereinstimmt. Sollte ein unmgliches Datum (z.B. 10.10.1582) eingegeben werden, so mu das Datum nochmal von vorne eingegeben werden. Der Bildschirmaufbau - - - - - - - - - - Nach der Datumseingabe wird der graphische Bildschirm aufgebaut, im oberen Bildschirmteil befindet sich rechts eine Info-Box, links werden spter das Geburtsdatum, das aktuelle Datum und die gestreckten Rhytmenwerte am aktuellen Datum angezeigt. Im unteren Bildschirmteil befindet sich das Koordinatensystem, in dem spter die Rhythmengraphen eingetragen werden. An der horizontalen Achse, beschriftet mit 5 bis 30, laufen die vergangenen Tage, es werden stets die Tage eines Monats angezeigt, an der vertikalen Achse werden die entsprech- enden Rhythmenwerte angetragen, laufend von -50 bis 50. Zunchst zeigen Bildschirmmeldungen, wie die laufende Berechnung der Rhythmenwerte des aktuellen Jahres fortgeschritten ist. Die gesamte Berechnung dauert etwa 10 Sekunden. Die Graphen - - - - - - Nach Beendigung der Berechnungen werden auf dem Bildschirm die Daten an die entsprechenden Stellen angeschrieben, die aktuellen Rhythmenwerte in die Box eingetragen und die Rhythmengraphen in das Koordinatensystem gezeichnet. Die durchgehende Linie ist fr die Krperkurve, die unterbrochene fr die Seelenkurve und die gepunktete Linie fr die Geisteskurve (entpricht in etwa dem Stellenwert der Kurven bei den einzelnen Theorien). Fr bessere Orientierung sind in der Box neben der Wertebox Linienmuster auf der Hhe der dazugehrigen Werte eingetragen (so befindet sich der durchgehende Strich auf der Hhe des 'Krper'-Schriftzuges und -Wertes). Der erste Graphenpunkt ist fr den 1. des Monats, der letzte fr den entsprechend letzten Tag. Eine durchgehende senkrechte Linie bezeichnet den aktuellen Tag; wo diese Linie von den drei Rhythmen jeweils geschnitten wird, stehen die Werte am aktuellen Tag. Vier oder fnf dicke, kurze Striche auf der Mittellinie (zugleich Null- linie) markieren die Sonntage dieses Monats, was der bersicht dieser Graphik nur zugute kommt. Bei jedem Datum, das vom Programm jemals ausgeben wird, steht der ent- sprechende (korrekte !!) Wochentag dabei (sie knnen das ja leicht anhand des aktuellen Datums berprfen, aber auch der Geburtswochentag stimmt garantiert). Die Benutzung - - - - - - - Es ist mglich, frei im aktuellen Jahr umherzublttern, ohne da weitere Berechnungen ntig werden. Um auf zurckliegende Tage zu kommen, drcken Sie 'A', fr sptere Tage drcken Sie 'D'. Kommen Sie ber die Grenzen eines Monats durch mehrmaliges Bettigen von 'A' oder 'D' hinaus , so wird der Monat entsprechend gendert. Sie knnen aber auch gleich die Monate weiterblttern, mit 'Y' fr vorherige und 'C' fr sptere Monate. Kommen Sie ber die Grenzen eines Jahres, so wird in die Datumseingabe umgeschal- tet, Sie mssen dann auch das Geburtsdatum neu angeben. In die Datumseingabe kommen Sie auch mit 'J'. Das vorliegende Programm verfgt ber verschiedene Audrucksarten fr die Biorhythmuswerte. Wollen Sie die Werte als Zahlen fr einen Tag, so sind diese sowieso auf dem Bildschirm angegeben, wollen Sie eine Deutung mit Tagesempfehlung fr den aktuellen Tag, so wird diese nach Drcken von 'S' auf dem angeschlossenen ESC/P / IBM-Drucker ausgegeben. Eine Liste fr alle Tage des aktuellen Monats erhalten Sie nach Drcken von 'L'. Dabei knnen Sie whlen zwischen Ausgabe der Zahlenwerte mit zustzlicher Bewertung oder Ausgabe in Textform mit Tagesempfehlung (Auf die Frage nach Deutung 'J' drcken). Wenn Sie Zahlenwerte gewhlt haben, so wird eine Bewertung dieser Werte als '+' oder '-'-Zeichenkette dazugeliefert. Je mehr '+'-Zeichen nach einem Wert, umso besser ist der entsprechende Rhythmus am entsprechenden Tag, je mehr '-'-Zeichen, desto schlechter ist der Rhythmus. Maximal gibt es 5 Zeichen '+'/'-', minimal eines. Bei einem Nulldurchlauf wird 'CAUTIONDAY' als Warnung statt der Zeichen ausgegeben. Es wird nicht auf Krper/Seelenkurven-Schnitte geachtet. Wenn Sie Klartext gewhlt haben, so wird auf Krper/Seelenkurven-Schnitte geachtet und es wird auf sie, ebenso wie auf Nulldurchgnge, hingewiesen. Auf drei Nulldurchgnge wird ebenfalls, besonders geschmackvoll, hinge- wiesen. Die Deutungsworte sind den entsprechenden Werten adequat gewhlt worden. Wollen Sie auch die graphische Darstellung schwarz auf wei besitzen, so drcken Sie 'H'. Es wird eine Hardcopy ber die gerade installierte Hard- copyroutine (ALT/HELP) erstellt. Beendet wird das Programm mit 'E'. Eine Befehlsbersicht befindet sich in der erwhnten Infobox. III. Hinweise ------------- Das Programm ist Public Domain. Es kann beliebig weitergegeben werden, sofern das Weitergeben nicht kommerzieller Art ist und vorliegende An- leitung mit weitergegeben wird. Alle Rechte bleiben beim Autor. Auch abgenderte Versionen knnen weitergegeben werden, sofern die ur- sprnglichen Urheberangaben belassen werden. Erwnscht sind Umsetzungen auf andere Systeme, fr die es noch keine Version gibt; fr diesen Zweck ist der Quelltext zu diesem Programm in PASCAL auf der Diskette ent- halten. Bei jeder nderung des Quelltextes bitte nderung als Kommentar kurz mit Datum anfgen. Derzeit gibt es Versionen fr C128 unter CP/M+ (3.z80G), fr IBM- Kompatible (1.i86G) und ATARI ST (4.m86G). Weitere sind angestrebt, da das Programm sich zu einem Standardprogramm entwickeln soll (bei kommer- ziellen Programmen ist zuviel Firlefanz dabei, was die Lehre des Bio- rhythmus in die Astrologie verdrngt). Fr die Erstellung neuer Versionen wurde darauf geachtet, ein portables PASCAL zu verwenden, ohne Spezialbefehle. Da Grafik verwendet wird, ist das nur im computerunabhngigen Teil gelungen. Im systemabhngigen Teil sind die Grafikprozeduren mit Hinweisen versehen, wie dort die entsprechen- den anderen Grafikbefehle installiert werden mssen. Der systemunabhngige Teil des Programmes verwendet eine Semi-Grafik, die eine Auflsung von 620*200 Punkten hat. Der Nullpunkt liegt links unten (!). Fr Textausgaben im Grafikteil stehen 80*25 Zeichen zur Verfgung, die Werte sind von 0..79 fr die Spalten und 0..25 fr die Reihen. Der Null- punkt ist links oben; fr die Ausgabe von kleinen Zeichen ('writesmall') gelten die selben Konditionen. Der systemunabhngige Teil gibt nur entsprechende Werte an den system- abhngigen Teil ber, es wurde sauber programmiert. Obige Formate sind Standardformate, jeder PersonalComputer verfgt ber die ntigen Fhigkeiten, und somit kann das Programm ohne Tricks auf jeden Computer angepasst werden. Die ntigen Umrechnungen in systemabhngigen Teil sind dokumentiert. ACHTUNG! Sollten Sie den Quelltext mit KATCE-ST compilieren wollen, so mssen Sie ber die bereinigte Version vom 23.12.1988 verfgen, in der (brigens anhand dieses Programmes !) ein Fehler in der relativen Ad- dressierung lokaler Records (wichtig fr das Anbinden fr unabhngige Programme) beseitigt wurde. IV. Programmhistorie -------------------- 31.8.1987 : Version 3.z80G auf C128/CPM+ als Urversion fertig. 1.3.1988 : Version 1.i86G auf Siemens PC-D als erste Portion fertig. 25.12.1988 : Version 4.m86G auf ATARI ST stark erweitert beendet. V. Weitere Hinweise ------------------- Sollten Sie Fehler im Programm finden (sowohl programmtechnischer als auch theoretischer Art), dann schreiben Sie mir; knnen Sie den Fehler aus Ermangelung eines PASCAL-Compilers nicht selbst beheben, so senden Sie mir eine Diskette mit frank. Rckumschlag, Sie erhalten die bereinig- te Version incl. neuen Quelltext zurck. Auch ber Verbesserungsvorschlge freue ich mich. Matthias Berger Schlesierstr. 41 8034 Germering == mkb 88 == -------------------------------------------------------------------------------- - Keine Gewhr fr die Korrektheit der Angaben im Programm oder der Anleitung. - -------------------------------------------------------------------------------- ... readme.tag : Informationen zu tag.prg/tag.pas ------------------------------------------------- Vorliegendes Progrmmchen (nur durch den Compiler so lang) ist ein Teil aus dem Biorhythmusprogramm. Da sich viele Verwandte, Bekannte u.a. mehr fr ihren Geburtswochentag interessierten als fr ihren Biorhythmus, habe ich aus der Wochentagsbe- rechnung zur Vereinfachung ein eigenstndiges Programm gemacht. Zur Ermitlung eines beliebigen Wochentages nach 0.0.00 mu man nur zuerst das Jahr, dann den Monat und zuletzt den entsprechenden Tag eingeben. Es wird auf Korrektheit teilweise geachtet, bei falschen Teileingaben wird eine erneute Eingabe verlangt. Wird einmal nur RETURN gedrckt, so strzt der Rechner vollstndig ab (compilerbedingt). Es werden die verschiedenen Datumsysteme beachtet, wird ein unmgliches Datum eingegeben (z.b. 10.10.1582), so macht das Programm darauf aufmerksam. Unmittelbar nach der Tageseingabe schreibt der Computer den (stets korrekten) Wochentag auf den Bildschirm. Sie knnen sich nun freuen, da Sie ein ?tags- Kind sind. Nach Drcken einer beliebigen Taste knnen weitere Daten eingegeben werden, beendet wird das Programm durch Eingeben von '-1' als Jahr. Das Programm ist frei von jeglichen Copyrights, es kann beliebig weiterge- geben werden und in eigenen Programmen benutzt werden (vielleicht ein kleiner Hinweis ...). Der Quelltext in Pascal liegt bei. == mkb 88 == Achtung: Sollte Sakrotan etwas ber angehngte Bytes erwhnen, so liegt das an dem erzeugten Pascal-Code. Es handelt sich nicht um einen Virus. MAXON Computer . U'.. BRUCH PRG %F 4BRUCH_REPRG )F `.T;`AON8N N:`aa`aBE.pKapaJaLaHaDa@aH@Nur{0Nu{0NutNu 246j(:<DCaf AfBfNu`a 00Nur$o, b4< J@k @[H@NuH@RBNu4<Ѐ[NuDg8k2 b4< J@k @[H@DBNuH@RBDBNu4<Ѐ[DBNu4H@Ѓdh`^HCH@:">H@`H2g&HCH@:<HC>H@Ѓd(`HCH@:H@r` gDBgkDE`HDBDEaBDBNugDBa8DBNutNua 11!Nux`xa`a` 24&8:HoHoEBJAgJDfr:g,|HC҅H@:ۆ<HC>H@Ѓd`vHCH@:H@`fgDBgkDE` DBDEaDBNugDBaDBNutNuHoHoEBz:g|HC҅H@:ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuJBj^tNuk(g.JBjDBAр[SBDBjNutNuAр[SBkNuJlNu0gH@rJBkB JkЀ[`DBЀ[`J.;gP:pr4<Nup` .xa2`Ba411!Nux`4 24&8:`& 24&8:`a&8:` &8:@ABJEoHnfNup`tNugDEDBHngDBEBkQ*HEJDg?<>0rHGGdHGGdSWDуdi?<>0rHGGdHGGdSWDуdi ?<>0rHGGdHGGdSWDуd&2 H@kփAр[SBkփejRAd RdQRBJjDBNutNu?<,>CEdGH@0r`xJCgz?<0rÐdSWЃdi?<0rÐdSWЃdid?<0ÐdSWЃd&2 H@kփAр[SBkփejRAd RdQRBJjDBNutNu?<0riR?0i?`?<`"_K4NM5IO:HQ <-H*,`N,,X2::(   F..26"8@"PQ1!P1P!0PP`0  q#p"A ӘQNu|^|  R^,T:Hz(` NZHz ?<&NN\Nu9ogNuWoNuaaaNuNuNupc?a0QNurdd6Ag,B(dB(dH Ac<atgBAp` NuNuHz `Hz"` <Hz&?<&NN\Nup CNup C0Nu C NuJBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNu <r4<NuQfHR$n2Jjg$_NuH LNuPfJ.fg0HR$n2Jjf$_NuHC/*%I $n2%_LNu B?b4<rpAv JBlDBv-|JBg Bb Bk&H>aTaRFBd&8*L?a<aSF Be BgQRB`RAdR e <rRF&0xaCձfEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`HQ2.d Aeg>r C 5e&!R 0c 9c0`<R"_`VC0 Ef"_Nuaa/ CFr  g 00VJAgB @ nN @mHJ@j0.4DBUBk0QSAg Q.`S@k 0`0BAF "_Nu.WAkQA 0g`prt|P;Q:  g +g -f .g40  b 0e 9b da6`RF` .f 0e 9b daSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`ZJjDDDS4<.arJFkSFk4arQa^`&HaFFaZQ&8*L/a,H܆jDBJ.:gtBn:Nu @$@JfS a`QNu$Aa`QBNuHzza`HzpaH `HPHQ0(ika| $I _adIUd4Id4Id$Id `$$$$Q _Jf,a4Id4Id4Id$Id `$$$$Q @NuSaIdIdId`Q @Nup `/ a$I> _aIJG` VNuag`af`ae `ac` acpNuadpNu/ a$I> _a4Ae4v` VfANuBp'rta8 n2rt6(SC0(S@apaB\papava0pa _a 4$FAFp_@[000][vx`* [g" ]g |g QSx` xQSrQ][vx`* [g" ]g |g QSx` xQStQ]BAF0-H,=@p4a2HNu 24DBaDB11!Nu 24DBa DBNu 24x6o<Ce(FC BdЄeNu B/dHDDdRdQRBNu&<:<`g BbUC BcjNu BcHDDdSkg Aр[RBNu0ftNuB H@"jNu~dGdEH<Nup`r0@F@AJhg PLNu`RLJg(HPBHh/??<@NAXLf ѨLNuJkp%`aJBja!| ??<>NAXOJkpNu0< aF`0< CF2p`p a0`p CFp`aCF"p`Hza `Hz"J`B.@=|DNua.@FpAR@C` @H` @HHypafa"H`Hyp`Hyp 24`@H` @HHypa.a"Hav`THyp`Hyp 24`B.@=|DNuB.@ab=GDgNup`a`a0CF"E p`.@<.DAp$I"t Q k"RGef~`SG * g *fSG`<.DjZ\FkBJn`g Fgd Fg^HS&I.aBQ`p???<NM\Qj&_NuHQ/?4(g8HP b6 aX$_// Z4HQ`S@Q _Q _a& _Nua`p` AFtЀvQBNuAFt0 9c^QBNuAFt 0QBNua`a`aCF 0gS JfS`@a Acr `@a A cr `@a\ A cr `N$H`HahLHP?.d=hdN=_d2 "@$Y4Ad2`0Q @NuE"e ab"b BB& &6 Nu@`r ??a"P02R@H`2Q Nua*aJjtNuaHPa pJk NuCg.BJ@g  g &g, $g %gNNutNuRpt`2Rpt`Rptr ae OgX Xgn HgSRB ae Fb$0k  c_  c b退`tSHkaNuRB0 b b瀀`RB0 fрd`ap`ap`axp3"B"Nu>.D<jRGg>VGg:TGjp` @HPa0CF$IpR@  f _a$Hd2Hd2`"QNu`(<.DHSGFaAEg f< &_Nua`Nu.dfaZB"=n`r>.D<jRGg:VGg&TGjp`<.DaAFa&JkNup#` z fa2a` z f a"aAFa  f#"JkzNu0:g0.D<jRGg*VGgTGjp`(<.Da(` z faal` z f aaTAF "g pR@0 ,g  g  fHp`:pR@0  g  g "fR@0 ,g  g  fHpRU@"_  f#"$H _a`QNupR@0 ,g"  g  fa~ (fR~Nua ~ `a~NuaJkHQ ! gRf _NuXX~Nu0j\@??<NMXJk .dgp Nu`<.DHSGFa "fAGg ."Fg( ,g2 gAEf< &_Nua g`Ra ,g g` ."Ff`@aD@JCgUCgSCg.[CgSCgp@`r"22Nua"Nua2NuaNuJBVNu"@AE.f(ؚؚؚؚؚ:HDEH*ڄe(Ab~x|<چe4SGfRRD D exE.f<`*gQRD D epNuDHEJEf D kT@NuBnp`pBnp`p=| p|=Fn@=@b=n`raHj=Ah~`:a JfBH@ RfF.f Kg" Mg sg tg Pg Hf~`xSGjtRGFcn>`jAF gp gj g grffnnpenbfJ.fj6pRGFc$SG` J.fjpRGFcRF` Ff`> `?~ap a0p a*0Nu|``CpE`bf`FgRGJGgSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0NuagNu4.rf?HyaNM\Nu=|D`LjazEfpadppa`AFEg0PaEfaFRE`ܾEfp a@a8?nnnp a2RF`<a,nnoS@f nhfSnl=Ah=FnNup` papq4.rf?HyaHNM\Nu=|DHazLNu|A0"P2(@e2<EF`QHP=|DJ@g$abAF$HpR@ 0 f _a`QNup?ap a~2<|0`C&pHQ/Hy@NA NuC pa:NuHQ/Hy?NA Nu&g4 Fga"gJAga2< R@AdSf0Nu0ap Ce`&g4 FgaJBjagPAe CbRa R@Sf0Nu FgRag JBjaAeaJAg RP0 pNu` Fg6afgJAga @eapRP Nup NHѨB?<?/?<BNAO JkLLNu&8aJBja JAg Df*ڃkd0Nu DfրBH??/?<BNAO LJk!@NuHBHh Hx??<?NAO LJo ѨLNuk:fp`^k: g ѨNuBHPHQ/??<?NAO _JoѨfNuBHPHQS/??<@NAXLfѨNuJkp%`?a2@`?a2@a` a Nu4.`Af n2LR@RANu4.`g S@SAHNutbpbr??papYa0a0`4LpEo5gPo`LJg&B.C`a8aD*9ofap-I,=|p4aHz*9og ENp9o`P _a &nO:NM5IK4N$<Nu[1][Error +111][Return]E4L g g>Jf`Ar Hjr-D@Hd0H@H 0H@0CNuAF"H [1][fSEfNuaP n2L6(n\n^HHHNua0 n20(n\HNua n20(n^HNua n20(HNua:ffNuarNua J[HHNu:nfa@ z^0NuJg6$:Pf,H?<"NNT&@p/&.Lra :,ga &Lr`r??Q@.JHyNM\0Nu#.FNux BRUCH stellt eine eingegebene Dezimalzahl als Bruch von ganzen Zahlen dar!- made 1989 by Hardo Naumann - public domain software - Oft will man das Ergebnis einer arithmetischen Berechnung nicht durch eine Dezimalzahl mit endlos vielen Nachkommastellen (z.B.:2.8571285...) darstellen, sondern sucht einen Bruch von kleinstmglichen ganzen Zahlen, der den selben Wert bersichtlicher darstellt (z.B.: 2/7). Mit der so gefundenen Darstellung kann die weitere Berechnung vereinfacht werden, weil weniger Ziffern auf- geschrieben werden mssen und dabei oft eine hhere Genauigkeit als bei der Dezimalbruchdarstellung erreicht wird. Das vorliegende Programm sucht nun zu einer gegebenen Zahl in Dezimalbruch- darstellung den gnstigsten Ganzzahl-Bruch unter Bercksichtigung einer whlbaren Anzahl von Nachkommastellen heraus. Das Quellisting in GfA-BASIC schicke ich gegen 10,-DM + Diskette + frankiertem&adressiertem Rckumschlag gerne zu. Damit knnen dann die Zahlenausgaben der eigenen Programme in diese bersichtlichere Form gebracht werden. Hardo Naumann, Rampenstr.2, 3000 Hannover 91. So, nun kann's losgehen... Wenn's zu lange dauert, kann die Berechnung mit Mausklick beendet werden! Wieviele Nachkommastellen sollen bercksichtigt werden [1...12] ? Wieviele Sekunden darf maximal gerechnet werden ? Dezimalbruch: Bruchdarstellung frNachkommastellen Genauigkeit: Exakte Lsung: Nherungslsung: Daran habe ichSekunden lang gerechnet!Was nun ?ENDE|NEU 0   8N660 T((@H$pLN*$`8R` Efv*oM! m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNfHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN(ALN>Hz2?< NA\pdAxr0XQ)K\NNrJJPVJrBjNuHz?<&NN\N CAp$L Qp N9lrBlJpNNpMN9@pdAr 0Q0tr ND9lNNupealp`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*: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 BbNuN|pNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@NH?<,>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</NZJFkSFk&aQNZ`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܀Hnr$g4jDk( b4<J@`@[H@0Nu4<Ѐ[Nu4<NuNuAd RdQRBBkBjDBJjDNupNufJj fJAkNupNdRdRrxaAffBWHNuJjDBDA@JBfprJjDEDD@JEfvxNuaغBffAVHNuCDEaEf fDUHNu]HNuCDEaEffDftNuCDEHHN4NL8NL8NJjtNupN&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(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.02| Copyright 1986/1987|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehlerA JpBQA/)H )l gBlJpNB 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(gpL8Np>L8Np)@JphNLtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, N"F QNuYp-KNu _b@gGHpp 0f NuGNph @"l`Yd&-KNN"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`& $Y8gHRDD*D%H8#$c2g# HRDD%H`p"l`Qd&&| NuN"l`QepZNC ҳfHP0(N$W$RR@H`2Q"H _$l` dd" $X&0BP6Y&|Hg R@@%E ҳeHQ0)N$$_$RR@H`2QNu$Y 0P1@Hg R@@%NuN$l` epZNN ?<NNT+@r -rSmN4TN~GDieses Programm luft nur | in mittlerer oder hoher| Auflsung| CNAMNhBHmNr tsch r"_ N+@vNA4pNhAD NhNN+|zpCPN6Hxp+NCPNHxp+NCPNHxp+NCPNHxp+NCPNHxp+NCPNpCVN6pCJN6HxpCVNHxpCVNHx pCVNHxpCVNHxpCVNpC\N6pCbN6pChN6pCnN6 -rN&<x*<NN+@~ -rN&<x*<NN+@ -rN&<x*<NN+@ -rN&<x*<NN+@ -rN&<x*<NN+@ -rN&<x*<NN+@ -rN&<x*<NN+@ -rN&<x*<NN+@ -rN&<x*<NN+@ -rN&<x*<NN+@ -rN&<x*<NN+@ -rN&<x*<NN+@ -rN&<x*<NN+@ -rN&<x*<NN+@ -rN&<x*<NN+@ -rN&<x*<NN+@Hxp C\NHxpnCbNHx -ChNHx -CnNHxpZC\NHx <CbNHx -~ChNHx -CnNHxpZC\NHx <CbNHx -ChNHx -CnNHxpC\NHx <CbNHx -ChNHx -CnNHx <C\NHx <JCbNHx -ChNHx -CnNHx <6C\NHx <CbNHx -~ChNHx -CnNHx <6C\NHx <CbNHx -ChNHx -CnNHx <C\NHx <|CbNHx -ChNHx -CnNHx <C\NHx <&CbNHx -ChNHx -CnNHx <C\NHx <vCbNHx -~ChNHx -CnNHx <C\NHx <vCbNHx -ChNHx -CnNHx <C\NHx <XCbNHx -ChNHx -CnNHx p C\NHx pnCbNHx -ChNHx -CnNHxpZC\NHx <CbNHx -ChNHx -CnNHxpZC\NHx <CbNHx -ChNHx -CnNHxpC\NHx <CbNHx -ChNHx -CnNHx <C\NHx <&CbNHx -ChNHx -CnNHx <C\NHx <vCbNHx -ChNHx -CnNHx <C\NHx <vCbNHx -ChNHx -CnNHx <C\NHx <XCbNHx -ChNHx -CnNHxp C\NHxp$CbNHx -~ChNHx -CnNHx <C\NHx <CbNHx -~ChNHx -CnNHx <C\NHx <CbNHx -~ChNHx -CnNHxp C\NHxp$CbNHx -ChNHx -CnNHx <C\NHx <CbNHx -ChNHx -CnNHx <C\NHx <CbNHx -ChNHx -CnNHx <C\NHx <CbNHx -ChNHx -CnNHx <C\NHx <hCbNHx -ChNHx -CnNHx <C\NHx <hCbNHx -ChNHx -CnNHx <C\NHx <hCbNHx -ChNHx -CnNpCtN6pCzN6HxpCtNHxpdCtNHxpdCtNHxp2CtNHx <CtNHx <@CtNHx <@CtNHx <CtNHx <CtNHx <CtNHx <CtNHx <CtNHx pCtNHxpdCtNHxpdCtNHxp2CtNHx <CtNHx <CtNHx <CtNHx <CtNHxpCtNHx <CtNHx <CtNHxpCtNHx <CtNHx <CtNHx <CtNHx <$CtNHx <$CtNHx <,CtN -rNvNN+@Hx -NvCzNHx -NvCzNHx -NvCzNHx -NvCzNHxpCzNpCzNHxpCzNpCzNHxpCzNpCzNHxpCzNpCzNHx pCzNpCzNHx pCzNpCzNHx pCzNpCzNHx pCzNpCzNHx -NvCzNHx -NvCzNHx -NvCzNHx -NvCzNHxp CzNpCzNHxpCzNpCzNHxpCzNpCzNHxpCzNpCzNHxpCzNpCzNHxpCzNpCzNHxpCzNpCzNHxpCzNpCzNHxpCzNpCzNHxpCzNpCzNHxpCzNpCzNHxpCzNpCzNHxp CzNpCzNHxpCzNpCzN+|p+NCNNr+-*/C$NNNHm*A "_NHJBfNDHADNhNDPA*NAMNhBpNHPNrStart| Info |Ausr"_ N+@ -~NFXI -Wf|NNANANNNr BRUCHRECHNENC0NNr10.06.89C6NpC큀N6HxpC큀NHxpC큀NHxp C큀NHxp C큀NA0N:NvNH -rNL8NN+@ -N&<x*<NH -rN&<x*<NL8NN+@ -N&<x*<NH -rN&<x*<NL8NN+@pN(pNpNprN,pNpNpNprN -rN&<x*<NH <r$<L8NN"<NnpNpN -ʐrNv/ -rN&<x*<NN"N -ЭrNv/ -rN&<x*<NN"Nn -rN&<x*<NN"-N -rN&<x*<NN"-Nn -rN&<x*<NN"<N -rN&<x*<NN"<Nn -rN&<x*<NN"<N -rN&<x*<NN"<NnpN4pNpNpN -rTNvC큀NpN -ADNv/ -rN&<x*<NN"NA0NpNpNpN -rRNvC큀NpN -rN&<x*<NN"<NN~ V: 1.1 Rudolf Tiemann4N -rN&<x*<NN"<NNr Tel.: O6733-62O5N -rN&<x*<NN"<NN~ Donnersbergstr. 144N -rN&<x*<NN"<NN~10.06.89 65O9 Gau-Odernheim4NpN4N\A*NNzNNANANANANpNpNpNprN -rN&<x*<NH <r$<L8NN"<NnBpNpN -UmNKRNv -rN&<x*<NNrdN -rN&<x*<NN"<Nn -~NFNSNJfNH +@ +@ +@ -N&<x*<NLpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -NH -rN&<x*<NL8NpJBgp/ -NH -rN&<x*<NL8NpJBgp$g`NN"_AN ->CVNp+@ -CVNp+@ -NzNpJBgp/ -NzNpJBgp$fN -NH -NL8NzNLJBfN -NH -NL8N.N+@+|N -NH -NL8NzNLJBfNR -NH -NL8N.N+@+|N -NNAN -NNA N+|B -BNAN^NpJBgp/ -BNA N^NpJBgp$fN -NH -BNL8NzNLpJBgp/ -NH -BNL8NzNLpJBgp$fNx -NH -BNL8N.N+@ -NH -BNL8N.N+@N -BUgN+|BN -CVN/- -CVNNN AN -NvNNf&<x*<NN+@F -FCtNp/ -FCzNp"N -FNH <r$<L8NNCPNN -CtNp/ -CzNp"Np NN -CtNp/ -CzNp"N -CVNpNN NRNv -CtNp/ -CzNp"Np NN -CtNp/ -CzNp"N -CVNpNN NRNv -CtNp/ -CzNp"Np NN -CtNp/ -CzNp"N -CVNpNN NRNv -CtNp/ -CzNp"Np NN -CtNp/ -CzNp"N -CJN.N NNN -*NvNNf&<x*<NN/ -&NvNNf&<x*<NNCPNCPN/-* -&CVNpCVN -*RNv/ -&RNvCVNpCVN -*TNv/ -&TNvCVNpCVN -*VNv/ -&VNvCVNpCVN -*VNv/ -&VNvCJN.CJN/-*ANhNN -*NvNNf&<x*<NNCPN\HP -&NvNNf&<x*<NNCPN\"_N -*CVNp/ -&CVNp"_N -*RNvCVNp/ -&RNvCVNp"_N -*TNvCVNp/ -&TNvCVNp"_N -*VNvCVNp/ -&VNvCVNp"_N -*VNvCJNJ/ -&VNvCJNJ"_N/-&ANh/-*ANhNNpCtNp/pCzNp"Np NNp CtNp/p CzNp"Np NNp CtNp/p CzNp"Np NNp CtNp/p CzNp"Np NNp CtNp/p CzNp"Np NNHxpCVNpCVNHxpCVNpCVNHxpCVNpCVNHxpCVNpCVN -~NFd` -JgN~Hx Hx A(Nhp CVNpNHp CVNpNL8NJBfNXHx p CVNpNHp CVNpNL8N.NfNCVNHx p CVNpNHp CVNpNL8NNCVNN|Hx pCVNHx p CVNpCVNHx p CVNpNHp CVNpNL8N.Hp CVNpNL8NCJNp CJN.N CfNAfN: nNHx Hmfp "_NzN,CJNpCtNp/pCzNp"NpCPNNp CtNp/p CzNp"Np CJN.N NHxALNhNAMNhBNr | Ergebnis zu gro ! | HPNrna sowasr"_ N+@v -JnN+m6NNpCPNClNpCPNHPp+N"_NHJBfN0Hxp-NCPNNBHxp+NCPNAdNhHxAlCPNNNANh -JgNpCPNHPpCPN"_NHJBfN`pCVNpNHpCVNpNL8NH -zNL8NJBfNRHx pCVNpNHpCVNpNL8NNCVNHx pCVNpCVNHxpCPNCPNNZ+|NpCVNpNHpCVNpNL8NH -zNL8NJBfNHx pCVNpNHpCVNpNL8NNCVNHx pCVNpCVNpCVNpNHpCVNpNL8NLJBfNFHxp+NCPNNpCVNpNHpCVNpNL8NJBfNHxpCPNCPNNHxpCPNCPNN+|NNpCVNpNHpCVNpNL8NJBfNXHxpCVNpCVNHxpCVNpCVNHxHxA(NhpCVNpNHpCVNpNL8NH -zNL8NpJBgp/pCVNpNHpCVNpNL8NH -zNL8NpJBgp$fN ( D>b bb bb 6bb bbb 6bb6bbb6 6 6>j: D   bbbb@8X  (PD,*.  X*>f6j6f&   l>Xb:`B:`>v B6&>v B6&z,2,2vbNv@26z~ RB"&FjJ2B:vv$B4"NFFj. U'.. BIO_README F PROFIBIOPRG F r ******************************************************************** Profi-Biorhythmus ******************************************************************** Im Gegensatz zur Astronomie, ist BIORHYTHMIK eine empirisch bewiesene Wissenschaft. So ist es z.B. erwiesen, da die Chanchen an einem Verkehrsunfall zu vernglcken um ein vielfaches an einem bio- rhythmisch kritischen Tag hher liegt als an einem normalen Tag. Es gibt 3 Kurven: 1. Die krperliche: gibt Auskunft ber Energie, Selbstvertrauen, Mut, Ausdauer, Wider- stand und Unternehmungslust. 2. Die seelische: Gefhle, Liebe, Stimmung, Optimismus. 3. Die intellektuelle: Geistesgegenwart, Logik, Auffassungsgabe. Ntzen Sie das Wissen Ihrer Biorhythmik fr: - lngere Autofahrten - Prfungen - Operationen - Zahnarztbesuche (Schmerzempfindlichkeit ist an k. kritischen Tagen hher!) - sportliche Hchstleistungen - Heiratsangebote - ... Ein weiterer wichtiger Aspekt der Biorhythmik ist der PARTNERSCHAFTSVERGLEICH. Hier knnen Sie erfahren, wie gut Sie mit Ihrem Partner (z.B. sexuell oder geistig) harmonieren. Zitat aus BIORHYTHMIK von Hugo Max Gross erschienen im Goldmannverlag: "Die Rhythmenverwandtschaft ist fr das Gemeinschaftsleben gar nicht hoch genug einzuschtzen. Ihr Einflu auf das Verhltniss Mensch zu Mensch ist so einschneidend und vielfach entscheidend, da Ihre Nichtbeachtung unverantwortlich ist." Ich wnsche Ihnen viel Spa mit dem Programm "Profi-Biorhythmus"! `mUf` Efv*oM(n m HPHUBg?<JNA(m)m -:gS)@ -OK1C#hNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN&ALNHz2?< NA\pdAxr0XQ)K\NNRt(JrBjCAp$L Qp NBBlJpNNBpMNB9@pdAr 0Q0tr Nڐ9lN`NupeaZp` aN*BgNAXC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNlrҌpsNB0,Nu9@NlrDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu &8*:EENuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe" F dF8BCHC` F0b(v` 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 BbNuNnpNNuCDEJEgJBgJjBEBQ*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</NLJFkSFk&aQNL`Ha"FFaQL8N 6.݂JgtBn݂Nupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N <JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`HQ2: A d@C 5e*!R 0c 9c0`<R"_`^2:C0 Ef"_NuHQN~aCr  g 00VJAgB @ nN @mHJ@j0.4DBUBk0QSAg Q.`S@k 0`0BAF "_Nu.WAkQA" 0g` @eA0NuJBg <r4<NuAd RdQRBABe B/dAрQ4<NLBNutNuaVHNuaWHNuAd RdQRB>Ge GbFGNu G0dFGNu~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fDftNuCDEHHN&N L8NݰL8NN&N JjtNupN&FC Be$ B dЄeNu B0dDdRdQRBNu&<x*<NFC Be B djNu B0dDdSkfJAftNuAр[SBNup`pN @ddAgH`p`p9@(9@*BlNuNCpNvEN`p`pN0<9@:, INJ@g@8 FN EdbAJfE @e4r$Wf"FANuPRN:LST:AUX:CON:MID:IKB:VID:,J@fC E& B Og& Rgl Ag@ Ug2 Ig $CpNp=`pNAXJ@jNNu~c0NQNuNJ@g,A,BBgHQ?<=NAP FJ@k??<>NAXtNutNu$_*(<HREHRa EHRa DHRa??<KNNANuN @ep~QBNuNVNݰ]N܂NVN ]N܂J@jD@vqapvNڂ)@p `H@)@prtNڐAHplrtNڐB 2pNڀpNtpapaprapalpalpalpaTpaTpaTBp'a?<NNT@B){L9|0<rtNڐpapap9@p`pvNڂv`v`vj`v `v`v`v`?Aa*` Al 2l 4)lVH)lRprtNڐAl 2l 4HVNuAl 2l 4L VA0000000000prtNڐAH)lV)lZvN9Cp rtNڐ"AHZNuAv` Av `Avl 2l 4)lVHN"A)lVH)|vN0<}N& ?<NNC`&?<NNT"@ C <}NlN(* 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 BhN:pZNBA BP"`#|}NNA"H0,tg"Hg \f`A\fS A ENAR@H`2QNur|<N @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| NڐA R4RB`A Gf //o~4$_<F"OSG !H@Ь 2 Q)@RHRprNڐ2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg: k&@0+R`g k#&@0+S@H3 Q&f)I`LNu?<?<NAXJgJgNAH@B pNA NuApNN$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpN _0HpNp"_0HqNvp"_0HqNvE ұeHHQ0)N$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNZWHNuNZVHNuNZRHNu Ihd*N$E$RR@H`2QˈN ENu Ihd"*N$E8*$R`"QˈN ENu2)A IJAfr4(Ae*RBBc0*SA?N$E$R`QˈN ENup`(* 0(iN$E 4R`Q$D 4R`QˈN DN ENua NuN IHPg"B  g &gN8JBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNRB0 b b瀀`RB0 fрd`2p <0N`QNuH&N*րN*jNuHRp` HRpJQfpNNq Y QfdЀЀ 0NuNNNq Y Qfd20VHNuNN Nq Y Qfd ЀЀNuNN0$_& Y Qfdփփ!8NNNT$_& Y Qfd8JBg 8N 8NNN$_& if"QdփփHRNNN~,Nq8DRzXEEg"7PNqR$HBJBgpNJgJigp`eetЂ`"ЀeЁdp`ЀeЀe"Ѕe$W.H@@NFL"2` NqR YEjrd0` SjN" KC`e N`d \N| l\Ӭ\ NupNd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNudd2d"d""d""""d""""""""dB` """"""""""""""""""""""""""""""""QNuPj0,lf$J,nk l*fp?Nnp Nn9|nNA0,l2J,jk 0"fZRAR@ 0"g 0 f` 0 g 0,f9@lTll`BllA"H"g"A4`Q"AA 0! NuS@R@ 0 g 0,f9@lRll`R@ 0 fQj`NtNBll?<?<?<NM\NEN " gR&gg l*g l*gpNNu<,*?k$AN  gCf< Bll9_(Nu\F FfN` FfN`ANCg f`HP??<NMX _Jk NuHPHx??<?NAP _JkSfNupNNvH NuNvHNu0,p2,rR@RANuS@SA9@p9ArNu9@pNڐ4, 6fprta0,2,NuA4, 6f9@9Ap rt`Blf`pBlf`p9| f|9Fd@9@hNv9@^9A`9Ab~`$aJf,H@ Kg Mg Pg Hf~`BSGj>RGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNnLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NvldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"NN~NJfNup#`NN<(`|HP?N<pg2JFg W"X2@e2<A`QNCpR@ 1 fA 0! "_Np`pJ@gHz`?<&NN\NuB?< NA\A ACXExp"Jg X\QC"C!/:F?< NA\NuLH!NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A6@ Ni LHL|1R/:?< NApdK`HaFLxNNu)H9@Jp4NB9|&J&f H LNu P&Nu9|&Jl&lHByeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N4  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNXN6HP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(NXtHB9BL@@TAt )l g.A( f hgSASAgRB`9BJNBSAgNu)l g,vARC( g9CJ9|Lp!,NB FPeNu(A JpBQA/)H )l gBlJpNBB 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(gpL8NBp>L8NAJ0?C bL000zH?A/.)HpNBLrHH/>Bl/,ff.f.ffNu l /.g&, ^`D&, N`>&, R`8&, V`2&, Z`,2,/4WAARA0,/6A hfRAS@f9A/,&, Jo ? CN40`@k Ap0(/.NuA Nup)@JphNBLtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, NB"F QNuYp-KNu _b@gGHpp 0f NuGNp4 @"l`Yd&-KNN"l`YepN&#k"C-KN"Cփk փk2##`փk##`3#`$Y8gHRDD*D%H8#$c2g# HRDD%H`p"l`Qd&&| NuN"l`QepZNC ҳfHP0(N$W$RR@H`2Q"H _$l` dd" $X&0BP6Y&|Hg R@@%E ҳeHQ0)N$_$RR@H`2QNu$Y 0P1@Hg R@@%NuN$l` epZNp2C탪NBp2AN/-N~C탪N~ -C탪N HPN***4"_Ng NN/VN`NqNq/-A C탪N~ -R/A C탪N~A탪N)|0 JA5N4A2N4Np NH #WHfN0pNHN&<x*<NN+@ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$VHfN0 <Ѝ/p: _ -~ NC::MjN<*>Ij>8N HauptmenueHPA4N4` N6pNH+@ -SWHfN0A>N4N2 - WHfN0ACN4N2 - WHfN1A:N4N2 - WHfN18A:N4N2 - WHfN1^AMN4N2 - WHfN1AjNN4N2 - WHfN1A<*N4N2 -N&<x*<NRpJBgp/ -N&<x*<NRpJBgp$VHfN2A:N4N2 - !]HfN26A;N4N2 - !WHfN2\AIN4N2 - #WHfN2AjN4N2A>8N4NN HauptmenuHPA4N4NZN6pN,pN0 -NN&<x*<N NN -NN&<x*<N N"<N|NProfi-Biorhythmus4N4-rNJBfN3JpN0pNN3\pN,pN0p NA9N4/-/-/-A9N4/-/-/-AIN4 -6C탶N HPN, den "_NjHPA"_NjCN -NN&<x*<N N"<N|ANN HauptmenueHPA4N4A5DN4pN,pN0 <r$<vNxH <r$<L8NH -NNL8N NrN|N= Datei: Name: geb.:NNZN6"_AN4-rNJBfN4pN,pN0N4pN0 -NN&<x*<N Nr(N|HmpN"_NjNpN,pN0NZN6pN8pN< -NN&<x*<N NrN| -NN&<x*<N N"<qNpN -NN&<x*<N Nr N| -NN&<x*<N N"<vNNZN6?<NNT+@ -JWHfN6BNKSorry, aber dieses Programm|arbeitet nur in|mittlerer oder hoher|Auflsung! HPN Abbruchr"_ Nj+@N6 -SWHfN6t;Br+|NN6Bmr+|N <C탰N <CN <CN <CN <CN <CN <C"NpC탶Np CNp C탼NpCNp C N+|pAN/-N~C탶N~N`NqNq+|p AN/-N~C탼N~N`NqNq+|p AN/-NCN,N`NqNqHxpC N,+|p AN/- -NH <r$<L8NNC NNH -NH <r$<L8NNCNNL8NNC N,N`zNqA9N4HxtCNPHxtCNPHxtCNPprNZt;BTBmRN\*.DATCtNprNZA퀺 j=p0A Q0A )"0bNZN6?<*NAT+@p+@ <NvNxN+@ <NH <r$<&<x*<NdL8N &<x*< NN+@NZN6 A2N A.N A*N -2 d]HfN9 -2l+@2 -*NNHPp.N"_NjHP -.NN"_NjHPp.N"_NjHP -2NN"_NjCNAN ]HfN:zHmAN DN"_NjCNNZN6NGeburtsdaten ladenHPA4N4AjN4NZN6NGeburtsdaten speichernHPA4N4AjN4NZN6 -N&<x*<NRpJBgp/4-RpJBgp/4-TpJBgpF$VHfN;x4-TpJBgpF$VH;BT4-TNNrNZN; -N&<x*<NRpJBgp/4-TpJBgp/4-RpJBgpF$VHfN;AjN4NZN6 -NH <r$<L8NN+@ -S^HfN<"AjN4NZN6A5DN4NGeburtstagslisteHPA4N4 -JWHfNN6NZN6A5DN4pN,pN0p N <r$<&<x*<NݰN/ -NN&<x*<N N"N|N STW Profi-BiorhythmusN4-rNJBfN?bpN,pN0pN4pNN?zpN,pN0pN4p N <r$<&<x*<NݰN/ -NN&<x*<N N"N|N Version 1.00sN4-rNJBfN?pNN@pN0pN4pN <r$<&<x*<Nݰ&<x*<NN/ -NN&<x*<N N"N|N Februar'87NpN0pN4 -NN&<x*<Nݰ&<x*<NNN <r$<&<x*<NݰN/ -NN&<x*<N N"N|N written by7N4-rNJBfNA@pN,NAFpN0 <r$<&<x*<NݰN/ -NN&<x*<N N"N|N Horst Blankenstein4NpN,pN0N,Raubkopierer werden strafrechtlich verfolgt!C,NHm,p"_NHPNRa"_NpJBgp/Hm,pr"_N,HPpsN"_NpJBgp$VHfNBVNBHxNDies ist eine Raubkopie!!!HPNWrgr"_ Nj+@N6NZN64-TNJBfNBNprNN -bitte beliebige Taste drcken-NhNRHPA "_NgN4-RNJBfNC*BmRA=N4t;BRNC4A=N4NZN6AN4-RNJBfNC+mZpAANNNhN`NqNqA=N4NZN6A5DN4NGeburtsdaten eingeben4HPA4N4t;B^Np rNNNBitte Namen eingeben: PnNC>NA>N ^HfND,Hm>p"_NC>NHm>A "_NfNDHNH+| -ANHm> -C탰N "_Ng NNDN`NqNqHm> -C탰N "_NpJBgp/ -갭_HpJBgp$VHfNE -CN/ -CN/ -CN/A9N4Hm>N wurde am:|"_NjHPA"_NjHPN geboren.4"_NjC&NHxHm&N Stimmt|Falschrr"_ Nj+@& -CN+@ -CN+@ -CN+@ -CN+@f -CN+@jNER+m+|& -&UWHfNH -C탰N HPA>"_NfNFNF*+|+|+| NprNN'Bitte Geburtstag eingeben (z.B. 19) :4/-AS\N4+m:NprNN'Bitte Geburtsmonat eingeben (z.B. 7) :4/-AS\N4+m:NprNN'Bitte Geburtsjahr eingeben (z.B. 1945):4/- AS\N4+m: - d]HfNG> < Ѝ/ <l _ѐ/-/-/- AKDN44-XpJBgpF$VHfNGHxNDieses Datum gibt es nicht!!!nHPNAbbruch4r"_ Nj+@Bm^NH/-/-/- AIN4+m6j+mrfHxN6Soll dieser Name mit|in die Datei |aufgenommen werden?HPN Ja |Nein4r"_ Nj+@& -&SWHfNH/-A>C탰N~/- -CN,/- -CN,/- - CN,/- -fCN,/- -6CN,4-^NJBgAHN4NZN6Hm A "_NpJBgpF$VHfNI*Npr NA N\A N DNN\NhHm>A "_NpJBgpF$VHfNINpr!NA>N\A>NDNN\Nh/-/-/- A9N4Npr?NAN\N NhNZN6NDruckeranpassungHPA4N4AjN4NZN6 AFN ABN A>N _ѐ NBmX -FN&< x*< NpJBgp/ -FN&<0x*< NpJBgp$VHfNM -BNzNpJBgp/ -BN&<x*<NpJBgp$VHfNM ->NH -BCNNL8NfNL -BN&<x*<NRpJBgp/ ->N&<x*<NRpJBgp$VHfNL -FN&<x*<NzNRpJBgp/ -FN&<x*< NpJBgp$VHfNLt;BXNLBmXNMt;BXNZN6A5DN4N Biorhythmus4HPA4N4A C&NpCNNJBfNMrNGrafik 4C&NpCNNJBfNMHm&N Kalender "_NjC&NpCNNJBfNMHm&Nkritische Tage"_NjC&N4-rNJBfNN pN,NNpN0 -NN&<x*<N Nr(N|A&NpN,pN0NprNNName: A>C큆NpA큆NHmA "_NfNNNSTHmA>"_NfNNNQ$+| -ANHm -C탰N "_Ng NNNN`NqNq -C탰N HPA큆"_NfNO -C탰N C>N -CN+@ -CN+@ -CN+@ -CN+@f -CN+@jAHN4NQ$A큆C>NNprNNBitte Geburtstag eingeben : 4HxAS\N4+m:NprNNBitte Geburtsmonat eingeben: 4HxAS\N4+m:NprNNBitte Geburtsjahr eingeben : 4HxAS\N4+m: - d]HfNP < Ѝ/ <l _ѐ/-/-/- AKDN44-XpJBgpF$VHfNQHxNDieses Datum gibt es nicht!!!nHPNAbbruch4r"_ Nj+@NQ$/-/-/- AIN4+m6j+mrf/-/-/- A9N4NA>N /p"NN geboren am: AN\NhNprNN Ausgabe ab: NhNprNN Tag : 4/-AS\N4+m:zNprNN Monat : 4/-AS\N4+m:NprNN Jahr : 4/-AS\N4+m: - d]HfNRP <Ѝ/ <l _ѐ/-z/-/-AKDN44-XNJBfNR~NRHxN4 *** Ungltiges Datum ***|Bitte nochmals eingeben!HPN Ok r"_ Nj+@4-XNJBgpCNNHpCNNL8NzNfNSJNprNNNAnzahl der Tage: 4NX+@AT6N4NZN6 A킞NA킾NN>+@NH+@ -RWHfNSA CNNS -NNCNN -"-NN NhN -"-NpANANN+@: -:J^HgNT.NpNN\Nh`RNZN6/-z/-/-AIN4/-z/-/-A9N4 -rf+@ -J]HfNTHxN7Biorhythmusberechnung nicht|mglich, da falsches Datum!OHPNAbbruch4r"_ Nj+@NUAN:NfNpCNNJBfNUA[N4 -J^HfNUpCNNJBfNUrBmjNBiorhythmus KalenderCnNpNpCNNJBfNUt;BjN!Biorhythmus nur kritische TagehCnNpNANNNNZN6 AN -N&<x*<NA퀺NVN&N&<x*<NݰA"_NjHPN geboren am: "_NjHP -jC탶N "_NjHPN, den "_NjHPA"_NjNpN -NN&<x*<N NrN| -NN&<x*<N N"<tNpN+|p"<vAN -NN&<x*<N N"-N| -NN&<x*<N N"-NVN`NqNqpN -NN&<x*<N NrN| -NN&<x*<N N"<tNVpNpNt -NN&<x*<N NrN| -NN&<x*<N NriN -NN&<x*<N NrN| -NN&<x*<N NrgNV -NN&<x*<N N"<N| -NN&<x*<N N"<1NpNt -NN&<x*<N N"<N| -NN&<x*<N N"</NV4-rNJBfN_N_pNnpR"<N|pR"</NVpT"<N|pT"</NVpNnpNt -NN&<x*<N N"<N| -NN&<x*<N N"<NpNt4-rpJBgpF$VHfN`^pNn -NN&<x*<N N"<N| -NN&<x*<N N"<NVpNtpNnpN, -NN&<x*<N NrnN|N =krperlich4N -NN&<x*<N N"<6N|N =seelisch4N -NN&<x*<N N"<N|N=geistigNBpAN/-/-z/-/-AgN4N`NqNqpNnpN <Ѝ/ <r$< _NR <Ѝ/ <r$< _NR <Ѝ/ <r$< _NRB <AN -N&<x*<N&<x*<NN+@ -NvNxAN܂ -N&<x*<N&<x*<NݰANVNA퀺NVN&NB&<x*<Nݰ&<x*<NN+@pNt?- -NH -NNL8N N?~NHAjN4 -N&<x*<N&<x*<NݰANVNANVN&NB&<x*<Nݰ&<x*<NN+@pNt?- -NH -NNL8N N?~NHAjN4 -N&<x*<N&<x*<NݰANVNANVN&NB&<x*<Nݰ&<x*<NN+@pNt?- -NH -NNL8N N?~NHAjN4N`Nq4-rNJBfNdNfhBp"<qANpN8pN< -NH -N&<x*<N&<x*<NݰL8NANVN&NB&<x*<Nݰ&<x*<NN+@ -X/ -NH <r$<L8NN"N| -\/ -R"NpN8pN< -NH -N&<x*<N&<x*<NݰL8NANVN&NB&<x*<Nݰ&<x*<NN+@ -X/ -NH <r$<L8NN"N| -\/ -R"NN`RNq <Ѝ/ <r$< _N` <Ѝ/ <r$< _N` <Ѝ/ <r$< _N`pNt4-RNJBfNfN4-TNJBfNgNRHPA "_NgNNZN6 A*N AN AN ANpN, -N&<x*<NzNRfNj <Ѝ/ - _ѐ -NH -CNNL8NfNh -*N&<x*<NzNRpJBgp/ -*N&<x*< NpJBgp/ -N&<x*<NRpJBgp$VHfNhV - WHfNh@NhP <Ѝ/p _Nh <Ѝ/ -CN _R - WHfNh+|R* -NH -CNNL8NfNh <Ѝ/ -CN _R -N&<x*<NݰH <r$<L8NN/ -NN&<x*<N N"N| -NNN -N&<x*<NpJBgp/ -NzNRpJBgp$VHfNj -N&<x*<NݰN/ -NN&<x*<N N"N| -C탼N HPp N"_NjHP -*NN"_NjNpN,NZN6 - WHfNjF <"-N|pNNZN6NPartnerschaftsberechnungHPA4N4A5DN4AjN4NZN6AjN4NZN6HxN6Diese Funktion ist in der|PD-Version nicht enthalten! HPN Ok r"_ Nj+@HxN=Fr 30,--DM senden ich Ihnen|aber gerne die Profi-Version|zu.HPN Ok r"_ Nj+@HxN3Im Gegensatz zur PD-Version|funktioniert dann auch:oHPN ??? r"_ Nj+@BNF* Laden und Speichern,|* Ausgabe von B.-Kalender|und kritische Tage,| HPNund...r"_ Nj+@BNI* Partnerschaftsvergleich|(mit Kuchengrafik),|* Druckeranpassung und...| nHPNund...r"_ Nj+@BN=* Ausgabe von Geburts-|tagslisten (nach versch.|Kriterien).| uHPNSuper!r"_ Nj+@HxNFEinfach 30,-- DM (bar/|Scheck) unter Kennwort|'Biorhythmik' senden an:HPN an: 4r"_ Nj+@BN= Horst Blankenstein| Ettenhofenerstr. 31| 8031 Weling| nHPN Wird|gemacht!r"_ Nj+@NZN6 *** Info *** ---------------------------Eingabe Geburtsdatum eingeben =>F1 ----------------------------------- Geburtsdatenliste laden =>F2 ----------------------------------- Geburtsdatenliste speichern =>F3 Ausgabe Biorhythmus =>F4------------------------ Partnerschaft =>F5------------------------ Geburtstagsliste =>F6Einstellungen Bildschirm Drucker ----------------- Grafik Kalender kritische Tage Sonstiges Druckeranpassung =>F8------------------------ Werbung =>F9------------------------ Ende =>F10***MontagDienstagMittwochDonnerstagFreitagSamstagSonntagJanuarFebruarMrzAprilMaiJuniJuliAugustSeptemberOktoberNovemberDezember312831303130313130313031/H< z(       V      $RN 0 ^4RH"Xn2F  : \^ &((`*6N0$ \NN & Pt2VBJ J,V\ (6<8 6*j FDD & L"00 &6@v0"f(H&@ | (L (L (D> <t>48֚B  ******************************************************************** Deze diskette is samengesteld door de Stichting ST, Postbus 11129, 2301 EC Leiden. Onze bibliotheek van public domain programma's omvat op dit moment (herfst 1992) al meer dan achthonderd 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 november/december uitgave bevat een compleet overzicht van de Public Domain bibliotheek op dat moment. 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. ************************************************************************