Specifications

Chapter 15 191
Sample Application Programs
Using an Auto-sorting System
15. Sample Application
Programs
3570 IF ABS(Rdc)>U_lim THEN Err_flag=1
3580 CASE "Load"
3590 OUTPUT @Agt4287a;":DATA:RCAD3?"
3600 ENTER @Agt4287a;Rdc
3610 PRINT "Rdc =";ABS(Rdc)
3620 IF ABS(Rdc)<L_lim OR ABS(Rdc)>U_lim THEN Err_flag=1
3630 END SELECT
3640 IF Err_flag=0 THEN
3650 PRINT Standard$&" Data Measurement Complete"
3660 ELSE
3670 PRINT "ERROR!!"
3680 GOTO Cal_meas
3690 END IF
3700 OUTPUT @Agt4287a;":TRIG:SOUR "&Trig_sour$
3710 RETURN 0
3720 ELSE
3730 OUTPUT @Agt4287a;":TRIG:SOUR "&Trig_sour$
3740 PRINT "Program Interruption"
3750 RETURN -1
3760 END IF
3770 FNEND
3780 !=============================================
3790 ! Data Input Function
3800 !=============================================
3810 SUB Inp_data(Mes$,Inp_val)
3820 DIM Inp_char$[30]
3830 ON ERROR GOTO Inp_start
3840 Inp_start:!
3850 PRINT "Input "&Mes$
3860 INPUT "Value?",Inp_char$
3870 Inp_val=VAL(UPC$(Inp_char$))
3880 PRINT "Input Value: ";Inp_val
3890 INPUT "OK? [Y/N]",Inp_char$
3900 IF UPC$(Inp_char$)<>"Y" THEN Inp_start
3910 OFF ERROR
3920 SUBEND