Filter
Top Products
4-70 Agilent 87130A Operating and Service Manual
Remote Operation
Example Programs
670 WHILE LEN(A$)>0
680 Comma=POS(A$,”,”)
690 IF Comma=0 THEN
700 A$=A$&”,”
710 Comma=LEN(A$)
720 END IF
730 I=I+1
740 Pathnames$(I)=A$[1;Comma-1]
750 A$=A$[Comma+1]
760 END WHILE
770 OUTPUT @File;Pathnames$(*)
780 Max_path=I
790 FOR P=0 TO Max_path
800 OUTPUT @Sw;”ROUT:PATH:LABEL? “&Pathnames$(P)
810 ENTER @Sw;Pathtitles$(P)
820 OUTPUT @Sw;”ROUT:PATH:VALUE? “&Pathnames$(P)
830 ENTER @Sw;Pathval(P)
840 OUTPUT @Sw;”ROUT:PATH:DEF? “&Pathnames$(P)
850 ENTER @Sw;A$
860 OUTPUT @File;A$
870 ! HAVE TO OUTPUT THIS DATA ON THE FLY, AS IT IS A
POTENTIALLY HUGE ARRAY
880 NEXT P
890 OUTPUT @File;Pathtitles$(*)
900 OUTPUT @File;Pathval(*)
910 ASSIGN @File TO *
920 END
930 SUB Read_bitmap(S$)
940 COM @Sw,@File
950 DIM Response(31),Bitmap(7,31)
960 FOR I=0 TO 7
970 OUTPUT @Sw;S$&”? (@”&VAL$(I+1)&”00:”&VAL$(I+1)&”31);”
980 ENTER @Sw;Response(*)
990 MAT Bitmap(I,*)= Response
1000 NEXT I
1010 OUTPUT @File;Bitmap(*)
1020 SUBEND