Create hello_world.pl1

2016-10-27 12:13:53 -07:00 · 2016-10-27 12:13:53 -07:00 · 7cceeb65c3
commit 7cceeb65c3
parent 3bab02464b
1 changed files with 10 additions and 0 deletions
--- a/p/hello_world.pl1
+++ b/p/hello_world.pl1
@ -0,0 +1,10 @@
+HELLO:   PROCEDURE OPTIONS (MAIN);
+
+             /* A PROGRAM TO OUTPUT HELLO WORLD */
+             FLAG = 0;
+
+LOOP:     DO WHILE (FLAG = 0);        
+             PUT SKIP DATA('HELLO WORLD!');
+          END LOOP;
+
+END HELLO;