2025-07-14 00:59:27 <cleobuli_   > forthBot:  LOAD ini.fth
2025-07-14 00:59:27 <forthBot    > File ini.fth with moon loaded
2025-07-14 00:59:33 <cleobuli_   > forthBot:  MOON
2025-07-14 00:59:33 <forthBot    > Phase de la lune pour Mon July 14 2025
2025-07-14 00:59:33 <forthBot    > 🌖 Gibbeuse decroissante La lune decroit, une nuit douce vous attend ! Illumination 81%
2025-07-14 01:01:35 <cleobuli_   > forthBot:  TODAY-CAL-IRC
2025-07-14 01:01:35 <forthBot    > July 2025
2025-07-14 01:01:36 <forthBot    > Mo Tu We Th Fr Sa Su
2025-07-14 01:01:36 <forthBot    >      1  2  3  4  5  6
2025-07-14 01:01:36 <forthBot    >   7  8  9 10 11 12 13
2025-07-14 01:01:37 <forthBot    >  14 15 16 17 18 19 20
2025-07-14 01:01:37 <forthBot    >  21 22 23 24 25 26 27
2025-07-14 01:01:38 <forthBot    >  28 29 30 31
2025-07-14 01:30:48 <ajhidd      > I'm still in search of an idea of something remotely useful to implement with forthbot :D
2025-07-14 02:21:41 <MrMobius    > seems good for examples
2025-07-14 02:21:49 <MrMobius    > not that we've really used it for that
2025-07-14 03:01:35 <forthBot    > Environment for cleobuli_ inactive, freeing...
2025-07-14 03:46:00 <ajhidd      > forthBot:  S" Euro Truck Simulator, but it's 2D with top-down view "S IMAGE
2025-07-14 03:46:16 <forthBot    > https://i.ibb.co/QF8HbhjN/mforth-image-Qw6-Xl2.png
2025-07-14 03:46:26 <ajhidd      > forthBot:  QUIT
2025-07-14 03:46:26 <forthBot    > Environment for ajhidd has been freed.
2025-07-14 04:17:02 <lf94        > Wow forth bot is evolving
2025-07-14 16:34:03 <cleobuline  > forthBot:  LOAD ini.fth
2025-07-14 16:34:03 <forthBot    > File ini.fth with moon loaded
2025-07-14 16:34:41 <cleobuline  > forthBot:  EURO
2025-07-14 16:34:41 <forthBot    > 36 39 6 3 21 10 7
2025-07-14 16:43:33 <cleobuline  > forthBot:  TABLE-MUL
2025-07-14 16:43:33 <forthBot    > Error: Unknown word: TABLE-MUL
2025-07-14 16:43:44 <cleobuline  > forthBot:  10 TABLE-MULT
2025-07-14 16:43:44 <forthBot    >   1   2   3   4   5   6   7   8   9  10 |
2025-07-14 16:43:45 <forthBot    >   2   4   6   8  10  12  14  16  18  20 |
2025-07-14 16:43:45 <forthBot    >   3   6   9  12  15  18  21  24  27  30 |
2025-07-14 16:43:45 <forthBot    >   4   8  12  16  20  24  28  32  36  40 |
2025-07-14 16:43:46 <forthBot    >   5  10  15  20  25  30  35  40  45  50 |
2025-07-14 16:43:46 <forthBot    >   6  12  18  24  30  36  42  48  54  60 |
2025-07-14 16:43:47 <forthBot    >   7  14  21  28  35  42  49  56  63  70 |
2025-07-14 16:43:47 <forthBot    >   8  16  24  32  40  48  56  64  72  80 |
2025-07-14 16:43:47 <forthBot    >   9  18  27  36  45  54  63  72  81  90 |
2025-07-14 16:43:48 <forthBot    >  10  20  30  40  50  60  70  80  90 100 |
2025-07-14 16:48:50 <identity    > forthBot: LOAD ini.fth
2025-07-14 16:48:50 <forthBot    > File ini.fth with moon loaded
2025-07-14 16:48:54 <identity    > forthBot: 1 TABLE-MULT
2025-07-14 16:48:54 <forthBot    >   1 |
2025-07-14 16:49:04 <cleobuline  > lol
2025-07-14 16:49:31 <identity    > forthBot: 0 TABLE-MULT
2025-07-14 16:49:32 <forthBot    >   1 |
2025-07-14 16:50:36 <cleobuline  > forthBot:  -10  TABLE-MULT
2025-07-14 16:50:37 <forthBot    >   1 |
2025-07-14 16:52:45 <cleobuline  > forthBot:  SEE TABLE-MULT
2025-07-14 16:52:45 <forthBot    > : TABLE-MULT DUP CR 1 + 1 DO DUP 1 + 1 DO I J * DUP DUP 100 < IF 32 EMIT THEN DUP 10 < IF 32 EMIT THEN NUM-TO-STR 32 EMIT DROP LOOP 124 EMIT CR LOOP DROP ;
2025-07-14 16:59:19 <cleobuline  > forthBot:  .S
2025-07-14 16:59:20 <forthBot    > <0>
2025-07-14 16:59:37 <cleobuline  > forthBot:  12 5 /MOD
2025-07-14 16:59:44 <cleobuline  > forthBot:  .S
2025-07-14 16:59:44 <forthBot    > <2> 2 2
2025-07-14 18:49:31 <forthBot    > Environment for identity inactive, freeing...
2025-07-14 18:59:44 <forthBot    > Environment for cleobuline inactive, freeing...
2025-07-14 21:05:30 <skvery      > \ Convert number to Roman numeral
2025-07-14 21:05:31 <skvery      > : roman-digit ( n c -- )
2025-07-14 21:05:31 <skvery      >   0 do dup emit loop drop ;
2025-07-14 21:05:32 <skvery      > : roman ( n -- )
2025-07-14 21:05:32 <skvery      >   dup 100 >= if 100 /mod swap drop 'C' roman-digit then
2025-07-14 21:05:33 <skvery      >   dup 90 >= if 90 - ." XC" then
2025-07-14 21:05:33 <skvery      >   dup 50 >= if 50 /mod swap drop 'L' roman-digit then
2025-07-14 21:05:34 <skvery      >   dup 40 >= if 40 - ." XL" then
2025-07-14 21:05:34 <skvery      >   dup 10 >= if 10 /mod swap drop 'X' roman-digit then
2025-07-14 21:05:35 <skvery      >   dup 9  = if drop ." IX" exit then
2025-07-14 21:05:35 <skvery      >   dup 5  >= if 5 - ." V" then
2025-07-14 21:05:36 <skvery      >   dup 4  = if drop ." IV" exit then
2025-07-14 21:05:36 <skvery      >   1 swap 0 do ." I" loop drop ;
2025-07-14 21:05:37 <skvery      > : roman> ( n -- )
2025-07-14 21:05:37 <skvery      >   dup 0= if ." 0" drop exit then roman ;
2025-07-14 21:05:38 <skvery      > \ Fixed width Roman numeral printing
2025-07-14 21:05:38 <skvery      > : roman5 ( n -- )  \ Print Roman numeral padded to 5 chars
2025-07-14 21:05:39 <skvery      >   <# roman #> count 5 swap - spaces type ;