Program Example for the HP-IB Interface
10
!FILE:
"IBPROG8"
20
!define
202 character string:
30 DIM
Learn_string$[202]
40 !create
401-point array to store trace:
50 INTEGER
Trace,a(l:401)
60 Analyzer=718
70
!set output format for two byte integers:
80 OUTPUT
Analyzer;"TDF
B;"
90
!ask spectrum analyzer for trace data:
100 OUTPUT
Analyzer;"TRA?;"
110
!send
trace to the computer:
120 ENTER Analyzer USING
"t,W";Trace,a(*)
130
!get learnstring from spectrum analyzer:
140 OUTPUT
Analyzer;"OL;"
150 ENTER Analyzer USING
"#,202A";Learn_string$
160
!create
file to store trace:
170 CREATE BDAT "STATE",4
180
!assign
path to the file:
190 ASSIGN
@File
TO "STATE"
200 !send
trace to the file:
210 OUTPUT
QFile;Learn,string$,Trace_a(*)
220 !return
output format to default mode:
230 OUTPUT
Analyzer;"TDF
P;"
240 !close
file:
250 ASSIGN @File TO
*
260 END
3-g Programming Topics