!**********************************
! TSTESP - 15 Sept 1992  Ken Carlson
!
!          Demonstrates flaw in ESP field redraw. Changed state display
!          does not match actual values.
!**********************************

MAP1 CHAR,F,6
MAP1 FIELD,F,6
MAP1 TSTESP,X,512
MAP1 X,F
MAP1 ESP'MENU,F,6,155

	? TAB(-1,0);
	XCALL FETCH,"TSTESP",TSTESP,X
	!
	IF X = 3 ? "Error >>>---> Screen not found" : END
	IF X = 2 ? "Error >>>---> Screen too large" : END
	!
	XCALL INITRM,"TSTESP","TSTESP"
	!
	! initial state
	XCALL SETVAL,TSTESP,1,"16906","16834","2000"
	XCALL GTSCR,TSTESP
	? TAB(5,50);"16906";TAB(7,50);"16834";TAB(9,50);"2000";
	XCALL ERRDSP,""
	!
	! changed state
	XCALL SETVAL,TSTESP,1,"16834","16906","3000"
	FIELD = 1
	CHAR = ESP'MENU
	XCALL GTSCR,TSTESP,CHAR,FIELD
	? TAB(5,50);"16834";TAB(7,50);"16906";TAB(9,50);"3000";
	XCALL ERRDSP,""
	!
	! finish
	XCALL INITRM
	END