- AZ: P,X: SA : ST(SA): SA,V :ST<>&H55: Aufruf aus Direktmode :ST=&H55: Aufruf aus DRUEIN.BAS(VS$"2.0": VA D: DASA2:<:Datei: DRUTE.BASՀF:Stand: 23.05.89P:Autor: Ludewig, 1EKG@Z:-----------------------------------------------------------------------Md ,: Vn  x "***************************************" " Druckertest"߁ "fr BIC A 5105 mit RBASIC Version ";VS$偪 "***************************************"# r:-----------------------------------------------------------------------:Versionstest:VE$"": I : VE$VE$((VAI)): т VE$VS$   : "Programm luft nur mit RBASIC Version ";VS$: Y:----------------------------------------------------------------------a:" ST U l: :Druckertyp einstellenƃ, ST U : :bernahme Druckerparameter6:----------------------------------------------------------------------%@:Hauptmen-J:KT "1 - ndern Druckertyp"l^ "2 - Ausdruck Zeichensatz"h (DT ) r "3 - Bildschirmkopie Zeichensatz (SCREEN 0 und 8)| "4 - -'-'- -'-'- (SCREEN 1)"! "5 - -'-'- -'-'- (SCREEN 9)"U "6 - -'-'- Grafik (SCREEN 2 und 5)" "7 - -'-'- -'-'- (SCREEN 3)" "8 - ProgrammendeՅKZ$"": "Kennzahl eingeben (1-8): ";KZ$ޅ: KZ(KZ$) (KZ) (KZ) : d' (DT ) J (KZ) (KZ) : dR:} KZ l,,,x,,,N,D EN  d&:====================================================================0:Programmende:: DEN: VN:====================================================================~X:Unterprogramm Eingabe Druckertypb:Ӈl: "Vor dem Druckertest mssen Computer und Drucker zueinander passend"v"eingestellt werden."$"Dazu wird das Druckereinstellprogramm geladen!"@ SA, U: "DRUEIN.BAS":--------------------------------------------------------------------ˈ:Parameter fr SCREEN-Anweisung aus Druckertyp berechnenӈ:㈲ L1 숼L1 "FX 1000 / IBM", 0, 81> "K6327/28 / IBM", 8, 81g "K 6313/14 / IBM", 40, 81 "FX 1000 / EPSON", 9, 81 "LX 86 (FQ 800) / EPSON)", 9, 81 "K 6327/28 / EPSON", 9, 81  "K 6313/14 / EPSON", 45, 814  "K 6304 EPSON", 12, 81] "K 6311/12/13/14/16 / ISO", 47, 81  "Elektr. SM", 15, 81* "K 6303", 15, 444 NJ>KD(DA)֊H I KDR DN$\ DT f VF$: VF("&H"VF$)pz:; "Bitte Datum eingeben: ";DA$C:K:] ,,,,,,DT,VFc:---------------------------------------------------------------------ڋ:Unterprogramm Ausdruck Zeichensatz: F);DA$9ZK$ "Zeichensatz mit Druckertyp "DN$" ("(DT)","(VF)"H)"C ZK$X ((ZK$),"*")" 0 1 2 3 4 5 6 7 8 9 A B C D E F 0 1 2 3 4 5 6 7 8 9 A B C D E F"::: "2-Byte-Grafikzeichen: Code 01/00...01/1F": I @ _$ () "\ \";(I @);5. ();(I);" ";L8 ()B :SB ZL bV:` "Alphnum. Zeichen: Code 20...7E":j I ~t () "\ \";(I);ԍ~ (I);" ";덈 ()B :  :::7 "Sonder- und Grafikzeichen: Code 80...FF":J I m () "\ \";(I); (I);" "; ()B :  ( );:--------------------------------------------------------------------? :Unterprogramm Bildschirmkopie Zeichensatz SCREEN 0 und 8G:WSC: `(: p2SC: < ( );F : P܏Z:--------------------------------------------------------------------d:Unterprogramm Bildschirmkopie Zeichensatz SCREEN 1n:.xSC: = ( );H : N:--------------------------------------------------------------------Ԑ:Unterprogramm Bildschirmkopie Zeichensatz SCREEN 9ܐ:쐾SC:  ( ); : X:--------------------------------------------------------------------:Unterprogramm Bildschirmkopie Zeichensatz: SC: ˑ ( );"Computer-Zeichensatz";);DA$ޑ "Screen:";SC" "Drucker:";DN$, "Drutyp:";DT"6 "V24par: ";(VF);"H"*@:\J: "2-Byte-Grafikzeichen:Code 01/00...01/1F"T I @ _: ();(I);" ";: ^h:r "Alphnum. Zeichen: Code 20...7E"ܒ| I ~: (I);" ";: ⒆꒐: "Sonder- und Grafikzeichen: Code 80...FF"= I : (I);" ";: E:Q BICOPY:_:--------------------------------------------------------------------:Unterprogramm Bildschirmkopie Grafik SCREEN 2 und 5:SC: : SC: & ( );1 : 7&0:--------------------------------------------------------------------::Unterprogramm Bildschirmkopie Grafik SCREEN 3D:ДNSC: ߔX ( );b : l (d,')(e,t')H Xd d @PR (X,X),\'f:Mp (d,G)(e,G)fz Xd d @Pw (X,X),}: "GRP:" AS # (,)(?,)З (,),: #,"Screen:";SC (,),: #,"Drucker:";DN$ (,),: #,"Drutyp:";DTD (,),: #,"V24par: ";(VF);"H"] (,),: #,DA$f #n:z BICOP : Ԙ :--------------------------------------------------------------------,DA$f #n:z BICOP :