Browse code
(datetime.tal) Added numeric display of date
Devine Lu Linvega authored on 16/07/2023 18:59:30
Showing 1 changed files
| ... | ... |
@@ -6,16 +6,25 @@ |
| 6 | 6 |
|0100 |
| 7 | 7 |
|
| 8 | 8 |
@on-reset ( -> ) |
| 9 |
- <print-date> |
|
| 10 |
- #0a18 DEO |
|
| 11 |
- <print-time> |
|
| 12 |
- #0a18 DEO |
|
| 9 |
+ <print-date-num> |
|
| 10 |
+ #0a .Console/write DEO |
|
| 11 |
+ <print-date-str> |
|
| 12 |
+ #0a .Console/write DEO |
|
| 13 |
+ <print-time-num> |
|
| 14 |
+ #0a .Console/write DEO |
|
| 13 | 15 |
<print-doty> |
| 14 |
- #0a18 DEO |
|
| 16 |
+ #0a .Console/write DEO |
|
| 15 | 17 |
#800f DEO |
| 16 | 18 |
BRK |
| 17 | 19 |
|
| 18 |
-@<print-date> ( -- ) |
|
| 20 |
+@<print-date-num> ( -- ) |
|
| 21 |
+ .DateTime/year DEI2k <print-dec> |
|
| 22 |
+ [ LIT "- ] .Console/write DEO |
|
| 23 |
+ INC INC DEIk INC <print-dec-pad> |
|
| 24 |
+ [ LIT "- ] .Console/write DEO |
|
| 25 |
+ INC DEI !<print-dec-pad> |
|
| 26 |
+ |
|
| 27 |
+@<print-date-str> ( -- ) |
|
| 19 | 28 |
;dict/date <print-str> |
| 20 | 29 |
[ LIT2 00 -DateTime/dotw ] DEI #20 SFT ;week-txt ADD2 <print-str> |
| 21 | 30 |
[ LIT2 20 ", ] #18 DEO |
| ... | ... |
@@ -27,13 +36,13 @@ |
| 27 | 36 |
#18 DEO |
| 28 | 37 |
.DateTime/year DEI2 !<print-dec> |
| 29 | 38 |
|
| 30 |
-@<print-time> ( -- ) |
|
| 39 |
+@<print-time-num> ( -- ) |
|
| 31 | 40 |
;dict/time <print-str> |
| 32 | 41 |
.DateTime/hour DEIk <print-dec-pad> |
| 33 | 42 |
[ LIT2 ": 18 ] DEO |
| 34 | 43 |
INC DEIk <print-dec-pad> |
| 35 | 44 |
[ LIT2 ": 18 ] DEO |
| 36 |
- DEI !<print-dec-pad> |
|
| 45 |
+ INC DEI !<print-dec-pad> |
|
| 37 | 46 |
|
| 38 | 47 |
@<print-str> ( str* -- ) |
| 39 | 48 |
&w ( -- ) |