Oki Microline 320 Elite Handbuch Seite 184

Kapitel 12: EPSON-Emulation - Ladbare Zeichen und Grafiken
Grafikbefehl neu
zuordnen
12-24
Dazu ein Beispielprogramm:
10 REM Demonstration unterschiedlicher Dichten
20 :
30 DATA 128, 64, 32, 144, 72, 36, 18, 9, 4, 2,
1, 0, 0, 0, 0 : REM Musterdaten
40 :
50 WIDTH "lpt1:",255
60 RESTORE
70 AP$ = ""
80 :
90 FOR N = 1 TO 15
100 READ P
110 AP$= AP$ + CHR$(P):
REM Grafikzeichenfolge erstellen
120 NEXT N
130 :
140 FOR P = 0 TO 7:
REM Grafikauflösung 0 bis 7
150 LPRINT "Dies ist die Auflösung:";P; "
160 LPRINT CHR$(27); "*"; CHR$(P); CHR$(150);
CHR$(0); : REM StartGrafiken
170 FOR N = 1 TO 10
180 LPRINT AP$;:REM Daten senden
190 NEXT N
200 LPRINT CHR$(10);CHR$(10);:
REM Zeilenvorschub senden
210 NEXT P
220 END
Funktion
Grafikbefehl neu
zuordnen
Mit diesem Befehl können den Grafikbefehlen ESC K, L, Y und Z
eine andere Auflösung zugewiesen werden. Dabei entspricht dem
Parameter m einer der Buchstaben K, L, Y oder Z, der Parameter p
hat die gleiche Bedeutung wie im vorangegangen Befehl
ESC * p n n .
1 2
Soll beispielsweise mit dem Befehl ESC K Plottergrafik einfacher
Dichte aktiviert werden, müssen Sie folgenden Befehl in BASIC ein-
geben: CHR$(27); "?K"; CHR$(5);
Dez. Hex.
27 63 m p 1B 3F m p
";
ASCII
ESC ? m p