Implement parameterless prcoedures

example.elna

@@ -0,0 +1,81 @@
+type
+  T = array 5 of Int,
+  R = record
+    x: Int;
+    y: Int
+  end;
+
+const t = 5;
+
+proc test_string();
+var s: String;
+begin
+  s := "Test string.";
+
+  writei("");
+  writei(s)
+end;
+
+proc test_array();
+var a: T, x_3: Int;
+begin
+  a[0] := 2;
+  a[1] := 5;
+
+  writei("");
+  writei("Test array:");
+
+  x_3 := 0;
+  while x_3 < 2 do
+  begin
+    writei(a[x_3]);
+	x_3 := x_3 + 1
+  end
+end;
+
+proc test_pointer();
+var x_2: Int, p: ^Int;
+begin
+  x_2 := 5;
+  p := @x_2;
+
+  writei("");
+  writei("Test pointer:");
+  writei(p);
+  writei(p^)
+end;
+
+proc test_record();
+var r: R;
+begin
+  writei("");
+  writei("Test record:");
+
+  r.x := 4;
+  r.y := 8;
+
+  writei(r.y)
+end;
+
+var x_1: Int, y: Bool, z: Float, c: Char;
+begin
+  z := 8.2;
+  x_1 := t;
+  y := false;
+  c := 'x';
+
+  if y then
+    z := z + 3.0
+  else
+    z := z + 2.0;
+
+  writei(z);
+
+  writei(x_1);
+  writei(c);
+
+  test_string();
+  test_array();
+  test_pointer();
+  test_record()
+end.