fillerup
/infobank/programs/edit/fillerup/fillerup.for
Program to fill blank values with preceding values.
Clint Steele 11/9/92
read (5, '(i)') startcol read (5, '(i)') endcol read (90, '(q,a)', end = 99) thislength, thisline read (90, '(q,a)', end = 99) thislength, thisline
write (91, '(a)') thisline(1:thislength) write (91, '(a)') thisline(1:thislength)
call openem (1,-1) call showlines (90, 5)