There were some pretty nifty entries on the Programming Forum to try and create code that made something that looked like a Christmas tree.

I converted a couple of entries in Basic to Forth, and this is what I came up with. All numbers are in decimal.

this first one came in at 102 bytes

: t 6 1 do i 5 1 do dup dup i * swap 3 > if drop R> R> drop 1 >R >R
2 then dup 20 swap - spaces dup + 1- 0 do 42 emit loop cr loop loop ;


this next one came in at 99 bytes. See if you can follow the code

: IT ;
: ACEGCGKOEKQWCCC ' IT 4 + 15 1 DO 1+ DUP C@ 64 - DUP 2 / 20 SWAP - SPACES
0 DO 42 EMIT LOOP CR LOOP DROP ;

The takeaways for me from the stardot thread are that we have more active code golfers in the 65xx scene than I would have thought, and that gfoot has a wonderfully wicked short game.

_________________
Got a kilobyte lying fallow in your 65xx's memory map? Sprinkle some VTL02C on it and see how it grows on you!

Mike B. (about me) (learning how to github)