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

2001/10/02 

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 >