Coastal & Marine Geology InfoBank
pathtype
/infobank/programs/dbase/validator/pathtype.for
Subroutine to validate the type of pathname.
write (HyphenID, '(80x)') write (Extension, '(80x)')
call stringlen (HyphenID, HyphenLength) call stringlen (Extension, ExtensionLength)