From eca796f4f93d9e3a4787c9044c5ec1ff8e58ee2a Mon Sep 17 00:00:00 2001
From: stucco <haraldsteinlechner@gmail.com>
Date: Sat, 15 Jan 2011 23:04:40 +0100
Subject: [PATCH] added enumeration

---
 presentation.fs   | 17 +++++++++++++++++
 presentation.p.fs |  9 +++++++++
 2 files changed, 26 insertions(+)

diff --git a/presentation.fs b/presentation.fs
index f203177..20c3a34 100755
--- a/presentation.fs
+++ b/presentation.fs
@@ -154,6 +154,23 @@ ptype-reset \ ptype-lenl sollte von Anfang an 0 sein
 : {/li} ( addr -- addr ) cr ;
 : </li> ( addr len -- , xt-{/li} ) ['] {/li} , swap ! ;
 
+variable enumerationCount ( -- addr )
+: {||}  ( addr -- addr )
+        enumerationCount @ 1+ enumerationCount !
+        s"   " type enumerationCount @ 0 U.R s" ) " type
+	5 ptype-lenl !
+        cell+
+;
+: <||>  ( -- addr u0 , xt-{||} 0 ) ['] {||} , here 0 , 0 ;
+: {/||} ( addr -- addr ) cr ;
+: </||> ( addr len -- , xt-{/||} ) ['] {/||} , swap ! ;
+
+: {en}  ( -- )  ;
+: <en>  ( -- , xt-{en} )  ['] {en} , ;
+: {/en} ( -- ) ;
+: </en> ( -- , xt-{/en} ) ['] {en} , ;
+
+
 : {np} ( -- )
 	0 sgr \ Alle Bildschirmeigenschaften zuruecksetzen
 	page \ Bildschirm leeren
diff --git a/presentation.p.fs b/presentation.p.fs
index a97fc87..d19b2a3 100644
--- a/presentation.p.fs
+++ b/presentation.p.fs
@@ -44,6 +44,15 @@
 		!" Eines Tages hatten wir [" <b> !" Harald Steinlechner" </b>
 		!"  und " <b> !" Denis Knauf" </b>
 		!" ] die tolle Idee, eine Praesentationssoftware zu schreiben."
+		<br>
+		<br>	
+		<b>	
+		<en>
+                <||> !" erstens"  </||> 
+		<||> !" zweitens" </||> 
+		<||> !" dann"     </||> 
+		</en>
+		</b>
 	</p>
 <np>
 	<h> !" Ergebnis" </h>