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