10) ENCODING MESSAGE (375 B)
To use: LOAD 3, RUN
Encode with number 1.., decode with negative number.
Message can contain only alphabetic characters or digits or space.

10 REM
20 REM ENCODING MESSAGE
30 REM
40 PRINT "ENTER MESSAGE:"
50 INPUT A$
60 PRINT A$
70 PRINT "ENTER >0 CODE, <0 DECODE: ";
80 INPUT T
90 PRINT T
100 RANDOMISE ABS(T)
110 IF T<0 THEN PRINT "DE";
120 PRINT "CODED MESSAGE IS:"
130 LET R=RND(36)
140 IF T<0 THEN LET R=36-R
150 IF A$="" THEN GOTO 240
160 LET B=CODE(A$)
170 LET A$=TL$(A$)
180 IF B=0 THEN GOTO 220
190 LET B=B+R-28
200 LET B=B-36*(B/36)
210 LET B=B+28
220 PRINT CHR$(B);
230 GOTO 130
240 PRINT
250 PRINT "ANOTHER MESSAGE? (Y)"
260 INPUT A$
270 IF NOT CODE(A$)=62 THEN GOTO 300
280 CLS
290 GOTO 40
300 PRINT "BYEBYE"
310 STOP