Epson LX-80, Руководство по эксплуатации

Страница: 77 / 193

100 DIM F( 11)
110 FOR J
=
1 TO 9
1 20 PRINT "W HICH ROWS HAVE DOTS IN C O LUMN "; J
130 INPUT R : IF R
=
0 THEN 180
140 IF R
>
8 THEN PRINT " INVALID ": GO T O 1 3 0
150 F(J)
=
F(J )
+
2 ~ ( R-1)
160 IF F(J)
>
255 THEN F ( J)
=
255
170 GOTO 130
180 NEXT J
190 LPRINT CHR $( 27)
200 LPRINT C HR$ (2 7)
210 LPRINT CHR $ ( 27) "%"
220 LPRINT CHR $ (2 7) ;
"&"
230 LPRINT CHR$( 1 28) ;
240 FOR K
=
1 TO 11
250 LPflNT CHR $ ( F ( K »;
260 NEXT K
270 LPRINT "YOUR C H AR ACTER IN PICA I S:
< < < <"
280 LPRINT "A ND IN ENLAR G ED EMPHASIZED PICA : " ;
290 LPRINT CHR $ (27) ; " !*
< < < < "
300 LPRINT CHR$(2 7 )
"!"
+ C HR $(0) ; "YOUR DATA NUMBE RS
310 FOR K
=
1 T O 1 1
320 LPRINT "F(";K;")
= " ;
F ( K )
330 NEXT K
CHR$ ( 0)
CHR$ (0) CHR$ (0)
CHR$ ( l) ; CHR$(0)
C HR $( 0 ); "«";
To see how the pr o gr a m work s, look at the steps used to c reate the
Greek letter s i g m a. First i s the grid used to design the ch aracter .
If you are on l y int e rested in running the program to obt ai n the
numbers used to de s ign y our own characters , y ou can mo ve o n to
the next section. If you ar e a programmer and wish to und ers t and
the s t eps, t h e fo llowing bre a kdown of the program steps will b e of
use to you .
Li n e 1 00 sets up an array for the numbers corresponding to th e 11
columns of dots r e quir e d fo r a character .