Epson FX-80 Operation Manual page 135

10 '
DOWNLOAD CHARACTER LESSON 2
20 'See if DIP SW1-4 is OFF.
30 'Defines the box lines
40 'Copies the original character patterns
50 into Download Character Set
6lt.l LPH I
~-lT
CHR:$:
(:0) ; " : " ;
CHFU: (0) ; CHR:;Ji:
(It)
; Cf·-IR~$:
(It.l) ;
70 'Selects Download Character Set
8lt.) LPR I NT CHFU: (27) ; "/." ;
CHR~~
( 1 ) ; C\-·IR:t (0) ;
90 'Selects ASCII 128 to 159 as printable code
100 LPRINT CHR$ (27) ; "6";
110 'Defines Character into ASCII 128 to 138
120 LPR I NT CHR$ (27) ; "~I,"
;
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 LPRINT CHR$(Q});CHR$(Q});CHR$(Q});CHR$(Q});CHR$(15);
180 LPRINT CHR$(Q});
19Q} LPRINT CHR$(B);CHR$(Q});CHR$(B);CHR$(Q});CHR$(B);
200 'Sends pattern for ASCII 129
210 ' 139 is an Attribute a
22Q} LPRINT CHR$(139);
230 LPRINT CHR$(B);CHR$(0);CHR$(8);CHR$(0);CHR$(15);
240 LPRINT CHR$(Q});
250 LPRINT CHR$(Q});CHR$(0);CHR$(Q});CHR$(Q});CHR$(Q});
260 'Sends pattern for ASCII 130
27Q} '139 is an Attribute a
28Q} LPRINT CHR$(139);
290 LPRINT CHR$(0);CHR$(0);CHR$(Q});CHR$(Q});CHR$(255);
30Q} LPRINT CHR$(0);
31Q} LPRINT CHR$(8);CHR$(0);CHR$(8);CHR$(Q});CHR$(8);
~20 'Sends pattern for ASCII 131
33Q} , 139 is an Attribute a
340 LPRINT CHR$(139);
350 LPRINT CHR$(8);CHR$(0);CHR$(8);CHR$(0);CHR$(255);
360 LPRINT CHR$(0);
370 LPRINT CHR$(0);CHR$(Q});CHR$(Q});CHR$(Q});CHR$(0);
380 'Sends pattern for ASCII 132
390 '139 is an Attribute a
400 LPRINT CHR$(139);
410 LPRINT CHR$(B);CHR$(Q});CHR$(8);CHR$(Q});CHR$(15);
420 LPRINT CHR$(0);
430 LPRINT CHR$(8);CHR$(0);CHR$(8);CHR$(0);CHR$(B);
440 'S~nds pattern for ASCII 133
450 '139 is an Attribute a
460 LPRINT CHR$(139);
471t)
LPFUNTtHF<:t
(QI)
;CHR::t (Q}) ; CHFU: (Q}) ;
CHR~:j::
(Q}) ; CI··II:\:$:
C;':~4·8)
;
480 LPRINT CHR$(0);
490 LPRINT CHR$(8);CHR$(Q});CHR$(B);CHR$(0);CHR$(8);
500 'Sends pattern for ASCII 134
3-84
·1