000100 Identification Division.
000200 Program-id. OVN83.
000300 Data Division.
000400 Working-Storage Section.
000500 01 Meddelande  Pic X(15) Value 'Det ar gång nr'.
000600 01 Antal       Pic 9(02) Value 0.
000700
000800 Procedure Division.
000900     Perform SkrivMeddelande 10 Times
001000     GoBack
001100     .
001200 SkrivMeddelande.
001300     Add 1 to Antal
001400     Display Meddelande Antal
001500     .