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

RESET
PIPES P1,P2,P3
VARIABLE REF=200,GRND
IDEF A 11
  SET IP0 G 100
  SET IP1 S0 100
  SET IP2 S1 100
  SET IP3 S2 100
  SET IP4 S3 100
  SET IP5 S4 100
  SET IP6 S5 100
  SET IP7 S6 100
  SET IP8 S7 100
  SET IP9 S8 100
  SET IP10 S9 100
  TIME 2000
  END
PDEF B
  AVERAGE (IP0, 100, P1)
  PVALUE (P1, GRND)
  BAVERAGE (IP(1,2,3,4,5,6,7,8,9,10), 10, 100, P2)
  THERMO (P2, 1, 5000, 32767, GRND, P3, REF)
  $BINOUT = (P3*9/5) + 320
  END
START A, B
