Specifications

64 Chapter 4
Preparing for Accurate Measurement
Running the Compensation Process
2510 PRINT " 5: 16194A"
2520 PRINT " 6: 16196A"
2530 PRINT " 7: 16196B"
2540 PRINT " 8: 16196C"
2550 PRINT " 9: USER"
2560 INPUT "Input 1 to 9",Inp_char$
2570 Fixture=IVAL(Inp_char$,10)
2580 IF Fixture<1 OR Fixture>8 THEN Fixture_select
2590 OFF ERROR
2600 SELECT Fixture
2610 CASE 1
2620 OUTPUT @Agt4287a;":CORR2:FIXT NONE"
2630 CASE 2
2640 OUTPUT @Agt4287a;":CORR2:FIXT FXT16191A"
2650 CASE 3
2660 OUTPUT @Agt4287a;":CORR2:FIXT FXT16192A"
2670 CASE 4
2680 OUTPUT @Agt4287a;":CORR2:FIXT FXT16193A"
2690 CASE 5
2700 OUTPUT @Agt4287a;":CORR2:FIXT FXT16194A"
2710 CASE 6
2720 OUTPUT @Agt4287a;":CORR2:FIXT FXT16196A"
2730 CASE 7
2740 OUTPUT @Agt4287a;":CORR2:FIXT FXT16196B"
2750 CASE 8
2760 OUTPUT @Agt4287a;":CORR2:FIXT FXT16196C"
2770 CASE 9
2780 OUTPUT @Agt4287a;":CORR2:FIXT USER"
2790 CALL Inp_data("Electrical Length of the User Fixture",E_len)
2800 OUTPUT @Agt4287a;":CORR2:FIXT:EDEL:DIST ";E_len
2810 END SELECT
2820 SUBEND
2830 !=============================================
2840 ! Data Input Function
2850 !=============================================
2860 SUB Inp_data(Mes$,Inp_val)
2870 DIM Inp_char$[30]
2880 ON ERROR GOTO Inp_start
2890 Inp_start:!
2900 PRINT "Input "&Mes$
2910 INPUT "Value?",Inp_char$
2920 Inp_val=VAL(UPC$(Inp_char$))
2930 PRINT "Input Value: ";Inp_val
2940 INPUT "OK? [Y/N]",Inp_char$
2950 IF UPC$(Inp_char$)<>"Y" THEN Inp_start
2960 OFF ERROR
2970 SUBEND