Oki MICROLINE 380 Handbuch Seite 96

90 REM CHR$(D) ist die in den Zeilen 40, 50, 60
& 70 definierte Dichte
100 REM CHR$(96) und CHR$(3) nennen die Anzahl
Grafikdaten: 6*48*3 = 864 = 96 + (3*256)
110 FOR I = 1 TO 6: REM Dreieckmuster 6mal wie-
derholen
120 FOR J = 1 TO 48: REM Dreieck besteht aus 48
Spalten
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
Das Programm gibt 4 Zeilen von jeweils 6 Dreiecken in den ver-
schiedenen Grafikdichten an den Drucker aus.
Kapitel 8: IBM-Emulation - Grafiken und ladbare Zeichen
8-7