000100 Identification Division.
000200 Program-id. OVN84.
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
001000         Varying Antal from 1 By 1
001100         Until Antal > 10
001200     GoBack
001300     .
001400 SkrivMeddelande.
001500     Display Meddelande Antal
001600     .