Oki MICROLINE 3320 Handbuch Seite 251

p Grafikauflösung
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
Punkte/Zoll
";