110  ASSIGN @E5100 TO 800                      ! IBASIC INITIALIZATION
120  CLEAR @E5100                              !
130  !
140  OUTPUT @E5100;"PRES"                      ! MEASUREMENT SETUP
150  OUTPUT @E5100;"CHAN1;HOLD"                !
160  OUTPUT @E5100;"ANAMODE ZTRAN;MEAS AR;FMT MAGZP;SCAY 1"
170  OUTPUT @E5100;"COUC OFF"                  !
180  OUTPUT @E5100;"DUAC OFF"                  !
190  OUTPUT @E5100;"POIN 201"                  !
200  OUTPUT @E5100;"IFBW 4KHZ"                 !
210  OUTPUT @E5100;"POWE 0"                    !
240  OUTPUT @E5100;"DISAHIHB"                  !
250  !
260  INPUT "Center Frequency (kHz)",Center     ! SWEEP CONDITION ENTRY
270  Center=Center*1000.                       !
280  INPUT "Frequency Span (kHz)",Span         !
290  Span=Span*1000.                           !
300  OUTPUT @E5100;"CENS ";Center,Span         !
310  !
320  GOSUB Thru_cal                            ! GOTO CAL ROUTINE
330  !
340  EXECUTE "ANAOCH1"                         ! WAVEFORM ANA SETUP
350  EXECUTE "ANAODATA"                        !
360  EXECUTE "ANARFULL"                        !
370  !
380  WRITEIO 8,0;.05                           ! MEASUREMENT
390  EXECUTE "THRR"                            !
400  LOOP                                      !
410    DISP "Connect Device and Press Continue."
420    PAUSE                                   !
430    DISP "MEASURING"                        !
440    EXECUTE "SING"                          !
450    EXECUTE "OUTPCERR?"                     !
460    Rr=READIO(8,0)                          !
470    Fr=READIO(8,1)                          !
480    Ra=READIO(8,2)                          !
490    Fa=READIO(8,3)                          !
500    Rpl_left=READIO(8,4)                    !
510    Rpl_center=READIO(8,5)                  !
520    Rpl_right=READIO(8,6)                   !
530    GOSUB Printing                          !
540  END LOOP                                  !
550  STOP                                      !
560  !
570 Printing:                                  ! DISPLAY PARAMETERS
580  PRINT USING "5A,6D.3D,6A";"Fr ";Fr/1000.;"(kHz)"
590  PRINT USING "5A,6D.3D,6A";"Rr ";Rr;" (ohm)"
600  PRINT USING "5A,6D.3D,6A";"Fa ";Fa/1000.;"(kHz)"
610  PRINT USING "5A,6D.3D,7A";"Ra ";Ra/1000;" (kohm)"
620  PRINT USING "12A,3D.3D,5A";"Ripple LEFT ";Rpl_left;" (dB)"
630  PRINT USING "14A,3D.3D,5A";"Ripple CENTER ";Rpl_center;" (dB)"
640  PRINT USING "13A,3D.3D,5A";"Ripple RIGHT ";Rpl_right;" (dB)"
650  RETURN                                    !
660  !
670 Thru_cal:                                  ! THRU CALIBRATION
680   DISP "Connect THRU standard and Press Continue."
690  PAUSE                                     !
700  DISP                                      !
710  OUTPUT @E5100;"CALI RESP"                 !
750  OUTPUT @E5100;"STANC?"                    !
780  ENTER @E5100;Tmp                          !
800  OUTPUT @E5100;"RESPDONE?"                 !
810  ENTER @E5100;Tmp                          !
830  RETURN                                    !
840  !
850  END                                       ! END OF PROGRAM
5000   !*************************************************
5010   !* DESCRIPTION:  Agilent E5100A/B Sample Program
5020   !*
5030   !* AUTHOR:       Agilent Technologies Japan, Ltd.
5040   !* CREATED:      05/01/2008
5050   !* PROGRAM NAME: CER_RES
5060   !* REVISION:     A.02.01
5070   !*
5080   !*     Copyright (c) Agilent Technologies,
5090   !*              All rights reserved.
5100   !*
5110   !*
5120   !*  Customer shall have the personal, non-
5130   !* transferable rights to use, copy or modify
5140   !* this SAMPLE PROGRAM for Customer's internal
5150   !* operations. Customer shall use the SAMPLE
5160   !* PROGRAM solely and exclusively for its own
5170   !* purpose and shall not license, lease, market
5180   !* or distribute the SAMPLE PROGRAM or
5190   !* modification or any part thereof.
5200   !*
5210   !*  Agilent Technologies shall not be liable for
5220   !* the quality, performance or behavior of the
5230   !* SAMPLE PROGRAM. Agilent Technologies especially
5240   !* disclaims that the operation of the SAMPLE
5250   !* PROGRAM shall be uninterrupted or error free.
5260   !* This SAMPLE PROGRAM is provided AS IS.
5270   !*
5280   !*  AGILENT TECHNOLOGIES DISCLAIMS THE IMPLIED
5290   !* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
5300   !* A PARTICULAR PURPOSE.
5310   !*
5320   !*  Agilent Technologies shall not be liable for
5330   !* any infringement of any patent, trademark,
5340   !* copyright or other proprietary rights by the
5350   !* SAMPLE PROGRAM or its use. Agilent Technologies
5360   !* does not warrant that the SAMPLE PROGRAM is
5370   !* free from infringements or such rights of third
5380   !* parties. However, Agilent Technologies will not
5390   !* knowingly infringe or deliver a software that
5400   !* infringes the patent, trademark, copyright or
5410   !* other proprietary right of a third party.
5420   !*
5430   !*************************************************