Fluke 225C Programming Reference Manual page 79

'
'
Resp.Count = Resp.Count + 1
PRINT "Signed.Samples
PRINT #4, "Signed.Samples
IF Signed.Samples = 1 THEN
PRINT "TRUE
ELSE
PRINT "FALSE
END IF
PRINT "Sample.Format
PRINT #4, "Sample.Format
IF MinMax.Samples = 0 THEN
PRINT "Single"
PRINT #4, "Single"
ELSEIF MinMax.Samples = 1 THEN
PRINT "Min/Max"
PRINT #4, "Min/Max"
ELSEIF MinMax.Samples = 2 THEN
PRINT "Min/Max/Ave"
PRINT #4, "Min/Max/Ave"
ELSE
PRINT "Unknown: "; OCT$(Sample.Format); " octal"
PRINT #4, "Unknown: "; OCT$(Sample.Format); " octal"
END IF
PRINT "Number of Sample.Bytes ="; Sample.Bytes
PRINT #4, "Number of Sample.Bytes ="; Sample.Bytes
'*****
'* Further calculation now that 'Signed.Samples' is determined
'*****
FOR j = 1 TO 2
IF expscale(j) > 127 THEN
expscale(j) = 256 - expscale(j)
FOR i = 1 TO expscale(j)
NEXT i
ELSE
FOR i = 1 TO expscale(j)
NEXT i
END IF
NEXT j
Y.Scale = YXscale#(1)
X.Scale = YXscale#(2)
PRINT "<y_scale>
PRINT "
'
FOR j = 1 TO 6
IF exponent(j) > 127 THEN
exponent(j) = 256 - exponent(j)
FOR i = 1 TO exponent(j)
NEXT i
ELSE
FOR i = 1 TO exponent(j)
NEXT i
"; : PRINT #4, "TRUE"
"; : PRINT #4, "FALSE"
YXscale#(j) = YXscale#(j) / 10
YXscale#(j) = YXscale#(j) * 10
<x_scale>
YXvalue#(j) = YXvalue#(j) / 10
YXvalue#(j) = YXvalue#(j) * 10
Page 3.53
= ";
= ";
= ";
= ";
'Negative exponent
'Positive exponent
="; Y.Scale,
="; X.Scale
'Negative exponent
'Positive exponent