$!
$! Directory listing procedure
$!
$ wo :== write sys$output
$ ask :== inquire
$ clr :== @sys$system:clear.com
$ clr
$ set on
$ on control_y then goto END
$ on error then goto ERRMSG
$!
$ wo ""
$ wo "     Directory Listing Procedure"
$ wo ""
$ wo ""
$!
$ LIST:
$ wo ""
$ ask dev  "Input device name ( VOYAGER )"
$ if dev .eqs. "" then dev = "VOYAGER"
$ if dev .eqs. "DKA400"
$ then
$ CDMOUNT:
$  wo ""
$  wo "CDROM mount required."
$  ask ans "Is CDROM media in drive (y/n)?"
$  if ans .eqs. "n" .or. ans .eqs. "N"
$  then
$   wo ""
$   ask ans "Continue (y/n)?"
$   if ans .eqs. "n" .or. ans .eqs. "N" then goto END
$   clr
$   goto CDMOUNT
$  endif
$  wo "Mounting CDROM..."
$  wo ""
$  mount/over=id/media=cdrom/undef=(fixed:none:512) DKA400:
$  wo ""
$ endif
$!
$ ask path "Input directory path ( VOYAGER.DATA.EDR )"
$ if path .eqs. "" then path = "VOYAGER.DATA.EDR"
$ directory/size/out=sys$login:dir.lis 'dev':['path']
$ type/page sys$login:dir.lis
$ delete/noconfirm sys$login:dir.lis;*
$ wo ""
$ if dev .eqs. "DKA400" then dismount dka400: 
$ goto END
$!
$ ERRMSG:
$ wo ""
$ wo "RUNTIME ERROR ENCOUNTERED"
$!
$ END:
$ wo ""
$ exit