$ set noon
$!! open /write /share logfile WASD_ROOT:[SRC.WAUXD]WAUXD_DEMO.LOG
$!! define /process sys$output logfile
$ arch_name = f$edit(f$getsyi("arch_name"),"upcase")
$ if arch_name .eqs. "ALPHA" then arch_name = "AXP"
$ if f$trnlnm("wasd_file_dev") .nes. "" then @wasd_file_dev
$ wauxd_logfile = "WASD_ROOT:[SRC.WAUXD.LOG]WAUXD_DEMO.LOG"
$ delete 'wauxd_logfile';* /before=-0-00:01:00
$ define /process wauxd_logfile 'wauxd_logfile'
$! define /process wauxd_cert "WASD_ROOT:[LOCAL]WUCME_C_WASD_KICKS-ASS_NET.PEM"
$ define /process wauxd_cert "WASD_ROOT:[LOCAL]WUCME_C_X86VMS_KICKS-ASS_NET.PEM"
$ scratch = "/wasd_root/=wasd_root:[000000]," +-
            "/dclinabox/-/=wasd_root:[runtime.dclinabox]," +-
            "/mondesi/-/=wasd_root:[src.mondesi.runtime]"
$ define /process wauxd_root "''scratch'"
$ scratch = "/cgi-bin/=cgi-bin:[000000],/cgiplus-bin/=+cgi-bin:[000000]"
$ define /process wauxd_cgi "''scratch'"
$ scratch = "if f$trnlnm(""""wasd_file_dev"""") .nes. """""""" then @wasd_file_dev"
$ define /process wauxd_dcl "''scratch'"
$ set verify
$ mcr WASD_ROOT:[SRC.WAUXD.OBJ_'arch_name']WAUXD.exe