Specifications

82 Chapter 4
Preparation for Accurate Measurement
Calibration
1410 OUTPUT @Agte4991a;"SYST:ERR?"
1420 ENTER @Agte4991a;Err_no,Err_mes$
1430 IF Err_no=0 THEN
1440 PRINT Standard$&" data measurement completion"
1450 PRINT
1460 RETURN 0
1470 ELSE
1480 PRINT "Error: "&Err_mes$
1490 PRINT "Program interruption"
1500 PRINT
1510 RETURN -1
1520 END IF
1530 ELSE
1540 PRINT "Program interruption"
1550 PRINT
1560 RETURN -1
1570 END IF
1580 FNEND
1590 !
1600 SUB Inp_data(Mes$,Inp_val)
1610 DIM Inp_char$[9]
1620 PRINT "Input "&Mes$
1630 Inp_start: INPUT "Value?",Inp_val
1640 PRINT Mes$&" Value: ";Inp_val
1650 PRINT
1660 INPUT "OK? [Y/N]",Inp_char$
1670 IF UPC$(Inp_char$)<>"Y" THEN Inp_start
1680 SUBEND