Grafiken
programmieren
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
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 Dich-
te"; CHR$(13); CHR$(10); CHR$(10); : D = 8: GOTO
80
50
IF MODE = 2 THEN PRINT #1, "24 Pin doppelte Dich-
te"; CHR$(13); CHR$(10); CHR$(10); : D = 9: GOTO
80
60
IF MODE = 3 THEN PRINT #1, "24 Pin dreifache Dich-
te"; CHR$(13); CHR$(10); CHR$(10); : D = 11: GOTO
80