Calibration Procedures 3
Keysight E3631A Service Guide 95
1350 END IF
1360 NEXT I
1370 CLEAR SCREEN
1380 PRINT TABXY(10,5),"CURRENT CALIBRATION COMPLETE"
1390 ! Create a time stamp and output to power supply
1400 Cal_msg$_"Last Calibrated "$DATE$(TIMEDATE)&" "&TIME$(TIMEDATE)
1410 OUTPUT @Psup;"CAL:STR """;Cal_msg$;""""
1420 OUTPUT @Psup;"CAL:SEC:STAT ON, ";Sec_code$
1430 END