Trailing-Edge
-
PDP-10 Archives
-
tops10_integ_tools_v4_10jan-86
-
70,6067/com20a/edhome.com
There are 3 other files named edhome.com in the archive. Click here to see a list.
$ Save_Verify := 'F$Verify(0)
$!
$ If p1 .nes. "" Then filename :== 'p1'
$ If filename .eqs. "" Then inquire/global filename "File"
$!
$ OK := "y"
$ @Com:Check 'filename' return
$ IF Check_Error Then Inquire OK "OK to create new file?"
$ If .not. OK Then Goto END
$!
$ assign/user sys$command sys$input
$! edit/ftedt 'filename'/command=com:edtinih.edt
$ edit 'filename'/command=com:edtinih.edt
$!
$END:
$ Save_Verify := 'F$Verify(Save_Verify)