Agilent Technologies 75000 Series C - Manual (Page 110)

AC Flatness Adjustment Procedure (cont’d)
Example Program (cont’d)
5380 Format_num:DEF FNFormat_num$(Value,Not_exp_max,INTEGER Length,Not_exp_img$,Exp_img$)
5390 INTEGER Diff
5400 SELECT ABS(Value)
5410 CASE <1.E-9,>=1.E+10
5420 IF NOT POS(Exp_img$,"ZZ") THEN
5430 OUTPUT String$ USING Exp_img$&"Z,#";Value
5440 ELSE
5450 OUTPUT String$ USING Exp_img$&",#";Value
5460 END IF
5470 CASE <1.E-4,>=Not_exp_max
5480 OUTPUT String$ USING Exp_img$&",#";Value
5490 CASE ELSE
5500 OUTPUT String$ USING Not_exp_img$&",#";Value
5510 END SELECT
5520 !
5530 Diff=Length-LEN(String$)
5540 IF Diff>0 THEN String$=RPT$(" ",Diff)&String$
5550 RETURN String$
5560 FNEND
5570 !
5580 !
108 Adjustments Agilent E1445A Service Manual