Updated documentation.

[fifth.git] / util / insert.bas

diff --git a/util/insert.bas b/util/insert.bas
deleted file mode 100755 (executable)
index d40265f..0000000
--- a/util/insert.bas
+++ /dev/null
@@ -1,50 +0,0 @@
-DECLARE SUB getson (a$)\r
-DECLARE SUB start ()\r
-DIM SHARED mitus, sona$(1 TO 50)\r
-DIM SHARED byte AS STRING * 1\r
-\r
-start\r
-\r
-OPEN sona$(1) FOR BINARY AS #1\r
-PRINT "Seeking to:" + sona$(3)\r
-SEEK #1, VAL(sona$(3)) + 1\r
-OPEN sona$(2) FOR BINARY AS #2\r
-2\r
-IF EOF(2) <> 0 THEN GOTO 1\r
-GET #2, , byte\r
-PUT #1, , byte\r
-GOTO 2\r
-1\r
-CLOSE #2\r
-CLOSE #1\r
-\r
-SYSTEM\r
-\r
-SUB getson (a$)\r
-mitus = 0\r
-\r
-d = 1\r
-FOR b = 1 TO LEN(a$)\r
-c$ = RIGHT$(LEFT$(a$, b), 1)\r
-IF c$ = " " THEN\r
-d = 1\r
-ELSE\r
-IF d = 1 THEN\r
-mitus = mitus + 1\r
-sona$(mitus) = ""\r
-d = 0\r
-END IF\r
-sona$(mitus) = sona$(mitus) + c$\r
-END IF\r
-NEXT b\r
-END SUB\r
-\r
-SUB start\r
-\r
-IF COMMAND$ = "" THEN END\r
-\r
-getson COMMAND$\r
-\r
-\r
-END SUB\r
-\r