USGS InfoBank program -- caps

caps

  Subroutine to verify that a record is all CAPS.


       

              write (Message, 22) InFile(1:InFileLength),
     *            'Replace tabs with spaces', Loop
              write (Message, 22) InFile(1:InFileLength),
     *            'Remove PC Carriage returns', Loop
              write (Message, 22) InFile(1:InFileLength),
     *                'File must be in caps', Loop
              write (Message, 22) InFile(1:InFileLength),
     *                'Change Lowercase to Caps', Loop
              write (Message, 22) InFile(1:InFileLength),
     *                'Replace extended ASCII', Loop