fork download
  1. IDENTIFICATION DIVISION.
  2. PROGRAM-ID. IDEONE.
  3. ENVIRONMENT DIVISION.
  4. DATA DIVISION.
  5. WORKING-STORAGE SECTION.
  6. 01 a pic x(45) Value "The Cobol Information Program.".
  7. 01 b pic x(45) value "New Cowboy Def Coach Mattever Clus.".
  8. 01 c pic x(45) value "Trinity Fc New Player.".
  9. 01 d pic x(45) value "Sinkhole In Japan.".
  10. 01 e pic x(45) value "Superbowl Security In New Orleans.".
  11. 01 f pic x(45) value "Fireplace Inserts For Safety.".
  12. 77 n PIC Z9 .
  13. PROCEDURE DIVISION.
  14. Display a.
  15. Display b.
  16. Display c.
  17. Display d.
  18. Display e.
  19. Display f.
  20. ACCEPT n
  21. PERFORM UNTIL n = 42
  22. DISPLAY n
  23. ACCEPT n
  24. END-PERFORM.
  25. STOP RUN.
  26.  
Success #stdin #stdout 0.01s 5236KB
stdin
10
43
5
42
1
stdout
The Cobol Information Program.               
New Cowboy Def Coach Mattever Clus.          
Trinity Fc New Player.                       
Sinkhole In Japan.                           
Superbowl Security In New Orleans.           
Fireplace Inserts For Safety.                
10
43
 5