000100 Identification Division.
000200 Program-id. OVN93.
000300 Data Division.
000400 Working-Storage Section.
000500 01 Antal   Pic 9(02) Value 0.
000600    88 Klar           Value 11.
000700 01 Medd2   Pic X(22) Value 'Det är andra gången'.
000800 01 Medd4   Pic X(22) Value 'Det är fjärde gången'.
000900 01 Medd6   Pic X(22) Value 'Det är sjätte gången'.
001000 01 Medd8   Pic X(22) Value 'Det är åttonde gången'.
001100 01 Medd10  Pic X(22) Value 'Det är tionde gången'.
001200 01 MeddU   Pic X(22) Value 'Det är en udda gång'.
001300
001400 Procedure Division.
001500     Perform SkrivMeddelande
001600        Varying Antal from 1 by 1 Until Klar
001700     GoBack
001800     .
001900 SkrivMeddelande.
002000     Evaluate True
002100        When Antal = 2
002200           Display Medd2 Antal
002300        When Antal = 4
002400           Display Medd4 Antal
002500        When Antal = 6
002600           Display Medd6 Antal
002700        When Antal = 8
002800           Display Medd8 Antal
002900        When Antal = 10
003000           Display Medd10 Antal
003100        When Other
003200           Display MeddU Antal
003300     End-Evaluate
003400     .