$ OPEN/APPEND IN MAILBOX
$ SET NOON
$ SET MESSAGE/NOFAC/NOID/NOSEV/NOTEXT
$ 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