Quelle  printsquares.cob   Sprache: Cobol

       Identification Division.
       Program-Id. square.
       Author. "Frank Pillhofer".
      * "aus fpx.de Übungsblatt 8"  
       Data Division.
       Linkage Section.
         77 par1    pic S9(8) comp-2.
         77 par2    pic S9(8) comp-2.
       Procedure Division using par1 par2.
         multiply par1 by par1 giving par2
         move -10 to par1
       End-Program square.

       Identification Division.
       Program-Id. printsquares.
       Author. "Frank Pillhofer".
      * "aus fpx.de Übungsblatt 8"  
       Data Division.
       Working-Storage Section.
         77 a    pic S9(8) comp-2.
         77 f    pic S9(8) comp-2.
       Procedure Division.
         display a " " f "erste zeile"
         move 1 to a
         perform until a>10
           call square using a f
           display a " " f
           add 1 to a
         end-perform
       End-Program printsquares.