Expanded description
| Topic |
Description |
| Name |
reformata |
| Synopsis |
/infobank/programs/refmt/reformata/reformata.for |
| Description |
Program to reformat alphanumeric records.
Accepts up to 25 alpha fields.
|
| Author |
Clint Steele .for 1/9/86
Clint Steele 8/1/90 Enhanced prompting info.
|
| Reads |
read (5, *) numin
read (5, *) in (1, icount), in (2, icount), out (icount)
read (90, 1, end = 99) len, aline(1:len)
|
| Writes |
write (91, 2) (aline (in (1, j) :in (2, j) ), j = 1, numin)
|
| Calls |
call openem (1, -1)
call showlines (90, 1)
|
|
