мышь в abc

Uses GRAPHabc,CRT,abcOBJECTS,vcl;
const esc=27;
 
 
VAR
    N,X2,Y2,I:INTeGeR;
    X1,Y1,R:real;
    key:char;
 
BeGIN
 lockdrawing;
 
key:=#0;
x1:=500;
y1:=200;
N:=0;
I:=1;
r:=0;
x2:=500;
y2:=170;
 
 
 
  WHILe key<>chr(esc) do
   BeGIN
 
 
   key:=readkey;
 
   case key of
 
   #77 : begin
         clrscr;
         r:=r-0.2;
         x1:=200*cos(r);
         y1:=300*cos(90-r);
         y1:=y1/2;
         x2:=round(x1)+300;
         y2:=round(y1)+200;
         circle(300,200,100);
         line(300,200,x2,y2);
 
         end;
         
   #75 : begin
   clrscr;
         r:=r+0.2;
         x1:=200*cos(r);
         y1:=300*cos(90-r);
         y1:=y1/2;
         x2:=round(x1)+300;
         y2:=round(y1)+200;
         circle(300,200,100);
         line(300,200,x2,y2);
 
         end;
 
   eND;
   redraw;
   eND;
 
     end.

Uses GRAPHabc,CRT,Events;
const esc=27;
VAR
    N,X2,Y2,I:INTeGeR;
    X1,Y1,R:real;
    key:char;
//событие нажатия левой кнопки мыши
procedure MouseDown(x,y,mb: integer);
var c:integer;
begin
  if mb=1 then
   begin
    if (x-300)*(x-300)+(y-200)*(y-200)<10000 then
     begin
      c:=RGB(random(255),random(255),random(255));
      setbrushcolor(c);
      floodfill(x,y,c);
 
     end;
   end;
end;
 
 
BeGIN
//вызов процедуры, происходит после нажатия кнопки, а затем любой клавиши
  //так программа написана
OnMouseDown:=MouseDown;
lockdrawing;
 
key:=#0;
x1:=500;
y1:=200;
N:=0;
I:=1;
r:=0;
x2:=500;
y2:=170;
 
 
 
  WHILe key<>chr(esc) do
   BeGIN
 
 
   key:=readkey;
 
   case key of
 
   #77 : begin
         clrscr;
         r:=r-0.2;
         x1:=200*cos(r);
         y1:=300*cos(90-r);
         y1:=y1/2;
         x2:=round(x1)+300;
         y2:=round(y1)+200;
         circle(300,200,100);
         line(300,200,x2,y2);
 
         end;
 
   #75 : begin
   clrscr;
         r:=r+0.2;
         x1:=200*cos(r);
         y1:=300*cos(90-r);
         y1:=y1/2;
         x2:=round(x1)+300;
         y2:=round(y1)+200;
         circle(300,200,100);
         line(300,200,x2,y2);
 
         end;
 
   eND;
   redraw;
   eND;
 
     end.

Uses GRAPHabc,CRT,Events;
const esc=27;
      left=77;
      right=75;
      
function RdKey:integer;
         var key:INTEGER;
begin
     key:=Ord(ReadKey);
     if key=0 then key:=256+Ord(ReadKey);
     RdKey:=Key;
end;
 
type Tline=class
x,y,color:integer;
 constructor Create(x0,y0,c0:integer);
 procedure show;
 procedure hide;
 procedure move(newx,newy:integer);
 procedure HandleEvent(key:integer; r:real);
end;
 
constructor Tline.create(x0,y0,c0:integer);
begin x:=x0; y:=y0; color:=c0; end;
 
procedure Tline.show;
  begin
   SetPenColor(color);
   SetBrushColor(clWhite);
   Line(300,200,x,y);
end;
 
procedure Tline.Hide;
 begin
  SetPencolor(clWhite);
  SetBrushColor(color);
  Line(300,200,x,y);
end;
 
procedure Tline.move(newx,newy:integer);
 begin
  Hide; x:=newx; y:=newy; show;
end;
 
//ñîáûòèå íàæàòèÿ ëåâîé êíîïêè ìûøè
procedure MouseDown(x,y,mb: integer);
var c:integer;
begin
  if mb=1 then
   begin
    if (x-300)*(x-300)+(y-200)*(y-200)<10000 then
     begin
      c:=RGB(random(255),random(255),random(255));
      setbrushcolor(c);
      floodfill(x,y,c);
 
     end;
   end;
end;
 
procedure Tline.HandleEvent(key:integer; r:real);
 begin
 case key of
    Left:begin
         r:=r-0.2;
         x:=round(200*cos(r))+300;
         y:=round((300*cos(90-r))/2)+200;
         move(x,y);
         end;
  Right:begin
         r:=r+0.2;
         x:=round(200*cos(r))+300;
         y:=round((300*cos(90-r))/2)+200;
         move(x,y);
         end;
  end;
end;
 
VAR
    key:integer;
    A:Tline;
    r:real;
 
 
 
BeGIN
setWindowCaption('Õàáèðîâ ÇÏÈ-104');
circle(300,200,100);
OnMouseDown:=MouseDown;
lockdrawing;
A:=Tline.create(500,170,clBlue);
a.show;
repeat
 
key:=rdKey;
A.handleEvent(key,r);
until key=esc;
redraw;
end.