[SWEXA.WRK]SWEXA_TST_HELLO_WORLD.COM_CPY

$       sav_vfy = 'f$verify(0)'
$ !++
$ !
$ !  DCL command procedure:
$ !     SWEXA_TST_HELLO_WORLD
$ !
$ !  Purpose:
$ !     Test the various hello world programs.
$ !
$ !  Copyright:
$ !     Copyright © 2001 - 2005 Corpita Pty Ltd
$ !     15 Bedford Street, Collingwood 3066, Australia
$ !
$ !  History:
$ !     28-Apr-2005 by SLJ
$ !         Add Ada
$ !         Make Java platform sensitive
$ !     01-Jul-2001 by Simon L. Jackson
$ !         Initial version
$ !
$ !--
$
$       z1 = f$verify(sav_vfy)
$       run swexa_sft_dir:hello_world_ada
$       run swexa_sft_dir:hello_world_bas
$       run swexa_sft_dir:hello_world_c
$       run swexa_sft_dir:hello_world_cob
$       run swexa_sft_dir:hello_world_cxx
$       run swexa_sft_dir:hello_world_for
$       if cur_arc .nes. "VAX" then -
            java -classpath 'f$trnlnm("swexa_sft_dir")' hello_world_java
$       run swexa_sft_dir:hello_world_mar
$       run swexa_sft_dir:hello_world_pas
$       run swexa_sft_dir:hello_world_pli
$       z1 = 'f$verify(0)'
$
$       exit 1 + 0*f$verify(sav_vfy)