getfilename
/infobank/programs/dbase/validator/getfilename.for
Subroutine to obatin a file name.
read (ControlUnit, '(q,a)', end = 99) * InFileLength, InFile(1:InFileLength)
write (InFile, '(512x)')
call stringlen (InFile, InFileLength)