diff --git a/src/vmsrc/a1cmd.pla b/src/vmsrc/a1cmd.pla index 4f5008c..7954e5f 100644 --- a/src/vmsrc/a1cmd.pla +++ b/src/vmsrc/a1cmd.pla @@ -994,8 +994,10 @@ while 1 quit is 'M' syscall($02) + break is '+' execmod(cmdptr) + break otherwise prstr(@huhstr) wend diff --git a/src/vmsrc/cmd.pla b/src/vmsrc/cmd.pla index e6f9a23..0dc4a51 100644 --- a/src/vmsrc/cmd.pla +++ b/src/vmsrc/cmd.pla @@ -1278,16 +1278,22 @@ while 1 when toupper(parsecmd(cmdptr)) is 'Q' reboot() + break is 'C' catalog(cmdptr) + break is 'P' setpfx(cmdptr) + break is 'V' - volumes(); + volumes() + break is '-' execsys(cmdptr) + break is '+' execmod(cmdptr) + break otherwise prstr(@huhstr) wend diff --git a/src/vmsrc/soscmd.pla b/src/vmsrc/soscmd.pla index a40efd0..f338656 100644 --- a/src/vmsrc/soscmd.pla +++ b/src/vmsrc/soscmd.pla @@ -1276,13 +1276,17 @@ while 1 quit is 'C' catalog(cmdptr) + break is 'P' setpfx(cmdptr) + break is 'V' volumes + break is '+' execmod(cmdptr) write(refcons, @textmode, 3) + break otherwise prstr(@huhstr) wend