.TITLE	DAMMIT
	.IDENT	/VO1/
;
;	PROGRAM TO DO RAMDOM MESSAGES TO TERMINAL TO RELIEVE OPERATOR
;	FRUSTRATION
;
;	WILL OUTPUT RANDOM MESSAGE (DEPENDANT ON SECONDS OF TIME)
;	TO TERMINAL
;	FROM [1,2]DAMMIT.MSG
;
	.MCALL	MOUT$,DIR$,GTIM$,GMCR$,EXIT$S,MODF$,MOWA$S
;
GETMCR:	GMCR$
GETTIM:	GTIM$	TIMBUF
TIMBUF:	.BLKW	8.
FILNAM:	.ASCII	/LB:[1,2]DAMMIT.MSG/
	FILLEN=.-FILNAM
	.EVEN
FILDES:	.WORD	FILLEN
	.WORD	FILNAM
MODF$
MESDST	= SY$STM
MODPB:	MOUT$	FILDES,,,,MESDST
START:	DIR$	#GETMCR		;GET MCR SO MCR IS RECALLED
	DIR$	#GETTIM		;GET TIME
	MOV	TIMBUF+G.TISC,R0	;GET SECONDS
	INC	R0
	MOV	R0,MODPB+M.ONUM	;PUT RECORD NUMBER IN DPB
	MOV	#1,MODPB+M.OLUN	;AND LUN
	DIR$	#MODPB		;GET MESSAGE
	MOWA$S			;WAIT FOR MO
	EXIT$S				;AND LEAVE
	.END	START