NOTE: I know this one doesn't work at the minute.  I'll fix it
      Real Soon Now.


1 REM *** Written by Mark Ray, please read welcome.msg first ***
2 ON ERROR IF ERR=17 THEN CH."AUTO" ELSE REPORT:PRINT " at ";ERL:END
5  CLS:PRINT SPC(29);"File Encryption System"'
10 INPUT LINE "Read from :"IN$:INPUT LINE "Write To  :"OUT$
20 INPUT LINE "Key Number:"KEY:I=OPENIN(IN$):O=OPENOUT(OUT$)
30 K=KEY:REPEAT:BPUT#O,(BGET#I XOR K):K=
40 CLOSE#I:CLOSE#O:CHAIN"AUTO"