Agilent Technologies 4294A Programming Manual page 204

Application Sample Programs
Measuring Dielectric Material
4270 CASE 1
4280 GOTO Display
4290 CASE ELSE
4300 GOTO Re_meas
4310 END SELECT
4320 !
4330 Quit: !
4340 DISP "Really quit the program?
4350 INPUT "",Ans
4360 SELECT Ans
4370 CASE 0
4380 DISP "Bye."
4390 CASE 1
4400 GOTO Display
4410 CASE ELSE
4420 GOTO Quit
4430 END SELECT
4440 Prog_end: END
4450 !
4460 ! Correction Data Measurement Function
4470 !
4480 DEF FNUser_Corr(@Agt4294a,Type$)
4490 DIM Inp_char$[9],Err_mes$[50]
4500 INTEGER Err_no
4510 !
4520 OUTPUT @Agt4294a;"ESNB 256"
4530 OUTPUT @Agt4294a;"*SRE 4"
4540 OUTPUT @Agt4294a;"*CLS"
4550 !
4560 ON INTR 8 GOTO Meas_end
4570 ENABLE INTR 8;2
4580 SELECT Type$
4590 CASE "Adapter_Phase"
4600 OUTPUT @Agt4294a;"ECALP"
4610 CASE "Compen_Open"
4620 OUTPUT @Agt4294a;"COMA"
4630 CASE "Compen_Short"
4640 OUTPUT @Agt4294a;"COMB"
4650 CASE "Compen_Load"
4660 OUTPUT @Agt4294a;"COMC"
4670 END SELECT
4680 PRINT "Now measuring..."
4690 Meas_wait: GOTO Meas_wait
4700 Meas_end: !
4710 OUTPUT @Agt4294a;"OUTPERRO?"
4720 ENTER @Agt4294a;Err_no,Err_mes$
4730 IF Err_no=0 THEN
4740 PRINT Standard$&" Data Measurement Complete"
4750 RETURN 0
4760 ELSE
4770 PRINT "Error: "&Err_mes$
4780 PRINT "Program Interruption"
4790 OUTPUT @Agt4294a;"ECALQUI"
4800 RETURN -1
4810 END IF
4820 FNEND
204
0:Yes, 1:Cancel";
13