.TITLE	REST
/
/BF=1	/THIS SYMBOL MUST BE DEFINED FOR BACKGROUND/FOREGROUND
/
	.IODEV	2	/DK INPUT
	.IODEV	10	/PD COMMENTS
/
	.GLOBL	REST,.DA
/
REST	XX
	JMS*	.DA
	JMP	.+2
WAIT
	LAC*	WAIT
	CMA
	TAD	(1
	DAC	TIME
	CLC
	DAC	STAY
TIME=.+3
	.TIMER	15,TIMOUT
PD	.INIT	10,1,INIT
	LAC	J
	DAC	PD
INIT	.INIT	2,0,INIT
	.SEEK	2,FILE
LOOP	.WAITR	10,BUSY
	.READ	2,2,LINE,34
	.WAIT	2
	LAC	LINE
	AND	(7
	SAD	(5
	JMP	END
	.WRITE	10,2,LINE,34
BUSY=.
	.IFDEF	BF
	.IDLEC
	.ENDC
	LAC	STAY
	SZA
J	JMP	LOOP
	JMP*	REST
/
END	.CLOSE	2
	JMP	INIT
/
STAY
FILE	.SIXBT	'WORDS@SRC'
LINE	.BLOCK	42
/
TIMOUT	0
	DZM	STAY
	.IFUND	BF
	JMP*	TIMOUT
	.ENDC
	.IFDEF	BF
	.RLXIT	TIMOUT
	.ENDC
	.END