move samples to 'alpha-mj' subfolder

[mjc2wsl.git] / samples / alpha-mj / while-print.mj

diff --git a/samples/alpha-mj/while-print.mj b/samples/alpha-mj/while-print.mj
new file mode 100644 (file)
index 0000000..cdc0851
--- /dev/null
+++ b/samples/alpha-mj/while-print.mj
@@ -0,0 +1,12 @@
+program P\r
+{\r
+       void main()\r
+               int i;\r
+       { \r
+               i = 0;\r
+               while (i < 5) {\r
+                       print(i);\r
+                       i = i + 1;\r
+               }\r
+       }\r
+}\r