RosettaCodeData/Task/Strip-comments-from-a-string/PL-I/strip-comments-from-a-string.pli

k = search(text, '#;');
if k = 0 then put skip list (text);
         else put skip list (substr(text, 1, k-1));