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

  RESET
  PIPES P0,P1,P2
  VARIABLES SETP=450, P=-100, I=-50, D=-50
  VARIABLES REF=200, GRND
  IDEF A 2
    SET IP0 G 100
    SET IP1 S0 100
    TIME 5000
    END
  PDEF B
    AVERAGE (IP0, 100, P0)
    PVALUE (P0, GRND)
    THERMO (IP1, 1, 5000, 32767, GRND, P1, REF)
    PID (P1, SETP, P,1000, I,1000, D,1000, P2)
    PWM (P2, -5000, 5000, 10, 0, 0, OP0)
    END
  ODEFINE C 1
    SET OP0 B
    TIME 10000
    END
  START A, B, C
