$!-----------------------------------------------------------------------------
$! ALTICONS.COM
$! Copies alternate colour/monochrome icon graphics into place.
$! Usage: @ALTICONS [COLOUR|MONO]
$!
$! 30-APR-2000  MGD  initial
$!-----------------------------------------------------------------------------
$ altIcon = f$extract(0,1,p1)
$ if altIcon .nes. "C" .and. altIcon .nes. "M"
$ then
$    write sys$output "Usage: @ALTICON [COLOUR|MONO]"
$    exit
$ endif
$ altIcon = "_" + altIcon
$ copyLoop:
$    srcFileName = f$search("HT_ROOT:[RUNTIME.HTTPD]*''altIcon'.GIF;0")
$    if srcFileName .eqs. "" then goto endCopyLoop
$    dstFileName = srcFileName - altIcon
$    dstFileName = f$element(0,";",dstFileName)
$    copy /log 'srcFileName' 'dstFileName';0
$    goto copyLoop
$ endCopyLoop:
$!-----------------------------------------------------------------------------