NNNNNNp NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNONNNNNNNNNNNNNNNNNNNNNNO`  @`! #@%`)+-/1 3@5`79;=?A C@E`GIKMOQ S@U`WY[]_a c@e`gikmoq s@uy{} @` ` ` @ ` @ ` ǀ ɠ @ ` ׀ ٠  @` @`!Aa   !Aa!O`  @`! #@%`)+-/1 3@5`79;=?A C@E`GIKMOQ S@U`WY[]_a c@e`gikmoq s@uy{} @` ` ` @ ` @ ` ǀ ɠ @ ` ׀ ٠  @` @`!Aa   !Aa!A144FASTTEST t KOPFRECHNENt RECHNEN t SCHULE t vSTD_PLANORDt LEES DITt H.  t..  tFASTTESTPRGt %LIESMICH t `%Rv` Efv*oM m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHNFALNHz2?< NA\pdAxr0XQ)K\NN8888888JrBjNuHz?<&NN\N.CAp$L Qp N9lrBlJpNNpMN9@pdAr 0Q0tr Nh9lNupealp`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@Nj?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</N|JFkSFk&aQN|`Ha"FFaQL8NP6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?NP<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dJf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(NX"l`Yd&-KNN"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`$Y8gHRDD*D%H8#$c2g# HRDD%H`pN^pNbpNfprN <"<NpNRpNVpNZpNp2"<NNlFASTTEST, Version 2.34N <|"<NN` Auf Tastendruck geht's weiter...N <@"<NNl(c) Wolfgang Hefele.NpNRpNVpNZpNpd"<NN`Teste Deine Reflexe!NN8p rNNANach Ertnen des Signaltons drcke mglichst rasch die LEERTASTE!NN8p rNNC(Verfrhte Reaktion fhrt brigens zu schlechten Gesamtergebnissen)4NpNRpNVpNZpN <r2NNlBe the FASTEST with FASTTEST!cNNHPA "_NNgA y0 BmFA퀜 y0 BmvBm|NHpN^pNbpNfpN^pNbpNfprN <"<NpN^pNb <"<@Np2rxNpN^pNbpNf <"<@Np-rnNpNRpNVpNZpN <"<NNl ACHTUNG ...4NN&<x*<NNNXNHPA "_NNfN?<?<pr _NpNpNpNJp NRpNXpNpNNZHxN`" Schummler! | | Noch ein Versuch? HPNlja|neiner"_ NA$NTA$N&<x*<NfNArNBmFNN NzANTpN^pNbpNf <"<N <"<N?<?<pr _NpNpNp NJ <cNRpNRpNVpNZpN <"<NNlSTOP!4NpNRpNVpNZpN <"<NN`Leertaste drcken!NNHPp N"_NDgNzNXHANL8NvNnH <r$<L8NABNABN&<x*<N>fNNlHoppla!C&NA#~NZN8prNN'Deine Reaktionszeit betrug beachtliche ABNNx Hundertstel Sekunden!NNABN&<x*<N>pJBgp/ABN&<x*<N8pJBgp$VHfNrNlo.k.!C&NA#~NZN8prNNx&Deine Reaktionszeit betrug brauchbare ABNNx Hundertstel Sekunden!NABN&<x*<NVpJBgp/ABN&<x*<N>pJBgp$VHfNFNlnaja...C&NA#~NZN8prNNx$Deine Reaktionszeit betrug schlaffe ABNNx Hundertstel Sekunden!NABN&<x*<NVfNNlGhn!C&NA#~NZN8prNN/Deine 'Reaktionszeit' betrug sage und schreibe lABNNx Hundertstel Sekunden!NABNAxNNAxNA퀜NABNN8fN 4CBA퀜 0ANA퀜NN8fN \C퀜A 0ArN\N8prNN5Noch ein Versuch (Leertaste)? Ansonsten andere Taste!eNpNCNHmp N"_NDfN BmFNN N A$NZpd"<NNl Auswertung:rNArN&<x*<N>fN!N8p r NNx:><|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@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</NfJFkSFk&aQNf`Ha"FFaQL8N:6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N:<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dGe GbFGNu G0dFGHANu~NuAd RdQRB6Ce0 C/jC C@j C jr0H@{0DH@Nur{0Nu{0NutNuJj(:,af AfBfNu&<x*<NHnr$g4jDk( b4<J@`@[H@0Nu4<Ѐ[Nu4<NuNuAd RdQRBBkBjDBJjDNupNufJj fJAkNupNdRdRrxaAffBWHNuJjDBDA@JBfprJjDEDD@JEfvxNuaغBffAVHNuCDEaEf fDUHNu]HNuCDEaEffDftNuJjtNupN&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`"p`tdbDA0Hg<<R@f|0HN*JFk*HQ/??<?NAXfX ENuJkpNp`p`\F( &I.` ??<NMXJ[j E&DNup`pNu)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(NX _b@gGHpp 0f NuGNp| @"l`Yd&-KNN"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`$Y8gHRDD*D%H8#$c2g# HRDD%H`/&#k gH`Nq-KNu)|6 &<x*<N&<x*<NA NN>&<x*<N&<x*<NANpNpNpNprN <"<NpNpNpNpFrxN <"<NNnpr!NAHN&<x*<NNp.NNpNpNpNp Npd"<NN Wieviel ist4NpNpNpNpNNA'N|A N&<x*<NA퀐NjNNrA~NAN&<x*<NA퀐NjNNrA퀄N <"<NA~NN\HPN + 4"_NHPA퀄NN\"_NHPN ?"_NrN A/4N|ANzNXgN*4A퀄NA~NjNANA0 N|`NA'N|A NNrHANNrL8NXfN*xA'N|A NANjNfN*AC  "002A NvNA퀐NjNNrA~NANNA퀐NjNNrA퀄N <"<NA~NN\HPN - "_NHPA퀄NN\"_NHPN ?"_NrN A/4N|ANzNXgN+A퀄NA~NjNANA0 N|`NA'N|A N& abschlieen!N <6"<NN (Abbruch durch Eingabe von Null)NNnpr NNANNnNANNNNHANL8N&<x*<N@A0NAHNANANjNXfN0pNpNpNp N <"<NNRichtig!N?<?<pr _NpNHpNTp N <Np NANNN1tpNpNpNpN <"<NANN\N?<?<pr _NpNHpNTpNp NpNpNHpNTNpdNA0NA6NjNA6Np2NNpNpNpNprN <"<NpNpNpN <r(N <"<XNAHNzNXfN2AH L0NnprNN Du hast von AHNNrNN Aufgaben ANNN richtig beantwortet.4NNnprNN Das sind AHNANNjN:&<x*<NNrNN Prozent.rNAHNA6NjN:&<x*<NH <2<$<L8NNr&<x*<N@A퀺NNnprNN*Deine durchschnittliche Bedenkzeit betrug A퀺NN Sekunden.NAHNA6NjN:NH <r$<L8NNrAlNAlN&<x*<NfN3BmpAHNANNjN:&<x*<NNrArNArN&<x*<NfN4XAx @0ArN&<x*<NpJBgp/ArN&<x*<NpJBgp$VHfN4Ax 0ArN&<x*<NpJBgp/ArN&<x*<NpJBgp$VHfN5 Ax 0ArN&<x*<NpJBgp/ArN&<x*<NpJBgp$VHfN5Ax @0ArN&<x*<NpJBgp/ArN&<x*<NpJBgp$VHfN5Ax 0ArN&<x*<NfN6Ax 0AlNAxNjN&<x*<NfN6TAlNN3NnprNN)Deine Leistung wird mit Note bewertet. NpNpNpNpN <"<ONAlNAxNjNN\N <NNNnNFehler!4NA"NNNN L&& jJ"0 ""T|Xdddd0< KOPFRECHEN Ermittlung der eigenen Rechenleistung (oder der des Nachwuchses) in Abhngigkeit von der Bedenkzeit. Eine Anleitung drfte berflssig sein, da sich das Programm selbst erklrt. Die Bedienung erfolgt weitgehend ber die Tastatur, also ohne lstiges "Musemelken". Zweckmig ist die Benutzung der Zahlentasten sowie der - Taste, da hiermit schnellere Eingaben mglich sind. Um die Eingabe zu beenden, mu statt des Rechenergebnisses lediglich die Zahl Null (und ) eingegeben werden. Danach erscheint die Auswertung mit "Benotung". Bei Bedarf knnen Sie den Quellcode als GFA-Basic-Listing gegen Einsendung eines Zehn-Mark-Scheins (oder auf Diskette incl. weiterer PD-Programme fr einen Zwanziger) erhalten bei: Wolfgang Hefele, Gerstenstr. 28, 8902 Neus .  t..  tRECHE116DOCt RECHE116PRGt 'y9************************************************************************** * Kurzanleitung zum Programm Datum 21.08.1988 * ************************************************************************** * Wirtschaftsrechnen fr Brokaufleute PD-Version 0.116 * ************************************************************************** * (c) 1988 by Siegfried Hbner, Obere Vorstadt 21, 8812 Windsbach * ************************************************************************** Dieses Programm stellt ein kleines Rechenprogramm fr Brokaufleute dar. Es wurde auf einen Atari 520 ST+ mit Floppy SF 354 und Monitor SM 124 mit GFA-Basic geschrieben. Dieses Programm luft aber auch auf einen Farbmonitor in mittlerer Auflsung. Dieses Programm ist frei kopierbar, und sollte auch fleiig kopiert werden um mglichst weit verbreitet zu werden. Eine Hardcopy des Bildschirms ist jederzeit durch gleichzeitiges drcken von Alternate und Help mglich, wobei mein Programm auf 960 Pixel umschaltet, und auch bei Epson kompatiblen Druckern eine gute Hardcopy ausdruckt. Die einzelnen Rechenoperationen werden mit der Tastatur eingegeben, wobei es gleich ist ob in Klein-oder Grobuchstaben. Statt einem Komma geben Sie bitte einen Punkt ein bei Dezimaler- schreibweise von Zahlen. Es wurde auerdem eine kleine Fehlerabfangroutine eingebaut, die bei Falscheingabe das Programm erneut startet. Erklrung der Einzelnen Rechenfunktionen ---------------------------------------- ************************************************************************* * G = Grundrechenarten * * durch drcken von den Buchstaben von G kommen Sie in das folgende * * Men mit den Auswahlmglichkeiten * * * * + = Addition * * - = Subtraktion * * * = Multiplikation * * : = Division * * * * A = DM + Prozent * * M = DM - Prozent * * * * P = Prozent von DM(100) * * D= DM sind % Wieviel DM sind 100% * * W = DM = 100 % wieviel % sind DM * * * * Bitte geben Sie die 1 Zahl ein * * * ************************************************************************* Geben Sie bitte bei Eingabe 1 Zahl eingeben die erste Zahl ein, mit der Sie rechnen wollen z.b. Bei Addition zuerst die erste Zahl eingeben dann Return oder Enter drcken und anschlieend das Zeichen + fr Addition eingeben. Beispiel: Bitte geben Sie die erste Zahl ein Eingabe 100 Return oder Enter drcken + fr Addition drcken Return oder Enter drcken Bitte geben Sie die zweite Zahl ein Eingabe 70 Return oder Enter drcken Ergebnis der Addition = 170 ************************************************************************* bei allen anderen Rechenoperationen von Menpunkt Grundrechenarten wird genauso verfahren. Sollten Sie schon eine Zahl als 1 Zahl eingegeben haben,so knnen Sie mit dieser Zahl beliebig weiterrechnen. nur bei (Grundrechenarten,Zeiteinheiten,Zhlmae,Englische Lngenmae, Englische Gewichtseinheiten,Lngenmae,Gewichte,Krpermae, Mathematische Befehle, Datenumwandlungen) mglich. soweit sie bei der Abfrage Wollen Sie mit der Zahl weiterrechnen J eingegeben haben. Bei Eingabe von N wird die Zahl auf 0 gesetzt (also gelscht) und Sie knnen eine neue Rechnung beginnen. Bei J kann mit der alten Zahl weitergerechnet werden siehe oben. ************************************************************************* Die anderen Menauswahlpunkte funktionieren hnlich. Bei manchen Rechenoperationen wird die alte Zahl nicht bernommen. Bitte legen Sie sich deshalb ein Blatt Papier zu Ihren Computer um z.b. Die Zwischenergebnisse aufzuschreiben. Knnen Sie aber auch durch Alternate+Help ausdrucken. Leider ist dieses Programm sehr umfangreich, und hat daher viele Rechen- operationen . Viele von den Rechenoperationen sind speziell fr Kauf- leute gedacht. Dieses Programm kann aber auch von allen anderen auch benutzt werden, die keine Kaufleute sind. Daher zhle ich jetzt nicht alle Funktionen dieses Programms auf, sonst schreibe ich noch morgen. Auerdem breuchte eine Ausfhrliche Anleitung dieses Programms fast mehr Speicher als das Programm selbst. Die verschiedenen Rechenfunktionen kann man am besten durch aus- probieren und ben mit dem Programm erlernen. Ich bernehme keine Garantie fr die Richtigkeit der Ergebnisse. Sollte das Programm falsche Ergebnisse liefern oder Fehlerhaft arbeiten, so whre Ich fr Verbesserungstips Fehlerhinweise, usw. Dankbar. Dieses Programm wird stndig verbessert erweitert aktualisiert, es werden stndig neue Formeln (Rechenoperationen) eingebaut. An alle die mein Programm fter benutzen, oder damit arbeiten. ---------------------------------------------------------------------- Gegen einen 10 DM Schein werden Sie kostenlos ber alle Updates, Verbesserungen, Erweiterungen ,Programme von mir usw. Informiert. Auerdem werden alle die mir auerdem noch eine Diskette mit Public Domain Programmen beilegen auch von mir noch ein paar andere Programme erhalten. z.b ein Super Zeichenprogramm sowie diverse Spielprogramme usw. Listing dieses Programms in GFA-Basic auf Anfrage bei mir erhltlich. Auf Wunsch schreibe Ich auch fr Sie ein spezielles Rechenprogramm mit Ihren Formeln (Kein Problem) Vorankndigung: Ein neues Super-Zeichenprogramm das alle mir bekannten Zeichenprogramme voll und ganz in den Schatten stellt ist in Entwicklung (Nachfolger von Sigi-Painter PD Version 0.5 ) .Alle registrierten Benutzer erhalten natrlich sofort bei erscheinen dieses Programms eine kostenlose Mitteilung. Dieses Programm ist natrlich auch wieder frei kopierbar(Public Domain) Da ich zur Zeit Arbeitslos bin, wrde ich mich freuen , wenn sich viele an mein Update Angebot beteiligen, und mir einen 10 DM Schein schicken. In diesem Programm steckt schlieslich viel Arbeit. Meine Adresse Siegfried Hbner Obere Vorstzadt 21 8812 Windsbach Viel Spa mit euren Atari ST wnscht euch Siegfried `4S` Efv*oM m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHNFALNHz2?< NA\pdAxr0XQ)K\NNJrBjNuHz?<&NN\NXCAp$L Qp ND9lrBlJpNNDpMND9@pdAr 0Q0tr N9lNupealp`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"FFaQL8Nz6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?Nz<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dRGFc8>`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`<(`|HP?N&<pg2JFg W"X2@e2<A`QNCpR@ 1 fA 0! "_Np`pNu)H9@Jp4NDP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8NZ  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNN.HP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(NX"l`Yd&-KNN"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`$Y8gHRDD*D%H8#$c2g# HRDD%H`pr`&AdRd QJBgRBBABJk"l` d&6&|0!NuN"l` epZN)H,Bl0NuE+000 l,N.0l0oNhNuaNZHP l,"X42,0Rl0Bd1 _g !g &g, \g2N``Rl01` _N.J@fp N`N` _N NhpR@RABd 1\fRA9A0 _/N."@cԒ@H/Nh 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@NL8"aC " Lx2DE A,b -fEt1BQt1$0000QE[JEft Q0JgE\J"f0J"ff JFj-Sg$E[JEgRE\JEg vJ*g RCJ*f~ g~*Jf`9I0`JEf@RANE[JEg*ÒEA, gSAR`Ô l,HQ?HjSl0 l,"X0Rl0gL _g0 ,g .g +g( -g $_HRN``$W "0d`Rl0`p Jojp-`Sl0Nu)|4 >>>> Bitte auf mittlere <<<<<|~~~~~ Auflsung umschalten ~~~~~HPNf>> OK <rN.NZHmpPN"_NJfN8AA2NZHmpTN"_NJfN`ANZN*NA+NZN&prNp-rN Prozentrechnung 4p-rN 2 13 2< 4p-rN13< p-rNANZHmpKN"_NJfN`ADNZHmpFN"_NJfNANZHmpEN"_NJfNANZHmpZN"_NJfNA|NZHmpLN"_NJfNANZHmpHN"_NJfN A 2NZHmpMN"_NJfN,ANZHmpSN"_NJfNNANZHmpWN"_NJfNpA\NZHmpGN"_NJfNANZN*NA+NZN&prNp-rN Kalkulationszuschlag 4p-r N Handelsspanne 4p-r N> OK <4f |:0 |:0 ~:6 : ^: x: z: 8 : z> 8: |8: v4< x8> P8 : v  f4 z4 : t4 : <> 6@ < > : |84z p2br(vn$rl(pr.vx(xz(xx< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB 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 d9@^9A`9Ab~`$aJf,H@ Kg Mg Pg Hf~`BSGj>RGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`NXzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(N>ldeS@f lbfSl`9Ab9FdNupapqr`p`p`pNu)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(NX _b@gGHpp 0f NuGNp| @"l`Yd&-KNN"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`& $Y8gHRDD*D%H8#$c2g# HRDD%H`?<?<?<#NN\ANpNpNNpNpNpNp r N4 <"<vNFprNA 0 <r$<AN6N&<x*<NNF&<x*<N0AbN|Npr!NVNNCNANANAN&<x*<N,pJBgp/AN&<x*<N,pJBgp/AN&<x*<N,pJBgp/AN&<x*<N,pJBgp/AN&<x*<N,pJBgp$fN*CA 0N*N'NN@NpNpNpNp r N4 <"<vNFprNN HPA"_NFHPp,N""_NFCNA H0AbN|N was willst Du rechnen ?CNA H0AbN|N 1 HPpN""_NFHPN P L U S +"_NFCNA 0AbN|N 2 HPpN""_NFHPN M I N U S -"_NFCNA >0AbN|N 3 HPpN""_NFHPN M A L *"_NFCNA f0AbN|N 4 HPpN""_NFHPN G E T E I L T :"_NFCNA 0AbN|N 5 HPpN""_NFHPN GAR NICHTS"_NFCNA 0AbN|N Gib die Zahl ein !CNA 40AbN|Npr7NVNNCNANANAN&<x*<N|pJBgp/AN&<x*<NvpJBgp$fN.(A/N|A*N|NpNpNpNp r N4 <"<vNFprNN Wieviele Aufgaben willstCNA H0AbN|N du richtig machen ?CNA 0AbN|NprNVNNCNANA$NA$N&<x*<NvpJBgp/A$N&<x*<N|pJBgp$fN/jA18N|N.(Bm.Bm4Bm:NAN~NZ2P9@vINN@NA$N&<x*<NvJBfN0PN Auf Wiedersehen, HPA"_NFHPp!N""_NFCNA *0AbN|AhN| <N\?<?<?<#NN\ANNzN@AiN|A0AbN|N 3 HPpN""_NFHPN schwere"_NFCNA p0AbN|N Aufgaben machen? Drcke auf CNA 0AbN|N die richtige Zahl!CNA /0AbN|Npr0AbN|A$NA6NNA퀢NA퀢N&<8<*<NJBfN^zN Das hast Du sehr gut gemacht !CNA 0AbN|A퀢N&<8<*<NvpJBgp/A퀢N&<8<*<NpJBgp$fN_N Das ist ein gutes Ergebnis !CNA 0AbN|A퀢N&<8<*<NvpJBgp/A퀢N&<8<*<NpJBgp$fN_N Du kannst die meisten Aufgaben.CNA 0AbN|A퀢N&<8<*<NvpJBgp/A퀢N&<8<*<NpJBgp$fN`@N Du mut noch ben.CNA 0AbN|A퀢N&<8<*<NvpJBgp/A퀢N&<x*<NpJBgp$fN`N Nimm leichtere Aufgaben !CNA 0AbN|A퀢N&<x*<NvJBfNbpAN&<x*<N,JBfNa2A H0NaAN&<x*<N,JBfNajA H0NaAN&<x*<N,JBfNaA H0NaAN&<x*<N,JBfNaA 0NaN&Das war zu schwer. Ich habe die ZahlenCNA p0AbN|N$kleiner gemacht. Versuch's noch mal!CNA 0AbN|NBitte auf RETURN drcken!sCNA 40AbN|NprFNVNNC&NNN@pNpNpNp N8ANrN4ANNN@A 0 <r$<AN6?<?< pr _N\p N\?<Bgpr _N\pN\?<?< pr _N\pN\?<Bgpr _N\pN\?<?< pr _N\pN\?<Bgpr _N\pN\?<?< pr _N\pN\?<Bgpr _N\pN\?<?< pr _N\pN\?<Bgpr _N\pN\N`Nq?<?< pr _N\pN\?<Bgpr _N\pN\?<?< pr _N\pN\?<Bgpr _N\pN\?<?< pr _N\pN\?<Bgpr _N\pN\A 0 <r$<A N6?<?< pr _N\pN\?<Bgpr _N\pN\N`NqNq?<?< pr _N\pN\?<Bgpr _N\pN\?<?< pr _N\pN\?<Bgpr _N\pN\AT 0 <r$<ATN6?<?< pr _N\pN\?<Bgpr _N\pN\N`NqNq?<?< pr _N\pN\?<Bgpr _N\pN\?<?< pr _N\pN\?<Bgpr _N\pN\?<?< pr _N\pN\?<Bgpr _N\pN\?<?< pr _N\pN\?<Bgpr _N\pN\?<?< pr _N\pN\?<Bgpr _N\pN\?<?< pr _N\pN\?<Bgpr _N\pN\?<?< pr _N\pN\?<Bgpr _N\pN\?<?< pr _N\pN\?<Bgpr _N\pN\?<?< pr _N\pN\?<Bgpr _N\pN\AN 0 <r$<ANN6?<?< pr _N\pN\?<Bgpr _N\pN\?<?< pr _N\pN\?<Bgpr _N\pN\N`NqNq?<?< pr _N\p@N\?<Bgpr _N\p N\NN@Ax 0 <r$<AxN6pNpNpP"<N4prNxp3"<Np N\pP"<N4prNxpNpNpP"<NpN\N`NqNqNN@pPrPN4pals 40 Aufgaben, wird ebenfalls eine Fehlermeldung ausgegeben.N NNNNN:Weitere Informationen sind im mitgelieferten Liesmich-TXT.N NN NNNNN>Das Rechenbungsprogramm 'Atarus' ist 'public domain' und darfN NNNNN;frei kopiert werden. Ich wrde mich allerdings freuen, wennaN NNNNNAErfahrungen mit dem Programm mir mitgeteilt wrden. Den Quelltext4N NNNNNBdes Programms (und, wenn mglich, eine neue Version) gibt es gegenN NNNNNdie blichen 20 DM bei:nN NN NNNNNRudolf SchmittN NNNNNWaghuseler Str. 8N NNNNN1000 Berlin 31..N NNNNNTelefon 030/8539583%N NN NN NNNNN%Mit einem Tastendruck geht es weiter.eN pNrANNN@\@DB BFF "0P 4JBJ4V2V^$$@422 ڐ$Bd xd(2bFBZ@ZBZ6X>($$$$HJ@**************************************************************** - - Das Rechenlernprogramm (RECHEN.PRG) **************************************************************** Zur Geschichte des Programms: Das Programms ist entstanden aus der Arbeit mit Kindern, die in vielen Bereichen Schulschwierigkeiten hatten. Das Spielen (!!) und Arbeiten am Computer war eine Mglichkeit, mehr Spa (oder "Motivation", fr die Akademiker unter den Lesern) am Lernen zu haben. Die Arbeit als Familien- und Einzelfallhelfer bedingt, sich auch auf unorthodoxe Weise der Welt der Kinder zu nhern und sie mit ihren Vorlieben zu akzeptieren. Nachdem ich dem Computer zunchst sehr skeptisch gegenberstand, lernte ich den Umgang mit dem Gert von denen, denen ich Lesen und Schreiben beibringen sollte. (Letzteres klappte meist dann auch.) Meine Angst, da der Computer nur dazu diente, sich mit Ballerspielen "bld zu spielen", verwandelte sich in die Einsicht, da der Rckzug ins Spiel auch durch die Ablehnung der damit ausgedrckten Gefhle und Handlungsanstze (Aggression, Distanzbedrfnis, Freiraum fr Phantasiehandlungen) bedingt war. ************************************************************************* Ziele und Nutzen des Programms: Angesprochen sind Kinder mit und ohne Schwierigkeiten in der Grundschule. Mit den Programmen will ich eine Mitte finden zwischen den kommerziellen Spielen und einer beginnenden Pdagogisierung des Computers, die das Gert zu einer besonders effektiven Lernmaschine reduziert und in der ausgetftelten Operationalisierung der Lernziele den Spa am Rechner nur noch in Belohnungsportionen zult. Das Programm ist mit und fr einzelne Kinder entstanden, darum auch fr andere vielleicht weniger interessant - oder sehr attraktiv. ************************************************************************* Das Rechenlernprogramm spricht Kinder an, die ber 20 rechnen knnen. Nach der Auswahl, welche der vier Grundrechenarten gebt werden sollen, wird abgefragt, wieviele Aufgaben das Kind richtig machen will. 5 Aufgaben sind das Minimum, 40 das Maximum. Als Fehler wird eine Aufgabe erst dann bewertet, wenn sie dreimal falsch gemacht wurde. Der Schwierigkeitsgrad ist ber die Gre des Zahlenraums (von 20 bis 500) und ber ein eigenes Men einstellbar. Drei Schwierigkeitsstufen werden angeboten. Bei Addition und Subtraktion wird in der leichtesten Stufe nur mit ganzen Zehnern gerechnet. Bei mittlerem Schwierigkeitsgrad wird darauf geachtet, da die Zehnergrenzen nicht durch das Berechnen der Einer-Stellen verschoben schoben werden. (Also 26-15=, nicht: 26-17=). Der Schwerpunkt der Zufalls- auswahl liegt im mittleren und unteren Bereich des gewhlten Rechenbereichs. Bei Multiplikation und Division dient die leichteste Stufe dazu, sich auf einen Faktor oder Divisor zu begrenzen und diesen zunchst zu ben. Hier unterscheiden sich mittlere von der schweren Stufe durch die Be- grenzung auf 10 als Faktor bzw Divisor. Ferner ist der Schwerpunkt der Zufallsauswahl auf Zahlen im unteren und mittleren Rechenbereich gelegt. ************************************************************************* Mein Interesse: Wie geht es anderen BetreuerInnen/TherapeutInnen mit diesem Spiel? Mich interessieren Erfahrungsberichte ber - Alter und Problem des Kindes (selbstverstndlich anonym!). - Wie wurde das Spiel akzeptiert? nderungswnsche? - Einflsse des Computers im allgemeinen und dieser Spiele im besonderen auf Bewltigung der Schule. Abschlieend: Das Listing des Programms (in GFA-Basic) kann gegen die blichen 20,- DM verschickt werden. Ist bis dahin eine neue Version der bisherigen oder ein neues Spiel entstanden, wird sie mitgeschickt. Erfahrungsberichte, Anregungen und Wnsche bitte an Diplom-Psychologe Rudolf Schmitt Waghuseler Str. 8 1000 Berlin 31 Tel.: 030/8539583 .  t..  tLIES_SPLASCt $STD_PLANLSTt USTD_PLANPRGt %STD_PLANBASt xTEST SPLt  Gernot Dirnsteiner Staatl. Gymnasium OStR Gobener Str. 4 Falkenweg 7 Fachbereich Chemie/Biol. 8313 Vilsbiburg 8313 Vilsbiburg Tel. 08741/7850 ---------------------------------------------------------------- P U B L I C D O M A I N ************************* Fr alle NICHT-IBM'ler u. AntiAMIGArianer ------------------------------------------ Auf der Diskette mssen vorhanden sein: ORDNER STD_PLAN.ORD mit - STD_PLAN.LST ---> LST-File des Programms - STD_PLAN.BAS ---> GFA-BASIC-PROGRAMM V 2.02 (ungesch.) - STD_PLAN.PRG ---> Lauffhiges Programm - LIES_SPL.ASC ---> Dieser ASCII-Text (Anleitung) Es darf nur der komplette Ordner STD_PLAN.ORD (inclusive dieser Anleitung) als Public Domain weitergegeben werden. Zum STUNDENPLAN-PROGRAMM ========================= (...ich will keine 20 DM, aber eine Reaktion wre schon nett...) Nachdem ich als Fachleiter C/B immer den rger mit der Fachraum- belegung, dem Schreiben von Stundenplnen fr die Fachrume und meine Klasse etc. hatte und lange vergeblich auf ein PD-Programm zum Schreiben von Stundenplnen suchte (das letzte PD sagte mir nicht zu), beschlo ich, mir selbst zu helfen. Das Ergebnis meiner Bemhungen ist sicher nicht optimal (schlielich bin ich kein Profi), aber besser als garnichts. Hinweise auf Fehler bzw. (da ich ja den Quellcode mitliefere) verbesserte Versionen sind mir stets willkommen. ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Haben SIE schon jetzt ein besseres Programm?? .. dann her damit ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Der Ausdruck luft auf dem NEC P6 bzw. kompatiblen 24-Nadlern und auch fr die Schreibmaschine TA Gabriele 9009 ist ein Ausdruck vorgesehen. Soweit es sich nicht um Hardcopies handelt, ist allerdings die Ausdruckart auf meine Formulare abgestimmt. Sie knnen aber in dem Basic-Programm leicht selbst fr Sie geeignete nderungen (Prozedur Grossausdruck!) vornehmen. Starten Sie das Programm STD_PLAN.PRG durch Doppelklick und es erscheint zunchst der Autorenhinweis. Hier haben Sie die Mglichkeit, das Programm wieder zu verlassen. Klicken Sie auf "Weiter", sucht das Programm nach der Datei FAECHER.INF im Wurzelverzeichnis bzw. aktuellen Ordner. In dieser Datei (ASCII- FILE z.B. mit Wordplus bei ausgeschalteten WP-Modus erstellt) knnen Sie Ihre 2 Fcher (durch Komma getrennt) angeben,also z.B. Chemie,Physik Die ersten beiden Fach-Buchstaben verwendet das Programm fr Selektionsaufgaben ! Ist keine(!) solche Datei vorhanden, erfolgt ein Hinweis und die Voreinstellung im Programm ist (natrlich!)" Biologie,Chemie " --------------------------------------------------------------- Die versch. Funktionen sind ber die Maus (Anklicken der Boxen am unteren Bildschirmrand etc.), Funktionstasten F1-F10 , sowie die Sondertasten Esc und ClrHome erreichbar (Tasten evtl. etwas lnger oder mehrfach drcken). --------------------------------------------------------------- An dem anfangs erscheinenden Stundenplan knnen Sie durch das Anklicken (zeigende Hand/Mausknopf"1") der Felder eine Eingabe- box aufrufen. Die eingetippten Werte werden ber Mausknopf"2" (Mauspfeil auer- halb einer Eingabezeile) oder durch Funktionstaste F10 bernom- men, anschl. kann ein neues Feld gewhlt werden. Korrekturen erfolgen analog ! Wenn Sie den Mauspfeil an die rechte/untere Ecke des Plans bewegen, erscheint eine flache Hand. Bei gedrcktem Mausknopf"1" knnen Sie dann die Gre des Planes verndern (fr eine sptere Hardcopy), die Textgre wird in Grenzen angepat. Wenn Sie den Plan sehr klein machen, werden Fachnamen(!) je nach Plangre abgekrzt,z.B. Englisch: Eng oder En oder E . Diese Abkrzung bleibt auch bei Wiedervergrerung erhalten und kann ber F5 zurckgenommen werden (s.u.) Esc / Exit: ----------- Nach div. Sicherheitsabfragen knnen Sie das Programm beenden ! ^Clr / Clear ------------ Durch Anklicken oder Drcken von ClrHome wird nach einer Sicher- heitsabfrage der Feldinhalt des aktuellen Planes im RAM gelscht. Durch Drcken von Ctrl+ClrHome knnen Sie ber eine Fileselectbox auch Diskettendateien lschen ! F 1 / Regen. ----------- Durch Anklicken oder Drcken von F1 regenerieren Sie Stunden- plne, die ggf. etwas "beschdigt" sind (z.B. Linienunterbrechung usw.); schlimmstenfalls hilft auch F5 mit anschl.Neueinstellung F 2 / Vertlg. ------------ ...hilft bei der Fachraumbelegung/Raumverteilung ---> !! Vorher mu aber ber F3 der Verteilungsmodus aktiviert sein, Plan1 und/oder Plan2 mu geladen und Plan3 aktiviert sein !! Es erscheint eine Auswahlbox, in der Sie eine Fachbeschrnkung durchfhren knnen (natrlich mssen die Fcher dann im Plan auch immer eingetragen sein !). Die Stundenplne 1 und 2 (s.u.) werden berlagert in den Plan 3 geschrieben, soweit hier freie Pltze vorhanden sind oder "*****" eingetragen ist ( Tritt eine Doppelbelegung(!) auf, wird keine Klasse eingetragen, sondern stattdessen "*****"). Sie knnen in Plan 3 durch Eingabe von "*" in ein Feld auch Stunden blockieren oder in den Plnen 1 bzw. 2 durch Voranstellen von "*" vor die Klasse diese damit von der Verteilung ausschlieen. Wenn Sie so nacheinander verschiedene "Kollegen-Plne" in Plan 1 bzw. 2 (ggf. einen davon lschen!!) laden, kann so der Fachraum (= Plan 3) "aufgefllt" werden. F 3 / PL1/2/3: -------------- Mit dieser Taste knnen Sie 3 schmale Plne bereinander aufrufen. Es erscheint zunchst Plan 1. Bei weiterem Besttigen von F3 oder entspr. Mausklick wird Plan 2 bzw. Plan 3 gezeichnet. + Der jeweils aktive Plan wird durch einen schwarzen Randbalken markiert. + Sie knnen aber auch durch Anklicken der jeweiligen Planregion oder durch die Zahlentasten (1 bzw.2 bzw. 3) einen best. Plan direkt aktivieren ! Die Plne dienen der berlagerung (s.o.) und die jeweils aktiven Plne knnen gelscht, gendert, abgespeichert bzw. von der Diskette neu "beladen" werden. Die Felder der 3 Plne bleiben solange latent "beladen", bis sie gelscht oder berschrieben werden ! Gehen Sie von diesem Modus (F3) in einen Normalmodus (F4,F5,F6) und dann wieder zurck (F3), so wird der aktuelle Plan an die erste Stelle (Plan 1) kopiert ! F 4 / Belegpln. --------------- ...ergibt nur eine besondere Planform (fr mich) F 5 / NORM !!!!! ---------- Wird beim Laden eines Plans (sofern F3 nicht aktiv ist) stets eingestellt. Dieser "Normalzustand" hilft Ihnen durch Rckstel- lung auf Normeinstellungen aus jeder Verlegenheit und regeneriert auch den Bildschirm (falls mal doch ein Fehler auftritt, z.B. Bildwandern) F 6 / Privat ------------ ... ergibt mein persnliches Stundenplanformular, wo auch Klassenstrken eingetragen werden knnen..... (.... vielleicht werde ich es noch automatisieren...) F 7 / Laden ----------- ...ermglicht via Fileselectbox das Laden von Stundenplandateien von der Diskette. Beim Abspeichern erzeugt das Programm einen Vorspann "Stundenplan", so da falsche Dateien beim Laden erkannt werden. Die Extension ist auf ".SPL" voreingestellt. F 8 / -->DISK ------------- ... speichert via Fileselectbox den aktuellen Plan (mit dem o.a. Vorspann). Als Extension wird automatisch ".SPL" angefgt, falls keine oder keine andere Extension angegeben wird. Eine Datei gleichen Namens wird in ".BAK" umbenannt (automat. BACKUP !) F 9 / H.copy ------------ ... liefert auf P6 oder Kompatiblen eine Hardcopy des jeweils aktuellen Plans vom Schirm (und nur des Plans !) (Meiner Tochter machte es Spa, winzige Stundenplne an ihre Freundinnen zu verteilen !) F10 / LPRINT ------------ ... liefert einen direkten Ausdruck ber P6/7 oder Gabriele 9009. Der Ausdruck umfat auch die Uhrzeit und ist aber auf M E I N E B E D R F N I S S E / FORMULARE abgestimmt. (... wir haben recht seltsame Formulare, die zu keinem Zeilenschritt passen; ich mute daher bei der Gabi einen Rckschritt einbauen, um im "Rahmen zu bleiben"........) Wenn sie einen anderen Ausdruck brauchen, mssen Sie das Programm schon selbst ndern !!!! Falls Sie einen CP6 besitzen, knnen Sie auch "Farbe einbauen"; --- > noch nicht benutzte Proc. sind im Programm ! Viel Spa (hoffentlich!) .... und vielleicht bekomme ich von einem Kollegen ein Programm ....? Gernot Dirnsteiner ' Stundenplanerstellung ' ' G.Dirnsteiner, Falkenweg 7, 8313 Vilsbiburg ' ' ******* Version vom 5.10.88 GFA 2.02 *********** ' ' *************************************************************************** Aut.inf$="** STUNDENPLANDRUCK P6/7 ** | Gernot Dirnsteiner | Falkenweg 7| 8313 VILSBIBURG" Deffill 1,2,12 Pbox 0,0,639,399 Deftext 1,0,0,13 @Gong5 Alert 0,Aut.inf$,1,"Weiter|Desktop",Dum% If Dum%=2 End Endif Deffill 0 If Exist("FAECHER.INF")<>0 Open "I",#1,"FAECHER.INF" Input #1,Fachbezeichnung1$,Fachbezeichnung2$ Close #1 Else Deffill 1,2,18 Pbox 0,0,639,399 @Shadowbox(40,100,600,150,10) Text 50,130,"Datei FAECHER.INF nicht vorhanden --> Default$= Biologie,Chemie" @Shadowbox(260,200,370,250,7) Text 270,240,"W E I T E R" Deftext 1,0,0,6 Text 265,210,"Abbruch: Esc" Text 290,220,"sonst" @Gong5 Repeat Taste$=Inkey$ Until Taste$>"" Or Mousek<>0 If Taste$=Chr$(27) @E.xit Endif Fachbezeichnung1$="Biologie" Fachbezeichnung2$="Chemie" Endif Deffill 0 Cls ' ******************** Hauptprogramm *************************************** ' Spa%=6 Reihe%=10 Sx%=30 ! Startkoord. Sy%=30 Br%=100 ! Boxbreite Ho%=28 ! Boxhhe H.br%=Br% ! Boxbreite und H.ho%=Ho% ! -hhe fr H.copy X1%=6*Br%+Sx% Y1%=10*Ho%+Sy% Faktor%=8 ! Offsetfaktor, 8 fr Normalschrift(13), 4 fr 6 und 4 H.textgr%=13 Le.textgr%=6 Zeit.textgr%=13 Deftext 1,0,0,6 Dim Boxtext$(12),Tastenbelegg$(12) Dim Tag$(Spa%),Zeit$(Reihe%),Feld(Spa%,Reihe%),Feld$(Spa%,Reihe%) Dim Klasse$(8,11),Fach$(8,11),Anf.fach$(8,11),Lehrer$(8,11),Raum$(8,11),Abk$(11) Dim Klasse1$(8,11),Fach1$(8,11),Anf.fach1$(8,11),Lehrer1$(8,11),Raum1$(8,11),Abk1$(11) Dim Klasse2$(8,11),Fach2$(8,11),Anf.fach2$(8,11),Lehrer2$(8,11),Raum2$(8,11),Abk2$(11) Dim Klasse3$(8,11),Fach3$(8,11),Anf.fach3$(8,11),Lehrer3$(8,11),Raum3$(8,11),Abk3$(11) Dim Planzeit$(10) ' Dim X%(10),Y%(10),T$(10),L%(16),I$(16),V%(10) ! Fr Dialogbox ' ' ---------- Menleiste ------------------ @Mausbox(8,365,52,30,12) Erstflag%=1 ' ' --------------------------------------- @Hauptprozedur ' ' ' ' ********************************************************************** Procedure Hauptprozedur Do ' Taste$=Inkey$ If Taste$<>"" @Tastenproc Endif ' If (Mousey>330 And Mousek=1) Or Neubildflag%=0 @Mausbox(8,365,52,30,12) Endif ' ----------------------------------- If Mousek=1 And Ueb_flag%=1 If Mousey<110 Sy_cnt%=0 Else If Mousey>130 And Mousey<240 Sy_cnt%=1 Else If Mousey>250 Sy_cnt%=2 Else Goto Ueb_ende Endif Endif Endif Repeat Until Mousek=0 @Proc5 Ueb_ende: Endif ' ------------------------------------- @Wahlfeld(Sx%,Sy%,Br%,Ho%,Reihe%,Spa%) If Sp%<6 And Sp%>=0 And Re%<=9 And Re%>=0 If Sp%=5 ! wenn abk.spalte Sp5flag%=1 Else Sp5flag%=0 Endif If Re%<>6 @Dialog Put 0,365,Bild2$ Endif @Feldzuweisung If X%>Sx% And X%Sy% And Y%6 ! wenn nicht Mittag: normalisieren Deffill 1,1 Graphmode 3 ! gewhlte Box reinvertieren Pbox Sx%+Br%*Sp%+1,Sy%+Ho%*Re%+1,Sx%+Br%+Br%*Sp%-1,Sy%+Ho%+Ho%*Re%-1 Graphmode 1 Endif Endif @Feldeintrag Endif ' Loop Return ' ' ' ******************** Einzelprozeduren ************************************** ' ' ******* Wahlboxfeld, 2 dimensional ; Version vom 11.3.88 ****************** ' ******* G.Dirnsteiner, 8313 Vilsbiburg, Falkenweg 7 ********************** ' Procedure Wahlfeld(Sx%,Sy%,Br%,Ho%,Reihe%,Spa%) ' ' Text 400,380,"Dimensionierung= "+Str$(Reihe%)+","+Str$(Spa%) ' +++ bergabeparameter: Sx%,Sy% = Koordinaten Boxfeldbeginn/links-oben +++ ' +++ Br%,Ho% = Einzelboxbreite bzw.-hhe +++ ' +++ Reihe%, Spa% = Anzahl der waagr.Reihen bzw. senkr. Spalten +++ ' ++ Rckgabeparameter: Boxflag%(Re/Sp) ' ' If Neubildflag%=0 ! nur anfangs zeichnen ' Restore Zeit Deftext 1,0,0,Zeit.textgr% For I%=0 To Reihe%-1 Read Zeit$(I%) Read Planzeit$(I%) Text Sx%-20,Sy%+Ho%/1.5+Ho%*I%,Zeit$(I%) Next I% Deftext 1,0,0,H.textgr% ' ' If Br%>90 And Abk.flag%=0 Restore Tag.voll Else Restore Tag.abk. Abk.flag%=0 Endif ' For U%=0 To Spa%-1 Read Tag$(U%) Offs%=Br%-Faktor%*Len(Tag$(U%)) Text Sx%+Offs%/2+Br%*U%,Sy%-10,Tag$(U%) Next U% ' ' For I%=0 To Reihe%-1 For U%=0 To Spa%-1 ' ---------------------------------- If I%=6 ! Mittagspause Deffill 1,2,2 Else Deffill 1,0 Endif ' --------------------------------------- Pbox Sx%+Br%*U%,Sy%+Ho%*I%,Sx%+Br%+Br%*U%,Sy%+Ho%+Ho%*I% Deftext 1,0,0,13 Next U% Next I% ' @Regenerieren Box 5,3,Sx%+Br%*Spa%+3,Sy%+Ho%*Reihe%+3 ! Rahmen um Stundenplan ' Get 0,365,639,399,Bild2$ Endif Neubildflag%=1 ! nicht mehr zeichnen I%=0 ' Deffill 1,1 Do ' Taste$=Inkey$ If Taste$<>"" @Tastenproc Endif ' Mouse X%,Y%,K% Sp%=Int((X%-Sx%)/Br%) Re%=Int((Y%-Sy%)/Ho%) ' ' ------ Grenvernderung -------------- While X%>Sx%+Br%*Spa%-5 And X%Sy%+Ho%*Reihe%-5 And Y%"" @Tastenproc Endif ' Mouse X%,Y%,K% Defmouse 4 Pause 6 If K%=1 @Plangroesse Endif Wend ' ---------------------------------- ' If X%>Sx% And X%Sy% And Y%6 Graphmode 3 Pbox Sx%+Br%*Sp%+1,Sy%+Ho%*Re%+1,Sx%+Br%+Br%*Sp%-1,Sy%+Ho%+Ho%*Re%-1 Graphmode 1 Endif Deftext 1,0,0,13 ' Deffill 0,0 ! unten lschen Pbox 0,360,639,399 ' If Re%<>6 If Sp%>4 Text 30,377,Zeit$(Re%)+Tag$(Sp%)+" :" Else Text 30,377,Tag$(Sp%)+","+Zeit$(Re%)+"Stunde:" Endif Else Text 30,377,"Mittagspause" @Gong5 Put 0,365,Bild2$ Endif ' ' Showm Pause 7 Endif Else Defmouse 0 Pause 2 Endif Exit If K%=1 Loop ' Return ' ********************************************************************* Procedure Feldzuweisung Klasse$(Sp%,Re%)=I$(0) Fach$(Sp%,Re%)=I$(1) Anf.fach$(Sp%,Re%)=I$(1) Raum$(Sp%,Re%)=I$(2) Lehrer$(Sp%,Re%)=I$(3) On Sy_cnt% Gosub Plan1,Plan2,Plan3 ! Auch bei 3 Stundenpl. ndern Return ' ********************************************************************* Procedure Feldeintrag Deftext 1,0,0,H.textgr% Deffill 0 If Lehrer$(Sp%,Re%)>"" And Ueb_flag%=0 Shft%=2.5 Else Shft%=3.5 Endif Fuell$=" " If Kurzflag%=1 Fuell$="" Endif If Raum$(Sp%,Re%)="" Haupt$=Klasse$(Sp%,Re%)+Fuell$+Fach$(Sp%,Re%) Else Haupt$=Klasse$(Sp%,Re%)+" "+Fach$(Sp%,Re%)+" "+Raum$(Sp%,Re%) Endif If Ueb_flag%=1 Haupt$=Klasse$(Sp%,Re%)+" "+Left$(Lehrer$(Sp%,Re%),3) Endif If Bel_flag%=1 And Ueb_flag%=0 Haupt$=Klasse$(Sp%,Re%) Endif If Re%<>6 Pbox Sx%+Br%*Sp%+1,Sy%+Ho%*Re%+1,Sx%+Br%+Br%*Sp%-1,Sy%+Ho%+Ho%*Re%-1 Offs%=Br%-Faktor%*Len(Haupt$) Text Sx%+Offs%/2+Br%*Sp%,Sy%-Ho%/Shft%+Ho%*(Re%+1),Haupt$ Deftext 1,0,0,Le.textgr% Offs%=Br%-Faktor%*Len(Lehrer$(Sp%,Re%)) ' If Ueb_flag%=0 Or Bel_flag%=1 Text Sx%+Offs%/2+Br%*Sp%,Sy%-3+Ho%*(Re%+1),Lehrer$(Sp%,Re%) Endif ' Deftext 1,0,0,13 ' Endif Deftext 1,0,0,H.textgr% Return ' ********************************************************************* Procedure Plangroesse While Mousek=1 Mouse X%,Y%,K% If Y%>=350 Y%=350 Endif If X%<>X1% Or Y%<>Y1% And (X1%<>0 And Y1%<>0) Graphmode 3 Box 4,2,X%,Y% Box 4,2,X1%,Y1% Graphmode 1 Endif X1%=X% Y1%=Y% Wend X1%=0 Y1%=0 Defmouse 0 Br%=Int((X%-Sx%)/6) Ho%=Int((Y%-Sy%)/10) H.br%=Br% ! Boxbreite und H.ho%=Ho% ! -hhe fr H.copy ' * @Textgroesse ' * If Ueb_flag%=0 Cls Else Deffill 0 Endif Neubildflag%=0 ! neu zeichnen @Hauptprozedur Return ' ******************************************************************** Procedure Textgroesse If Br%<65 H.textgr%=6 Faktor%=8 Else If Br%<32 H.textgr%=4 Faktor%=4 Le.textgr%=4 Else H.textgr%=13 Endif Endif If Ho%<25 Zeit.textgr%=6 H.textgr%=6 Faktor%=8 Le.textgr%=4 If Ho%<15 Zeit.textgr%=4 H.textgr%=4 Faktor%=4 Endif Else Zeit.textgr%=13 Le.textgr%=6 Endif Return ' ********************************************************************* Procedure Regenerieren ' Neubildflag%=0 Put 0,365,Bild2$ For Sp%=0 To Spa%-1 For Re%=0 To Reihe%-1 If Br%<40 Kurzflag%=1 Fach$(Sp%,Re%)=Left$(Fach$(Sp%,Re%),3) If Br%<25 Fach$(Sp%,Re%)=Left$(Fach$(Sp%,Re%),2) Endif If Br%<10 Fach$(Sp%,Re%)=Left$(Fach$(Sp%,Re%),1) Endif Endif If Kurzflag%=0 Fach$(Sp%,Re%)=Anf.fach$(Sp%,Re%) Endif Deftext 1,0,0,H.textgr% Deffill 0 If Lehrer$(Sp%,Re%)>"" And Ueb_flag%=0 Shft%=2.5 Else Shft%=3.5 Endif If Raum$(Sp%,Re%)="" Haupt$=Klasse$(Sp%,Re%)+" "+Fach$(Sp%,Re%) Else Haupt$=Klasse$(Sp%,Re%)+" "+Fach$(Sp%,Re%)+" "+Raum$(Sp%,Re%) Endif ' If Ueb_flag%=1 Or Bel_flag%=1 Haupt$=Klasse$(Sp%,Re%)+" "+Left$(Lehrer$(Sp%,Re%),3) Endif If Bel_flag%=1 And Ueb_flag%=0 Haupt$=Klasse$(Sp%,Re%) Endif ' If Re%<>6 Pbox Sx%+Br%*Sp%+1,Sy%+Ho%*Re%+1,Sx%+Br%+Br%*Sp%-1,Sy%+Ho%+Ho%*Re%-1 Offs%=Br%-Faktor%*Len(Haupt$) Text Sx%+Offs%/2+Br%*Sp%,Sy%-Ho%/Shft%+Ho%*(Re%+1),Haupt$ Deftext 1,0,0,Le.textgr% Offs%=Br%-Faktor%*Len(Lehrer$(Sp%,Re%)) ' If Ueb_flag%=0 Or Bel_flag%=1 Text Sx%+Offs%/2+Br%*Sp%,Sy%-3+Ho%*(Re%+1),Lehrer$(Sp%,Re%) Endif ' Deftext 1,0,0,13 Endif Next Re% Next Sp% Return ' ********************************************************************* Procedure Dialog ' ********************************************************************** ' * Dialogartige Eingabeprozedur in GfA V 2.0 * ' * 3.8.1987 * ' ********************************************************************** ' ' If Sp5flag%=0 Restore Dialogdaten1 Else Restore Dialogdaten2 Endif ' I$(0)=Klasse$(Sp%,Re%) I$(1)=Fach$(Sp%,Re%) I$(1)=Anf.fach$(Sp%,Re%) I$(2)=Raum$(Sp%,Re%) I$(3)=Lehrer$(Sp%,Re%) ' For I%=0 To 3 ! ++++ Zeilenanzahl +++ Read X%(I%),Y%(I%),T$(I%),L%(I%),V%(I%) ' I$(i%)="" Next I% ' ' Rem +++ Data: Zeilenort(X%),Zeilennummer(Y%),vorggeg.Text(T$),Zeilenlnge(L%),++ Rem +++ zuletzt Datentyp(V%): 0= Alphanumerisch; 1= nur Zahl: 2= Zahl und / ++ Rem +++ beliebige Festlegung des Datentyps in --> Procedure E.ins_char(K%) +++ Dialogdaten1: Data 0,0,"Klasse:",5,0 Data 0,1," Fach:",15,0 Data 0,2," Raum:",3,0 Data 0,3,"Lehrer:",15,0 Dialogdaten2: Data 0,0,"Erkl.1:",11,0 Data 0,1,"",0,0 Data 0,2,"",0,0 Data 0,3,"Erkl.2:",15,0 ' ' @Eingabe(3,200,340,1)! N%(Zeilenzahl-1), X%, Y%(X/Y-Koord. der Box), F% Gosub Schnittstelle Return ' --------------------------- Procedure Eingabe(N%,X%,Y%,F%) Vdisys 38 Cb%=Dpeek(Ptsout+4) Ch%=Dpeek(Ptsout+6) Lh%=Dpeek(Ptsout+2) Ll%=Ch%-Lh% Insflg!=True Spec$=Chr$(8)+Chr$(13)+Chr$(27) Sp.scan$=Chr$(&H48)+Chr$(&H4B)+Chr$(&H50)+Chr$(&H4D)+Chr$(&H52) Spr$=Mki$(0)+Mki$(Lh%)+Mki$(-1)+Mki$(1)+Mki$(0) For I%=1 To Ch% Spr$=Spr$+Mkl$(&H8000) Next I% Spr$=Left$(Spr$+String$(74,0),74) U$=String$(100,"_") Dim Tx%(N%),Ty%(N%) Mx%=0 My%=0 For I%=0 To N% Tx%(I%)=X%+Cb%*(X%(I%)+Len(T$(I%))) Ty%(I%)=Y%+Ch%*Y%(I%) Mx%=Max(Mx%,Tx%(I%)+Cb%*L%(I%)) My%=Max(My%,Ty%(I%)) Next I% If F% Get X%-10,Y%-10-Ch%,Mx%+10,My%+10,Temp$ Endif Deffill 1,0 Color 1 Pbox X%-10,Y%-10-Ch%,Mx%+10,My%+10 Box X%-5,Y%-5-Ch%,Mx%+5,My%+5 ' oder deffill ,2,1 pbox ... For I%=0 To N% T$=T$(I%)+Left$(I$(I%)+U$,L%(I%)) Text X%+X%(I%)*Cb%,Y%+Y%(I%)*Ch%,T$ Next I% E%=0 T$=I$(E%) C%=0 Repeat @E.curson Repeat Mouse Mox%,Moy%,Mok% K$=Inkey$ Until Len(K$) Or Mok% ' --- Ergnzung: Eingabe-Ende durch Mausknopf 2 oder F10 -------- If Mok%=2 Or (Asc(Right$(K$))=68 And K$<>Chr$(68)) @E.ok Endif ' --------------------------------------------------------------- @E.cursoff If K$<>"" If Len(K$)=1 @E.do_char(Asc(K$)) Else @E.do_scan(Asc(Right$(K$))) Endif Endif If Mok% If Mox%>=X% And Moy%>=Y%-Ch% If Mox%<=Mx% And Moy%N% Or E%<0 If F% Put X%-10,Y%-10-Ch%,Temp$ Endif Erase Tx%() Erase Ty%() Return Procedure E.dsp.ln If Len(T$)>L%(E%) Out 2,7 T$=Left$(T$,L%(E%)) Endif C%=Min(C%,Len(T$),L%(E%)) Text Tx%,Ty%,Left$(T$+U$,L%(E%)) Return Procedure E.curson Tx%=Tx%(E%) Ty%=Ty%(E%) Sprite Spr$,Tx%+C%*Cb%,Ty% Return Procedure E.cursoff Sprite Spr$ Return Procedure E.ins_char(K%) Do Exit If V%(E%)=1 And Instr("0123456789",Chr$(K%))=0 Exit If V%(E%)=2 And Instr("0123456789/()-",Chr$(K%))=0 If Insflg! Or C%=Len(T$) T$=Left$(T$,C%)+Chr$(K%)+Mid$(T$,C%+1) Else Mid$(T$,C%)=Chr$(K%) Endif Inc C% @E.dsp.ln Goto E.insx Loop Out 2,7 E.insx: Return Procedure E.do_char(K%) V%=Instr(Spec$,Chr$(K%)) If V% On V% Gosub E.backs,E.enter,E.esc Else @E.ins_char(K%) Endif Return Procedure E.backs If C%>0 T$=Left$(T$,C%-1)+Mid$(T$,C%+1) Dec C% @E.dsp.ln Endif Return Procedure E.enter I$(E%)=T$ Inc E% T$=I$(E%) C%=0 Return Procedure E.esc T$="" C%=0 @E.dsp.ln Return ' +++++++++++++++++++++++++ Procedure E.do_scan(K%) V%=Instr(Sp.scan$,Chr$(K%)) If V% On V% Gosub E.up,E.lft,E.dwn,E.rgt,E.insert,E.ok Else Endif Return ' -------------- Ergnzung Schnellbesttigung--------- Procedure E.ok ! wenn Maustaste 2 gedrckt @E.enter ! Zeile sofort bernehmen (auch ohne Enter) E%=N%+1 ! Abbruchbedingung erfllt Return ' --------------------------------------------------- Procedure E.up I$(E%)=T$ If E% Dec E% Else E%=N% Endif T$=I$(E%) C%=Len(T$) Return Procedure E.dwn I$(E%)=T$ If E%N% If 0 E.dom.ok: I$(E%)=T$ E%=I% T$=I$(E%) C%=Min(Q%,Len(T$)) @E.curson @E.dsp.ln Endif Return Rem ************** Schnittstelle zu Eigenprogrammen ***************+ Procedure Schnittstelle For I%=0 To 2 ! Originalbeispiel zum Bildschirm-Ausdruck der 3 ' Print T$(I%)'I$(I%)! eingegebenen Datenzeilen untereinander ' I$(I%)="" ! T$ ist der Kopftext (vorgegeben) Next I% ! I$ ist der eingegebene Text; setzt man I$="", Print ! so ist anschlieend die Box wieder frei ! Return ' ' ' ' ' --------------------------------------------------------------------- Procedure Druckerroutine ' ************************************************************************** ' **************** Color-P6-Teilhardcopy- Proc.Komplex ****************** ' **************** mit Druckerkontrolle,Abbruch mit ESC ****************** ' **************** Gernot Dirnsteier, Falkenweg 7 ****************** ' **************** 8313 Vilsbiburg ****************** ' ********************* Version vom 20.5.88 /1.00 ************************* ' ------- Maangaben fr Drucker etc. -------- Rand%=0 ! Randabst.(Hardcopy-Einrcken) -Voreinstellg.(*0.5 mm) Start.y%=0 ! Startkoordinaten Harcopybild Start.x%=0 ! links/oben If Ueb_flag%=1 Start.y%=Sy%-17 ! Startkoordinaten Harcopybild bei Dreierplan Start.x%=0 ! links/oben Endif Schluss.x%=6*H.br%+Sx%+6 ! Endkoordinaten Schluss.y%=10*H.ho%+Sy%+6 ! rechts/unten ' ' ------------- Druckeranweisungen --------------------------- Spaltenfaktor%=2 ! fr einfache Dichte=1, doppelte Dichte=2 ... Sn%=6 ! fr 24-Nadel-Druck DD! (einfache Dichte->3 doppelte Dichte->6 ..) Modus%=39 ! ...180 DPI !.. ( 33 = 120 DPI, 40 = 360 DPI ) ' Spaltenzahl%=Schluss.x%-Start.x% Zeilenzahl%=Int((Schluss.y%-Start.y%+11)/12) N2%=Spaltenzahl%*Spaltenfaktor%/256 N1%=Spaltenzahl%*Spaltenfaktor%-(N2%*256) @H.ardcopy Return ' ' *********** Routine Hardcopy fr NEC P6 12-Punkt: ******************** ' *********** Abtastung, Auswertung , Hardcopy ************************* Procedure H.ardcopy ' ------- Farbwarnung ----- If Farbflag1% ! wenn Farbe gewnscht...dann Flag setzen!! Farbwarnflag%=1 ! Warnflag% (wieder) setzen Endif If Farbwarnflag%=1 Pause 5 @Gong5 Alert 1," FARBMODUS eingestellt!| |Bitte ggf. Farbband einlegen|und Anschlagstrke reduzieren!",1,"O.K.",Dummy% Farbwarnflag%=0 Endif ' -------------------------- @Hardcopyhinweis ' ' ' E.xitflag%=0 Hidem Zeile$=Space$(Sn%*Spaltenzahl%) G$=Chr$(27)+"$"+Chr$(Rand%)+Chr$(0)+Chr$(27)+"*"+Chr$(Modus%)+Chr$(N1%)+Chr$(N2%) ' ' Open "",#99,"LST:" For K%=0 To Zeilenzahl%-1 Exit If E.xitflag%=1 Drx%=Varptr(Zeile$) ' ' For I%=0 To Spaltenzahl%-1 ' -------- @Drucker_online(0) ' --------- If Inkey$=Chr$(27) Gosub Abbruch Endif Exit If E.xitflag%=1 ' ----- Suz1%=0 Suz2%=0 Suz3%=0 For M%=0 To 11 Z1%=0 Z2%=0 Z3%=0 P%=Point(Start.x%+I%,Start.y%+K%*12+M%)*12-M% If P%=12 Z1%=192 Z2%=0 Z3%=0 Endif If P%=11 Z1%=48 Z2%=0 Z3%=0 Goto Frag.ende Endif If P%=10 Z1%=12 Z2%=0 Z3%=0 Goto Frag.ende Endif If P%=9 Z1%=3 Z2%=0 Z3%=0 Goto Frag.ende Endif If P%=8 Z1%=0 Z2%=192 Z3%=0 Goto Frag.ende Endif If P%=7 Z1%=0 Z2%=48 Z3%=0 Goto Frag.ende Endif If P%=6 Z1%=0 Z2%=12 Z3%=0 Goto Frag.ende Endif If P%=5 Z1%=0 Z2%=3 Z3%=0 Endif If P%=4 Z1%=0 Z2%=0 Z3%=192 Goto Frag.ende Endif If P%=3 Z1%=0 Z2%=0 Z3%=48 Goto Frag.ende Endif If P%=2 Z1%=0 Z2%=0 Z3%=12 Goto Frag.ende Endif If P%=1 Z1%=0 Z2%=0 Z3%=3 Endif Frag.ende: Suz1%=Suz1%+Z1% Suz2%=Suz2%+Z2% Suz3%=Suz3%+Z3% Next M% ' --------------------------------------------- For Pi%=1 To Spaltenfaktor% ! fr doppelte Dichte, sonst ohne For-next Poke Drx%,Suz1% Inc Drx% Poke Drx%,Suz2% Inc Drx% Poke Drx%,Suz3% Inc Drx% Next Pi% ' ---------------------------------------------- ' ' Next I% ' ' If Farbflag%=0 If K%=3 Print #99,Fa$; ! Farbe Endif Endif ' Exit If E.xitflag%=1 ' Print #99,G$;Zeile$;Chr$(13); Print #99,Chr$(27);"J";Chr$(24); Pause 10 Next K% ' ' Close #99 ' +++ Papiertransport, Zeilenspeicher lschen, Drucker in Grundstellung +++++++ ' ' If Rausflag%=0 Lprint Chr$(24); ! Zeilenpuffer leeren Lprint Chr$(28);"@"; ! Drucker-Rckstellung Lprint Chr$(27);"A";Chr$(Et.abst%) ! Transport + Z.speicherlschen Endif Rausflag%=0 ' Sput Screen$ Return ' ----------------------------------------------------------------- Procedure Drucker_online(Don%) If Out?(Don%)=False Repeat @Gong5 Alert 3," DRUCKER NICHT ONLINE: | | e i n s c h a l t e n !",1," A H A|Abbruch",Onl% If Onl%=2 E.xitflag%=1 Rausflag%=1 Pause 5 Endif Until Out?(Don%)<>0 Or E.xitflag%=1 Endif Return ' ---------------------------------------------------------------- Procedure Druckerkontrolle Rem Rem ++++++++ Druckerabfrage ++++++++++++ Druckerwarnung: If Out?(0)=False Rem +++++++ Pfiff 3 (mittelhoch)+++++++++ For Pfiff=1 To 3 Sound 1,15,#30 Sound 2,15,#16 Wave 3,3,4,1500 Pause 10 Wave 0,0,0 Next Pfiff Rem +++++++++++++++++++++++++++++++++++++ Alert 3," Schalten Sie den | |DRUCKER EIN bzw. ONLINE !",1,"DRUCKEN|Abbruch",Abbruchabfrage% Endif If Abbruchabfrage%=2 Abbruchabfrage%=0 E.xitflag%=1 Druckabbruch%=1 Goto Druckerkontroll_ende Else Druckabbruch%=0 Endif If Out?(0)=0 Goto Druckerwarnung Endif Druckerkontroll_ende: Return Rem ************************************************************* ' ------------------------------------------------------------------ Procedure Abbruch Alert 2,"Drucken abbrechen ?",1,"JA|NEIN",Dummy% If Dummy%=1 Showm While Out?(0)=False @Drucker_online(0) Wend E.xitflag%=1 ' ************************************************************************ For I%=1 To 2 @Gong5 Next I% ' ************************************************************************ Endif Return ' ************************************************************************ Procedure E.xit @Gong5 Alert 2,"PROGRAMM BEENDEN ?",2,"EXIT|Weiter",Dummy% If Dummy%=1 If Out?(0)=True Lprint Chr$(24) ! Zeilenpuffer leeren Lprint Chr$(28);"@" ! Drucker-Rckstellung, wenn online Endif Cls End Endif Return ' ************************************************************************ Procedure Gong5 Sound 1,15,10,5 Wave 1,1,9,25000 Pause 15 Return ' *************** Farbeinstellung; ber on..gosub whlen! ***************** ' -------------------------- Farbe ------------------------- Procedure Fa1 Fa$=Chr$(27)+"r"+Chr$(0) ! schwarz Farbflag1%=0 Return Procedure Fa2 Farbflag1%=1 Fa$=Chr$(27)+"r"+Chr$(1) ! rot Return Procedure Fa3 Farbflag1%=1 Fa$=Chr$(27)+"r"+Chr$(5) ! orange Return Procedure Fa4 Farbflag1%=1 Fa$=Chr$(27)+"r"+Chr$(2) ! blau Return Procedure Fa5 Farbflag1%=1 Fa$=Chr$(27)+"r"+Chr$(3) ! violett Return Procedure Fa6 Farbflag1%=1 Fa$=Chr$(27)+"r"+Chr$(6) ! grn Return Procedure Fa7 Farbflag1%=1 Fa$=Chr$(27)+"r"+Chr$(4) ! gelb Return Procedure Fa8 Farbflag1%=1 Fa$=Chr$(27)+"r"+Chr$(7) ! braun Return ' ****************************************************************** ' **************** Auswahlboxen mit Mausklick anwhlen, ********************** ' wenn eine regelmige Boxreihe vorliegt ' ' bergabepar.: Lx%,Ly%,Ho%,Br% (=1.Box),Bz%(=Boxanzahl) ' Procedure Mausbox(Lx%,Ly%,Br%,Ho%,Bz%) Local X%,Y%,K% Rx%=Lx%+Br% Ry%=Ly%+Ho% ' Restore Tastenbelegung If Erstflag%=0 For Bo%=0 To Bz%-1 Read Tastenbelegg$(Bo%) T.offs%=(Br%-6*Len(Tastenbelegg$(Bo%)))/2 Deftext 1,1,0,4 Text Lx%+Bo%*Br%+T.offs%,Ry%-20,Tastenbelegg$(Bo%) Next Bo% Endif Restore Boxtext ' Do ' Taste$=Inkey$ If Taste$<>"" @Tastenproc Endif ' Mouse X%,Y%,K% For Bo%=0 To Bz%-1 ' ++++++++++++++++++ fr waagrechte Boxreihe +++++++++++++++++++++ If Erstflag%=0 If Bo%=0 Or Bo%=6 Or Bo%=8 Or Bo%=9 Box Lx%+Bo%*Br%+1,Ly%+1,Rx%+Bo%*Br%-1,Ry%-1 Endif If Bo%=10 Box Lx%+Bo%*Br%+2,Ly%+2,Rx%+Bo%*Br%-2,Ry%-2 Endif Box Lx%+Bo%*Br%,Ly%,Rx%+Bo%*Br%,Ry% Read Boxtext$(Bo%) B.offs%=(Br%-6*Len(Boxtext$(Bo%)))/2 Deftext 1,0,0,4 Text Lx%+Bo%*Br%+B.offs%,Ry%-7,Boxtext$(Bo%) Else Put 0,365,Bild2$ Endif If X%>Lx%+Br%*Bo% And X%Ly% And Y%"\" Or Datei$<>"" ' Return ' ***************************************************************************** ' ********************************************************************* Procedure Auto.extender Extender$="spl" If Instr(Datei$,".")=0 Datei$=Datei$+"."+Extender$ Endif ' If Right$(Datei$,3)<>Extender$ ' P_os=Instr(Datei$,".") ' Datei$=Left$(Datei$,P_os)+Extender$ ' Endif Return ' ********************************************************************* ' ****************** Daten laden ******************** Procedure Laden If Datei$<>"" If Exist(Datei$)=0 Alert 2," Diese Datei | |existiert nicht !",1,"O.K.",Dummy% Datei$="" Else Open "I",#1,Datei$ Input #1,Kontroll$ If Kontroll$<>"Stundenplan" @Gong5 @Gong5 Alert 3," Das ist doch| K E I N | Stundenplan !",1,"O.K.",Dum% Goto Laden_ende Endif For I%=0 To Reihe%-1 For U%=0 To Spa%-1 Input #1,Klasse$(U%,I%),Fach$(U%,I%),Lehrer$(U%,I%),Raum$(U%,I%) Anf.fach$(U%,I%)=Fach$(U%,I%) Next U% Input #1,Abk$(I%) Next I% Laden_ende: Close #1 Endif Endif ' --------- Rckstellung auf Ausgangs-Format --------- Sx%=30 ! Startkoord. If Ueb_flag%=0 ! Wenn keine berlagerung Sy%=30 Br%=100 ! Boxbreite Ho%=28 ! Boxhhe H.br%=Br% ! Boxbreite und H.ho%=Ho% ! -hhe fr H.copy X1%=6*Br%+Sx% Y1%=10*Ho%+Sy% Faktor%=8 ! Offsetfaktor, 8 fr Normalschrift(13), 4 fr 6 und 4 H.textgr%=13 Le.textgr%=6 Zeit.textgr%=13 Else Br%=97 Ho%=9 H.br%=Br% ! Boxbreite und H.ho%=Ho% ! -hhe fr H.copy On Sy_cnt% Gosub Plan1,Plan2,Plan3 Endif ' ------------------------------------------------- Put 150,5,Bild$ Return ' **************** Daten speichern ****************** Procedure Backup If Exist(Datei$) Extlage%=Instr(1,Datei$,".") Backupname$=Left$(Datei$,Extlage%)+"BAK" If Exist(Backupname$) Kill Backupname$ Endif Altername$=Datei$ Name Datei$ As Backupname$ Endif Return ' Procedure Speichern If Datei$>"" And Datei$<>"\" Open "O",#1,Datei$ Write #1,"Stundenplan" For I%=0 To Reihe%-1 For U%=0 To Spa%-1 Write #1,Klasse$(U%,I%),Fach$(U%,I%),Lehrer$(U%,I%),Raum$(U%,I%) Next U% Write #1,Abk$(I%) Next I% Close #1 Endif Return ' ***************************************************************************** Procedure Tastenproc ' ' ---------- Plannummerwahl bei Dreierplan ---------- ' If Ueb_flag%=1 ! Wenn berlagerungsmodus If Taste$="1" Sy_cnt%=0 @Proc5 Endif If Taste$="2" Sy_cnt%=1 @Proc5 Endif If Taste$="3" Sy_cnt%=2 @Proc5 Endif Endif ' ' ' ------- Esc , ClrHome und Funktionstastenabfrage -------- ' If Asc(Right$(Taste$))=27 ! Exit @Proc1 Endif If Asc(Right$(Taste$))=119 And Taste$<>"w" ! wenn Control+Clr --> Disk lschen @F.ilekill Endif If Asc(Right$(Taste$))=71 And Taste$<>"G" ! Wenn Clr -->Speicher lschen @Proc2 @Hauptprozedur Endif If Asc(Right$(Taste$))=59 And Taste$<>";" ! F1:Regenerieren" Ueb_flag%=0 Neubildflag%=0 @Hauptprozedur Endif ' If Asc(Right$(Taste$))=60 And Taste$<>"<" ! F2:Verteilen @Proc4 Endif ' If Asc(Right$(Taste$))=61 And Taste$<>"=" ! F3: Dreierplan @Proc5 Endif If Asc(Right$(Taste$))=62 And Taste$<>">" ! F4: Belegplan,Lehrerz. @Proc6 Endif If Asc(Right$(Taste$))=63 And Taste$<>"?" ! F5: Standardgre @Proc7 Endif If Asc(Right$(Taste$))=64 And Taste$<>"@" ! F6: Privatplan @Proc8 Endif If Asc(Right$(Taste$))=65 And Taste$<>"A" ! F7: Laden @Proc9 Endif If Asc(Right$(Taste$))=66 And Taste$<>"B" ! F8: Speichern @Proc10 Endif If Asc(Right$(Taste$))=67 And Taste$<>"C" ! F9: Hardcopy @Proc11 Endif If Asc(Right$(Taste$))=68 And Taste$<>"D" ! F10: Lprint/Gabi @Proc12 Endif Return ' ***************************************************************************** Procedure Proc1 @Gong5 Alert 3,"Sind alle| DATEN |gesichert ?",1,"JA|NEIN",Dum% If Dum%=1 @E.xit Endif Return Procedure Proc2 @Gong5 Alert 2,"Wirklich alles lschen ?",2,"lschen|Abbruch",Dummy% If Dummy%=1 For I%=0 To Reihe%-1 For U%=0 To Spa%-1 Klasse$(U%,I%)="" Fach$(U%,I%)="" Anf.fach$(U%,I%)="" Lehrer$(U%,I%)="" Raum$(U%,I%)="" Next U% Abk$(I%)="" Next I% Neubildflag%=0 ' On Sy_cnt% Gosub Plan1,Plan2,Plan3 ! auch Zwischenspeicher lschen ' ' hier nicht @Hauptprozedur,sondern nur bei Tastenabfrage !! Endif Return Procedure Proc3 Neubildflag%=0 Return Procedure Proc4 ' ----------------------------------------------------------------- If Ueb_flag%=1 And (Sy_cnt%=1 Or Sy_cnt%=2) @Gong5 Alert 1,"Erst PLAN 3 aktivieren !",1,"A H A",Dum% Else If Ueb_flag%=1 And Sy_cnt%=3 Sy_cnt%=2 @Verteilung Endif Endif If Ueb_flag%=0 @Gong5 Alert 1," | Vergleichsmodus (F3) | n i c h t | aktiv",1,"A H A",Dum% Endif ' ------------------------------------------------------------------ Return Procedure Proc5 ! ----------> berlagern Bel_flag%=0 ' If Firstueb%=0 @Plan1 Sy_cnt%=0 Deffill 0 Pbox 0,0,639,365 Firstueb%=1 Endif ' ' Sy%=20 Ueb_flag%=1 Br%=97 ! Boxbreite Ho%=9 ! Boxhhe H.br%=Br% ! Boxbreite und H.ho%=Ho% ! -hhe fr H.copy If Sy_cnt%=3 Sy_cnt%=0 Endif If Sy_cnt%=0 Sy%=Sy%+11*Ho%*Sy_cnt% Else Sy%=Sy%+11*Ho%*Sy_cnt%+20*Sy_cnt% Endif ' Inc Sy_cnt% ' On Sy_cnt% Gosub Neuplan1,Neuplan2,Neuplan3 ' Deftext 1,0,0,6 Deffill 0 Pbox 0,Sy%-24,Sx%+12*Br%+6,Sy%+10*Ho%+6 Neubildflag%=0 @Textgroesse Deffill 0 Pbox 618,0,639,365 Deffill 1 Pbox 618,Sy%,637,Sy%+11*Ho%-10 ' Deftext 1,0,0,13 Text 624,40+120*(Sy_cnt%-1),Sy_cnt% ' Neubildflag%=0 @Hauptprozedur Ueb_flag%=0 Return Procedure Proc6 Bel_flag%=1 Ueb_flag%=0 Firstueb%=0 Sx%=30 ! Startkoord. Sy%=30 Br%=55 ! Boxbreite Ho%=30 ! Boxhhe H.br%=Br% ! Boxbreite und H.ho%=Ho% ! -hhe fr H.copy Faktor%=8 ! Offsetfaktor, 8 fr Normalschrift(13), 4 fr 6 und 4 H.textgr%=6 Le.textgr%=6 Zeit.textgr%=6 Abk.flag%=1 !---> Restore Tag.abk. Cls Neubildflag%=0 ! @Hauptprozedur Bel_flag%=0 Return Procedure Proc7 ! wieder Standardgre Firstueb%=0 Bel_flag%=0 Ueb_flag%=0 Sy_cnt%=0 Kurzflag%=0 Sx%=30 ! Startkoord. Sy%=30 Br%=100 ! Boxbreite Ho%=28 ! Boxhhe H.br%=Br% ! Boxbreite und H.ho%=Ho% ! -hhe fr H.copy Faktor%=8 ! Offsetfaktor, 8 fr Normalschrift(13), 4 fr 6 und 4 H.textgr%=13 Le.textgr%=6 Zeit.textgr%=13 Cls Neubildflag%=0 @Hauptprozedur Return Procedure Proc8 Ueb_flag%=0 Firstueb%=0 Sx%=30 Sy%=85 Br%=80 ! Boxbreite Ho%=24 ! Boxhhe H.br%=Br% ! Boxbreite und H.ho%=Ho% ! -hhe fr H.copy Faktor%=8 ! Offsetfaktor, 8 fr Normalschrift(13), 4 fr 6 und 4 ' H.textgr%=13 ' Le.textgr%=6 ' Zeit.textgr%=6 @Textgroesse Abk.flag%=1 !---> Restore Tag.abk. Cls Neubildflag%=0 ! Deftext 1,0,0,6 For I%=1 To 2 For Ii%=0 To 4 Text 35+97*Ii%,27*I%,"Kl.___:___" Next Ii% Next I% Box 30,7,30+6*Br%,60 @Hauptprozedur Return Procedure Proc9 @Diskhinweis Deftext 1,0,0,13 Text 250,38," L A D E N " @F.ileselect If Datei$>"" And Datei$<>"\" @Laden If Ueb_flag%=0 Cls Endif Neubildflag%=0 @Hauptprozedur Endif Put 150,5,Bild$ Datei$="" Return Procedure Proc10 @Diskhinweis Deftext 1,0,0,13 Text 230,38," S P E I C H E R N " @F.ileselect If Datei$>"" And Datei$<>"\" @Backup @Auto.extender @Speichern Endif Put 150,5,Bild$ Return Procedure Proc11 @Druckerroutine K%=1 Return Procedure Proc12 @Grossausdruck Return ' ' ********************************************************************* Procedure F.ilekill @Diskhinweis Text 240,38," L S C H E N " Fileselect "\*.SPL","",F.kill$ ' If F.kill$<>"\" And F.kill$>"" K.illwarnung$="Datei "+F.kill$+"|wirklich lschen ?" Alert 2,K.illwarnung$,2,"JA|NEIN",Dummy If Dummy=1 Kill F.kill$ Endif Endif Put 150,5,Bild$ ' Return ' ********************************************************************* ' Procedure Diskhinweis Get 150,5,500,60,Bild$ Deffill 0 Pbox 155,12,485,55 Box 157,15,482,50 Box 159,17,480,48 Return ' **************************************************************************** Procedure Plan1 For I%=0 To Reihe%-1 For U%=0 To Spa%-1 Klasse1$(U%,I%)=Klasse$(U%,I%)! Fach1$(U%,I%)=Fach$(U%,I%)! Raum1$(U%,I%)=Raum$(U%,I%)! Lehrer1$(U%,I%)=Lehrer$(U%,I%)! Anf.fach1$(U%,I%)=Anf.fach$(U%,I%) Abk1$(U%)=Abk$(U%) Next U% Next I% Return Procedure Plan2 For I%=0 To Reihe%-1 For U%=0 To Spa%-1 Klasse2$(U%,I%)=Klasse$(U%,I%)! Fach2$(U%,I%)=Fach$(U%,I%)! Raum2$(U%,I%)=Raum$(U%,I%)! Lehrer2$(U%,I%)=Lehrer$(U%,I%)! Anf.fach2$(U%,I%)=Anf.fach$(U%,I%) Abk2$(U%)=Abk$(U%) Next U% Next I% Return Procedure Plan3 For I%=0 To Reihe%-1 For U%=0 To Spa%-1 Klasse3$(U%,I%)=Klasse$(U%,I%)! Fach3$(U%,I%)=Fach$(U%,I%)! Raum3$(U%,I%)=Raum$(U%,I%)! Lehrer3$(U%,I%)=Lehrer$(U%,I%)! Anf.fach3$(U%,I%)=Anf.fach$(U%,I%) Abk3$(U%)=Abk$(U%) Next U% Next I% Return ' ------------------ Procedure Neuplan1 For I%=0 To Reihe%-1 For U%=0 To Spa%-1 Klasse$(U%,I%)=Klasse1$(U%,I%)! Fach$(U%,I%)=Fach1$(U%,I%)! Raum$(U%,I%)=Raum1$(U%,I%)! Lehrer$(U%,I%)=Lehrer1$(U%,I%)! Anf.fach$(U%,I%)=Anf.fach1$(U%,I%) Abk$(U%)=Abk1$(U%) Next U% Next I% Return Procedure Neuplan2 For I%=0 To Reihe%-1 For U%=0 To Spa%-1 Klasse$(U%,I%)=Klasse2$(U%,I%)! Fach$(U%,I%)=Fach2$(U%,I%)! Raum$(U%,I%)=Raum$(U%,I%)! Lehrer$(U%,I%)=Lehrer2$(U%,I%)! Anf.fach$(U%,I%)=Anf.fach2$(U%,I%) Abk$(U%)=Abk2$(U%) Next U% Next I% Return Procedure Neuplan3 For I%=0 To Reihe%-1 For U%=0 To Spa%-1 Klasse$(U%,I%)=Klasse3$(U%,I%)! Fach$(U%,I%)=Fach3$(U%,I%)! Raum$(U%,I%)=Raum3$(U%,I%)! Lehrer$(U%,I%)=Lehrer3$(U%,I%)! Anf.fach$(U%,I%)=Anf.fach3$(U%,I%) Abk$(U%)=Abk3$(U%) Next U% Next I% Return ' ********************************************************************** Procedure Verteilung @Gong5 ' -------------------- Fachbezeichnungen$=Upper$(Fachbezeichnung1$+"|"+Fachbezeichnung2$) Alert 2," Fachselektion fr die | | B E R L A G E R U N G",1,"NICHTS|"+Fachbezeichnungen$,Dum% If Dum%=1 Fachkontrollflag%=0 Endif If Dum%=2 Fachkontrollflag%=1 Fachkontroll1$=Left$(Fachbezeichnung1$,2) Fachkontroll2$=Left$(Fachbezeichnung1$,2) Endif If Dum%=3 Fachkontrollflag%=1 Fachkontroll1$=Left$(Fachbezeichnung2$,2) Fachkontroll2$=Left$(Fachbezeichnung2$,2) Endif ' --------------------- For I%=0 To Reihe%-1 For U%=0 To Spa%-1 @Fachkontrolle If Klasse1$(U%,I%)>"" And Left$(Klasse1$(U%,I%))<>"*" And (Klasse2$(U%,I%)="" Or Left$(Klasse2$(U%,I%))="*" Or Left$(Klasse2$(U%,I%),2)<>Fachkontroll2$) ' ------ If Left$(Fach1$(U%,I%),2)=Fachkontroll1$ ' ------- If Klasse3$(U%,I%)="" Or Klasse3$(U%,I%)="*****" Klasse3$(U%,I%)=Klasse1$(U%,I%) Fach3$(U%,I%)=Fach1$(U%,I%) Raum3$(U%,I%)=Raum1$(U%,I%) Lehrer3$(U%,I%)=Lehrer1$(U%,I%) Anf.fach3$(U%,I%)=Anf.fach1$(U%,I%) Abk3$(U%)=Abk1$(U%) Endif Endif Endif ' If (Klasse1$(U%,I%)="" Or Left$(Klasse1$(U%,I%))="*" Or Left$(Klasse1$(U%,I%),2)<>Fachkontroll1$) And Klasse2$(U%,I%)>"" And Left$(Klasse2$(U%,I%))<>"*" ' ------ If Left$(Fach2$(U%,I%),2)=Fachkontroll2$ ' -------- If Klasse3$(U%,I%)="" Or Klasse3$(U%,I%)="*****" Klasse3$(U%,I%)=Klasse2$(U%,I%) Fach3$(U%,I%)=Fach2$(U%,I%) Raum3$(U%,I%)=Raum2$(U%,I%) Lehrer3$(U%,I%)=Lehrer2$(U%,I%) Anf.fach3$(U%,I%)=Anf.fach2$(U%,I%) Abk3$(U%)=Abk2$(U%) Endif Endif Endif If (Klasse1$(U%,I%)>"" And Left$(Klasse1$(U%,I%))<>"*") And (Klasse2$(U%,I%)>"" And Left$(Klasse2$(U%,I%))<>"*") ' If Klasse3$(U%,I%)="" Or Klasse3$(U%,I%)="*****" If Left$(Fach1$(U%,I%),2)=Fachkontroll1$ And Left$(Fach2$(U%,I%),2)=Fachkontroll2$ Klasse3$(U%,I%)="*****" Fach3$(U%,I%)="" Raum3$(U%,I%)="" Lehrer3$(U%,I%)="" Anf.fach3$(U%,I%)="" Abk3$(U%)="" Endif Endif Next U% Next I% Fachkontrollflag%=0 ! keine Fachbegrenzung mehr @Proc5 Return ' ********************************************************************** Procedure Fachkontrolle If Fachkontrollflag%=0 Fachkontroll1$=Left$(Fach1$(U%,I%),2) Fachkontroll2$=Left$(Fach2$(U%,I%),2) Endif Return ' ********************************************************************** Procedure Grossausdruck Alert 2,"KLASSEN-Plan| oder|FACHRAUM-Plan ?",2,"KLASSE|FACHRAUM",Wahl% Sget Screen$ @Gong5 Alert 2," GABRIELE 9009 seriell | oder| NEC P6/7 parallel ? ",1,"GABI|NEC P6/7|Abbruch",Dum% If Dum%=1 Gabi_flag%=1 Nec7_flag%=0 Nec6_flag%=0 Planhinweis1$="1. Stundenplan auf A3-Marken|" Planhinweis2$="2. Hheneinst. auf Zeilenmitte|" Planhinweis3$="3. - Umlaute z.Zt. vermeiden -|" Planhinweis4$="4. GABI 9009 online schalten !" Planhinweis$=Planhinweis1$+Planhinweis2$+Planhinweis3$+Planhinweis4$ Alert 1,Planhinweis$,1,"A H A|Abbruch",Dum% Einrueck%=7 @Gong5 Kanal$="Aux:" Open "O",#1,Kanal$ ! seriellen Kanal ffnen ! Endif If Dum%=2 Alert 1," Haben Sie |den breiten NEC P7| oder|den schmalen NEC P6 ?",2," P 7 | P 6 |Abbruch",Ddum% If Ddum%=3 Goto Ende Endif If Ddum%=2 Nec6_flag%=1 Endif If Ddum%=1 Nec7_flag%=1 Endif Gabi_flag%=0 @Drucker_online(0) Endif If Dum%=3 Goto Ende Endif If E.xitflag%=1 Goto Ende Endif @Druckhinweis ' ' For Re%=0 To 9 Planzeile$=Planzeit$(Re%)+" " For Sp%=0 To 6 If Wahl%=1 Planstring$=Fach$(Sp%,Re%)+" "+Lehrer$(Sp%,Re%) ! Klassenplan Else Planstring$=Klasse$(Sp%,Re%)+" "+Lehrer$(Sp%,Re%) ! Fachraumplan Endif If Sp%<5 If Nec6_flag%=1 Leerstring$=Space$((11-Len(Planstring$))/2) Else Leerstring$=Space$((17-Len(Planstring$))/2) Endif Else Leerstring$=" " Endif Planblock$=Leerstring$+Planstring$+Leerstring$ Planzeile$=Planzeile$+Planblock$ Next Sp% If Gabi_flag%=1 @Drucker_online(1) ' ------- Druckereinstellg. Gabi------------- If Kanal$="Aux:" And Re%>0 Print #1,Chr$(27);Chr$(5);Chr$(24) ! ca 12 mm Zeilenvorschub Endif ' --------------------------------------- If Re%=7 Print #1,Chr$(27);Chr$(10); ! insges. 1,5 Z.Rckschritt zur Korrektur Print #1,Chr$(27);Chr$(68); Endif If Re%<>6 Print #1,Chr$(27);"W";Space$(Einrueck%)+Planzeile$ !Fett,Eingerckt Endif Endif ' If Nec7_flag%=1 Or Nec6_flag%=1 @Drucker_online(0) If Re%<>6 Lprint Space$(Einrueck%)+Planzeile$ !Fett,Eingerckt Lprint Endif Endif ' Planzeile$="" Next Re% If Gabi_flag%=1 Close #1 Gabi_flag%=0 Endif Ende: Kanal$="" E.xitflag%=0 Cnt%=0 Sput Screen$ Return ' -------------------------------------------------------------------------- Procedure Druckhinweis Sget Screen$ Deffill 0 Pbox 140,365,500,395 Box 140,365,500,395 Box 142,367,498,393 Text 220,385,"Datenbertragung luft" Return Procedure Hardcopyhinweis @Gong5 Sget Screen$ Deffill 0 Pbox 140,365,500,395 Box 140,365,500,395 Box 142,367,498,393 Text 180,385,"Hardcopy luft -- Abbruch mit 'Esc'" Return ' **************************************************************************** ' ******************* Procedure fr Schatten-Boxen *************************** ' Procedure Shadowbox(Xsl%,Ysl%,Xsr%,Ysr%,Schattenbr.%) Deffill 1,1,1 Pbox Xsl%+Schattenbr.%,Ysl%+Schattenbr.%,Xsr%+Schattenbr.%,Ysr%+Schattenbr.% Deffill ,0,0 Pbox Xsl%,Ysl%,Xsr%,Ysr% Return ' ' **************************************************************************** ' *************************************************************************** Tag.voll: Data Montag,Dienstag,Mittwoch,Donnerstag,Freitag,Info. Tag.abk.: Data Mo.,Di.,Mi.,Do.,Fr.,Inf. Zeit: Data 1., 8.00- 8.45,2., 8.45- 9.30,3., 9.30-10.15,4.,10.35-11.20,5.,11.20-12.05 Data 6.,12.05-12.50,,,7.,13.45-14.30,8.,14.30-15.15,9.,15.15-16.00 Tastenbelegung: Data Esc,^Clr,F1,F2,F3,F4,F5,F6,F7,F8,F9,F10 Boxtext: Data EXIT,CLEAR,REGEN.,VERTLG.,PL1/2/3,BELEGPL.,N O R M,PRIVAT,LADEN,-> DISK,H.COPY,LPRINT `UR` Efv*oM) m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHNFALNrHz2?< NA\pdAxr0XQ)K\NN$J$JrBjNuHz?<&NN\NlCAp$L Qp NX9lrBlJpNNXpMNX9@pdAr 0Q0tr N٦9lNupealp`NuaNJHz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _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</NܨJFkSFk&aQNܨ`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@jNNuNJ@g,A,BBgHQ?<=NAP FJ@k??<>NAXtNutNuaHQ` @gS@@CNu   aH@@`"aH@@`a0) 4a3B HA2;i`0^ M / hawAnFNuAXr%eee%NuAMNuA.A&HP 0 0 &0&?< NN\Nu HPa _Np"Np,`vN٘)@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ҌpsNBNuAl 2l 4HpirtN٦p0,Nu0<}N& ?<NNC`&?<NNT"@ C <}N`N@((?<NN.?<NNX@LvA HA HNuNup9@HA)A,N FN @e024E$ Bb5B5A6CC5CK5CAB008:Dk`Ek\00<,>,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNu|pmrtA)HA)HN٦pNHHPN4 _:8><DbFEbGCHP@dʾAdBD2ƞE29|C???FF22N23BRG0@\@N"2)IN|a: @Jg,Af*EJ, ,F G"P0(1|J#HJ@NHD"NupJ@fCAHPBHQ?NA\ _JjNNu, N* ( FN EJ@fC JDfA E@( BE, BHPHQBg?<VNA F DJjNNuH&NրNjNu?r`??, N$F Z268SDĒDcCc2Ac0`QNuHpx$ ld$l`"Hg8" &Ak eѐ S`g"" k#&Aeё2+SAI3 Q&f)I`LNuHpx$&ր ld$l`"HgR" k&Ac b S` S`g4" k#&AcbrkX`ޑ2+SAI3 Q&f)I`LNuHRp` HRpJQfpNNq Y QfdЀЀ 0NuNNNq Y Qfd ЀЀNuNN$_& Y Qfdփփ!8NNN$_& if"QdփփHRN(NN~,Nq8DRzXEEg"7PNqR$HBJBgpNJgJigp`eetЂ`"ЀeЁdp`ЀeЀe"Ѕe$W.H@@/ l\N NL"2` NqR YEjrd0` SjN$_NЀЀN YQf "_Nq*eNN*< NqbІSGfN $_NDփփ"@HHRN( YQf "_&Nq*eNN*<&NqbֆSGfNp"X4g S`"QNuNuNtJPgBP, d eЀЀ``Ѐ"ЀЁE H FN$L l ,"X2geb J"F\N" KC`e N$`d \N: l\Ӭ\ NupNd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNudd2d"d""d""""d""""""""dB` """"""""""""""""""""""""""""""""QNu??<NMXNuPj0,lf$J,nk l*fp?Np N9|nN"A0,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(HNLNu0,^2,`N zEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"NNNJfNup#`N,Np`pNu)H9@Jp4NXP'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]fApNNNBHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(NXYp-KNu _b@gGHpp 0f NuGNp @"l`Yd&-KNN$"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`& $Y8gHRDD*D%H8#$c2g# HRDD%H`p"l`Qd&&| NuN$"l`QepZN,jJk `BffAge Jj 2$NuJjNu,jJj `BffAgb Jj 2$NuJjNuN_** STUNDENPLANDRUCK P6/7 ** | Gernot Dirnsteiner | Falkenweg 7| 8313 VILSBIBURGC$N(pNpNp NprND <"<NpNpNpNp NHApNBHm$NWeiter|Desktopr"_ N+@J -JUgN, NBpNN FAECHER.INF4NNzNRJBfN,pINHPN FAECHER.INF4r"_N"pNNVC2N(NVC8N(pNN.`pNpNpNprND <"<NHx(HxdHxXHxHx AN <r2NDN?Datei FAECHER.INF nicht vorhanden --> Default$= Biologie,ChemieBN\HxHxHxrHxHxAN <"<NDN W E I T E R4N\pNpNpNpNH <"< NDN Abbruch: EscN\ <"<"NDNsonst4N\ApNNlC*N(Hm*A "_NpJBgp/NNzNRpJBgp$gHm*pN"_NJBfN.6ApRNNBiologieC2N(NChemieC8N(pNN+|N+| R+|V+|Z+|d^+|b+m^+mb -^N&<x*<N H -VNL8N*N+@f -bN&<x*<N H -ZNL8N*N+@j+|n+| r+|v+| zpNpNpNpNHp C$N@p C*N@ -NC0N@ -RC6N@/-N -RC~NB/-N -RC<~NBHxp CB~NBHxp CH~NBHxp CN~NBHxp CT~NBHxp CZ~NBp C`N@Hxp Cf~NBHxp Cl~NBHxp Cr~NBHxp Cx~NBHxp C~~NBp C탄N@Hxp C탊~NBHxp C탐~NBHxp C탖~NBHxp C태~NBHxp C탢~NBp C탨N@Hxp C탮~NBHxp C탴~NBHxp C탺~NBHxp C~NBHxp C~NBp CN@p CN@p CN@p CN@p CN@pCN@pCN@p CN@HxHxmHx4HxHx ArN+|~A1|NNBNlC*N(Hm*A "_NJBfN1ANNN&<x*<NdpJBgp/NN&<x*<NpJBgp/ -NzNpJBgp$fN24HxHxmHx4HxHx ArNNN&<x*<NpJBgp/ -N&<x*<NpJBgp$fN3:N nmN2BN3(NN&<x*<NdpJBgp/NN&<x*<NjpJBgp$fN3+|N3(N nN3"+|N3(N3:NJfATN/-V/-Z/-^/-b/-R/-NA6N -N&<x*<NjpJBgp/ -NzNpJBgp/ -N&<x*<NpJBgp/ -NzNpJBgp$fN6 -[gN3+|N4B -]fN4*ATvNBg?<mA0"NABN -V^HpJBgp/ -NH -VNH -^NH -NNL8N L8N*L8NdpJBgp/ -Z^HpJBgp/ -NH -ZNH -bNH -RNL8N L8N*L8NdpJBgp$fN6 -]fN6pNpNpNٖ -VNH -^NH -NL8N L8N*&<x*<N*N/ -ZNH -bNH -NL8N L8N*&<x*<N*N"ND -VNH -^NL8N*H -^NH -NL8N L8N*H <r$<L8N&N/ -ZNH -bNL8N*H -bNH -NL8N L8N*H <r$<L8N&N"NpNٖACN`NNB ANN ARN AbN A^N AZN AVN -JgN<&)| pNpNpN -zNHB -RNH <r$<L8N&NA큢N/-NC6N/-NCN -VNH <r$<L8N&N/ -ZNH -bN&<x*<N݂L8N*H -bNH -NL8N L8N*N"ND -C6NN\N`BNqpNpNpN -rNH -^N&<x*<NdpJBgp/ -NzNpJBgp$fN8t)|v N8)| BB -NNH <r$<L8N&NA큪N/-NC0N -^NH -nNH -C0NNNL8N L8N&N+@ -VNH -NvNL8N*H -^NH -NL8N L8N*N/ -ZNH <r$<L8N&N"ND -C0NN\N`NqB -RNH <r$<L8N&NA큢NB -NNH <r$<L8N&NA큪N -]gN:&pNpNpNN:2pNpN -VNH -^NH -NL8N L8N*N/ -ZNH -bNH -NL8N L8N*N"ND -VNH -^NL8N*H -^NH -NL8N L8N*N/ -ZNH -bNL8N*H -bNH -NL8N L8N*N"NpNpNpNp NHN`NqN`lNqALNprND -VNH -^NH -NNL8N L8N*&<x*<N*N/ -ZNH -bNH -RNL8N L8N*&<x*<N*N"NVBg?<m?<?<A0" N+|BpNpNNlC*N(Hm*A "_NJBfNANNH +@ +@ +@pNNpN~ -SgN?AIN` -V^HpJBgp/ -NH -VNH -^NH -NNL8N L8N*L8NdpJBgp/ -Z^HpJBgp/ -NH -ZNH -bNH -RNL8N L8N*L8NdpJBgp$fNBpNNpN~ -SgNB -]fNAvpNٖ -VNH -^NH -NL8N L8N*&<x*<N*N/ -ZNH -bNH -NL8N L8N*&<x*<N*N"ND -VNH -^NL8N*H -^NH -NL8N L8N*H <r$<L8N&N/ -ZNH -bNL8N*H -bNH -NL8N L8N*H <r$<L8N&N"NpNٖpNpNpNp NHpNpN <hrND <"<N -]fNBr -YnNB <yrND -C6NHP -C0N"_NHPN :"_NN\NBl <yrND -C0NHPp,N"_NHP -C6N"_NHPNStunde:"_NN\NB <yrNDN MittagspauseN\ApNBg?<mA0"NNzpN~NBpNNpN~ -SWHgNB``NNB/-/-pCNCB~N*/-/-pCNCH~N*/-/-pCNCN~N*/-/-pCNCZ~N*/-/-pCNCT~N* -~NhNNBpNpNpN -rNHpN/- -CT~NHPA "_NpJBgp/ -NzNpJBgp$fND +|ND+|p NC6N( -SgND:A C6N(/- -CZ~NHPA "_NJBfND/- -CB~NHPA6"_NHP/- -CH~N"_NCCN/-N>CN/-NCN/-N>CN/-N>CNN`NqNqHxHxHxTHxAUNAeNNNNB AN A큞N A큚N A큾Np&Np0,+@p0,+@p0,+@ -ʐ+@t;BpNHPp N"_NHPpN"_NCBN(pHNHPpKN"_NHPpPN"_NHPpMN"_NHPpRN"_NCHN(pNHP -N"_NHPpN"_NHPpN"_NHPpN"_NCNN(+| -A큢NHmN <N"_NCNN(N`NqNqHmNprJN"_NHPpJ"_NCNN(p_NrdNCTN( -CN@ -CN@BBB -A큢N/- -NH -NH -CNNH -CNNNL8N*L8N L8N*NCN/- -NH -NH -CNNL8N L8N*NCN -NH -CNNH -NH -CNNL8N L8N*L8NhN+@ -NH -CNNL8NhN+@N`Nq -$fNYN -NH <r$<L8N&N? -NH <r$<L8N&H -NL8N&N? - ? - ?AZ" NpNpNpNي -NH <r$<L8N&N/ -NH <r$<L8N&H -NL8N&N"ND - / - "N -NH <r$<L8N&N/ -NH <r$<L8N&H -NL8N&N"ND -Z/ -Z"NVB -A큢N -CNHP -CNHPAT"_NHP -CN"_N"_NC`N( -NH -CNNH -NL8N L8N*N/ -NH -CNNH -NL8N L8N*N"NDA`N\N`*NqB -CNC`N(BA^NNH +@ +@ +@NlCfN(AfN؀$g -N&<x*<NpJBgp/AfNNN&<x*<NpJBgp/HmfpDN"_NpJBgp$fN\&AbfNA_4NHmfA "_NJBfN\AfNSgN\tAfN/A`NN\AfNN/AbN -$fN]4 -氭\HpJBgp/ -NH -NH -NL8N&L8NpJBgp$fN]4 -氭_HpJBgp/ -갭]HpJBgp$fN]4AcN -ް^HpJBgp/ -NzNjpJBgp$g -$fN] -NH <r$<L8N&N? -NH <r$<L8N&H -NL8N&N?AZ"NANANNA`NNH -CNNL8NjJBfN^PprNHm` -CN"_NC`N( -NHA`NNL8NtJBfNeF/-A`CN+m -CNC`N( -NHA`NNL8N ->SgNgpN~ApNHxNV FARBMODUS eingestellt!| |Bitte ggf. Farbband einlegen|und Anschlagstrke reduzieren!HPNO.K.r"_ N+@BB>A/- -CH~NN.N>/- -CT~NN.N>/- -CZ~NN.NN`NqNqpN -C`NN.NN`6NqpNNNB -SgNPHm*p1N"_NJBfNBATNHm*p2N"_NJBfN$+|ATNHm*p3N"_NJBfNP+|ATNA*NN gNtANA*NNN&<x*<NpJBgp/Hm*pwN"_NpJBgp$fNANA*NNN&<x*<NpJBgp/Hm*pGN"_NpJBgp$fN2A2NA1|NA*NNN&<x*<NpJBgp/Hm*p;N"_NpJBgp$fNBBA1|NA*NNN&<x*<NpJBgp/Hm*pN"_NpJBgp$fNANA*NNN&<x*<NpJBgp/Hm*p?N"_NpJBgp$fNADNA*NNN&<x*<NpJBgp/Hm*p@N"_NpJBgp$fNVANA*NNN&<x*<NpJBgp/Hm*pAN"_NpJBgp$fNANA*NNN&<x*<NpJBgp/Hm*pBN"_NpJBgp$fN ANA*NNN&<x*<NpJBgp/Hm*pCN"_NpJBgp$fNdANA*NNN&<x*<NpJBgp/Hm*pDN"_NpJBgp$fNANNNBApNHxNSind alle| DATEN |gesichert ?HPNJA|NEINr"_ N+@J -JSgN.ApRNNApNHxNWirklich alles lschen ?HPNlschen|Abbruch4r"_ N+@B -BSgNB -RNH <r$<L8N&NA큢NB -NNH <r$<L8N&NA큪N/-/-A CB~N*/-/-A CH~N*/-/-A CN~N*/-/-A CT~N*/-/-A CZ~N*N`NqNq/-A C`NN`@NqB -~NhNBN -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fNtApNHxNErst PLAN 3 aktivieren !HPNA H Ar"_ N+@JN -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN+|ABN -JgNPApNHxN: | Vergleichsmodus (F3) | n i c h t | aktivHPNA H A4r"_ N+@JNB -JgNANBpNprND <m"<N+|+|Z+|+|a^+| b+m^+mb -WgNB -JgN6 -ZNH -bN&<x*<N H -NL8N L8N*N+@ZN -ZNH -bN&<x*<N H -NL8N L8N*H -N&<x*<N L8N*N+@ZR -~NhfpNpNpNpNHpN -ZNH <r$<L8N&NrND -VNH -^N&<x*<N L8N*&<x*<N*N/ -ZNH -bN&<x*<N L8N*&<x*<N*N"NBAKNpNp"<jND <m"<NpN -Z"<jND -ZNH -bN&<x*<N L8N*H <r$<L8N&N"<}NpNpNpNp NH -NH <r$<L8N&&<x*<N &<x*<N*N"<pND -NNN\BA1|NBN+|BB+|V+|Z+|7^+|b+m^+mb+|n+|r+|v+|z+|NBA1|NBNBBBBB+|V+|Z+|d^+|b+m^+mb+|n+| r+|v+| zNBA1|NNBB+|V+|UZ+|P^+|b+m^+mb+|nAKN+|NBpNpNpNpNH+|pA큢NBpAN -N&<x*<N &<x*<N*N/ -N&<x*<N N"NDN Kl.___:___N\N`NqNqN`xNqprND -^N&<x*<N &<x*<N*NrN(HxN1 Fachselektion fr die | | B E R L A G E R U N G4HPNNICHTS|4HPA>"_Nr"_ N+@J -JSgNB -JUgN*+|Hm2p"_NCN(Hm2p"_NCN( -JWgNh+|Hm8p"_NCN(Hm8p"_NCN(B -RNH <r$<L8N&NA큢NB -NNH <r$<L8N&NA큪NAJN/- -Cf~NHPA "_NpJBgp//- -Cf~NNHPp*N"_NpJBgp//- -C탊~NHPA "_NpJBgp//- -C탊~NNHPp*N"_NpJBgp//- -C탊~NHPp"_NHPA"_NpJBgp$fN$/- -Cl~NHPp"_NHPA"_NJBfN$/- -C탮~NHPA "_NpJBgp//- -C탮~NHPN*****"_NpJBgp$fN$/-/-/- -Cf~NC탮~N*/-/-/- -Cl~NC탴~N*/-/-/- -C~~NC~N*/-/-/- -Cx~NC~N*/-/-/- -Cr~NC탺~N*/- -C탄NCN/- -Cf~NHPA "_NpJBgp//- -Cf~NNHPp*N"_NpJBgp//- -Cf~NHPp"_NHPA"_NpJBgp//- -C탊~NHPA "_NpJBgp//- -C탊~NNHPp*N"_NpJBgp$fNr/- -C탐~NHPp"_NHPA"_NJBfNr/- -C탮~NHPA "_NpJBgp//- -C탮~NHPN*****"_NpJBgp$fNr/-/-/- -C탊~NC탮~N*/-/-/- -C탐~NC탴~N*/-/-/- -C탢~NC~N*/-/-/- -C태~NC~N*/-/-/- -C탖~NC탺~N*/- -C탨NCN/- -Cf~NHPA "_NpJBgp//- -Cf~NNHPp*N"_NpJBgp//- -C탊~NHPA "_NpJBgp//- -C탊~NNHPp*N"_NpJBgp$fN /- -Cl~NHPp"_NHPA"_NpJBgp//- -C탐~NHPp"_NHPA"_NpJBgp$fN /-/-N*****C탮~N*/-/-A C탴~N*/-/-A C~N*/-/-A C~N*/-/-A C탺~N*/-A CNN`NqN`jNqBATNNNB -JgN/- -Cl~NHPp"_NCN(/- -C탐~NHPp"_NCN(NNBHxN"KLASSEN-Plan| oder|FACHRAUM-Plan ?HPNKLASSE|FACHRAUMr"_ N+@A~N@ApNHxNC GABRIELE 9009 seriell | oder| NEC P6/7 parallel ? [HPNGABI|NEC P6/7|Abbruch:r"_ N+@J -JSgN+|B BN1. Stundenplan auf A3-Marken|lC퀨N(N2. Hheneinst. auf Zeilenmitte|C퀮N(N3. - Umlaute z.Zt. vermeiden -|C퀴N(N4. GABI 9009 online schalten !C퀺N(HmA퀮"_NHPA퀴"_NHPA퀺"_NCN(HxHmN A H A|Abbrucher"_ N+@J+|ApNNAux:CN(pONHPAr"_N" -JUgNHxNF Haben Sie |den breiten NEC P7| oder|den schmalen NEC P6 ?HPN P 7 | P 6 |Abbruchr"_ N+@ -WgNNv -UgN+| -SgN+| BBAmpN -JWgNNv -FSgNNvANBp A큒N -CNHPN "_NCN(BpA큎N -SgN/- -CH~NHPN "_NHP/- -CT~N"_NCN(N/- -CB~NHPN "_NHP/- -CT~N"_NCN( -[mN^ -SgN$ANN&<x*<N&vNNNCN(NXANN&<x*<N&vNNNCN(Nlp NCN(HmA"_NHPA"_NCN(HmA"_NCN(N`Nq -SgNHxAmpNHmNAux:"_NpJBgp/ -NzNdpJBgp$fN2pNpNNpNNpNNN -_gNtpNpNNp NNpNpNNpDNN -]fNpNpNNpWN -NHPA"_NNN - N&<x*<NpJBgp/ -N&<x*<NpJBgp$fNHBAmpN -]fNHN -NHPA"_NNNNNA CN(N`Nq -SgNvpNBA CN(BFBA~NTNNBA~N@pN <m"<ND <"<N <m"<ND <"<NV <o"<ND <"<NV <"<NDNDatenbertragung luftN\NApNA~N@pN <m"<ND <"<N <m"<ND <"<NV <o"<ND <"<NV <"<NDN#Hardcopy luft -- Abbruch mit 'Esc'4N\NNB AN AN AN AN ANpNpNpN -Э/ -Э"ND -Э/ -Э"NpNpN -"-ND -"-NNNB00Klasse:5001 Fach:15002 Raum:3003Lehrer:15000Erkl.1:1100100020003Erkl.2:150MontagDienstagMittwochDonnerstagFreitagInfo.Mo.Di.Mi.Do.Fr.Inf.1. 8.00- 8.452. 8.45- 9.303. 9.30-10.154.10.35-11.205.11.20-12.056.12.05-12.507.13.45-14.308.14.30-15.159.15.15-16.00Esc^ClrF1F2F3F4F5F6F7F8F9F10EXITCLEARREGEN.VERTLG.PL1/2/3BELEGPL.N O R MPRIVATLADEN-> DISKH.COPYLPRINT+:4LDt^6,pV R"ZxH8$8FZ($r$4Fz(,r 2H@<0H(    Z6FrBD > ZN:4 J 62؀X N  B "$dvrtR&P`^HTDXL V.*0TfR TT TTTTTTTTTTXZ HRzhP~zJH@,L@ b>2b2bn,8RJR::^ D6BLGfABASICfnz\jj z{bxzRvvPFIFFADUMMYFACHSXSYAUT.INFTASTEBILD2FUELLHAUPTSPECSP.SCANSPRUTEMPTKZEILEGFASCREENDATEIEXTENDERKONTROLLBILD BACKUPNAME ALTERNAME PLANHINWEIS1 PLANHINWEIS2 PLANHINWEIS3 PLANHINWEIS4 PLANHINWEISKANAL PLANZEILE PLANSTRING LEERSTRING PLANBLOCKKLASSE1KLASSE2KLASSEAF.KILL K.ILLWARNUNGKLASSE3 FACHKONTROLL FACHKONTROLL1 FACHKONTROLL2 KONTROLL1 KONTROLL2 FACHVORGABEFACHBEZEICHNUNG1FACHBEZEICHNUNG2FACHBEZEICHNUNGENFACHBEZEICHNUNGEDUMSPAREIHESXSYBRHOX1Y1FAKTORH.TEXTGR LE.TEXTGR ZEIT.TEXTGRERSTFLAG NEUBILDFLAGUEB_FLAGSY_CNTSPRESP5FLAGXYIABK.FLAGUOFFSKSHFTKURZFLAGNFCBCHLHLLMXMYECMOXMOYMOKTXTYVQXQYQRANDSTART.YSTART.X SCHLUSS.X SCHLUSS.Y SPALTENFAKTORSNMODUS SPALTENZAHL ZEILENZAHLN2N1 FARBFLAG1 FARBWARNFLAGDUMMY E.XITFLAGDRXSUZ1SUZ2SUZ3MZ1Z2Z3PPIFARBFLAGRAUSFLAGET.ABSTDONONLABBRUCHABFRAGE DRUCKABBRUCHLXLYBZRXRYBOT.OFFSB.OFFSEXTLAGEFIRSTUEBWAHLEINRUECKDDUMCNTUEB.FLAGBOLADEBLOCKADEFACHKONTOLLFLAGFACHKONTROLLFLAGBEL_FLAGIISX1HBRHHOH.BRH.HOXSLYSLXSRYSR SCHATTENBR. NEC7_FLAG GABI_FLAG NEC6_FLAGINSFLGFELDFACH2BOXTEXT TASTENBELEGGTAGZEITFELDKLASSEFACHANF.FACHLEHRERRAUMABKKLASSE1FACH1 ANF.FACH1LEHRER1RAUM1ABK1KLASSE2FACH2 ANF.FACH2LEHRER2RAUM2ABK2KLASSE3FACH3 ANF.FACH3LEHRER3RAUM3ABK3PLANZEITTIKASSE3LEFTXYLVTXTYUEB_ENDEZEITTAG.VOLLTAG.ABK. DIALOGDATEN1 DIALOGDATEN2E.INSXE.DOM.OK FRAG.ENDEDRUCKERWARNUNGDRUCKERKONTROLL_ENDETASTENBELEGUNGBOXTEXT LADEN_ENDEENDEMAUSBOX HAUPTPROZEDUR TASTENPROCPROC8WAHLFELDDIALOG FELDZUWEISUNG FELDEINTRAG REGENERIEREN PLANGROESSEGONG5 TEXTGROESSEEINGABE SCHNITTSTELLEE.CURSONE.OK E.CURSOFF E.DO_CHAR E.DO_SCAN E.DO_MOUSEE.DSP.LN E.INS_CHARE.BACKSE.ENTERE.ESCE.UPE.LFTE.DWNE.RGTE.INSERTDRUCKERROUTINE H.ARDCOPYHARDCOPYHINWEISDRUCKER_ONLINEABBRUCHDRUCKERKONTROLLEE.XITFA1FA2FA3FA4FA5FA6FA7FA8PROC1PROC2PROC3PROC4PROC5PROC6PROC7PROC9PROC10PROC11PROC12 F.ILESELECT AUTO.EXTENDERLADENPLAN1PLAN2PLAN3BACKUP SPEICHERNNEUPLAN1NEUPLAN2NEUPLAN3 DISKHINWEIS GROSSAUSDRUCK DRUCKHINWEIS HAUPRPROZEDURPA10 VERTEILUNGPA5FILEKILL F.ILEKILLENIDINDI FACHKONTROLLEENDIE SHADOWBOXIF* Stundenplanerstellung  8 G.Dirnsteiner, Falkenweg 7, 8313 Vilsbiburg  > ******* Version vom 5.10.88 GFA 2.02 ***********  N*************************************************************************** fE_** STUNDENPLANDRUCK P6/7 ** | Gernot Dirnsteiner | Falkenweg 7| 8313 VILSBIBURGF%!!@FN!! !GFC(!!!PFM F7)!!!Weiter|Desktop!F gFeqF F%F h FAECHER.INF F7I!M! FAECHER.INFFF :M!-!.FA8MF iF!%!!F!! !GFC.MP !H! !!  FV'H!!?Datei FAECHER.INF nicht vorhanden --> Default$= Biologie,ChemieF.MP!H!9!z!` F"'!p! W E I T E RF(!!!@F"'!R! Abbruch: EscF'!\!sonstFhM FFESFihR F iBXX FM$F F-EBiologieFn.EChemieFF F%FYFN******************** Hauptprogramm ***************************************  E@@F*E F*EppF* Startkoord. EppF*EHHF* Boxbreite E``F* Boxhhe iEF  Boxbreite und jEF  -hhe fr H.copy .E@@FhE FhF EF Offsetfaktor, 8 fr Normalschrift(13), 4 fr 6 und 4  EPPF E@@F EPPF(!!!@Ff*@@ !@@ F * ! !@ !@ Fr*@0 !@0 !@0 !@0 ! @0 ! 00 Fr* @0 ! @0 ! @0 !@0 !@0 !00 Fr*@0 !@0 !@0 !@0 !@0 !00 Fr*@0 !@0 !@0 !@0 !@0 !00 F*  F Z*  !  !  ! ! !  F Fr Dialogbox  ,---------- Menleiste ------------------ .M!6!P!p!@ F EF *--------------------------------------- MF-   J********************************************************************** F+F*F ESF nFMF F  oF#Q%R F*.M!6!P!p!@ F F&-----------------------------------  pRFF oQ\FSEF oF oQQpF-EF oF oQzFQEF oF-FF F F FF oRFM1Fl|FR F(------------------------------------- M!!!!! F& q@ F$ p F wenn abk.spalte EF pFEF F p @F MF!6!F FMF6* qF6 q @F wenn nicht Mittag: normalisieren *%!F"!F gewhlte Box reinvertieren t4!!!F!F F FMF F nF.F  P******************** Einzelprozeduren **************************************  P******* Wahlboxfeld, 2 dimensional ; Version vom 11.3.88 ****************** P******* G.Dirnsteiner, 8313 Vilsbiburg, Falkenweg 7 **********************  +!!!!! F @ Text 400,380,"Dimensionierung= "+Str$(Reihe%)+","+Str$(Spa%) L+++ bergabeparameter: Sx%,Sy% = Koordinaten Boxfeldbeginn/links-oben +++ L+++ Br%,Ho% = Einzelboxbreite bzw.-hhe +++ L+++ Reihe%, Spa% = Anzahl der waagr.Reihen bzw. senkr. Spalten +++ (++ Rckgabeparameter: Boxflag%(Re/Sp)   $ vFe nur anfangs zeichnen / RF (!!! FtEGFQ FQ F(' !@! Fw tF (!!! F!   u4FRF uFRFFEF F ujEGFQ FE 6 F"'! ! Fw u$F  vpEGFvfEGF&---------------------------------- w" u@F- Mittagspause -%!!F uFF%!F F*--------------------------------------- ,!!!F(!!!PF uFP uFP MF< !!!F Rahmen um Stundenplan  !6! !G!F FEF nicht mehr zeichnen EF %!FF ESF w.FMF F "!!FmE%#  FiE%#  Fi *------ Grenvernderung -------------- XxN    F ESF xFMF F "!!F }F {@F xFFM F FwF&----------------------------------  * z@F}F{F z8F y @F!F4!!!F!F F(!!!PF% %!F unten lschen !4! !GFR  y @F  yF $'p!<!   :F yF.'p!<! , Stunde:F F zF"'p!<! MittagspauseFM F!6!F F  F {`F F zLF}F{F F z`ZFwF .FH********************************************************************* +F*@ E F*@ E F-@ E F* @ E F*@ E F*.wL;! Procedure E.ins_char(K%) +++ +|Fb0,0,"Klasse:",5,0 0,1," Fach:",15,0 e0,2," Raum:",3,0 0,3,"Lehrer:",15,0 e|F"0,0,"Erkl.1:",11,0 e0,1,"",0,0 :0,2,"",0,0 :0,3,"Erkl.2:",15,0 e  NM !H!*! F N%(Zeilenzahl-1), X%, Y%(X/Y-Koord. der Box), F% +, F!.F--------------------------- + !!! F tFE3 F E3@ F !E3 F "E !FEF"EB BP BX F6EB B B  B B$ FEb b! b b b FEG FEc F FE;! @ FEH!_ F* ! F#EF$EFpEGF E# 6 F E  F #Ev#!  F$Ev$! F  F F6 !  !# !$ ! F F%!F#F4 !  !# !$ Fo4 !  !# !$ Fooder deffill ,2,1 pbox ... #EGF E ; @ F' !  ! F! RF%EF E% F&EFFMF%F "'!(!)F ESF6 )FB--- Ergnzung: Eingabe-Ende durch Mausknopf 2 oder F10 -------- * P)#7<  B F MF FB--------------------------------------------------------------- MF-  F 6 F- M7 F- F M7< F- F F  )F  '( F- ' #($FMF F F F%%F- `F  !  ! F- FF FF F.F+F 6 % FE!`F E; @% F F&Eu&!6 !% F'*!+!; @% F.F+F+ *E% F +E% F~!*&!+F.F+F*~F*.F + FF& Z% C 0123456789@B F-* Z% C0123456789/()-@B F- &6 F2 E; @& B > @& FB F@ !& EB F F4&F&MF&-F&&F E!`FF|F`.F + F,EC@B F (,Fw,L!!F 6F! M F F.F+F t&F E; @& > @& F5&F MF  F.F+F % E F4%FE E% F&EF.F+F% EF &EFMF .F+++++++++++++++++++++++++ + F+,EC@B F ,Fw,L!!!!!FB "F! F.F8-------------- Ergnzung Schnellbesttigung--------- -"+F- wenn Maustaste 2 gedrckt 2MF Zeile sofort bernehmen (auch ohne Enter) &%EFl Abbruchbedingung erfllt .F6--------------------------------------------------- +F- % E F :%F-5%F FF%%EF- F E% F &E6 F-.F+F % E F %F4%F F%%EF F E% F &E6 F-.F+F &F-5&F F.F+F &6 F4&F F.F+FEF.F+F-E#' F-.E#(  F-EFF |. F-/E- 6 F- x#/  F-F# F F4F# .F ָF|F % E F%EFF E% F&Eu/!6 FMF/MF/ F.FD************** Schnittstelle zu Eigenprogrammen ***************+ + F*@EGF* Originalbeispiel zum Bildschirm-Ausdruck der 3 *>Print T$(I%)'I$(I%)! eingegebenen Datenzeilen untereinander 8I$(I%)="" ! T$ ist der Kopftext (vorgegeben) : dF" I$ ist der eingegebene Text; setzt man I$="", 0F so ist anschlieend die Box wieder frei ! .F    H--------------------------------------------------------------------- +FN************************************************************************** +N**************** Color-P6-Teilhardcopy- Proc.Komplex ****************** +N**************** mit Druckerkontrolle,Abbruch mit ESC ****************** +N**************** Gernot Dirnsteier, Falkenweg 7 ****************** +N**************** 8313 Vilsbiburg ****************** +N********************* Version vom 20.5.88 /1.00 ************************* +0------- Maangaben fr Drucker etc. -------- 0>0EF Randabst.(Hardcopy-Einrcken) -Voreinstellg.(*0.5 mm) &1EF Startkoordinaten Harcopybild 2EF links/oben Fa>1EF  Startkoordinaten Harcopybild bei Dreierplan 2EF links/oben  F.3E@@i@F  Endkoordinaten ,4E j@F  rechts/unten n @------------- Druckeranweisungen --------------------------- *65EF fr einfache Dichte=1, doppelte Dichte=2 ... tR6E@@Fi fr 24-Nadel-Druck DD! (einfache Dichte->3 doppelte Dichte->6 ..) >7EFi ...180 DPI !.. ( 33 = 120 DPI, 40 = 360 DPI )  8E32F 9E%#4100 @ F:E85F;E85#: FMF.F J*********** Routine Hardcopy fr NEC P6 12-Punkt: ******************** J*********** Abtastung, Auswertung , Hardcopy ************************* +F*------- Farbwarnung ----- 6 bF0=EF F-------------------------- !M F-   ?EFF E68 F: EBX $B0 B BXX *B7 B; B: Fu  7!MF!LST:FEG9F Z?F @Ez FF  EG8F -------- M! F ---------   SBX F,"FS F Z?F----- AEFBEFCEFDEG0FFEEFFEFGEF(HE\2!1@D @DF H@FEE@@FFEFGEF F H0FEE@@FFEFGEF-F F H FEE@@FFEFGEF-F F JHFEEFFEFGEF-FH F HFEEFFE@@FGEF-F F H`FEEFFE@@FGEF-F F H@FEEFFE@@FGEF-F F H FEEFFEFGEF F JHFEEFFEFGE@@F-F@ F zHFFEEFFEFGE@@F-F@ F HFFEEFFEFGE@@F-F@ F HFFEEFFEFGEF F|FH AEAEF BEBFF CECGF FDF0--------------------------------------------- :IEG5F fr doppelte Dichte, sonst ohne For-next u@!AF4@FA@!BF4@FB@!CF4@FC dIFG2---------------------------------------------- o  F-  JF- F-MF!"F- Farbe  F F Z?F MF! " "BP "F-&MF!BX "J"B@ "F- { FB FF  8MFFBP+++ Papiertransport, Zeilenspeicher lschen, Drucker in Grundstellung +++++++   KFt$;B@ "Fr Zeilenpuffer leeren *;B` "@"Fe Drucker-Rckstellung c6;BX "A"BL Fu Transport + Z.speicherlschen  FKEF F.FD----------------------------------------------------------------- +!M F- M F-FM FP)!2 DRUCKER NICHT ONLINE: | | e i n s c h a l t e n !!! A H A|Abbruch!NF |NFE?EFKEF { FE FM ?F F.FD---------------------------------------------------------------- |+#F- (++++++++ Druckerabfrage ++++++++++++ - |F+ 6 F(+++++++ Pfiff 3 (mittelhoch)+++++++++ EGFfy!p!MpFey!p!MFez!!!; Fe { Fz!!F TFF(+++++++++++++++++++++++++++++++++++++ P)!1 Schalten Sie den | |DRUCKER EIN bzw. ONLINE !!!DRUCKEN|Abbruch!OF  F bOFaOEF?EFPEF- FO lFOPEF F  F- F F |F.F@************************************************************* F------------------------------------------------------------------ b+"F-*)!Drucken abbrechen ?!!JA|NEIN!>F- .>FnF n FM! FRFF?EFL************************************************************************ !EGF*M F FFL************************************************************************ ! F.FL************************************************************************ !+$F*M F*,)!PROGRAMM BEENDEN ?!! EXIT|Weiter!>F 4>FM ( F";B@ F Zeilenpuffer leeren 4;B` "@F Drucker-Rckstellung, wenn online  FYFqF F.FL************************************************************************ !+ F*y!p! ! F*z!!!CPF {pFa.FL*************** Farbeinstellung; ber on..gosub whlen! ***************** >-------------------------- Farbe ------------------------- *+%F- EBX rB F schwarz Extender$ *P_os=Instr(Datei$,".") t&Datei$=Left$(Datei$,P_os)+Extender$ Endif .FH********************************************************************* 6****************** Daten laden ******************** +:F* F   F*6)!" Diese Datei | |existiert nicht !!!O.K.!>F*EFi Fi 7I!M!F:M!F  StundenplanFxM FM F<)!( Das ist doch| K E I N | Stundenplan !!!O.K.!F*- F  FEGFEGF*:M!@ !@ !@ ! @ FK@ E@ F F :M!  F FF |F8MF F F8--------- Rckstellung auf Ausgangs-Format --------- !EppF Startkoord. & FF Wenn keine berlagerung EppF EHHF  Boxbreite E``F  Boxhhe iEF  Boxbreite und jEF  -hhe fr H.copy .E@@FhE FhF EF Offsetfaktor, 8 fr Normalschrift(13), 4 fr 6 und 4  EPPF E@@F EPPF  FEBBFEFiEF  Boxbreite und jEF  -hhe fr H.copy .wL;!F*  F*YED@@. F*E;@Y BAKF چ FAF FEF @lF F.F +?F \Ft 7O!M!FuM! StundenplanFtEGFEGF*uM!@ !@ !@ ! @ F PF uM!  F! @FF8MF F.FP***************************************************************************** +F* 6---------- Plannummerwahl bei Dreierplan ----------  & FF Wenn berlagerungsmodus  1F,EFM1F F 2F,EFM1F F 3F,EFM1F F F  >------- Esc , ClrHome und Funktionstastenabfrage -------- o  27< XF  Exit M-F7 F@ |7< nwF wenn Control+Clr --> Disk lschen MKF F< 7< GF Wenn Clr -->Speicher lschen cM.F7MFp F0 7< l;F F1:Regenerieren" -EFEFMFp F , H7< pF F4: Belegplan,Lehrerz. sM2F< F0 7< |?F F5: Standardgre M3F< F. 67< @F F6: Privatplan MF7 F( h7< AF F7: Laden M4F7 F, 7< BF F8: Speichern M5F7 F, 7< CF F9: Hardcopy M6F7 F0 7< DF F10: Lprint/Gabi M7F7 F.FP***************************************************************************** +-F*M F*4)!Sind alle| DATEN |gesichert ?!!JA|NEIN!F FlM$F F.F+.FM F6)!Wirklich alles lschen ?!!lschen|Abbruch!>F  >FcEGFzEGF@ EFe@ EFe@ EFe@ EFe @ EFe *F  EF FFEF .wL;!hier nicht @Hauptprozedur,sondern nur bei Tastenabfrage !! D F.F+/FEF.F+0F,D-----------------------------------------------------------------  # FcM Fl,)!Erst PLAN 3 aktivieren !!!A H A!F F FEFMHF  F F DFM F N)!: | Vergleichsmodus (F3) | n i c h t | aktiv!!A H A!F FF------------------------------------------------------------------ .F +1F, ----------> berlagern dEF ZF-M;FnEF%F!! !6FeZEF F  E F EFEBBF  Boxbreite EF  Boxhhe iEF  Boxbreite und jEF  -hhe fr H.copy . FFEF F FFE0F  F E0 F F 4F wL@!A!BF (!!!@F%F@!@!@@@@! @@FnEFM F%F !! !6F%F0 !!@ !00 F (!!!PF@&' ! p# !F EFMFEF.F+2FdEFEFZEFEppFe Startkoord. EppFeE\\F  Boxbreite EppF Boxhhe iEF  Boxbreite und jEF  -hhe fr H.copy .F EFe Offsetfaktor, 8 fr Normalschrift(13), 4 fr 6 und 4  E@@Fe E@@F E@@FeEF---> Restore Tag.abk. YFEF MFdEF.F+3F wieder Standardgre ZEFdEFEFEFEFEppFr Startkoord. EppFrEHHFr Boxbreite E``Fr Boxhhe iEF  Boxbreite und jEF  -hhe fr H.copy .F EFr Offsetfaktor, 8 fr Normalschrift(13), 4 fr 6 und 4  EPPFr E@@Fr EPPFrYFEFMF.F+FEFZEFEppFeE**FeE F  Boxbreite E@@F Boxhhe iEF  Boxbreite und jEF  -hhe fr H.copy .F EFe Offsetfaktor, 8 fr Normalschrift(13), 4 fr 6 und 4  H.textgr%=13  Le.textgr%=6  Zeit.textgr%=6 M FtEF---> Restore Tag.abk. YFEF (!!!@F `EGFVeEGF!0' Be!XX! Kl.___:___FF eFG FG0p!`!p@!ppFFMF.F+4FMCF(!!!PF&'z!! L A D E N F M8F "\F M:F FYF FEFMF F! !FEF.F+5FFMCFF(!!!PF*'f!! S P E I C H E R N FM8F ż\F M>FM9FM?F F! !F.F+6FMFEF.F+7FMDF.F H********************************************************************* +KF*MCF*('p!! L S C H E N Ff\*.SPL!!$F  $\$F*&%EDatei $|wirklich lschen ?F)!%!!JA|NEIN!F FAA$F F F! !F .FH*********************************************************************  +CF&! !z!p!F%F$!@!r!\F$!p!q!HF$!!p!@F.FP**************************************************************************** +;F* EGFEGF @ E@ F*  @ E@ F* @ E @ F* @ E@ F*  @ E@ F* E  F |F lF.F+EGF@ E @ F* @ E @ F*  @ E@ F* @ E@ F* @ E @ F*  E F ʺF ʪF.F+AFEGFEGF@ E@ F* @ E@ F*  @ E @ F* @ E@ F* @ E@ F*  E F rF bF.F+BF̸EGF̮EGF@ E@ F @ E@ F*  @ E@ F* @ E@ F* @ E@ F*  E F *F F.FJ********************************************************************** *+HF M F-------------------- )/E-|. FJ)!1 Fachselektion fr die | | B E R L A G E R U N G!!NICHTS|/!F ͚FlcEF F FlcEF (E;-@ FF )E;-@ FF F FlcEF (E;.@ FF )E;.@ FF F--------------------- xEGFnEGFMNFN N @ : @ *#@ :@ *;@ @ ) F ------ - J; @ @ (F ------- $ F@ @ *****F:@ E @ F-@ E @ F @ E@ F @ E@ F @ E @ F  E F  F F F N n# @ : @ *; @ @ ( @ :@ *F ------  j;@ @ )F -------- @$ f@ @ *****F@ E@ F @ E@ F @ E@ F @ E@ F @ E@ F  E F  F F F@ d# @ : @ * #@ :@ * F4If Klasse3$(U%,I%)="" Or Klasse3$(U%,I%)="*****" *& `; @ @ (;@ @ )F@ E*****F@ EF@ EF@ EF@ EF  EF F F .F F"cEF keine Fachbegrenzung mehr M1Fl.FJ********************************************************************** *+NF (cF (E; @ @ Fr)E;@ @ Fr F.FJ********************************************************************** *+DF*@)!"KLASSEN-Plan| oder|FACHRAUM-Plan ?!!KLASSE|FACHRAUM![FFKM FKh)!C GABRIELE 9009 seriell | oder| NEC P6/7 parallel ? !!GABI|NEC P6/7|Abbruch!F @FEqEFpEFrEF$E1. Stundenplan auf A3-Marken|F&E2. Hheneinst. auf Zeilenmitte|F&E3. - Umlaute z.Zt. vermeiden -|F&E4. GABI 9009 online schalten !FoEF)!!! A H A|Abbruch!F\E``FHM F` EAux:FF(7O!M!F seriellen Kanal ffnen !  F FHh)!F Haben Sie |den breiten NEC P7| oder|den schmalen NEC P6 ?!! P 7 | P 6 |Abbruch!]F ]F-F F ]FrEF F ]FpEF FqEFM! F F F"-F F 4?Fi-F FMEF  hEGFiE  FFxEG@Fi ո[F@*E@  @ F  Klassenplan  F,E@  @ Fs Fachraumplan  F J F &rFSE#006  F BFrE#6  F F VFE F FEF EF zF qF"M! F.------- Druckereinstellg. Gabi-------------  Aux:Fl>M!BX "B  "B@ F ca 12 mm Zeilenvorschub  F*---------------------------------------  ״`F-FM!BX "B  "F- insges. 1,5 Z.Rckschritt zur Korrektur M!BX "B "F- F  @F.M!BX "W"\ FFett,Eingerckt  F F  RprFM! F N @F;\ FFett,Eingerckt ;F F F EFX VF ؄qF"8MFqEF F|FEFF?EF^EFFF.FN-------------------------------------------------------------------------- r+EF-F-%F$ !6!z!EF-$ !6!z!EF-$!7!y!DF-,'\!@!Datenbertragung luftF.F+ FM FF%F$ !6!z!EFn$ !6!z!EFn$!7!y!DFn:'4!@!#Hardcopy luft -- Abbruch mit 'Esc'F-.FP**************************************************************************** AP******************* Procedure fr Schatten-Boxen *************************** , +Pk!l!m!n!o Fd%!!Fko!lo!mo!noF%!!F!k!l!m!nF.F P**************************************************************************** ,N*************************************************************************** |F 4Montag,Dienstag,Mittwoch,Donnerstag,Freitag,Info. |FaMo.,Di.,Mi.,Do.,Fr.,Inf. |FDN1., 8.00- 8.45,2., 8.45- 9.30,3., 9.30-10.15,4.,10.35-11.20,5.,11.20-12.05 *@6.,12.05-12.50,,,7.,13.45-14.30,8.,14.30-15.15,9.,15.15-16.00  |F2*Esc,^Clr,F1,F2,F3,F4,F5,F6,F7,F8,F9,F10  |FCXEXIT,CLEAR,REGEN.,VERTLG.,PL1/2/3,BELEGPL.,N O R M,PRIVAT,LADEN,-> DISK,H.COPY,LPRINT p\: ؊n²rz{D~$v@~d٨` Ph&zĠJ\ʚR l| N"Stundenplan" "7a","Bio","Dr. Klopp","100" "7a","Bio","Dr. Klopp","100" "7a","Gym","Dr. Oetker","" "","","","" "","","","" "","","","" "" "","","","" "","Gymnastiek","","" "","","","" "","","","" "","","","" "","","","" "" "","","","" "","vrij","","" "","","","" "","","","" "","","","" "","","","" "" "","","","" "","Computer","Kernington","2" "","","","" "","","","" "","","","" "","","","" "" "","","","" "","Computer","Ritchie","2" "","Wiskunde","Einstein","2" "","","","" "","","","" "","","","" "" "","","","" "","","","" "","","","" "","","","" "","","","" "","","","" "" "","","","" "7a","Gym","Dr. Oetker","" "","","","" "","","","" "","","","" "","","","" "" "","","","" "","","","" "","","","" "","","","" "","","","" "","","","" "" "","","","" "","","","" "","","","" "","","","" "","","","" "","","","" "" "","","","" "","","","" "","","","" "","","","" "","","","" "","","","" "" ******************************************************************** Deze diskette is samengesteld door de Stichting ST, Postbus 11129, 2301 RH Leiden. Onze bibliotheek van public domain programma's omvat op dit moment (zomer 1988) al zo'n drie honderd disks. Daarop vindt u programma's op elk gebied, van tekstverwerker en database tot de leukste spelletjes, de fraaiste tekenprogramma's en de handigste utilities. Ook bevat onze bibliotheek een speciale afdeling voor public domain disks met Macintosh software, die te gebruiken zijn onder de ALADIN emulator. Deze MAC-PD serie bevat tot nu toe ongeveer vijfendertig disks. ******************************************************************** U vindt in het twee maandelijks tijdschrift "ST" (Onafhankelijk tijd- schrift van en voor gebruikers van Atari ST computers) een overzicht en een bespreking van de inhoud van de nieuwe public-domain diskettes. Dit tijdschrift bevat tevens een bestelkaart zodat U vlot over de software kunt beschikken. De Stichting ST geeft ook een speciale PD catalogus disk uit. ************** Deze public domain disk is geproduceerd en gedistribueerd door: Stichting ST afd. Software Bakkersteeg 9A 2311 RH LEIDEN ************** Ondanks onze controle komt het af en toe voor dat een diskje niet goed is gecopieerd.Mocht U dit overkomen, aarzel dan niet en stuur de defecte disk aan ons terug. U krijgt dan direct een vervangende disk toegestuurd. ************************************************************************ Teneinde het voor ons mogelijk te maken om productie fouten op te sporen en vervolgens in de toekomst te vermijden, zijn alle disks, geproduceerd door de Stichting ST, voorzien van een groen productie nummer. ************************************************************************