$ SET MESSAGE/NOFAC/NOID/NOSEV/NOTEXT
$ SPAWN/NOWAIT/OUTPUT=SYS$COMMAND SCRIPT/BACKGROUND 'P1'
$ LOOP1:
$ OPEN/APPEND/ERR=LOOP1 IN MAILBOX
$ SET NOON
$ ASS/SUP SYS$COMMAND SYS$INPUT
$ SET MESSAGE/FAC/ID/SEV/TEXT
$ LOOP:
$ READ/END=LOOP_EXIT IN RECORD
$ 'RECORD'
$ WRITE IN $STATUS
$ GOTO LOOP
$ LOOP_EXIT:
$ EXIT