000100 Identification Division. 000200 Program-id. OVN92. 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 88 Klar Value 10. 001000 001100 Procedure Division. 001200 Perform SkrivMeddelande Until Klar 001300 GoBack 001400 . 001500 SkrivMeddelande. 001600 Add 1 to Antal 001700 If Antal = 10 001800 Display Medd3 Antal 001900 Else If Antal < 5 002000 Display Medd1 Antal 002100 Else 002200 Display Medd2 Antal 002300 End-If 002400 End-If 002500 .