10  '---
20  ' Example 1: use of SEND & ENTER to communicate
30  ' with an instrument (Keithley 195 meter)
40  '---
42  DEF SEG=0           ' find IEEE interface code memory location
43  IEEE=PEEK(&H182)+256*PEEK(&H183)
44  IF IEEE=0 THEN PRINT "BASIC488 not installed" : STOP
45  DEF SEG=IEEE
60  INITIALIZE=0                ' offsets for subroutines
70  SEND=9 : ENTER=21
80  '
90  MY.ADDRESS%=21              ' make PC a controller at address 21
100 LEVEL%=0
110 CALL INITIALIZE(MY.ADDRESS%,LEVEL%)
120 '
130 ADDRESS%=16                 ' GPIB address of the instrument
140 S$="F0R0X"                  ' device command to set mode
150 CALL SEND(ADDRESS%,S$,STATUS%)
160 IF STATUS%<>0 THEN STOP     ' test for errors
170 '
180 R$=SPACE$(80)               ' set up room to receive data
190 CALL ENTER(R$,LENGTH%,ADDRESS%,STATUS%)
200 IF STATUS%<>0 THEN STOP
210 '
220 PRINT "Data received='";LEFT$(R$,LENGTH%);"'"
230 END