!OPTION(UPPER,NODECODE)
%begin
   %systembytearrayspec Alias Text (0:255)
   %systemintegerspec   Alias Limit;     !one past last used addr
   %systemroutinespec let(%string(63) old, new)
   %externalroutinespec Alias (%string(*)%name it)
   %include "Newsrc:command.inc"
   %string(63) old, new
   %byte %integer %name b, last == byte integer(alias limit)
   %integer j, k
   Old = Command_Parameter
   %unless Old -> old.("=").new %start
      %if Old = "" %or Old = "?" %start
         J = 0
         b == alias text(0)
         %while b ## last %cycle
            %for k = 1,1,b %cycle
               b == b ++ 1
               Print symbol (b)
            %repeat
            b == b ++ 1;              !to next length byte
            %if j = 0 %start;         !toggle thru table: <sym><translation>
               Print string (" = ");  ! pairs. (Both terminated by 0's).
            %else;                    !..after <trans>..
               Newline
            %finish
            j = ~j;                   !toggle j
         %repeat
      %else
         Print string (old . " = ")
         Alias (old);                    !force translation in place
         Print string (old)
         Newline
      %finish
   %else
      Let(Old, New)
   %finish
%endofprogram
