(48) REMIND - Set alarm x hours in the future

[Dave Britten]

A quick little type-in program for setting alarms by specifying the amount of time until it comes due. I don't think there's anything G/GX-specific here.

Input:
2: Message/Program
1: Time until alarm, in H.MMSS format

Output:
None

Code:

\<< \-> MSG LAG
  \<<
    DATE TIME
LAG HMS+
    IF DUP 24 \>=
    THEN SWAP 1
DATE+ SWAP 24 -
    END MSG 3 \->LIST
STOALARM DROP
  \>>
\>>