sub abcde_guide {
  $right_frame->delete("1.0", 'end');
  open (FH, "$filenameD") or die "\nUnable to open $filename";
  while (<FH>) { $right_frame->insert("end", $_); }
  close (FH);
  $right_frame->tagConfigure("colf", -foreground => "orange");
  $right_frame->tagAdd('colf', '80.5',  '81.0 - 3 chars' , '119.5',  '120.0 - 3 chars ' );

}