SUBROUTINE MNTTAP C*********************************************************************** C C Author: Nick Bourgeois Version: 90k13a C 9605 Giddings Ave. NE C Albuquerque, NM 87109 C (505) 828-9566 C C C Description: C C Prompt the user to mount the magnetic tape on the tape drive. C Call a routine to rewind the tape to load point. C C C Edit Record: C C 12-Oct-90: Original creation started. C 31-Oct-90: Original creation completed. C 13-Nov-90: Module taken from the TAPEDR suite. C C C Calling sequence: C C MTDvNm = C Rewind = C CALL MNTTAP C C C Called By: C C SDINIT C C C Routines Called: C C MTFOR C C*********************************************************************** INCLUDE 'SVSTDR.DAT' !Common & variables declarations TYPE *, 'Remove any write-enable ring and mount the reel of tape' PAUSE 'Press RETURN to proceed' CALL MTFOR (MTDvNm,Rewind) RETURN END !MNTTAP.FOR.