diff --git a/WEGA/contrib/cpm/cpm3/cpm.c b/WEGA/contrib/cpm/cpm3/cpm.c
new file mode 100644
index 0000000..87a3c4e
--- /dev/null
+++ b/WEGA/contrib/cpm/cpm3/cpm.c
@@ -0,0 +1,309 @@
+/*	cpm.c	1.15	83/06/20	*/
+/*
+	Copyright (c) 1982, 1983 by
+	Helge Skrivervik, UCB.
+	All rights reserved.
+	Permission granted for use by UNIX* licencees.
+	UNIX is a trademark of Bell Labs.
+
+*/
+
+#include <stdio.h>
+#include "cpmio.h"
+#include "cpmfio.h"
+
+#define BIG	32767
+
+C_FILE	c_iob[C_NFILE];
+int	fid;
+
+
+int	dflag, cflag, iflag, tflag;
+int	blksiz	=	2048;	/* default block size */
+int	tracks	=	80;	/* default number of tracks */
+int	maxdir	=	128;	/* default number of directory slots per disk */
+int	seclth	=	512;	/* default sector length [bytes] */
+int	sectrk	=	18;	/* default number of sectors per track */
+int	skew	=	1;	/* default sector skew factor */
+int	n_systrk=	0;	/* default # of system tracks */
+
+int	*bitmap = 0;
+int	flp_fmt = 2;
+struct directory *dirbuf;
+
+char *string;
+
+main(argc, argv)
+	int	argc;
+	char	*argv[];
+{
+
+	char *cpmname, *unixname, *malloc();
+	int xflag, stat=0, Cflag, Iflag, Bflag;
+	long flp_size;
+
+	if (argc == 1)
+		usage();
+	for (; argc > 1 && argv[1][0] == '-'; argc--, argv++) {
+		switch (argv[1][1]) {
+
+		case 0:
+			break;
+
+		case 'B':
+			Bflag++;
+			continue;
+
+		case 'd':
+			dflag++;
+			continue;
+
+		case 'c':
+			if (Cflag)
+				stat++;
+			cpmname = argv[2];
+			unixname = argv[3];
+			argc -= 2;
+			argv += 2;
+			cflag++;
+			continue;
+
+		case 'i':
+			if (isatty(0) && isatty(1)) iflag++;
+			continue;
+
+		case 'p':
+			cpmname = argv[2];
+			++argv;
+			--argc;
+			tflag++;
+			continue;
+
+		case 's':
+			string = argv[2];
+			++argv;
+			skew = number(BIG);
+			argc--;
+			if ((skew < 1) || (skew > 10)) {
+				printf("skew factor out of range\n");
+				exit(1);
+			}
+			continue;
+
+		case 'S':
+			string = argv[2];
+			++argv;
+			n_systrk = number( BIG );
+			argc--;
+			if((n_systrk < 0) || (n_systrk > 10 )) {
+				printf("%d system tracks are impossible\n",
+					n_systrk );
+				exit(1);
+			}
+			continue;
+
+		case 't':
+			string = argv[2];
+			++argv;
+			tracks = number( BIG );
+			argc--;
+			if((tracks > 1048) || (tracks < 36)) {
+				printf("%d tracks are impossible\n",
+					tracks );
+				exit(1);
+			}
+			continue;
+
+
+		case 'b':
+			string = argv[2];
+			++argv;
+			blksiz = number(BIG);
+			argc--;
+			if (blksiz & 0xc3) {
+				printf("illegal block size: %d\n",blksiz);
+				exit(1);
+			}
+			continue;
+
+		case 'm':
+			string = argv[2];
+			++argv;
+			maxdir = number(BIG);
+			argc--;
+			if ((maxdir < 64) || (tracks >1024 )) {
+				printf("illegal value of m-flag: %d\n",maxdir);
+				exit(1);
+			}
+			continue;
+
+		case 'l':
+			string = argv[2];
+			++argv;
+			seclth = number(BIG);
+			argc--;
+			if ((seclth < 128) || (tracks >1024 )) {
+				printf("illegal sector length: %d\n",seclth);
+				exit(1);
+			}
+			continue;
+
+		case 'r':
+			string = argv[2];
+			++argv;
+			sectrk = number(BIG);
+			argc--;
+			if (sectrk > 48) {
+				printf("illegal r-flag: %d\n",sectrk);
+				exit(1);
+			}
+			continue;
+
+		case 'C':
+			if (cflag)
+				stat++;
+			cpmname = argv[3];
+			unixname = argv[2];
+			argc -= 2;
+			argv += 2;
+			Cflag++;
+			continue;
+
+		case 'I':
+			Iflag++;
+			continue;
+
+#ifdef DEBUG
+		case 'x':
+			xflag++;
+			continue;
+#endif
+
+		default:
+			printf("Illegal flag: -%c\n",argv[1][1]);
+			stat++;
+		}
+		break;
+	}
+	if (stat > 0) {
+	}
+	flp_size = tracks - n_systrk;
+	flp_size *= seclth * sectrk;
+	flp_size /= blksiz;
+	flp_fmt = flp_size > 256 ? 2 : 1;
+	if (argc <= 1 && iflag) {
+		printf("cpm: can't copy from stdin in iteractive mode\n");
+		exit(1);
+	} else {
+		if (argc <= 1)
+			fid = fileno(stdin);
+		else {
+			int ic;
+			if ((fid = open(*++argv,2)) == -1 ) {
+				/*
+				 * The specified input file does not exist,
+				 * does the user want to initialize a new
+				 * file?
+				 */
+
+				printf("Input file does not exist.\n");
+				printf("Initialize new floppy file? (y/n)?");
+				if ((ic = getchar()) != 'y' && ic != 'Y')
+					exit(1);
+				fid = initcpm(*argv);
+				ic = getchar();		/* get <eol> */
+			} else {
+				if (Iflag) {
+				     printf("Initialize floppy file? (y/n)?");
+				     if ((ic = getchar()) != 'y' && ic != 'Y')
+					exit(1);
+				     fid = initcpm(*argv);
+				     ic = getchar();		/* get <eol> */
+				}
+			}
+		}
+	}
+	/* allocate memory for the directory buffer */
+	if ((dirbuf = (struct directory *) malloc(maxdir*32)) == NULL ) {
+		printf("can't allocate memory for directory\n");
+		exit(1);
+	}
+	gen_sktab();
+	getdir();
+	build_bmap();
+#ifdef DEBUG
+	if (xflag > 0) {
+		int i;
+		char ch;
+
+		dbmap("current bitmap:\n"); 
+		for (i = (int)dirbuf; i< (int)dirbuf+maxdir*32; i++) {
+			ch = *(char *)i;
+			putchar((int)ch);
+		}
+	}
+#endif
+	if (iflag > 0) {
+		interact();
+		exit(0);
+	}
+	if (dflag > 0) 
+		dispdir();
+	if (cflag > 0) {
+		copy(cpmname, unixname, Bflag);
+		exit(0);
+	}
+	if (Cflag > 0) {
+		pipc(unixname, cpmname, Bflag);
+		exit(0);
+	}
+	if (tflag > 0) {
+		copy(cpmname, stdout, 0);
+		exit(0);
+	}
+}
+
+
+number(big)
+{
+	register char *cs;
+	long n;
+
+	cs = string;
+	n = 0;
+	while(*cs >= '0' && *cs <= '9')
+		n = n*10 + *cs++ - '0';
+	for(;;)
+	switch(*cs++) {
+
+	case 'k':
+		n *= 1024;
+		continue;
+
+	case 'w':
+		n *= sizeof(int);
+		continue;
+
+	case 'b':
+		n *= 512;
+		continue;
+
+	case '*':
+	case 'x':
+		string = cs;
+		n *= number(BIG);
+
+	case '\0':
+		if (n >= big || n < 0) {
+			fprintf(stderr,"number: argument %D out of range\n", n);
+			exit(1);
+		}
+		return (n);
+	}
+}
+
+usage()
+{
+	printf("Uscge: cpm [-i][-d][-p name][-c|C name1 name2] file-name\n");
+	exit(1);
+}