scene.org File Archive

File download

<root>­/­parties­/­2021­/­vintagecomputingchristmaschallenge21­/­challenge/retrorevd_vic20_forth_vc3-2021.zip

File size:
1 130 189 bytes (1.08M)
File date:
2021-12-25 12:55:53
Download count:
all-time: 26

Preview

  • retrorevd_vic20_forth_vc3-2021/README.md 1.04K
  • retrorevd_vic20_forth_vc3-2021/retrorevd-fullwidth-tree-vc3-2021.png 2.97K
  • retrorevd_vic20_forth_vc3-2021/retrorevd-list-vc3-2021.png 3.23K
  • retrorevd_vic20_forth_vc3-2021/retrorevd-list-vc3-2021.txt 358B
  • retrorevd_vic20_forth_vc3-2021/retrorevd-tree-vc3-2021.png 2.27K
  • retrorevd_vic20_forth_vc3-2021/retrorevd_vic20_forth_vc3-2021.avi 6.47M
  • retrorevd_vic20_forth_vc3-2021/retrorevd_vic20_forth_vc3-2021.tap 80.38K

file_id.diz

( vc3 2021 )
22 constant m/width 
: stars   m/width 1 - min  0 do  42 emit  loop ; 
: align   cr  m/width 2 / 1 - over 2 / - spaces ;
: abranch   align stars ;
: section   2 * dup 1 - over 4 * over + swap 
    do  i abranch dup  +loop drop ;
: branches   4 1 do  i section  loop ;
: trunk   2 0 do  3 align stars  loop ;
: tree   branches trunk cr ;