Fluke 225C Programming Reference Manual page 49

Example:
'*****************
CLS
OPEN "COM1:1200,N,8,1,CS,DS,RB2048" FOR RANDOM AS #1
PRINT #1, "QM"
GOSUB Acknowledge
'*** Examines only the 7 inputs of the first reading <no> 11.
INPUT #1, reading.no
IF reading.no = 11 THEN
PRINT "Measurement reading 1";
ELSEIF reading.no = 21 THEN
PRINT "Measurement reading 2";
ELSE
PRINT "Unknown measurement reading";
END IF
INPUT #1, validity
IF validity = 1 THEN
PRINT " is valid"
ELSE
PRINT " is 'not' valid"
END IF
INPUT #1, source
PRINT "Source of reading
IF source = 1 THEN
PRINT "Voltage channel Input A"
ELSEIF source = 2 THEN
PRINT "Ampere channel Input B"
ELSEIF source = 3 THEN
PRINT "Input External"
ELSE
PRINT "Unknown source?"
END IF
INPUT #1, unit
PRINT "Unit of reading
IF unit = 1 THEN
PRINT "Volt"
ELSEIF unit = 2 THEN
PRINT "Ampere"
ELSEIF unit = 3 THEN
PRINT "Ohm"
ELSE
PRINT "Unexpected unit?"
END IF
INPUT #1, types
PRINT "Type of reading
IF types = 1 THEN
PRINT "Mean value"
ELSEIF types = 2 THEN
PRINT "Rms value"
ELSEIF types = 3 THEN
PRINT "True rms value"
ELSE
PRINT "Unexpected characteristic?"
Page 3.36
Begin example program
'Clears the PC screen.
'Queries for active readings
'Input acknowledge from ScopeMeter.
'1st <decimal_number>
'2nd <decimal_number>
'3rd <decimal_number>
= ";
'4th <decimal_number>
= ";
'5th <decimal_number>
= ";
*****************