Agilent Technologies 4294A Programming Manual page 237

1710 WAIT .2
1720 OUTPUT @Agt4294a;"*CLS"
1730 OUTPUT @Agt4294a;"*OPC?"
1740 ENTER @Agt4294a;Opc
1750 ON INTR 7 GOTO Sweep_end
1760 ENABLE INTR 7;2
1770 OUTPUT @Agt4294a;"MANR
"&VAL$(Point(I)+1)&","&VAL$(Point(I+1))
1780 OUTPUT @Agt4294a;"SING"
1790 PRINT "Measuring Channel ";VAL$(I)
1800 Sweep_wait: GOTO Sweep_wait
1810 Sweep_end: OFF INTR 7
1820 NEXT I
1830 OUTPUT @Agt3499a;"RESET"
1840 !
1850 PRINT "Measurement Completed"
1860 !
1870 Prog_end: !
1880 END
1890 !
1900 ! Fixture Compensation Data Measurement Function
1910 !
1920 DEF FNFixt_comp(@Agt4294a,INTEGER Scode,Standard$)
1930 DIM Inp_char$[9]
1940 OUTPUT @Agt4294a;"*CLS"
1950 ON ERROR GOTO Conpen_start
1960 Compen_start:
1970 PRINT "Set "&Standard$&"-Connection"
1980 INPUT "OK? [Y/N]",Inp_char$
1990 OFF ERROR
2000 IF UPC$(Inp_char$)="Y" THEN
2010 ON INTR Scode GOTO Meas_end
2020 ENABLE INTR Scode;2
2030 SELECT Standard$
2040 CASE "Open"
2050 OUTPUT @Agt4294a;"COMA"
2060 CASE "Short"
2070 OUTPUT @Agt4294a;"COMB"
2080 CASE "Load"
2090 OUTPUT @Agt4294a;"COMC"
2100 END SELECT
2110 PRINT "Now measuring..."
2120 Meas_wait: GOTO Meas_wait
2130 Meas_end: !
2140 PRINT Standard$&" Data Measurement Complete"
2150 RETURN 0
2160 ELSE
2170 PRINT "Program Interruption"
2180 RETURN -1
2190 END IF
2200 FNEND
2210 !
2220 ! 4TP Setup Function
2230 !
2240 DEF FNSetup_4tp(@Agt4294a,INTEGER Scode,Standard$)
2250 DIM Inp_char$[9]
2260 OUTPUT @Agt4294a;"*CLS"
2270 ON ERROR GOTO Setup_start
13
!
Application Sample Programs
Measurement using scanner
237