Thanks to those who responded. Let's call it a victory...
--Bill
____________________________________________________________________________
_
SUBROUTINE BEEP.BEEP.AND.SLEEP.R0
equate beep to char(7)
crt @(-1)
crt beep
Base.Time = time()
loop
Time.Now = time() ; Delta = Time.Now - Base.Time
until Delta > 0.2 do repeat
crt beep
sleep
*---------------------------------------------------------------------------
---
The.End:
RETURN
END
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
