Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

$ !++
$ ! 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'
$ EXIT
$NOINPUT:
$ edit/edt/command=['F$EXTRACT(0,L,D)'.com]edtini.edt 'P2'