p IlO`  @`! #@%`')+-/1o79;=?A C@E`GIKMOQ S@U`WY[]_a c@e`gkmoq su`wy{} @ @ o @ @ ` ǀ  @ ` ׀ ٠  @` @`!Aa  !Aa!!#A%a'+-/1!3A5a79;=A!CAEaGIKMOQ!SUaWY[]_a!cAeagikmoq!sAuwy{}!a!AO`  @`! #@%`')+-/1o79;=?A C@E`GIKMOQ S@U`WY[]_a c@e`gkmoq su`wy{} @ @ o @ @ ` ǀ  @ ` ׀ ٠  @` @`!Aa  !Aa!!#A%a'+-/1!3A5a79;=A!CAEaGIKMOQ!SUaWY[]_a!cAeagikmoq!sAuwy{}!a!AST_VIDEO n`BIORYTMY `4ST_PRINT 6H~PRINT ACC F JPRINT DAT F STCOMP TXT F DESKTOP INF 3HAUSHALT POLONICAACC 3. o`.. ST_VIDEOPRG 0F  PT_EPSONPRG 0F 2VHSDATEN LF 3G`WH` Efv*oM# m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHNFALNxHz2?< NA\pdAxr0XQ)K\NN *0FVV JrBjNuHz?<&NN\NpCAp$L Qp N\9lrBlJpNN\pMN\9@pdAr 0Q0tr Nߪ9lN`Nupealp`NuaNJHz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa2|a>:><|a4g RGj`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8N6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dNAXJ@jNNuNJ@g,A,BBgHQ?<=NAP FJ@k??<>NAXtNutNuJ@jD@vqapvNߜ)@p `H@)@prtNߪAHplrtNߪB 2pNߚpNߎpapaprapalpalpalpaTpaTpaTBp'a?<NNT@B){L9|0<rtNߪpapap9@p`pvNߜv`v`vj`v `v`v`v`?Aa*` Al 2l 4)lVH)lRprtNߪAl 2l 4HVNuAl 2l 4L VA0000000000prtNߪ9Cp rtNߪAv` Av `Avl 2l 4)lVHNaBp0,l 2Nua40,HNua*p0,l 4Nuaprt0,l 22,l 44,NuN9||BlBlrҌpsNBNu@((?<NN.?<NNX@LvA HA HNupmrtA)HA)HNߪ(* 9AJA)H@@[000][ˈN Evz`* [g" ]g |g QSz` zQSpQ][ɈN Dvx`* [g" ]g |g QSx` xQSpQ]Bp4N\HNur|<N @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| Nߪ2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg: k&@0+R`g k#&@0+S@H3 Q&f)I`LNu?<?<NAXJgJgN|AH@B pNA NuApNN$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpN _0HpNp"_0HqNdp"_0HqNdE ұeHHQ0)N$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNVWHNuNVVHNuNVUHNuNVRHNu Ihd*N$E$RR@H`2QˈN ENu Ihd"*N$E8*$R`"QˈN ENu(* 0(iN$E 4R`Q$D 4R`QˈN DN ENua NuN IHPg"B  g &gNJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNRB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<,NATANnpN"H2X@ND:0H@?ND:AANB, NtaoR6 .fJS@gFt ao>AA .f4S@g04<;ark(AjA AbAPjAdYA??<+NAX FNta>k:Y6 :fRS@g*t;a(k$AA :fRS@g t;akIA??<-NAXNurxS@k0  bS@jrNu .g( :g"0  b DBb BdeS@jJANuSR@JANupA` p9`p:`p;?N>J@fCAHPBHQ?NA\ _JjNNuH&NրN鼶jNuHRp` HRpJQfpNNq Y Qfd ЀЀNuNN&$_& if"QdփփHRNNN~,Nq8DRzXEEg"7PNqR$HBJBgpNJgJigp`eetЂ`"ЀeЁdp`ЀeЀe"Ѕe$W.H@@N\L"2` NqR YEjrd0` SjN YQf "_Nq*eNN*< NqbІSGfN @$P "t402g YRBB%(4g $`RBB%(Nu~$_NЀЀ N" KC`e N`d \N l\Ӭ\ NupNd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNuPj0,lf$J,nk l*fp?N\p N\9|nNA0,l2J,jk 0"fZRAR@ 0"g 0 f` 0 g 0,f9@lTll`BllA"H"g"A4`Q"AA 0! NuS@R@ 0 g 0,f9@lRll`R@ 0 fQj`<,*?Hj\F FfN`H FfN`RGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HN\LNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"N"p`tdbDA0Hg<<R@f|0HN*JFk*HQ/??<?NAXfX ENuJkpNp`p`\F( &I.` ??<NMXJ[j E&DNuak NupNuakfpNupNtddA0oH?<?B?<BNA Jk.,?<?B?<BNA *kBg?/?<BNA JkNuN<(`|HP?NB<pg2JFg W"X2@e2<A`QNCpR@ 1 fA 0! "_Np`pNu)H9@Jp4N\P'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNFHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(NXtHB9BL@@TAt )l g.A( f hgSASAgRB`9BJN\SAgNu)l g,vARC( g9CJ9|Lp!,N\ FPeNu0A JpBQA/)H )l gBlJpN\B Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8N\p>L8NAJ0?C bL000zH?A/.)HpN\LrHH/>Bl/,ff.f.ffNu l /.g&, ^`D&, N`>&, R`8&, V`2&, Z`,2,/4WAARA0,/6A hfRAS@f9A/,&, Jo ? CN 0`@k Ap0(/.NuA Nup)@JphN\LtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, N\"F QNu?S@k&8L &LeBLe,C`(A? fHa)_ 2TNuBlJ`l *bl ,bH .N0S@k@>A PC/~. 0(JgRJ)@g1@CJ2fP2HP" &" *pdN\0,r W1@AJ00 piN\9|L@NpiN\ _CL""pe`9| LpiN\9|LphN\LtH 2H/`SBSC@AHH/jP 6P/^P0<rtNߪpapapapaL/jr`S@k6@ A 9PJg8BPpfN\pgN\9| LphN\9@JfdBlJa\Q 6BB 2`NuS@k @ A 9pJg a$Bp`NuHS&I. FV 7p&Nߦ9l/h8,:,L/d4,pĴ@cS@9@p4,rŴAcBSA9Ar`8pJ, 7fnJ/^k0 Eg$2,/h pg  qfH9A/hpjNߒ`.N AvN&<x*<N@AvNAvN&<x*<N0fN<NSVHfN;N;A<~N BmzN"` NqNSVHfN<$N< A CNpNpN pNprNJAN&<x*<N"N"<NNzN NFNRpNpN pNprNJAN&<x*<N"N"<NpNpNpNAN&<x*<N"NNNNBprNNO*******************************************************************************NVNBprNNPCass. F I L M T I T E L FSK. Art Zwst. Lfz NVNBprNNO*******************************************************************************4NVN pNpNpNAN&<x*<N"NNNNBHmA0NC텰N"_N,HPp"_NNNBpNA0NC텶NNNBp=NHmA0NCN"_N,HPp"_NNNBpANHmA0NC텞N"_N,HPp"_NNNBpFNHmA0NC텼N"_N,HPp"_NNNBpLNHmA0NCN"_N,HPp"_NNNVNBNO-------------------------------------------------------------------------------*NVN pNpNpNAN&<x*<N"NNNA<~N N000lCNBmN\A0 0A.N AN&<x*<N0fNBBmpNpNpNAN&<x*<N"NNNNSWHfNAA<~N A0N&<x*<N@A0NN@PNUWHfNB&A<~N A0N&<x*<NfNAA0 0NBprNN#Weiter nur mit der linken Maustaste-NVNBNO********************************************************************************NV <r$<A0NN?<NATA킦NA킦NzN0fN6HxNDrucker nicht betriebsbereitHPNRETURNr"_ NA킲NNN>N\pNpN pNprNJAN&<x*<N"N"<NpNpN pNAN pNpNpNAN&<x*<N"NNNAN&<x*<N"N"<NJN L i s t e d r u c k e n N4pNpNpNAN&<x*<N"NNNNBprNN+Ist die Liste wunschgem sortiert (j/n)4NVpNC NHm pjN|"_NfNN Hm pnN|"_NfNN>Hm pjN|"_NpJBgp/Hm pnN|"_NpJBgp$VHfN NNBp rNNPapier justiert (j/n) NVpNCNHmpjN|"_NfNzNHmpjN|"_NfNNNNBp rNN Ihr Name:nNVNBp rNAHrNHmHp.N|"_NpJBgp/HmHp{N|"_NpJBgp$VHfNFNBp rNN 4NVNNBprNNHeutiges Datum (TT.MM.JJJJ)4NVNBpr/NAr NHmp.N|"_NpJBgp/Hmp9N|"_NpJBgp/ANN&<x*<NpJBgp$VHfNNxAN BmvBmFBm A0 0ApNHmA0NC텰N"_N,HPp"_NNN |N>pNA0NC텶NNN>p7NN | HmA0NCN"_N,HPp"_NNN>ppBNN | HmA0NC텼N"_N,HPp"_NNN |N>pLNHmA0NCN"_N,HPp"_NNN>pNNP--------------------------------------------------------------------------------NVArN&<x*<N@ArNABN&<x*<N@ABNABN&<x*<N0fNN>NVAN N>p NN S e i t e ANNVN>NVBmFN>NVN>NVAN N"`zNqAN&<x*<N@ANN>p NN S e i t e ANNVN>pNN Sie haben ArNN Videotitel-NVpNpNpNAN&<x*<N"NNNNpNpN pNprNJAN&<x*<N"N"<NN AN&<x*<N@ANN N>NVN>NP********************************************************************************NVN>N5 V H S V I D E O L I S T E von *AHNNVN>N& Datum : ANN *NVN>NP********************************************************************************NVN>NPCass.| F I L M T I T E L : | FSK| Art | Zwst.| Lfz.NVN>NP################################################################################NVN NFN\pNpN pNprNJAN&<x*<N"N"<NpNpN pNAN pNpNpNAN&<x*<N"NNNNBprNN,Im Infofile werden folgende Daten ausgegebenNVNBprNN,--------------------------------------------NVNBprNN1.Anzahl aller Videofilme-NVNBp rNN2.Gesamtlaufzeit aller FilmeNVNBp rNN 3.Filmanzahl nach AltersfreigabeNVNBp rNN3.Anzahl jeder Cassettenart4NVNBp rNN4.Restlaufzeit aller CassettenNVNBprNN,Sollen diese Informationen gedruckt werden ?NVNBpr%NNj/nfNVpNCTNHmTpjN|"_NfN@p1N|C탮N?<NATA(NA(NzN0fN:HxNDrucker nicht betriebsbereitHPNRETURNr"_ NA.Np0N|C탮NNNHmTpnN|"_NfN^NHmTpjN|"_NpJBgp/HmTpnN|"_NpJBgp$VHfNNpNpN pNprNJAN&<x*<N"N"<NpNpNpNAN&<x*<N"NNNA$ 0AN Vorhandene Videofilme = F <r$<ABNNNVN>N Gesamtlnge aller Videofilme = A4NNJNN Std. und Hmp"_NNN Min.NVN>NVN>N4 Anzahl der Filme mit Altersfreigabe ab 6 Jahren = A NNVN>N4 Anzahl der Filme mit Altersfreigabe ab 12 Jahren = ANNVN>N4 Anzahl der Filme mit Altersfreigabe ab 16 Jahren = ANNVN>N4 Anzahl der Filme mit Altersfreigabe ab 18 Jahren = ANNVN>NVBm4BmFA0 0ANVN>N Vorhandene Cassetten E240 = eHmA턞"_N,HPp"_NNNVN>N Vorhandene Cassetten E180 = eHmA턤"_N,HPp"_NNNVN>N Vorhandene Cassetten E120 = eHmA턪"_N,HPp"_NNNVN>N Vorhandene Cassetten E 90 = eHmA터"_N,HPp"_NNNVN>N Vorhandene Cassetten E 60 = eHmA턶"_N,HPp"_NNNVN>NVN>NVN>N RestlaufzeitensNVN>N --------------sNVNSVHfN NpNpNpNAN&<x*<N"NNNNRNBp rNN%Einen Moment,ich rechne Daten aus !!!4NVA C턼NBmbBmhBm4Bm(BmBmBmFBmA CNA0 0ANA0NN\AdN&<x*<N@AdNA0NC텰NCNA0NC텰NNrABNA0NCNNrAHNABNCNNrA`NAHNA`NN@A`NA0NC텞NNrHA`NL8NN Cassette Nr. HmA"_N,HPp"_NNN hat eine Restzeit von = eHmA0NCN"_N,HPp"_NNN Minuten.NVAN&<x*<N0fNNSVHfNNpNpNpNAN&<x*<N"NNNBmNRN"`NqNSVHfNNpNpNpNAN&<x*<N"NNNpNpN pNprNJAN&<x*<N"N"<NA 0ANANANC텰NNrN/N0004CN"N"`NqNqBmFA C턒NBmvBmPBmVBm\BmJp0N|C탮NBmBmBmBm"NzN A0NC텞NHPN240"_NfN|ArN&<x*<N@ArNA0NC텞NHPN1804"_NfNAFN&<x*<N@AFNA0NC텞NHPN1204"_NfNALN&<x*<N@ALNA0NC텞NHPN90"_NfN^ARN&<x*<N@ARNA0NC텞NHPN60"_NfNAXN&<x*<N@AXNN NFNBprNN5 ,`^ "(. l|TpnrP "" NB&>Bjvvr(HH,B\ B.  8Bv&.$Xf( Z  B( "v|B|"*Z&P^"BTx6TL@4ZBJJJ0&0"X@LLJJt<B82R2  j`Hz ?<-?<NM#Bg/<?<1NA0Nh gA XfdJXf`0Jk [eT ]c {eH ~bBp`H fp{ fp| fp} fp~ fp[ fp\ fp]0JjN0p??<Bg?<NM\?<RBg?<NM\Bg?<NM\`01 Asterix und die Gallier Zeichentrick 85Min 06 180 0000 80 . `4.. BIORHYT PRG WF 5YBIORHYT BAS QF LEBIORHY BAS MF ^*BIORHYTHBAS ]F i*BIORHYTHLST cF t'`X0R` Efv*oM m HPHUBg?<JNA(m)m -:gS)@ -OK1C#hNHx?<HNA@)@l/?<HNA)@h&@)@X)@\Ьl)@d)@`ANCpr Ѝ"QHNXALN,Hz.?< NA\pdAxr0XQNNJJrBjCAp$L Qp NBlJpNNpMN9@pdAr 0Q0tr Nb9lNupeaZp` aN\BgNA`C2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNtrҌpsNB0,Nu9@NtrDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu  2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe" F dF8BCHC` F0b(v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuN(pNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|<  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8N6.aaNRFBdL8?N<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`HQ2: A d@C 5e*!R 0c 9c0`<R"_`^2:C0 Ef"_NuHQN8aCr  g 00VJAgB @ nN @mHJ@j0.4DBUBk0QSAg Q.`S@k 0`0BAF "_Nu.WAkQA" 0g` @eA0NuAd RdQRB6Ce0 C/jC C@j C jr0H@{0DH@Nur{0Nu{0NutNuJj(:,af AfBfNu&<x*<N鎀r$g4jDk( b4<J@`@[H@0Nu4<Ѐ[Nu4<NuNuAd RdQRBBkBjDBJjDNupNufJj fJAkNupNdRdRrxaAffBWHNuJjDBDA@JBfprJjDEDD@JEfvxNuaغBffAVHNuCDEaEf fDUHNu]HNuCDEaEffDftNuBDEHNNJL8NjL8NvJjv`v?&<ڢ8N"p`pNu)H9@Jp4N9|&J&f H LNu9|&Jl&lHByeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApN`NHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f*&lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.0| Copyright 1986|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehler"l`Yd&-KNNv"l`YepN&#k"C-KN"Cփk փk2##`փk##`3#`$Y8gHRDD*D%H8#$c2g# HRDD%H`pr`&AdRd QJBgRBBABJk"l` d&6&|0!NuNv"l` epZN?<NNTUVHfN)HxN`2Der BIORHYTHMUS luft|nur in der|hohen AuflsungHPN`schader"_ N+@RNp C큲N <C큈N <C큎N <C큔N <C큚NHxN`BProgramm BIORHYTMUS| (c) W.Wenk 1987| | >>> PUBLIC DOMAIN <<< HPNl Auja|Needanker"_ N+@V -VSWHfN*pNp NpdrdNNlDann geht's jetzt los!! Np2N` -VUWHfN*NWp2N`pNHPpN"_NfHPpN"_NfC8NxHm8pN"_NfHPpN"_NfC8Nx+|NpANNnN>ANAN T A S T E <--Np N` <}"<NN` NNN(/N$VHgN92NAN.N:pNRpNpNp Np"<NANpNpNpNprNp"<Np-r(NpP"<0NVpNpQr(N <^"<0NVpNpNp NpDr2NN` Meine FragenNpD"<NNlDeine Antworten4NpNpNp Npdr-NNl Dein Name: 4NA6 R0A< H0AB @0AH 0APN A CNxpxr-NN`..und Dein Geburtsdatum HPAN|"_NfN <r-NN`[z.B. 1.Aug.1960 = 01081960]NA< 0AB 0AH 0APN A C&NxHm&pr"_N(N&<x*<NpJBgp/Hm&p"_NN&<x*<NpJBgp$VHfN< NUHm&pr"_N(NzNpJBgp/Hm&p"_NNzNpJBgp$VHfN< NUHm&p"_NNATN Taste <--Np N` <B"<NNl 4NNN(/N$VHgA퀴N(&<x*<NA퀺N kopieren erlaubt <----------------------- * 29 '* INPUTFORM von M.Vagts, Stade * 30 '********************************************************* 31 '------------------------------------> init 35 clearw 2:fullw 2 40 pi =-2* 3.14159:r=8 50 dim monattage%(13), tagesname$(7) 60 for i = 1 to 13 70 read monattage%(i) 80 next 90 ' 140 for i = 1 to 7 150 read tagesname$(i) 160 next 170 ' 190 '---------------------------------> titelbild 200 dim xkoord(100),ykoord(100) 210 ' 250 ' 260 gosub INIT 270 gosub CLEARDESK 280 gosub FULLWIND 290 color 1,1,1,2,2 300 xpos1=0 :ypos1=-15:xpos2=640:ypos2=-38 310 gosub RECHTECK 320 text$=chr$(14)+chr$(15)+" BIORHYTHMUS "+chr$(14)+chr$(15) 330 xpos=230:ypos=-20:gosub TEXTAUSGABE 331 clearw 2 335 anfangsform=0:endform=1 336 gosub LINIENENDFORM 337 linef 200,150,450,150 340 xpos1=130:ypos1=15:xpos2=500:ypos2=250:fuell=0 350 gosub RECHTECKRUND 360 xpos1=132:ypos1=17:xpos2=502:ypos2=252:fuell=0 370 gosub RECHTECKRUND 380 groesse=18:gosub schriftgroesse 390 text$=chr$(14)+chr$(15)+" BIORHYTHMUS "+chr$(14)+chr$(15) 400 xpos=175:ypos=45 410 gosub textausgabe 420 groesse=9:gosub schriftgroesse 430 text$=chr$(189)+" W.Wenk 1986 " 440 xpos=260:ypos=55 450 gosub textausgabe 460 anzahl=30 470 for i = 0 to anzahl 480 xkoord(i)=230+i*200/anzahl 490 ykoord(i)= 80+rnd(1)*100 500 next 510 gosub POLYLINE 520 text$="Erklrung [J]" 530 xpos=148:ypos=230 540 gosub textausgabe 550 text$="oder kann ich mir das sparen ? [RETURN]" 560 xpos=148:ypos=240 570 gosub textausgabe 580 gosub normtext 590 out 2,7:a$=chr$(inp(2)) 600 if asc(a$)=13 then goto DIAGRAMM 610 if asc(a$)=106 then goto INFO 620 if asc(a$)<> 13 or asc(a$)<>106 then 590 621 ' 622 '---------------------------------> eingabe 623 ' 630 DIAGRAMM: 640 clearw 2 650 groesse=19:gosub schriftgroesse 660 schrifttyp=1:gosub schriftart 670 text$="Klasse, ":xpos=50:ypos=40 680 gosub textausgabe 690 gosub normtext 700 text$="...dann knnen wir ja loslegen:" 710 xpos=150:ypos=40:gosub textausgabe 720 color 1,1,1,1,1 730 xpos1=40:ypos1=45:xpos2=560:ypos2=80 740 gosub RECHTECK 750 color 1,1,0,0,0 760 xpos1=40:ypos1=81:xpos2=560:ypos2=350 770 gosub RECHTECK 780 text$=" Meine Fragen:":xpos=50:ypos=68 790 gosub textausgabe 800 text$=" Deine Antworten:":xpos=400:ypos=68 810 gosub textausgabe 820 out 2,7:text$="Dein Name:":xpos=45:ypos=100 825 gosub textausgabe 830 xpos=420:ypos=100:laenge=10:modus=3:groesse=10:gosub INPUTFORM 835 name$=key$ 850 ' 860 out 2,7:text$="..und Dein Geburtsdatum "+name$ 870 xpos=45 :ypos=120:gosub textausgabe 875 xpos=45:ypos=138:text$="[z.B. 1.Aug.1960 = 01081960]":gosub textausgabe 878 xpos=420:ypos=138:text$=" ":gosub textausgabe 880 xpos=420:ypos=138:laenge=8 :modus=1:groesse=10:gosub INPUTFORM 885 gebdat$=key$ 887 if len(gebdat$)<8 then goto 10000 888 if (val(mid$(gebdat$,3,2))>12) or(val(left$(gebdat$,2))>31) then goto 10000 890 if (val(mid$(gebdat$,3,2))<=0) or (val(left$(gebdat$,2))<=0) then goto 10000 891 ' 892 '---------------------------------> wochentag der geburt 893 ' 900 gebtag=val(left$(gebdat$,2)) 910 gebmon=val(mid$(gebdat$,3,2)) 920 gebjah=val(right$(gebdat$,4)) 930 gebmon=int(gebmon) 940 gebtag=int(gebtag) 950 gebjah=int(gebjah) 960 tageab =int(gebtag+365.25 * gebjah+monattage% (gebmon) +.01 * gebmon - .03) 970 k=int(.6+(1/gebmon)) 980 l=gebjah-k 990 o= gebmon + 12 * k 1000 p= l/100 1010 z1= int(p/4) 1020 z2= int (p) 1030 z3= int((5*l)/4) 1040 z4= int(13*(o+1)/5) 1050 z = z4 + z3 - z2 + z1 + gebtag - 1 1060 z = (z-(7*int(z/7)))+1 1080 out 2,7:text$="Fr welchen Monat soll ich die Kurve berechnen? " 1090 xpos=45:ypos=180:gosub textausgabe 1100 text$="[z.B. MAI 1986 = 051986]" 1110 xpos=45:ypos=200:gosub textausgabe 1115 xpos=420:ypos=200:text$=" ":gosub textausgabe 1120 xpos=420:ypos=200:laenge=6 :modus=1:groesse=10:gosub INPUTFORM 1125 start$ ="01"+ key$ 1126 if len(start$)<8 then goto 11010 1128 if (val(mid$(start$,3,2))>12) then goto 11010 1129 ' 1130 '---------------------------------> gesamttage berechnen 1135 ' 1140 bistag=val(left$(start$,2)) 1150 bismon=val(mid$(start$,3,2)) 1160 bisjah=val(right$(start$,4)) 1170 bismon=int(bismon) 1180 bistag=int(bistag) 1190 bisjah=int(bisjah) 1200 tagebis=int(bistag+365.25 * bisjah+monattage%(bismon) +.01 * bismon - .03) 1210 altertage= tagebis - tageab 1230 xalt=55:yalt=220:breit1=40:hoch1=40 1240 xneu=55 :yneu=250:breit2=300:hoch2=100 1250 color 1,1,0,0,0 1270 xpos1=55 :ypos1=230:xpos2=540:ypos2=340 1280 gosub GROWBOX:gosub RECHTECK 1290 schrifttyp=16:gosub schriftart 1300 groesse=10:gosub schriftgroesse 1310 text$="Das erste Zwischenergebnis: 1320 xpos=53 :ypos=223:gosub textausgabe 1330 schrifttyp=17:gosub schriftart 1340 groesse= 9:gosub schriftgroesse 1350 text$="Du warst am Letzten des Vormonats"+str$(altertage)+" Tage" 1360 xpos=70 :ypos=260:gosub textausgabe 1370 text$="alt und bist an einem "+tagesname$(z)+" geboren !" 1380 xpos=70 :ypos=272:gosub textausgabe 1390 schrifttyp= 1:gosub schriftart 1400 text$="-----------------------------------------------------" 1410 xpos=70:ypos=290:gosub textausgabe 1420 text$="Wenn Du Dich ber dieses Ergebnis genug gefreut hast," 1430 xpos=70 :ypos=310:gosub textausgabe 1440 text$="drcke bitte eine Taste, damit's weitergeht !!" 1450 xpos=70 :ypos=319:gosub textausgabe 1460 out 2,7: warte=inp(2) 1470 gosub SCHRUMPFBOX 1480 gosub normtext 1489 ' 1490 '---------------------------------> berechnen kurvenfaktor 1491 ' 1500 ps=23*(altertage/23-int(altertage/23)):'----> koerper (physisch) 1510 es=28*(altertage/28-int(altertage/28)):'----> gefuehl (emotion) 1520 is=33*(altertage/33-int(altertage/33)):'----> geist (intellekt) 1521 '---------------------------------> bildschirm 1530 clearw 2 1540 xalt=8:yalt=150:breit1=140:hoch1=140 1550 xneu=8 :yneu=150:breit2=590:hoch2=150 1560 xpos1=8:ypos1=1:xpos2=590:ypos2=150 1570 color 1,1,1,1,2 1580 gosub GROWBOX:gosub RECHTECK 1581 xalt=8:yalt=570:breit1=140:hoch1=140 1582 xneu=158:yneu=350:breit2=590:hoch2=150 1590 xpos1=8:ypos1=150:xpos2=590:ypos2=300 1600 gosub GROWBOX:gosub RECHTECK 1610 groesse= 9:gosub schriftgroesse 1620 modus=1:gosub GRAFIKMODUS 1630 text$="1 5 10 15 20 25 30 34" 1640 xpos=12:ypos=295:gosub textausgabe 1645 modus=1:gosub GRAFIKMODUS 1650 ' 1660 schrifttyp=16:gosub schriftart 1670 groesse=10:gosub schriftgroesse 1680 text$="fr "+name$ 1690 xpos=10:ypos=-3 :gosub textausgabe 1700 text$="* "+left$(gebdat$,2)+"."+mid$(gebdat$,3,2)+"."+right$(gebdat$,4) 1710 xpos=470:ypos=-3 :gosub textausgabe 1720 groesse=19:gosub schriftgroesse 1730 text$="+":xpos=600:ypos=90 :gosub textausgabe 1740 text$="-":xpos=600:ypos=210:gosub textausgabe 1750 gosub normtext 1760 schrifttyp=8:gosub schriftart 1770 text$="Es bedeutet:":xpos=10 :ypos=320:gosub textausgabe 1780 gosub normtext 1790 text$=" * = physisch/Krper":xpos=105:ypos=320:gosub textausgabe 1800 text$=" + = Emotion/Gefhl ":xpos=105:ypos=335:gosub textausgabe 1810 text$=" - = Intellekt/Geist":xpos=105:ypos=350:gosub textausgabe 1820 groesse=19:gosub schriftgroesse 1830 schrifttyp=16:gosub schriftart 1840 text$=str$(bismon)+"/"+str$(bisjah) 1850 xpos=330:ypos=320:gosub textausgabe 1860 gosub normtext 1870 groesse=9:gosub schriftgroesse 1880 text$="[RETURN] = neuer Monat " 1890 xpos=330:ypos=335:gosub textausgabe 1900 text$="[SPACE] = neue Daten" 1910 xpos=330:ypos=344:gosub textausgabe 1920 text$=" * = FEIERABEND !!" 1930 xpos=335:ypos=353:gosub textausgabe 1940 gosub normtext 1950 modus=2:gosub GRAFIKMODUS 1960 '---------------------------------> physisch 1970 for kurve = 1 to 34 1980 p=r+r*sin((ps+kurve)*pi/23)+1.5 1990 gotoxy kurve,p:print "*" 2000 next 2020 '---------------------------------> emotion 2030 for kurve1= 1 to 34 2040 e=r+r*sin((es+kurve1)*pi/28)+1.5 2050 gotoxy kurve1,e:print "+" 2060 next 2080 '---------------------------------> intellekt 2090 for kurve2= 1 to 34 2100 i=r+r*sin((is+kurve2)*pi/33)+1.5 2110 gotoxy kurve2,i:print "-" 2120 next 2130 ' 2140 modus=1:gosub GRAFIKMODUS 2150 out 2,7:a$=chr$(inp(2)) 2160 if asc(a$)=13 then goto WEITER 2170 if asc(a$)=32 then goto DIAGRAMM 2180 if asc(a$)=42 then goto ENDE 2181 ' 2182 '---------------------------------> ende 2183 ' 2190 ENDE: 2200 clearw 2 2201 color 1,1,0,0,0 2202 xpos1=110:ypos1=80:xpos2=440:ypos2=220 2203 gosub RECHTECK 2204 xpos1=112:ypos1=82:xpos2=446:ypos2=226:gosub RECHTECK 2205 color 1,1,1,1,1 2208 xpos1=130:ypos1=100:xpos2=420:ypos2=200 2209 gosub RECHTECK 2210 color 1,1,1,9,2 2212 xpos=133:ypos=148:xpos2=423:ypos2=205 2215 gosub RECHTECK 2219 groesse=19:gosub schriftgroesse 2220 schrifttyp=1 :gosub schriftart 2230 text$=" T s c h " 2240 xpos=160:ypos=150:gosub textausgabe 2250 out 2,7: 2260 gosub normtext 2270 warte=inp(2) 2280 end 2281 ' 2282 '---------------------------------> info 2283 ' 2290 INFO: 2300 clearw 2:gotoxy 0,0 2310 schrifttyp=24:gosub schriftart 2320 xpos=150:ypos=20:text$=" Was ist der BIORHYTHMUS ?? " 2330 gosub textausgabe 2340 gosub normtext 2350 schrifttyp=4:gosub schriftart 2360 text$="BIORHYTHMUS hat nichts mit Tanzen zu tun,wie Du vielleicht denkst." 2370 xpos=50 :ypos=40:gosub textausgabe 2380 text$="Schon die alten Griechen glaubten, da das Leben in bestimmten " 2390 xpos=50 :ypos=55 :gosub textausgabe 2400 text$="Zyklen abluft. Die Zyklen beginnen bei der Geburt als Sinuskurve" 2410 xpos=50 :ypos=70 :gosub textausgabe 2420 text$="zu laufen:" 2430 xpos=50 :ypos=85 :gosub textausgabe 2440 text$="1. Der PHYSISCHE Zyklus = 23 Tage ( * )" 2450 xpos=100:ypos=115:gosub textausgabe 2460 text$="2. Der EMOTIONALE Zyklus = 28 Tage ( + )" 2470 xpos=100:ypos=130:gosub textausgabe 2480 text$="3. Der INTELEKTUELLE Zyklus = 33 Tage ( - )" 2490 xpos=100:ypos=145:gosub textausgabe 2500 text$="Kritisch sind immer nur die Tage, an denen sich die Kurve mit der" 2510 xpos=50 :ypos=175:gosub textausgabe 2520 text$="Mittelachse kreuzt. Viele Leute glauben daran, da man an diesen " 2530 xpos=50 :ypos=190:gosub textausgabe 2540 text$="Tagen hufiger Fehler macht, Unflle passieren oder man krperlich" 2550 xpos=50 :ypos=205:gosub textausgabe 2560 text$="anflliger ist. Sollte sich fr Dich ergeben, da heute ein " 2570 xpos=50 :ypos=220:gosub textausgabe 2580 text$="kritischer Tag ist, und Du machst keinen Fehler, Dir fllt kein " 2590 xpos=50 :ypos=235:gosub textausgabe 2600 text$="Ziegelstein auf den Kopf oder Du hast keinen Nervenzusammenbruch," 2610 xpos=50 :ypos=250:gosub textausgabe 2620 text$="mach' mich bitte nicht dafr verantwortlich!" 2630 xpos=50 :ypos=265:gosub textausgabe 2640 text$="Die Kurve zeichne ich brigens fr 34 Tage ab 1. des jew.Monats !" 2650 xpos=50 :ypos=280:gosub textausgabe 2660 groesse=19:gosub schriftgroesse 2670 schrifttyp=16:gosub schriftart 2680 text$="Alles klar ???? " 2690 xpos=150:ypos=330:gosub textausgabe 2700 groesse=9:gosub schriftgroesse 2710 schrifttyp=0:gosub schriftart 2720 text$="Bitte irgendeine Taste drcken !" 2730 xpos=150:ypos=340 2740 gosub textausgabe 2750 a$=chr$(inp(2)) 2760 gosub normtext 2770 goto DIAGRAMM 2780 data 0,31,59,90,120,151,181,212,243,273,304,334,365 2800 data Sonntag,Montag,Dienstag,Mittwoch,Donnerstag,Freitag,Samstag 2801 ' 2802 '---------------------------------> naechster Monat 2803 ' 2900 WEITER: 2910 bismon=bismon+1 2920 if bismon=13 then bismon=1:bisjah=bisjah+1 2930 goto 1170 2997 ' 2998 '---------------------------------> gem-routinen 2999 ' 3100 FULLWIND: 3110 poke gintin,3 3120 poke gintin+2,5 3130 poke gintin+4,0 3140 poke gintin+6,1 3150 poke gintin+8,658 3160 poke gintin+10,417 3170 gemsys 105 3180 return 3190 '---------------------------------------- 3200 CLEARDESK: 3210 color 1,0,1 : 3220 xpos1=-1:xpos2=638:ypos1=-40:ypos2=-20 3230 gosub rechteck:color 1,1,1 3240 return 3250 '------------------------------------- 3260 SCHRUMPFBOX: 3270 schrumpf% = 1 3280 GROWBOX: 3290 poke control+2,8 3300 poke control+4,1 3310 poke gintin, xalt 3320 poke gintin+2, yalt 3330 poke gintin+4, breit1 3340 poke gintin+6, hoch1 3350 poke gintin+8, xneu +1 3360 poke gintin+10,yneu +38 3370 poke gintin+12,breit2 3380 poke gintin+14,hoch2 3390 gemsys 73 + schrumpf% 3400 schrumpf% = 0 3410 return 3420 '--------------------------------- 3440 INIT: 3450 aes#=gb 3460 control=peek(aes#) 3470 global =peek(aes#+4) 3480 gintin =peek(aes#+8) 3490 gintout=peek(aes#+12) 3500 addrin =peek(aes#+16) 3510 addrout=peek(aes#+20) 3520 return 3530 '-------------------- 3540 RECHTECK: 3550 POKE CONTRL ,11 3560 POKE CONTRL+2 ,2 3570 POKE CONTRL+6 ,0 3580 POKE CONTRL+10,1 3590 POKE PTSIN ,XPOS1 +1 3600 POKE PTSIN+2,YPOS1 +38 3610 POKE PTSIN+4,XPOS2 +1 3620 POKE PTSIN+6,YPOS2 +38 3630 VDISYS 3640 RETURN 3650 '----------------------------------- 3660 RECHTECKRUND: 3670 POKE CONTRL ,11 3680 POKE CONTRL+2 ,2 3690 POKE CONTRL+6 ,0 3700 IF FUELL=0 THEN POKE CONTRL+10,8 ELSE POKE CONTRL+10,9 3710 POKE PTSIN ,XPOS1 +1 3720 POKE PTSIN+2,YPOS1 +38 3730 POKE PTSIN+4,XPOS2 +1 3740 POKE PTSIN+6,YPOS2 +38 3750 VDISYS 3760 RETURN 3770 '----------------------------------- 3780 LINIENENDFORM: 3790 POKE CONTRL ,108 3800 POKE CONTRL+2 ,1 3810 POKE CONTRL+6 ,0 3820 POKE INTIN, ANFANGSFORM 3830 POKE INTIN+2, ENDFORM 3840 VDISYS 3850 RETURN 3860 '----------------------------------- 3870 SCHRIFTART: 3880 poke contrl ,106 3890 poke contrl+2,0 3900 poke contrl+6,1 3910 poke intin ,schrifttyp 3920 vdisys 3930 return 3940 '--------------------------------------------- 3950 SCHRIFTGROESSE: 3960 poke contrl ,107 3970 poke contrl+2,0 3980 poke contrl+6,1 3990 poke intin ,groesse 4000 vdisys 4010 return 4020 '--------------------------------------------- 4030 TEXTAUSGABE: 4040 for i=0 to len(text$)-1 4050 poke intin+i*2,asc(mid$(text$,i+1,1)) 4060 next 4070 poke intin+i*2,0 4080 poke contrl,8 4090 poke contrl+2,1 4100 poke contrl+6,len(text$)+1 4110 poke ptsin , xpos+1 4120 poke ptsin+2,ypos+38 4130 vdisys 4140 return 4150 '--------------------------------------------- 4160 GRAFIKMODUS: 4170 poke contrl,32 4180 poke contrl+2,0 4190 poke contrl+6,1 4200 poke intin,modus 4210 vdisys 4220 return 4230 '------------------------------- 4240 POLYLINE: 4250 poke contrl,6 4260 poke contrl+6,0 4270 poke contrl+2,anzahl 4280 for i = 0 to anzahl 4290 poke ptsin + i*4,xkoord(i)+1 4300 poke ptsin + 2+i*4,ykoord(i)+38 4310 next 4320 vdisys 4330 return 4340 '------------------------------- 4350 NORMTEXT: 4360 schrifttyp=0:gosub schriftart 4370 groesse=10 :gosub schriftgroesse 4380 modus=1:gosub grafikmodus 4390 return 4399 ' 4410 '------------------------------> input 4411 ' 4420 INPUTFORM: 4430 if groesse < 9 then space = 6 4440 if groesse = 9 then space = 8 4450 if groesse > 8 and groesse < 16 then space = 8 4460 if groesse > 15 and groesse < 18 then space = 12 4470 if groesse > 17 then space = 16 4480 gosub SCHRIFTGROESSE 4490 key$="" 4500 text$(1)="0123456789" 4510 text$(2)=text$(1)+"." 4520 text$(3)=" abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" 4530 text$(4)=text$(1)+text$(3) 4540 text$(5)=text$(4)+"<>,;.:-_!$%&/()=?`'^#*+@\[]{}~|"+chr$(34) 4550 text$(6)="jJnN" 4560 text$(7)="KANN NOCH FREI BELEGT WERDEN !" 4570 text$(8)="KANN NOCH FREI BELEGT WERDEN !" 4580 if modus <> 0 then text$(0) = text$(modus) 4590 text$=chr$(4):gosub textausgabe 4600 if laenge=0 and len(key$)=1 then gosub normtext:return 4610 key=inp(2) 4620 if key=8or key=127 then 4670 4630 if key = 13 then text$=" ":gosub textausgabe:gosub normtext:return 4640 if len(key$) = laenge and len(key$) >0 then out 2,7 : goto 4600 4650 if modus<9then if instr(0,text$(0),chr$(key))=0then out 2,7:goto 4600 4660 key$=key$+chr$(key):text$=chr$(key)+chr$(4):gosub textausgabe:xpos=xpos+space:goto 4600 4670 '********** Fehlerauswertung ************************** 4680 if len(key$)=0 then out 2,7 : goto 4600 4690 key$=left$(key$,len(key$)-1) 4700 xpos=xpos-space : text$=chr$(4)+" " : gosub textausgabe 4710 goto 4600 4720 '******************************************************** 9998 ' 9999 '---------------------------------> falsches datum 10000 ' 10015 modus=4:gosub grafikmodus 10020 xpos=270:ypos=138:text$="FALSCHES DATUM !!":gosub textausgabe 10025 out 2,7:out 2,7 10030 for w=1 to 2000: next w 10035 gosub normtext 10040 xpos=270:ypos=138:text$=" ":gosub textausgabe 10050 goto 860 11010 modus=4:gosub grafikmodus 11020 xpos=250:ypos=200:text$="FALSCHES DATUM !!":gosub textausgabe 11025 out 2,7:out 2,7 11030 for w=1 to 2000: next w 11035 gosub normtext 11040 xpos=250:ypos=200:text$=" ":gosub textausgabe 11050 goto 1080 10 ' TITELBLATT 20 dim tagzahl(13) 30 tagzahl(1)=31:tagzahl(2)=28:tagzahl(3)=31:tagzahl(4)=30 40 tagzahl(5)=31:tagzahl(6)=30:tagzahl(7)=31:tagzahl(8)=31 50 tagzahl(9)=30:tagzahl(10)=31:tagzahl(11)=30:tagzahl(12)=31 60 dim korx(500),kory(500),seey(500),geiy(500) 70 dim dkorx(500),dkory(500),dseey(500),dgeiy(500) 80 fullw 2:clearw 2 90 gotoxy 0,4 100 ?tab(28);"B I O R H Y T H M U S":?:? 110 linef 203, 59,395, 59 120 linef 203, 59,203, 98 130 linef 395, 59,395, 98 140 linef 203, 98,395, 98 160 dk$="Desk File Run Edit Debug " 165 de$=chr$(189)+" Dietmar Schell" 170 ?tab(30);de$ 175 ?tab(21);"Gabriel-Biel-Str. 5, 7400 Tbingen":? 180 ?tab(15);"Das Programm stellt die drei Biorhythmus-Zyklen":? 190 ?tab(29);"den Krperzyklus," 200 ?tab(29);"den Seelenzyklus und" 210 ?tab(29);"den Geistzyklus":? 220 ?tab(15);"fr einen gewnschten Zeitraum graphisch dar. Die" 230 ?tab(15);"Graphik kann mit einem Nadeldrucker als Hardcopy mit" 240 ?tab(15);"den Befehlstasten ALTERNATE + HELP ausgedruckt werden." 250 w=inp(2) 255 ' --------------------------------------------------------- 260 ' EINGABE DER DATEN 270 desk$=dk$+de$ 272 gosub ZEILE 275 clearw 2 280 gotoxy 0,3 290 ?" Bitte geben Sie Ihren Namen ein:" 300 line input " ",name$ 310 if len(name$)>24 then gosub NAMEKORR 320 ? 330 input" Bitte geben Sie Ihr Geburtsjahr ein (vierstellig) ",jahr 340 if jahr<1850 goto 330 350 input" Bitte geben Sie Ihren Geburtsmonat ein (als Zahl) ",monat 360 if monat>12 goto 350 370 input" Bitte geben Sie Ihren Geburtstag ein ",tag 380 if tag>31 goto 370 390 ?:?:?" Ab wann soll der BIORHYTHMUS dargestellt werden":? 400 input" Bitte das Jahr eingeben (vierstellig) ",biojahr 410 if biojahr12 goto 420 440 if biojahr=jahr and biomonat31 goto 450 470 if biojahr=jahr and biomonat=monat and biotagjahr then gosub GJAHR 590 if biojahr=jahr then gosub NEUGEB 595 ' --------------------------------------------------------- 600 ' AUSDRUCK DES ALTERS VORBEREITEN 610 alter$=right$(" "+str$(alter),6) 615 ' --------------------------------------------------------- 620 ' BERECHNUNG DER ANFANGSPUNKTE DER ZYKLEN 630 korper=(alter)mod(23) 640 seele =(alter)mod(28) 650 geist =(alter)mod(33) 655 ' --------------------------------------------------------- 656 ' MENUE 660 clearw 2 670 gotoxy 0,4 680 ?" Wnschen Sie einen Monats-BIORHYTHMUS 1" 690 ?" oder einen Drei-Monats-BIORHYTHMUS 2":? 700 ?" Neue Daten eingeben 3":? 710 ?" Programm beenden 4":?:? 720 linef 57,59,57,180 730 linef 57,59,435,59 740 linef 57,180,435,180 750 linef 435,59,435,180 760 ?:input" Bitte whlen: ";wahl 770 on wahl gosub MOBIO,DREIBIO,275,790 780 goto 660 790 desk$=dk$+" " 792 gosub ZEILE 793 end 795 ' --------------------------------------------------------- 800 GJAHR: 810 ' ALTER IM GEBURTSMONAT 820 alter=tagzahl(monat)-tag 825 ' --------------------------------------------------------- 830 ' ALTER IM GEBURTSJAHR 840 mhilf=monat+1 850 for x=mhilf to 12 860 alter=alter+tagzahl(x) 870 next x 875 ' --------------------------------------------------------- 880 ' ALTER IM GEBURTSJAHR BEI SCHALTJAHR 890 if (jahr)mod(4)=0 and jahr<>1900 and monat<=2 then alter=alter+1 895 ' --------------------------------------------------------- 900 ' ALTER DER GANZEN JAHRE 910 alter=alter+(biojahr-jahr-1)*365 915 ' --------------------------------------------------------- 920 ' SCHALTJAHRE DER GANZEN JAHRE 930 for y=jahr+1 to biojahr-1 940 if (y)mod(4)=0 then alter=alter+1 950 next x 960 if jahr<1900 then alter=alter-1 965 ' --------------------------------------------------------- 970 ' ALTER IM BIORHYTHMUSJAHR 980 for x=1 to biomonat-1 990 alter=alter+tagzahl(x) 1000 next x 1010 alter=alter+biotag 1015 ' --------------------------------------------------------- 1020 ' ALTER IM BIORHYTHMUSJAHR BEI SCHALTJAHR 1030 if biomonat>2 and (biojahr)mod(4)=0 then alter=alter+1 1040 return 1045 ' --------------------------------------------------------- 1050 NEUGEB: 1060 alter=tagzahl(monat)-tag 1070 mhilf=monat+1 1080 for x=mhilf to biomonat-1 1090 alter=alter+tagzahl(x) 1100 next x 1110 alter=alter+biotag 1115 ' --------------------------------------------------------- 1120 ' KEIN SCHALTJAHR 1900 1130 if jahr=1900 goto 1160 1135 ' --------------------------------------------------------- 1140 ' SCHALTJAHR 1150 if (jahr)mod(4)=0 and monat<=2 and biomonat>2 then alter=alter+1 1160 if monat=biomonat then alter=biotag-tag 1170 return 1175 ' --------------------------------------------------------- 1180 MOBIO: 1190 clearw 2 1200 gotoxy 0,2 1205 gosub WEISS 1210 ?tab(12);"BIORHYTHMUS von ";name$;tab(53);"ab dem ";biorh$ 1220 ?tab(12);"geboren am ";geburt$;" Alter am ";biorh$;" :";alter$;" Tage" 1230 ?tab(12);"K = S = G =" 1240 rem DATUMZEILE BERECHNEN 1250 ?:?:?:?:?:?:?:?:?:?:?:?:?" "; 1260 for y=biotag to tagzahl(biomonat) step 2 1270 print using " ##";y; 1280 next y 1290 yhilf=1 1300 taghilf=tagzahl(biomonat)-biotag 1310 if (taghilf)mod(2)=0 then yhilf=2 1320 for y=yhilf to 31-taghilf step 2 1330 print using " ##";y; 1340 next y 1345 ? 1346 linef 0,0,0,340 1350 linef 72,310,568,310 1360 linef 568,28,568,310 1370 linef 72,310,72,28 1380 linef 568,28,72,28 1390 linef 72,289,568,289 1400 linef 72,190,568,190 1410 linef 72, 91,568, 91 1420 linef 120, 78,168, 78 1430 linef 280, 78,328, 78 1440 linef 440, 78,488, 78 1450 circle 128, 78,1 1460 circle 144, 78,1 1470 circle 160, 78,1 1480 circle 288, 78,2 1490 circle 304, 78,2 1500 circle 320, 78,2 1510 for x=88 to 552 step 16 1520 linef x, 91,x,289 1530 next x 1540 pi=3.14159 1550 for k=0 to 496 step 8 1560 korx(k)=k+72 1570 kory(k)=190-50*sin(pi*2/496*k*31/23-pi/23+pi*2*korper/23) 1580 seey(k)=190-50*sin(pi*2/496*k*31/28-pi/28+pi*2*seele /28) 1590 geiy(k)=190-50*sin(pi*2/496*k*31/33-pi/33+pi*2*geist /33) 1600 next k 1610 for k=8 to 496 step 8 1620 linef korx(k-8),kory(k-8),korx(k),kory(k) 1630 linef korx(k-8),seey(k-8),korx(k),seey(k) 1640 linef korx(k-8),geiy(k-8),korx(k),geiy(k) 1650 next k 1660 for k=8 to 496 step 16 1670 circle korx(k),kory(k),1 1680 circle korx(k),seey(k),2 1690 next k 1700 w=inp(2) 1705 gosub ZEILE 1710 return 1715 ' --------------------------------------------------------- 1720 DREIBIO: 1730 clearw 2 1740 gotoxy 0,2 1745 gosub WEISS 1750 ?tab(12);"BIORHYTHMUS von ";name$;tab(53);"ab dem ";biorh$ 1760 ?tab(12);"geboren am ";geburt$;" Alter am ";biorh$;" :";alter$;" Tage" 1770 ?tab(12);"K = S = G =" 1780 ?:?:?:?:?:?:?:?:?:?:?:? 1790 ?tab(12);"Tages-, Wochen- und Monatslinien ab dem ";biorh$ 1795 linef 0,0,0,340 1800 linef 72,310,562,310 1810 linef 562,28,562,310 1820 linef 72,310,72,28 1830 linef 562,28,72,28 1840 linef 72,289,562,289 1850 linef 72,190,562,190 1860 linef 72, 91,562, 91 1870 linef 120, 78,168, 78 1880 linef 280, 78,328, 78 1890 linef 440, 78,488, 78 1900 circle 128, 78,1 1910 circle 144, 78,1 1920 circle 160, 78,1 1930 circle 288, 78,2 1940 circle 304, 78,2 1950 circle 320, 78,2 1960 ' TAGESLINIEN 1970 for x= 77 to 562 step 5 1980 linef x,188,x,192 1990 next x 2000 ' WOCHENLINIEN 2010 for x=107 to 562 step 35 2020 linef x,185,x,195 2030 next x 2040 ' MONATSLINIEN 2050 zhilf=(tagzahl(biomonat)+1-biotag)*5+72 2060 if biomonat=2 and (biojahr)mod(4)=0 then zhilf=zhilf+5 2070 linef zhilf, 91,zhilf,289 2080 for zz=biomonat+1 to biomonat+3 2090 if zz=2 and (biojahr)mod(4)=0 then zhilf=zhilf+5 2100 if zz=14 and (biojahr+1)mod(4)=0 then zhilf=zhilf+5 2105 ztag=zz 2110 if zz>12 then ztag=zz-12 2120 zhilf=zhilf+tagzahl(ztag)*5 2130 if zhilf<562 then linef zhilf, 91,zhilf,289 2140 next zz 2150 pi=3.14159 2160 for k=0 to 490 step 5 2170 dkorx(k)=k+72 2180 dkory(k)=190-50*sin(pi*2/496*k*99.2/23-pi/23+pi*2*korper/23) 2190 dseey(k)=190-50*sin(pi*2/496*k*99.2/28-pi/28+pi*2*seele /28) 2200 dgeiy(k)=190-50*sin(pi*2/496*k*99.2/33-pi/33+pi*2*geist /33) 2210 next k 2220 for k=5 to 490 step 5 2230 linef dkorx(k-5),dkory(k-5),dkorx(k),dkory(k) 2240 linef dkorx(k-5),dseey(k-5),dkorx(k),dseey(k) 2250 linef dkorx(k-5),dgeiy(k-5),dkorx(k),dgeiy(k) 2260 next k 2270 for k=5 to 485 step 10 2280 circle dkorx(k),dkory(k),1 2290 circle dkorx(k),dseey(k),2 2300 next k 2310 w=inp(2) 2315 gosub ZEILE 2320 return 2325 ' --------------------------------------------------------- 2330 NAMEKORR: 2340 clearw 2 2350 gotoxy 0,4 2360 ?" Der eingegebene Name ist zu lang! Bitte geben" 2370 ?" Sie Ihren Namen neu ein, so da er die Strich- 2380 ?" leiste nicht berschreitet.":? 2385 gotoxy 0,8 2390 ?" ________________________ " 2395 gotoxy 0,8 2400 line input" ",name$ 2410 if len(name$)>24 goto 2385 2420 return 2425 ' --------------------------------------------------------- 64000 WEISS: 64010 color 1,1,1,1,5 64020 poke contrl ,11 64030 poke contrl+2 ,2 64040 poke contrl+6 ,0 64050 poke contrl+10,1 64060 poke ptsin ,1 64070 poke ptsin+2,0 64080 poke ptsin+4,639 64090 poke ptsin+6,399 64100 vdisys 64110 return 64115 ' --------------------------------------------------------- 65200 ZEILE: 65231 for i=0 to 72 65232 poke intin+i*2,asc(mid$(desk$,i+1,1)) 65234 next 65240 poke intin+i*2,0 65250 poke contrl, 8 65260 poke contrl+2,1 65270 poke contrl+6,74 65281 poke ptsin, 24 65286 poke ptsin+2, 14 65290 vdisys 65300 return GfABASICJTTT'@(()))))****2*6*6*6*6HINTENVORNPWRISKXYMODUSLAENGEGEBTAGGEBMONGEBJAHTAGEABLOPZ1Z2Z3Z4ZBISTAGBISMONBISJAHTAGEBIS ALTERTAGEPSESISKEYBIOSAUBERLOGONAMKEYGEBDATSTARTAMODUSDUMMYAIKORXKORYSEEYGEIYMODUS TAGESNAME MONATTAGESCHLUSSTITEL ERKLAERUNGEINGABEEINDAT1FEHLER1EINDAT2FEHLER2FEHLER3NOCHMALWEITER INPUTFORMJ*********************************************************************** J* Biorhythmus ST Version GfA-BASIC * J* 15.02.87 * J* WOLFGANG WENK * J* >>> KOPIEREN ERLAUBT <<< Hauptstr.22, 2167 Himmelpforten * J* Tel.: 04144/8678 * J* INPUTFORM - Routine von MICHAEL VAGTS, Stade * J***********************************************************************   JF*H)!2Der BIORHYTHMUS luft|nur in der|hohen Auflsung!!schade!F*qF! F! !*  F2*zz !zz !zz !zz F `)!CProgramm BIORHYTHMUS| (c) W.Wenk 1987| | >>> PUBLIC DOMAIN <<< !! Auja|Needanke!F Fm(!!!FY.'H!H!Dann geht's jetzt los!!F| {HF F FH-F F {HFH----------------> INIT ,***************** Mouse als Fragezeichen MEb b b F*Eb b FEGF*QFEb F FEGF*QFEb F FV1792,6272,8256,17952,18832,18576,31008,576,3200,2304,2304,2304,3840,2304,2304,3840 dJ0,1792,8064,14784,12384,12384,192,384,768,1536,1536,1536,0,1536,1536,0 4}F9 EBX EF EFEB` Bp  B I O R H Y T H M U S B` Bp F E*PP F*`` FEGPFQ F FGEG`FQ F FG 20,31,59,90,120,151,181,212,243,273,304,334,365 >Sonntag,Montag,Dienstag,Mittwoch,Donnerstag,Freitag,Samstag  o-------------> Titel a|F- |F- (!!!@FTE GFi'! ! W.Wenk 1987F F'! !B= F(!!!F' ! !F%!!F!0! !0FF$  !! !HFD !F$  !!*!\FD$!!!F$\! !\! FD$!!!F$\!4! !4FD $!!!F'4!4!+F'4!9!0F'4!!-F "EpG HFD&E)O    Fe2 ! ! ! Fa F"EpG HF&E)Op p F!!!F F(!!!F$!9!!/F%!!F$!9!!/F '!6! Erklrung F$!!!F$ !9!k!/F $!!!F$\!8!j!0F '"!6! Los geht'sF $!!!FF! 6S RF0 PPQ/Q9F-FP F-FP  |FP |FP(!!!F' ! !F$ !>!H!HF(!!!F0'!p!Was ist der BIORYTHMUS ??F0'!!-------------------------F(!!!@FX' !H!BBIORHYTHMUS hat nichts mit Tanzen zu tun,wie Du vielleicht denkst.FV' !\!?Schon die alten Griechen glaubten, da das Leben in bestimmten FtX' !p!AZyklen abluft. Die Zyklen beginnen bei der Geburt als SinuskurveFF ' !! zu laufen.F(!!!F<' ! !&1. Der PHYSISCHE Zyklus = 23 Tage F<' !/!&2. Der EMOTIONALE Zyklus = 28 Tage F<' !>!&3. Der INTELEKTUELLE Zyklus = 33 Tage F(!!!@FX' !R!BKritisch sind immer nur die Tage, an denen sich die Kurve mit der FX' !\!AMittelachse kreuzt. Vielen Leute glauben, da man an diesen TagenFFR' !f!!M!/Fp(!!!F$'z!9! Alles klar ??Fp(!!! FF*'z!>!--> T A S T E <--F { F*'z!>! F 6S RF-F6  |F6F6!F(!!!F' ! !F%!!F!0! !0F $ !4!  ! F %!!F$ !"!  !/F (!!!PF"'H!! Meine FragenF&'C!!Deine AntwortenF (!!!PF"'4!H! Dein Name: FtERRFEHHF EF E F,F EF E E4'4!p!..und Dein Geburtsdatum  Fn2'4! ![z.B. 1.Aug.1960 = 01081960]F|FE F EF EF,FEF E0 #5?@@ @@ #5;@ xx F-F#" #5?@@ #5;@ F-F# F F*-----------------> wochentag der geburt  - E5;@ F- E5?@@ F- E5=@ Fw E% F E% F E% F0E% 6  ## =q uu\) FE%# F E FE @FEHFFE% F E% FE%#   FE%P#   FE F"E##`%` F EH'4!4!1Fr welchen Monat soll ich die Kurven berechnen ?Fn.'4!H![z.B. MAI 1986 = 051986]F|FEHHF E@@F,F@ E01F 5?@@ @FM-F5 F 5=@ F-F5 F 2-------------------------> gesamttage berechnen  -E5;@ F-E5?@@ F-E5=@ F- |F E% F E% F E% F0E%6 ## =quu\) F EF%!!F $!!!F$\!f! !*F"E GpH F2p!kk! !**F F!F(!!F2'!k!Das erste Zwischenergebnis !F(!! FJ/\!!H!Du bist in diesem Monat A  Tage alt FsD/p!! ! und an einem   geboren !FlE0GxHF 2p!kk! !**F F(!!!@FF$'f!!! --> Taste <--F { F$'f!!! F 6S RF 0--------------------> Berechnen Kurvenfaktor  -E# #8 F Koerper E# #` F Emotion E# # F Intellekt  E.-------------------> Bildschirm fr Kurven rF-(!!!F-' ! !F $!!!F!0! !0Fh$ !@! !Fz$!!!@Fz$!>! !>Fz%!!F$!@! !6F%!!F$!\!  !$F$!\!  !$F$!! !F(!!!PFR'!!<1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31F ' !!Fr  F7>'W!!* ;@ .?@@ .=@ F(!!!F"' !!A /A F?(!!!PF' !*!+F' !!-F $!!!F$!+!\!+F? $!!!F$!2!\!2F?$@!!!F$!:!\!:F?(!!!@F"'!%! Es bedeutet:F('f!,!= physisch/KrperF&'f!4!= Emotion/GefhlF('f!;!= Intellekt/GeistF,'1!%![RETURN] = neuer MonatF,'1!,![SPACE] = neue DatenF.'1!4! * = FEIERABEND !!F.'1!;![ALTERN+HELP]= AusdruckFF0----------------------------> Kurven zeichnen  -(!!!PF- $!!!F"E0G  HFv!6!!F F EGxHF EFT E>H)Oxxx8O8O88 FT E>H)Oxxx`O`O`` FT E>H)OxxxOO F F "EGxHF $!!!F* ! ! ! F $!!!F* ! ! ! F$@!!!F* ! ! ! F F $!!!F EBa F 7 PJF- F7 F  7 JF-F7 F 7 (JF-F7 F +F7hF7hF7(!!!PFEFP E 1234567890F E .F0D E;abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYF E  FD  E !$%&/()=?`'^#*+@\]}[{,.-;:_~|B F@ EjJyYnNF F E F FEFE'!! B  FFE7S F F0 ~~# ( F 6 FE!`F FE;@6  F FE F@ D@@B 6  FE!`F F EB F FE FEPF'!!  F6(!!!PF6.F! ! |F EF PJFEF EF FE- F |F(!!!F$'H!>!Falsches DatumFE!`F { FE!`F {HF$'H!>! F(!!!PF'R! ! F-F |F(!!!F $'H!>!Falsches DatumFE!`F { FE!`F {HF$'H!>! F(!!!PF'R!H! F-F |F(!!!F 6'!>!Das geht nicht (Jahr=Geb.-Jahr)F_E!`F { FE!`F {HF6'!>! F_(!!!PF'R!H! F-F |FF!F(!!!F "'z!H! Tschuess !!F %!!F$4!H!z!F $5!J!y!F {HF_FqF' *********************************************************************** ' * Biorhythmus ST Version GfA-BASIC * ' * 15.02.87 * ' * WOLFGANG WENK * ' * >>> KOPIEREN ERLAUBT <<< Hauptstr.22, 2167 Himmelpforten * ' * Tel.: 04144/8678 * ' * INPUTFORM - Routine von MICHAEL VAGTS, Stade * ' *********************************************************************** If Xbios(4)<>2 Then Alert 3,"Der BIORHYTHMUS luft|nur in der|hohen Auflsung",1,"schade",Dummy% End Endif ' Dim Modus$(10) Dim Korx(500),Kory(500),Seey(500),Geiy(500) ' Alert 1,"Programm BIORHYTHMUS| (c) W.Wenk 1987| | >>> PUBLIC DOMAIN <<< ",1,"Auja|Needanke",A% If A%=1 Deftext ,16,,32 Text 100,100,"Dann geht's jetzt los!!" Pause 50 Endif If A%=2 Goto Schluss Endif Pause 50 ' ----------------> INIT ' ***************** Mouse als Fragezeichen Let Bio$=Mki$(2)+Mki$(1)+Mki$(1) Let Bio$=Bio$+Mki$(0)+Mki$(1) For I%=1 To 16 Read Hinten Let Bio$=Bio$+Mki$(Hinten) Next I% For I%=1 To 16 Read Vorn Let Bio$=Bio$+Mki$(Vorn) Next I% Data 1792,6272,8256,17952,18832,18576,31008,576,3200,2304,2304,2304,3840,2304,2304,3840 Data 0,1792,8064,14784,12384,12384,192,384,768,1536,1536,1536,0,1536,1536,0 Defmouse Bio$ ' Sauber$=Chr$(27)+"E" ' Logo$=Chr$(14)+Chr$(15)+" B I O R H Y T H M U S "+Chr$(14)+Chr$(15) ' Dim Monattage%(13) Dim Tagesname$(7) For I%=1 To 13 Read Monattage%(I%) Next I% For I%=1 To 7 Read Tagesname$(I%) Next I% ' Data 0,31,59,90,120,151,181,212,243,273,304,334,365 Data Sonntag,Montag,Dienstag,Mittwoch,Donnerstag,Freitag,Samstag ' ' -------------> Titel Titel: ' Print Sauber$ ' Deftext 1,0,0,6 For I%=10 To 270 Text I%,320," W.Wenk 1987" Next I% Text 260,320,Chr$(189) Deftext ,0,0,9 Text 160,20,Logo$ Deffill 1,2,1 Line 0,22,639,22 Prbox 550,300,80,50 ' Graphmode 1 Rbox 555,305,85,55 Defline 1,4,0,0 Line 110,70,110,280 Defline 1,4,0,1 Line 110,180,540,180 Defline 1,1,0,0 Text 90,90,"+" Text 90,185,"0" Text 90,270,"-" ' For I=120 To 540 Step 0.5 S=Sin(I*Pi/80)*80+160 Line I-5,S-5,I+5,S+5 Next I For K=120 To 540 Step 0.5 S=Sin(K*Pi/60)*60+160 Line K-1,S-1,K+1,S+1 Next K Deftext ,1,0,8 Box 150,370,300,350 Deffill ,2,3 Pbox 269,370,301,350 Text 155,365,"Erklrung " Defline 1,4,0,0 Box 320,370,470,350 Defline 1,1,0,0 Pbox 440,368,468,352 Text 325,365,"Los geht's" ' Defline 1,2,0,0 Repeat Until Len(Inkey$) Or Mousek If Mousex>269 And Mousex<300 And Mousey>350 And Mousey<370 Goto Erklaerung Endif Goto Eingabe ' ' Erklaerung: ' Print Sauber$ Deftext ,0,0,9 Text 160,20,Logo$ Rbox 620,380,25,25 Deftext ,16,0,9 Text 150,60,"Was ist der BIORYTHMUS ??" Text 150,75,"-------------------------" Deftext ,1,0,6 Text 40,100,"BIORHYTHMUS hat nichts mit Tanzen zu tun,wie Du vielleicht denkst." Text 40,110,"Schon die alten Griechen glaubten, da das Leben in bestimmten " Text 40,120,"Zyklen abluft. Die Zyklen beginnen bei der Geburt als Sinuskurve" Text 40,130,"zu laufen." Deftext ,1,0,8 Text 70,160,"1. Der PHYSISCHE Zyklus = 23 Tage " Text 70,175,"2. Der EMOTIONALE Zyklus = 28 Tage " Text 70,190,"3. Der INTELEKTUELLE Zyklus = 33 Tage " Deftext ,1,0,6 Text 40,210,"Kritisch sind immer nur die Tage, an denen sich die Kurve mit der " Text 40,220,"Mittelachse kreuzt. Vielen Leute glauben, da man an diesen Tagen" Text 40,230,"hufiger Fehler macht, Unflle passieren oder man krperlich" Text 40,240,"anflliger ist. Sollte sich fr Dich ergeben, da heute ein" Text 40,250,"kritischer Tag ist, und Du machst keinen Fehler, Dir fllt kein" Text 40,260,"Ziegelstein auf den Kopf oder Du hast keinen Nervenzusammenbruch," Text 40,270,"mach' mich bitte nicht dafr verantwortlich!!" Deftext ,5,0,13 Text 160,300,"Und nun viel Spa mit den Kurven !! " Box 240,380,410,350 Deftext ,16,0,16 Text 250,370,"Alles klar ??" Deftext ,1,0,5 Repeat Text 250,381,"--> T A S T E <--" Pause 10 Text 250,381," " Until Len(Inkey$) Or Mousek Goto Eingabe ' ' Eingabe: Print Sauber$ Graphmode 1 Deftext ,0,0,9 Text 160,20,Logo$ Deffill 1,2,2 Line 0,22,639,22 Prbox 40,45,560,80 Deffill ,,1 Prbox 40,81,560,350 Deftext ,16,0,13 Text 50,68,"Meine Fragen" Text 390,68,"Deine Antworten" Deftext ,0,0,13 Text 45,100,"Dein Name: " X=420 Y=100 Modus=3 Laenge=10 Gosub Inputform Nam$=Key$ ' ' Text 45,120,"..und Dein Geburtsdatum "+Upper$(Nam$) Text 45,138,"[z.B. 1.Aug.1960 = 01081960]" Eindat1: Y=138 Modus=1 Laenge=8 Gosub Inputform Gebdat$=Key$ ' If (Val(Mid$(Gebdat$,3,2))>12) Or (Val(Left$(Gebdat$,2))>31) Goto Fehler1 If (Val(Mid$(Gebdat$,3,2))<=0) Or (Val(Left$(Gebdat$,2))<=0) Goto Fehler1 Endif Endif ' -----------------> wochentag der geburt ' Gebtag=Val(Left$(Gebdat$,2)) Gebmon=Val(Mid$(Gebdat$,3,2)) Gebjah=Val(Right$(Gebdat$,4)) Gebmon=Int(Gebmon) Gebtag=Int(Gebtag) Gebjah=Int(Gebjah) Tageab=Int(Gebtag+365.25*Gebjah+Monattage%(Gebmon)+0.01*Gebmon-0.03) K=Int(0.6+(1/Gebmon)) L=Gebjah-K O=Gebmon+12*K P=L/100 Z1=Int(P/4) Z2=Int(P) Z3=Int((5*L)/4) Z4=Int(13*(O+1)/5) Z=Z4+Z3-Z2+Z1+Gebtag-1 Z=(Z-(7*Int(Z/7)))+1 ' Text 45,180,"Fr welchen Monat soll ich die Kurven berechnen ?" Text 45,200,"[z.B. MAI 1986 = 051986]" Eindat2: Y=200 Laenge=6 Gosub Inputform Start$="01"+Key$ If Val(Mid$(Start$,3,2))>12 Goto Fehler2 Endif If Val(Right$(Start$,4))<=Gebjah Goto Fehler3 Endif ' ' -------------------------> gesamttage berechnen ' Bistag=Val(Left$(Start$,2)) Bismon=Val(Mid$(Start$,3,2)) Bisjah=Val(Right$(Start$,4)) Nochmal: Bismon=Int(Bismon) Bistag=Int(Bistag) Bisjah=Int(Bisjah) Tagebis=Int(Bistag+365.25*Bisjah+Monattage%(Bismon)+0.01*Bismon-0.03) Altertage=Tagebis-Tageab+1 Deffill 0,2,1 Defline 1,1,0,0 Prbox 55,230,540,340 For I=10 To 30 Step 5 Rbox 60+I,235+I,540-I,340-I Next I Graphmode 1 Deftext ,17,8 Text 150,235,"Das erste Zwischenergebnis !" Deftext ,1,5 Text 110,285,400,"Du bist in diesem Monat "+Str$(Altertage)+" Tage alt " Text 120,301,320," und an einem "+Tagesname$(Z)+" geboren !" For I%=11 To 31 Step 1 Rbox 60+I%,235+I%,540-I%,340-I% Next I% Deftext ,16,,6 Repeat Text 230,322,"--> Taste <--" Pause 10 Text 230,322," " Until Len(Inkey$) Or Mousek ' ' --------------------> Berechnen Kurvenfaktor ' Ps=(Altertage) Mod (23) ! Koerper Es=(Altertage) Mod (28) ! Emotion Is=(Altertage) Mod (33) ! Intellekt ' ' -------------------> Bildschirm fr Kurven Print Sauber$ Deftext ,0,0,9 Text 160,20,Logo$ Defline 1,1,0,0 Line 0,22,639,22 Line 568,48,568,310 Line 72,310,72,48 Line 72,190,568,190 Deffill 1,2,2 Pbox 72,48,568,91 Deffill 0,2,8 Pbox 78,55,560,82 Box 78,55,560,82 Box 72,289,568,310 Deftext 1,1,0,13 Text 75,305,"1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31" Text 80,75,"Fr "+Upper$(Nam$) Text 430,75,"* "+Left$(Gebdat$,2)+"."+Mid$(Gebdat$,3,2)+"."+Right$(Gebdat$,4) Deftext 1,17,0,16 Text 280,75,Str$(Bismon)+"/"+Str$(Bisjah) Deftext ,,,26 Text 600,170,"+" Text 600,270,"-" Defline 1,2,3,3 Line 73,343,110,343 Defline 3,2,3,3 Line 73,357,110,357 Defline 6,2,3,3 Line 73,372,110,372 Deftext 1,1,0,6 Text 72,330,"Es bedeutet:" Text 115,345,"= physisch/Krper" Text 115,360,"= Emotion/Gefhl" Text 115,375,"= Intellekt/Geist" Text 355,330,"[RETURN] = neuer Monat" Text 355,345,"[SPACE] = neue Daten" Text 355,360," * = FEIERABEND !!" Text 355,375,"[ALTERN+HELP]= Ausdruck" ' ----------------------------> Kurven zeichnen ' Deftext 1,1,0,13 Defline 1,2,0,0 For X=88 To 552 Step 16 Line X,91,X,289 Next X ' For K=0 To 496 Step 8 Korx(K)=K+72 Kory(K)=190-50*Sin(Pi*2/496*K*31/23-Pi/23+Pi*2*Ps/23) Seey(K)=190-50*Sin(Pi*2/496*K*31/28-Pi/28+Pi*2*Es/28) Geiy(K)=190-50*Sin(Pi*2/496*K*31/33-Pi/33+Pi*2*Is/33) Next K ' For K=8 To 496 Step 8 Defline 1,2,3,3 Line Korx(K-8),Kory(K-8),Korx(K),Kory(K) Defline 3,2,3,3 Line Korx(K-8),Seey(K-8),Korx(K),Seey(K) Defline 6,2,3,3 Line Korx(K-8),Geiy(K-8),Korx(K),Geiy(K) Next K Defline 1,2,0,0 ' A$=Chr$(Inp(2)) If Asc(A$)=13 Then Goto Weiter Endif If Asc(A$)=32 Then Goto Eingabe Endif If Asc(A$)=42 Then Goto Schluss Endif ' Procedure Inputform Local Key Local I Deftext ,1,0,13 Key$="" Modus$(1)="1234567890" Modus$(2)=Modus$(1)+"." Modus$(3)="abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXY" Modus$(4)=Modus$(2)+Modus$(3) Modus$(5)=Modus$(4)+"!$%&/()=?`'^#*+@\]}[{,.-;:_~|"+Chr$(34) Modus$(6)="jJyYnN" If Modus<>0 Modus$=Modus$(Modus) Endif Repeat Text X,Y,Upper$(Key$)+Chr$(4)+" " Repeat Key=Asc(Inkey$) Until Key If Key=8 Or Key=127 Or (Modus=2 And Key=42) If Len(Key$)=0 Out 2,7 Else Key$=Left$(Key$,Len(Key$)-1) Endif Else If Instr(0,Modus$,Chr$(Key))=0 Or Len(Key$)>=Laenge Out 2,7 Else Key$=Key$+Chr$(Key) Endif Endif Until Key=13 Text X,Y,Upper$(Key$)+" " Deftext 1,0,0,13 Return ' Weiter: Bismon=Bismon+1 If Bismon=13 Then Bismon=1 Bisjah=Bisjah+1 Endif Goto Nochmal ' Fehler1: Deftext ,16,0,16 Text 200,380,"Falsches Datum" Out 2,7 Pause 10 Out 2,7 Pause 100 Text 200,380," " Deftext ,0,0,13 Text 420,138," " Goto Eindat1 ' Fehler2: Deftext ,16,0,16 Text 200,380,"Falsches Datum" Out 2,7 Pause 10 Out 2,7 Pause 100 Text 200,380," " Deftext ,0,0,13 Text 420,200," " Goto Eindat2 ' Fehler3: Deftext ,16,0,16 Text 150,380,"Das geht nicht (Jahr=Geb.-Jahr)" Out 2,7 Pause 10 Out 2,7 Pause 100 Text 150,380," " Deftext ,0,0,13 Text 420,200," " Goto Eindat2 ' Schluss: Print Sauber$ Graphmode 2 Deftext ,4,,32 Text 250,200,"Tschuess !!" Deffill 1,2,2 Box 180,100,500,300 Pbox 181,101,499,299 Pause 200 New End . 7H~.. DRUCKER DATVHINSTAL aH. VH.. 6H~EPSONFX DAT F GEMINI DAT F NECP6 DAT F SG10 DAT F STARNL10DAT F DummRRRRRRRRRR R A@UUGH4545EFppSST89WWlQCNO******3@R@[R[\R\]R]{R{|R|}R}~R~R}R{R[R|R\R]R~Star gemini 10X77777777777A@UUGH4545EFSST89WWMQCNOyLzzLz3@7@[7[\7\]7]{7{|7|}7}~7~7}7{7[7|7\7]7~Nec P6RRRRRRRRRR R A@UUGHxx45EFppSST89WWlQCNO *&*!*'**&*'*(*(A$R$@R@[R[\R\]R]{R{|R|}R}~R~R}R{R[R|R\R]R~Star SG 10RRRRRRRRA2@UUGH45IIEFSST89WWlQCNO******3@R@[R[\R\]R]{R{|R|}R}~R~R}R{R[R|R\R]R~Star NL 10RRRRRRRRRR R A2@UUGHxxEFppSST89WWlQCNO******3@R@[R[\R\]R]{R{|R|}R}~R~R}R{R[R|R\R]R~. bH.. 6H~EPSONFX TXT F ZGEMINI TXT F rNECP6 TXT F SG10 TXT F STARNL10TXT F ^INSTALL PRG F # * Druckeranpassung fr Epson FX-80+ * Allgemeines: * Kommentare werden mit '*' eingeleitet. Smtliche Zeichen * hinter dem '*' werden von 'INSTALL.PRG' ignoriert. * In der ersten Spalte steht ein Index, der vom Programm * verwendet wird, um die nachfolgenden Steuercodes den * entsprechenden Knpfen im Accessory zuzuordnen. * Der Index mu durch Leerzeichen von den Codes getrennt werden. * Will man einen Steuercode nicht verwenden, kann man ihn * durch Voranstellen eines * auskommentieren. * Die Steuercodes und die Indices mssen als Hexadezimalzahlen * eingegeben werden. * Druckername, maximal 18 Zeichen Epson FX-80+ ******* Steuercodes *********** * Jeder Code besteht aus maximal 16, durch Kommata getrennte * Hexadezimalzahlen * Die folgenden Codes werden nur an den Drucker gesendet, * wenn 'Set Printer' angeklickt wurde ********* Zeichenstze ********** 0 1B,52,00 * U.S.A. 1 1B,52,01 * France 2 1B,52,02 * Germany 3 1B,52,03 * England 4 1B,52,04 * Denmark 1 5 1B,52,05 * Sweden 6 1B,52,06 * Italy 7 1B,52,07 * Spain 8 1B,52,08 * Japan 9 1B,52,09 * Norway A 1B,52,0A * Denmark 2 B 1B,41,0 * Zeilenvorschub auf n/72 schalten * Der vernderliche Wert mu als 0 eingegeben werden * Danach knnen noch andere Codes folgen C 1B,40 * Reset , wird mit 'Reset Printer' ausgelst D 1B,55,00 * Bidirektional E 1B,55,01 * Unidirektional F 1B,47 * Double ein 10 1B,48 * Double aus 11 1B,34 * NLQ ein 12 1B,35 * NLQ aus 13 1B,34 * Italic ein 14 1B,35 * Italic aus 15 1B,45 * Emphasized ein 16 1B,46 * Emphasized aus 17 1B,70,01 * Proportional ein 18 1B,70,00 * Proportional aus 19 0F * Condensed ein 1A 12 * Condensed aus 1B 1B,53,00 * Superscript ein 1C 1B,53,01 * Subscript ein 1D 1B,54 * Sup/Sub aus 1E 1B,38 * Einzelblatt ein 1F 1B,39 * Einzelblatt aus 20 1B,57,01 * Enlarged ein 21 1B,57,00 * Enlarged aus * Die Codes fr Rand und Papierlnge werden nur gesendet, wenn * 'Set Margins' angeklickt wurde * Der vernderliche Wert mu als 0 eingegeben werden 22 1B,6C,00 * Set left margin 23 1B,51,00 * Set right margin 24 1B,43,00 * Set paper length 25 1B,4E,00 * Skip over ein 26 1B,4F * Skip over aus * Belegung der Tasten F1 und F2 in der Dialogbox des Accessories. * Diese Codes werden beim Anklicken sofort an den Drucker gesendet. 27 13 * F1 (13h bewirkt, da der Drucker alle nachfolgenden * Codes ignoriert, bis er 11h empfngt) 28 11 * F2 ************* HARDCOPY-Parameter **************** ************* Initialisierungscodes ************* 29 1B,2A,04 * Graph 640 P/Z 2A 1B,2A,01 * Graph 960 P/Z 2B 1B,2A,03 * Graph 1280 P/Z 2C 1B,2A,03 * Graph 1920 P/Z 2D 1B,2A,06 * Graph 720 P/Z 2E 1B,2A,03 * Graph 1440 P/Z *2F * Graph 2400 P/Z (bei diesem Drucker nicht nutzbar) *30 * Graph 2880 P/Z (bei diesem Drucker nicht nutzbar) 31 1B,33,17 * Graph line feed # * Zeichen fr Beginn bersetzungstabelle * Fr jedes Zeichen knnen max. 16, durch Kommata getrennte * Codes (Hexzahlen) eingegeben werden. Sollen bestimmte Zeichen * nicht umgewandelt werden, mu man sie in der Anpassung durch * Voranstellen eines * auskommentieren. * Diese Beispielanpassung wandelt nur die Zeichen {\}[@]~| * vom Atari-Zeichensatz *0 * *1 * *2 * *3 * *4 * *5 * *6 * *7 * *8 * *9 * *A * *B * *C * *D * *E * *F * *10 * *11 * *12 * *13 * *14 * *15 * *16 * *17 * *18 * *19 * *1A * *1B * *1C * *1D * *1E * *1F * *20 * *21 * ! *22 * " *23 * # *24 * $ *25 * % *26 * & *27 * ' *28 * ( *29 * ) *2A * * *2B * + *2C * , *2D * - *2E * . *2F * / *30 * 0 *31 * 1 *32 * 2 *33 * 3 *34 * 4 *35 * 5 *36 * 6 *37 * 7 *38 * 8 *39 * 9 *3A * : *3B * ; *3C * < *3D * = *3E * > *3F * ? 40 1b,52,0,40 * @ amerikanischer Zeichensatz ein, @ senden *41 * A *42 * B *43 * C *44 * D *45 * E *46 * F *47 * G *48 * H *49 * I *4A * J *4B * K *4C * L *4D * M *4E * N *4F * O *50 * P *51 * Q *52 * R *53 * S *54 * T *55 * U *56 * V *57 * W *58 * X *59 * Y *5A * Z 5B 1b,52,0,5b * [ amerikanischer Zeichensatz ein, [ senden 5C 1b,52,0,5c * \ " \ " 5D 1b,52,0,5d * ] amerikanischer Zeichensatz ein, ] senden *5E * ^ *5F * _ *60 * ` *61 * a *62 * b *63 * c *64 * d *65 * e *66 * f *67 * g *68 * h *69 * i *6A * j *6B * k *6C * l *6D * m *6E * n *6F * o *70 * p *71 * q *72 * r *73 * s *74 * t *75 * u *76 * v *77 * w *78 * x *79 * y *7A * z 7B 1b,52,0,7b * { amerikanischer Zeichensatz ein, { senden 7C 1b,52,0,7c * | " | 7D 1b,52,0,7d * } " } 7E 1b,52,0,7e * ~ " ~ *7F *  *80 * 81 1b,52,2,7d * deutscher Zeichensatz ein, (7d) senden *82 * *83 * 84 1b,52,2,7b * deutscher Zeichensatz ein, (7b) senden *85 * *86 * *87 * *88 * *89 * *8A * *8B * *8C * *8D * 8E 1b,52,2,5b * deutscher Zeichensatz ein, (5b) senden *8F * *90 * *91 * *92 * *93 * 94 1b,52,2,7c * deutscher Zeichensatz ein, (7c) senden *95 * *96 * *97 * *98 * 99 1b,52,2,5c * deutscher Zeichensatz ein, (5c) senden 9A 1b,52,2,5d * deutscher Zeichensatz ein, (5d) senden *9B * *9C * *9D * 9E 1b,52,2,7e * deutscher Zeichensatz ein, (7e) senden *9F * *A0 * *A1 * *A2 * *A3 * *A4 * *A5 * *A6 * *A7 * *A8 * *A9 * *AA * *AB * *AC * *AD * *AE * *AF * *B0 * *B1 * *B2 * *B3 * *B4 * *B5 * *B6 * *B7 * *B8 * *B9 * *BA * *BB * *BC * *BD * *BE * *BF * *C0 * *C1 * *C2 * *C3 * *C4 * *C5 * *C6 * *C7 * *C8 * *C9 * *CA * *CB * *CC * *CD * *CE * *CF * *D0 * *D1 * *D2 * *D3 * *D4 * *D5 * *D6 * *D7 * *D8 * *D9 * *DA * *DB * *DC * *DD * *DE * *DF * *E0 * *E1 * *E2 * *E3 * *E4 * *E5 * *E6 * *E7 * *E8 * *E9 * *EA * *EB * *EC * *ED * *EE * *EF * *F0 * *F1 * *F2 * *F3 * *F4 * *F5 * *F6 * *F7 * *F8 * *F9 * *FA * *FB * *FC * *FD * *FE * *FF * * Druckeranpassung fr Star gemini 10X * Allgemeines: * Kommentare werden mit '*' eingeleitet. Smtliche Zeichen * hinter dem '*' werden von 'INSTALL.PRG' ignoriert. * In der ersten Spalte steht ein Index, der vom Programm * verwendet wird, um die nachfolgenden Steuercodes den * entsprechenden Knpfen im Accessory zuzuordnen. * Der Index mu durch Leerzeichen von den Codes getrennt werden. * Will man einen Steuercode nicht verwenden, kann man ihn * durch Voranstellen eines * auskommentieren. * Die Steuercodes und die Indices mssen als Hexadezimalzahlen * eingegeben werden. * Druckername, maximal 18 Zeichen Star gemini 10X ******* Steuercodes *********** * Jeder Code besteht aus maximal 16, durch Kommata getrennte * Hexadezimalzahlen * Die folgenden Codes werden nur an den Drucker gesendet, * wenn 'Set Printer' angeklickt wurde ********* Zeichenstze ********** 0 1B,37,00 * U.S.A. 1 1B,37,04 * France 2 1B,37,02 * Germany 3 1B,37,01 * England 4 1B,37,03 * Denmark 1 5 1B,37,05 * Sweden 6 1B,37,06 * Italy 7 1B,37,07 * Spain 8 1B,37,00 * Japan 9 1B,37,00 * Norway A 1B,37,03 * Denmark 2 B 1B,41,00 * Zeilenvorschub auf n/72 schalten * Der vernderliche Wert mu als 0 eingegeben werden * Danach knnen noch andere Codes folgen C 1B,40 * Reset , wird mit 'Reset Printer' ausgelst D 1B,55,00 * Bidirektional E 1B,55,01 * Unidirektional F 1B,47 * Double ein 10 1B,48 * Double aus 11 1B,34 * NLQ ein 12 1B,35 * NLQ aus 13 1B,34 * Italic ein 14 1B,35 * Italic aus 15 1B,45 * Emphasized ein 16 1B,46 * Emphasized aus *17 07 * Proportional ein (Dieser Drucker hat keine P.-Schrift) *18 07 * Proportional aus 19 0F * Condensed ein 1A 12 * Condensed aus 1B 1B,53,00 * Superscript ein 1C 1B,53,01 * Subscript ein 1D 1B,54 * Sup/Sub aus 1E 1B,38 * Einzelblatt ein 1F 1B,39 * Einzelblatt aus 20 1B,57,01 * Enlarged ein 21 1B,57,00 * Enlarged aus * Die Codes fr Rand und Papierlnge werden nur gesendet, wenn * 'Set Margins' angeklickt wurde * Der vernderliche Wert mu als 0 eingegeben werden 22 1B,4D,00 * Set left margin 23 1B,51,00 * Set right margin 24 1B,43,00 * Set paper length 25 1B,4E,00 * Skip over ein 26 1B,4F * Skip over aus * Belegung der Tasten F1 und F2 in der Dialogbox des Accessories. * Diese Codes werden beim Anklicken sofort an den Drucker gesendet. 27 13 * F1 (13h bewirkt, da der Drucker alle nachfolgenden * Codes ignoriert, bis er 11h empfngt) 28 11 * F2 ************* HARDCOPY-Parameter **************** ************* Initialisierungscodes ************* 29 1B,79 * Graph 640 P/Z 2A 1B,4C * Graph 960 P/Z 2B 1B,7A * Graph 1280 P/Z 2C 1B,7A * Graph 1920 P/Z 2D 1B,4C * Graph 720 P/Z 2E 1B,7A * Graph 1440 P/Z 2F * Graph 2400 P/Z (bei diesem Drucker nicht nutzbar) 30 * Graph 2880 P/Z (bei diesem Drucker nicht nutzbar) 31 1B,33,10 * Graph line feed # * Zeichen fr Beginn bersetzungstabelle * Fr jedes Zeichen knnen max. 16, durch Kommata getrennte * Codes (Hexzahlen) eingegeben werden. Sollen bestimmte Zeichen * nicht umgewandelt werden, mu man sie in der Anpassung durch * Voranstellen eines * auskommentieren. * Diese Beispielanpassung wandelt nur die Zeichen {\}[@]~ * vom Atari-Zeichensatz *0 * *1 * *2 * *3 * *4 * *5 * *6 * *7 * *8 * *9 * *A * *B * *C * *D * *E * *F * *10 * *11 * *12 * *13 * *14 * *15 * *16 * *17 * *18 * *19 * *1A * *1B * *1C * *1D * *1E * *1F * *20 * *21 * ! *22 * " *23 * # *24 * $ *25 * % *26 * & *27 * ' *28 * ( *29 * ) *2A * * *2B * + *2C * , *2D * - *2E * . *2F * / *30 * 0 *31 * 1 *32 * 2 *33 * 3 *34 * 4 *35 * 5 *36 * 6 *37 * 7 *38 * 8 *39 * 9 *3A * : *3B * ; *3C * < *3D * = *3E * > *3F * ? 40 1b,37,0,40 * @ amerikanischer Zeichensatz ein, @ senden *41 * A *42 * B *43 * C *44 * D *45 * E *46 * F *47 * G *48 * H *49 * I *4A * J *4B * K *4C * L *4D * M *4E * N *4F * O *50 * P *51 * Q *52 * R *53 * S *54 * T *55 * U *56 * V *57 * W *58 * X *59 * Y *5A * Z 5B 1b,37,0,5b * [ amerikanischer Zeichensatz ein, [ senden 5C 1b,37,0,5c * \ " \ " 5D 1b,37,0,5d * ] amerikanischer Zeichensatz ein, ] senden *5E * ^ *5F * _ *60 * ` *61 * a *62 * b *63 * c *64 * d *65 * e *66 * f *67 * g *68 * h *69 * i *6A * j *6B * k *6C * l *6D * m *6E * n *6F * o *70 * p *71 * q *72 * r *73 * s *74 * t *75 * u *76 * v *77 * w *78 * x *79 * y *7A * z 7B 1b,37,0,7b * { amerikanischer Zeichensatz ein, { senden 7C 1b,37,0,7c * | " | 7D 1b,37,0,7d * } " } 7E 1b,37,0,7e * ~ " ~ *7F *  *80 * 81 1b,37,2,7d * deutscher Zeichensatz ein, (7d) senden *82 * *83 * 84 1b,37,2,7b * deutscher Zeichensatz ein, (7b) senden *85 * *86 * *87 * *88 * *89 * *8A * *8B * *8C * *8D * 8E 1b,37,2,5b * deutscher Zeichensatz ein, (5b) senden *8F * *90 * *91 * *92 * *93 * 94 1b,37,2,7c * deutscher Zeichensatz ein, (7c) senden *95 * *96 * *97 * *98 * 99 1b,37,2,5c * deutscher Zeichensatz ein, (5c) senden 9A 1b,37,2,5d * deutscher Zeichensatz ein, (5d) senden *9B * *9C * *9D * 9E 1b,37,2,7e * deutscher Zeichensatz ein, (7e) senden *9F * *A0 * *A1 * *A2 * *A3 * *A4 * *A5 * *A6 * *A7 * *A8 * *A9 * *AA * *AB * *AC * *AD * *AE * *AF * *B0 * *B1 * *B2 * *B3 * *B4 * *B5 * *B6 * *B7 * *B8 * *B9 * *BA * *BB * *BC * *BD * *BE * *BF * *C0 * *C1 * *C2 * *C3 * *C4 * *C5 * *C6 * *C7 * *C8 * *C9 * *CA * *CB * *CC * *CD * *CE * *CF * *D0 * *D1 * *D2 * *D3 * *D4 * *D5 * *D6 * *D7 * *D8 * *D9 * *DA * *DB * *DC * *DD * *DE * *DF * *E0 * *E1 * *E2 * *E3 * *E4 * *E5 * *E6 * *E7 * *E8 * *E9 * *EA * *EB * *EC * *ED * *EE * *EF * *F0 * *F1 * *F2 * *F3 * *F4 * *F5 * *F6 * *F7 * *F8 * *F9 * *FA * *FB * *FC * *FD * *FE * *FF * * Druckeranpassung fr Nec P6 * Allgemeines: * Kommentare werden mit '*' eingeleitet. Smtliche Zeichen * hinter dem '*' werden von 'INSTALL.PRG' ignoriert. * In der ersten Spalte steht ein Index, der vom Programm * verwendet wird, um die nachfolgenden Steuercodes den * entsprechenden Knpfen im Accessory zuzuordnen. * Der Index mu durch Leerzeichen von den Codes getrennt werden. * Will man einen Steuercode nicht verwenden, kann man ihn * durch Voranstellen eines * auskommentieren. * Die Steuercodes und die Indices mssen als Hexadezimalzahlen * eingegeben werden. * Druckername, maximal 18 Zeichen Nec P6 ******* Steuercodes *********** * Jeder Code besteht aus maximal 16, durch Kommata getrennte * Hexadezimalzahlen * Die folgenden Codes werden nur an den Drucker gesendet, * wenn 'Set Printer' angeklickt wurde ********* Zeichenstze ********** 0 1b,52,00 * USA 1 1b,52,1 * France 2 1b,52,2 * Germany 3 1b,52,3 * England 4 1b,52,4 * Denmark 1 5 1b,52,5 * Sweden 6 1b,52,6 * Italy 7 1b,52,7 * Spain 8 1b,52,8 * Japan 9 1b,52,9 * Norway a 1b,52,a * Denmark 2 b 1b,41,00 * Zeilenvorschub auf n/72 schalten * Der vernderliche Wert mu als 0 eingegeben werden * Danach knnen noch andere Codes folgen c 1b,40 * Reset , wird mit 'Reset Printer' ausgelst d 1b,55,0 * Bidirektional e 1b,55,1 * Unidirektional f 1b,47 * Double ein 10 1b,48 * Double aus 11 1b,78,1 * NLQ ein 12 1b,78,0 * NLQ aus 13 1b,34 * Italic ein 14 1b,35 * Italic aus 15 1b,45 * Emphasized ein 16 1b,46 * Emphasized aus 17 1b,70,1 * Proportional ein 18 1b,70,0 * Proportional aus 19 0f * Condensed ein 1a 12 * Condensed aus 1b 1b,53,0 * Superscript ein 1c 1b,53,1 * Subscript ein 1d 1b,54 * Sub/super aus 1e 1b,38 * Einzelblatt ein 1f 1b,39 * Einzelblatt aus 20 1b,57,1 * Enlarged ein 21 1b,57,0 * Enlarged aus * Die Codes fr Rand und Papierlnge werden nur gesendet, wenn * 'Set Margins' angeklickt wurde * Der vernderliche Wert mu als 0 eingegeben werden 22 1b,6c,0 * Set left margin 23 1b,51,0 * Set right margin 24 1b,43,0 * Set paper length 25 1b,4e,0 * Skip over ein 26 1b,4f * Skip over aus * Belegung der Tasten F1 und F2 in der Dialogbox des Accessories. * Diese Codes werden beim Anklicken sofort an den Drucker gesendet. 27 13 * F1 (13h bewirkt, da der Drucker alle nachfolgenden * Codes ignoriert, bis er 11h empfngt) 28 11 * F2 ************* HARDCOPY-Parameter **************** ************* Initialisierungscodes ************* 29 20,20,20,20,1b,2a,26 * Graph 640 P/Z 2a 1b,2a,21 * Graph 960 P/Z 2b 1b,2a,27 * Graph 1280 P/Z 2c 1b,2a,3 * Graph 1920 P/Z (Vorsicht!! 8-Nadel Betrieb) 2d 1b,2a,26 * Graph 720 P/Z 2e 1b,2a,27 * Graph 1440 P/Z 2f 1b,2a,28 * Graph 2400 P/Z 30 1b,2a,28 * Graph 2880 P/Z 31 1b,41,8 * Graph line feed # * Zeichen fr Beginn bersetzungstabelle * Fr jedes Zeichen knnen max. 16, durch Kommata getrennte * Codes (Hexzahlen) eingegeben werden. Sollen bestimmte Zeichen * nicht umgewandelt werden, mu man sie in der Anpassung durch * Voranstellen eines * auskommentieren. * Diese Beispielanpassung wandelt nur die Zeichen {\}[@]~| * vom Atari-Zeichensatz *0 * *1 * *2 * *3 * *4 * *5 * *6 * *7 * *8 * *9 * *A * *B * *C * *D * *E * *F * *10 * *11 * *12 * *13 * *14 * *15 * *16 * *17 * *18 * *19 * *1A * *1B * *1C * *1D * *1E * *1F * *20 * *21 * ! *22 * " *23 * # 24 1b,52,0,24 * $ *25 * % *26 * & *27 * ' *28 * ( *29 * ) *2A * * *2B * + *2C * , *2D * - *2E * . *2F * / *30 * 0 *31 * 1 *32 * 2 *33 * 3 *34 * 4 *35 * 5 *36 * 6 *37 * 7 *38 * 8 *39 * 9 *3A * : *3B * ; *3C * < *3D * = *3E * > *3F * ? 40 1b,52,0,40 * @ amerikanischer Zeichensatz ein, @ senden *41 * A *42 * B *43 * C *44 * D *45 * E *46 * F *47 * G *48 * H *49 * I *4A * J *4B * K *4C * L *4D * M *4E * N *4F * O *50 * P *51 * Q *52 * R *53 * S *54 * T *55 * U *56 * V *57 * W *58 * X *59 * Y *5A * Z 5B 1b,52,0,5b * [ amerikanischer Zeichensatz ein, [ senden 5C 1b,52,0,5c * \ " \ " 5D 1b,52,0,5d * ] amerikanischer Zeichensatz ein, ] senden *5E * ^ *5F * _ *60 * ` *61 * a *62 * b *63 * c *64 * d *65 * e *66 * f *67 * g *68 * h *69 * i *6A * j *6B * k *6C * l *6D * m *6E * n *6F * o *70 * p *71 * q *72 * r *73 * s *74 * t *75 * u *76 * v *77 * w *78 * x *79 * y *7A * z 7B 1b,52,0,7b * { amerikanischer Zeichensatz ein, { senden 7C 1b,52,0,7c * | " | 7D 1b,52,0,7d * } " } 7E 1b,52,0,7e * ~ " ~ *7F *  *80 * 81 1b,52,2,7d * deutscher Zeichensatz ein, (7d) senden *82 * *83 * 84 1b,52,2,7b * deutscher Zeichensatz ein, (7b) senden *85 * *86 * *87 * *88 * *89 * *8A * *8B * *8C * *8D * 8E 1b,52,2,5b * deutscher Zeichensatz ein, (5b) senden *8F * *90 * *91 * *92 * *93 * 94 1b,52,2,7c * deutscher Zeichensatz ein, (7c) senden *95 * *96 * *97 * *98 * 99 1b,52,2,5c * deutscher Zeichensatz ein, (5c) senden 9A 1b,52,2,5d * deutscher Zeichensatz ein, (5d) senden *9B * *9C * *9D * 9E 1b,52,2,7e * deutscher Zeichensatz ein, (7e) senden *9F * *A0 * *A1 * *A2 * *A3 * *A4 * *A5 * *A6 * *A7 * *A8 * *A9 * *AA * *AB * *AC * *AD * *AE * *AF * *B0 * *B1 * *B2 * *B3 * *B4 * *B5 * *B6 * *B7 * *B8 * *B9 * *BA * *BB * *BC * *BD * *BE * *BF * *C0 * *C1 * *C2 * *C3 * *C4 * *C5 * *C6 * *C7 * *C8 * *C9 * *CA * *CB * *CC * *CD * *CE * *CF * *D0 * *D1 * *D2 * *D3 * *D4 * *D5 * *D6 * *D7 * *D8 * *D9 * *DA * *DB * *DC * *DD * *DE * *DF * *E0 * *E1 * *E2 * *E3 * *E4 * *E5 * *E6 * *E7 * *E8 * *E9 * *EA * *EB * *EC * *ED * *EE * *EF * *F0 * *F1 * *F2 * *F3 * *F4 * *F5 * *F6 * *F7 * *F8 * *F9 * *FA * *FB * *FC * *FD * *FE * *FF * * Druckeranpassung fr Star SG 10 * Allgemeines: * Kommentare werden mit '*' eingeleitet. Smtliche Zeichen * hinter dem '*' werden von 'INSTALL.PRG' ignoriert. * In der ersten Spalte steht ein Index, der vom Programm * verwendet wird, um die nachfolgenden Steuercodes den * entsprechenden Knpfen im Accessory zuzuordnen. * Der Index mu durch Leerzeichen von den Codes getrennt werden. * Will man einen Steuercode nicht verwenden, kann man ihn * durch Voranstellen eines * auskommentieren. * Die Steuercodes und die Indices mssen als Hexadezimalzahlen * eingegeben werden. * Druckername, maximal 18 Zeichen Star SG 10 ******* Steuercodes *********** * Jeder Code besteht aus maximal 16, durch Kommata getrennte * Hexadezimalzahlen * Die folgenden Codes werden nur an den Drucker gesendet, * wenn 'Set Printer' angeklickt wurde ********* Zeichenstze ********** 0 1B,52,00 * U.S.A. 1 1B,52,01 * France 2 1B,52,02 * Germany 3 1B,52,03 * England 4 1B,52,04 * Denmark 1 5 1B,52,05 * Sweden 6 1B,52,06 * Italy 7 1B,52,07 * Spain * Die folgenden Zeichenstze kennt der SG 10 nicht *8 * Japan *9 * Norway *A * Denmark 2 B 1B,41,00,1B,32 * Zeilenvorschub auf n/72 schalten * Der vernderliche Wert mu als 0 eingegeben werden * Danach knnen noch andere Codes folgen c 1b,40 * Reset , wird mit 'Reset Printer' ausgelst D 1B,55,00 * Bidirektional E 1B,55,01 * Unidirektional F 1B,47 * Double ein 10 1B,48 * Double aus 11 1B,34 * NLQ ein 12 1B,35 * NLQ aus 13 1B,49,01 * Italic ein 14 1B,49,00 * Italic aus 15 1B,45 * Emphasized ein 16 1B,46 * Emphasized aus * Star SG 10 hat keine Proportionalschrift *17 1B,70,01 * Proportional ein *18 1B,70,00 * Proportional aus 19 0F * Condensed ein 1A 12 * Condensed aus 1B 1B,53,00 * Superscript ein 1C 1B,53,01 * Subscript ein 1D 1B,54 * Sup/Sub aus 1E 1B,38 * Einzelblatt ein 1F 1B,39 * Einzelblatt aus 20 1B,57,01 * Enlarged ein 21 1B,57,00 * Enlarged aus * Die Codes fr Rand und Papierlnge werden nur gesendet, wenn * 'Set Margins' angeklickt wurde * Der vernderliche Wert mu als 0 eingegeben werden 22 1B,6C,00 * Set left margin 23 1B,51,00 * Set right margin 24 1B,43,00 * Set paper length 25 1B,4E,00 * Skip over ein 26 1B,4F * Skip over aus * Belegung der Tasten F1 und F2 in der Dialogbox des Accessories. * Diese Codes werden beim Anklicken sofort an den Drucker gesendet. 27 13 * F1 (13h bewirkt, da der Drucker alle nachfolgenden * Codes ignoriert, bis er 11h empfngt) 28 11 * F2 ************* HARDCOPY-Parameter **************** ************* Initialisierungscodes ************* 29 1B,2A,04 * Graph 640 P/Z 2A 1B,2A,01 * Graph 960 P/Z 2B 1B,2A,03 * Graph 1280 P/Z 2C 1B,2A,03 * Graph 1920 P/Z 2D 1B,2A,06 * Graph 720 P/Z 2E 1B,2A,03 * Graph 1440 P/Z *2F * Graph 2400 P/Z (bei diesem Drucker nicht nutzbar) *30 * Graph 2880 P/Z (bei diesem Drucker nicht nutzbar) 31 1B,33,17 * Graph line feed # * Zeichen fr Beginn bersetzungstabelle * Fr jedes Zeichen knnen max. 16, durch Kommata getrennte * Codes (Hexzahlen) eingegeben werden. Sollen bestimmte Zeichen * nicht umgewandelt werden, mu man sie in der Anpassung durch * Voranstellen eines * auskommentieren. * Diese Beispielanpassung wandelt nur die Zeichen {\}[@]~| * vom Atari-Zeichensatz *0 * *1 * *2 * *3 * *4 * *5 * *6 * *7 * *8 * *9 * *A * *B * *C * *D * *E * *F * *10 * *11 * *12 * *13 * *14 * *15 * *16 * *17 * *18 * *19 * *1A * *1B * *1C * *1D * *1E * *1F * *20 * *21 * ! *22 * " *23 * # *24 * $ *25 * % *26 * & *27 * ' *28 * ( *29 * ) *2A * * *2B * + *2C * , *2D * - *2E * . *2F * / *30 * 0 *31 * 1 *32 * 2 *33 * 3 *34 * 4 *35 * 5 *36 * 6 *37 * 7 *38 * 8 *39 * 9 *3A * : *3B * ; *3C * < *3D * = *3E * > *3F * ? 40 1b,52,0,40 * @ amerikanischer Zeichensatz ein, @ senden *41 * A *42 * B *43 * C *44 * D *45 * E *46 * F *47 * G *48 * H *49 * I *4A * J *4B * K *4C * L *4D * M *4E * N *4F * O *50 * P *51 * Q *52 * R *53 * S *54 * T *55 * U *56 * V *57 * W *58 * X *59 * Y *5A * Z 5B 1b,52,0,5b * [ amerikanischer Zeichensatz ein, [ senden 5C 1b,52,0,5c * \ " \ " 5D 1b,52,0,5d * ] amerikanischer Zeichensatz ein, ] senden *5E * ^ *5F * _ *60 * ` *61 * a *62 * b *63 * c *64 * d *65 * e *66 * f *67 * g *68 * h *69 * i *6A * j *6B * k *6C * l *6D * m *6E * n *6F * o *70 * p *71 * q *72 * r *73 * s *74 * t *75 * u *76 * v *77 * w *78 * x *79 * y *7A * z 7B 1b,52,0,7b * { amerikanischer Zeichensatz ein, { senden 7C 1b,52,0,7c * | " | 7D 1b,52,0,7d * } " } 7E 1b,52,0,7e * ~ " ~ *7F *  *80 * 81 1b,52,2,7d * deutscher Zeichensatz ein, (7d) senden *82 * *83 * 84 1b,52,2,7b * deutscher Zeichensatz ein, (7b) senden *85 * *86 * *87 * *88 * *89 * *8A * *8B * *8C * *8D * 8E 1b,52,2,5b * deutscher Zeichensatz ein, (5b) senden *8F * *90 * *91 * *92 * *93 * 94 1b,52,2,7c * deutscher Zeichensatz ein, (7c) senden *95 * *96 * *97 * *98 * 99 1b,52,2,5c * deutscher Zeichensatz ein, (5c) senden 9A 1b,52,2,5d * deutscher Zeichensatz ein, (5d) senden *9B * *9C * *9D * 9E 1b,52,2,7e * deutscher Zeichensatz ein, (7e) senden *9F * *A0 * *A1 * *A2 * *A3 * *A4 * *A5 * *A6 * *A7 * *A8 * *A9 * *AA * *AB * *AC * *AD * *AE * *AF * *B0 * *B1 * *B2 * *B3 * *B4 * *B5 * *B6 * *B7 * *B8 * *B9 * *BA * *BB * *BC * *BD * *BE * *BF * *C0 * *C1 * *C2 * *C3 * *C4 * *C5 * *C6 * *C7 * *C8 * *C9 * *CA * *CB * *CC * *CD * *CE * *CF * *D0 * *D1 * *D2 * *D3 * *D4 * *D5 * *D6 * *D7 * *D8 * *D9 * *DA * *DB * *DC * *DD * *DE * *DF * *E0 * *E1 * *E2 * *E3 * *E4 * *E5 * *E6 * *E7 * *E8 * *E9 * *EA * *EB * *EC * *ED * *EE * *EF * *F0 * *F1 * *F2 * *F3 * *F4 * *F5 * *F6 * *F7 * *F8 * *F9 * *FA * *FB * *FC * *FD * *FE * *FF * * Druckeranpassung fr STAR NL 10 * Allgemeines: * Kommentare werden mit '*' eingeleitet. Smtliche Zeichen * hinter dem '*' werden von 'INSTALL.PRG' ignoriert. * In der ersten Spalte steht ein Index, der vom Programm * verwendet wird, um die nachfolgenden Steuercodes den * entsprechenden Knpfen im Accessory zuzuordnen. * Der Index mu durch Leerzeichen von den Codes getrennt werden. * Will man einen Steuercode nicht verwenden, kann man ihn * durch Voranstellen eines * auskommentieren. * Die Steuercodes und die Indices mssen als Hexadezimalzahlen * eingegeben werden. * Druckername, maximal 18 Zeichen Star NL 10 ******* Steuercodes *********** * Jeder Code besteht aus maximal 16, durch Kommata getrennte * Hexadezimalzahlen * Die folgenden Codes werden nur an den Drucker gesendet, * wenn 'Set Printer' angeklickt wurde ********* Zeichenstze ********** 0 1B,52,00 * U.S.A. 1 1B,52,01 * France 2 1B,52,02 * Germany 3 1B,52,03 * England 4 1B,52,04 * Denmark 1 5 1B,52,05 * Sweden 6 1B,52,06 * Italy 7 1B,52,07 * Spain 8 1B,52,08 * Japan 9 1B,52,09 * Norway A 1B,52,0A * Denmark 2 B 1B,41,00,1B,32 * Zeilenvorschub auf n/72 schalten * Der vernderliche Wert mu als 0 eingegeben werden * Danach knnen noch andere Codes folgen C 1B,40 * Reset , wird mit 'Reset Printer' ausgelst D 1B,55,00 * Bidirektional E 1B,55,01 * Unidirektional F 1B,47 * Double ein 10 1B,48 * Double aus 11 1B,78,01 * NLQ ein 12 1B,78,00 * NLQ aus 13 07 * Italic ein 14 07 * Italic aus 15 1B,45 * Emphasized ein 16 1B,46 * Emphasized aus 17 1B,70,01 * Proportional ein 18 1B,70,00 * Proportional aus 19 0F * Condensed ein 1A 12 * Condensed aus 1B 1B,53,00 * Superscript ein 1C 1B,53,01 * Subscript ein 1D 1B,54 * Sup/Sub aus 1E 1B,38 * Einzelblatt ein 1F 1B,39 * Einzelblatt aus 20 1B,57,01 * Enlarged ein 21 1B,57,00 * Enlarged aus * Die Codes fr Rand und Papierlnge werden nur gesendet, wenn * 'Set Margins' angeklickt wurde * Der vernderliche Wert mu als 0 eingegeben werden 22 1B,6C,00 * Set left margin 23 1B,51,00 * Set right margin 24 1B,43,00 * Set paper length 25 1B,4E,00 * Skip over ein 26 1B,4F * Skip over aus * Belegung der Tasten F1 und F2 in der Dialogbox des Accessories. * Diese Codes werden beim Anklicken sofort an den Drucker gesendet. 27 13 * F1 (13h bewirkt, da der Drucker alle nachfolgenden * Codes ignoriert, bis er 11h empfngt) 28 11 * F2 ************* HARDCOPY-Parameter **************** ************* Initialisierungscodes ************* 29 1B,2A,04 * Graph 640 P/Z 2A 1B,2A,01 * Graph 960 P/Z 2B 1B,2A,03 * Graph 1280 P/Z 2C 1B,2A,03 * Graph 1920 P/Z 2D 1B,2A,06 * Graph 720 P/Z 2E 1B,2A,03 * Graph 1440 P/Z *2F * Graph 2400 P/Z (bei diesem Drucker nicht nutzbar) *30 * Graph 2880 P/Z (bei diesem Drucker nicht nutzbar) 31 1B,33,17 * Graph line feed # * Zeichen fr Beginn bersetzungstabelle * Fr jedes Zeichen knnen max. 16, durch Kommata getrennte * Codes (Hexzahlen) eingegeben werden. Sollen bestimmte Zeichen * nicht umgewandelt werden, mu man sie in der Anpassung durch * Voranstellen eines * auskommentieren. * Diese Beispielanpassung wandelt nur die Zeichen {\}[@]~| * vom Atari-Zeichensatz *0 * *1 * *2 * *3 * *4 * *5 * *6 * *7 * *8 * *9 * *A * *B * *C * *D * *E * *F * *10 * *11 * *12 * *13 * *14 * *15 * *16 * *17 * *18 * *19 * *1A * *1B * *1C * *1D * *1E * *1F * *20 * *21 * ! *22 * " *23 * # *24 * $ *25 * % *26 * & *27 * ' *28 * ( *29 * ) *2A * * *2B * + *2C * , *2D * - *2E * . *2F * / *30 * 0 *31 * 1 *32 * 2 *33 * 3 *34 * 4 *35 * 5 *36 * 6 *37 * 7 *38 * 8 *39 * 9 *3A * : *3B * ; *3C * < *3D * = *3E * > *3F * ? 40 1b,52,0,40 * @ amerikanischer Zeichensatz ein, @ senden *41 * A *42 * B *43 * C *44 * D *45 * E *46 * F *47 * G *48 * H *49 * I *4A * J *4B * K *4C * L *4D * M *4E * N *4F * O *50 * P *51 * Q *52 * R *53 * S *54 * T *55 * U *56 * V *57 * W *58 * X *59 * Y *5A * Z 5B 1b,52,0,5b * [ amerikanischer Zeichensatz ein, [ senden 5C 1b,52,0,5c * \ " \ " 5D 1b,52,0,5d * ] amerikanischer Zeichensatz ein, ] senden *5E * ^ *5F * _ *60 * ` *61 * a *62 * b *63 * c *64 * d *65 * e *66 * f *67 * g *68 * h *69 * i *6A * j *6B * k *6C * l *6D * m *6E * n *6F * o *70 * p *71 * q *72 * r *73 * s *74 * t *75 * u *76 * v *77 * w *78 * x *79 * y *7A * z 7B 1b,52,0,7b * { amerikanischer Zeichensatz ein, { senden 7C 1b,52,0,7c * | " | 7D 1b,52,0,7d * } " } 7E 1b,52,0,7e * ~ " ~ *7F *  *80 * 81 1b,52,2,7d * deutscher Zeichensatz ein, (7d) senden *82 * *83 * 84 1b,52,2,7b * deutscher Zeichensatz ein, (7b) senden *85 * *86 * *87 * *88 * *89 * *8A * *8B * *8C * *8D * 8E 1b,52,2,5b * deutscher Zeichensatz ein, (5b) senden *8F * *90 * *91 * *92 * *93 * 94 1b,52,2,7c * deutscher Zeichensatz ein, (7c) senden *95 * *96 * *97 * *98 * 99 1b,52,2,5c * deutscher Zeichensatz ein, (5c) senden 9A 1b,52,2,5d * deutscher Zeichensatz ein, (5d) senden *9B * *9C * *9D * 9E 1b,52,2,7e * deutscher Zeichensatz ein, (7e) senden *9F * *A0 * *A1 * *A2 * *A3 * *A4 * *A5 * *A6 * *A7 * *A8 * *A9 * *AA * *AB * *AC * *AD * *AE * *AF * *B0 * *B1 * *B2 * *B3 * *B4 * *B5 * *B6 * *B7 * *B8 * *B9 * *BA * *BB * *BC * *BD * *BE * *BF * *C0 * *C1 * *C2 * *C3 * *C4 * *C5 * *C6 * *C7 * *C8 * *C9 * *CA * *CB * *CC * *CD * *CE * *CF * *D0 * *D1 * *D2 * *D3 * *D4 * *D5 * *D6 * *D7 * *D8 * *D9 * *DA * *DB * *DC * *DD * *DE * *DF * *E0 * *E1 * *E2 * *E3 * *E4 * *E5 * *E6 * *E7 * *E8 * *E9 * *EA * *EB * *EC * *ED * *EE * *EF * *F0 * *F1 * *F2 * *F3 * *F4 * *F5 * *F6 * *F7 * *F8 * *F9 * *FA * *FB * *FC * *FD * *FE * *FF * `nN N*O*m - ЭЭм!"ҍ¼.A// Bg?<JNA m"m -So Q m -SBQ(m)M*mN lHhN &X/,?,NF\?<N ?<A?<NAXNuNV?BG`0RGA. Gm>N^NuNV?. H|0m"H|9nH|09@0<`>< H|am&H|fnH|a| 9@0<` 0<`>N^NuNVH0 .&@$@`H| gRf&n`H|*fB#fL N^NuNVH0BG9|$A,&HA\$H`RG0 @lRfBL N^NuNVH>.&n BF Gl0>0RFA-`&0H H@|02RFA0H >0f`SF0A0fBLN^NuNVHlJHnNPHn?,ZNf\HnHnNhPHlhHnNZPHn?<N V\NN^NuNVH0>. BF8<20, f0DmN/.NzX&nA$HBF` F oNd|?NTJ@g0,2RFA`N8 F oN,g||,f0RFAB`.|?NzTJ@g0,2RFA`Nf`||,gNTfH<A\&H`TH| f6?</ ?,*N>P @nNH| gNRlZ`H| gR`?</ ?,*NP< @n Fn 0<`~`XRG0 @oNpH| gR`6?</ ?,*NP @nNBH| gN2RlZ`?</ ?,*NtP @nB0<`LN^NuNVH`A\&HH`|*g` ``|#g`9| / NXgN``0,$f N`p#H?N TJ@fN<,RH| g>g8H?NTJ@fNR0@<lH| g gN2?/ N|\` ``xNJ@f LN^NuNVHlz?<N\?,*NTNTN^NuNVH8<1BG0RGA,P?<Hn?,*NP< @nN.f><:`h0RGA. PA-H n|?</.?,*NDP @nNT0g&?R ./?,*NP<0EgN20DoBG`n0@0RGA.A-H n| EgB?<Hn?,*NP @nNRE0?/.?,*NP<0EgN Gm?,*NTLN^NuNVHBlRB,BgHl?<GN XP,TfHHlHlTN `PHlHlTN PHlHlTN P?<N T-@ <AЮ@THlRHlHlTN >0f 0<`n0,Rf 0<`^,f 0<`NA&HHlTHlN P`Rf`SH|\fRBHlHlN NX9@|g0<`0<N^NuNVHl\/.NPJ@g`Hlb/.N|PJ@gNHlh/.NjPJ@g.=|0AL"HPgXHf0(>N^NuNVHln/.NPJ@f =|`Hlt/.NPJ@f =|`Hlz/.NxPJ@f=|`f0. |g0/.NXJ@g0<``Bg/.?<NLX0. |?/.?<=N4P=@9@| @l0<`0. | ??.N~X0.N^Nu)IH)JD)_@NA"lH$lD/,@NuNV nf:0,lf0<9@9@0<g?<NT=@ nf*0,g Sl?<?<NX?<D?<N~X` n f00,RlA ?< ?<NRX?< ?<NDX`r nf ?<N,T nf20.2,RlA?< ?<NX?< ?<NX`&0.2,RlA?.?<NX`AH|f0<`0,RlAH`` nf?<NT``0K?9K?9K?9K?.N&P3KlB@`HBWBg/<Ek?<?9KN' >K?9K?9K?9K?9KN&PpN^NuNV>KN'2>KN'LN^NuNVa`6.KN%23K09K`09KyKfa``|(g`N^NuNVH *n(n fJL0N^NuNVH *n(n Jf.S/ aXJL0N^NuNVH*nH` H>WBg?<N$4X,f ` 0SGJ@fpJL N^NuNVHBG`0*@KRG|mJL N^NuNVHBG*nR MJg RG0|m JL N^NuNV>/<\?<=N$D\3] oa .;@a#].;a#].;a#].;a|#].;al#]a2N^NuNV`.:?<N%nT|gB@`>N$DJgpN^NuNVH By]"ByE>N$$fB@`p3]$B9]&#;]v#;]z#;]~B](|9 м+#]#] м+#] м+#]a.:N/<\aXa>aN$.Eu?9]N&0T3KaB y]#] y]!|:8a y]# l]>apJL0N^NuNVH (|+h~`<*L0 U)p* m)p+P m)p+P0SGJ@f><`h>/9]N&X0*@]B@0-`* - м+h+@ `. m )p+P ``|| b@0@< PN0SGJ@fJL0N^NuNVp H"y]pPH"y]B@H"y]pHH"y]pH"y]N^NuNVHBnB9\J9]&f`BW/<\?<GN$D\.E/<]&aX.\/<]&aX.E/<]&aX>N$DмA]&.U/<:N/<]&N%P>JGfB@`PJnfB@`FJ9:NfB@`:*|\.]&/<\ahXJf %\fRB.:N/<\afXpJL N^NuNVHBEaJ@f.E?<N%nT`>N'.]BgN&T.]/<]/<]/<]/9]N%BWafaJ]g 9]3<a*a `BF:0`aX`z|%`Ty< Sy< a`z|M`z|P`z|J`z|;`a>?<[aT`pa\>?<aT`Z.E?</aT`F.E?<0aT`2.E?<1aT`.]v?<>arT` .]z?<?a^T`a>?<2a T`a>daB`a $>da2`Yy<Ty<y<><?<daT`aJ`a \`a&J@ga6BWaa`nJy]"ff.!?<&N$$T3]">Va`BJy]"g:.!?<&N$$TBy]">Va``H |<8rW h|NJFg >SW?aTBW/9]N%LX>|gfBW?<gaT>N'a(JL N^NuNV><?<da TBW?<%a.TBW?<Ma$TBW?<PaTBW?<JaTBW?<;aTN^NuNVH>.<. 0`8*y]z`D*y]:<`8*y]:<`,*y]z`"*y]z``H |=8rW hN00H>W?aPTJL N^NuNVH>.<. 0*@] gU`Ug>a JL N^NuNVH >.:Hp .?<HN$DT,o.:^?<N%nTB`4 .?<HN$DT*@.?<HN$DT(@.?<IN$DT JL0N^NuNVHBGBW?<a$Ta*J@gz3E`80G"|:00й] @( g0G"|;.aRG0G:JPf.;@a0y< "|;.aByEJLN^NuNVHBG`*|g"0й] @( g >?adTRG0G:<fJ]g 9]3<ara^a>J@g"3E.;\a .;DaByEJL N^NuNV y < oBy< Jy< l3 < y]2y< :!Q>aN^NuNV>]?9]?9]?9]?<?./9]N&RN^NuNVHBGz2*|:8.U/<?9] ?<?N$DPJn>] ?<>N$DT`pRGJ.g|mB3]*y;`~H||o>] ?<>N$DT`&JGg4.0G/?9] ?<?N$DP<Gg>] ?<>N$DT`0y];*PRy]y]m ./<?9] ?<?N$DP<nfaJFo`f.H|0*@K./<?9] ?<?N$DPJoRH||nDJGg.0G/?9] ?<?N$DP<Gf".U/<?9] ?<?N$DP<nz>] ?<>N$DTBy]JL N^NuNVH>.<. 0й] @*h 0H=@0`Jng 0.|0`p ``|g| gܰ| g:HŋdHE|dlp `0HH@Hd|0| lp ` 0H |00H H@|0>aTJL N^NuNVaJ@g,3E.;a.;a.;aByEN^NuNVH>.>?aTaJ@g3E. aByEJLN^NuNVHaJ@gd~A`>WBg?<N$4XRG|_m> Bg?<N$4X~a`>WBg?<N$4XRG|m> Bg?<N$4XJLN^NuNVHJ]g 9]3<><?<da T`*y]  gH|d`B@H#] - g-H| `B@Hѹ]-H|Hѹ] 9]=@J]o>a#]J]g^B?< N$DT#]Jy]"gN! 9]r ./9]NlXJy]"gN!.]?< N$DT`>?<baT>?<caTaJL N^NuNVJ]gN!Jg6.E?<N%nT|g>?<caT>?<baT`bB?< N$DT#]Jy]"gN!NJy]"gN!.]?< N$DT.]?<IN$DTB]aN^NuNVH.?<HN$DT. r <>?<a0T>a,JLN^NuNVH*n>W?-W?-[W?-[W?< Bg/9]N&RJL N^NuNV 9]39 y]]>a>9?< aTN^NuNVH#]].Q/]/Y/U/9]N%BWafJ]ga>9?< aHT`BG0`~*|90Q@U Uo: U l:>?< aTBG`j~&y]0S@ PoC ClP>aBG`6aa`,aa|`"abar``S@| b@0@=h PNBW/9]N%LX<|fD>?<a6T#]]>?< aTa.]a8JL8N^NuNVH.9]#]] y]*hJ9]g 9]H`p  9]>W?< aTa#]JL N^NuNVJ]ga`J>9a#]J]g y]]a(N#`>?<aXT>?<aJTN^NuNVH0y9#]39FJB?< N$DT.>a9]H|3K y9y] .]N".?< N$DTJLN^NuNVJ]gV.]?<IN$DTB#]#]B?< N$DT#]N#2BWa.]?< N$DTB9]N^NuNVH>.9]HHƜAp",JGg "y9` F"y9JLN^NuNVHJ]g2 9]9g>?<aT>?<aTaN`^J]g2.9?<N%nT>?<aT>?<aT`$<99Hp >9a-@Jg./.Bg?<JN$DP.]?<N&TB?< N$DT-@(|6*|.*>N$$&@./ aX>//?<N$$ ( мd#9 y9 9 y9!U099H"y9#@ y9"y]Q .?< N$DT.]?<N&TaPaRN#a>a>aJL8N^NuNV y]p1@R"y]3@j y]h"N^NuNV y9 ] y9#] y9#] y9 (#]39N^NuNVH (|.B?< N$DT,..?< N$DT?n$*Gd 9f#9ajaja8JL0N^NuNVH *n(n .< `( SJfJL0N^NuNVH 9]#]*@.Q/]/Y/U/9]N%BWa|`0`>a.`>a"`>a`>a `>a`>a`>a`>a`By<`x3<`l>a.``BWa&`XBy<`P3<`F3<`<#E;`0#E;`$#E;``U@|b@0@= PNBW/9]N%LX<|f>?<a$T#]].]a6>?< aTJL0N^NuNVH>.3<0G(;#]JLN^NuNVH*nB y<f0<`0<H(@ `&&L~P`S n KHSJg쾆o,Pb09<`"~`4~ `0~`,~`(~ `$~` ~`~ ``S@|b@0@> PNp ". "y<@ "y<@ JL8N^NuNVH,<B*<Jg` gJf JLN^NuNVH<9< H..`d09<`L r>WBg?<N$4X >WBg?<N$4X >WBg?<N$4X``J@g|gİ|g SJfpJLN^NuNVH (|]*n y<fp`p=@Bn` no 0.W@@`0.@=@Bn`*<B.` 2Hgp`B@=@ 2-Hgp`B@n0.`L0.S@@nH-@ "n;2HR "n;2H```|g|g|gJflX89FPTRn n(mFPRn0.nm JL0N^NuNVH̗Jyfb=y]$-y#J.9`$ 9o3#`BW?<N$4TJg>N$$*@ y<fp`B@=@3EJngp"`p2=@Bn`Jng <]` &@Jng.a.al=@.]~a.;aJng.]a.<a`,<Bn`Jng0<`0<H*xB(K`& HHAgJy<g ` PJf n!f JngμJy<g.a.B09<``z`rRRR y<m`RJngRBn`=|`HzRn0.|fBnR`0zRn0.|fBnR``S@|b@0@>$ PN3< .a8By< JfR0.SnJ@fJng0<`0<HJyfRn0.nmZ3.;DaByE#JL8N^NuNVH*|VB?< N$DT#]*UJng#a*`*a.]?< N$DTJL N^Nu#Jn#Jr#Jv#Jz#J~#J@|#Jj!| F/<!?<?< NNP yJNu#J@|!yJjF?<?<NNX yJNu@Jh"y03#H# fNo0|g$|g"yL/?# yJjNJof|0/"9JzJvfA(fap`ZJyJ~fn#J|"9JvaಹJzf FJh.-Jj4NqNq`#Jv yJnp"yL/?#FJhNs3J~p`Jof*pJyJ~gp`H"9JzJvgaR#Jz yJn0aALNsA3J~@<@< @NuRJrerNu 9JzJvfpNupNu#JX!|!Nu#JXNuJyEf03JV#J\ |KFH#Jd fNo WfhJofbp0/|мK*@H3E`SH??<?<NM\J@f~Jf3E yJdL/9J\?9JVNs yJdL/9J\?9JV yJXN#K3FB09FJHg3FBRH3FDR3FFyFDyFB3FH@yFJ#rK##r#vK##v#~K##Z~Nu < yK QNu#Kr#Kv#K~3KNu0/yKfpJyKg 3KpNu yKN0/yKf <F aF3a]pN^NuNV>a*pN^NuNV#a>N$TN^NuNV#a3 a>2N$TN^NuNV3a# a>4N$TN^NuNV#a>6N$T n 0a n0a n0a n0aB@09aN^NuNV#a# b>ZN$T n0aB@09aN^NuNV3a# a>NN$TN^NuNV3a# a>#N$TN^NuNV#a3 a3a3a3a3a3a>*N$TN^NuNV#a3 a>rN$TN^NuNV3a3 a3 a3a3a>dN$TN^NuNV3a3 a3 a3a3a>eN$TN^NuNV3a>fN$TN^NuNV3a>gN$TN^NuNV3a3 a>hN$T n 0a n0a n0a n0aB@09aN^NuNV3a3 a3 a3a3a3a>iN$TN^NuNV3a>kN$TN^Nu >D>M>s>t>u>w>>>>>>>>>>>>>>>?????$?,?.?0?=?@?D?P?\?^?`?n?{?~???????????????????????@@@@ @@@@@@@@!@-@:@=@A@M@Z@]@a@i@l@p@z@|@~@@@@@@@@@@@@@@@@@@AAA AAAAAA!A*A/A6A>AEAKAMAOAQA\A^&iM 9@ @              = =   !    !'  =   !    '@@!  $"# ! #!%  (&' ''@!%@") #=* $ -+, ! ,%*&. ' 2/1 !' 0(1).*3 += 4 , 756 ! 6-4.8 / >9; !' :0;18<=2=@3;@4? 5= @ 6D A 7 DBC ! C8A9SEP !F: JGIH;I<F=MKL> L@?J@@PNOA O@BM@CDQRD R@EP@FWTV !. UGVHSI X J [YZ ! ZKXL\ M=] N `^_ ! _O]Pa Q gbd !'cRdSaefTf@Ud@Vh W=i X jk ! kYi1Z3  [\]^_` ab c d   e  f g h) i) j) klmn!  op5q r st u  vw x @y@z { @|  `}l]4C![0][ Zuerst Spooler abschalten! | | First turn off spooler! | | ][ OK ][0][Drucker einschalten | | ][ OK | Cancel ]Star NL 10 PRINT.DAT [0][ Nicht genug | | Speicher frei! | ][ OK ]A`AkAvAAAAAAAA(YZBC^_"#+,jk569:AAABB!B3BEBWBiB{BBBBBBBCC#C5CGCYCkC}CCCCCCCD DD1DCDUDgDyDDDDDDDE EE-E?EQUUUUUUUUEcEg nnnn &'(/012<=>?KLNOQRTU[bcef  4pH\"d%;JMP  < 2  & ^000000bznBBBBBBBB&*.26:>B ,D\Printer:Th. Klingelhfer ST Print V 2.0Star gemini 10X free Memory: kbyte kByteRamdisk: HARDCOPYRAMDISKN L Q OnOffSpecial SuperSubOffSet PrinterItalic OnOffChar Set GermanyProport. OnOffLine feed 12/72 InchReset PrinterCondensed OnOffSend code: CRLFFFTestEnlarged OnOffSkip over OnOff 6 F 1F 2Double OnOffMarginsLeftRightLength 72 80 0OnOffTranslationDirection BiUniSet MarginsEmphasized OnOffSpoolerOnOff 32 KbyteEXITSingle SheetYesNo64012809601920144072024002880Monochrom-HardcopyPunkte/ZeileObenUntenLage Bit 0InstallRemoveExitCRCR/LFLFNadeln81624RESIDENTEXITREMOVEINSTALLDrive:Size:D 512 kbyte U.S.A. France Germany England Denmark 1 Sweden Italy Spain Japan Norway Denmark 2R R R R R R R R R R R A2 @ U U G H x x   E F p p   xS xS T 8 9 W W l Q C N O   * * * * * * * *' A2   File Copy ST-Print +A:\*.DAT[0][ Too many windows open! | | Zuviele Fenster geffnet! | | ][ OK ]      [0][ Puffer ist nicht leer! | Trotzdem abschalten? | ][ Ja | Nein ]_    8R           "$      * ,ZJ<  &"Z XP 6  ("     "    , $   & ,0"   8 2  ^ 4\    0      , ( "     &  P|    . F6Z8 < $"  D2^ P ,   H    &(   ((      ` $                fXX$Nec P6RRRRRRRRRR R A@UUGHxx45EFppSST89WWlQCNO *&*!*'**&*'*(*(A$R$@R@[R[\R\]R]{R{|R|}R}~R~R}R{R[R|R\R]R~ ST-Print + : 5 ntzliche Programme in einem zum Sensationspreis: -resetfeste Ramdisk -Druckerspooler -Druckertreiber -komfortable Druckereinstellung fr alle Matrixdrucker -Hardcopyroutine fr alle Matrixdrucker (9-,18- und 24- Nadel) Zustzliche Speicher-frei-Anzeige. ST-Print + ist ein uert vielseitiges und leistungsfhiges Werkzeug, das die Arbeit mit Atari ST Computern erleichtert. ST-Print + ist als Accessory programmiert: es mu nur einmal geladen werden und steht dann immer zur Verfgung. Die Leistungsmerkmale: 1. resetfeste Ramdisk - Gre einstellbar von 32 - 4000 kByte, auf Wunsch resetfest oder abschaltbar - kann auf Laufwerk C bis P gelegt werden - arbeitet problemlos mit einer Harddisk zusammen - sehr schnell, da in Maschinensprache programmiert 2. Druckerspooler - Gre einstellbar von 2 - 510 kByte - abschaltbar - arbeitet mit TOS- und GEM- Programmen - auch fr Hardcopies - in Maschinensprache programmiert und interruptgesteuert, dadurch immer optimale Geschwindigkeit beim Ausdruck 3. Druckervoreinstellung - Druckereinstellung mit der Maus: Knopfdruck statt Handbuch - viele Einstellmglichkeiten: Zeilenvorschub, Schriftart, Zeichensatz, Papierrnder etc. - Einstellung des Druckers vom Desktop und aus jedem GEM- Programm (VIP Professional, Wordplus, Tempus etc.) mglich - kann an alle Matrixdrucker angepat werden, diverse Drucker- treiber gehren zum Lieferumfang, auch eigene Anpassungen knnen erstellt werden 4. Druckertreiber - Anpassung aller Atari- Zeichen an den verwendeten Drucker, ermglicht den korrekten Ausdruck von Umlauten und Sonder- zeichen auf allen Matrixdruckern - hnlich der WORDPLUS Anpassung, d.h. die Translation-Table kann direkt bernommen werden 5. Hardcopyroutine - nutzt die Fhigkeiten von 9-, 18- und 24-Nadeldruckern - kann an jeden Matrixdrucker angepat werden - verschiedene Auflsungen, Schnelldruck bis Qualittsdruck - arbeitet mit dem eingebauten Spooler zusammen - Auslsung der Hardcopy durch Alternate/Help, kann genauso wieder abgebrochen werden - Umsetzung der Farben in Grauwerte (im MID-RES Modus) - gespoolte Hardcopy #a000000 #b000000 #c???000?000<000?00;;400;0;;;4440??0;;?0?;0;;;0??03111103 #d #E 98 13 #W 00 00 0C 01 1D 11 08 A:\*.*@ #W 00 00 02 0B 4C 09 00 @ #W 00 00 0A 0F 34 09 00 @ #W 00 00 0E 01 34 09 00 @ #M 00 00 00 FF A DISKSTATION@ @ #M 00 01 00 FF B DISKSTATION@ @ #T 00 07 02 FF PAPIERKORB@ @ #F FF 04 @ *.*@ #D FF 01 @ *.*@ #G 03 FF *.APP@ @ #G 03 FF *.PRG@ @ #P 03 FF *.TTP@ @ #F 03 04 *.TOS@ @ . .. HAUSVG PRG F }HAUSMO PRG F 2wHAUSJA PRG F lSCHECKBUPRG F )"USCHECKKAPRG F ?gRBERWSG PRG F TFOBENZIN PRG F h6BEISPIELPRG F v4LIESMICHDOC F  HH/01/86DAT rSHH/12/85DAT qSHH/02/86DAT tSHH/09/84DAT PSHH/12/84DAT VSHH/04/85DAT `SHH/11/85DAT oSHH/12/86DAT SHH/03/86DAT vSHH/06/85DAT dSHH/08/86DAT SHH/02/84DAT ASHH/03/84DAT CSHH/04/86DAT xSHH/06/84DAT JSHH/09/86DAT SHH/11/84DAT TSHH/02/85DAT ZSHH/05/85DAT bSHH/05/86DAT zSHH/07/84DAT LS`yS` Efv*oM m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNZHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN(ALNHz2?< NA\pdAxr0XQ)K\NNJrBjNuHz?<&NN\CAp$L Qp NBlJpNNpMN9@pdAr 0Q0tr N.9lNNupealp`NuaN,Hz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu Hn` 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8N6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dNAXJ@jNNuJ@jD@vqapvN )@p `H@)@prtN.AHplrtN.B 2pNpNpapaprapalpalpalpaTpaTpaTBp'a?<NNT@B){L9|0<rtN.papap9@p`pvN v`v`vj`v `v`v`v`?Aa*` Al 2l 4)lVH)lRprtN.Al 2l 4HVNu9Cp rtN.Av` Av `Avl 2l 4)lVHNaBp0,l 2Nua40,HNua*p0,l 4Nuaprt0,l 22,l 44,NuN9||BlBlrҌpsNBNu(* 9AJA)H@@[000][ˈN8 Evz`* [g" ]g |g QSz` zQSpQ][ɈN8 Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NHNur|<N8 @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N.2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg: k&@0+R`g k#&@0+S@H3 Q&f)I`LNuApN"N8$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpN" _0HpN"p"_0HqN p"_0HqN E ұeHHQ0)NF$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNWHNu Ihd*N$E$RR@H`2QˈN8 ENu Ihd"*N$E8*$R`"QˈN8 ENu2)A IJAfr4(Ae*RBBc0*SA?N$E$R`QˈN8 ENup`(* 0(iN$E 4R`Q$D 4R`QˈN8 DN8 ENua NuN8 IHPg"B  g &gNJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkN RB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<,NATAN@pN"?<*NATANlp N""H2X@N:0H@?N:AAN"H2@N.0H@N.YdNHAN2p <0N`QNu, N8taoR6 .fJS@gFt ao>AA .f4S@g04<;ark(AjA AbAPjAdYA??<+NAX FN8ta>k:Y6 :fRS@g*t;a(k$AA :fRS@g t;akIA??<-NAXNurxS@k0  bS@jrNu .g( :g"0  b DBb BdeS@jJANuSR@JANuH&N~րN~jNuNq Y Qf*d ЀЀ 2$4BBNuHRp` HRpJQfpNNq Y Qfd ЀЀNuNN:$_& Y Qf d փփABJk 0NNNp$_& if"QdփփHRNNN~,Nq8DRzXEEg"7PNqR$HBJBgpNJgJigp`eetЂ`"ЀeЁdp`ЀeЀe"Ѕe$W.H@@NL"2` NqR YEjrd0` SjN$_NVЀЀ 2$4BBN YQf "_Nq*eNN*< NqbІSGfN$_NփփHRN YQf "_&Nq*eNN*<&NqbֆSGfN" KC`e N`d \N l\Ӭ\ NupNd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNu??<NMXNuPj0,lf$J,nk l*fp?Np N9|nNA0,l2J,jk 0"fZRAR@ 0"g 0 f` 0 g 0,f9@lTll`BllA"H"g"A4`Q"AA 0! NuS@R@ 0 g 0,f9@lRll`R@ 0 fQj`Bll?<?<?<NM\NHQN.&g ! ge l*g l*gpNNu<,*?Hj\F FfN`H FfN`RGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NtldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"Nak NupNuakfpNupNtddA0oH?<?B?<BNA Jk.,?<?B?<BNA *kBg?/?<BNA JkNuNp`pJ@gHzZ?<&NN\NuB?< NA\Av ACLElp"Jg X\QC"C!/:@?< NA\NuLH!NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A6@ Ni LHL|1R/:?< NApdK`HaJLxNNu)H9@Jp4NP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.0| Copyright 1986|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehlertHB9BL@@TAt )l g.A( f hgSASAgRB`9BJNSAgNun)l g,vARC( g9CJ9|Lp!,N FPeNunA JpBQA/)H )l gBlJpNB Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8Np>L8NnAJ0?C bL000zH?A/.)HpNLrHH/>Bl/,ff.f.ffNu l /.g&, ^`D&, N`>&, R`8&, V`2&, Z`,2,/4WAARA0,/6A hfRAS@f9A/,&, Jo ? CN0`@k Ap0(/.NuA Nup)@JphNLtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, N"F QNu"l`Yd&-KNN"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`$Y8gHRDD*D%H8#$c2g# HRDD%H`/&#k gH`X-KNu)H,Bl0NuE+000 l,N80l0oN NuaNHP l,"X42,0Rl0Bd1 _g !g &g, \g2N`Rl01` _N8J@fp N0N _N N pR@RABd 1\fRA9A0 _/N8"@cԒ@H/N Np?N _Np?NLNH l,"X42,0Rl0Bd1 _g,vxz| +g. -g( *g $g" #g N`Rl01`` `RCRABd1 _fRA` #g $g *g ,g ^gB +gZ -gT .fRxRDRABdH1 #g ^g +g. -g( _f&RA`RERABd1 ^g +g -f2ALH@ք/N"NC " Lx2DE A,b -fEt1BQt1$0000QE[JEft Q0JgE\J"f0J"ff JFj-Sg$E[JEgRE\JEg vJ*g RCJ*f~ g~*Jf`9I0p%NLNNuE[JEg*ÒEA, gSAR`Ô l,HQ?HjSl0 l,"X0Rl0gL _g0 ,g .g +g( -g $_HRN`$W "0d`Rl0`p Jojp-`Sl0NuNN\HxHx pC^~NHxHx pCd~NHxp Cj~NHxp C@~NpC킚NpC킬Np C킦Np C킔Np CpNp CvNpC|NpLNNHxNn; | Keine Daten vorhanden !! | | Programm wird abgebrochen!HPNb OK r"_ NJ+@NNNNpNpN+| -"-N -DNv/ -DNv"N <Ѝ/p _ѐNvN - >WHgpNRpNVpNZp NpNpNprNpdrZNNnJahresvergleich4"<NpnrZNpn"<&N|pNRpNVpNZpN <rZNNbEin Public-Domain-Programm von"<N <rZNNb.Alfred Nitzschke, Am Hanloh 19, D-3042 Munster"<N <rZNNb2Das Programm HAUSVG ist vollstndig in GFA-Basic"<N <rZNNngeschrieben und compiliert.nN <rZNNn5Das GFA-Basic-Programm knnen Sie beim Autor erhalten4"<N <rZNNn?gegen Einsendung von 1 Diskette, einem frankierten Rckumschlag4"<N <rZNNb und DM 10.--N <rZNNb@Dieses Programm nutzt die Daten, die Sie mit dem Programm HAUSMO"<N <rZNNnangelegt haben.aN <rZNNb>Wenn Sie bisher kein GFA-Basic benutzen und dennoch mit diesem"<N <rZNNn9ntzlichen Programm arbeiten wollen, aber Ihre Konten und4"<N < rZNNb>Einnahmen bzw. Ausgaben nicht mit den Vorgaben bereinstimmen,"<N <rZNNb JNN`NNpNC킸NHPNb HAUS / VERGLEICH"_NFfN>AANADNADNpNC킸NHPNn Programmende"_NFfN?.At|NpNC킸NHPNb Druckliste "_NFfN?hA^$NpNC킸NHPNn Gesamtschau 4"_NFfN?AT^NpNC킸NHPNn Bedienung "_NFfN?ApNpNC킸NHPNb Datenstand "_NFfN@ArNNpNN &<x*<NpJBgp/pNN &<x*<NpJBgp$VHfN@pNN H <r$<L8NZN`+@BAHNpN WHfN@BARNpNN &<x*<NpJBgp/pNN &<x*<NpJBgp$VHfNAfpNN H <r$<L8NZN`+@BAMfNpN ,WHfNABASNN:NNN:ADNpNRpNVpNZp NpNpNpPrNA큀"<-NpZrNpZ"<KN|pNRpNVpNZp N -JWHfNB.AE NNCpN 0VHfNC <rdNNn3Ein Programm zur Verarbeitung von Haushaltsdateien,"<N <rdNNb2die mit dem Programm HAUS/MO angelegt wurden. "<N <,rdNNb4Vollstndig in GFA-BASIC programmiert und compiliert"<N <@rdNNn3von Alfred Nitzschke, D-3042 Munster, Am Hanloh 19.4"<N <TrdNNbVersion 3.1 vom 20. April 1987NNN)|x NNb19HP -N N"_NHP -^DNvN"_NNRNvN`x <rN <"<N| <TrN <T"<N|NprNNzSUMME:NNprNNSCHNITT4N+|p A큼N6N - rN+| -N H <r$<L8NZN`AN6NA큌N*/-/- -Cd~N4NN:N -\DNvNNNNd`NqNqNNd`^NqBNprN+| -N H <r$<L8NZN`AN6+|p A큼N6 -N H/-/- -Cd~N4L8N^N`+@NNd`NqNqNA큌N* -N NN:N -\DNvNNBNNd`nNqNprN+| -N H <r$<L8NZN`AN6B+|p A큼N6 -N H/-/- -Cd~N4L8N^N`+@RNvNNd`NqNq -N H -N H <r$<L8NZL8NfNRH -N H <r$<L8NZN`+@NA큌N* -N H -N L8NNN:N -\DNvNNBNNd`Nq+|NN+|AHNADNAN&<x*<NfNRRNvAN&<x*<NfNS8SNv -S]HfNS8+|AN&<x*<NfNSb+| N - WHgFADNNN+|AMfNADNAN&<x*<NfNSRNvAN&<x*<NfNTSNv -S]HfNT+|AN&<x*<NfNT8+|N - WHgFADNNNN:+|TADNpNRpNVpNZp NpNpNp9"<NNn Gesamtschau4"<@NpDrNpD"<N|pNRpNVpNZpNp_rNNn EINNAHMEN4rdN+|pA큼N6N - rN -C킬NNNNNd`NqNqNprNNzSUMME:NNprNNREAL:4NpNpNpD"<N <"<N|NprN -N HN*HPp"_NxN.&<x*<N^L8NfNVFNNb19HP -N N"_NHP -_DNvN"_NNRNvN`xpn"<Npn"<N| <"<N <"<N|+| -N H <r$<L8NZN`AN6/-tC|N6NNd`NqNq+|pA큼N6N - rN+| -N H <r$<L8NZN`AN6/-tCvN6+|p AN6/- -CvNH/-/- -C^~N4L8N^CvN6NNd`NqNqNAbN* -CvNNN:N -^DNvNN/- -C|NH -CvNL8N^C|N6NNd`(NqNNd`NqNprN+| -N H <r$<L8NZN`AN6NAbN* -C|NNN:N -^DNvNNNNd`NqNqNprN+| -N H <r$<L8NZN`AN6B+|p AN6 -N H/- -Cj~N4L8N^N`+@NNd`NqNqNAbN* -N NN:N -^DNvNNNNd`rNqADNN+|TpNRpNVpNZpNprNNbAUSGABENrdNNprN -N HN*HPp"_NxN.&<x*<N^L8NfNZNNNb19HP -N N"_NHP -_DNvN"_NNRNvN`x+|pA큼N6N -TNvrN -C킚NNNNNd`NqNqNprNNzSUMME:NNprNNREAL:4p"<N <"<N|p"<Np"<N| <h"<N <h"<N|+| -N H <r$<L8NZN`AN6/-tC|N6NNd`NqNq+|pA큼N6N -TNvrN+| -N H <r$<L8NZN`AN6/-tCpN6+|p AN6/- -CpNH/-/- -Cd~N4L8N^CpN6NNd`NqNqNAbN* -CpNNN:N -^DNvNN/- -C|NH -CpNL8N^C|N6NNd`(NqNNd`NqNprN+| -N H <r$<L8NZN`AN6NAbN* -C|NNN:N -^DNvNNNNd`NqNqNprN+| -N H <r$<L8NZN`AN6B+|p AN6 -N H/- -C@~N4L8N^N`+@NNd`NqNqNAbN* -N NN:N -^DNvNNNNd`rNqADNA>LNNNN:AANHxNb. |Soll wirklich die Tabelle |gedruckt werden ?HPNn NEIN | JA r"_ NJ+@ -UWHfNpNprNNDrucker einschalten !! nNprNpNRWHgN^p2NN`+|p A큼N6/-tCpN6/-tCvN6NNd`NqNq+|NprNNListe wird gedruckt ...4NNpNNp@NNNpNNplNpNNNpNNNz GESAMTUEBERSICHT -NN - 194 -NNNNNp:NNz Liste vom N*NNNNNNNpNNNz AUSGABENNNNNN+|pA큼N6N -C킚NHPp"_NPNNNprNN7z.Zt. Ausdruck der Ausgaben: NNpr2N -C킚NHPp"_NPNNNNNN 2+|p AN6NN  -C킦NNNNd`NqNqNNNN+| -N H <r$<L8NZN`AN6NAbN* -N H <r$<L8NZH -N L8N^NN:NNz +|p AN6Np NNAbN*/-/- -Cd~N4NN:/- -CpNH/-/- -Cd~N4L8N^CpN6NNd`NqNqNNNNd`NqNNNNGESAMT:+|p AN6Np NNAbN* -CpNNN:NNd`NqNqNNNNSCHNITT+|p AN6Np NNAbN* -CpNH -N H <r$<L8NZL8NNN:/-tCpN6NNd`NqNqNNNNNNNNd`NqNp NNNpNNN EINNAHMENNNNNN+|pA큼N6N -C킬NHPp"_NPNNNprNN7z.Zt. Ausdruck der Einnahmen: 4Npr2N -C킬NHPp"_NPNNNNNN 2+|p AN6NN  -C킦NNNNd`NqNqNNNN+| -N H <r$<L8NZN`AN6NAbN* -N H <r$<L8NZH -N L8N^NN:NNz +|p AN6Np NNAbN*/-/- -C^~N4NN:/- -CvNH/-/- -C^~N4L8N^CvN6NNd`NqNqNNNNd`NqNNNNGESAMT:+|p AN6Np NNAbN* -CvNNN:NNd`NqNqNNNNSCHNITT+|p AN6Np NNAbN* -CvNH -N H <r$<L8NZL8NNN:/-tCvN6NNd`NqNqNNNNNNNNd`NqNp NNNpNNplN -N H <r$<L8NZ&<x*<N@&<x*<NZN`NNNpNNNzGESAMTEINNAHMEN:NNprNN7z.Zt. Ausdruck der Gesamt-Einnahmen 4NNNNNpN+| -N H <r$<L8NZN`AN6NAbN* -N H <r$<L8NZH -N L8N^NN:NNz /-tC|N6NNd`NqNqNNNN+|pA큼N6N -C킬NHPp N"_NHPp"_NPN+| -N H <r$<L8NZN`AN6/-tCvN6+|p AN6/- -CvNH/-/- -C^~N4L8N^CvN6NNd`NqNqNNz NAbN* -CvNNN:/- -C|NH -CvNL8N^C|N6NNd`6NqNNNNd`NqNNNNNNzSUMME +| -N H <r$<L8NZN`AN6NNz NAbN* -C|NNN:NNd`NqNqNNNNzREAL +| -N H <r$<L8NZN`AN6B+|p AN6 -N H/- -Cj~N4L8N^N`+@NNd`NqNqNNz NAbN* -N NN:NNd`NqNqNNNNNNNNNNNNNpNNNGESAMTAUSGABEN:NNprNN7z.Zt. Ausdruck der Gesamt-Ausgaben 4NNNNNpN+| -N H <r$<L8NZN`AN6NAbN* -N H <r$<L8NZH -N L8N^NN:NNz /-tC|N6NNd`NqNqNNNN+|pA큼N6N -C킚NHPp N"_NHPp"_NPN+| -N H <r$<L8NZN`AN6/-tCpN6+|p AN6/- -CpNH/-/- -Cd~N4L8N^CpN6NNd`NqNqNNz NAbN* -CpNNN:/- -C|NH -CpNL8N^C|N6NNd`6NqNNNNd`NqNNNNNNzSUMME +| -N H <r$<L8NZN`AN6NNz NAbN* -C|NNN:NNd`NqNqNNNNzREAL +| -N H <r$<L8NZN`AN6B+|p AN6 -N H/- -C@~N4L8N^N`+@NNd`NqNqNNz NAbN* -N NN:NNd`NqNqNNNNNNNNNNNNNNNNListe ausgedruckt am N*NNz, NHPp"_NPNNz UhrNADNNNN:ADNpNRpNVpNZp NpnrZNNbBedienungshinweise"<NpNRpNVpNZp N <rZNNn5AUTOMATIK: Durch Maus-Click knnen Sie weiter whlen"<N <rZNNb Click - Maustaste links: WEITERN <rZNNb Click - Maustaste rechts: ZURCKN <"rZNNbClick - beide Maustasten: ENDEN <TrZNNnWeiter mit Maus-Click4NADNADNNNN:ADNpNRpNVpNZp NpnrZNNb Datenstand"<NpNRpNVpNZp N <rZNNnLetzte Sitzung vom 4HPA큶"_NHPNb, "_NHPHm p"_NP"_NHPNb Uhr"_N"<N <rZNNnHeutiges Datum HPN*"_NHPNb, "_NHPNHPp"_NP"_NHPNb Uhr"_N"<N <rZN -N NHPNn Dateien eingelesen"_NN <rZNNn%Verfgbare Daten von JAN/1984 bis HP -C킦N"_NHPNn/194"_NHP -N &<x*<N^N"_N"<NADNADNNNN:ADNHxNb. | Wollen Sie das Programm | wirklich beenden?HPNn NEIN | JA r"_ NJ+@ -UWHfNuNNtAD.NNNN)| +|pA큼N6/-N|C킬NlNNd`NqNq)|c +|pA큼N6/-N|C킚NlNNd`NqNq)|% +|p A큼N6/-N|C킦NlNNd`NqNqB Bp6A큼N6/-N|C킸NlNNd`NqNqNnJahresvergleich von 1984 - 4HPN*HPp"_Nx"_NC큀NNb######C큌NNn######CbNNb __.__.____C큶NNb__:__:__C NNNNHxNn'Sind Datum und Zeit richtig?| |Datum: HPN*"_NHPNn |Zeit: "_NHPNHPp"_NP"_NHPNb Uhr"_NHPNn Falsch| OK 4r"_ NJ+@ -SWHfNwNp r NNz"Datum eingeben (TT.MM.JJJJ) : NNCNNp r NNz"Zeit eingeben (Std:Min) : NNC NHm A"_NNNN+| -J^HfNxNprNNz -NNz Dateien eingelesen N -N H <r$<L8NZN`+@ - WHfNx -N H <r$<L8NZN`+@Nx+mȂADNNx -JWHfNxA7NA7NNNAANA7NNNDESK HAUS / VERGLEICH----------------------123456EINNAHMEN Gehalt Tr-Geld Versicherung Zinsen Gutschrift Verkauf Lotto/Toto Sonstiges-------------- AUTOMATIKAUSGABEN Haushalt Miete/NK Einrichtung Kleidung Auto Versicherung Ausgehen Casino Telefon Urlaub FS/Radio Zeitschriften Computer Schallplatten Video Weiterbildung Lotto Kredit berweisung Sonstiges--------------- AUTOMATIKBERSICHT Gesamtschau Druckliste ---------------- ProgrammendeHILFE Bedienung Datenstand GEHALTTR-GELDVERSICHERUNGZINSENGUTSCHRIFTVERKAUFLOTTO/TOTOSONSTIGESHAUSHALTMIETE/NKEINRICHTUNGKLEIDUNGAUTO VERSICHERUNGAUSGEHENCASINOTELEFONURLAUBFS/RADIOZEITSCHRIFTENCOMPUTERSCHALLPLATTENVIDEO WEITERBILDUNGLOTTO KREDITUEBERWEISUNGSONSTIGESJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECD nV>P H F: F v B>v B2*(b$B(b$h4bh4<66.7B ( :H 64644^6 ^6 | Z:   * ^0 \0 &(*" &(*"~ vJ  t:0   `qX>R` Efv*oM! m HPHUBg?<JNA(m)m -\:gS)@ -OK1PC#HNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN(ALNHz2?< NA\pdAxr0XQ)K\NNbbJrBjNuHz?<&NN\CAp$L Qp NBBlJpNNBpMNB9@pdAr 0Q0tr N9lNNupealp`NuaN,Hz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu &8*:EENuHnn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNtpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N@?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NRJFkSFk&aQNR`Ha"FFaQL8N&6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N&<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dNAXJ@jNNuJ@jD@vqapvN)@p `H@)@prtNAHplrtNB 2pNpNtpapaprapalpalpalpaTpaTpaTBp'a?<NNT@B){L9|0<rtNpapap9@p`pvNv`v`vj`v `v`v`v`?Aa*` Al 2l 4)lVH)lRprtNAl 2l 4HVNuAl 2l 4L VA0000000000prtN9Cp rtNAv` Av `Avl 2l 4)lVHNaBp0,l 2Nua40,HNua*p0,l 4Nuaprt0,l 22,l 44,NuN9||BlBlrҌpsNBNu@((?<NN.?<NNX@LvA HA HNupmrtA)HA)HN(* 9AJA)H@@[000][ˈN Evz`* [g" ]g |g QSz` zQSpQ][ɈN Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NBHNur|<N @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NNr"l`dpNAtrdJhk\QpaNH ld$l`"Hg: k&@0+R`g k#&@0+S@H3 Q&f)I`LNuApNN$NZ$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpN _0HpNp"_0HqNp"_0HqNE ұeHHQ0)N$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNWHNu Ihd*NZ$E$RR@H`2QˈN ENu Ihd"*NZ$E8*$R`"QˈN ENu2)A IJAfr4(Ae*RBBc0*SA?NZ$E$R`QˈN ENup`(* 0(iNZ$E 4R`Q$D 4R`QˈN DN ENua NuN IHPg"B  g &gN>JBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkN.RB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<,NATANpN?<*NATANp N"H2X@N:0H@?N:AAN"H2@N.0H@N.YdNHAN2p <0NZ`QNu, NtaoR6 .fJS@gFt ao>AA .f4S@g04<;ark(AjA AbAPjAdYA??<+NAX FNta>k:Y6 :fRS@g*t;a(k$AA :fRS@g t;akIA??<-NAXNurxS@k0  bS@jrNu .g( :g"0  b DBb BdeS@jJANuSR@JANuH&NրN댶jNuNq Y Qf*d ЀЀ 2$4BBNuHRp` HRpJQfpNNq Y Qfd ЀЀNuNN$_& Y Qf d փփABJk 0NNN"$_& if"QdփփHRNHNN~,Nq8DRzXEEg"7PNqR$HBJBgpNJgJigp`eetЂ`"ЀeЁdp`ЀeЀe"Ѕe$W.H@@NL"2` NqR YEjrd0` SjN" KC`e Nr`d \N l\Ӭ\ NupNd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNu??<NMXNuPj0,lf$J,nk l*fp?Np N9|nNA0,l2J,jk 0"fZRAR@ 0"g 0 f` 0 g 0,f9@lTll`BllA"H"g"A4`Q"AA 0! NuS@R@ 0 g 0,f9@lRll`R@ 0 fQj`Bll?<?<?<NM\NHQN&g ! ge l*g l*gpNNu<,*?Hj\F FfN`H FfN`RGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"N<(`|HP?N<pg2JFg W"X2@e2<A`QNCpR@ 1 fA 0! "_NHp`pJ@gHzZ?<&NN\NuB?< NA\Av ACLElp"Jg X\QC"C!/:@?< NA\NuLH!NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A6@ Ni LHL|1R/:?< NApdK`HaJLxNNu)H9@Jp4NBP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNN,HP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.0| Copyright 1986|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehlertHB9BL@@TAt )l g.A( f hgSASAgRB`9BJNBSAgNun)l g,vARC( g9CJ9|Lp!,NB FPeNunA JpBQA/)H )l gBlJpNBB Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8NBp>L8NnAJ0?C bL000zH?A/.)HpNBLrHH/>Bl/,ff.f.ffNu l /.g&, ^`D&, N`>&, R`8&, V`2&, Z`,2,/4WAARA0,/6A hfRAS@f9A/,&, Jo ? CN0`@k Ap0(/.NuA Nup)@JphNBLtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, NB"F QNu?S@k&8L &LeBLe,C`(A? fHa)_ 2TNuBlJ`l *bl ,bH .N*0S@k@>A PC/~. 0(JgRJ)@g1@CJ2fP2HP" &" *pdNB0,r W1@AJ00 piNB9|L@NpiNB _CL""pe`9| LpiNB9|LphNBLtH 2H/`SBSC@AHH/jP 6P/^P0<rtNpapapapaL/jr`S@k6@ A 9PJg8BPpfNBpgNB9| LphNB9@JfdBlJa\Q 6BB 2`NuS@k @ A 9pJg a$Bp`NuHS&I. FV 7p&N9l/h8,:,L/d4,pĴ@cS@9@p4,rŴAcBSA9Ar`8pJ, 7fnJ/^k0 Eg$2,/h pg  qfH9A/hpjNx`WHgpNppNtpNxp NpNpNprNpnrZNN Haushaltsverwaltung4"<NpxrZNpx"<&NpNppNtpNxpN <rZNNEin Public-Domain-Programm von"<N <rZNN.Alfred Nitzschke, Am Hanloh 19, D-3042 Munster"<N <rZNN2Das Programm HAUSMO ist vollstndig in GFA-Basic"<N <rZNN geschrieben und compiliert.nN <rZNN 5Das GFA-Basic-Programm knnen Sie beim Autor erhalten4"<N <rZNN ?gegen Einsendung von 1 Diskette, einem frankierten Rckumschlag"<N <rZNN und DM 10.--N <rZNN>Wenn Sie bisher kein GFA-Basic benutzen und dennoch mit diesem"<N <rZNN 9ntzlichen Programm arbeiten wollen, aber Ihre Konten und4"<N <rZNN>Einnahmen bzw. Ausgaben nicht mit den Vorgaben bereinstimmen,"<N <rZNNpA>ND ->CbNACbNA0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8N6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dNAXJ@jNNuJ@jD@vqapvN)@p `H@)@prtNAHplrtNB 2pNpNpapaprapalpalpalpaTpaTpaTBp'a?<NNT@B){L9|0<rtNpapap9@p`pvNv`v`vj`v `v`v`v`?Aa*` Al 2l 4)lVH)lRprtNAl 2l 4HVNuAl 2l 4L VA0000000000prtN9Cp rtNAv` Av `Avl 2l 4)lVHN,aBp0,l 2Nua40,HNua*p0,l 4Nuaprt0,l 22,l 44,NuN9||BlBlrҌpsNBNu(* 9AJA)H@@[000][ˈN Evz`* [g" ]g |g QSz` zQSpQ][ɈN Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NHNur|<N @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN8"l`dpNAtrdJhk\QpaNH ld$l`"Hg: k&@0+R`g k#&@0+S@H3 Q&f)I`LNuApNN$N $BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpN _0HpNp"_0HqNPp"_0HqNPE ұeHHQ0)N$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNdWHNu Ihd*N $E$RR@H`2QˈN ENu Ihd"*N $E8*$R`"QˈN ENu(* 0(iN $E 4R`Q$D 4R`QˈN DN ENua NuN IHPg"B  g &gNJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNRB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<,NATANtpN?<*NATANp N"H2X@N4:0H@?N4:AAN2"H2@N4.0H@N4.YdN2HAN2, NtaoR6 .fJS@gFt ao>AA .f4S@g04<;ark(AjA AbAPjAdYA??<+NAX FNta>k:Y6 :fRS@g*t;a(k$AA :fRS@g t;akIA??<-NAXNurxS@k0  bS@jrNu .g( :g"0  b DBb BdeS@jJANuSR@JANuH&NրN̶jNuNq Y Qf*d ЀЀ 2$4BBNu$HRp` HRpJQfpN4Nq Y Qfd ЀЀNuNN$X$_& Y Qf d փփABJk 0NN"N$_& if"QdփփHRNNN"~,Nq8DRzXEEg"7PNqR$HBJBgpNJgJigp`eetЂ`"ЀeЁdp`ЀeЀe"Ѕe$W.H@@NL"2` NqR YEjrd0` SjN$_NtЀЀ 2$4BBN YQf "_Nq*eN"N*< NqbІSGfN$_NփփHRN YQf "_&Nq*eN"N*<&NqbֆSGfN" KC`e N8`d \N l\Ӭ\ NupNd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNu??<NMXNuPj0,lf$J,nk l*fp?NHp NH9|nNA0,l2J,jk 0"fZRAR@ 0"g 0 f` 0 g 0,f9@lTll`BllA"H"g"A4`Q"AA 0! NuS@R@ 0 g 0,f9@lRll`R@ 0 fQj`Bll?<?<?<NM\NHQNb&g ! ge l*g l*gpNNu<,*?Hj\F FfN`H FfN`RGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNHLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"N<(`|HP?N<pg2JFg W"X2@e2<A`QNCpR@ 1 fA 0! "_Np`pJ@gHzZ?<&NN\NuB?< NA\Av ACLElp"Jg X\QC"C!/:@?< NA\NuLH!NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A6@ Ni LHL|1R/:?< NApdK`HaJLxNNu)H9@Jp4NP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNtHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.0| Copyright 1986|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehlertHB9BL@@TAt )l g.A( f hgSASAgRB`9BJNSAgNun)l g,vARC( g9CJ9|Lp!,N FPeNun^A JpBQA/)H )l gBlJpNB Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8Np>L8NnAJ0?C bL000zH?A/.)HpNLrHH/>Bl/,ff.f.ffNu l /.g&, ^`D&, N`>&, R`8&, V`2&, Z`,2,/4WAARA0,/6A hfRAS@f9A/,&, Jo ? CN0`@k Ap0(/.NuA Nup)@JphNLtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, N"F QNu"l`Yd&-KNN8"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`$Y8gHRDD*D%H8#$c2g# HRDD%H`/&#k gH`X-KNu)H,Bl0NuE+000 l,N0l0oNPNuaNBHP l,"X42,0Rl0Bd1 _g !g &g, \g2NH`Rl01` _NJ@fp NH0NH _N NPpR@RABd 1\fRA9A0 _/N"@cԒ@H/NP Np?NH _Np?NHLNH l,"X42,0Rl0Bd1 _g,vxz| +g. -g( *g $g" #g NH`Rl01`` `RCRABd1 _fRA` #g $g *g ,g ^gB +gZ -gT .fRxRDRABdH1 #g ^g +g. -g( _f&RA`RERABd1 ^g +g -f2ALH@ք/NZ"NNp CJNp CVNpCNpCNHx pC~NHx pC~Np CNp CNpCNpCNp C\NA7NAF\NN^HPN 06.02.1986"_NfN7AC8NA>NNtN(pNpN+|r -r"-rN -rDNv/ -rDNv"N: WHgpNpNpNp NpNpNprNpdrZNNJahresvergleich4"<NrpnrZNpn"<&NpNpNpNpN <rZNNEin Public-Domain-Programm von"<Nr <rZNN.Alfred Nitzschke, Am Hanloh 19, D-3042 Munster"<Nr <rZNN2Das Programm HAUSJA ist vollstndig in GFA-Basic"<Nr <rZNNgeschrieben und compiliert.nNp <rZNN5Das GFA-Basic-Programm knnen Sie beim Autor erhalten4"<Nr <rZNN?gegen Einsendung von 1 Diskette, einem frankierten Rckumschlag4"<Nr <rZNN und DM 10.--Np <rZNN@Dieses Programm nutzt die Daten, die Sie mit dem Programm HAUSMO"<Nr <rZNNangelegt haben.aNp <rZNN>Wenn Sie bisher kein GFA-Basic benutzen und dennoch mit diesem"<Nr <rZNN9ntzlichen Programm arbeiten wollen, aber Ihre Konten und4"<Nr < rZNN>Einnahmen bzw. Ausgaben nicht mit den Vorgaben bereinstimmen,"<Nr <rZNN+| rpArN&p"-rN NN`NqNqN>+| rpArN&p"-rN NN`NqNqprN N^HPp"_NNbH <r$<L8NND+@+mrp ArN&p"-rN NN`NqNq)|A JNN`NNtN:AENpNpNpNp NpNpN -nSWHfN?Hm8N 19"_NHPA>"_NCNN?A8CNpPrFNA"<NrpZrFNpZ"<7NpNpNpNp NpN VHfNAx <rdNN3Ein Programm zur Verarbeitung von Haushaltsdateien,"<Nr <rdNN3die mit dem Programm HAUS/MO angelegt wurden. 4"<Nr <,rdNN4Vollstndig in GFA-BASIC programmiert und compiliert"<Nr <@rdNN3von Alfred Nitzschke, D-3042 Munster, Am Hanloh 19.4"<Nr <TrdNNVersion 3.1 vom 20. April 1987NpNNtpNC\N2HPN HAUS / JAHRi"_NfNAA?,NAFNAENpNC\N2HPN Programmende"_NfNB Ag0NpNC\N2HPN Druckliste"_NfNBFAZhNpNC\N2HPN Grafik"_NfNB|AgDNpNC\N2HPN Gesamtschau"_NfNBATNpN WHfNBAJNpN WHfNBANNpN ^HfNC,pN+@zAGfNN:NNtN(HxN'Sind Datum und Zeit richtig?| |Datum: 4HPN^"_NHPN |Zeit: 4"_NHPNHHPp"_N"_NHPN Uhr"_NHPN Falsch| OK r"_ N+@v -vSWHfND <"<N <"<NNp rNNDatum (TT.MM.JJJJ) : 4A r NNprNNZeit (Std:Min) : 4A&rNHm&A "_NN(NNtNprNp*NNB -~S^HfNE@NprN -~NH <r$<L8NNN DATEIEN VON 194A>NN GELESEN NB+|nAFNNE\ -~SWHfNE\AEnNA7NNNtHxN: | Keine Daten vorhanden !! | | Programm wird abgebrochen!HPN OK r"_ N+@vNtNNtpNpNprN <"<NFNNtNH A퀮N A퀮N A퀮NA퀮N&<x*<NgNFTN`NNt)| +|rpArN&/-rNC8NNN`NqNq)|V +|rpArN&/-rNC>NNN`NqNq)| +|rp ArN&/-rNCVNNN`NqNqB Brp ArN&/-rNC\NNN`NqNqN######CJNNJahresabrechnungC8NNNtN: -zNNHPp"_NC>N+|~p A~N&p0NHP -~NN"_NHPp"_NCPNNHH/HPAP"_NHPp/N"_NHPA>"_NHPN.DAT"_NCN)|D NN GELESEN !NB+|n+| rpArN&p"-rN NN`NqNqAFNAENNNtN:AENpNpNpNp NpNpNp7rNN'bersicht aller EINNAHMEN des Jahres 19 HPA>"_N"<CNrp?rNp?"<NpNpNNprNN ART: +|rpArN&N -rC8N2HPp"_NNN NN`NqNq+|r -~NH <r$<L8NNDArN&N -r^NvrN -rCVN2NN 4+|pA큂N&NAJN*/-r -C~NRNN:NN NN`NqNqNN`xNqpdrNpd"<NpdrFN -~NvN&<x*<NNDrFN -~NvN&<x*<NNDrN -~NvN&<x*<NND"<NN -~ rNN SUMME: +|pA큂N&/-tCNT+|r -~NH <r$<L8NNDArN&/- -CNH/-r -C~NRL8NCNTNN`NqNqNAJN* -CNNN:NN NN`FNqN -~ rNN SCHNITT: +|pA큂N&NAJN* -CNH -~NH <r$<L8NL8NNN:NN NN`NqNq <|rN <|"<N -~ ]HfNNXNprNNStand 4N^NNpr>NNWeiter mit ClickAFNAENNNtN:AEN+|pNpNpNp NpNpNp7rNN&bersicht aller AUSGABEN des Jahres 19HPA>"_N"<CNrp?rNp?"<NpNpNNprNN ART: -NH <r$<L8NND+@ -A큆N&N -C>N2HPp"_NNN NN`NqNq+|r -~NH <r$<L8NNDArN&N -r^NvrN -rCVN2NN 4 -NH <r$<L8NND+@ -A큆N&NAJN*/-r -C~NRNN:NN NN`NqNqNN`TNqpdrNpd"<NpdrFN -~NvN&<x*<NNDrFN -~NvN&<x*<NNDrN -~NvN&<x*<NND"<NN -~ rNN SUMME: -NH <r$<L8NND+@ -A큆N&/-tCNT+|r -~NH <r$<L8NNDArN&/- -CNH/-r -C~NRL8NCNTNN`NqNqNAJN* -CNNN:NN NN`FNqN -~ rNN SCHNITT: -NH <r$<L8NND+@ -A큆N&NAJN* -CNH -~NH <r$<L8NL8NNN:NN NN`NqNq <|rN <|"<N -~ ]HfNSrNprNNStand 4N^NNpr#NNTeil -N&<x*<NNNNpr>NNWeiter mit ClickAFN -\Nv+@ - ^HgNTN`"_N"<CNrp?rNp?"<NpNpNNprNNEMonat Einnahmen Ausgaben Differenz4NB+|r -~NH <r$<L8NNDArN&N -r^NvrN -rCVN2NN 4NN`NqNq+|r -~NH <r$<L8NNDArN&N -r^NvrNNAJN* -rCNNNR -rCNANNANNN`NqNq+|r -~NH <r$<L8NNDArN&N -r^Nvr.NNAJN* -rCNNNR -rCNANNANNN`NqNq+|r -~NH <r$<L8NNDArN&N -r^NvrDNNAJN* -rCNH -rCNL8NNNRANANNANNN`NqNqpdrNpd"<NpdrFN -~NvN&<x*<NNDrFN -~NvN&<x*<NNDrN -~NvN&<x*<NND"<NN -~ rNNSUMME: NBN -~ rNNAJN*ANNNRN -~ r.NNAJN*ANNNRN -~ rDNNAJN*ANNNRN -~ rNNSCNITT:4NBN -~ rNNAJN* -~NH <r$<L8NANNNNRN -~ r.NNAJN* -~NH <r$<L8NANNNNRN -~ rDNNAJN* -~NH <r$<L8NANNNNR <|rN <|"<N -~ ]HfNZ*NprNNStand 4N^NNpr>NNWeiter mit ClickAFNAENNNtN:A?,NHxN. |Soll wirklich die Tabelle |gedruckt werden ?HPN NEIN | JA 4r"_ NA$NA$N&<x*<NfNgNprNNDrucker einschalten !! nNBprNpNRWHgN[Pp2NN`+|pA큆N&/-tCNTNN`NqNq+|pA큂N&/-tCNTNN`NqNqBmBmBmNprNNListe wird gedruckt ...4NBN pNNp@NNN pNNplNHpNNN pNNNJAHRESUEBERSICHT 194A>N -~ ]HfN\N N (1- -~NH <r$<L8NNp)NHNBN NBN NBN NBN pNNNAUSGABENNB+|vp r AvNTN NBN NBN NBN pNNp-NHpNNN NMONAT +mv -v A큆N&N p NH -C>N2HPp"_NNNN`NqNqN pNNp-NHpNNN NBN NB+|r -~NH <r$<L8NNDArN&N -rCVN2NN +mv -v A큆N&N p NHN AJN*/-r -C~NRNN:/- -CNH/-r -C~NRL8NCNTNN`NqNqN NBNN`HNqN NBN NSUMME: +mv -v A큆N&N p NHN AJN* -CNNN:NN`NqNqN NSCHNITT +mv -v A큆N&N AJN* -CNH -~NH <r$<L8NL8NNN:N p NHNN`NqNqN NBNN`JNqN NBN NBN NBN NB -~ ^HfN_N p NNN pNNN EINNAHMEN4NBN NBN NBN NBN pNNp-NHpNNN NMONAT!+|rpArN&N N  -rC8N2HPp"_NNNN`NqNqN pNNp-NHpNNN NBN NB+|r -~NH <r$<L8NNDArN&N -rCVN2NN +|pA큂N&N N N AJN*/-r -C~NRNN:/- -CNH/-r -C~NRL8NCNTNN`NqNqN NBNN`LNqN NBN NSUMME+|pA큂N&N N N AJN* -CNNN:NN`NqNqN NSCHNITT +|pA큂N&N AJN* -CNH -~NH <r$<L8NL8NNN:N N NN`NqNqN NBN NBN NBN NBN NB -~ ]HfNbN p NNN pNNNGESAMT - UEBERSICHTNBN NBN NBN NBN pNNp-NHpNNN N>MONAT EINNAHMEN AUSGABEN DIFFERENZNBN pNNp-NHpNNN #########CVNN NB+|r -~NH <r$<L8NNDArN&N -rCVN2NN N AVN* -rCNNN: -rCNANNANN AVN* -rCNNN: -rCNANNANN AVN* -rCNH -rCNL8NNNRNN` NqN NBN NBN NBN NSUMME: N AVN*ANNN:N AVN*ANNN:N AVN*ANANNNNRN NSCHNITT:N AVN* -~NH <r$<L8NANNNN:N AVN* -~NH <r$<L8NANNNN:N AVN*ANANNH -~NH <r$<L8NL8NNNR+|rp ArN&N NBNN`NqNqN NListe wurde ausgedruckt am 4N^NN - NHHPp"_NNN UhrNBN p NNNBN pNNp@NNAENNNtN:N(NtNNtN:pNpNpNBmBmAgtNNNtN(pNpNBrp ArN& -rNvN&<x*<NND/ -rNvN&<x*<NND"N -rNvN&<x*<NND/ -rNvN&<x*<NND"N -rNvN&<x*<NND/ -rNvN&<x*<NND"N -rNvN&<@x*< NND/ -rNvN&<x*<NND"NNN`NqNNtDESK HAUS / JAHR----------------------123456AUSWAHL Einnahmen Ausgaben Gesamtschau Druckliste Grafik-------------- ProgrammendeJAHR 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 GEHALTTR-GELDVERSICHERUNGZINSENGUTSCHRIFTVERKAUFLOTTO/TOTOSONSTIGESHAUSHALTMIETE/NKEINRICHTUNGKLEIDUNG AUTOVERSICHERUNGAUSGEHENCASINOTELEFONURLAUBFS/RADIOZEITSCHRIFTENCOMPUTERSCHALLPLATTEN VIDEOWEITERBILDUNG LOTTOKREDITUEBERWEISUNGSONSTIGESJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC< :.b0666.:> \8 8$, hdZB7 ( @F.:.f 6404|   "J & J J HD`TbTRt` Efv*oM#> m HPHUBg?<JNA(m)m -&:gS)@ -OK1PC#HNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN(ALNHz2?< NA\pdAxr0XQ)K\NNx666JrBjNuHz?<&NN\CAp$L Qp NߔBlJpNNߔpMNߔ9@pdAr 0Q0tr N9lNupealp`NuaN,Hz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu &8*:EENuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8N6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dNAXJ@jNNuHPa _N4p"Np,`BNN&]NJ@jD@vqapvN)@p `H@)@prtNAHplrtNB 2pNpNpapaprapalpalpalpaTpaTpaTBp'a?<NNT@B){L9|0<rtNpapap9@p`pvNv`v`vj`v `v`v`v`?Aa*` Al 2l 4)lVH)lRprtNAl 2l 4HVNuAl 2l 4L VA0000000000prtN9Cp rtNAv` Av `Avl 2l 4)lVHN*aBp0,l 2Nua40,HNua*p0,l 4Nuaprt0,l 22,l 44,NuN9||BlBlrҌpsNBNu(* 9AJA)H@@[000][ˈN Evz`* [g" ]g |g QSz` zQSpQ][ɈN Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NߔHNur|<N @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN6"l`dpNAtrdJhk\QpaNH ld$l`"Hg: k&@0+R`g k#&@0+S@H3 Q&f)I`LNuApNN$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpN _0HpNp"_0HqNp"_0HqNE ұeHHQ0)N$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNbWHNuNbVHNu Ihd*N$E$RR@H`2QˈN ENu Ihd"*N$E8*$R`"QˈN ENu(* 0(iN$E 4R`Q$D 4R`QˈN DN ENua NuN IHPg"B  g &gNJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNRB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<,NATAN|pN?<*NATANp N"H2X@N<:0H@?N<:AAN:"H2@N<.0H@N<.YdN:HAN:2p <0N`QNu, NtaoR6 .fJS@gFt ao>AA .f4S@g04<;ark(AjA AbAPjAdYA??<+NAX FNta>k:Y6 :fRS@g*t;a(k$AA :fRS@g t;akIA??<-NAXNurxS@k0  bS@jrNu .g( :g"0  b DBb BdeS@jJANuSR@JANupC 0(gFd"P$I` *N$E$R(S@jv A(Wf( ae zb Q DNujNq Y Qf*d ЀЀ 2$4BBNuHRp` HRpJQfpNNq Y Qfd ЀЀNuNN$_& Y Qf d փփABJk 0NNN$_& if"QdփփHRN NN~,Nq8DRzXEEg"7PNqR$HBJBgpNJgJigp`eetЂ`"ЀeЁdp`ЀeЀe"Ѕe$W.H@@NL"2` NqR YEjrd0` SjN" KC`e N6`d \N l\Ӭ\ NupNd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNu?k?<NM"UAf J@fH@NuDW?<NMXNuPj0,lf$J,nk l*fp?Np N9|nNA0,l2J,jk 0"fZRAR@ 0"g 0 f` 0 g 0,f9@lTll`BllA"H"g"A4`Q"AA 0! NuS@R@ 0 g 0,f9@lRll`R@ 0 fQj`Bll?<?<?<NM\NHQNj&g ! ge l*g l*gpNNu<,*?Hj\F FfN`H FfN`RGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"N"p`tdbDA0Hg<<R@f|0HN*JFk*HQ/??<?NAXfX ENuJkpNp`p`\F( &I.` ??<NMXJ[j E&DNuak NupNuakfpNupNtddA0oH?<?B?<BNA Jk.,?<?B?<BNA *kBg?/?<BNA JkNuN<(`|HP?N<pg2JFg W"X2@e2<A`QNCpR@ 1 fA 0! "_N p`pJ@gHzZ?<&NN\NuB?< NA\Av ACLElp"Jg X\QC"C!/:@?< NA\NuLH!NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A6@ Ni LHL|1R/:?< NApdK`HaJLxNNu)H9@Jp4NߔP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNN~HP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.0| Copyright 1986|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehler"l`Yd&-KNN6"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`$Y8gHRDD*D%H8#$c2g# HRDD%H`/&#k gH`X-KNu)H,Bl0NuE+000 l,N0l0oNNuaNHP l,"X42,0Rl0Bd1 _g !g &g, \g2N`Rl01` _NJ@fp N0N _N4 NpR@RABd 1\fRA9A0 _/N"@cԒ@H/N N>p?N _N4p?NLN(H l,"X42,0Rl0Bd1 _g,vxz| +g. -g( *g $g" #g N`Rl01`` `RCRABd1 _fRA` #g $g *g ,g ^gB +gZ -gT .fRxRDRABdH1 #g ^g +g. -g( _f&RA`RERABd1 ^g +g -f2ALH@ք/Nd"NFC " Lx2DE A,b -fEt1BQt1$0000QE[JEft Q0JgE\J"f0J"ff JFj-Sg$E[JEgRE\JEg vJ*g RCJ*f~ g~*Jf`9I0p%NLN(NuE[JEg*ÒEA, gSAR`Ô l,HQ?HjSl0 l,"X0Rl0gL _g0 ,g .g +g( -g $_HRN`$W "0d`Rl0`p Jojp-`Sl0NuNN <CN* <C$N* <CN* <CN*pC N* <CN*pCN* <C*N* <C0N*NfHPN 06.02.1986"_NfN4A9N AN 0 <r$<ANNANN/NC NNNb`NqNqAN 0 <r$<ANNANN/NCNNNb`NqNqpNpNpNp NpNpNp7rNp7"<Np(r2NNSCHECK-BUCH / BERSICHT"<NpAQN )|; NNp r NN Datum: NfN4N (N/_)NpNNC퀜N A퀜NHPpNN"_NfN=Np rNpN>NNp rNANCNr NN=Np r"Np N>NAN/NfCNNp r NN Betrag: NPnAN/NCNANCNhzNFfN>NN=Npr NN An wen: ANC$NrNAN/ANC$NNC$NNpr NN Zweck: ANC*NrNAN/ANC*NNC*NNpr NNScheck-Nummer: _ANC0NrNAN/N000HPANC0N"_N$C0NNpr NNScheck-Art: 4AN 0 <r$<ANNNANN$N = ANNCNN4N|N|N|N|N|NNb`NqNqAN/pNCNANCNNj&<x*<NpJBgp/ANCNNj&<x*<NpJBgp$VHfN@TNN?2A< 0p9rN <t"<NDN@AN`Npr Np2N>NNN~AN&<x*<NFfNDBmXpNpNp9rN <t"<NDBm:BmFA* 0ANA*NA*NCNHPp*N"_NfNC`A6N&<x*<N&A0NNA0NrNNA*NCNN4NA0NrNNN### #####.## DM4NA*NNdA*NCNhNdNNA0NrNA*NCNNjNCNN4NA0NrNA*NC0NHPp"_NN4NA0NrNA*NC$NN4NA0Nr2NA*NC*NN4NA0NrENA*NCNN4NA*NCNhATNN&ATN <6Ѝ/ <r$< _N WHgpNpNpNpN <rZNNEin Public-Domain-Programm von"<Np <rZNN.Alfred Nitzschke, Am Hanloh 19, D-3042 Munster"<Np <rZNN4Das Programm SCHECKBU ist vollstndig in GFA-Basic"<Np <rZNNgeschrieben und compiliert. Nn <rZNN5Das GFA-Basic-Programm knnen Sie beim Autor erhalten4"<Np <rZNN?gegen Einsendung von 1 Diskette, einem frankierten Rckumschlag"<Np <rZNN und DM 10.--NnpNpNprNpNpNpN <N"<,NNCLICK4r#NpAQXN NN~EINTRAGAUSTRAGTABELLELISTEENDEGIROPOSTFd4h4 r| | | | VP >B,HtXZvt2tވX`QHRb` Efv*oM# m HPHUBg?<JNA(m)m -":gS)@ -OK1PC#HN>Hx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN(ALN@Hz2?< NA\pdAxr0XQ)K\NNx$$$JrBjNuHz?<&NN\CAp$L Qp NBlJpNNpMN9@pdAr 0Q0tr N9lNupealp`NuaN,Hz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu &8*:EENuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8N26.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N2<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dNAXJ@jNNuHPa _N`p"Np,`BNNR]NJ@jD@vqapvN)@p `H@)@prtNAHplrtNB 2pNpNpapaprapalpalpalpaTpaTpaTBp'a?<NNT@B){L9|0<rtNpapap9@p`pvNv`v`vj`v `v`v`v`?Aa*` Al 2l 4)lVH)lRprtNAl 2l 4HVNuAl 2l 4L VA0000000000prtN9Cp rtNAv` Av `Avl 2l 4)lVHNVaBp0,l 2Nua40,HNua*p0,l 4Nuaprt0,l 22,l 44,NuN9||BlBlrҌpsNBNu(* 9AJA)H@@[000][ˈN Evz`* [g" ]g |g QSz` zQSpQ][ɈN Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NHNur|<N @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NNb"l`dpNAtrdJhk\QpaNH ld$l`"Hg: k&@0+R`g k#&@0+S@H3 Q&f)I`LNuApNN$NJ$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpN _0HpNp"_0HqNp"_0HqNE ұeHHQ0)N$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNWHNuNVHNu Ihd*NJ$E$RR@H`2QˈN ENu(* 0(iNJ$E 4R`Q$D 4R`QˈN DN ENua NuN IHPg"B  g &gNJJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNRB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<,NATAN|pN?<*NATANp N"H2X@N<:0H@?N<:AAN:"H2@N<.0H@N<.YdN:HAN:2p <0NJ`QNu, NtaoR6 .fJS@gFt ao>AA .f4S@g04<;ark(AjA AbAPjAdYA??<+NAX FNta>k:Y6 :fRS@g*t;a(k$AA :fRS@g t;akIA??<-NAXNurxS@k0  bS@jrNu .g( :g"0  b DBb BdeS@jJANuSR@JANupC 0(gFd"P$I` *NJ$E$R(S@jv A(Wf( ae zb Q DNujNq Y Qf*d ЀЀ 2$4BBNuHRp` HRpJQfpNNq Y Qfd ЀЀNuNN$_& Y Qf d փփABJk 0NNN$_& if"QdփփHRN8NN~,Nq8DRzXEEg"7PNqR$HBJBgpNJgJigp`eetЂ`"ЀeЁdp`ЀeЀe"Ѕe$W.H@@NL"2` NqR YEjrd0` SjN" KC`e Nb`d \N l\Ӭ\ NupNd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNu?k?<NM"UAf J@fH@NuDW?<NMXNuPj0,lf$J,nk l*fp?Np N9|nNA0,l2J,jk 0"fZRAR@ 0"g 0 f` 0 g 0,f9@lTll`BllA"H"g"A4`Q"AA 0! NuS@R@ 0 g 0,f9@lRll`R@ 0 fQj`Bll?<?<?<NM\NHQNj&g ! ge l*g l*gpNNu<,*?Hj\F FfN`H FfN`RGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"N"p`tdbDA0Hg<<R@f|0HNJ*JFk*HQ/??<?NAXfX ENuJkpNp`p`\F( &I.` ??<NMXJ[j E&DNuak NupNuakfpNupNtddA0oH?<?B?<BNA Jk.,?<?B?<BNA *kBg?/?<BNA JkNuN<(`|HP?N<pg2JFg W"X2@e2<A`QNCpR@ 1 fA 0! "_N8p`pJ@gHzZ?<&NN\NuB?< NA\Av ACLElp"Jg X\QC"C!/:@?< NA\NuLH!NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A6@ Ni LHL|1R/:?< NApdK`HaJLxNNu)H9@Jp4NP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNߪHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.0| Copyright 1986|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehler"l`Yd&-KNNb"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`$Y8gHRDD*D%H8#$c2g# HRDD%H`/&#k gH`X-KNu)H,Bl0NuE+000 l,N0l0oNNuaNHP l,"X42,0Rl0Bd1 _g !g &g, \g2N`Rl01` _NJ@fp N0N _N` NpR@RABd 1\fRA9A0 _/N"@cԒ@H/N Njp?N _N`p?NLNTH l,"X42,0Rl0Bd1 _g,vxz| +g. -g( *g $g" #g N`Rl01`` `RCRABd1 _fRA` #g $g *g ,g ^gB +gZ -gT .fRxRDRABdH1 #g ^g +g. -g( _f&RA`RERABd1 ^g +g -f2ALH@ք/N"NrC " Lx2DE A,b -fEt1BQt1$0000QE[JEft Q0JgE\J"f0J"ff JFj-Sg$E[JEgRE\JEg vJ*g RCJ*f~ g~*Jf`9I0p%NLNTNuE[JEg*ÒEA, gSAR`Ô l,HQ?HjSl0 l,"X0Rl0gL _g0 ,g .g +g( -g $_HRN`$W "0d`Rl0`p Jojp-`Sl0NuN,N <CN* <CN* <CN* <CN*pC N* <CN*pCN*NfHPN 06.02.1986"_NfN4A9BN HxNGIROCNHxNAMEXCNAN 0 <r$<ANNANN/NC NNN`NqNqpNpNpNp NpNpNp7rNp7"<Np(r2NNSCHECKKARTEN-KONTROLLE"<NAON )|; VA< 0p9rN <t"<NpN?bANNpr Np2NjNNNߪAN&<x*<NrfNCBmXpNpNp9rN <t"<NpBm:BmFA* 0ANA*NA*NCNHPp*N"_NfNAA6N&<x*<NRA0NNA0NrNNA*NCNN`NA0NrNNN### ######.## DMNA*NNdA*NCNhNdNNA0NrNA*NCNNjNCNN`NA0Nr(NA*NCNN`NA0NrWHgpNpNpNpN <rZNNEin Public-Domain-Programm von"<N <rZNN.Alfred Nitzschke, Am Hanloh 19, D-3042 Munster"<N <rZNN4Das Programm SCHECKKA ist vollstndig in GFA-Basic"<N <rZNNgeschrieben und compiliert. N <rZNN5Das GFA-Basic-Programm knnen Sie beim Autor erhalten4"<N <rZNN?gegen Einsendung von 1 Diskette, einem frankierten Rckumschlag4"<N <rZNN und DM 10.--NpNpNprN.pNpNpN <N"<,NNCLICK4r#NA:N NNߪEINTRAGAUSTRAGTABELLELISTEENDEx4 p| | | | VP B,HtXb~t2t`NFR` Efv*oM! m HPHUBg?<JNA(m)m -":gS)@ -OK1PC#HNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN(ALN@Hz2?< NA\pdAxr0XQ)K\NNx LLLJrBjNuHz?<&NN\CAp$L Qp N&BlJpNN&pMN&9@pdAr 0Q0tr Nt9lNupealp`NuaN,Hz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu &8*:EENuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N$?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|l  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</N6JFkSFk&aQN6`Ha"FFaQL8N6.lJgtBnlNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dNAXJ@jNNuHPa _Np"Nhp,`J@jD@vqapvNf)@p `H@)@prtNtAHplrtNtB 2pNdpNXpapaprapalpalpalpaTpaTpaTBp'a?<NNT@B){L9|0<rtNtpapap9@p`pvNfv`v`vj`v `v`v`v`?Aa*` Al 2l 4)lVH)lRprtNtAl 2l 4HVNuAl 2l 4L VA0000000000prtNt9Cp rtNtAv` Av `Avl 2l 4)lVHNVaBp0,l 2Nua40,HNua*p0,l 4Nuaprt0,l 22,l 44,NuN9||BlBlrҌpsNBNu(* 9AJA)H@@[000][ˈN Evz`* [g" ]g |g QSz` zQSpQ][ɈN Dvx`* [g" ]g |g QSx` xQSpQ]Bp4N&HNur|<N @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| Nt2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NNb"l`dpNAtrdJhk\QpaNH ld$l`"Hg: k&@0+R`g k#&@0+S@H3 Q&f)I`LNuApNN $NJ$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpN _0HpNp"_0HqNpp"_0HqNpE ұeHHQ0)N$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNWHNuNVHNu Ihd*NJ$E$RR@H`2QˈN ENu(* 0(iNJ$E 4R`Q$D 4R`QˈN DN ENua NuN IHPg"B  g &gNJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNBRB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<,NATAN|pN?<*NATANp N"H2X@N<:0H@?N<:AAN:"H2@N<.0H@N<.YdN:HAN:2p <0NJ`QNu, NtaoR6 .fJS@gFt ao>AA .f4S@g04<;ark(AjA AbAPjAdYA??<+NAX FNta>k:Y6 :fRS@g*t;a(k$AA :fRS@g t;akIA??<-NAXNurxS@k0  bS@jrNu .g( :g"0  b DBb BdeS@jJANuSR@JANupC 0(gFd"P$I` *NJ$E$R(S@jv A(Wf( ae zb Q DNujNq Y Qf*d ЀЀ 2$4BBNuHRp` HRpJQfpNNq Y Qfd ЀЀNuNN$_& Y Qf d փփABJk 0NNN$_& if"QdփփHRN8NN~,Nq8DRzXEEg"7PNqR$HBJBgpNJgJigp`eetЂ`"ЀeЁdp`ЀeЀe"Ѕe$W.H@@NL"2` NqR YEjrd0` SjN" KC`e Nb`d \N l\Ӭ\ NupNd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNu?k?<NM"UAf J@fH@NuDW?<NMXNuPj0,lf$J,nk l*fp?Nhp Nh9|nNA0,l2J,jk 0"fZRAR@ 0"g 0 f` 0 g 0,f9@lTll`BllA"H"g"A4`Q"AA 0! NuS@R@ 0 g 0,f9@lRll`R@ 0 fQj`Bll?<?<?<NM\NHQNj&g ! ge l*g l*gpNNu<,*?Hj\F FfN`H FfN`RGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNhLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"N"p`tdbDA0Hg<<R@f|0HNJ*JFk*HQ/??<?NAXfX ENuJkpNp`p`\F( &I.` ??<NMXJ[j E&DNuak NupNuakfpNupNtddA0oH?<?B?<BNA Jk.,?<?B?<BNA *kBg?/?<BNA JkNuN<(`|HP?N.<pg2JFg W"X2@e2<A`QNCpR@ 1 fA 0! "_N8p`pJ@gHzZ?<&NN\NuB?< NA\Av ACLElp"Jg X\QC"C!/:@?< NA\NuLH!NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A6@ Ni LHL|1R/:?< NApdK`HaJLxNNu)H9@Jp4N&P'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.0| Copyright 1986|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehler"l`Yd&-KNNb"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`$Y8gHRDD*D%H8#$c2g# HRDD%H`/&#k gH`X-KNu)H,Bl0NuE+000 l,N0l0oNpNuaNbHP l,"X42,0Rl0Bd1 _g !g &g, \g2Nh`Rl01` _NJ@fp Nh0Nh _N NppR@RABd 1\fRA9A0 _/N"@cԒ@H/Np N p?Nh _Np?NhLN H l,"X42,0Rl0Bd1 _g,vxz| +g. -g( *g $g" #g Nh`Rl01`` `RCRABd1 _fRA` #g $g *g ,g ^gB +gZ -gT .fRxRDRABdH1 #g ^g +g. -g( _f&RA`RERABd1 ^g +g -f2ALH@ք/N"NC " Lx2DE A,b -fEt1BQt1$0000QE[JEft Q0JgE\J"f0J"ff JFj-Sg$E[JEgRE\JEg vJ*g RCJ*f~ g~*Jf`9I0p%NhLN NuE[JEg*ÒEA, gSAR`Ô l,HQ?HjSl0 l,"X0Rl0gL _g0 ,g .g +g( -g $_HRNh`$W "0d`Rl0`p Jojp-`Sl0NuN>N <CN* <CN* <C(N*pC4N* <CN* <C N* <CFN*pC"N*NfHPN 06.02.1986"_NfN3JA7N HxNGIROC4NHxNPOSTC4N+|pANX/-NC"NNN`NqNqpNpNpNp NpNpNp7rNp7"<Np(r2NN BERWEISUNGEN4"<NAKN )|9 NN7 -JWHfN7N>NNN`NN>HxN'Sind Datum und Zeit richtig?| |Datum: 4HPNf"_N$HPN |Zeit: 4"_N$HPNPHPp"_N"_N$HPN Uhr"_N$HPN Falsch| OK r"_ N+@ -SWHfN9 <"<N <"<N$N.p rNN*Datum (TT.MM.JJJJ) : 4A퀄r NN.prNN*Zeit (Std:Min) : 4A퀊rNHmA퀄"_NN>NNHxN! | Noch keine Daten verfgbar ! |4HPN WEITER | ABBRUCH r"_ N+@ -SWHfN9A4NhN9NNNpNpNp9rN <t"<NpRNvHxN |Soll wirklich Eintrag Nr: HP -NBN"_N$HPN |gemacht werden ?"_N$HPN NEIN | JA ar"_ N+@ -UWHfN=WHgpNpNpNpN <rZNNEin Public-Domain-Programm von"<N <rZNN.Alfred Nitzschke, Am Hanloh 19, D-3042 Munster"<N <rZNN3Das Programm BERWSG ist vollstndig in GFA-Basic4"<N <rZNNgeschrieben und compiliert.iN <rZNN5Das GFA-Basic-Programm knnen Sie beim Autor erhalten4"<N <rZNN?gegen Einsendung von 1 Diskette, einem frankierten Rckumschlag4"<N <rZNN und DM 10.--NpNpNprN.pNpNpNd <N"<,NNCLICK4r#NANDN NNNH ArN> ArN> ArN>ArNR&<x*<NgNNN`NNEINTRAGAUSTRAGTABELLELISTEENDEL^3< h| | | | VP  ʰH@ЃdHA@B@H@хk HAҁHAрSB BbNuNpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N\?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NnJFkSFk&aQNn`Ha"FFaQL8NB6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?NB<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dNAXJ@jNNuHPa _Np"N*p,`J@jD@vqapvN)@p `H@)@prtNAHplrtNB 2pNpNpapaprapalpalpalpaTpaTpaTBp'a?<NNT@B){L9|0<rtNpapap9@p`pvNv`v`vj`v `v`v`v`?Aa*` Al 2l 4)lVH)lRprtNAl 2l 4HVNu9Cp rtNAv` Av `Avl 2l 4)lVHNr|<N\ @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg: k&@0+R`g k#&@0+S@H3 Q&f)I`LNuApNFN$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpNF _0HpNFp"_0HqN2p"_0HqN2E ұeHHQ0)Nj$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNWHNu Ihd*N$E$RR@H`2QˈN\ ENua NuN\ IHPg"B  g &gNZJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNRB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<,NATANpNF?<*NATANp NF"H2X@Nt:0H@?Nt:AANr"H2@Nt.0H@Nt.YdNrHANrpC 0(gFd"P$I` *N$E$R(S@jv A(Wf( ae zb Q DNu?k?<NM"UAf J@fH@NuDW?<NMXNuPj0,lf$J,nk l*fp?N*p N*9|nNA0,l2J,jk 0"fZRAR@ 0"g 0 f` 0 g 0,f9@lTll`BllA"H"g"A4`Q"AA 0! NuS@R@ 0 g 0,f9@lRll`R@ 0 fQj`Bll?<?<?<NM\NHQN&g ! ge l*g l*gpNNu<,*?Hj\F FfN`H FfN`RGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HN*LNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NldeS@f lbfSl`9Ab9FdNupapqr`p`"p`tdbDA0Hg<<R@f|0HN*JFk*HQ/??<?NAXfX ENuJkpNp`p`\F( &I.` ??<NMXJ[j E&DNup`pJ@gHzZ?<&NN\NuB?< NA\Av ACLElp"Jg X\QC"C!/:@?< NA\NuLH!NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A6@ Ni LHL|1R/:?< NApdK`HaJLxNNu)H9@Jp4N^P'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNHHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.0| Copyright 1986|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehler"l`Yd&-KNN"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`$Y8gHRDD*D%H8#$c2g# HRDD%H`/&#k gH`X-KNu)H,Bl0NuE+000 l,N\0l0oN2NuaN$HP l,"X42,0Rl0Bd1 _g !g &g, \g2N*`Rl01` _N\J@fp N*0N* _N N2pR@RABd 1\fRA9A0 _/N\"@cԒ@H/N2 Np?N* _Np?N*LNH l,"X42,0Rl0Bd1 _g,vxz| +g. -g( *g $g" #g N*`Rl01`` `RCRABd1 _fRA` #g $g *g ,g ^gB +gZ -gT .fRxRDRABdH1 #g ^g +g. -g( _f&RA`RERABd1 ^g +g -f2ALH@ք/N"NC " Lx2DE A,b -fEt1BQt1$0000QE[JEft Q0JgE\J"f0J"ff JFj-Sg$E[JEgRE\JEg vJ*g RCJ*f~ g~*Jf`9I0p%N*LNNuE[JEg*ÒEA, gSAR`Ô l,HQ?HjSl0 l,"X0Rl0gL _g0 ,g .g +g( -g $_HRN*`$W "0d`Rl0`p Jojp-`Sl0NuNN\NN __.__.____C NN__:__.C&NA퀴 CO0pNpNpNp NpNpNp(rFNNBenzin-Verbrauch"<NpNpNpNp NpPrFNNBMW 525i / SFA-XX 9994"<NpZrNpZ"<NA32N )|3$ WHgpNpNpNpN <rZNNEin Public-Domain-Programm von"<N <rZNN.Alfred Nitzschke, Am Hanloh 19, D-3042 Munster"<N <rZNN2Das Programm BENZIN ist vollstndig in GFA-Basic"<N <rZNNgeschrieben und compiliert.nN <rZNN5Das GFA-Basic-Programm knnen Sie beim Autor erhalten4"<N <rZNN?gegen Einsendung von 1 Diskette, einem frankierten Rckumschlag"<N <rZNN und DM 10.--NpNpNprNpNpNpN <:"<'NNRETURNr-NpNANNNHz-b ($`4R8` Efv*oM\ m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN(ALNHz2?< NA\pdAxr0XQ)K\NNJrBjNuHz?<&NN\CAp$L Qp NvBlJpNNvpMNv9@pdAr 0Q0tr N9lNupealp`NuaN,Hz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu &8*:EENuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@Nt?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8NZ6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?NZ<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dNAXJ@jNNu&(*NNNvN)@p `H@)@prtNAHplrtNB 2pNpNpapaprapalpalpalpaTpaTpaTBp'a?<NNT@B){L9|0<rtNpapap9@p`pvNv`v`vj`v `v`v`v`?Aa*` Al 2l 4)lVH)lRprtNAl 2l 4HVNuAl 2l 4L VA0000000000prtN?<NNT$g4<rЀ[Nu(* 9AJA)H@@[000][ˈN Evz`* [g" ]g |g QSz` zQSpQ][ɈN Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NvHNur|<N @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NNT"l`dpNAtrdJhk\QpaNH ld$l`"Hg: k&@0+R`g k#&@0+S@H3 Q&f)I`LNuApNN$N<$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpN _0HpNp"_0HqNE ұeHHQ0)N$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%Nu Ihd*N<$E$RR@H`2QˈN ENu Ihd"*N<$E8*$R`"QˈN ENu(* 0(iN<$E 4R`Q$D 4R`QˈN DN ENua NuN IHPg"B  g &gNrJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNbRB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<,NATANpN?<*NATANJp N"H2X@N:0H@?N:AAN"H2@N.0H@N.YdNHAN, NtaoR6 .fJS@gFt ao>AA .f4S@g04<;ark(AjA AbAPjAdYA??<+NAX FNta>k:Y6 :fRS@g*t;a(k$AA :fRS@g t;akIA??<-NAXNurxS@k0  bS@jrNu .g( :g"0  b DBb BdeS@jJANuSR@JANuPj0,lf$J,nk l*fp?Np N9|nNRA0,l2J,jk 0"fZRAR@ 0"g 0 f` 0 g 0,f9@lTll`BllA"H"g"A4`Q"AA 0! NuS@R@ 0 g 0,f9@lRll`R@ 0 fQj`<,*?Hj\F FfN^`H FfNV`RGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`N:zEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(N ldeS@f lbfSl`9Ab9FdNupapqr`p`p`pJ@gHzZ?<&NN\NuB?< NA\Av ACLElp"Jg X\QC"C!/:@?< NA\NuLH!NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A6@ Ni LHL|1R/:?< NApdK`HaJLxNNu)H9@Jp4NvP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNN`HP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.0| Copyright 1986|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehler"l`Yd&-KNNT"l`YepNHxN'Sind Datum und Zeit richtig?| |Datum: HPN"_NHPN |Zeit: "_NHPNHPp"_Nr"_NHPN Uhr"_NHPN Falsch| OK r"_ NAN^AN&<x*<NfN* <"<N~ <"<NNp rN8NDatum (TT.MM.JJJJ) : 4NNCNNprN8NZeit (Std:Min) : 4NNCNHmA"_NNpdr2N~N7Dieses Programm erstellt (zufllige) Daten, die fr die"<N <r2N~N7Demonstration der Public-Domain-Versionen der Programme4"<N <r2N~N"HAUSJA und HAUSVG bentigt werden."<N <r2N~NABitte beachten Sie, da Sie dieses Programm und die so erstelltenU"<N <r2N~N@Daten lschen, wenn Sie echte Daten mit HAUSMO erstellt haben !!"<NNHPp"_NN N+@+| -NbH <r$<L8NNANx -Nb&<x*<NNCN+|p ANxp0NHP -NbN"_NHPp"_NCNNHH/HPA"_NHPp/N"_NHPA"_NHPN.DAT"_NCNpONHPAr"_NNprN8NDatei fr Monat THPA"_NHPN / 19l"_NHPA"_NHPN wird erzeugt"_NNNBmRBmX <8r$< NjAZNpNAZNN <r$<NjANpNANN <r$<NjA`NpNA`NN <r$<NjAfNpNAfNN <r$<NjAlNpNAlNN <r$< NjArNpNArNN <r$<NjHNL8N&<x*<NNAxNpNAxNN <r$<NjA~NpNA~NNANAZNNA`NNAfNNAlNNArNNAxNNA~NNANN <r$<NjAZNpNAZNNA ?0 pNANN <r$<NjA`NpNA`NN <r$<NjAfNpNAfNN <r$<NjAlNpNAlNN <r$<Nj&<x*<NArNpNArNN <r$<NjAxNpNAxNN <r$<NjA~NpNA~NN <r$<NjA퀊NpNA퀊NNA퀐 H0pNA퀐NN <r$<NjA퀖NpNA퀖NN <r$<NjA퀜NpNA퀜NN <r$<NjA퀢NpNA퀢NN <r$<NjHNL8N&<x*<NNA퀨NpNA퀨NN <r$<NjA퀮NpNA퀮NN <r$<NjA퀴NpNA퀴NNA퀺 0pNA퀺NNA t0pNANN <r$< NjANpNANN <r$<NjANpNANNANAZNNA`NNAfNNAlNNArNNAxNNA~NNA퀊NNA퀐NNA퀖NNA퀜NNA퀢NNA퀨NNA퀮NNA퀴NNA퀺NNANNANNATNpNANNNpNATNNpN<`RG0y/n2HA/20 n0Af0y/n0HA/00 nLN^NuHHz @ y=N@|NFLNsNuA5.=|\A4"HPgXHf0(LN^NuNVHHy2V/.NPfBG`Hy2\/.NPf><`Hy2b/.NPf><`0. |gR0. |?/.?<=NlP>J@m 0. |g&JGm??<>NlXBg/.?<`j0. |gD0. |?/.?<=NlP>J@m"??<>NlXBg/.?<`0. |?/.?<=NlP>JGl 340<`?. ?N X0LN^NuNV/.?<HNl\-@ .f-|34 .N^NuNV0./N XN^NuLB@ggSBAgHJ@gHANuNVH*n (MBn ng?.N 8T| fA&H. nU|`H| f S @  . nU| A|l0fD AH-@Hn/.?.?<@NlO <Hg 340<`dA&H0f~ =@`J/ 0./?.?<@NlO -@2.¼g .340<` .n0.L8N^NuNVA=t#=A<&#=ANlX=@g340<``0<NqN^NuA5s8B͔{& 1pO<3>q qB((/` ` 1yAQ!D! QQE'A`0liBiAi>B#` q x 0b*PȀ Sg ?B;M ` R# 1&( Cl("(R!`gay$!Or(J'0ΈPP#m 0Čr,8'SIrM3ykfcFsm!,b;nPȏs `bp`ǾGq` &B/"(!B0m0(Ƀ8#袊$"(2!0k'q q!qȢȘqq"/a͛qŖpUsb(DE-T3frx0π㍰bܓXi@!h>)n`00H(# 1 ("B)*"%6P`蠊$"$"%*1 02/ "(z( a &Ȣjr( BhA a&_ "( ͭfcfe60@!ɶB<\mgz(> 뢊( (y`< 0yqqȢqǞǀ0y/qyp)@<p`00Y p3#<<~||||||||xf8p<<~ ~<~<<`<<|f<f`f<|<|<~ffff~@x```8pf f0f0f`f ?f00ffff 4444044f z~~ ~` ~= 8 < ><0 Á<$8<` (fl>fl8ff8f ``ff 0ff<<pf~2Ǚf$o<<|>|8f|<|>|>~ffff~f<<<~~f~~f[<;f3hl~`f~ 0LÃ<< |||||||`(l<p~~v l|<>0 jf|`f||n~p`~f|f|<ff<0f`ff0fflfffff`fff>|66<n|16 llf~fnTk~f~~Ã~ ~~l0<0f~f0fn~f`f``ffx`nf`vlff<0 >f`f~0ffxffff`<fff 4ff~>`~~~ff|ffffffff`0`~8ff<<>Ifwdf06llffffTk`f0 2؟$foppf.|f8f0`f0f ff0f  ~0`fffl``fffl`ff`lfffflffff`f<|<>0bff<0f0~fffn><`0 6l~ffffff lff``fff``fljvf|f<f~x>|<><0f<f`|>lf~p~><>>>><<<<<><>~|`><<>fff0 ><<<~~~f f<~~f<<~~<<>f~~~p0Á<~`qT8`|p`|8|`<<<@@ff< ~~ `0p`|$<``||||||||f ff:``0::f[ |0 x8::x 0```f$``ff\ \\f |><<_|<8<@@@$@ f <$,4Bp@p$ $&8dx<<~~~<< `<|<|<|~~2f` Áf$g< @@ @$ $.ddTf8f `0ff0Fffbf``bf`bffffdffff l``0bbff`ff0ffb&&ffffffb``bfdff<\b L8. f`0f0`0Ǚ$<@8 ::<<>| |<|>6<zB`~0: <|||||||F@tpx0 T~n<&||ff` ff`f```f`zffffpffff Ffbffff ffff8bffff88`ffFFFFbfffff`ffffffffb0fl~FfffzFf6Ffnfffff(f``hzfp nBffFbfffbdYCf8l`~ `̼B<`| `\ПكgAf`ffff ffff0pffff 8`ff>>>>`fff~~|{ffffffff`|fff~>f02ll>f~n~~f>~`|p~f8~@ff>`fffp d[f8f` \~f|~0~П$,4A<y~@.0  f~ff>0ff`f``ff`^f`fffff0ff`f~ff ffff0<ff|<><>f f<|>0< >xf>~0<><>>>><<<<ff~~<<<>>><<<~><>fB><<` 2><~ff<<<f<~~B<8~~|~lnb><<f<<~~0lr`(n~~>||8A||||||| 0  ``?&. . 4&f.,*   ."(N8 $    &r