PROGRAM PSWRDG
C
	INTEGER*2 END
	BYTE LINE(80)
	CHARACTER*12 LNGWRD
	CHARACTER*4 WORD
	INFILE=.TRUE.
	CALL GETMCR(LINE,IDS)
	IF(IDS.LT.0)INFILE=.FALSE.
	IF(INFILE)LINE(IDS+1)='0'O
	OPEN(UNIT=1,FILE='PASS.RAF',STATUS='OLD'
	1,ACCESS='DIRECT',CARRIAGECONTROL='LIST'
	2,ASSOCIATEVARIABLE=N,FORM='FORMATTED'
	3,RECORDTYPE='FIXED',RECL=4)
	IF(INFILE)THEN
		OPEN(UNIT=2,FILE=LINE,STATUS='NEW'
	1	,CARRIAGECONTROL='LIST')
	ENDIF
	N=1
	READ(1,REC=N,FMT=100)END
	X=SECNDS(0.0)
	I=INT(X/7.)
	J=INT(X/4099.)
	DO 20,II=1,20
	N=END*RAN(I,J)+1
	READ(1,REC=N,FMT=101)WORD
	LNGWRD(1:4)=WORD
	N=END*RAN(I,J)+1
	READ(1,REC=N,FMT=101)WORD
	LNGWRD(5:8)=WORD
	N=END*RAN(I,J)+1
	READ(1,REC=N,FMT=101)WORD
	LNGWRD(9:12)=WORD
	IF(INFILE)THEN
		WRITE(2,300)LNGWRD
		GO TO 30
	ELSE
		WRITE(5,200)LNGWRD
	ENDIF
20	CONTINUE
30	IF(INFILE)CLOSE(UNIT=2)
	CLOSE(UNIT=1)
	CALL EXIT
100	FORMAT(I4)
101	FORMAT(A4)
200	FORMAT(5X,A12)
300	FORMAT(A12)
	END