--- gforth/kernel/io.fs	1997/05/21 20:40:15	1.1
+++ gforth/kernel/io.fs	1997/07/06 16:09:55	1.2
@@ -18,6 +18,32 @@
 \ along with this program; if not, write to the Free Software
 \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
+\ Output                                               13feb93py
+
+has-os [IF]
+0 Value outfile-id ( -- file-id ) \ gforth
+
+: (type) ( c-addr u -- ) \ gforth
+    outfile-id write-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?
+;
+
+: (emit) ( c -- ) \ gforth
+    outfile-id emit-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?
+;
+[THEN]
+
+Defer type ( c-addr u -- ) \ core
+' (type) IS Type
+
+Defer emit ( c -- ) \ core
+' (Emit) IS Emit
+
+Defer key ( -- c ) \ core
+' (key) IS key
+
+: (.")     "lit count type ;
+: (S")     "lit count ;
+
 \ Input                                                13feb93py
 
 07 constant #bell ( -- c ) \ gforth
@@ -59,29 +85,3 @@ hex
 
 [THEN]
 
-\ Output                                               13feb93py
-
-has-os [IF]
-0 Value outfile-id ( -- file-id ) \ gforth
-
-: (type) ( c-addr u -- ) \ gforth
-    outfile-id write-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?
-;
-
-: (emit) ( c -- ) \ gforth
-    outfile-id emit-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?
-;
-[THEN]
-
-Defer type ( c-addr u -- ) \ core
-' (type) IS Type
-
-Defer emit ( c -- ) \ core
-' (Emit) IS Emit
-
-Defer key ( -- c ) \ core
-' (key) IS key
-
-: (.")     "lit count type ;
-: (S")     "lit count ;
-