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

RESET
PIPES P1,PA2,PB2,PC2,PA3,PB3,PC3,PA4,PB4,PC4
VARIABLE REF=200,GRND
IDEF A 4
  SET IPIPE0 G 100
  SET IPIPE1 S0 100
  SET IPIPE2 S1 100
  SET IPIPE3 S2 100
  TIME 2500
  END
PDEF B
  AVERAGE (IP0, 100, P1)
  AVERAGE (IP1, 100, PA2)
  AVERAGE (IP2, 100, PB2)
  AVERAGE (IP3, 100, PC2)
  PVALUE (P1, GRND)
  THERMO (PA2, 1, 5000, 32767, GRND, PA3, REF)
  THERMO (PB2, 1, 5000, 32767, GRND, PB3, REF)
  THERMO (PC2, 1, 5000, 32767, GRND, PC3, REF)
  PA4 = (PA3*9/5) + 320
  PB4 = (PB3*9/5) + 320
  PC4 = (PC3*9/5) + 320
  MERGE (PA4,PB4,PC4, $BINOUT)
  END
START A, B
