[0001]
[0002]
[0003]
[0004]
[0005]
[0006]
[0007]
[0008]
[0009]
[0010]
[0011]
[0012]
[0013]
[0014]
[0015]
[0016]
[0017]
[0018]
[0019]
[0020]
[0021]
[0022]
[0023]

$!-----------------------------------------------------------------------------
$! 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:
$!-----------------------------------------------------------------------------