Tolong jelaskan mengenai Contoh aturcara dari Bahasa pengaturcaraan PL/I dalam bahasa melayu

/* READ A STRING, THEN PRINT EVERY */

/* SUBSEQUENT LINE WITH A MATCH */

(LINENO, NDFILE, IX) FIXED BINARY;

NDFILE = 0; ON ENDFILE(SYSIN) NDFILE=1;

IF LENGTH(LINEBUF) > 0 THEN DO;

IF IX > 0 THEN DO;

LINENO = LINENO + 1;

ANSI ANSI X3.53-1976 (R1998) Information Systems - Programming Language - PL/I.

ANSI ANSI X3.74-1987 (R1998) Information Systems - Programming Language - PL/I General-Purpose Subset.

Kednos PL/I for HP OpenVMS VAX and Alpha

IBM PL/I for IBM mainframe, Linux on zSeries and Windows

Power vs. Adventure - PL/I and C A side-by-side comparison of PL/I and C.

PL/I for GCC The pl1gcc project is an attempt to create a native PL/I compiler using the GNU Compiler Collection.