summaryrefslogtreecommitdiff
path: root/system/printer-9nadel/1986/src/module9
diff options
context:
space:
mode:
Diffstat (limited to 'system/printer-9nadel/1986/src/module9')
-rw-r--r--system/printer-9nadel/1986/src/module976
1 files changed, 38 insertions, 38 deletions
diff --git a/system/printer-9nadel/1986/src/module9 b/system/printer-9nadel/1986/src/module9
index e25cea6..2ab5304 100644
--- a/system/printer-9nadel/1986/src/module9
+++ b/system/printer-9nadel/1986/src/module9
@@ -1,7 +1,7 @@
(*************************************************************************)
(* Stand : 01.10.88 *)
-(* Module-Datei fr 9-Nadel-Drucker Version : 0.9 *)
+(* Module-Datei fĂźr 9-Nadel-Drucker Version : 0.9 *)
(* Autoren : mov/hjh *)
(*************************************************************************)
@@ -16,102 +16,102 @@ PACKET printer driver
top margin,
$hfx85$ std speed:
-(* Treiber fr EPSON FX85/105, automatisch generiert *)
+(* Treiber fĂźr EPSON FX85/105, automatisch generiert *)
$hfx800$ std quality,
std typeface:
-(* Treiber fr EPSON FX800/1000, automatisch generiert *)
+(* Treiber fĂźr EPSON FX800/1000, automatisch generiert *)
BOOL VAR was tall font;
$hmx$ std speed:
-(* Treiber fr EPSON MX80/100, Typ III *)
+(* Treiber fĂźr EPSON MX80/100, Typ III *)
(* Treiber automatisch generiert *)
BOOL VAR is condensed, is small;
$hlx800$ std speed,
std quality,
std typeface:
-(* Treiber fr EPSON LX800/1000, automatisch generiert *)
+(* Treiber fĂźr EPSON LX800/1000, automatisch generiert *)
BOOL VAR was tall font;
$hgp$ std speed:
-(* Treiber fr IBM-Grafikdrucker *)
+(* Treiber fĂźr IBM-Grafikdrucker *)
(* Treiber automatisch generiert *)
$hpp$ std speed,
std quality:
-(* Treiber fr IBM-Proprinter *)
+(* Treiber fĂźr IBM-Proprinter *)
(* Treiber automatisch generiert *)
$hml182i$ std speed,
std quality:
-(* Treiber fr OKI ML182/183 IBM-kompatibel *)
+(* Treiber fĂźr OKI ML182/183 IBM-kompatibel *)
(* Treiber automatisch generiert *)
$hml192el$ paper feed,
std speed:
-(* Treiber fr OKI ML192/193 Elite *)
+(* Treiber fĂźr OKI ML192/193 Elite *)
(* Treiber automatisch generiert *)
BOOL VAR prop font;
$hml292el$ std quality,
std typeface,
paper feed:
-(* Treiber fr OKI ML292/293 Elite *)
+(* Treiber fĂźr OKI ML292/293 Elite *)
(* Treiber automatisch generiert *)
BOOL VAR was tall font;
$hml294i$ std speed,
paper feed,
std quality:
-(* Treiber fr OKI ML294 IBM-kompatibel *)
+(* Treiber fĂźr OKI ML294 IBM-kompatibel *)
(* Treiber automatisch generiert *)
$hml320$ std speed:
-(* Treiber fr OKI ML320 IBM/EPSON-kompatibel *)
+(* Treiber fĂźr OKI ML320 IBM/EPSON-kompatibel *)
(* Treiber automatisch generiert *)
BOOL VAR prop font;
$hlc10$ std quality,
std typeface:
-(* Treiber fr Star LC-10 oder LC-10 Colour *)
+(* Treiber fĂźr Star LC-10 oder LC-10 Colour *)
(* Treiber automatisch generiert *)
BOOL VAR was tall font;
$hdmp4000$ std speed:
-(* Treiber fr Schneider DMP4000, automatisch generiert *)
+(* Treiber fĂźr Schneider DMP4000, automatisch generiert *)
$hnx15$ std speed:
-(* Treiber fr Star NX-15, ND-10, ND-15, NR-10 und NR-15 *)
+(* Treiber fĂźr Star NX-15, ND-10, ND-15, NR-10 und NR-15 *)
(* Treiber automatisch generiert *)
$hmt230$ paper feed,
std speed:
-(* Treiber fr Mannesmann-Tally MT 230 *)
+(* Treiber fĂźr Mannesmann-Tally MT 230 *)
(* Treiber automatisch generiert *)
$hmt340$ paper feed,
std speed:
-(* Treiber fr Mannesmann-Tally MT 340 *)
+(* Treiber fĂźr Mannesmann-Tally MT 340 *)
(* Treiber automatisch generiert *)
BOOL VAR prop font := FALSE;
$h120d$ :
-(* Treiber fr Citizen 120-D *)
+(* Treiber fĂźr Citizen 120-D *)
(* Treiber automatisch generiert *)
$hc310$ paper feed,
std speed:
-(* Treiber fr C. Itoh C 310/315 CXP *)
+(* Treiber fĂźr C. Itoh C 310/315 CXP *)
(* Treiber automatisch generiert *)
$hci3500$ std speed:
-(* Treiber fr C. Itoh CI-3500 *)
+(* Treiber fĂźr C. Itoh CI-3500 *)
(* Treiber automatisch generiert *)
$hdx2100$ paper feed,
std speed:
-(* Treiber fr Fujitsu DX 2100 *)
+(* Treiber fĂźr Fujitsu DX 2100 *)
(* Treiber automatisch generiert *)
BOOL VAR prop font := FALSE ;
@@ -152,7 +152,7 @@ PROC std speed (TEXT CONST speed) :
IF speed = "fast" OR speed = "slow"
THEN std speed name := speed
- ELSE errorstop ("unzul„ssige Geschwindigkeit")
+ ELSE errorstop ("unzulässige Geschwindigkeit")
FI
END PROC std speed;
@@ -165,7 +165,7 @@ PROC std quality (TEXT CONST quality) :
IF quality = "nlq" OR quality = "draft"
THEN std quality name := quality
- ELSE errorstop ("unzul„ssige Qualit„tsbezeichnung")
+ ELSE errorstop ("unzulässige Qualitätsbezeichnung")
FI
END PROC std quality;
@@ -178,7 +178,7 @@ PROC std typeface (TEXT CONST typeface) :
IF typeface = "" OR typeface = "roman" OR typeface = "sansserif"
THEN std typeface name := typeface
- ELSE errorstop ("unzul„ssige Schriftart")
+ ELSE errorstop ("unzulässige Schriftart")
FI
END PROC std typeface;
@@ -191,7 +191,7 @@ PROC std typeface (TEXT CONST typeface) :
IF typeface = "" OR typeface = "courier" OR typeface = "sansserif"
THEN std typeface name := typeface
- ELSE errorstop ("unzul„ssige Schriftart")
+ ELSE errorstop ("unzulässige Schriftart")
FI
END PROC std typeface;
@@ -205,7 +205,7 @@ PROC std typeface (TEXT CONST typeface) :
IF typeface = "" OR typeface = "courier" OR typeface = "sansserif"
OR typeface = "orator1" OR typeface = "orator2"
THEN std typeface name := typeface
- ELSE errorstop ("unzul„ssige Schriftart")
+ ELSE errorstop ("unzulässige Schriftart")
FI
END PROC std typeface;
@@ -218,7 +218,7 @@ PROC paper feed (TEXT CONST feeder) :
IF feeder = "sheet" OR feeder = "tractor"
THEN feeder name := feeder
- ELSE errorstop ("unzul„ssige Einzugsart")
+ ELSE errorstop ("unzulässige Einzugsart")
FI
END PROC paper feed;
@@ -234,7 +234,7 @@ PROC paper feed (TEXT CONST feeder) :
THEN feeder name := feeder
ELIF feeder = "sheet"
THEN feeder name := "schacht1"
- ELSE errorstop ("unzul„ssige Einzugsart")
+ ELSE errorstop ("unzulässige Einzugsart")
FI
END PROC paper feed;
@@ -301,14 +301,14 @@ $opendocmx$
$opendocgp$
param 2 := (param 2 DIV 36) * 36;
out (""27"6"); (* Zeichensatz 2 *)
- out (""18""27"F"27"H"27"W"0""27"T"27"-"0""); (* Modifikationen rcksetzen *)
+ out (""18""27"F"27"H"27"W"0""27"T"27"-"0""); (* Modifikationen rĂźcksetzen *)
out (""27"9"27"O"27"A"12""27"2");
out (""27"C" + code (param 2 DIV 36)). (* Formularlaenge *)
$opendocpp$
param 2 := (param 2 DIV 36) * 36;
out (""27"6"); (* Zeichensatz 2 *)
- out (""18""27"F"27"W"0""27"T"27"-"0""); (* Modifikationen rcksetzen *)
+ out (""18""27"F"27"W"0""27"T"27"-"0""); (* Modifikationen rĂźcksetzen *)
out (""27"9"27"O"27"A"12""27"2");
out (""27"C" + code (param 2 DIV 36)); (* Formularlaenge *)
IF pos (material, "nlq") <> 0
@@ -329,7 +329,7 @@ $opendocml182i$
THEN out (""27"I3")
ELSE out (""27"I1")
FI;
- out (""27"N"0""); (* Kein Sprung ber Perf. *)
+ out (""27"N"0""); (* Kein Sprung Ăźber Perf. *)
$opendocml192el$
param 2 := (param 2 DIV 36) * 36;
@@ -369,7 +369,7 @@ $opendocml292el$
$opendocml294i$
param 2 := (param 2 DIV 36) * 36;
out (""27"6"); (* Zeichensatz 2 *)
- out (""18""27"F"27"W0"27"T"27"-0"27"%H"); (* Modifikationen rcksetzen *)
+ out (""18""27"F"27"W0"27"T"27"-0"27"%H"); (* Modifikationen rĂźcksetzen *)
out (""27"9"27"O"27"A"12""27"2");
out (""27"C" + code (param 2 DIV 36)); (* Formularlaenge *)
IF pos (material, "nlq") <> 0
@@ -647,7 +647,7 @@ $cmdml292el$
THEN out (""27"r4")
ELIF buffer = "orange"
THEN out (""27"r5")
- ELIF buffer = "grn"
+ ELIF buffer = "grĂźn"
THEN out (""27"r6")
ELSE out (buffer)
FI.
@@ -670,7 +670,7 @@ $cmdml294i$
THEN out (""27"r4")
ELIF buffer = "orange"
THEN out (""27"r5")
- ELIF buffer = "grn"
+ ELIF buffer = "grĂźn"
THEN out (""27"r6")
ELSE out (buffer)
FI.
@@ -701,7 +701,7 @@ $cmdlc10$
THEN out (""27"r"4"")
ELIF buffer = "orange"
THEN out (""27"r"5"")
- ELIF buffer = "grn"
+ ELIF buffer = "grĂźn"
THEN out (""27"r"6"")
ELSE out (buffer)
FI.
@@ -724,7 +724,7 @@ $cmdmt230$
THEN out (""27"r"4"")
ELIF buffer = "rot"
THEN out (""27"r"5"")
- ELIF buffer = "grn"
+ ELIF buffer = "grĂźn"
THEN out (""27"r"6"")
ELSE out (buffer)
FI.
@@ -748,7 +748,7 @@ $cmdc310$
THEN out (""27"r"4"")
ELIF buffer = "orange"
THEN out (""27"r"5"")
- ELIF buffer = "grn"
+ ELIF buffer = "grĂźn"
THEN out (""27"r"6"")
ELSE out (buffer)
FI.
@@ -768,7 +768,7 @@ $cmddx2100$
THEN out (""27"r"4"")
ELIF buffer = "orange"
THEN out (""27"r"5"")
- ELIF buffer = "grn"
+ ELIF buffer = "grĂźn"
THEN out (""27"r"6"")
ELSE out (buffer)
FI.