Fluke 225C Programming Reference Manual page 59

GOSUB Acknowledge
CLOSE
PRINT "Program aborted."
END
END IF
BytesToReceive& = BytesToReceive& - BlockLength&
RETURN
'****************
'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
CLOSE
PRINT "Program aborted."
END
END IF
RETURN
'******************
'the block again)
'Input acknowledge from ScopeMeter.
'Close all files.
Acknowledge subroutine
'Reads acknowledge from ScopeMeter.
'Close all files.
End example program
******************
******************