move samples to 'alpha-mj' subfolder

[mjc2wsl.git] / samples / alpha-mj / chrtest.mj

diff --git a/samples/alpha-mj/chrtest.mj b/samples/alpha-mj/chrtest.mj
new file mode 100644 (file)
index 0000000..ddc0b8b
--- /dev/null
+++ b/samples/alpha-mj/chrtest.mj
@@ -0,0 +1,11 @@
+program P
+{
+       void main()
+       {
+                       print(chr(65),5);
+                       print('A',5);
+                       print(chr(10),2);
+                       print(ord('a'),5);
+                       print('a',5);
+       }
+}