IDENTIFICATION DIVISION.
PROGRAM - ID. IDEONE .
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING - STORAGE SECTION.
01 a pic x( 45 ) Value "The Cobol Information Program." .
01 b pic x( 45 ) value "New Cowboy Def Coach Mattever Clus." .
01 c pic x( 45 ) value "Trinity Fc New Player." .
01 d pic x( 45 ) value "Sinkhole In Japan." .
01 e pic x( 45 ) value "Superbowl Security In New Orleans." .
01 f pic x( 45 ) value "Fireplace Inserts For Safety." .
77 n PIC Z9 .
PROCEDURE DIVISION.
Display a.
Display b.
Display c.
Display d.
Display e.
Display f.
ACCEPT n
PERFORM UNTIL n = 42
DISPLAY n
ACCEPT n
END- PERFORM.
STOP RUN.
CUlERU5USUZJQ0FUSU9OIERJVklTSU9OLgoJUFJPR1JBTS1JRC4gSURFT05FLgoJRU5WSVJPTk1FTlQgRElWSVNJT04uCglEQVRBIERJVklTSU9OLgoJV09SS0lORy1TVE9SQUdFIFNFQ1RJT04uCgkwMSBhIHBpYyB4KDQ1KSBWYWx1ZSAiVGhlIENvYm9sIEluZm9ybWF0aW9uIFByb2dyYW0uIi4KCTAxIGIgcGljIHgoNDUpIHZhbHVlICJOZXcgQ293Ym95IERlZiBDb2FjaCBNYXR0ZXZlciBDbHVzLiIuCgkwMSBjIHBpYyB4KDQ1KSB2YWx1ZSAiVHJpbml0eSBGYyBOZXcgUGxheWVyLiIuCgkwMSBkIHBpYyB4KDQ1KSB2YWx1ZSAiU2lua2hvbGUgSW4gSmFwYW4uIi4KCTAxIGUgcGljIHgoNDUpIHZhbHVlICJTdXBlcmJvd2wgU2VjdXJpdHkgSW4gTmV3IE9ybGVhbnMuIi4KCTAxIGYgcGljIHgoNDUpIHZhbHVlICJGaXJlcGxhY2UgSW5zZXJ0cyBGb3IgU2FmZXR5LiIuCgk3NyBuIFBJQyBaOSAuCglQUk9DRURVUkUgRElWSVNJT04uCglEaXNwbGF5IGEuCglEaXNwbGF5IGIuCglEaXNwbGF5IGMuCglEaXNwbGF5IGQuCglEaXNwbGF5IGUuCglEaXNwbGF5IGYuCglBQ0NFUFQgbgoJCVBFUkZPUk0gVU5USUwgbiA9IDQyCgkJCURJU1BMQVkgbgoJCQlBQ0NFUFQgbgoJCUVORC1QRVJGT1JNLgoJCVNUT1AgUlVOLgo=