Epson LX-810 User Manual page 121

Graphics
100 WIDTH "LPTl:",255
110 LPRINT CHR$(2T);"A";CHR$(7) ;
120 FOR R0W=1 TO 2
130 LPRINT CHR$(2T);"Y";CHR$(Ul);CHR$(0);
lUO FOR C0LUMN=1 TO Ul
150 READ N
160 LPRINT CHR$(N);
170 NEXT COLUMN
180 LPRINT
190 NEXT ROW
200 END
210 DATA 6U,32,80,8,68,2,6U,0,6U,0
220 DATA 6U,0,6U,0,32,0,16,0,8,0
230 DATA 8,0,8,0,8,0,8,0,8,0,8,0,8,0
2U0 DATA 18U,6U,32,16,8,U,2
250 DATA 8,16,U0,6U,136,0,8,0,8,0
260 DATA 8,0,8,0,16,0,32,0,6U,0,6U,0
270 DATA 6U,0,6U,0,6U,0,6U,0,6U,0,6U,0
280 DATA 116,8,16,32,6U,128,0
When you run this program, it produces the following printout.
If you want to see the figure in other densities, change the Y in
line 130 to L or Z.
Software and Graphics 4-19