1REM JACK WIDDER 71666,1032
5REM Use a code # 99 or less
100MAXFILES=2
110INPUT"File name is";A$
115INPUT"File name will be";B$
120PRINT"Remember - if decoding, code MUST be a  negitive
125INPUT"CODE ";C
150OPENA$FORINPUTAS1:OPENB$FOROUTPUTAS2
160PRINT"This is line 160. It is only here to let you know that I'm working. The *'s is line 207
200C$=INPUT$(1,1)
205D$=CHR$(ASC(C$)+C)
207PRINT"*";
210PRINT#2,D$;
215IFNOTEOF(1)THEN200
225CLOSE:MENU