Agilent Technologies 86100A Manuel de service Page 103

  • Télécharger
  • Ajouter à mon manuel
  • Imprimer
  • Page
    / 364
  • Table des matières
  • MARQUE LIVRES
  • Noté. / 5. Basé sur avis des utilisateurs
Vue de la page 102
2-49
Sample Programs
Listings of the Sample Programs
940 SUBEND
950 !
960 !
970 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
980 !
990 ! Subprogram name: Get_lrnstr
1000 ! Parameters: none
1010 ! Return value: none
1020 ! Description: This subprogram loads a learnstring from the
1030 ! file "Lrn_strg" to the scope.
1040 !
1050 !
1060 SUB Get_lrnstr
1070 COM /Io/@Scope,@Path,Interface
1080 COM /Variables/Max_length
1090 DIM Setup$[14000]
1100 ENTER @Path,1;Setup$
1110 OUTPUT @Scope USING "#,-K";Setup$
1120 OUTPUT @Scope;":RUN"
1130 SUBEND
1140 !
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 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Vue de la page 102
1 2 ... 98 99 100 101 102 103 104 105 106 107 108 ... 363 364

Commentaires sur ces manuels

Pas de commentaire