10 '---------------------------------------------
20 ' Example 5: receiving binary array data
30 ' (from a Tektronix 7612D digitizer)
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  INIT=0 : ADDR%=21 : LEVEL%=0        ' Initialize as system controller
70  CALL INIT(ADDR%,LEVEL%)
80  TRANSMIT=3 : RARRAY=203 : RECEIVE=6
90  '
100 SDC$="REN LISTEN 1 SEC 0 SDC"       ' Selected device clear command
110 CALL TRANSMIT(SDC$,STATUS%)
120 '
130 CMD$="MTA DATA 'REP 0,A' END"       ' Start digitizing
140 CALL TRANSMIT(CMD$,STATUS%)
150 '
160 DIM DATA%(1024)                     ' array for data
170 CMD$="MLA TALK 1 SEC 0"             ' Set device to talk
180 CALL TRANSMIT(CMD$,STATUS%)
190 '
200 COUNT%=3 : LENGTH%=0 : S%=-1        ' read 3 byte header info
205 OFS%=VARPTR(DATA%(1))
210 CALL RARRAY(S%,OFS%,COUNT%,LENGTH%,STATUS%)
220 '
230 COUNT%=2048 : LENGTH%=0 : S%=-1     ' read 2048 bytes of waveform data
235 OFS%=VARPTR(DATA%(1))
240 CALL RARRAY(S%,OFS%,COUNT%,LENGTH%,STATUS%)
242 ' Note: the data is sent in a non-PC binary format
250 '
260 CALL TRANSMIT(SDC$,STATUS%)         ' clear device to stop it
270 END