Macro_File LJSYS;

// FileUnderCursor                ( -- )
// DosExecuteLine                 ( -- )

macro FileUnderCursor // open
    {
  int temp_refresh = refresh;
  refresh = false;
  mark_pos;
  right;
  word_left;

  // Return_str = get_word( '"'' |255|9' );
  Return_str = get_word( '"''|255|9' );
  Make_Message(Return_str);

  goto_mark;
  refresh = temp_refresh;
  RM( "LDFILES /CW=2 /LC=1 /NC=1" );
}


macro DosExecuteLine // DosExecute :  execute line under cursor
    {

  // rest_dos_screen;
  Return_Str = get_line;
  RM( "exec" );
  while ( !check_key )
    ;
  new_screen;
}