Updated documentation.

[fifth.git] / util / fsimport.bas

diff --git a/util/fsimport.bas b/util/fsimport.bas
deleted file mode 100755 (executable)
index 0d7e1ff..0000000
--- a/util/fsimport.bas
+++ /dev/null
@@ -1,134 +0,0 @@
-DECLARE SUB bytew (fi&, d&, addr&)\r
-DECLARE SUB byter (fi&, addr&, d&)\r
-DECLARE SUB dwordw (fi&, b&, a&)\r
-DEFLNG A-Z\r
-\r
-DECLARE SUB savepath ()\r
-DECLARE SUB getson (a$)\r
-DECLARE SUB start ()\r
-\r
-DIM SHARED mitus, sona$(1 TO 50)\r
-DIM SHARED byte AS STRING * 1\r
-DIM SHARED length\r
-DIM SHARED srcfile$\r
-\r
-start\r
-\r
-OPEN "..\disk.raw" FOR BINARY AS #1\r
-savepath\r
-SEEK #1, 2000101\r
-OPEN srcfile$ FOR BINARY AS #2\r
-2\r
-IF EOF(2) <> 0 THEN GOTO 1\r
-GET #2, , byte\r
-length = length + 1\r
-PUT #1, , byte\r
-GOTO 2\r
-1\r
-CLOSE #2\r
-dwordw 1, length - 1, 2000000\r
-CLOSE #1\r
-\r
-SYSTEM\r
-\r
-SUB byter (fi, addr, d)\r
-SEEK #1, addr + 1\r
-GET fi, , byte\r
-d = ASC(byte)\r
-END SUB\r
-\r
-SUB bytew (fi, d, addr)\r
-SEEK #1, addr + 1\r
-byte = CHR$(d)\r
-PUT #1, , byte\r
-END SUB\r
-\r
-SUB dwordr (fi, a, f)\r
-byter fi, a, b\r
-byter fi, a + 1, c\r
-byter fi, a + 2, d\r
-byter fi, a + 3, e\r
-f = e * 16777216\r
-f = f + d * 65536 + c * 256 + b\r
-END SUB\r
-\r
-SUB dwordw (fi, b, a)\r
-c = b\r
-d = c \ 16777216\r
-c = c - (d * 16777216)\r
-\r
-e = c \ 65536\r
-c = c - (e * 65536)\r
-\r
-f = c \ 256\r
-c = c - (f * 256)\r
-\r
-bytew fi, c, a\r
-bytew fi, f, a + 1\r
-bytew fi, e, a + 2\r
-bytew fi, d, a + 3\r
-END SUB\r
-\r
-DEFSNG A-Z\r
-SUB getson (a$)\r
-mitus = 0\r
-\r
-d = 1\r
-FOR b = 1 TO LEN(a$)\r
-c$ = RIGHT$(LEFT$(a$, b), 1)\r
-IF c$ = " " THEN\r
-d = 1\r
-ELSE\r
-IF d = 1 THEN\r
-mitus = mitus + 1\r
-sona$(mitus) = ""\r
-d = 0\r
-END IF\r
-sona$(mitus) = sona$(mitus) + c$\r
-END IF\r
-NEXT b\r
-END SUB\r
-\r
-SUB savepath\r
-a$ = COMMAND$ + "\"\r
-f$ = ""\r
-ext$ = ""\r
-t$ = ""\r
-m = 0\r
-FOR b = 1 TO LEN(a$)\r
-  c$ = RIGHT$(LEFT$(a$, b), 1)\r
-  IF c$ = "." THEN m = 1: GOTO 3\r
-  IF c$ = "\" THEN\r
-    IF ext$ = "" THEN ext$ = "list"\r
-4   IF LEN(ext$) < 4 THEN ext$ = ext$ + "_": GOTO 4\r
-    t$ = t$ + ext$ + f$ + "\"\r
-    f$ = ""\r
-    ext$ = ""\r
-    GOTO 3\r
-  END IF\r
-  IF m = 0 THEN f$ = f$ + c$ ELSE ext$ = ext$ + c$\r
-3\r
-NEXT b\r
-t$ = LEFT$(t$, LEN(t$) - 1)\r
-\r
-' PRINT a$\r
-' PRINT t$\r
-\r
-t$ = t$ + CHR$(254)\r
-SEEK #1, 2000005\r
-PUT #1, , t$\r
-\r
-\r
-\r
-\r
-END SUB\r
-\r
-SUB start\r
-\r
-IF COMMAND$ = "" THEN END\r
-\r
-srcfile$ = COMMAND$\r
-\r
-\r
-END SUB\r
-\r