I have implemented Conway's Game of life with
a nice example found at rosettacode.org. In lack of some commands in IS-FORTH I looked for ways around, most of a times the chance to find another way is good in Forth. VALUE / TO is replaced by a normal variable with @ and !. The other point is the at-xy, which is only AT in IS. And last the S" StringValue" is replaced by " StringValue" COUNT, which also leaves the count and the address on the stack.
It's loadable with the known procedure:
BUFFERS ON " A:GOL.4TH" NAME
LOAD-BUFFERS
After that the first 6 blocks have to be loaded (1 LOAD CR, 2 LOAD CR...6 LOAD CR). After all six pages are loaded the examples like "CLEAR 0 GLIDER SHOW CR" are working. But don't count rocket speed in execution
I wanted to use "->" to load the next block automatically, as described in the manual of IS-Forth. But it does not work -> "not found"