#  PUTXT   PUT EXTENSION INTO FILE NAME
SUBROUTINE PUTXT (BNAME, BEXT)
 
#   IF THE STRING  BNAME  CONTAINS NO PERIOD  BEXT  IS
#	INSERTED AHEAD OF THE SEMICOLON OR AT THE END
#	(AS INDICATED BY THE FIRST BLANK) IF THERE IS
#	NO SEMICOLON.
#   PERIOD OR NO PERIOD, A ZERO BYTE TERMINATOR IS 
#	SUPPLIED.
 
PARAMETER  DARTH = 36, VADER = 4
 
BYTE  BNAME(DARTH), BEXT(VADER)
 
LOGICAL  LDOT
 
LDOT = .FALSE.
NSEM = 0
 
FOR (I = 1; I <= DARTH; I = I + 1)
  {
   NEND = I
   IF (BNAME(I) == ' ')  BREAK
        IF (BNAME(I) == '.')  LDOT = .TRUE.
   ELSE IF (BNAME(I) == ';')  NSEM = I
						}
 
IF (!LDOT)
  {
   MEND = 0
   FOR (J = 1; J <= VADER; J = J + 1)
     {
      IF (BEXT(J) == ' ')  BREAK
      MEND = J
				  }
   IF (MEND > 0)
     {
      KPUT = NEND - 1
      IF (NSEM > 0)
	{
         FOR (K = MIN(KPUT,DARTH - MEND); K >= NSEM; K = K - 1)
           BNAME(K + MEND) = BNAME(K)
	 KPUT = NSEM - 1
						}
      FOR (M = 1; M <= MIN(MEND,DARTH - KPUT); M = M + 1)
        BNAME(KPUT + M) = BEXT(M)
      NEND = MIN(MEND + NEND,DARTH)
							}
							 }
 
BNAME(NEND) = 0
 
RETURN
 
END