nonascii
/infobank/programs/util/nonascii/nonascii.for
Program to identify record and position of non-ASCII characters.
Clint Steele 10/30/2000
open (unit = 90, * access = 'sequential', * form = 'formatted', * status = 'old', * name = InFile(1:InFileLength))
read (5, '(q,a)') InFileLength, InFile(1:InFileLength) read (90, '(q,a)', end = 99) * ALineLength, ALine(1:ALineLength)