sjs@spectral.ctt.bellcore.com (Stan Switzer) (04/03/89)
I have unwittingly perpetrated an April Fool's joke on many of you
because of a stupid bug in my two recent postings "blankscreen" and
"nclock." Each routine contains an identical, incorrect, subroutine
"GetHHMMSS." A (more) correct version of this routine can be found
below. Replacing this routine will fix the problem.
Also, a new "blankscreen," with hooks to support different blanking
animations, is under development. It should be presentable in a
couple of weeks. Anyone wanting a copy can mail me at the address
below. If volume warrants, I'll post; otherwise, I'll reply via mail.
Suggestions, of course, are always welcome.
Stan Switzer sjs@ctt.bellcore.com
%------- fixed GetHHMMSS for blankscreen and nclock:
/GetHHMMSS { % - -> hh mm ss true -or- false
GetDate {
3 { ( ) search { % (true) post match pre
{ exch pop () ne { exit } if ( ) search not { exit } if } loop
} if } repeat
( ) search 4 2 roll pop pop pop
2 { (:) search pop exch pop cvi exch } repeat cvi
true
} {
false
} ifelse
} def
%-------