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