Oki MICROLINE 3410 Handbuch Seite 169

Kapitel 12: EPSON-Emulation - Ladbare Zeichen und Grafiken
12-10
50 LPRINT CHR$(128); CHR$(96); CHR$(17);
CHR$(0); CHR$(145); CHR$(110); CHR$(145);
CHR$(0); CHR$(17); CHR$(96); CHR$(128);:
REM Punktmuster für das 1. Zeichen senden
60 LPRINT CHR$(5);: REM Attribut-Byte für B
0 (Zeichen mit Unterlänge)
+ 0 (erste Druckspalte: 1)
+ 4 (letzte Druckspalte: 5)
70 LPRINT CHR$(170); CHR$(85); CHR$(170);
CHR$(85); CHR$(170); CHR$(0); CHR$(0);
CHR$(0); CHR$(0); CHR$(0); CHR$(0);:
REM Punktmuster
80 LPRINT CHR$(7);:
REM Attribut-Byte für C senden,
0 (Zeichen mit Unterlänge)
+ 0 (erste Druckspalte:1)
+ 7 (letzte Druckspalte:7)
90 LPRINT CHR$(124); CHR$(32); CHR$(16);
CHR$(40); CHR$(68); CHR$(2); CHR$(1);
CHR$(0); CHR$(0); CHR$(0); CHR$(0);:
REM Punktmuster für das 3. Zeichen senden
100 LPRINT "Und nun haben Sie die Zeichen A B C
in die Zeichen";
110 LPRINT CHR$(27); „%"; CHR$(1);:
REM DLL aktivieren
120 LPRINT "A B C";
130 LPRINT CHR$(27); "%"; CHR$(0);
140 LPRINT "geändert."
150 LPRINT CHR$(27); "p"; CHR$(1);
REM Proportionalschrift aktivieren
160 LPRINT "Und nun haben Sie die Zeichen A B C
in die Zeichen";
170 LPRINT "A B C";
180 LPRINT CHR$(27); "%"; CHR$(0);
190 LPRINT "in Proportionalschrift geändert."
200 LPRINT CHR$(27); "%"; CHR$(0);:
REM Residenten Zeichensatz aktivieren
Das Ergebnis sieht folgendermaßen aus:
Und nun haben Sie die Zeichen A B C in die Zeichen
Ψ κ geändert.
Und nun haben Sie die Zeichen A B C in die Zeichen
Ψ κ in Proportionalschrift geändert.
für das 2. Zeichen senden