Topspeed_JPI/TS/MODBASE/SPKR.MOD

IMPLEMENTATION MODULE Spkr;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1992 PMI
 *  Green Bay, Wisconsin
 *  All rights reserved
 *  (414) 468-6040
 *
 *  $Header:   D:/logfiles/mods/spkr.mov   1.5   10 Mar 1991 15:32:56   coleb  $
 *
 *)


IMPORT FAPI;

IMPORT ErrorManager;

VAR
  Initialized : BOOLEAN;

  PROCEDURE Init();
    BEGIN
      IF Initialized THEN
        RETURN;
      ELSE
        Initialized := TRUE;
      END;
      ErrorManager.Init();
    END Init;


  PROCEDURE Calibrate();
    BEGIN
    END Calibrate;


  PROCEDURE Delay(pause : CARDINAL);
    BEGIN
      IF 0 # FAPI.DOSSLEEP( VAL(LONGINT, pause) ) THEN
      END;
    END Delay;


  PROCEDURE StartNoise(infreq : CARDINAL);
    BEGIN
      ErrorManager.WARN("Spkr.StartNoise not implimented");
    END StartNoise;

  PROCEDURE StopNoise();
    BEGIN
      ErrorManager.WARN("Spkr.StopNoise not implimented");
    END StopNoise;

  PROCEDURE TimedNoise(thefreq, thetime : CARDINAL);
    BEGIN
      IF 0 # FAPI.DOSBEEP( thefreq, thetime ) THEN
      END;
    END TimedNoise;

  PROCEDURE Noise(kind : SoundTypes; pitch : SoundLevels; duration :
        SoundTimes);
    VAR
      i, dur, p1, d1 : CARDINAL;
    BEGIN
      (*noise*)
      CASE pitch OF
        Low :
        p1 := 100;
      | Normal :
        p1 := 440;
      | High :
        p1 := 1100;
      | RealHigh :
        p1 := 1800;
      END;
      CASE duration OF
        Short :
        d1 := 10;
      | Medium :
        d1 := 30;
      | Long :
        d1 := 60;
      END;
      IF kind=Beep THEN
        TimedNoise(p1, d1);
      ELSE
        dur := d1 DIV 2;
        FOR i := 1 TO 2 DO
          TimedNoise(p1+500, dur);
          TimedNoise(p1, dur);
        END;
      END;
    END Noise;


BEGIN
  Initialized := FALSE;
  Init();
END Spkr.