(L); if index(line, pattern) > 0 then put skip list (line_no, line); line_no = line_no + 1; end; end find_strings; R. A. Frieburghouse. The Multics PL/1
Boston's RedLine: Bridging the Charles from Alewife to Braintree. Arcadia Publishing. 2002: 50. ISBN 9780738510477. RedLine/Blue Line Connector Project: