From 3cdcbd9f7a3cd926657e42456f2e0593cb3dfeea Mon Sep 17 00:00:00 2001
From: stucco <haraldsteinlechner@gmail.com>
Date: Fri, 21 Jan 2011 15:33:55 +0100
Subject: [PATCH] farbendemo source herausgezogen

---
 farbendemo.fs     | 11 +++++++++++
 presentation.p.fs |  2 +-
 2 files changed, 12 insertions(+), 1 deletion(-)
 create mode 100644 farbendemo.fs

diff --git a/farbendemo.fs b/farbendemo.fs
new file mode 100644
index 0000000..64be153
--- /dev/null
+++ 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> ;
diff --git a/presentation.p.fs b/presentation.p.fs
index 8d85023..743cc91 100644
--- 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>