Oki MICROLINE 3410 Handbuch Seite 186

Nachfolgend ein Beispielprogramm:
10 REM 9-Nadel-Grafikdemo
20 :
30 DATA 0, 128, 1, 0, 2, 128, 5, 0, 10, 0, 20,
0, 40, 0, 80, 0, 160, 0, 64, 0, 128, 0
40 REM Musterdaten
50 :
60 RESTORE
70 WIDTH "lpt1.", 255
80 :
90 FOR I = 1 TO 22:
REM Grafikzeichenfolge generieren
100 READ A
110 AP$ = AP$ + CHR$(A)
120 NEXT I
130 :
140 FOR M = 0 TO 1:
REM einfache und doppelte Dichte
150 LPRINT CHR$(27); "^"; CHR$(M);CHR$(220);
CHR$(0);
155 FOR I = 1 TO 20
160 LPRINT AP$;
165 NEXT I
170 LPRINT CHR$(10);: REM Zeilenvorschub
180 NEXT M
190 END
Kapitel 12: EPSON-Emulation - Ladbare Zeichen und Grafiken
12-27