USGS InfoBank program -- titlecase

titlecase

  Subroutine to verify that records in a file are in title case.


       

              write (Message, 22) InFile(1:InFileLength),
     *                'File must be in title case', Loop
              write (Message, 22) InFile(1:InFileLength),
     *                'File must be in title case', Loop