Filter
Top Products
4-72 Agilent 87130A Operating and Service Manual
Remote Operation
Example Programs
330 ENTER @File;Pathnames$(*)
340 FOR I=0 TO 255 ! send path data
350 IF Pathnames$(I)<>”” THEN
360 ENTER @File;A$
370 OUTPUT@Sw;”ROUT:PATH:DEF”&Pathnames$(I)&”,”&A$&”;”
380 END IF
390 NEXT I
400 FOR I=0 TO 15 ! send group data
410 IF Gpnames$(I)<>”” THEN
420 OUTPUT
@Sw;”ROUT:GROUP:NAME”&VAL$(I+1)&”,”&Gpnames$(I)&”;”
430 IF Groupauto(I) THEN
440 OUTPUT @Sw;”ROUT:GROUP:AUTOSELECT:ON
“&Gpnames$(I)&”;”
450 ELSE
460 OUTPUT @Sw;”ROUT:GROUP:AUTOSELECT:OFF”
&Gpnames$(I)&”;”
470 END IF
480 IF Gptitles$(I)<>”” THEN OUTPUT
@Sw;”ROUT:GROUP:LABEL””&Gpnames$(I)&”,
“““&Gptitles$(I)&”””;”
490 J=0
500 WHILE Groupdata$(I,J)<>””
510 OUTPUT @Sw;”ROUT:GROUP:ADD
“&Gpnames$(I)&”,”&””&Groupdata$(I,J)&””&”;”
520 J=J+1
530 END WHILE
540 END IF
550 NEXT I590 IF Pathnames$(I)<>”” THEN
560 ENTER @File;Pathtitles$(*)
570 ENTER @File;Pathval(*)
580 FOR I = 0 to 255
590 IF Pathnames$(I)<>”” THEN I=0 TO 255
600 OUTPUT @Sw;”ROUT:PATH:LAB “&Pathnames$(I)&”,
“““&Pathtitles$(I)&”””;”
610 OUTPUT @Sw;”ROUT:PATH:VAL”&Pathnames$(I)&”,
“&VAL$(Pathval(I))&”;”
620 END IF
630 NEXT I
640 ASSIGN @File TO *