File download
- 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 ;