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 ; : ( 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} ( -- ) ; +: ( -- , xt-{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 [" !" Harald Steinlechner" !" und " !" Denis Knauf" !" ] die tolle Idee, eine Praesentationssoftware zu schreiben." +
+
+ + + <||> !" erstens" + <||> !" zweitens" + <||> !" dann" + +

!" Ergebnis"