Updated documentation.

[fifth.git] / util / 5th2src.bas

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