DECLARE SUB getson (a$)
DECLARE SUB start ()
DIM SHARED mitus, sona$(1 TO 50)
DIM SHARED byte AS STRING * 1

start

OPEN sona$(1) FOR BINARY AS #1
PRINT "Seeking to:" + sona$(3)
SEEK #1, VAL(sona$(3)) + 1
OPEN sona$(2) FOR BINARY AS #2
2
IF EOF(2) <> 0 THEN GOTO 1
GET #2, , byte
PUT #1, , byte
GOTO 2
1
CLOSE #2
CLOSE #1

SYSTEM

SUB getson (a$)
mitus = 0

d = 1
FOR b = 1 TO LEN(a$)
c$ = RIGHT$(LEFT$(a$, b), 1)
IF c$ = " " THEN
d = 1
ELSE
IF d = 1 THEN
mitus = mitus + 1
sona$(mitus) = ""
d = 0
END IF
sona$(mitus) = sona$(mitus) + c$
END IF
NEXT b
END SUB

SUB start

IF COMMAND$ = "" THEN END

getson COMMAND$


END SUB