Google
 

Trailing-Edge - PDP-10 Archives - integ_tools_tops20_v7_30-apr-86_dumper - tools/com/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)