$Set Control=Y
$On Control_Y Then Goto Finish
$Define/User_mode/nolog Sys$Input Sys$Command
$Write Sys$Output "
PLTPRG spawned subprocess - Enter your VAX/VMS"-
" Commands (or S to return)
"
$!
$ Loop:
$ Inquire Dat "PLTPRG>"
$ If Dat .EQS. "S" Then Goto Finish
$'DAT'
$ On Error Then Goto Loop
$ Goto Loop
$!
$ Finish:
$ Inquire Dat "Are You Finished With the subprocess?   (y/n)"
$ If Dat .NES. "Y" Then GoTo Loop
$ Exit