Barchart - Epson FX-80 User Manual

ABC CO. SALES: FIRST QUARTER 1995
30
.\' ... DISTRICT
1
~ ~
~ ~
~ ~
~ ~
20
~ ~
o ..
DISTRICT
2
~ ~
~ ~
~ ~
~
~ ~
10
~ ~
~
It! -
DISTRICT
3
~
~ ~
~ ~
~
~ ~ ~
~ ~ ~
~ ~'
:\
JAN
FEB MAR
Figure 19·1. Barchart.
The (ESC) "Vl" activates unidirectional print so that the line
graphics characters will line up properly. Line 130 selects 14 characters
(A
through k) to be defined. Line 140 starts the READ loop and sends
the attribute byte. Line 160 closes the Y loop and sets the form length
to 66 lines. It also sets the Top Of Form to the current position of the
print head.
The other program changes are additions of new lines. Enter:
1~
FOR J=1 TO 3: FOR K=1 TO 3
2~
READ MAX(J,K)
3~
NEXT K: NEXT J
4~
DATA
12,18,23,28,36,34,28,27,3~
The maximum heights for the vertical bars in the chart are READ
from line 40 and stored in the array, MAX. The next data lines define
three new characters:
5~
DATA 2,1,64,32,16,8,4,2,1,64,32
6~ DATA 127,~,99,~,65,~,65,~,99,~,127
7~ DATA 127,~,28,~,62,65,62,~,28,~,127
Reverse and forward line feeds as well as emphasized print need to
be switched on and off throughout the program-storing the appro-
priate commands as strings makes them relatively easy to use:
227