Added another sample for PL/0.

2025-04-07 10:52:08 +00:00 · 2015-08-05 23:06:58 -04:00 · 2015-08-05 23:06:58 -04:00 · 906125e7d3
commit 906125e7d3
parent 7cc8d51162
1 changed files with 18 additions and 0 deletions
--- a/language/pl0/samples/square.pas
+++ b/language/pl0/samples/square.pas
@ -0,0 +1,18 @@
+
+VAR x, squ;
+
+PROCEDURE square;
+BEGIN
+   squ:= x * x
+END;
+
+BEGIN
+   x := 1;
+   WHILE x <= 10 DO
+   BEGIN
+      CALL square;
+      ! squ;
+      x := x + 1
+   END
+END.
+