Epson FX-80 Operation Manual page 139

<Explanation of the program>
In this program, a box pattern with descender is defined in the place of "A" and a
box pattern without descender is defined in the place of
"@".
Line No.
10-70
80-90
140, 200
liiUiamfl
Refer to LESSON
1.
Start of character-defining statements.
Since the MSB of the attribute determines whether or not the
descender exists, both "1" and "0" are defined. If the MSB of the
attribute is "0", the descender exists and the defined pattern will be
shifted down one dot and printed.
10 'Download Chraracter LESSON 3
20 'See if DIP SWl-4 is OFF.
30 'Defines a box
40 'Copies original character patterns into Download set
~iO
LPHINT CHRt (27) ; ": "; CHI::;:$ (0) ; CHH:$: (0) ;
CI"IF~::~:
(0) ;
60 'Selects Download character set
70 LPHINT CHFU: (27) ; "'i.";
CI-·m~t
(1) ;
CHR:$:
(0) ;
80 'Defines a box pattern
90 LPRINT cl..
m~~;.
(27) ; "8,,"; CHR:t
( I ) ;
100 'Defines two boxes into
@
and
A
110
LPR I
NT
"C~A";
120 'Sends a box pattern
130 '139 has no DESCENDER Attributes
140 LPRINT CHR$(139);
150 LPRINT CHR$(255);CHR$(O);CHR$(129);CHR$(0);CHR$(129);
160 LPRINT CHR$(O);
170 LPRINT CHR$(129);CHR$(0);CHR$(129);CHR$(0);CHR$(255);
180 'Sends a box pattern
190 '11 has a DESCENDER Attribute
200 LPRINT CHR$(11);
210 LPRINT CHR$(255);CHR$(0);CHR$(129);CHR$(O);CHR$(129);
220 LPRINT CHR$(O);
230 LPRINT CHR$(129);CHR$(0);CHR$(129);CHR$(O);CHR$(255);
240 'Ok. Let's draw the box.
250
LPRINT "This is a
bm: _
>
C<j!"
~,260
LPRINT "These are bo:·:es
>
(~A@A@'I
270
LPr·\:INT"
T~o,Jo
0'[
t.hem do havE"
DE~:;CENDEr.;:s.
II
280
END
This is a box.
---> 0
Thf'':SI7,?
-'3.t-e
bCJ:':
es ...... __.. :>
D::TtfJ
Two of them do have DESCENDERs.
3-88