Section
II
Model 7475A
10
20
30
40
50
60
70
"Autost"
7475A
FEATURES
PLOT
CJULY
4,1983)
80
90
I
SELECT
ADDRESS
FOR
PLOTTER
INTERFACE
100
CLEAR
110
DI
SP
"ENTER
ADDRESS"
120
DISP
130
DI
SP "
e9.
RS-232-C
140 DISP "
e9.
HP-IB
150
DISP
160INPUT
N
, 1
0'"
'705'"
1 7 0
DI
SP "
ADDRESS
I
S"
; N
180
IF
N<99
THEN
GOSUB
1280
190
I
200
I
INIT
7470A &
OUTPUT
P1,P2
&
WINDOW
COORDINATES
210
I
220
OUTPUT
N
USING
11
1,K
11
; "INOP;"
230
ENTER
N ; X1,Y1,X2,Y2
240
OUTPUT
N
USING
11
1,
K
11
;
11
ow;
11
250
ENTER
N ; X3,Y3,X4,Y4
260
I
270
I
DRAW
+
AT
P1
&
P2
&
LABEL
COORDINATES
280
I
290
OUTPUT
N
USING
300
OUTPUT
N
USING
310
OUTPUT
N
USING
320
OUTPUT
N
USING
330
OUTPUT
N
USING
340
GOSUB
1180
II•,
K"
II•,
K"
"I,
K"
"I'
K"
"I'
K"
350
OUTPUT
N
USING
11
1,K"
360
GOSUB
1220
370
OUTPUT
N
LISI
NG
"I,
K"
380
I
390
I
DRAW
&
LABEL
AXIS
400
I
410
OUTPUT
N
USING
11
1,K"
420
FOR
I•1
TO
8
430
OUTPUT
N
USING
11
1,K"
440
NEXT
I
450
FOR
I•1
TO
15
460
OUTPUT
N
USING
11
1,K"
470
NEXT
I
480
OUTPUT
N
USING
11
1,K"
490
GOSUB
1180
500
OUTPUT
N
USING
11
1,K"
510
:iOSUB
1220
520
OUTPUT
N
USING
"1,K"
530
OUTPUT
N
USING
11
1,K
11
540
OUTPUT
N
USING
11
1,K"
550
FOR
I•15
TO
0
STEP
-1
"SP1PA5080,4064PDPUSM+PA";X1;",";Y1
II
CPZ,
- .
3LBP1
=
("
,
VAL$
( x 1 ) ,
II
·'
II
,
VAL$
( y 1 ) ,
II
)
II
,
CHR
$ ( 3 )
11
PA"
;
x2;
11
, " ;
yz;
11
SM;
"
11
c p - 1 6 ' - . 3
LB
p 2 = ( '' '
VAL
$ ( x 2 )
·'
11
I
11
,
VAL
$ ( y 2 ) ,
11
)
11
·'
c
HR$
( 3 )
II
PA2022' 2464"
11
PA8088,4064"
11
FT4,100,45PA9372,6440RR700,700SP2ER700,700
11
"SP2PA9144, 1016PD
11
II
XTPR-1
011
'0
11
II
PRO,
400YT"
"PUPA2022, 4064"
II
PA8088, 5664"
"FT4,
50,
90PA9722, 5600WG350,
0,
360,
40SP3EW350,,
0,
360,
40"
''SP3PA600,3500DI0,1LBCentimetres",CHRSC3)
"PA700,6966DI"
560
IF
I<10
THEN
OUTPUT
N
USING
11
1,K" ;
"CP1,0"
570
OUTPUT
N
USING
11
1,K" "LB" ,VALSCI ),CHRSC13),CHRSC3),"PRO,
-400"
580
NEXT
I
590
OUTPUT
N
USING
11
1,K"
600
GOSUB
1180
610
OUTPUT
N
USING
"1,K"
620
GOSUB
1220
630
OUTPUT
N
USING
11
1,K"
640
OUTPUT
N
USING
11
1,K"
650
FOR
I•O
TO
8
"PA2022, 5664"
"PAZOZZ, 2464"
II
FT1
'o,
OPA9722' 4060PT.
5WG700,
60,
60SP4EW700,
1)0,
60"
II
PA1032, 756SP4"
7475-A-33-1
Figure
2-3.
Test
Program
(Sheet
1
of
3)
2-6
To Next Page
Loading...
Need help?
General
