10 ASSIGN @Agt8753 TO 717
40 ! Initialize the system
50 OUTPUT @Agt8753;":SYST:PRES;*OPC?"
60 ENTER @Agt8753;Reply
65 !
70 OUTPUT @Agt8753;":DISP:SPL D1_2"
80 OUTPUT @Agt8753;":CALC1:PAR:COUN 1;:CALC2:PAR:COUN 1"
90 OUTPUT @Agt8753;":DISP:WIND1:SPL D1;:DISP:WIND2:SPL D1"
95 !
100 ! Set up measurement and display
120 !OUTPUT @Agt8753;"COUCOFF"
130 !
140 ! Setup Channel 1
150 OUTPUT @Agt8753;":DISP:WIND1:ACT;:CALC1:PAR1:SEL"
160 !OUTPUT @Agt8753;"AUXCOFF"
170 OUTPUT @Agt8753;":CALC1:PAR1:DEF S11"
180 OUTPUT @Agt8753;":CALC1:FORM MLOG"
190 OUTPUT @Agt8753;":INIT1:CONT OFF"
200 !
240 ! Setup Channel 2
250 OUTPUT @Agt8753;":DISP:WIND2:ACT;:CALC2:PAR1:SEL"
260 !OUTPUT @Agt8753;"AUXCOFF"
270 OUTPUT @Agt8753;":CALC2:PAR1:DEF S22"
280 OUTPUT @Agt8753;":CALC2:FORM MLOG"
290 OUTPUT @Agt8753;":INIT2:CONT OFF"
300 !
340 ! Dual channel display
350 !OUTPUT @Agt8753;"DUACON"
360 !
370 ! Request start and stop frequency
380 DIM F_start(1:2),F_stop(1:2)
390 INPUT "ENTER START FREQUENCY (Hz) for S11:",F_start(1)
400 INPUT "ENTER STOP FREQUENCY (Hz) for S11:",F_stop(1)
410 INPUT "ENTER START FREQUENCY (Hz) for S22:",F_start(2)
420 INPUT "ENTER STOP FREQUENCY (Hz) for S22:",F_stop(2)
430 !
440 ! Program the analyzer settings
450 FOR I=1 TO 2
460 OUTPUT @Agt8753;":DISP:WIND"&VAL$(I)&":ACT;:CALC"&VAL$(I)&":PAR1:SEL"
470 OUTPUT @Agt8753;":SENS"&VAL$(I)&":FREQ:STAR ";F_start(I)
480 OUTPUT @Agt8753;":SENS"&VAL$(I)&":FREQ:STOP";F_stop(I)
490 NEXT I
500 !
510 ! Single sweep measurement
520 OUTPUT @Agt8753;":INIT1;:INIT2;*OPC?"
530 ENTER @Agt8753;Reply
540 !
550 !
560 ! Autoscale the displays
570 OUTPUT @Agt8753;":DISP:WIND1:ACT;:CALC1:PAR1:SEL;:DISP:WIND1:TRAC1:Y:AUTO"
580 OUTPUT @Agt8753;":DISP:WIND2:ACT;:CALC2:PAR1:SEL;:DISP:WIND2:TRAC1:Y:AUTO"
590 !
600 LOCAL @Agt8753
610 END
5000   !*****************************************************
5010   !* DESCRIPTION:  Agilent E5070B/E5071B Sample Program
5020   !*
5030   !* AUTHOR:       Agilent Technologies Japan, Ltd.
5040   !* CREATED:      11/13/2002
5050   !* PROGRAM NAME: sample8753_done.tx
5060   !* REVISION:     A.01.00
5070   !*
5080   !*   (c) Copyright 2002 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   !*****************************************************