SUBROUTINE EFQUIT C*********************************************************************** C C Author: Nick Bourgeois Version: 91a16a C 9605 Giddings Ave. NE C Albuquerque, NM 87109 C (505) 828-9566 C C C Description: C C Shut things down, neat and clean. C C Call a routine to rewind the magnetic tape. C C C Edit Record: C C 16-Jan-91: Original creation started. C 16-Jan-91: Original creation completed. C C C Calling sequence: C C MTDvNm = C Rewind = C CALL EFQUIT C C C Called By: C C EXTFLS C C C Routines Called: C C MTFOR C C*********************************************************************** INCLUDE 'EXTFLS.DAT' !Common & variables declarations CALL MTFOR (MTDvNm,Rewind) RETURN END !EFQUIT.FOR.