#-h- pack.r           458 asc 29-oct-80 09:26:37 tools
#-h- main             403 asc 29-oct-80 09:26:30 tools
 define(RIGHT_MARGIN,80)

 subroutine main

 character buf(MAXLINE), word(MAXLINE), obuf(MAXLINE)
 integer i, nxtcol
 integer getlin, getwrd

 call inpack(nxtcol, RIGHT_MARGIN, obuf, STDOUT)
 while (getlin(buf, STDIN) != EOF)
    {
    i = 1
    while (getwrd(buf, i, word) > 0)
	call dopack(word, nxtcol, RIGHT_MARGIN, obuf, STDOUT)
    }
 call flpack(nxtcol, RIGHT_MARGIN, obuf, STDOUT)

 return
 end