%externalroutine disc(%string (255) s)
%externalroutinespec define(%string (255) s)
%integer i,j,k
define ("1,".s)
select input(1)
%cycle
      readsymbol(i)
      printsymbol(i) %if i>=32 %or i = nl
%repeat
%end
%endoffile