Table of Contents
Advertisement
1400 Restore_cal:! Restores the calibration data previously saved.
1410
IF Status=0 THEN
1420
INPUT "Calibration successful, restore backup anyway?",Answer$
1430
ELSE
1440
INPUT "Calibration unsuccessful, restore backup?",Answer$
1450
END IF
1460
IF Answer$[1,1]="y" OR Answer$[1,1]="Y" THEN
1470
PRINT "Restoring saved data"
1480
OUTPUT @Count;":CAL:DATA ";Head1$&Cal_data$! Send calibration data
1490
END IF
1500
GOSUB Read_errors
1510
RETURN
1520
!
1530 Wait_for_input:!
1540
INPUT "Input signal ready?",Answer$
1550
WHILE Answer$[1,1]<>"Y" AND Answer$[1,1]<>"y"
1560
INPUT "Input signal ready?",Answer$
1570
END WHILE
1580
RETURN
1590
!
1600 Read_errors: !
1610
REPEAT
1620
OUTPUT @Count;"SYST:ERR?"
1630
ENTER @Count;Err_num,Err_string$
1640
IF Err_num<>0 THEN
1650
PRINT Err_num,Err_string$
1660
END IF
1670
UNTIL Err_num=0
1680
RETURN
1690 End:
!
1700
END
Chapter 3 Programming Your Universal Counter for Remote Operation
Programming Examples
To Perform a Time Interval Calibration (HP BASIC)
(Continued)
3-72
Programming Guide
Advertisement
Table of Contents
