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