X-Git-Url: http://www2.svjatoslav.eu/gitweb/?p=fifth.git;a=blobdiff_plain;f=util%2Finsert.bas;fp=util%2Finsert.bas;h=0000000000000000000000000000000000000000;hp=d40265ffda07e36a0fea90fd806c99bddd553bc9;hb=7ad7475c2abf891a92b457339aaa0c20c40634d1;hpb=791dce846c524feca7b344307597c1d1224ba1de

diff --git a/util/insert.bas b/util/insert.bas
deleted file mode 100755
index d40265f..0000000
--- a/util/insert.bas
+++ /dev/null
@@ -1,50 +0,0 @@
-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
-