HP E1340A User Manual page 35

CALL IOOUTPUTS(ADDR&, "*CLS;*OPC?", 10)
CALL IOENTER(ADDR&, Into!)
END SUB
SUB RunQuery
Max.Length% = 20: Actual.Length = 0
Info$ = SPACE$(Max.Length%)
' Query segment name
CALL IOOUTPUTS(ADDR&, "SOUR:LIST:SEGM:SEL?", 19)
CALL IOENTERS(ADDR&, Info$, Max.Length%, Actual.Length%)
Info$ = LEFT$(Info$, Actual.Length%)
PRINT : PRINT "Segment Name: "; Info$
END SUB
SUB SendData (Commands$, WaveSeg!(), NumSize%)
Endline$ = CHR$(13) + CHR$(10)
' First disable EOI and EOL to send continuous data to the AFG; send last command
CALL IOEOI(ISC&, 0)
CALL IOEOL(ISC&, " ", 0)
CALL IOOUTPUTS(ADDR&, Commands$, LEN(Commands$))
' Re-enable EOL and EOI for normal HP-IB operation; then send the data
CALL IOEOI(ISC&, 1)
CALL IOEOL(ISC&, Endline$, LEN(Endline$))
CALL IOOUTPUTA(ADDR&, SEG WaveSeg!(1), NumSize%)
END SUB
35 Getting Started with the HP E1340A Chapter 1