home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug091.ark / NAME.FOR < prev    next >
Encoding:
Text File  |  1984-04-29  |  938 b   |  38 lines
  1. C*************************************************************
  2. C
  3. C Written by Victor De Pinto
  4. C Revised July 1981
  5. C
  6. C GETS A FILENAME.
  7. C
  8.       SUBROUTINE NAME ( FNAME )
  9.       LOGICAL*1 FN(11), FNAME(11)
  10.       DATA FN/8*' ','D','A','T'/
  11.       WRITE (1,1)
  12. 1     FORMAT (' Enter 1-8 characters: ')
  13.       READ (1,2) ( FN(J), J=1,8 )
  14. 2     FORMAT (8A1)
  15.       WRITE (1,3) FN
  16. 3     FORMAT ('+( Complete filename is ', 11A1, ' )' )
  17.       DO 4 J=1,8
  18.       FNAME(J) = FN(J)
  19. 4     FN(J) = ' '
  20.       DO 5 J=9,11
  21. 5     FNAME(J) = FN(J)
  22.       RETURN
  23.       END
  24. C *************************************************************
  25. C Get filename and read source file into array.
  26. C 
  27.       SUBROUTINE READ (DAT)
  28.       LOGICAL*1 FN(11)
  29.       DIMENSION DAT(2,1024)
  30.       WRITE (1,7)
  31. 7     FORMAT (' Source filename,')
  32.       CALL NAME ( FN )
  33.       CALL OPEN (3, FN, 0)
  34.       READ (3) DAT
  35.       ENDFILE 3
  36.       RETURN
  37.       END
  38.