diff --git a/FORTH.ASM b/FORTH.ASM
index 5dd77a7..8d8dc28 100644
--- a/FORTH.ASM
+++ b/FORTH.ASM
@@ -162,7 +162,6 @@
 INDIRECT_START:	
 	DW SETUP
 	DW QUIT
-	DW BYE
 
 
 SETUP:
@@ -306,41 +305,6 @@
 	NEXT
 
 
-	DEFWORD_RAW TEST_WRITE_FILE, 'TEST-WRITE-FILE'
-	MOV AL, F_WRITE
-	MOV DX, DUMP
-	OPENF
-	JC .OPEN
-
-	MOV BX, AX					; Handle
-	MOV CX, 4
-	MOV DX, DUMP
-	WRITEF
-	JC .WRITE
-
-	CLOSEF
-	JC .CLOSE
-
-	NEXT
-
-.OPEN:
-	MOV DX, MSG_OPENF_FAILED
-	WRITESOUT
-	NEXT
-
-.WRITE:
-	;; 06h - invalid handle
-	PUSH AX
-	MOV DX, MSG_WRITEF_FAILED
-	WRITESOUT
-	NEXT
-
-.CLOSE:
-	MOV DX, MSG_CLOSEF_FAILED
-	WRITESOUT
-	NEXT
-	
-
 	%INCLUDE "IOWORDS.ASM"
 	%INCLUDE "DICTNRY.ASM"
 	
@@ -364,13 +328,8 @@
 
 ;;; PROGRAM DATA ;;;
 	MSG DB 'DOS FORTH', 0Dh, 0Ah, '$'
-	DUMP DB 'DUMP.COM', 0
-	DUMP_LEN EQU 8
-
-	MSG_CLOSEF_FAILED DB 'CLOSEF FAILED', 0Dh, 0Ah, '$'
-	MSG_WRITEF_FAILED DB 'WRITEF FAILED', 0Dh, 0Ah, '$'
 
 
-	ALIGN 4
 ;;; FREE DATA ;;;
+	ALIGN 4
 HERE_START: