diff --git a/WEGA/contrib/ingres/dbs/demo/form/k_erfind.x b/WEGA/contrib/ingres/dbs/demo/form/k_erfind.x
new file mode 100644
index 0000000..02b3801
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/demo/form/k_erfind.x
@@ -0,0 +1,230 @@
+## shared dt
+
+# define	NF		((int (*)()) 0)		/* null function */
+# define	FIELD		22
+
+   int		key = 1;
+   char		*text = " KEIN AKTUELLER SATZ VORHANDEN ";
+
+/* vars of relation erfind */
+# define	ERFINDUNG	36
+## char		erfindung[37];
+   char		v_erf[ERFINDUNG + 1];
+
+# define	ERFINDER	20
+## char		erfinder[21];
+   char		v_erfinder[ERFINDER + 1];
+
+# define	JAHR		 9
+## char		jahr[10];
+   char		v_jahr[JAHR + 1];
+
+# define	LAND		12
+## char		land[13];
+   char		v_land[LAND + 1];
+
+
+f_init(frame)
+register char		*frame;
+{
+   erfinder[0] = 0;
+   jahr[0] = 0;
+   land[0] = 0;
+   MMclr_value(frame);
+   MMvalue(frame);
+}
+
+f_retrieve(frame)
+register char		*frame;
+{
+	register int		cnt;
+
+   key++;
+   f_init(frame);
+   cnt = 0;
+
+## use (shared erfind)
+## retrieve erfind $erfindung == erfindung
+## (
+## 	erfindung = $erfindung,
+## 	erfinder = $erfinder,
+## 	jahr = $jahr,
+## 	land = $land
+## )
+## {
+	cnt++;
+	key = 0;
+	MMset_value(frame, erfindung, 0);
+	MMset_value(frame, erfinder, 0);
+	MMset_value(frame, jahr, 0);
+	MMset_value(frame, land, 0);
+	MMvalue(frame);
+##	endretrieve
+## }
+## commit
+
+   if (!cnt)
+	MMerror(" SATZ NICHT VORHANDEN ");
+}
+
+f_append(frame)
+register char		*frame;
+{
+	register int		cnt;
+
+## use (exclusive erfind)
+   cnt = 0;
+## retrieve erfind $erfindung == erfindung
+## {
+	cnt++;
+##	endretrieve
+## }
+   if (!cnt)
+   {
+	key = 0;
+##	append erfind
+##	(
+## 		$erfindung = erfindung,
+## 		$erfinder = erfinder,
+## 		$jahr = jahr,
+## 		$land = land
+##	)
+## commit
+   }
+
+   MMerror(cnt? " SATZ VORHANDEN ": " SATZ ANGEFUEGT ");
+}
+
+f_delete(frame)
+register char		*frame;
+{
+	register int		cnt;
+
+   if (key)
+   {
+	MMerror(text);
+	return;
+   }
+
+## use (exclusive erfind)
+## retrieve erfind $erfindung == erfindung
+## {
+	cnt++;
+##	delete
+##	endretrieve
+## }
+## commit
+
+   MMerror(cnt? " SATZ GELOESCHT ": " SATZ NICHT GELOESCHT ");
+   key++;
+   f_init(frame);
+}
+
+f_replace(frame)
+register char		*frame;
+{
+	register int		cnt;
+   if (key)
+   {
+	MMerror(text);
+	return;
+   }
+
+## use (exclusive erfind)
+   cnt = 0;
+## retrieve erfind $erfindung == erfindung
+## {
+	cnt++;
+##	replace
+##	(
+##		$erfinder = erfinder,
+##		$jahr = jahr,
+##		$land = land
+##	)
+##	endretrieve
+## }
+## commit
+
+   MMerror(cnt? " SATZ ERSETZT ": " SATZ NICHT ERSETZT ");
+}
+
+amx(argc, argv)
+int			argc;
+char			*argv[];
+{
+	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, "----------------------------------------------------------- E R F I N D");
+
+   form = MMalloc(&frame, 3, 1, 9, (char *) 0);
+   MMout_field(form, "ERFINDUNG");
+
+   form = MMalloc(&frame, 3, FIELD, ERFINDUNG, v_erf);
+   MMval_field(form, NF);
+   MMvarc(form, erfindung, (char *) 0);
+   form = MMalloc(&frame, 3, FIELD, ERFINDUNG, v_erf);
+   MMin_field(form, NF, NF, 0);
+   MMvarc(form, erfindung, (char *) 0);
+
+   form = MMalloc(&frame, 5, 1, 8, (char *) 0);
+   MMout_field(form, "ERFINDER");
+
+   form = MMalloc(&frame, 5, FIELD, ERFINDER, v_erfinder);
+   MMval_field(form, NF);
+   MMvarc(form, erfinder, (char *) 0);
+   form = MMalloc(&frame, 5, FIELD, ERFINDER, v_erfinder);
+   MMin_field(form, NF, NF, 0);
+   MMvarc(form, erfinder, (char *) 0);
+
+   form = MMalloc(&frame, 6, 1, 4, (char *) 0);
+   MMout_field(form, "JAHR");
+
+   form = MMalloc(&frame, 6, FIELD, JAHR, v_jahr);
+   MMval_field(form, NF);
+   MMvarc(form, jahr, (char *) 0);
+   form = MMalloc(&frame, 6, FIELD, JAHR, v_jahr);
+   MMin_field(form, NF, NF, 0);
+   MMvarc(form, jahr, (char *) 0);
+
+   form = MMalloc(&frame, 7, 1, 4, (char *) 0);
+   MMout_field(form, "LAND");
+
+   form = MMalloc(&frame, 7, FIELD, LAND, v_land);
+   MMval_field(form, NF);
+   MMvarc(form, land, (char *) 0);
+   form = MMalloc(&frame, 7, FIELD, LAND, v_land);
+   MMin_field(form, NF, NF, 0);
+   MMvarc(form, land, (char *) 0);
+
+   form = MMalloc(&frame, 24, 2, 4, (char *) 0);
+   MMout_field(form, "SATZ");
+
+   form = MMalloc(&frame, 24, 13, 10, (char *) 0);
+   MMmen_field(form, f_retrieve, NF, " ANZEIGEN ");
+
+   form = MMalloc(&frame, 24, 28, 10, (char *) 0);
+   MMmen_field(form, f_append, NF, " ANFUEGEN ");
+
+   form = MMalloc(&frame, 24, 43, 10, (char *) 0);
+   MMmen_field(form, f_delete, NF, " LOESCHEN ");
+
+   form = MMalloc(&frame, 24, 58, 10, (char *) 0);
+   MMmen_field(form, f_replace, NF, " ERSETZEN ");
+
+## open erfind
+
+   MMform(frame);
+
+## close erfind
+
+   MMfree(&frame);
+   MMexit_form(1);
+   return (0);
+}
diff --git a/WEGA/contrib/ingres/dbs/demo/form/k_personal.x b/WEGA/contrib/ingres/dbs/demo/form/k_personal.x
new file mode 100644
index 0000000..6885adc
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/demo/form/k_personal.x
@@ -0,0 +1,317 @@
+## shared dt
+
+# define	NF		((int (*)()) 0)		/* null function */
+# define	FIELD		22
+
+   int		key = 1;
+   char		*text = " KEIN AKTUELLER SATZ VORHANDEN ";
+
+/* vars of relation personal */
+# define	NUM		 4
+## i2		num;
+
+# define	NAME		20
+## char		name[21];
+   char		v_name[NAME + 1];
+
+# define	GEHALT		 4
+## i2		gehalt;
+   char		v_gehalt[GEHALT + 1];
+
+# define	LEITER		 4
+## i2		leiter;
+   char		v_leiter[LEITER + 1];
+
+# define	GEBDAT		 4
+## i2		gebdat;
+   char		v_gebdat[GEBDAT + 1];
+
+# define	EINSTDAT	 4
+## i2		einstdat;
+   char		v_einstdat[EINSTDAT + 1];
+
+
+f_init(frame)
+register char		*frame;
+{
+   name[0] = 0;
+   gehalt = 0;
+   leiter = 0;
+   gebdat = 0;
+   einstdat = 0;
+   MMclr_value(frame);
+   MMvalue(frame);
+}
+
+f_num(frame)
+register char		*frame;
+{
+   if (num <= 0 || num > 9999)
+   {
+	MMerror(" NUM FALSCH ");
+	return (0);
+   }
+   return (1);
+}
+
+f_gehalt(frame)
+register char		*frame;
+{
+   if (gehalt <= 0 || gehalt > 9999)
+   {
+	MMerror(" GEHALT FALSCH ");
+	return (0);
+   }
+   return (1);
+}
+
+f_leiter(frame)
+register char		*frame;
+{
+   if (leiter < 0 || leiter > 9999)
+   {
+	MMerror(" LEITER FALSCH ");
+	return (0);
+   }
+   return (1);
+}
+
+f_gebdat(frame)
+register char		*frame;
+{
+   if (gebdat <= 0 || gebdat > 9999)
+   {
+	MMerror(" GEBDAT FALSCH ");
+	return (0);
+   }
+   return (1);
+}
+
+f_einstdat(frame)
+register char		*frame;
+{
+   if (einstdat <= 0 || einstdat > 9999)
+   {
+	MMerror(" EINSTDAT FALSCH ");
+	return (0);
+   }
+   return (1);
+}
+
+f_retrieve(frame)
+register char		*frame;
+{
+	register int		cnt;
+
+   key++;
+   f_init(frame);
+   cnt = 0;
+
+## use (shared personal)
+## retrieve personal $num == num
+## (
+## 	name = $name,
+## 	gehalt = $gehalt,
+## 	leiter = $leiter,
+## 	gebdat = $gebdat,
+## 	einstdat = $einstdat
+## )
+## {
+	cnt++;
+	key = 0;
+	MMset_value(frame, name, 0);
+	MMset_value(frame, &gehalt, 0);
+	MMset_value(frame, &leiter, 0);
+	MMset_value(frame, &gebdat, 0);
+	MMset_value(frame, &einstdat, 0);
+	MMvalue(frame);
+##	endretrieve
+## }
+## commit
+
+   if (!cnt)
+	MMerror(" SATZ NICHT VORHANDEN ");
+}
+
+f_append(frame)
+register char		*frame;
+{
+	register int		cnt;
+
+## use (exclusive personal)
+   cnt = 0;
+## retrieve personal $num == num
+## {
+	cnt++;
+##	endretrieve
+## }
+   if (!cnt)
+   {
+	key = 0;
+##	append personal
+##	(
+## 		$num = num,
+## 		$name = name,
+## 		$gehalt = gehalt,
+## 		$leiter = leiter,
+## 		$gebdat = gebdat,
+## 		$einstdat = einstdat
+##	)
+## commit
+   }
+
+   MMerror(cnt? " SATZ VORHANDEN ": " SATZ ANGEFUEGT ");
+}
+
+f_delete(frame)
+register char		*frame;
+{
+	register int		cnt;
+
+   if (key)
+   {
+	MMerror(text);
+	return;
+   }
+
+## use (exclusive personal)
+## retrieve personal $num == num
+## {
+	cnt++;
+##	delete
+##	endretrieve
+## }
+## commit
+
+   MMerror(cnt? " SATZ GELOESCHT ": " SATZ NICHT GELOESCHT ");
+   key++;
+   f_init(frame);
+}
+
+f_replace(frame)
+register char		*frame;
+{
+	register int		cnt;
+   if (key)
+   {
+	MMerror(text);
+	return;
+   }
+
+## use (exclusive personal)
+   cnt = 0;
+## retrieve personal $num == num
+## {
+	cnt++;
+##	replace
+##	(
+##		$name = name,
+##		$gehalt = gehalt,
+##		$leiter = leiter,
+##		$gebdat = gebdat,
+##		$einstdat = einstdat
+##	)
+##	endretrieve
+## }
+## commit
+
+   MMerror(cnt? " SATZ ERSETZT ": " SATZ NICHT ERSETZT ");
+}
+
+amx(argc, argv)
+int			argc;
+char			*argv[];
+{
+	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, 3, 1, 3, (char *) 0);
+   MMout_field(form, "NUM");
+
+   form = MMalloc(&frame, 3, FIELD, NUM, (char *) 0);
+   MMin_field(form, f_num, NF, 0);
+   MMvari2(form, &num, "%d");
+
+   form = MMalloc(&frame, 5, 1, 4, (char *) 0);
+   MMout_field(form, "NAME");
+
+   form = MMalloc(&frame, 5, FIELD, NAME, v_name);
+   MMval_field(form, NF);
+   MMvarc(form, name, (char *) 0);
+   form = MMalloc(&frame, 5, FIELD, NAME, v_name);
+   MMin_field(form, NF, NF, 0);
+   MMvarc(form, name, (char *) 0);
+
+   form = MMalloc(&frame, 6, 1, 6, (char *) 0);
+   MMout_field(form, "GEHALT");
+
+   form = MMalloc(&frame, 6, FIELD, GEHALT, v_gehalt);
+   MMval_field(form, NF);
+   MMvari2(form, &gehalt, "%d");
+   form = MMalloc(&frame, 6, FIELD, GEHALT, v_gehalt);
+   MMin_field(form, f_gehalt, NF, 0);
+   MMvari2(form, &gehalt, "%d");
+
+   form = MMalloc(&frame, 7, 1, 6, (char *) 0);
+   MMout_field(form, "LEITER");
+
+   form = MMalloc(&frame, 7, FIELD, LEITER, v_leiter);
+   MMval_field(form, NF);
+   MMvari2(form, &leiter, "%d");
+   form = MMalloc(&frame, 7, FIELD, LEITER, v_leiter);
+   MMin_field(form, f_leiter, NF, 0);
+   MMvari2(form, &leiter, "%d");
+
+   form = MMalloc(&frame, 8, 1, 6, (char *) 0);
+   MMout_field(form, "GEBDAT");
+
+   form = MMalloc(&frame, 8, FIELD, GEBDAT, v_gebdat);
+   MMval_field(form, NF);
+   MMvari2(form, &gebdat, "%d");
+   form = MMalloc(&frame, 8, FIELD, GEBDAT, v_gebdat);
+   MMin_field(form, f_gebdat, NF, 0);
+   MMvari2(form, &gebdat, "%d");
+
+   form = MMalloc(&frame, 9, 1, 3, (char *) 0);
+   MMout_field(form, "EINSTDAT");
+
+   form = MMalloc(&frame, 9, FIELD, EINSTDAT, v_einstdat);
+   MMval_field(form, NF);
+   MMvari2(form, &einstdat, "%d");
+   form = MMalloc(&frame, 9, FIELD, EINSTDAT, v_einstdat);
+   MMin_field(form, f_einstdat, NF, 0);
+   MMvari2(form, &einstdat, "%d");
+
+   form = MMalloc(&frame, 24, 2, 4, (char *) 0);
+   MMout_field(form, "SATZ");
+
+   form = MMalloc(&frame, 24, 13, 10, (char *) 0);
+   MMmen_field(form, f_retrieve, NF, " ANZEIGEN ");
+
+   form = MMalloc(&frame, 24, 28, 10, (char *) 0);
+   MMmen_field(form, f_append, NF, " ANFUEGEN ");
+
+   form = MMalloc(&frame, 24, 43, 10, (char *) 0);
+   MMmen_field(form, f_delete, NF, " LOESCHEN ");
+
+   form = MMalloc(&frame, 24, 58, 10, (char *) 0);
+   MMmen_field(form, f_replace, NF, " ERSETZEN ");
+
+## open personal
+
+   MMform(frame);
+
+## close personal
+
+   MMfree(&frame);
+   MMexit_form(1);
+   return (0);
+}