Oki Microline 591Elite Handbuch Seite 167

Beispiel:
10 REM 24-Nadelgrafik Demoprogramm IBM Proprinter X(L) 24
20 OPEN "lpt1:bin" FOR OUTPUT AS #1: WIDTH "lpt1:", 255: REM
Ausgabe vorbereiten
30 FOR MODE = 1 TO 4
40 IF MODE = 1 THEN PRINT #1, "24 Pin einfache Dichte";
CHR$(13); CHR$(10); CHR$(10); : D = 8: GOTO 80
50 IF MODE = 2 THEN PRINT #1, "24 Pin doppelte Dichte";
CHR$(13); CHR$(10); CHR$(10); : D = 9: GOTO 80
60 IF MODE = 3 THEN PRINT #1, "24 Pin dreifache Dichte";
CHR$(13); CHR$(10); CHR$(10); : D = 11: GOTO 80
70 IF MODE = 4 THEN PRINT #1, "24 Pin sechs-fache 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 defi-
nierte 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 wiederholen
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äch-
stes 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 11: IBM - Grafiken und ladbare Zeichen
Bei Eingabe des Programms
können mit REM beginnende
Zeilen entfallen und die
DATA-Anweisungen in
längeren Zeilen zusammenge-
faßt werden.
11-7