Fluke 225C Programming Reference Manual page 25

'
'*****************
OPEN "COM1:1200,N,8,1,CS,DS,RB2048" FOR RANDOM AS #1
CLS
PRINT #1, "DS"
GOSUB Acknowledge
SLEEP 2
PRINT #1, "ID"
GOSUB Acknowledge
INPUT #1, ID$
PRINT ID$
CLOSE #1
END
'****************
'Use this subroutine after each command or query sent to the
'ScopeMeter. This routine inputs the acknowledge
'response from the ScopeMeter. If the response is non-zero,
'the previous command was not correct or was not correctly
'received by the ScopeMeter. Then an error message is
'displayed and the program is aborted.
Acknowledge:
INPUT #1, ACK
IF ACK <> 0 THEN
PRINT "Error "; ACK; ": ";
SELECT CASE ACK
CASE 1
PRINT "Syntax Error"
CASE 2
PRINT "Execution Error"
CASE 3
PRINT "Synchronization Error"
CASE 4
PRINT "Communication Error"
CASE IS < 1
PRINT "Unknown Acknowledge"
CASE IS > 4
PRINT "Unknown Acknowledge"
END SELECT
PRINT "Program aborted."
END
END IF
RETURN
'******************
Page 3.14
Begin example program
'Sends DEFAULT SETUP command.
'Input acknowledge from ScopeMeter.
'Delay (2 s) necessary after "DS".
'Sends the IDENTIFICATION query.
'Input acknowledge from ScopeMeter.
'Inputs identity data from ScopeMeter.
'Displays identity data.
Acknowledge subroutine
'Reads acknowledge from ScopeMeter.
End example program
*****************
******************
******************