util/insert.bas

   1 DECLARE SUB getson (a$)\r
   2 DECLARE SUB start ()\r
   3 DIM SHARED mitus, sona$(1 TO 50)\r
   4 DIM SHARED byte AS STRING * 1\r
   5 \r
   6 start\r
   7 \r
   8 OPEN sona$(1) FOR BINARY AS #1\r
   9 PRINT "Seeking to:" + sona$(3)\r
  10 SEEK #1, VAL(sona$(3)) + 1\r
  11 OPEN sona$(2) FOR BINARY AS #2\r
  12 2\r
  13 IF EOF(2) <> 0 THEN GOTO 1\r
  14 GET #2, , byte\r
  15 PUT #1, , byte\r
  16 GOTO 2\r
  17 1\r
  18 CLOSE #2\r
  19 CLOSE #1\r
  20 \r
  21 SYSTEM\r
  22 \r
  23 SUB getson (a$)\r
  24 mitus = 0\r
  25 \r
  26 d = 1\r
  27 FOR b = 1 TO LEN(a$)\r
  28 c$ = RIGHT$(LEFT$(a$, b), 1)\r
  29 IF c$ = " " THEN\r
  30 d = 1\r
  31 ELSE\r
  32 IF d = 1 THEN\r
  33 mitus = mitus + 1\r
  34 sona$(mitus) = ""\r
  35 d = 0\r
  36 END IF\r
  37 sona$(mitus) = sona$(mitus) + c$\r
  38 END IF\r
  39 NEXT b\r
  40 END SUB\r
  41 \r
  42 SUB start\r
  43 \r
  44 IF COMMAND$ = "" THEN END\r
  45 \r
  46 getson COMMAND$\r
  47 \r
  48 \r
  49 END SUB\r
  50 \r