Oki Microline 591Elite Handbuch Seite 242

Kapitel 15: Epson - 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.
15-6
Für parallele Drucker:
WIDTH "LPT1:",255
Für serielle Drucker, die als #1 geöffnet worden sind:
WIDTH #1,255
10 REM 24-Nadelgrafik
20 OPEN "lpt1:bin" FOR OUTPUT AS #1: WIDTH "lpt1:", 255:
REM
Ausgabe vorbereiten
30 FOR MODE = 1 TO 5
40 IF MODE = 1 THEN PRINT #1, "24 Pin einfache Dichte";
CHR$(13); CHR$(10); : M = 32: GOTO 90
50 IF MODE = 2 THEN PRINT #1, "24 Pin doppelte Dichte";
CHR$(13); CHR$(10); CHR$(10); : M = 33: GOTO 90
60 IF MODE = 3 THEN PRINT #1, "24 Pin Dichte CRT 3"; CHR$(13);
CHR$(10); CHR$(10); : M = 38: GOTO 90
70 IF MODE = 4 THEN PRINT #1, "24 Pin dreifache Dichte";
CHR$(13); CHR$(10); CHR$(10); : M = 39: GOTO 90
80 IF MODE = 5 THEN PRINT #1, "24 Pin sechsfache Dichte";
CHR$(13); CHR$(10); CHR$(10); : M = 40
90 PRINT #1, CHR$(27); "*"; CHR$(M); CHR$(32); CHR$(1);
100 REM CHR$(M) ist die in den Zeilen 40, 50, 60, 70 & 40
definierte Dichte m
110 REM CHR$(32) und CHR$(1) nennt die Anzahl Grafikdaten: 6 x 48
= 288 = 32 + (1 x 256)
120 FOR I = 1 TO 6: REM Dreieckmuster sechsmal wiederholen
130 FOR J = 1 TO 48: REM Dreieck besteht aus 48 Spalten
140 READ A, B, C: REM 3 Bytes für jede Spalte
150 PRINT #1, CHR$(A); CHR$(B); CHR$(C); : REM An Drucker senden
160 NEXT J : REM Nächstes Dreieck
170 RESTORE
180 NEXT I
190 PRINT #1, CHR$(13); CHR$(10); CHR$(10); : REM Nächste Grafik-
dichte
200 NEXT MODE
210 DATA 0, 0, 1, 0, 0, 3, 0, 0, 7, 0, 0, 15
220 DATA 0, 0, 31, 0, 0, 63, 0, 0, 127, 0, 0, 255
230 DATA 0, 1, 255, 0, 3, 255, 0, 7, 255, 0, 15, 255
240 DATA 0, 31, 255, 0, 63, 255, 0, 127, 255, 0, 255, 255
250 DATA 1, 255, 255, 3, 255, 255, 7, 255, 255, 15, 255, 255
260 DATA 31, 255, 255, 63, 255, 255, 127, 255, 255, 255, 255, 255
270 DATA 255, 255, 255, 127, 255, 255, 63, 255, 255, 31, 255, 255
280 DATA 15, 255, 255, 7, 255, 255, 3, 255, 255, 1, 255, 255
290 DATA 0, 255, 255, 0, 127, 255, 0, 63, 255, 0, 31, 255
300 DATA 0, 15, 255, 0, 7, 255, 0, 3, 255, 0, 1, 255
310 DATA 0, 0, 255, 0, 0, 127, 0, 0, 63, 0, 0, 31
320 DATA 0, 0, 15, 0, 0, 7, 0, 0, 3, 0, 0, 1
320 END