$! backup.com: Extract the VMS files and directories from hcompress.bck.
$!
$! (1) Modify the block size of the hcompress.bck file using the MODIFY program.
$! (2) Run BACKUP to get the files.
$!
$! Determine where this procedure lives (assume that HCOMPRESS.BCK
$! and MODIFY.EXE are in this same directory)
$!
$ shellfile=f$parse(f$environment("procedure"),,,,"NO_CONCEAL")-"]["
$ thisdir==f$extract(0,f$locate("]",shellfile),shellfile) + "]"
$!
$! MODIFY executable installed as VMS foreign command
$!
$ modify:=$'thisdir'modify
$!
$! change the block size to 32256
$!
$ modify 'thisdir'hcompress.bck 32256
$!
$! extract files from the backup archive
$!
$ backup/log 'thisdir'hcompress.bck/save_set [...]
$ write sys$output ""
$ write sys$output "HCOMPRESS directory tree created."