checkchars
/infobank/programs/dbase/validator/checkchars.for
Subroutine to verify ASCII character values.
open (unit = TempUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = InFile(1:InFileLength))
read (TempUnit, '(q,a)', end=99) ALineLength, * ALine(1:ALineLength)