Chapter 3 Programming Your Universal Counter for Remote Operation

Programming Examples

 

To Perform a Time Interval Calibration (HP BASIC)

 

(Continued)

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

3-72

Programming Guide