10 WIDTH "LPT1:", 255 - Page 95

2001/10/02 

CHAPTER 2 "PCL" - 75 

Pattern example 

10 WIDTH "LPT1:", 255  

20 ESC$ = CHR$(27)  

30 REM --- RESET PRINTER ---  

40 LPRINT ESC$; "E";  

50 REM --- SET SOURCE=TRANSPARENT ---  

60 REM --- SET PATTERN=OPAQUE ---  

70 LPRINT ESC$; "*v0n1O";  

80 REM --- BACKGROUND ---  

90 LPRINT ESC$; "*c80G"; ESC$; "*v2T";  

100 LPRINT ESC$; "*p100x100Y"; ESC$; "*c1000a300b2P";  

110 REM --- PATTERN ---  

120 LPRINT ESC$; "*p150x300Y";  

130 LPRINT ESC$; "(s1p48v0s0b4101T";  

140 LPRINT ESC$; "*c1G"; ESC$; "*v3T"; : LPRINT "P";  

150 LPRINT ESC$; "*c2G"; ESC$; "*v3T"; : LPRINT "A";  

160 LPRINT ESC$; "*c6G"; ESC$; "*v3T"; : LPRINT "T";  

170 LPRINT ESC$; "*c4G"; ESC$; "*v3T"; : LPRINT "T";  

180 LPRINT ESC$; "*c5G"; ESC$; "*v3T"; : LPRINT "E";  

190 LPRINT ESC$; "*c3G"; ESC$; "*v3T"; : LPRINT "R";  

200 LPRINT ESC$; "*c1G"; ESC$; "*v3T"; : LPRINT "N";  

210 REM --- PAPER EJECT ---  

220 LPRINT CHR$(12);  

230 END 

<Sample file 6>