@16_400031 %readonly %byte switch

%begin
   %cycle
      write(switch & 15, 0);  print symbol(13)
   %repeat
%end %of %program