Update hello_world.pl1

2016-10-27 12:16:03 -07:00
parent 7cceeb65c3
commit 7dfe06f2dd
1 changed files with 3 additions and 9 deletions
--- a/p/hello_world.pl1
+++ b/p/hello_world.pl1
@@ -1,10 +1,4 @@
-HELLO:   PROCEDURE OPTIONS (MAIN);
+World: Procedure options(main);
+          Put List( 'Hello world' );

-             /* A PROGRAM TO OUTPUT HELLO WORLD */
-             FLAG = 0;
-
-LOOP:     DO WHILE (FLAG = 0);        
-             PUT SKIP DATA('HELLO WORLD!');
-          END LOOP;
-
-END HELLO;
+          End World;