Table 23-10 Example: Using the CP Command

PA5000,2500;

Specify absolute plotting and move to

PD1500,2500;

(5000,2500); set the pen down and draw

PU;

a line to (1500,2500); lift the pen.

 

 

CP5,.35;

Move the pen 5 spaces to the right and .35

 

lines up so that the label is placed just above

 

the line.

 

 

DT$,1;

Define a label terminator ($) and specify that

 

it does not print.

 

 

SD1,21,2,1,4,14,5,

Designate a 14-point Univers Bold font and

0,6,3,7,4148;SS;

select it.

 

 

LBABOVE THE

Print the first line of text. The label text is

LINE$;

shown on two lines due to the column width

 

restriction. When coding a single line label, it

 

should all be placed on one line.

 

 

PA2500,2500;

Move the pen to (2500,2500) and draw a dot

WG20,0,360;

marking the new Carriage Return point (360°

 

black-filled wedge with a diameter of 20 plu).

 

 

CP0,-.95LBBELOW

Print the second line; Carriage Return-Line

THE LINECR-LF

Feed; print the third line.

WITH A NEAT$;

 

 

 

CP;LBMARGIN$;

Print the fourth line. Notice how the CP

 

command without parameters functions as

 

a CR-LF.

 

 

EC%0A

Enter the PCL mode.

ECE

Send a reset to end the job and eject the

 

page.

 

 

EN

CP, Character Plot 23-27

Page 639
Image 639
HP 5961-0509 manual Lbabove, Line$, CP0,-.95LBBELOW, Linecr-Lf, With a NEAT$ CPLBMARGIN$