{$D-}

Unit BBSAlarm;



interface

{***************************************************************************}

{***************************************************************************}



var

  AlarmHour: byte;

  AlarmMinute: byte;

  AlarmOn: boolean;



Function  AlarmCheck: boolean;

Procedure AlarmInit;

Procedure AlarmToggle;



implementation

{***************************************************************************}

{***************************************************************************}

Uses

  Dos,

  Glob;



Function AlarmCheck: boolean;

{***************************************************************************}

var

  DayOfWeek,

  Hour,

  Min: word;

  Temp: boolean;

begin

  Temp := false;

  GetDate(DumWord, DumWord, DumWord, DayOfWeek);

  GetTime(Hour, Min, DumWord, DumWord);

  if DayOfWeek in [1..5] then

    if Hour = AlarmHour then

      if Min = AlarmMinute then

        begin

          write(Beep);

          Temp := true;

        end;

  AlarmCheck := Temp;

end;



Procedure AlarmInit;

{***************************************************************************}

begin

  AlarmOn := true;

  AlarmHour := 6;

  AlarmMinute := 40;

end;



Procedure AlarmToggle;

{***************************************************************************}

begin

  AlarmOn := not(AlarmOn);

end;



{***************************************************************************}

{***************************************************************************}

{***************************************************************************}



begin

  AlarmInit;

end.