/* -------------------------------------------------- */
/* Title:               tape.cmd                      */
/*                                                    */
/* Author:              J.Cobb                        */
/*                                                    */
/* Change History:      11/11/1997 - Created JAC      */
/*                                                    */
/* Function:            Unpaks the tape device sys    */
/*                      files                         */
/* -------------------------------------------------- */

Parse arg path

file = 'Tape.pak'
zipfile = path || '\' || file

Command = '@unpack' zipfile path
Command
Command = '@del' zipfile
Command
Exit

