Agilent Technologies 4294A Programming Manual page 236

Application Sample Programs
Measurement using scanner
1130 NEXT J
1140 PRINT
1150 NEXT I
1160 CLEAR SCREEN
1170 PRINT "##### Load Compensation #####"
1180 OUTPUT @Agt4294a;"DCOMLOADR 100OHM"
1190 OUTPUT @Agt4294a;"DCOMLOADL 0H"
1200 FOR I=0 TO Max_chan
1210 OUTPUT @Agt3499a;"CLOSE 10"&VAL$(I)&",11"&VAL$(I)
1220 PRINT "Channel "&VAL$(I)&" is activated."
1230 Result=FNFixt_comp(@Agt4294a,Scode,"Load")
1240 IF Result<>0 THEN Prog_end
1250 OUTPUT @Agt4294a;"OUTPCOMC3?"
1260 ENTER @Agt4294a USING "#,8A";Header$
1270 ENTER @Binary;Temp(*)
1280 ENTER @Agt4294a USING "#,1A";Buff$
1290 FOR J=Point(I)+1 TO Point(I+1)
1300 Load(J,1)=Temp(J,1)
1310 Load(J,2)=Temp(J,2)
1320 NEXT J
1330 PRINT
1340 NEXT I
1350 !
1360 ! Make new compensation coefficients
1370 !
1380 OUTPUT @Agt4294a;"INPUCOMC1 "&Header$;
1390 OUTPUT @Binary;Open(*),END
1400 OUTPUT @Agt4294a;"INPUCOMC2 "&Header$;
1410 OUTPUT @Binary;Short(*),END
1420 OUTPUT @Agt4294a;"INPUCOMC3 "&Header$;
1430 OUTPUT @Binary;Load(*),END
1440 !
1450 ! Trigger Setting
1460 !
1470 OUTPUT @Agt4294a;"TRGS INT"
1480 OUTPUT @Agt4294a;"HOLD"
1490 !
1500 ! SRQ Setting
1510 !
1520 OUTPUT @Agt4294a;"ESNB 1"
1530 OUTPUT @Agt4294a;"*SRE 4"
1540 !
1550 ! Measuring DUT
1560 !
1570 CLEAR SCREEN
1580 PRINT "##### DUT Measurement #####"
1590 ON ERROR GOTO Dut_meas_start
1600 Dut_meas_start
1610 PRINT "Set DUTs for All Channels."
1620 INPUT "OK? [Y/N]",Buff$
1630 OFF ERROR
1640 IF UPC$(Buff$)<>"Y" THEN
1650 PRINT "Program Interruption"
1660 GOTO Prog_end
1670 END IF
1680 OUTPUT @Agt4294a;"MANS ON"
1690 FOR I=0 TO Max_chan
1700 OUTPUT @Agt3499a;"CLOSE 10"&VAL$(I)&",11"&VAL$(I)
236 13