05-17-2014, 12:10 AM
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
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
\>>
\>>