Specifications

50 Chapter 4
Preparing for Accurate Measurement
Performing Calibration
;Load2
2510 NEXT Point
2520 !
2530 PRINT "Do
you want to define standard values for Rdc measurement?"
2540 INPUT "[Y]es/[N]o",Inp_char$
2550 IF UPC$(Inp_char$)="Y" OR UPC$(Inp_char$)="YES" THEN
2560 CALL Inp_data("Open(G) Value for Rdc Measurement",Open_dc)
2570 CALL Inp_data("Short(R) Value for Rdc Measurement",Shor_dc)
2580 CALL Inp_data("Load(R) Value for Rdc Measurement",Load_dc)
2590 OUTPUT @Agt4287a;":CORR1:CKIT:STAN1:DC ";Open_dc
2600 OUTPUT @Agt4287a;":CORR1:CKIT:STAN2:DC ";Shor_dc
2610 OUTPUT @Agt4287a;":CORR1:CKIT:STAN3:DC ";Load_dc
2620 END IF
2630 !
2640 PRINT "Do you want to define standard delay values?"
2650 INPUT "[Y]es/[N]o",Inp_char$
2660 IF UPC$(Inp_char$)="Y" OR UPC$(Inp_char$)="YES" THEN
2670 CALL Inp_data("Open Delay Time",Open_del)
2680 CALL Inp_data("Short Delay Time",Shor_del)
2690 CALL Inp_data("Load Delay Time",Load_del)
2700 OUTPUT @Agt4287a;":CORR1:CKIT:STAN1:EDEL ";Open_del
2710 OUTPUT @Agt4287a;":CORR1:CKIT:STAN2:EDEL ";Shor_del
2720 OUTPUT @Agt4287a;":CORR1:CKIT:STAN3:EDEL ";Load_del
2730 END IF
2740 END IF
2750 SUBEND
2760 !=============================================
2770 ! Data Input Function
2780 !=============================================
2790 SUB Inp_data(Mes$,Inp_val)
2800 DIM Inp_char$[30]
2810 ON ERROR GOTO Inp_start
2820 Inp_start:!
2830 PRINT "Input "&Mes$
2840 INPUT "Value?",Inp_char$
2850 Inp_val=VAL(UPC$(Inp_char$))
2860 PRINT "Input Value: ";Inp_val
2870 INPUT "OK? [Y/N]",Inp_char$
2880 IF UPC$(Inp_char$)<>"Y" THEN Inp_start
2890 OFF ERROR
2900 SUBEND