.gitignore added. auf den here-stack speichern implementiert.

.gitignore

@@ -0,0 +1 @@
+*.swp

presentation.fs

@@ -1,4 +1,5 @@
 #! /usr/bin/gforth
+
 : copy ( addrdst addrsrc len -- addrdstend )
 	over ( dst src len src ) + swap ( dst end src )
 	do ( dst+ )
@@ -16,13 +17,16 @@
 	page_steps
 	( ... x seiten weiterspringen ... )
 ;
-: csi 27 c, 91 c,
-: <--> ;
-: <_> ;
-: <h> <--> ;
-: <b> csi c, <_> ;
-: <i> csi c, <_> ;
-: <np> begin , 0<> until ;
+: csi 27 91 ;
+: <h> ( -- addr 0 ) 2 c, here 0 ;
+: </h> ( addr len -- ) 3 c, swap ! ;
+: <p> ( -- addr 0 ) 4 c, here 0 ;
+: </p> ( addr len -- ) 5 c, swap ! ;
+: <i> ( -- ) 6 c, ;
+: </i> ( -- ) 7 c, ;
+: <b> ( -- ) 8 c, ;
+: </b> ( -- ) 9 c, ;
+\ : <np> begin , 0<> until ;
 \ : <+> ( addr1 len1 addr2 len2 -- addrdst lendst )
 \	rot 2dup + here ( addr1 addr2 len2 len1 lendst addrdst )
 \	2-rot -rot ( lendst addrdst addr1 len1 addr2 len2 )
@@ -30,22 +34,22 @@
 \	2dup chars allot ( dst allocated )
 \	copy copy
 \ ;
-: @@ ( addr len -- )
-	here -rot ( dst src len )
-	copy drop
-;
+: !! ( len addr len -- len ) 1 c, dup rot , , + ;
 
 bye
 
 <presentation>
-s" Dies ist eine Testpresentation" <h>
-s" Eines Tages hatten wir (" @@ <b> s" Harald Steinlechner" @@ </b> s" und" @@
-	<b> s" Denis Knauf" @@ </b> s" die tolle Idee, eine Presentationssoftware zu schreiben" @@ <p>
+<h> s" Dies ist eine Testpresentation" !! </h>
+<p>
+	s" Eines Tages hatten wir (" !! <i> s" Harald Steinlechner" !! </i>
+	s" und" !! <i> s" Denis Knauf" !! </i>
+	s" die tolle Idee, eine Presentationssoftware zu schreiben" !!
+</p>
 <np>
-s" Ergebnis:" @@ <h>
-<b> s" Das hier" @@ </b> <p>
+<h> s" Ergebnis:" !! </h>
+<p> <b> s" Das hier" !! </b> </p>
 <np>
-s" Sieht doch garnicht so schlecht aus" @@ <p>
+<p> s" Sieht doch garnicht so schlecht aus" !! </p>
 </presentation>
 
 \ presentation ist gestartet: erste Seite wird angezeigt