Agilent Technologies 87130A manual Remote Operation, Example Programs

Remote Operation

Example Programs

280ENTER @Sw;A$

290I=-1

300WHILE LEN(A$)>0

310Comma=POS(A$,”,”)

320IF Comma=0 THEN

330A$=A$&”,”

340Comma=LEN(A$)

350END IF

360I=I+1

370Groupnames$(I)=A$[1;Comma-1]

380A$=A$[Comma+1]

390END WHILE

400OUTPUT @File;Groupnames$(*)

410Max_group=I

420FOR G=0 TO Max_group

430OUTPUT @Sw;”ROUT:GROUP:LABEL? “&Groupnames$(G)

440ENTER @Sw;Grouptitles$(G)

450OUTPUT @Sw;”ROUT:GROUP:AUTOSELECT:ON? “&Groupnames$(G)

460ENTER @Sw;Groupauto(G)

470OUTPUT @Sw;”ROUT:GROUP:DEF? “&Groupnames$(G)

480ENTER @Sw;A$

490I=-1

500WHILE LEN(A$)>0

510Comma=POS(A$,”,”)

520IF Comma=0 THEN

530	A$=A$”,”
540	Comma=LEN(A$)

550END IF

560I=I+1

570Groupdata$(G,I)=A$[1;Comma-1]

580A$=A$[Comma+1]

590END WHILE

600NEXT G

610OUTPUT @File;Groupdata$(*)

620OUTPUT @File;Groupauto(*)

630OUTPUT @File;Grouptitles$(*)

640OUTPUT @Sw;”ROUTE:PATH:CATALOG?”

650ENTER @Sw;A$

660I=-1

Agilent 87130A Operating and Service Manual 4-69