require "sys/ioctl.ph";      # (or equivalent)

ioctl(TTY,&TIOCGETP,$params);
($ispeed,$ospeed) = unpack('cc',$params);

require "termcap.pl";

&Tgetent($ENV{'TERM'}); # sets $TC{'cm'}, etc.
&Tputs(&Tgoto($TC{'cm'},$col,$row), 0, 'FILEHANDLE');
&Tputs($TC{'dl'},$affcnt,'FILEHANDLE');