'---------------------------------------------
' Example 5: receiving binary array data
' (from a Tektronix 7612D digitizer)
'---------------------------------------------
'$INCLUDE: 'ieeeqb.bi'
 DIM DATA%(1024)                     ' array for data

 CALL initialize (21,0)
 '
 SDC$="REN LISTEN 1 SEC 0 SDC"       ' Selected device clear command
 CALL TRANSMIT(SDC$,STATUS%)
 '
 CALL TRANSMIT("MTA DATA 'REP 0,A' END",STATUS%)    ' start digitizing
 '
 ' Set device to talk
 CALL TRANSMIT("MLA TALK 1 SEC 0",STATUS%)
 '
 CALL RARRAY(DATA%(1),3,LENGTH%,STATUS%)   ' read header
 '
 ' read 2048 bytes of waveform data
 CALL RARRAY(DATA%(1),2048,LENGTH%,STATUS%)
 ' Note: the data is sent in a non-PC binary format
 '
 CALL TRANSMIT(SDC$,STATUS%)         ' clear device to stop it
 END