HP 132A, 53131A manual Else

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