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

  RESET
  PIPES P1,P2,P3,P4
  VARIABLES GRND, REF
  IDEF A 3
    SET IPIPE0 S7
    SET IPIPE1 G 100
    SET IPIPE2 S0 100
    TIME 2500
    END
  PDEF B
    AVERAGE (IP0, 100, P1)
    AVERAGE (IP1, 100, P2)
    AVERAGE (IP2, 100, P3)
    PVALUE (P2, GRND)
    P4 = P1 * 5000 / 32767
    PVALUE (P4, REF)
    THERMO (P3, 2, 5000, 32767, GRND, $BINOUT, REF)
    END
  START A, B
