{ (c) 1998 CREEQ <creeq@web.de> }
program Maus;

uses CRT, MOUSE;

procedure links;
begin
  writeln('Linke Maustaste wurde gedrckt.');
  halt;
end;

procedure rechts;
begin
  writeln('Rechte Maustaste wurde gedrckt.');
  halt;
end;

procedure init;
begin
  clrscr;
  Mouse.init;
end;

procedure run;
begin
   mouse.on; 
   repeat
    case MOUSE.Key of
      LEFTBUTTON : links;
      RIGHTBUTTON : rechts;
    end; 
   until false;
end;

procedure done;
begin
  Mouse.off;
end;

begin
  init;
  run;
  done;
end.