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

diff --git a/util/5th2src.bas b/util/5th2src.bas
deleted file mode 100755
index b147cc1..0000000
--- a/util/5th2src.bas
+++ /dev/null
@@ -1,53 +0,0 @@
-DECLARE SUB getline (a$)
-DECLARE SUB start ()
-DIM SHARED byte AS STRING * 1
-DIM SHARED endf
-
-start
-
-OPEN COMMAND$ + ".5th" FOR BINARY AS #1
-OPEN COMMAND$ + ".src" FOR OUTPUT AS #2
-
-1
-getline a$
-IF endf = 1 THEN GOTO 2
-PRINT #2, a$
-GOTO 1
-2
-
-CLOSE #2
-CLOSE #1
-
-SYSTEM
-
-SUB getline (a$)
-
-a$ = ""
-3
-IF EOF(1) <> 0 THEN endf = 1: GOTO 4
-GET #1, , byte
-IF ASC(byte) <= 9 THEN
-  byte = CHR$(48 + ASC(byte))
-END IF
-IF ASC(byte) <= 15 THEN
-  byte = CHR$(65 + ASC(byte) - 10)
-END IF
-IF ASC(byte) = 255 THEN
-  byte = " "
-END IF
-IF ASC(byte) = 253 THEN
-  byte = CHR$(9)
-END IF
-
-IF byte = CHR$(254) THEN GOTO 4
-a$ = a$ + byte
-GOTO 3
-4
-
-END SUB
-
-SUB start
-endf = 0
-IF COMMAND$ = "" THEN END
-END SUB
-