    ...    :

10 open#0,"file:///c:/other/win1251.txt","input"
40 open #1,"file:///c:/other/new.txt","output"
60 trap 140
80 get#0,bait%
90 a%=a%+1000
100 bait%=bait%+a%
120 put #1,bait%
130 goto 80
140close #0:close #1

          . ..   ,      win1251,     ,    .

 :

1 tex$=""
2 open #1,"file:///c:/other/win1251.txt","input"
3 trap 8
4 get #1,bait%
5 a%=a%+1000
6 bait%=bait%-a%
7 if bait%<0then bait%=bait%+1104
8 tex$=tex$+chr$(bait%)
9 goto 4
10 clos e#1

 ,    - ,     ,   .   . .. 

  : annimon.com