/*
-char id_tapeio[] = "@(#)tapeio.c 1.2";
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved. The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
*
+ * @(#)tapeio.c 5.1 6/7/85
+ */
+
+/*
* tapeio - tape device specific I/O routines
*
* ierr = topen (tlu, name, labelled)