Agilent Technologies Infiniium DCA - Page 93

2-39
Sample Programs
BASIC Programming Examples
1150 !
1160 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1170 !
1180 !
1190 ! Subprogram name: Close
1200 ! Parameters: none
1210 ! Return value: none
1220 ! Description: This routine resets the interface, and closes all I/O paths.
1230 !
1240 !
1250 !
1260 SUB Close
1270 COM /Io/@Scope,@Path,Interface
1280
1290 RESET Interface
1300 ASSIGN @Path TO *
1310 SUBEND
1320 !
1330 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!