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

diff --git a/samples/alpha-mj/fields.mj b/samples/alpha-mj/fields.mj
new file mode 100644
index 0000000..f29fb26
--- /dev/null
+++ b/samples/alpha-mj/fields.mj
@@ -0,0 +1,44 @@
+program F
+	class HolderClass {
+		int simple;
+		int[] arry;
+	}
+	
+	HolderClass holder;
+	
+{
+	void main()
+		int i, size;
+	{
+		holder = new HolderClass;
+		holder.simple = 5;
+		
+		print(holder.simple,10);
+		
+		print(chr(10));
+		
+		size = 5;
+		holder.arry = new int[size];
+		holder.arry[0] = size+1;
+		i = 1;
+		while (i < size){
+			holder.arry[i] = holder.arry[i-1]-1;
+			i++;
+		}
+		
+		i = 0;
+		while (i < size){
+			print(holder.arry[i],3);
+			i++;
+		}
+		print(chr(10));
+		
+		i = 0;
+		while (i < size){
+			holder.arry[i]--;
+			print(holder.arry[i],3);
+			i++;
+		}
+		
+	}
+}
\ No newline at end of file