diff --git a/p/hello_world.pl1 b/p/hello_world.pl1
new file mode 100644
index 0000000..b8cfd57
--- /dev/null
+++ 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;