$! --- University of Sussex POPLOG file -----------------------------------
$! File:            $usepop/master/C.vms/com/delv.com
$! Purpose:         delete specified versions of the file
$! Author:          Unknown, ???
$! Documentation:
$! Related Files:

$if "''p1'".eqs. "" then goto nover
$if "''p2'".eqs. "" then goto nover
$del 'p1';'p2'
$if "''p3'".eqs. "" then goto show
$del 'p1';'p3'
$if "''p4'".eqs. "" then goto show
$del 'p1';'p4'
$if "''p5'".eqs. "" then goto show
$del 'p1';'p5'
$if "''p6'".eqs. "" then goto show
$del 'p1';'p6'
$if "''p7'".eqs. "" then goto show
$del 'p1';'p7'
$if "''p8'".eqs. "" then goto show
$del 'p1';'p8'
$if "''p9'".eqs. "" then goto show
$del 'p1';'p9'
$show:
$dir/date/size 'p1'
$exit
$nover:
$write sys$output "USAGE: DELV FILE.EXT <versions, separated by spaces>"
