sub ATS
 {  # PyrEdit assumes the HOME is col 1, row 1
    our %CRToutput;
    my $col = int(shift); my $row = int(shift);
    my $Saved = "$col|$row";
    if (exists $CRToutput{$Saved})
    {    return($CRToutput{$Saved}); }
    my $loc;
    if ( $SYS{"ATS"} eq "xterm" )    ## all 'xterm' compatibles 
    { $loc = "\e\[$row\;$col"."H"; }
    else
    {    ## PyrEdit assumes that HOME is col 1, row 1
        if (  $SYS{"ATSDEC"} eq "Y" ) { $row--; $col--; }
        $loc = qx/tput cup $row $col/; chomp($loc);
    }
    $CRToutput{$Saved} = $loc;
    return($loc);
 }