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

diff --git a/util/src25th.bas b/util/src25th.bas
deleted file mode 100755
index af0a924..0000000
--- a/util/src25th.bas
+++ /dev/null
@@ -1,65 +0,0 @@
-DECLARE SUB chl (a$, b$)
-DECLARE SUB getline (a$)
-DECLARE SUB start ()
-DIM SHARED byte AS STRING * 1
-DIM SHARED er
-
-
-start
-
-OPEN COMMAND$ + ".src" FOR INPUT AS #1
-IF er = 0 THEN KILL COMMAND$ + ".5th"
-OPEN COMMAND$ + ".5th" FOR BINARY AS #2
-
-1
-IF EOF(1) <> 0 THEN GOTO 2
-LINE INPUT #1, a$
-
-c$ = ""
-e$ = ""
-FOR b = 1 TO LEN(a$)
-d$ = RIGHT$(LEFT$(a$, b), 1)
-IF d$ = " " THEN chl e$, c$: c$ = c$ + CHR$(255): GOTO 3
-IF d$ = CHR$(9) THEN chl e$, c$: c$ = c$ + CHR$(253): GOTO 3
-e$ = e$ + d$
-3
-NEXT b
-chl e$, c$
-c$ = c$ + CHR$(254)
-FOR b = 1 TO LEN(c$)
-  byte = RIGHT$(LEFT$(c$, b), 1)
-  PUT #2, , byte
-NEXT b
-GOTO 1
-2
-
-CLOSE #2
-CLOSE #1
-
-SYSTEM
-
-
-SUB chl (a$, b$)
-
-e$ = ""
-FOR c = 1 TO LEN(a$)
-d = ASC(RIGHT$(LEFT$(a$, c), 1))
-IF (d >= 48) AND (d <= 57) THEN d = d - 48: GOTO 4
-IF (d >= 65) AND (d <= 70) THEN d = d - 55: GOTO 4
-IF (d = 45) AND (c = 1) THEN GOTO 4
-GOTO 5
-4
-e$ = e$ + CHR$(d)
-NEXT c
-a$ = e$
-5
-
-b$ = b$ + a$
-a$ = ""
-END SUB
-
-SUB start
-IF COMMAND$ = "" THEN END
-er = 0
-END SUB
-