farbendemo source herausgezogen

13 years ago · 3cdcbd9f7a
parent 50c38dd860
commit 3cdcbd9f7a
2 changed files with 12 additions and 1 deletions
--- a/farbendemo.fs
+++ b/farbendemo.fs
@ -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> ;
--- a/presentation.p.fs
+++ b/presentation.p.fs
@ -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>