1# 2# Validate the timeout works. 3# 4include start 5delay 2000 6input "a" 7call 97 getch 8call OK timeout 100 9input "b" 10# since delay is in effect and we set timeout the following getch should 11# return ERR not the character b. 12call -1 getch 13# drain input.... 14call OK drain 15call OK timeout -1 16call OK keypad STDSCR 1 17delay 0 18input "\eOA" 19call $KEY_UP getch 20call OK refresh 21compare timeout.chk 22