Subroutine to verify that a file is mixed case and does not contain
characters with ASCII values greater than 127.
Writes
write (Message, 22) InFile(1:InFileLength),
* 'File must be in mixed case', Loop
write (Message, 22) InFile(1:InFileLength),
* 'File must be in mixed case', Loop