/*
$VER: Druckanpassung.rexx 1.10 (21.01.95)
 *********************************************************************/
/* Hilfsprogramm zur Anpassung unterschiedlicher Drucker an				*/
/* MTRechnung V2.25 oder höher													*/
/* Autor: Manfred Tremmel															*/
/* Sprache: ARexx																		*/
/*********************************************************************/

/* Druckerabhängige Einstellungen                                    */
ESC		= '1b'x
DruBez	= "Star_LC10";							/* Druckersprachenbezeich. */
D_Z_kl	= ESC || "[0z";						/* Zeilenabst. 1/8 Zoll		*/
D_Z_gr	= ESC || "[1z";						/* Zeilenabst. 1/6 Zoll		*/
D_Schr	= ESC || "[0m";						/* Standardschrift.			*/
				/* Diese sollte in verschiedenen Größen verfügbar sein	*/
D_SStand	= ESC || "[4" || '22'x || "x" || ESC || '680012'x;
														/* Standardgröße				*/
D_SGross	= ESC || "[6" || '22'x || "x" || ESC || '6a221b6801'x;
														/* Große Schrift (PLZ)		*/
D_SKlein	= ESC || "[4w";						/* Kleine Schrift (Abs.)	*/
D_Br10	= ESC || "[0w";						/* Schriftbreite 10 cpi		*/
D_Br12	= ESC || "[2w";						/* Schriftbreite 12 cpi		*/
D_Br15	= ESC || "[4w";						/* Schriftbreite 15 cpi		*/
D_PEin	= ESC || "[2p";						/* Proportional ein			*/
D_PAus	= ESC || "[1p";						/* Proportional aus			*/
D_UEin	= ESC || "[4m";						/* Unterstrichen ein			*/
D_UAus	= ESC || "[24m";						/* Unterstrichen aus			*/
D_KEin	= ESC || "[3m";						/* Kursiv ein					*/
D_KAus	= ESC || "[23m";						/* Kursiv aus					*/
D_FEin	= ESC || "[1m";						/* Fettdruck ein				*/
D_FAus	= ESC || "[22m";						/* Fettdruck aus				*/
D_ZNorm	= ESC || "[3" || '22'x || "x" || ESC || '2000'x;
														/* normaler Zeichenabst.	*/ 
D_ZZAbst	= ESC || "[3" || '22'x || "x" || ESC || '1b2018'x;
														/* Zusätzl. Zeichenabst.	*/
D_CSchw	= ESC || "[39m";						/* Druckfarbe Schwarz		*/
D_CMag	= ESC || "[35m";						/* Druckfarbe Magenta		*/
D_CZyan	= ESC || "[36m";						/* Druckfarbe Zyan			*/
D_CViol	= ESC || "[34m";						/* Druckfarbe Violett		*/
D_CGelb	= ESC || "[33m";						/* Druckfarbe Gelb			*/
D_CRot	= ESC || "[31m";						/* Druckfarbe Rot				*/
D_CGruen	= ESC || "[32m";						/* Druckfarbe Grün			*/
/* Drucker zurücksetzen (geschieht am Anfang jedes Drucks)				*/
D_Rueck	= ESC || "c" || D_CSchw || D_Schr || D_SStand || D_Br10 || D_Z_gr|| D_PAus || D_UAus || D_KAus || D_FAus;
/* Druck beenden (am Ende jeden Ausdrucks!)									*/
D_Ende	= '0c'x;
/* Ist eine Umrechnung der Umlaute nötig?										*/
D_UmRe	= "N";
/* Umzurechnende Zeichen															*/
D_EingZ	= "";
/* Ausgangszeichen																	*/
D_AusgZ	= "";

file	= "Drucker/" || DruBez;				/* Druckerdateiname, in dem	*/
datei	= DruBez;								/* die Daten gespeichert 		*/		
Suc  = OPEN(datei,file,'write');			/* werden öffnen!					*/
IF Suc THEN										/* Wenn das geklappt hat,		*/
	DO;
		WRITELN(datei,D_Z_kl);				/* schreib die Daten rein.		*/
		WRITELN(datei,D_Z_gr);
		WRITELN(datei,D_Schr);
		WRITELN(datei,D_SStand);
		WRITELN(datei,D_SGross);
		WRITELN(datei,D_SKlein);
		WRITELN(datei,D_Br10);
		WRITELN(datei,D_Br12);
		WRITELN(datei,D_Br15);
		WRITELN(datei,D_PEin);
		WRITELN(datei,D_PAus);
		WRITELN(datei,D_UEin);
		WRITELN(datei,D_UAus);
		WRITELN(datei,D_KEin);
		WRITELN(datei,D_KAus);
		WRITELN(datei,D_FEin);
		WRITELN(datei,D_FAus);
		WRITELN(datei,D_ZNorm);
		WRITELN(datei,D_ZZAbst);
		WRITELN(datei,D_CSchw);
		WRITELN(datei,D_CMag);
		WRITELN(datei,D_CZyan);
		WRITELN(datei,D_CViol);
		WRITELN(datei,D_CGelb);
		WRITELN(datei,D_CRot);
		WRITELN(datei,D_CGruen);
		WRITELN(datei,D_Rueck);
		WRITELN(datei,D_Ende);
		WRITELN(datei,D_UmRe);
		WRITELN(datei,D_EingZ);
		WRITELN(datei,D_AusgZ);
	END;
CLOSE(datei);									/* Schließ die Datei				*/

EXIT 0;											/* Das wars auch schon!			*/