C V1A Edit #16 3-Jun-83 Autor: -tf- File: [TF.KUSTER]CPFI.FOR C C C P F I . F O R : INPUT CP/M FILE NAME C C H.P. STOEHREL C C *** V1 *** 9-DEC-81 C SUBROUTINE CPFI (NAME) C INTEGER*2 NAME(2),IFIL(12) C 2000 TYPE 2113 2113 FORMAT(' CP/M Filename (abcdefgh.ext) : '$) ACCEPT 2119,IANZCH,(IFIL(K),K=1,12) 2119 FORMAT(Q,12A1) IF (IANZCH.EQ.0) GOTO 2000 IF (IANZCH.GT.12) IANZCH = 12 DO 2010 I=1,IANZCH 2010 IF ((IFIL(I).AND."377).NE."40 - .AND.(IFIL(I).AND."377).NE."56) GOTO 2100 GOTO 2000 2100 IF (IVERIF('*', IFIL).EQ.0.OR.IVERIF('?', IFIL).EQ.0) GOTO 2000 C DO 100 I=1,IANZCH 100 IF ((IFIL(I).AND."377).GE."140) IFIL(I)=IFIL(I).AND."177737 C DO 2410 L=1,11 2410 NAME(L)="40 ! INSERT SPACES C 2200 K=1 L=1 2300 IF( IFIL(K).NE."20056) GOTO 2308 L=9 GOTO 2320 C 2308 NAME(L)=IFIL(K)-"20000 L=L+1 2320 K=K+1 IF (L.LE.11) GOTO 2300 C IF (NAME(1).EQ."40) GOTO 2000 ! Do not accept extension only! C RETURN C END