Epson FX 40 LPRINT G$;, 7 WIDTH LPRINT, 140 NEXT D: GOSUB, 90 IF H<0 THEN LPRINT: GOT0, 30 FOR D=1 TO 17: PRINT "ROW";D, 200 DATA 3,20,3,3,10,3,21,18,4,18,4,-1

If L is read as zero, line 70 causes the program to ignore line 80. This enables the printer to print the center portion of the X, where the diagonal fall meets the diagonal rise at a point and no low section is required.

Line 90 serves two purposes. It forces a line feed each time a negative number is read, and it skips the last three steps of the four-step cycle so that each print line can end on a low.

If your computer system requires a WIDTH statement to prevent the printer from issuing a carriage return before the graphics line is complete, add it now:

7 WIDTH LPRINT 255

The format for this statement may be different for your BASIC; see your software documentation.

To print the program with one line of data, add lines 40 and 190 (the latter differs for the FX-100):

40 LPRINT G$;190 DATA 3,20,2,3,12,3,22,14,8,14,6,-1 and RUN it.The negative number at the end of line 190 signals the end of the print line.

The last program changes add a loop to print 17 lines and enter the data statements. (All the data lines differ slightly for the FX-100):

30 FOR D=1 TO 17: PRINT "ROW";D

90 IF H<0 THEN LPRINT: GOT0 140

140 NEXT D: GOSUB 160200 DATA 3,20,3,3,10,3,21,18,4,18,4,-1210DATA 3,20,4,3,8,3,21,5,8,5,2,5,8,5,3,-1220DATA 3,3,22,3,6,3,22,3,12,3,2,3,12,3,3,-1230DATA 3,3,23,3,4,3,23,3,12,3,2,3,12,3,3,-1240DATA 3,3,24,3,2,3,24,3,12,3,2,3,12,3,3,-1250DATA 3,3,25,3,0,3,25,3,12,3,2,3,12,3,3,-1260DATA 3,20,9,6,5,15,5,18,3,3,12,3,3,-1270DATA 3,20,10,4,6,15,7,14,5,3,12,3,3,-1280DATA 3,20,9,6,5,15,5,5,6,5,3,3,12,3,3,-1

167