# Script to enforce a 10 minute break every half hour from typing - # Written for someone (Uwe Hollerbach) with Carpal Tunnel Syndrome. # If you type for more than 20 minutes straight, the script rings # the bell after every character until you take a 10 minute break. # Author: Don Libes, NIST # Date: Feb 26, '95 spawn $env(SHELL) set start [timestamp] ;# when we started our current typing period set stop [timestamp] ;# when we stopped typing set typing 1200 ;# twenty minutes, max typing time allowed set notyping 600 ;# ten minutes, min notyping time required interact -nobuffer -re . { set now [timestamp] if {$now-$stop > $notyping} { set start [timestamp] } elseif {$now-$start > $typing} { send_user "\007" } set stop [timestamp] }