diff --git a/WEGA/contrib/ingres/dbs/demo/amx/09.x b/WEGA/contrib/ingres/dbs/demo/amx/09.x
new file mode 100644
index 0000000..de17064
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/demo/amx/09.x
@@ -0,0 +1,17 @@
+##	shared	Dt
+##	i2	tnum;
+##	i2	tnum_arg;
+amx(argc, argv)
+int	argc;
+char	**argv;
+{
+	tnum_arg = (argc == 1)? 10: atoi(argv[1]);
+##	open Teile
+##	retrieve Teile $Tnum <= tnum_arg and $Tnum >= 2 (tnum = $Tnum)
+##	{
+		if (tnum == 2 || tnum == tnum_arg)
+##			print ($Tname, $Tnum)
+##	}
+##	close Teile
+	fflush(stdout);
+}
diff --git a/WEGA/contrib/ingres/dbs/demo/amx/10.x b/WEGA/contrib/ingres/dbs/demo/amx/10.x
new file mode 100644
index 0000000..7a762fb
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/demo/amx/10.x
@@ -0,0 +1,12 @@
+##	shared	Dt
+##	i2	tnum;
+amx(argc, argv)
+int	argc;
+char	**argv;
+{
+	tnum = (argc == 1)? 10: atoi(argv[1]);
+##	open Teile
+##	retrieve Teile $Tnum <= tnum and $Tnum > 5 { print ($Tname, $Tnum) }
+##	close Teile
+	fflush(stdout);
+}