Epson FX 60 D$=CHR$(27)+"J"+CHR$(11): C$=CHR$(27)+"F, 200 LPRINT CHR$(60)CHR$(1);: H$=CHR$(137): Z=1, 800 FOR J=1 TO N: LPRINT A$;: NEXT J: RETURN, FOR

Since you will need to switch two features-line feeds and Emphasized Mode-on and off within the program, you can store their commands as shorter strings:

50 B$=CHR$(27)+"E"

60 D$=CHR$(27)+"J"+CHR$(11): C$=CHR$(27)+"F"

If your system won’t send an 11, change both instances to either 10 or 12. The next 18 lines print the barchart.

190 LPRINT CHR$(27)"D"CHR$(14)CHR$(19)CHR$(24) CHR$(34)CHR$(44)CHR$(54);

200 LPRINT CHR$(60)CHR$(1);: H$=CHR$(137): Z=1

Lines 190 and 200 set horzontal tab stops and store the horizontal tab character in H$.

210 LPRINT H$;H$;" ABC CO. SALES: FIRST QUARTER 1995": LPRINT: LPRINT

220 LPRINT H$;H$;B$;"a";: N=34: A$="j": GOSUB 800: LPRINT "b"799 ' *** STRING$ ROUTINE ***

800 FOR J=1 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.

230 LPRINT H$;H$;"k";H$;H$;H$;H$;"k"240 FOR R=39 TO 1 STEP -1: LPRINT H$;: F=0

250 IF R/10=INT(R/10) THEN LPRINT R;: F=1 260 LPRINT B$;H$;"g";D$;C$;

Line 250 prints the value of R every tenth line and sets a flag (F) to print

DISTRICT

270 FOR M=1 TO 3: LPRINT H$;
280 FOR	P=1 TO	3
290 IF	R>MAX(M,P) THEN LPRINT		ELSE LPRINT
CHR$(93+P);		" ";

Line 290 compares the current row (R) with the array (MAX) to determine whether to print a character or a blank space.

300 NEXT P: NEXT M: LPRINT B$;H$;"k";C$;: IF F=0

THEN LPRINT: GOTO 320

310 LPRINT H$;CHR$(93+Z)" DISTRICT ";Z: Z=Z+1

320 NEXT R: LPRINT H$;H$;B$;"g";H$;H$;H$;H$;"k"

325 LPRINT H$;H$;B$j"k";H$;H$;H$;H$;H$;"k"

229