110   ASSIGN @E5100 TO 800;FORMAT ON! IBASIC INITIALIZATION
120  ASSIGN @Dt TO 800;FORMAT OFF !
130  Scode=8                      !
140  CLEAR @E5100                 !
150  !
160  DIM Dat(1:201),Stim(1:201)   ! VARIABLE DECLARATION
170  !
180  OUTPUT @E5100;"PRES"         ! MEASUREMENT SETUP
190  OUTPUT @E5100;"CHAN1;ANAMODE GAINP;MEAS AR;FMT LOGM"
200  INPUT "Enter center frequency (MHz)",F_cent
210  INPUT "Enter frequency span (kHz)",F_span
220  OUTPUT @E5100;"CENT ";F_cent*1.E+6
230  OUTPUT @E5100;"SPAN ";F_span*1000
240  !
250  EXECUTE "SING"               ! TRIGGERING MEASUREMENT
260                               ! [MODULE 2-12]
270  !
280  OUTPUT @E5100;"POIN?"        ! GETTING DATA USING BINARY TRANSFER
290  ENTER @E5100;Nop             !
300  OUTPUT @E5100;"FORM3"        !
310  OUTPUT @E5100;"OUTPRFORM?"   !
320  ENTER @E5100 USING "#,8A";Header$
330  ENTER @Dt;Dat(*)             !
340  ENTER @E5100 USING "#,1A";End$
350  !
360  OUTPUT @E5100;"OUTPSTIM?"    ! TRANSFER STIMULUS VALUE IN BINARY
370  ENTER @E5100 USING "#,8A";Header$
380  ENTER @Dt;Stim(*)            !
390  ENTER @E5100 USING "#,1A";End$
400  !
410  ASSIGN @Dt TO *              ! DISPLAY TRANSFERED DATA
420  FOR I=1 TO Nop               !
430  PRINT "POINT";I,Stim(I);"[Hz]",Dat(I);"[dB]"
440  NEXT I                       !
450  !
460  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: BINARY
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   !*************************************************