Oki Microline 390 FB Handbuch Seite 162

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ück-
setzen
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
Roman 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 An-
wahl DLL
250 PRINT #1, CHR$(10); CHR$(13);
260 PRINT #1, "Download selected:";
280 PRINT #1, "@@@@@";