' INSTALL.SUB for BMULTI 10.1 
'      
'  041089 TEG created.
'  051789 TEG Updated to use named volume [B25BMU1].
'  110890 GNC Changes made to reflect R10.1 release
'      
LCopy
'File list'   @[B25BMU2]<Unisys>BmX25Files.list
'[File prefix(es) from]' [B25BMU2]<Unisys> 
'[File prefix(es) to]'  1
'[File suffix(es)]'
'[Overwrite OK?]'  yes
'[Confirm each?]'  
'[Continue on error?]'
'[Verify copy?]'

Copy
[kbd]
[Scr]<$>args.Tmp
Yes
  '[Configuration File]'
Copy
[kbd]
[Scr]<$>desc.Tmp
Yes
'Install BMULTIX.25 Service'
New Command
'Install BmX25'
1BmX25Zip.run
@[Scr]<$>args.Tmp
@[Scr]<$>desc.Tmp
Yes

0'
Copy
[kbd]
[Scr]<$>args.Tmp
Yes
  '[<ServiceID>]'
Copy
[kbd]
[Scr]<$>desc.Tmp
Yes
'DeInstall BMULTIX.25 Service'
New Command
'DeInstall BmX25'
1BmX25UnZip.run
@[Scr]<$>args.Tmp
@[Scr]<$>desc.Tmp
Yes

0'
Append
[B25BMU2]<sys>BMXFdSys.Version [Kbd]
1Sys.Version
 BMULTIX.25 Service installed on d|*w *n *d, yyyy, at *t:0m|
'
