1 DECLARE SUB getson (a$)
\r
3 DIM SHARED mitus, sona$(1 TO 50)
\r
4 DIM SHARED byte AS STRING * 1
\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
13 IF EOF(2) <> 0 THEN GOTO 1
\r
27 FOR b = 1 TO LEN(a$)
\r
28 c$ = RIGHT$(LEFT$(a$, b), 1)
\r
37 sona$(mitus) = sona$(mitus) + c$
\r
44 IF COMMAND$ = "" THEN END
\r