( -- addr u0 ) ['] [p] , here 0 ; :
( addr len -- ) ['] [/p] , swap ! ; \ Es folgen ein paar syntaktische Textauszeichnungen. : [i] ( addr -- addr ) 7 sgr ; : [/i] ( addr -- addr ) 27 sgr ; : [b] ( addr -- addr ) 1 sgr ; : [/b] ( addr -- addr ) 22 sgr ; : [u] ( addr -- addr ) 4 sgr ; : [/u] ( addr -- addr ) 24 sgr ; : [fc] ( addr -- addr ) dup @ 30 + sgr 1 cells + ; : [/fc] ( addr -- addr ) 39 sgr ; : [bc] ( addr -- addr ) dup @ 40 + sgr 1 cells + ; : [/bc] ( addr -- addr ) 49 sgr ; : ( -- ) ['] [i] , ; : ( -- ) ['] [/i] , ; : ( -- ) ['] [u] , ; : ( -- ) ['] [/u] , ; : ( -- ) ['] [b] , ; : ( -- ) ['] [/b] , ; :s" Eines Tages hatten wir (" !! s" Harald Steinlechner" !! s" und" !! s" Denis Knauf" !! s" die tolle Idee, eine Presentationssoftware zu schreiben" !!
s" Das hier" !!
s" Sieht doch garnicht so schlecht aus" !!