tools/insert.bas

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