Epson FX-BO Operation Manual page 92

-
-
-
-
. ­
-
ESC &
10 DOWNLOAD CHARACTER LESSON 2
20 See if DIP SW 1-4 is OFF.
30 Defines the box lines
40 ' Copies the original character patterns
50 into Download Character Set
60 LPRINT CHR$ (27) ; ,.: "; CHR$ (0) ; CHR$ (0) ; CHR$
(12)) ;
70 ' Selects Download Character set
8(2) LPRINT CHR$(27);"'%.";CHR$(1);CHR$(Q);
90 ' Selects ASCII 128 to 159 as printable code
100 LPRINT CHR$ (27) : "6":
lU2) ,
Defines Char-acter' into ASCII 128 t.o 138
120 L.PR I NT CHR$ (27) ; ,.
~~,.
; CHR$ (0) ;
130 LPRINT CHR$(128);CHR$(138);
140 ' Sends pattern for ASCII 128
150 ' 139 is an Attribute a
160 LPRINT CHR$(139);
170 L.PRINT CHR$(0);CHR$(0);CHR$(0);CHR$(0);CHR$(15);
180 LPRINT CHR$(0);
190 LPRINT CHR$(8);CHR$(0};CHR$(8);CHR$(0);CHR$(8);
200 ' Sends pattern for ASCII 129
210 ' 139 is an Attribute a
22(2) LPRINT CHR$(139);
230 LPRINT CHR$(8);CHR$(0);CHR$(S);CHR$(0);CHR$(15);
240 LPRINT CHR$«(2);
250 L.PRINT CHR$(0);CHR$(0);CHR$(0);CHR$(0);CHR$(0);
260 ' Sends pattern for ASCII 130
270 '139 is an Attribute a
28(2) L.PRINT CHR$(139);
290 LPRINT CHR$(0);CHR$(0);CHR$(0);CHR$(0);CHR$(255);
300 L.PRINT CHR$(0);
310 LPRINT CHR$(8);CHR$(0);CHR$(S);CHR$(0);CHR$(8);
320 'sends pattern for ASCII 131
330 '139 is an Attribute a
340 L.PRINT CHR$(139);
350 LPRINT CHR$(8);CHR$(0);CHR$(S):CHR$(0);CHR$(255);
360 L.PRINT· CHR$(0);
370 LPRINT CHR$(0);CHR$(0);CHR$«(2);CHR$(0);CHR$(0);
380 'sends pattern for ASCII 132
390 '139 is an Attribute a
400 LPRINT CHR$(139);
410 LPRINT CHR$(8);CHR$(0);CHR$(8);CHR$«(2):CHR$(15);
420 LPRINT
CHR$(0)~
. . . .
430 LPRINT CHR$(8);CHR$(0);CHR$(8);CHR$(0);CHR$(8);
440 'Sends pattern for ASCII 133
450 '139 is an Attribute a
460 LPRINT CHR$(139);
470 LPRINT CHR$(0);CHRS«(2);CHR$(0);CHR$«(2);CHR$(248);
480 LPRINT CHR$(Q);
490 LPRINT CHR$(8);CHR$(0);CHR$(S);CHR$(0);CHR$(S);
500 'Sends pattern fer ASCII 134
3-43