Fluke 225C Programming Reference Manual page 92

'
'*****************
CLS
OPEN "COM1:1200,N,8,1,CS,DS,RB2048" FOR RANDOM AS #1
PRINT #1, "RP"
GOSUB Acknowledge
INPUT #1, nr.of.screens
IF (nr.of.screens < 0) OR (nr.of.screens > 100) THEN
PRINT nr.of.screens; "is not a valid number of replay screens"
ELSE
PRINT "Number of valid replay screens ="; nr.of.screens
END IF
INPUT #1, current.index
PRINT "Current replay screen number
PRINT "Previous replay screen number = "; current.index - 1
'
PRINT #1, "RP ";
PRINT #1, current.index - 1
GOSUB Acknowledge
PRINT
PRINT "View the previous Replay screen."
PRINT "Press any key on the PC keyboard to continue."
SLEEP
PRINT #1, "AT"
GOSUB Acknowledge
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; SCOPE mode selected?"
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
Page 3.64
Begin example program
'Clears the PC screen.
'Queries for number of valid replay
'screens + active screen number
'Input acknowledge from ScopeMeter.
'1st <decimal_number>
'2nd <decimal_number>
'Queries for the current replay screen
'Input acknowledge from ScopeMeter.
'Go back to normal mode (running)
'Input acknowledge from ScopeMeter.
Acknowledge subroutine
'Reads acknowledge from ScopeMeter.
*****************
= "; current.index
******************