!*! Updated on 16-Aug-94 at 10:33 PM by James A. Jarboe I V; edit time: 0:04:54
!*! Created on 16-Aug-94 at 10:23 PM by James A. Jarboe I V; edit time: 0:08:09

++include sysstd.bsi
++include setusr.bsi
++include getusr.bsi
!
map1 SET'TMO, F, 6, 3600
map1 GET'TMO, F, 6
map1 GET'TOC, F, 6
map1 ST'TIME, F, 6
map1 EN'TIME, F, 6

	xcall INITRM, "Testing Timeout","Testing Timeout"
	xcall FETCH, "ESPTIM", SCREEN, X
	if X goto NO'SCREEN

	xcall OPNSCR, SCREEN
	xcall setusr, SU'TMO, SET'TMO
	xcall getusr, GU'TMO, GET'TMO
	xcall setusr, SU'TOC, 155
	xcall getusr, GU'TOC, GET'TOC
	xcall setval, SCREEN, 1, GET'TMO, GET'TOC
	CHAR = ESP'BEGLIN
	ST'TIME = TIME
EDT:	xcall GTSCR, SCREEN, FIELD, CHAR
	if (CHAR and ESP'MENU) then goto SHOW'TIME
	goto EDT


SHOW'TIME:
	EN'TIME=TIME-ST'TIME

ALLDUN:	xcall INITRM

	? TAB(2,10);"Program timed-out in: "+STR(EN'TIME)+" Seconds"	

	END



ERR'ROUTINE:
	xcall ERRDSP,"Basic error "
	goto ALLDUN
NO'SCREEN:
	xcall ERRDSP, "?Cannot Find Screen"
	goto ALLDUN