'------------------------------------------------
 ' Example 1: use of SEND & ENTER to communicate
 ' with an instrument (Keithley 195 meter)
 '------------------------------------------------
 '$INCLUDE: 'ieeeqb.bi'
 '
 CALL initialize (21,0)        ' make PC a controller at address 21
 '
 CALL send (16,"F0R0X",status%)
 IF status%<>0 THEN STOP     ' test for errors
 '
 R$=SPACE$(80)               ' set up room to receive data
 CALL enter(R$,length%,16,status%)
 IF status%<>0 THEN STOP
 '
 PRINT "Data received='";LEFT$(R$,length%);"'"
 END