!**********************************
! 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