; Copyright (c) 1995,  Microstar Laboratories, Inc.
; All rights reserved.

RESET
PIPES P0,P1 LONG,P2,P3
IDEF A 1
  SET IP0 S0
  TIME 10000
  END
PDEF B
  AVERAGE (IP0, 10, P0)
  INTEGRATE (P0, P1)
  SQRT (P1, P2)
  DELTA (P0, P3)
  MERGE (P2, P3, $BINOUT)
  END
START A, B
