Epson LX-80, Operating Manual

Page: 84 / 193

If you look at each column individually , you can see how the d ata
numb e r s w e re calculated.
NLQ definition program
Now t y p e in a nd run the following program . It has the data numb ers
f or th e a rr ow design. For a character of your own, chang e th e data
numb e r s in lines 250 -270 or you can add up to six character s with
m o r e d a t a s tatements as in the previous program. Again y ou m ust
put a ll yo ur data before statement in line 280.
1 00 L PR INT CHR$(27) ; "x" CHR$(1)
1 10 LP RINT CHR$(27) , "." CHR$(0) CHR$(0)
1 20 LPRINT CHR$( 27) , "%" CHR$( 1) CHR$(0)
1 30 REA D A$
14 0 IF A $ : :: "XX" THEN END
15 0 LPRINT CHR$(27) ,
"&" ,
CHR$(0); A$; A$ ;
1 5 5 LPRINT CHR$(0) , CHR$(12); CHR$(0);
1 60 F O R K : :: 1 TO 36
1 70 READ F LPRINT CHR$(F);
1 80 NE X T K
1 90 R EM D I S PLAY CHARACTERS
200 L PR INT CHR$(27) ;
"%" ;
CHR$(0) CHR$(0)
210 L P R I NT A$ ," becomes ,
220 LPR INT C HR$(27) ;
"%" ,
CHR$(l) CHR$(0)
230 LPR INT A$
2 4 0 GOTO 1 30
250 D ATA "( " . 4.O,O , 8 , O , O.16,O,O,32,O,O
260 D ATA 6 4, 0 , 0,255,255 , 192,64 , 0 , 0,32 , 0,0
270 D A T A 16 , O , O,8 , O , 0 , 4,O,O , O,O,O
280 DA T A " X X"
Wh e n yo u run this program for your own character , you fin d out
w h e th e r or not it looks right to you. If it doesn ' t , move th e d ots as
n ee d ed, r e c a lculate and change the data numbers , and run th e prog -
r a m aga m .