X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=mjc2wsl.git;a=blobdiff_plain;f=samples%2Falpha-mj%2Fchrtest.mj;fp=samples%2Falpha-mj%2Fchrtest.mj;h=ddc0b8bfe6ca839f66b1aa43ecb3e3ba4dd57051;hp=0000000000000000000000000000000000000000;hb=77e39fac55f1a366814d35e75659cb6d88cca4e1;hpb=306587b78e421a7221952e44adde831723748e4c

diff --git a/samples/alpha-mj/chrtest.mj b/samples/alpha-mj/chrtest.mj
new file mode 100644
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);
+	}
+}