tag:blogger.com,1999:blog-1708685131741567227.post5666971222373729752..comments2015-06-13T15:02:24.339+01:00Comments on The Velvet Underscore: main = putStrLn "Hello, World!"Carlos Valientehttp://www.blogger.com/profile/14758005461856669649noreply@blogger.comBlogger1125tag:blogger.com,1999:blog-1708685131741567227.post-26970465201268637472010-08-02T14:02:36.906+01:002010-08-02T14:02:36.906+01:00000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID....000100 IDENTIFICATION DIVISION.<br />000200 PROGRAM-ID. HELLOWORLD.<br />000300<br />000400*<br />000500 ENVIRONMENT DIVISION.<br />000600 CONFIGURATION SECTION.<br />000700 SOURCE-COMPUTER. RM-COBOL.<br />000800 OBJECT-COMPUTER. RM-COBOL.<br />000900<br />001000 DATA DIVISION.<br />001100 FILE SECTION.<br />001200<br />100000 PROCEDURE DIVISION.<br />100100<br />100200 MAIN-LOGIC SECTION.<br />100300 BEGIN.<br />100400 DISPLAY " " LINE 1 POSITION 1 ERASE EOS.<br />100500 DISPLAY "Hello world!" LINE 15 POSITION 10.<br />100600 STOP RUN.<br />100700 MAIN-LOGIC-EXIT.<br />100800 EXIT.foletehttps://www.blogger.com/profile/00267726607547244011noreply@blogger.com