Програмування Pascal

inc (angle);

if angle >90 then angle:=90;

str (angle,st);

bar (120,30,140,40);

outtextxy (120,30,st);

end;

#80: begin

dec (speed);

if speed < 0 then speed:=0;

str (speed,st);

bar (120,20,145,29);

outtextxy (120,20,st);

end;

#72: begin

inc (speed);

if speed >100 then speed:=100;

str (speed,st);

bar (120,20,145,29);

outtextxy (120,20,st);

end;

end;

end;

#27: exit:=true;

#13: begin

shoot:=true;

setcolor (black);

line (33,195,33,185);

circle (33,183,1);

circle (33,183,2);

setcolor (yellow);