Agilent Technologies 4294A Programming Manual page 66

Preparing For Accurate Measurement
Fixture Compensation
440 OUTPUT @Hp4294a;"ESNB 256"
450 OUTPUT @Hp4294a;"*SRE 4"
460 !
470 Result=FNFixt_comp(@Hp4294a,Scode,"Open")
480 IF Result<>0 THEN Prog_end
490 !
500 Result=FNFixt_comp(@Hp4294a,Scode,"Short")
510 IF Result<>0 THEN Prog_end
520 !
530 Result=FNFixt_comp(@Hp4294a,Scode,"Load")
540 IF Result<>0 THEN Prog_end
550 !
560 ! Data Reading
570 !
580 OUTPUT @Hp4294a;"FORM3"
590 !
600 OUTPUT @Hp4294a;"OUTPCOMC1?"
610 ENTER @Hp4294a USING "#,2A";Buff$
620 ENTER @Hp4294a USING "#,6A";Size$
630 ENTER @Binary;Com_o(*)
640 ENTER @Hp4294a USING "#,1A";Buff$
650 !
660 OUTPUT @Hp4294a;"OUTPCOMC2?"
670 ENTER @Hp4294a USING "#,8A";Buff$
680 ENTER @Binary;Com_s(*)
690 ENTER @Hp4294a USING "#,1A";Buff$
700 !
710 OUTPUT @Hp4294a;"OUTPCOMC3?"
720 ENTER @Hp4294a USING "#,8A";Buff$
730 ENTER @Binary;Com_l(*)
740 ENTER @Hp4294a USING "#,1A";Buff$
750 !
760 ! Data Saving
770 !
780 Data_size=VAL(Size$)*3
790 ON ERROR GOTO Skip_purge1
800 PURGE File$
810 Skip_purge1: OFF ERROR
820 PRINT "Compensation Data Save file: "&File$
830 CREATE File$,Data_size
840 ASSIGN @File TO File$;FORMAT OFF
850 OUTPUT @File;Com_o(*),Com_s(*),Com_l(*)
860 ASSIGN @File TO *
870 !
880 ON ERROR GOTO Skip_purge2
890 PURGE Std_file$
900 Skip_purge2: OFF ERROR
910 PRINT "Standard Value Save file: "&Std_file$
920 CREATE Std_file$,48
930 ASSIGN @File TO Std_file$;FORMAT OFF
940 OUTPUT @File;Open_g,Open_c,Short_r,Short_l,Load_r,Load_l
950 ASSIGN @File TO *
960 !
970 PRINT "All Data Measurement Complete"
980 Prog_end: END
990 !
1000 ! Fixture Compensation Data Measurement Function
1010 !
1020 DEF FNFixt_comp(@Hp4294a,INTEGER Scode,Standard$)
1030 DIM Inp_char$[9],Err_mes$[50]
1040 INTEGER Err_no
1050 OUTPUT @Hp4294a;"*CLS"
1060 PRINT "Set "&Standard$&"-Connection"
1070 INPUT "OK? [Y/N]",Inp_char$
66 Chapter 4