Countdown Timer

Wlodek presented a one liner to use the 48 and 49 as an alarm clock at the bottom of V19N5P10. The alarm clock is useful but what I really miss on the 48 is the countdown timer. Here is a short program to do just that. Just enter HH.MMSS on the stack and run the program. A non-repeating alarm will sound and display "COUNTDOWN" when the time expires. The program copes with alarms any number of days into the future (so long as you use DD.MMYYYY format).

%%HP: T(3)A(D)F(.);
\<< TIME HMS+ DUP 24 MOD DATE ROT 24 / IP DATE+
SWAP "COUNTDOWN" 0 4 \->LIST STOALARM DROP
\>>

Checksum: #B2FFh 82.5 bytes