diff --git a/bin/chtyp/Makefile b/bin/chtyp/Makefile
new file mode 100644
index 0000000..3d94dc7
--- /dev/null
+++ b/bin/chtyp/Makefile
@@ -0,0 +1,32 @@
+#
+# This makefile is intended for use with dmake(1) on Apple IIGS
+#
+#	Created by Dave Tribby, August 1997
+#	Modified by Evan Day, September 1997
+#
+# $Id: Makefile,v 1.1 1997/10/03 05:06:50 gdr Exp $
+
+# Program name
+PROG=	chtyp
+# Source files
+SRCS=	chtyp.c ftypes.c
+
+# If optimization wasn't set on the command line use 79, since
+# chtyp has been tested to work at that level.
+.IF $(OPTIMIZE) == $(NULL)
+	OPTIMIZE=79
+.END
+
+# Current implementation is using 960 bytes give or take
+STACK	= 1024
+
+# Installation point
+BINDIR	= /bin
+
+.INCLUDE : /src/gno/prog.mk
+
+#
+# Additional dependancies
+#
+chtyp.o::	ftypes.h
+ftypes.o::	ftypes.h
diff --git a/bin/chtyp/chtyp.1 b/bin/chtyp/chtyp.1
new file mode 100644
index 0000000..2550363
--- /dev/null
+++ b/bin/chtyp/chtyp.1
@@ -0,0 +1,72 @@
+.\"
+.\" $Id: chtyp.1,v 1.1 1997/10/03 05:06:50 gdr Exp $
+.\"
+.TH CHTYP 1 "28 September 1997" GNO "Commands and Applications"
+.SH NAME
+.BR chtyp
+\- change GS/OS file type information
+.SH SYNOPSIS
+.BR chtyp
+[ [
+.IR -t " " ftype 
+] [
+.IR -a " " atype
+] ] | [
+.IR -l " " lang
+]
+.IR file ...
+.SH DESCRIPTION
+Set GS/OS file type information for the specified
+.IR files
+.LP
+File types may be specified either as a number (decimal,
+hexadecimal with a leading 0x, or octal with a leading 0)
+or by a three letter abbreviation.  Abbreviations are from
+the official File Type Notes Index.
+.LP
+Auxilary types may only be specified as a number (decimal,
+hexadecimal, or octal).
+.LP
+If a file type is specified with no aux type, or vice versa,
+only the specified parameter is changed - the other is left
+as is.
+.LP
+The language option sets the file type and aux type appropriate
+for a source file of the specified language.  See below for a
+list of valid languages.
+.SH OPTIONS
+The following options are available:
+.IP "\fB-t\fR \fIftype\fR"
+Set the file type of the indicated files to the specified
+.IR ftype "."
+The file type may be specified as a number (in decimal, as a
+hexadecimal number with a leading 0x, or as an octal number
+with a leading 0) or by one of the official three letter
+abbreviations listed in the File Type Notes Index.  Types set
+by abbreviation may not have their auxilary file types set
+due to the large variety of assigned auxilary types for each
+file type.
+.IP "\fB-a\fR \fIatype\fR"
+Set the auxilary file type of the indicated files to the
+.IR atype
+specified.  The auxilary type may only be specified as a 
+number.
+.IP "\fB-l\fR \fIlang\fR"
+Set the file type and auxilary file type to that of a source
+file of the selected
+.IR lang "."
+The 
+.IR -l
+flag may not be used with the
+.IR -t
+or
+.IR -a
+flags.
+.IP
+Valid language types are: APWTXT, ASM, PASCAL, EXEC, CC, LINKER,
+DESKTOP, REZ, TMLPASCAL, DISASM, SDEASM, SDECMD, PS.
+.SH HISTORY
+.BR chtyp
+was originally written by Greg Thompson.  Jawaid Bazyar rewrote it 
+later for GNO/ME, and it has since been rewritten from scratch for
+GNO/ME v2.0.6 by Evan Day <day@engr.orst.edu>.
diff --git a/bin/chtyp/chtyp.c b/bin/chtyp/chtyp.c
new file mode 100644
index 0000000..6fb49fc
--- /dev/null
+++ b/bin/chtyp/chtyp.c
@@ -0,0 +1,145 @@
+/*
+ * chtyp
+ *
+ * Sets the file/aux type for GS/OS files.
+ *
+ * $Id: chtyp.c,v 1.1 1997/10/03 05:06:50 gdr Exp $
+ */
+
+#include <errno.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <gsos.h>
+
+#include "ftypes.h"
+
+void usage(void);
+void version(void);
+
+#ifdef __STACK_CHECK__
+#include <gno/gno.h>
+
+static void cleanup(void)
+{
+    (void) fprintf(stderr, "Stack Usage: %d.\n", _endStackCheck());
+}
+#endif
+
+static GSString255 path;
+
+int main(int argc, char **argv)
+{
+    char *ftype = NULL;
+    char *atype = NULL;
+    char *lang = NULL;
+    char *left = NULL;
+    int filet = -1;
+    long auxt = -1;
+    int ch;
+    FileInfoRecGS finfo = {4, &path};
+
+#ifdef __STACK_CHECK__
+    atexit(cleanup);
+    _beginStackCheck();
+#endif
+
+    while((ch = getopt(argc, argv, "t:a:l:vV")) != -1)
+	switch(ch) {
+	    case 't':
+		if(lang) {
+		    (void) fprintf(stderr,
+				 	"chtyp: -t cannot be used with -l\n");
+		    usage();
+		}
+		ftype = optarg;
+		break;
+	    case 'a':
+		if(lang) {
+		    (void) fprintf(stderr, 
+					"chtyp: -a cannot be used with -l\n");
+		    usage();
+		}
+		atype = optarg;
+		break;
+	    case 'l':
+		if(ftype || atype) {
+		    (void) fprintf(stderr, 
+					"chtyp: -l cannot be used with %s%s\n",
+					ftype ? "-t" : "-a", 
+					ftype && atype ? " or -a." : ".");
+		    usage();
+		}
+		lang = optarg;
+		break;
+	    case 'v':
+	    case 'V':
+		version();
+		break;
+	    default:
+		usage();
+		break;
+	}
+
+    argc -= optind;
+    argv = argv + optind;
+
+    if(argc == 0) {
+	(void) fprintf(stderr, "chtyp: no files specified\n");
+	usage();
+    }
+
+    if(lang) {
+	if(find_lang(lang, &filet, &auxt) == -1) {
+	    (void) fprintf(stderr, "chtyp: unknown language argument \"%s\".\n",
+				lang);
+	    usage();
+	}
+    }
+
+    if(ftype) {
+	filet = (int) strtol(ftype, &left, 0);
+	if(errno == ERANGE || *left) 
+	    if(find_type(ftype, &filet, &auxt) == -1) {
+		(void) fprintf(stderr,
+				"chtyp: invalid argument to -t option.\n");
+		usage();
+	    }
+    }
+
+    if(atype) {
+	errno = 0;		/* be sure to reset errno! */
+	auxt = strtol(atype, (char **) NULL, 0);
+	if(errno == ERANGE) {
+	    (void) fprintf(stderr, "chtyp: invalid argument to -a option.\n");
+	    usage();
+	}
+    }
+
+    ch = 0;
+    while(argc) {
+	strcpy(path.text, argv[ch]);
+	path.length = strlen(argv[ch++]);
+	GetFileInfoGS(&finfo);
+	if(filet != -1)
+	    finfo.fileType = filet;
+	if(auxt != -1)
+	    finfo.auxType = auxt;
+	SetFileInfoGS(&finfo);
+	argc--;
+    }
+}
+
+static void usage(void)
+{
+    (void) fprintf(stderr,
+     "Usage: chtyp { [-t type] [-a auxtype] } | { [-l lang] } file ...\n");
+    exit(-1);
+}
+
+static void version(void)
+{
+    (void) fprintf(stderr,
+		"V 2.0.0 Copyright 1997 by Evan Day, day@engr.orst.edu\n");
+    usage();
+}
diff --git a/bin/chtyp/chtyp.desc b/bin/chtyp/chtyp.desc
new file mode 100644
index 0000000..7b27d57
--- /dev/null
+++ b/bin/chtyp/chtyp.desc
@@ -0,0 +1,9 @@
+Name:    df
+Version: 2.0.0 (28 Sep 97)
+Shell:   GNO/ME
+Author:  Evan Day
+Contact: day@engr.orst.edu
+Where:   /usr/bin
+FTP:     
+
+   Set GS/OS file types.
diff --git a/bin/chtyp/chtyp.rez b/bin/chtyp/chtyp.rez
new file mode 100644
index 0000000..b6ad014
--- /dev/null
+++ b/bin/chtyp/chtyp.rez
@@ -0,0 +1,34 @@
+/*
+ * $Id: chtyp.rez,v 1.1 1997/10/03 05:06:50 gdr Exp $
+ */
+
+#include "Types.Rez"
+#include "proginfo.rez"
+
+resource rVersion (0x1, purgeable3, nocrossbank) {
+
+	{ 2, 0, 0,	/* version 2.0.0 */
+	  release,	/* development|alpha|beta|final|release */
+          0		/* non-final release number */
+        },
+        verUS,		/* country code -- only some are avail */
+        "chtyp",		/* name */
+			/* _Very_ brief descrition.  Check "file info" */
+			/* shown in the Finder to see if it's too long */
+			/* Note that \n is used to separate lines here. */
+	"Change GS/OS file type information.\n"
+	"Requires GNO/ME Shell.\n"
+	"Evan Day <day@engr.orst.edu>"
+};
+
+resource rProgramInfo (0x1, purgeable3, nocrossbank) {
+	{ 6, 0, 1,
+	  release,
+	  0
+	},
+	16384,
+	16384,
+	768,
+	progRequiresGNO+progAppleTalkOK+progAllowsCDAs,
+	piCompatible*ProgShellGSH+piSpecialFeatures*ProgShellGSH
+};
diff --git a/bin/chtyp/ftypes.c b/bin/chtyp/ftypes.c
new file mode 100644
index 0000000..a2215f1
--- /dev/null
+++ b/bin/chtyp/ftypes.c
@@ -0,0 +1,171 @@
+/*
+ * ftypes.c
+ *
+ * data/routines to change an official Apple 3-letter filetype abbrevation
+ * into a full filetype/auxtype pair (or back, I suppose)
+ *
+ * also data/routines to change a language type (as specified in chtyp.1)
+ * into a filetype/auxtype pair.
+ *
+ * $Id: ftypes.c,v 1.1 1997/10/03 05:06:50 gdr Exp $
+ */
+
+#include <string.h>
+
+static struct type_list {
+	char *name;
+	int file_type;
+	long aux_type;
+} types[] = {
+	{ "non", 0x00, 0x0000 },		/* common abbrev for $00 */
+	{ "unk", 0x00, 0x0000 },		/* official abbrev for $00 */
+	{ "bad", 0x01, 0x0000 },
+	{ "pcd", 0x02, 0x0000 },
+	{ "ptx", 0x03, 0x0000 },
+	{ "txt", 0x04, 0x0000 },
+	{ "pda", 0x05, 0x0000 },
+	{ "bin", 0x06, 0x0000 },
+	{ "fnt", 0x07, 0x0000 },
+	{ "fot", 0x08, 0x0000 },
+	{ "ba3", 0x09, 0x0000 },
+	{ "da3", 0x0a, 0x0000 },
+	{ "wpf", 0x0b, 0x0000 },
+	{ "sos", 0x0c, 0x0000 },
+	{ "dir", 0x0f, 0x0000 },
+	{ "rpd", 0x10, 0x0000 },
+	{ "rpi", 0x11, 0x0000 },
+	{ "afd", 0x12, 0x0000 },
+	{ "afm", 0x13, 0x0000 },
+	{ "afr", 0x14, 0x0000 },
+	{ "scl", 0x15, 0x0000 },
+	{ "pfs", 0x16, 0x0000 },
+	{ "adb", 0x19, 0x0000 },
+	{ "awp", 0x1a, 0x0000 },
+	{ "asp", 0x1b, 0x0000 },
+	{ "tdm", 0x20, 0x0000 },
+	{ "8sc", 0x2a, 0x0000 },
+	{ "8ob", 0x2b, 0x0000 },
+	{ "8ic", 0x2c, 0x0000 },
+	{ "8ld", 0x2d, 0x0000 },
+	{ "p8c", 0x2e, 0x0000 },
+	{ "ptp", 0x2e, 0x8001 },		/* Point-to-point drivers */
+	{ "ftd", 0x42, 0x0000 },
+	{ "gwp", 0x50, 0x0000 },
+	{ "gss", 0x51, 0x0000 },
+	{ "gdb", 0x52, 0x0000 },
+	{ "drw", 0x53, 0x0000 },
+	{ "gdp", 0x54, 0x0000 },
+	{ "hmd", 0x55, 0x0000 },
+	{ "edu", 0x56, 0x0000 },
+	{ "stn", 0x57, 0x0000 },
+	{ "hlp", 0x58, 0x0000 },
+	{ "com", 0x59, 0x0000 },
+	{ "cfg", 0x5a, 0x0000 },
+	{ "anm", 0x5b, 0x0000 },
+	{ "mum", 0x5c, 0x0000 },
+	{ "ent", 0x5d, 0x0000 },
+	{ "dvu", 0x5e, 0x0000 },
+	{ "bio", 0x6b, 0x0000 },
+	{ "tdr", 0x6d, 0x0000 },
+	{ "pre", 0x6e, 0x0000 },
+	{ "hdv", 0x6f, 0x0000 },
+	{ "wp",  0xa0, 0x0000 },
+	{ "gsb", 0xab, 0x0000 },
+	{ "tdf", 0xac, 0x0000 },
+	{ "bdf", 0xad, 0x0000 },
+	{ "src", 0xb0, 0x0000 },
+	{ "obj", 0xb1, 0x0000 },
+	{ "lib", 0xb2, 0x0000 },
+	{ "s16", 0xb3, 0x0000 },
+	{ "rtl", 0xb4, 0x0000 },
+	{ "exe", 0xb5, 0x0000 },
+	{ "pif", 0xb6, 0x0000 },
+	{ "tif", 0xb7, 0x0000 },
+	{ "nda", 0xb8, 0x0000 },
+	{ "cda", 0xb9, 0x0000 },
+	{ "tol", 0xba, 0x0000 },
+	{ "dvr", 0xbb, 0x0000 },
+	{ "ldf", 0xbc, 0x0000 },
+	{ "fst", 0xbd, 0x0000 },
+	{ "doc", 0xbf, 0x0000 },
+	{ "pnt", 0xc0, 0x0000 },
+	{ "pic", 0xc1, 0x0000 },
+	{ "ani", 0xc2, 0x0000 },
+	{ "pal", 0xc3, 0x0000 },
+	{ "oog", 0xc5, 0x0000 },
+	{ "scr", 0xc6, 0x0000 },
+	{ "cdv", 0xc7, 0x0000 },
+	{ "fon", 0xc8, 0x0000 },
+	{ "fnd", 0xc9, 0x0000 },
+	{ "icn", 0xca, 0x0000 },
+	{ "mus", 0xd5, 0x0000 },
+	{ "ins", 0xd6, 0x0000 },
+	{ "mdi", 0xd7, 0x0000 },
+	{ "snd", 0xd8, 0x0000 },
+	{ "dbm", 0xdb, 0x0000 },
+	{ "lbr", 0xe0, 0x0000 },
+	{ "atk", 0xe2, 0x0000 },
+	{ "r16", 0xee, 0x0000 },
+	{ "pas", 0xef, 0x0000 },
+	{ "cmd", 0xf0, 0x0000 },
+	{ "os" , 0xf9, 0x0000 },
+	{ "int", 0xfa, 0x0000 },
+	{ "ivr", 0xfb, 0x0000 },
+	{ "bas", 0xfc, 0x0000 },
+	{ "var", 0xfd, 0x0000 },
+	{ "rel", 0xfe, 0x0000 },
+	{ "sys", 0xff, 0x0000 }
+};
+
+#define NUM_TYPES 98
+
+static struct lang_list {
+	char *name;
+	int file_type;
+	long aux_type;
+} langs[] = {
+	{ "apwtxt",    0xb0, 0x0001},
+	{ "asm",       0xb0, 0x0003},
+	{ "pascal",    0xb0, 0x0005},
+	{ "exec",      0xb0, 0x0006},
+	{ "cc",        0xb0, 0x0008},
+	{ "linker",    0xb0, 0x0009},
+	{ "apwc",      0xb0, 0x000a},
+	{ "desktop",   0xb0, 0x000c},
+	{ "rez",       0xb0, 0x0015},
+	{ "tmlpascal", 0xb0, 0x001e},
+	{ "disasm",    0xb0, 0x0115},
+	{ "sdeasm",    0xb0, 0x0503},
+	{ "sdecmd",    0xb0, 0x0506},
+	{ "ps",        0xb0, 0x0719},
+};
+
+#define NUM_LANGS 14
+
+int find_type(char *type_str, int *f, long *a) 
+{
+    int i;
+
+    for(i = 0; i < NUM_TYPES; i++)
+	if(!stricmp(type_str, types[i].name)) {
+	    *f = types[i].file_type;
+	    *a = types[i].aux_type;
+	    return(0);
+	}
+
+    return(-1);
+}
+
+int find_lang(char *lang_str, int *f, long *a)
+{
+    int i;
+
+    for(i = 0; i < NUM_LANGS; i++) 
+	if(!stricmp(lang_str, langs[i].name)) {
+	    *f = langs[i].file_type;
+	    *a = langs[i].aux_type;
+	    return(0);
+	}
+
+    return(-1);
+}
diff --git a/bin/chtyp/ftypes.h b/bin/chtyp/ftypes.h
new file mode 100644
index 0000000..d47c194
--- /dev/null
+++ b/bin/chtyp/ftypes.h
@@ -0,0 +1,6 @@
+/*
+ * $Id: ftypes.h,v 1.1 1997/10/03 05:06:50 gdr Exp $
+ */
+
+extern int find_type(char *, int *, long *);
+extern int find_lang(char *, int *, long *);