Agilent Technologies 4294A Programming Manual page 67

1080 IF UPC$(Inp_char$)="Y" THEN
1090 ON INTR Scode GOTO Meas_end
1100 ENABLE INTR Scode;2
1110 SELECT Standard$
1120 CASE "Open"
1130 OUTPUT @Hp4294a;"COMA"
1140 CASE "Short"
1150 OUTPUT @Hp4294a;"COMB"
1160 CASE "Load"
1170 OUTPUT @Hp4294a;"COMC"
1180 END SELECT
1190 PRINT "Now measuring..."
1200 Meas_wait: GOTO Meas_wait
1210 Meas_end: !
1220 PRINT Standard$&" Data Measurement Complete"
1230 RETURN 0
1240 ELSE
1250 PRINT "Program Interruption"
1260 RETURN -1
1270 END IF
1280 FNEND
1290 !
1300 ! Data Input Function
1310 !
1320 SUB Inp_data(Mes$,Inp_val)
1330 DIM Inp_char$[30]
1340 ON ERROR GOTO Inp_start
1350 Inp_start:!
1360 PRINT "Input "&Mes$
1370 INPUT "Value?",Inp_char$
1380 Inp_val=VAL(UPC$(Inp_char$))
1390 PRINT "Input value: ";Inp_val
1400 INPUT "OK? [Y/N]",Inp_char$
1410 IF UPC$(Inp_char$)<>"Y" THEN Inp_start
1420 OFF ERROR
1430 SUBEND
Chapter 4
Preparing For Accurate Measurement
Fixture Compensation
67