Обеспечить движение качелей, качели я нарисовала...а вот движение.... Опции

[Svetka]

Код

setfillstyle(9,blue);
bar(0,0,640,75);
setcolor(14);
circle(45,40,30);
setfillstyle(1,14);
floodfill(45,40,14);
setcolor(6);
setlinestyle(0,brown,3);
line(220,100,380,100);
line(220,300,220,100);
line(380,300,380,100);
line(260,250,260,100);
line(340,250,340,100);
setfillstyle(1,darkgray);
bar(250,250,350,260);
setfillstyle(1,green);
Bar(0,300,640,360);

вот сами качели...помогите обеспечить движение качелей!! очень надо

[hiv]

Если бы весь код опубликовала - тогда проблем не было бы...
Можешь оформить тело прогаммы (там где begin ........ end.), что я тебе давал, в виде процедуры. Вызов процедуры вставь в код своей прогаммы там где меню (или где твои качели рисовались).

[Svetka]

вот мой весь код

Код

Program www;
uses crt,graph;
var c:char;
 menu:array[0..2]of string;
 item,i:integer;
procedure Zastavka;
var
GrDriver,grmode:integer;
begin
grdriver:=detect;
initgraph(grdriver,grmode, 'c:\TP\TP\BGI');
setfillstyle(9,blue);
bar(0,0,640,75);
setcolor(14);
circle(45,40,30);
setfillstyle(1,14);
floodfill(45,40,14);
setcolor(6);
setlinestyle(0,brown,3);
line(220,100,380,100);
line(220,300,220,100);
line(380,300,380,100);
line(260,250,260,100);
line(340,250,340,100);
setfillstyle(1,darkgray);
bar(250,250,350,260);
setfillstyle(1,green);
Bar(0,300,640,360);
readkey;
closegraph;
end;
procedure Zadacha;
begin
clrscr;
Writeln('zadacha=)');
readln;
end;
begin
 menu[0]:='1.Zastavka';
 menu[1]:='2.Zadacha';
 menu[2]:='3.Vyhod';
 item:=0;
 while true do begin
   clrscr;
   for i:=0 to 2 do begin
     if i=item
       then begin
         textcolor(15);
         textbackground(5);
       end
       else begin
         textcolor(7);
         textbackground(0);
       end;
     writeln(menu[i]);
   end;
   textbackground(0);
   case readkey of
     #0: case readkey of
       #72: if item>0 then item := item - 1;
       #80: if item<2 then item := item + 1;
     end;
     #13: case item of
       0: Zastavka;
       1: Zadacha;
       2: Halt;
     end;
     '1': Zastavka;
     '2': Zadacha;
     '3': Halt;
   end;
 end;
end.

вот куда надо изменё1нную часть вставить что б сначало меню показывалось?