Epson FX-80 User Manual page 259

8!2J U$=CHR$(27)+"j"+CHR$(11): B$=CHR$(27)+"E"
9!2J D$=CHR$(27)+"J"+CHR$(11); C$=CHR$(27)+"F"
95 ' Use 1!2J or 12
i f
CHR$(l1) doesn't work
The next 18 lines print the barchart, starting with:
19!2J LPRINT CHR$(27)"D"CHR$(14)CHR$(19)
CHR$(24)CHR$(34)CHR$(44)CHR$(54);
2!2J!2J LPRINT CHR$(6!2J)CHR$(1);: H$=CHR$(9): Z=l
Lines 190 and 200 set horizontal tab stops and store the horizontal tab
character in H$. There's more:
21!2J LPRINT H$;H$;
" ABC CO. SALES: FIRST QUARTER 1995": LPRINT
22!2J LPRINT H$;H$;B$;"a";: N=34: A$="j":
GOSUB 8!2J!2J: LPRINT "b"
799 '
***
STRING$ ROUTINE
***
8!2J!2J FOR J=l TO N: LPRINT A$: NEXT J: RETURN
Lines 210 and 220 start the printing, using horizontal tabs and special
characters. For systems without a STRING$ function, the GOSUB in
line 220 can print a string of characters. Add:
23!2J LPRINT H$;H$;U$;"k";H$;H$;H$;H$;"k"
24!2J FOR R=39 TO 1 STEP -1: LPRINT H$;: F=!2J
25!2J IF R/1!2J=INT(R/1!2J) THEN LPRINT R;: F=l
26!2J LPRINT B$;H$;U$;"g";D$;C$;
Line 250 prints the value of R every tenth line and sets a flag (F) to print
the "DISTRICTS."
27!2J FOR M=l TO 3: LPRINT H$;
28!2J FOR P=l TO 3
29!2J IF R)MAX(M,P) THEN LPRINT " ";
ELSE LPRINT CHR$(93+P);" ";
Line 290 compares the current row (R) with the array (MAX) to deter-
mine whether to print a character or a blank space. And finally, add:
228