Gotoxy(2,i); write(‘ll’); gotoxy(x2-xl, i); writeC Ip; end

Gotoxy(2,y2-yl+l); write (‘«•’); for i:=3 to (x2-xl-l) do begin gotoxy(i, y2-yl+l); write (‘-‘); end;

Gotoxy(x2-xl, y2-yl+l); writeC’J"’); end;

Procedure new_win(xl, yl, x2/y2/col_f:byte); begin window(1/1/80,25); textbackground(O); textcolor(O); clrscr; textbackground(col_f); for i:=yl to y2 do for 5:=(xl+l) to (x2-l) do begin gotoxy(j, i); write(‘!’); end; END;

Procedure VvodWindow(xl, yl, x2/y2/coll/co!2:byte); Begin

Window(xl, yl, x2,y2);

TextColor(col2);



.