Oki microline 3390 Handbuch Seite 242

Bei Eingabe des Programms
können mit REM beginnende
Zeilen entfallen und die
DATA-Anweisungen in
längeren Zeilen zusammenge-
fasst werden.
WIDTH "LPT1:",255
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 Dich-
te"; CHR$(13); CHR$(10); : M = 32: GOTO 90
50 IF MODE = 2 THEN PRINT #1, "24 Pin doppelte Dich-
te"; 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 Dich-
te"; 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) nennen die Anzahl Grafik-
daten: 6 x 48 = 288 = 32 + (1 x 256)
120 FOR I = 1 TO 6: REM Dreieckmuster sechsmal wieder-
holen
130 FOR J = 1 TO 48: REM Dreieck besteht aus 48 Spal-
ten
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 Grafikdichte
200 NEXT MODE