1   !*************************************************
2   !* DESCRIPTION:	Agilent E5100A/B Sample Program
3   !*
4   !* AUTHOR:		Agilent Technologies Japan, Ltd.
5   !* CREATED:		05/29/2001
6   !* PROGRAM NAME:	FILE3_E
7   !* REVISION:		A.02.00
8   !*
9   !*     Copyright (c) Agilent Technologies,
10 !*              All rights reserved.
11 !*
12 !*
13 !*  Customer shall have the personal, non-
14 !* transferable rights to use, copy or modify
15 !* this SAMPLE PROGRAM for Customer's internal
16 !* operations. Customer shall use the SAMPLE
17 !* PROGRAM solely and exclusively for its own
18 !* purpose and shall not license, lease, market
19 !* or distribute the SAMPLE PROGRAM or
20 !* modification or any part thereof.
21 !*
22 !*  Agilent Technologies shall not be liable for
23 !* the quality, performance or behavior of the
24 !* SAMPLE PROGRAM. Agilent Technologies especially
25 !* disclaims that the operation of the SAMPLE
26 !* PROGRAM shall be uninterrupted or error free.
27 !* This SAMPLE PROGRAM is provided AS IS.
28 !*
29 !*  AGILENT TECHNOLOGIES DISCLAIMS THE IMPLIED
30 !* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
31 !* A PARTICULAR PURPOSE.
32 !*
33 !*  Agilent Technologies shall not be liable for
34 !* any infringement of any patent, trademark,
35 !* copyright or other proprietary rights by the
36 !* SAMPLE PROGRAM or its use. Agilent Technologies
37 !* does not warrant that the SAMPLE PROGRAM is
38 !* free from infringements or such rights of third
39 !* parties. However, Agilent Technologies will not
40 !* knowingly infringe or deliver a software that
41 !* infringes the patent, trademark, copyright or
42 !* other proprietary right of a third party.
43 !*
44 !*************************************************
45 !
110  !
120  !  File list
130  !
140  ASSIGN @Agte5100 TO 717
150  OUTPUT @Agte5100;"*rst"
160  !
170  Dir_instr(@Agte5100)
180  !
190  END
200  !
210  !  Dir_instr
220  !
230  SUB Dir_instr(@Agte5100)
240      DIM Stor_dev$[5],File_name$[13]
250      !
260      Stor_dev$="MEMO"
270      !
280      OUTPUT @Agte5100;"STOD";Stor_dev$
290      PRINT "["&Stor_dev$&"]: "
300      PRINT "Size[byte]    File Name"
310      PRINT "------------------------"
320      OUTPUT @Agte5100;"FNUM?"
330      ENTER @Agte5100;File_count
340      IF File_count>=1 THEN
350          FOR I=1 TO File_count
360              OUTPUT @Agte5100;"FNAME? ";I
370              ENTER @Agte5100;File_name$
380              OUTPUT @Agte5100;"FSIZE? """&File_name$&""""
390              ENTER @Agte5100;File_size
400              PRINT USING "XX,DDDDDD,XXXX,K";File_size,File_name$
410          NEXT I
420      END IF
430  SUBEND
