110   ASSIGN @E5100 TO 717          !*INITIALIZATION
120   Scode=8                       ! [MODULE 1-1]
130   CLEAR @E5100                  !
140   OUTPUT @E5100;"DISAHIHB"      !
150   !
160   OUTPUT @E5100;"PRES"          ! ANALYZER PRESETTING
170                                 ! [MODULE 2-1]
180   !
190   OUTPUT @E5100;"CHAN1;ANAMODE GAINP;MEAS AR;FMT LOGM" ! CHAN/MEAS/FORMAT SETUP
200                                 ! [MODULE 2-5]
210   !
220   OUTPUT @E5100;"CENT 70MHZ"    ! SWEEP SETUP
230   OUTPUT @E5100;"SPAN 100KHZ"   ! [MODULE 2-6]
240   !
250   OUTPUT @E5100;"CALI RESP"     ! CAL MODE SETUP
260                                 ! [MODULE 2-7]
270   !
280   INPUT "CONNECT THRU, THEN PRESS [RETURN].",Dum$ ! CONNECTION & CAL MEASUREMENT
290   OUTPUT @E5100;"STANC?"        ! [MODULE 2-8]
300   ENTER @E5100;Tmp              !
310   !
340   OUTPUT @E5100;"RESPDONE?"     ! CALCULATION OF CAL COEFFICIENT
350   ENTER @E5100;Tmp              ! [MODULE 2-9]
360   !
400   DISP "RESPONSE CAL COMPLETED" ! DISPLAY MESSAGE
410   !
420   INPUT "CONNECT DUT, THEN PRESS [RETURN].",Dum$ ! PROMPT DEVICE CONNECTION
430                                 ! [MODULE 2-12]
440   !
450   OUTPUT @E5100;"SING"          !*TRIGGERING MEASUREMENT
460                                 ! [MODULE 2-13]
470   !
480   OUTPUT @E5100;"AUTO"          ! AUTO SCALING
490   !
500   OUTPUT @E5100;"OUTPMAX?"      ! DATA PROCESSING & TRANSFER
510   ENTER @E5100;Value            ! [MODULE 2-14]
520   PRINT "MAXIMUM VALUE:",Value,"dB"
530   !
540   END                           ! EXITING PROGRAM
550                                 ! [MODULE 2-15]
5000   !*************************************************
5010   !* DESCRIPTION:  Agilent E5100A/B Sample Program
5020   !*
5030   !* AUTHOR:       Agilent Technologies Japan, Ltd.
5040   !* CREATED:      05/01/2008
5050   !* PROGRAM NAME: BASIC_E
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   !*************************************************