HP 8712C User Manual page 315

Automating Measurements
Operator Interaction
160 DIM Msg$[2001
170 INTEGER X
180 !
190 IF POS(SYSTEM$("SYSTEM ID"),"HP 871") THEN
200 ASSIGN 6Hp8711 TO 800
210 ELSE
220 ASSIGN (PHp8711 TO 716
230 A
BORT
CLEAR 716
240
250 END IF
260 !
270
280 Start: !
290 LOOP
300 ! Display message
310
320
330 OUTPUT QHp871l;"DISP:ANN:MESS
!
340
! Wait for button to be pressed
350
360 REPEAT
OUTPUT QHp871l;"DIAG:PORT:READ? 15,l"
370
380 ENTER OHp871l;X
390 UNTIL X = 0
400 DISP "Button is now pressed."
410 OUTPUT OHp871l;"DISP:ANN:MESS:CLEAR"
420 !
430 ! Wait for button to be released
440 REPEAT
OUTPUT OHp871l;"DIAG:PORT:READ? 15,l"
450
ENTER QHp871l;X
460
470 UNTIL X = 1
DISP "Button is now released."
480
490 !
OUTPUT QHp871l;"DISP:ANN:MESS
500
! Add code here to take sweep
510
! and measure DUT.
520
530 WAIT 1
540
END LOOP
550
END
560
7-36
7
'Measuring..."'