HP 7475a - Test Program

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