Решение метрических задач по начертательной геометрии на ЭВМ. Воронков А.И - 33 стр.

          end;
  if kod=27 then
          exit;
 until kod=13;
end;

procedure niz;
begin
 setcolor(8);
 setbkcolor(15);
 outtextxy(10,340,' PgUp - предидущая страница   PgDn - следующая страница
Esc - выход ');
end;

procedure otkr_gr;
begin
 Gd:=0;
 InitGraph(GD,GM,'');
 setfillstyle(1,0);
 setcolor(black);
 bar(0,0,getmaxx,getmaxy);
end;

procedure nazv1;
begin
 settextstyle(0,0,1);
 setcolor(8);
 setbkcolor(15);
 outtextxy(80,14,'Решение основных задач способом замены плоскостей
проекций');
 Line(79,24,546,24);
end;

procedure nazv2;
begin
 settextstyle(0,0,1);
 setcolor(8);
 setbkcolor(15);
 outtextxy(70,14,'Решение основных задач способом плоскопараллельного
движения');
 Line(69,24,556,24);
end;

procedure t_ka(x,y:integer);
begin

                                                                         33