There are 2 other files named mailedit.com in the archive. Click here to see a list.
$ ! Default command procedure to invoke an editor for MAIL.
$ ! Inputs:
$ ! P1 = Input file name.
$ ! P2 = Output file name.
$ ! Note that this procedure is run in the context of a subprocess, therefore
$ ! LOGIN.COM is not executed, creator process logical names do not exist,
$ ! and the default directory is the same as the creator process.
$ ASSIGN/USER 'F$LOGICAL("SYS$OUTPUT")' SYS$INPUT
$ D := 'F$LOGICAL("SYS$LOGIN")'
$ L = 'F$LENGTH(D)'-1
$ IF P1 .EQS. "" THEN GOTO NOINPUT
$ edit/edt/command=['F$EXTRACT(0,L,D)'.com]edtini.edt/OUTPUT='P2' 'P1'
$ edit/edt/command=['F$EXTRACT(0,L,D)'.com]edtini.edt 'P2'