Updated documentation.

[fifth.git] / util / src25th.bas

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