Forth Hints & Tips: Kaleidoscope

[kmurta]

Forth variant: TF79 (Requires the HGR extension)

Reference: https://en.wikipedia.org/wiki/Truchet_t ... er-circles

click to open

Note how screen 7 was used to load the program, since screens 1 to 6 are occupied by the high-resolution screen.

[Moggy]

Hmmm this looks very familiar Kelly!

[kmurta]

Forth variant: TF79 (Requires UDG or HGR extension)

You probably know this famous one-line BASIC program from the Commodore 64:

Code: Select all

10 PRINT CHR$(205.5+RND(1)); : GOTO 10

Here my version for the TF79:

Code: Select all

: LAB CR BEGIN 47 45 2 RND * + EMIT AGAIN ;

As it uses special characters, it must be run with UDG mode activated or in high-resolution graphics mode (HTERM).

click to open video

[Moggy]

Very nice.