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

RESET
PIPES P1,P2,P3,P4,P5,P6,P7
IDEF A 3
  SET IP0 S256
  SET IP1 S0
  SET IP2 S1
  TIME 1000
  END
PDEF B
  FFT (0, 10, 0, IP1, P4, P5)
  FFT (0, 10, 0, IP2, P6, P7)
  TFUNCTION1 (P4, P5, P6, P7, 100, P1, P2)
  P3 = (P2 * 180) / 32767
  MERGE (P1, P3, $BINOUT)
  END
START A,B
