diff --git a/WEGA/contrib/ingres/dbs/data/base/adr/a.x b/WEGA/contrib/ingres/dbs/data/base/adr/a.x
new file mode 100644
index 0000000..c65a7d9
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/data/base/adr/a.x
@@ -0,0 +1,26 @@
+## shared adr
+
+## char		NAME[51];
+## char		TITEL[51];
+## char		KURZ[51];
+
+amx()
+{
+	register char	*p;
+
+##	open adr
+	fprintf(stderr, "DRUCK adr\n\n");
+
+##	retrieve adr
+##	(
+##		NAME = $name,
+##		TITEL = $titel,
+##		KURZ = $kurz
+##	)
+##	{
+		printf("%-50s", KURZ);
+		if (*TITEL != ' ')
+			printf(" %s %s\n", TITEL, NAME);
+##	}
+##	close adr
+}
diff --git a/WEGA/contrib/ingres/dbs/data/base/adr/adr.x b/WEGA/contrib/ingres/dbs/data/base/adr/adr.x
new file mode 100644
index 0000000..68f5007
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/data/base/adr/adr.x
@@ -0,0 +1,68 @@
+## shared adr
+
+## char		NAME[51];
+## char		TITEL[51];
+## char		KURZ[51];
+## char		LANG[51];
+## char		ABT[51];
+## char		STR[51];
+## char		ORT[51];
+## char		PLZ[51];
+
+amx()
+{
+##	open adr
+	fprintf(stderr, "ADRESSEINGABE\n\n");
+
+	while (enter("\nNAME", NAME))
+	{
+		if (enter("TITEL", TITEL) == 0)
+			continue;
+		if (enter("KURZ", KURZ) == 0)
+			continue;
+		*LANG = 0;
+		enter("LANG", LANG);
+		if (enter("ABT", ABT) == 0)
+			continue;
+		if (enter("STR", STR) == 0)
+			continue;
+		if (enter("ORT", ORT) == 0)
+			continue;
+		if (enter("PLZ", PLZ) == 0)
+			continue;
+##		use (+adr)
+##		append adr
+##		(
+##			$name = NAME,
+##			$titel = TITEL,
+##			$kurz = KURZ,
+##			$lang = LANG,
+##			$abt = ABT,
+##			$str = STR,
+##			$ort = ORT,
+##			$plz = PLZ
+##		)
+##		commit
+	}
+##	close adr
+}
+
+
+enter(msg, buf)
+register char	*msg;
+register char	*buf;
+{
+	register char	*p;
+	register int	c;
+
+	fprintf(stderr, "%s:\t", msg);
+	p = buf;
+	while ((c = getchar()) >= 0)
+	{
+		if (c == '\n')
+			break;
+		*p++ = c;
+	}
+	*p = 0;
+	return (p - buf);
+}
diff --git a/WEGA/contrib/ingres/dbs/data/base/adr/d.x b/WEGA/contrib/ingres/dbs/data/base/adr/d.x
new file mode 100644
index 0000000..34bc22e
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/data/base/adr/d.x
@@ -0,0 +1,39 @@
+## shared adr
+
+## char		KURZ[51];
+## short	STD;
+## short	TAG;
+## short	MON;
+## short	JAHR;
+## char		DBS[2];
+## char		PQR[2];
+## char		AMX[2];
+
+amx()
+{
+##	open dis
+	fprintf(stderr, "DRUCK dis\n\n");
+
+##	retrieve dis
+##	(
+##		KURZ = $kurz,
+## 		STD = $std,
+## 		TAG = $tag,
+## 		MON = $mon,
+## 		JAHR = $jahr,
+## 		DBS = $dbs,
+## 		PQR = $pqr,
+## 		AMX = $amx
+##	)
+##	{
+		printf("%-50s: %2d.%2d.%4d %2d Uhr", KURZ, TAG, MON, JAHR, STD);
+		if (*DBS == 'y')
+			printf(" I");
+		if (*PQR == 'y')
+			printf(" P");
+		if (*AMX == 'y')
+			printf(" A");
+		putchar('\n');
+##	}
+##	close dis
+}
diff --git a/WEGA/contrib/ingres/dbs/data/base/adr/dis.x b/WEGA/contrib/ingres/dbs/data/base/adr/dis.x
new file mode 100644
index 0000000..418be31
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/data/base/adr/dis.x
@@ -0,0 +1,120 @@
+## shared adr
+
+## char		KURZ[51];
+## char		PC[51];
+## short	STD;
+## short	TAG;
+## short	MON;
+## short	JAHR;
+## char		DBS[2];
+## char		PQR[2];
+## char		AMX[2];
+
+amx()
+{
+	register int	cnt;
+
+##	open dis
+	fprintf(stderr, "DISTRIBUTION\n\n");
+
+	while (enter("\n        Institution", KURZ))
+	{
+		cnt = 0;
+##		retrieve dis $kurz = KURZ
+##		(
+##			STD = $std,
+##			TAG = $tag,
+##			MON = $mon,
+##			JAHR = $jahr,
+##			DBS = $dbs,
+##			PQR = $pqr,
+##			AMX = $amx
+##		)
+##		{
+			cnt++;
+			tuple("EXIST");
+##		}
+		if (cnt)
+			continue;
+		if (enter("       Computer-Typ", PC) == 0)
+			continue;
+		if (i_enter("                Tag", &TAG) == 0)
+			continue;
+		if (i_enter("              Monat", &MON) == 0)
+			continue;
+		if (i_enter("               Jahr", &JAHR) == 0)
+			continue;
+		if (i_enter("             Stunde", &STD) == 0)
+			continue;
+		if (enter("ING_DB System [y/n]", DBS) == 0)
+			continue;
+		if (enter("   PQR System [y/n]", PQR) == 0)
+			continue;
+		if (enter("   AMX System [y/n]", AMX) == 0)
+			continue;
+##		use (+dis)
+##		append dis
+##		(
+##			$kurz = KURZ,
+##			$pc = PC,
+##			$std = STD,
+##			$tag = TAG,
+##			$mon = MON,
+##			$jahr = JAHR,
+##			$dbs = DBS,
+##			$pqr = PQR,
+##			$amx = AMX
+##		)
+##		commit
+	}
+##	close dis
+}
+
+
+enter(msg, buf)
+register char	*msg;
+register char	*buf;
+{
+	register char	*p;
+	register int	c;
+
+	fprintf(stderr, "%s:\t", msg);
+	p = buf;
+	while ((c = getchar()) >= 0)
+	{
+		if (c == '\n')
+			break;
+		*p++ = c;
+	}
+	*p = 0;
+	return (p - buf);
+}
+
+
+i_enter(msg, num)
+register char	*msg;
+register int	*num;
+{
+	char		buf[51];
+
+	if (enter(msg, buf))
+	{
+		*num = atoi(buf);
+		return (1);
+	}
+	return (0);
+}
+
+
+tuple(msg)
+register char	*msg;
+{
+	printf("\n%s: %2d.%2d.%4d %2d Uhr", msg, TAG, MON, JAHR, STD);
+	if (*DBS == 'y')
+		printf(" ING_DB");
+	if (*PQR == 'y')
+		printf(" PQR");
+	if (*AMX == 'y')
+		printf(" AMX");
+	printf("\n\n");
+}
diff --git a/WEGA/contrib/ingres/dbs/data/base/adr/kurz.x b/WEGA/contrib/ingres/dbs/data/base/adr/kurz.x
new file mode 100644
index 0000000..8b63446
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/data/base/adr/kurz.x
@@ -0,0 +1,67 @@
+## shared adr
+
+## char		NAME[51];
+## char		TITEL[51];
+## char		KURZ[51];
+## char		LANG[51];
+## char		ABT[51];
+## char		STR[51];
+## char		ORT[51];
+## char		PLZ[51];
+
+amx()
+{
+	register char	*p;
+
+##	open adr
+	fprintf(stderr, "ADRESSENDRUCK\n\n");
+
+	while (enter("\nKURZ", KURZ))
+	{
+##		retrieve adr $kurz = KURZ
+##		(
+##			NAME = $name,
+##			TITEL = $titel,
+##			KURZ = $kurz,
+##			LANG = $lang,
+##			ABT = $abt,
+##			STR = $str,
+##			ORT = $ort,
+##			PLZ = $plz
+##		)
+##		{
+			printf("\n\n\n\t%s\n", KURZ);
+			if (*LANG != ' ')
+				printf("\t%s\n", LANG);
+			if (*ABT != ' ')
+				printf("\t%s\n", ABT);
+			if (*TITEL != ' ')
+				printf("\t%s %s\n", TITEL, NAME);
+			printf("\t%s\n", STR);
+			printf("\t%s\n", ORT);
+			printf("\t------------------------\n");
+			printf("\t%s\n", PLZ);
+##		}
+	}
+##	close adr
+}
+
+
+enter(msg, buf)
+register char	*msg;
+register char	*buf;
+{
+	register char	*p;
+	register int	c;
+
+	fprintf(stderr, "%s:\t", msg);
+	p = buf;
+	while ((c = getchar()) >= 0)
+	{
+		if (c == '\n')
+			break;
+		*p++ = c;
+	}
+	*p = 0;
+	return (p - buf);
+}
diff --git a/WEGA/contrib/ingres/dbs/data/base/adr/name.x b/WEGA/contrib/ingres/dbs/data/base/adr/name.x
new file mode 100644
index 0000000..926c57b
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/data/base/adr/name.x
@@ -0,0 +1,70 @@
+## shared adr
+
+## char		NAME[51];
+## char		TITEL[51];
+## char		KURZ[51];
+## char		LANG[51];
+## char		ABT[51];
+## char		STR[51];
+## char		ORT[51];
+## char		PLZ[51];
+
+amx()
+{
+	register char	*p;
+
+##	open adr
+	fprintf(stderr, "ADRESSENDRUCK\n\n");
+
+	while (enter("\nNAME", NAME))
+	{
+##		retrieve adr $name = NAME
+##		(
+##			NAME = $name,
+##			TITEL = $titel,
+##			KURZ = $kurz,
+##			LANG = $lang,
+##			ABT = $abt,
+##			STR = $str,
+##			ORT = $ort,
+##			PLZ = $plz
+##		)
+##		{
+			printf("\t|  \n\t|------------------------------------------\n");
+			printf("\t|  \n\t|  %s\n", KURZ);
+			if (*LANG != ' ')
+				printf("\t|  %s\n", LANG);
+			if (*ABT != ' ')
+				printf("\t|  %s\n", ABT);
+			if (*TITEL != ' ')
+				printf("\t|  %s %s\n", TITEL, NAME);
+			printf("\t|  %s\n", STR);
+			printf("\t|  %s\n", ORT);
+			printf("\t|  ------------------------\n");
+			printf("\t|  %s\n", PLZ);
+##		}
+	}
+	printf("\t|  \n\t|------------------------------------------\n");
+
+##	close adr
+}
+
+
+enter(msg, buf)
+register char	*msg;
+register char	*buf;
+{
+	register char	*p;
+	register int	c;
+
+	fprintf(stderr, "%s:\t", msg);
+	p = buf;
+	while ((c = getchar()) >= 0)
+	{
+		if (c == '\n')
+			break;
+		*p++ = c;
+	}
+	*p = 0;
+	return (p - buf);
+}
diff --git a/WEGA/contrib/ingres/dbs/data/base/adr/new.x b/WEGA/contrib/ingres/dbs/data/base/adr/new.x
new file mode 100644
index 0000000..4304ca8
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/data/base/adr/new.x
@@ -0,0 +1,113 @@
+## shared adr
+
+## char		KURZ[51];
+## short	STD;
+## short	TAG;
+## short	MON;
+## short	JAHR;
+## char		DBS[2];
+## char		PQR[2];
+## char		AMX[2];
+
+amx()
+{
+	int		num;
+	char		buf[51];
+
+##	open dis
+	fprintf(stderr, "UPDATE DISTRIBUTION\n\n");
+
+	while (enter("\n        Institution", KURZ))
+	{
+##		use (+dis)
+##		retrieve dis $kurz = KURZ
+##		(
+##			STD = $std,
+##			TAG = $tag,
+##			MON = $mon,
+##			JAHR = $jahr,
+##			DBS = $dbs,
+##			PQR = $pqr,
+##			AMX = $amx
+##		)
+##		{
+			tuple("OLD");
+			if (i_enter("                Tag", &num))
+				TAG = num;
+			if (i_enter("              Monat", &num))
+				MON = num;
+			if (i_enter("               Jahr", &num))
+				JAHR = num;
+			if (i_enter("             Stunde", &num))
+				STD = num;
+			if (enter("ING_DB System [y/n]", buf))
+				AAsmove(buf, DBS);
+			if (enter("   PQR System [y/n]", buf))
+				AAsmove(buf, PQR);
+			if (enter("   AMX System [y/n]", buf))
+				AAsmove(buf, AMX);
+##			replace
+##			(
+##				$std = STD,
+##				$tag = TAG,
+##				$mon = MON,
+##				$jahr = JAHR,
+##				$dbs = DBS,
+##				$pqr = PQR,
+##				$amx = AMX
+##			)
+			tuple("NEW");
+##		}
+##		commit
+	}
+##	close dis
+}
+
+
+enter(msg, buf)
+register char	*msg;
+register char	*buf;
+{
+	register char	*p;
+	register int	c;
+
+	fprintf(stderr, "%s:\t", msg);
+	p = buf;
+	while ((c = getchar()) >= 0)
+	{
+		if (c == '\n')
+			break;
+		*p++ = c;
+	}
+	*p = 0;
+	return (p - buf);
+}
+
+
+i_enter(msg, num)
+register char	*msg;
+register int	*num;
+{
+	char		buf[51];
+
+	if (enter(msg, buf))
+	{
+		*num = atoi(buf);
+		return (1);
+	}
+	return (0);
+}
+
+
+tuple(msg)
+register char	*msg;
+{
+	printf("\n%s: %2d.%2d.%4d %2d Uhr", msg, TAG, MON, JAHR, STD);
+	if (*DBS == 'y')
+		printf(" ING_DB");
+	if (*PQR == 'y')
+		printf(" PQR");
+	if (*AMX == 'y')
+		printf(" AMX");
+	printf("\n\n");
+}