	Program Gollum
c
	Implicit None
c
	Include '($BRKDEF)'
c
	Character*1	Cr / 13 /,	Lf / 10 /
	Character*3	Idle_time
	Character*7	Terminal
	Character*11	Time
c
	Integer*4	Sys$BrkThruW,	Istatus,	I_Minute
c
	Terminal = '_TXB7: '
	I_minute = 30
	Write ( Idle_Time, 10 ) I_Minute
c
	Call Sys$AscTim ( , Time, , %Val( 1 ) )
	IStatus = Sys$BrkThruW ( 1
	1		, Cr // Lf //
	1		  '%SYSTEM-F-LOGOUT, forced logout after' //
	1		  Idle_Time // ' minutes of idle time' // Cr // Lf //
	1		  '-SYSTEM-I-TRMTIM, process terminated at ' //
	1		  Time
	1		, Terminal
	1		, %Val( Brk$C_Device )
	1		, 
	1		,
	1		, %Val( BRK$M_SCREEN .OR. BRK$M_BOTTOM .OR.
	1			BRK$M_NOREFRESH .OR. 5 )
	1		, %VAL( BRK$C_GENERAL )
	1		, %VAL( 5 )
	1		,
	1		, )
c
10	Format ( I3 )
c
	End

