farbendemo source herausgezogen

master
stucco 2011-01-21 15:33:55 +01:00
parent 50c38dd860
commit 3cdcbd9f7a
2 changed files with 12 additions and 1 deletions

11
farbendemo.fs Normal file
View File

@ -0,0 +1,11 @@
: 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> ;

View File

@ -170,7 +170,7 @@
s" Erweiterbarkeit" <part>
<np>
<h> !" Zeit für Makros!!" </h>
<p> s" presentation.p.fs" 29 39 <source> </p>
<p> s" farbendemo.fs" 0 100 <source> </p>
<p> farbendemo </p>
<np>
<h> !" Beliebige Wörter können Inhalte erzeugen!!" </h>