Set double-speed, double-density image mode - Page 337

CHAPTER 7 IBM PROPRINTER - 19 



Images are printed at an approximate horizontal resolution of 120 dots per inch and at an approximate 
vertical resolution of 72 dots per inch. 



Each byte represents a vertical column of eight dots,  the most significant bit representing the dot at 
the top.  Simply set a bit to 1 if you want a dot to appear in that position, and to 0 if you want white 
space to appear. 

10 WIDTH "LPT1:", 255 
20 LPRINT "***ESC L n1 n2 ***"CHR$(10); 
30 FOR I=1 TO 5 
40 '*DOUBLE-DENSITY BIT IMAGE MODE * 
50 LPRINT CHR$(27);"L";CHR$(160);CHR$(0); 
60 FOR J=1 TO 8 
70 FOR K=1 TO 20 
80 N=2^J-1 
90 LPRINT CHR$(N); 
100 NEXT K 
110 NEXT J 
120 LPRINT CHR$(10); 
130 NEXT I:END 
 
< Sample 16 > 

Set double-speed, double-density image mode 

EscYn

1

n

2

<image data> (27)(89)n1n2<image data> 

<1Bh><59h>n1n2<image 

data> 



This command enables you to define and print a single line raster bit image on a single text line. 



n

1

 and 

n

2

 define the number of bytes that comprise the image. 



The image consists of 256*

n

2

+

n

1

 bytes of data,  each byte representing a single vertical column of 

4/30". 



Images are printed left to right. 



Images are printed at an approximate horizontal resolution of 120 dots per inch and at an approximate 
vertical resolution of 72 dots per inch. 



Each byte represents a vertical column of eight dots,  the most significant bit representing the dot at 
the top. Simply set a bit to 1 if you want a dot to appear in that position,  and to 0 if you want white 
space to appear. 



This printer always prints as fast as possible,  hence this command is the exact equivalent of the Esc L 
command. 

10 WIDTH "LPT1:", 255 
20 LPRINT "*** ESC Y n1 n2 ***", CHR$(10); 
30 FOR I=1 TO 5 
40 '*DOUBLE-SPEED & DOUBLE-DENSITY BIT IMAGE MODE * 
50 LPRINT CHR$(27);"Y";CHR$(160);CHR$(0); 
60 FOR J=1 TO 8 
70 FOR k=1 TO 20 
80 N=2^J-1 
90 LPRINT CHR$(N); 
100 NEXT K 
110 NEXT J 
120 LPRINT CHR$(10); 
130 NEXT I:END 
 
< Sample 17 >