Oki microline 4410 Handbuch Seite 205

Wählen Sie nun Grafiken doppelter Dichte und normaler Druckge-
schwindigkeit:
30 LPRINT CHR$(27); CHR$(89); CHR$(11);
CHR$(0); CHR$(1); CHR$(2); CHR$(4); CHR$(9);
CHR$(18); CHR$(36); CHR$(72); CHR$(144);
CHR$(32); CHR$(64); CHR$(128)
Abgesehen von der Druckgeschwindigkeit dürfte es bei diesem
Muster keine Unterschiede geben, da hier keine Punkte in benach-
barten Spalten gesetzt sind. Wäre das der Fall, würden derartige
Punkte ignoriert.
Zum Schluß soll mit vierfacher Dichte gedruckt werden:
40 LPRINT CHR$(27); CHR$(90); CHR$(11);
CHR$(0); CHR$(1); CHR$(2); CHR$(4); CHR$(9);
CHR$(18); CHR$(36); CHR$(72); CHR$(144);
CHR$(32); CHR$(64); CHR$(128)
Hier ist der Winkel noch steiler, und die beiden Linien sind zu einer
Linie verschmolzen, da die einzelnen Punkte noch stärker überlappen.
Die maximale Zeilenlänge in BASIC beträgt normalerweise 80 Zei-
chen. Der »WIDTH«-Befehl in Zeile 06 setzt diese Beschränkung
außer Kraft. Nachfolgend ein weiteres Beispielprogramm, das mit
Hilfe einer FOR-NEXT-Schleife sämtliche möglichen Kombinatio-
nen aus Punkten und Zwischenräumen in numerischer Reihenfol-
ge druckt:
05 REM Beispiel 2
06 WIDTH "LPT1:", 255
10 NDOTS = 256
20 REM MAXIMALE ANZAHL MÖGLICHER KOMBINATIONEN
30 LPRINT CHR$(27); CHR$(75);
CHR$(NDOTS MOD 256); CHR$(FIX(NDOTS/256));
40 REM 256 SPALTEN GRAFIKEN
50 FOR X = 0 TO NDOTS - 1
60 LPRINT CHR$(X);
70 NEXT X
80 LPRINT: REM ZEILENVORSCHUB
Die Länge einer Grafikzeile kann durch Änderung des Wertes von
NDOTS variiert werden.
Kapitel 15: Epson - Ladbare Zeichen und punktadressierbare Grafiken
15-21