Epson FX-80 Operation Manual page 128

ESC
%
1#$1 "i!W.i
"@@@@@"
CHR:f (27) ; "%"; CHRS
(1) ;
CHRS
<lZl) ;
"@@@@C~"
CHF:$ (27) ; "%"; CHRS
(0) ;
CHR$
(0) ;
"@@@@@"
LF'RINT
U~;'F<
I NT
LPHINT
LF'R
I I\lT
LPRHH
END
10 'Selects
Cha~acter
Set
(F~ance)
20 U:'HINT CHR$ (27) ; "R"; CHR::l:: (1) ;
3(ij
40 'Defines CG
patte~n
.
50 LF'R I NT CHFd; (27) ;
II
g~" ;
CHF:$ (0) ; CHR$ (64) ; CHR$ ( 64) ;
60 LPHINT CHRS(139);
70 LF'RINT CHRS(38);CHR$(9);CHR$(64);CHR$(9);
80 LPRINT CHRS(24l?);CHRS(9);CHR$(64);CHR$(9);
90 LF'RINT CHR$(38);CHR$(l?);CHRS(l?);
10Ci3
1 Hj
120
1
~S(iJ
140
150
160
( c!i
tl)
<.1)
c!i!5
aM~aa
<Explanation of the program>
In
lines 50 to 90, ~ is defined in the place of
a
(64)D of the France character code.
Then, in lines 120 and 140, the RAM and ROM character sets are selected.
(
3-77