12 lines
225 B
Forth
12 lines
225 B
Forth
: farbendemo'' <fc> !" ====" ;
|
|
: farbendemo'
|
|
7 0 +do
|
|
i postpone literal postpone <bc>
|
|
7 0 +do
|
|
i postpone literal postpone farbendemo''
|
|
loop
|
|
postpone <br>
|
|
loop
|
|
; immediate
|
|
: farbendemo farbendemo' </bc> </fc> ;
|