move samples to 'alpha-mj' subfolder

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

diff --git a/samples/alpha-mj/InOut3.mj b/samples/alpha-mj/InOut3.mj
new file mode 100644 (file)
index 0000000..73d7ddd
--- /dev/null
+++ b/samples/alpha-mj/InOut3.mj
@@ -0,0 +1,23 @@
+program InOut3{
+       void main()
+       char c;
+       int i;
+       {
+                       i = 5;
+                       print('c');
+                       print('?');
+                       read(c);
+                       print(c);
+                       print(chr(10));
+                       if (c=='y') {
+                               print('i');
+                               read(i);
+                       } else {
+                               print('c');
+                               read(c);
+                       }
+                       print(chr(10));
+                       print(i,5);
+                       print(c,5);
+       }
+}
\ No newline at end of file