diff --git a/WEGA/contrib/ingres/dbs/demo/form/formdemo.c b/WEGA/contrib/ingres/dbs/demo/form/formdemo.c
new file mode 100644
index 0000000..5827031
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/demo/form/formdemo.c
@@ -0,0 +1,41 @@
+char		*m_view;
+char		*m_korr;
+
+f_view(frame)
+register char		*frame;
+{
+   if (MMshell(m_view, 0, 0, "./view"))
+	MMerror(" view nicht ausfuehrbar ");
+}
+
+f_korr(frame)
+register char		*frame;
+{
+   if (MMshell(m_korr, 0, 0, "./korr"))
+	MMerror(" korr nicht ausfuehrbar ");
+}
+
+main()
+{
+	register char		*form;
+	char			*frame;
+	extern char		*MMalloc();
+
+   MMinit_form(1);
+
+   frame = (char *) 0;
+   form = MMalloc(&frame, 4, 5, 71, (char *) 0);
+   MMout_field(form, "----------------------------------------------------- D E M O   F O R M");
+
+   m_view = form = MMalloc(&frame, 8, 5, 21, (char *) 0);
+   MMmen_field(form, f_view, (int (*)()) 0, " ANSICHT DER DB DT");
+
+   m_korr = form = MMalloc(&frame, 10, 5, 21, (char *) 0);
+   MMmen_field(form, f_korr, (int (*)()) 0, " KORREKTUR DER DB DT");
+
+   MMform(frame);
+
+   MMfree(&frame);
+   MMexit_form(1);
+   return (0);
+}
diff --git a/WEGA/contrib/ingres/dbs/demo/form/korr.c b/WEGA/contrib/ingres/dbs/demo/form/korr.c
new file mode 100644
index 0000000..fcbd674
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/demo/form/korr.c
@@ -0,0 +1,63 @@
+char		*m_erfind;
+char		*m_lieferung;
+char		*m_personal;
+char		*m_teile;
+
+f_erfind(frame)
+register char		*frame;
+{
+   if (MMshell(m_erfind, 0, 0, "./k_erfind"))
+	MMerror(" k_erfind nicht ausfuehrbar ");
+}
+
+f_lieferung(frame)
+register char		*frame;
+{
+   if (MMshell(m_lieferung, 0, 0, "./k_lieferung"))
+	MMerror(" k_lieferung nicht ausfuehrbar ");
+}
+
+f_personal(frame)
+register char		*frame;
+{
+   if (MMshell(m_personal, 0, 0, "./k_personal"))
+	MMerror(" k_personal nicht ausfuehrbar ");
+}
+
+f_teile(frame)
+register char		*frame;
+{
+   if (MMshell(m_teile, 0, 0, "./k_teile"))
+	MMerror(" k_teile nicht ausfuehrbar ");
+}
+
+main()
+{
+	register char		*form;
+	char			*frame;
+	extern char		*MMalloc();
+
+   MMinit_form(1);
+
+   frame = (char *) 0;
+   form = MMalloc(&frame, 2, 1, 71, (char *) 0);
+   MMout_field(form, "------------------------------------------------- K O R R E K T U R E N");
+
+   m_erfind = form = MMalloc(&frame, 8, 5, 11, (char *) 0);
+   MMmen_field(form, f_erfind, (int (*)()) 0, " ERFIND");
+
+   m_lieferung = form = MMalloc(&frame, 10, 5, 11, (char *) 0);
+   MMmen_field(form, f_lieferung, (int (*)()) 0, " LIEFERUNG");
+
+   m_personal = form = MMalloc(&frame, 12, 5, 11, (char *) 0);
+   MMmen_field(form, f_personal, (int (*)()) 0, " PERSONAL");
+
+   m_teile = form = MMalloc(&frame, 14, 5, 11, (char *) 0);
+   MMmen_field(form, f_teile, (int (*)()) 0, " TEILE");
+
+   MMform(frame);
+
+   MMfree(&frame);
+   MMexit_form(1);
+   return (0);
+}
diff --git a/WEGA/contrib/ingres/dbs/demo/form/v_personal.x b/WEGA/contrib/ingres/dbs/demo/form/v_personal.x
new file mode 100644
index 0000000..7bc8014
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/demo/form/v_personal.x
@@ -0,0 +1,165 @@
+## shared dt
+
+# define	NF		((int (*)()) 0)		/* null function */
+# define	N		16
+
+# define	SATZ		 4
+   int		satz;
+
+/* vars of relation personal */
+# define	NUM		 4
+## i2		num;
+
+# define	NAME		20
+## char		name[21];
+
+# define	GEHALT		 6
+## i2		gehalt;
+
+# define	LEITER		 6
+## i2		leiter;
+
+# define	GEBDAT		 6
+## i2		gebdat;
+
+# define	EINSTDAT	 8
+## i2		einstdat;
+
+
+f_retrieve(frame)
+register char		*frame;
+{
+	register int		cnt;
+
+   MMerror(" RECHERCHE LAEUFT ");
+## use (shared personal)
+   satz = cnt = 0;
+## retrieve personal
+## (
+## 	num = $num,
+## 	name = $name,
+## 	gehalt = $gehalt,
+## 	leiter = $leiter,
+## 	gebdat = $gebdat,
+## 	einstdat = $einstdat
+## )
+## {
+	if (cnt == N)
+	{
+		if (MMnext())
+##			endretrieve
+		cnt = 0;
+	}
+	satz++;
+	MMset_value(frame, &satz, cnt);
+	MMset_value(frame, &num, cnt);
+	MMset_value(frame, name, cnt);
+	MMset_value(frame, &gehalt, cnt);
+	MMset_value(frame, &leiter, cnt);
+	MMset_value(frame, &gebdat, cnt);
+	MMset_value(frame, &einstdat, cnt);
+	if (++cnt == N)
+	{
+		MMvalue(frame);
+		MMclr_value(frame);
+	}
+## }
+## commit
+
+   MMerror(" RECHERCHE BEENDET ");
+   if (cnt < N)
+   {
+	MMvalue(frame);
+	MMclr_value(frame);
+   }
+}
+
+amx(argc, argv)
+int	argc;
+char	*argv[];
+{
+	register int		i;
+	register char		*form;
+	char			*frame;
+	extern char		*MMalloc();
+
+   MMinit_form(1);
+
+   frame = (char *) 0;
+   form = MMalloc(&frame, 2, 1, 71, (char *) 0);
+   MMout_field(form, "------------------------------------------------------- P E R S O N A L");
+
+   form = MMalloc(&frame, 4, 1, 4, (char *) 0);
+   MMout_field(form, "SATZ");
+
+   form = MMalloc(&frame, 4, 8, 3, (char *) 0);
+   MMout_field(form, "NUM");
+
+   form = MMalloc(&frame, 4, 29, 4, (char *) 0);
+   MMout_field(form, "NAME");
+
+   form = MMalloc(&frame, 4, 35, 6, (char *) 0);
+   MMout_field(form, "GEHALT");
+
+   form = MMalloc(&frame, 4, 43, 6, (char *) 0);
+   MMout_field(form, "LEITER");
+
+   form = MMalloc(&frame, 4, 51, 6, (char *) 0);
+   MMout_field(form, "GEBDAT");
+
+   form = MMalloc(&frame, 4, 59, 8, (char *) 0);
+   MMout_field(form, "EINSTDAT");
+
+   form = MMalloc(&frame, 5, 7, 60, (char *) 0);
+   MMout_field(form, "------------------------------------------------------------");
+
+   for (i = 6; i < 6 + N; i++)
+   {
+	form = MMalloc(&frame, i, 1, SATZ, (char *) 0);
+	MMval_field(form, NF);
+	MMvari2(form, &satz, "%4d");
+
+	form = MMalloc(&frame, i, 7, NUM, (char *) 0);
+	MMval_field(form, NF);
+	MMvari2(form, &num, "%4d");
+
+	form = MMalloc(&frame, i, 13, NAME, (char *) 0);
+	MMval_field(form, NF);
+	MMvarc(form, name, "%20s");
+
+	form = MMalloc(&frame, i, 35, GEHALT, (char *) 0);
+	MMval_field(form, NF);
+	MMvari2(form, &gehalt, "%6d");
+
+	form = MMalloc(&frame, i, 43, LEITER, (char *) 0);
+	MMval_field(form, NF);
+	MMvari2(form, &leiter, "%6d");
+
+	form = MMalloc(&frame, i, 51, GEBDAT, (char *) 0);
+	MMval_field(form, NF);
+	MMvari2(form, &gebdat, "%6d");
+
+	form = MMalloc(&frame, i, 59, EINSTDAT, (char *) 0);
+	MMval_field(form, NF);
+	MMvari2(form, &einstdat, "%8d");
+   }
+
+   form = MMalloc(&frame, i, 7, 60, (char *) 0);
+   MMout_field(form, "------------------------------------------------------------");
+
+   form = MMalloc(&frame, 24, 2, 6, (char *) 0);
+   MMout_field(form, "SAETZE");
+
+   form = MMalloc(&frame, 24, 13, 10, (char *) 0);
+   MMmen_field(form, f_retrieve, NF, " ANZEIGEN ");
+
+## open personal
+
+   MMform(frame);
+
+## close personal
+
+   MMfree(&frame);
+   MMexit_form(1);
+   return (0);
+}
diff --git a/WEGA/contrib/ingres/dbs/demo/form/view.c b/WEGA/contrib/ingres/dbs/demo/form/view.c
new file mode 100644
index 0000000..1eab49f
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/demo/form/view.c
@@ -0,0 +1,63 @@
+char		*m_erfind;
+char		*m_lieferung;
+char		*m_personal;
+char		*m_teile;
+
+f_erfind(frame)
+register char		*frame;
+{
+   if (MMshell(m_erfind, 0, 0, "./v_erfind"))
+	MMerror(" v_erfind nicht ausfuehrbar ");
+}
+
+f_lieferung(frame)
+register char		*frame;
+{
+   if (MMshell(m_lieferung, 0, 0, "./v_lieferung"))
+	MMerror(" v_lieferung nicht ausfuehrbar ");
+}
+
+f_personal(frame)
+register char		*frame;
+{
+   if (MMshell(m_personal, 0, 0, "./v_personal"))
+	MMerror(" v_personal nicht ausfuehrbar ");
+}
+
+f_teile(frame)
+register char		*frame;
+{
+   if (MMshell(m_teile, 0, 0, "./v_teile"))
+	MMerror(" v_teile nicht ausfuehrbar ");
+}
+
+main()
+{
+	register char		*form;
+	char			*frame;
+	extern char		*MMalloc();
+
+   MMinit_form(1);
+
+   frame = (char *) 0;
+   form = MMalloc(&frame, 2, 1, 71, (char *) 0);
+   MMout_field(form, "----------------------------------------------------- A N S I C H T E N");
+
+   m_erfind = form = MMalloc(&frame, 8, 5, 11, (char *) 0);
+   MMmen_field(form, f_erfind, (int (*)()) 0, " ERFIND");
+
+   m_lieferung = form = MMalloc(&frame, 10, 5, 11, (char *) 0);
+   MMmen_field(form, f_lieferung, (int (*)()) 0, " LIEFERUNG");
+
+   m_personal = form = MMalloc(&frame, 12, 5, 11, (char *) 0);
+   MMmen_field(form, f_personal, (int (*)()) 0, " PERSONAL");
+
+   m_teile = form = MMalloc(&frame, 14, 5, 11, (char *) 0);
+   MMmen_field(form, f_teile, (int (*)()) 0, " TEILE");
+
+   MMform(frame);
+
+   MMfree(&frame);
+   MMexit_form(1);
+   return (0);
+}