kp F  @`! O-/1 3@5`;=?A C@E`GIKMOQ S@U`WY]_/Oe`gikmoq s@u`wy} @` @ ` @ ` @ ` @ ` ǀ ɠ @ ` ׀ ٠  @` @`!Aa   !Aa!!#A%a')+-/1!3A5a79;=?A!CAEaGIKMOQ!SAUaWY[]_acAeagikmoq!sAuawy{}!Aa!A!Ao!Aa!Aaǁɡ!Aaׁ١!Aa!Aa " B b  !"!B!b!!!!!"!""#%b"'")"+"-"/#1"#3B#5b#7#9#;#=#?$A"$CEb$G$I$K$M$O%Q"%SB%Ub%W%Y%[%]%_&a"&cB&eb&g&i&k&m&o'q"'sB'ub'w'y'{'}'("(B(b((((()")B)b)))))*"*B*b*****+"+B+b+++++,  @`! O-/1 3@5`;=?A C@E`GIKMOQ S@U`WY]_/Oe`gikmoq s@u`wy} @` @ ` @ ` @ ` @ ` ǀ ɠ @ ` ׀ ٠  @` @`!Aa   !Aa!!#A%a')+-/1!3A5a79;=?A!CAEaGIKMOQ!SAUaWY[]_acAeagikmoq!sAuawy{}!Aa!A!Ao!Aa!Aaǁɡ!Aaׁ١!Aa!Aa " B b  !"!B!b!!!!!"!""#%b"'")"+"-"/#1"#3B#5b#7#9#;#=#?$A"$CEb$G$I$K$M$O%Q"%SB%Ub%W%Y%[%]%_&a"&cB&eb&g&i&k&m&o'q"'sB'ub'w'y'{'}'("(B(b((((()")B)b)))))*"*B*b*****+"+B+b+++++,PD_468NLANPLAN kEMEDIZIN A`STAMM V22BKRITZEL JB~LEES DIT K`A407 `X. lE.. lESTDPLAN GR mEDEMO PLNE9LANPLAN PRGE:LANPLAN TXTE[. nE.. nESAVE DONoELADEN DON qEDRUCKEN DONsEPLAN DONuEHJAHR DONyE RAUM DON|E JGST DONE FACH DONE#IMPORT DONE%EXPORT DONE&INFO DONE'DESKTOP DONE(LOGO DONE)WELCOME DONE+/DOUBLE DONE7=AAanݻw`o߻nݻpn㻿@@@D@D@D@D@@@ @ @@@`@ @    I ?nD ON     @>@@@@@@@@@@@@@@@ml@?@ z@@@@@@@@ @>@@@ AALJ?vv vv@@@"@@"@@"@@"@@@@ @ @ @ @ @  @      ?I ?nD ?ĀON ~ `  @@@@@@@@@@@@@@@@ml@?@ z@@@@@@ @@@@@@ 02 Datacompressor V2.1 (C)opyright 1990, 91 by DON SOFTWARE AAػۻ}wnۻ|pnۻ}}n{Í@@@@@@@@@@<@ @@€@@S@@8@9`@P@|p@P@?p@(@8@ (@@6@ UUh@@x@M@LX@M@8@@W@@@?@@@@@@@@@@@<@@@ 9@@@@@@@@ @@p;mx @@@?@@@pq9psIxx@8 `ll0`$ID$$D@ ll0$ID#D@  ll0$I"D $"D@  `ll0$I"D $"D@; qn90xr#D D@ ?o0 @ {ml0@ @ @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@`@@@@@x@ @Q@ @@ @ @@@@tO@QGs@ xw8x@@ @Ǐ9@@q@$H"@QH H@ "D@<@$H" @@@`  "@$H>@JH#Ȁ@ >Db<@QH"@$H! @G@y"@$H @JH$H@ DD@JH"@$H I @H@"@$H"@JH$H@"DD@JH"@"$H I @H@"@ȏ@DG@D>x@DDH"@H#@'@x}8O@@@@$C"@ @@@@@@@@@<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ p??_o/78x@ D@ 8D `@?`| G?@@ H|>FD H|>:8 x;\:l6/7x @@sIxx `$IDD $IDD$I"DD`$I"DDxr#DD  # H#Ȑ$H$H? p??_o/7    !  <8!#ǀ "D$A$@?`#"|'@?@ "@!$@|>"D!$A$@|><8#@;\:l6/>7!!D!D$ >D !"D!"D$`!<ĉ|BB8B|<BDBDB>y p??_o/7    !  <8!#88xx "D$ADD?`#"|'|<Dǀ?@ "@!$@"D"D |>"D!$AD"D"D |><8#8>Dy;\:l6/7@q<@H "@ H" H"H "@`'q"@ #p$H $F $A $A$@ )~  @LJ$p8p@px$H"| ADsO"<`@yADH$"D@AD2$H$"D@ADLJp>@|@D? AAUUUUUUU@AEUUU@"DUUUUU@"DUUUUU@*UUUUUUU@UUUUUUU@@@@@@@@@@@UT@@UU@ @UU@@(*@UUUP@"@UUUP@ @@UUUT@*@UUT UUTUUT AUUT*@UUUT UUUP"@UUUP@(*@UU@@ @UU@@UT@@@@p(@@@(@@@<\ AAUUUUUU@UUUU@*"UTEUUUU@"ATEUUUU@ UUUUUUU@*UUUUUUU@@@@@@@@T@ @U@@*@UUP@@UUT@@UU@ *@UU@*@UU@@ @@UU@UU@UU@A@UU@ UU@*UU *@UU@@UUT@@UUP@*@U@@ @T@p @@@@@<\ AA@@@@@@@@@a@@`@`@߰`@`@~`@`@`@`@@?@cggA@@@@@@@@@@p @<@"@@@<\ AAx1۷n9nnn|qݱ@@UUUUUUT@@UUUUUUT@@UWUUUT@@@U@UUT@@@U@UUT@@@U@UUT@@@U@UUT@@@U@UUT@@@U@UUT@@@U@UUT@@@U@UUT@@@@UUT@@@@UUT@@UUT@@T@@@@@@@?@?@@@@@@@x@ @@@x@@@ A????0`?0`?0 `?0 `?0`?0ۀap?0?g?0qn;?0``l ?0``l ?0``l $?0``l ?0q`n; ???`g ??`a ????????????"j?B#!"p?$! DEx?$H JEHH?$( *Px?$(! *_H?B"!P?P(??h?8? ?r ?EP?;ePl$?$? D?U@)?Srpĺ?Ȃ?l??'`@Ap?D@?FG](X8?qq`EUUUT?QGQUUF?UDUUUx?w`w]U]??????? <>" "" "("" "&<"g>"zHHHHHH`H`H`H`H`H`öH`H`w8H`6H`6H`6H`6H`vH~H~öHHHHHHHHH 0`A8] X`) UhRR)P *U "]S)P*U BDH"PU DH!ӦP`H`@PA @P@A@ @WAw|ݟ|;߻uwwuvpuwpuAUETPUTUU@ * Q*%UUTUQUU@Q@UUUGWAWwTQT]@*9.;UuUQUU@WpUW@TATTQUTUQ@** UEUUQUU@UUT@gAwTT ::躕лWuuUPwpuW@@ @ @ ` "T@ E8@(  D@ }:#]*w#WwW]}TYT2QPTUU*UJ:TTUUAUUU *QT]*EJ#TwWUUUUU*RQUQUJ"*TAUUUU3RQ]u+#twUUp@ @`I(T@P(J(Ew׮PߣJ%`pwpS ݜ (uUDU*pU@@Q2K= PU@R" TP BUDY*P@] "HpPW@R: U EUDU*PU@E*JPHPT@"" UP uwBT]d@ܳ3%uNAPw@#:: @@@@DJ@ DP(P@w\)W{=uw]guwu~ET)QUPUUUQUUTET@*RTwT)WSUU]UtutuT@ꊌtTRUUPQUQ TBDT@*)RDwUЗSwW]trtu ꮠr `<"<(H P4@@&hP@@@ k;WwpEpe]׻;wpYww~xETEPeAPU "EPETTUD []WwPPu]U#GP]WUt Z*TPQPUUPTAQU" "*)DPTEQU K]]wwPePu\#GP]Wur 0 0 "@ 9`@ PH" $PGVwu: ;*%pWu]::eIQEUU *ʪ**%PeU UQUUP*IWGUӪ JΊ讐+*讠%pgU:U]]UP*UHDUR **"(%@TTR*UEQUP*gDGu˪ ꮠ;9pWu9]]P:@00`qgxH92A( P"JZ ()h%KA@  @JZ%R )h%CA]W;W@wg.J^ %R)x%[ݑUU**TGE** JV%S )X%JUY:(+T@Eu: JV "$U)X%JUU("*"T@EU"  q d"$UH9:AԂ;;t*Et. 0 @  ( @    uwwWww]wpS)z+:UUUAUUUTUUPU*%PR*U*)UR u]]Au%UUtUUu:'PSҪ*+9WR(EQQAEEUUDUU E"$P" TR* ETR!Hu]AuuuUtWU tP#AӪ+EWK9N@r@BH @ PJ]]]~܂zwJ*UJUAUU%TTRTJ:]NQAU]'TԂRwJ*"HUAT$TRAr亂.UAԝ'Rw@x(8@ ( 0T( UA(%-D P +%-wu^/wGWwwwwg: ]]"%/vEUT*(TPeTUUUE* "QUAUUU\"%+EUd.WPTGEWEu*(:QQAU]@B(%+EUT"QPUTTUTEU* QUAUUQ@{8GwR냮UwPgtwwwEt :Q]A]U]@`D@@ @@@D@@@PA@www/wuT]u]_P_wwwpJUUU*EUXUUUU@uUAUAQ*`U**)UUU@KUuu*tUT]UUU%@]U@]*PU**UuW@J"UEEUTQUUUE@QU@E*PU**UET@+WwuwUU]u:`U:*uuw@ 0Q@@@@ Tȁ "@H@  (PvpCU]~]_wUw+:-P Q@Z UEUUATU@QEUU***-QTWpJ:Y]UUATꋢU@]GUE+:*-PWUJ*UUUUAT"U@E"DUU**PQ wp::U]]URU\GuuA˃;ʁ$*H@ EB ( E@A @R @ wvzw} 낻ݟ}wwvwpWww\]]߸;TQRTTR *PUUTEAUPUUUTUTUUQ(*tWRTUҪ *ꮜQUtuGEpeUu\QQ(+DURTUR "QUUDEU@UUEPUUQ(* tWJtU:\UtwGupWUu\]и;@  w~TT5X`WT QT<WT$J</$@B$t\HB4$H@ww\]E4"CIATUTUAEtAONC"E/6asXP킜N9NNN)NN N"aFafFAaa <r4< ma`JBWHH/ <r4< ma`hJBVHH/ <r4< ma`JJBWHHa;`eaeAaa\AaaTA ag6Aag. mBh m"m "" m 24 m aZf( m //a: BfJAf Ѐf maXaZfG m 24`e aePAa`Aa`Aa`AafAaf <r4< ma9" m 00 m0B0 <r4< ma8 maYfh <r4< ma8H/ <r4< ma82 <r4< ma8 <r4< ma8 <r4< ma7 <r4< ma7ځ <r4< ma7Āg <r4< ma8` <r4< ma7/ <r4< ma7~ <r4< ma7h <r4< ma7Rg <r4< ma7`: m//adJBg <r4< ma7x` <r4< ma7baXfG m 24`cac`A(a^A$a^A a^Ap"m(a74/??Ap// <r4< m(a7(/??a88:&a7D/?? m // m$// m(//a8:&a7&<x:<a]4`b|paQp ~AaqBp ~Aaq6p~Aaq*p~Aaq$pr~AaqEypAlaX0<11Ara_A큘0B0Bm <r4<A큀aW>fZ m Bh <r4< m aW f2 m a7@/A큀a76/p a_rab"*("mas`aWfGaWfGNup~Aap`p ~A킦apjp ~AapHAp0B0 <r4<x mAH 00 <r4<x mAH 00 <r4<x mAH 00 <r4<x mAH 00 <r4<x mAH 00 <r4<x mAH 00 <r4<x mAH 00 <r4<x mAH 00 <r4<x mAH 00 <r4<x mAH 00 <r4<x mAH 00 <r4<x mAH 00Ezpa]fx"maqEz pa]Px"maqpEzpa]:x"maqZEzpa]$x"maqDEzpa]x"maq.Ezpa\x"maqEz#pa\x"maqEz(pa\x"mapEz-pa\x "mapEz2pa\x "mapEz7pa\x "mapEzEzpGa[/Ezpa[r"_taO/  m0a3  ma2a9, <r4< ma0g8 ma2("mao&/N1A 00ACa0`gpca8aRfG0<..a[2aCFx"manp2<a\a_ A` 00Nua].ApaJpaJpaJpaJaJ Bm <r4<A큀aPffA큀 24a\"mTaQ~ <r4<A큀a.gp aY"H mTaE"mTaQPA퀐a0@rЁ/ <r4<A퀘a/6/?? <r4<A큀a2R8:&a/a0/ mT$"aPbaOf^G m$4(f m Bh <r4< m aOfBm <r4<A큀aOvf <r4<A퀐a./?? <r4< m a18:&a.za/d/ <r4<A퀘a.Z/?? <r4<A큀a1v8:&a.,paRXEzpWaQpa< <r4<A`a,XgN/pJ-gpRfVEzp aVLa? A`aLnE{Lp aV4ra= <raP,paQA`aQpa <r4<A`a+gN/NuHyHxax-f2E{Up1aU/E{paUr"_taJl/  m0a.j paZ0E{paDz/aU"HA*,ac <.PLNaV$C*aBC*aNbA*a+g&pJ-gp/pJ-gp/ <r4< m0a+zFpA*aVp\aCgA*ra0aLE|p%aLAla>E|p aKAra>E|xpaKA큘aL8E|p aKaLlpaQN/paQFraS"_a=a=aLJpaQ,/paQ$raSr"_a=a=aL(paQ /paQraSP"_a=a=aLpaP/paPraS."_a=pa=`aKpaP/paPraS "_a=Na=>aKpaP/paPraR"_a=,a=aKpaP/paPzraR"_a= aA8aH <r4< m8a gHyHxaN. <r4< m8agHyHxa`LHyHxapJ-gpJf4E}p9aI/E{paIr"_ta>/  m0a" ` m00B0 <r4< m0abgQ키`P키HyHxa(NuaLRA@aGAaG <r4<A퀐a f/?? <r4< m a#8:&a Ha!2/ <r4<A퀘a (/?? <r4<A큀a#D8:&a a / <r4<A퀐a/?? <r4< m a#8:&aa rXЁ/ <r4<A퀘a/?? <r4<A큀a"8:&aa tr Ё&$"a8pa]a!2&<x:<aE&<x:<aEa 8rЁ"paXpa]va &<x:<aEva@&<:<aA큈 00A큐0B0A큈a/A큐a/A큈a/A큐ar*Ё/A6(*,.a;Q킝A큈a/A큐a/x "ma[$"a9 man/ m@ad*("ma[/p aGraJD"_a5Pg$ ma:/ m@a0/aG,*("ma[b ma/ m@a *("ma[|raR ma/ m@a*("ma[Xp"a5/t m@ag@ ma/ m@a/ ma/ m@aS*("ma[*("maZA큈a~/A큐at/A6$"a8pa7|pa7pa7pa7 <r4<A퀐aJ/?? <r4< m a f8:&a,a/ <r4<A퀘a /?? <r4<A큀a (8:&aa/ <r4<A퀐a/?? <r4< m a8:&aarWЁ/ <r4<A퀘a/?? <r4<A큀a8:&anaXr Ё&$"a5pa6\pa6fpa6pa6pa6rpa6ppa6npa6la6t <r4<A퀐a/?? <r4< m a*8:&aa/ <r4<A퀘a/?? <r4<A큀a8:&aa/ m a/A큀a*("maX$"a<`FpaYa<&<x:<aAva=2&<:<aCa8DAa>AaApa-gaAa`:HyHxN+`Ra `La`Fa`@aF`:a^`4BBar`* @g @;g @g @?g @@gaRSf\ mtE}gpa:x"maN>E}{pa:x"maN(E}pa9x"maNE}pa9x"maME}pa9x"maMHyHxN*praIE}pa4x"maMa& m 0B0 <r4< m a18f m aX("maMa&ra1JfG`;a<A0a7 m40B0 m0 24 m4a0f m4a/a9("maM$ m 0B0 m4a("maM>0(a$ m a0f m4a("maMpa:RCHa1 m4a/ m4a("maL/ m4az("maL0(S _a:P("maL m4aR/ m4aH("maL/AHa7r a8"_a%h("maLLa0fVGa0fG`:a:A$a6ZA4a</ <r4< m$a g aNp aDAaF/aHSWHHgpa&&A큸a /Aa /A6$"a&aNu0<..a5.aBE}pa4t/aD&<:<aa8X"_a!E}pa#8/aDa a88"_a!rE}p.a#/Ezpa4r"_ta(/  m0a a:Nua6APa2A\a2vaRa/a.E~pJa.E~hpNa.E~p;a.E~pKa.EpEa.\Epa.Pa. mPx *<|~a'pa$pa$Dpa$Npa$La2aDhfa2zCa,AaDLg>p$m\JgpRf$m\Q mPtra$`$m\P6<p tra#p aBzAaD /aFȀg`56a5|ALa1|A a6Bm m 0B0 mL0(a m a*DfZ m a d/ m a ZR" mLa4xa1a Aa mL0(a a &<:<a N m aa*fGA 24`4EpGa1/Ezpa1r"_ta&/  m0a pJ-gpJf m$0B0 m(0B0 A큀0B0 <r4<A큀a)VfA큀a' m$a l( mAHC큀a)Tg <r4<A큀a&/?? m$// m(//aМA 00A큀// m$// m(//avA 000< A킄a10< A킊a0 <r4<A큀aa4C킄aEA큀 24a4C킊aEAa("maEC킐a)Aa("maDC킖a)| A 00A큀a/ ma*("maCHp:a"/N5"N5a&f6GNua*dp a/FaNua1nAXa-na*H mXa`1 a1RAXa-Ra*,pa/"H mXaa`0a1*ADa-* mDa7"mDa'B mD mDEpagp3a, /a` mDE pag p4a,/a`-0pra:dE"pPa*v/Ezpa*hr"_ta/  m0a a Nua 24&8:BfJBg f DfpNuJEgpNu 24&8:BgnpNu<ngfDcpNufAcpNu 24&8:BgmpNu<ngfDdpNufAdpNu 24&8:JBgfDf EfpNuJEgpNupa JkpNupNua*AHPB?HQ?<NNAP _NuDExa*`bDEa"`ZaR11!Nua11!Nu 24&8:DE`6 24&8:DB`&a&8:DE`DEx`a` 24&8:HnghDBHngXDE~<En g6@ABDFGcGcGb8(vHDl`G8BCHC` GHD8HD쬵k&Dуd QRB BbJjDBNu DENupN֓DjdDA@ cAр[SBoJjDBNurptNuH@g0J`Ѐ[rGoJjDBNu0ftNu@[rB oH@JjDBNu $HkBk Bj*DBNupNuDBBkBjDBDNuf gp` 246jDCCe0 C/jC C@j C jr0H@{0>H@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`fNup` 248o6" <(<BJd@؄ЄCӁeg,e Єf`fҁecRH@hrH@NuNuxa`Ba411!Nux`4 24&8:`& 24&8:`a&8:` &8:@ABJEoHnfNup`tNugDEDBHngDBEBkQ*HEJDg?<>0rHGGdHGGdSWDуdi?<>0rHGGdHGGdSWDуdi2?<>0rHGGdHGGdSWDуd&2 H@kփAр[SBkփejRAd RdQRBJjDBNutNuCEdSW`?<,>CEdGeH@0r`fJCgz?<0rÐdSWЃdi?<0rÐdSWЃdid?<0ÐdSWЃd&2 H@kփAр[SBkփejRAd RdQRBJjDBNutNu?<0riP?0i?`?<`rapE.BgP0`LJg&B.C`a8aD*9:fap-I,=|p4aHz*9:g ENp9.` _a &nO:NMBI9|Kt$<Nu[1][Error +111][Return]Er g g>Jf`Ar Hjr-D@Hd0H@H 0H@0CNuAF"H [1][fSEfNu`HQ?< NA\Nu"_KtMBI9|O:HQ <-H*,`N,Bd d3 d# d# # d# # # # d ALH dAL H LH d AL`H L|0H>L|H>d~# # # # A`@ALH L|H>L|H>L|PH>L| H>L|H>L|H>L|H>L|`H>L|0H>L|H>QL|Nu$H$&"BA -KaXA"f B &nNuH>dd2d"d""d""""d LHC dLHLH C@d LHL|H| L|H|PCd~""""C`:LHL|H| L|H|PL|H|L|H|L|H|L|H|L|H|@L|H|pL|H|L|H|CQL|Nua`Np?a a?<LNA``NuNu`aza`aaaHA-Hhp alpMah=@F?<NNTT@A0r p0Q`pdr ta0.F=@=@ACp,2QAp 2Qa a`\`Xpea>pCR2Ad0A2r22a"<H0<NBLNurt=@:=A@=B"<IpsNB0.Nu=@0=@=B0=@a"<HpsNBNuC|2 @ e$ @bA0AP2r22a"<H0<NBLJNup"AJӘQNuA> NuHz(` NHHz ?<&NN\Nu9gNuWNu|^|  R^,T:&0D4(*<B$,>2::(   F..26"8@"PQ1!P1P!0PP`0  q#aaa Ta O: n*NNuNuNupc?a0QNurdAd6Ag,B(dB(dH Ao<a2toBAp`NuNu?<OA`d?<IA`Z0<H IaLt Ig Og Ug Ag Rg,afNup`a~p`V0a8fHRaZ>Er$Wgr STD:gr COM:g r LPT:f4FA$_0=@Dk"~CA0< BhaB2"pNu$_AF Ge><QBAFpNuafgzp=` aZgzpaAHPBHQ?NA\ _Jk^NuHz `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?a4<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<.aJFkSFk4arQa`&HaFFaZQ&8*L/a~,H܆jDBJ.:gtBn:Nu @$@JfS an`QNu$AaP`QBNuHz a `Hz a2H `dHPHQ0(ika$ $I _a IUd4Id4Id$Id `$$$$Q _Jf,aId4Id4Id$Id `$$$$Q @NuSaIdIdId`Q @Nup `Z/ av$I> _alG` VNuag`af`ae `ac` acpNuadpNu/ a2$I> _a(4Ae4v` VfANuHP0(R@kBa $I _aIUd4Id4Id$Id `$$$$Q @JfNuNup `aSAfNuag`af`ae `ac` acpNuadpNuaSAkfJANuH HPhkJav $I _a^IUd4Id4Id$Id `$$$$Q @JgSL`QNup `aAf` VNuag`af`ae `ac` acpNuadpNua4@m4v` Vf@Nu/HP0(X@kHa $I _aIUd4Id4Id$Id `$$$$Q @Jf$Nu $Nup `JahYAfNuag`af`ae `ac` acpNuadpNua4SAkEF$p VfWANuz`z `z8.^n\Dn\@Hp tr=ED`Bp'rta n2rt6(SC0(S@apaB\papava0paHQ?<NNT"_HV n2MF-@ @6H H00(L=C=B&<RF<>RG=GYfx-IC=C=C$tBft=B=B(tFJ=BBBB*Do>Eo:@l6Al2DDk =DVBnDEk =EnBn@cVo Acno,_NuAH`/=@a _aN]Ak024E$ Bb5B5A6CC5CK5C:8AB0000DkxEkt00A<:d>:bSFSGFn\GnXDDk0BhDEk1EBh Fchh Gchh0hb"0hbpmrt-|U~H-|UL`JNu-HNM0?<NNT-@XDbDEbEBb=ET=DV-|PBLBp n20(L=CJ?=B^C=C\=Cj@drAdnED??RGRF=GF=FHtGJ=BltBft=B`=BnGOpЇЇ b na 222-IfHVMF,_Nup `T np` n??/ a , > _a 4$FAFp_@[000][vx`* [g" ]g |g QSx` xQSrQ][vx`* [g" ]g |g QSx` xQStQ]BAF0-H,=@p4ar2HNu 24DBaDB11!Nu 24DBa DBNu 24x6o<Ce(FC BdЄeNu B/dHDDdRdQRBNu&<:<`.g BbUC BcjNu BcHDDdSkg RBAрjNuNu0ftNuB H@"jNu Lx6oFCe0FC BdЄe!Nu B/dHDDdNAXOJkpNu0< aH`0< CF2p`p a2`p CFp`a CF"p`Hza`Hy^"J`B.@=|DNua.@FpAR@C`l @H` @HHy^aza"H`:Hy^`Hy^ 24`@H` @HHy^aBaz"Hav`Hy^`Hy^ 24`B.@=|DNuB.@a`=GDgNup`ja`a0CF"E p`Jg$_a: HN$_a: HN$_aBHN$_a؄BpHN$_aB0HN$_axBpHN$_alN$_ab؄N$_aXN$_aPN$_aF 0HN$_a:؄00HHN$_a,p0HN$_a 24N$_a:p 0HgpN"X I"_(*UGk*<(؆QNp`p`p` p`pJPg`H$_a!HN$_a؄1HN$_aHN$_a 00N&8:` &8:@ABHaNL8aL8 DBaٶL8O <jDFJEjDEFn ffAbtNu&8:a`ڶ&8:a޺`ڨ.@<.DAp$I"t Q k"RGef~`SG * g *fSG`<.DjZ\FkBJn`g Fgd Fg^HS&I.ahQ`p???<NM\Qj&_NuHQ/?4(g8HP b6 a^$_// Z4HQ`S@Q _Q _a, _Nua$`p`AFtЀvQBNuAFt0 9c^QBNuAFt 0QBNua`a`aCF 0gS JfS`*@a Acr `@a A cr `@a\ A cr `NN$H`HahLHP?.d=hdNN=_d2 "@$Y4Ad2`0Q @NuE"e ah"b BB& &6 Nu@`r ??a"P02R@H`2Q Nu?AFBHP?<GNAPAF `BaaJjtNuaHPa pJk NuCg.BJ@g  g &g, $g %gNOtNutNuRpt`2Rpt`Rptr ae OgX Xgn HgSRB ae Fb$0k  c_  c b退`tSHkaHNuRB0 b b瀀`RB0 fрd`aHp`a@p`ap3iBiNu>.D<jRGg>VGg:TGjp`>HPa0CF$IpR@  f _aHd2Hd2`"QNu`<.DHSGFaAEg f< &_Nua`њNu.dfaBi=n`r>.D<jRGg.D<jRGg*VGgTGjp` <.Da*`" yi faa ` yi f aaAF "g pR@0 ,g  g  fHp`:pR@0  g  g "fR@0 ,g  g  fHpRU@"_  f#i$H _ab`QNupR@0 ,g"  g  fa~ (fR~Nua ~ `a~NuaJkHQ ! gRf _NuXX~Nu0j\@??<NMXJk .dgp Nu`<.DHSGFa ,g gAEf< &_Nu ."Ff +"g ,g`?<`Bg/0ao< 2JjJAfr`TNu2(gbc  P"H`Nu/0Ha2  _ PSAvjx E(Wf* ae zb Q @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?Hya~NM\Nu=|D`LjazEfpadppa`AFEg0PaEfaFRE`ܾEfp a@a8?nnnp a2RF`<annoS@f nhfSnl=Ah=FnNup` papq4.rf?HyaNM\Nu=|DHaDLNu|A0"P2(@e2<EF`QHP=|DJ@g$abAF$HpR@ 0 f _a<`QNuHPp?ap a _2<|0`C&pHQ/Hy@NA NuC pa:NuHQ/Hy?NA Nu&g4 FgagJAga2< R@AdSf0Nu0ap Ce`&g4 FgaJBjagPAe CbRa R@Sf0Nu FgRafg JBjaxAeaJAg RP0 pNu`: Fg6a.gJAga @ea8RP Nup NHѨB?<?/?<BNAO JkLLNu&8aJBjaJAg Df*ڃkd0Nu DfրBH??/?<BNAO LJk!@NuHBHh Hx??<?NAO LJo ѨLNuk:fp`^k: g ѨNuBHPHQ/??<?NAO _JoѨfNuBHPHQS/??<@NAXLfѨNuJkp%`B9`$H EaA AerQBL@͉H Ia("H _/ aa _/ ?aAF-H AerQB2"_A&-H A e ` \gQBa9gaZe -|p[`pZa\ajAF"H0.g "Hg \f`A&fS !.gR EF _a`QNuHz?<&NN\ @Nu x NuA@Bh`A@a n@!|}Nup#>fp)Nup`p`#:Nu(a8؀.dfa*jNu?a0` ?a2@@a,` a Nu4.`Af n2LR@RANu4.`g S@SAHNutbpbr??paLpYaF0a@0`:9.HHNu90`D@v`v??NMXJNuJ@k??<NM"UAf J@fH@Nuaj80fpNu\@`a~`]@><CF Ipa<0HNuab`]@><CF Ipa Nu?|`?a@0R@f|0azHJFkHPa _Nupo`4HSHP&I>g\SG??<NMXJk Q _t&_Nu&_`a"JANuag `af`apNuapNuC`C``C` C`C-KJhfJfRRRRRRRHP? @CFH~8:E#P&<2 `b$bYEf`"RAf rЁЀ`&Ѐe "ЀeЁdp`HJAkfgRer?DDЁaAaΜ8$HX :CFE` YEjT"_$P"2trDDd0d d d` QjNu`˴aDa DNu na^ K"ng42 $`gk2&Hg Af deђ$`ebѐXf&nNu AgebѐA``-Kx$ n&$n""Hg8" &Ak cѐ S`g"" k#&Acё2+SAI3 Q&f-I"&nNu-Kx$&ր n&$n""HgR" k&Ac b S` S`g4" k#&AcbrkX`ޑ2+SAI3 Q&f-I"&nNuaT n2L6(n\n^HHHNua4 n20(n\HNua" n20(n^HNua n20(HNu`ajNu؄*؄؅CH`Ƙ؅X`$_  IadYHR"H @`ʘ؄*؄؅AHNu؅X`$_ Ia.YHR"H` nyd$HJf-HS Nup"`ɈHPa _ah`QNua JH aL0Nua`$Iax Z0AcA`QS@ QNuHd0Hd0Hd` QNu$Ia8 Z0Ac4ASB Q`QNuA`A` A|`A@00HNuA `A`A|`A `A `laden0save0383drucken0383import0196export0196info0194desktop0192logo0008plan0432jahr0128jgst0128raum0128fach0welcome13511990/91Jan. Feb. Mrz AprilMai Juni Juli Aug. Sept.Okt. Nov. Dez. Montag Dienstag Mittwoch DonnerstagFreitag Samstag Sonntag STDPLAN.GR|Unvollstndige Installation!|Eigene Lizenznummer kostet nur|DM 10,-. |Abbruchlanplan.prgLANPLAN.PRGLassen Sie sich registrieren bei: DON SOFTWARE, PF1502, W-5653 Leichlingen 1. DM 10,00.LADEN.DON|Daten im Speicher werden|berschrieben! Weiter? OK |Abbruch\*.PLN|Datei existiert schon!|berschreiben?Stundenplansystem V1.0 1991 by DON SOFTWARE * Postfach 1502 * D-5653 Leichlingen 1System geschrieben von Alexander Ressos|Whlen Sie ein Ausgabe- |format:Kalender|Std.plan|Abbruch |Soll die 0. Stunde|bersprungen werden?|Stundenplan Schuljahr Jgst. . HalbjahrStd.MoDiMiDoFrSa |Programm beenden?|Nicht gesicherte Daten|gehen verloren!|Bitte whlen Sie ein|Halbjahr: 1 | 2 `a:P|z}r-]Q:`rvrZNe\[-P\Z]baR_-`a:P|z}r-]QV{qvrnr-?Cd:C?@C-Rpuo|{`]Y`>@Q====E=>eRegistration-Nr. |Debugger zeigt: $AF6C|Bitte informieren Sie uns|von diesem Vorfall! Bitte lassen Sie sich als Benutzer registrieren. Fr DM 10,- erhalten Sie neben einer offset-gedruckten, gebundenen Anleitung eine eigene Lizenznummer, zwei Disketten mit DON-Produkten und eine komplette Liste. Sie werden bei uns wie beim Kauf eines Fullprice-Produkts als Besitzer ge- fhrt und haben Anspruch auf 2 Jahre Support und einen unbegrenzten, kosten- losen Updateservice. Bitte lesen Sie auch die Datei LANPLAN.TXT DON SOFTWARE, Postfach 1502, D-5653 Leichlingen brigens: Entgegen der Information der o.g. Datei funktioniert der in ihr erwhnte Geheimtrick doch. Weitere Infos in der Datei und bei Registrierung.|Diese umfangreiche Funktion|ist erst in der Vollversion|implementiert.. kleinKLEINBOLD PSDRAFTSANS SERIFCOURIERPRESTIGESCRIPTINDEXNORMALPOTENZ|Version fr hohe Auflsung.|Lizenznehmer (DM 10) erhalten|u.a. die Farbversion. BZ(T*Rx:d6T(((((J~L Z* J   Z0  0zP "" ^" R *~ f`((@42Lb$B 8~|  NLANPLAN.TXT Bitte lesen Sie diese Datei vollstndig. Informationen zu LANPLAN.PRG (C)opyright 1991 by DON SOFTWARE, D-5653 Leichlingen 1. Bankverbindung: Sparkasse Leichlingen (BLZ 375 510 20), Kto.Nr. 685 297. Shareware, Registrationsgebhr DM 10,-. Sourcecode fr registrierte Benutzer erhltlich fr DM 10,-; alle anderen Interessenten haben DM 30,- zu bezahlen. Ausfhrliche Informationen ber das Einbinden von Icons und DON-GEM- Funktionen. Sourcecode ist z.B. in BASIC (GFA und OMIKRON) erhltlich. Leistungen: Eigene Lizenznummer, wesentlich erweiterte Version, zwei Disketten mit weiteren bisher unverffentlichten Programmen aller Art, umfangreiche Informationen und ein gebundenes Anleitungsbuch. Zwei Jahre Support! Nach der Registration werden Sie bei uns wie beim Kauf eines Fullprice- Produkts als autorisierter Benutzer gefhrt. Bitte lassen Sie sich registrieren. Wir haben den Registrierbetrag bewut mit DM 10,- sehr niedrig angesetzt. Die Autoren (Programmierer und Grafiker) haben insgesamt mehr als 60 Stunden an dem Programm "gebastelt" und mchten ihre Arbeit natrlich gerne honoriert bekommen. Schlielich htten Sie bei einer anderen - praktischen - Beschftigung und einem Stundenlohn von ber DM 10,- mehr als DM 600,- verdienen knnen. Selbst wenn Sie kein besonders groes Interesse an unserem Stundeplanprogramm besitzen, sollten Sie darber nachdenken, uns mit DM 10,- zu untersttzen: Sie erhalten schlielich auf zwei Disketten neue Utilities und knnen als registrierter Lizenznehmer ANDERE Produkte von uns billiger erwerben. Auf den Disketten sind unter anderem: - PRG zur Erstellung von PostScript-Dateien - Sicherheitsutility fr die Festplatte (erstellt nach den Anforderungen eines Unternehmens!) - Sicherheitsutility, das im Hintergrund luft und alle Daten fast in Echtzeit codiert - Programm zum Projektmanagement, das z.B. die Erstellung von Gantt-Diagrammen ermglicht - ein Druckprogramm, mit dem S/W-Drucker in Verbindung mit farbigen Farbbndern (preisgnstigster Anbieter aufgefhrt) in Farbe drucken knnen - unser AO-Converter V2.0, der das Ausschneiden von Icons aus PIC-Grafiken bernimmt, so da diese z.B. in GFA-BASIC eingebunden werden knnen. Mit Infos ber die Integration von solchen Grafiken in eigene Projekte LAN'PLAN Praxisorientiertes Stundenplanprogramm in der Version 1.3. Kompatibel zu dem wohl bekanntesten aller Stundenplanprogramme: QPLAN fr den PC und fr den AMIGA. Diese beiden Versionen knnen von uns gegen Einsendung von je einer Diskette und DM 3,00 Rckporto bezogen werden. Bei Interesse an einer Registrierung sind sogar Preisermigungen mglich! Anmerkung: QPLAN AMIGA und QPLAN PC werden NICHT von uns produziert oder vertrieben, jedoch sind uns die Programmierer und der Vertreiber bekannt. Sourcecodes auch hier auf Anfrage verfgbar. ===================================================================== WICHTIG Weder Autor noch Vertrieb bernehmen irgendeine Haftung fr Schden, die aus dem Programm resultieren knnen. Dies gilt fr Schden jeder Art, auch Folgeschden. LAN'PLAN kann prinzipiell keinen Schaden verursachen, trotzdem schlieen der Autor, wir und der Vertrieb JEDE HAFTUNG AUS! Sie benutzen das Programm auf Ihr Risiko. ===================================================================== Bedienungsanweisung zur Sharewareversion: IMPORT und EXPORT sind deaktiviert und funktionslos. Die Druckfunktion beschrnkt sich auf die Ausgabe im Stundenplanformat. Der Druck eines Kalenders ist noch nicht vollstndig integriert und wurde daher ebenfalls deaktiviert. Klicken Sie auf ein Fach, erwartet der Rechner von Ihnen die Eingabe des Fachnamens. Ein " anstelle des Namens, und der Eintrag der aktuellen Stunde entspricht dem der vorhergehenden. Klicken Sie auf SCHULJAHR, um ein neues Schuljahr einzugeben. Klicken Sie auf HALBJAHR um ein neues Halbjahr zu whlen. Klicken Sie auf JGST um eine neue Klasse/Jahrgangsstufe zu whlen. Im Prinzip sind dies alle zur Benutzung ntigen Hinweise. Sollten Sie Ergnzungsvorschlge haben (die Profiversion wird z.B. auch im Grafikmodus drucken knnen - WYSIWYG), schreiben Sie uns bitte. Das Gleiche gilt fr Fragen, die QPLAN auf dem PC oder Amiga betreffen. Wir hoffen auf Ihre Registration und wrden uns freuen, von Ihnen zu hren. Mit freundlichen Gren DON SOFTWARE .  A`..  ABESTELL TXT !AaxINFO TXT #Ac\MEDIZIN PRG 'A{lNMEDIZIN RSC 5A"/ An Renate Steinbach Ralf Bibinger Horstackerstr. 41 o d e r Luisenstrae 13 6700 Ludwigshafen 6714 Weisenheim A T A R I - V E R I O N Bestellung der Voll-Version des Programmes MEDIZIN ================================================== Ich habe die Shareware-Version des Programmes ber folgenden Hndler/ Mailbox erhalten (freiwillige Angabe): Ich bentige die Voll-Version auf folgendem Diskettenformat: O 3 1/2 Zoll, zweiseitig formatiert Der Betrag von DM 25.-- O liegt in bar bei O liegt als Scheck bei O soll per Nachnahme (zuzgl. NN+Portokosten) erhoben werden Absender: ========= Name: Vorname: Strae: Ort: -------------------- ------------------------ (Ort/Datum) (Unterschrift) Einige (leider) notwendige Vorbemerkungen: ========================================== Das vorliegende Programm MEDIZIN ist Share-Ware und darf frei kopiert und weitergegeben, jedoch nicht verkauft werden. Gewerbliche PD- und SW-Hndler drfen natrlich zur Deckung ihrer Unkosten einen gewissen Betrag fordern - wobei ich jedoch DM 10.-- pro Diskette (=Programm) fr die ABSOLUTE OBERGRENZE halte, maximal die Hlfte dieses Be- trages als vertretbar ansehe. Hndlern, die hhere "Kopiergebhren" fr Public-Domain- und Share- wareprogramme fordern, ist der Vertrieb dieses Programmes ausdrck- lich untersagt. Unabdingbarer Bestandteil des Programmes sind alle seine Teile, die nur zusammen kopiert und weitergegeben werden drfen. Es handelt sich bei um die folgenden vier Teile: INFO .TXT - dieses File Lnge: 23.556 Bytes MEDIZIN.PRG - das Hauptprogramm Lnge: 151.148 Bytes MEDIZIN.RSC - die Resource-Datei Lnge: 12.066 Bytes Bestell.TXT - Bestellformular Lnge: 1.144 Bytes HARDWARE-VORAUSSETZUNGEN: ========================= Das Programm luft nur im hochauflsenden Monochrom-Modus und bentigt mindestens 1 MB Speicher. EINLEITENDES ZUM PROGRAMM: ============================= Das Programm MEDIZIN informiert in relativ knapper Form ber 472 Arzneimittel, die nur eines gemeinsam haben: sie sind nicht rezeptpflichtig. Wenn Sie durch das Programm wandern, werden Sie den Eindruck bekommen, da die Autoren diesen Arzneimitteln nicht sehr viel zutrauen. Dieser Eindruck ist nicht beabsichtigt, aber unvermeidbar. Deshalb soll hier mit allem Nachdruck vermerkt werden: Arzneimittel helfen; sie heilen oder lindern zumindest; sie schtzen vor Infektionen und Ansteckung und erhalten Leben! Die Errungenschaften der pharmazeutischen Industrie sind wirklich ein Segen fr die Menschheit! Wenn im Programm Aussagen ber Sinn oder Nicht-Sinn der Zusammensetzung eines Medikamentes gemacht werden, so sind diese zunchst einmal subjektiver Natur - und rein subjektiv erscheint es uns nun einmal nicht sehr sinnvoll zu sein, wenn ein beruhigender Stoff mit einem Anregenden kombiniert wird, zumal dann, wenn beide Wirkstoffe zu unterschiedlichen Zeitpunkten im menschlichen Krper ihre hchste Wirksamkeit erreichen. Alle diese Aussagen sind als Empfehlung, nicht als Urteil zu verstehen und sollten auch so verstanden werden. Ein Wort zu den Nebenwirkungen: ------------------------------- Alles, was wirkt, wirkt auch nebenher. Wenn Sie Eier essen, so ist die erste Wirkabsicht, da Sie ihren Hunger stillen mchten - diese Wirkung ist auch gegeben. Als Nebenwirkung jedoch stellt sich ein erhhter Cholesterinspiegel ein. Sie werden vermutlich trotzdem solange Eier essen, wie Ihr Cholesterinspiegel keine bedenkliche Hhe erreicht. Mit Medikamenten verhlt es sich hnlich: wenn Sie unter momentanen Kopfschmerzen leiden, so ist bei Einnahme eines entsprechenden Prperates die Wirkabsicht Schmerzfreiheit und diese Wirkung ist bei richtiger Auswahl auch gegeben. Als Nebenwirkung mag sich Mdigkeit einstellen und diese Nebenwirkung kann beruhigt in Kauf genommen werden, wenn erhhte Aufmerksamkeit wie z.B. im Straenverkehr momentan nicht ntig ist. Die Nennung der wichtigsten Nebenwirkungen eines Medikamentes soll die Auswahl erleichtern, nicht das Medikament als solches abwerten. Wie Sie das Programm anwenden sollten: -------------------------------------- Weder die Flle der nicht rezeptpflichtigen Arzneimittel noch eine genaue Kenntnis derselben kann und soll darber hinwegtuschen, da Selbstmedikation niemals ein Ersatz fr Knnen und Wissen eines Arztes sein kann. Auch kleine Beschwerden knnen Symptom einer ernsthaften Erkrankung sein und eine genaue Diagnose kann oft nur ein Arzt stellen. In folgenden Fllen jedoch kann eine Eigenbehandlung durchaus gewagt werden: unreine Haut, Pickel etc. leichte! Augenbeschwerden kleine, oberflchliche Wunden, die nicht verschmutzt sind kleine Alltagsverletzungen Kopfschmerzen, sofern diese keine traumatischen Ursachen haben allgemeine Mdigkeit chronische Verstopfung ernhrungsbedingter Durchfall leichte Magen-Darm-Katarrhe einfache Erkltungskrankheiten leichte Infekte normaler Husten etc. Immer dann, wenn Beschwerden lange andauern oder schon nach kurzer Zeit oder regelmig wiederkehren, ist eine genaue Diagnose der Ursache notwendig. Dort aber, wo man sich selbst helfen kann, ist eine Vorabinformation ber mglicherweise wirksame Arzneimittel unserer Meinung nach nicht nur sinnvoll, sondern auch notwendig und genau diese Information will das vorliegende Programm geben. Ein Wort zu den Medikamenten: ----------------------------- Das Programm bespricht ausschlielich Medikamente, die in der Bundes- republik Deutschland zugelassen sind. Wenn in angrenzenden Lndern (z.B. sterreich) Arzneimittel mit demselben Namen gehandelt werden, so bedeutet dies nicht, da diese auch dieselben Inhaltsstoffe haben wie das gleichlautende Produkt in Deutschland. Doppelte Arnzeimittel-Namen: ---------------------------- Verschiedentlich finden Sie innerhalb des Programmes Arzneimittel doppelt aufgefhrt - dies grndet darin, da ein solches Medikament zwar unter demselben Namen, jedoch in unterschiedlicher Darreichungs- form und/oder Rezeptur gehandelt wird. In diesem Fall ist es empfehlenswert, sich beide Medikamente anzusehen. Homopathische Arzneimittel: ---------------------------- Sie werden diese Arzneimittel-Gruppe innerhalb des Programmes vergeblich suchen, da diese Mittel ausgespart wurde. Dies nicht, weil an deren Wirksamkeit gezweifelt wird, sondern mehr deshalb, weil diese Medikamente eine Sonderstellung einnehmen und auch vom Arzneimittel- Gesetz gesondert behandelt werden. PROGRAMM-STEUERUNG: =================== Nach Aufruf des Programmes findet intern zuerst ein kleiner Linkviren- test statt, dessen Aufgabe es ist, die zugehrenden Dateien auf ihre richtige Lnge hin zu berprfen und der dann (hoffentlich) in einem kleinen Fenster die Originallnge bescheinigt. Sollte sich die Ori- ginallnge verndert haben, bleibt das Programm zwar lauffhig, doch sollten Sie Ihr System sofort mit einem guten und aktuellen Viren- programm durchchecken. Nach dem Titelbild erscheint ein Bildschirm mit Shareware-Hinweis, der 10 Sekunden stehen bleibt und nach einem Maus- klick oder >Return< sehen sie nun das Men. DAS MEN: ========= In der Men-Zeile sehen Sie folgende Eintrge: DESK KRANKHEIT MEDIKAMENT INFO DRUCK AUSGANG Sie knnen alle diese Men-Punkte mit der Maus anklicken, worauf sich die Pulldowns ffnen und die einzelnen Eintrge angewhlt werden kn- nen. Der Men-Punkt DESK: ==================== Das sich ffnende Fenster hat nur einen Eintrag: MEDIZIN Geladene ACC's erscheinen in heller Schrift und knnen leider nicht aktiviert werden. Dieser Men-Punkt blendet ein Fenster ein, das die Adresse der Autoren enthlt sowie die Versions-Nummer der aktuellen Share-Ware-Version. Die aktuellste Version trgt die Nummer 1.16 Wenn Sie das "Okay"-Fenster anklicken oder >Return< bettigen, schliet sich dieses Fenster wieder. Der Men-Punkt KRANKHEIT: ========================= Wird dieser Men-Punkt aktiviert, ffnet sich das Pulldown mit sechs Eintrgen: Erkltung Magen-Darm & Verdauung Mangelerscheinungen Schmerzen Sexualitt & Alter Sonst.Anwendungsgebiete Nach Anwahl einer dieser Eintrge ffnet sich ein Fenster, in dem die zu dieser Gesamtgruppe zugeordneten Untergruppen aufgefhrt sind. So finden Sie unter Erkltung: Grippemittel Halsschmerzen Hustenmittel Schnupfenmittel Magen-Darm & Verdauung: Abfhrmittel Magen-Darm-Beschwerden Durchfallmittel Mittel fr Leber+Galle Magen-Darm-Geschwre + Magenbersuerung Mangelerscheinungen: Eisenprperate Mineralstoff-Prperate Multivitamin-Prperate Vitaminprperate Schmerzen: Gelenkschmerzen Hmorrhoiden Krampfadern Schmerzmittel Hhneraugen & Warzen Sexualitt & Alter: Altersbeschwerden Empfngnisverhtung Klimakterium Entzndung + Infektion d.Sexualorgane Zyklusstrungen Sonst.Anwendungsgebiete: Mittel gegen Akne Augenmittel Herzmittel Schlafmittel Schlankheitsmittel Sonstige Mittel belkeit Wundmittel Der untere Balken "Zurck zum Hauptmen" fhrt ins Men. Die Anwahl einer der Krankheits-Untergruppen ffnet ein neues Fenster, in dem nun alle im Programm enthaltenen Medikamente zu dieser Gruppe namentlich aufgefhrt sind. Links unten sehen Sie das Feld "INFO". Wenn Sie dieses mit der Maus anwhlen, erscheint eine Bildschirmseite mit Informationstext allgemeiner Art, bezogen auf diese Krankheit. Ein Mausklick oder Tastendruck fhrt Sie zurck zur Medikamentenauswahl, wo Sie nun mit der Maus ein einzelnes Medikament anwhlen knnen. Medikamenten-Beschreibung: -------------------------- Hier finden Sie auf einer Bildschirmseite folgende Informationen: Name des gewhlten Medikamentes Inhaltsstoffe dieses Arzneimittels - diese Nennung stellt keinen An- Spruch auf Vollstndigkeit. Die Reihenfolge der Nennung der Inhaltstoffe ist willkrlich und sagt nichts ber die Menge derselben aus. Anwendungsgebiet - ungeachtet der Tatsache, da re- lativ viele Arzneimittel mehreren Anwendungsgebieten zugeordnet sind, nennt das Programm nur jenes Gebiet, von welchem aus es angewhlt wurde. Darreichungsform Wicht.Nebenwirkungen - die hier genannten mglichen Re- aktionen stellen ebenfalls keinen Anspruch auf Vollstndigkeit, sondern sind ein Hinweis auf jene Nebenwirkungen, die am deutlich- sten ins Gewicht fallen und/oder am hufigsten auftreten. Anmerkung - hier finden Sie eine Anmerkung der Autoren oder einen Hinweis auf einen bestimmten Inhaltsstoff oder einen Denkansto etc. Rechts auf dem Screen mit der Datenausgabe befinden sich drei Auswahl- buttons: Ausdruck Men Zurck Ausdruck: --------- Dieser Bereich ist in der Shareware-Version gesperrt, worauf bei Anwahl ein kleines Fenster hinweist. Bitte haben Sie Verstndnis fr diese kleine Einschrnkung, die ja den Informationsgehalt des Programmes in keinster Weise beschneidet, jedoch einen Anreiz zur Registrierung geben will :-) Menu: ----- Hierber verlassen Sie die gegenwrtige Auswahl komplett und gelangen zurck auf den Hauptscreen, wo Sie ber das Men weitere Daten anwhlen oder auch das Programm verlassen knnen. Zurck: ------- Dieser Bereich bringt Sie auf die vorhergehende Seite zurck, wo Sie nun die Mglichkeit haben, ein weiteres Medikament zu dieser Krankheitsgruppe auszuwhlen und dessen Daten einzusehen. Der Men-Punkt MEDIKAMENT: ========================== Wenn Sie diesen Men-Punkt anwhlen, erscheint ein kleines Fenster, in dem Sie darauf aufmerksam gemacht werden, da diese Option erst in der Voll-Version zur Verfgung steht. Dort haben Sie dann die Mglichkeit, Informationen ber ein gewnschtes Arzneimittel aus einer alphabe- tischen Liste gezielt auszuwhlen, um auf diese Art sehr schnell die Daten eines einzelnen Medikamentes zu erhalten. Der Men-Punkt INFO: ==================== Unter diesem Punkt finden Sie folgende Untermen's: Lagerung Haltbarkeit Darreichungsform ---------------- Systeminfo Lagerung: --------- Hier finden Sie wichtige Tips und Anregungen zur richtigen Aufbewahrung von Arzneimitteln. Haltbarkeit: ------------ Auch Medikamente sind nicht unbegrenzt haltbar und lagerfhig; dieser Text informiert Sie ber Haltbarkeitsdauer, aber auch ber Zeichen, die auf ein verdorbenes Arzneimittel hinweisen. Darreichungsform: ----------------- Dieser Text informiert Sie ber den Unterschied von z.B. Pillen und Tabletten und Dragee's etc. Systeminfo: ----------- Diese Option ist ein kleines "Bonbon". Hier erhalten Sie viele inte- ressante Informationen ber Ihren Rechner, seine Systemdaten, den vorhandenen Speicherplatz etc. Der Men-Punkt DRUCK: ===================== Dieser Men-Punkt enthlt nur einen Eintrag: BESTELLSCHEIN Wenn Sie das Programm in aller Ruhe ausgetestet haben und zu der berzeugung gekommen sind, da es Ihren Erwartungen entspricht und hilfreich ist, dann sollten Sie sich nicht scheuen, diese Option anzuwhlen. Nach berprfung, ob Ihr Drucker eingeschaltet ist, wird hier ein vor- bereitetes Bestellformular fr die Voll-Version dieses Programmes aus- gegeben. Fllen Sie dann bitte einfach dieses Formular aus und senden es an einen der beiden Autoren - die Voll-Version erhalten Sie danach umgehend zugesandt. ber den Men-Punkt AUSGANG = EXIT knnen sie das Programm nach einer Sicherheitsabfrage jederzeit verlassen. SHAREWARE-VERSION: ================== Das vorliegende Programm ist eine Shareware-Version. Sie ist voll funktionsfhig und darf nicht verkauft, jedoch jederzeit kostenfrei (abgesehen von einer geringen Pauschale zur Deckung der Unkosten) ko- piert und weitergegeben werden. Sie enthlt die Daten von 472 Arzneimitteln sowie eine Reihe von wichtigen Zusatz-Informationen. VOLLVERSION: ============ Zustzlich zu den Optionen der Shareware-Version bietet die Voll-Version die Mglichkeit, einzelne Medikamente gezielt aus einer alphabetischen Liste auszuwhlen. berdies haben Sie die Mglichkeit, die Datenausgabe ber einen an- geschlossenen Drucker auszugeben. Der Eingangsbildschirm mit dem Shareware-Hinweis entfllt selbstver- stndlich bei der Voll-Version :-) REGISTRIERUNG: ============== Die Voll-Version von MEDIZIN erhalten Sie fr DM 25.-- zzgl. Porto und NN-Gebhr ausschlielich direkt bei den Autoren. Bei Vorauskasse (Scheck/Bar/berweisung) entfallen alle Versand- und Nachnahme-Kosten. Sie sollten diesen Weg whlen, da Nachnahme eine sehr teure Versandart geworden ist: zustzliche DM 4.-- an Kosten fr die Autoren (pro Programm) PLUS DM 3.-- berweisungsgebhr, die der Brieftrger verlangen mu. ACHTUNG - WICHTIG - ACHTUNG - WICHTIG - ACHTUNG - WICHTIG - ACHTUNG =================================================================== Dieses Programm ist auch fr MS-DOS-Rechner verfgbar. Bitte geben Sie bei Ihrer Bestellung deshalb unbedingt Ihren Rechnertyp mit an !!!!! =================================================================== ACHTUNG - WICHTIG - ACHTUNG - WICHTIG - ACHTUNG - WICHTIG - ACHTUNG Bankverbindung: --------------- Kontoinhaber: R.Steinbach Konto-Nr.: 1419 01-678 Bankleitzahl: 54510067 Institut: Postgiroamt 6700 Ludwigshafen Die Voll-Version erhalten sie am einfachsten dadurch, da Sie unter der Option DRUCK den Bereich "Bestellschein" anwhlen und das schon vorbereitete Formular erst an Ihren Drucker und danach an einen der Autoren (natrlich ausgefllt) senden. Wir wnsche Ihnen allzeit eine gute Gesundheit! Renate Steinbach Ralf Bibinger Horstackerstr. 41 Luisenstrae 13 6700 Ludwigshafen 6714 Weisenheim Weitere Informationsquellen (Auszug): ------------------------------------- ROTE LISTE - die Rote Liste wird vom Verband der pharmazeutischen In- dustrie herausgegeben (als Buch sowie als Programm) und enthlt die Daten aller Arzneimittel jener Hersteller, die dem Verband angeschlossen sind. Fr den Verbraucher ist diese Liste vermutlich zu umfangreich. BITTERE PILLEN - umfangreiches Nachschlagewerk aus dem Verlag Kiepenheuer&Witsch ISBN 3-462-02042-0 HANDBUCH REZEPTFREIER MEDIKAMENTE - Verlag Bastei Lbbe ISBN 3-404-62127-1 DIE RICHTIGE ARZNEI - Verlag Bastei Lbbe ISBN 3-404-62123-9 MEDIKAMENTENFHRER - Deutscher Taschenbuch-Verlag ISBN 3-293-00130-0 So, und nun folgen noch ein paar Worte der Eigenwerbung, die zwar nichts direkt mit dem vorliegenden Porgramm zu tun haben, aber vielleicht doch recht interessant sind :-) ----------schnippschnapp-----WERBUNG------schnippschnapp-------------- ======================================================== G I F T _ ? ======================================================== Seit dem 1.1.86 mssen alle fabrikmig hergestellten Lebensmittel die enthaltenen Zusatzstoffe deklarieren. Diese Zusatzstoffe knnen mit vollem Namen oder ihrer E- (EG)Nummer aufgefhrt werden. GIFT_? entschlsselt Ihnen diesen unverstndlichen Code und hilft Ihnen, zu erkennen, was Sie da eigentlich es- sen. GIFT_? sagt Ihnen, woraus diese Zusatzstoffe beste- hen, woher sie kommen und vor allem, welche Nebenwirkun- gen sie haben knnen. Denn ein Teil dieser Stoffe ist keineswegs gesundheitlich unbedenklich. Es handelt sich bei diesem Programm um Shareware. Die Voll-Version (fr DM 15.-- bei den Autoren zu erhal- ten) vertieft und erweitert die Informationen erheblich. ======================================================== V I T A L ======================================================== Hierbei handelt es sich um ein Programm zur Nhrwert- Analyse. Natrlich kann "Vital" auch Kalorien zhlen,das kann eigentlich jeder - und so ziemlich jeder wei auch, welchen Nutzen das bringt. Erst die richtige Nhrwert-Zusammenstellung der tglichen Nahrung fhrt dem menschlichen Krper das erforderliche Ma an Vitalstoffen zu (Vitamine, Minerale), deren Zusam- menspiel Gesundheit und Vitalitt bewirken. Mit "Vital" knnen Sie Ihre eigenen Egewohnheiten ber- prfen und einen evtl. vorhandenen Mangel oder berschu an Vitalstoffen (beides kann gesundheitsschdigend sein) rechtzeitig erkennen. "VITAL" ist ein Shareware-Programm. Die Voll-Version ent- hlt bedeutend mehr Daten und kann fr DM 20.-- direkt bei den Autoren R.Steinbach und R.Bibinger bezogen werden. ======================================================== A U A ======================================================== Hierbei handelt es sich um eine Heilkruter-Datei. Bei vielen Beschwerden ist der Griff zum pharmazeutischen Arzneimittel berflssig, da das richtige Heilkraut in der richtigen Zubereitung ebenso rasch (oder rascher?) Hilfe bringen kann. Bei AUA whlen Sie aus einer Liste von mglichen Be- schwerden, erhalten eine Auswahl hilfreicher Kruter an- gezeigt und auf Wunsch zu diesen wichtige Hinweise ber Wirkweise, Inhaltsstoffe, Zubereitung und auch Nebenwir- kungen. Die Voll-Version (auch AUA ist Share-Ware) enthlt in etwa den doppelten Informationsgehalt und ist zum Preis von DM 15.- wiederum direkt bei den Autoren zu beziehen. ======================================================== O M E N ======================================================== Nomen est OMEN, sagt der Lateiner und meint damit, dass jedem Namen (und jeder Zahl) eine eigene Kraft innewohnt. Diese Ansicht geht zurck auf die Kabbala. OMEN fhrt Sie auf heitere, leicht verstndliche Art in die Numerologie ein. Sie erfahren, welche offenkundigen und verborgenen Wesenzge durch Ihren Namen (oder den ei- nes Bekannten) verankert sind; erkennen die Qualitt und Prgung von Geburtstagen, aktuellen Daten usw. Das Programm ist Share-Ware und ohne jede Einschrnkung nutzbar. Die Voll-Version vertieft und erweitert das Gebiet. Sie kann fr DM 25.-- direkt bei den Autoren, R. Steinbach und R.Bibinger bezogen werden. Alle diese Porgramme sind sowohl fr MS-DOS als auch fr ATARI verfg- bar. Bei Bestellung bitte unbedingt Ihren Rechnertyp mit angeben!! `L6Q`,LArc's PFX 1.13P 1990 -soft, Markus Fritze g.h` /H*@"m mA$H -(H!!!!!!!!Sj JC pg QN , HD , p,m:<0r Q&N~Q~d RESn`, HED@|D@ArTApAQڀn&-A& LA(HJkf&CH"grאg<fA``+D +E+F.ޅR؃+D؅+D+VC m Sj mJfA, "gr/r$&(*,."A$A&A(A*A,AH~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H`Sf"|`B QL gpNޭ!-lz5-L/>l7 MEDIZIN.PRG`>bAONO| < azzE +@"V'.~3.3Hx2?<HNA\+@p2~A6aPpw"<~f}Tj>p rvUZj0j8]j*p d*j qdjptr~fla~pdrpdxpNd~īpdȪpdRpabppa|paapHpH6<0<tmr5`*hpfkNu \Bm2:aX2HyNNT//-VNNO BB@V -,-@*x(v@$" mvS|PлsDз0<mD,"{F{p@ѻ @@op+|F#p(t(Է{H,/0$`8"W>p@! lM pPѷD!ȁo AD 0000040L83 <541aDaBž5B1\0/0A蔞+N>\z0d?\0Bz0"v ,#f*1R*1 W>L L"@}3L"0030AZ(q*q|~5a@BAR|.qH@vA?A,-BU~M@HBDB'TB:AHzZ@THGTB:BUajެaT"]F@p6 Q߂@zڻxu!mz}@}RplܭR$ "Kf SnacmoDc{4 ooR t!"4RJt@{lh~zs^Q{H7 "QTVz4 4 bb-^Qpzz{ bw#fHzzfORpLs"g`QzHxtaRB ZuQ1pJ(7z40$83a<<<:<xovpd`XFYpG`YDLYpPY6<0<4/23DgP00pD4Yb*fjn#`*00hDrDgp00Y^Q6؁kVj2<drʒ!p`k>jڐ`mZʒ/pݐk&jndBpPatFXLXRXFbfjnۘ*`Wp00NuzVUg*ʒCpJ@/ `lcpl40iH40ݐi@40:8d40PiA1i(40Si%BQx'*0֢ RprHf}@*0?**0U /|N`p6`kpl$6hm>hFhVh40h^hm|fhQ}\t"> Ƽ<4_`Sf`b|" `xHr ,6b400B0QWp @f0&xr ژ*Q'[p]Ɛ4o^r a]BpĮ]XҠrԺʥQv hrԂà^Ofp>Ż0rJ|U6pְ4]rl`a?|НrP`*4`|r$`dҮrmwD`LҖr)0N`4~r@``fr s`S`t\`; p`f{`Xp<o@R/-VIZ@(bBR BaH `4k\0?1ANu0-[bR"0;A;B;C;D/@3_z00-<-:-8-v t"#QAt4mԊruҊ:PH0%t&^ h4Q^JPfpan`.- |zxv?pt2j|1@NuBm;|.< ln ۄ "$$&*]( U6<BUHNTZլ`f )ޮ 06<BHfr9# :m>@6BD FHJJL$N*PfRT\VXZm\^dۅf`hZjbHN<6] ʒ؁}b=0qjJf6p}ʒ̶bTF"avZ>Nz+D:L>"O$*Ap @[/" `p(P, 6(P0p(P`" L#a2/z.P(Soz2DPp JPlTfMҚM"Ra]HHp a\2fAj`3af,P$fp`0?2R@31Z( W1JVam"p+mۂD <@r4< /*{f$,O/f8$4-fAi L&\*mH<*"M@*n!ʒѻp6K\00T`48AV'o~fV`;r?|&@0p vgvؿ'L@O6VAbzwaʆa4|%.DL4N"Ed:g8P(fD~p F\p Z&XFV^paX(E(TMe Q@Cx00-|a)v0&[R bo|7A8@1 &h@ @&V5A8PlbblPf)^b5n`!^:f1l 3ZJpH0#g#a%% c6 b>1=d|v9$Q} <#y $.p|+*8<ҿ&tMr+!]bLt3@f`F`Ժzpo72"E`f$"Z!b0 aX1<~ #~ ~M|+pm=\t3?`N p. <!N 00 ZgGg!*m#"Fx a `*61;P8]N&a gLt3>~%""` p1 ~ <Z(%Ѳ8/ -" !!Elr/_$_Q:D/) ̾/'=r)͔lAZA,cNuL^pk}l@>Iʀ5LfW4R)[W224(_5hXdD5aހ___R>__aNN]<4 < do$”(oFoj&vWWk.V"1P o ␒̺oQN4R&:o0n_ٯ?x&VqC.Um:20` †fPvϸ3z';x,lD"lmPA;PIB@еTW.S2/ D'2TT <UF=3VmFC:8fI*$jSW[.Rބ.:,'1<M$A NuldC P@p:B2p:6<0O<tvrzQ2|ut r E6p Dlk/A/(f$ "-@4<rppbUp7p1$P,/6p$Pr"_t@5g -`Rx mBHx$p!H`d"6.*`H"R.vgwvvvv`Z4v1zzQ1p l[`7NCb_tr2 Pb`^1}dX NMTn y 8p@Pp!!E6>-t/(@ 0HJW t?-/-X6NAP m N"(@X$@X$ @PFRPFJ@|$F:$2@?z8:}&0&<`:<$ &K @Zv@& I@vqP7 V/B/p@ЭQ*]p@op AV"z0x*2D1C*2bD1,V/0< `BTu0 B*261CW3z0<%)@$6R#0plPjp(bz<:T.a%3T$P*2(^2*2j4+t@2<,pp@{2 <9@%_"a$P[)D1BBBj7)+$@a!4$:@%)F:@R) BBb61+[tP C51@R JD/E1eUJBBHBBBj7*B XpHgA0 F<)m@)p(G*Zt` C4pa?Na#P`R|4<tTRv#P`RNPtT|̂RHPB`R PtTNVLfSpv ̐`f aS4] pAa"S0Bf'R8 61)PP C3pbp L 4DE^`JgR8p Lip4&(c8'faƀ 'F D3tHy@NNXV+R@f0@` O25pbs1=0!v>%p0'@pqພPtpt ꖐ2ƀ:pLW>ƀ2|0-Q@f(*aPƀ:bpSrqaƀ:_N`4p0Pp(*a d,wՆpb1lk#d/JU!0V*x$ >2dvvn@Ri:{:zJ61:݃q#2zq C/`upC{0Gr/o9J@qHҰ>PVh%+A &;A;B;C;D %tF4mԊr W(0-HzHS!ZG і% 2#/ַ p@.-|zvpt2z>:̒ Hf+@`NuBjrN4`Z=PNu$N%rdZ*h*jv|$ td'FF5 µ$n̴ֱf@j̘j=P=x#N$ϢlYJ|#Pp t_&b֢E µ#̴$ܚ<=@Rx̒"N#1p߂lf|"0< Tt}Z%~֢D ᰃغ µ"ֻ̳?$ۃ;"آ(4ø=l$R`xl!N"fTfl~|!x ƽ4 Hp[r$6 C+@}!^̴=.- :0:Q|Nua>N0S00JGp$F@0F00xJkph 24&8:BfJBg f D@NuJEgpNu+gn!<ng} Dc!fAc/gm >d8d)>   E@+0" DExI`bD``ZaR11! a5)DE`6:B` yh60x`0T`)HnghDBH0XDE~<En g6@ABDFGc@Gb8(vHDl`G8BCHC` GHD8(@쬵k&Dуd QRB BbJjDB,0DEPN֓DjdDA@ cAр[SBo\Erpt H@g0J`ЉArGo\E0fA@CB oH@\F24af!Df*1>^@GGe GbF{G GVNu~FHjDBa`ABP B/dAQ@4<`o;PNuA $0k:Qk @j*DB;2BhRnR1PDNuf gp`C6ACCP0 C/jCP@jP jr0H@?{0>H@APNu{0ZU~T(:Pdhao`^6w"Hr9\p-q&6q@PrÿHGGGGdSWKAi0I2&2 H@kփӇC փejRAd Rd8PC\ECEbSW`?<,>C}ЙWreaqfJCgz~ӐdSWPp&idӼ٘BTfNuP?P?`=`P<<pEBhgPB`LJg&B.C`a8aD*9hfap-I,=|p~eHzg ENpR &nO:NMuIBK$7`[1][Error +11Return]# g g>Jf`Ar Hjr-D@Hw:0p2 88CNuAF"H fSEf aHQP NA\ŏp_HQ-H*,`N,N\3##  ALxL T `|0>L|~`@AM)!.&P.&1"L&L&L&O#tL|NuP"BA aXvX{$2""%""!$ LxC%" @' 0"4P !%C`:?*7R6R6ZR6R56@6p66C'HRPNp?a|LNA`u `pCR2Ad0|@2@r22aZ"U0<NBLoat@:=A@=B<@ BpsNB0.Nu@ג0@@0}@aBANuv@|2 @ e$PbAԀDPԈO@ʞBF{JPp" PJӘtX> X`z(` N@ |&NN}(gNukQWu}({|P^PP̜PO PP PRSUܜPP,PTP:PPPP&0D4(*B$P,>2::(  PP FP..26P"M"PQ1!P1P!0PP`0  q#daa a n?*N1b]c00t@dAd6Ag,B(dB`H Ao<altoBAˆp,<O``d|I``Z@H IaDLt IސDpO*ސDpUސDp DpRg,af׀p`8pp`0`rfHRa>Er$W)@gr STD:gr COM:g r LPT:f4FA$_0=@Dk"~C`A0< BhyjB2"du$_Z Ge><Q{BC@Fp1fgzp=`eZgzp^L?B|B .kz0DT0gz0_<=|4:j W.w<<$FXk:H~Hj _0k$CVrcvg(@r~qJAn p10p0`^A? IBBYpup62BNuPRN:LST:AUX:CON:MID:IKB{:V9`w `"` &/oTp0h0o C oVBD○T NuD&?AdR NuQHR$n2Jjߪg$_: L&J.fg0Зfܑ0T/*%I ґ%_ B?b4<rpZv JBlDBv-| Bb &ڊ>IT0RFBdD*z?up<SF\e BgRB`R "eSarRF&~D0"2CձfEv+0JFjD]FJHƌ5:_BFHF HF>A|`HQ2.eg>r CCq5e&!RDp0c Dp9c0`<R"_V00 Ef"ݐa/ ԠFr  g 0:VJAgBP nN @?mHJ@jbb.4DBUBkbQSAg a`oS@k b`b{BZ l,WAk2)@Z, 9g,`r j_pZIUd4d;$=$P(@ _Jf,‚p*>BT#Slkَ`(@p `/} $I>0G` QPag`af`ae `ac` acpɐOadqv4Ae4v` VfANuHPR@kBa\,D6v^oNuSAfn>SfJ/H HPpkJa,L^pgSLOR=fϰAf$ORa,4_@m4"#?3T@kHF,p4y0XpUQؐH_Xf th`tpa ".$j`t@H|`pM` pO`p`poB~*@-A<@t)`t` tr`tm26[=B@rv8`v(`v-` v!`v `v[ @LH@-@|pB@HAHBHCHDHEHFHG-H?fAD_HBWr@r6 @`&RG=GYfx-_IC@@?$tBfw @@(tF7JÊ@B=@@*Do>Eo:@l6Al2DDk =DVDEk =En@cVo Ac@o,ݐAH`/1Р0^]Ak024E$ Bb5B5AN`CC5@K^P:8A 0000DkxEktrQlQ<:d>:bSFSGFn\wGnX@0p@1E@h? FcpP GchP0hwb"Tpm0-|cHRLNWu-H`0EDXDbDEbE@bz@T@V-|(`+P@L@p HCWJ?@^B\@j@drAdnED??RGRF@F=WFH@GDlH`@nGOpЇЇ b na2߲a@fHV`ASTaq~??, ߒ4$F_@[0rP][vx`*[g"]g|°Sx` xQSrܠ]ܠ[vxp z,st7r0,22Hx24DBaDB1g1!pv Dsx6o<}C(FCĔdЄe&/dHDDdRd&:ǐ`g BbUrcjrcHDDdSkg RBjNuftpB H@"j^qLrFr0vpqx, *p4. g=B*pBBX"6g @p \!P@A~U@g~tb3lrA}*pr0 0B R@jftPPpPTp`a\0X'`T@ǴBXpnT0raVA0p1| 4BX$HTH P0Fa$LkҌ> [01a`p_>`HP(P(P _&=Af/|~Kzagj n 2tC6"2 S@HQџػR"_8@BTAA3Ap*4$wI2ǒ 2B"05@2A\xka@gF2#M 443B"p@ -f ߿d@BA8h`C`3RSG5G^P J1DcaRF FeRG Gd1XSF1F41R1h4xPDg{"<-A|"g(t( f;fpH`z tLRB`ڸoШyJFoеJj@?B@BNAO _*kBg?/(bJk u0֒ fo zJBAf`U|da/y.k \Hx}b[H}xx*0!o< 2f r0 ͠~dGdEHׇ<֠X0@F@APg PJ֠8&Jg(HPB'HP/d`<@NAX$f =&p%`8JBja!|_ F>LO0< aH`CF2p0p awp pa"p`Hza`Hy|"JB.@=|DFpAR@C& (Pl`Dgϰu68C`"E px4$-P: HNPV\Bk؄Bp\B0\x^l^bةXPީF :0_,pE s^Vp g"X I"_(@*UGk*<#QNp` p` p`pJPg`P߼!\[1[%[%sQNҔs6jDC C b H@;)8<\}՗HqҪR/@L&P $ (76.df(jNu>E p1b @?H@0-@P )|HVP2M=L-E B׮*hPPHJCo2JDo.4(=B&6=CC$tOBf0(,Q@D@vv8@?@CJ@k8@[NM"UAf J@fH@q090jh0fn\@`a`]@><< IBP<0N a 1?|`hq0R@f|0aHHJFkT qpo`HSHP&I>g\SGFB DA _tPA&_hRJAzg `af`anaC```C` `ԺqfOJ/ fRRRRRRR @<H~8:E#P02 `b$!YEf`"RrЁЀ`&Ѐe "DЁdQJAkfq0gRer?DDՁ08?$HX U<E` YEjT"_$P"2trn俈d0  º`8 :JC|Da D@Pa^ KpPh42 $`gk2&HgĀf deђ$`eѐXOf^A0*vp`ʛ`qx`Y8" &Ak c1`P"" a&Ax2~`SAI3 bbސQ<\&րZR ob`}U4PkX`ޑ9aTXL6(n\n^HHHz4X0(T; "L$T ^L$N~@anNut؄*؄؅C?H`P!؅!$_  Ia`YHR@@`ʆ)A #*ബ !*#`P5d$HJf-HS>p_"`PTؔq6,Wa JH[ '.00z`"aL>e@AM0z1 `t`t`t`t`t`t `t`t`t`t`a (dAC@0Nura0Nr`r`r`r`r `r`r`r`r`zQ`z ` zn`z4=A-IHQB0a _Az"-A=B2t0`.gZ <_r4<?k"SWg P`T8H{'þa<6A_`2R+C.2A:ۂamDCÌ` Be&g( Bbg.4 SBa$RB`RRASAFL4< <9rB`enEaOOO __._@_R_d_`v____a9___]J_&o8oJooroooYgk_abil_?bbd_`w?a8pypQ!yamaaap^a_p`UVp_xoz=rz^p WpaU^a~op^BzUxz Up0:qpOx^a^BwrVz pZq0+[p`px- ppu`mG M_@_qGFMtx p`'pp'ałp`5N`F` `C UpcE!(񀏅!'I<悵f;qaRqrpRqr`pr-` _` πq`opٕ10pSUq;_`vEA{_`μӨ=cξ !-p3r7rMrP=Nt'^`u`Vr0` ѻ-+͂J"AǤg(JCr_ȸph5O=֔^Wc08ACK"pCO\a@\Oؕp1vcֹ`!uF('p^`_^-`0`Qovq`pFp`pP`q`8?p`SFp0р|q|6p`p@@9R`ud`<E|?Š?a r旁r"rdxo a(:Lx_q eom&88Jnv8]ado'9ew\b*Tcop//(/[c#>U/^%ƀ^&t*^` C)?π/'e(u{+A /(..t):]`7 C)`/?t?Wf1:?@A?S>h69]`;qǀ Vp306`0s#@`4Hr7 {:`9@Vpa3s{ Hsr6?1B2`?` Zn@a/b1@ `U6z 6 <S @0ƁEx`pO`9A6 a`_pB/p&P@ b1B BW W|-P,9@\{B1p@P1PNSXBBu@`R6U0qQ&PX[0@wPp3_4P@p<@0G@bWa}PsPST@P?ZR `[BMG@\Yb9@PA!$c`^56eb1vWpJΘh6`ccs`.`$c+]6P9;`ub1W @a\p5 abb`о`@@0m;La%鈐0c`r^m@.8QB),Pc)0BG U'P%a (P!0pW((@P0q[@g''Pf>l 0*` "Q=A0.pA-e_qP7I[`.qwlpK5 }N6HZ\Տf8џ%@FAk3/AU t%mίϲBOr5#3ucuOǿٿ_$W TfxϮCDVhߞߓC)5**.@R/v 2:%?(:Ll~q8>s;a|?RRa3l3ff39`1fc33c71`cfQ`a031 ? %371c fݟ@a 78"D >O$`[(tu&`Bq 60 $10Z'1`1̪u G `r 7l܏"ܾx9+;0s1`Ù#"3 rϞ?{wϞx>sy00y?9> |Ϟp1㋇137{0.`17x69 À˞8ppq7OIO,ӏTOOa KaOOÒp_#_5_ȈØ]_o_____cb_o oLo^opo|hoookRo$;uf 87 Cq,Gq@pGtO| 6q?iuUztBr` qȕf` 30-Ӄп0ǵр c fy`~0߀w{=Rqǽ 8n0njnf `pn0 @l0 Ɩa3iS$x^3VR ϮGYkmϗϩϻϞA  7I[>\߇ߙ߫ߎ 2! ZvzE[qL#0L[E. @!Zu@A`); KBS~ !:E(#q`s0F@w uï:#t q@qC)8gstI @3c` wܿ?~`sy#|s>~f>PBځ 6f1E of33b0gs1 c1 1' yU@c@g3 ?1 og3;31b c1;!?S @Cx?) <:^BPpL}L10  ?3ې+ "<0NPSg0Lo6g9!s(49NRPx0?π=>p000sY>{y3+QQ :naI00wq0qǻ9q {3#@+QBo/:eo3/E/W/go///e4p////t/'?9?K?~rpL?w???r#????s?O)O;OnÀ|micߟ?|qϞ|̻ ; >39fs~1cf1s? aB1̓3?@b;fcYQ?`6139`'>aff6kamcyrwc19 b0EtaZPT3`޴h9̾teab&sf=3 a`.Y8{px<|Ma=s3 RaWHQP3 P<|qJ`pàctpntq@Îq&@8D`~|~qc|{`av6Y???c|- ̭`366``c=Ýfa06f`ws3}"!4p1Z3?|1`?`3pwcZcc(r!>`awpx ca(" plрv~ 3ဗx=3cpn!1 νنpqћ7w`1~Ǚ̷3fڗ̜"b1$<y%x3О罹WWp?| 30t7q7x plSOG=O;p;_BNXKYK3EWEa]nHR'/9/K/QaaKM///I"qs>`>?9>19k'~1ುp?p< f3`c36s107a0wcfc_f0ޢpTC` 3c?oCgjy@CPpCcSB AǢID1HA1G<BOH̢E``0vq@0RfL0``bc@gJ@NBCUg\@`s370ss9x]gxA}Awsf{@{D={B~{?y==}@>~|=ޓl@f3f3;gc1`31cf̍cљQ;D31Nc03YیoQ01@p35|79 7>ꝵc1ζyx9ύv@P㋀٣wpPw8cs7177 vyl09݃v}\8c4dߜuZ{ԱQ/(–>*]%EVhz"@1}8 36HZl3 AC C&8J\WA&xAPPP]`72͓$C3PE a C0]Jؓ01]z3 %t2 2m-T n  ,@SX;fcEc3c@1^@-e@3Ѱ?Q3; @ /c1c"Ʒc!##- 3381;#; `C" à nbp X >\(al/c1j$ !cD!|x bcp" &~`s vQs&c0v3=3t %B$;trp ; &" !̝#%."3/dz3;!@(3^r{w`|Ϟ|P!P9?<0_ܭs~S 7418l8Q7!P8.6<8sw1np@q> ;OXNP`UGXOڨNP|B OHߏ _7_I_[_>%____2___ _/_'o9oKo.ӠLowooo~#oooo΢so);ðcLRN#!E>oZtpRf}tpms||??l;ǟ>| F " 9Tf0u0_w1c33;OĂ~`slw1 1000c?!o` ٠Lc1T1?Qk> x`jw"낐/1G]Oc0=!0cBœ>( =̔ζ_s9̥39 _cws9w1Dn|V<xpр<?p{>|=ǟ>x28 8}cp;xpO ϥ*]UVhz߭X|ߧ߹EM# 33FuαpQ@< @J87! 6 3BPbBt@#C0LBwB93jBt805 a|=30q@7ܰ旅>tD  8p :/@30>?>FϏ03~22A cw301+ fc m0;fg09_1ܩs0dpgs6c3-BA c?`c}r 01_16171~3pff3 @As$c+1g8 H?= O7OIO[O\OOOOޅOOOO~Ʋ/xp.PQ1HAPxp,Q[Z+ 'S.TC6_HNSW" . Q8. P:p8:Àrtw aGt`::hrxtS¡>?|>r\`|~~~|X`y}Pc gc1ۜpac{ì` f1fc;fcrcBa}V`1`1cc`73?Af`cpfr c}Pmauu ~tfc㨐<0r|6pxya޸a8w<1+PqgpfǠ{͎sw`\8~+Pn0n” =5EE3x ȟڟ +=',#Lwsǯٯ);n???8Wc???>9;|a(?$ ?f333 3<ls33 Иdz bw0 ?ߎ`1c80q>" |矨 c`Zvҳ0#P`kPҰ{ IÑq&!18x܎3` 1uΡlH֙3ǀ  l20x?s?<?>s绀oǏrJ]????s u????t%?&O8OJO-ԏuOOO|$OOŌs_&_8_ßd_v__k^?___|PEZkj"j{"aPj?jp3j`?P`b Rhay"`y4`Rl?u`` `@z@PSyIaex``N4`xp4`Bpz6p`ypzpPﳂ[%pq zx0U`0%?Á¤t1nq`q|`؉uu+AapΊ*<Bp#qaav!a0p@rUpṕE)>qrrpҙ 2᱃qҟ䓥}= <B`ojpb>Z`rj 9K $<RuvQr#a@t^BduĹraBp_`m`Ђkq6qAO aq:Ά UpR95Ujji\T T,`=a2 ꯜ&^`1s`CUxpNU0 π?`v9 b@``'``sa"0Hep#a4b;?`|6p_'9K~ UhzO۳(:L^p$6HZl~ 2DVhzI$q9ǿ/m# Q<`Jd=&##S$ &qzpRI$H%($K% H#!-!+)%$-f=%m3# c(!z$(!$$t'!;%" h!x 0"I+`,9%Lp""I2C2"5-  K1mC0-$<<#<""J@4=0% -{ -W!c1K( [l1KyY!$3!=!RI!C0 1i 1HǶK0 1+sϙ;" O?;mENoClC-w 0U@ci [iT1i$ßџ!0!v@ AyA2"i$00!cۺ0C ?A1R!_!!= *!RBKi0[im[I-n0i$翯 R)A`QII7%^SJ/R9PF@DP##[i-@0L?]RPfT/RJW~SZ0R%ۻH@ʹGPm0KI&s?< QWU8`I/RGWQSP-T0Ki-@P#Km-)aQ{?}@S9OܰfRSRaRm%ĐP!w+`m%PJIo)Q0fR~kJa~RPbZII-{`[KmQm-ZK`%#)0`dhfR{@Һa*(1p``caP1a`i`a!bIa/fR ``$@$wgQ5%$?RR|pVpmpqmmm-~i%%hPoҿ%gQ ɀ))$.%߶#qF1yRRRO6{pS: gQ/$JJoMPjJVhbͭ\i-)^Â~p/\?rgQ'6RϧAﵵ_F#s[ZXދ~%!'HXb?B?oP)iiIVWb1pb1~ )iI^0~ O$hP B%)I?_R_HF1BFmkkWҖb0JR@wILp%KKZZb1BQb1֖3JI? wRRÇJZRҞI-khcͭmkKZ֔??g?)?ߔ-i7LCb3)kJRҖ%k&ߐ遠ikZf30#kJZ֔-0L??AiOJy>ՠ֖! fֵ)kZҽ?-Q#?~ߐ)y)b3c2`ɰ)ԥ>LsǠRڱyhop۱ڲԿU1x)JR?ɰ1^aa1#3c)=I굠B|X'*Lg,ڰFcбB17kVڱ}鿿 z1~/p]ڱ׽b Ìfɰ۰k} 0~/Я[J,zf#1_auaByZ֥[<26Հ?T+Z׭h{̎a MZj}?+? #Q+Zխjֳ3ݠ0!.3^ЩN'ѫ~0?'ҥнkf11a3[꟟[>~*W\VЃfkֽj֭Jy_+p?{?Z^f-ߡұ3jխZ+{3p>j:jկZ똈c1DMj6j{_[0~jJRO^#3^ь1f333jժ{bgjTTL̝!0O c̽{zVuЏ_Lpboiԩ|Vۯ^0.f""kի׫VڵS ?e kj=Cc 12c^^Z zS?e;jj陙a0 FfMzzZ}B_˅!AT6߇iwjz""Ͳ0ӱ13NjRWAe&{oߏUZ^^L .1̿^UBW W ecҖuVU31֌c 1R32?j^W 77wAː%W^dLF1zZP SV;zWq#fffm^zAT?{Œ'?k{zUCyms#~zj%#"OJp?"[ _Lud̿ ~ ?aKpbj_1?j| ճ2#31a 312z~?O??Kp@pg*3j}$U~h!!Fɗ~0^T?f%O=2T52;3U~3!0Î0З&mW{$Op}' 2U?GUdLDf] qp8a]W~2ASߑ '?=(@O>ʑWLX ޠ0fLU_M\=0z%z?0Ui Ͱ.`03~@O^ c=`0 `z@ P0_L~0a fd̗ƭ`x@Cp[PW꩓2"3NБAbc32mUUt!=t1(ЁRЁёŀly:@jA〉0@ RJqR0c SQP1M01ߡ/Rpұc336lRPBpTTKsRKq~Ґ_0Ud̻ QrɓVpKsRpAcM`8a0a1#3&lUPPbp@aBd>dAQ_fDFc1PK@od`d pPbrb:AWtLdPD0`d3rpS>eP4sUI&C 0`8Dd1b02tcFqP4rtP1bL(Sp @8f̛"PB&0UQGaUPd7QRP`I"f3|;A/P8pS12dWetq pBq 36}~|8ϊà|P֏8bffd6ό`^3$t qP Ϡps./?߿~`QQ???߿vddYsn.`bp8@ dɶۿ~㿛=~ ~?lA|88p@}1ͱM%k`=}^Ӵgˣբh!ͲI+qzϟ{mSc1`#2m7{:p\.{P}mlcc`8a ͓m:pJ,<M6f0EAl3l[aco1< mlɘ[r"c mnap:@ߩ{ɳ6cQRTІ@fm NN>_I6LɌ*P.PѡУqǹfl&@4snPx{mٳ6310~cp|G@6-ǀpJ&7q88pÎl K@50?Kd9RЁO5cF0bPׂ0m38ǍoppplPk3OP̄p@I6̯ٜgq0 8g!l/6<́7  3fc3pͳ% @oG@@aQ[f͙*PB@opb79¶PSSG^ _QL{Pq88mms @ZUQٴ8XPKlٙs~pq1o"?.ٴ=M@_%1sٛ&;"V೒E' { «}͙q\p}<u8azso6f?#ڲ@tSRK~990<sGٶ#8"P% SR08"< ?A 18p<Ҡűq+`mU4SRpz =fnc98{Vx< cyEL|U4`Q p@:SSM99:í<Tc03fU4W` 1}[4c8x N0DE2`}W`?.iLm@ٳ8K!4@<V h396Ep04W``Á>_r@:1@"q;٠fF: pW`ˀm ND R7s3JlA!3@Ep`W`pˀYpAxn`}oV0b`q "ZPfgcP Pp}@9ݛE!6jЫcUhD70B8g3w$gB\0`q``βHenfspデ11A"aπ%fBP@0-qVa<88<axuSʠs3&eˁ`pPTbs7㎸Tx`aSxP89a2տ!М>`{39`bp ce@a3dx[L?BPw};cDppA_`t`cfm`f~dxQ`~`aS0@Q$P9J@<`PQ?Ǐ|P`5ub=R`gRxmR<Op83n`s>`vߟ<-`:`>a0ۃQx`x8<8B_p}@p0>p0`9`azC`ށP|R?u `v0OpĖ8PEppPށsPppgP|`{ 8wß# pLuJbǏ cށ`p79acp]?PL8tp}qxf0KPJ{ qs@`NP ?}?q(@ b_xxxx9sT@>eq㏙qD| m;@|˲ӱ  yS?Kgs`|q@}˲ !'@]e@/>>vڑq@D{ Aެ?JLQ}8fڀxĠްIяҌ`<#@AQA4`]@xžg\0PB5[076>?~0ǎ?X0^`B`|qEé1D<<r|)xdxA@x2!ABEI@!h!]dMl y l >|:@AGV@^kR?`<%~p?b[n)><<@SĂ6W㬡aMc>g>%0hpvcA@3X1˰3 %pc^|>qVTX1?gсQM<>ߠ_~>6)@3EAr2?aW!pf @aĄ MxQAp"xx|~%0Fd`bb1zr?/ps>hdru@5`R"% |~QR$uAV@OSeBM;4 ^ܧ?>Q%`2KPBhvJ# ]pb@Z @%MpA1zd"?|?ϰNN!&0 B4X%b2 ?@`6QM|0U1a? =~FFA\ÄR~!3S2s0>/41"?#1A3c@p졮$D2| |0 p4wz>1>NHQ C*:%` ϰ.@b5R3:˲8`S R2}@@11S@420XS@2XôM%1{2^R@?FEd7P`FbMR1`m PdSZSvS! S+RMR?Ql!aPG?"V3J28`53MRlPhQllaP5rc+Ra4zCMRE J`P+?!thRCp}gMR dP<F!m w@ahQCb313MRdPP!K:FuB?hb@Q2u31RQ35rLa?a`)?jg 30 bQ2iPERaQбh!3sAB1Q3W`m F]Q`?ѥu Ăpz0$Q2W``# q+pVx" zX" zSY$Q2!`9p`!? v* ˲a5I:rـBq bH"<b4H;UO4)"(d%RQ2K(r 1VtG`Y%Q2xVZ&w4J3C B3 % 01 05l/v1PEpH%L(8uDRD (h]'J3 K8?䤯(>+Svb5P3%<1A>maql#cl1ΒY!21<cY4ɴaffa>S!RDYA fC0Km3laf,ar:A+Q|bl1NTr6lC6f,C6>11S0B|"%mmm?vHV+P0o:B9Y facà2Y@0c"b5pma8@=FQD"Y"5 ~1ꠂ@v#tHGxp B  rA-#7}Ɩɸ0 Y$J9ĚAJ3/ (a`I5J9`7ne`!TU#A7< f)B=bn4 㣖ו; Eݳq54-1ʀ1ԶG2o:p?e4q4c1Q?G@Aٓ̀`pQQ dqe@VPB֣nB̀]PjB`RW Qqkza?azA2Fs8%?)Ƴ?kh[?Fr7~pC??`@2FrLw0@U⍣P``~mr ݣ|AW:πw``<n/ P`ꢤ?>`d0l1\Ͳ~j`m<EDޱرv~qM2FrF\mVCm>?5~|?,gbV>~%ZpgƽV@?JNחͲ>*ڲ4y/^Q@c-uZﰇ``Xw"ز>y AFrly ;`A|P6y`rg M0;^%mq|P`znrLwpp`Q!DyU |tc[v`+F8|Rv|bwx~v`w0`ЄmqBj`><b-F?8xx>-|Q걨pbnv`ǼǏWU|V W>FХb}F{0v` Cmq>|VC㏎!.!W`pxmqqÇe ;~ qc=5W W p4*" < pxpGFp[x8xc-D5p{ 0FXgp1800g?98LJ0`Y0@aa~p#B@G R L/9$abV@BK@`P@pwp@#5`ك#Rq~fs0ypq<V@*Ep@{S~ ` a44 q}epkÃPpAwpvpf~4qsS`{A2qw3D%`x8?<\N~pcg34q#S 0`.%Vqa0Q<p:]}@9":003  (6#Qqi3Q%``8@28m3?4pHA4J`0q b(6sQ̡F8Ucဥc0 Pc&Q̡crA~}pqs7g)1#TaF 018&ffcpép쐐`pqsGٛ 1 CpSm̓#]@WA p1Gffo A5 ¦mQʐfAbq`xq @`9y@̀>;\ pʐݙ10Æ IhpÆ}`fn4Z#TC 80@Օ03w39q ) C?a9f@yEe M;U86c"` &apj8ap1Я͛0@605:0ͳ339c010<,pq8s336m@ 1F D9 6I J MlscÎfqgxr081x%=s _P?m3cq8_Њ8ofͼ؜ 0Crδȏ07~fl 0ṀGq9͛6@% &Tz6}&ٛ`抠pvp 6d~L )00>8`aٶf5ypv^A cٛmqAdb60 M_煠0঑ p ps3fm_CP& 2dy0%!mfqE&bgЋ͙mF&0 hp lfaݱs6f͏߀DI`ixsT$6q1es@ 9'ٿ6oL`0`a``A qb&əƷq1w00 19fsfd-XR`RV`6(6~1r"g1Uq1dSv%1B``Cp%1~2{mc.zqfvflm-%; ~M3a,p_@1m𳐢đ0dp*q|pGT0 [o p>\Q?[m&88ǚ~6Mx"ނD p6)0~?8f&?fɶHA@p2r|XTVi$"o1t<@mv'hB@`2q|ESfrsӜ0`0c&d${ߡ2@0``#q f gJ0?&O("1p3vb1:I6̖ 8aF#`3&lm' 3 Q qPp%ɲc0p``0cٓd`c s$m0T#aX4Q0aްc0mh`p {ҏMfd$10|90m4PS`Ȁ߭Mgu@p`1 233&m/O߿_5RAـR`Q[LF440 1}m=Gb` T.0Rzlҙ1`ac@Mw~:`hb?m$Pƅ1&`00`G@ПIÀzYa~Pl3318B CCݰ@P~0|s3͠TWfF0 :C0:QDٶwpr ZAga@C c13&;WOhff|gdaP*T3PW1fL6_ 쿑Z^'_$w3"`|RFaf1&`Wá qb1$_&?̙f010`ffl7C`Qip1ª_}2d184?Vr:@ f!aP"dTc`H0~ұ5 `\pa13J}UڳRbHPܬѱ_꫅!q008ČP3gOU~հHaUpUWWvvF3 pa rD̚꫋V%HT0̀ZaU Vs~U,`1Ո|I0bkp/_sj@ʀų A_ߪV̈p10D1pfd__W!tZk^p#ưA8W}`V@|=ˆ31W_r0I1rf#"gꍽZdчрWJU~61OӾQ̚ѯUP0“`ՆRWyˠUbj/PJ*H>ZfpjPd0-Vj^vF0ҤODLzjUҧ 2s@BsqZAj)I0q9^WĥG`-q`@?/rmy2ֿbY2}yo.?0ls/2ұ2Y.Ű./=BRW.?8:p@W+q .yձ<ǚ`S倱?Ӿ Rp-ĝ(vv}?(ٹ!R^s>݂?Cvt=#| 1XRrCL/9=;qqpS0m/ 'o`,N/GN|  sq!p!w@T`zO)RDo]u4B2zapBȦ!EGB~P|ѕy{=2WNI`0zsqɥq1Ń&׀$?Ib~Aoy2_Gjհ I:Owz DDOxÂ4(S l@V[*VDB^b2gNÏq28Hxsqɥ?Esqʦ*9b6RAջu\N ’u{39b 6:Ip?sqDD6r"`a 6r_R| ҫmq/ ?W?$qIu%ӼWs .1s$_C$bxNaVN*2/q$uqT1E~sqD]"Y9sqROq-0RRx.``P.`6}@=RN2_~~ 袯q1D3Q[IxB:ws7&W|q7ǀdr:Ͳ1`i6?7Is|!TǀC G QsRfђS:aDwˀ10-0QQNi=}iԢ9a r@I#rpĂ6W 8DǣIԱNjC ƶ(#xpZ1;{ꪱ*2_6$A )CSҮqJ!D3~| A Ixz )Bق qsaN2A$a<yϋ.W_Cqy@2q`G{_X2A@ሂG2!Ч2@@B>g܃xG ?G2pjpX A 33H" )C G8 Q*B`A@9XB0MQU>ψ?1SB Dpɽ(r>+p$l*уO?JܓD H0WP@XC**և{@p0aQ X@(r*/*Us| ?!c4E"$|KفX@o*q  !bT;1x`T?+p򢢺P=!`cmO2GP{#&/*@R#v2_XARrW D8 di%2F<;@JCdTq@ԣ""<2"'XABG~ "#X@t;As"""2{! !`QA3b"s;Dq!RVR~X@ ?|S:{!@B3. \pPP꾳#$@ؒq:#n=pXAR^Ãk plA@OP@A1A&AΣ.`"C"B>E㘚_@+2GQ!ܔӃKD":@҃nr* "??8@4{#nq1pRpas(,AAp(h6?v 4(@*d5BAS)W0BA~BAWPBB㴡@`<?G`j3 <"@;!*,C=@ );"= !6 n~G<XbSxAUQGrb;L@7pA)[BQQCP|@[BvBqǾ? DKL@0P pc`6%8pfq 2""`R簷-QD"b8N;b* @5"b6y*ўD~p@x* $~!p?|7aqBױ~<BAu#o^gDGbC!8zr`8t>ڠa$,1d " "!x7?rbq ? abq'Wr q`~ ?t4aN 2yi"`?cBBIq1OBB;pE y>p/xEqp*xvwſ~o?@t3D‚99#A`4wq<ai-A{!@! 9(1!>DqKAwO~{FA!>>wAD?c_>hlz zCBw?C}RмCWV8P ΑmR""*B^*_ >_AfߋC|6݆ Km?h ;  #&ϐw* * ? !'q*pc 0!߀}=;p}uAq 9zrC@#t`fr "<ݭBA!8C@>DZ xD S8Ρu87`q4a!W$~`c6"w%?#Ț4>44#R( |`ut5nQt7BF~|<|mSDŽx&TUCM~tB 54u;h87rb~r #aa~$4b]e#3'o0xpA4nׄ^6t\Pd{Ad8?8x{LÉ[4Ta|p8'=6P@GIR`._IO:"Qa9aRw"Q#yPPq"Q(QO|b 4|b<q&S_@4a0 0a[4w<B|$Wӽ%9 !@@ ` |b TnmDuBFt!S @p00s??e;T"p>@@@Os:'ps0ƕ|X@>yhm~be~ tl|`В;Uwáܷmpg~?xUw:52fBpBP=!8\Qy\Rv *>>  Ұ!P-w2}?g2yg?owȱ{aie1 9?`C@@@O31Qt }  ?mE@_Y_mDGFnDz8?zO?%{)p{D@Mu@"*"א/p!+v"*"nH;л~=*ҕ?Ǡ3z3 {ݸKoBЇ|3nDĘzۥE1w3˜|?0ӊ_ F?l -0 bǠ'`%Rbcc+E?{W%`.{ҕ p v̆<@@>Q528qd@ڧx@OG~ۥD@\]p 18@O!Ze`p @r* I*1@?'**+#~*p]Q0 "xOP~pLŮ1Ub_pۥ?0/MPbC˙}|'V >?xD j{ۥ5߾?~V }p!ZPn 1@P@&|72@@| Ke0RLnBt&~ aʕAQ\a¥˙qA? x] L1tހK|}0 P?=&:nDq @0|xόhrr< r$<ޣx ~pτ~(窪P !>%Yz˙ |l|~uU‹#ct68F^U Հ DGs@Fx0rp~8N7/G\#Qt8FXpw 8^ÇmE%C D@ cp~P@@:ձ87+e9;a&Xא?. ;&xLG0<<:`;.⡟$bTR?/~SPW~W`z4*T?GP@?R.O'^`W!gԡa Sw97_0/*W77kgwx, 0[Yv)?8ebhKx!JM=z 1|x$!EԠDQ'"cԓ~*x*P9\*8~pE~QR&z2_lMp_J|#ѯ}zh@sb ?CD6RBWRRǿ׀jɫ4ujWp͏B>`",bBԮ2P v->?J_OŽԝ1f-'xD۳!tU?-~*09͙A ?gF1O AxxWeP᱿֙K.F AImpXwJήjpJ}AP~H{;桕ayEUWX;U`ApՉ^p@r.hp=gf`yPs2q]wJK8}%Ԓq ?a^K^C=,!Jص |?`] Ԟgq Fr2ű`?`ĮUUxarkܨ  b, 2DD~I Wá$ӠqIwl1*2 HغQ`,ȑ1g 'NE`ӨBy$HzP`b, A1`DF`"#T$Qd"4#a#)"5"2'99R>?L7#H/i`I1 ~1Ԓ(b?Y R DFH %3;_7A?"+pcbDE#bEbBxK=ŁGyG!#B߸[Ewd;?OY؃h kdBeZ)؃|BfBc??XkpDEdXg9 Qdl ?lIpeIyF1'3Kj\w'UUE^1t gܩ]E<ˁ}|AzDF1g\yx-eȪ\b?1bbwˑc?wlyD;Pjiͱx8^[! g3z @\َ;R: |dq;G|u?i!t2 }VpsӍK0;ǀ2b_jCӏd#COS!@=1`ܥU?FfzϡƏƗz]r_|I RTU| ??s?Ҋ??/|?wB0au?/OO1/0:O ?^O14:?O^?OaOOOO*_J_VX?@B_{__Y]j___ӑq  ``1~|so_8grٌ c|on2oDkٜVgao_oqo}RdƲ`ǂo)o(|6l͘U`-lpao+l ?qErMq1ohzyLqo{ t h+q`DV͛3 M}@p`8gTl ?p?C;b Y``?p̶[N珐3춀!D/_Sewߺ*PYa)¬`~`Y# Q>F==A=y{{=6/ a&c /,//6+[' j/|//phk!( 9y!@)@@! :`|p0K6U9T@+_p|?qאC?0` A~?q#Z'39??CB%nOu7f"_0C0d{$|@t]Q'}1 qpDRJ%{'N4@ABKTFP0`lv%1c ,4y2/aDŏV0A?fFu1 0qCU[E fx?~AStp0@d C?P<#0o֐۟N3~??A攙3e0`j3P|Vh ?A0|> @ʯ=r?@!)ʲdQpdqҿ&ϭx@pta+{˼LK5@ÿ&߻ew߄@=ٻP߱Dq?Oe0ƟAN5Cpjs(08sjm6+  Q@Bb@d z$8 wAp6X9II Ork 3㘢d|6bݡFF k&yӦ)Z0̳30fpMv: )0ٳ0ـ f0,/:(,6[=56!3! 1L|/:(D[*;$a7 01B הC )`v&;Y015?)>z4 )3010ng?R3؊= (@H'O?{Œ59PXOq?)H5O@?O$j*G1:IOO!S)D 81O;_OB` z"T*__N_Pi,0 &"Psz___p+`?;G"P=0_+o_Ep;p&do,zoo090!Q~ilXg "piikD,"G&vwfT}y'/g ;p0 '98J\n?o8φ Ԁ؏:qC9o:L8~19x<+ v}9<{ȟڟeAπ=&0lE,D`yeXju琙˙>{,ʮݤ3寖s8Wh*-Q]Tǘ}{)Fݢ ӿ7%QϔW %R3AF)ϓubѐϦϸL >^`oFRdf?cfWhĶGI3c?f0 &0w5Gkfsvy3wv0Ꮨgkdi3kv07_ ~0c1o[3cn1A3yqDE G0*C+x;;P@Y_!?y@H(W Po&Tfx@>࠱D#C /D"D/V/h/ W`0C09///*PЉ/h// :x0?a0/:?L?Z:0߇??=a~!u???PD(O:O@a@tOOO@AaEOOK,`Bc0 9pw, l3|Ʋ,`Ll񱏧0dq̨q*@2\  30ŇXĞ  fu6߰2 G@`ņXʌ¼0~0le60&Ga `ɌўʋxVv1$f= ?qɬژ@ `* X5&q㇠ op̏^a <Ï'3+]8G$ʄ,[yy2:y?WF6oS@[ūL̟QR R KT[my|T#K8)AUx@Rd B qra Az9D;@ o۩12^Up-@J20c]j=pP1`-J2c0 0{׵r۩20 2aAK ;I@w+ ۨ>;|w߿& +(baÉσB`AQ8d+ۨicd,ѶfcF4F`@a9`ZI af 3.2;@ 0ˌG? 0ۨc d3 c#fX1ـ'F"!`ݰKZ 3 L46fb!lRhY[]+% *]P6@DQ\Z-L0fGjF`|3Yڑ]vq;AAR Yg1 Ã3O<`g#p,)5 ˰M>LۯYo۵0`~ioG {Cra=p+=\Ox 0pPqz<0x`  Q< hGs8$}@ ``KƏ؏.) ϡ:k}4fAa >͟eCo"+ 0>X7?@[7ް ݀@0n?CAS0Q`Rgp3+r1)qtP5@/ 0FPpG ЍF 0#;12İް '6`a t1>;ݰO Wc/3f3 0<[! r9 +q gUB9 H0q-   b1R0p8Ƣi7 @0Oɘp8ay0٧ &p&H0e@<4ɘ?1[g&!)31ߙ.`&.H!l2%P>d˸sgs`3lK01c3:`1l:`hfuP6͊wֻ<=2p 'ҙ-؍6216#@>@0xFlPfيTT)?; 0 i٘`srb0̑f0'fv0pfx`dɀ:363? :@|>kRؚf`~& ۀ <`e``sS6[3`s/ـu8 1̞F`>3FH񷁀 <`x3/O~@@;AkE[8Z/#A@ WA3C2Dj@x5B m'񅱕CA=sNqbHZ{?ٳs`Rs8I+|9KW!zx!%x>)/;/H)?Р|@i/{//\HN$//8/x?*?|c_|3B>? pf 8{螺sB?8ƐtԟS8#"1T p00FAA1"a_@pc!= "Ѭ  ;Z'7!Tш㺰7`t _cc+| ĈDb" ၀g x c?@ q u"R~qZ/ "l%8|8:0"mq`? 0&0%70-ϋ4xRl>f ?`2 |%7x|v20:a?^ѠP22&`fnmd!zxp @ B]pf8`8]bA# vк00q < |6s3@yp8pwMs?Zs_ra4P4P =@B0B3prxx@8?< u,s9u кY`mopr߳ om?vM0a GRЖMmpL8j |N!3AỲAmPਃG"GPрsɏ=?a|=P!0~H!B#}e" `cw q2#<Fa!?C 83BZq#Ў|*1j~`1eF޹ [0ʔ ,ߑS8 Re 1`@*P,cH A `|;ミѼ`xvc }ߑe^ A O;;xzA pޒFZ!x#s0s=03A` ߐ@qtyAe3l:P3͊>uϏG a]`%2qԫ xZ<*}I< rܺͅȁ `сqQb18`^9ק1ňxA)Qcε` epxCqqԄϐ??|9#Ƞ[}Bas⤂j8@Zā'P эق1yE>+RM m@xnBǂ)0Ҿ X!`נ}x߈GèĂ5E> G*Ă" 0ǿ\ *4a\``0`.#Lp 0g)M p2fפpqpѺ- 0asHQ1^b/#/Y/ k/}/tRp/0//hC|/??hrF$E?W?i?2???R`0?O?⡰A @OROOOOO;<OOO  _2_D_g|`xQq___h ā|`p___ _Qo1o] ``Omoo_`QyoooEoo x8bppo]o2}0.Oxסpќ}Bpp!M_}pp`d|p3ASx ; ۏ<8N]${,xp?{xܟxfÐՁ˟,>x2`|x?8ͯ߯x|.ˏ mIp°¿Կ?<0 =|??]oωJϫϽ>x"0M_q?<ߝ߇>_>Pbt(:L^p$6HZl~ 2DVhz //./@/R/d/v////////??*?Pbt(:L^pH0/Dg o@2/F8/JCv"~ d"C Dgfڀڀg,Ng 8> 8 8 g XLNu4/LS@r'8BFBPFBXQFBHQ?QցnWhz`~`S@" П `pgt QS@gV$Hv6KSC?Ps%2Q˶ $S@~v!R>`t'&<$HrCFCǿRFCRP섕KdTlэtw'vxbTbRꄕKdUzr_L|trv~HCZS@f܄ցKeHCKHC`TYXl"6k$H4JS@tqPFCCXVŢ\b~`"scqZ 'HC06|6<t$Hp~զ CgPx `vHC6<"$HtHCց&*. nt46J$HLxHx pHWpѐ .z QW@P>`v-4Gg^J6wϚϬҼǑ>҄Hgrށ"oVL *',4Bj{"FA!p&I8N%h垠TTl#*ѡ3ޠUUClJrLz&IŐj*@8*|DNJQX#l\R(ա|HC\j|D&Ip{ Ć &I,JH`ĸ. Ptȧx'PtbŒƾLn @¬<>>f`FQڀtJoG/Y.//+<>'x//+`Unter diesen Begriff fall0hi0Erkltungskrankheit0(nicht 0 E>0D0Grippe).L0eg0 sC1gibt es keine Heil-Medizin,lx0gl=0 1 Symptome knn0gelindert werden. Antibiotikas0]1nnolos,0en\0B3rrY0r2d Vir0u0nur sel70komm1ak0ieninfektio1hinzu.N3mittel verm1n meist5@hr.@ Inhaltsstoffe, b1.@nWirksaml0t jedo0erheb1e Zweif*@beswteh0S=@ oft entFA[61h8@am|00aj5spezie0]B+0b0Y3^0ppalD0I BD0hat,iEdmpfe0w_@t(Vors=1 im Straen-@k=@)@FieTA8APbriZ1m2Qb@eW3wAdi0Krpe{rs1sol0 <20n.@lAkA6DAE401na0fnf bkis^1b0TaZ1von1bstaus - w1kJP0]0iR\01\0At z0L2,A@-Cr7m0-g 0tzXM'CCHalsschm'erz4r0s Qg@30rn in FormQ LutB`tablex(@\01 hnvBom a`boB-^2Q0w @2d ur1i>@AFBLB `lPv@inproH` chsalz{Asx@r,0RqRՋ.aёrhoa, KOnk2Gu`R-B` rGefaUR֋SA6ptk4Na=~P2nAbfhrfAAjZqArznei,0ltC0K05beR,DB1_1pFelp@ѢD Pl0^01rO!ar P pard0e01Lp`m0QDx>0y@0#0afq8@.D11aruhig0}@q?Stuhlg`S|`e0,g/@BrneЭpq"EUn" 1d1qTeup@.07@iej21Nk`@r" @p?Rg@ `tec@wn R n:Mal R18Avlligc nnӡ0asc:Γ 1nha0PΕe`@An~}@r`#'0H 3@6CSAft8Ta_QR}ir:SMm0~pflanzvCBh0 @!;]0aǰnTpUnrH]@~L+QsxMRt -rws/r0Pnegxvd{q0,qQecRHAyFrЛ#Au 2A,0RC16B[1"-@nshp\0l3 orziaUrs0d4p4ol0r&CQX\U}E-GL?gewohn)Btvcwe Wqr@cnL`rfr8@/^a°rCrztvBnKUs1pdipd0r?Sc`spErk%$%qDu#Je.QmVx Se1eՠ(# z.B. VOPlABlq1Id#ur@4p"Jc<6?STq Ke (SF)29AD|cIqp $$°arf#Q@e_dy`>P/pStrBnVpaDa|uf4p `b(c$TqvBpagro ߂ңdd,KBE#ihm, muᗐfo`ұfF:w`FXblðodrlqːۢ-lEYac@3ij&qQwCGetrnk: 3,5 g,2``۠ 1c2Pum^ori20`Tx zS1ltr.q -٠r!da~:PnX3So$z3/yl)1PogrDr(g1500 Gramm` 3 /iO!nProvԑfg"osOetwab!.1H0$9!61 `bn Gube duNrtAQс9F@ydau&.s!x0:*@er8!(B/weh1)byǰʳuI0Ras`-zeh,Rc$i 0ą^am)2SCQtC1zf@1x0T6ap]pȄ`xD`]7lq]/` FaktoZ9AAAlkoholyՒPrҖ`ubviELqYEvBsP1IEZ1$"s>#eerwhf@i}>ڠl!G`t(7RZX\q[AY]rarumQ!V8롎 ne @ `u}bul.(9|QrdqSirr:Q"Pd*Ls#"`s`Q 1voqd?RlEҲf@Wp A, D, EbKuim\"l ]pR-2PlPlCqHmb(ЌG)djtp̰UpsڠiK@1LA rAed)Camm_m-pigƱ iPrq΀g#t(鑴&!,`tB7#C"鑕Ą#-Ա%@qꀃr@gpߓ!r3q^Ds (J)FH)!?Tgib&F8сqߐzelN<G26! VWnchʑ/`nzi` )saCqzu&Ц fȢp@qC2prߡ3,2`;#pi.q "ihvpkoholBiH0AlR<"PrckcarZ@usȨ^L/sime@E> aㅔF:3πqÌ! ZŀްrqBԽqB*rlE tw~jB0sg890br`0pdWn:06PiTbЄngnisOa%.MPmong:3O -A5|K4d@R6rezeptpftApFt0fBinoU!Rei`Sr-}smeth aoZD1uID/ 2H1 P,xBat A诱-`rukNEpr Dy1`v@v biBtYR@< `tzj1j9UG8l1sk 5CIDSrPZp!fC6n;Hd;prmi5bt*aXw. Io <1dy!us\z 3v֗`HS"B ,y$aW0jao (Klimum) l0 P$,~piESexualhвe pr odQr+4b)l.AZo{ug/09M:f\CSDepPs0"Nм, !r psy4WֲK@am P4cϱaz)wtuϹQRdS(_&i2Ѿ.=[,g F Amn6Nпp fTMJqdol^HppVQ 2tW0PleuDgtzMvo-ͨG #H͂}5gfr#-+HHL.BdClh0zndCInr!NL2orpi MqQ#P00ÄauRC3e0~3N usflGu, 0B3etc ut%4d"tf -@]08o4$Ll#Fc@Ry`q/aG +QP3ri,MwlPR^3ϳPsqgb]",zig@Уa`us-bHXUArDeMߘޣԈPli܆51b?BZvlb3stXw.ab@vB+Zyks 3`3!b藠RplblIu%xo=uBlmps.v.a.k#O|p#Gްy;gret 5S! Diagnol"&<"8!Rc'&%U"r3:!eaR3gewoR"l"hnB1b7FDP:,_Şt[pp^&ANahut݀FbbMBc&- %P B`A3tj`b3a"erhCngyQ(FlQchGp^FMb# do@k iAndwo3s:QG@zQ$ nDGiftAe4ae;zoQ "Ns QDosispP<D :ei,"O``YgParacPupChemdef@ @oбp`nko p`trUSRmҐցdiOviduQpi `rȱj*PlprѴSgepdBYp$!.c tgCGrO`i3zt`apeubO݀s rڱ?rDcW@" tWsab i84$ >MqP.vrHr?m%suqP1ffhlnq@Bu1|!TOQO%QAUa0E%#IV0D=,2B#dIP8MS(+oAfrh@Erw2).^QgiQrذ}P`SSP @Qf-:tn1 RuE0p@SP"ح?PбKaTe=RColaqïgPF)#sya&@cO`V`>cSptRaOq\чhik@R# kurz;fo""N?a `whn3a>a~1R JPhqzupp`ppP`opqakAAiޘ&#p?Oa],spaCnrQFжCSvnt. UHo!bCopPE JcW.2PrѨoqla%=bPB psanflhandr?be_r-hL]aӐwar2bTrotzĵׁd!qMqn3FnKi`ri~bidepC+pbG* Mq젓 ȱun qiga0bm1s[@ \=25%rmNzcfwpos reduzVd1aspeb&x|p&RisilB2 -̀s(rot`UBl`аRErXREesbUQ,` "mW^!Zaosf,LĽ`o/hhufQRPrvA R"WHar-,M!:0alz-Bd s`luda0wcmahJвdQna#tkQwV@nJKrs,RQQ:Xǡ1ԑ3Ёt-ZQ+Pl p/S d 1J2wdore N1@0br!olhQdS@kmpeP1"drcku } S`ReV|Ưd }F ԃaMono!G@'orzaN0.dr}!sA?ipW!R lub ȡStePYRmpiReaktionf}h-starkl:g.JW2䃡]:mn Fagpbуpoinfe-PlB/eD?r{ci0oEݰwaWNpz" tiefc0 Tw8sp IpIRb!rii#rnˤo?Vik >Yh`gelmTetan|0pr1qEOf`=Apw0 1ls@!<`;Pb) Ђ;h/BfIet)0д0 g|p. Ds0euQsoPf1RIp@P "Haut6v Yd"dc▂waUCm0h @cnrzg0gfsoFp1:0:4915257344652803264A632[H]68\76n8184409520471023511626U7lE245r58724e422~161r308m5}86~91\Zk EDIZIoN --)1Ulb6wA-Dp &ӑ(0 B."0QiA=@erZQ`!exQu%0; ABPr_"de AY`i? IAlpbe"!InKfoG"LdG"H!PbA20mŁorm! ya0m]o DruckG"BcT# !ݱ` "x!FOREGRIPPN}EnzamiPDipPylpylbNoef0nL1Tabte{Uӡ`M,, Hg f$21klo-ykBL2KombI@㐑\(Antihd0blutd1`Qu40S&Q40b%sC)R%T<`v%FLUPRIMEl0d0pBDextromet'horpnEPPCS%cyld3ViB , Cr`e85lѥBewut`$PF3SEg`bErTҢ`ckIqU1OSTADC1bj3hydQbHexetBoMyl1azoKG91ps4¾h5WOre}Bau-eE!R9a9iku%m|apQNmU/J?FGHAVFIL/VICO[0B{@l1iTVParacmopDBE{@40Qm59oKh W"A L_SP\YQN9s|g w.KqD=OOMKOLTON T2ALEWH1^9tAk;~ivat,!3tE6QtPɱ;86ԲzuJ?/bx3f<3_wIzqr:hu.u);Mj6~pDAflan0xA,eG03tSaftб0džimqimhr|640C)joC(40.u&Cҕ3}ONTAT2Y]? Oxelal6ȅ{Ղ߀q\rimpDEr rԲr!evtN2e 40iiPLPERDI'PHEZ1j> gHFҕ-3@E sR{`t#ك soHlcO R pӒ>r(C#egEirbREFAGAZ1AylssurDPJT:UgP AggtS``140KF313 p1AsthmaanfrmPp obZPLTEMPILj>Mfep:Po2KapfPuWsjmp U u6! sqp5߀AocΖ0hqP"_QKr79b\.PLWICKNAID)`~AѢwO Do!xUǍZĀqwQ[P\gehݰ;oA֠erAJgRr@ƵcU02ptG[n]TV^^K.rpc-drPLANGINOMYCIpaciܐcXTy?rothri 1( p4Sg dne arg!e Reސ`auf1 *pM-Raver00t;C_0rapeut>Z# Nut1$S3pb:)\0 ?2V_h_rw$____YRE{OLT8Hexet~K5yJ?\?n>8_>b 齲0;_hlQpoCH///|+`ITHRI"jlk2, oca/;? To6}E}g,BE{ntk-lrzptBޑri#dbiotikayz@lokaldBetuA?8D~=d JTD{rAHܹmDYNo@N ALip#G C>+T//VJw:OTʏ܄ yAn0dCвAF babeicLBnJ)姴FRUBIENZYM Sm6LysozyRe uU/^FZ`yށE!nSlq@rc686$Dx!@tQ~&fBKTOn@ETI-RATIOPHARM n,>PQsyvVn@ORAL&8J\nπϒϤ#vI/, ViOCQbU);B_;azC6 =Ng-bt˿ݾws.IMPOSIT?2zGl) c1CE\LB`EcHU1 3PjbrZl48r 1.KAMISTAD!P2enex kt hymol͜ASqInhaltss3$ Zuһl"C캯ura rt11hksgeeigne|!r@ITONS than}X6Glycero.aTrTropf]ߓALTrNEO ANG 91ulewAmylmetac!j-x M|4////Mjx7A0A AlngyUogoyoP:{z"LASE2ci^0w/-HC~Papʓ?ؘwere?3LDOhhFOkORACHI}!Je1z (???RgB O`r 4OuCM#@mOspR?WICK BLAUGlukos0 lZ0Bon?bonWeG"e NerP!VQ TZerwarߐ{RWb^|rWO"sa{<$kurzf|0eres SpeqlflW 0ASPECz w:3ButΑ0matRb N7atrEdi~ 4Re(' Map-Da?rm-St7aRZ` D=!fC`Rigqt b_roncharf/nd}qod ]P Ws3r3I0<-@vieBAP]-s aqehm empf@ˢBENADRYL INFANT:Rp@hydQГzSZ΀ѿbhH+{ j hMdig0@tropnPt&$Pd ZBISOLVON-LINCTUSBrom rтs݆rmgH!8{RҦV(zu2ǰho Dpn)3)!-Ypfl3ss2er) P֑Bso@aAbKhu+.Qb[rf\FSǰi-HeblXrvPpwaT;rΔRO}NPCUMEdrTEuwyp'tusapUsS-f0SapC Elixirȏڏbz¸4XZaYpieΐef&0&(ba{Xe|aL$@]0arbebr3PA P1~P*`` G؜-pVNᠳE}P, uhs-]AphkGblutdruc)k5rPcI 08jҡBSED^@EXPECTORANSThymian#4 pinhyd0Poxy`1 cO%*)VO0D$,P-LfzTTnS^VbMer5nX̑XAfYSOLUBIFIX *TaapϏA2Ф^UQв`m@)0MӘo|Bz$feb&tt|E0Wfa;&KPPzust KaЏr'q PmpeAya0%0";s- tsQ%)6]-ejŗRl)TVVn/WICK,C, Ziw1ȏ*mW8!p6&hA}'p ckmi@"?> wFOR` 44K(M2t5! K#BPAlR" fhP.o0ˡHeuPnuvhufK @@VorsYgebAoX aA`ZsD#^cinf@QlK"erNACTIFEDPseu#do!qlA| Table|P[B0an0eQ bzQ*&e®!+8jaMgef`e@lHYB-RBIDBu0-#HCs apBSScyl0Ct rur vor`hrْf-j@Aut@a m L@P@m & )isaHQ`gQC\bS_pP̐PmH@BABY LUUF<ٻ,⤐pKr0AtemsvbBewuctl@bˠGSu @aKH`nkb3;ot evue`}sL??BALKISCA<nEe0!pselrpܜ s (,2Erk3lt KbeF=0Ѡ `)RG[A` /jBRONCHOTOṆ//erlbe/// ??-???Q?c8COLDASTOPؼbEPqNa, -Aq-Ϭ̠ l@=rBGebr;b Q㲑cd2nang8ш>Sapeut޳am4vVuABSZOlE8NDRINEKOTw7Y@wPͭbQNyvJسB^LOMUPRENCxogwlyc7@urPDrsalzVbayNiesQSd4dmD?Zu0fbekQ;A:nezurubeugGr/Oo/_,_>_P_b_t__]>NASIVINOxyzaz2A{, `^4o柒nakBEsab!kф~<rF0͆ $%bN2z y( T)@-~@OLYNTHXyl=SrdvଟПTRIVpULsGA 2DVhz;PINIMEFOL[mObWʏ܏c8 STerpiP ie _ٿ!3EGe1 v6 h AШ @g!chba1L!$m" RHINOP@TCar@ox~3Nor#5P$ FQwb0r,w1}|Jpuh^ VLe R  /lzumal e1speGzif'dCDrfNN[-ha.SPRAYTram=t 2DVhzSNUPFeʪ\[ASewOLEDUMC~`㤩 p&BJ hna$ VQers@t$!T3Faewandxtl.`;TYZaTetryʦ!0CѼhestz2M?ethylcaem"S7|@<!3 N1EUgy?WICK6g8JC`r}n! VAPO RUB&AtmUB~P24dQ)oAGARTTpBisacody~e0DocusaDrZ eDarmk.i Daun d droR°z|lusHWA[AqAѝCemstuhl`Mittel k 2Wt pZwe?ckmiI CCwALASENN@'ardiQS@esfrQ-bl@ExtraktUGhe-0lw: X`KPe PflanpeQS)GranulN@[JEEh\@frbM!p R}odesUsuBXuaDicek(PmDa.hOzOantwss1+bu]Bn :B/ QqD4SpvSyж@8BE?KUNIS4SGV4Z,%[c|V, >FQO__[___oaH$];o-f`AA$`ig@@1 ;Rc-hzТJe,BTable@G@^b, Fo0PdcCWe?0dzu)0wa0PÌ8@spsޑdauenzym,da!norݒ!filmtman@ïկrbhe tWИm3r,f3Czu9!UrF(qt tP.|{ч,GalB(]gqock' )g+ka@DifXXt1-Ze~1Abfhr@n Yfl{DARMOLP@olpht/0.B- okoladH&zK"JBp).<Εr-gm3 reTP0P v1SArQ02u nUn c m@ЇR-X֚sk e1@n1s,@Ptu3EPURA"_lh;>apselŸԟ ./s}ec_ddDh7nr1n #W`ges*1WEIZENKLEIED԰qak@,BF?Ӻ1s6Z0!Anreg"fb[Afcunҗr RQA-Fll2!vi PWa%aneh3RAGEES NEUNZEH@FaulbaumPde-PT Alo`!c~ @negogB)mȤ[AN@tark oc6 9"Ao0ULCOLAX=GPG, Zpf6 nhjtˁ:gsamq!Mil| k GLYCIv?Glycer#8տL0!l6`AmuagaXPCJACOBUS SCHWEDRUTER?ul Rha7bar;-eUpCalix@ nEo@ 'j@q Q S@RsoK mgt#uUr clqt#shPmehr fe$vrojGel1beQium_5?G?Y?k?}?????:}qInPtPe\O[ F 3%gQa0P&L6OROvOBERALNatriumpicosuwlfa Tron%Ot g}6nmXlrPbqibis^r! (bINUSITL"paq"vKRQgќb" _ nAX3OJETqSQ|t(bastr|Ernhi>tLIQUI~!xOO4UsM__V-z_tL^pW\MEDIuW<+llk5,{O%7I[m1[ZIRmnjsyʼȋn] W*D _< o^INEDAKD@,Lea^Tamaaswrf퓟Z@_[S/P/b/t///#EIZENKLEIEWҁk8_I|bAPgDTP!funYkSh Rvqrs|qteKypZtCARMINATIVUM-HET?TERICH1֠`Gzg"1aaQl$,1eӀrmi6, MeliRpqasilikum u.a{.,koho{KeWpnt- Neben3q/bef1tH06lTkrZuppset1Z4:T07AuAethanol-Ps-)G>+M1o9Q=piritusSSat_\2pW.pahl̀^1w^1Ɲ D0Y2ThoopnRge1qqAKitif igne?bVINAWSie0]22Y0 z.B@#PDZn&noՂ0] fzuVFǺ_^gbkru7ߠsGeRVC,fh!lG׵Fב)WPABELUGANS_Pciumdioxid:Dimetico? LipaXQFܐAmyl(toooz]1^aape;utNutB#R4d=0ZY3pzoRbNZYM LEF n6Bro@Pa6Pep09utя~+PARACTub6vuLPGh!y0M`W-B;nQopAufna@r Arz n9Bn?ALP)GEvt`0p@gYWj_lsEnt5u-m]sC6dsure`[pde0:aCqodauenzyPW\5o FORTEdjPLPo.bFoAd㣟ǒA@aP ;0P, ssp00t,pe0rma PtnotY@~S/Liquidumӿ -?FERJTO D?UODENA0<vUA<mϑ3vPi>BP FE)B1spbldr!1%r ̈́de "`dl8Patz"RmPIQ0`jed0 b{CBGAST Q N NamSbcIu4SymqsrWJPu=TGW_`ߗXWEb@haAfq^1U0tretbar;huKm0nk00R20{esyO-ACIDCitro@.90\DW pro 1D \Bemm ytPA7G"wmatFcIIQi,^0[Pr4v`1Rg!S!,k29Pankr[ BHYLAK2@hDduk-@#QBauric qok}`oqsf3`ManMYY0 7" ?, kacPSS1^LUVOSoL#ei?de-Pul0byq%1;0|j 9dsorby2D!3. "-A7-Ka @rhyNEO-BALLIS.E!charWaffW As@mCbd-+mS, ]nzH85@pPLlYr n3ɐS"ip8P#QgnganB85hlTASEE[kot>, RizDd=ߧw3 qs pRLB"J^"umstM`s8sastAo0U3.}FTauri8>Dtin-K&FS`MO_OqHS w2OG4r-B?edingt ߸a п @p B W`onr/Best tr #Ga3 sEOMNIFLORAD0nkultbB`imm};3pfroge-ck9pPx) SehsttMben0t k;nbauf0uI9Akram@1Ms=5QQb%Lhdunn@1ɓ0B^aSYMBIĀOR IT<lű!}Art reptococcusfaecalisb ýis@̯be1Qwo:7 | p1dP1I e|GBtaLE0ŢBzuР@IvsNraPea`Abwp Q@i]hu~E1=ria c4@$ae4AryЋ`βim)B< #Vor1!geb`ԀA`z1"d_% oҀ0w? NA(S2Ӳ /ASenzkrfELOTRANSUko΁Kumpope0Ԣd,iITz$9!"AsonHqewnýlO?DurchfRa !wu!& i9@CSalz-2r8slpluU3KAOPROMPT 1H@Ka4@*SuPns0ɯ@ۡ2W `DRqWas-o!$ڌBKYsߢerp"OGunbTUm(3zufup4``"}Bʳx8cr Inas+xQKOHLE C RM2PzKopaCompZйpTBӨb:3cAd|0pA(u.a.S1io)0Hq5<&k.uQMELTIFEXEthac~inlactKZAS"GrYTD gcRe`Buf#3b:&s ~Plb frư00^hPhmiluD nf!MFbpNA1TlbѭOFOKBx bLcerblpF;rS6_amO_ܠz9SANC ЕNiko MeIouP, Vi2, B12"irup,MWdew#ް"koaUtDyXǁU3zu=T{Pw;r]KkЛݟ1P, Hefe-E3u SchllurW0LK`zahafga'PIStillzbdual? luriP0Q%"-.NKl'`k27vfk C NrB3ʩ?7 b N0kjeQbarAm KONZENT 4Alo; atzl. Javaz*PG!PwurzaRh\! oharp#HmorrhoCwha0ru3chwAbA&j,c "prk  aPSi2smQ$~"BILICUppRva-8ockFaulbauum`dPfe.1zlK쐈TGuajazuܐa)pD,C OjpFN=B@Ǜ;h"-A'Ֆ/:IW䠡r 2^瀝E 5i2+ p4rkAbfh0!AӏUGEL3ԗKuxmQ iAI]al`~Q-2-dim)yl-o-gerisacodyD+=Or2_̑^n #`m@nmmRs@†0z.ST.aiқK.‚$mS$'P%.;^iq&.ONERTONHymecromſ*Cl6re ;AGbso)чьGn4R : QSP/ASMI3rn8J\n~sYNmX neSRhaЪ:wYӀ, Liquid#umϳoA_t=  Bkbs-de  CAȢckmige.VGALAMA-LEBER-LE4w-E*Q], Feni@U Waz%l,KܰUWegwartV*Sa)lz`HanublIBpr% OݰF_lldroֱTnсEd;0`rì o*  p`BDt6n~Rmeg.1j@]ፑNTEE >2FLUX J B ƪ ݖnisHZ u.v.a.]c|rosTuo@tj_\}[___WA܈viCjL&n@r/nˡj BЧXbCj =ִo$c/*茑O MERZPankre:xybyaCellusDeico~ rhizom_FilmdD堞q Dos~PBnotirse &h1f,!urLaqYٵ"цM#B Py87'"jbHS&;ܠLD!q?SANOL^criyviniumchlorR?t)CUSc_u__#5G\^aBov-otm@fekLsԱ5>qNEURO&CҘ-P_<04`ustHb --PkturU05_qu1aм~8.mtM@rA`dq&4 CjMIPCHELID2p;<,1ZCaOsOFrKf0@gaFldCau _!lsBY@þ ̡!rg >ssesDc_SOLU QR: O`Bo9^JJb Inssds5D-1pb$DP`ErIn$vbzrWAANING TILLYZr p inUB~:JPmhK"pe knnsn /BenonM@à dۀai5PJƱF8iaqB@rc0GI iLl:qfra.UTALCIDP]Rutos!2Nof K&d ?pantotx0m! Ocetadgeca,] u.a0ߛxt[viel#0Cie 1S-TENDURAL`cilmt$ 0BT>V Darosform9!_3ўerny}L1.1soȱڵ㼨 500bX/"/W=/Q$Y!^(mo//&{:!7"0w͌da3Q2kü&PLUSA]q //?!?EWӏPzQf0ϝPARKE VFE.s ]p], hOOOOOOO__(W3RLASTULEN ____y?DC +D"+2|~7PTOCINAUdPul+ooooo(:LBIOMAGNESIUMMagness&ZZitro60LutyVMuskelywmge'b{isX!Lhmjp\Q!?B\nkranked 3onsdeBODIbpdl`t\tre~,nްgewvׯeaCALCIPOTh`rfUfni0aZ0er{rU unerwaNn;k<5Y befpZNL ϊ ݉(,{#5oe&2ĒDÝ 21AZs:%Wsamas1WpD3⮠ʙ`r!d²Y kPxꒊ\Orga60;oX!Erbr71p\0mGst\0E44fRްit+X eug{rp^Behandljp!MMQsHl =DȢ {kb:@t wЌ1&svo(arifau!gyԂUM-DOZ܎Brau0ΟHZl~ "SXpӠ@Mi'bilJRKİ b`rk!???OO$O6OHOZOlO~OHERMES-?MULTI-zp,Ok( VCU@Ӭ O ?chmack???o'o9oKo]ooooooooGLEBER*NKAPSELN POHLRt ߱{EPtWsam& beug\ InfekoAۀroioskGoszweifelhPKS fǠlseKRitissvMrqbqeUD-M{qrgph.MERZ SPEZIALo EC;arr,Ol4Hefeex>k\pl4!hi5.Uȏڇ"4FXj`GATOԘIo>/]eZsT?!OD[XS0AMDgSw]W!|kip2PnQ|PPnupYPVQQNR.vQ.PPTp_.{ïկ /Aa՟矘/ABi_,h0ۀk &7TneZwVNȳDXPZDQ|PWp2QSmi-UPzϯ -?Qcuh D0en#olӾw" R] B$Qx.An!H'^NS!&AD WU܀V RVCq'@cA-h[; GefasQqTQ//*/i414dh3r~qNuzBےlҭ2V0tqťei€<1URk07rifb;naI m0q-D-Prp10ݑr k#ҟrBVK ROCHEy@E"Tc,1(&!rted LЂd"̐H eN10krank V3nqunΐBgraqso gut!_2/n rURliegL.y;d/Ɣ0mH]A;14|c3prak+^0rk2 entste1HEXOBIO 3B6, Hnzweckmiq3i Va MinKE CyACytiphospha UPin% c norma@茐00u0Sw|QNj0n0a .#Wl120st⁀G rzelvҔzu2Di ݽ InpQsgiHlspLEVURIN˄jTrocphefeW^tZd*wu.bejZMH=B- NEUR?OGRISEj`6;C ]p<N` ????3-RATIOPHARM? CFilm+O=OOOaOsOOO=T@ FORTtN!OO__&_8_J_\_߀PLEOMIX B_O______o8SYONDYLONA L5oE#(Zolo~o@ 4#0EqU5AҚNutzrd ifelhaf3CEC@Sta`bi=riGefaNd(t Df3>C-!nkn< -edizbsq3Test(ZuW0ic n)ver*sqn;? Megam3^DNS patreϑ-?f8.bedarf! w5w׃ezw]n 45-80 mg ! W-samN 1i5kltetc.|CEDOXr 0BTfxҏ,>PbCEGL;YC}Kauşן 1CUgyӯ yHERMES 0AMI!Np|/O;p~chmackHZl~ƿؿ 2DVhzόϞϰXITIXύ, Lut[!A$6HZl~ߐߢߴ 2DVhzeIcaD`3YeS )t :pV@l`d,!T- x)UTW frܱQbluP.TherapeutSit Qbett, @ochKX w@n ger'` SchdFABD,`n L@wsprRd.RSALBEBenzyml|potWq, Np7tylsaF@` `NonivdbapS kommbpe_/p a@rg' RePCJereizPuslag,]RrPJvQ|( DCTsTdB!sAR`rop n bWshem3x=r9 p~intDinnv4PRKISTINqnoooood7xQS`lokalS] 8?TibisIphB=i `Liv\gPLGEl`rhvoMy@cai>R=G1Cremor z _.26)3p kyNs.)? BeOtub(qtwxDxW"b&g/l ~LWjebPobdMBENpgk{eHepar?ydroxy˂,>u`.IP7`s0P%Pgefer`HP`NB,B+rn!)JrʗҖٓvX2iLV0aeRToHROSLXPanzOC, KxQ/Q3e A,#^^BCDuS z Uy{ۓv&daqҐ~EROBm5mltiD`ߒd/&f0k `eBR?ACHONTOj|į֭ zdlяZUg}lѝx|DOLO-۵TTENPoaracmo0YaHAUoғ L@QnT;Dauwebrau!@i"evtݯub#z_Gp湋>r_ʟy: MOBILATaoiP=ߓcP*yleph)`\ֺsف aauf?RrpPIqeL@Iq G/@e+bQIer. yӟq;!b/l¿adLLBpAlu0i?um-SilA!Eu0yptu{s LaveqlMáhWޑasurThymianZi/nkoxbPFQ` ztPBT@Gq nA!`QS۝ s daPadETR_lՉvbPhoQSp0\n߀ߒߤp0& iseH@# ,0k%3#LW9/K/]$FANGOTH_ERME afo"mmSWrmbckڡWntOCNAQ-CbaeVQReuj@6nes 2.whl1gesPIP^QE `7i̊ afASFRANZ#NNTWEpCQnPl`0.~SLM@g&&#NuKo{ntQkzemf`?temst18ěLWim ppf܄;h vor"m Fi Klk2YtCNZ g!o3grq` wdarS.IBU-VIVIMEDIbupro.STableÐpf egM~n-GDarEG2w1l etc.|dZwAigHn a# -F!a :SMENT'EUR$lMN`rr oPž 7- "c*#w:۠esbƯ-k} `RUcBR`_Es0z kt P<`b*CsoCp1H;I$﫹 .AjJcSYP1bocaxSm[id>inpb9I[m{c߿pI: Dlo>Betu!t{ǨdaOSPODgYLOPulxܠph}BGua02Pa#zo(fA(d"sPg)soE!M]'"@otDu"Bhiga-. P>ΫALCOS-ANALChlorcarvacr8qPwoliana`NatriuӀeZpfᗲWːntyld+VGeeigneur kurzfrcbBek95d>[CNUSOLPba,smutJ lylbut)czo}hSni|S!2}N|dJ bAQIn{fesabwL"J zaWlr 5dv𚏬r0ERTI PRPARATION HԼB<@h6-Dgick1ifel`rMCheGD\EWx\M$|q0E]VARITiX$Hj , jQg~ohSFzU"\o%re$iv hufi /Tٷ ܰ9 &4z.B]Vzh4QRRNICA KNEIPPArauajazu70, Chamomi`ps[dQ %ùF2 U\nds0ISzwӠnP0pad4{pPgp}>s-1gI_An pf`zHrn Sn ESSAVEz3aDghosppipide SlAS^0zad>ΰaz`aPY0P;@aèѰ  k+HU g d0J';@&.L Npandardisdrage!6|<Pulsbq?leunigwZhtHpklop8}ste dEN0gewt p$GACETYLPAcetylsu mwbI7@URFAsthmaanfagelsAK:@Z3J8"dbbwuGт;ansonbeq3L}m0zustuFh1rrhe_aC(ALKA SELTZER9e!Natri}u-carbo0fѐZi0P-GBr`MRčtn2w@D@0>PÏX0$ckmigsKrgeAl,dpra;amo@zuwzieRda j0r.3AlkohPSt@.R1IL P+0opypPaz}!Sm k l+Asbe7Ph$Loc?k-forR0en!(2wRjBi2! GASPIRIN ?PLUS Ci{eC \TU- -'wC3a1M`iy8`otVE2Pob=q 3;=Prob`Aqv.SPROKп*._Vw@?.cRqs+e guneASS-RATIOPHARMK7I[mߑߣߵBEN-U- KC%=ZpfY`1rD$|.v@.Daua1b%НigpSqisr0[`ցKBaqApq,dCONTRADOL BP`iPǟٞ r  m 3`)=! F`IP eO NEUROBI @EY@nz` vfe`,7 B612yF"1evtpe~xRie!qB(`(^TBZugabhF3uRler spezifIumawqVoiPPEL-SPALT Nnzyl deJP, C10QGtQ`PlgpPߖP`?/8!'\ mPPL*1it rd%݁['ua;Qv@EU-MED SC5hhlyid?,?>?P?b?t?;Z7İ+Q;`(>QU{ADEAL AxҐ/!-DL-'&!_3_E_fBN^X d2DC" _@RdU_g_ϋ_(_\6nW- J?SuoA ?O 6-W֩dbe Mke0IhJ"Fsteh0KTHOMAbȚ>qYk}eCIՋWg:0/ASewOGsALhinOLithiumcitrat/w",AglReak!ruf/2~9zuFAi e/B]M.3uREUPEL PFoXo2H-P߬o0BTfxTdE?HT?f?x?/Pjedosen!r( V?IVIMED=OropypU, {Virn B1OI i?M@Wsta/RBޣ5Pdzugas nuᠠspezif Rme<`NPCLABeMilchΔResorcal{ZLRreiz/TsWSRomms:R3逸9~JguckM&tQBl!RAs hfנjSubstanz HOLCOLLCKPoli``anh5GYk}䡏G*|r ErڂUHhaQAGUTTAPLAST5Pfla'rK]oɟ۝HHlQUGEN C?ORNINA+=OasVERRUCIallod:0PsticumDocusat-Natr:0Eis?essig,E .PrpߐtZp"tҏ vDefe2s U NVhlTۘ2WarbKTIVOANAD̰NuPWnex?0kR2zrHefeHPoporOphyrafZ!wer,0koh}BSafrvapyknQ-@lafsta urysX!Vorsq: das`Be?nthlt!Ps8 !zelQx9tls\Kǧe`B21Ce@kot mSidιrPe0BTfAxS2BxapPmKrCtS1P d.hb--MFdtle`(BحQsu(ps62Uh q- KP,Pa~@  p +.IMq9K]oqzp-aD5 BUERLECITuHLKepIn`tphos0t0(<%E, u.mMr8w΀nt&sqa/T`۴,`awoQ`.pes<pAP es5P"E4R" ??>ج,O>OPObC.8LRpSаEp%`yPsab1" #bdUq|-fhce\seנsttztD1QIAA z%,B [abeuQ_\ެҢ?yѿyO,vCi{QEMASEXAcuspATe֠s jyQr O, EE-acetaR BametI@KapsВstz rPzylqr5,StPcfrequ(k\Sri:1,`PͲ+ޱHitz'f`!!;bנac2` ˃=(LALAMAѢkc, Tonikum@mu"B3P,@N1S0D0w`mpqffMnoؐstardisOܱERO-H3-ASLAN?ocasKu]mulf#B(oe -monohydropG54 mpu а X;RcAY0aᰮBc ؐ zu|G0]TaubFptsnIJa#hrzPk3Ppq-ko`OX S0n >l@rArs`j2Jfp.7INSG80@IZ,:,aVsagoZi#`}INDOVERTߗrPVezol,\U$LsyPrd0d"KȪá_Krmpm3giѺ7K.H;.3bas2AMag@carbo0-ѐlorW":D--Hgrne_Hz3 Oa! hG@1?LO ka˄sݰtHUaKLOSTERFRAU\cKnobl~-lmaz`!rnmiJop#F|qE=grȀ M 0a^@websirrirnddhEEBuyT@1I-CfeaDX1rzuX@ϠUMz wENG SCHEURICH~EUfm0^wӶ);YWAI]_pp0X!M@0h% phomO pa'P1rw Urktu1@`DnVmugR "N rZà;`a㮏0BwwenigQckmiPANSTABILoa rqBpu`im%Pne8*lt|p0ÿ@2149}P{S캖-(ÖZۗ!*np|1v en/DacrmfdeQpANOR&u"tsK0YohiD1v-A@AtP"G#TL{a-VNernxSeieD!2sexunhTpO""`sA0ݻn7 @aqkAq TAI-^~MH1A<@bII-;ngaAH@HQP;P*P;glyceroP\ӷGxSA|Rz~!i]5ji1Zng7ifts0bPWHOUrznq&aPQc????5 OO(I3H=LinLDor,C\in;Le=h Dexpa6@XElix]OxOOOOOOOO__,_>_PQESA# B%$)$# "".lKUմހAřJvJP17 &"<27:M4U?VITA BUERLECITHIN g$(.05:;aoa-'H fLo_ ea ݺpw'1 јcjed(oi|n.F i"Binm7R $*N0z,p9bzw.%pglex0ere-INАISTLlSp`produkz_TeC`3"'JEis@ur,T,FlzjэrdI7AxaY4E u.a.ՎĤKopf^mer8rlafg&{Bѱ@sq7dWc*N1siss5-Ƒ l.gSPӐT;L-Gl?`B`L/-O-PSsQ=2AmpuwPkfl `1aNq.#weṡbe-wovZugabxl` nur" timm F7ormB屄RжPc}-nj?VIV?IOPTALIvLBi*AfPrBFolsur\ GGC:`1J5Ck.4843@sulfSoj;alu.vGukn}ebin trq`c"{p'u T;vi|oZ `I՛Iu-p!DaepQVOLTAXlip0QXE,MeligeR.<&h^&L`aSޏ=`ptbx+. 3:k *}1onh]r5n-j 8@4GfxKG1Ydc 22ϑN 53 nC{ulpoly"w0Lҕ!rNonoxPl!?CsJags`lzpf,”rQi!z3A̡Ant!1 rer00R0sS s`E&0mԀ0zustzRechan VerWht0s(s D0V.Bvu`ve>͡ATENwTEXAluc B@#rP!Gaum//$/6/H/Z/l/~&RESOMy0,6 ckonju @stmerosa WC`V```$8Mel҇`ˡ>4belgPausnnsOpNPBrCevtpr"YL0rdPesƣ57(x>ФqursaE`DCsoforS absetmP!GnblabPlAmg`Rpi1bbwM0eibRm^xualPmBeP̡Table*pCLs Fá@0 =0ba>BGn LB3CuB!\r)pSOLCOSPLENge0ckn0Diay (ei0f )1f}rrKl`mi5nOrD>xarsIߡ5,U dd5sBAs$0ie~BIn+je(e)ՈQXo0esl@e_o"lqneg_3C{Pi3̡BIOFAN Nys iˢ7H$$>Ifs dem{` >Candida6pb< (Soogr)Cr &rRAUNOVIDANPvi?don-JoAufBrQ޵ildd@enB4 $VxK!Q7PM7vorzu}A̡MOROz!Ł1pBQaApac9c0&m0omyzBGr)cidP!amc1Gtalcremg(u)kiO1 JuckӁ otrP@qA!`gQuȅu`"Bi!sabwQFPt1 - Q Cđ@dDM;a(nu0B 4*s?eʓZҷT]MASEPTgyli-OvulaЏ*<AGIFLORKultNЋB(gek`pAfc`nMilchL-bRQhp.aop葰@GlsfhX m`p sp@gbx`a(Vq-ZP]aeZnM1rPb}06mhieu'bdur1jukbe1@d.I%da0KAr~RBv!eX01 k#xpL!aAGNOLYTEOct-Mnlpf9E0ProЇnaf0C<1kB!<1l 4BQoZykzwrumeCi1Dt0q@h0ɡ ~infolgx bkrvxZ jedo0d:@tA\vera;2I[0#蛶'fKTODYNON}S1Cycla/, IgAa,l`Pum tigum`gnuscastu:u`HW B@]|`U@,ю3ustnQz b egt0A!KNEDERMAm P bit!osulfo|@Resor⏰,ZinktgP %xrO1,RB1lAG\{lebeTto4pW@prk t RspteQe?0Dcylpyr e;*,h,(ie9V B6QpD J{APqiAG0DJbG35oA Bq8RTFUG-MILCH SIM;`X}Hex{@lop,_ OctacaPnnLEmuls@{+K/Ӫ+rvhQS/n[డ3ˆ%LIQUIDIsoqP0x2Lihthl9Sto@koiPteebpe`TզRPrawQ9DC"DLD(?:?L?aHY{81#[&OXp0BenzoferslEA kommA relq@M1fɡnDg%,]`2e-Risik{o pgt h`5ROOOOOOO__#INC!het?4yDỹ鵭NVJayn E^TƱZa N/ =/g& %\SIVILPFo=UPUmZpVEou2dzp Bevdx\CITEMULMl=, TalkpoyDOrLgw.oDDDSobFNw3KamP*x2MethQThymlDbeammgпTo@]4M5AQ0oin-hydZ(i#Til `v/#/r-n ? nWISAMT N~hWo_d Cre}mustzfPu+=^,S!? mIW2d?QLLERGOP{OS0tazo`b`o{tpetr=yThioTugRt򚌞zGl am  %5BMp2RJ\ߒX:NTIKATARAKUM\GlyclphosphQIIin= NatroTa`uNt mida[pso-L-asparWGlOOTISTIN-PR`NwpNa@$6H.f$V߈,BE]PHEN< x0`ETpWete0bWxbe1bw! 3beiizFtb1sD$t7s CLEERV-///>P??(?:?L?^?p????ONJUNCANc A\, FzZekdjt ХsOrgah =p3dle?L^p!z.B.ԃҤDprvbebt(R֧@ Arhar=)ER NtOPHTIOLEAescu + jod" WVit n1CB2C_?N,W4WY, E!Ae=pk`g8 n Jod2MCAi1vQ@7e~odoPӚ@DAafb|bGrauSP&Ӻa. (GbItQqgibt!QR@rznei;#)ISOPTO-NATUEV,0traa2Dproryl-mO-ctlGoU_g_y[Z_\i({d :-@atz;/|JODCALCIUM-gluHpʰl+hz, 8-r"t sulf8We^oQȝ Q$Bs>OqpuZcqx xat (c}q}LIQUIFILgPolyvinyl[!ư>}1!hzNAPHAZOLOЦNo샷=™UN>O0C]m2!sYOb-s@ mO? lt diˀoRITCCcA&2_OCULO@5 anzinktu$byl~ curibon,Zݏįvl /t/1hlt Q-u@siz r?p̄igTECCTV*81bwp qv,7dP,>Pb?S1!g? guaD$!ZYuqi Ap?flssi. 6`OL p0t%Sj,1p$әhq#B2Ԃ- D-o)2Dtc5aHQ@)`u@iqwPURKaF`er!;QyTbBad@t.mPA4T,#ba#1OTQ]#~TICROMV,_Cromo2iw,%p*aqSLsdv߈ߚߠVZu}Vorbeugckp@ VqАS@iqWȳJG7OTRIVW+Xylo:б_Wil%ObuCyqQJ@COEFTHERA,'dي7Iگjooaen@oZaqi3ThafkrHu̟8wGSOLm|.eOxedrb>?bbPq, Rub/G/ham2/`]ovT[7yB92PERSALL?ERGAn-Ba -?ӽ`F Tetry/?O\/SOyOKĠOVApRFnwass(*W(Pڀ.Dur_𻰙KDierEg0[^komm߲_x~[IDISEP+PimtPVP/E_W_i_?ODkdvƔdVISUPHRINEAescuC 1v2I G eph1LaurOyldi:әzmc# -?|____ooobTREOLENTDof!_$SKae@84pds$>-nH1CUgtφ/?nOʏ܏E&9U9(e1h2n5x9bt)S7VI|`p ANTIC.AUGROPaF 1-;tTfx$s̷ e Ir e {YXI*Z 1Cziю.qMIROTONExtrAautAdڠt*Maiglck1lear,MeerzKbe"aG0rahAؠhocs3ESd s0dardL_b0da+ nW0 Do`d, gnotL! w.SSK@OS:Mele;ataegusK>4carbo1"0o! 4`ohphos/Uikoot-)Map)s~ et3t/Vielfi5@Nn1|%HjPaEn,lagqNe`lsuQ Ndsau`"- `&һEch~PflanzװX;n mBn%3$VdCARDIO LONGORAL 0V-:qm#-aspar0-r2eo3B6,0 EӶpDa?rm-St?RPulsbphlOeuniRSf/)Unru& so8AՐl-2*1K,`-qDK)w1&>ohs d5bՑ-dz + vorg @**#=|rHp(MCOR-VEL9 Bal0arH~SolV)WeidorLiquidumߝԥҹL%: !B4- K1 :E+ z rnljn$žqB/l2ڐ aMњ1Fl=a30oideh `beqhrt1&ShW³eB|0`32k%͑7apЄtz"Dᣤs*RANAEZYMAP/PtPd@r~!(PqReL$Pig,Nwsl*rusn"A hXbet lYFD NutORTHANGUOaf9gp'PSto6`p ,naf{|ߒنZu֑ihsforxUsgi~9-ZIRKULKnobl!j Fq|PerlҪbetat nachg0e`Rdo4PUR sV snAgqsIu.l eriosk4oEG-#rBETADORM-AC@=790^xRablep #. ?rhythm/@.M*esRӠ"rI T@A0T\P ¢pihikum(@p01)~eerrVsmAffDSTAN0i-HCIooooX:i,>zN>kurzz;anen!r`IGOAr Gua"nhLackt*i/ASewGwP|m1 1unÑ#=~VIVINOX SCHLAFDRAGEES+=OaszBOXOGETTEN SNor-Eʀdr DEq!klDb#@l- ]`mu"03@X`ap!Abhng3 (S t!)OO*C]KD3 h Risiko"ZA abٰP"FUĀq//%/7/|I/[,DR.KOeWEIZENKLEIE@)K`i39D$1}P4dmu9r vF/lss#SeWRҀ PЃPfA*@?Psa`t@!ѼQ,PPdPPtet`R1weurwnPlzuPf@c#Eo 2ckmᮀh VkPbN``GemsOɓ fa)sqpe&`h!RECATOL{L-r), Vie B1, B6, CB4rdkapЈ///////??*?Q׀5PQ~PbarGLUTIAGILR%oja-LecitO@Ktrp-ophospha.#, T4`k%,Bhs OQQ E)7atzLe$tfWQwoh lh@q%ĄuR2B)PaWEi{P1JtVPrPpr@SB@Pgraf`INDOVERTU@&*Myo-InPT,PD-pantyoXP, KuP_r-II-tEispIII,`kobal}tglucoSor u.v `yt)tUnrudPbe.hJ+` RS qbsal3-Q3an@ Inz`t~@ BuR󐤫Zeict =lS WHOe0ArznOPrxvJAPANI`E;S `LPF `w0LMinzlOQHWpi/bSHSFF@s"f.ޡesEsz>*DbK&aknBSuPOBqTcaР l)nau Q@yErfolg QtPENTARKAN=wplexZX!djeifnfz4S%zTd0pz"BW$,?|.("T '("?6sv:Aaαnp0hmtAJ#-Xr^RIORrHirse4#QfSLg-CyC|@denp@neptsL؀mEҟ@c*s Indik^4QHaa|sf͠OsmSCANDICArMpvacPolidocanM yl-4-xyyz!oҪRfTJuckE/k @lagDD@ar?atuy=`@B1mSз@s-t UP! L[38P=V?YMBIOFL?OR 1LA5bXRAuyԜaB1rj(S[ptococca fRalis)qnrs @ \T]10h 7? pro mU00K8gisr0ĭRH2je\g7atMBt"5iQMз wӢ5A`krs@*#-s5"ۖbd>@-W, nP^0}p6va.p /qONSILGON.cJEt 5zg@imy ӡstzWUCԇƟ؟K4FnaVs|P empf`@dBPHg %e ZBehx l+Infe Q0sR/qxMANASE{om1lgvHmp1s-g>%!obwoh0_G{`J sT1vzpgest@QbR@h۠!i!mWq"%}npr abk^cdQwBOB_ENZYMnpD^DPapE-Bhymotry}p@,AmyUDtG1 ƣFqed rD& &қpB9kSol"np0ޣpͰzhrAaTh_boseCR)/;AQymQAFUORuu`rflou@.rAadKZCah+CnPgeP'@FluAA0p8P*awckmigN860t@nv\sPrs@z#starkֹmĀd=VERTIGO VOMEX,0kH6,0d?, Zpf|Q//%/7/I/[/m/////(xdB%b0jqfcP r*R90->5/%11 A=Ci,rli?{???????? OO/OAOSOeLd(`DBD)$%,2zQjInVsxr&(-rpZkHDyQgЮTsdap?i;ACITHAEMYL67ib KrA.簐i{ClsGazlSaWߒzP-, ss tb/Wӎgei7? (Gefa gSec u)N` ~QfyTe'j(&Ztx BETAISODoONAXyv[n-JoLseSǣ4≤utj# oz г"SBilddrFP%=ADe#snemC9snbHZ6t{wBRD- U. WUNDGEL-MEFECetylpy`umBvet{hoCHarn,q[},,n=rAZH{r!鼕.{QV`>~DESITINda;Zinkoxi`:P PuP֙l>A2oleyl`]dnsprayrsR {x;wR"gwr;zQs0wFLINTthrcS0Hexop`mkopp@Akrt),uMRa prhbbDOrsismNervUwN{Qs k/w@HAMETUMHamaa@s-tilgopȤpfl". 1cbߎ!s}uIL"ECgy=a[x{tGColkU6G[SUbGT=PtP,|l, TeqbdX9p9/! @`nJP]ŒwYDQAPnHېIMERFEN NPjs, P`ylqus%ibo!OWAQT罴{a.Zַ_ZDanーƅ"B0utwzːna@?mHMIRFULAN w>RaxP=sEe A, D^0L8@M_ϯ`Ѕޏ.txɜ|@wo{RZusatzqnflCssېc5pA2ntoiE=Levo!0¬3,ЅֆaGrBhȀmՏBW rgrofld`!!qPANTHENOL-RATIOPHARMxFԠt ,ƒЏ2pQ5PtehrIBaW ‚BPԯޑbc%PERU-WLEN4Twu20.W-diY-$1O&'Pe-ru'bal Ewreiv h#ufے߶|}PGe@wcQ,*LPsP3xP65=4ٴPqTYROSUR?`hricШ+Brf 8C a]xyuU粅rc?`T52pР$R"[ursetZRСag a=F eP<\P<reag`%֔gQAnP~c_Einqstibiotikya&u..$t-4Gripp111 lsp`1218Hu9QT3023{nup倖T53215Ab㱖T7428M-Darm-B21_0226mfH0ܖUP7Mfr &`I013522Y6157Q4EiCprp 51_6920'`n ml-Plg89QMul:0{h202_`7kg22PQankW24C`4Hmorrhoi߱2v`8KraPa`77TQVP6Hh~au!& WaʫR3`5Qrs\X f331QEPgng˰[h35w`Klim~@um3613Entz dexoȱep4PZyklussp6qva`(dBt~q7P6A+qʼU8 p7v4194`|lafuE`9snk!t4Tp5S7Q (c6Qbelʺ24^`36u60@`LTBARKEIT:Arzneinߐdp<as-ĎdatEspС'P 32e0alFuُ"ofornemKQkuD"C PacZerk$nKsSzېp0W|MedbP|Cnk(Z1d. ѻo@ri`؏1Be igr"}!ͱvPDspOp*rmllk&=1Mto - \0X"n btɯlaAp@ekK RckUkJPqG~dor !@ofȯuFÐui`!$ertril~ @ @FM@xw}Kapsw2De's p805ptϻTableSz*ӻUgϲϖ+qtD6%etw7a vP W ǯ٢4:Qu te,sxsbvFo2r2"dqėliB؄} BQsovtP8irR/mhn0e au1I!d@OlNas s_AUFBEWAHR?UNGSORh m!bewE 1iր2mfrh%^lRc\uDEBpzimP3y02O//aD8onkr1RLq W ձet GLhNcw@2@UQtAрq0lo $f~I0: Zpfr2%Kp!F, $ZY(@pjzlS/Aen!)遾/i1/la L/p>zipie#߬ɀݣg70œ/leޣbu Ponb7P/'Phő:P)/F#BRAUSETABLETTEiDies!a@ޠjps-m lkCp?lrKoh`suH PW$!Ɂuf,Im o@gem@ks2@raAɃ?줐1 nl0ale,?I/JO\O1OOO~ODRAGEQ4?SB)l1RR,ERFRKb$1mO{@ le;L'L3___i___^KA_PSELN? Hi"fs6^iEr `at}`-HຠP$!feuO遨 #ȁdurSper֏Y#rutt.WvoS<;oڧgeffn79.W1EeNcoHq1Mam0Nt /cX>Wo)3a0__AUJ5VX1HIE SFhWZuau1fb0ho=ib` Ï΅LUTSCH/lY2!s9 MBPASTILL& 0M-R0enraBzIՏ`8hrsgebieޟŖNASENSPRAYWdӉKPЬr0`=h̗r vWe!RAnBcN񷐖f!rR>qݣme 0Mo G tei˟$PVQ4AktBEïY"Pihr. wu\1)oS*QvoApotheKPEP0 Ah ltX12.R"KЌєreX4^?9Ϛ!b ab q0wϭRI0RD-cno2p d?"v2"i20cnu"J-Pq-Kanal@p0o!䮲In`s"Tzٰ2Hb0Dad4ڡa!f$3bMp3l yZٰ~, ofȠ&tthi:&gWengdausdrwcketwY"Ӱ ussagtWѠ ?etard-E@l:]!fbk 0B`` sWda`z"Ge_.h !d"Krp(MpUq3Sabuvt ~wec`h} u%7[mTJ;Y#` @Cb ? Hm1A`xp︓"4OXj?ZPFCHFD|zAi0)Q#~melzbauIF#@]mm d@02I /ndհ# ilz Ҟ!Lv0lX@ne`wpYq`` Blu/Bٰq+K7urz2Ane`z8(Q/5qauwQp5brea:!?nub"emOr??EP`(om! sd}????OO>EINNAHME-TIPSTMedika YnotroJP`IQVЍ8 nImHnyspDazud2MFAaaltOKrLٰ@&1#WY@mg TeWKavS`Fr!saf Mi$JsAlkohol*"ag\eܱwAbO?`erri`S$ѴmM@zin.prgOh, QnOrigiprogramm-|Q ha;tdЄBt.|SW`ha!KVi/rus|UqIWskT/PH`Y!A4s O.K.!KڡLinkvaPT]fSorry9#liegtla% $i3ѿtesʤ2 N@ZS(zuzg+PNN+Portoko n)&o!4dQ"@NQ@VornmS]oOr-αϨ,U(/)UT@ft)f  >t.H,,R X,x8rRt()7n:8$$  =X@V,T22d,^..@ &ZRDLBb(( *^X  0з 7 Xؾ *~ f((@4]^'q0!78!9Z[!\}~!!!!  ! ,-!.OP!Qrs!t!!!!!"!#DE!Fgh!i!!!!!9:!;\]!^!!!!./30cd3e33qq1233fg3mz{ | 33&'3([\3]3q 3  3  D E3 F y z3 { 3  !  !  2 3! 4 U V! W x y! z ! ! !  !  ' (! ) J K! L m n! s u v w y z { } ~   ?  ?  Y Z? [ ? ?  ?  ] ^? _ ? ?  !?"ab?c??$%?*,-.01245689Oijqk q#$ 9STqUnopq (JKq"Lefg 0aN !C = 1H %  %  :  V%  r   %  g _ C :G t    aLH   / !E #   6#   R  n#    #   #   #  2 N# j #  #  #  .# J f#  #   #  % aP *D *3F3b3~3 EF  D    3 3EhF Dq  &  B3^3z333G F  D33"3>3 Z 3 !6 A + v & a '&& & & & & :& V& r & & & &1,@ o@ q@ @@@ @@6g 0 aD g A !M BR>n>>>>> > > 2> N > j > > > >1E @& @(@ @@@ @@.g :H08J+f  G  '( 01+*Fg % 01b+~g  08+ & B G   '#( 08^+z  g   " j#&()"+,j,-r.J. B.. BMODIFIKALST BSTAMM22 PRG BSTAMM22 TXT BbVm' ' STAMM(baum) - EVA von Stammbaum-Daten version$="2.20" ' (C) ONKISOFT 1999 - 12/1990 bis datum$="26.09.1991" ' ' *** Modifikation nach 2.00 ***: - Passnummer-Abfrage entfernt ' - Komplikationen der ACC-Shell mit z. B. CONTROL.ACC entfernt ' - "Honey"-Data durch INLINE ersetzt ' - ". . ."-Ausdruck bei fehlenden Eintrgen ' - Editor-Modifikations-Men kann mit Return beendet werden ' - "16er"-Druckmodus ergnzt (bzw. wiedereingefhrt) ' - Bezeichnungen "Sonder" durch Leerbezeichner ersetzt (weil neutraler) ' - Nummer-Sprung durch "Mglichst weit" erweitert ' - Halb-Englisch durch Deutsch ersetzt ' - @kill_blanks durch TRIM$ ersetzt (z. T. erhebliche Beschleunigung) ' - STAMM als GEM-Anwendung von "*.STM" - Titelbild wird dabei bersprungen ' - Men-Box bei Baum-Ausgabe auf Drucker (bersichtlicher) ' - Online-Hilfe bei Druck auf rechte Maustaste allen Mens ' - Baum-Men bei Baum-Ausdruck eingebaut ' - 7-Generations-Druck bei "Horiz" fr 9-Nadler implementiert ' - Nummer-Ausdruck in allen Horizontal-Modi ' - fehlendes Redraw bei "Kopie grafisch" ergnzt, "Kg" verbessert ' - keine manuelle Frage nach Speicherplatz mehr bei "Pack" ' - Liste-Men eingebaut ---> Such-Option bei "List" ' - aktuelle Position wird wird wieder dargestellt (Haupt- und Sonder-Men) ' - Endungen ".STM" und ".AHN" werden (wenn ntig) angehngt ' - Men- und ACC-Dreieck im Editor durchgezogen (vorher manchmal gestrichelt) ' `iAON <2.20ANdE`p ANFQN-f*NѨE&NѲ/- N m Ng6NtZ`.prN>/- NynEjpND"m N"m NTNz/- NZN"NN?<NNTUg4NErpUND/EpNDr"_tNR+ANNNuNA NA퀐N m NnNyNg8/-Nyn/-Ny"_N"mNT mNg m"m NTNNA NANA퀐N <Nr@"<NѺQQQBBfp Np NC턨NTpNQE +@ <~AbN$mBprN$m("mbNא$m Э/$m("mbN "@p _N$mR$m o m Ng6/- HxN{PHxNBJBg BBf` p+@p+@fQQANnNNANpNNprN$mB$m 6<$m$rNZ$m qD/$m @qD6<$rNZ$mR$m oNNNN֬JfNuEp NNJVHH/N֬JVHHfNJWHH/N֬JWHHfNNNuNA퀠NN-g mN8`?<NNT+@ m +@ <|Э+@ <|Э+@$mB$m >0l*$m"pPҭЁ @p "-pP$mȒD @p $m ЭN$m R -$mȐN m$mȑ $mX$m >oNNNAN*AN*$m $m"N-fEpN` -fNpNpKNNNA퀼NANA퀸NAN m"mNT`p mNd"mNTp\N"mN8Jfp.N"mN8Jf m"mN"mNT` m"mNTNNANpN NѰEp:ND/NxNdN@"_N0<, N*/N҄NdN@"_N/ < OK Nr"_tNR$m$p$m$$m N$mR$m roEpwND/EpNDr"_tNR$m$aNpNNuNANpN Ep ND/ < OK Nr"_tNR$m$pN NNANpN Ep:ND/ < OK Nr"_tNR$m$pN NNANpN Ep>ND/ < OK Nr"_tNR$m$pN NNANpN E*p+ND/ < OK Nr"_tNR$m$pN NN~+@NuN~/pЭސnaNuNALNAPNATNAXNA\NA`NAdNA킸NAhNAlNApNAtN$mpP$mtQpN $mpgN pN a\Hx@HxdHx(/-LNHxHxHx(/-PNHxmHxHx(/-TNHxHxHx(/-XNHx@HxHx(/-\NHxHxHx(/-`NHxHxcHx(/-dNHxHxcHx(/-NHxmHxcHx(/-hNHxHxcHx(/-lNN֬`N֬Jgal`$mLg N`$mPg N`$mTg N,`$mXg?NDrN`a` @g @gB$mgN$mQ-g Hma`NFpNpNpNp NNEpND"HANE p Nxt/r(NpNfpNv$mB$m Ѐ/$m NdN&<x:<NN/$m rЁD&$m$"N$m Nd&<x:<NJBf$m ЀS"$m N$mT$m rorpNpNNEpSND"HANtMr(NHxHxEpND/?/-NynE}pND"mN/N@"H m ,Nf m Ng NX*Npr m Nhp:NFg(?<NATrAЁNp:N"H m N"m NT/- <.STMN//- a m NFgHpN Ep3ND/EpNDr"_tNR$m$pN $m Uf m Nn m Ng>pN /- HxN{PHxNBJBg BBf`p+@p+@f`NX*pN NNAN-fa`"pN HxN|QBBfpN NNANAXN~AN-fad`HxNBJBga`pN $mXg,EpND/EpNDr"_tNR$m$`*EpND/EpNDr"_tNR$m$pN $m `$p$mXJgp?NP$mP`N"` @g @gNNA킼N~A큰NANADNAHNALNANANANAXNANAN m m f$m fp$m$p$m$$m/$m/N.F$m/N/0$mg Hx-Hx-EpND/BgNXn`Hx-Hx- NprNpNNprNArNͬANCNTN`*p$mJgp"p$mJgpg$mP`ap$mJgp"p$mJgp"p$mJgp"p$mJgp"p$m Jgpg"pJ-gp?pJ-gp?HmN!`$mgExpYNDrN`$mgEpVNDrN`$mgE'pXNDrN`t$mgEpjNDrN`j$m gEpJNDrN`N$mgE3pFNDrN`2$mgEypCNDrN`a` @g @g$$mgR$mf-g0pN /-N*DpNpPNpN//-N*`$mpPNNF$mf$mpP$mB$mxP$mBp$m$`$$mR$mxQHxHxHx$m/N"p$mxJgp/p$mJgpFf-fa`pN $m g /-N+$mgNX*NNA퀘NAN~AN~pNfpNvpN6<0<^t2rdN6<0<]t3reN6<0<[t5rgNprNEpN prN0<rNNHxHxEpND/BgNXnHx HxE pND/BgNXnHxmHxE[pND/BgNXnHxHxEYpND/BgNXnHxHxEpND/BgNXnHx;HxEpND/BgNXnHxHxEpND/BgNXnprNEp N p$mJgp?p$mJgp?/-N!NNA퀘NAN~AN~prNp"N mNp"N m0(rDNNpN$mgpN`pN6<0<4<2<NZ$mgpN`pN6<'0<4<2<NZ$mgpN`pN6<0<4<2<ONZ$mgpN`pN6<0<4<2<NZpNNNAN*AN*AN*AN*ANANANANA NA$NA(NA,NA0NA4NA8NANAN$m SWHH/p$mJgpFgHx$m//-/-/-/-/- /-$/-(/-,/-0/-4/-8N.N%$m/$m//-/-N -$m䰒VHH/ -$m谒VHHg$mxP`$m/$m//-/-N$mfb -$m䰒g$$m/$m/$m Ѐ/$m S/at -$m谒g&$m/$m/$m ЀR/$m S/aBNNANANg p$m$`A"mN8$m$$m f-gA"mN8$m$$m fA"mN8$m$$m fA"m N8$m$$m fA"m$N8$m$$m fzA"m(N8$m$$m f`A"m,N8$m$$m fFA"m0N8$m$$m f,A"m4N8$m$$m fA"m8N8$m$NNANA퀄Np N"mN"H mN"mNT/-a$m g$m R$mܰlD-g$EpND"HA턨N//-N*` EpN pf$mR-g$m aoN@//-N*` $m N$mfpJ-gpSfVp N/p N"_N//-N+>"_Np N//-N+>"_N"HA턨N//-N*`p N mN-gj-gEpND//-N+>"_Np N/pN"_NEp Nx//-N+>"_N"HA턨N//-N*E pND//- N+>"_Np N/pN"_NEp Nx//-$N+>"_N"HA턨N//-N*/-Hm"_N"HA턨N//-N*/-HmBN+>"_N"HA턨N//-N*/-HmHN+>"_N"HA턨N//-N*/-HmNN+>"_N"HA턨N//-N*/-HmTN+>"_N"HA턨N//-N*Hm/-N*`EpN mNpNEp N mNE pN m NpNEp N m$N mNAab$m$$m ac&<x:<agab$mВS$m$$mD $m\HH/$m4 $mD"$m@am,JWHHgF$m4 $mD"$m@al$m$$m $mВ$m$$m $mȰlp$m$$m acNNAN-fan`nHxNBJBga`ZpN E_pND/E{pNDr"_tNR$m$pN $m `N3`NO` @g @gNNANANANANANANAN$mpPN6pN av$mQHxHxHx(/-NHx HxHx(/-NHxHxHx(/-NHx HxHx(/-NHxmHxHx(/-NHxHxHx(/-NN֬`$mgN7"`Z$mgN7X`J$mg HxN7`6$mg HxN7`"$mg HxN7`$mg$mP`$mgEpyNDrN`z$mgE 0<NDrN`np$mJgp"p$mJgp"p$mJgpgEpjNDrN`,$mg$EpQNDrN` @g @gZ$mgPNpa~pa~pa~6<0<^t2rda|6<0<]t3rea|6<0<[t5rga|prNEEp"N prN0<r"Nax`HxHxE*pND/BgNXnHx Hx <16erN/BgNXnHxHxEgpND/BgNXnHx HxEnpND/BgNXnHxmHxEupND/BgNXnHxHxEpND/BgNXnNu/-a$mfHx/-/-f/-N8$mgNX*Nu/-a$mfHx/-/-f/-NA$mgNX*NuNAN*/-a$mfb$m `HHx/-/-f/-NF`BHx/-/-f/-NI `*Hx/-/-f/-NK2` @g @g @g$mgNX*NNANAN*A큰N*AN*ANANpa|$m/$m/$m/N

"mDag& mDNfHx$m//-/-ay/ay/ay/ay/ay/ay/ay/ay/ay/N`|@a|AawADax0 mDay`L$m epaz"H mDaV"mDafn m JjR $m Sn mD`}a| Aawpa]Epay/ < OK ayr"_ta`$m$pa\`{a{Aaw&AHawAavAav$mg Hx@Hx$m/$m/Hx(N`$m/$m/Hx(Npa[pa[pa[pa[a[ mH0(H$mD/ mHt$mԒ"ad`za{A킀avA킄avA킈avA킌avAlavA킐avA킔avxAavAavAavAavAavAavAavALav^APavVATavNAXavFA\av>A`av6Aav.Aav&AavAavA avA$avA(auA,auA0auA4auA8auA킘auA킜auHxNBJBg~HxEp aw$/Epaw"HAaT/HmEp av/av/av/av/av/av/av/av/HmN}jp+@fp+@` -򰭄f p+@p+@f$mP$mgRappaYzpaZ\Hx-Hx- Hx$m//-T/-X/-/-/- /-$/-(/-,/-0/-4/-8N.` mTau& mXau/-T/-XHxHx, -fЀ/NfPHx@HxdHxHx,HxZN$mg>Hx$m//-\/-`/-/-/- /-$/-(/-,/-0/-4/-8N.` m\at m`at/-\/-`HxHx, -fЀR/NfP$mQpaXaNHx-Hx-Hx(/-NHxSHx-Hx(/-lNHx@HxdHxZ/-N@HxHx,HxZ/-N@HxHx,HxZ/-N@$mB$mgpc$m$$mgp$m$$mgp$m$$mgp$m$N֬$m$p$mlJgp/$m SWHHg /-Nsp$mJgp/$m SWHHgpc$m$$m f` m $m Sf$m SfzHx/-/-N$m?*NzbJBgaZ`L m+PAf JjR Hx@HxHx@HxdHxZNHx@HxHx@HxHxN`$m Uf<$mg. m+PAf Ѐ Hx@HxdHxHx,HxZN`La`F$m Wf<$mg0 m+P -fЀR+@fHx@HxdHxHx,HxZN`a| -$mg$mP$m Uf$m SfHx/-/-/-/-/-/- /-$/-(/-,/-0/-4/-8N./-Nb$mg:Hx/-/-/-/-/-/- /-$/-(/-,/-0/-4/-8N`$m Uf$mgHx$m//-/-/-/-/- /-$/-(/-,/-0/-4/-8N./-Nb$mg m8aJaeETp af& mdaJEapafHxHxHx/-/-/-NeHxHxHx/-/-/-NeHxHxHx /-/-/-NeHxHxHx/-/-/-NeHxHxHx /- /- /-NeHxHxHx/-$/-$/-NeHxHx Hx/-(/-(/-NeHxHx Hx/-,/-,/-NeHxHx Hx/-0/-0/-NeHxHx Hx/-4/-4/-NeHxHx Hx/-8/-8/-Ne mdal pra mdra{L mdpnaJ/ mdpNaJf`pa_Dpa_>paO mhaV`n0anvA킔ai^ApaiVAlajfAaijAaibA aiZ$m $m "a0 ml"mpaXh mp$m"az mp"mlaIg$mP`mpaN paN*praN.paNNuamA큈ahAahAahAaiAaiAtainAxaifA|ai^A퀌aiVAaiv mN/ mNgE{p maWpaMpaMpaMpaMaM$m a/ann"maWz$m &<:<a,/?? m0(a/&<x:<a,vaW8:&a-a.j/ mt$mԒ"aV$m &<:<a,h/?? m0(a/&<x:<a,vaV8:&a,a. / mt$mԒ"aV($m &<:<a, /?? m0(a/&&<x:<a,*vaV`8:&a,Da-/ mt$mԒ"aU`kalA큠ag&A큰agAagAagAagAagAagA퀤agA퀨agHxNBJBga`*$m fp$m$p$m$Hx$m//-/-/-/-/-/-/-/-/-/-/-N.paLlE~p maUp(ai"maE/$m a-al^"_aE0<) aH:"maU\p|ah"maE"H maE0< |aH"H maEEpaGJ"maUpaKEpagr"mtaN$m$$m SfHx$m//-/-NR`a`jFajAaffAaf^AafVAafNA|aeA@afAafAafAaeAaeA aeA$aeA(aeA,aeA0aeA4aeA퀴ae4-ga>`DEpMag/ < OK agr"_taN$m$paJ/-NynE}paf"maDZ/Epaf"H m@,axpaJ m@a|Ng ap$m|Q`Npr m@ahp:aEg m@"maD"m@aS/-@ <.STMag //-@a m@a($m|V$m|gJpaJ"Ezpaf:/Epaf,r"_taM0$m$paI$m SWHH$m|V m@a{/p$m|JgpFg m@a{gp m@agraedr@a'~/pa\o.Epmae/Epaer"_taL$m$`paI^/-@HxN|HxHx/-/-/-/-/- /-$/-(/-,/-0/-4/-8N.Hx/-/-/-/-/- /-$/-(/-,/-0/-4/-8/- N}jHxHx/-/-NHx$m/Hx$m /HxNpHx$m/Hx$m /HxNpHxN|x"m,a~ /HxN|p$m$HxNz8a(aM`0Hx$m/Nd$m raja>a> paH$$mR$m o]HxN|p+@p+@f m@a=paGE gp$ad/ < OK adr"_taJ$m$paG`ffafAaaAab~A abvA$abnA(abfA,ab^A0abVA4abNA8abFA4-ga`paGRE p[acj/ < OK adr"_taJb$m$paG$ m m$ fBg/-a4 m( m, f m +P m$+Pf$m, $m$gX$m$/$m,/Nr@JBg>paFE p6ab/Epabr"_taI$m$paFat`Hx$m //-0/-8NHx$m(//-4/-a`/Epa`r"_taG$m$paDap`ajpaDz`c"achAa^tAa^lAa^dAa^\A a^TAa_Aa_A a_ -$mg a9$m /$m//-/-/-/-/- /-$/-(/-,/-0/-4/-8N.$m//-/-/-/-/- /-$/-(/-,/-0/-4/-8/- N}ja9paC$m Rf$m/$m/$m /NR`$m/$m/$m /NR$m /$m//-/-N$m /$m/$m/$m /Hxa$m /$m/$m/$m /Hxa`aaaA큐a]A큌a\Aa]$m $mo"m m""m m""m m"$m $mf <r4<`aH`l$m d$mS$m WHH/$m $m^HHf m JjR $m $mg`$m $mWHa#``aa Aa\$mPNs0``aaAa\A킬a\A2avp ~A2asE9a.|$mB$m("m2awvaw$m("m2awdp-a`Hma\Et6aK$mQaJ$mf`A턺aH`_paK.SfaNJaKpaP$mPaN6Nua_Aa[AaatA0a[A퀬a[tE +@p2<aav"maI m "@ < ma-Ba6baVpra@pa?pa?pa?pa?a?E zp a\|4<2<aHptra=p4<2<a=pt2<a=p4<ra=pt2<@a=p4<2<@a=pa?HxHx{HxNpaopa?Rpa?Ppa?Np a?La?TE p a["HAa9X4<2<aHDpaodpraoE p3aTvpraotE paTbpao6pa>pa>pa>pa>a>Epa[n4<w2<maGE pa[V4<2<maGE pa[>4<2<maGp2anpa>HxHx{HxNHxHx{HxkHxHxNHxHxHxkHxHxNHxHxHxHxJHxNHxHx{HxHxJHxNHxHx{HxBHxNHxBHxBHxNp2an mtUria>HxHxHxPHxxHx#Npa=pa=pa=p a=a=E 4paZ*4<r9aF <"<aa`pa=a3$m$$m a/??$m aaE&<:<a 8:&a&<8<:<a a"$m a`aepa=v$mU$m rPl m0B0 <r4<z maCfl <r4< maT&<:<aaD| ma &<:<a&<8<:<aaZ"pPa`XaeNpaaZAtaV6 mtaWarBa0@-g4pr-a\""mtaDar/ mt "@p- _a' mt`[aZAaUB+m+m `NaYAaU$m aN\"-a%~a,`Y`$aYA키aU2p$mJgpFa`YjA,aoZp~A,alp$m$aV$m("m,ap$mR$m ro`Y&aYlAaUFpa:hE :p%aV/E _paVrr"_ta=v$m$pa:8a|`XaY"AaT.AaTAaT$m("m,aopaWaUrA$m$pa9E fpaV/$m rAЁaV"_a3pE tp;a5/ < OK aVr"_ta<$m$pa9`XDaXAaSA퀄aT+|pRaV:/ - m$m""_a,j$m aZbAraZxAraZnA$r aZdA*raZZA0r aZPA6raZFA"m0a;ANaQ."m4a;ATaQ"m8a;$mP`a`$m/aZ$mB$mg`Q aQfA8aMfA4aM^A0aMVA,aMNA(aMFA$aM>A aM6AaM.AaM&AaMAaMA aLAaLAaLA킨aL$m/NVaV$m$$m f$m("m,agta*g$m/$m /Nd mCah mCag mC$ag mC*ag m C0ag m$C6ag m(Ca g($m/$m /NdA`aH>$m($$mP`a`$m/a($mB$mg`JaK6A(aFA$aFA aF2AaF*AaFA킨aF$m/NVa n$m$$m fP$m("m,aaa Dg6$m/$m /NdAZaG$m$$A`aG$m($$mP`a,`$m/aj$mB$mg`J2aJxA큀aE`A aE|AaEtAaF:A킨aE$m/NVa $m$$m fB$m("m,a`a g($m/$m /NdAfaF$m$$mP`a`$m/a$mB$mg`IaIA aDAaDAaEA킨aED$m/NVa $m$$m fj$m("m,a`8agP$m VHH/$m  VHHg"$m $m"aL$m/$m /N.$mP`a`$m/a$mB$mgv`HaIA aDAaD m+P m +P `HaHAaCAaD$m("m,a_tpaGaE~rA$m$$m?*?< NMXa `HJaHApa#pa#pra#p$mx$"m ml"`$md/$mh/$m/ap$mђ$m l$mxR$mx Uo$md $m\$mP$$mh $m`$mT$$mP r a$mp$$mT r a$mt$p$mx$"m md""m mh"p$m$$m/$m/Hxa`$mp $m$mt $m$mR$m r o$mxR$mx Uo`BjaBAjDGGe GbFGNuG GbFGNu~Nu 24HjDBaDBNuBe B/dAрQ4<`BNutNu $HkBk Bj*DBNupNuDBBkBjDBDNuf gp` 246jDCCe0 C/jC C@j C jr0H@{0>H@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`xaR`aL` 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` <r4<NupNJBktNu@AB`&8:~.gNa`&8:` &8:@ABJBgJEgJAfJ@f<jDFF Fdx.HGއQJGfjHGH??UGgkte <r4<` 24HL&8*a dgHL8a`L8aTJ_ k:NuH 24kBaL8a`2TJ_LkNuTJ_Lja&8* <r4<`HL aJBfL aVgLJBjDBa8L8a@a2DBNuLJBjDBaL8a"`2p` 24?o4<&8: 3f AcDA@Aр[SBDBT`SBAрkfJAftTSWa>H&8:aH&0rHGGdHGGdSWDуdi?<>0rHGGdHGGdSWDуdi2?<>0rHGGdHGGdSWDуd&2 H@kփAр[SBkփejRAd RdQRBJjDBNutNuCEdSW`?<,>CEdGeH@0r`fJCgz?<0rÐdSWЃdi?<0rÐdSWЃdid?<0ÐdSWЃd&2 H@kփAр[SBkփejRAd RdQRBJjDBNutNu?<0riP?0i?`?<` apE6JgP8`LJg&B.C`a8aD*9Bfap-I,=|p4aHz*9Bg ENp96` _a &nO:NMJI K $<Nu[1][Error +111][Return]E  g g>Jf`Ar Hjr-D@Hd0H@H 0H@0CNuAF"H [1][fSEfNu`HQ?< NA\Nu@$g\kdHfiHNufnpNupNu"lDaDNuJnDaDNuzxeҁ؄d`ef Nup`z@&gTkdHöfiH@HNugmNupNuz&lDaDNuJlDxeփ؄d`efNupN"_K MJI O:HQ <-H*,`N,d d3 d# d# # d# # # # d ALH dAL H LH d AL`H L|0H>L|H>d~# # # # A`@ALH L|H>L|H>L|PH>L| H>L|H>L|H>L|H>L|`H>L|0H>L|H>QL|Nu$H$&"BA -KaXA"f B &nNuH>dd2d"d""d""""d LHC dLHLH C@d LHL|H| L|H|PCd~""""C`:LHL|H| L|H|PL|H|L|H|L|H|L|H|L|H|@L|H|pL|H|L|H|CQL|Nua`Vp?a a?<LNA``NuNu`aza`aaaHA-Hhp alpMah=@F?<NNTT@A0r p0Q`pdr ta0.F=@=@ACp,2QAp 2Qava`\``pea>pCR2Ad0A2r22a"<0<NBLNurt=@:=A@=B NuHz(` NHz ?<&NN\Nu9OgNuWONu|^|  R^,T:&0D4(*<B$,>2::(   F..26"8@"PQ1!P1P!0PP`0  q#aaa "a O: n*N``NuNuNupc?a0QNurdAd6Ag,B(dB(dH Ao<a!toBAp`)dNuNu?<OA`d?<IA`Z0<H Ia*fLt Ig Og Ug Ag Rg,afNup`a*8p`0a fHRa*>Er$Wgr STD:gr COM:g r LPT:f4FA$_0=@Dk"~CA0< Bha(B2"pNu$_AF Ge><QBAFpNuafgzp=` aZgzpa(FAHPBHQ?NA\ _Jk"NuHz `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<.aJFkSFk4arQa`&HaFFaZQ&8*L/aB,H܆jDBJ.:gtBn:Nu @$@JfS a#(`QNu$Aa$ `QBNuHz*al`Hz a#H `|HPHQ0(ika" $I _a#IUd4Id4Id$Id `$$$$Q _Jf,a#Id4Id4Id$Id `$$$$Q @NuSa#hIdIdId`Q @Nup `/ a#0$I> _a#&G` VNuag`af`ae `ac` acpNuadpNu/ a"$I> _a"4Ae4v` VfANuHP0(R@kBa! $I _a"IUd4Id4Id$Id `$$$$Q @JfNuNup `^a"rSAfNuag`af`ae `ac` acpNuadpNua">SAkfJANuH HPhkJa!0 $I _a"IUd4Id4Id$Id `$$$$Q @JgSL`QNup `a!ҰAf` VNuag`af`ae `ac` acpNuadpNua!4@m4v` Vf@Nu?HP0(T@kHa ~ $I _a!fIUd4Id4Id$Id `$$$$Q @Jf4Nu0XNup `a!"UAfQNuag`af`ae `ac` acpNuadpNua SAkXf SAkXfJANu|H`|i`|l@H~|`ze`z`zd@H>|`th`tpa ".Nutj`t@H|`rk` rf`rg`r5=@|0`t)`t` tr`t2`t@-A=B|`v8`v(`v-` v!`v `v@-AH |`nHAHBHCHDHEHFHG-HfAD-HH@-@H|p`@z`z `z8.^n\Dn\@Hp tr=ED`n\n^HB=@Bnp rt=|D`n\n^n\n^A0000000000prt`rn\n^648HH`prt`Nn\n^n\n^8HH`prt`&"_A `4RB`"_A42L\A` L0GF11Q-p`prHQ`Bp'rta n2rt6(SC0(S@apaB\papava0paRG=GYfx-IC=C=C$tBft=B=B(tFJ=BBBB*Do>Eo:@l6Al2DDk =DVBnDEk =EnBn@cVo Acno,_NuAH`/=@a _a]Ak024E$ Bb5B5A6CC5CK5C:8AB0000DkxEkt00A<:d>:bSFSGFn\GnXDDk0BhDEk1EBh Fchh Gchh0hb"0hbpmrt-|pH-|L`:Nu-HN?<NNT-@XDbDEbEBb=ET=DV-|PBLBp n20(L=CJ?=B^C=C\=Cj@drAdnED??RGRF=GF=FHtGJ=BltBft=B`=BnGOpЇЇ b naH222-IfHVMF,_Nup `LT np` ??/ a>, > _a44$FAFp_@[000][vx`* [g" ]g |g QSx` xQSrQ][vx`* [g" ]g |g QSx` xQStQ]BAF0-H,=@p4ab2HNu 24DBaDB11!Nu 24DBa DBNu 24x6o<Ce(FC BdЄeNu B/dHDDdRdQRBNu&<:<`ڬg BbUC BcjNu BcHDDdSkg RBAрjNuNu0ftNuB H@"jNu Lx6oFCe0FC BdЄe!Nu B/dHDDd&`A*p4. g=BNuA*pBQBX".g pahBNupraHP?<NNT~U@g~tb3AOpr0 0BBB R@ @fAO0000PB0Tp`00000\0X0Tp`T@00000P0BXpnT0raVA0p1| 1AQBX0$HTH0P P0Tp`0NuH(Fa$L(FNuSk [0NupNupa`ݔp>`HPaa _&X Pf/|~Kbzag @ ep 2tCO"2 S@HQCr0ػR"_d BTAA3ApCO4$I2a222B"0@2A\xva@gF2#M 443BS@ -f HQCr0ػR"_d@BAAb8RGRC`3RSG5G5C J1DcaRF Fe `RG GdNuXAOSF1F41R1h4x1EDg"<Op-A` n"g(t( f h fpH`aLRB`Nuaa \p-@-@(-@4-@@=|LpraAFGH 0000X0000X0000HSG~2gtLx0a Q&_NuSAkA> A1@H<`Lp`Ha-_\NuBJAgLPDEFbGb?HXaL0S@k@> APr"G0(JgRJ)@g1@2fJ2HPL<P0a W1@A00 piaX=|@piaD _C""pe`,?4<6HPa _2tLx0a=n|=| pia0.2paH\P`PH|SCSDABH0`DS@k@ A=pfNup?a0QLa`S@k.@ A0gBP=@a>pgazp aJ@fnpahQ`B\Lrt`vNuHS&I. FVa8.:.L4.RBĴ@cBnaL4.RBŴAcJSA=A`@pJ.afrJk8 Eg,2. pg  qfL=A=Apjrta`8a>`2 d. Vg" gt gZ gn fPSnjBn`D=@0.n\=@0.R@S@n^=@prtaߚRn0neBna(Q>j4&_NuBn`?<HyNM\`Rn<SFEneSn`2NuS@kD@ AC0g.?a$=_p 2.alL6Fgavp `p`p`pNuBS@kl@ A=Pa=| phaފL`4p-@"<$&HA-HH-HLBnpmrt`ޒHz ?<&NN\Nu n2MJFo`JGo\H 8N-@-@ p-@*-@-@ H0H00(L=B=B&=CC=C=C$tBft=B=B(Nua`Hz ?<&NN\NuL n2M(8N-D-D x-D*-D| J@jpJAjrRBhe4(RChe6(@otAop=@=@NAXOJkpNu0< aH`0< CF2p`Zp a2`p CFp`Fa CF"p`8Hza`Hy"J`$B.@=|DNua.@FpAR@C` @H` @HHyaa0"H`Hy`Hy 24`@H` @HHyaa"Hav`Hy`Hy 24`aX`$aR@ApDrAeA`?a0J@g*?CJa@p0g?C2pa,SWfTNuB.@=|DNuB.@a=GDgNup`Ra`aCF"E p`Jg$_a: HN$_a: HN$_aBHN$_a؄BpHN$_aB0HN$_axBpHN$_alN$_ab؄N$_aXN$_aPN$_aF 0HN$_a:؄00HHN$_a,p0HN$_a 24N$_a:p 0HgpN"X I"_(*UGk*<(؆QNp`p`p` p`pJPg`0$_a!HN$_a؄1HN$_aHN$_a 00N&8:` &8:@ABHaNL8atL8 DBa`L8O <jDFJEjDEFn ffAbtNu&8:a϶`&8:aϢ` 246jDC C b H&<;)8<\:<aapHaVR/@L&L8a>&<x:<a&L8a&8*LaΖ&<x:<a&kCk4(g8HP b6 a^$_// Z4HQ`S@Q _Q _a, _Nua$`p`AFtЀvQBNuAFt0 9c^QBNuAFt 0QBNua`a`aCF 0gS JfS`p@a Acr `@a A cr `@a\ A cr `N$H`HaLHP?.d=hdN=_d2 "@$Y4Ad2`0Q @Nucc&$H0*a$RHd2Hd2Hd`""Q`E"e a6"b^ BB& &6 Nu@`r ??a"P02R@H`2Q NurddAgH=@DNupo`fap(dg@A#Nuz$@`z$H( y"X20X` X4jDBB]An@bJEg J0D@` v Ja$y"J?HPpiaP, &R$t4*vB5C(D'(#8J`2Q"2&FNuaB`a`H "R~>Cx"c a"b(K&JHP~"S>/ /?.D?<?NAO _JkѨf L"[6\`$Y4jDB`Q]CnL Nu&ZRf`Q`a`aH "R~>Cx"c al"bj(K&JHP"[6>X L` $Y4j DB`Q`&ZRf@`Q]Cn/ /?.D?<@NAO _Jk$ѨfL Nup`p`p%L `taAdgHAAHP P (R` / aAdgHAA HP$_ R2 S b`v6a2<<.D>HRa $_Nu<>Hz?<&NN\`t n2LLJFj|@c<JGj~Ac>02 h|N n2HHNu80a|DHz ?<&NN\Nu| n2 h N n21@Nu?AFBHP?<GNAPAF `Hr ?HQaf _/ ?a\0 _4gSB@c:Ad,J@gB@BmS@,. RB6Vg(R F"GQpNufJ@fRB`fS@kVft0HNua`aJjtNuaRHPa pJk NuCg.BJ@g  g &g, $g %gN^NutNuRpt`2Rpt`Rptr ae OgX Xgn HgSRB ae Fb$0k  c_  c b退`tSHkaNuRB0 b b瀀`RB0 fрd`a\p`aTp`aXp3BNu>.D<jRGg>VGg:TGjp`ÔHPa0CF$IpR@  f _aZHd2Hd2`"QNu`<.DHSGFaAEg f< &_Nua`2Nu.dfa B=n`r>.D<jRGg.D<jRGg*VGgTGjp`v<.Da*`" y faa` y f aaAF "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`F<.DHSGFa ,g gAEf< &_Nu ."Ff +"g ,g`?<%NNTNu 24JBkCkNuCktNu 24JBoSBNugRBNu2(gbc  P"H`Nu/0Ha2  _ PSAvjx E(Wf* ae zb Q @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`Lja(zEfpadppa`AFEg0PaEfaFRE`ܾEfp a@a8?nnnp a2RF`<aȼnnoS@f nhfSnl=Ah=FnNup` papq4.rf?HyajNM\Nu=|DHaLLNu|A0"P2(@e2<EF`QHP=|DJ@g$abAF$HpR@ 0 f _a|`QNuHPp?ap a _2<|0`C&pHQ/Hy@NA NuC pa:NuHQ/Hy?NA Nu&g4 FgagJAga2< R@AdSf0Nu0ap Ce`&g4 FgaJBjagPAe CbRa R@Sf0Nu FgRang JBja瀰AeaJAg RP0 pNu` Fg6a6gJAga @ea@RP Nup NHѨB?<?/?<BNAO JkLLNu&8aJBjaJAg Df*ڃkd0Nu DfրBH??/?<BNAO LJk!@NuHBHh Hx??<?NAO LJo ѨLNuk:fp`^k: g ѨNuBHPHQ/??<?NAO _JoѨfNuBHPHQS/??<@NAXLfѨNuJkp%`,B9u`$H Ea"Au AerQBL@͉H Ia("H _/ aa _/ ?aAF-H AerQB2"_A&-H A e ` \gQBa9ugaZe -|up[`pZaajAF"H0.g "Hg \f`A&fS !.gR EF _a$`QNuHz?<&NN\ @Nu x NuA@Bh`תA@a״ n@!|}Nup#Ffp1Nup`p`#BNuHz` Hz`Hz&$A?<&NN\NuNu4Nu$Nu(aŔ؀.dfaņjNu?a0` ?a2@@a ` a Nu4.`Af n2LR@RANu4.`g S@SAHNutbpbr??pa"pYa0a0`96HHNu98`D@v`v??NMXJNuJ@k??<NM"UAf J@fH@Nuapj0fpNu\@`a\`]@><CF Ipa<0HNua@`]@><CF Ipa Nu?|`?a0R@f|0aHJFkHPal _Nupo`THSHP&I>g\SG??<NMXJk Q _t&_Nu&_`$pt`pt@S@kZ@Ha8L6BPAr E=Z=A-H: DNexMQBB*gJnf݆NuaJANuag `af`apNuapNuC`C``C` C`C-KJhfJfRRRRRRRHP? @CFH~8:E#P&<2 `b$bYEf`"RAf rЁЀ`&Ѐe "ЀeЁdp`JAkfgRer?DDЁaAa8$HX :CFE` YEjT"_$P"2trDDd0d d d` QjNu`haDa DNu na^ K"ng42 $`gk2&Hg Af deђ$`ebѐXf&nNu AgebѐA``-Kx$ n&$n""Hg8" &Ak cѐ S`g"" k#&Acё2+SAI3 Q&f-I"&nNu-Kx$&ր n&$n""HgR" k&Ac b S` S`g4" k#&AcbrkX`ޑ2+SAI3 Q&f-I"&nNuaT n2L6(n\n^HHHNua4 n20(n\HNua" n20(n^HNua n20(HNu`aZNu"H YJQfNu YH瀀aRLP|HPGC&֛֛֛֛֛(HDDCBg6Cv6C[RCF8[[[aL6C[RCF8:GFWfTL L-KA `L$I\bfBjQNu$YbfBjQNu؄*؄؅CH`Ӳ؅X`$_  IadYHR"H @`ʘ؄*؄؅AHNu؅X`$_ Ia.YHR"H` n`d$HJf-HS Nup"`pHPa _aF`QNua JH aL0Nua`B4<H`@aPL Z0De2SCkÐCo@c2`QNu$Ia" Z0AcA`QS@ QNuHd0Hd0Hd` QNu$Ia Z0Ac4ASB Q`QNu .*NuzQ`z ` zn`z4=A|a-IHQB0a _JNuz"-A=B|an-I`H.gZ <r4<?k"SWgaZ`TL8Haa((>,>:ll `l`򒒒 l nll`򒒒l .**> ?zb?g<\**R,p$~~$~~$$t\Hfl0fF ^N |Ƃ|T|88|T|| 0`||BBƎbތ8h梢| ll`xllnl8lƂ$$$$$$l8@`|z>~~>l|D|8|8lƂ`0`p8||`|zfdL  88`0 0``0@`0.**>"">>""">"">**: ~=%%?> >"6">>00>>> >>"">??"">>""??>> 0:**.$ |~""<>>>8<<88> >8"66"9=?>"&.:2"||0``00zb8}EGl( ZښDV^N**V<%'$L^ZH** Z@RB@^44>>j".*>>*:>~L^^L R \^^^B""<$~ҒB>>?Ғl"~V֞^ނ RҞ Bž^P^D]UU}<8}EE}8YQ0iӟ 6jߟ__8lֺlƂll8DVLR =~JR~>*2>\>">>*:|ZGZ^a ` | p~ý~~ý~`0`$l|0|lDDD||LX||@@@||@\\@@|<@||@`|\@||@||D||@@ppDDD||@D||\| d|<D||x|D|x||||ttTD||dt|l^^@|x@@@|<|||||||@||@~~@@@~~@||DD||ppP@~~`p~`=g@ 0`0 xp8x>"66"?ҒlAAA`p ?> ?> >b~\@?>>> ?> <~RR~<:~@@~:>f@'~>"">|֒~~TTTTTT""""r""rڊ?@p0 $HH$$H@@@@  8 xxHظHP@@@@@@@b"a """8#"""$""""</$ȈG|C$@TUR$c]Z ZDDDEUV UV'@ 4DDDEA<,H#$' D0GA """$H81122450801174056821081306090128156184ACC-Shell ... zurck -12345626.09.1991gero.stm --> STAMMBAUM <--| luft nur mit S/W-Monitor!| |(C) by ONKISOFT 1999 in 3/1991Sorry!Taste ...###|Ein unerwarteter Fehler |trat auf. Fehlernummern: | Alle Files wurden geschlossen.|Bitte melden Sie die Fehler- |Situation und -Nummern bitte |umgehend dem Programmautor. DESKTOP |Es ist gar keine |Datei offen! |Es ist schon eine |Datei offen, bitte |zuerst schlieen. |Die geffnete Datei |ist noch leer, Funktion |nicht mglich. |Beim Drucken ist ein |Fehler aufgetreten. [0][Hiermit gelangen Sie in |den Stammbaum-Editor, sofern |eine Datei geffnet ist. ][ OK ][0][Hiermit ffnen Sie eine |bereits existente oder |erzeugen eine neue Datei, |sofern keine geffnet ist. ][ OK ][0][Hiermit schlieen Sie |die gerade geffnete Datei, |sofern eine geffnet ist. ][ OK ][0][Hiermit gelangen Sie |bequem an eine andere |Stelle Ihres Stammbaumes. ][ OK ][0][Hiermit verlassen Sie |STAMM(baum). Eine noch |geffnete Datei wird |automatisch geschlossen. ][ OK ][0][Hiermit konvertieren Sie |Ihre Daten von den alten |STAMM(baum)-Versionen 1.xx |an das 2.xx-er Daten- |Format. ][ OK ][0][Hiermit geben Sie Ihren |Stammbaum in Listenform aus. ][ OK ][0][Hiermit geben Sie Ihren |Stammbaum in Baumform aus. ][ OK ][0][Hiermit gelangen Sie in |das Sondermen, sofern |eine Datei geffnet ist. ][ OK ][0][Hiermit knnen Sie Ihre |resident geladenen Desk- |Accessories verwenden. ][ OK ]STAMM Version (C) Gero Zahn Bergring 27W-4953 Petershagen Tel.: 05707/2501Updates und Registr. gegen 10,- DM und eine formatierte Diskette unter dieser Adresse.Versions-Datum: ffnenSchlieSprungKonvertAktuelle Position:[0][Hiermit werden unbnutzte |Datenstze aus der Datei |entfernt, hnlich einer |Mllabfuhr. ][ OK ][0][Hiermit knnen Sie bestimmte |Teile der Datei lschen. ][ OK ][0][Hiermit knnen Sie bestimmte |Teile der Datei an eine andere |Stelle der Datei kopieren. ][ OK ][0][Hiermit gelangen Sie |wieder zurck ins Hauptmen. ][ OK ] - Sondermen(C) Gero Zahn, Bergring 27, W-4953 Petershagen, Tel.: 05707/2501 - Versions-Datum: PackenLschenKopie*.STM|Diese Datei existiert |noch nicht. |Neu erffnen? Ja|Nein|Wie springen? Grafisch|Nummer|ABBRUCH|Position wie whlen? Welche Position?|Position nicht existent! |Nachfahre () whlen |oder abbrechen? Springen|ABBRUCH|Wirklich beenden? [0][Wenn Sie diesen Button |whlen, wird die Liste |auf den Bildschirm |geschickt.][ OK ][0][Wenn Sie diesen Button |whlen, wird die Liste |auf den Drucker |geschickt.][ OK ][0][Wenn Sie diesen Button |whlen, werden nur die |Namen der Porsonen |gelistet.][ OK ][0][Wenn Sie diesen Button |whlen, werden die Namen |und die anderen Daten |der Personen gelistet.][ OK ][0][Mit dieser Funktion knnen |Sie einen neuen Suchtext |ausgeben.][ OK ][0][Mit dieser Funktion wird |die Ausgabe der Liste |gestartet.][ OK ][0][Mit dieser Funktion |gelangen sie wieder |ins Hauptmen.][ OK ]Was fr eine Listen-Ausgabe?SchirmSucheSuchtext: . . .Geburts-Datum: Geburtsort: Todes-Datum : Todesort : |Der Drucker ist nicht bereit.RETRY|ABORT{|}[\]~|Was fr eine Baum-Ausgabe? Drucker|Schirm|ABBRUCH[0][Mit dieser Funktion wird der |Name der aktuellen Person |und deren Eltern und Gro-|Eltern zu Papier gebracht.][ OK ][0][Diese Funktion entspricht |'Groelt', nur werden hier |auch die Urgroeltern |ausgedruckt. |Nur fr 9-Nadel-Drucker. ][ OK ][0][Fnf, sechs oder sieben |Generationen (je nach Drucker) |werden horizontal zu Papier |gebracht.][ OK ][0][Es wird keine Ausdruck |ausgefhrt, man gelangt wieder |ins Hauptmen.][ OK ]Welche Drucker-Ausgabe des Baumes?Hor 136Hor 160Hor 240|Formfeed senden? /----------------------\\----------------------/|Wie viele Anschlge |pro Druckerzeile? 1 | 2 | 3 |Was nun? Men|Bildaufbau|Welches Speicherformat |konvertieren? >= V1.70|< V1.70|ABBRUCH\*.AHN|Diese Datei existiert nicht! \*.STM|Diese Datei existiert schon! Neuwahl|Lschen |wird zu | |konvertiert. OK |ABBRUCH|Funktion abgebrochen. Eingabe/Modifikation Vorname : Nachname : Geburts-Tag: Geburts-Ort: Todes-Tag : Todes-Ort : : Fertig : ( fr Weitermachen)???Sind Sie sicher? |soll elternlos sein?Gelschte Datenstze |werden entfernt. Bitte whlen |Sie eine Arbeits-Datei. TEMP.STMAuf dem Diskettenlaufwerk, |auf dem die Arbeits-Datei sein |soll, ist eventuell zu wenig |Speicherplatz frei.|Pack-Vorgang ohne |Fehler beendet. |Bitte whlen Sie gleich (wie |bei Sprung) eine Person, deren |Daten kopiert werden sollen.|Die beiden Personen sind in |direkter Linie verwandt.|Beide Personen sind |elternlos.|Beide Personen haben |Vorfahren, evtl. erst |DELETE aufrufen. ONKISOFT 1999 proudly presents:Stammbaum V Ein Programm zur EVA (Eingabe/Verarbeitung/Ausgabe)von 2-er Stammbumen aller Art.W-4953 Petershagen, 05707/2501Developed with GFA-Basic V3.5EClick!|Die aktive Datei ist |unauffindbar. Abbruch|Die Diskette : wurde |wahrscheinlich gewechselt. |Bitte Fehler beheben. r  @ `|>DDD &,. (.<p&>B0lL"2J 8 &dfJh ^"|\4"&N`Dp*,J4D&   4v"FN*Z&"D|*((<"V   6@>>zL:Jjl:Jjf4zBBDx,,,X.B.Bf6T(\,nhvv`ompter-ided tammbaum). Doch mal ersthaft: Ein Stammbaum kann reichlich Daten enthalten. Auf Papier wird dies irgendwann unabwendbar unbersichtlich. Daher bietet sich auch auf diesem Gebiet der Computer-Einsatz nahezu an. STAMM verwirklicht einen Kompromi zwischen beiden angesprochenen Mglichkeiten der Archivierung von Namen und Zusammenhngen. Beide Formen (Liste und Baum) knnen ausgedruckt werden. Im Editor erscheint eine Person mit Nummer samt beiden Eltern auf dem Schirm. Durch Anklicken kann man Generationsweise im Stammbaum auf und ab wandern. Die Rechnerei, wer nun Vater oder Mutter von wem ist, entfllt also gnzlich. Die verschiedenen Operationen ("Vater/Mutter von", "Kind von") werden durch grafische Effekte untersttzt. Fehler-Behandlung: ================== Grundstzlich werden Eingabe-und Benutzer-Fehler zu gut wie mglich abgefangen, aber unvorhergesehene Fehler knnten ja nun doch mal auftreten. Aus diesem Grunde ist eine interne Fehler-Abfang-Routine implementiert, die solche unvorhergesehenen Fehler meldet und hinterher das Programm verlt, nachdem alle gerade bearbeiteten Daten gesichert bzw. bearbeitete Dateien geschlossen worden sind. Das war (und ist wahrscheinlich noch) normalerweise immer bei Programmier-Bugs der Fall. Im Fall unvorhergesehenen Fehlers werden zwei Fehler-Nummern ausgegeben, die symbolisch fr die Art des aufgetretenen Fehlers stehen. (Fr GfA-Basic-Programmierer: Das erste ist ERR, das zweite FATAL.) Sollten ohne offensichlichen Grund (oder mutwilliges Herausfordern des Schicksals) Fehler auftreten, handelt es sich hchstwahrscheinlich um Bugs, die sich eingeschlichen haben. In einem solchen Falle wre ich ber einen Report mit datailierter Beschreibung und Angabe der aufgetretenen Fehler-Nummern sehr dankbar. Je nach Fall gibt's dann auch ein Gratis-Update. Auf Bombem-Abstrze (die zwar meines Erachtens nicht vorkommen knnen, allerdings von Fall zu Fall schon passiert sind) wrden mich brennend interessieren. STAMM(baum) V2.xx verfgt des weiteren noch ber einen Abfang-Mechanismus, der versucht, eventuelle Diskettenwechsel (die whrend der Arbeit an einer Datei natrlich streng verboten sind) zu erkennen. Im Normalfall uert STAMM(baum) schon den Verdacht, da die Diskette gewechselt wurde, wenn das Laufwerk geffnet und wieder geschlossen wurde (bei 3 1/2 "-Laufwerken jedenfalls). In diesem Moment hat man noch die Mglichkeit, dies rckgngig zu machen. Bei der zweiten Warnung ist aber Hopfen und Malz verloren, das Programm wird ohne Umschweife verlassen. Zur Bedienung: ============== Anfangs erscheint erstmal ein Titelbild, das zum einen (wie erwartet) den Namen, die Versions-Nummer und die Mglichkeiten des Programms sowie den Autor bekanntgibt, sogleich aber auch zeigt, wodurch sich STAMM im besonderen auszeichnet: Ein Dreieck erscheint und fliegt ber den Monitor, der einem Billard-Tisch hnelt. Dann erscheint (fliegendermaen) ein Dreieck mit der Aufschrift "Click!". Die Maus verwandelt sich in eine Biene und fliegt (interaktiv) auf einen Honig-Topf zu, um sich endlich einmal die verdiente Belohnung abzuholen. Man denke 'mal darber nach: Was wre der ST-User ohne dieses kleine graue Tier neben dem Computer? Danach verwandelt sich das Insekt brav in einen Pfeil und strebt automatisch dem "Click!"-Dreieck zu. Man sollte sich auch nicht scheuen, dies anzuklicken. Eben dies ist es, was STAMM vom grafischen Aspekt interessant macht: Statt den (weithin bekannten) rechteckigen Formen, die jedes ST-Programm fr Maus-Aktionen benutzt, werden hier Dreiecke verwendet. Hierfr wurden speziell Routinen fr Standort-Test der Maus in dreieckigen Flchen und Prozeduren "Growing Triangle" bzw. "Shrinking Triangle" entwickelt. fter mal 'was Neues, sage ich da nur. Hat man das Titelbild berlebt, gelangt man direkt in Das Hauptmen: ============== Hier finden sich zehn Menpunkte, allesamt Dreiecke, die alle angeklickt werden knnen. Dabei ist es von Bedeutung, ob sie mit der linken oder der rechten Maustaste angeklickt werden: Mit links wird die Funktion (wenn mglich) ausgefhrt, mit rechts erhalten Sie eine kurze Online-Hilfsmeldung zu ebendiesem Menpunkt. Rechts oben auf dem Bildschirm wird die aktuelle Position angezeigt. Dies ist die Position, die als letztes im Editor (s. "Der Editor") im oberen Dreieck angezeigt gewesen war. Bzw. die Position, die ber "Sprung" angesprungen wurde. An dieser Stelle knnen drei Dinge stehen: a) "###": Es ist momentan keine Datei geffnet, daher gibt es keine aktuelle Position. b) "0": Die aktuelle Datei ist noch leer. c) Die aktuelle Position wird dargestellt. Die Menpunkte im Einzelnen: 1. Editor: Durch Anklicken dieses Dreieckes gelangen Sie in den Stammbaum-Editor, das eigentliche Herzstck von STAMM(baum). Das geht natrlich nur, sofern Sie eine Datei geffnet haben. Zur Erklrung lesen Sie bitte den Abschnitt "Der Editor". 2. ffnen: Sofern noch keine Datei geffnet ist, knnen Sie hier eine Datei mit der Kennung ".STM" auswhlen, die Sie zu bearbeiten wnschen. Sollten Sie eine neue Datei erzeugen wollen, geben Sie einfach einen neuen Namen ein, das Programm fragt dann zur Sicherheit nocheinmal nach, ob die Datei neu erzeugt werden soll. Die Endung ".STM" wird brigens ab Version 2.20 doch (!) automatisch angehngt. Die Eingabe von z. B. "BAUM" wird als "BAUM.STM" interpretiert. 3. Schlie(en): Hiermit knne Sie die gerade geffnete Datei, also die gerade bearbeitete Datenbank, schlieen. War noch keine Datei geffnet, ist dies natrlich nicht mglich. 4. Sprung: Der Stammbaum besteht ja im Prinzip aus verschiedenen Positionen, in denen Namen gespeichert werden. Die Nummern der Positionen ergeben sich wie weiter oben besprochen (Kind * 2 = Vater etc.). Diese kann man durch "Wandern" im Editor erreichen (siehe dort). Da das aber bei umfangreichen Stammbumen etwas langwierig sein knnte, kann man die Positionen auch durch einen gezielten Sprung erreichen. Dazu gibt es zwei Mglichkeiten: a) Nummer-Sprung: Sofern die Nummer der Position, die angesprungen werden soll, bekannt ist, kann man sie hiernach direkt eingeben. Hierzu ist folgendes zu sagen: Die alten STAMM(baum)-Versionen 1.xx konnten auch Positionen anspringen, die noch gar nicht definiert (d. h. noch gar nicht eingegeben waren). Dies lie sich unter den Versionen 2.xx nicht mehr realisieren. Sollte man also zu einer Position springen wollen, die noch nicht definiert ist, meldet STAMM(baum) dies und fragt, ob so weit wie mglich gesprungen werden soll. Ein Beispiel: Wir wollen zu Position 80 springen, also dem Vater der Position 40. Position 80 ist aber noch nicht definiert, ein Sprung auf Position 40 brchte uns im Editor aber auch Position 80 auf den Bildschirm. Daher wre es durchaus logisch, zu Position 40 zu springen, also mglichs nahe an die Ziel-Position heran. Whlt man aber Abbruch, bleibt die alte aktuelle Position erhalten. b) grafischer Sprung: Ein stilisierter Stammbaum wird auf dem Bildschirm dargestellt mit der aktuellen Position an oberster Stelle. (War dies Position 1, wird um sie ein kleines Dreieck gezeichnet. Auf jeden Fall wird links neben die oberste Position ihre Nummer angezeigt.) Diese eingeschlossen werden neun Generationen auf dem Bildschirm dargestellt, die definierten (=anspringbaren) Positionen durch dicke, die undefinierten durch dnne Punkte. Hlt man die rechte Maustaste gedrckt und berhrt mit dem Mauszeiger eine definierte Position, so wird deren Name und Positions-Nummer in der untersten Bildschirmzeile dargstellt. Diese Position kann nun Ziel einer der Aktionen sein, die in der linken oberen Bildschirm-Ecke dargestellt werden: Mit "Sprung" erfolgt ein Sprung zu der eben gewhlten Position, mit "Bild" wird die berhrte Position nach ganz oben verfrachtet und ihr Stammbaum dargestellt. War die berhrte Position die oberste des Bildschirms, so wird als neue oberste Position die Position Nr. 1 des Stammbaums angenommen. Diese Funktion springt also zurck an die oberste Position des Stammbaums. Ein Klick auf "ABBRUCH" verzweigt wieder zurck zum Men, ohne das ein Sprung ausgefhrt wird. 5. Ende: Nach Rckfrage wird STAMM(baum) verlassen. Eine eventuell noch offene Datei wird dabei automatisch geschlossen. 6. Konvert: Mit dieser Programm-Option knnen Sie Ihre ".AHN"-Stammbaum-Daten der alten STAMM(baum)-Versionen 1.xx an das neue Datenbank-Format anpassen. Dazu ist es ntig, eine eventuell geffnete Datei mit "Schlie" zu schlieen. War keine Datei geffnet, folgt die Frage, mit welcher Version von STAMM(baum) die Daten entstanden sind, vor 1.70 oder ab 1.70. Das hat den Grund, da ab V1.70 ein neues, schnelleres Abspeicherungs-Format eingefhrt wurde, das aber nicht kompatibel zu dem alten war. STAMM(baum) V2.xx kann aber beide Versionen lesen und verarbeiten. Nach der Wahl der Version erscheint eine File-Select-Box, in der Sie eine ".AHN"-Datei anklicken sollen. Darauf wird noch der Name der Ziel-Datei ausgewhlt und die Konversion erfolgt vollautomatisch. Dabei werden die Vor- und Nachnamens-Felder definiert, die anderen Daten-Felder bleiben frei. Nach geglckter Konversion bleibt die neu entstandene ".STM"-Datei als aktuelle Datei geffnet, man kann direkt weiterarbeiten. Bei beiden Fileselect-Boxen werden ab Version 2.20 die File-Endungen ".AHN" bzw. ".STM" angehngt. 7. Liste: Hier erscheint in der Mitte des Bildschirm ein kleines Unter-Men mit eigenen Funktionen. Zur Erklrung lesen Sie bitte den Abschnitt "Das Liste-Men". 8. Baum: Dieser Menpunkt dient dazu, den Stammbaum in Baum-Form auf den Bildschirm oder zu Papier zu bringen. Dazu erscheint ein kleines Unter-Men mit eigenen Funktionen. Zur Erklrung lesen Sie bitte den Abschnitt "Das Baum-Men". 9. Sonder: Dieser Men-Punkt verzweigt in ein zweites greres Men mit globalen Funktionen den Stammbaum betreffend. Zur Erklrung lesen Sie bitte den Abschnitt "Das Sonder-Men". 10. ACC: Bei Klick auf diesen Menpunkt erwartet Sie ein grauer Bildschirm mit einer Men-Zeile mit nur einem Pull-Down-Men. Darin finden Sie einen Menpunkt "... zurck" und Ihre Desk-Accessories. Diese Accesory-Shell wurde speziell fr STAMM(baum) V2.20 berarbeitet. Mittlerweile knnen Sie auch Accessories verwenden, die Fenster offen behalten, z. B. CONTROL.ACC oder diverse Uhr-Accessories. Diese werden bei Verlassen der Shell nicht geschlossen. Vielmehr erscheinen Sie wieder unverndert, wenn Sie die Accessory-Shell erneut aufrufen. Der Editor ========== Hat man im Haupmen den Editor verlangt, findet man sich auch kurzerhand dort wieder. In der Mitte des Bildschirms befinden sich drei groe Dreiecke, eines oben, zwei unten. Vom oberen zeigt je ein Pfeil auf die unteren beiden. Das sagt uns: Das Dreieck oben ist das Kind der beiden unteren. Betrachtet man die Nummern, die mit in den Dreiecken stehen, erhrtet sich der Verdacht: Wir haben hier die Nummern 1 bis 3, also Kind, Vater und Mutter. Die Maus hat soviele Funktionen wie Tasten, nmlich zwei. Klickt man mit der linken Taste auf eins der unteren Dreiecke, so wird das gewhlte als neues Kind betrachtet, nach oben verfrachtet und seine Eltern unten dargestellt. Klickt man das obere an, rutscht dies nach unten, der Ehepartner wird gesucht und neben ihm dargestellt, das gemeinsame Kind wird gesucht und oben dargestellt. Diese beiden Aktionen sind (wie man leicht erkennen kann) gegenstzlich. Versucht man gleich nach dem Programmstart, das obere Dreieck anzulicken gelingt dies natrlich nicht, da ja oberhalb von Position 1 keine Personen mehr zu finden sind. Dies wird mit einem kurzen Pieps geahndet, wie brigens alle falschen Mausklicks in allen Programm-Punkten. Nun zur rechten Maustaste: Klickt man eines der drei groen Dreiecke mit rechts an, so kann man fr die Position, deren Nummer das Dreieck trgt, die zugehrigen Daten eingeben oder verndern (sofern diese Position bereits definiert war). dazu erscheint links oben auf dem Bildschirm ein Fenster, in dem sich alle Datenfelder finden: Name, Vorname, Geburts-Datum, Geburts-Ort, Todes-Datum, Todes-Ort sowie fnf Zeile, die keine Bezeichnung haben. (Anmerkung: Unter STAMM(baum) Version 2.00 trugen sie die Bezeichnung Sonder 1 bis Sonder 5.) Dort ist Platz fr irgendwelche anderen Daten zur entsprechenden Person, also z. B. weitere Kinder, Biographie, Hochzeits-Datum, Beruf etc. Man gelangt von einer Zeile in die nchste, indem man auf die RETURN-Taste drckt. Ist man in der untersten Zeile ("Fertig") angekommen, kann man wieder in die oberste Zeile ("Vorname") springen, indem man "N" (fr Nein) eingibt. Jede andere Eingabe (vor allem RETURN) schliet das Editor-Fenster und speichert die Daten ab. Dies ist exakt andersherum als in der STAMM(baum)-Version 2.00. Mit diesen Funktionen kann man ganz nett einen Stammbaum erstellen und ihn sich ansehen. Doch ist das noch nicht alles: Der gute Beobachter wird bereits die beiden kleineren Dreiecke mit den Aufschriften "Men" (links oben) und "ACC" (rechts oben) entdeckt haben. Mit "Men" gelangt man wieder in das Hauptmen zurck (s. "Das Hauptmen"), "ACC" fhrt in die Accessory-Shell (s. "Das Hauptmen", Punkt 10). Bei Verlassen dieser geht's hier natrlich zurck in den Editor. Das Liste-Men: =============== Auf dem Bildschirm erscheinen sieben Menpunkte, die Sie wieder sowohl mit der linken oder rechten Maustaste anklicken knnen. Die rechte Maustaste liefert Ihnen wiederum eine kurze Hilfeleistung. Die Menpunkte im Einzelnen: 1) Schirm & 2) Drucker: Eines dieser beiden Dreiecke sollte unterstrichen sein, bei Programmstart "Schirm". Mit diesen beiden Menpunkten whlen Sie, ob die Listenausgabe zum Drucker oder zum Bildschirm geschickt werden soll. Je nachdem, welcher Menpunkt unterstrichen ist wird dies auch geschehen. 3) Namen & 4) Daten: Hier wird die Ausfhrlichkeit der Liste eingestellt: Bei "Namen" erscheinen in der Liste nur die Positions-Nummern sowie Vor- und Nachname, bei "Daten" zustzlich noch alle anderen Daten wie Geburts-Datum und -Ort etc. 5) Suche: Unter den Menpunkten befindet sich eine Text-Zeile namens "Such-Text" und zwei Anfhrungs-Strichen dahinter. Nur Positionen, in denen der Text, der zwischen den beiden Anfhrungs-Strichen steht, vorkommt, werden auch wirklich gelistet. Ein Beispiel: Ist der Suchtext "Gustav", so werden alle Personen gelistet, in denen das Wort "Gustav" in irgendeiner Form in den persnlichen Daten vorkommt, also z. B. "Gustav Knuth", aber auch "Karl-Gustav Meier" oder "Sven Gustavson". Je nach Einstellung bei c) & d) entscheidet sich, wo der Such-Text gesucht werden soll: Bei "Namen" nur im Vor- und Nachnamen, bei "Daten" aucht berall. Bei Klick auf "Suche" kann man nun den Suchtext neu eingeben oder verndern. Dazu erscheint hinter dem Wort "Such-Text" ein Kursor und man kann an dem Text herumeditieren. Die Lnge des Suchtextes ist auf 20 Zeichen begrenzt. Ein Druck auf ESC lscht die gesamte Eingabe, mit RETURN gelangt man wieder in "Liste-Men". 6) Liste: Hier wird nun endlich die Funktion in Gang gebracht: Die eingestellten Daten erscheinen auf dem Bildschirm oder auf dem Drucker. Hlt man die rechte Maustaste gedrckt, wird die Anzeige angehalten bis die Maustaste wieder losgelassen wird. Ein Druck auf die Taste "Q" bricht die Funktion vorzeitig ab, hnlich dem Druck auf "Q" bei Anzeigen eines Textes vom Desktop aus. Danach geht's zurck ins Hauptmen. 7) ABBRUCH: Durch dieses Dreieck erfolgt keine Listenausgabe, sondern es wird zum Hauptmen verzweigt. Das Baum-Men: ============== Zuerst erscheint (noch im Rahmen des Hauptmens) die Frage, ob die Baum-Ausgabe an den Drucker oder an den Bildschirm gehen soll. Bei "Schirm" erscheint ein Bildschirm, der vom Aussehen und der Bedienung fast identisch zu "grafischer Sprung" (s. "Das Hauptmen", Punkt 4b) ist: Mit der rechten Maustaste kann man definierte Positionen berhren und den zugehrigen Namen in die unterste Bildschirmzeile bringen. Bei Druck auf die linke Maustaste hat man die alternative, ob man ins Hauptmen zurck mchte oder man einen Bildaufbau will. Diese Funktion ist identisch zu dem Men-Dreieck "Bild" in grafischer Sprung. Bei Drucker erscheint das besagte Unter-Men. Die Menpunkt im Einzelnen: a) Groelt(ern): Mit dieser Druck-Funktion wird (ab der aktuellen Position) ein "Minimal-Stammbaum" ausgedruckt, also die Person mit ihren Eltern und Groeltern. Dies drfte jeder normale Drucker knnen, der schmale Pica-Schrift beherrscht. b) 16er: Diese Funktion ist eine Erweiterung von "Groelt" und gibt zu den Groeltern noch die Urgroeltern aus. Insgesamt erscheinen 16 Personen (bzw. vier Generationen) auf dem Papier. Diese Druck-Option ist der Baum-Ausdrucks-Option der STAMM(baum)-Versionen 1.xx nachempfunden. Diese war durch die verlngerten Namens-Felder herausgefallen. Diese Funktion ist speziell fr 9-Nadel-Drucker mit 240 dpi Druckdichte (normal) konzipiert. Es wird eine Schmal-Schrift mit 240 Zeichen pro Drucker-Zeile simuliert. Dazu wird der GEM-eigene 8 X 8-Font verwendet. Falls Nachfrage (und bei mir die Gelegenheit) besteht, werde ich diese Modus an 24-Nadler anpassen, sofern es mir mglich ist. c) Hor 136: Diese Druck-Option druckt den Stammbaum nicht von oben nach unten, sonder von links nach rechts, also horizontal aus. Es werden fnf Generationen von der aktuellen Position aus dargestellt. Hierzu wird schmale Pica-Schrift verwendet, die jeder normale Drucker knnen sollte. d) Hor 160: Dieser Modus ist eine Modifizierte Fassung von Hor 136, es werden aber sechs Generationen dargestellt. Dazu wird schmale Elite-Schrift verwendet, die nicht jeder Drucker kann. e) Hor 240: In diesem Modus wird wieder die Pseudo-Schmalschrift von "16er" verwendet. Auch dieser Modus luft nur auf 9-Nadel-Druckern. Eine Anpassung an 24-Nadler ist in gleicher Weise mglich wie bei "16er". In diesem Modus werden sieben Generationen dargestellt. f) ABBRUCH: Dieser Menpunkt fhrt zurck ins Hauptmen. Das Baum-Men wird nach einer Druck-Option nicht verlassen, dazu mssen Sie die Menpunkt "Abbruch" whlen. Bei den Menpunkte "16er" und "Hor 240" wird zu Anfang nach der Anzahl der Anschlge pro Druckzeile gefragt. Je grer die Zahl, desto hher die Ausdrucks-Qualitt. Aber das versteht sich wahrscheinlich von selbst. Das Sonder-Men: ================ Dieses Men befat sich mit globalen Dingen der gerade geffneten Datei. Die Menpunkte im Einzelnen: 1) Sprung: Dieser Menpunkt funktioniert exakt wie der im Hauptmen (s. "Das Hauptmen", Punkt 4) und bedarf daher keiner weiteren Erklrung. 2) Packen: Bei Lschen (s. Punkt 4) wird Platz in der aktuellen Datei zwar berflssig, aber nicht wirklich gelscht. Es gibt zwar keine Mglichkeit, die gelschten Datenstze wieder zu restaurieren, aber man kann die gelschten Datenstze aus der Datei entfernen, da sie auf Dauer doch nur speicherplatz- und zeitintensiver Ballast sind. (Fr PC-Benutzer: Diese Funktion hat nicht nur auf den ersten Blick groe hnlichkeit mit der Funktion "PACK" des bekannten Datenbank-Programms "DBASE" von Ashton Tate.) Auerdem wird durch diesen Vorgang die aktuelle Datei optimiert und die Zugriffszeit auf die einzelnen Positionen verkrzt. Die Funktion "Packen" bentigt fr diesen Vorgang etwas Ranggier-Raum in Form einer temporren Arbeits-Datei. Diese mu in der folgenden File-Select-Box angewhlt werden. Logischerweise whlt man eine Datei, die noch nicht existiert. STAMM(baum) schlgt zu diesem Zweck die Datei "TEMP.STM" im aktuellen Unterverzeichnis vor. Bei Wahl einer anderen Datei wird die Endung ".STM" ggf. automatisch angefgt. Die Datei kann aber auch auf jedes beliebige Laufwerk (Diskette, Festplatte, Ramdisk etc.) gelegt werden. Nach der Wahl der temporren Datei prft STAMM(baum), ob gengend Speicherplatz auf der Diskette vorhanden ist oder nicht. Dazu wird der maximal ntige Speicherplatz berechnet. Ist weniger vorhanden, wird die Funktion abgebrochen. Anderenfalls beginnt der Pack-Prozess, der ja nach verwendetem Speichermedium schon etwas dauern kann. Als Zeichen der Aktivitt blinkt der Mauszeiger in unregelmigen Abstnden. Nach Beendigung des Packens springt die aktuelle Position auf Nr. 1. 3) ACC: Dieser Menpunkt funktioniert exakt wie der im Hauptmen (s. "Das Hauptmen", Punkt 10) und bedarf daher keiner weiteren Erklrung. 4) Lschen: Mit diesem Menpunkt werden alle Vorfahren der aktuellen Position gelscht, das heit, die Person an aktueller Position ist fortan elternlos. Nach einer Nachfrage wird die Funktion ausgefhrt. Nach umfangreichen Lsch-Vorgngen empfiehlt sich ein Pack-Vorgang (s. Punkt 2). 5) Kopie(ren): Hiermit knnen alle Vorfahren einer Position auch an eine andere Position angehngt werden. (Es existieren hinterher aber wirklich exakt zwei Kopien jedes Vorfahren). Dies funktioniert natrlich nur, wenn eine Person Vorfahren hat und die andere elternlos (s. Punkt 4) ist. In allen anderen Fllen wird eine entsprechende Fehlermeldung ausgegeben. Als erste Person wird die aktuelle Person angenommen. Die zweite Person mu nun ermittelt werden. Dazu ergeben sich die gleichen Mglichkeiten wie bei Sprung (s. Punkt 1, s. "Das Hauptmen2, Punkt 4): Entweder auf grafische Weise oder per Angabe der Nummer. Die Bedienung ist dann identisch. Nach einer Rckfrage wird die Funktion ausgefhrt. 6) Men: Mit dieser Option wird wieder ins Hauptmen verzweigt. -------------------------------------------------------------------------- Allgemeines zum Schlu: ======================= Die deutsche Shareware-Szene ist doch ein sehr trges, behbiges Tier. Es gibt kaum jemanden, der fr die Shareware-Programme, die er benutzt, auch bezahlt. (Natrlich kann ich nicht darber sprechen, ohne mich selbst einzuschlieen.) Dabei finde ich wirklich, da 10,- wirklich noch an der untersten Preisgrenze liegt. Daher an dieser Stelle nocheinmal der Appell an alle Leute, die mit STAMM(baum) arbeiten: In dieser neuen Version 2.20 stecken alleine duch Rum-Basteln an der alten Version 2.00 mehrere Monate intensivste Arbeit: Entwicklung von Algorithmik, Benutzerfhrung, Mausuntersttzung, Diaologboxen, im Kopf-Behalten der Daten- und Programm-Strukturen, Schreiben von mehreren Dokumentationen (Shareware-Dokumentation, bebilderte gedruckte Dokumentation fr neu registrierte User, Upgrade-Dokumentation fr registrierte User von V2.00), und so weiter und so fort ... Nebenbei ist man ja auch noch Student ... Also bitte, solche Arbeit mu auch belohnt werden: Nicht nur durch Staunen oder Sthnen, sondern auch durch einen kleinen Shareware-Obulus fr den Autor. Und Tsch ... ich hre von Euch! . VB~.. VBTEST BLK XB";TEST IMG [B[IMG_PACKINL aBSTADDPACINL cBTITEL INL fB3KRITZEL LST jB TEST PAC vB#TEST PIC zB$}KRITZEL PRG BDKRITZEL TXT B'd??????????p~?>?p<p?\p???E`??pvpkx~x~x>p?p??t?e?| .|0?|?b~????? ?<???p ?x??8?8?`?80C<?0?|0?0??p>?<?<<?<0<0??8p??80??80??080?08p?080?p80pxp0?00x0x??888?8 `8?`8`??p?0??0?>?8<~8?8<<<???px???xx?x?x??8<?<<<?~<<<xxxxp?xpp??????~?~><|<x< ppppp?p?0??0?8~8?><<??~> ><?||x|8|8>88xx<x<xxxxp~p?p?ppxxx?x?x||>??Utt0i'$(@D@@  @    A " @  @@ @@  @  @@@  @@@@   @@@    @@ @  @@@ (@D@    @@@@@   @@@@@    @@( D  P@ P       @@ @@     @@@     @    A@@@ "     @@@@@     @     @@@@     @@@@@     @@    @   @@@     @@@@  ( DA   "  @      @@@@      @@@@@      @@      @    PP      @@@     @@@       @    A@  "    @@@      @        @@    @@@@      @@      @     D   (   @@@   (   @DA@   "   @     @      @@@     @@@        @      @@@  "    A@     @@      @@      @@       P@P    D@  (   @@       @@@@       @@@    @@  " DA@ ( @@@      @@   @@    @@@    @@@@     @@@   @  @@    @@@@ "     A@@   @@ @   @@@@ @  @@@@ @     @P@P @ @D @(@@@@    @@@ @@@     @@@ @ @   @     "   DA@   (   @ @@      @@ @ @@ @   @ @@@@    @@ @@   @ @    @@     @@    @ @        @@         @  @     @          @   @                `  `    @ @  @ @             @  @ @ @ @  @                      @   @   @@  @ @   @    @  @ @ @ @       @     @  @ @  @  @       @@?  @  @ ~ >@ < p0@ 0@  `   00     `0    p0     `       x <  ~&HK<0$]&]46S@g0+ @f.+ Gb6HG^GOG<^FNFDGkSCx(J:G`Tpf*fRfnJDfjSD`J2HA2@@aP`$j@fp@ K"Jaj$I&H`r`r`JEf L"J`p0aHSCk Q$IQp`xp`r*J8^DLA$$$44`P KC@JCg0<<Ce<:SF@`&H0aVVEgFRFBB:SERE(Kp`pg`RgS+Wf KX2HA2p0a",HTAIdSN AoAAHAaHAB0<@j0Ӓ@f&N`, SgJEgJf EgJ+fa Kp0raRA04<Bj4’Bf&H@`L, SgJEgS@fN Eg+f@aD Kp0rarRA04<Bj4BBBf&H@`, gaQ LNu, SFg""J L><Fo>paGf$INutt$g ᙲf4Q`0@?@`VgYpЀd HAXgUpJjᙲgS"Nu$ g Q`@?`$QdHA4JjNuH>24 ABBfBFBGf`gSBk`fJgSBk Q`p`pL~NupM86)1)0)0)%)))-))))0 }@D@Q|08%! ) ))  @@))@@ -ÃÇ @)D<rr;FDF𔐑008) )@ @   33  1 8)   @p0)(?) $*$$) ?) ` ))¢CDD& )  uuUUj5 ) ) <y>^QQD@QQ))9}= @)))=??~xUUUUUjU*55*UjUUUUUUUUU IHH  ??a""q ; ;  )))) 8|@88DEE= >|) ? ;UUUUUUUUUUUUUUUUUUU$$ 8|@8)nj ? /()0CDC I D@DD@I  'DU @AC>|??~ `XVUUUUUUUUUUUVX`@@@ DD) <)<""))H8` >F>` 8H PN  ?) @``PPP``@)_Ṗ @)`) @?% ) 8$ &0p) )&x)D |<x|"9%)0")&`)`/ `$~BVBWCWCW@U@UCWCWCVBVBVBV~ ))))0)$))))))-))) ))0 ~BVBXX8` xX^VBWp NPNN)8P  5*UժUUjU*5  #)@O) 8AA88ED8)D<088$! jժUUUUUUUUUUUUj9AA9%)  @ < ) <)"1 䔄QQO@ UUUUUUUUUUUUUUUUc%) y h@DD1 ÎANPP )8|@8 ? 8@_P>UUUVVVTTVVVUUUUUUU>D)  ; DDN*U"Ue&e}"UU2ue&ea!a 8DD8(}UE@HpHD8|@8䔄) |@ 0x)D  @))@`\U_ <)XX   <|8Ο9}A9* `` `` `` xX(X 㑁T @@A#^QQ``g)f p@  ` @@G#$ ~ 1bă@" 0x)DX  NQ΄   0@19 0?)`@@P"< :"9|@9$GA???~`@1 80@XUU\XXXXX)  1 89|)?oϟh08+r9 a#"q08) ?@)) ) @X||J)` xx ))R2~`)ݪw (#( ( ( ( ( ˊ ))_PN`133c 0 x)D! IHH 3as_PN? 0? 1بx) 30` )a11a)x)D0 0 @ $D9%9EeUMD 8|@8)`00``#""rx)D:)22b)p )d @@ OQOM05  @@DD)) ) 0CGC):%)0 UUUUUUU@5  @@)@)@ _P9|)3qk,089 I ) %)q @@ )XTVUUUUUUVX x)D>) @xEEx~j &)@0) @@ @@``000p)ppp А`p)1) ) )0)))) )))0)0))))))1))? @DD qL# D?5*5*5*5*5*5*5*5*5*5*?0?)??8ͅCS(%") ) ) *.".@m ?0 QJD0 @ 8$! UUUU`````) ?&9w9)9 ()D<) *p,>޾`%t8|@8>0  UUUU )璂)A) ) ))0p)P)))@GDDG)@㑁0  DDNUUUU ))8x|?>  @@)@@   @!8}A8@m ?0 spIBB񊊉" I D@DD@I UUyy0(~  yy    4D! @C@!sp,>޾`%tC$' /(|@x@@ )D< )H8` >F>` 8HU>)"">"$)*>"U磠ࠠࠠ)?)?w o;uUUUUUUUUUUUUUUj  @X @RP){)>DCr2 :)@ GDDG)@ )4? 㒉y)yg@1UUUUUUUUUUUUUUUU   `BssN@@@_~1C@@)@@)@)@)@s)QO :?Υ)??)o 3srUUUUUUUUUUUUUUUU @@@ 0(x> s8%! 0)8 ):)     ))?) UUUUUUUUUUUUUUUU @ "tt ` 0  CGD ):`6 )))?) UUUUUUUUUUUUUUUU ) @`DB' ))%@ );))@ Ix8o: c)3cXxXX)@) `) )VUUUUUUUUUUUUUUU  @ 80x̆HHx9)~0;?ϟ?gYa0pV3333b) '00"𰘘@`PXXXXXXXXXP`)"||)))¢>dBp00b)) ) ))0)!)))'))))))))))&1 ) xEEx@"(@T"Ha'@I  xDDx@n5    @)'( HH' 8%! HXi~`08@HqIDH@~(BXB䔄 \UUժU* > @@GH @ @ =h^@ 9}=W‚b)B* :CB:CDD @ VYQVUUUUUUUU>@@@? a#"qR!  CW? _PN )G= =/('@LCDD  9}A9}UUUUUUUUU>?@) 8=x)DDDN19!!):) Ȉ))9!!9AA98|@8@@)}UUUUUUUUUUU?< Oʌ)??,< @HqIE ) : ) )c㗄 #C.}UUUWTTXPP`@)0 )CB@@y)@vH" @ TX)   ? }UUUUU5) @AA""$$((0P`@)@  P„ @)QQX))  fc`ƃ (|TD  ) }UUUUUUUU5  @@)  @ @)D  d'$t⒉))0 ) 8}< DX9GA???~`@HHP((  U@ՀUUUU"UU"UբHU"5 08X)CFLXpX||J19 @Q[UQ  pp

Ҿp`%t) 0 )))) 3cÃ)&)0?Υs|ff|ff|8|@8X )@))@)`)X)&0`)0p))`~b)0)0)%)) )) )0))))))) )01?@@)<)")" ""))D< ` `0| 9 xEEx@XrqqJBAʊ9%!!tDz>q183 )8); 09~?0xDDx@W0'/( (( /('>DDD  v)<) r80)²z"ₖr :CB:䔄X )   )GOD0)8 @@`) )` 0/('VYQ?00>00?):'pH@@٫ q#" 5jUիj5 DĪDCGD @_@ 0))b22b‚)9!!DUUl:0 XvuժUUUUU|DO ""B) ~))I*0 ));%)")`PXXppD @   G)0* *X%)fƃ&)$)@@  @0))ff`f8|@8X%)`&)`"`&````0))HHH)HH```1' ***************************************************************************** ' ' M A L P R O G R A M M " K R I T Z E L " ' ' programmiert von Heiko Mller, Mozartstrae 17, 2905 Edewecht ' datum$="12.09.1991" ! letztes Bearbeitungsdatum version$="3.92" ! Version-Nummer ' ' ***************************************************************************** ' ' letzte Vernderungen: ' ' In den ersten Versionen dieses Programms wurde die GEM-Menleiste kombiniert ' mit Tastaturaufrufen (ON MENU gleichzeitig mit ON MENU KEY). ' Leider fhrte das zu Programmabstrzen mit Bildverlust, wenn man bei herun- ' tergeklapptem Men gleichzeitig eine Taste bettigte. Da dieser Fehler sich ' nicht beseitigen lie, wird ab der Version 3.5 ein "selbstgestricktes" Men ' eingesetzt (Funktion hnlich D.R.A.W). ' ' ab Version 3.6 ist ein Titelbild in den Programmtext eingebunden (in der Pro- ' cedure "inlines_einlesen"). Wenn diese Programmliste mit Save,A abgespeichert ' wurde, mu das Titelbild wieder in die entsprechende INLINE-Zeile eingeladen ' werden. ' ' ab Version 3.7: ' Block-Stauchen und -Drehen ' Geodreieck ' Prisma und Pyramide ' Tortendiagramm wird als Block zum Einsetzen eingefangen ' Sprhen mit Muster ' Geraden, Kreise und Ksten mit zwei Mausklicks zeichnen ' Bezier-Kurve ' STAD-Bilder lassen sich laden (INLINE-Maschinenprogramm) ' verschiedene Ausdruckgren mglich ' ' ab Version 3.9: ' STAD-Bilder lassen sich speichern (INLINE-Maschinenprogramm) ' Uhr luft stndig im Men ' IMG-Format lt sich laden und speichern (INLINE-Maschinenprogramm) ' Hilfsbemerkungen gendert ' ' ################# nun geht's los: #################### ' DEFINT "a-z" DEFLIST 2 $%0 ! Integerdivisionen mit Fliekomma ausfhren SETCOLOR 0,1 ! schwarz auf wei $I+ ! Interrupt-Routinen einschalten (damit die Uhr stndig luft) $E+ ON BREAK GOSUB schluss ON ERROR GOSUB fehler ' ########### ' ON BREAK ' ON ERROR ' ########### IF XBIOS(4)<>2 ALERT 3,"Dieses Programm luft leider|nur mit einem|Schwarzwei-Monitor!",1,"Sch... ",dummy EDIT ENDIF ' VOID XBIOS(33,4) ! Drucker auf 960 Punkte/Zeile einstellen SPOKE &H484,PEEK(&H484) AND NOT 2 ! Tastaturklickwiederholung aus SETCOLOR 0,1 ! schwarze Schrift auf weiem Grund ' CLS SGET bild$ ! vier leere Bilder einlesen und Platz fr Zweitschirm SGET undo$ ! schaffen, damit Speicherplatzprobleme gleich deutlich werden SGET block$ SGET merk$ @zweitschirm ' @version IF RIGHT$(DATE$,6)=RIGHT$(erstelldatum$,6) @datum_und_uhr ! Falls der Computer keine eingebaute Uhr hat ENDIF HIDEM @speicher_einrichten @inlines_einlesen @menue_einrichten ' ALERT 2,"Sollen Hilfsbemerkungen|ingeblendet werden?",2,"ja|nein",antw IF antw=1 hilfe!=TRUE ELSE hilfe!=FALSE ENDIF ' SHOWM DEFMOUSE 3 ' neustart: ! Marke wird evtl. nach Fehlern angesprungen bild$=bild$(bild) ! das verlorene Bild wird wieder zurckgeholt ' DO ! ********************************** Hauptprogramm *********************** ' IF BIOS(11,-1)>15 ! Wenn Capslock eingeschaltet, VOID BIOS(11,0) ! ausschalten, damit Tastaturaufruf funktioniert ENDIF IF menue_aus! OR anzeige! $I- ! Interrupt-Routinen ausschalten EVERY STOP SPUT bild$ HIDEM ELSE $I+ ! Interrupt-Routinen einschalten (damit die Uhr stndig luft) $U+ ! hinter jedem Befehl C+S+A, EVERY und AFTER testen EVERY 400 GOSUB zeitanzeige SHOWM SPUT menue$ @zeitanzeige GRAPHMODE 1 DEFTEXT 1,0,0,4 TEXT 5,48,"RAM: "+STR$(FRE(0)) ! freien Speicherplatz anzeigen TEXT 100,48,"TOS-Version "+tosversion$+" vom "+erstelldatum$ DEFMOUSE 3 ' ENDIF REPEAT ! Warteschleife mit Tastatur- oder Mausabfrage MOUSE x,y,k taste$=INKEY$ UNTIL k OR taste$>"" ' IF k=2 OR taste$=" " auswahl=0 k=0 taste$="" anzeige!=NOT anzeige! ! statt Men wird Bild gezeigt @mauswarte ENDIF ' IF k=1 OR taste$>"" $I- ! Interrupt-Routinen ausschalten EVERY STOP IF k=1 taste$="" IF (NOT menue_aus!) AND (NOT anzeige!)! Mausauswahl nur mit sichtbarem Men auswahl=INT(y/50)*10+INT(x/80) ENDIF ELSE auswahl=0 IF LEN(taste$)=1 taste$=UPPER$(taste$) ! normale Taste: Grobuchstabe ELSE taste$="2"+RIGHT$(taste$,1) ! Sondertaste: 2 davor ENDIF IF BIOS(11,-1)=1 OR BIOS(11,-1)=2 ! Shift-Taste gehalten: S davor taste$="S"+taste$ ENDIF ENDIF ' SHOWM @abfrage ' ENDIF LOOP ' ' *1************************************************************************** ' PROCEDURE abfrage ' @mauswarte ' PAUSE 10 ! dadurch klingelt's nicht so leicht bei Alert bild$(bild)=bild$ ! damit das Bild nach Fehlern gerettet ist ' SPOKE &H484,PEEK(&H484) OR 2 ! Tastaturklickwiederholung ein ' ' ########################## Zeilen zur Programmentwicklung einschalten: ' If Taste$>"" Or Auswahl%>0 ' Alert 1,"Taste: "+Taste$+"|Auswahl: "+Str$(Auswahl%),1,"aha",Dummy% ' Endif ' ########################## ' IF taste$="" ! Programmabbruch mit Control+C mglich @schluss ENDIF IF taste$="B" @blockabfrage ENDIF IF taste$="D" @dateiabfrage ENDIF IF auswahl=10 OR taste$="" @ueber ENDIF IF auswahl=11 OR ASC(taste$)=27 ! Esc SPUT bild$ @accessory ENDIF IF auswahl=12 OR taste$="DP" @speicherplatz ENDIF IF auswahl=13 OR taste$="DU" @datum_und_uhr ENDIF IF auswahl=14 OR taste$="DL" SPUT bild$ @laden SPUT bild$ @bild_kurz_zeigen(100000) ! zeigen, bis Taste oder Mausbewegung ENDIF IF auswahl=15 OR taste$="DS" SPUT bild$ @speichern ENDIF IF auswahl=16 OR taste$="D"+CHR$(127) ! Delete @datei_loeschen ENDIF IF auswahl=17 OR taste$="DO" @neuer_ordner ENDIF IF auswahl=20 OR taste$="2K" OR taste$="2M" ! Pfeiltasten IF (k AND x>40) taste$="2M" ENDIF IF (k AND x<41) taste$="2K" ENDIF @bildwechsel(RIGHT$(taste$)) @menu_aendern SPUT bild$ ENDIF IF auswahl=21 OR taste$="2a" ! Undo SWAP bild$,undo$ SPUT bild$ @bild_kurz_zeigen(100) ENDIF IF auswahl=22 OR taste$="" ! Delete SPUT bild$ @loeschen ENDIF IF auswahl=23 OR taste$="I" SPUT bild$ @invert @bild_kurz_zeigen(100) ENDIF IF auswahl=24 OR taste$="P" SPUT bild$ @ausdruck ENDIF IF auswahl=25 OR taste$="K" SPUT bild$ @kopieren SPUT bild$ @bild_kurz_zeigen(100) ENDIF IF auswahl=26 OR taste$="U" SPUT bild$ @umriss SPUT bild$ @bild_kurz_zeigen(100) ENDIF IF auswahl=27 OR taste$="O" k=0 SPUT bild$ IF menue_aus!=FALSE menue_aus!=TRUE ' al$="Nun geht's nur noch mit|Tastenaufrufen weiter.|" al$=al$+"Mit der Taste O wird das|Men wieder eingeschaltet." ALERT 1,al$,1,"aha",antw ' ELSE menue_aus!=FALSE ENDIF ENDIF IF auswahl=30 OR taste$="F" SPUT bild$ @freihand ENDIF IF auswahl=31 OR taste$="G" SPUT bild$ @gerade ENDIF IF auswahl=32 OR taste$="L" SPUT bild$ @linienzug ENDIF IF auswahl=33 OR taste$="*" SPUT bild$ @strahlen ENDIF IF auswahl=34 OR taste$="R" SPUT bild$ @radiergummi ENDIF IF auswahl=35 OR taste$="S" SPUT bild$ @spruehdose ENDIF IF auswahl=36 OR taste$="M" SPUT bild$ @mikroskop ENDIF IF auswahl=37 OR taste$="A" SPUT bild$ @fuellen ENDIF IF auswahl=40 OR taste$="2;" ! F1 SPUT bild$ @kreis ENDIF IF auswahl=41 OR taste$="2<" ! F2 SPUT bild$ @ellipse ENDIF IF auswahl=42 OR taste$="2=" ! F3 SPUT bild$ @n_ecken ENDIF IF auswahl=43 OR taste$="2>" ! F4 SPUT bild$ @kasten ENDIF IF auswahl=44 OR taste$="2?" ! F5 SPUT bild$ @rundkasten ENDIF IF auswahl=45 OR taste$="2@" ! F6 SPUT bild$ @vieleck ENDIF IF auswahl=46 OR taste$="2A" ! F7 SPUT bild$ @torte SPUT bild$ @bild_kurz_zeigen(100) ENDIF IF auswahl=47 OR taste$="2B" ! F8 SPUT bild$ @koerper ENDIF IF auswahl=50 OR taste$="T" SPUT bild$ @schreiben ENDIF IF auswahl=51 OR taste$="W" @schriftwahl ENDIF IF auswahl=52 OR taste$="ST" SPUT bild$ @signum_schreiben ENDIF IF auswahl=53 OR taste$="SW" SPUT bild$ @signum_einladen ENDIF IF auswahl=54 OR taste$="SG" SPUT bild$ @geodreieck ENDIF IF auswahl=55 OR taste$="C" SPUT bild$ @kurve ENDIF IF auswahl=56 ' Diese Auswahl ist noch belegbar ENDIF IF auswahl=57 ' Diese Auswahl ist noch belegbar ENDIF IF auswahl=60 OR taste$="BA" OR taste$="SA" SPUT bild$ @ausschneiden ENDIF IF auswahl=61 OR taste$="BE" OR taste$="SE" SPUT bild$ @einsetzen ENDIF IF auswahl=62 OR taste$="BM" SPUT bild$ @spiegeln ENDIF IF auswahl=63 OR taste$="BI" SPUT bild$ @block_invert ENDIF IF auswahl=64 OR taste$="BG" SPUT bild$ @stauchung ENDIF IF auswahl=65 OR taste$="BD" @drehen ENDIF IF auswahl=66 OR taste$="BL" SPUT bild$ @block_laden ENDIF IF auswahl=67 OR taste$="BS" SPUT bild$ @block_speichern ENDIF IF auswahl=70 OR taste$="2b" OR taste$="+" !Help @hilfe ENDIF IF taste$="S2b" ! Shift + Help hilfe!=NOT hilfe! IF hilfe! RESTORE hilfe_ein ELSE RESTORE hilfe_aus ENDIF @hilfstext ' hilfe_ein: DATA Die Hilfsbemerkungen sind jetzt DATA eingeschaltet. DATA DATA Ausschalten mit [Shift] + [Help] DATA * hilfe_aus: DATA Die Hilfsbemerkungen sind jetzt DATA ausgeschaltet. DATA DATA Einschalten mit [Shift] + [Help] DATA * ENDIF IF auswahl=71 OR taste$="-" @linienwahl ENDIF IF auswahl=72 OR taste$="Z" @farbwahl ENDIF IF auswahl=73 OR taste$="Y" @musterwahl ENDIF IF auswahl=74 OR taste$="2D" @figur_fuellen ENDIF IF auswahl=75 OR taste$="SM" @moduswahl ENDIF IF auswahl=76 OR taste$="#" @gitter ENDIF IF auswahl=77 OR taste$="E" @spruehdose_einstellen ENDIF IF taste$="SH" @aufhellen ENDIF IF taste$="SB" SPUT bild$ @testbild SPUT bild$ @bild_kurz_zeigen(100) ENDIF ' ' ****************************************************************** ' ' hier ist die Menabfrage zu Ende - nun werden die Einstellungen repariert: ' CLOSE @wahleinstellung SPOKE &H484,PEEK(&H484) AND NOT 2 ! Tastaturklickwiederholung aus anzeige!=FALSE @mauswarte ' RETURN PROCEDURE wahleinstellung GRAPHMODE mode DEFFILL 1,muster1,muster2 DEFLINE stil,breite,anfang,ende DEFTEXT 1,schriftart,wink,hoehe(ho) COLOR farbe BOUNDARY bound RETURN PROCEDURE normaleinstellung GRAPHMODE 1 DEFFILL 0,2,8 DEFLINE 1,1,0,0 DEFTEXT 1,0,0,13 COLOR 1 RETURN PROCEDURE accessory i$="" MENU menue$() ON MENU GOSUB pulldownmenue DO ON MENU EXIT IF i$="weiter" LOOP MENU KILL RETURN PROCEDURE block_speichern DEFLINE 1,1,0,0 HIDEM GRAPHMODE 3 IF hilfe! RESTORE help_blockrahmen @hilfstext ENDIF help_blockrahmen: DATA "Block mit [LMT] durch zwei" DATA "diagonal gesetzte Ecken" DATA "ausschneiden" DATA DATA "Vorschlag:" DATA "von rechts unten" DATA "nach links oben" DATA * ' REPEAT SPUT bild$ ' MOUSE x,y,k ! groes Kreuz als Mauszeiger IF gitter! x=INT((x+x_weite/2)/x_weite)*x_weite y=INT((y+y_weite/2)/y_weite)*y_weite ENDIF LINE 0,y,639,y LINE x,0,x,399 PAUSE 2 LINE 0,y,639,y LINE x,0,x,399 UNTIL k PAUSE 10 SPUT bild$ IF k=1 @gummikasten GRAPHMODE 3 DEFFILL 1,2,8 ! schwarze Fllung PBOX x,y,x1,y1 ! Block kurz invertieren PAUSE 40 PBOX x,y,x1,y1 GET x,y,x1,y1,block$ GRAPHMODE 1 ' $I+ ! Interrupt-Routinen ein (sonst bei "Diskette voll" Fehler) dummy=5*9 ! code-erzeugende Anweisung (siehe Compiler-Buch Kap. 2.3.8) ' IF hilfe! RESTORE help_blockspeichern @hilfstext ENDIF help_blockspeichern: DATA Die Endung ".IMG" wird vom Programm DATA "automatisch an den Namen angehngt," DATA wenn man keine Endung anhngt. DATA DATA IMG-Dateien werden vor dem Speichern DATA komprimiert. DATA DATA Solche Blcke lassen sich auch mit DATA "1ST WORDPLUS" einladen. DATA DATA Blcke mit anderen Endungen DATA (z.B. ".BLK") werden nicht komprimiert. DATA Man braucht sie z.B. zur Weiterver- DATA arbeitung mit BASIC. DATA * ' @fileselect_titel("Block auf der Diskette speichern") ' blocksuchpfad$=blockpfad$+blockextension$ FILESELECT blocksuchpfad$,blockname$,auswahl$ blockname$="" IF EXIST(auswahl$) OUT 2,7 ' al$="Eine Datei unter diesem Namen|ist schon vorhanden!| |berschreiben?" ALERT 2,al$,1,"ja|nein",antw IF antw=2 auswahl$="" ENDIF ' ENDIF IF LEN(auswahl$)>3 AND RIGHT$(auswahl$,1)<>"\" ! ausgenommen ist z.B. A:\ laufwerk=ASC(auswahl$)-64 ' i=RINSTR(auswahl$,".") IF i0 ! Breite mu durch 16 teilbar sein fr Masch-progr. INC w WEND GET 0,0,w-1,h,block$ IF h<640 INC h ! sonst geht manchmal der untere Rand verloren ENDIF @schirm1 ' BMOVE VARPTR(block$)+6,b1_adr,LEN(block$)-6 ! Block etwas verschieben ' (SGET-Blcke haben 6 Byte Header) ' b1_adr%=b1_adr%+6 ! ?????? wieso geht das nicht stattdessen??? OPEN "O",#1,auswahl$ @img_einpacken(w,h) CLOSE #1 ELSE BSAVE auswahl$,VARPTR(block$),LEN(block$) ! Abspeichern ENDIF ENDIF ENDIF SPUT bild$ RETURN PROCEDURE aufhellen ! Aufhellen eines Bildes durch weie Streifen SGET undo$ SPUT bild$ COLOR 0 DEFLINE 1,1,2,2 FOR i=1 TO 640 STEP 2 LINE i,0,i,399 NEXT i FOR i=1 TO 400 STEP 2 LINE 0,i,639,i NEXT i SGET bild$ @bild_kurz_zeigen(100) RETURN PROCEDURE ausdruck ausdruck=0 ' ALERT 2,"Bild wirklich ausdrucken?",1,"ja|nein",antw ' IF antw=1 ' IF drucker=0 @druck_einstell ENDIF ' abbruch=0 DO EXIT IF OUT?(0) ' ALERT 2,"Drucker einschalten !",2,"Abbruch|OK",abbruch EXIT IF abbruch=1 LOOP ' IF abbruch<>1 ' al$="Wie soll der Ausdruck|erfolgen?" SELECT drucker CASE 1 ! 24-Nadler IF nec_emu! ALERT 2,al$,1,"lngs|quer",bildgroesse ELSE ALERT 2,al$,1,"lngs|klein",bildgroesse IF bildgroesse=2 bildgroesse=3 ENDIF ENDIF ' CASE 2 ! 9-Nadler ALERT 2,al$,1,"lngs|quer|klein",bildgroesse ENDSELECT ' abbruch=0 IF bildgroesse=3 @schreibkasten(80,305) PRINT AT(22,10);"Wie breit soll der linke Rand sein?" PRINT AT(22,12);"(maximal 50)" PRINT AT(22,14);"Zahl eingeben, dann [Enter]-Taste" REPEAT PRINT AT(22,16);"? "; FORM INPUT 2 AS rand$ rand=VAL(rand$) UNTIL rand>=0 AND rand<=50 ENDIF ' OUT 4,18 ! Maus ausschalten HIDEM ' SPUT bild$ IF drucker=1 ! 24-Nadler ON bildgroesse GOSUB hcopy_laengs_24,hcopy_quer_9,hcopy_klein_24 ELSE ON bildgroesse GOSUB hcopy_laengs_9,hcopy_quer_9,hcopy_klein_9 ENDIF ENDIF ENDIF OUT 4,8 RETURN PROCEDURE druck_einstell ' ALERT 2,"Was fr ein Drucker|ist angeschlossen?",1,"24-Nadel|9-Nadel",drucker ' @zweitschirm @schirm2 SPUT menue$ DEFTEXT 1,0,0,6 TEXT 500,25,"Druckeranpassung " IF drucker=1 TEXT 500,35,"fr 24-Nadler" ! z.B. NEC P2200, Panasonic KX-P1124, NEC P20 ELSE TEXT 500,35,"fr 9-Nadler " ! z.B. Panasonic KX-P1092, STAR LC 10 ENDIF SGET menue$ @schirm1 ' IF drucker=1 ! 24-Nadler @schreibkasten(20,270) PRINT AT(20,3);"Achtung! Wenn vor dem Start von KRITZEL" PRINT AT(20,4);"das Programm NEC_EMU.PRG gestartet wurde," PRINT AT(20,5);"funktionert der Ausdruck im Querformat," PRINT AT(20,6);"aber nicht der Ausdruck in klein." PRINT AT(20,8);"Wenn NEC_EMU.PRG nicht gestartet wurde," PRINT AT(20,9);"ist es genau umgekehrt..." ALERT 0,"Wurde NEC_EMU.PRG gestartet?",1,"ja|nein",antw ' IF antw=2 nec_emu!=FALSE ELSE nec_emu!=TRUE ENDIF ' SPUT merk$ ENDIF ' RETURN PROCEDURE ausschneiden IF hilfe! RESTORE help_blockausschneiden @hilfstext ENDIF help_blockausschneiden: DATA "Block mit zwei Mausklicks [LMT]" DATA "ausschneiden" DATA DATA "Vorschlag:" DATA "von rechts unten" DATA "nach links oben" DATA DATA Bei gehaltener Shift-Taste wird der DATA ausgeschnittene Block gleich eingesetzt. DATA * ' REPEAT SPUT bild$ GRAPHMODE 3 HIDEM DEFLINE 1,1,0,0 REPEAT MOUSE x,y,k ! groes Kreuz als Mauszeiger IF gitter! x=INT((x+x_weite/2)/x_weite)*x_weite y=INT((y+y_weite/2)/y_weite)*y_weite ENDIF LINE 0,y,639,y LINE x,0,x,399 PAUSE 2 LINE 0,y,639,y LINE x,0,x,399 UNTIL k PAUSE 10 SPUT bild$ IF k=1 @gummikasten GRAPHMODE 3 DEFFILL 1,2,8 ! schwarze Fllung PBOX x,y,x1,y1 ! markierten Block kurz invertieren PAUSE 20 PBOX x,y,x1,y1 GET x,y,x1,y1,block$ b_breite=x1-x b_hoehe=y1-y GRAPHMODE 1 ELSE abbruch!=TRUE ENDIF EXIT IF abbruch! IF LEN(block$)<16 ! ganz kleine Blocks sind vermutlich ein Irrtum ' al$="Dein ausgeschnittener Block|ist aber sehr klein! Ist das" al$=al$+"|so richtig, oder willst Du|noch einmal ausschneiden?" ALERT 1,al$,1,"nochmal|richtig|Abbruch",antw IF antw=3 abbruch!=TRUE ENDIF ENDIF EXIT IF abbruch! UNTIL antw=2 OR LEN(block$)>15 IF BIOS(11,-1)=1 OR BIOS(11,-1)=2 ! Shift-Taste gehalten @einsetzen ENDIF RETURN PROCEDURE bild_kurz_zeigen(t) ti=TIMER DO MOUSE x,y,k PAUSE 2 EXIT IF TIMER-ti>t taste$=UPPER$(INKEY$) EXIT IF MOUSEX<>x OR MOUSEY<>y OR taste$>"" LOOP SPUT bild$ IF taste$>"" @abfrage ENDIF taste$="" RETURN PROCEDURE bildwechsel(i$) ' HIDEM bild$(bild)=bild$ SELECT i$ CASE "M" INC bild IF bild=6 bild=1 ENDIF CASE "K" DEC bild IF bild=0 bild=5 ENDIF ENDSELECT ' bild$=bild$(bild) SPUT bild$ DEFTEXT 1,0,0,32 TEXT 100,100,"Bild "+STR$(bild) @bild_kurz_zeigen(50) SPUT bild$ SGET undo$ SHOWM RETURN PROCEDURE menu_aendern @zweitschirm @schirm2 SPUT menue$ GRAPHMODE 1 DEFTEXT 1,0,0,6 TEXT 35,125,STR$(bild) SGET menue$ @schirm1 RETURN PROCEDURE block_invert IF hilfe! RESTORE help_blockrahmen @hilfstext ENDIF DEFLINE 1,1,0,0 HIDEM GRAPHMODE 3 SGET undo$ REPEAT MOUSE x,y,k ! groes Kreuz als Mauszeiger IF gitter! x=INT((x+x_weite/2)/x_weite)*x_weite y=INT((y+y_weite/2)/y_weite)*y_weite ENDIF LINE 0,y,639,y LINE x,0,x,399 PAUSE 2 LINE 0,y,639,y LINE x,0,x,399 UNTIL k PAUSE 10 SPUT bild$ IF k=1 @gummikasten GRAPHMODE 3 DEFFILL 1,2,8 PBOX x-1,y-1,x1+1,y1+1 GET x,y,x1,y1,block$ GRAPHMODE mode DEFFILL 1,muster1,muster2 ENDIF SPUT bild$ @einsetzen RETURN PROCEDURE blockabfrage @schreibkasten(60,305) PRINT AT(24,6);"Blockoperationen" PRINT AT(24,8);"A = ausschneiden" PRINT AT(24,9);"E = einsetzen" PRINT AT(24,10);"M = spiegeln (""mirror"")" PRINT AT(24,11);"I = invertieren" PRINT AT(24,12);"G = Gre ndern" PRINT AT(24,13);"D = drehen" PRINT AT(24,14);"S = auf Diskette speichern" PRINT AT(24,15);"L = von Diskette laden" PRINT AT(24,16);" (mit Shift grere Auswahl)" PRINT AT(24,18);"andere Taste = Abbruch" REPEAT i$=UPPER$(INKEY$) UNTIL i$>"" taste$=taste$+i$ SPUT bild$ RETURN PROCEDURE block_laden SGET undo$ ' @fileselect_titel("Block von der Diskette laden") ' IF BIOS(11,-1)=1 OR BIOS(11,-1)=2 ! Shift-Taste halten --> Auswahl mglich IF hilfe! CLS PRINT AT(2,1);"Normal ist die Extension "".IMG"" (gepackte Blcke). Dateien mit der" PRINT " Extension "".BLK"" oder anderen Extensionen sind unkomprimiert" ENDIF ' al$="Welche Dateien von der|Diskette sollen zur Auswahl|angezeigt werden?" ALERT 2,al$,1,"*.IMG|*.BLK|alle",antw SELECT antw CASE 1 blockextension$="IMG" CASE 2 blockextension$="BLK" CASE 3 blockextension$="*" ENDSELECT ELSE blockextension$="IMG" IF hilfe! PRINT AT(2,24);"Wenn beim Aufruf ""Datei laden"" die Shift-Taste gehalten wird, hat man beim" PRINT AT(2,25);"Laden eine grere Auswahl."; ENDIF ENDIF ' blocksuchpfad$=blockpfad$+blockextension$ FILESELECT blocksuchpfad$,"",auswahl$ blockname$="" SPUT bild$ IF auswahl$>"" ' i=RINSTR(auswahl$,".") IF i<>0 ! Falls der Dateiname eine Extension hat blockextension$=MID$(auswahl$,i+1) ! wird die Extension herausgelesen ENDIF ' i=RINSTR(auswahl$,"\") blockpfad$=LEFT$(auswahl$,i)+"*." ! neuer Pfadname wird gebaut blockname$=MID$(auswahl$,i+1) ' IF EXIST(auswahl$) ! Datei existiert? block$="" OPEN "I",#1,auswahl$ ! dann ffnen IF blockextension$="IMG" @img_laden IF w=640 AND h=400 ' al$="Das ist kein Block,|sondern ein ganzes Bild.|Soll es eingesetzt werden?" ALERT 2,al$,1,"ja|nein",antw IF antw=1 SPUT bild$ @bild_kurz_zeigen(100) ENDIF ELSE @einsetzen ENDIF ELSE IF LOF(#1)>32000 ' al$="Die Datei ist zu gro!|Das kann kein Block sein." ALERT 3,al$,1,"ach so",dummy ELSE block$=SPACE$(LOF(#1)) ! Dateigre ermitteln BLOAD auswahl$,VARPTR(block$) ! Datei laden @einsetzen ENDIF ENDIF CLOSE #1 ! Datei schlieen ENDIF ENDIF SGET bild$ RETURN PROCEDURE dateiabfrage @schreibkasten(60,305) PRINT AT(22,7);"Diskettenoperationen" PRINT AT(22,9);"P = Speicherplatz auf der Diskette" PRINT AT(22,10);"U = Datum und Uhrzeit einstellen" PRINT AT(22,11);"L = Bild von Diskette laden" PRINT AT(22,12);" (mit Shift: grere Auswahl mglich)" PRINT AT(22,13);"S = Bild auf Diskette speichern" PRINT AT(22,14);"Delete = Datei von der Diskette lschen" PRINT AT(22,15);"O = Ordner auf der Diskette anlegen" PRINT AT(22,17);"andere Taste = Abbruch" REPEAT i$=UPPER$(INKEY$) UNTIL i$>"" taste$=taste$+i$ SPUT bild$ RETURN PROCEDURE datei_einstellen IF BIOS(11,-1)=1 OR BIOS(11,-1)=2 ! Shift-Taste halten --> Auswahl mglich IF hilfe! CLS PRINT AT(2,1);"Normal ist die Extension "".PAC"" (gepackte Bilder). Bild-Dateien mit der" PRINT " Extension "".IMG"" (weniger gut gepackt) sind evtl. auch nur Ausschnitte!" PRINT " Bild-Dateien mit der Extension "".PIC"" sind unkomprimiert (32000 K pro Bild)" ENDIF @schreibkasten(60,305) i$="" PRINT AT(20,6);"Welche Dateien von der Diskette sollen" PRINT AT(20,7);"zur Auswahl angezeigt werden?" antw=1 DO BOUNDARY 1 GRAPHMODE 1 DEFFILL 0,2,8 FOR i=1 TO 4 PBOX 180,132+i*32,460,164+i*32 BOX 180,132+i*32,460,164+i*32 NEXT i PRINT AT(25,12);"Dateien mit der Endung .PAC (1)" PRINT AT(25,14);"Dateien mit der Endung .IMG (2)" PRINT AT(25,16);"Dateien mit der Endung .PIC (3)" PRINT AT(25,18);"alle Dateien (4)" DEFFILL 1,1,1 GRAPHMODE 3 PBOX 180,132+antw*32,460,164+antw*32 @mauswarte EXIT IF i$<>"" EXIT IF ASC(i$)=13 OR i$<>"" DO MOUSE x,y,k i$=INKEY$ EXIT IF (k=1 AND x>180 AND x<460 AND y>164 AND y<292) OR ASC(i$)=13 EXIT IF VAL(i$)>0 AND VAL(i$)<5 LOOP IF k=1 AND x>180 AND x<460 AND y>164 AND y<292 antw=INT((y-132)/32) i$=" "+STR$(antw) ENDIF IF VAL(i$)>0 antw=VAL(i$) i$=" "+STR$(antw) ENDIF LOOP ' SELECT antw CASE 1 extension$="PAC" IF RIGHT$(dateiname$(bild),3)<>"PAC" dateiname$(bild)="" ENDIF CASE 2 extension$="IMG" IF RIGHT$(dateiname$(bild),3)<>"IMG" dateiname$(bild)="" ENDIF CASE 3 extension$="PIC" IF RIGHT$(dateiname$(bild),3)<>"PIC" dateiname$(bild)="" ENDIF CASE 4 extension$="*" dateiname$(bild)="" ENDSELECT ELSE extension$="PAC" IF RIGHT$(dateiname$(bild),3)<>"PAC" dateiname$(bild)="" ENDIF ENDIF DEFTEXT 1,0,0,6 RETURN PROCEDURE datei_loeschen ' pfad$=laufwerk$+"*." geloescht!=FALSE REPEAT suchpfad$=pfad$+"*" @fileselect_titel("Datei von der Diskette lschen") FILESELECT suchpfad$,"",auswahl$ EXIT IF NOT EXIST(auswahl$) ' al$="Die Datei|"+auswahl$+"|von der Diskette lschen ?" ALERT 3,al$,2,"ja|nein",antw IF antw=1 KILL auswahl$ laufwerk=ASC(auswahl$)-64 geloescht!=TRUE ENDIF ' i=RINSTR(auswahl$,"\") pfad$=LEFT$(auswahl$,i)+"*." ! neuer Pfadname wird gebaut dateiname$(bild)=MID$(auswahl$,i+1) ' UNTIL antw=2 OR auswahl$="" OR RIGHT$(auswahl$)="\" IF geloescht! @speicherplatz ENDIF pfad$=laufwerk$+"*." RETURN PROCEDURE datum_und_uhr HIDEM SGET merk$ CLS PRINT PRINT " eingestelltes Datum: ";DATE$ PRINT PRINT " eingestellte Zeit: ";TIME$;" Uhr" PRINT PRINT " alles richtig? (J/N)" DO PRINT AT(23,4);TIME$; i$=UPPER$(INKEY$) EXIT IF i$="N" OR i$="J" EXIT IF i$=CHR$(13) OR MOUSEK>1 LOOP IF i$="N" REPEAT CLS da$="" PRINT AT(2,5);"Bitte das Datum eingeben:" REPEAT PRINT AT(2,7);"Tag : "; FORM INPUT 2,i$ UNTIL VAL(i$)>0 AND VAL(i$)<32 IF ASC(RIGHT$(i$,1))<48 OR ASC(RIGHT$(i$,1))>57 i$=LEFT$(i$,1) ENDIF IF LEN(i$)=1 i$="0"+i$ ENDIF PRINT AT(2,7);"Tag : ";i$ da$=i$ REPEAT PRINT AT(2,8);"Monat: "; FORM INPUT 2,i$ UNTIL VAL(i$)>0 AND VAL(i$)<13 IF ASC(RIGHT$(i$,1))<48 OR ASC(RIGHT$(i$,1))>57 i$=LEFT$(i$,1) ENDIF IF LEN(i$)=1 i$="0"+i$ ENDIF PRINT AT(2,8);"Monat: ";i$ da$=da$+"."+i$ REPEAT PRINT AT(2,9);"Jahr : 19"; FORM INPUT 2,i$ IF VAL(i$)<1 i$="91" ! diese Zeile gilt fr 1991 ENDIF UNTIL VAL(i$)>88 AND VAL(i$)<100 ! nach 1999 ndern .... (???) i$="19"+i$ PRINT AT(2,9);"Jahr : "+i$ da$=da$+"."+i$ ' uhrzeit$="" PRINT AT(2,12);"Bitte die Uhrzeit eingeben:" REPEAT PRINT AT(2,14);"Stunde : "; FORM INPUT 2,i$ UNTIL VAL(i$)>-1 AND VAL(i$)<24 IF VAL(i$)=0 i$="15" ENDIF WHILE LEN(i$)<2 i$="0"+i$ WEND PRINT AT(2,14);"Stunde : ";i$ uhrzeit$=i$ REPEAT PRINT AT(2,15);"Minute : "; FORM INPUT 2,i$ UNTIL VAL(i$)>-1 AND VAL(i$)<61 WHILE LEN(i$)<2 i$="0"+i$ WEND uhrzeit$=uhrzeit$+":"+i$+":"+"00" ' SETTIME uhrzeit$,da$ CLS PRINT PRINT " eingestelltes Datum: ";DATE$ PRINT PRINT " eingestellte Zeit: ";TIME$;" Uhr" PRINT PRINT " alles richtig? (J/N)" DO PRINT AT(23,4);TIME$; i$=UPPER$(INKEY$) EXIT IF i$="N" OR i$="J" EXIT IF i$=CHR$(13) OR MOUSEK>1 LOOP UNTIL i$="J" OR i$=CHR$(13) ENDIF PRINT AT(29,6);"JA" PAUSE 30 SPUT merk$ SHOWM RETURN PROCEDURE drehen SPUT bild$ SGET undo$ @ausschneiden IF NOT abbruch! REPEAT @schreibkasten(60,305) DEFLINE 1,1,0,1 CIRCLE 300,200,50,0,2700 PRINT AT(24,8); INPUT "Drehwinkel (maximal 360): ",i$ winkel#=VAL(i$) UNTIL winkel#>=0 AND winkel#<=360 ' CLS IF winkel#>0 IF winkel#>=180 CLS winkel#=winkel#-180 @mirrorput(x,y,1,*block$) GET x,y,x1,y1,block$ @mirrorput(x,y,2,*block$) GET x,y,x1,y1,block$ ENDIF ' ' Diese Procedure entwickelte Thilo Jantz, Portsloge: ' IF winkel#>0 cos#=COSQ(-winkel#) sin#=SINQ(-winkel#) ' IF winkel#<=90 x1=76 ! Positionen fr Zhlzahl und Drehpunkt x=2 y=398-b_hoehe*COSQ(winkel#) ELSE winkel#=winkel#-90 x1=1 y=398 x=638-b_hoehe*COSQ(winkel#) ENDIF ' ' --- Der Block wird auf den zweiten Bildschirm verfrachtet: --- ' @zweitschirm @schirm2 CLS PUT 0,0,block$ @schirm1 CLS ' ' --- Objekt drehen: ' FOR i=0 TO b_hoehe PRINT AT(x1,25);b_hoehe-i'; FOR j=0 TO b_breite @schirm2 z=POINT(j,i) @schirm1 IF z=1 PLOT x+cos#*j-sin#*i,y+sin#*j+cos#*i ENDIF NEXT j IF INKEY$>"" ' ALERT 2,"Drehung abbrechen?",1,"ja|nein",antw IF antw=1 i=b_hoehe ENDIF ENDIF NEXT i ' OUT 2,7 SGET merk$ SWAP bild$,merk$ @ausschneiden SWAP bild$,merk$ ENDIF SPUT bild$ IF NOT abbruch! @einsetzen ENDIF a=MAX(a,b1_adr) VOID XBIOS(5,L:a,L:a,-1) ENDIF ENDIF RETURN PROCEDURE einsetzen SGET undo$ SPUT bild$ @zweitschirm IF hilfe! RESTORE help_einsetzen @hilfstext ENDIF help_einsetzen: DATA Ausschnitt mit Mausklick an den DATA gewnschten Stellen einsetzen. DATA DATA Ende mit rechter Maustaste. DATA DATA Bei gehaltener Shift-Taste kann man DATA in die benachbarten Bilder verschieben. DATA DATA Auch mit den Pfeiltasten kann man DATA das Bild wechseln. DATA DATA Mit den Zifferntasten 1 bis 4 lt sich DATA der Graphikmodus verndern. DATA * ' DEFLINE 1,1,0,0 REPEAT SWAP a,b1_adr VOID XBIOS(5,L:a,L:b1_adr,-1) ' SPUT bild$ MOUSE x,y,k i$=UPPER$(INKEY$) IF x=0 AND BIOS(11,-1)=2 ! bei gehaltener linker Shift-Taste ... i$="KK" SETMOUSE 630,y ENDIF IF x=639 AND BIOS(11,-1)=2 ! ... kann ins nchste Bild geschoben werden i$="MM" SETMOUSE 10,y ENDIF ' IF i$>"" IF LEN(i$)=2 @bildwechsel(RIGHT$(i$)) ELSE IF VAL(i$)>0 AND VAL(i$)<5 mode=VAL(i$) SELECT mode CASE 1 p_mode=3 CASE 2 p_mode=7 CASE 3 p_mode=6 CASE 4 p_mode=13 ENDSELECT ENDIF ENDIF ' IF gitter! x=INT((x+x_weite/2)/x_weite)*x_weite y=INT((y+y_weite/2)/y_weite)*y_weite ENDIF PUT x,y,block$,p_mode IF k=1 SGET bild$ ! Bild mit Block einfangen MOUSE x,y,k WHILE MOUSEK ! warten, bis Maustaste losgelassen EXIT IF MOUSEX<>x OR MOUSEY<>y ! oder Maus bewegt wird MOUSE x,y,k WEND ENDIF ' LINE x,0,x,399 ! groes Kreuz als Mauszeiger LINE 0,y,639,y UNTIL k=2 a=MAX(a,b1_adr) VOID XBIOS(5,L:a,L:a,-1) ' @menu_aendern ! genderte Einstellungen eintragen @modus_eintragen SPUT bild$ RETURN PROCEDURE ellipse SGET undo$ DEFMOUSE 7 ' IF hilfe! RESTORE help_elli @hilfstext ENDIF help_elli: DATA Zuerst Mittelpunkt anklicken, DATA dann Lnge und Breite DATA der Ellipsen mit Maus bestimmen. DATA DATA Ellipsen bernehmen mit [LMT] DATA DATA Aufhren mit [RMT] DATA * ' DO COLOR 1 DEFLINE 1,1,0,0 REPEAT MOUSE x,y,k UNTIL k EXIT IF k>1 OR INKEY$=CHR$(27) @mauswarte IF gitter! x=INT((x+x_weite/2)/x_weite)*x_weite y=INT((y+y_weite/2)/y_weite)*y_weite ENDIF GRAPHMODE 3 PAUSE 10 REPEAT MOUSE x1,y1,k IF gitter! x1=INT((x1+x_weite/2)/x_weite)*x_weite y1=INT((y1+y_weite/2)/y_weite)*y_weite ENDIF ELLIPSE x,y,ABS(x1-x),ABS(y1-y) PAUSE 2 ELLIPSE x,y,ABS(x1-x),ABS(y1-y) UNTIL k EXIT IF k>1 OR INKEY$=CHR$(27) GRAPHMODE mode DEFLINE stil,breite,2,2 DEFFILL 1,muster1,muster2 COLOR farbe IF figurfuellen! PELLIPSE x,y,ABS(x1-x),ABS(y1-y) ELSE ELLIPSE x,y,ABS(x1-x),ABS(y1-y) ENDIF PAUSE 5 @mauswarte LOOP SGET bild$ RETURN PROCEDURE farbwahl GRAPHMODE 1 f$=" wei " IF farbe=1 farbe=0 ELSE farbe=1 f$="schwarz" ENDIF @zweitschirm @schirm2 SPUT menue$ DEFTEXT 1,0,0,6 TEXT 162,390," "+f$ SGET menue$ @schirm1 RETURN PROCEDURE fehler IF ERR=8 ' al$="Der Speicherplatz reicht nicht|aus fr dieses Programm!" al$=al$+"|Evtl. Accessories weglassen|oder Ramdisk verkleinern..." ALERT 1,al$,1,"Abbruch",dummy EDIT ELSE IF ERR=-34 ' al$="Der gewhlte Ordner war|auf dieser Diskette|nicht vorhanden!|Bitte noch einmal versuchen!" ALERT 1,al$,1,"ach so",dummy laufwerk=GEMDOS(25)+1 laufwerk$=CHR$(GEMDOS(25)+65)+":"+"\" pfad$(bild)=laufwerk$+"*." pfad$=laufwerk$+"*." dateiname$(bild)="" blockextension$="IMG" blockpfad$=laufwerk$+"*." blockname$="" ELSE IF ERR=37 ' al$="Die Diskette ist voll!| |Dein Bild ist wahrscheinlich|fehlerhaft gespeichert worden!" ALERT 1,al$,1,"Mist",dummy ELSE ~FORM_ALERT(1,ERR$(ERR)) ENDIF ON BREAK GOSUB schluss ON ERROR GOSUB fehler RESUME neustart RETURN PROCEDURE figur_fuellen SPUT menue$ GRAPHMODE 1 DEFTEXT 1,0,0,6 IF figurfuellen! figurfuellen!=FALSE TEXT 322,390," nein" bound=1 ELSE figurfuellen!=TRUE TEXT 322,390," ja " ' al$="Figuren werden jetzt gefllt|gezeichnet.|" al$=al$+"Sollen sie auch einen Rand|bekommen?" ALERT 2,al$,1,"ja|nein",antw IF antw=1 bound=1 ELSE bound=0 ENDIF ENDIF GRAPHMODE 1 SGET menue$ RETURN PROCEDURE fileselect_titel(titel$) titel$=LEFT$(titel$,36) ! Text soll max. 36 Zeichen lang sein DEFLINE 1,1,0,0 COLOR 1 dummy=(36-LEN(titel$))/2 titel$=SPACE$(dummy)+titel$ ! Text zentrieren GRAPHMODE 1 DEFFILL 1,2,8 PBOX 162,10,482,50 DEFFILL 0,2,8 PBOX 158,6,478,46 BOX 158,6,478,46 PRINT AT(23,2);titel$ RETURN PROCEDURE freihand SGET undo$ DEFLINE stil,breite,2,2 DEFMOUSE 7 IF hilfe! RESTORE help_standard @hilfstext ENDIF help_standard: DATA "Die linke Maustaste =[LMT]" DATA "macht die gewhlte Arbeit" DATA "(z.B. Zeichnen, Radieren)" DATA DATA "[Backspace] nimmt (meist)" DATA "die letzte Aktion zurck" DATA DATA "Die rechte Maustaste =[RMT]" DATA "oder [Esc] beenden die Arbeit" DATA DATA "[Undo] macht spter alles" DATA "ungetan" DATA * ' DO GRAPHMODE mode IF mode=4 ! mit Graphikmodus 4 sieht man nichts GRAPHMODE 1 ENDIF COLOR farbe REPEAT x$=UPPER$(INKEY$) MOUSE x,y,k UNTIL k OR x$=CHR$(8) IF x$=CHR$(8) SPUT merk$ k=0 ENDIF EXIT IF k>1 OR INKEY$=CHR$(27) SGET merk$ IF MOUSEK=1 PLOT MOUSEX,MOUSEY ENDIF WHILE MOUSEK=1 MOUSE x,y,k DRAW TO x,y PAUSE 3 ! Dadurch werden die Linien geglttet WEND EXIT IF k>1 OR INKEY$=CHR$(27) LOOP SGET bild$ RETURN PROCEDURE fuellen SGET undo$ DEFFILL 1,muster1,muster2 DEFMOUSE 0 IF hilfe! RESTORE help_fuellen @hilfstext ENDIF help_fuellen: DATA Fllen: linke Maustaste [LMT] DATA DATA Aufhren: rechts [RMT] DATA DATA Muster wechseln: Y DATA DATA Zurcknehmen: [Backspace] DATA * IF x$="Y" @musterwahl ENDIF SPUT bild$ DO REPEAT MOUSE x,y,k x$=UPPER$(INKEY$) IF x$="Y" @musterwahl k=0 ENDIF UNTIL k OR x$=CHR$(8) EXIT IF k>1 OR INKEY$=CHR$(27) IF x$=CHR$(8) SPUT merk$ ENDIF SGET merk$ IF k=1 FILL x,y ENDIF @mauswarte LOOP SGET bild$ RETURN PROCEDURE gerade SGET undo$ DEFMOUSE 7 IF hilfe! RESTORE help_gerade @hilfstext ENDIF help_gerade: DATA Geraden ziehen mit zwei Mausklicks DATA (linke Maustaste) DATA DATA Lschen der letzten Geraden mit DATA [Backspace] DATA DATA Beenden mit rechter Taste! DATA * ' REPEAT MOUSE x,y,k UNTIL k @mauswarte DO COLOR 1 DEFLINE 1,1,0,0 WHILE k=0 MOUSE x,y,k x$=UPPER$(INKEY$) EXIT IF x$=CHR$(8) WEND @mauswarte IF x$=CHR$(8) SPUT merk$ ELSE IF gitter! x=INT((x+x_weite/2)/x_weite)*x_weite y=INT((y+y_weite/2)/y_weite)*y_weite ENDIF EXIT IF k>1 OR INKEY$=CHR$(27) SGET merk$ GRAPHMODE 3 REPEAT MOUSE x1,y1,k IF gitter! x1=INT((x1+x_weite/2)/x_weite)*x_weite y1=INT((y1+y_weite/2)/y_weite)*y_weite ENDIF LINE x,y,x1,y1 PAUSE 2 LINE x,y,x1,y1 UNTIL k @mauswarte EXIT IF k>1 OR INKEY$=CHR$(27) GRAPHMODE mode DEFLINE stil,breite,anfang,ende COLOR farbe LINE x,y,x1,y1 ENDIF k=0 LOOP SGET bild$ RETURN PROCEDURE geodreieck PAUSE 10 ' al$="Was mchtest Du zeichnen?" ALERT 2,al$,0,"Winkel|Parallel|Abbruch",antw IF antw<3 SGET undo$ DEFMOUSE 7 GRAPHMODE 1 SPUT bild$ IF hilfe! SELECT antw CASE 1 RESTORE help_geo_1 CASE 2 RESTORE help_geo_2 ENDSELECT @hilfstext ENDIF help_geo_2: DATA "Parallelen zeichnen:" DATA DATA "Erst die Gerade aufnehmen" DATA "mit zweimal linker Maustaste" DATA "(wird wieder entfernt)" DATA DATA "Dann Parallelen setzen" DATA * help_geo_1: DATA "Winkel zeichnen:" DATA DATA "Ersten Schenkel zeichnen -" DATA "beim Scheitelpunkt beginnen" DATA "(wird wieder entfernt)" DATA DATA "Dann Winkel festlegen und" DATA "zweiten Schenkel zeichnen" DATA "oder nur messen und" DATA "mit [RMT] abbrechen" DATA * ' GRAPHMODE 3 DEFLINE 1,1,0,0 REPEAT MOUSE x,y,k UNTIL k PAUSE 10 @mauswarte HIDEM REPEAT MOUSE x1,y1,k LINE x,y,x1,y1 PAUSE 2 LINE x,y,x1,y1 UNTIL k ' SELECT antw CASE 1 ! Winkel REPEAT GRAPHMODE 1 DEFLINE 1,1,0,0 LINE x1,y1,x,y GRAPHMODE 3 a#=SQR(ABS((x-x1)^2+(y-y1)^2)) @mauswarte REPEAT MOUSE x2,y2,k LINE x,y,x2,y2 b#=SQR(ABS((x2-x)^2+(y2-y)^2)) c#=SQR(ABS((x2-x1)^2+(y2-y1)^2)) IF a#*b#>0 AND ((c#^2-a#^2-b#^2)/(-2*a#*b#))<=1 winkel#=ACOS((c#^2-a#^2-b#^2)/(-2*a#*b#)) winkel#=winkel#*180/PI PRINT AT(2,2);INT(10*winkel#+0.5)/10;CHR$(248)'' ENDIF LINE x,y,x2,y2 UNTIL k GRAPHMODE mode DEFLINE stil,breite,anfang,ende IF k=1 SPUT bild$ LINE x,y,x2,y2 SGET bild$ ENDIF UNTIL k=2 SPUT bild$ CASE 2 ! Parallele zeichnen x1=x1-x y1=y1-y REPEAT @mauswarte GRAPHMODE 3 DEFLINE 1,1,0,0 REPEAT MOUSE x,y,k IF gitter! x=INT((x+x_weite/2)/x_weite)*x_weite y=INT((y+y_weite/2)/y_weite)*y_weite ENDIF LINE x,y,x-x1,y-y1 PAUSE 2 LINE x,y,x-x1,y-y1 UNTIL k IF k=1 GRAPHMODE mode DEFLINE stil,breite,anfang,ende LINE x,y,x-x1,y-y1 ENDIF UNTIL k=2 ENDSELECT SHOWM SGET bild$ ENDIF RETURN PROCEDURE gitter SGET merk$ ' @schreibkasten(60,305) PRINT AT(20,6);"Wenn das Gitter eingeschaltet ist, rasten" PRINT AT(20,7);"gerade Linien, Kreise, Ellipsen, Blcke..." PRINT AT(20,8);"an bestimmten Bildschirmstellen ein." ' IF gitter! i=2 al$="Das Gitter ist eingeschaltet.| |Gitterweite: "+STR$(x_weite)+"*"+STR$(y_weite)+" Pixel" ELSE i=3 al$="Das Gitter ist ausgeschaltet." ENDIF ' ALERT 1,al$,i,"OK|aus|ndern",antw IF antw=2 gitter!=FALSE ENDIF ' GRAPHMODE 1 ' IF antw=3 gitter!=TRUE ' ALERT 2,"Neue Gitterweite:",2,"10*10|20*20|anders",antw SELECT antw CASE 1 x_weite=10 y_weite=10 CASE 2 x_weite=20 y_weite=20 CASE 3 @schreibkasten(60,350) DEFTEXT 1,0,0,13 PRINT AT(21,5);"Gitterweite ndern mit Pfeiltasten" PRINT AT(21,6);"Mit [Shift] ist nderung um 10 mglich." DEFFILL 0,2,8 ' FOR i=1 TO 4 BOX 360+25*i,180,385+25*i,205 TEXT 370+25*i,200,CHR$(i) NEXT i BOX 385,220,485,245 BOX 386,221,484,244 TEXT 425,240,"OK" ' REPEAT PBOX 160,140,360,340 ! weier Kasten PRINT AT(49,10);STR$(x_weite)+"*"+STR$(y_weite);" Pixel"' FOR i=160 TO 360 STEP x_weite ! senkreche Linien LINE i,140,i,340 NEXT i FOR i=140 TO 340 STEP y_weite ! waagerechte Linien LINE 160,i,360,i NEXT i REPEAT @get.tom IF k AND (x>385 AND x<485 AND y>180 AND y<245) PAUSE 3 x=INT((x-360)/25) IF y>220 scan=28 x=0 ENDIF SELECT x CASE 1 scan=72 CASE 2 scan=80 CASE 3 scan=77 CASE 4 scan=75 ENDSELECT ENDIF ' IF scan>0 SELECT scan CASE 75 ! <- IF BIOS(11,-1)=1 OR BIOS(11,-1)=2 ! Shift-Taste gehalten SUB x_weite,10 ELSE DEC x_weite ENDIF IF x_weite<=1 x_weite=2 ENDIF CASE 77 ! -> IF BIOS(11,-1)=1 OR BIOS(11,-1)=2 ADD x_weite,10 ELSE INC x_weite ENDIF IF x_weite>=201 x_weite=200 ENDIF CASE 72 ! ^ IF BIOS(11,-1)=1 OR BIOS(11,-1)=2 SUB y_weite,10 ELSE DEC y_weite ENDIF IF y_weite<=1 y_weite=2 ENDIF CASE 80 ! v IF BIOS(11,-1)=1 OR BIOS(11,-1)=2 ADD y_weite,10 ELSE INC y_weite ENDIF IF y_weite>=201 y_weite=200 ENDIF ENDSELECT ENDIF UNTIL scan>0 UNTIL scan=28 OR scan=114 OR k>1 ENDSELECT ENDIF ' @zweitschirm @schirm2 SPUT menue$ DEFTEXT 1,0,0,6 IF gitter! TEXT 482,390," " TEXT 482,390," "+STR$(x_weite)+"*"+STR$(y_weite) ELSE TEXT 482,390," aus " ENDIF SGET menue$ @schirm1 RETURN PROCEDURE gummikasten abbruch!=FALSE COLOR 1 DEFLINE 1,1,0,0 GRAPHMODE 3 IF gitter! x=INT((x+x_weite/2)/x_weite)*x_weite y=INT((y+y_weite/2)/y_weite)*y_weite ENDIF @mauswarte PAUSE 10 REPEAT MOUSE x1,y1,k IF gitter! x1=INT((x1+x_weite/2)/x_weite)*x_weite y1=INT((y1+y_weite/2)/y_weite)*y_weite ENDIF BOX x,y,x1,y1 PAUSE 2 BOX x,y,x1,y1 UNTIL k @mauswarte IF k>1 abbruch!=TRUE ENDIF @wahleinstellung IF x1>=640 x1=639 ENDIF IF y1>=400 y1=399 ENDIF IF x11 abbruch!=TRUE ENDIF GRAPHMODE mode DEFLINE stil,breite,anfang,ende DEFFILL 1,muster1,muster2 COLOR farbe RETURN PROCEDURE hcopy_laengs_24 ! aus dem "GFA-BASIC-Buch von F. Ostrowski LPRINT CHR$(27);"@"; ! Drucker initialisieren i$=SPACE$(400) g$=" "+CHR$(27)+"*"+CHR$(0)+CHR$(400)+CHR$(400/256) !fr NEC P2200 OPEN "",#99,"LST:" FOR i=XBIOS(3) TO i+79 abbruch=0 x=VARPTR(i$) FOR j=i+399*80 TO i STEP -80 POKE x,PEEK(j) INC x NEXT j FOR j=0 TO 2 PRINT #99,g$;i$;CHR$(13);CHR$(27);"J";CHR$(1); IF INKEY$<>"" OUT 4,8 ' ALERT 2,"Ausdruck abbrechen?",1,"ja|nein",abbruch ENDIF EXIT IF abbruch=1 NEXT j PRINT #99,CHR$(27);"J";CHR$(21); EXIT IF abbruch=1 NEXT i CLOSE #99 RETURN PROCEDURE hcopy_klein_24 ! von Konstantinos Lavassas fr TOS - Magazin abbruch!=FALSE ' adr=XBIOS(3) drucker_init$=CHR$(27)+"l"+CHR$(rand) ! Linker Rand oder hnliches start$=CHR$(27)+"*"+CHR$(39)+CHR$(144)+CHR$(1) ! Druckersteuerung ' ESC * ' = 399 ! (siehe Text) ' vorschub$=CHR$(27)+"J"+CHR$(23)+CHR$(13) ! Zeilenvorschub einstellen ' OPEN "O",#99,"LST:" ! Ausgabe auf Printer PRINT #99,drucker_init$; ' PRINT #99,CHR$(13) ! Zeilenvorschub FOR i=0 TO 78 STEP 3 ! alle Spalten durch IF INKEY$<>"" OUT 4,8 ' ALERT 2,"Ausdruck abbrechen?",1,"ja|nein",abbruch ENDIF EXIT IF abbruch=1 PRINT #99,start$; FOR j=399 TO 0 STEP -1 ! alle Zeilen durch date=adr+(j*80)++i ! Daten holen PRINT #99,CHR$(PEEK(date+0)); ! und jeweils 3 hinterein- PRINT #99,CHR$(PEEK(date+1)); ! ander ausgeben, bei den IF i<78 ! letzten Zeilen PRINT #99,CHR$(PEEK(date+2)); ! nur zwei Spalten ELSE ! drucken PRINT #99,CHR$(0); ENDIF NEXT j PRINT #99,vorschub$; ! passender Zeilenvorschub NEXT i ' CLOSE #99 RETURN PROCEDURE hcopy_laengs_9 ! aus dem "GFA-BASIC-Buch von F. Ostrowski LPRINT CHR$(27);"@"; ! Drucker initialisieren i$=SPACE$(400) g$=" "+CHR$(27)+"*"+CHR$(5)+CHR$(400)+CHR$(400/256)!fr Panasonic KXP1092 OPEN "",#99,"LST:" FOR i=XBIOS(3) TO i+79 abbruch=0 x=VARPTR(i$) FOR j=i+399*80 TO i STEP -80 POKE x,PEEK(j) INC x NEXT j FOR j=0 TO 1 PRINT #99,g$;i$;CHR$(13);CHR$(27);"J";CHR$(1); IF INKEY$<>"" OUT 4,8 ' ALERT 2,"Ausdruck abbrechen?",1,"ja|nein",abbruch ENDIF EXIT IF abbruch=1 NEXT j PRINT #99,CHR$(27);"J";CHR$(22); EXIT IF abbruch=1 NEXT i CLOSE #99 RETURN PROCEDURE hcopy_quer_9 LPRINT CHR$(27);"@"; ! Drucker initialisieren abbruch=0 IF abbruch<>2 HARDCOPY ENDIF RETURN PROCEDURE hcopy_klein_9 ! von Josef Wiggermann, Sgel LOCAL start_adr,druckzeile$,zeile,sp,bit,p,adr,ak_adr,top,fett DIM inhalt(7) ' rand=ABS(rand) ! rand% = linker Rand rand=MIN(rand,50) ' start_adr=XBIOS(2) ' OPEN "",#99,"LST:" ' FOR zeile=1 TO 50 STEP 3 FOR durchgang=0 TO 2 druckzeile$=STRING$(640,0) sp=VARPTR(druckzeile$) top=sp FOR adr=start_adr TO start_adr+76 STEP 4 ak_adr=adr+durchgang*80 was_da!=FALSE FOR bit=7 DOWNTO 0 inhalt(bit)={ak_adr} IF inhalt(bit)<>0 was_da!=TRUE ENDIF ADD ak_adr,80*3 NEXT bit IF was_da!=TRUE FOR p=31 DOWNTO 0 ' FOR bit=7 DOWNTO 0 IF BTST(inhalt(bit),p) BYTE{sp}=BSET(BYTE{sp},bit) ENDIF NEXT bit ' INC sp NEXT p top=sp ' ELSE ADD sp,32 ENDIF NEXT adr ' top=top-VARPTR(druckzeile$) g$=CHR$(27)+"*"+CHR$(3)+CHR$(top)+CHR$(top/256) ' FOR fett=1 TO 1 ! 1 = normal, 2 = fetter (mehr als 3 ist sinnlos) PRINT #99,SPACE$(rand);g$;LEFT$(druckzeile$,top);CHR$(13); NEXT fett ' PRINT #99,CHR$(27);"J";CHR$(1); NEXT durchgang PRINT #99,CHR$(27);"J";CHR$(21); ' ' ADD start_adr,640*3 abbruch=0 IF LEN(INKEY$) OR MOUSEK OUT 4,8 ' ALERT 2,"Ausdruck abbrechen?",1,"ja|nein",abbruch ENDIF EXIT IF abbruch<>0 NEXT zeile ' ERASE inhalt() CLOSE #99 ' LPRINT CHR$(12); evtl. Seitenvorschub RETURN PROCEDURE hilfe GRAPHMODE 1 CLS PRINT PRINT " K R I T Z E L - Kurzanleitung" PRINT PRINT " Mit der linken Maustaste [LMT] wird gearbeitet, mit der rechten [RMT] wird" PRINT " beendet. Die [RMT] oder die Leertaste schalten vom Men zum Bild hin- und her." PRINT PRINT " Viele Funktionen knnen auch mit einer Taste aufgerufen werden." PRINT " (siehe im Men; der Aufwrtspfeil steht fr eine gehaltene Shift-Taste.)" PRINT PRINT " Einige ntzliche Tastenfunktionen:" PRINT PRINT " Undo: letzte nderungen rckgngig machen." PRINT " Shift + Help: Hilfsbemerkungen aus- und einschalten." PRINT " Shift + B: Testbild" PRINT " F10: bestimmen, ob Figuren wie z.B. Kreise gefllt werden sollen." PRINT " Pfeiltasten: Zwischen den Bildern hin- und herschalten (5 Bilder mglich)" PRINT PRINT " Viele Aktionen knnen sofort durch Bettigung der Taste [Backspace] rck-" PRINT " gngig gemacht werden (z.B. beim Freihandzeichnen, Radieren und Fllen)." PRINT PRINT " Falls mal keine Linien entstehen: Vielleicht ist die Zeichenfarbe auf wei" PRINT " oder ein falscher Graphikmodus eingestellt ... Auch beim Schreiben von" PRINT " Texten kann der Wechsel des Graphikmodus manchmal ntzlich sein." REPEAT UNTIL MOUSEK>1 OR INKEY$<>"" SPUT menue$ RETURN PROCEDURE horizontal p(0)=0 p(2)=b p(4)=x p(6)=x+b p(8)=3 p(5)=y+h p(7)=y+h FOR i=0 TO h p(1)=i p(3)=i BITBLT smfdb(),dmfdb(),p() DEC p(5) DEC p(7) NEXT i RETURN PROCEDURE inlines_einlesen ' In den folgenden Zeilen befindet sich das Maschinenprogramm zum Aus- und ' Einpacken von STAD-Bildern und das Titelbild. Wenn das Programm als ASCII- ' Datei gespeichert wird, verschwinden sie! Dann mssen die entsprechenden ' Dateien wieder in diese Zeilen eingeladen werden. ' INLINE stad_depack,212 INLINE stad_h_pack,214 INLINE stad_v_pack,242 ' Das Titelbild wurde als gepacktes Bild eingebunden: INLINE titel,13238 ' ' Die folgende Assembler-Routine zum Ein- und Auspacken ins IMG-Format ' stammt aus dem GFA Anwenderbuch von Schell/Weidle: ' INLINE img_pack,958 ' RETURN PROCEDURE invert SGET undo$ GRAPHMODE 3 DEFFILL 1,1,1 PBOX -1,-1,640,400 GRAPHMODE 1 DEFFILL 1,muster1,muster2 SGET bild$ RETURN PROCEDURE kasten SGET undo$ DEFMOUSE 7 ' IF hilfe! RESTORE help_kasten @hilfstext ENDIF help_kasten: DATA Ksten ziehen mit zwei Mausklicks DATA [LMT] DATA DATA Aufhren mit rechter Maustaste DATA * ' REPEAT MOUSE x,y,k UNTIL k ' DO COLOR 1 DEFLINE 1,1,0,0 WHILE k=0 MOUSE x,y,k WEND EXIT IF k>1 OR INKEY$=CHR$(27) @gummikasten EXIT IF abbruch! GRAPHMODE mode DEFLINE stil,1,2,2 DEFFILL 1,muster1,muster2 COLOR farbe IF figurfuellen! PBOX x,y,x1,y1 ELSE FOR i=0 TO breite-1 ! Schleife fr eckige Ksten EXIT IF (i>x1-x) OR (i>y1-y) ! bei dicken Linien BOX x+i,y+i,x1-i,y1-i NEXT i ENDIF PAUSE 5 k=0 LOOP SGET bild$ RETURN PROCEDURE koerper PAUSE 10 ' ALERT 2,"Was mchtest Du zeichnen?",0,"Prisma|Pyramide|nichts",antw merk$=bild$ IF antw<3 @vieleck IF hilfe! SELECT antw CASE 1 RESTORE help_koerper_1 CASE 2 RESTORE help_koerper_2 ENDSELECT @hilfstext ENDIF help_koerper_1: DATA "Zum Fertigzeichnen des Prismas" DATA "den Punkt ber der ersten Ecke" DATA "mit [LMT] festlegen" DATA DATA "[RMT] = alles wieder weg" DATA * help_koerper_2: DATA "Zum Fertigzeichnen des Pyramide" DATA "die Spitze mit [LMT] festlegen" DATA DATA "[RMT] = alles wieder weg" DATA * ' GRAPHMODE 3 DEFLINE 1,1,0,0 REPEAT MOUSE x,y,k IF gitter! x=INT((x+x_weite/2)/x_weite)*x_weite y=INT((y+y_weite/2)/y_weite)*y_weite ENDIF LINE x(1),y(1),x,y PAUSE 2 LINE x(1),y(1),x,y UNTIL k IF k>1 bild$=merk$ ENDIF SPUT bild$ ' IF k<2 GRAPHMODE mode IF mode=4 ! mit Graphikmodus 4 sieht das Ergebnis zu bld aus GRAPHMODE 1 ENDIF DEFLINE stil,breite,2,2 COLOR farbe ' SELECT antw CASE 1 x1=x-x(1) y1=y-y(1) FOR j=0 TO i IF j<>i LINE x(j),y(j),x(j)+x1,y(j)+y1 ENDIF ADD x(j),x1 ADD y(j),y1 NEXT j ' IF NOT figurfuellen! POLYLINE i,x(),y() ELSE DEFFILL 1,muster1,muster2 POLYFILL i,x(),y() ENDIF CASE 2 FOR j=0 TO i IF j<>i LINE x(j),y(j),x,y ENDIF NEXT j ENDSELECT SGET bild$ ENDIF @bild_kurz_zeigen(100) ENDIF RETURN PROCEDURE kopieren SGET bild$(bild) GET 0,0,639,399,merk$ @schreibkasten(60,305) PRINT AT(25,10);" Auf welches Bild soll Bild ";bild' PRINT AT(25,11);" kopiert werden? " PRINT AT(25,12);" (bitte Zifferntaste) " PRINT AT(25,14);" Abbruch mit 0" REPEAT i$=INKEY$ EXIT IF i$="0" UNTIL VAL(i$)>0 AND VAL(i$)<6 IF i$<>"0" bild=VAL(i$) ! neue Bildnummer ' @menu_aendern ' SPUT bild$(bild) SGET undo$ PAUSE 30 PUT 0,0,merk$,p_mode SGET bild$(bild) SGET bild$ ENDIF RETURN PROCEDURE kreis SGET undo$ DEFMOUSE 7 ' IF hilfe! RESTORE help_kreis @hilfstext ENDIF help_kreis: DATA Zuerst Mittelpunkt anklicken, DATA dann Radius der Kreise DATA mit Mausklick festlegen DATA DATA Letzen Kreis entfernen mit [Backspace] DATA DATA Aufhren mit rechter Taste DATA DATA * ' REPEAT MOUSE x,y,k UNTIL k SPUT bild$ ' DO COLOR 1 DEFLINE 1,1,0,0 IF k=0 REPEAT REPEAT MOUSE x,y,k x$=UPPER$(INKEY$) UNTIL k OR x$>"" IF x$=CHR$(8) SPUT merk$ ENDIF UNTIL x$="" ENDIF SGET merk$ EXIT IF k>1 OR INKEY$=CHR$(27) @gummikreis EXIT IF abbruch! GRAPHMODE mode DEFLINE stil,breite,2,2 DEFFILL 1,muster1,muster2 COLOR farbe IF figurfuellen! PCIRCLE x,y,ABS(x1-x) ELSE CIRCLE x,y,ABS(x1-x) ENDIF PAUSE 5 k=0 LOOP SGET bild$ RETURN PROCEDURE kurve SGET undo$ DEFMARK 1,4,10 DEFMOUSE 5 ' @mauswarte IF hilfe! RESTORE help_kurve @hilfstext ENDIF help_kurve: DATA "Die Kurvenform wird durch" DATA "die vier Punkte festgelegt [LMT]" DATA DATA "[LMT] = Punkte setzen oder verschieben" DATA DATA "[Return] = Kurve nehmen" DATA DATA "[RMT]/[Esc] = fertig" DATA * ' DO GRAPHMODE 1 SGET merk$ DEFLINE 1,1,0,0 FOR i=0 TO 3 REPEAT MOUSE x(i),y(i),k IF INKEY$=CHR$(27) k=2 ENDIF UNTIL k @mauswarte POLYMARK i+1,x(),y() POLYLINE i+1,x(),y() NEXT i SPUT merk$ EXIT IF k>1 GRAPHMODE 3 POLYMARK 4,x(),y() POLYLINE 4,x(),y() CURVE x(0),y(0),x(1),y(1),x(2),y(2),x(3),y(3) DO MOUSE x,y,k i$=INKEY$ IF i$=CHR$(27) k=2 ENDIF EXIT IF k>1 EXIT IF i$=CHR$(13) IF k i=-1 IF ABS(x-x(0))<10 AND ABS(y-y(0))<10 i=0 ENDIF IF ABS(x-x(1))<10 AND ABS(y-y(1))<10 i=1 ENDIF IF ABS(x-x(2))<10 AND ABS(y-y(2))<10 i=2 ENDIF IF ABS(x-x(3))<10 AND ABS(y-y(3))<10 i=3 ENDIF IF i>-1 HIDEM SPUT merk$ ' @mauswarte REPEAT MOUSE x(i),y(i),k CURVE x(0),y(0),x(1),y(1),x(2),y(2),x(3),y(3) PAUSE 2 CURVE x(0),y(0),x(1),y(1),x(2),y(2),x(3),y(3) UNTIL k SHOWM ' POLYMARK 4,x(),y() POLYLINE 4,x(),y() CURVE x(0),y(0),x(1),y(1),x(2),y(2),x(3),y(3) ' @mauswarte ENDIF ENDIF LOOP @mauswarte SPUT merk$ EXIT IF k>1 GRAPHMODE mode DEFLINE stil,breite,anfang,ende CURVE x(0),y(0),x(1),y(1),x(2),y(2),x(3),y(3) LOOP SGET bild$ RETURN PROCEDURE laden SGET undo$ ' @datei_einstellen @fileselect_titel("Bild von der Diskette laden") ' IF hilfe! PRINT AT(2,24);"Wenn beim Aufruf ""Datei laden"" die Shift-Taste gehalten wird, hat man beim" PRINT AT(2,25);"Laden eine grere Auswahl."; ENDIF ' suchpfad$=pfad$(bild)+extension$ FILESELECT suchpfad$,dateiname$(bild),auswahl$ dateiname$(bild)="" IF LEN(auswahl$)>0 IF EXIST(auswahl$) ! Wenn Datei existiert, ' i=RINSTR(auswahl$,".") IF i>0 extension$=MID$(auswahl$,i+1) ! Extension wird herausgelesen ENDIF laufwerk=ASC(auswahl$)-64 ' OPEN "I",#1,auswahl$ ! dann ffnen ' IF extension$="PAC" ! STAD-gepacktes Format @stad_pac_laden SGET bild$ ' ELSE IF extension$="IMG" ! IMG-gepacktes Format @img_laden IF h=400 AND w=640 SPUT bild$ ELSE SPUT bild$ @einsetzen ENDIF ' ELSE IF LOF(#1)=32000 OR LOF(#1)=32034 ! PIC- oder PI3-Format IF LOF(#1)=32034 SEEK #1,34 ENDIF bild$=INPUT$(32000,#1) ' ELSE IF LOF(#1)<32000 ' ' al$="Das sieht nicht nach Bild aus!|Trotzdem versuchen?" ALERT 2,al$,2,"ja|nein",antw IF antw=1 CLS BLOAD auswahl$,XBIOS(2) SGET bild$ ENDIF ' ENDIF ' i=RINSTR(auswahl$,"\") pfad$(bild)=LEFT$(auswahl$,i)+"*." ! neuer Pfadname wird gebaut dateiname$(bild)=MID$(auswahl$,i+1) ' ENDIF ' CLOSE ENDIF SPUT bild$ RETURN PROCEDURE linienwahl ! Nach dem Programm "DENISE" aus der "68000er" COLOR 1 GRAPHMODE 1 SGET merk$ @schreibkasten(60,305) BOUNDARY 1 DEFFILL 1,0,0 FOR i=104 TO 168 STEP 32 ! 3 Auswahl-Kisten PBOX 170,i,245,i+31 NEXT i PBOX 170,235,245,260 ! Fertig-Kiste mit dickem Rahmen PBOX 171,236,244,259 PBOX 172,237,243,258 ' PBOX 400,103,470,135 ! zwei Kisten rechts PBOX 400,213,470,245 ' PRINT AT(23,8);"Breite +" PRINT AT(23,10);"Breite -" PRINT AT(25,12);"Stil" PRINT AT(24,16);"Fertig" PRINT AT(52,8);"Anfang" PRINT AT(53,15);"Ende" PRINT AT(20,18);"Bitte aussuchen, wie Linien aussehen sollen" DO DEFLINE stil,breite,anfang,ende PBOX 270,103,370,245 ! Kiste fr Probelinie LINE 320,125,320,225 ! Probelinie PRINT AT(45,15);breite REPEAT MOUSE x,y,k i$=INKEY$ IF i$>"" i$=UPPER$(i$) IF i$="A" k=1 x=420 y=120 ENDIF IF i$="E" k=1 x=420 y=220 ENDIF IF i$="S" k=1 x=200 y=180 ENDIF ENDIF UNTIL k=1 OR i$=CHR$(13) OR VAL(i$)>0 PAUSE 5 EXIT IF i$=CHR$(13) IF VAL(i$)>0 breite=2*VAL(i$)-1 ENDIF ' IF x>170 AND x<245 AND k ! linke Kisten angeklickt IF y>104 AND y<136 breite=breite+2 IF breite>21 breite=21 ENDIF ENDIF IF y>136 AND y<168 breite=breite-2 IF breite<1 breite=1 ENDIF ENDIF IF y>168 AND y<200 @mauswarte breite=1 INC stil IF stil>6 stil=1 ENDIF ENDIF ENDIF ' IF x>400 AND x<470 AND k ! rechte Kisten angeklickt IF y>103 AND y<135 INC anfang IF anfang>2 anfang=0 ENDIF ENDIF IF y>213 AND y<245 INC ende IF ende>2 ende=0 ENDIF ENDIF ENDIF ' EXIT IF (y>235 AND y<260) AND (x>170 AND x<240) AND k ! Ausstieg LOOP GRAPHMODE mode @zweitschirm @schirm2 SPUT menue$ GRAPHMODE 1 DEFFILL 0,2,8 PBOX 81,365,159,399 ! weier Kasten berdeckt Probelinien DEFTEXT 1,1,0,6 TEXT 116,370,"-" ! Probelinien im Men zeichnen DEFLINE 1,breite,0,0 LINE 100,365,100,399 DEFLINE stil,1,anfang,ende LINE 140,365,140,399 SGET menue$ @schirm1 DEFFILL 1,muster1,muster2 DEFLINE stil,breite,anfang,ende COLOR farbe SPUT merk$ RETURN PROCEDURE linienzug SGET undo$ DEFMOUSE 7 IF hilfe! RESTORE help_linienzug @hilfstext ENDIF help_linienzug: DATA "Linienzug:" DATA DATA "Ecken einzeln mit" DATA "[LMT] setzen" ' DATA ' DATA "[Backspace] = zurcknehmen" DATA DATA "[RMT]/[Esc] = fertig" DATA * REPEAT MOUSE x,y,k i$=INKEY$ UNTIL k OR i$=CHR$(27) @mauswarte IF gitter! x=INT((x+x_weite/2)/x_weite)*x_weite y=INT((y+y_weite/2)/y_weite)*y_weite ENDIF REPEAT EXIT IF k>1 OR i$=CHR$(27) REPEAT COLOR 1 DEFLINE 1,1,0,0 GRAPHMODE 3 MOUSE x1,y1,k i$=INKEY$ IF gitter! x1=INT((x1+x_weite/2)/x_weite)*x_weite y1=INT((y1+y_weite/2)/y_weite)*y_weite ENDIF LINE x,y,x1,y1 PAUSE 3 LINE x,y,x1,y1 UNTIL k OR i$=CHR$(27) @mauswarte GRAPHMODE mode DEFLINE stil,breite,anfang,ende COLOR farbe IF k=1 LINE x,y,x1,y1 ENDIF x=x1 y=y1 UNTIL k>1 OR i$=CHR$(27) SGET bild$ RETURN PROCEDURE lupe_einrichten ! aus dem Buch von F. Ostrowski lupe$="" RESTORE lupe DO READ a EXIT IF a<0 lupe$=lupe$+MKI$(a) LOOP VOID FRE(0) ' MCODE \BAS\LUPE.PR lupe: DATA 8303,4,12335,8,12847,10,8815,12 DATA 3137,50,25172,3136,80,25166,45564,255 DATA 65535,25158,46076,255,65535,25150,9289,13824 DATA 15384,31247,32256,56390,25602,32383,4935,80 DATA 4935,160,4935,240,4935,320,4935,400 DATA 4935,480,4807,21315,22477,65498,26322,17386 DATA 640,20937,65480,28672,20085,28927,20085 DATA -1 RETURN PROCEDURE loeschen SGET undo$ ' al$="Soll Bild "+STR$(bild)+"|gelscht werden?" ALERT 2,al$,1,"ja|nein",antw IF antw=1 CLS SGET bild$ ENDIF RETURN PROCEDURE menue_einrichten ' HIDEM ~C:stad_depack(L:XBIOS(2),L:titel) ! Titelbild auspacken ' ' BSAVE "TITEL.PIC",XBIOS(2),32000 ! Titelbild als PIC-Datei abspeicherbar ' DEFTEXT 1,0,0,4 TEXT 400,10,"Version "+version$ TEXT 400,20,"vom" TEXT 400,30,datum$ TEXT 400,40,"public domain" ' DEFTEXT 1,0,0,6 TEXT 500,15,"Leertaste oder" TEXT 500,25,"rechte Maustaste:" TEXT 500,35,"Bild ansehen" SGET menue$ RETURN PROCEDURE mikroskop teilbild$="" merk$="" DEFLINE 1,1,0,0 DEFMOUSE 0 @lupe_einrichten HIDEM IF hilfe! RESTORE help_ausschnitt @hilfstext ENDIF help_ausschnitt: DATA "Bitte den Ausschnitt, der" DATA "vergrert werden soll," DATA mit der linken Maustaste anklicken. DATA * REPEAT ! Ausschnitt auf dem groen Bild bestimmen ' MOUSE x,y,k IF x>600 x=600 ENDIF IF y>360 y=360 ENDIF IF MOUSEK=0 GRAPHMODE 3 BOX x,y,x+39,y+39 PAUSE 2 BOX x,y,x+39,y+39 ENDIF UNTIL k SPUT bild$ @mauswarte x1=640 ! Position auerhalb des Bildschirms fr die y1=0 ! Markierung des ersten Ausschnittes IF k=1 SGET undo$ teilbild=x-140 ! x-Position des Teilbildes (halbe Bildgre) x=140 IF teilbild<0 x=140+teilbild teilbild=0 ENDIF IF teilbild>320 x=x+teilbild-320 teilbild=320 ENDIF ' GET teilbild,0,teilbild+319,399,teilbild$ ! Teilbild grapschen CLS PUT 0,0,teilbild$ ! links an den Rand setzen BOX x-1,y-1,x+40,y+40 ! Ausschnitt markieren GRAPHMODE 1 PUT 0,0,teilbild$ ! Teilbild noch einmal auf die linke Seite SETMOUSE 480,160 ' IF hilfe! RESTORE help_mikroskop @hilfstext ENDIF help_mikroskop: DATA "Im rechten Feld werden einzelne" DATA "Punkte des gewhlten Ausschnittes" DATA "gesetzt oder gelscht:" DATA DATA "[LMT] = Punkt setzen " DATA "[RMT] = Punkt lschen" DATA DATA "Im linken Feld bei Bedarf" DATA "neuen Ausschnitt whlen" DATA DATA "Linke Shift-Taste halten" DATA "zeigt die Koordinaten" DATA DATA "Der Ausgang ist unten rechts" DATA * ' DO ' ' kleinen Ausschnitt einfangen ' IF k=1 AND x<=280 GRAPHMODE 3 BOX x1-1,y1-1,x1+40,y1+40 ! alte Markierung lschen GET x,y,x+40,y+39,merk$ ! Ausschnitt grapschen ' lupe=VARPTR(lupe$) VOID C:lupe(L:VARPTR(merk$)+6,40,39,L:XBIOS(3)+40) ' BOX x-1,y-1,x+40,y+40 ! neuen Ausschnitt markieren x1=x y1=y DEFLINE 1,3,0,0 COLOR 1 GRAPHMODE 1 BOX 322,322,638,398 PRINT AT(50,22);"zurck zum ganzen Bild" DEFLINE 1,1,0,0 ENDIF ' WHILE MOUSEX>319 AND merk$>"" GRAPHMODE 1 SHOWM MOUSE a,b,k IF b<320 a1=INT((a-320)/8) ! Positionen der Pixel im Ausschnitt b1=INT(b/8) a2=INT(a/8)*8+1 ! Positionen der vergrerten Pixel b2=INT(b/8)*8 IF BIOS(11,-1) AND 3 ! Wenn Shift-Taste gehalten, PRINT AT(70,24);x1+a1+teilbild'y1+b1'''; ! Koordinaten anzeigen ENDIF IF k=1 COLOR 1 DEFFILL 1,2,8 PBOX a2,b2,a2+6,b2+6 ! vergrertes Pixel DRAW x1+a1,y1+b1 ! Originalpixel setzen ENDIF IF k=2 COLOR 0 DEFFILL 0,2,8 PBOX a2,b2,a2+6,b2+6 DRAW x1+a1,y1+b1 ENDIF ENDIF EXIT IF b>320 WEND EXIT IF k AND a>320 AND b>330 REPEAT MOUSE x,y,k IF x<320 HIDEM IF x>280 x=280 ENDIF IF y>360 y=360 ENDIF IF MOUSEK=0 GRAPHMODE 3 BOX x,y,x+39,y+39 PAUSE 2 BOX x,y,x+39,y+39 ENDIF ENDIF UNTIL k OR x>319 SHOWM LOOP ' GRAPHMODE 3 BOX x1-1,y1-1,x1+40,y1+40 ! alte Markierung lschen GET 0,0,319,399,teilbild$ SPUT bild$ PUT teilbild,0,teilbild$ SGET bild$ SHOWM ENDIF RETURN PROCEDURE mirrorput(x,y,z,s.) IF DPEEK(s.+4)>6 !nur wenn auch etwas da ist a=LPEEK(s.) b=DPEEK(a) h=DPEEK(a+2) smfdb(0)=a+6 smfdb(1)=(b+16) AND &HFFF0 smfdb(2)=h+1 smfdb(3)=smfdb(1)/16 smfdb(5)=DPEEK(a+4) dmfdb(0)=XBIOS(3) dmfdb(1)=640 dmfdb(2)=400 dmfdb(3)=40 dmfdb(5)=1 ON z GOSUB vertikal,horizontal ENDIF RETURN PROCEDURE moduswahl SGET merk$ DEFLINE 1,1,0,0 COLOR 1 modus$="" @schreibkasten(60,305) PRINT AT(20,6);"Bitte den Graphikmodus aussuchen!" PRINT AT(20,8);"Durch den Graphikmodus wird bestimmt, wie" PRINT AT(20,9);"Bilder bereinander gezeichnet werden:" DO BOUNDARY 1 GRAPHMODE 1 DEFFILL 0,2,8 FOR i=1 TO 4 PBOX 180,132+i*32,460,164+i*32 BOX 180,132+i*32,460,164+i*32 NEXT i PRINT AT(25,12);"Modus 1: berdecken" PRINT AT(25,14);"Modus 2: durchsichtig" PRINT AT(25,16);"Modus 3: invertiert" PRINT AT(25,18);"Modus 4: invertiert durchsichtig" DEFFILL 1,1,1 GRAPHMODE 3 PBOX 180,132+mode*32,460,164+mode*32 EXIT IF modus$<>"" DO MOUSE x,y,k i$=INKEY$ EXIT IF (k=1 AND x>180 AND x<460 AND y>164 AND y<292) OR ASC(i$)=13 EXIT IF VAL(i$)>0 AND VAL(i$)<5 LOOP EXIT IF ASC(i$)=13 OR modus$<>"" IF k=1 AND x>180 AND x<460 AND y>164 AND y<292 mode=INT((y-132)/32) modus$=" "+STR$(mode) ENDIF IF VAL(i$)>0 mode=VAL(i$) modus$=" "+STR$(mode) ENDIF LOOP ' ' Einstellen des Modus fr PUT ' SELECT mode CASE 1 p_mode=3 CASE 2 p_mode=7 CASE 3 p_mode=6 CASE 4 p_mode=13 ENDSELECT ' PAUSE 10 @mauswarte @modus_eintragen SPUT merk$ GRAPHMODE mode RETURN PROCEDURE modus_eintragen @zweitschirm @schirm2 SPUT menue$ GRAPHMODE 1 DEFTEXT 1,0,0,6 TEXT 402,390," "+STR$(mode) SGET menue$ @schirm1 RETURN PROCEDURE musterwahl LOCAL m1,m2,nr& SGET merk$ CLS DEFMOUSE 3 GRAPHMODE 1 BOUNDARY TRUE mx=0 my=0 ni&=1 RESTORE musterdaten REPEAT READ m1,m2 DEFFILL 1,m1,m2 PBOX mx,my,mx+80,my+50 ADD mx,80 INC ni& IF (ni& MOD 8)=1 mx=0 ADD my,50 ENDIF UNTIL ni&>38 DEFMOUSE 0 SHOWM nr&=0 REPEAT REPEAT MOUSE mx,my,mk& UNTIL mk& IF mk&=1 nr&=(my\50)*8+mx\80+1 ENDIF UNTIL (nr&>0 AND nr&<39) OR mk&=2 IF mk&=1 RESTORE musterdaten FOR ni&=0 TO nr&-1 READ muster1,muster2 NEXT ni& ENDIF @mauswarte @zweitschirm @schirm2 SPUT menue$ DEFFILL 1,muster1,muster2 PBOX 240,380,320,399 SGET menue$ @schirm1 SPUT merk$ musterdaten: DATA 2,1,2,2,2,3,2,4,2,5,2,6 DATA 2,7,2,8,2,9,2,10,2,11,2,12 DATA 2,13,2,14,2,15,2,16,2,17,2,18 DATA 2,19,2,20,2,21,2,22,2,23,2,24 DATA 3,1,3,2,3,3,3,4,3,5,3,6 DATA 3,7,3,8,3,9,3,10,3,11,3,12,4,1,0,0 RETURN ' PROCEDURE n_ecken ! Nach dem Programm "DENISE" aus der "68000er" SGET undo$ HIDEM SGET merk$ ' @schreibkasten(60,305) PRINT AT(22,8);"Regelmiges Vieleck" PRINT AT(22,11);"Bitte Anzahl der Ecken eingeben" PRINT AT(22,12);"(hchstens 29; 0 = Abbruch)" PRINT AT(22,14);">_"; ' eck$="" abbruch!=FALSE DO i$=INKEY$ IF ASC(i$)>47 AND ASC(i$)<58 ! Eingabe mu Ziffer sein eck$=eck$+i$ PRINT CHR$(8);i$;"_"; ENDIF EXIT IF VAL(eck$)>2 OR eck$="0" LOOP SHOWM IF VAL(eck$)>2 DEFMOUSE 7 PRINT CHR$(8);"-Eck" PAUSE 20 eck=VAL(eck$) SPUT merk$ IF hilfe! RESTORE help_n_eck @hilfstext ENDIF help_n_eck: DATA "Regelmiges Vieleck:" DATA DATA "Erst Mittelpunkt festlegen" DATA "dann Umkreisgre whlen" DATA DATA Aufhren mit rechter Taste DATA * DO DEFLINE 1,1,0,0 SHOWM WHILE k=0 MOUSE x,y,k WEND EXIT IF k>1 OR INKEY$=CHR$(27) @gummikreis EXIT IF abbruch! GRAPHMODE mode PLOT x+radius,y DEFLINE stil,breite,2,2 DEFFILL 1,muster1,muster2 GRAPHMODE mode COLOR farbe IF figurfuellen!=FALSE FOR f#=0 TO 2*PI STEP (2*PI)/eck DRAW TO x+COS(f#)*radius,y+SIN(f#)*radius NEXT f# DRAW TO x+radius,y DEFFILL 1,muster1,muster2 ELSE x(0)=x+radius y(0)=y x(eck)=x+radius y(eck)=y FOR f#=0 TO 2*PI STEP (2*PI)/eck x(INT(f#/((2*PI)/eck)+0.5))=x+COS(f#)*radius y(INT(f#/((2*PI)/eck)+0.5))=y+SIN(f#)*radius NEXT f# POLYFILL eck,x(),y() ENDIF @mauswarte k=0 LOOP SGET bild$ ENDIF RETURN PROCEDURE neuer_ordner ' @fileselect_titel("Ordner auf der Diskette anlegen") FILESELECT "\*.*","",ordner$ IF ordner$>"" IF EXIST(ordner$) ALERT 3,"Es gibt schon eine Datei|mit diesem Namen!",1,"Abbruch",dummy ELSE MKDIR ordner$ ! Ordner anlegen ENDIF ENDIF SPUT menue$ ordner$="" RETURN PROCEDURE pulldownmenue IF menue$(MENU(0))=" ber dies Programm" ' al$=" K R I T Z E L | das Pixelverbiegeprogramm" al$=al$+"| von Heiko Mller|Mozartstrae 17, 2905 Edewecht """ ALERT 3,al$,1,"aha",dummy ENDIF IF menue$(MENU(0))=" weiter im Programm" i$="weiter" ENDIF IF menue$(MENU(0))=" Programmende" @schluss ENDIF MENU OFF RETURN PROCEDURE radiergummi DEFMOUSE 5 SGET undo$ @mauswarte HIDEM DEFLINE 1,1,2,2 SETMOUSE rbreite,rhoehe ! Maus zuerst auf alte Radiergummigre einstellen IF hilfe! RESTORE help_radiergummi @hilfstext ENDIF help_radiergummi: DATA "zuerst durch Mausklick bestimmen," DATA "wie gro das Radiergummi sein soll" DATA * REPEAT GRAPHMODE 3 i$=INKEY$ MOUSE x,y,k BOX 0,0,x,y PAUSE 2 BOX 0,0,x,y UNTIL k<>0 OR INKEY$=CHR$(13) @mauswarte SPUT bild$ rbreite=x rhoehe=y SETMOUSE 0,0 DEFFILL 0,1,0 ' IF hilfe! RESTORE help_standard @hilfstext ENDIF DEFFILL 0,2,8 GRAPHMODE 3 REPEAT MOUSE x,y,k BOX x,y,x+rbreite,y+rhoehe PAUSE 1 BOX x,y,x+rbreite,y+rhoehe UNTIL MOUSEK SPUT bild$ ' DO GRAPHMODE 3 REPEAT MOUSE x,y,k BOX x,y,x+rbreite,y+rhoehe PAUSE 1 BOX x,y,x+rbreite,y+rhoehe x$=UPPER$(INKEY$) UNTIL k OR x$=CHR$(8) IF x$=CHR$(8) SPUT merk$ ENDIF SGET merk$ WHILE k=1 GRAPHMODE 3 BOX x,y,x+rbreite,y+rhoehe PAUSE 1 BOX x,y,x+rbreite,y+rhoehe GRAPHMODE 1 MOUSE x,y,k PBOX x,y,x+rbreite,y+rhoehe WEND EXIT IF k>1 OR INKEY$=CHR$(27) LOOP DEFLINE stil,breite,anfang,ende GRAPHMODE mode DEFFILL 1,muster1,muster2 COLOR farbe SGET bild$ RETURN PROCEDURE rundkasten SGET undo$ DEFMOUSE 7 ' IF hilfe! RESTORE help_kasten @hilfstext ENDIF REPEAT MOUSE x,y,k UNTIL k @mauswarte ' DO COLOR 1 DEFLINE 1,1,0,0 WHILE k=0 MOUSE x,y,k WEND EXIT IF k>1 OR INKEY$=CHR$(27) @gummikasten EXIT IF abbruch! GRAPHMODE mode DEFLINE stil,breite,2,2 DEFFILL 1,muster1,muster2 COLOR farbe IF figurfuellen! PRBOX x,y,x1,y1 ELSE RBOX x,y,x1,y1 ENDIF PAUSE 5 k=0 LOOP SGET bild$ RETURN PROCEDURE schluss ON BREAK CONT ! damit keine Doppelabfrage erfolgt OUT 2,7 ' ALERT 2,"Soll die Arbeit mit diesem|Programm beendet werden?",2,"ja|nein",antw IF antw=1 SPOKE &H484,PEEK(&H484) OR 2 ! Tastaturklickwiederholung ein OUT 4,8 ! Maus einschalten ON ERROR CLOSE EDIT ENDIF ON BREAK GOSUB schluss SPOKE &H484,PEEK(&H484) AND NOT 2 ! Tastaturklickwiederholung aus RETURN PROCEDURE schreiben LOCAL i$,x,y,k,schreib$ SGET undo$ DEFMOUSE 1 DEFTEXT farbe,schriftart,wink,hoehe(ho) SGET merk$ GRAPHMODE mode DO SHOWM REPEAT ! bei leerem String warten, bis erste Eingabe erfolgt schreib$=INKEY$ IF schreib$=CHR$(8) ! Backspace nicht als erstes Zeichen mglich schreib$="" ENDIF UNTIL schreib$>"" OR MOUSEK>1 HIDEM ' REPEAT MOUSE x,y,k i$=INKEY$ EXIT IF k>1 ' SELECT ASC(i$) CASE 27 ! Esc schreib$="" i$="" CASE 8 ! Backspace IF LEN(schreib$) schreib$=LEFT$(schreib$,LEN(schreib$)-1) SPUT merk$ TEXT x,y,schreib$ ENDIF CASE 13 ! Return k=1 DEFAULT schreib$=schreib$+i$ TEXT x,y,schreib$ ENDSELECT EXIT IF i$=CHR$(13) OR schreib$="" ! Return oder String gelscht ' MOUSE x1,y1,k IF x1<>x OR y1<>y SPUT merk$ TEXT x1,y1,schreib$ ENDIF UNTIL k=1 EXIT IF k>1 OR INKEY$=CHR$(27) SPUT merk$ IF LEN(schreib$) TEXT x,y,schreib$ SGET merk$ IF k=1 schreib$="" ENDIF ENDIF LOOP SPUT merk$ SGET bild$ DEFMOUSE 1 RETURN PROCEDURE graphik_normal GRAPHMODE 1 COLOR 1 DEFLINE 1,1,2,2 RETURN @schreibkasten(60,305) PROCEDURE schreibkasten(y1,y2) @graphik_normal DEFFILL 1,2,8 PBOX 144,y1+4,504,y2+4 ! schwarzer Hintergrundkasten DEFFILL 0,2,8 PBOX 140,y1,500,y2 ! weier Kasten davor BOX 140,y1,500,y2 ! Umrandung RETURN PROCEDURE schriftwahl ! Nach dem Programm "DENISE" aus der "68000er" GRAPHMODE 1 SGET merk$ @schreibkasten(60,305) DEFFILL 1,0,0 BOUNDARY 1 FOR y=70 TO 230 STEP 32 PBOX 170,y,270,y+31 NEXT y PBOX 300,230,340,260 ! OK-Box mit dickem Rand PBOX 301,231,339,259 PBOX 302,232,338,258 PRINT AT(25,6);"Normal" PRINT AT(25,8);"Fett" PRINT AT(25,10);"Hell" PRINT AT(25,12);"Kursiv" PRINT AT(25,14);"Unterstr." PRINT AT(25,16);"Umrandet" PRINT AT(40,16);"OK" PRINT AT(21,18);"Bitte die Schriftart fr Texte aussuchen" REPEAT FOR i=8 TO 16 STEP 2 PRINT AT(23,i);" " NEXT i IF schriftart>0 FOR i=0 TO 4 IF schriftart AND 2^i PRINT AT(23,8+i*2);">" ENDIF NEXT i ENDIF GRAPHMODE 1 FOR y=70 TO 230 STEP 64 PBOX 365,y,460,y+31 NEXT y PRINT AT(49,6);"grer" PRINT AT(49,10);"kleiner" PRINT AT(49,14);"drehen" PBOX 275,70,360,190 GRAPHMODE 2 DEFTEXT 1,schriftart,wink,hoehe(ho) TEXT 315,110,"Aa" TEXT 315,145,"01" REPEAT MOUSE x,y,k i$=INKEY$ UNTIL k=1 OR i$=CHR$(13) PAUSE 9 IF x>170 AND x<270 AND y>70 AND y<262 AND k=1 IF y<102 schriftart=0 ENDIF FOR i=0 TO 4 IF y>102+32*i AND y<134+32*i IF schriftart AND 2^i SUB schriftart,2^i ELSE ADD schriftart,2^i ENDIF ENDIF NEXT i ENDIF IF x>365 AND x<460 AND y>70 AND y<230 AND k=1 IF y<102 INC ho IF ho>4 ho=4 ENDIF ENDIF IF y>134 AND y<166 SUB ho,1 IF ho<0 ho=0 ENDIF ENDIF IF y>198 AND y<230 ADD wink,900 IF wink>2700 wink=0 ENDIF ENDIF ENDIF UNTIL x>300 AND x<340 AND y>230 AND y<260 OR i$=CHR$(13) DEFFILL 1,muster1,muster2 DEFTEXT 1,schriftart,wink,hoehe(ho) ' @zweitschirm @schirm2 SPUT menue$ DEFFILL 0,2,8 PBOX 81,251,159,295 IF wink=0 OR wink=900 TEXT 120,290,"W" ELSE TEXT 120,270,"W" ENDIF DEFTEXT 1,0,0,4 GRAPHMODE 2 TEXT 90,260,"Schriftart" SGET menue$ @schirm1 ' SPUT merk$ RETURN PROCEDURE signum_einladen ' ' Einladen von SIGNUM!-Fonts als PUT-Graphiken ' ' aus GFA-Club-Nachrichten 1/2-89 Seite 24 ' SGET undo$ CLS abbruch!=FALSE auswahl$="" IF FRE(0)<80000 al$="Vorsicht! Beim Einladen|des Fonts kann es Speicher-" al$=al$+"|platzprobleme geben!|Bilder vorher abspeichern!" ALERT 1,al$,1,"zurck|egal",antw IF antw=1 abbruch!=TRUE ENDIF ENDIF IF NOT abbruch! @fileselect_titel("SIGNUM-Druckerfont einladen") FILESELECT laufwerk$+"*.P24","",auswahl$ ENDIF IF auswahl$>"" AND RIGHT$(auswahl$)<>"\" ext$=RIGHT$(auswahl$,4) IF ext$<>".P24" ALERT 1,"Das ist leider kein|SIGNUM-Zeichensatz",1,"Abbruch",dummy abbruch!=TRUE ELSE ' IF EXIST(auswahl$) ERASE z_propbr() ERASE zeichen$() DIM z_propbr(221),zeichen$(221) RESERVE 2*FRE(0)/3 prnt_ram=HIMEM+4000 IF ODD(prnt_ram) INC prnt_ram ENDIF ' auswahl$=LEFT$(auswahl$,LEN(auswahl$)-4) ENDIF ' OPEN "i",#1,auswahl$+".P24" lof=LOF(#1) CLOSE #1 BLOAD auswahl$+".P24",prnt_ram !Druckerfont einladen IF EXIST(auswahl$+".E24") edit_ram=prnt_ram+lof+2 IF ODD(edit_ram) INC edit_ram ENDIF BLOAD auswahl$+".E24",edit_ram ELSE ALERT 1,"Der Editor-Font fehlt!",1,"Abbruch",dummy RESERVE ! 3*FRE(0)/2 !Speicher freigeben abbruch!=TRUE ENDIF ENDIF ' IF NOT abbruch! GET 0,0,80,80,zeichen$(0) ! leeren Kasten fr Leerzeichen ' FOR i=1 TO 127 ' offset_i=LPEEK(prnt_ram+140+i*4) y_offset=PEEK(prnt_ram+652+offset_i) z_hoehe=PEEK(prnt_ram+653+offset_i) z_breite=PEEK(prnt_ram+654+offset_i) ' offset_e=LPEEK(edit_ram+140+i*4) z_propbr(i)=PEEK(edit_ram+654+offset_e) ' IF z_hoehe>0 AND z_breite>0 y_offset$=STRING$(y_offset*(z_breite-ODD(z_breite)),0) ' IF ODD(z_breite) zeichenbreite=z_breite-ODD(z_breite) CLR b$,br_zaehl FOR j=1 TO z_hoehe c$=STRING$(zeichenbreite,0) BMOVE prnt_ram+656+offset_i+br_zaehl,VARPTR(c$),zeichenbreite b$=b$+c$ ADD br_zaehl,z_breite NEXT j ELSE b$=STRING$(z_hoehe*z_breite,0) VOID FRE(0) BMOVE prnt_ram+656+offset_i,VARPTR(b$),z_hoehe*z_breite ENDIF b$=y_offset$+b$ ' zeichen$(i)=MKI$(z_breite*8-1)+MKI$(y_offset+z_hoehe-1)+MKI$(1)+b$ ' PUT 300,100,zeichen$(0) PUT 300,100,zeichen$(i) ELSE zeichen$(i)="" ENDIF NEXT i ' z_propbr(0)=z_propbr(65) ! Breite des Leerzeichens wie beim "A" ' CLS ' RESTORE tauschdaten ' tauschdaten: DATA 64,129 DATA 93,132 DATA 125,142 DATA 91,148 DATA 123,153 DATA 92,154 DATA 127,158 DATA 1,123 DATA 2,125 DATA 15,91 DATA 16,93 DATA 32,221 DATA 0,32 ' REPEAT READ x,y zeichen$(y)=zeichen$(x) ! an ASCII-Codes anpassen z_propbr(y)=z_propbr(x) UNTIL x=0 ' x=100 y=100 DATA 102,101,114,116,105,103,33,-1 DO READ z ! "fertig" auf den Bildschirm schreiben EXIT IF z<0 PUT x,y,zeichen$(z),7 ADD x,z_propbr(z)*4 LOOP RESERVE ! 3*FRE(0)/2 ! Speicher freigeben ' FOR i=0 TO 31 ! die ersten 32 Zeichen lschen zeichen$(i)="" NEXT i ' REPEAT UNTIL MOUSEK>1 OR INKEY$>"" signum!=TRUE ENDIF SPUT bild$ ENDIF RETURN PROCEDURE signum_schreiben ! Schreiben mit groen SIGNUM-Zeichen IF NOT signum! ' ALERT 3,"Du hast noch keinen|SIGNUM-Zeichensatz geladen!",1,"ach ja",dummy ELSE SGET undo$ REPEAT CLS ' x=0 y=0 i$="" ' COLOR 1 DEFLINE 1,1,0,0 ' DO LINE x+10,y+1,x+10,y+z_hoehe-1 ! Linie als Cursor REPEAT i=ASC(INKEY$) IF MOUSEK>1 i=27 ! rechte Maustaste imitiert Esc-Taste ENDIF UNTIL i>0 ' IF i>31 i$=i$+CHR$(i) ! Kontrollstring (wird fr Backspace gebraucht) ENDIF ' COLOR 0 LINE x+10,y+1,x+10,y+z_hoehe-1 ! Cursor wei bermalen COLOR 1 ' EXIT IF i=27 ' IF x>550 AND (i>31) ! Klingel am Zeilenende OUT 2,7 ENDIF ' IF i=8 ! Backspace IF LEN(i$)>0 SUB x,z_propbr(ASC(RIGHT$(i$,1)))*4 PUT x,y,zeichen$(32) i$=LEFT$(i$,LEN(i$)-1) ENDIF ELSE ' PUT x,y,zeichen$(i),7 ADD x,z_propbr(i)*4 ' IF i=13 ! Return x=0 ADD y,80 i$="" ! Kontrollstring lschen ENDIF ' ENDIF EXIT IF y>320 LOOP ' UNTIL i=27 ! Abbruch mit Esc (oder rechter Maustaste) SGET bild$ ENDIF RETURN PROCEDURE speicher_einrichten DIM menue$(30) RESTORE pulldowndaten i=-1 DO INC i READ menue$(i) EXIT IF menue$(i)="***" LOOP LET menue$(i)="" LET menue$(i+1)="" ' pulldowndaten: ' DATA Kritzel , ber dies Programm DATA -------------------- DATA 1,2,3,4,5,6,"" DATA zurck, weiter im Programm DATA --------------------, Programmende,"" DATA *** ' DIM wert#(20),sektor#(20),text$(20),prozent#(20) ! fr Tortendiagramme DIM hoehe(4) ! Buchstabenhhe DIM bild$(5) DIM pfad$(5),dateiname$(5) ! Pfade, beim Speichern von Bildern DIM t$(20) ! fr die Hilfstexte FOR i=1 TO 5 bild$(i)=bild$ ! fnf Bildschirme zum Wechseln NEXT i bild=1 ! Nummer des aktuellen Bildes DIM smfdb(8),dmfdb(8),p(8) ! fr die Procedur "mirrorput" DIM x(200),y(200) ! fr Vielecke muster1=2 muster2=8 DEFFILL 1,muster1,muster2 ! schwarz gitter!=FALSE ! aus farbe=1 ! schwarz figurfuellen!=FALSE sprueh=10 ! Radius fr Sprhdose mode=1 modus$=" 1" p_mode=3 ! Modus bei PUT (berschreiben) stil=1 ! Liniendefinition breite=1 anfang=2 ende=2 rbreite=100 ! anfngliche Radiergummigre x_weite=20 y_weite=20 rhoehe=50 RESTORE hoehe FOR i=0 TO 4 READ hoehe(i) ! Schrifthhen NEXT i hoehe: DATA 4,6,13,20,32 ho=2 ! Index fr Schrifthhen wink=0 ! Winkel fr Schriften extension$="PAC" laufwerk=GEMDOS(25)+1 laufwerk$=CHR$(GEMDOS(25)+65)+":"+"\" FOR i=1 TO 5 pfad$(i)=laufwerk$+"*." dateiname$(i)="TEST.PAC" NEXT i pfad$=laufwerk$+"*." blockextension$="IMG" blockpfad$=laufwerk$+"*." blockname$="TEST.IMG" signum!=FALSE ! Kontrolle, ob SIGNUM-Font eingeladen bound=1 ! 1 = gefllte Figuren mit Rand RETURN PROCEDURE speichern SGET undo$ ' IF hilfe! RESTORE help_bild_speichern @hilfstext help_bild_speichern: DATA "PAC-Bilder werden stark komprimiert" DATA "Verwendbar z.B. fr 'SIGNUM'" DATA DATA "IMG-Bilder werden weniger stark" DATA "aber schneller komprimiert" DATA "Verwendbar z.B. fr 'WORDPLUS'" DATA DATA "Nicht komprimierte (andere) Bildformate" DATA "bentigen viel Platz" DATA "Verwendbar z.B. fr BASIC" DATA DATA "Shift-Taste beim Speichern zeigt" DATA "wie stark gepackt wurde" DATA * @mauswarte SPUT bild$ ENDIF ' @fileselect_titel("Bild auf der Diskette speichern") ' $I+ ! Interrupt-Routinen ein (sonst bei "Diskette voll" Fehler) dummy=5*9 ! code-erzeugende Anweisung (siehe Compiler-Buch Kap. 2.3.8) ' suchpfad$=pfad$(bild)+extension$ FILESELECT suchpfad$,dateiname$(bild),auswahl$ ' IF EXIST(auswahl$) OUT 2,7 ' al$="Datei unter diesem Namen ist|schon vorhanden!| |berschreiben?" ALERT 2,al$,1,"ja|nein",antw IF antw=2 auswahl$="" ENDIF ' ENDIF IF LEN(auswahl$)>0 AND RIGHT$(auswahl$,1)<>"\" ! ausgenommen ist z.B. A:\ i=RINSTR(auswahl$,".") IF igros gros=byte(z) ENDIF IF byte(z)kennbyte| IF byte(z)4 puf2$=SPACE$(LOF(#1)) b2_adr=V:puf2$ BGET #1,b2_adr,lof HIDEM ~C:stad_depack(L:XBIOS(2),L:b2_adr) SHOWM ENDIF RETURN PROCEDURE speicherplatz PRINT AT(14,8);" Der Speicherplatz auf Laufwerk "+CHR$(laufwerk+64)+" wird ermittelt. " frei=DFREE(laufwerk) ' al$="Speicherplatz auf " al$=al$+"Laufwerk "+CHR$(laufwerk+64)+": | |"+STR$(frei)+" Bytes " ALERT 1,al$,1,"aha",dummy DEFMOUSE 3 RETURN PROCEDURE spiegeln ! die Proceduren spiegeln, mirrorput, vertikal und ' horizontal stammen alle aus dem GFA-BASIC-Buch von F. Ostrowski merk$=block$ ! alten Block merken (falls Abbruch) SGET undo$ GRAPHMODE 3 DEFLINE 1,1,0,0 HIDEM @ausschneiden IF b_breite>0 ' al$="Wie willst Du spiegeln?" ALERT 2,al$,0,CHR$(4)+" "+CHR$(3)+"|"+CHR$(1)+" "+CHR$(2)+"|Abbruch",antw @mirrorput(x,y,antw,*block$) GET x,y,x1,y1,block$ SPUT bild$ IF antw<3 @einsetzen ELSE block$=merk$ ENDIF ENDIF RETURN PROCEDURE spruehdose SGET undo$ COLOR farbe DEFLINE 1,1,0,0 HIDEM @zweitschirm @schirm2 PBOX -1,-1,640,400 ! gefllte Flche im Hintergrund @schirm1 ' IF hilfe! RESTORE help_spruehen @hilfstext HIDEM ENDIF help_spruehen: DATA linke Maustaste: Sprhen DATA DATA Letzten Sprhsto wieder weg: [Backspace] DATA DATA Gre ndern: [E] DATA DATA rechte Taste: Aufhren DATA * GRAPHMODE 3 REPEAT MOUSE x,y,k CIRCLE x,y,sprueh PAUSE 1 CIRCLE x,y,sprueh x$=UPPER$(INKEY$) IF x$="E" SHOWM GRAPHMODE 1 @spruehdose_einstellen @schirm2 PBOX -1,-1,640,400 ! gefllte Flche im Hintergrund @schirm1 GRAPHMODE 3 HIDEM k=0 ENDIF UNTIL MOUSEK SPUT bild$ ' DO GRAPHMODE 3 HIDEM REPEAT MOUSE x,y,k CIRCLE x,y,sprueh PAUSE 1 CIRCLE x,y,sprueh x$=UPPER$(INKEY$) IF x$="E" SHOWM GRAPHMODE 1 @spruehdose_einstellen @schirm2 PBOX -1,-1,640,400 ! gefllte Flche im Hintergrund @schirm1 GRAPHMODE 3 HIDEM k=0 ENDIF UNTIL k OR x$=CHR$(8) IF x$=CHR$(8) SPUT merk$ ENDIF SGET merk$ EXIT IF k>1 OR INKEY$=CHR$(27) GRAPHMODE 1 WHILE k=1 MOUSE x,y,k ' winkel=RANDOM(360) radius=RANDOM(sprueh) x1=x+COSQ(winkel)*radius y1=y+SINQ(winkel)*radius ' @schirm2 ! auf dem Zweitschirm Farbe des Punktes ermitteln z=POINT(x1,y1) @schirm1 ' IF x1>-1 AND x1<640 ! sonst werden Punkte am anderen Rand gesetzt PSET x1,y1,z ! Punkt setzen ENDIF ' WEND EXIT IF k>1 OR INKEY$=CHR$(27) LOOP DEFLINE stil,breite,anfang,ende GRAPHMODE 1 SGET bild$ RETURN PROCEDURE spruehdose_einstellen spruehstart: SGET merk$ @schreibkasten(60,305) PRINT AT(29,7);"Einstellung der Sprhdose" PRINT AT(35,13);"- OK + "; PRINT AT(29,10);"Radius: ";sprueh'; BOX 260,180,380,210 BOX 300,180,340,210 BOX 301,181,339,209 PRINT AT(29,16);"Sprhmuster:" DEFFILL 1,muster1,muster2 PBOX 340,230,380,260 GRAPHMODE 3 CIRCLE 350,150,sprueh REPEAT MOUSE x,y,k IF k=1 AND y>230 AND y<260 AND x>340 AND x<380 ! Muster ndern SPUT merk$ @musterwahl @zweitschirm @schirm2 PBOX -1,-1,640,400 ! gefllte Flche im Hintergrund ??? wozu ??? @schirm1 GOTO spruehstart ENDIF IF k=1 AND y>180 AND y<210 CIRCLE 350,150,sprueh IF x>260 AND x<300 SUB sprueh,1 PAUSE 2 IF sprueh=1 sprueh=2 ENDIF ENDIF IF x>340 AND x<380 ADD sprueh,1 PAUSE 2 IF sprueh=31 sprueh=30 ENDIF ENDIF CIRCLE 350,150,sprueh PRINT AT(29,10);"Radius: ";sprueh'; ENDIF EXIT IF INKEY$=CHR$(13) UNTIL (x>300 AND x<340 AND y>180 AND y<210 AND k=1) @zweitschirm @schirm2 SPUT menue$ DEFTEXT 1,0,0,6 GRAPHMODE 1 TEXT 562,390," "+STR$(sprueh)+" " SGET menue$ @schirm1 SPUT merk$ COLOR farbe GRAPHMODE mode DEFFILL 1,muster1,muster2 @mauswarte RETURN PROCEDURE strahlen SGET undo$ DEFMOUSE 7 COLOR 1 IF hilfe! RESTORE help_strahlen @hilfstext ENDIF help_strahlen: DATA Ausgangspunkt der Strahlen DATA mit [LMT] whlen DATA DATA Strahlen mit [LMT] setzen DATA DATA Abbruch mit [RMT] DATA * REPEAT MOUSE x,y,k UNTIL k IF gitter! x=INT((x+x_weite/2)/x_weite)*x_weite y=INT((y+y_weite/2)/y_weite)*y_weite ENDIF @mauswarte SPUT bild$ REPEAT EXIT IF k>1 OR INKEY$=CHR$(27) GRAPHMODE 3 DEFLINE 1,1,0,0 REPEAT MOUSE x1,y1,k IF gitter! x1=INT((x1+x_weite/2)/x_weite)*x_weite y1=INT((y1+y_weite/2)/y_weite)*y_weite ENDIF LINE x,y,x1,y1 PAUSE 3 LINE x,y,x1,y1 UNTIL k GRAPHMODE mode DEFLINE stil,breite,anfang,ende COLOR farbe EXIT IF k>1 OR INKEY$=CHR$(27) LINE x,y,x1,y1 @mauswarte UNTIL k>1 SGET bild$ RETURN PROCEDURE stauchung ! Diese Procedure entwickelte Thilo Jantz, Portsloge ' @ausschneiden IF NOT abbruch! @zweitschirm ' IF b_breite*b_hoehe>0 ' al$="Wie soll die Blockgre|verndert werden?" ALERT 2,al$,1,"1 : 1|verzerrt",antw CLS PUT 0,0,block$ DEFLINE 1,1,0,0 BOX 0,0,b_breite,b_hoehe GRAPHMODE 3 PRINT AT(30,25);"Stauchungsfaktoren x / y: "; REPEAT MOUSE x,y,k ' IF antw=1 y=b_hoehe*x/b_breite ENDIF ' BOX 0,0,x,y PAUSE 2 BOX 0,0,x,y xstauch#=ROUND(x/b_breite,2) IF antw=1 ystauch#=xstauch# ELSE ystauch#=ROUND(y/b_hoehe,2) ENDIF PRINT AT(62,25);xstauch#''''; PRINT AT(70,25);"/"'ystauch#'''; UNTIL k ENDIF GRAPHMODE mode ' IF k=1 ! -------------------- nun geht's los: a=XBIOS(2) ' xstauch#=1/xstauch# ystauch#=1/ystauch# ' black=1 IF xstauch#>=1.5 OR ystauch# @schreibkasten(60,305) PRINT AT(24,6);"Bitte Schwrzungstiefe fr die" PRINT AT(24,7);"Verkleinerung aussuchen:" PRINT AT(24,8);"(je grer, desto schwrzer)" PRINT AT(25,15); j=xstauch#+1 IF ystauch#>xstauch# j=ystauch#+1 ENDIF IF j>9 j=9 ENDIF GRAPHMODE 2 FOR i#=1 TO j PRINT STR$(i#)''; BOX 160+i#*24,220,184+i#*24,245 EXIT IF i#>9 NEXT i# REPEAT SHOWM MOUSE x,y,k black=VAL(INKEY$) IF k AND x>184 AND x<184+j*24 AND y>220 AND y<245 black=INT((x-160)/24) ENDIF UNTIL black>0 AND black<=j PRINT '''black PAUSE 20 ENDIF ' @schirm2 ! Der Block wird im Hintergrund gelesen CLS PUT 0,0,block$ @schirm1 CLS ' IF xstauch#=1 x=b_breite GOTO stauchung_y ENDIF ' IF xstauch#>1 ! --- Verkleinern: X --- ' x=-1 z=0 i#=0 i=0 ' WHILE i#1 ! --- Verkleinern: Y --- ' y=-1 z=0 i#=0 i=0 ' WHILE i#20 OR anzahl<0 OUT 2,7 ENDIF UNTIL anzahl<21 AND anzahl>=0 ' IF anzahl>1 text!=FALSE ' ALERT 2,"Soll Text eingeblendet werden?",1,"ja|nein",antw IF antw=1 text!=TRUE ENDIF ' IF text! groesse=6 ' ALERT 2,"Klein- oder Normalschrift?",1,"klein|normal",antw IF antw=2 groesse=13 ENDIF prozent!=TRUE ' ALERT 2,"Sollen Prozentstze|eingeblendet werden?",1,"ja|nein",antw IF antw=2 prozent!=FALSE ENDIF ENDIF ' CLS PRINT PRINT " Bitte die einzelnen Werte mit [Return] eingeben (zuerst einen groen)" PRINT PRINT " Nr. Wert "; IF text! PRINT "Text dazu (max. 15 Zeichen)" ENDIF PRINT FOR i=1 TO anzahl PRINT AT(2,i+4); PRINT USING "###",i; PRINT ":"; NEXT i FOR i=1 TO anzahl PRINT CHR$(27);"e" ! Cursor einschalten w$="" DO PRINT AT(8,i+4);w$'; PRINT CHR$(27);"D"; ! Cursor um ein Zeichen nach links REPEAT i$=INKEY$ UNTIL i$<>"" EXIT IF ASC(i$)=13 AND VAL(w$)>=0 IF ASC(i$)=8 AND LEN(w$) w$=LEFT$(w$,LEN(w$)-1) ELSE IF INSTR("0123456789.",i$)>0 w$=w$+i$ ELSE OUT 2,7 ENDIF ENDIF LOOP wert#(i)=VAL(w$) IF w$="" PRINT "0" ENDIF PRINT CHR$(27);"f" ! Cursor ausschalten IF text! PRINT AT(25,i+4); FORM INPUT 15,text$(i) ENDIF NEXT i ' Prozentverteilung ermitteln: sum#=0 FOR i=1 TO anzahl sum#=sum#+wert#(i) NEXT i IF sum#=0 ' al$="so eine bescheuerte Eingabe!!| | (insgesamt Null??)" ALERT 3,al$,1,"au weia",dummy SPUT bild$ ELSE BOUNDARY 1 FOR i=1 TO anzahl prozent#(i)=wert#(i)*100/sum# sektor#(i)=prozent#(i)*36 ! 1% entspricht 36 * 1/10 Grad NEXT i ' ' Kreis und Muster zeichnen ' ' CLS IF hilfe! RESTORE help_torte @hilfstext ENDIF help_torte: DATA Mit Maus die Gre der Torte bestimmen DATA DATA bernehmen mit Mausklick DATA * HIDEM x=320 y=200 IF gitter! x=INT((x+x_weite/2)/x_weite)*x_weite y=INT((y+y_weite/2)/y_weite)*y_weite ENDIF GRAPHMODE 3 PAUSE 10 REPEAT MOUSE x1,y1,k IF gitter! x1=INT((x1+x_weite/2)/x_weite)*x_weite y1=INT((y1+y_weite/2)/y_weite)*y_weite ENDIF radius=ABS(x1-x) CIRCLE x,y,radius PAUSE 2 CIRCLE x,y,radius UNTIL k=1 CLS ' x1=320-radius ! x-Werte zum Ausschneiden der fertigen Torte IF x1<0 x1=0 ENDIF x2=320+radius IF x2>639 x2=639 ENDIF ' start=900 GRAPHMODE 1 DEFLINE 1,1,0,0 COLOR 1 FOR i=1 TO anzahl schluss=start+sektor#(i) DEFFILL 1,2,i IF prozent#(i)<2 ! Da nicht beliebig kleine Sektoren gezeichnet ausgleich=50 ! werden knnen, werden die ganz kleinen Sektoren ELSE ! zu gro dargestellt. Durch berdecken vom ausgleich=0 ! nchsten Sektor wird der Winkel wieder richtig. ENDIF PCIRCLE x,y,radius,start,schluss+ausgleich start=schluss NEXT i ' DEFFILL 1,2,1 PCIRCLE x,y,radius,900,900+sektor#(1) ! den ersten Sektor noch einmal, ' damit der evtl. zu groe letzte ' berdeckt wird ' CIRCLE x,y,radius ! Auenkreis als Begrenzung ' IF text! ' die Texte werden in die Kreissektoren geschrieben: ' DEFTEXT 1,0,0,groesse ' ' richtung#=900 ! Startwinkel in 1/10 Grad PRINT AT(1,22); FOR i=1 TO anzahl richtung#=richtung#+sektor#(i)/2 gradrichtung#=richtung#/10 ! Textrichtung in Grad bogenrichtung#=gradrichtung#*PI/180 ! Textrichtung in Bogenma textx=x+(radius-10)*COS(bogenrichtung#) texty=y-(radius-10)*SIN(bogenrichtung#) ' IF prozent! text$(i)=text$(i)+" ("+STR$(INT(prozent#(i)+0.5))+"%)" ENDIF ' IF textx640-(LEN(text$(i))*8) textx=640-(LEN(text$(i))*8) ENDIF ' TEXT textx,texty,text$(i) ! Text schreiben ' x-Werte anpassen an berstehenden Text IF textxx2 x2=textx+(LEN(text$(i))*8) ENDIF ' richtung#=richtung#+sektor#(i)/2 NEXT i ENDIF ' y=200-radius IF y<0 y=0 ENDIF y1=200+radius IF y1>399 y1=399 ENDIF GET x1,y,x2,y1,block$ SPUT bild$ @einsetzen ENDIF ' SGET bild$ SHOWM ENDIF RETURN PROCEDURE ueber GRAPHMODE 1 CLS PRINT PRINT " K R I T Z E L - ein pixelorientiertes Malprogramm" PRINT PRINT " Version ";version$'"vom"'datum$;"" PRINT PRINT PRINT " Programmiert in GfA-BASIC 3.5 von" PRINT PRINT " Heiko Mller, Mozartstrae 17, 2905 Edewecht" PRINT PRINT PRINT " Es darf mitsamt der Programmliste (Amerika-Fans sagen dazu auch source code)" PRINT " beliebig kopiert oder weitergegeben werden." PRINT PRINT " Falls jemand das Programm verbessert oder einen Fehler findet und beseitigt," PRINT " mge er bitte eine Diskette mit der vernderten Version an die obige Anschrift" PRINT " schicken. Als ""Dankeschn"" werden auch gerne Disketten mit anderen GFA-BASIC-" PRINT " Programmen angenommen. Wenn auerdem ein frankierter Rckumschlag beigefgt" PRINT " ist, kommt die Diskette mit der neuesten Version von ""Kritzel"" zurck." PRINT REPEAT UNTIL MOUSEK>1 OR INKEY$<>"" SPUT menue$ RETURN PROCEDURE umriss ! aus GFA-CLUB Nachrichten 5/89 S. 22 HIDEM SGET undo$ IF hilfe! RESTORE help_umriss @hilfstext ENDIF help_umriss: DATA "Umriss:" DATA DATA "Von allen schwarzen Flchen" DATA "bleiben nur" DATA "die Auenlinien stehen." DATA * ' GET 0,0,639,399,merk$ ' al$="Welche Umriart wnscht Du?|innen in der Flche entlang," al$=al$+"|auen leicht oder|voll um die Flche herum?" ALERT 2,al$,1,"innen|leicht|voll",antw SELECT antw CASE 1 PUT 0,0,merk$ GRAPHMODE 3 DEFFILL 1,1 PBOX 0,0,639,399 GET 0,0,639,399,bild$ GRAPHMODE 1 CLS FOR i=-1 TO 1 FOR j=-1 TO 1 PUT i,j,bild$,7 NEXT j NEXT i PUT 0,0,merk$,1 CASE 2 PUT 0,0,merk$ PUT -1,0,merk$,7 PUT 1,0,merk$,7 PUT 0,1,merk$,7 PUT 0,-1,merk$,7 PUT 0,0,merk$,6 CASE 3 FOR i=-1 TO 1 FOR j=-1 TO 1 PUT i,j,merk$,7 NEXT j NEXT i PUT 0,0,merk$,6 ENDSELECT ' SGET bild$ SHOWM RETURN PROCEDURE version ! TOS-Version und -Datum (aus ST-Computer Nr. 6/90 Seite 176) ' adresse=(LPEEK(&H4F2)) ! Anfangsadresse des Betriebssystem-Heders ' tosversion$=HEX$(DPEEK(adresse+2)) ! Versionsnummer des TOS im BCD-Format tosversion$=LEFT$(tosversion$,1)+"."+RIGHT$(tosversion$,1) ' PRINT tosversion$ ' i$=HEX$(LPEEK(adresse+24)) ! TOS-Erstellungsdatum im BCD-Format erstelldatum$=MID$(i$,LEN(i$)-5,2)+"."+MID$(i$,1,LEN(i$)-6)+"."+RIGHT$(i$,4) ' PRINT " vom ";erstelldatum$ RETURN PROCEDURE vertikal p(1)=0 p(3)=h p(5)=y p(7)=y+h p(8)=3 p(4)=x+b p(6)=x+b FOR i=0 TO b p(0)=i p(2)=i BITBLT smfdb(),dmfdb(),p() DEC p(4) DEC p(6) NEXT i RETURN PROCEDURE vieleck SGET undo$ DEFMOUSE 5 IF hilfe! RESTORE help_hole_vieleck @hilfstext ENDIF help_hole_vieleck: DATA "Vieleck:" DATA DATA "Ecken einzeln mit" DATA "[LMT] setzen" DATA ' DATA "[Backspace] = zurcknehmen" ' DATA DATA "[RMT]/[Esc] = fertig" DATA DATA "Die letzte Ecke wird mit" DATA "der ersten automatisch" DATA "verbunden" DATA * DO FOR i=1 TO 200 IF i=1 DO MOUSE x(1),y(1),k IF gitter! x(1)=INT((x(1)+x_weite/2)/x_weite)*x_weite y(1)=INT((y(1)+y_weite/2)/y_weite)*y_weite ENDIF i$=INKEY$ EXIT IF i$=CHR$(27) OR k LOOP INC i ENDIF ' EXIT IF i$=CHR$(27) OR k>1 GRAPHMODE 3 DEFLINE 1,1,0,0 REPEAT MOUSE x(i),y(i),k i$=INKEY$ IF gitter! x(i)=INT((x(i)+x_weite/2)/x_weite)*x_weite y(i)=INT((y(i)+y_weite/2)/y_weite)*y_weite ENDIF LINE x(i-1),y(i-1),x(i),y(i) PAUSE 5 LINE x(i-1),y(i-1),x(i),y(i) UNTIL k OR i$=CHR$(27) GRAPHMODE 3 EXIT IF k>1 OR i$=CHR$(27) LINE x(i-1),y(i-1),x(i),y(i) @mauswarte NEXT i @mauswarte GRAPHMODE mode x(0)=x(i-1) y(0)=y(i-1) DEFLINE stil,breite,2,2 COLOR farbe IF NOT figurfuellen! POLYLINE i,x(),y() ELSE DEFFILL 1,muster1,muster2 POLYFILL i,x(),y() ENDIF EXIT IF auswahl<>45 AND taste$<>"2@" ! Wenn Krper gezeichnet werden REPEAT MOUSE x,y,k x$=UPPER$(INKEY$) UNTIL k OR x$=CHR$(8) OR x$=CHR$(27) IF x$=CHR$(8) SPUT merk$ ENDIF EXIT IF k>1 OR x$=CHR$(27) SGET merk$ LOOP SGET bild$ RETURN PROCEDURE zeitanzeige DEFTEXT 1,0,0,4 TEXT 250,90,TIME$ ! aktuelle Uhrzeit anzeigen SHOWM RETURN PROCEDURE zweitschirm ! Platz fr zweiten Bildschirm machen: ' a=XBIOS(3) ! Adresse des logischen Bildschirms ' ERASE bild(),bild2() DIM bild(64255/4) ! Platz fr 2 Bildschirme (braucht das Assembler-Programm) DIM bild2(64255/4)! noch zwei weitere dazu (zum Aus- und Einpacken) b1_adr=(VARPTR(bild(0))+255) AND &HFFFF00 ! macht Adresse durch 256 teilbar b2_adr=(VARPTR(bild2(0))+255) AND &HFFFF00 ' RETURN ' PROCEDURE schirm1 ~XBIOS(5,L:a,L:-1,-1) ! normalen Schirm aktivieren RETURN ' PROCEDURE schirm2 ~XBIOS(5,L:b1_adr,L:-1,-1) ! Zweitschirm aktivieren RETURN ' PROCEDURE img_laden LOCAL t# @zweitschirm LOCAL z,xb ' BGET #1,b2_adr,LOF(#1) ' ' IMG-Header abfragen: ' w=DPEEK(b2_adr+12) ! Bildbreite h=DPEEK(b2_adr+14) ! Bildhhe ' ' Aufruf des Assembler-Programmes, wobei gilt: ' 1 = Einpacken - 2 = Auspacken ' b1_adr und b2_adr die Adressen der Grafikinformation sind ' w% und h% sind die Dimensionen der Ursprungsgrafik in Pixel ' Rckgabewert fehler%=0, wenn alles OK ' t#=TIMER ' fehler=C:img_pack(2,L:b1_adr,L:b2_adr,w,h) ' t#=(TIMER-t#)/200 IF BIOS(11,-1) AND 3 al$="Grafik ausgepackt|in "+STR$(t#)+" Sekunden.|" al$=al$+"w="+STR$(w)+" h="+STR$(h) ALERT 1,al$,1,"aha",dummy ENDIF ' IF fehler<>0 ALERT 1,"Fehler beim Auspacken|der IMG-Datei aufgetreten!",1,"Mist",dummy ENDIF ' ' Das Bild wird angezeigt, auch wenn ein Fehler aufgetreten ist: ' IF w<>640 ! wenn das Bild nicht so breit ist wie der Bildschirm ' xb=(w+7) DIV 8 BMOVE b1_adr,b2_adr,32000 ' ' Bildspeicher putzen; putz berfssigerweise auch screen: ' leer$=STRING$(1280,0) FOR i=0 TO 49 ! Achtung! kein einziges Byte weiter! BMOVE V:leer$,ADD(b1_adr,MUL(i,1280)),1280 NEXT i ' z=b1_adr FOR n=0 TO h-1 BMOVE b2_adr,z,xb ADD b2_adr,xb ADD z,80 NEXT n ' ENDIF ' IF h>400 ! Bild auf Bildschirmgre (SM124) zurechtschneiden h=400 ENDIF IF w>640 w=640 ENDIF ' @schirm2 IF h=400 AND w=640 SGET bild$ ELSE GET 0,0,w,h,block$ ! Bild auf dem Zweitschirm einfangen ENDIF @schirm1 ' RETURN ' PROCEDURE img_einpacken(w,h) LOCAL t#,z ' ' b1_adr und b2_adr sind die Adressen der Grafikinformation ' w% und h% sind die Dimensionen der Ursprungsgrafik in Pixel ' Rckgabewert z%=Lnge der gepackten Datei ' t#=TIMER ' z=C:img_pack(1,L:b2_adr,L:b1_adr,w,h) ' t#=(TIMER-t#)/200 IF BIOS(11,-1) AND 3 prozent=z/320 al$="Grafik gepackt"+STR$(z)+" Byte ("+STR$(prozent)+"%)|" al$=al$+STR$(t#)+" Sekunden." ALERT 1,al$,1,"aha",dummy ENDIF ' BPUT #1,b2_adr,z ' RETURN PROCEDURE mauswarte ! Warten, bis Maustaste losgelassen wird WHILE MOUSEK WEND RETURN PROCEDURE warte_m_t ! Mausbewegung oder Taste abwarten LOCAL x,y,k MOUSE x,y,k REPEAT UNTIL ABS(MOUSEX-x)>10 OR ABS(MOUSEY-y)>10 OR INKEY$<>"" RETURN PROCEDURE hilfstext LOCAL i,sicher$ GET 140,20,504,399,sicher$ FOR i=1 TO 20 READ t$(i) EXIT IF t$(i)="*" NEXT i ' @schreibkasten(20,50+16*i) FOR i=1 TO 20 EXIT IF t$(i)="*" PRINT AT(22,i+3);t$(i) NEXT i ERASE t$() DIM t$(20) ' @warte_m_t PUT 140,20,sicher$ @wahleinstellung RETURN PROCEDURE get.tom !Taste oder Maustaste abliefern (nicht warten) MOUSE x,y,k KEYTEST key IF key scan=AND(key,&HFF0000)\&HFFFF @no.key k=0 ELSE scan=0 ENDIF RETURN PROCEDURE no.key !Tastaturpuffer lschen LPOKE XBIOS(14,1)+6,0 RETURN pM86k %@  $ (zp @4QUt@@*x0@)`(H "ZB˃K 0@@, lB >k+k  IL @P 9@JH8 T@$ H@ 0FVXMB@0i  @@+& (  @ 0 I H@H`,TA`LY(@,Q# ҵ+&A!@F J  " A@``аxa 2P?-v$PD @  nPT!S %@" &A(C.  ` ( @ ` %E `& !kk/k>sxB 4tJ@$$ cYDɘ!`H=@"&% P BP#&$@%H@ H D  k@k@0@k@%kAk@kA@c@P@ !`  "@6 lQC e@0B@HBP"S礁p>0$kk7" a%a "P # _*`!X d`  , (0TD 2!D1??#kk k( $ c@@-@DBQPTAbR @Q@A@¾xk@C@ $ ! $V`DA B2"kk(%0 @ @ EP$@` " ( @!!*8PPk   `B@0 Id `@aA ̌D PHBL<LA3!kk@@@@``HD, DI`MT%L@`A @"K AD!a@@`b@ @BpC C"  k J` "e :0`Dk@4 kkJPp 0@k@ p X@ ( P(080@倀$a!eJB PA" "ApH)f!*! @wa#0 8>*y ! ok +G<ڂ\-  #@P0  Ap@rH HH,"0 ň`o0000 `a`` @@hp(V@PXdP`lU@@PP@@k  @B`@!,aP@@@tKM (??x0p ٞ@F` ;~p@@0V@@ I  P@$YP   0B4*0~V` 0 xpAP  .bBH "   2ߊ!I`@P` @`@0%"@4@lw  Q׀ `  (@`@`]k @@ADDHQ8@`@ xHk /0@ @,@@@"@@ m0BezLOC@@ r@ @b #@(` @"@@ D T@M@C@ @  @(0"@k @!`H@ 0 W@@@ @R@L) @@  06 @, ( *!0 @   m@ ,  !T<D  @TP k@L@ @ ÀE"! @A@@@@ @ @@(|D R!!D@`@`1PA   @B 8l48 @ CD呂@@@@`0`@@ @H @ @HhPD@ C @0R @#}g@@( d`H%%(@($@ @@"X ؕp A   ??B5F`B "r x0! A"  @ !E@D@$@@  `  @@!  0     k 0P"PL@\@@!@  D ` ` XHk(kkkkkkk  ,L @T{` 0 ` P@ `'>~~~~>>~~~~>>~~~~>H p5L SpHрQ"$ @@ ??&08<>????><8008<>????><8008<>????><80  P  {hP$:BH0r 4@-@A% k'k 'k k/.,k ,.k/ k'k 'k k/.,k ,.k/ k'k 'k k/.,k ,.k/ k' '$'`@ @@(` (@@L@$ckkc ckkc ckkc ckۢ炄 @ @  `# (Ϙ0#kk‚kkz:k:zkkk‚kkz:k:zkkk‚kkz:k:zkk;"* H#  E #>~~~> >~~~~>>~~~~>x0@(#@@`  L&D(8????><8008<>????><8008<>????><80/ ;[^F!P@A($ )hD@ #  k ! kk k k  kk k k  kk k k  kk k H4   @@$ !A@ ﻀ0 0  @@$:@  "`@` Z@H@k @kkk!0Ap; ڷ! D 0p(Ȩh!@`xJVu[]w!  kHkHH! kȈΔkkk k k k k k kkkﰀ@pa`kkkkkkkkkkkkkkk  0b   ό( :GAp  <@> @@k@k@k@k@k@k@k@k@k@k@k@k@k@k@   Z@B`HDn5U` 0 .c0HwDhD `kkkkk k k k k k @00 IG9n d Ѿ5 >s"- !C!?? k)kkkPk׉က"v& ̀3LT舺>p困Ҟ?k k ?k k )kA k @0@k  1aB P0? k k )k8,  B  @JPxƀ` k)kkk @H  xG7=}8*kkkkk)kkk .@  ̀J`@G@|>w8 k)kkk kgs?2  SS.'VfA$S=# ‡0! BoA??kk k k k k k k `,'C$ "@@!``a@iBD\dk8k k k k k k k  P@2!9B0Z @@JzΜ.=3k k2 kH8@ p  DP@3k 0kH02k;k!<k:.)*)2-y}o+W/6ťL   H@ @` HP Ġ8j,љ6(H&LÁ! 4 *E 0`0Cʂ?N@>ʿfcX v~5Lk  @>,z4/6?Wg00<P)2; Pqw7؄Axsǀ?   < Ri)BKz==eug 4+vUA]=U2ãqi!AK!? >$\  (0 rZ"@D `PlJ>?3k~jG+"5# Go睜00nj̇`` P@ @ 0` HTA Atqnȡ(04 m W&! "*(00(+!! 1"7'% ,+% < /-($!(%/)%(5=k-,.&&>&'&"#"'2&" #"' %#2&& "! " ! 0 $" "3!' 1$% 6 % :$<511!"% #,-' %$"$(!k 8I`P@qqJ𔤴`J@H" xPj,I#A,`!H0xpp=)UL \t!pI C]^Axp |rXQ}Q5)7w1d}>|V|?d#k@ `(@b`$ |@  $# !@堄@-`X` N>xp@Ml4`PKGeETE007PCGLSQATЀ@k@$  `@@ f `hh(@` xDPP@@P@@ D^>"\ ttpĀ7Pw!@LIL@`000`0P0ttp@ 1k ?~><>x>x>p>p>0~>|>y>y>q>>>>>?Ǐ>>>?π>π>Ϗ>p>0`>> `>??>??>|?<>>>>?>???>?<y>? p`> p> p>? `p>? `p><@ pp>| pp>xpp> p>p>p <?p>88p>x88p>><0~p~p><?0vpπp>ppp>p>0<x>xq>?>><c><?a>>p>>p>?p>?8p><xqx<><pp?>8?xpc>8?x?px<>x?p>p8p>xp>?pp>ppp>ppx>pp?>8p>>pp<x>|ppp>p`|p>>p<>p>8p>p>0p>p>>?pp>~p?p>p>ჼp>üp>cp>p>>?p>|p>p>p> p`><y>|?>?>x>x>>x>| >< ~ ??>p< >8| > 8x>?|p>~?p>>@>`>b?>??c>~3>1>>?# >}3>c1>cx?88>?G<<88w>< s><s>s>>s>|s|w~>?<8|< |><}>??>?<>?|<<><|88><<88>|?y80;>|~y8{>>|8xs>|xs>||>xχ~0>χ? >px~?p?ff?x~??pp0p pp8?pp8π?88?߀8p<<8 x<<8?<?8`|8xx|x88?<x888<?8<x8px8<<@x 8x<x8x?88>x888?>~pp8?><p8?>pC8>>qp8>xpÀ88>xÀ8><c|x8>p<c88?>|8|c`8?>>pcx`8>>x 8><f088>ǀ`088>ppp8>xpxp8>?` p8>? `8>8><xx>8<>>A>x>?~>xc>xc>?>y?>À?<?>p<?><x<8}><|<>><?=ߎ<p?<<<<?<<р~<<ل<<<|<?|<p~ Ax80p><?x8px?q`?x<x1`?x<x8`x8pxx`x8px<`x>p|?px>NpG|<?px?p<x0p>p0px>8?px><p~xp|?p?p8?x8?8??8c|0x1??>px89p8~x9p`px??x8ypp?8qp~?x`<?~`>? >?>>`>|~<pwp`~|0wp`~|?gp`A~|g80a~| g80a~< <00~<?80~<8??~<p??p~|>ǀ p?||ǀ p??p0dž8~?Ì??w~<<w<w0<<~ x3?>s7?7x?8?~8 ?>>s<|x;8xx9x>9? πp??p?88x8<?ϟxx8<axyx;8?<?<  s3vv> >3333 33x?kk?0 33x3cc00 333x3cc0388<<<<y<y<8@x|?|?|px>8|>8p?><<<><~>><<<?<<x?>?~?x~>>>>>a`?````c`fffffffgggc`f`afff`f`ff`cg`c`mi&dAONE}p AN <3.92ANprNNׄENEFjN?<NNTUg,Ep?N/EpNr"_tN +ANxHy!NNX <N&@"<NxprNN,A NA&NA,NA2NNhN"N4pNr/pA8Nr"_NgN2@NNdNq*N Ep+N/EpNr"_tN +ApfP~`Q~NpN(-"mNC NHy NMXro Hy NMXpJ-gp"pJ-gpgN2N A NN`Nׄ <E(NDNNNA>NNN(NpN\NpN,pN0pN4pN8NDNEpN/NN`N"_N t0rNxNEp N"HADN EupN"HA8N t0rdNxNpNNN$m$$m $$m$$NNCJNNAJN^$m$Jg$m$ UWHH/AJp Ng4NB"N$m$BNAJNNpJ-gpFV타NNN$m$ SWHH/AJN^gRNN2NN N$m$ SfNAJNNpJ-gpF/pJ-gpFgZN$m &<:<NvNB&<:<N/??$m &<:<NvNB8:&NHN+@"N`NB"N0-NS@fNAJNCJNN`$Np2N,/pAJNr"_N CJNNHy NMXSWHH/Hy NMXUWHHgNpSN,"HAJN CJNNNNNhN`NxN^NNNp N٢NA (-"mNN <N&@"<NxNAJpNg NNNAJpBNg NN%TNAJpDNg NN*Np "WHH/AJpNg NNNp "WHH/AJNDrWHHgNA NNN*Np "WHH/AJ0NgNA NNNqNp,"WHH/AJ0<2?NgNA NNNNp-"WHH/AJ0<2@NgNA NNNNp."WHH/AJ0<2ANg*NA NNNjNA NNHxdN Np/"WHH/AJ0<2BNgNA NNNsNp2"WHH/AJpTNgNA NNNNp3"WHH/AJpWNg NNdNp4"WHH/AJ0"-:NNpN, -BN0 -FN4(-J m 0HN8NDN -NN`N -RNdNNNN^NpN\NpNpNpNNpNpNprNNpN,pN0pN4p N8NDNpN`NNNN^N mNNA탤NNENjNNrN mE(pN,f`NNNNN^NpNpNprNNNNpN\N-~gNENxNNNA NNN$m$$m $$m$$N-gN$m N`/?? -n&<:<Nv8:&NH/?? -nN`8:&NNB/?? -nN`8:&NN$m$N$m N`/?? -r&<:<Nv8:&NH/?? -rN`8:&NNB/?? -rN`8:&NN$m $N$m 6<$m $rNN$m&0<t$m"NNpN٢N$m 6<$m $rNN$m&0<t$m"NN$m$ gp N٢NA NN$m$ SfNN_NpN\NpNpNpNN$m( &-Z$m $$m"NNp(N٢N$m( &-Z$m $$m"NNA,$m((*-Z$m ,$m.N*NpN\NNׄNp-+@N-~gNE_NxNNNExp N/NIJNAbC\N CVNNHmVAnCh,NNAhNNAnNgPNprNNEpCAPNNEpNrCPtN +ANpf NAnNN0-rW@^HH/pAnNrp\NgNAnNDr@+@^Np.N,CnN$m,$Np\N,CnN$m,o N$m,BN$m, f2N <.IMGN@CnN CnNNElpAbNN`F$m, AnNNXg2NElpNCnN CnNNElpAtNNp.N,CnN$m,$N$m, RAnNCbNNp\N,CnN$m,$N$m, AnN00<*.NC\NN$m, RAnNChNNAbElpN,gNNhN -Z$mJnD$m0$N$m( $m JnD$m4$NNNN,NA,trNdN` N$m0RN$m0 N`&<x:<NJBfA,$m4(z$m0ڒ|~N*N$m4 l N$m4RNNNA, \/0-0H]"mb _NNAnrNN$m0/$m4/NNpNN`NA, /0-0H"AnNfNA NNNNN^NA&NNA NNpN`NpNpNprNNp$m,$$m,&0<t$m,"NN$m,T$m, op$m,$$m, 6<$m,$rNN$m,T$m, oA NNHxdN NNNN^NB^NEpN/EpNr"_tN +ANpfN -ff NN|NBjNpNtf4EpN/E p Nr"_tN +AjNpjg`pjgNEpAPNN -f`N-g"NE2p NrCPtN +AjN`dNENNpN,pN0pN4pN8NDNEpNt2<NxNpffNEp Nt#2<NxN`NEp Nt#2<NxNA>NNNNpffNHxHxNNprNEp'NNprNE/p)NNprNEXp'NNprNEp!NNprNEp'NNp rNEpNNEpN/EpNr"_tN +ANpf NQ탂N`NP탂NA2NNNNN^N-~gNENxNNNA NNpN\NNNpNpNprNNN$m$$m $$m$$N-gN$m N`/?? -n&<:<Nv8:&NH/?? -nN`8:&NNB/?? -nN`8:&NN$m$N$m N`/?? -r&<:<Nv8:&NH/?? -rN`8:&NNB/?? -rN`8:&NN$m $N$m 6<$m $rNN$m&0<t$m"NNpN٢N$m 6<$m $rNN$m&0<t$m"NN$m$ gp N٢NA NN$m$ SfNN_NpN\NpNpNpNN$m( &-Z$m $$m"NNpN٢N$m( &-Z$m $$m"NNA,$m((*-Z$m ,$m.N*N -Z$m+@rN$m( $m +@vNpN\N`NP탃N-f0-0@l`NEp8APNNE4p5NCPN CPNNEipNrCPtN +ANpfNP탃N-f"pWHH/0-0@^HHgHy NMXSWHH/Hy NMXUWHHg NN=NNNN^A8NNN2+@zNN$m$$m $$m$$NpN٢NN2z$m8nBNNCJNNN$mVHH/N$m gp.AJN^f`A NNAJN^gNaNAJNNNNN^ANNNNA (-"mNN mNz`6NRNpf2Np+@N`&NSN -fNp+@N` @Mg @Kg(-"mNC NNA NNpN,pN0pN4p N8NDNE/pN/ -N`N"_N tdrdNxNHx2ajNA NNA&NNNNNNN^NNhNNNA>NNpN\NpN,pN0pN4pN8NDN -N`Nt}r#NxNA>NNNNNNN^N-~gNENxNNNpNpNprNNNNpN\NA&NNN$m$$m $$m$$N-gN$m N`/?? -n&<:<Nv8:&NH/?? -nN`8:&NNB/?? -nN`8:&NN$m$N$m N`/?? -r&<:<Nv8:&NH/?? -rN`8:&NNB/?? -rN`8:&NN$m $N$m 6<$m $rNN$m&0<t$m"NNpN٢N$m 6<$m $rNN$m&0<t$m"NN$m$ gp N٢NA NN$m$ SfNN_NpN\NpNpNpNN$m( Rv֭Zt$m Ԓr$mҒNNA,$m((*-Z$m ,$m.N*N -&N\NpN -*N -.NNA NNN=NNNN^NHxA NNNNN^NpN\NEļpA큤NNpNf NBNN`Np+@NNEpA큤NNNhNNNA>NNpN,pN0pN4pN8NDNp N,"HA큤N 4<2<NxNA>NNNNNNN^NNQfZNEp7APNNEp8NCPN CPNNE_pNrCPtN +ANNxN`FNrސfNE3pYAPNNEpNrCPtN +AN?<NATR+@^N?<NATrAЁN,p:N&p\N&C큌NN0<*.N6C큌N (-"mNN0<*.N6C큌N C큆NNN(-"mNNElpAbNN0<*.N6C큌N C\NNAhNN`NNr%f2NEŌpTAPNN NNpN\NpN,pN0pN4pN8NDN-g.NQ탅NEpN4<2<BNxNp+@RN`NP탅NEpN4<2<BNxNEp)APNNEp$NCPN CPNNEpNrCPtN +ANpf Np+@RN`NBRNpN\NA>NNNNN^ANNp$ mN0"mNNpNpNprNNpN`N m0(N&<x:<NNN+@N -N2"H mN "mNNpN\NpNpNpNN6<p2t 2<NNpNpNpNN6<p.t2<NN6<p.t2<N4NprN mNNNNN^NA&NN -2N -6NprNNpNN-~gNENxNNN -&N\Np&f NpN\N -NN`NNNC큪NNN$m$$m $$m$$NA큪pN$m$JgA큪pNgNA2NN$m$BN$m$ S^HH/NpNfA2NNN,SfPNN/N"NfN`:NN$m$$m $$m$$N$m?*$m ?*pNNpN٢NN,Sg$m$ S^HH/NpNf`A NNNNN^NA&NNpN -*N -.NNpNN-~gNENxNNNA큪pYNg NNhNA NNN$m$$m $$m$$NNNC큪NNA큪pYNgNNhN$m$BNA큪pN$m$Jg$m$ S^HH/NpNfLA큪pNg NA2NNA2NN$m$ SfN$m $m"NNNN`"-:NN -NN`N$m( &-Z$m $$m"NN$m$BN`A NNNNN^Np N٢NE9pAPNNERpNrCPtN +ANpoNA&NNpNNpN\NA NN-~g"-:NN$m$ Sf2NA NN$m@ &-$m $$m"NNA NN$m$ UftA NN`N$m ZN$m $m(NNNpN\NpNpNprNNN$m$$m $$m$$N-gN$m N`/?? -n&<:<Nv8:&NH/?? -nN`8:&NNB/?? -nN`8:&NN$m$N$m N`/?? -r&<:<Nv8:&NH/?? -rN`8:&NNB/?? -rN`8:&NN$m $N$m $m($m&Z$m $$m"NNpN٢N$m $m($m&Z$m $$m"NN$m$ g$m$ SfRN -&N\N -2N -6N ->"-:NN$m $m($m&Z$m $$m"NN$m$ Uf` @gT @gNNA NNNNN^NA2NNHx @Pg -vojpvWHH/prvfp.$m$ S^HHg:` @g @g @gNhNNNA>NNpN,pN0pN4pN8NDN-g`NEòpN4<2<NxNp N,/ -nN`N"_N p*N&/ -rN`N"_N 4<2<NxN`NEǩpN4<2<NxNA>NNNNNNN^NQ탃NpN`NpNpNprNNpN\N-gN$m N`/?? -n&<:<Nv8:&NH/?? -nN`8:&NNB/?? -nN`8:&NN$m$N$m N`/?? -r&<:<Nv8:&NH/?? -rN`8:&NNB/?? -rN`8:&NN$m $NNNp N٢NN+AZ$m($$m$$N-gN -ZN`/?? -n&<:<Nv8:&NH/?? -nN`8:&NNB/?? -nN`8:&NN+@ZN$m( N`/?? -r&<:<Nv8:&NH/?? -rN`8:&NNB/?? -rN`8:&NN$m($N$m( &-Z$m $$m"N4NpN٢N$m( &-Z$m $$m"N4N$m$ gNN$m$ SoNP탃Na*N Zm N+|ZN$m( mN$m($N$m ZoNCZ m  "N$m $m(oN"m( m  "NNNN^NQ탃NpN`NpNpNprNNN$m$$m $$m$$N$m$ SfNN-gN$m N`/?? -n&<:<Nv8:&NH/?? -nN`8:&NNB/?? -nN`8:&NN$m$N$m N`/?? -r&<:<Nv8:&NH/?? -rN`8:&NNB/?? -rN`8:&NN$m $NpN\Np N٢NN+AZ$m($$m$$N-gN -ZN`/?? -n&<:<Nv8:&NH/?? -nN`8:&NNB/?? -nN`8:&NN+@ZN$m( N`/?? -r&<:<Nv8:&NH/?? -rN`8:&NNB/?? -rN`8:&NN$m($N -Z$mJnD+@N -$m $$m"NNpN٢N -$m $$m"NN$m$ gNN$m$ SoNP탃N -&N\N -2N -6N ->"-:NNpN -*N -.NN -NN`NNNN^NNpNp@NN0<N2"mNN < N@pN&p*N&pN&pN&pN&C큰NNN/ NNNNN^Nx mBHN -x m!HN$m x m!HN -$mВx m!HNx mp!HN$m4 $m Вx m!HN$m4 $m Вx m!HN$m,B$m4 N`bN$m, x m!HN$m, x m!HNECANpN\NrpAvCxtNNrpAvCxtN$Nx m/0Hx m/0Hx m/0Hx m/0Hx m/0Hx m/0Hx m/0Hx m 0H.,*(&$"NNN$m$$m $$m$$NN"mNN mpNg Np$m$$N$m$ Sn mp Nf|$m$ gNp$m,$Nx m 0H$mDnDr ]HH/x m 0H$m DnDr ]HHg N$m,BNx m 0H$mDnDr ]HH/x m 0H$m DnDr ]HHg Np$m,$Nx m 0H$mDnDr ]HH/x m 0H$m DnDr ]HHg Np$m,$Nx m 0H$mDnDr ]HH/x m 0H$m DnDr ]HHg Np$m,$N$m, Ro2NNNA2NNNNNH0 /$m,(  m!H$m,(  m!H$m$$Nx m/0Hx m/0Hx m/0Hx m/0Hx m/0Hx m/0Hx m/0Hx m 0H.,*(&$"NNpN٢Nx m/0Hx m/0Hx m/0Hx m/0Hx m/0Hx m/0Hx m/0Hx m 0H.,*(&$"NN$m$ gNNrpAvCxtNNrpAvCxtN$Nx m/0Hx m/0Hx m/0Hx m/0Hx m/0Hx m/0Hx m/0Hx m 0H.,*(&$"NNNN`0NNA2NN$m$ Sn -&N\N -2N -6N ->"-:NNx m/0Hx m/0Hx m/0Hx m/0Hx m/0Hx m/0Hx m/0Hx m 0H.,*(&$"NN`A NNNNN^NA&NNaNE.pN/a N-~g.NprNEApJNNprNEpNN(-"mN"HAtN C큒NNHm(-"mN"HAn,NNN(-"mNN0-rJ@o$NAnNgNp.N,CnN$m,$N$m, oN$m, RAnNCtNNAnNDr@+@^NAnrNNAtEppN,gNNvNA NN`4AtElpN,gXNNBN$m4 WHH/$m0 WHHgNA NN`NA NNaN`pNn}WHH/pNn}"WHHg2NpNn}"f Np"rNNp2<}NC NN`lpNn}l^NEIp2APNNEpNrCPtN +ANpf$NN,N?<NNTAnNNA NNp\N,CnN$m,$N$m, AnN00<*.N(-"mNN$m, RAnN(-"mNNNxNA NNNNN^NpN`NpN\NA2NNHx"-:NN6<r0<tg2<NN6<@0<t}2<@NNpr-N -6N|NN$m$$m $$m$$NN"mNN mN^gN mN"mNN mpANg"Np$m$$N$m$Npx$m $N mpENg$Np$m$$N$m$N$m $N mpSNg$Np$m$$N$m$N$m $N$m$ SWHH/ mp N mNJB^HHgpN٢N mp NfL mNJBoN mNNNS+@6N$m ^HH/$m ]HH$m$JgN$m rh^HH/$m ]HHgNT6Np6l Np+@6N$m ^HH/$m ]HHgNU6Np6o Np+@6N$m ^HH/$m ]HHg*NNNp+@6NR2Np2l Np+@2N$m ^HH/$m ]HH$m$JgN$m rg^HH/$m ]HHgNR:Np:lNB:N$m ^HH/$m ]HHgNR>Np>lNB>N$m ^HH/$m mB$m ^HH/$m ]HH$m$Jf`D -&N\NNhNNNA>NNpN\NpNpNpNN6<0<4<mrQNNpN,pN0pN4pN8NDNp-N,4<rrtNxNpN -6NprNNvd0<4<mrdNN -2NpN ->"-:NN6<0<4<m2<NNA>NNNNpN -*N -.NN -2N -6N ->"-:NN -NN`NA2NNNNN^NA&NNpNN-~gNEQNxNNNN$m$$m $$m$$NN"mNN mpN$m$JgNN-gN$m a/?? -n&<:<Nv8:&a{j/?? -nat8:&Na}H/?? -naX8:&Na|$m$N$m a8/?? -r&<:<Nv8:&az/?? -ra8:&Na|/?? -ra~8:&Na|4$m $N$m$ S^HH/ mpNfpN`NpNpNprNNpN\NN+AZ$m($$m$$NN"mNN-gN -Za~Z/?? -n&<:<Nv8:&az /?? -na~*8:&Na{/?? -na~8:&ava{V+@ZN$m( a}/?? -r&<:<Nv8:&ay/?? -ra}8:&Na{/?? -ra}8:&a az$m($N$m( &-Z$m $$m"NNpN٢N$m( &-Z$m $$m"NN mpN$m$JgNN -&N\N -2N -6N ->"-:NN -NN`N$m$ SfN$m( &-Z$m $$m"NN m ZN"m m("N$m$ S^HH/ mpNgA NNNNN^NANNENxNN@+@N -m -N6CN CNN`NNNNN^NA&NNE̼p N/ -a|N"_N EpNCPNNEpNrCPtN +ANpfNN,NA NNNNN^NNN/-?<NNT/ mNPNpN,pN0pN4pN8NDNEpN"HAN t 2<NxNEvpNt2<NxNAt2<NxNEp Nt(2<NxNpN,pN0pN4pN8NDNEpNt2<NxNEpNt2<NxNEp Nt#2<NxNA>NNNNN^NANNA2NNpNpNprNNpNNaNNN-~gNENxNNNN$m$$m $$m$$N$m XoN$m$XN$m hoN$m $hNN,JfZNpN\N$m r'Ёv'$m֒$m $$m"N4NpN٢N$m r'Ёv'$m֒$m $$m"N4N$m$ gFA NNNN+|ZN$m(BN$m$ SfNA&NN$m t+@N$m$N -lN <Э$m$NBN @o(N"- <@$mҒD$m$N+|@NA(<*-?|.-N*NN,NAtrNdN$m r(Ёv($m֒t$m Ԓr$mҒN4NpN\NAtrNdN <"<NdN-~gNENxNNN$m$ SWHH/$m _HHgNpN\N$m( r(Ёv(֭Zt$m(ԒrҭZN4NA2x'$m ؒz($mڒ$m ,$m.N*NA +@N?<NNTr(Ё/Hy('A2 \/ mNO N$m r(Ёv($m֒t$m Ԓr$mҒN4N m+PZN"m( m "NpNpNprNNpN`NpN\N6<~0<4<B2<BN4Npr2NEpNNpNpNprNN`NpN\NNNN+A+B$m$$N @lN -&<:<arvNatnas+@N -&<:<a|atNas+@N -&<:<a|fat.vNasR+@N -&<:<a|>atvNasp+@NHy NMXrgNNpN\NpN,pN0pN4pN8NDN < N@/ -&amN"_N 4<2<NxNA>NNNNNNN^NA퀄N^A퀈N^A퀌NNA2NNN,NpNNpN\NpNdNBbNBfN;|NEax NN@$m$N@$m$NpN$m N$m NNp2ЭfvP֭b$-f"-bNNpPѭbNRmN0-am&<x:<N BfJAfЀfNBbNp2ѭfN m&ohpNNNN$mBRNN+Ab+Bf;CN0-g0-S@fVN -fal&<x:<NvN/?? -bak&<x:<N8:&agai,R@$m4N$m0^HH/$m0@'mB0-U@WHHg^0-S@fFNEavNBmp$mRNZ`NN@+@*N@+@.NRm0-koYNNNNhNNNA>NNpN -*N -.NN6<@0<4<|2<NNA>NNNNA2NNNNN^NA&NNNNA2NNHx_NNANNQ탃NN"mNN mNDr/^HH/ mNDr:]HHg.N mCN CNNpN mNp_NNAN&<x:<ad/Ap0Nf`pNNAN&<x:<adg NpNNpN <-EckN@NNpN٢NANaf+@NA2NN-~gNEatXNNNpNpNprNNaN`NN$m$$m $$m$$N$m$ g$m$ S^HH/NpNf@aN-f2 -&N\N$m "-$mҒNfN -2N -6NprNNpN -*N -.NN -&N\N -NN`NpJ-gpJfNBmNTN/??NTN/?? -ah(8:&anx8:&ANfhAN/?? -ag8:&ai`ae@$mВ?AN8/?? -ag8:&ai4ae$m В?pNNNJfGN -$mВ?$m ?*pNNpN -*N -.NN`N -$mВx m!HN$m x m!HN -$mВ(- m!HN$m (- m!HNBmNTN/??NTN/?? -af8:&am28:&ANfNTN/?? -af8:&amAal&<:<abbadnac/AN/?? -afp8:&agac$mВ( m!HNNTN/?? -af88:&alAalz&<:<aaacacf/AN8/?? -ae8:&ag`ac@$m В( m!HNNJfGNrpAvCx$-N*NNN$m$BN`dA NNNNN^NEpN/aN <\*.*N@/N"HA,NNAN^gFNAa`g.NE.p*N/E_pNr"_tN +AN` NAaxNA>NNANNNNN^NpN("mNEpN,gPNEXp:APNNEΒp:NCPaFCPNNErpNrCPtN +ANpN("mNE'pN,gNE(p mNNpN("mNEPp N,g NNNN&NNNN^NpNNA&NNNNaz.NpNpNprNN -"-NdN-~gNE"anNNNpN\NN"mNNN$m$$m $$m$$N$m $m&trN4NpN٢N$m $m&trN4N$m$ VHH/Np aRgNNA NN m+PN m +PNprNdNpNpNpNN-~gNEamNNNpNpNpNNpN\NN$m$$m $$m$$N -$m В&-$m֒$m $$m"N4NpN٢N -$m В&-$m֒$m $$m"N4NN,gA NNpN\NN$m$$m $$m$$N -$m В&-$m֒$m $$m"N4NpN٢N -$m В&-$m֒$m $$m"N4NNNC큪NNA큪pa}$m$JgnA큪pa}g NA2NNA2NN`NpN\N -$m В&-$m֒$m $$m"N4NpN٢N -$m В&-$m֒$m $$m"N4NpN\NN$m$$m $$m$$N -$m В&-$m֒$m $$m"aN$m$ SgR$m$ S^HH/Npa|ʀf`n -2N -6N ->"-:NN -&N\NpN -*N -.NN -NN`NA NNNNN^NA&NNpNN-~gNEak0NNNN$m$$m $$m$$N$m$ gNNpN`NpNpNprNN`NN$m$$m $$m$$N$m$ g$m$ S^HH/Npa{faPN-f -&N\N -2N -6NprNNpN -*N -.NN -NN`N-g N$m( &-Z$m $$m"a~8N`N$m( &-Z$m $$m"a~NpN٢N$m$BN`A NNNNN^NNNprNNEp3N/EpNr"_tN +ANpf8N <ar:@"<NxNprNNNNaohNalbNE~NN <aq@"<NxNNNN^NAN6AN^A N^A$N^AN6NA&NNpNN -Na -Ba -Fa(-J m 0HaaNA2NN -&aNasNN"mNN mpayg N mNN mN^/N,S^HHgasNN$m$$m $$m$$NN"mNN$m$ SnL mND`N mNN mNN`ZN m0(gNN m0(HS mN0"mNNA2NN m$m $$m"NxN`VNp$m$$N`HN m"maw8"mNN m$m $$m"NxN` @gV @gf @ g` mp axn/ mNXfjN+AZ$m($$m$$N$m ZVHH/$m $m(VHHg NA2NN m$m($"-ZNxN$m$ Sf$m$ S^HH/Npaw܀fPA2NN m0(g8N m$m $$m"NxNA2NN$m$ Sf N mNN`A2NNA NNpa}NNNN^Npa}0Npa},Npa|pa|pra|NNNHxN,arN$m,R$m, YopazLNpF$m $$m rЁ6<$m $2<mawXNp@$m ђ$m opr1NEpNNp r1NE(pNNpr1NEpNN6<h0<tF2<avNpayNpayz -Bayv -Fayr(-J m 0HaydaylN0a}NpaupaupauN6<0<'4<rQas,N -FWHH/ FWHHgNpWN,4<"rxa~N`NpWN,4<rxa~Npauzpauxpauvpautau|NpauNE p N4<rZa~NA>a|NNNA2a|NNNN^NA&a|NN,NQ탃NAnNNN8l`NE>p3APa~NEqp0NCPamCPa~NEϡp NrCPtax+ANpfNP탃N-f>NEϬpN/a2NEpNC큌am>/N"HAn,NNAnN^/AnN p\angbNpAnNrCa}NA <.P24aog6NEp&N/E_pNr"_taw+ANP탃N`NAnaMFgNANNA탪NN <~AN܌ <~A탪NpNNaQa}&&<:<aWaNNɀNNF+@N -dNRN0-rHYAnN0Cna}N <.P24N@CnakracNpNn$ml$NpabXN <.P24N@Cnak -NN <.E24N@CnakaLJgDN$ml"pҭЁ+@N -dNRN <.E24N@Cnakp -NN`8NEpN/E_pNr"_tav>+ANNJNP탃N-fpNx"mNxPzP|~au*Np$m,$ -&<:<aK/??$m, &<:<aQ8:&aLaMrac+@N -"-Ёac+@N -"-Ёac+@N -"-Ёac+@N -&<:<aK0/??$m, &<:<aP8:&aKvaLac^+@N -"-Ёac2$m,( m!HN -^HH/ -^HHgN -UHHD"-"pN.CazN -dN -UHHD+@NANBNp+@~ -av`dN"-pN.CazjN -"-ЁЭ/A "@ - _aYNACai0Caz*N -ѭNR~ -~o]N`RN -"-"pN.CayNNN -"-Ё/A / -"-"_ _aY:NACahCayN -SN6/"-pҭ␁DN6"_ahz0<ak"HAahh$m,("mNNx"mNtd"<,apN$m,("mNtd"<,ap~N`NN$m,("mNN$m,R$m, roxA m 0Hx m!HNaNEiaX:NN@$m$N@$m $N$m("mN$m ("mNN$m( m 0H$m ( m!HN$m fpd$m$Npd$m $NN@$m<$N$m< m>$m<("mN$m $$m"paoN$m<( m 0H$mђN`NJN$m,BN$m,("mNN$m,R$m, roN,S^HH/NN^gP탇NA auNNNN^N-f0NEp/N/E7pNr"_taqt+AN`\NA&au4Na~zN$mBN$m BN mNNpamNpalpalpramN"-p$m ҒDv $m֒t$m Ԓr $mҒakrNNND$m,$NN,So Np$m,$N$m, o$m, roN$m, N,"mae"mavNpalN"-p$m ҒDv $m֒t$m Ԓr $mҒajNpalN$m, rg*$m &^HH/$m, r^HHg NprNN$m, QfpN m0(J@o`Np mNrND( m 0H$mNx "mN$m $$m"amN m0(HS mN0"mauN`hN$m,("mN$m $$m"palN$m,( m 0H$mђN$m, r fN$mBNpP$m ђN mNN$m @n` $m, rfA arNNNN^Np~A탤NpNEaTXNp$m,$N$m,RN$m,("mNNN$m,("mNE_paef`N$m,("mNNNx$m,ؒ"mNNp~A탌N܆p~A탒N܆p~A탰Npp~A탘N܆Np~AN܌Np~A탞NpNp~A탶Npp~A탼NpNp~ANpNp$m,$A $m,("mNN$m,R$m, [op+@Np~AN܌p~AN܌p~AN܌N <~AN܌ <~AN܌Np+@*Np+@.Npaif -*ain -.aijNQ탁Np+@NNQ탅Np +@Np+@&N0< 1AaNp+@Np+@2Np+@6Np+@:Np+@>Npd+@Np+@nNp+@rNp2+@NEcaRJN$m,BN@$m,( m!HN$m,R$m, Yop+@JNBFNEppAtarN?<NATR+@^N?<NATrAЁap:abp\ab~C큌ar^Np$m,$0<*.atC큌aaB$m,("mNNE=pa~$m,("mNN$m,R$m, [o0<*.a(C큌a`C큆aqNElpAbaqN0<*.a~C큌a`C\aqNEEpAhaqNQ탇Np+@RNNNN^NA&ao`N-~g(NEpaPNNNNNA aoDNEMpa}/a(NNׄNp-+@N(-"mN"HAta`$C큒aqNHm(-"mN"HAn,NNAna@gPNprNNElp>APapNEpa}HrCPtaj+ANpf NAna}NN0-rJ@^HH/pAna~p\aag^Np.a}CnN$m,$Np\a}CnN$m,o N$m,BN$m, f2N <.PACa}fCna_*Cnap$NEppAtapN`F$m, Ana~NXg2NEppa|jCna^CnaoNEppAtaoNp.a|CnN$m,$N$m, RAna~@CtaoNp\a|CnN$m,$N$m, Ana}0<*.aax(-"mNN$m, RAna}(-"mNNAna{nr@+@^NA am NaYNAtEppa`,gdNaW( maCDNN|NAnraUN -oN -$-brN8N`N -$mp$rN8NpaT&NHy NMXUfzNaV ma>&<:<aH m 00N -"-o@+@N -"<@aL+@ NEЪpaz/ -aBa~"_a]*Eнpa^CPanN - aB`a~CPa]Ep a^/ m 24a~`"_a\Ep a^CPamNErpazNpa[NNNNN6<0<traXNNNpa[NaON$m$BNA큪paU$m$Jg2A큪paUg NA2abNA2abN$m$ S^HH/appaUbfBpa[,N`NN$m$$m $$m$$N0<haQ+@N -a8aRa6H+@N -a8aL/?? -a88:&a::a6$mВ+@ZN -a8aL/?? -a88:&a:a5$m В$m($NNN$m( "-ZaZ$m<$NNNpZ]HH/ Z]HHgN$m< $m($"-ZaNN$m$ Sg$m$ S^HH/aopaT$f` -2aY^ -6aYf ->"-:aYfNpaYNA aaHN`rvNarNA2aa2NHxa^NpaV4paV2paV0paV.aV6NpaVFN < am/ -a44apX"_aNp aO4<2<2a_0NA>a]NNNA2a]N -NaUN -&aUNpaU~ -*aU -.aUNNN`nvNanNA&a]2NpaVNpaUN-~gNEa>NNNN$m$$m $$m$$N$m$ g-gN$m a3P/?? -n&<:<a9N8:&a//?? -na3 8:&a9pa0/?? -na38:&a4la0L$m$N$m a2/?? -r&<:<a88:&a./?? -ra28:&a9a0/?? -ra28:&a4a/$m $NNNA a\N$m$ S^HH/aj paN|fpaTFNpaSpaSpraSNN+AZ$m($$m$$N-gN -Za2 /?? -n&<:<a88:&a-/?? -na18:&a8*a//?? -na18:&a3&a/+@ZN$m( a1/?? -r&<:<a78:&a-f/?? -ra1p8:&a7a/D/?? -ra1T8:&a2a.$m($N$m( &-Z$m $$m"aQNNpN٢N$m( &-Z$m $$m"aQ*N$m$ g -&aRN -2aRR -6aRZ ->"-:aRZN -NaRN$m$ S^HH/ah^paL΀f0$m( &-Z$m $$m"aPNNN$m$ SoA aYN`kNak^NN@N-f *NNhN -v"-rJoNEfp)APa[NEяpah@rCPtaU+ANabNA,traRNpaQXpaQbpraQfN -v&-rtraONpaQNprNEѝp aa>NN$m$$m $$m$$NpfN$m "-v"-ra8$m $N$m $m&traO*NpN٢N$m $m&traO N$m a/,/?? -ra/8:&a5n&(*pNA 00NpfNAC""N`NAa`a`a`a_a_NprFNp/a_a_Aa`pa_a_a_N$m$ g -&aPFN$m$ SfN?<NNT+@N <r4<Aa4dA 00N <r4<Aa4DA 00Np+@N <r4<AaV/Aa+gVNHxZNAa\ N$m, XraxAa>2aU NpaUpDaUNa[4"maO*N mazpg ma[Lr WHH/AabJB\HHf ma["QWHH/0-HgN0-HSAa\CaNN`BNERp a[*"H mabJoN mCa=CaNN` NprafN`Aab@$m,( mAH 00NAaygNp0a[`a="NpaSpfa[Na=N-g(N$m, XravN$m,("mNramdN$m,R$m, ol]NBmNp$m,$ -aI`(N$m,( mAH 24AaN$m,R$m, o]N4-f@NE]p5APaMnNEӒpaYrCPtaG`+ANA aK8N`xNpaCNp$m,$ -aI@`N$m,( mAH 24&<:<a"Aa'$m,( mAH 00N$m,( mAH 24&<:<a"l$m,( mAH 00N$m,R$m, ol]NaSN-~gNEsa+NNNa7N$m$@N$m $N-gN$m a /?? -n&<:<a&8:&aZ/?? -na d8:&a&a8/?? -na H8:&a!a$m$N$m a (/?? -r&<:<a&&8:&a/?? -ra8:&a&Ha/?? -ra8:&a!Da$$m $NpaANp asNay:+AZ$m($$m$$N-gN -Za/?? -n&<:<a%8:&aT/?? -na^8:&a%a2/?? -naB8:&a a+@ZN$m( a$/?? -r&<:<a%"8:&a/?? -ra8:&a%Da/?? -ra8:&a @a $m($N -Z$mJnD+@N -$m $$m"a?0NparN -$m $$m"a?N$m$ SfaQ4N <ЭD+@ZN -ZlNBZN <@Э+@N o N+|N+|&Npa@ Npa?xpa?pra?Npa?Np$m,$ -aE`N$m,( mAHaЭ&+@*Npa?Tpa?^$m, a?XN$m,( mAH hl Np2+@.N`NB.N -.Э*(-&&-$m $$m"apa>pa>Nx mAHad@8<&-$m $$m"apa>pa> -"a>a>NA0B0Npraq Np$m,$ -aDD`N$m,( mAH 24acAaN <r4<Aa"A 00NaZ0Aa&<:<a"NA 00N -&<:<a/??AaE8:&abaB$mВ+@2N -&<:<aJ/??AaE8:&a(a$m D+@6N-gdN$m,("maz0< (a9@/$m,( mAH 24&<:<a2a>aW"_a50<%)a9$m,("mazdN$m 2o$N$m,("maz0(H爐2D+@2Np2o Np+@2N$m,("mazL0(a`vaFh&<x:<aa2l8N$m,("maz0(a(vaF0&<x:<aRa+@2N$m,("may$-6"-2aEN -Z2o N+m2ZN -2aR/??$m,("may0(avaE8:&a/?? -a8:&ag"N$m,("may^0(HЭ2+@N$m,( mAH 24aadAaVN$m,R$m, o.]N <8ЭD$m $N$m l N$m BN <Э$m($N$m( oN$m($NA,$m((*-$m ,.-Za>NA aBNN=NA aBNa/N`SNaTNpa;NaKNaJRNEәp6aJ~NaJ>NEp aJnAa3raJBEvpaJ`aJ2Aa3VaPa3JNaINaINEp"aJ$NaINEp1aJNaINaINE+pMaINExp,aINaINEԤpMaINEpOaINE@pNaINEՎpLaINEpGaINaI\NaqS^HH/aOJVHHgA>aApN`RNaRNa.NA&aABN-~gNEa"NNNA2(<*<|~a~A adPN <>~Aad>Nx m AH +@bNx mAH $mp$N`G~NaGN?Na ma&<:<a m 00NHy NMXrgNE֖paC/ m 24aG"_a&,E֫p a'CPa7N0g*NEֹp0aC/ A a>~A$a>vNa`$m$$m $$m$$Naa$mJnDr ^HH/a`$m JnDr op.a>JVHHg`ANaB NA,a>Aa=N m(<*<|.<a+Np$m,$$m,("maf(af|N$m,("mafp*a"f$m,R$m, roHx$m, r2Ё/aNp$m,$$m,("maep*a"f4$m, VraZ$m,("maea N$m,R$m, roAadNp~Aa](Na~N mt"<a)NN8N`@Na@Na_n$m$$m $$m$$NaM+AzN -zg.N <z"<a+@vNN"AHPB?HQ?<NNAP _NuDExa~`bDEav`ZaR11!Nua11!Nu 24&8:DE`6 24&8:DB`&a<&8:DE`DEx`a(` 24&8:HnghDBHngXDE~<En g6@ABDFGcGcGb8(vHDl`G8BCHC` GHD8HD쬵k&Dуd QRB BbJjDBNu DENupN֓DjdDA@ cAр[SBoJjDBNurptNuH@g0J`Ѐ[rGoJjDBNu0ftNu@[rB oH@JjDBNu 24afpNu 24afpNu>jDGGe GbFGNuG GbFGNu~Nu 24HjDBaDBNuBe B/dAрQ4<`>BNutNu $HkBk Bj*DBNupNuDBBkBjDBDNuf gp` 246jDCCe0 C/jC C@j C jr0H@{0>H@Nur{0Nu{0NutNu 246j(:<DCaf AfBfNu`( 24~` 24~?jDB Bd/H&8:a$H`@FG/ BefJAf ft`pCNDBa(SBHaRBDBH L&ֵ8<>:H@Ѓ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` <r4<NupNJBktNu@AB`&8:~.gNa`&8:` &8:@ABJBgJEgJAfJ@f<jDFF Fdx.HGއQJGfjHGH??UGgkte <r4<` 24HL&8*a dgHL8a`L8aTJ_ k:NuH 24kBaL8a`0TJ_LkNuTJ_Lja&8* <r4<`dHL aJBfL agLJBjDBaL8a@a0ZDBNuLJBjDBaL8a"`0H&8:aBH&L8aL8aL8aL8a6Cg$H0a&0rHGGdHGGdSWDуdi?<>0rHGGdHGGdSWDуdi2?<>0rHGGdHGGdSWDуd&2 H@kփAр[SBkփejRAd RdQRBJjDBNutNuCEdSW`?<,>CEdGeH@0r`fJCgz?<0rÐdSWЃdi?<0rÐdSWЃdid?<0ÐdSWЃd&2 H@kփAр[SBkփejRAd RdQRBJjDBNutNu?<0riP?0i?`?<`apEȽgP`LJg&B.C`a8aD*9fap-I,=|p4aHz*9g ENp9`r _a &nO:NMI`K$<Nu[1][Error +111][Return]E g g>Jf`Ar Hjr-D@Hd0H@H 0H@0CNuAF"H [1][fSEfNu`fHQ?< NA\Nu@$g\kdHfiHNufnpNupNu"lDaDNuJnDaDNuzxeҁ؄d`ef Nup`z"_KMI`O:HQ <-H*,`N, d d3 d# d# # d# # # # d ALH dAL H LH d AL`H L|0H>L|H>d~# # # # A`@ALH L|H>L|H>L|PH>L| H>L|H>L|H>L|H>L|`H>L|0H>L|H>QL|Nu$H$&"BA -KaXA"f B &nNuH>dd2d"d""d""""d LHC dLHLH C@d LHL|H| L|H|PCd~""""C`:LHL|H| L|H|PL|H|L|H|L|H|L|H|L|H|@L|H|pL|H|L|H|CQL|Nua`Np?a a?<LNA``NuNu`aza`aaaHA-Hhp alpMah=@F?<NNTT@A0r p0Q`pdr ta0.F=@=@ACp,2QAp 2QaRa`\`Xpea>pCR2Ad0A2r22a"<0<NBLNurt=@:=A@=B NuHz(` NHz ?<&NN\Nu9`gNuW`Nu|^|  R^,T:&0D4(*<B$,>2::(   F..26"8@"PQ1!P1P!0PP`0  q#aaaa O: n*NNuNuNupc?a0QNurdAd6Ag,B(dB(dH Ao<atoBAp`&NuNu?<OA`d?<IA`Z0<H Ia'Lt Ig Og Ug Ag Rg,afNup`a'p`0afHRa'>Er$Wgr STD:gr COM:g r LPT:f4FA$_0=@Dk"~CA0< Bha& B2"pNu$_AF Ge><QBAFpNuafgzp=` aZgzpa%AHPBHQ?NA\ _JkNuHz `Hz"` <Hz&?<&NN\Nup CNup C0Nu C NuJBj[B`PZB`J 24a"< @Ё` 24a"<-JjЁk`ddReaDBNu$⊰e v@Cr4<L`ЄQJftNuSBЀjNu;ew2Ƕ '\ a0Mj&l g:~lm٬26K! #H%lo'n)7+P-?/2zE4B6Z8:\V<>=@AĄCdE^GIjK<MFQNPRFISU[WKXZy\S]_^`Rb cyd݉Pf9:gnhdj7kYl mznoqm>r us ttuavwa:aRFBd&8*L?aH<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`-@ _a(G` VNuag`af`ae `ac` acpNuadpNu/ a$I> _a4Ae4v` VfANuHP0(R@kBa $I _aIUd4Id4Id$Id `$$$$Q @JfNuNup `2atSAfNuag`af`ae `ac` acpNuadpNua@SAkfJANuH HPhkJa2 $I _aIUd4Id4Id$Id `$$$$Q @JgSL`QNup `a԰Af` VNuag`af`ae `ac` acpNuadpNua4@m4v` Vf@Nu/HP0(X@kHa $I _ahIUd4Id4Id$Id `$$$$Q @Jf$Nu $Nup `a$YAfNuag`af`ae `ac` acpNuadpNuaSAkEF$p VfWANu?HP0(T@kHa $I _aIUd4Id4Id$Id `$$$$Q @Jf4Nu0XNup `8azUAfQNuag`af`ae `ac` acpNuadpNuaFSAkXf SAkXfJANuth`tpa ".Nutj`t@H|`t)`t` tr`t2`t@-A=B|`v8`v(`v-` v!`v `v@-AH |`~HAHBHCHDHEHFHG-HfAD-HH@-@H|p`P8z0<n\n^=E=@Hp rt=|D`z`z `z8.^n\Dn\@Hp tr=ED`n\n^8Hp rt=|D`n\n^HBB=CBn=D=@p rt=|D`Zn\n^HB=@Bnp rt=|D`0n\n^n\n^A0000000000prt`n\n^648HH`prt`n\n^n\n^8HH`prt`"_A `4RB`"_A42L\A` L0GF11Q-p`prHQ`l&x0<n\n^=D=@HBB=CBnp rt=AD`06AC1=@b01=@`WCk1Qrp`Bp'rta n2rt6(SC0(S@apaB\papava0paRG=GYfx-IC=C=C$tBft=B=B(tFJ=BBBB*Do>Eo:@l6Al2DDk =DVBnDEk =EnBn@cVo Acno,_NuAH`/=@a _a]Ak024E$ Bb5B5A6CC5CK5C:8AB0000DkxEkt00A<:d>:bSFSGFn\GnXDDk0BhDEk1EBh Fchh Gchh0hb"0hbpmrt-|.jH-|.~L` _a4$FAFp_@[000][vx`* [g" ]g |g QSx` xQSrQ][vx`* [g" ]g |g QSx` xQStQ]BAF0-H,=@p4ad2HNu 24DBaDB11!Nu 24DBa DBNu 24x6o<Ce(FC BdЄeNu B/dHDDdRdQRBNu&<:<`g BbUC BcjNu BcHDDdSkg RBAрjNuNu0ftNuB H@"jNu Lx6oFCe0FC BdЄe!Nu B/dHDDd`A*p4. g=BNuA*pBQBX".g paZBNupraHP?<NNT~U@g~tb39Abpr0 0BBB R@ @fAb0000PB0Tp`00000\0X0Tp`T@00000P0BXpnT0raVA0p1| 1AQBX0$HTH0P P0Tp`0NuH(Fa$L(FNuSk [0NupNupa`p>`HPaa _&X Pf/|~K)"zag @ ep 2tCn"2 S@HQC8ػR"_d BTAA3ApCb4$I2a222B"0@2A\xva@gF2#M 443BS@ -f HQC8ػR"_d@BAAb8RGRC`3RSG5G5C J1DcaRF Fe `RG GdNuXAbSF1F41R1h4x1EDg"<bp-A` n"g(t( f h fpH`aLRB`Nuao aШNupNuaJFoHPJhja?<?B?<BNAO _*kBg?/(?<BNAO Jk NuNafoazJBkAf`a|??/?<BNA.k \Hx?<BNAO [HHNux`x*0ao< 2fJjr`Nu~dGdEH<Nup`v0@F@AJhg PLNu`VLJg(HPBHh/??<@NAXLf ѨLNuJkp%`aJBja!| ??<>NAXOJkpNu0< aH`0< CF2p`Zp a2`p CFp`Fa CF"p`8Hza`Hy="J`$B.@=|DNua.@FpAR@C` @H` @HHy=aa"H`Hy=`Hy= 24`@H` @HHy=aa"Hav`Hy=`Hy= 24`aX`$aR@ApDrAeA`?a0J@g*?CJa@p0g?C2pa,SWfTNuB.@=|DNuB.@a=GDgNup`Նa`aCF"E p`Jg$_a: HN$_a: HN$_aBHN$_a؄BpHN$_aB0HN$_axBpHN$_alN$_ab؄N$_aXN$_aPN$_aF 0HN$_a:؄00HHN$_a,p0HN$_a 24N$_a:p 0HgpN"X I"_(*UGk*<(؆QNp`p`p` p`pJPg`d$_a!HN$_a؄1HN$_aHN$_a 00N&8:` &8:@ABHaNL8a8L8 DBaǢL8O <jDFJEjDEFn ffAbtNu&8:a`"&8:a` 246jDC C b H&<;)8<\:<aa-$HaȘR/@L&4(g8HP b6 a^$_// Z4HQ`S@Q _Q _a, _Nua$`p`AFtЀvQBNuAFt0 9c^QBNuAFt 0QBNua`a`aCF 0gS JfS`n@a Acr `@a A cr `@a\ A cr `N#$H`HaLHP?.d=hdN#=_d2 "@$Y4Ad2`0Q @NuH@&g( b⸃bLHa.LC 0$Ir `Q"Jr0XDQD@CtEe PA`fRشf`e"J*c j|0"cRLJgR $I.f) 5e*0!.g -g  g 9f 0b`RB`1`p `E"e aj"b BB& &6 Nu r2$v60!2#RAAg$@%RCCg$B%8Nu@`r ??a"P02R@H`2Q Nu <ڢ2Hz?<&NN\`T n2LLJFj|@c<JGj~Ac>02 h|N n2HHNu80a|DHz ?<&NN\Nu| n2 h N n21@Nur0?HQa _/ ?a0 _4gSB@cLAc4JBg,J@g4@Bo2’S@,. SB6VgS F"GQpNufJ@fSBD@BR@HNufS@kVfpNur ?HQax _/ ?an0 _4gSB@c:Ad,J@gB@BmS@,. RB6Vg(R F"GQpNufJ@fRB`fS@kVft0HNuaraJjtNuadHPa pJk NuCg.BJ@g  g &g, $g %gN$NutNuRpt`2Rpt`Rptr ae OgX Xgn HgSRB ae Fb$0k  c_  c b退`tSHkaNuRB0 b b瀀`RB0 fрd`a p`ap`ap3LTBLPNu>.D<jRGg>VGg:TGjp`xHPa0CF$IpR@  f _alHd2Hd2`"QNu` <.DHSGFaAEg f< &_Nua`$Nu.dfa :BLP=n`r>.D<jRGg.D<jRGg*VGgTGjp`Z<.Da*`" yLP faaF` yLP f aa,AF "g pR@0 ,g  g  fHp`:pR@0  g  g "fR@0 ,g  g  fHpRU@"_  f#LP$H _a`QNupR@0 ,g"  g  fa~ (fR~Nua ~ `a~NuaJkHQ ! gRf _NuXX~Nu0j \@??<NMXJk .dgp Nu`*<.DHSGFa ,g gAEf< &_Nu ."Ff +"g ,g`?<`Bg/0aJo< 2JjJAfr` TNu$ a Nua`a`a`]A=ADNua`a`a`H0aL`H0aL`$a|A((@؆*.&|؆kD`&a,k.."*B(.&؅kr-K/.?<INA\/?<HNA\JgB n""n&ۮ&ۮ"$I`&bۛp0R@@b&n CXbp`8 .&/?<HNA\p=`ÎHU2<.,HdY=ANu?<*NAT.p a Ha INu.k2@a.0H@av.`2H@af/0@aZ/Yda@HA`Y6 :fRS@g.t;ak&AA :fRS@g t;akIA??<-NAXNua0g2.k.tak$6g .fS@gt atkAg A .fS@f.Nut a\kAg6 /fS@gtaFkJAgކA /fS@g4<;a.kAjA AbAPjAdYA??<+NAXrNurxS@k0  bS@k .g( :g"0  b DBb BdeS@jJANuSR@JANu?<%NNTNu$R"Q PLH=HAF-HHL? H>A-HLL? H>pmrt`"XXHVMFLH-E H-YLH-E H$-Y*LH.,_NuHV,@,_Nu 24JBkCkNuCktNu 24JBoSBNugRBNu2(gbc  P"H`Nu/0Ha2  _ PSAvjx E(Wf* ae zb Q @Nupagp?<?NMX"Nu 24&8:`2Bnp`pBnp`p=| p|=Fn@=@b=n`ra Hj=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?HyaPNM\Nu=|D`Lja zEfpadppa`AFEg0PaEfaFRE`ܾEfp a@a8?nnnp a2RF`<a "nnoS@f nhfSnl=Ah=FnNup` papq4.rf?Hya˶NM\Nu=|DHaLNu|A0"P2(@e2<EF`QHP=|DJ@g$abAF$HpR@ 0 f _a``QNuHPp?ap a _2<|0`aS@kg U@k g NuNu0Nu NupNuC&pHQ/Hy@NA NuC pa:NuHQ/Hy?NA Nu&g4 FgaNgJAga2< R@AdSf0Nu0a<?n\?/n^< Q0CaC _<0a 4r `XzڇJ@kn0F2TQNu F2TQNu 24aF2TQNu _S@Gd@GHpp/0NuGNpp#fpNup`p`#NuB[dNu#[[NuB[dNu#[[Nu#fp`,aІ"H[Nu#fp|`,aІ"@HC[NuNu?/NT` pNuNHMAp f9kd n2!|[v ||9"XLv:g 4zg*Ag61 cg Jg ;e, ]b& Te` Db; g fg  bJg fg fg,HC#0j ` Hx Dg;0L]YBj@1BA gbШ dA gd BBdL@Nu wHHKMPPR g,g&y`pBy]XB@etAg1B# `\HCHSG9Fvg*1B f  f&< # XB@etAf&_`A^CpgZ"HyNN#\0.>"NN @A C#P B?< NA\#^P/a?< NA\A0N `NuA#_ _ x hg3&\AC`g#P Nu?<"NNT @ 9[g!@ HzT?<&NN\3Nu#^pNuHz ?<&NN\NupAC;E_4rJg" XX\QNuA;Cr g"XQ!ACf NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A3_ Ni LHMO:|1R/9^P?< NAO:pdz`R/Maj,_NNuHz` Hz`Hz&$A?<&NN\NuNu4Nu$Nu(a؀.dfa|jNu?a0` ?a2@@a2` a Nu4.`Af n2LR@RANu4.`g S@SAHNutbpbr??papYa0a0`p"<a>`.dfNudg"J9kfa4fp`d`/9dg/9dg/9NupAa-H=@|p4aS@Nu[2][Programmstop?][Stop|Cont]9HHNu9`aNf"_O:N"_O:HQ`6 9g"9gJ9fga"AO:Np\B`~G06#f&#-KNuk"c" C gT6f`Pv6"cgRCC(D#8`D@v`v??NMXJNuJ@k??<NM"UAf J@fH@Nuatj0fpNu\@`a``]@><CF Ipa<0HNuaD`]@><CF Ipa Nu?|`?a"0R@f|0aHJFkHPa _Nupo`HSHP&I>g\SG??<NMXJk Q _t&_Nu&_`\aJANuag `af`apNuapNuC`C``C` C`C-KJhfJfRRRRRRRHP? @CFH~8:E#P&<2 `b$bYEf`"RAf rЁЀ`&Ѐe "ЀeЁdp`JAkfgRer?DDЁaAa8$HX :CFE` YEjT"_$P"2trDDd0d d d` QjNu` aDa DNu na^ K"ng42 $`gk2&Hg Af deђ$`ebѐXf&nNu AgebѐA``-Kx$ n&$n""Hg8" &Ak cѐ S`g"" k#&Acё2+SAI3 Q&f-I"&nNu-Kx$&ր n&$n""HgR" k&Ac b S` S`g4" k#&AcbrkX`ޑ2+SAI3 Q&f-I"&nNuan `aT n2L6(n\n^HHHNua4 n20(n\HNua" n20(n^HNua n20(HNu`aNu-Hb=hzBnfNua`f nbaߐfp0nfc`۴Nuax/ ? nb"XfRnfSnzkx _g !g &g. \g.a(`RnfSnzkN`0"_fC=pH`T0"_`pR@RnfSnzk \f2"_gAc@@H?a$0`p?a0H"_`Nup?aֶLn`$Hn nb"XfRnfSnzk _g,vxz| +g2 -g, *g $g& #g$a``RnfSnzk`` `RCSnzk _f Snzj`h #g $g *g.g ^gH +g^ -gX.fXxRDSnzkL #g ^g +g4 -g. _f.RSnzj`RESnzk ^g +g -fRSnf nb? JEf0DH2HgR@?=nxvjDnxL8n@a`av<z Ndz* I0`  fEQNdS|$Ne Jnvj|- nb XfRnf0nfc|.g8 _g>.g@ +gN -gR $f ,fHQ!aRnf"_p$RHQa"_`Rnf`)  g *fp `Jnvjp-`Jnvkp `=_fSnfRnzNuHLn=BvjDBN"LxC*E0RJCfRCR@r2HAARACd ` Efr0Sb Eg4 5e.!A*e0R 9c0`R1R@0c JEr+J@jr-D@UEoJYEc0SEnHJEf0SEH@HdREf0SEH@H 0 0REfH@C* nb XfRnf0nfcJ.g _g .g +g -g HQaLL`Rnf`Jnvjp-`Jnvkp `=_fSnfRnzNu"H YJQfNu YH瀀aLP|HPGn C&֛֛֛֛֛(HDDCBg6Cv6C[RCF8[[[aL6C[RCF8:Gn FWfTL L-KA `$I\bfBjQNu$YbfBjQNu؄*؄؅CH`t؅X`$_  IaRYHR"H @`ʘ؄*؄؅AHNu؅X`$_ IaYHR"H` n}d$HJf-HS Nup"`HPa _aؖ`QNua JH aL0Nua`r .&NuzQ`z ` zn`z4=A|aـ-IHQB0a4 _JNuz"-A=B|aX-I`L\HIHIHIHIE$$4 RC%bECAAHǞDBBH儓"4 ҇Q4 A`҈Q҃4 A`҈QdRAZ"4 ҀQ4 A`҈Q҄4 A`҈QdRAZRI cprt!`#lHrYa\pYaіLapY` 9l/rYa*pYa|Hyp?o?<?NAO JkpY`/a `H.gZ <r4<?k"SWgap`TL8HaaBFBGf`gSBk`fJgSBk Q`p`pL~NuH~2/86/:4/<"o>$oB|~pzpM852`xRFRD2`f F}b Dg` Dmf SDRDT@`TSDRDV@`FfV@ Dg`0gR@ Dg` SF2`RFf V@`CgR@ F}cpL~NuH~2/86/:4/<"o>$oB|~pz(|&JpM86xRFRDRLGPf 8|&JR$Kf F}b Dg` Dmf ST@`XSV@`LfV@ Dg`6gR@ Dg`&PPBf V@`CgR@ F}c\L~NupM86)1)0)0)%)))-))))0 }@D@Q|08%! ) ))  @@))@@ -ÃÇ @)D<rr;FDF𔐑008) )@ @   33  1 8)   @p0)(?) $*$$) ?) ` ))¢CDD& )  uuUUj5 ) ) <y>^QQD@QQ))9}= @)))=??~xUUUUUjU*55*UjUUUUUUUUU IHH  ??a""q ; ;  )))) 8|@88DEE= >|) ? ;UUUUUUUUUUUUUUUUUUU$$ 8|@8)nj ? /()0CDC I D@DD@I  'DU @AC>|??~ `XVUUUUUUUUUUUVX`@@@ DD) <)<""))H8` >F>` 8H PN  ?) @``PPP``@)_Ṗ @)`) @?% ) 8$ &0p) )&x)D |<x|"9%)0")&`)`/ `$~BVBWCWCW@U@UCWCWCVBVBVBV~ ))))0)$))))))-))) ))0 ~BVBXX8` xX^VBWp NPNN)8P  5*UժUUjU*5  #)@O) 8AA88ED8)D<088$! jժUUUUUUUUUUUUj9AA9%)  @ < ) <)"1 䔄QQO@ UUUUUUUUUUUUUUUUc%) y h@DD1 ÎANPP )8|@8 ? 8@_P>UUUVVVTTVVVUUUUUUU>D)  ; DDN*U"Ue&e}"UU2ue&ea!a 8DD8(}UE@HpHD8|@8䔄) |@ 0x)D  @))@`\U_ <)XX   <|8Ο9}A9* `` `` `` xX(X 㑁T @@A#^QQ``g)f p@  ` @@G#$ ~ 1bă@" 0x)DX  NQ΄   0@19 0?)`@@P"< :"9|@9$GA???~`@1 80@XUU\XXXXX)  1 89|)?oϟh08+r9 a#"q08) ?@)) ) @X||J)` xx ))R2~`)ݪw (#( ( ( ( ( ˊ ))_PN`133c 0 x)D! IHH 3as_PN? 0? 1بx) 30` )a11a)x)D0 0 @ $D9%9EeUMD 8|@8)`00``#""rx)D:)22b)p )d @@ OQOM05  @@DD)) ) 0CGC):%)0 UUUUUUU@5  @@)@)@ _P9|)3qk,089 I ) %)q @@ )XTVUUUUUUVX x)D>) @xEEx~j &)@0) @@ @@``000p)ppp А`p)1) ) )0)))) )))0)0))))))1))? @DD qL# D?5*5*5*5*5*5*5*5*5*5*?0?)??8ͅCS(%") ) ) *.".@m ?0 QJD0 @ 8$! UUUU`````) ?&9w9)9 ()D<) *p,>޾`%t8|@8>0  UUUU )璂)A) ) ))0p)P)))@GDDG)@㑁0  DDNUUUU ))8x|?>  @@)@@   @!8}A8@m ?0 spIBB񊊉" I D@DD@I UUyy0(~  yy    4D! @C@!sp,>޾`%tC$' /(|@x@@ )D< )H8` >F>` 8HU>)"">"$)*>"U磠ࠠࠠ)?)?w o;uUUUUUUUUUUUUUUj  @X @RP){)>DCr2 :)@ GDDG)@ )4? 㒉y)yg@1UUUUUUUUUUUUUUUU   `BssN@@@_~1C@@)@@)@)@)@s)QO :?Υ)??)o 3srUUUUUUUUUUUUUUUU @@@ 0(x> s8%! 0)8 ):)     ))?) UUUUUUUUUUUUUUUU @ "tt ` 0  CGD ):`6 )))?) UUUUUUUUUUUUUUUU ) @`DB' ))%@ );))@ Ix8o: c)3cXxXX)@) `) )VUUUUUUUUUUUUUUU  @ 80x̆HHx9)~0;?ϟ?gYa0pV3333b) '00"𰘘@`PXXXXXXXXXP`)"||)))¢>dBp00b)) ) ))0)!)))'))))))))))&1 ) xEEx@"(@T"Ha'@I  xDDx@n5    @)'( HH' 8%! HXi~`08@HqIDH@~(BXB䔄 \UUժU* > @@GH @ @ =h^@ 9}=W‚b)B* :CB:CDD @ VYQVUUUUUUUU>@@@? a#"qR!  CW? _PN )G= =/('@LCDD  9}A9}UUUUUUUUU>?@) 8=x)DDDN19!!):) Ȉ))9!!9AA98|@8@@)}UUUUUUUUUUU?< Oʌ)??,< @HqIE ) : ) )c㗄 #C.}UUUWTTXPP`@)0 )CB@@y)@vH" @ TX)   ? }UUUUU5) @AA""$$((0P`@)@  P„ @)QQX))  fc`ƃ (|TD  ) }UUUUUUUU5  @@)  @ @)D  d'$t⒉))0 ) 8}< DX9GA???~`@HHP((  U@ՀUUUU"UU"UբHU"5 08X)CFLXpX||J19 @Q[UQ  pp
Ҿp`%t) 0 )))) 3cÃ)&)0?Υs|ff|ff|8|@8X )@))@)`)X)&0`)0p))`~b)0)0)%)) )) )0))))))) )01?@@)<)")" ""))D< ` `0| 9 xEEx@XrqqJBAʊ9%!!tDz>q183 )8); 09~?0xDDx@W0'/( (( /('>DDD  v)<) r80)²z"ₖr :CB:䔄X )   )GOD0)8 @@`) )` 0/('VYQ?00>00?):'pH@@٫ q#" 5jUիj5 DĪDCGD @_@ 0))b22b‚)9!!DUUl:0 XvuժUUUUU|DO ""B) ~))I*0 ));%)")`PXXppD @   G)0* *X%)fƃ&)$)@@  @0))ff`f8|@8X%)`&)`"`&````0))HHH)HH```1HK<0$]&]46S@g0+ @f.+ Gb6HG^GOG<^FNFDGkSCx(J:G`Tpf*fRfnJDfjSD`J2HA2@@aP`$j@fp@ K"Jaj$I&H`r`r`JEf L"J`p0aHSCk Q$IQp`xp`r*J8^DLA$$$44`P KC@JCg0<<Ce<:SF@`&H0aVVEgFRFBB:SERE(Kp`pg`RgS+Wf KX2HA2p0a",HTAIdSN AoAAHAaHAB0<@j0Ӓ@f&N`, SgJEgJf EgJ+fa Kp0raRA04<Bj4’Bf&H@`L, SgJEgS@fN Eg+f@aD Kp0rarRA04<Bj4BBBf&H@`, gaQ LNu, SFg""J L><Fo>paGf$INutt$g ᙲf4Q`0@?@`VgYpЀd HAXgUpJjᙲgS"Nu$ g Q`@?`$QdHA4JjNuH>24 ABBf02$"4H0""T vZX Ĕ`L&:"4@F.R$&$&$h$,J*,@P,*>>FRT 8 f`*.X6DBj.  J< (h|^N0. :$LX.48`$$PFD>hd 6$"   $..Hx BT "(6t 0 >N(njlDJ@2 *JZ.",: L  (>rF,"L6nvB@FpF,> v* *"&B( & n6  *j0p$0b&0dX(>48<. 8.` " @"<,&" ,X * f((@4"&Xb0L$B 8~f| D 8 $@& $x 6 "xVn( Edewecht, 12. September 1991 KRITZEL - Version 3.9 KRITZEL ist public domain, d.h. es darf vllig umsonst kopiert und weiter- gegeben werden. Zum Anwenden des Programmes ist nur die Datei KRITZEL.PRG erforderlich. TEST.xxx sind Beispielbilder. Die anderen Dateien sind nur fr GFA-BASIC- Programmierer interessant, an die ich auch die folgenden Zeilen richte: Liebe GFA-BASIC-Freunde, im Laufe vieler Jahre ist "KRITZEL" so oft erweitert und verbessert worden, da das Programm zur "normalen" Arbeit eines nichtprofessionellen Anwenders vllig ausreicht. Das war nur mglich, weil es etliche andere Programmierer gab, die mir persnlich oder ber Zeitschriften- bzw. Buch- verffentlichungen entsprechende Routinen weitergegeben haben. Ohne eine solche Zusammenarbeit kann sicherlich fast kein Hobby-Programmierer ein hnlich umfangreiches Programm erstellen. Es ist deshalb logisch, da ich mit dem Programm die komplette Programmliste (Amerika-Fans sagen dazu "listing" oder "source code") weitergebe, damit auch andere daraus die Routinen entnehmen knnen, die sie gebrauchen knnen. Leider ist dies noch lngst nicht bei allen PD-Programmen blich. Dabei gibt es eigentlich keinen logischen Grund dafr, mit seinen guten Routinen heimlich zu tun, denn die Hoffnung, da man damit mal Geld verdienen knnte, wird sich wohl kaum erfllen. Die professionellen Programmierer werden es sicherlich nicht ntig haben, ihr Wissen aus den Programmlisten der PD-Programme zu bereichern. Wenn dagegen alle PD-Programmierer ihre Listen verffentlichen, knnen daraus im Laufe der Zeit so gute Programme entstehen, da viele Computer-Freunde auf den Kauf von professioneller Software verzichten knnen - und Schler brauchen gar nicht erst in Versuchung zu kommen, zu Raubkopierern zu werden. Deshalb bitte ich alle anderen GFA-BASIC-Programmierer ganz dringend darum, auch ihre Listen zu verffentlichen! KRITZEL kann alle gngigen gepackten Bilddateien produzieren. Die Routinen fr das Packen und Auspacken sind in Assembler geschrieben und stecken in INLINE-Zeilen im Programm. Da ich sie nicht selbst produziert habe, kann ich leider nicht alle Routinen - wie blich - hergeben: Die STAD- Pack-Routine habe ich nur gegen Bezahlung bekommen und da ich dem Program- mierer nicht sein Geschft vermasseln mchte, fge ich das entsprechende Maschinen-Programm nicht bei. In der Programmliste ist sein Name und seine Anschrift zu finden. Da nicht alle Programmierer ber die neueste BASIC-Version verfgen, speichere ich die Liste im ASCII-Format ab. Sie ist nach dem Einladen erst lauffhig, wenn man in die INLINE-Zeilen (in der Procedure inlines_einlesen) die entsprechenden Routinen einldt. Zum Schreiben einer Anleitung habe ich immer noch keine Lust. KRITZEL programmiere ich hauptschlich fr mich selbst und meine Schler - und die benutzen mich als "Handbuch", wenn ihnen die Hilfstexte im Programm nicht ausreichen. Durch das Lesen der Hilfstexte kann sich jeder die Funktion des Programms selbst erarbeiten. Die Hilfstafeln verschwinden brigens bei einer Mausbewegung. An vielen Stellen im Programm bekommt man durch das Halten der Shift-Taste erweiterte Mglichkeiten, z.B. beim Einladen von Bildern und beim Verschieben von Blcken. Falls jemand das Programm verbessert oder einen Fehler findet und besei- tigt, mge er bitte eine Diskette mit der vernderten Version an die unten folgende Anschrift schicken. Als "Dankeschn" werden auch gerne Disketten mit anderen GFA-BASIC-Programmen angenommen. Wenn auerdem ein frankierter Rckumschlag beigefgt ist, kommt die Diskette mit der neuesten Version von KRITZEL zurck. Mit freundlichen Gren Heiko Mller Mozartstrae 17 2905 Edewecht Tel.: 04405/6839 ******************************************************************** 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 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. ************************************************************************