IdentificationDivision. Program-Id. printsquares. Author. "Frank Pillhofer". * "aus fpx.de Übungsblatt 8" DataDivision. Working-StorageSection.
77 a pic S9(8) comp-2.
77 f pic S9(8) comp-2. ProcedureDivision. display a " " f "erste zeile" move 1 to a performuntil a>10 call square using a f display a " " f add 1 to a end-perform End-Program printsquares.
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung und die Messung sind noch experimentell.