subroutine scrlin
      include 'screen.inc'
      call putcur(irow,icol,ivpage,ierror)
c   find last non-blank character in line
      if (line.eq.' ') then
         nchar=1
      else
         do 10 nchar=maxchr,1,-1
            if (line(nchar:nchar).ne.' ') then
               go to 20
            endif
 10         continue
 20      nchar=nchar+1
      endif
      call wchars(ivpage,line,nchar,icolor,ibckgd,iblink,ierror)
      return
      end