?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

{.PA}
{*******************************************************************}
{*  SOURCE CODE MODULE: MC-MOD00                                   *}
{*  PURPOSE:            Micellaneous utilities an commands.        *}
{*******************************************************************}


procedure Msg(S: AnyString);
begin
  GotoXY(1,24);
  ClrEol;
  Write(S);
end;

procedure Flash(X: integer; S: AnyString;  Blink: boolean);
begin
  LowVideo;
  GotoXY(X,23);
  Write(S);
  if Blink then
  begin
    repeat
      GotoXY(X,23);
      Blink:=not Blink; if Blink then LowVideo else NormVideo;
      Write(S);
      Delay(175);
    until KeyPressed;
  end;
  NormVideo;
end;

procedure Auto;
begin
  AutoCalc:=not AutoCalc;
  if AutoCalc then  Flash(65,'AutoCalc: ON ',false)
  else Flash(65,'AutoCalc: OFF',false);
end;