120 Chapter 9
Measurement Applications (Sample Programs)
Measurement with changing channels (scanning)
2520 GOTO Compen_meas
2530 END IF
2540 NEXT I
2550 PRINT Standard$&" Data Measurement Complete"
2560 OUTPUT @Agt4288a;":SOUR:FREQ ";Curr_freq
2570 RETURN 0
2580 ELSE
2590 PRINT "Program Interruption"
2600 OUTPUT @Agt4288a;":SOUR:FREQ ";Curr_freq
2610 RETURN -1
2620 END IF
2630 FNEND
2640 !=============================================
2650 ! Data Input Function
2660 !=============================================
2670 SUB Inp_data(Mes$,Inp_val)
2680 DIM Inp_char$[30]
2690 ON ERROR GOTO Inp_start
2700 Inp_start:!
2710 PRINT "Input "&Mes$
2720 INPUT "Value?",Inp_char$
2730 Inp_val=VAL(UPC$(Inp_char$))
2740 PRINT "Input Value: ";Inp_val
2750 INPUT "OK? [Y/N]",Inp_char$
2760 IF UPC$(Inp_char$)<>"Y" THEN Inp_start
2770 OFF ERROR
2780 SUBEND