OPTION CHARACTER BYTE
LET infile$="ANG1.txt"
LET outfile$="ANG2.txt"
OPEN #1:NAME infile$
OPEN #2:NAME outfile$ 
ERASE #2
ASK #1: FILESIZE n
LET s$=""
DIM f(n),b$(n)
FOR i=1 TO n
   CHARACTER INPUT #1: s$(i:i)
   LET f(i)=ORD(s$(i:i))
NEXT i
PRINT
INPUT PROMPT "ˆÃ�Ø”Ô�†�i -17 �` 27 ‚Ü‚Å‚Ì�®�”�j�H ":m
FOR i=1 TO n
   LET b$(i)=CHR$(f(i)+i+m)
NEXT i
FOR i=1 TO n
   PRINT #2:b$(i);
NEXT i
CLOSE #1
CLOSE #2
PRINT
PRINT "ˆÃ�†•¶‰»Š®—¹�i ANG1.txt �¨ ANG2.txt �j"
PRINT
END



########################�@�@ANG1.txt�@�@##############################

Hello
I love you.
Good bay.

######################################################################



OPTION CHARACTER BYTE
LET infile$="ANG2.txt"
LET outfile$="ANG3.txt"
OPEN #1:NAME infile$
OPEN #2:NAME outfile$ 
ERASE #2
ASK #1: FILESIZE n
LET s$=""
DIM f(n),b$(n)
FOR i=1 TO n
   CHARACTER INPUT #1: s$(i:i)
   LET f(i)=ORD(s$(i:i))
NEXT i
PRINT
INPUT PROMPT "ˆÃ�Ø”Ô�†�i -17 �` 27 ‚Ì�®�”�j�H ":m
FOR i=1 TO n
   LET b$(i)=CHR$(f(i)-i-m)
NEXT i
FOR i=1 TO n
   PRINT #2:b$(i);
NEXT i
CLOSE #1
CLOSE #2
PRINT
PRINT "ˆÃ�†•¶‰ð“ÇŠ®—¹�i ANG2.txt �¨ ANG3.txt �j"
PRINT
END