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); write(‘n’); end;

Procedure new_win(xlf yl/x2/y2/col_f:byte); begin

Window(1/1/80/25); textbackground(O); textcolor(O); clrscr;

Textbackground^o^f); for i:=yl to y2 do



.