1 files changed, 21 insertions, 0 deletions
diff --git a/pkg/obsolete/t_imtitle.x b/pkg/obsolete/t_imtitle.x
new file mode 100644
index 00000000..d4edeb35
--- /dev/null
+++ b/pkg/obsolete/t_imtitle.x
@@ -0,0 +1,21 @@
+include	<imhdr.h>
+
+# T_IMTITLE -- Set the title of an image.
+
+procedure t_imtitle ()
+
+char	image[SZ_FNAME]			# Image to be editted
+
+pointer	im, immap()
+
+begin
+	# Access image.
+	call clgstr ("image", image, SZ_FNAME)
+	im = immap (image, READ_WRITE, 0)
+
+	# Substitute new title.
+	call clgstr ("title", IM_TITLE(im), SZ_IMTITLE)
+
+	# Unmap image.
+	call imunmap (im)
+end