Filter
Top Products
Agilent 87130A Operating and Service Manual 4-69
Remote Operation
Example Programs
280 ENTER @Sw;A$
290 I=-1
300 WHILE LEN(A$)>0
310 Comma=POS(A$,”,”)
320 IF Comma=0 THEN
330 A$=A$&”,”
340 Comma=LEN(A$)
350 END IF
360 I=I+1
370 Groupnames$(I)=A$[1;Comma-1]
380 A$=A$[Comma+1]
390 END WHILE
400 OUTPUT @File;Groupnames$(*)
410 Max_group=I
420 FOR G=0 TO Max_group
430 OUTPUT @Sw;”ROUT:GROUP:LABEL? “&Groupnames$(G)
440 ENTER @Sw;Grouptitles$(G)
450 OUTPUT @Sw;”ROUT:GROUP:AUTOSELECT:ON? “&Groupnames$(G)
460 ENTER @Sw;Groupauto(G)
470 OUTPUT @Sw;”ROUT:GROUP:DEF? “&Groupnames$(G)
480 ENTER @Sw;A$
490 I=-1
500 WHILE LEN(A$)>0
510 Comma=POS(A$,”,”)
520 IF Comma=0 THEN
530 A$=A$”,”
540 Comma=LEN(A$)
550 END IF
560 I=I+1
570 Groupdata$(G,I)=A$[1;Comma-1]
580 A$=A$[Comma+1]
590 END WHILE
600 NEXT G
610 OUTPUT @File;Groupdata$(*)
620 OUTPUT @File;Groupauto(*)
630 OUTPUT @File;Grouptitles$(*)
640 OUTPUT @Sw;”ROUTE:PATH:CATALOG?”
650 ENTER @Sw;A$
660 I=-1