HP 7470A Operator's Manual page 25

Graph plotted using HP-GL instructions.
100 PRINTER
110 PRINT "IP800,500,7000,4200;SP2;"
120 PRINT "SCO,24,0,15"
130 PRINT "TL1.5,0;"
140 PRINT "SI .135, .20"
150 PRINT "PRO,O;"
160 FOR X·O TO 24
170 PRINT .. PDj PAi l ,X," ,OjPU;XTj"
180 IF x>· 10 THEN 210
190 PRINT "CP-.33,-1;"
200 IF X<· 9 THEN 220
210 PRI NT "CP -. 8 3 5, -1 ; "
220 PRINT U5It"G
23 0 PR IN T "
240 NEXT X
250 PRINT " TL 1,0"
260 PRINT "PRO,O;"
270 FOR y·o TO 15
280 PRINT
IIPDjPRO," ,Y," jPU;YT;"
290 IF Y>= 10 THEN 320
300 PRINT "CP-l.833-.25;"
310 IF Y<· 9 THEN 330
320 PRINT "CP-2.5,-.25;"
3 3 0 PRI NT USI NG
340 PRINT
I,
350 NEXT Y
3£0 END
IS
l3
12
11
10
•
,
,
•
5
20
IS 705
'IM,K" IILS"
;
J PA " , X , I I ,O j l l
"w, K" ; "LS",
jPAO," ,Y
, X
Y