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

RESET
PIPE P1
VARIABLE REF=200
IDEF A 1
  SET IPIPE0 S0 100
  TIME 10000
  END
PDEF B
  AVERAGE (IPIPE0, 100, P1)
  THERMO (P1, 1, 5000, 32767, $BINOUT, REF)
  END
START A, B
