**** CODER ****#"X100009,Y631:Z198:B$""C6""u@S$".ABCDEFGHIJKLMNOPQRSTUVWXYZ?!1234567890'"JS1$"!?ZYXWVUTSRQPONMLKJIHGFEDCBA.0987654321'"T"ENTER DATA TO BE CODED ('END' TO QUIT):":A$:A$"END"^N1(A$) hR141. r(A$,N,1)(S$,R,1)C$(S1$,R,1):R415 |RE B$B$C$:Nu ""X"D"(34)B$(34)"X="X1":GOTO63020" Y,19:Y1,13:Y2,13:Y3,13:Z,4: **** DECODER **** S1$".ABCDEFGHIJKLMNOPQRSTUVWXYZ?!1234567890'" S$"!?ZYXWVUTSRQPONMLKJIHGFEDCBA.0987654321'"Y "ENTER # OF DATA STATEMENTS TO DECODE:":N:L1N:B$""a A$p N1(A$)| R141 &(A$,N,1)(S$,R,1)C$(S1$,R,1):R41 0R :B$B$C$:N DB$:L