Epson FX-80 Operation Manual page 133

<Explanation of the program>
This program defines a box pattern into character
@.
The result is that when
@
is
input, the box pattern will be printed.
·1
Line No.
60-80
90-100
120-130
150
170
180-210
'iF"'''IA
The fonts in the ROM are copied into the RAM area.
The character pattern is brought from the RAM when it is to be
printed.
Input the character defining command.
Defines the character into
@.
(Line
150
could also be LPRINT
CHR$(64);CHR$(64).)
(139)D
is an "attribute".
Definition of the box pattern.
10 'Download Character LESSON 1
20 'See if DIP SWI-4 is OFF.
3t)
40 'Defines a box
50
60 'Copy the original charcte~ patterns
70 'into Download Character Set
80 LPR I NT CHR:f. (27) ; " : " ; CHR$
«(I) ;
CHR:$:
«(I) ;
CHR$
«(I) ;
90 'Selects Download character set
100 LPR I NT CHR$ (27) ;
"t." ;
CHR:f. ( 1 ) ; CHR$ (0) ;
110
120 'Defines a box pattern
130 LF'RINT CHR$ (27) ;
"~I.";
CHR$ (0) ;
140 'Defines a box into
@
code
150 LPRINT
"@@";
160 '139 is the Attribute a
170 LPRINT CHR$(139);
180 'Sends a box pattern
190 LPRINT CHR$(255);CHR$(0);CHR$(129);CHR$(0);
I
2(10 LPRINT CHR$(129);CHR$(0);CHR$(129);CHR$(0);
210 LPRINT CHR$(129);CHR$(0);CHR$(255);
22(1 'Ok. Let's use the box.
230 LPRINT "This is a bo:·:.--·-·-->
@"
240 LPRINT "These are boxes. ---->
@@@@@"
250 END
This is a box.----->
0
These are boxes.--->
[IIJ.]]
3-82