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 %-------