added enumeration
This commit is contained in:
parent
45f1ab86ba
commit
eca796f4f9
|
@ -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
|
||||
|
|
|
@ -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>
|
||||
|
|
Loading…
Reference in a new issue