$! This is a demonstration command file intended to be submitted by
$! the SUBMITDR program included with this distribution. This command file
$! will clearly demonstrate that parameters can indeed be passed from the
$! submitting program to programs invoked by this procedure.
$!
$!	S. R. Berman, October 11, 1988
$!
$ ASSIGN X SYS$PRINT
$ TYPE SYS$INPUT
I GOT HERE FROM THE MAIN DIRECTORY
$ WRITE SYS$OUTPUT "THE VALUE OF P1 IS ",P1
$ WRITE SYS$OUTPUT "THE VALUE OF P2 IS ",P2