Werbung
Kapitel 12: EPSON-Emulation - Grafiken und ladbare Zeichen
12-16
Das folgende Programm holt den standardmäßigen Zeichensatz in
das RAM des Druckers, lädt ein Beispielzeichen (einen Pfeil) an die
Position des Zeichens "@" und druckt das Zeichen.
10
REM Ladbare Zeichen
20
OPEN "lpt1:" AS #1: WIDTH "LPT1:",255:
30
PRINT #1, CHR$(27); "@";: REM Drucker rückset-
zen
40
PRINT #1, CHR$(27); "x1";: REM Briefqualität
wählen
50
PRINT #1, CHR$(27); ":"; CHR$(0); CHR$(0);
CHR$(0);: Standardzeichensatz in Schrift Ro-
man in DLL laden
60
PRINT #1, CHR$(27); "&"; CHR$(0);: REM DLL-
Eröffnungsbefehl
70
PRINT #1, "@@";: REM Start- und Endadresse
80
PRINT #1, CHR$(4); CHR$(27); CHR$(5);: REM
Attributbytes d0 d1 d2
90
FOR T = 1 TO 27: REM DLL-Daten einlesen
100
READ A, B, C:
110
PRINT #1, CHR$(A);CHR$(B);CHR$(C);: REM DLL-
Daten zu Drucker schicken
130
NEXT T
140
DATA 0, 124, 0, 0, 130, 0, 0, 0, 0, 0, 130, 0
150
DATA 0, 0, 0, 0, 130, 0, 0, 0, 0, 0, 130, 0
160
DATA 0, 0, 0, 0, 130, 0, 0, 0, 0, 0, 130, 0
170
DATA 0, 0, 0, 0, 130, 0, 0, 0, 0, 63, 131,
248, 64, 0, 4
180
DATA 32, 0, 8, 16, 0, 16, 8, 0, 32, 4, 0, 64,
2, 0, 128
190
DATA 1, 1, 0, 0, 130, 0, 0, 68, 0, 0, 40, 0,
0, 16, 0
230
PRINT #1, "Download not selected: @@@@@";
240
PRINT #1, CHR$(27); "%"; CHR$(1);: REM Anwahl
DLL
250
PRINT #1, CHR$(10); CHR$(13);
260
PRINT #1, "Download selected:";
280
PRINT #1, "@@@@@";
Werbung
