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"