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

Parse arg path

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

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

