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