Expanded description
| Topic |
Description |
| Name |
breakchar |
| Synopsis |
/infobank/programs/edit/breakchar/breakchar.for |
| Description |
Program to break lines at every occurrance of a specified character.
|
| Comments |
The specified character is not output,
nulls are converted to blanks,
blank lines are removed, and
maximum line length is 1000.
|
| Prompts |
Enter input file name:
Enter output file name:
Enter ASCII decimal number of line delimiter.
Ex: 10 = <LF> 12 = <FF> 13 = <CR>
|
| Subroutines |
openem (shared external)
howlong (shared external)
|
| Author |
Clint Steele 10/31/84 .for
|
| Reads |
read (5, *, err = 11) inum
read (90, 1, err = 40, end = 99)
* length, (aline(i), i = 1,length)
|
| Writes |
write (91, 2) (bline(i), i=1,kcount)
write (91, 2) (bline(i), i=1,kcount)
|
| Calls |
call openem (1,1)
call howlong (90, iprcnt)
call percentage (90)
call percentage (0)
|
|
