Filter
Top Products
Agilent 87130A Operating and Service Manual 4-73
Remote Operation
Example Programs
650 END
660 SUB Getandsend_bmap(B$)
670 ! Loads a query response from file and outputs it as a
channel list
680 COM @File,@Sw
690 DIM Bitmap(7,31),A$[32767]
700 ENTER @File;Bitmap(*)
710 FOR I=0 TO 7
720 A$=””
730 FOR J=0 TO 31
740 IF Bitmap(I,J) THEN A$=A$&”,”&VAL$(100*(I+1)+J)
750 NEXT J
760 IF A$[1;1]=”,” THEN A$=A$[2]
770 IF A$<>”” THEN OUTPUT @Sw;B$&” (@”&A$&”);”
780 NEXT I
790 SUBEND
800 SUB Getandcalc_bmap(B$)
810 ! Loads a query response from a file and outputs it to
set drive/delay time
820 COM @File,@Sw
830 DIM Bitmap(7,31),A$[32767]
840 ENTER @File;Bitmap(*)
850 FOR I=0 TO 7
860 FOR J=0 TO 31
870 OUTPUT @Sw;B$&””&VAL$(Bitmap(I,J)&”,
(@”&VAL$(100*(I+1)+J)&”);”
880 IF Bitmap(I,J) THEN A$=A$&”,”&VAL$(100*(I+1)+J)
890 NEXT J
900 IF A$[1;1]=”,” THEN A$=A$[2]
910 NEXT I
920 SUBEND