Procedure Chapka; Begin

New_win(1,1,80,25,1);

Wind1(2,19,78,24,3,0,,yl,1);

GOIOXY(4,2);



.