Die ideale Ergänzung

Wie in der letzten Ausgabe versprochen, sollen nun auch die Besitzer von MPS 802- und Epson-Druckern zu ihrem Recht kommen — hier sind die Druckertreiber und der Zeichensatz-Editor für unser Listing des Monats aus der Ausgabe 6/86 »Master-Text«.

Sicherlich werden Sie schon mit Spannung auf diese zusätzlichen Programme zu Master-Text gewartet haben. Doch bevor es an die Beschreibung der Bedienung geht, vorab einige Hinweise zum Eingeben:

Laden Sie sich das Programm »INSTALL« aus der letzten Ausgabe in Ihren Computer und entfernen Sie die REM-Befehle aus den Zeilen 110, 120, 140, 10120.
Löschen Sie die Zeile 10121.
Speichern Sie das Programm »INSTALL« unter gleichem Namen.

Jetzt brauchen Sie nur noch die vier Listings »MPS 802«, »NORMAL«, »CENTRONIC« und »UMLAUT2« (Listing 1 bis 4) mit dem MSE einzugeben und auf Ihrer Master-Text-Diskette zu speichern. Damit ist »Master-Text« komplett.

Mit dem Programm »Install« können Sie nun Ihren Drucker einstellen.

Starten Sie das Programm, so haben Sie die Auswahl zwischen
1) Normal IEC + RS232 (ASCII)
2) Centronic (ASCII)
3) MPS801 + VC1525 (CBM)
4) MPS802 + VC1526
5) individuell

Normal IEC (Punkt 1) sollten Sie wählen, wenn Sie einen ASCII-Drucker mit Interface am IEC-Bus oder auch eine Schreibmaschine an der RS232-Schnittstelle betreiben. Mit Centronic (Punkt 2) können Sie Ihren Drucker mit Centronics-Schnittstelle direkt am User-Port anschließen (Pinbelegung in Bild 1). Beim MPS 801 und VC 1525 (auch MPS 803) (Punkt 3) werden die Umlaute im Bitmuster-Modus gesendet.

Verbindungstabelle User-Port zu Centronics-Stecker — Bild 1. So muß das Kabel zwischen User-Port und Centronics-Schnittstelle verbunden werden

Entsprechendes gilt bei Punkt 4 für die Drucker MPS 802 und VC1526. Es werden alle deutschen Sonderzeichen gedruckt. Auch die Anführungszeichen werden in Grafik ausgegeben, um zu verhindern, daß die Steuerzeichen revers gedruckt werden. Die Revers-Schrift ist weiterhin verfügbar. Außerdem ist das Unterstreichen von einzelnen Wörtern, ganzen Sätzen oder Abschnitten möglich. Führende Leerzeichen in einer Zeile werden dabei nicht unterstrichen. Die Unterstreichungwird mit CHR$(2) ein- und mit CHR$(130) ausgeschaltet. Eine Aufstellung aller Steuerzeichen für die MPS 802-Drucker finden Sie in der Tabelle.

Funktion	Code
Unterstreichung ein	$02 !2
Unterstreichung aus	$82 !130
Reset der Software	$fe !254
ä	$83 !131
Ä	$84 !132
ö	$85 !133
Ö	$86 !134
ü	$87 !135
Ü	$88 !136
ß	$89 !137
§	$8a !138
¨	$8b !139

Tabelle. Die Steuerzeichen für die MPS 802-Drucker

Unter Punkt 5 können Sie eigene Schnittstellen generieren. Diese Schnittstellen sollten den Namen »INDI« tragen, in den Bereich $9A00 bis $9FFF geladen und mit SYS 39424 installiert werden. Nachdem Sie Ihren Drucker installiert haben, wird automatisch das Textprogramm nachgeladen.

Text via RS232 senden

Wenn Sie im »Install«-Programm den Punkt 1 (Normal und RS232) gewählt haben, können Sie Ihre Texte nicht nur über den seriellen Port, sondern auch über die im C 64 eingebaute RS232-Schnittstellen-Software ausgeben. Wenn Sie beispielsweise einen Text auf einem RS232-Drucker ausgeben oder an einen anderen Computer senden möchten, brauchen Sie nur die nachfolgend beschriebenen Punkte genau zu beachten. Daß Sie zum Anschluß eines RS232-Druckers noch ein Interface benötigen, das für die notwendigen Pegel sorgt, ist dabei natürlich selbstverständlich. Geräte, die über RS232 angesprochen werden sollen, haben generell die Geräteadresse »2«. Stellen Sie deshalb im »Dienst«-Menü unter dem Auswahlpunkt »Druckerparameter« die Geräteadresse auf »2«. Die Frage nach der Sekundäradresse können Sie überspringen. Nun kommt aber die wichtigste Einstellung — die Parameterzahl für die RS232-Schnittstelle. Hier können Sie festlegen, wie schnell übertragen, mit welchem Protokoll, wieviele Stoppbits verwendet werden und welches Handshake vereinbart ist. Die Einstellung erfolgt über zwei hexadezimale Zahlen (also vierstellig), deren Bedeutung nun erläutert wird.

Die erste Zahl: Die niederwertigen vier Bits der ersten Zahl bestimmen die Geschwindigkeit mit der gesendet werden soll (1 = 50, 2 = 75, 3 = 110, 4 = 134.5, 5 = 150, 6 = 300, 7 = 600, 8 = 1200, 9 = 1800,10 = 2400 bit/s). Bit 5 und 6 bestimmen die Anzahl der zu sendenden Daten. (0 = 8 Bits, 32 = 7 Bits, 64 = 6 Bits, 96 = 5 Bits) Bit 7 bestimmt die Anzahl der Stoppbits (0 = ein Stoppbit,128 = zwei Stoppbits). Um den Wert der ersten Zahl zu bestimmen, summieren Sie die zutreffenden Zahlen und wandeln diese in eine Hexadezimalzahl.

Die zweite Zahl: Das erste Bit dieser Zahl bestimmt die Handshakeleitung. (0 = 3-Draht Handshake, l = X-Draht Handshake). Bit 4 bestimmt die Übertragungsart (0=Vollduplex, 16 = Halbduplex). Die Bits 5 bis 7 bestimmen schließlich die Art der Paritätsprüfung (0 = keine Paritätsprüfung; kein achtes Datenbit, 32 = ungerade Parität, 96 = gerade Parität, 160 = keine Paritätsprüfung; achtes Datenbit immer 1, 224 = keine Paritätsprüfung; achtes Datenbit immer 0). Addieren Sie wieder die zutreffenden Werte in der ersten Spalte und wandeln Sie die Zahl in eine Hexadezimalzahl. Dann tragen Sie die beiden Zahlen in das Feld, das für die RS232-Schnittstelle vorgesehen ist, ein. Hier noch ein Beispiel: Angenommen, Sie wollen einen Text per Akustikkoppler mit einer Rate von 300 bit/s übertragen und Sie wollen 7 Bit senden, so würden Sie für die erste Zahl 6 + 32 + 0 = 38 (entspricht hexadezimal $26) erhalten. Wenn Sie 3-Draht-Handshake haben, den Akustikkoppler Vollduplex betreiben und aufkeine Parität (achtes Bit gleich 0) prüfen wollen, so erhalten Sie für die zweite Zahl 0 + 0 + 224 ( = $E0 als Hexadezimalzahl). Sie müßten in das betreffende Feld also »26E0« eintragen.

Der Zeichensatz-Editor

Was wäre ein gutes Textprogramm ohne einen Zeichensatz-Editor? Nun, bei Master-Text brauchen Sie nicht darauf zu verzichten. Die beiden Programme »ZEICHEN-EDITOR V1.0« und »Z.E.Tl« ermöglichen es Ihnen, Ihren eigenen Zeichensatz zu erstellen. Geben Sie das Programm »Z.E.Tl« (Listing 5) bitte mit dem MSE ein, für das Programm »ZEICHEN-EDITOR V1.0« (Listing 6) verwenden Sie bitte den Checksummer V3.

1 rem *******************************
2 rem *                             *
3 rem *      checksummer 64 v3      *
4 rem *                             *
5 rem *    written maerz 1985 by    *
6 rem *                             *
7 rem *      frank lonczewski       *
8 rem *                             *
9 rem *******************************
10 print"{clr}           {rvon}checksummer 64 v3{rvof}"
11 print"{down}{down}         einen moment, bitte ..."
12 fori=828to864:reada:pokei,a:ps=ps+a+1:nexti
13 ifps<>5802thenprint"pruefsummenfehler in zeilen 20-22":end
14 sys828:ps=0:fori=58464to58583:reada:pokei,a:ps=ps+a+1:nexti
15 ifps<>16267thenprint"pruefsummenfehler in zeilen 22-30":end
16 poke1,53:poke42289,96:poke42290,228
17 print"{down}{down}{down}{down}         checksummer aktiviert."
18 print"{down}{down}ausschalten : poke1,55"
19 print"{down}anschalten  : poke1,53":new
20 data169,0,133,254,162,1,189,93,3,133,255,160,0,177,254
21 data145,254,136,208,249,230,255,165,255,221,95,3,208,238,202
22 data16,230,96,160,224,192,0,160,2,169,0,170,133,254,177
23 data95,240,40,201,32,208,3,200,208,245,133,255,138,41,7
24 data170,240,14,72,165,255,24,42,105,0,202,208,249,133,255
25 data104,170,232,165,255,24,101,254,133,254,76,111,228,192,4
26 data48,219,198,214,165,214,72,162,3,169,32,157,1,4,189
27 data212,228,32,210,255,208,12,0,92,72,32,201,255,170,104
28 data144,1,138,96,202,16,228,166,254,169,0,32,205,189,169
29 data62,32,210,255,104,133,214,32,108,229,169,141,32,210,255
30 data76,128,164,9,60,18,19

Start des Zeichen-Editors

Legen Sie die Programmdiskette in das Laufwerk mit der Gerätenummer 8. Laden und Starten Sie das Programm »ZEICHEN-EDITOR V1.0« (Listing 6). Das Maschinen-Programm »Z.E.Tl« wird jetzt geladen und gestartet. Nach dem Laden befinden Sie sich im Editor. Laden Sie als erstes den Zeichensatz (Programm »Zeichensatz«), den wir in der letzten Ausgabe abgedruckt haben (siehe Hauptmenü).

Editor

Mit den Cursortasten können Sie sich, wie im Basic, in dem 8 x 8 Punkte großen Feld bewegen. Mit der <CLR/HOME >-Taste gelangen Sie in die linke obere Ecke. Die <SHIFT> + <CLR/HOME>-Taste löscht das 8 x 8-Feld. Mit der <RETURN>-Taste gelangen Sie an den Anfang der nächsten Zeile. Die Leertaste löscht den Punkt unter dem Cursor, die <*>-Taste setzt diesen Punkt. Mit der <F1 >-Taste gelangen Sie schließlich ins Hauptmenü.

Hauptmenü

Im Hauptmenü können Sie mit den Funktionstasten < Fl > bis <F8> verschiedene Funktionen des Zeicheneditors aufrufen. Es folgt eine Tabelle der Zuordnungen:
<F1>: Sprung zurück in den Editor.
<F2>: Das Zeichen, das sich in dem 8 x 8-Feld befindet, wird auf die Taste gelegt, die Sie nach der <F2>-Taste gedrückt haben.
<F3>: Das Zeichen, dessen Taste Sie nach der < F3 > -Taste gedrückt haben, wird aus dem Zeichensatz, den Sie gerade bearbeiten, in dem 8 x 8-Feld zur Anzeige gebracht. Es kann nun mit der <F1>-Taste editiert werden.
<F4>: Das Zeichen, dessen Taste Sie nach der < F4 > -Taste gedrückt haben, wird aus dem < ROM > -Zeichensatz in dem 8 x 8-Feld zur Anzeige gebracht. Es kann nun mit der < Fl >-Taste editiert werden.
<F5>: Nach dem Druck auf < F5 > gelangen Sie in eine Eingabemaske. In dieser müssen Sie den Zeichensatznamen eingeben. Wenn Sie »e« als Namen eingeben, gelangen Sie in das Hauptmenü zurück. Ansonsten wird der Zeichensatz geladen, vorausgesetzt, er befindet sich auch auf der Diskette. Wenn nicht, erscheint die entsprechende Fehlermeldung, die Sie mit <RETURN> bestätigen müssen.
<F6>: Nach dem Druck auf die < F6 > -Taste gelangen Sie in eine Eingabemaske. In dieser müssen Sie den Zeichensatznamen eingeben. Wenn Sie »e« als Namen eingeben, gelangen Sie in das Hauptmenü zurück. Ansonsten wird der Zeichensatz unter dem eingegebenen Namen gespeichert. Wenn irgendwelche Fehler auftreten, werden diese zur Anzeige gebracht. Sollte der Zeichensatz schon existieren, so können Sie nach der Bestätigung der Fehlermeldung durch die <RETURN>-Taste entscheiden, ob Sie den alten Zeichensatz löschen wollen. Haben Sie sich dafür entschieden, so wird der alte Zeichensatz gelöscht. Danach können Sie noch einmal einen Zeichensatznamen eingeben oder den alten durch <RETURN> bestätigen. Der Zeichensatz wird dann abgespeichert.
<F7>: Nach dem Druck auf < F7 > wird der Grafik-/Großbuchstaben-Zeichensatz in den Groß-/Kleinbuchstaben-Zeichensatz kopiert.
<F8>: Nach dem Druck auf die < F7 > -Taste wird der Groß-/Kleinbuchstaben-Zeichensatz in den Grafik/Großbuchstaben-Zeichensatz kopiert.
<CTRL> + <C>: Der (ROM)-Zeichensatz wird in den (RAM)-Zeichensatz kopiert. Der bis dahin erstellte Zeichensatz geht dabei verloren.
<CBM> + <SHIFT>: Schaltet zwischen dem Grafik-Zeichensatz und dem Buchstaben-Zeichensatz hin und her.

Erstellen eines Zeichensatzes für Master-Text

Um mit Master-Text sinnvoll arbeiten zu können, müssen Sie sich zwei Zeichensätze erstellen:

Einen Zeichensatz mit deutschen Umlauten für die Darstellung mit 40 Zeichen pro Zeile. Bei diesem Zeichensatz wurden einige Tasten umbelegt. Diese werden jetzt der Reihe nach aufgeführt. Auch die deutschen Sonderzeichen müssen unbedingt auf die angegebenen Tasten gelegt werden. Für den Zeichensatz zur Darstellung von 40 Zeichen pro Zeile benutzen Sie bitte den Groß-/Kleinbuchstaben-Zeichensatz.
Einen Zeichensatz mit deutschen Umlauten für die Darstellung mit 80 Zeichen pro Zeile. Bei diesem Zeichensatz dürfen Sie jeweils nur die erste Hälfte des 8 x 8-Feldes benutzen. Das Zeichen selbst darf 3 x 8 Punkte in Anspruch nehmen; die vierte Punktreihe dient als Zwischenraum zwischen den einzelnen Zeichen. Dieser Zeichensatz wird auf den Grafik-/ Großbuchstaben-Zeichensatz gelegt. Ansonsten gelten dieselben Regeln wie für den Zeichensatz für 40 Zeichen pro Zeile.

(Martin Pahl/aw)

PROGRAMM : UMLAUT2        9A00 9C1C
-----------------------------------
9A00 : 48 A9 2B 8D 26 03 A9 9A   F0
9A08 : 8D 27 03 A9 00 8D 20 9C   45
9A10 : 8A 48 A2 00 8E 1D 9C 8E   C8
9A18 : 21 9C 8E 1E 9C 8E 22 9C   EF
9A20 : 8A 9D 00 9E E8 D0 FA 68   1E
9A28 : AA 68 60 48 A5 9A C9 04   86
9A30 : F0 04 68 4C CA F1 68 48   34
9A38 : C9 20 90 03 4C EA 9A C9   B0
9A40 : 0D D0 7D 8A 48 98 48 A2   16
9A48 : 4F BD 00 9E 30 0F CA 10   11
9A50 : F8 A9 0D 20 CA F1 68 A8   93
9A58 : 68 AA 4C 10 9A A9 8D 20   98
9A60 : CA F1 20 A5 9B A9 06 20   3F
9A68 : CA F1 20 C7 9B A9 0D 20   A7
9A70 : CA F1 20 9D 9B A2 08 A9   31
9A78 : 01 20 CA F1 CA D0 FA 20   D9
9A80 : C7 9B A0 00 AE 1D 9C B9   F7
9A88 : 00 9E 30 03 A9 20 2C A9   E3
9A90 : FE 20 CA F1 C8 CA 10 EF   92
9A98 : A9 8D 20 CA F1 20 A5 9B   57
9AA0 : A9 1E 20 CA F1 20 C7 9B   30
9AA8 : A9 0D 20 CA F1 20 A5 9B   27
9AB0 : A9 24 20 CA F1 20 C7 9B   43
9AB8 : A9 8D 20 CA F1 4C 56 9A   99
9AC0 : C9 02 D0 08 A9 FF 8D 20   D0
9AC8 : 9C 68 18 60 C9 12 D0 5C   D4
9AD0 : A9 FF 8D 22 9C D0 55 C9   5A
9AD8 : 82 D0 04 A9 00 F0 E7 C9   B3
9AE0 : 92 D0 49 A9 00 8D 22 9C   90
9AE8 : F0 42 C9 20 D0 10 AD 21   F6
9AF0 : 9C F0 04 A9 20 D0 1E EE   19
9AF8 : 1D 9C A9 20 D0 2E C9 80   78
9B00 : 90 13 C9 83 90 D1 C9 8C   D4
9B08 : 90 26 C9 A0 90 C9 C9 FE   AE
9B10 : D0 03 4C 0B 9A 98 48 AD   C1
9B18 : 20 9C 10 08 A9 FF AC 1D   13
9B20 : 9C 99 00 9E EE 1D 9C EE   85
9B28 : 21 9C 68 A8 68 4C CA F1   BE
9B30 : 8D 1C 9C 8A 48 98 48 AD   09
9B38 : 1C 9C CD 1E 9C F0 2E A9   37
9B40 : 8D 20 CA F1 20 9D 9B AD   87
9B48 : 1C 9C 38 E9 83 0A 0A 0A   C2
9B50 : AA A0 08 BD D4 9B 20 CA   44
9B58 : F1 E8 88 D0 F6 20 C7 9B   C0
9B60 : AC 1D 9C F0 08 A9 20 20   6F
9B68 : CA F1 88 D0 FA AD 20 9C   3E
9B70 : 10 08 AC 1D 9C A9 FF 99   9D
9B78 : 00 9E EE 1D 9C EE 21 9C   26
9B80 : AD 22 9C 10 05 A9 12 20   8E
9B88 : CA F1 A9 FE 20 CA F1 A9   08
9B90 : 11 20 CA F1 68 A8 68 AA   65
9B98 : 68 8D 1E 9C 60 A0 05 8C   1A
9BA0 : 1F 9C 4C AD 9B A0 06 8C   C6
9BA8 : 1F 9C 4C AD 9B 20 CC FF   CC
9BB0 : A9 05 A2 04 AC 1F 9C 20   7B
9BB8 : BA FF A9 00 20 BD FF 20   0C
9BC0 : C0 FF A2 05 4C C9 FF 20   1C
9BC8 : CC FF A9 05 20 C3 FF A2   04
9BD0 : 02 4C C9 FF 84 2A 2A 2A   01
9BD8 : 3C 82 00 00 9E 28 48 48   32
9BE0 : 28 9E 00 00 9C 22 22 22   FF
9BE8 : 22 9C 00 00 BC 42 42 42   C4
9BF0 : 42 BC 00 00 3C 82 02 82   75
9BF8 : 3C 02 00 00 7C 02 82 82   1C
9C00 : 02 7C 00 00 7F 84 94 94   D8
9C08 : 94 68 00 00 50 AA AA AA   2B
9C10 : AA 14 00 00 00 C0 00 00   CB
9C18 : C0 00 00 00               8E

Listing 1. Hilfsprogramm für MPS 802-Drucker, wird automatisch nachgeladen. Bitte verwenden Sie den MSE zur Eingabe.

PROGRAMM : MPS802         BD00 C000
-----------------------------------
BD00 : 01 1B 35 67 F0 04 C9 2B   76
BD08 : D0 05 20 73 00 90 5B C9   57
BD10 : 2E 01 1B 34 45 D0 30 20   E8
BD18 : 73 00 90 17 C9 AB F0 0E   6C
BD20 : C9 2D 02 82 2D 00 F0 08   F7
BD28 : C9 2B F0 04 D0 07 66 60   E3
BD30 : 20 73 00 02 02 2D 01 10   F8
BD38 : 0E A9 00 38 E5 5E 4C 49   37
BD40 : BD 66 5F 24 01 1B 53 01   C5
BD48 : 5E 38 E5 5D 85 5E F0 12   1B
BD50 : 10 09 20 FE BA 01 1B 53   93
BD58 : 00 F0 07 20 E2 BA C6 5E   72
BD60 : D0 F9 A5 67 30 01 01 1B   C8
BD68 : 54 BF 48 24 5F 10 02 E6   7F
BD70 : 5D 20 E2 BA 68 38 E9 02   E1
BD78 : 92 7E BD 4C 0A BD 48 20   32
BD80 : 0C BC 68 20 3C BC A5 6E   26
BD88 : 02 12 85 6F A6 61 4C 6A   5E
BD90 : B8 A5 5E C9 0A 90 09 A9   88
BD98 : 64 01 1B 46 11 4C 7E B9   ED
BDA0 : 0A 0A 18 65 5E 0A 18 A0   3A
BDA8 : 00 71 01 1B 45 30 85 5E   AD
BDB0 : 4C 30 BD 9B 3E BC 1F FD   39
BDB8 : 9E 6E 6B 01 1B 50 1B 45   B4
BDC0 : 28 00 A9 71 A0 A3 20 DA   DE
BDC8 : BD A5 3A A6 01 1B 4D 86   E6
BDD0 : 63 A2 90 38 20 49 BC 20   2F
BDD8 : DF BD 4C 1E AB 01 1B 50   3D
BDE0 : 0F 1B 51 89 02 A9 2D 99   58
BDE8 : FF 00 85 66 84 71 01 1B   24
BDF0 : 41 0C 61 D0 03 4C 04 BF   CC
BDF8 : A9 00 E0 80 F0 02 B0 01   CD
BE00 : 1B 33 2A BD 20 28 BA A9   79
BE08 : F7 85 5D A9 B8 A0 BD 20   16
BE10 : 01 BC F0 1E 10 12 A9 B3   0F
BE18 : A0 BD 20 5B BC F0 02 10   86
BE20 : 0E 01 1B 21 C6 5D D0 EE   12
BE28 : 20 FE BA E6 5D D0 DC 20   63
BE30 : 49 B8 01 9B BC A2 01 A5   B9
BE38 : 5D 18 69 0A 30 09 C9 0B   C6
BE40 : B0 06 69 01 AA A9 02 38   DE
BE48 : E9 02 85 5E 86 5D 8A F0   BF
BE50 : 02 10 13 A4 01 A9 2E C8   5B
BE58 : 99 FF 00 8A F0 06 A9 30   88
BE60 : C8 99 FF 00 84 01 A0 00   C8
BE68 : A2 80 A5 65 18 79 19 BF   92
BE70 : 85 65 A5 64 79 18 01 85   05
BE78 : 64 A5 63 79 17 BF 85 63   03
BE80 : A5 62 79 16 BF 85 62 01   2B
BE88 : B0 04 10 DE 30 02 30 DA   A4
BE90 : 8A 90 04 49 FF 69 0A 69   D3
BE98 : 01 C8 C8 C8 C8 84 47 A4   60
BEA0 : 71 C8 AA 29 7F 99 FF 00   0A
BEA8 : C6 01 D0 06 A9 2E C8 99   46
BEB0 : FF 00 84 71 A4 47 8A 49   40
BEB8 : FF 29 01 AA C0 24 F0 04   DA
BEC0 : C0 3C D0 A6 A4 71 B9 FF   64
BEC8 : 00 88 C9 01 F0 F8 C9 2E   F9
BED0 : F0 01 C8 A9 2B A6 5E F0   EB
BED8 : 2E 10 08 A9 03 11 FE 56   A7
BEE0 : 38 1B 51 89 01 01 A9 45   75
BEE8 : 99 00 01 8A A2 03 0D 11   AC
BEF0 : E9 0A B0 FB 69 3A 99 03   5F
BEF8 : 30 34 30 37 00 00 00 00   35
BF00 : 00 41 42 43 44 45 46 47   B0
BF08 : 48 49 4A 4B 4C 4D 4E 4F   F8
BF10 : 50 51 52 53 54 55 56 57   00
BF18 : 58 59 5A 83 85 87 89 00   DF
BF20 : 20 21 8B 8A 24 25 26 27   57
BF28 : 28 29 2A 2B 2C 2D 2E 2F   18
BF30 : 30 31 32 33 34 35 36 37   20
BF38 : 38 39 3A 3B 3C 3D 3E 3F   28
BF40 : 40 61 62 63 64 65 66 67   10
BF48 : 68 69 6A 6B 6C 6D 6E 6F   38
BF50 : 70 71 72 73 74 75 76 77   40
BF58 : 78 79 7A 84 86 88 5E 5F   A1
BF60 : A0 00 00 00 00 00 00 00   01
BF68 : 00 00 00 00 00 00 00 00   69
BF70 : 00 00 00 00 00 00 00 00   71
BF78 : 00 00 00 00 27 00 23 2D   D2
BF80 : 01 FF 00 17 1B 1E 28 32   0C
BF88 : 3C 46 3C 46 20 C3 20 C8   F1
BF90 : 20 C5 20 20 20 C5 20 C9   E3
BF98 : 20 CE 20 C7 20 C1 20 C2   36
BFA0 : 20 C5 20 92 00 B9 A9 4E   0E
BFA8 : A0 00 20 28 BA 20 ED BF   39
BFB0 : 68 4A 90 0A A5 61 F0 06   D8
BFB8 : A5 66 49 FF 85 66 60 81   F3
BFC0 : 38 AA 3B 29 07 71 34 58   BF
BFC8 : 3E 56 74 16 7E B3 1B 77   F2
BFD0 : 2F EE E3 85 7A 1D 84 1C   FB
BFD8 : 2A 7C 63 59 58 0A 7E 75   FF
BFE0 : FD E7 C6 80 31 72 18 10   BA
BFE8 : 81 00 00 00 00 A9 BF A0   F7
BFF0 : BF 20 28 BA A5 70 69 50   45
BFF8 : 90 03 20 23 BC 4C 00 E0   66

Listing 2. Druckertreiber für MPS 802-Drucker.

PROGRAMM : NORMAL         BD00 C000
-----------------------------------
BD00 : 03 1B 35 67 F0 04 C9 2B   78
BD08 : D0 05 20 73 00 90 5B C9   57
BD10 : 2E 03 1B 34 45 D0 30 20   E9
BD18 : 73 00 90 17 C9 AB F0 0E   6C
BD20 : C9 2D 04 1B 2D 00 F0 08   8B
BD28 : C9 2B F0 04 D0 07 66 60   E3
BD30 : 20 73 00 04 1B 2D 01 10   CA
BD38 : 0E A9 00 38 E5 5E 4C 49   37
BD40 : BD 66 5F 24 04 1B 53 01   F5
BD48 : 5E 38 E5 5D 85 5E F0 12   1B
BD50 : 10 09 20 FE BA 04 1B 53   AC
BD58 : 00 F0 07 20 E2 BA C6 5E   72
BD60 : D0 F9 A5 67 30 01 03 1B   D0
BD68 : 54 BF 48 24 5F 10 02 E6   7F
BD70 : 5D 20 E2 BA 68 38 E9 01   DF
BD78 : 20 7E BD 4C 0A BD 48 20   C0
BD80 : 0C BC 68 20 3C BC A5 6E   26
BD88 : 01 66 85 6F A6 61 4C 6A   87
BD90 : B8 A5 5E C9 0A 90 09 A9   88
BD98 : 64 03 1B 46 11 4C 7E B9   EE
BDA0 : 0A 0A 18 65 5E 0A 18 A0   3A
BDA8 : 00 71 03 1B 45 30 85 5E   2E
BDB0 : 4C 30 BD 9B 3E BC 1F FD   39
BDB8 : 9E 6E 6B 05 1B 50 1B 45   34
BDC0 : 28 00 A9 71 A0 A3 20 DA   DE
BDC8 : BD A5 3A A6 03 1B 4D 86   07
BDD0 : 63 A2 90 38 20 49 BC 20   2F
BDD8 : DF BD 4C 1E AB 07 1B 50   6D
BDE0 : 0F 1B 51 89 02 A9 2D 99   58
BDE8 : FF 00 85 66 84 71 04 1B   30
BDF0 : 41 0C 61 D0 03 4C 04 BF   CC
BDF8 : A9 00 E0 80 F0 02 B0 04   D3
BE00 : 1B 33 2A BD 20 28 BA A9   79
BE08 : F7 85 5D A9 B8 A0 BD 20   16
BE10 : 01 BC F0 1E 10 12 A9 B3   0F
BE18 : A0 BD 20 5B BC F0 02 10   86
BE20 : 0E 03 1B 21 C6 5D D0 EE   13
BE28 : 20 FE BA E6 5D D0 DC 20   63
BE30 : 49 B8 01 9B BC A2 01 A5   B9
BE38 : 5D 18 69 0A 30 09 C9 0B   C6
BE40 : B0 06 69 01 AA A9 02 38   DE
BE48 : E9 02 85 5E 86 5D 8A F0   BF
BE50 : 02 10 13 A4 01 A9 2E C8   5B
BE58 : 99 FF 00 8A F0 06 A9 30   88
BE60 : C8 99 FF 00 84 01 A0 00   C8
BE68 : A2 80 A5 65 18 79 19 BF   92
BE70 : 85 65 A5 64 79 18 01 85   05
BE78 : 64 A5 63 79 17 BF 85 63   03
BE80 : A5 62 79 16 BF 85 62 01   2B
BE88 : B0 04 10 DE 30 02 30 DA   A4
BE90 : 8A 90 04 49 FF 69 0A 69   D3
BE98 : 01 C8 C8 C8 C8 84 47 A4   60
BEA0 : 71 C8 AA 29 7F 99 FF 00   0A
BEA8 : C6 01 D0 06 A9 2E C8 99   46
BEB0 : FF 00 84 71 A4 47 8A 49   40
BEB8 : FF 29 01 AA C0 24 F0 04   DA
BEC0 : C0 3C D0 A6 A4 71 B9 FF   64
BEC8 : 00 88 C9 01 F0 F8 C9 2E   F9
BED0 : F0 01 C8 A9 2B A6 5E F0   EB
BED8 : 2E 10 08 A9 05 1B 40 1B   A6
BEE0 : 38 1B 51 89 01 01 A9 45   75
BEE8 : 99 00 01 8A A2 03 0D 0A   9E
BEF0 : E9 0A B0 FB 69 3A 99 03   5F
BEF8 : 30 34 30 34 00 00 00 00   D5
BF00 : 00 61 62 63 64 65 66 67   90
BF08 : 68 69 6A 6B 6C 6D 6E 6F   F8
BF10 : 70 71 72 73 74 75 76 77   00
BF18 : 78 79 7A 7B 7C 7D 7E 00   09
BF20 : 20 21 22 40 24 25 26 27   B4
BF28 : 28 29 2A 2B 2C 2D 2E 2F   18
BF30 : 30 31 32 33 34 35 36 37   20
BF38 : 38 39 3A 3B 3C 3D 3E 3F   28
BF40 : 40 41 42 43 44 45 46 47   30
BF48 : 48 49 4A 4B 4C 4D 4E 4F   38
BF50 : 50 51 52 53 54 55 56 57   40
BF58 : 58 59 5A 5B 5C 5D 5E 5F   48
BF60 : 20 00 00 00 00 00 00 00   81
BF68 : 00 00 00 00 00 00 00 00   69
BF70 : 00 00 00 00 00 00 00 00   71
BF78 : 00 00 00 00 27 00 23 2D   D2
BF80 : 06 FF 00 0A 14 1E 28 32   FE
BF88 : 3C 46 3C 46 20 C3 20 C8   F1
BF90 : 20 C5 20 20 20 C5 20 C9   E3
BF98 : 20 CE 20 C7 20 C1 20 C2   36
BFA0 : 20 C5 20 92 00 B9 A9 4E   0E
BFA8 : A0 00 20 28 BA 20 ED BF   39
BFB0 : 68 4A 90 0A A5 61 F0 06   D8
BFB8 : A5 66 49 FF 85 66 60 81   F3
BFC0 : 38 AA 3B 29 07 71 34 58   BF
BFC8 : 3E 56 74 16 7E B3 1B 77   F2
BFD0 : 2F EE E3 85 7A 1D 84 1C   FB
BFD8 : 2A 7C 63 59 58 0A 7E 75   FF
BFE0 : FD E7 C6 80 31 72 18 10   BA
BFE8 : 81 00 00 00 00 A9 BF A0   F7
BFF0 : BF 20 28 BA A5 70 69 50   45
BFF8 : 90 03 20 23 BC 4C 00 E0   66

Listing 3. Druckertreiber für normale serielle Ausgabe (IEC und RS232).

PROGRAMM : CENTRONIC      BD00 C000
-----------------------------------
BD00 : 03 1B 35 67 F0 04 C9 2B   78
BD08 : D0 05 20 73 00 90 5B C9   57
BD10 : 2E 03 1B 34 45 D0 30 20   E9
BD18 : 73 00 90 17 C9 AB F0 0E   6C
BD20 : C9 2D 04 1B 2D 00 F0 08   8B
BD28 : C9 2B F0 04 D0 07 66 60   E3
BD30 : 20 73 00 04 1B 2D 01 10   CA
BD38 : 0E A9 00 38 E5 5E 4C 49   37
BD40 : BD 66 5F 24 04 1B 53 01   F5
BD48 : 5E 38 E5 5D 85 5E F0 12   1B
BD50 : 10 09 20 FE BA 04 1B 53   AC
BD58 : 00 F0 07 20 E2 BA C6 5E   72
BD60 : D0 F9 A5 67 30 01 03 1B   D0
BD68 : 54 BF 48 24 5F 10 02 E6   7F
BD70 : 5D 20 E2 BA 68 38 E9 01   DF
BD78 : 20 7E BD 4C 0A BD 48 20   C0
BD80 : 0C BC 68 20 3C BC A5 6E   26
BD88 : 01 66 85 6F A6 61 4C 6A   87
BD90 : B8 A5 5E C9 0A 90 09 A9   88
BD98 : 64 03 1B 46 11 4C 7E B9   EE
BDA0 : 0A 0A 18 65 5E 0A 18 A0   3A
BDA8 : 00 71 03 1B 45 30 85 5E   2E
BDB0 : 4C 30 BD 9B 3E BC 1F FD   39
BDB8 : 9E 6E 6B 05 1B 50 1B 45   34
BDC0 : 28 00 A9 71 A0 A3 20 DA   DE
BDC8 : BD A5 3A A6 03 1B 4D 86   07
BDD0 : 63 A2 90 38 20 49 BC 20   2F
BDD8 : DF BD 4C 1E AB 07 1B 50   6D
BDE0 : 0F 1B 51 89 02 A9 2D 99   58
BDE8 : FF 00 85 66 84 71 04 1B   30
BDF0 : 41 0C 61 D0 03 4C 04 BF   CC
BDF8 : A9 00 E0 80 F0 02 B0 04   D3
BE00 : 1B 33 2A BD 20 28 BA A9   79
BE08 : F7 85 5D A9 B8 A0 BD 20   16
BE10 : 01 BC F0 1E 10 12 A9 B3   0F
BE18 : A0 BD 20 5B BC F0 02 10   86
BE20 : 0E 03 1B 21 C6 5D D0 EE   13
BE28 : 20 FE BA E6 5D D0 DC 20   63
BE30 : 49 B8 01 9B BC A2 01 A5   B9
BE38 : 5D 18 69 0A 30 09 C9 0B   C6
BE40 : B0 06 69 01 AA A9 02 38   DE
BE48 : E9 02 85 5E 86 5D 8A F0   BF
BE50 : 02 10 13 A4 01 A9 2E C8   5B
BE58 : 99 FF 00 8A F0 06 A9 30   88
BE60 : C8 99 FF 00 84 01 A0 00   C8
BE68 : A2 80 A5 65 18 79 19 BF   92
BE70 : 85 65 A5 64 79 18 01 85   05
BE78 : 64 A5 63 79 17 BF 85 63   03
BE80 : A5 62 79 16 BF 85 62 01   2B
BE88 : B0 04 10 DE 30 02 30 DA   A4
BE90 : 8A 90 04 49 FF 69 0A 69   D3
BE98 : 01 C8 C8 C8 C8 84 47 A4   60
BEA0 : 71 C8 AA 29 7F 99 FF 00   0A
BEA8 : C6 01 D0 06 A9 2E C8 99   46
BEB0 : FF 00 84 71 A4 47 8A 49   40
BEB8 : FF 29 01 AA C0 24 F0 04   DA
BEC0 : C0 3C D0 A6 A4 71 B9 FF   64
BEC8 : 00 88 C9 01 F0 F8 C9 2E   F9
BED0 : F0 01 C8 A9 2B A6 5E F0   EB
BED8 : 2E 10 08 A9 06 00 1B 40   93
BEE0 : 1B 38 51 89 01 01 A9 45   E6
BEE8 : 99 00 01 8A A2 03 0D 0A   9E
BEF0 : E9 0A B0 FB 69 3A 99 03   5F
BEF8 : 30 34 30 30 00 00 00 00   55
BF00 : 00 61 62 63 64 65 66 67   90
BF08 : 68 69 6A 6B 6C 6D 6E 6F   F8
BF10 : 70 71 72 73 74 75 76 77   00
BF18 : 78 79 7A 7B 7C 7D 7E 00   09
BF20 : 20 21 22 40 24 25 26 27   B4
BF28 : 28 29 2A 2B 2C 2D 2E 2F   18
BF30 : 30 31 32 33 34 35 36 37   20
BF38 : 38 39 3A 3B 3C 3D 3E 3F   28
BF40 : 40 41 42 43 44 45 46 47   30
BF48 : 48 49 4A 4B 4C 4D 4E 4F   38
BF50 : 50 51 52 53 54 55 56 57   40
BF58 : 58 59 5A 5B 5C 5D 5E 5F   48
BF60 : 20 00 00 00 00 00 00 00   81
BF68 : 00 00 00 00 00 00 00 00   69
BF70 : 00 00 00 00 00 00 00 00   71
BF78 : 00 00 00 00 27 00 23 2D   D2
BF80 : 06 FF 00 0A 14 1E 28 32   FE
BF88 : 3C 46 3C 46 20 C3 20 C8   F1
BF90 : 20 C5 20 20 20 C5 20 C9   E3
BF98 : 20 CE 20 C7 20 C1 20 C2   36
BFA0 : 20 C5 20 92 00 B9 A9 4E   0E
BFA8 : A0 00 20 28 BA 20 ED BF   39
BFB0 : 68 4A 90 0A A5 61 F0 06   D8
BFB8 : A5 66 49 FF 85 66 60 81   F3
BFC0 : 38 AA 3B 29 07 71 34 58   BF
BFC8 : 3E 56 74 16 7E B3 1B 77   F2
BFD0 : 2F EE E3 85 7A 1D 84 1C   FB
BFD8 : 2A 7C 63 59 58 0A 7E 75   FF
BFE0 : FD E7 C6 80 31 72 18 10   BA
BFE8 : 81 00 00 00 00 A9 BF A0   F7
BFF0 : BF 20 28 BA A5 70 69 50   45
BFF8 : 90 03 20 23 BC 4C 00 E0   66

Listing 4. Druckertreiber für Drucker mit Centronics-Schnittstelle.

PROGRAMM : Z.E.T1         C000 C50C
-----------------------------------
C000 : 4C 31 C1 20 43 C2 4C 34   3D
C008 : C1 4C C4 C0 4C 81 C0 4C   A5
C010 : A5 C0 4C 2C C0 4C 24 C2   32
C018 : 4C 21 C0 4C 57 C2 4C 86   78
C020 : C2 A9 C0 8D 12 03 A9 55   23
C028 : 8D 11 03 60 A2 E0 A0 00   BE
C030 : 86 FE 84 FD A2 D0 86 FC   DB
C038 : 84 FB A9 33 78 85 01 B1   A6
C040 : FB 91 FD C8 D0 F9 E6 FC   0F
C048 : E6 FE E8 E0 E0 D0 F0 A9   AF
C050 : 37 85 01 58 60 A5 14 48   A9
C058 : A5 15 48 20 F7 B7 A5 01   74
C060 : 48 A5 15 C9 E0 90 03 A9   EB
C068 : 35 2C A9 33 78 85 01 A0   7D
C070 : 00 B1 14 A8 68 85 01 58   CA
C078 : 68 85 15 68 85 14 4C A2   65
C080 : B3 A2 E0 86 FC A0 00 84   6B
C088 : FB A9 35 78 85 01 B1 FB   D3
C090 : 48 A9 37 85 01 58 68 20   E0
C098 : D2 FF C8 D0 EC E6 FC E8   82
C0A0 : E0 F0 D0 E5 60 A2 01 20   48
C0A8 : C6 FF A2 E0 A0 00 86 FC   51
C0B0 : 84 FB 20 CF FF 91 FB C8   42
C0B8 : D0 F8 E6 FC E8 E0 F0 D0   58
C0C0 : F1 4C CC FF 20 24 C2 A2   7E
C0C8 : CC A0 C9 86 FC 84 FB A2   51
C0D0 : 00 A9 08 85 02 A0 08 BD   18
C0D8 : 3C 03 85 FD 46 FD B0 03   D4
C0E0 : A9 2E 2C A9 2A 91 FB 88   11
C0E8 : D0 F2 A5 FB 18 69 28 85   93
C0F0 : FB A5 FC 69 00 85 FC E8   1C
C0F8 : C6 02 D0 D9 60 A2 CC A0   BE
C100 : C9 86 FC 84 FB A9 08 85   14
C108 : 02 A2 00 A0 08 B1 FB C9   01
C110 : 2A F0 01 18 66 FD 88 D0   10
C118 : F4 A5 FB 18 69 28 85 FB   C7
C120 : A5 FC 69 00 85 FC A5 FD   70
C128 : 9D 3C 03 E8 C6 02 D0 DB   39
C130 : 60 20 24 C2 A9 80 8D 8A   EC
C138 : 02 A4 FD B1 FB 49 80 91   71
C140 : FB A9 00 85 C6 A5 C6 F0   57
C148 : FC A4 FD B1 FB 49 80 91   7B
C150 : FB A6 FE AD 77 02 C9 1D   FC
C158 : D0 08 C0 08 F0 04 E6 FD   24
C160 : D0 D7 C9 9D D0 08 C0 01   94
C168 : F0 04 C6 FD D0 CB C9 11   80
C170 : D0 15 E0 08 F0 11 E6 FE   35
C178 : A5 FB 18 69 28 85 FB A5   38
C180 : FC 69 00 85 FC D0 B2 C9   96
C188 : 91 D0 16 E0 01 F0 12 C6   90
C190 : FE A5 FB 38 E9 28 85 FB   55
C198 : A5 FC E9 00 85 FC 4C 39   1A
C1A0 : C1 C9 1D F0 04 C9 0D D0   10
C1A8 : 1A E0 08 F0 16 A0 01 84   C6
C1B0 : FD E6 FE A5 FB 18 69 28   0B
C1B8 : 85 FB A5 FC 69 00 85 FC   EA
C1C0 : 4C 39 C1 C9 9D D0 1A E0   DD
C1C8 : 01 F0 16 A0 08 84 FD C6   05
C1D0 : FE A5 FB 38 E9 28 85 FB   95
C1D8 : A5 FC E9 00 85 FC 4C 39   5A
C1E0 : C1 C9 13 D0 11 A9 CC 85   01
C1E8 : FC A9 C9 85 FB A2 01 86   C2
C1F0 : FD 86 FE 4C 39 C1 C9 93   69
C1F8 : D0 03 4C 31 C1 C9 2A D0   38
C200 : 07 91 FB A9 1D 4C 56 C1   15
C208 : C9 20 D0 09 A9 2E 91 FB   81
C210 : A9 1D 4C 56 C1 C9 85 F0   88
C218 : 03 4C 39 C1 A9 00 8D 8A   AE
C220 : 02 4C FD C0 A9 0B 8D 11   2B
C228 : D0 A2 C2 A0 AF 86 FC 84   3A
C230 : FB A0 00 B1 FB F0 0C 20   69
C238 : 16 E7 C8 D0 F6 A5 FB E6   E8
C240 : FC D0 F0 A9 CC 85 FC A9   56
C248 : C9 85 FB A2 01 86 FD 86   70
C250 : FE A9 1B 8D 11 D0 60 A2   FA
C258 : E0 A0 00 84 FB 86 FC A2   46
C260 : E8 84 FD 86 FE A9 35 78   DD
C268 : 85 01 B1 FB 48 B1 FD 91   87
C270 : FB 68 91 FD C8 D0 F3 E6   74
C278 : FE E6 FC E8 E0 F0 90 EA   F3
C280 : A9 37 85 01 58 60 A0 00   51
C288 : A2 E0 84 FB 86 FC A2 E8   E7
C290 : 84 FD 86 FE A9 35 78 85   C5
C298 : 01 B1 FB 91 FD C8 D0 F9   00
C2A0 : E6 FE E6 FC E8 E0 F0 D0   59
C2A8 : F0 A9 37 85 01 58 60 93   67
C2B0 : 12 B0 C0 C0 C0 C0 C0 C0   F9
C2B8 : C0 C0 C0 C0 C0 C0 C0 C0   B7
C2C0 : C0 C0 C0 C0 C0 C0 C0 C0   BF
C2C8 : C0 C0 C0 C0 C0 C0 C0 C0   C7
C2D0 : C0 C0 C0 C0 C0 C0 C0 C0   CF
C2D8 : AE A8 92 05 2B 20 2B 20   C0
C2E0 : 2B 20 DA 20 C5 20 C9 20   9B
C2E8 : C3 20 C8 20 C5 20 CE 20   CA
C2F0 : C5 20 C4 20 C9 20 D4 20   2C
C2F8 : CF 20 D2 20 2B 20 2B 20   31
C300 : 2B 20 98 12 A8 AD C0 C0   20
C308 : C0 C0 C0 C0 C0 C0 C0 C0   07
C310 : C0 C0 C0 C0 C0 C0 C0 C0   0F
C318 : C0 C0 C0 C0 C0 C0 C0 C0   17
C320 : C0 C0 C0 C0 C0 C0 C0 C0   1F
C328 : C0 C0 C0 C0 BD 0D 1D B0   AB
C330 : C0 C0 C0 C0 C0 C0 C0 C0   2F
C338 : AE 0D 1D A8 2E 2E 2E 2E   33
C340 : 2E 2E 2E 2E A8 1D 1D 1D   F9
C348 : 1D 1D 1D 1D 1D 1D 1D 1D   48
C350 : 1D 1D 1D 1D 1D B0 C0 AE   9F
C358 : 0D 1D A8 2E 2E 2E 2E 2E   4D
C360 : 2E 2E 2E A8 1D 1D 1D 1D   AF
C368 : 1D 1D 1D 1D 1D 1D 1D 1D   68
C370 : 1D 1D 1D 1D A8 20 A8 0D   4F
C378 : 1D A8 2E 2E 2E 2E 2E 2E   A4
C380 : 2E 2E A8 1D 1D 1D 1D 1D   FD
C388 : 1D 1D 1D 1D 1D 1D 1D 1D   88
C390 : 1D 1D 1D AD C0 BD 0D 1D   A1
C398 : A8 2E 2E 2E 2E 2E 2E 2E   12
C3A0 : 2E A8 0D 1D A8 2E 2E 2E   1A
C3A8 : 2E 2E 2E 2E 2E A8 1D 1D   16
C3B0 : 40 41 42 43 44 45 46 47   A0
C3B8 : 48 49 4A 4B 4C 4D 4E 4F   A8
C3C0 : 50 51 52 53 54 55 56 57   B0
C3C8 : 58 59 5A 1D A8 2E 2E 2E   18
C3D0 : 2E 2E 2E 2E 2E A8 1D 1D   3E
C3D8 : C0 C1 C2 C3 C4 C5 C6 C7   C7
C3E0 : C8 C9 CA CB CC CD CE CF   CF
C3E8 : D0 D1 D2 D3 D4 D5 D6 D7   D7
C3F0 : D8 D9 DA 1D A8 2E 2E 2E   20
C3F8 : 2E 2E 2E 2E 2E A8 1D 1D   66
C400 : 5B 5C 5D 5E DB DC DD A6   16
C408 : A8 A9 DF FF 30 31 32 33   38
C410 : 34 35 36 37 38 39 20 A0   62
C418 : 0D 1D A8 2E 2E 2E 2E 2E   0D
C420 : 2E 2E 2E A8 1D 1D AB B3   D7
C428 : B1 B2 A3 B7 B8 A2 B9 AF   F9
C430 : A4 B0 AE AC BB A5 B4 B5   95
C438 : A1 B6 AD BD BC BE BF AA   6D
C440 : A7 20 AD C0 C0 C0 C0 C0   11
C448 : C0 C0 C0 BD 1D 1D 2C 2E   18
C450 : 2F 3C 3D 3E 3F 2A 2B 2D   01
C458 : 21 22 23 24 25 26 27 28   48
C460 : 29 5F 0D 0D 20 12 46 31   2C
C468 : 92 20 45 44 49 54 49 45   CB
C470 : 52 45 4E 20 20 20 20 20   C0
C478 : 20 20 20 20 20 20 20 12   5C
C480 : 46 32 92 20 42 45 52 45   AA
C488 : 43 48 4E 45 4E 11 0D 20   0D
C490 : 12 46 33 92 20 28 D2 C1   F7
C498 : CD 29 20 DA 45 49 43 48   99
C4A0 : 45 4E 20 48 4F 4C 45 4E   27
C4A8 : 20 20 12 46 34 92 20 28   CE
C4B0 : D2 CF CD 29 11 0D 20 12   20
C4B8 : 46 35 92 20 CC 41 44 45   B4
C4C0 : 4E 20 20 20 20 20 20 20   EE
C4C8 : 20 20 20 20 20 20 20 20   C8
C4D0 : 20 12 46 36 92 20 D3 50   6C
C4D8 : 45 49 43 48 45 52 4E 11   DE
C4E0 : 0D 20 12 46 37 92 20 C7   63
C4E8 : DA 20 49 4E 20 CB DA 20   FB
C4F0 : 43 4F 50 59 20 20 20 20   DE
C4F8 : 20 20 20 20 12 46 38 92   8E
C500 : 20 CB DA 20 49 4E 20 C7   D8
C508 : DA 20 0D 00               64

Listing 5. Maschinenprogramm zum Zeichensatz-Editor. Bitte verwenden Sie den MSE zur Eingabe.

10 ifa=0thengosub10000
20 ifa=0thena=1:load"z.e.t1",8,1
30 ifa=4thenthen1510
40 poke53265,11:poke56576,peek(56576)and252:poke53272,56:poke648,204:sys49152+18
50 sys49152+24:sys49152+9:print"{swlc}";
1000 sys49152+3
1510 poke198,0:wait198,1:getx$:ifx$="{stop}"thensys49152+18:goto1510
1512 ifx$="{CTRL-G}"thenprintchr$(142);:goto1510
1514 ifx$="{CTRL-K}"thenprintchr$(14);:goto1510
1516 ifx$="{home}"thensys49152+27:goto1510
1520 wa=asc(x$)-133:ifwa<0orwa>7then1510
1530 ifwa=0goto1000
1540 onwagosub 2000,4000,7000,9000,3000,5000,8000
1550 sys49152+9:goto1510
2000 gosub20000
2010 fori=0to7:poke828+i,usr(tn+i):next
2020 return
3000 gosub20000
3010 fori=0to7:poke828+i,usr(tn-4096+i):next
3020 return
4000 gosub60000:print"{down}{rvon}   Z E I C H E N S A T Z   L A D E N    {rvof}"
4010 print"{down}{down}{down} Name des Zeichensatzes ('e' zurueck)"
4015 print"{rght}{rght}"dn$:print"{up}";
4020 inputdn$:ifdn$="e"thenreturn
4030 open1,8,0,dn$:open15,8,15:input#15,er,er$,tt,ss:ifer<>0then63000
4040 get#1,x$,x$:sys49152+15:close1:close15:return
5000 gosub60000:print"{down}{rvon} Z E I C H E N S A T Z   S P E I C H R N{rvof}"
5010 print"{down}{down}{down} Name des Zeichensatzes ('e' zurueck)
5015 print"{rght}{rght}"dn$:print"{up}";
5020 inputdn$:ifdn$="e"thenreturn
5030 open1,8,1,dn$:open15,8,15:input#15,er,er$,tt,ss:ifer=63thengoto62000
5040 ifer<>0then63000
5050 cmd1,chr$(0)chr$(112);:sys49152+12:close1:close15:return
7000 sys49152+30:return
8000 sys49152+27:sys49152+30:sys49152+27:return
9000 gosub20000
9010 fori=0to7:poketn+i,peek(828+i):poketr+i,255-peek(828+i):next:return
10000 poke53265,11:poke53281,0:poke53280,11:print"{clr}{swlc}{gry2}";
10010 print"{rvon}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}";
10020 print"{SHIFT--}{rvof}{wht}+ + + Z{$a0}E{$a0}I{$a0}C{$a0}H{$a0}E{$a0}N{$a0}E{$a0}D{$a0}I{$a0}T{$a0}O{$a0}R{$a0}+ + + {gry2}{rvon}{SHIFT--}";
10030 print"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{rvof}"
10040 print"{down}{blu}      B{$a0}I{$a0}T{$a0}T{$a0}E{$a0}{$a0}{$a0}W{$a0}A{$a0}R{$a0}T{$a0}E{$a0}N{$a0}. . ."
10050 print"{gry2}{down}{down}   {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}"
10055 print"   {SHIFT--} Copyright (c) 1986              {SHIFT--}
10060 print"   {SHIFT--}                                 {SHIFT--}
10065 print"   {SHIFT--}    {yel}Markt & Technik Verlag AG{gry2}    {SHIFT--}
10070 print"   {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
10075 print"   {SHIFT--}      1985 written by            {SHIFT--}"
10080 print"   {SHIFT--}                                 {SHIFT--}"
10085 print"   {SHIFT--}      *********************      {SHIFT--}"
10090 print"   {SHIFT--}      * {yel}Martin Pahl{gry2}       *      {SHIFT--}"
10100 print"   {SHIFT--}      * {yel}Entruper Weg 44{gry2}   *      {SHIFT--}"
10110 print"   {SHIFT--}      * {yel}4920 Lemgo{gry2}        *      {SHIFT--}"
10120 print"   {SHIFT--}      * {yel}Tel.: 05261/10431{gry2} *      {SHIFT--}"
10130 print"   {SHIFT--}      *********************      {SHIFT--}"
10140 print"   {SHIFT--}                                 {SHIFT--}"
10150 print"   {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
10160 poke53265,27
10170 return
20000 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}Welche Taste ? {rght}";:poke52492,160
20010 poke198,0:wait198,1:getx$:x=asc(x$):ifx<32or(x>128andx<160)then20010
20020 printx$;:ifpeek(52492)=160thenprint"{left}";:goto20010
20030 tn=57344+(peek(53272)and2)*1024+peek(52492)*8:tr=tn+1024
20040 print:return
60000 print"{clr}{rvon}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}";
60010 print"{CBM-POUND}{rvof}{wht}+ + + Z E I C H E N E D I T O R + + + {gry2}{rvon}{CBM-POUND}";
60020 print"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{rvof}"
60030 return
62000 gosub63000:print"{down}Datei scratchen ?":poke198,0:wait198,1
62010 getx$:ifx$="n"thenreturn
62020 ifx$="j"thenopen15,8,15,"s0:"+dn$:close15:goto5000
62030 goto62010
63000 print"{down}"er","er$","tt","ss:close1:close15:poke198,0:wait198,1:return

Listing 6. Steuerprogramm zum Zeichensatz-Editor. Bitte verwenden Sie den Checksummer zur Eingabe.