SUBROUTINE TDINIT C*********************************************************************** C C Author: Nick Bourgeois Version: 90j31a C 9605 Giddings Ave. NE C Albuquerque, NM 87109 C (505) 828-9566 C C C Description: C C Control the initialization process for the TAPEDR.SAV program. C C Call a routine to handle the mounting of the tape. Call a C routine to name and open the output (directory) file. Call a C routine to read and report certain information from the tape C VOL1 label record. C C If an error condition is returned by the OPNFIL subroutine, C then exit this routine immediately. C C C Edit Record: C C 12-Oct-90: Original creation started. C 31-Oct-90: Original creation completed. C C C Calling sequence: C C CALL TDINIT C C C Called By: C C TAPEDR C C C Routines Called: C C MNTTAP C OPNFIL C RDVOL1 C C*********************************************************************** INCLUDE 'TAPEDR.DAT' !Common & variables declarations CALL MNTTAP !Mount the tape. CALL OPNFIL !Open the output file. IF (Error) GOTO 900 CALL RDVOL1 !Read VOL1 label record. 900 CONTINUE RETURN END !TDINIT.FOR.