000100 Identification Division.
000200 Program-id. OVN82.
000300 Data Division.
000400 Working-Storage Section.
000500 01 Meddelande    Pic X(25) Value 'Ett Meddelande'.
000600
000700 Procedure Division.
000800     Perform SkrivMeddelande 10 Times
000900     GoBack
001000     .
001100 SkrivMeddelande.
001200     Display Meddelande
001300     .