[SWEXA.WRK]SWEXA_TST_EXH.COM_CPY

$       sav_vfy = 'f$verify(0)'
$ !++
$ !
$ !  DCL command procedure:
$ !     SWEXA_TST_EXH
$ !
$ !  Purpose:
$ !     Form an example test program.
$ !
$ !  Copyright:
$ !     Copyright © 1999 Corpita Pty Ltd
$ !     15 Bedford Street, Collingwood 3066, Australia
$ !
$ !  History:
$ !     16-Jan-1999 by Simon L. Jackson
$ !         Initial version
$ !
$ !--
$
$       z1 = f$verify(sav_vfy)
$       run swexa_tst_dir:swexa_tst_exh
$       z1 = 'f$verify(0)'
$
$       exit 1 + 0*f$verify(sav_vfy)