Expanded description
| Topic |
Description |
| Name |
allcaps |
| Synopsis |
/infobank/programs/edit/allcaps/allcaps.for |
| Description |
Program to change a file all to capitals.
|
| Author |
Clint Steele 1/2/2008
|
| Reads |
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (91, '(a)') ALine(1:ALineLength)
|
| Calls |
call openem (1,1)
call changecase ('CAPITALS', ALine(1:ALineLength))
|
|