time@ ( -- u ) Return the unix time stamp. time! ( u -- ) Set the real time clock. .time ( -- ) Print the current date and time (YYYY-MM-DDTHH:MM:SS ISO 8601). clktime ( -- u ) hour*10000 + minute*100 + second clkdate ( -- u ) Year*10000 + Month*100 + Day time&date ( -- n1 n2 n3 n4 n5 n6 ) Return the current time and date. n1 second {0...59}, n2 minute {0...59}, n3 hour {0...23}, n4 day {1...31} n5 month {1...12}, n6 year (e.g. 1991) * date Print date unix style Mon Jan 1 01:57:52 2000 wait-alarm ( -- ) Wait for an alarm alarm! (h m s -- ) Set the alarm, invalid parameters e.g. -1 mask the parameter ms ( u -- ) Wait at least u millisecond (osDelay) * *) part of ansification.fs
$ date +%s 1602430522Paste the time stamp in the Mecrisp-Cube console:
ok. 1602430522 time![RET] ok. .time[RET] 2020-10-11T15:35:27 ok. date[RET] Sun Oct 11 15:36:02 2020
6 0 0 alarm! wait-alarm .( Get Up!)[RET] Get Up! ok.If you want an alarm every second:
-1 -1 -1 alarm![RET] ok.for every minute:
-1 -1 0 alarm![RET] ok.Stop the alarms:
0 0 0 alarm![RET] ok.
: count-down ( -- ) -1 -1 -1 alarm! \ an alarm every second 10 0 do cr 10 i - . wait-alarm loop cr ." 0 Launch!" ;
count-down[RET] 10 9 8 7 6 5 4 3 2 1 0 Launch! ok.