
7
Example
1
-
Checking
Communication
Function
This
program
sends
a
query
,
and
displays
the
reply
.
Listing
10
!-------------------------------
20
!
30
!
HP
8169A
Programming
Example
1
40
!
50
!
A
Simple
Communications
Check
60
!
70
!-------------------------------
80
!
90
!
Definitions
and
initialization
100
!
110
Pol=724
This
statement
sets
the
address
of
the
polarization
controller
.
The
rst
7
is
to
access
the
HP-IB
card
in
the
controller
,
the
24
is
it's
HP-IB
address
120
DIM
String$[50]
130
!
150
TABXY(5,10);"Programming
Example
1,
Simple
Communications"
160
!
170
!
Send
an
IDN
query
and
get
the
Identification
180
!
190
OUTPUT
Pol;"*IDN?"
200
ENTER
Pol;String$
210
TABXY(10,12);"Identification
:
";String$
220
!
230
END
7-2
Programming
Examples