Epson FX-185 User Manual - Page 246

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 CHR$(93+P); " "; ELSE LPRINT 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