{ (c) 1998 CREEQ <creeq@web.de> }
program Figur_bewegen;
uses Crt, Graph;
var
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;
  T : string;
  a, p : integer;
label 1;
begin
  clrscr;
  lowvideo;
  writeln(' Du kannst den Kreis auf dem Bildschirm mit den Tasten aus dem ');
  normvideo;
  write(' Numlockkasten ');
  lowvideo;
  writeln('bewegen.');
  highvideo;
  writeln;
  writeln('              >>> Achte darauf das die Num-Leuchte leuchte. <<<');
  readkey;
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;
  if ErrCode = grOk then
  a := 250;
  p := 250;
  begin
     repeat
     cleardevice;
     circle(a,p,10);
     T := readkey;
     if t = chr(56) then p := p-5;
     if t = chr(50) then p := p+5;
     if t = chr(54) then a := a+5;
     if t = chr(52) then a := a-5;
     if t = chr(27) then goto 1;
     if t = chr(55) then begin p := p-5; a := a-5; end;
     if t = chr(57) then begin p := p-5; a := a+5; end;
     if t = chr(49) then begin p := p+5; a := a-5; end;
     if t = chr(51) then begin p := p+5; a := a+5; end;
     if p = 10 then p := 15;
     if p = 470 then p := 465;
     if a = 10 then a := 15;
     if a = 630 then a := 625;
     until false;
  end;
1:end.
end.