X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=mjc2wsl.git;a=blobdiff_plain;f=samples%2FInOut3.mj;fp=samples%2FInOut3.mj;h=73d7ddd66b37ac4b3fa7be6da0e40b0a201a673b;hp=0000000000000000000000000000000000000000;hb=6dc62f4d854849045be6915835145c54538af4d4;hpb=9e84964fb3bb33b019cac3063c7944d89a0460c8

diff --git a/samples/InOut3.mj b/samples/InOut3.mj
new file mode 100644
index 0000000..73d7ddd
--- /dev/null
+++ b/samples/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