000100 Identification Division.
000200 Program-id. OVN91.
000300 Data Division.
000400 Working-Storage Section.
000500 01 Medd1 Pic X(32) Value 'Det är färre än fem ganger'.
000600 01 Medd2 Pic X(32) Value 'Det är fler än eller fem ganger'.
000700 01 Medd3 Pic X(32) Value 'Det är tionde gången'.
000800 01 Antal       Pic 9(02) Value 0.
000900
001000 Procedure Division.
001100     Perform SkrivMeddelande 10 Times
001200     GoBack
001300     .
001400 SkrivMeddelande.
001500     Add 1 to Antal
001600     If Antal = 10
001700        Display Medd3 Antal
001800     Else If Antal < 5
001900             Display Medd1 Antal
002000          Else
002100             Display Medd2 Antal
002200          End-If
002300     End-If
002400     .