PL/1    hoch
 
 


 Hello World   B. Bora Bali 
HELLO: PROCEDURE OPTIONS (MAIN);

  PUT SKIP LIST('HELLO WORLD!');

END HELLO;
Gibt "Hello World" auf dem Bildschirm aus.


 Squares   B. Bora Bali 
SQUARE: PROCEDURE OPTIONS (MAIN);

   DECLARE I FIXED DECIMAL(5) INIT(1);  

   DO WHILE (I <= 10);
      PUT SKIP LIST(I**2);
      I = I + 1; 
   END;

END SQUARE;
Gibt die Quadrate von 1 bis 10 aus.