AC Flatness Adjustment Procedure (cont’d)
Example Program (cont’d)
4910 !
4920 SUB Security_code
4930 COM @Afg,@Dmm,@Pwr_mtr,@Analyzer,Secur e_code$
4940 COM /Flat/ INTEGER Num_points,Max_con
4950 CLEAR SCREEN
4960 OUTPUT @Afg;"*RST;*CLS"
4970 !
4980 Valid=0
4990 REPEAT
5000 Secure_code$="E1445A"
5010 INPUT "Enter your security code <default is ’E1445A’>",Secure_code$
5020 Secure_code$=TRIM$(Secure_code$)
5030 Check_sec_code(Valid)
5040 UNTIL Valid
5050 SUBEND
5060 !
5070 !
5080 SUB Check_sec_code(Valid)
5090 COM @Afg,@Dmm,@Pwr_mtr,@Analyzer,Secur e_code$
5100 COM /Flat/ INTEGER Num_points,Max_con
5110 DIM Message$[255]
5120 Valid=0
5130 CLEAR SCREEN
5140 DISP "Verifying security code..."
5150 WAIT 1
5160 OUTPUT @Afg;"CAL:SEC:STAT OFF,"&Secure_cod e$
5170 OUTPUT @Afg;"SYST:ERR?"
5180 ENTER @Afg;Code,Message$
5190 DISP
5200 !
5210 IF Code<>0 THEN
5220 BEEP 1000,.1
5230 PRINT "Invalid security code -- try again"
5240 OUTPUT @Afg;"*RST;*CLS"
5250 DISP "Press ’Continue’"
5260 PAUSE
5270 SUBEXIT
5280 ELSE
5290 Valid=1
5300 PRINT "Security code accepted"
5310 WAIT 1
5320 OUTPUT @Afg;"*RST;*CLS"
5330 END IF
5340 CLEAR SCREEN
5350 SUBEND
5360 !
5370 !
(Continued on next page)
Agilent E1445A Service Manual Adjustments 107