--- vt102/vt102	2014/12/05 05:41:11	1.27
+++ vt102/vt102	2014/12/05 05:41:49	1.28
@@ -779,7 +779,7 @@
       # do I/O
 
       unless ($CLK & 0xfff) {
-         if (select $x = $RIN, undef, undef, $POWERSAVE < 10 ? 0 : $CURSOR_IS_ON && 10) {
+         if (select $x = $RIN, undef, undef, $POWERSAVE < 10 ? 0 : $CURSOR_IS_ON && 3600) {
 
             # pty/serial I/O
             if ($PTY && (vec $x, fileno $PTY, 1) && (@PUSARTRECV < 128) && !@KQUEUE) {