Updated documentation.

[fifth.git] / tools / insert.bas

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