Oki MICROLINE 3410 Handbuch Seite 183

Kapitel 12: EPSON-Emulation - Ladbare Zeichen und Grafiken
12-24
Die Programmierung der punktadressierbaren Grafiken mit diesem
Befehl ist mit den weiter oben genannten Befehlen identisch. Dar-
überhinaus erlaubt dieser Befehl vier zusätzliche Grafikauflösun-
gen. So eignet sich die Auflösung 4 insbesondere zum Ausdruck
von Bildschirmgrafiken.
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
";