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

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

After plotting all the dots as in Figure 9-4, calculate the numb e r s f or
ea ch pin p atte rn by dividing the design grid into separate print lin es.
For th e ar r ow design the grid was divided into three lin es, each
seve n do t s h ig h . Then each column was examined and th e s um s of
t h e pin va lu es d e termined . This process for the first line is s ho w n in
Fig ur e 9 - 5. T he pin values are on the left side and the sum s are at
t h e bo t to m of each column.
If yo u h ave re ad the pr e vious chapter you will see that d esig n ing
grap hi cs i s much like designing user-defined characters.
I•
I
I
• I I I I~
I •
1 . 11 ~
• 1
• 1 I I I I I I I •
8 10 8 8 8 8 8 8 4 2 1 0 (} 0 0 0 0 0 0 0 23 4 1 0 0
4100000000000000000082000
The nu mbers f o r the second a nd third lines were calculat e d i n the
same m a n ne r . Once the numbers for the pin patterns are cal c ul ated,
they go i n DATA statements , separated by commas.
First we' ll give you the whole program and its printout ; th e n we'll
explai n two te chniques we have not used b e fore:
9 0 WIDTH LPRINT 255
100 LPRINT CHR$(27)"1"
590 FOR K=l TO 3
600 LPRINT CHR$(27)"Y"CHR$(50)CHR$(0);
610 READ N: IF N=128 THEN 650
620 IF N > =0 THEN LPRINT CHR$(N); : GOTO 610
6 3 0 READ P, R: FOR J=l TO -N
6 32 LPRINT CHR$(P)CHR$(R);: NEXT J
640 GOTO 610
650 LPRINT: NEXT K: LPRINT CHR$(27)"@": END
800 DATA 8,4,10,1,-6,8,O,4,012,O,1,-9,O,O,O
80 5 DATA 23,8,4,2,1,-2,O,0,0,128
810 DATA 0 , 0,0,0,64,32,17,10,4,0,-6,O,O,-10
815 DATA 64,O,0,O,O,64,32,17,10,4,128
820 DATA 2,4,10,16,34,64,-5,2,0,4,O,8,O,16
825 DATA 0,-9,32,0,61,2,4,8,16,32,64,0,0 , 0,128