& AZ: SA : ST(SA): SA,O :ST<>&H55: Aufruf aus Direktmodew :ST=&H55: Aufruf aus DRUTE.BAS(VS$"2.0": VA D: DASA2:<:Datei: DRUEIN.BAS΀F:Stand: 23.05.89P:Autor: Ludewig, 1EKG7Z:---------------------------------------------------------------------HdESC$( )Pn:]x ,: f  "******************************************************"灠"Grundeinstellung Druckertyp und V24-Drucker-Interface"큪"" fr BIC A 5105 mit RBASIC Version ";VS$(f"******************************************************"n :---------------------------------------------------------------------ς:Versionstestׂ:VE$"": I : VE$VE$((VAI)):  VE$VS$ T : "Programm luft nur mit RBASIC Version ";VS$: d:  : ":---------------------------------------------------------------------˃,:Eingabe DruckertypӃ6:ك@J "Einstellen Druckertyp am Computer"-T "*********************************"3^Xh" 1 - EPSON FX1000 im IBM-Mode"r" 2 - robotron K6327/28 im IBM-Mode"|" 3 - robotron K6313/14 im IBM-Mode"ӄ" 4 - EPSON FX1000 im EPSON-Mode"" 5 - EPSON LX86 (oder FQ800) im EPSON-Mode"1" 6 - robotron K6327/28 im EPSON-Mode"]" 7 - robotron K6313/14 im EPSON-Mode"" 8 - robotron K6304 im EPSON-Mode"" 9 - robotron K6311/12/13/14/16 im ISO-Mode""10 - elektronische Schreibmaschinen""11 - robotron K6303"9KD$"": "Kennzahl fr Druckertyp (1-11):";KD$?NKD(KD$)n (KD KD ) : @:---------------------------------------------------------------------:Parameter fr SCREEN-Anweisung aus Druckertyp berechnen::& 0,8,40,9,9,9,45,12,47,15,15: :DruckertypD0 &\: I KD: DT: dD:N (DT  ) "Es wird ein linker Rand von 8 Zeichen im Computer eingestellt." : ȇX:чb  l "Der soeben eingestellte Druckertyp ist ohne dieses Programm auch mit"Wv " SCREEN ,,,,,,";DT;" :REM 6 Kommas"l "einstellbar."t :  : ш:---------------------------------------------------------------------:Anzeige V24-Parameter im Klartext:9 "Einstellen V24-Interface-Parameter am Computer"p "**********************************************"v 81,81,81,81,81,81,81,81,81,81,44: :Standard-V24-Parameterĉ  I KD: VF$: VF("&H"VF$): :  (VF ) DB$"7": : DB$"8"T  (VF @) P$"Ohne": GU$"Gerade": *c P$"Mit"  (VF ) GU$"Gerade": : GU$"Ungerade"* (VF ) S$"1": : S$"2"4BD$ ( K (VF ) )> BD$(BD$,(BD$))H:.R "Parameter der V24-Schnittstelle:"D\ DB$;" Datenbit"]f P$;" Parittsbit";p P$"Mit" " (";GU$;" Paritt)";z  S$;" Stopbit" BD$;" Baud" :---------------------------------------------------------------------4:Wahlweises ndern der V24-Parameter<:JN$"N": "Parameter der V24-Schnittstelle ndern J/(N):";JN$ (JN$"J") (JN$"j") :ˌ:Eingabe Datenbitӌ: "Datenbits: 7/8: ";DB$! (DB$"7") (DB$"8") : ):D$:Eingabe ParittsbitL.:s8 "Parittsbit: M(it)/O(hne): ";P$yBLP$(P$,): :1.Buchstabe֍VP$( (P$) ): :Grobuchstabe` (P$"O") (P$"M") : 8j:#t P$"O" GU$"G": P~ "Paritt: G(erade)/U(ngerade): ";GU$X  GU$(GU$,): :1.Buchstabe GU$( (GU$) ): :Grobuchstabe莦 (GU$"G") (GU$"U") : ~::Eingabe Stopbit:) "Stopbit: 1/2: ";S$/V (S$"1") (S$"2") : ^:v:Eingabe Baudrate~: "Baudrate: 150/300/600/1200/2400/4800/9600/19200: ";BD$ӏI!(BD$)܏(BD2 I! I!I!: BDBD: 23< (BD) (BD) (I!(I!)) :  F:---------------------------------------------------------------------P:Parameter fr SCREEN-Anweisung aus V24-Parameter berechnenʐZ:dDB(DB$)("7")n P$"O" P: : Px GU$"G" GU: : GU/S(S$)("1")[VF DB @P GU S BDc:l   "Die soeben eingestellten V24-Parameter sind ohne dieses Programm auch mit" " SCREEN ,,,,,,,";VF;" :REM 7 Kommas"  "einstellbar." " ,,,,,,,VF2:  : :---------------------------------------------------------------------:Drucker-Einstellungen mittels Steuerzeichenfolgen: "Einstellungen am Drucker mittels Steuerzeichenfolgen": "****************************************************"@w" KD ,X,,,~ ,Z ,6 , , , ,f ē,:---------------------------------------------------------------------ؓ6:Programmende@: J ST U : :normales ProgrammendeT:%^:  : \h "Automatische Rckkehr zum Druckertestprogramm!"r DA,KD: SA,ST: "DRUTE.BAS": :Rckkehr zu DRUTE.BAS|::=====================================================================:Unterprogramm fr FX 1000 im IBM-Mode#:s "DIP-Schalter 1-4 am Drucker EPSON FX 1000 in Stellung IBM-Mode bringen," "Papier auf Seitenanfang einspannen und Drucker einschalten."Ǖ:  :  "Es wird durch Steuerzeichenfolgen am Drucker eingestellt:": ,,,,,,DTZ " - Zeichensatz: IBM-Tabelle 2 (bzw. 3)": ESC$;"6"; " - Zeilenabstand: 36/216 = 1/6 Zoll": ESC$;"3";($); " - Seitenlnge: 72 Zeilen (A4-Endlospapier)": ESC$;"C";(H); " - Unterer Rand: 4 Zeilen": ESC$;"N";();W " - Schriftart: Elite (12 Zeichen/Zoll)": ESC$;":";y " - Linker Rand: Spalte 12" " Rechter Rand: Spalte 92": ESC$;"X";( );(\); " - Papierendefhler: Ein": ESC$;"9";& ,,,,,,DT0I::---------------------------------------------------------------------xD:Unterprogramm fr K 6327/28 im IBM-ModeN:טX "Kodier-Schalter A7 am Drucker robotron K 6327/28 in Stellung IBM-Mode bringen,"b "Papier auf Seitenanfang einspannen und Drucker einschalten."+l:  : pv "Es wird durch Steuerzeichenfolgen am Drucker eingestellt:": ,,,,,,DT " - Zeichensatz: 2 (Graphikzeichensatz)": ESC$;"6"; " - Zeilenabstand: 36/216 = 1/6 Zoll": ESC$;"3";($);H " - Seitenlnge: 72 Zeilen (A4-Endlospapier)": ESC$;"C";(H); " - Formularendezeile: 4 Zeilen vom unteren Rand": ESC$;"N";(); " - Linker Rand: Spalte 12" " Rechter Rand: Spalte 92": ESC$;"X";( );(\);$ " - Papierendefhler: Ein": ESC$;"9";3 ,,,,,,DT9:---------------------------------------------------------------------:Unterprogramm fr K 6313/14 im IBM-Mode: "Am Drucker robotron K 6313/14 (im IBM-Mode!) Papier auf Seitenanfang einspannen"6  "und Drucker einschalten."F:  :  "Es wird durch Steuerzeichenfolgen am Drucker eingestellt:": * ,,,,,,DTŜ4 " - Zeichensatz: 2": ESC$;"6";> " - Zeilenabstand: 36/216 = 1/6 Zoll": ESC$;"3";($);OH " - Seitenlnge: 72 Zeilen (A4-Endlospapier)": ESC$;"C";(H);R " - Formularendezeile: 4 Zeilen vom unteren Rand": ESC$;"N";();ʝ\ " - Papierendefhler: Ein": ESC$;"9";ٝf ,,,,,,DTߝp,z:---------------------------------------------------------------------[:Unterprogramm fr FX 1000 im EPSON-Modec: "DIP-Schalter 1-4 am Drucker EPSON FX 1000 in Stellung EPSON-Mode bringen," "Papier auf Seitenanfang einspannen und Drucker einschalten.":  K "Es wird durch Steuerzeichenfolgen am Drucker eingestellt:": ^ ,,,,,,DT: " - Drucker-Initialisierung": ESC$;"@"; " - Zeichensatz: EPSON-Tabelle 4" " d.h.: Graphikzeichensatz (&HA0 - &HFF)": ESC$;"t";();H " Obere Steuercodes (&H80 - &H9F) deaktiviert": ESC$;"6"; " US-ASCII (&H20 - &H7E)": ESC$;"R";();Ġ " - Zeilenabstand: 12/72 = 1/6 Zoll": ESC$;"A";( );  " - Seitenlnge: 72 Zeilen (A4-Endlospapier)": ESC$;"C";(H);C " - Unterer Rand: 4 Zeilen": ESC$;"N";();r " - Schriftart: Elite (12 Zeichen/Zoll)"ա$ " Unterstreichen, Kursiv-, Breit-, Doppel-, Fett- und Schmaldruck aus": ESC$;"!";(); . " - Linker Rand: Spalte 12": ESC$;"l";( );D8 " Rechter Rand: Spalte 92": ESC$;"Q";(\);sB " - Papierendefhler: Ein": ESC$;"9";L ,,,,,,DTV բ` :--------------------------------------------------------------------- j :Unterprogramm fr LX 86 (FQ 800) im EPSON-Modet :^~ "Am Drucker EPSON LX 86 (FQ 800) Papier auf Seitenanfang einspannen" "und Drucker einschalten." :  : ԣ "Es wird durch Steuerzeichenfolgen am Drucker eingestellt:": 磦 ,,,,,,DT: " - Drucker-Initialisierung": ESC$;"@";X " - Graphikzeichensatz (&HA0 - &HFF)": ESC$;"t";(); " Obere Steuercodes (&H80 - &H9F) deaktiviert": ESC$;"6";Ӥ " US-ASCII (&H20 - &H7E)": ESC$;"R";(); " - Zeilenabstand: 12/72 = 1/6 Zoll": ESC$;"A";( );\ " - Seitenlnge: 72 Zeilen (A4-Endlospapier)": ESC$;"C";(H); " - Unterer Rand: 4 Zeilen": ESC$;"N";(); " - Schriftart: Elite (12 Zeichen/Zoll)"$ " Unterstreichen, Kursiv-, Breit-, Doppel-, Fett- und Schmaldruck aus": ESC$;"!";();[ " - Linker Rand: Spalte 12": ESC$;"l";( ); " Rechter Rand: Spalte 92": ESC$;"Q";(\);¦ " - Papierendefhler: Ein": ESC$;"9";Ѧ( ,,,,,,DTצ2 $< :---------------------------------------------------------------------UF :Unterprogramm fr K 6327/28 im EPSON-Mode]P :Z "Kodier-Schalter A7 am Drucker robotron K 6327/28 in Stellung EPSON-Mode"d "bringen, Papier auf Seitenanfang einspannen und Drucker einschalten." n :  : Ox "Es wird durch Steuerzeichenfolgen am Drucker eingestellt:": b ,,,,,,DT: " - Drucker-Initialisierung": ESC$;"@";Ũ " - Graphikzeichensatz": ESC$;"t";(); " Obere Steuercodes (&H80 - &H9F) deaktiviert": ESC$;"6";@ " US-ASCII (&H20 - &H7E)": ESC$;"R";(); " - Zeilenabstand: 12/72 = 1/6 Zoll": ESC$;"A";( );ɩ " - Seitenlnge: 72 Zeilen (A4-Endlospapier)": ESC$;"C";(H); " - Formularendezeile: 4 Zeilen vom unteren Rand": ESC$;"N";();D " - Schriftart: Elite (12 Zeichen/Zoll)" " Unterstreichen, Kursiv-, Breit-, Doppel-, Fett- und Schmaldruck aus": ESC$;"!";();ު " - Linker Rand: Spalte 12": ESC$;"l";( ); " Rechter Rand: Spalte 92": ESC$;"Q";(\);E " - Papierendefhler: Ein": ESC$;"9";T ,,,,,,DTZ  :---------------------------------------------------------------------ث" :Unterprogramm fr K 6313/14 im EPSON-Mode, :/6 "Am Drucker robotron K 6313/14 (im EPSON-Mode!) Papier auf Seitenanfang"[@ "einspannen und Drucker einschalten."kJ :  : T "Es wird durch Steuerzeichenfolgen am Drucker eingestellt:": ì^ ,,,,,,DT:h " - Drucker-Initialisierung": ESC$;"@";*r " - Zeichensatz: US-ASCII": ESC$;"R";();j| " - Zeilenabstand: 12/72 = 1/6 Zoll": ESC$;"A";( ); " - Seitenlnge: 72 Zeilen (A4-Endlospapier)": ESC$;"C";(H); " - Formularendezeile: 4 Zeilen vom unteren Rand": ESC$;"N";();. " - Schriftart: Elite (12 Zeichen/Zoll)" " Sperr-, Doppel-, Fett- und komprimierter Druck aus": ESC$;"!";();Ӯ " - Max. Zeichenzahl pro Zeile: 80": ESC$;"Q";(X);: :+8 Zeichen Rand " - Papierendefhler: Ein": ESC$;"9"; ,,,,,,DT d :--------------------------------------------------------------------- :Unterprogramm fr K 6304 im EPSON-Mode : "Am Drucker robotron K 6304 mit DIL-Schalter 8 ";(");"1 Inch Skip over Perforation";(")N "einstellen, Papier auf Seitenanfang einspannen und Drucker einschalten."^ :  :  "Es wird durch Steuerzeichenfolgen am Drucker eingestellt:":  ,,,,,,DT:& " - Drucker-Initialisierung": ESC$;"@";0 " - Zeichensatz: US-ASCII": ESC$;"R";();]: " - Zeilenabstand: 12/72 = 1/6 Zoll": ESC$;"A";( );D " - Seitenlnge: 72 Zeilen (A4-Endlospapier)": ESC$;"C";(H);N ,,,,,,DTX b :---------------------------------------------------------------------@l :Unterprogramm fr K 6311/12/13/14/16 im ISO-ModeHv : "Am Drucker robotron K 6311/12/13/14/16 (im ISO-Mode!)"ʲ "Papier auf Seitenanfang einspannen und Drucker einschalten."ڲ :  :  "Es wird durch Steuerzeichenfolgen am Drucker eingestellt:": 2 ,,,,,,DT:f " - Drucker-Initialisierung": ESC$;(); " - Zeichensatz: US-ASCII": ESC$;"R";(); " - Seitenlnge: 144/2 = 72 Zeilen (A4-Endlospapier)": ESC$;"[144}";* " - Formularendezeile: 136/2 = Zeile 68": ESC$;"[136z";d " - Schriftart: 12,5 Zeichen/Zoll": ESC$;"[2 K"; " Normaldruck ein, Breit- und Schrgdruck aus": ESC$;"[0m"; ,,,,,,DT  :---------------------------------------------------------------------E :Unterprogramm fr elektronische SchreibmaschinenM : "Weitere Einstellungen an elektronischen Schreibmaschinen sind mit diesem"* "Programm nicht mglich."ǵ4 : ͵> H :---------------------------------------------------------------------:R :Unterprogramm fr K 6303B\ :f "Drucker robotron K 6303 besitzt keine Einstellmglichkeiten."p : z 㶄 :===================================================================== :Warten auf ENTER :* F);">ENTER<";: JN$"": "";JN$0 } :=====================================================================