#-h- addrias.r       1384  asc  10-nov-80 13:35:29  [002,100]
#-h- addr.q          1052  asc  10-nov-80 13:35:17  [002,100]
 subroutine main

 character buffer(512), buf(MAXLINE), uic(25)
 integer int, fdb, i, j, k, l, m, n, first, last, start, stop, group, member

 equivalence (first, buffer(1)), (last, buffer(3))
 integer open, getfdb, gets

 string accnt "LB0:[1,100]PDSUPF.DAT"
 string sixbl "      "

 int = open(accnt, READ)
 if (int == ERR)
    call cant(accnt)
 fdb = getfdb(int)
 junk = gets(fdb, buffer, 512)
 start = first
 stop = last
 for (i=2; i < start; i=i+1)
    junk = gets(fdb, buffer, 512)
 for ( ; i <= stop; i=i+1)
    {
    junk = gets(fdb, buffer, 512)
    call r50asc(12, buffer, buf)
    for (j=12; buf(j) != BLANK & j > 1; j=j-1)
	;
    for ( ; j <= 15; j=j+1)
	buf(j) = BLANK
    call jcopy(buffer, 41, 4, buf, j)
    call cpybyt(buffer(9), member, 1, 0)
    call cpybyt(buffer(10), group, 1, 0)
    call fmtuic(group, member, uic)
    call stcopy(uic, 1, buf, j)
    call stcopy(sixbl, 1, buf, j)
    call scopy(uic, 1, buf, j)
    call fold(buf)
    call putlin(buf, STDOUT)
    call putch(NEWLINE, STDOUT)
    }
 call close(int)

 return
 end
#-h- jcopy.q          208  asc  10-nov-80 13:35:17  [002,100]
 subroutine jcopy(in, start, n, out, i)

 character in(ARB), out(ARB)
 integer start, n, i, j, k

 k = start
 for (j=1; j <= n; j=j+1)
    {
    out(i) = in(k)
    k = k + 1
    i = i + 1
    }

 return
 end