Oki microline 3390 Handbuch Seite 165

70 IF MODE = 4 THEN PRINT #1, "24 Pin sechsfache
Dichte"; CHR$(13); CHR$(10); CHR$(10); : D = 12
80 PRINT #1, CHR$(27); "[g"; CHR$(96); CHR$(3);
CHR$(D);
90 REM CHR$(D) ist die in den Zeilen 32, 33, 34, 35 &
40 definierte Dichte
100 REM CHR$(96) und CHR$(3) nennen die Anzahl Grafik-
daten: 6*48*3 = 864 = 96 + (3*256)
110 FOR I = 1 TO 6: REM Dreieckmuster 6 mal wiederho-
len
120 FOR J = 1 TO 48: REM Dreieck besteht aus 48 Spal-
ten
130 READ A, B, C: REM 3 Bytes für jede Spalte
140 PRINT #1, CHR$(A); CHR$(B); CHR$(C); : REM An
Drucker senden
150 NEXT J
160 RESTORE
170 NEXT I: PRINT #1, CHR$(13); CHR$(10); CHR$(10); :
REM Nächstes Dreieck
180 NEXT MODE
190 DATA 0, 0, 1, 0, 0, 3, 0, 0, 7, 0, 0, 15
200 DATA 0, 0, 31, 0, 0, 63, 0, 0, 127, 0, 0, 255
210 DATA 0, 1, 255, 0, 3, 255, 0, 7, 255, 0, 15, 255
220 DATA 0, 31, 255, 0, 63, 255, 0, 127, 255, 0, 255,
255
230 DATA 1, 255, 255, 3, 255, 255, 7, 255, 255, 15,
255, 255
240 DATA 31, 255, 255, 63, 255, 255, 127, 255, 255,
255, 255, 255
250 DATA 255, 255, 255, 127, 255, 255, 63, 255, 255,
31, 255, 255
260 DATA 15, 255, 255, 7, 255, 255, 3, 255, 255, 1,
255, 255
270 DATA 0, 255, 255, 0, 127, 255, 0, 63, 255, 0, 31,
255
280 DATA 0, 15, 255, 0, 7, 255, 0, 3, 255, 0, 1, 255
290 DATA 0, 0, 255, 0, 0, 127, 0, 0, 63, 0, 0, 31
300 DATA 0, 0, 15, 0, 0, 7, 0, 0, 3, 0, 0, 1
310 END