Inhaltsverzeichnis
Werbung
Kapitel 12: EPSON-Emulation - Grafiken und ladbare Zeichen
Bei Eingabe des Programms können
mit REM beginnende Zeilen entfallen
und die DATA-Anweisungen in
längeren Zeilen zusammengefaßt
werden.
12-6
Für parallele Drucker:
WIDTH "LPT1:",255
Für Drucker mit serieller Schnittstelle, die als #1 geöffnet worden
sind:
WIDTH #1,255
10
REM 24-Nadel-Grafik
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); 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 sechsfa-
che 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
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
Werbung
Inhaltsverzeichnis
Fehlerbehebung
