C C SUBROUTINE INTERP (LINE,LEN,REMOTE,INFILE,ISIZE) LOGICAL*1 LINE(516),REMOTE(28),INFILE(28) LOGICAL*1 BLANK,SLASH,IM(2) C ISIZE = 0 DO 10 I=1,28 REMOTE(I)=0 INFILE(I)=0 10 CONTINUE C C GET REMOTE NAME DO 20 I=1,LEN IF ((LINE(I).EQ.BLANK).OR.(LINE(I).EQ.SLASH)) GOTO 30 REMOTE(I)= LINE(I) 20 CONTINUE C C GET REMOTE SWITCHES (NONE IMPLEMENTED YET) 30 CONTINUE IF (LINE(I).EQ.BLANK) GOTO 50 C C GET FIRST NONBLANK CHAR IN FILE NAME 50 CONTINUE DO 60 I=I,LEN,1 IF (LINE(I).NE.BLANK) GOTO 70 60 CONTINUE C C GET FILE NAME 70 CONTINUE DO 80 J=1,LEN-I+1 K=J+I-1 IF ((LINE(K).EQ.BLANK).OR.(LINE(K).EQ.SLASH)) GOTO 90 INFILE(J)=LINE(K) 80 CONTINUE C C INTERPRET FILE SWITCHES 90 CONTINUE IF (LINE(K).NE.SLASH) RETURN IF ((LINE(K+1).NE.IM(1)).OR.(LINE(K+2).NE.IM(2))) GOTO 110 ISIZE=128 IF (LINE(K+3).NE.'=') GOTO 110 K=K+3 DO 100 I=1,3 IF ((LINE(K+I).LT.'0').OR.(LINE(K+I).GT.'9')) GOTO 105 100 CONTINUE 105 CONTINUE I=I-1 DECODE(I,1000,LINE(K+1)) ISIZE 1000 FORMAT(I3) 110 RETURN END