Fluke 225C Programming Reference Manual page 86

'
'
'***** Sample values x,y (time,amplitude)
Time.Value = X.Zero
MinMax.Flag = MinMax.Samples
FOR i = 1 TO Nbr.Of.Samples
IF (Signed.Samples = 0) OR (Sample.Value&(i) < CLimit) THEN
'Positive value
Amplit.Value = Sample.Value&(i) * Y.Resol
ELSE
'Negative value
Amplit.Value = - ((CMaxim - Sample.Value&(i)) * Y.Resol)
END IF
IF MinMax.Samples = 2 THEN
IF MinMax.Flag = 2 THEN
ELSEIF MinMax.Flag = 1 THEN
ELSE
END IF
END IF
IF MinMax.Samples = 1 THEN
IF MinMax.Flag = 1 THEN
ELSE
END IF
END IF
IF MinMax.Samples = 0 THEN
PRINT #4, Time.Value; ","; Amplit.Value
Time.Value = Time.Value + X.Resol
END IF
NEXT i
CLOSE #4: RETURN
'
'******************
MinMax.Flag = MinMax.Flag - 1
PRINT #4, Time.Value; ","; Amplit.Value; ",";
MinMax.Flag = MinMax.Flag - 1
PRINT #4, Amplit.Value; ",";
MinMax.Flag = 2
PRINT #4, Amplit.Value
Time.Value = Time.Value + X.Resol
MinMax.Flag = 0
PRINT #4, Time.Value; ","; Amplit.Value; ",";
MinMax.Flag = 1
PRINT #4, Amplit.Value
Time.Value = Time.Value + X.Resol
End example program
Page 3.58
'Start at x-offset
'Switch flag (2, 1, 0)
'Min/Max/Ave waveform
'Min/Max waveform
'Single waveform
******************