SUBROUTINE SELFIL C*********************************************************************** C C Author: Nick Bourgeois Version: 91c20b C 9605 Giddings Ave. NE C Albuquerque, NM 87109 C (505) 828-9566 C C C Description: C C Select a file for transfer. C C Call a routine to prompt for the output file name or no entry C to select or skip the named file. If no entry is made, reset C the select flag and exit this subroutine. If an entry is made, C in lower case, convert it to upper case. If the entry is too C long, loop back for another try. C C C Edit Record: C C 20-Mar-91: Original creation started. C 20-Mar-91: Original creation completed. C C C Calling sequence: C C CALL SELFIL C C C Returns: C C FilNam C SelFlg C C C Called By: C C EFWORK C C C Routines Called: C C GTLIN C C*********************************************************************** INCLUDE 'EXTFLS.DAT' !Common & variables declarations 100 CONTINUE Answer = ' ' TYPE *,'Enter the output DEV:FILNAM.EXT to select or ', * 'just skip this file' TYPE * CALL GTLIN (Answer) IF (AnsweB(1) .EQ. 0) THEN SelFlg = .FALSE. GOTO 900 ELSE SelFlg = .TRUE. END IF FlNmLn = 1 200 CONTINUE IF (AnsweB(FlNmLn) .EQ. 0) GOTO 300 IF ((AnsweB(FlNmLn) .GE. 97) .AND. * (AnsweB(FlNmLn) .LE. 122)) THEN AnsweB(FlNmLn) = AnsweB(FlNmLn) - 32 END IF FlNmLn = FlNmLn + 1 IF (FlNmLn .GT. 16) THEN TYPE *, 'DEV:FILNAM.EXT too long' TYPE * GOTO 100 END IF GOTO 200 300 CONTINUE FilNam = Answer FlNmLn = FlNmLn - 1 900 CONTINUE RETURN END !SELFIL.FOR. !