Filter
Top Products
Alignment Procedures
102
Alignment Program (continued)
3650 !
3660 !
3670 Check_error:SUB Check_error ! Subprogram to check for errors
3680 COM /Ps/ Chan,Other_chan,@Ps,Model$[7]
3690 Clear_screen
3700 PRINT “Checking for errors”
3710 OUTPUT @Ps;”ERR?” ! Query supply for errors
3720 ENTER @Ps;Err ! Enter the error number
3730 IF Err>0 THEN ! If an error then print msg
3740 PRINT “Error”;Err;”occurred. Supply may not be calibrated”
3750 PRINT "The alignment program is stopped"
3760 STOP
3770 END IF
3780 SUBEND
3790 !
3800 !
3810 !
3820 Cal_mode_off:SUB Cal_mode_off ! Subprogram to turn off cal mod
3830 COM /Ps/ Chan,Other_chan,@Ps,Model$[7]
3840 Clear_screen
3850 PRINT "wait while calibration constants are stored"
3860 OUTPUT @Ps;”CMODE 0” ! Turn cal mode off, store data
3870 OUTPUT @Ps;”CLR” ! Clear supply
3880 Clear_screen
3890 PRINT "Calibration complete"
3900 SUBEND
3910 !