Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50437/maknam.for
There are no other files named maknam.for in the archive.
	SUBROUTINE MAKNAM
C
C	CREATE CORRECT FILE NAME FOR DAY
C
	INCLUDE 'BOSS.PRM'
	DIMENSION N(3),YERCOD(12)
	X = GETTAB("53,"11)
	X = LSH(X,-18)
	ENCODE(10,10,FILE) X
	ENCODE(6,20,FILEX) X
10	 FORMAT(O6,'.BOS')
20	FORMAT(O6)
	RETURN
	END