#! /bin/sh
# Generated from testsuite_manual.at by GNU Autoconf 2.69.
#
# Test cases Copyright (C) 2022 Free Software Foundation, Inc.
#
# Written by Edward Hart, Simon Sobisch
#
# Copyright (C) 2009-2012 Free Software Foundation, Inc.
#
# This test suite is free software; the Free Software Foundation gives
# unlimited permission to copy, distribute and modify it.
## -------------------- ##
## M4sh Initialization. ##
## -------------------- ##

# Be more Bourne compatible
DUALCASE=1; export DUALCASE # for MKS sh
if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
  emulate sh
  NULLCMD=:
  # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
  # is contrary to our usage.  Disable this feature.
  alias -g '${1+"$@"}'='"$@"'
  setopt NO_GLOB_SUBST
else
  case `(set -o) 2>/dev/null` in #(
  *posix*) :
    set -o posix ;; #(
  *) :
     ;;
esac
fi


as_nl='
'
export as_nl
# Printing a long string crashes Solaris 7 /usr/bin/printf.
as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
# Prefer a ksh shell builtin over an external printf program on Solaris,
# but without wasting forks for bash or zsh.
if test -z "$BASH_VERSION$ZSH_VERSION" \
    && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
  as_echo='print -r --'
  as_echo_n='print -rn --'
elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
  as_echo='printf %s\n'
  as_echo_n='printf %s'
else
  if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
    as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
    as_echo_n='/usr/ucb/echo -n'
  else
    as_echo_body='eval expr "X$1" : "X\\(.*\\)"'
    as_echo_n_body='eval
      arg=$1;
      case $arg in #(
      *"$as_nl"*)
	expr "X$arg" : "X\\(.*\\)$as_nl";
	arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
      esac;
      expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"
    '
    export as_echo_n_body
    as_echo_n='sh -c $as_echo_n_body as_echo'
  fi
  export as_echo_body
  as_echo='sh -c $as_echo_body as_echo'
fi

# The user is always right.
if test "${PATH_SEPARATOR+set}" != set; then
  PATH_SEPARATOR=:
  (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
    (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
      PATH_SEPARATOR=';'
  }
fi


# IFS
# We need space, tab and new line, in precisely that order.  Quoting is
# there to prevent editors from complaining about space-tab.
# (If _AS_PATH_WALK were called with IFS unset, it would disable word
# splitting by setting IFS to empty value.)
IFS=" ""	$as_nl"

# Find who we are.  Look in the path if we contain no directory separator.
as_myself=
case $0 in #((
  *[\\/]* ) as_myself=$0 ;;
  *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
  IFS=$as_save_IFS
  test -z "$as_dir" && as_dir=.
    test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
  done
IFS=$as_save_IFS

     ;;
esac
# We did not find ourselves, most probably we were run as `sh COMMAND'
# in which case we are not to be found in the path.
if test "x$as_myself" = x; then
  as_myself=$0
fi
if test ! -f "$as_myself"; then
  $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
  exit 1
fi

# Unset variables that we do not need and which cause bugs (e.g. in
# pre-3.0 UWIN ksh).  But do not cause bugs in bash 2.01; the "|| exit 1"
# suppresses any "Segmentation fault" message there.  '((' could
# trigger a bug in pdksh 5.2.14.
for as_var in BASH_ENV ENV MAIL MAILPATH
do eval test x\${$as_var+set} = xset \
  && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
done
PS1='$ '
PS2='> '
PS4='+ '

# NLS nuisances.
LC_ALL=C
export LC_ALL
LANGUAGE=C
export LANGUAGE

# CDPATH.
(unset CDPATH) >/dev/null 2>&1 && unset CDPATH

if test "x$CONFIG_SHELL" = x; then
  as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then :
  emulate sh
  NULLCMD=:
  # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which
  # is contrary to our usage.  Disable this feature.
  alias -g '\${1+\"\$@\"}'='\"\$@\"'
  setopt NO_GLOB_SUBST
else
  case \`(set -o) 2>/dev/null\` in #(
  *posix*) :
    set -o posix ;; #(
  *) :
     ;;
esac
fi
"
  as_required="as_fn_return () { (exit \$1); }
as_fn_success () { as_fn_return 0; }
as_fn_failure () { as_fn_return 1; }
as_fn_ret_success () { return 0; }
as_fn_ret_failure () { return 1; }

exitcode=0
as_fn_success || { exitcode=1; echo as_fn_success failed.; }
as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; }
as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; }
as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; }
if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then :

else
  exitcode=1; echo positional parameters were not saved.
fi
test x\$exitcode = x0 || exit 1
test -x / || exit 1"
  as_suggested="  as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO
  as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO
  eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" &&
  test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1
test \$(( 1 + 1 )) = 2 || exit 1"
  if (eval "$as_required") 2>/dev/null; then :
  as_have_required=yes
else
  as_have_required=no
fi
  if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then :

else
  as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
as_found=false
for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH
do
  IFS=$as_save_IFS
  test -z "$as_dir" && as_dir=.
  as_found=:
  case $as_dir in #(
	 /*)
	   for as_base in sh bash ksh sh5; do
	     # Try only shells that exist, to save several forks.
	     as_shell=$as_dir/$as_base
	     if { test -f "$as_shell" || test -f "$as_shell.exe"; } &&
		    { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then :
  CONFIG_SHELL=$as_shell as_have_required=yes
		   if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then :
  break 2
fi
fi
	   done;;
       esac
  as_found=false
done
$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } &&
	      { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then :
  CONFIG_SHELL=$SHELL as_have_required=yes
fi; }
IFS=$as_save_IFS


      if test "x$CONFIG_SHELL" != x; then :
  export CONFIG_SHELL
             # We cannot yet assume a decent shell, so we have to provide a
# neutralization value for shells without unset; and this also
# works around shells that cannot unset nonexistent variables.
# Preserve -v and -x to the replacement shell.
BASH_ENV=/dev/null
ENV=/dev/null
(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
case $- in # ((((
  *v*x* | *x*v* ) as_opts=-vx ;;
  *v* ) as_opts=-v ;;
  *x* ) as_opts=-x ;;
  * ) as_opts= ;;
esac
exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"}
# Admittedly, this is quite paranoid, since all the known shells bail
# out after a failed `exec'.
$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2
exit 255
fi

    if test x$as_have_required = xno; then :
  $as_echo "$0: This script requires a shell more modern than all"
  $as_echo "$0: the shells that I found on your system."
  if test x${ZSH_VERSION+set} = xset ; then
    $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should"
    $as_echo "$0: be upgraded to zsh 4.3.4 or later."
  else
    $as_echo "$0: Please tell bug-autoconf@gnu.org about your system,
$0: including any error possibly output before this
$0: message. Then install a modern shell, or manually run
$0: the script under such a shell if you do have one."
  fi
  exit 1
fi
fi
fi
SHELL=${CONFIG_SHELL-/bin/sh}
export SHELL
# Unset more variables known to interfere with behavior of common tools.
CLICOLOR_FORCE= GREP_OPTIONS=
unset CLICOLOR_FORCE GREP_OPTIONS

## --------------------- ##
## M4sh Shell Functions. ##
## --------------------- ##
# as_fn_unset VAR
# ---------------
# Portably unset VAR.
as_fn_unset ()
{
  { eval $1=; unset $1;}
}
as_unset=as_fn_unset

# as_fn_set_status STATUS
# -----------------------
# Set $? to STATUS, without forking.
as_fn_set_status ()
{
  return $1
} # as_fn_set_status

# as_fn_exit STATUS
# -----------------
# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
as_fn_exit ()
{
  set +e
  as_fn_set_status $1
  exit $1
} # as_fn_exit

# as_fn_mkdir_p
# -------------
# Create "$as_dir" as a directory, including parents if necessary.
as_fn_mkdir_p ()
{

  case $as_dir in #(
  -*) as_dir=./$as_dir;;
  esac
  test -d "$as_dir" || eval $as_mkdir_p || {
    as_dirs=
    while :; do
      case $as_dir in #(
      *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
      *) as_qdir=$as_dir;;
      esac
      as_dirs="'$as_qdir' $as_dirs"
      as_dir=`$as_dirname -- "$as_dir" ||
$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
	 X"$as_dir" : 'X\(//\)[^/]' \| \
	 X"$as_dir" : 'X\(//\)$' \| \
	 X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
$as_echo X"$as_dir" |
    sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
	    s//\1/
	    q
	  }
	  /^X\(\/\/\)[^/].*/{
	    s//\1/
	    q
	  }
	  /^X\(\/\/\)$/{
	    s//\1/
	    q
	  }
	  /^X\(\/\).*/{
	    s//\1/
	    q
	  }
	  s/.*/./; q'`
      test -d "$as_dir" && break
    done
    test -z "$as_dirs" || eval "mkdir $as_dirs"
  } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"


} # as_fn_mkdir_p

# as_fn_executable_p FILE
# -----------------------
# Test if FILE is an executable regular file.
as_fn_executable_p ()
{
  test -f "$1" && test -x "$1"
} # as_fn_executable_p
# as_fn_append VAR VALUE
# ----------------------
# Append the text in VALUE to the end of the definition contained in VAR. Take
# advantage of any shell optimizations that allow amortized linear growth over
# repeated appends, instead of the typical quadratic growth present in naive
# implementations.
if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then :
  eval 'as_fn_append ()
  {
    eval $1+=\$2
  }'
else
  as_fn_append ()
  {
    eval $1=\$$1\$2
  }
fi # as_fn_append

# as_fn_arith ARG...
# ------------------
# Perform arithmetic evaluation on the ARGs, and store the result in the
# global $as_val. Take advantage of shells that can avoid forks. The arguments
# must be portable across $(()) and expr.
if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then :
  eval 'as_fn_arith ()
  {
    as_val=$(( $* ))
  }'
else
  as_fn_arith ()
  {
    as_val=`expr "$@" || test $? -eq 1`
  }
fi # as_fn_arith


# as_fn_error STATUS ERROR [LINENO LOG_FD]
# ----------------------------------------
# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
# script with STATUS, using 1 if that was 0.
as_fn_error ()
{
  as_status=$1; test $as_status -eq 0 && as_status=1
  if test "$4"; then
    as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
    $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
  fi
  $as_echo "$as_me: error: $2" >&2
  as_fn_exit $as_status
} # as_fn_error

if expr a : '\(a\)' >/dev/null 2>&1 &&
   test "X`expr 00001 : '.*\(...\)'`" = X001; then
  as_expr=expr
else
  as_expr=false
fi

if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
  as_basename=basename
else
  as_basename=false
fi

as_me=`$as_basename -- "$0" ||
$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
	 X"$0" : 'X\(//\)$' \| \
	 X"$0" : 'X\(/\)' \| . 2>/dev/null ||
$as_echo X/"$0" |
    sed '/^.*\/\([^/][^/]*\)\/*$/{
	    s//\1/
	    q
	  }
	  /^X\/\(\/\/\)$/{
	    s//\1/
	    q
	  }
	  /^X\/\(\/\).*/{
	    s//\1/
	    q
	  }
	  s/.*/./; q'`

if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
  as_dirname=dirname
else
  as_dirname=false
fi

# Avoid depending upon Character Ranges.
as_cr_letters='abcdefghijklmnopqrstuvwxyz'
as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
as_cr_Letters=$as_cr_letters$as_cr_LETTERS
as_cr_digits='0123456789'
as_cr_alnum=$as_cr_Letters$as_cr_digits


  as_lineno_1=$LINENO as_lineno_1a=$LINENO
  as_lineno_2=$LINENO as_lineno_2a=$LINENO
  eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" &&
  test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || {
  # Blame Lee E. McMahon (1931-1989) for sed's syntax.  :-)
  sed -n '
    p
    /[$]LINENO/=
  ' <$as_myself |
    sed '
      s/[$]LINENO.*/&-/
      t lineno
      b
      :lineno
      N
      :loop
      s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/
      t loop
      s/-\n.*//
    ' >$as_me.lineno &&
  chmod +x "$as_me.lineno" ||
    { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; }

  # If we had to re-execute with $CONFIG_SHELL, we're ensured to have
  # already done that, so ensure we don't try to do so again and fall
  # in an infinite loop.  This has already happened in practice.
  _as_can_reexec=no; export _as_can_reexec
  # Don't try to exec as it changes $[0], causing all sort of problems
  # (the dirname of $[0] is not the place where we might find the
  # original and so on.  Autoconf is especially sensitive to this).
  . "./$as_me.lineno"
  # Exit status is that of the last command.
  exit
}

ECHO_C= ECHO_N= ECHO_T=
case `echo -n x` in #(((((
-n*)
  case `echo 'xy\c'` in
  *c*) ECHO_T='	';;	# ECHO_T is single tab character.
  xy)  ECHO_C='\c';;
  *)   echo `echo ksh88 bug on AIX 6.1` > /dev/null
       ECHO_T='	';;
  esac;;
*)
  ECHO_N='-n';;
esac

rm -f conf$$ conf$$.exe conf$$.file
if test -d conf$$.dir; then
  rm -f conf$$.dir/conf$$.file
else
  rm -f conf$$.dir
  mkdir conf$$.dir 2>/dev/null
fi
if (echo >conf$$.file) 2>/dev/null; then
  if ln -s conf$$.file conf$$ 2>/dev/null; then
    as_ln_s='ln -s'
    # ... but there are two gotchas:
    # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
    # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
    # In both cases, we have to default to `cp -pR'.
    ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
      as_ln_s='cp -pR'
  elif ln conf$$.file conf$$ 2>/dev/null; then
    as_ln_s=ln
  else
    as_ln_s='cp -pR'
  fi
else
  as_ln_s='cp -pR'
fi
rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
rmdir conf$$.dir 2>/dev/null

if mkdir -p . 2>/dev/null; then
  as_mkdir_p='mkdir -p "$as_dir"'
else
  test -d ./-p && rmdir ./-p
  as_mkdir_p=false
fi

as_test_x='test -x'
as_executable_p=as_fn_executable_p

# Sed expression to map a string onto a valid CPP name.
as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"

# Sed expression to map a string onto a valid variable name.
as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"





SHELL=${CONFIG_SHELL-/bin/sh}

# How were we run?
at_cli_args="$@"


# Not all shells have the 'times' builtin; the subshell is needed to make
# sure we discard the 'times: not found' message from the shell.
at_times_p=false
(times) >/dev/null 2>&1 && at_times_p=:

# CLI Arguments to pass to the debugging scripts.
at_debug_args=
# -e sets to true
at_errexit_p=false
# Shall we be verbose?  ':' means no, empty means yes.
at_verbose=:
at_quiet=
# Running several jobs in parallel, 0 means as many as test groups.
at_jobs=1
at_traceon=:
at_trace_echo=:
at_check_filter_trace=:

# Shall we keep the debug scripts?  Must be `:' when the suite is
# run by a debug script, so that the script doesn't remove itself.
at_debug_p=false
# Display help message?
at_help_p=false
# Display the version message?
at_version_p=false
# List test groups?
at_list_p=false
# --clean
at_clean=false
# Test groups to run
at_groups=
# Whether to rerun failed tests.
at_recheck=
# Whether a write failure occurred
at_write_fail=0

# The directory we run the suite in.  Default to . if no -C option.
at_dir=`pwd`
# An absolute reference to this testsuite script.
case $as_myself in
  [\\/]* | ?:[\\/]* ) at_myself=$as_myself ;;
  * ) at_myself=$at_dir/$as_myself ;;
esac
# Whether -C is in effect.
at_change_dir=false

# Whether to enable colored test results.
at_color=auto
# List of the tested programs.
at_tested='cobc
cobcrun'
# As many question marks as there are digits in the last test group number.
# Used to normalize the test group numbers so that `ls' lists them in
# numerical order.
at_format='??'
# Description of all the test groups.
at_help_all="1;run_manual_screen.at:24;LINE;screen;
2;run_manual_screen.at:71;COLUMN (1);col;
3;run_manual_screen.at:121;COLUMN (2);col;
4;run_manual_screen.at:168;LINE non-zero, COLUMN zero;col extensions;
5;run_manual_screen.at:207;LINE zero, COLUMN non-zero;col zero extensions;
6;run_manual_screen.at:247;LINE zero, COLUMN zero;col extensions;
7;run_manual_screen.at:289;DISPLAY AT;extensions;
8;run_manual_screen.at:332;DISPLAY LOW-VALUES (one statement);low-value extensions;
9;run_manual_screen.at:370;DISPLAY LOW-VALUES (two statements);low-value extensions;
10;run_manual_screen.at:409;DISPLAY SPACES;space extensions;
11;run_manual_screen.at:464;DISPLAY ALL X'01';soh extensions;
12;run_manual_screen.at:519;DISPLAY ALL X'02';stx extensions;
13;run_manual_screen.at:580;DISPLAY ALL X'07';bell beep extensions;
14;run_manual_screen.at:637;Screen position after field display;line column;
15;run_manual_screen.at:677;Overridden clauses (1);line column col;
16;run_manual_screen.at:725;Overridden clauses (2);highlight lowlight background color colour;
17;run_manual_screen.at:766;AUTO;position;
18;run_manual_screen.at:818;SCREEN BACKGROUND- / FOREGROUND-COLOUR;background-color background-colour foreground-color color colour highlight blink;
19;run_manual_screen.at:925;SCREEN BACKGROUND- / FOREGROUND-COLOUR via COLOR;background-color background-colour foreground-color color colour reversed;
20;run_manual_screen.at:1012;field BACKGROUND- / FOREGROUND-COLOUR;background-color background-colour foreground-color color colour highlight blink;
21;run_manual_screen.at:1119;field BACKGROUND- / FOREGROUND-COLOUR via COLOR;background-color background-colour foreground-color color colour reversed highlight blink;
22;run_manual_screen.at:1219;field BACKGROUND- / FOREGROUND-COLOUR via CONTROL;screen display reversed highlight blink color background-color background-colour foreground-color colour;
23;run_manual_screen.at:1350;line draw characters via CONTROL GRAPHICS;screen display;
24;run_manual_screen.at:1427;BEEP;bell flash;
25;run_manual_screen.at:1484;BLANK LINE;screen;
26;run_manual_screen.at:1542;BLANK SCREEN;screen;
27;run_manual_screen.at:1599;BLANK ignored in ACCEPT;screen;
28;run_manual_screen.at:1641;BLINK;screen;
29;run_manual_screen.at:1680;ERASE EOS;screen;
30;run_manual_screen.at:1738;ERASE EOL;screen;
31;run_manual_screen.at:1796;ERASE ignored in ACCEPT;eos;
32;run_manual_screen.at:1851;FULL and REQUIRED;screen;
33;run_manual_screen.at:1892;HIGHLIGHT;screen;
34;run_manual_screen.at:1932;INITIAL;screen;
35;run_manual_screen.at:1979;LEFTLINE;grid;
36;run_manual_screen.at:2022;LOWLIGHT;screen;
37;run_manual_screen.at:2061;OVERLINE;screen;
38;run_manual_screen.at:2103;REVERSE-VIDEO;screen;
39;run_manual_screen.at:2144;SECURE;password;
40;run_manual_screen.at:2186;SIZE with items;protected extensions;
41;run_manual_screen.at:2230;SIZE with figurative constants;protected extensions;
42;run_manual_screen.at:2271;UPDATE;extensions;
43;run_manual_screen.at:2312;UNDERLINE;screen;
44;run_manual_screen.at:2351;SPECIAL-NAMES CURSOR phrase 6-digit with field;position accept;
45;run_manual_screen.at:2404;SPECIAL-NAMES CURSOR phrase 4-digit with field;position accept;
46;run_manual_screen.at:2457;ACCEPT field WITH CURSOR data-item;position;
47;run_manual_screen.at:2507;ACCEPT field WITH CURSOR size overflow;position;
48;run_manual_screen.at:2557;ACCEPT field WITH CURSOR data overflow I;position;
49;run_manual_screen.at:2607;ACCEPT field WITH CURSOR data overflow II;position underline;
50;run_manual_screen.at:2656;ACCEPT field WITH CURSOR literal;position;
51;run_manual_screen.at:2702;HOME key;home size;
52;run_manual_screen.at:2749;END key;end size;
53;run_manual_screen.at:2796;INSERT key;insert size;
54;run_manual_screen.at:2845;BACKSPACE key;backspace size cursor;
55;run_manual_screen.at:2900;DELETE key;delete size;
56;run_manual_screen.at:2949;ALT DELETE key;alt-delete size;
57;run_manual_screen.at:2996;ALT LEFT-ARROW key;alt-left-arrow size;
58;run_manual_screen.at:3043;ALT RIGHT-ARROW key;size;
59;run_manual_screen.at:3090;CURSOR clause;special-names;
60;run_manual_screen.at:3191;CRT STATUS clause;special-names;
61;run_manual_screen.at:3292;CRT STATUS clause;special-names;
62;run_manual_screen.at:3382;X/Open CRT STATUS clause;special-names;
"
# List of the all the test groups.
at_groups_all=`$as_echo "$at_help_all" | sed 's/;.*//'`

# at_fn_validate_ranges NAME...
# -----------------------------
# Validate and normalize the test group number contained in each variable
# NAME. Leading zeroes are treated as decimal.
at_fn_validate_ranges ()
{
  for at_grp
  do
    eval at_value=\$$at_grp
    if test $at_value -lt 1 || test $at_value -gt 62; then
      $as_echo "invalid test group: $at_value" >&2
      exit 1
    fi
    case $at_value in
      0*) # We want to treat leading 0 as decimal, like expr and test, but
	  # AS_VAR_ARITH treats it as octal if it uses $(( )).
	  # With XSI shells, ${at_value#${at_value%%[1-9]*}} avoids the
	  # expr fork, but it is not worth the effort to determine if the
	  # shell supports XSI when the user can just avoid leading 0.
	  eval $at_grp='`expr $at_value + 0`' ;;
    esac
  done
}

at_prev=
for at_option
do
  # If the previous option needs an argument, assign it.
  if test -n "$at_prev"; then
    at_option=$at_prev=$at_option
    at_prev=
  fi

  case $at_option in
  *=?*) at_optarg=`expr "X$at_option" : '[^=]*=\(.*\)'` ;;
  *)    at_optarg= ;;
  esac

  # Accept the important Cygnus configure options, so we can diagnose typos.

  case $at_option in
    --help | -h )
	at_help_p=:
	;;

    --list | -l )
	at_list_p=:
	;;

    --version | -V )
	at_version_p=:
	;;

    --clean | -c )
	at_clean=:
	;;

    --color )
	at_color=always
	;;
    --color=* )
	case $at_optarg in
	no | never | none) at_color=never ;;
	auto | tty | if-tty) at_color=auto ;;
	always | yes | force) at_color=always ;;
	*) at_optname=`echo " $at_option" | sed 's/^ //; s/=.*//'`
	   as_fn_error $? "unrecognized argument to $at_optname: $at_optarg" ;;
	esac
	;;

    --debug | -d )
	at_debug_p=:
	;;

    --errexit | -e )
	at_debug_p=:
	at_errexit_p=:
	;;

    --verbose | -v )
	at_verbose=; at_quiet=:
	;;

    --trace | -x )
	at_traceon='set -x'
	at_trace_echo=echo
	at_check_filter_trace=at_fn_filter_trace
	;;

    [0-9] | [0-9][0-9] | [0-9][0-9][0-9] | [0-9][0-9][0-9][0-9])
	at_fn_validate_ranges at_option
	as_fn_append at_groups "$at_option$as_nl"
	;;

    # Ranges
    [0-9]- | [0-9][0-9]- | [0-9][0-9][0-9]- | [0-9][0-9][0-9][0-9]-)
	at_range_start=`echo $at_option |tr -d X-`
	at_fn_validate_ranges at_range_start
	at_range=`$as_echo "$at_groups_all" | \
	  sed -ne '/^'$at_range_start'$/,$p'`
	as_fn_append at_groups "$at_range$as_nl"
	;;

    -[0-9] | -[0-9][0-9] | -[0-9][0-9][0-9] | -[0-9][0-9][0-9][0-9])
	at_range_end=`echo $at_option |tr -d X-`
	at_fn_validate_ranges at_range_end
	at_range=`$as_echo "$at_groups_all" | \
	  sed -ne '1,/^'$at_range_end'$/p'`
	as_fn_append at_groups "$at_range$as_nl"
	;;

    [0-9]-[0-9] | [0-9]-[0-9][0-9] | [0-9]-[0-9][0-9][0-9] | \
    [0-9]-[0-9][0-9][0-9][0-9] | [0-9][0-9]-[0-9][0-9] | \
    [0-9][0-9]-[0-9][0-9][0-9] | [0-9][0-9]-[0-9][0-9][0-9][0-9] | \
    [0-9][0-9][0-9]-[0-9][0-9][0-9] | \
    [0-9][0-9][0-9]-[0-9][0-9][0-9][0-9] | \
    [0-9][0-9][0-9][0-9]-[0-9][0-9][0-9][0-9] )
	at_range_start=`expr $at_option : '\(.*\)-'`
	at_range_end=`expr $at_option : '.*-\(.*\)'`
	if test $at_range_start -gt $at_range_end; then
	  at_tmp=$at_range_end
	  at_range_end=$at_range_start
	  at_range_start=$at_tmp
	fi
	at_fn_validate_ranges at_range_start at_range_end
	at_range=`$as_echo "$at_groups_all" | \
	  sed -ne '/^'$at_range_start'$/,/^'$at_range_end'$/p'`
	as_fn_append at_groups "$at_range$as_nl"
	;;

    # Directory selection.
    --directory | -C )
	at_prev=--directory
	;;
    --directory=* )
	at_change_dir=:
	at_dir=$at_optarg
	if test x- = "x$at_dir" ; then
	  at_dir=./-
	fi
	;;

    # Parallel execution.
    --jobs | -j )
	at_jobs=0
	;;
    --jobs=* | -j[0-9]* )
	if test -n "$at_optarg"; then
	  at_jobs=$at_optarg
	else
	  at_jobs=`expr X$at_option : 'X-j\(.*\)'`
	fi
	case $at_jobs in *[!0-9]*)
	  at_optname=`echo " $at_option" | sed 's/^ //; s/[0-9=].*//'`
	  as_fn_error $? "non-numeric argument to $at_optname: $at_jobs" ;;
	esac
	;;

    # Keywords.
    --keywords | -k )
	at_prev=--keywords
	;;
    --keywords=* )
	at_groups_selected=$at_help_all
	at_save_IFS=$IFS
	IFS=,
	set X $at_optarg
	shift
	IFS=$at_save_IFS
	for at_keyword
	do
	  at_invert=
	  case $at_keyword in
	  '!'*)
	    at_invert="-v"
	    at_keyword=`expr "X$at_keyword" : 'X!\(.*\)'`
	    ;;
	  esac
	  # It is on purpose that we match the test group titles too.
	  at_groups_selected=`$as_echo "$at_groups_selected" |
	      grep -i $at_invert "^[1-9][^;]*;.*[; ]$at_keyword[ ;]"`
	done
	# Smash the keywords.
	at_groups_selected=`$as_echo "$at_groups_selected" | sed 's/;.*//'`
	as_fn_append at_groups "$at_groups_selected$as_nl"
	;;
    --recheck)
	at_recheck=:
	;;

    *=*)
	at_envvar=`expr "x$at_option" : 'x\([^=]*\)='`
	# Reject names that are not valid shell variable names.
	case $at_envvar in
	  '' | [0-9]* | *[!_$as_cr_alnum]* )
	    as_fn_error $? "invalid variable name: \`$at_envvar'" ;;
	esac
	at_value=`$as_echo "$at_optarg" | sed "s/'/'\\\\\\\\''/g"`
	# Export now, but save eval for later and for debug scripts.
	export $at_envvar
	as_fn_append at_debug_args " $at_envvar='$at_value'"
	;;

     *) $as_echo "$as_me: invalid option: $at_option" >&2
	$as_echo "Try \`$0 --help' for more information." >&2
	exit 1
	;;
  esac
done

# Verify our last option didn't require an argument
if test -n "$at_prev"; then :
  as_fn_error $? "\`$at_prev' requires an argument"
fi

# The file containing the suite.
at_suite_log=$at_dir/$as_me.log

# Selected test groups.
if test -z "$at_groups$at_recheck"; then
  at_groups=$at_groups_all
else
  if test -n "$at_recheck" && test -r "$at_suite_log"; then
    at_oldfails=`sed -n '
      /^Failed tests:$/,/^Skipped tests:$/{
	s/^[ ]*\([1-9][0-9]*\):.*/\1/p
      }
      /^Unexpected passes:$/,/^## Detailed failed tests/{
	s/^[ ]*\([1-9][0-9]*\):.*/\1/p
      }
      /^## Detailed failed tests/q
      ' "$at_suite_log"`
    as_fn_append at_groups "$at_oldfails$as_nl"
  fi
  # Sort the tests, removing duplicates.
  at_groups=`$as_echo "$at_groups" | sort -nu | sed '/^$/d'`
fi

if test x"$at_color" = xalways \
   || { test x"$at_color" = xauto && test -t 1; }; then
  at_red=`printf '\033[0;31m'`
  at_grn=`printf '\033[0;32m'`
  at_lgn=`printf '\033[1;32m'`
  at_blu=`printf '\033[1;34m'`
  at_std=`printf '\033[m'`
else
  at_red= at_grn= at_lgn= at_blu= at_std=
fi

# Help message.
if $at_help_p; then
  cat <<_ATEOF || at_write_fail=1
Usage: $0 [OPTION]... [VARIABLE=VALUE]... [TESTS]

Run all the tests, or the selected TESTS, given by numeric ranges, and
save a detailed log file.  Upon failure, create debugging scripts.

Do not change environment variables directly.  Instead, set them via
command line arguments.  Set \`AUTOTEST_PATH' to select the executables
to exercise.  Each relative directory is expanded as build and source
directories relative to the top level of this distribution.
E.g., from within the build directory /tmp/foo-1.0, invoking this:

  $ $0 AUTOTEST_PATH=bin

is equivalent to the following, assuming the source directory is /src/foo-1.0:

  PATH=/tmp/foo-1.0/bin:/src/foo-1.0/bin:\$PATH $0
_ATEOF
cat <<_ATEOF || at_write_fail=1

Operation modes:
  -h, --help     print the help message, then exit
  -V, --version  print version number, then exit
  -c, --clean    remove all the files this test suite might create and exit
  -l, --list     describes all the tests, or the selected TESTS
_ATEOF
cat <<_ATEOF || at_write_fail=1

Execution tuning:
  -C, --directory=DIR
                 change to directory DIR before starting
      --color[=never|auto|always]
                 disable colored test results, or enable even without terminal
  -j, --jobs[=N]
                 Allow N jobs at once; infinite jobs with no arg (default 1)
  -k, --keywords=KEYWORDS
                 select the tests matching all the comma-separated KEYWORDS
                 multiple \`-k' accumulate; prefixed \`!' negates a KEYWORD
      --recheck  select all tests that failed or passed unexpectedly last time
  -e, --errexit  abort as soon as a test fails; implies --debug
  -v, --verbose  force more detailed output
                 default for debugging scripts
  -d, --debug    inhibit clean up and top-level logging
                 default for debugging scripts
  -x, --trace    enable tests shell tracing
_ATEOF
cat <<_ATEOF || at_write_fail=1

Report bugs to <bug-gnucobol@gnu.org>.
GnuCOBOL home page: <https://www.gnu.org/software/gnucobol/>.
_ATEOF
  exit $at_write_fail
fi

# List of tests.
if $at_list_p; then
  cat <<_ATEOF || at_write_fail=1
GnuCOBOL 3.2 test suite: GnuCOBOL Manual Tests test groups:

 NUM: FILE-NAME:LINE     TEST-GROUP-NAME
      KEYWORDS

_ATEOF
  # Pass an empty line as separator between selected groups and help.
  $as_echo "$at_groups$as_nl$as_nl$at_help_all" |
    awk 'NF == 1 && FS != ";" {
	   selected[$ 1] = 1
	   next
	 }
	 /^$/ { FS = ";" }
	 NF > 0 {
	   if (selected[$ 1]) {
	     printf " %3d: %-18s %s\n", $ 1, $ 2, $ 3
	     if ($ 4) {
	       lmax = 79
	       indent = "     "
	       line = indent
	       len = length (line)
	       n = split ($ 4, a, " ")
	       for (i = 1; i <= n; i++) {
		 l = length (a[i]) + 1
		 if (i > 1 && len + l > lmax) {
		   print line
		   line = indent " " a[i]
		   len = length (line)
		 } else {
		   line = line " " a[i]
		   len += l
		 }
	       }
	       if (n)
		 print line
	     }
	   }
	 }' || at_write_fail=1
  exit $at_write_fail
fi
if $at_version_p; then
  $as_echo "$as_me (GnuCOBOL 3.2)" &&
  cat <<\_ATEOF || at_write_fail=1

Test cases Copyright (C) 2022 Free Software Foundation, Inc.

Written by Edward Hart, Simon Sobisch

Copyright (C) 2012 Free Software Foundation, Inc.
This test suite is free software; the Free Software Foundation gives
unlimited permission to copy, distribute and modify it.
_ATEOF
  exit $at_write_fail
fi

# Should we print banners?  Yes if more than one test is run.
case $at_groups in #(
  *$as_nl* )
      at_print_banners=: ;; #(
  * ) at_print_banners=false ;;
esac
# Text for banner N, set to a single space once printed.
# Banner 1. testsuite_manual.at:42
# Category starts at test group 1.
at_banner_text_1="Run screen tests"

# Take any -C into account.
if $at_change_dir ; then
  test x != "x$at_dir" && cd "$at_dir" \
    || as_fn_error $? "unable to change directory"
  at_dir=`pwd`
fi

# Load the config files for any default variable assignments.
for at_file in atconfig atlocal
do
  test -r $at_file || continue
  . ./$at_file || as_fn_error $? "invalid content: $at_file"
done

# Autoconf <=2.59b set at_top_builddir instead of at_top_build_prefix:
: "${at_top_build_prefix=$at_top_builddir}"

# Perform any assignments requested during argument parsing.
eval "$at_debug_args"

# atconfig delivers names relative to the directory the test suite is
# in, but the groups themselves are run in testsuite-dir/group-dir.
if test -n "$at_top_srcdir"; then
  builddir=../..
  for at_dir_var in srcdir top_srcdir top_build_prefix
  do
    eval at_val=\$at_$at_dir_var
    case $at_val in
      [\\/$]* | ?:[\\/]* ) at_prefix= ;;
      *) at_prefix=../../ ;;
    esac
    eval "$at_dir_var=\$at_prefix\$at_val"
  done
fi

## -------------------- ##
## Directory structure. ##
## -------------------- ##

# This is the set of directories and files used by this script
# (non-literals are capitalized):
#
# TESTSUITE         - the testsuite
# TESTSUITE.log     - summarizes the complete testsuite run
# TESTSUITE.dir/    - created during a run, remains after -d or failed test
# + at-groups/      - during a run: status of all groups in run
# | + NNN/          - during a run: meta-data about test group NNN
# | | + check-line  - location (source file and line) of current AT_CHECK
# | | + status      - exit status of current AT_CHECK
# | | + stdout      - stdout of current AT_CHECK
# | | + stder1      - stderr, including trace
# | | + stderr      - stderr, with trace filtered out
# | | + test-source - portion of testsuite that defines group
# | | + times       - timestamps for computing duration
# | | + pass        - created if group passed
# | | + xpass       - created if group xpassed
# | | + fail        - created if group failed
# | | + xfail       - created if group xfailed
# | | + skip        - created if group skipped
# + at-stop         - during a run: end the run if this file exists
# + at-source-lines - during a run: cache of TESTSUITE line numbers for extraction
# + 0..NNN/         - created for each group NNN, remains after -d or failed test
# | + TESTSUITE.log - summarizes the group results
# | + ...           - files created during the group

# The directory the whole suite works in.
# Should be absolute to let the user `cd' at will.
at_suite_dir=$at_dir/$as_me.dir
# The file containing the suite ($at_dir might have changed since earlier).
at_suite_log=$at_dir/$as_me.log
# The directory containing helper files per test group.
at_helper_dir=$at_suite_dir/at-groups
# Stop file: if it exists, do not start new jobs.
at_stop_file=$at_suite_dir/at-stop
# The fifo used for the job dispatcher.
at_job_fifo=$at_suite_dir/at-job-fifo

if $at_clean; then
  test -d "$at_suite_dir" &&
    find "$at_suite_dir" -type d ! -perm -700 -exec chmod u+rwx \{\} \;
  rm -f -r "$at_suite_dir" "$at_suite_log"
  exit $?
fi

# Don't take risks: use only absolute directories in PATH.
#
# For stand-alone test suites (ie. atconfig was not found),
# AUTOTEST_PATH is relative to `.'.
#
# For embedded test suites, AUTOTEST_PATH is relative to the top level
# of the package.  Then expand it into build/src parts, since users
# may create executables in both places.
AUTOTEST_PATH=`$as_echo "$AUTOTEST_PATH" | sed "s|:|$PATH_SEPARATOR|g"`
at_path=
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $AUTOTEST_PATH $PATH
do
  IFS=$as_save_IFS
  test -z "$as_dir" && as_dir=.
    test -n "$at_path" && as_fn_append at_path $PATH_SEPARATOR
case $as_dir in
  [\\/]* | ?:[\\/]* )
    as_fn_append at_path "$as_dir"
    ;;
  * )
    if test -z "$at_top_build_prefix"; then
      # Stand-alone test suite.
      as_fn_append at_path "$as_dir"
    else
      # Embedded test suite.
      as_fn_append at_path "$at_top_build_prefix$as_dir$PATH_SEPARATOR"
      as_fn_append at_path "$at_top_srcdir/$as_dir"
    fi
    ;;
esac
  done
IFS=$as_save_IFS


# Now build and simplify PATH.
#
# There might be directories that don't exist, but don't redirect
# builtins' (eg., cd) stderr directly: Ultrix's sh hates that.
at_new_path=
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $at_path
do
  IFS=$as_save_IFS
  test -z "$as_dir" && as_dir=.
    test -d "$as_dir" || continue
case $as_dir in
  [\\/]* | ?:[\\/]* ) ;;
  * ) as_dir=`(cd "$as_dir" && pwd) 2>/dev/null` ;;
esac
case $PATH_SEPARATOR$at_new_path$PATH_SEPARATOR in
  *$PATH_SEPARATOR$as_dir$PATH_SEPARATOR*) ;;
  $PATH_SEPARATOR$PATH_SEPARATOR) at_new_path=$as_dir ;;
  *) as_fn_append at_new_path "$PATH_SEPARATOR$as_dir" ;;
esac
  done
IFS=$as_save_IFS

PATH=$at_new_path
export PATH

# Setting up the FDs.



# 5 is the log file.  Not to be overwritten if `-d'.
if $at_debug_p; then
  at_suite_log=/dev/null
else
  : >"$at_suite_log"
fi
exec 5>>"$at_suite_log"

# Banners and logs.
$as_echo "## ----------------------------------------------- ##
## GnuCOBOL 3.2 test suite: GnuCOBOL Manual Tests. ##
## ----------------------------------------------- ##"
{
  $as_echo "## ----------------------------------------------- ##
## GnuCOBOL 3.2 test suite: GnuCOBOL Manual Tests. ##
## ----------------------------------------------- ##"
  echo

  $as_echo "$as_me: command line was:"
  $as_echo "  \$ $0 $at_cli_args"
  echo

  # If ChangeLog exists, list a few lines in case it might help determining
  # the exact version.
  if test -n "$at_top_srcdir" && test -f "$at_top_srcdir/ChangeLog"; then
    $as_echo "## ---------- ##
## ChangeLog. ##
## ---------- ##"
    echo
    sed 's/^/| /;10q' "$at_top_srcdir/ChangeLog"
    echo
  fi

  {
cat <<_ASUNAME
## --------- ##
## Platform. ##
## --------- ##

hostname = `(hostname || uname -n) 2>/dev/null | sed 1q`
uname -m = `(uname -m) 2>/dev/null || echo unknown`
uname -r = `(uname -r) 2>/dev/null || echo unknown`
uname -s = `(uname -s) 2>/dev/null || echo unknown`
uname -v = `(uname -v) 2>/dev/null || echo unknown`

/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown`
/bin/uname -X     = `(/bin/uname -X) 2>/dev/null     || echo unknown`

/bin/arch              = `(/bin/arch) 2>/dev/null              || echo unknown`
/usr/bin/arch -k       = `(/usr/bin/arch -k) 2>/dev/null       || echo unknown`
/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown`
/usr/bin/hostinfo      = `(/usr/bin/hostinfo) 2>/dev/null      || echo unknown`
/bin/machine           = `(/bin/machine) 2>/dev/null           || echo unknown`
/usr/bin/oslevel       = `(/usr/bin/oslevel) 2>/dev/null       || echo unknown`
/bin/universe          = `(/bin/universe) 2>/dev/null          || echo unknown`

_ASUNAME

as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
  IFS=$as_save_IFS
  test -z "$as_dir" && as_dir=.
    $as_echo "PATH: $as_dir"
  done
IFS=$as_save_IFS

}
  echo

  # Contents of the config files.
  for at_file in atconfig atlocal
  do
    test -r $at_file || continue
    $as_echo "$as_me: $at_file:"
    sed 's/^/| /' $at_file
    echo
  done
} >&5


## ------------------------- ##
## Autotest shell functions. ##
## ------------------------- ##

# at_fn_banner NUMBER
# -------------------
# Output banner NUMBER, provided the testsuite is running multiple groups and
# this particular banner has not yet been printed.
at_fn_banner ()
{
  $at_print_banners || return 0
  eval at_banner_text=\$at_banner_text_$1
  test "x$at_banner_text" = "x " && return 0
  eval "at_banner_text_$1=\" \""
  if test -z "$at_banner_text"; then
    $at_first || echo
  else
    $as_echo "$as_nl$at_banner_text$as_nl"
  fi
} # at_fn_banner

# at_fn_check_prepare_notrace REASON LINE
# ---------------------------------------
# Perform AT_CHECK preparations for the command at LINE for an untraceable
# command; REASON is the reason for disabling tracing.
at_fn_check_prepare_notrace ()
{
  $at_trace_echo "Not enabling shell tracing (command contains $1)"
  $as_echo "$2" >"$at_check_line_file"
  at_check_trace=: at_check_filter=:
  : >"$at_stdout"; : >"$at_stderr"
}

# at_fn_check_prepare_trace LINE
# ------------------------------
# Perform AT_CHECK preparations for the command at LINE for a traceable
# command.
at_fn_check_prepare_trace ()
{
  $as_echo "$1" >"$at_check_line_file"
  at_check_trace=$at_traceon at_check_filter=$at_check_filter_trace
  : >"$at_stdout"; : >"$at_stderr"
}

# at_fn_check_prepare_dynamic COMMAND LINE
# ----------------------------------------
# Decide if COMMAND at LINE is traceable at runtime, and call the appropriate
# preparation function.
at_fn_check_prepare_dynamic ()
{
  case $1 in
    *$as_nl*)
      at_fn_check_prepare_notrace 'an embedded newline' "$2" ;;
    *)
      at_fn_check_prepare_trace "$2" ;;
  esac
}

# at_fn_filter_trace
# ------------------
# Remove the lines in the file "$at_stderr" generated by "set -x" and print
# them to stderr.
at_fn_filter_trace ()
{
  mv "$at_stderr" "$at_stder1"
  grep '^ *+' "$at_stder1" >&2
  grep -v '^ *+' "$at_stder1" >"$at_stderr"
}

# at_fn_log_failure FILE-LIST
# ---------------------------
# Copy the files in the list on stdout with a "> " prefix, and exit the shell
# with a failure exit code.
at_fn_log_failure ()
{
  for file
    do $as_echo "$file:"; sed 's/^/> /' "$file"; done
  echo 1 > "$at_status_file"
  exit 1
}

# at_fn_check_skip EXIT-CODE LINE
# -------------------------------
# Check whether EXIT-CODE is a special exit code (77 or 99), and if so exit
# the test group subshell with that same exit code. Use LINE in any report
# about test failure.
at_fn_check_skip ()
{
  case $1 in
    99) echo 99 > "$at_status_file"; at_failed=:
	$as_echo "$2: hard failure"; exit 99;;
    77) echo 77 > "$at_status_file"; exit 77;;
  esac
}

# at_fn_check_status EXPECTED EXIT-CODE LINE
# ------------------------------------------
# Check whether EXIT-CODE is the EXPECTED exit code, and if so do nothing.
# Otherwise, if it is 77 or 99, exit the test group subshell with that same
# exit code; if it is anything else print an error message referring to LINE,
# and fail the test.
at_fn_check_status ()
{
  case $2 in
    $1 ) ;;
    77) echo 77 > "$at_status_file"; exit 77;;
    99) echo 99 > "$at_status_file"; at_failed=:
	$as_echo "$3: hard failure"; exit 99;;
    *) $as_echo "$3: exit code was $2, expected $1"
      at_failed=:;;
  esac
}

# at_fn_diff_devnull FILE
# -----------------------
# Emit a diff between /dev/null and FILE. Uses "test -s" to avoid useless diff
# invocations.
at_fn_diff_devnull ()
{
  test -s "$1" || return 0
  $at_diff "$at_devnull" "$1"
}

# at_fn_test NUMBER
# -----------------
# Parse out test NUMBER from the tail of this file.
at_fn_test ()
{
  eval at_sed=\$at_sed$1
  sed "$at_sed" "$at_myself" > "$at_test_source"
}

# at_fn_create_debugging_script
# -----------------------------
# Create the debugging script $at_group_dir/run which will reproduce the
# current test group.
at_fn_create_debugging_script ()
{
  {
    echo "#! /bin/sh" &&
    echo 'test "${ZSH_VERSION+set}" = set && alias -g '\''${1+"$@"}'\''='\''"$@"'\''' &&
    $as_echo "cd '$at_dir'" &&
    $as_echo "exec \${CONFIG_SHELL-$SHELL} \"$at_myself\" -v -d $at_debug_args $at_group \${1+\"\$@\"}" &&
    echo 'exit 1'
  } >"$at_group_dir/run" &&
  chmod +x "$at_group_dir/run"
}

## -------------------------------- ##
## End of autotest shell functions. ##
## -------------------------------- ##
{
  $as_echo "## ---------------- ##
## Tested programs. ##
## ---------------- ##"
  echo
} >&5

# Report what programs are being tested.
for at_program in : $at_tested
do
  test "$at_program" = : && continue
  case $at_program in
    [\\/]* | ?:[\\/]* ) $at_program_=$at_program ;;
    * )
    as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
  IFS=$as_save_IFS
  test -z "$as_dir" && as_dir=.
    test -f "$as_dir/$at_program" && break
  done
IFS=$as_save_IFS

    at_program_=$as_dir/$at_program ;;
  esac
  if test -f "$at_program_"; then
    {
      $as_echo "$at_srcdir/testsuite_manual.at:25: $at_program_ --version"
      "$at_program_" --version </dev/null
      echo
    } >&5 2>&1
  else
    as_fn_error $? "cannot find $at_program" "$LINENO" 5
  fi
done

{
  $as_echo "## ------------------ ##
## Running the tests. ##
## ------------------ ##"
} >&5

at_start_date=`date`
at_start_time=`date +%s 2>/dev/null`
$as_echo "$as_me: starting at: $at_start_date" >&5

# Create the master directory if it doesn't already exist.
as_dir="$at_suite_dir"; as_fn_mkdir_p ||
  as_fn_error $? "cannot create \`$at_suite_dir'" "$LINENO" 5

# Can we diff with `/dev/null'?  DU 5.0 refuses.
if diff /dev/null /dev/null >/dev/null 2>&1; then
  at_devnull=/dev/null
else
  at_devnull=$at_suite_dir/devnull
  >"$at_devnull"
fi

# Use `diff -u' when possible.
if at_diff=`diff -u "$at_devnull" "$at_devnull" 2>&1` && test -z "$at_diff"
then
  at_diff='diff -u'
else
  at_diff=diff
fi

# Get the last needed group.
for at_group in : $at_groups; do :; done

# Extract the start and end lines of each test group at the tail
# of this file
awk '
BEGIN { FS="" }
/^#AT_START_/ {
  start = NR
}
/^#AT_STOP_/ {
  test = substr ($ 0, 10)
  print "at_sed" test "=\"1," start "d;" (NR-1) "q\""
  if (test == "'"$at_group"'") exit
}' "$at_myself" > "$at_suite_dir/at-source-lines" &&
. "$at_suite_dir/at-source-lines" ||
  as_fn_error $? "cannot create test line number cache" "$LINENO" 5
rm -f "$at_suite_dir/at-source-lines"

# Set number of jobs for `-j'; avoid more jobs than test groups.
set X $at_groups; shift; at_max_jobs=$#
if test $at_max_jobs -eq 0; then
  at_jobs=1
fi
if test $at_jobs -ne 1 &&
   { test $at_jobs -eq 0 || test $at_jobs -gt $at_max_jobs; }; then
  at_jobs=$at_max_jobs
fi

# If parallel mode, don't output banners, don't split summary lines.
if test $at_jobs -ne 1; then
  at_print_banners=false
  at_quiet=:
fi

# Set up helper dirs.
rm -rf "$at_helper_dir" &&
mkdir "$at_helper_dir" &&
cd "$at_helper_dir" &&
{ test -z "$at_groups" || mkdir $at_groups; } ||
as_fn_error $? "testsuite directory setup failed" "$LINENO" 5

# Functions for running a test group.  We leave the actual
# test group execution outside of a shell function in order
# to avoid hitting zsh 4.x exit status bugs.

# at_fn_group_prepare
# -------------------
# Prepare for running a test group.
at_fn_group_prepare ()
{
  # The directory for additional per-group helper files.
  at_job_dir=$at_helper_dir/$at_group
  # The file containing the location of the last AT_CHECK.
  at_check_line_file=$at_job_dir/check-line
  # The file containing the exit status of the last command.
  at_status_file=$at_job_dir/status
  # The files containing the output of the tested commands.
  at_stdout=$at_job_dir/stdout
  at_stder1=$at_job_dir/stder1
  at_stderr=$at_job_dir/stderr
  # The file containing the code for a test group.
  at_test_source=$at_job_dir/test-source
  # The file containing dates.
  at_times_file=$at_job_dir/times

  # Be sure to come back to the top test directory.
  cd "$at_suite_dir"

  # Clearly separate the test groups when verbose.
  $at_first || $at_verbose echo

  at_group_normalized=$at_group

  eval 'while :; do
    case $at_group_normalized in #(
    '"$at_format"'*) break;;
    esac
    at_group_normalized=0$at_group_normalized
  done'


  # Create a fresh directory for the next test group, and enter.
  # If one already exists, the user may have invoked ./run from
  # within that directory; we remove the contents, but not the
  # directory itself, so that we aren't pulling the rug out from
  # under the shell's notion of the current directory.
  at_group_dir=$at_suite_dir/$at_group_normalized
  at_group_log=$at_group_dir/$as_me.log
  if test -d "$at_group_dir"; then
  find "$at_group_dir" -type d ! -perm -700 -exec chmod u+rwx {} \;
  rm -fr "$at_group_dir"/* "$at_group_dir"/.[!.] "$at_group_dir"/.??*
fi ||
    { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: test directory for $at_group_normalized could not be cleaned" >&5
$as_echo "$as_me: WARNING: test directory for $at_group_normalized could not be cleaned" >&2;}
  # Be tolerant if the above `rm' was not able to remove the directory.
  as_dir="$at_group_dir"; as_fn_mkdir_p

  echo 0 > "$at_status_file"

  # In verbose mode, append to the log file *and* show on
  # the standard output; in quiet mode only write to the log.
  if test -z "$at_verbose"; then
    at_tee_pipe='tee -a "$at_group_log"'
  else
    at_tee_pipe='cat >> "$at_group_log"'
  fi
}

# at_fn_group_banner ORDINAL LINE DESC PAD [BANNER]
# -------------------------------------------------
# Declare the test group ORDINAL, located at LINE with group description DESC,
# and residing under BANNER. Use PAD to align the status column.
at_fn_group_banner ()
{
  at_setup_line="$2"
  test -n "$5" && at_fn_banner $5
  at_desc="$3"
  case $1 in
    [0-9])      at_desc_line="  $1: ";;
    [0-9][0-9]) at_desc_line=" $1: " ;;
    *)          at_desc_line="$1: "  ;;
  esac
  as_fn_append at_desc_line "$3$4"
  $at_quiet $as_echo_n "$at_desc_line"
  echo "#                             -*- compilation -*-" >> "$at_group_log"
}

# at_fn_group_postprocess
# -----------------------
# Perform cleanup after running a test group.
at_fn_group_postprocess ()
{
  # Be sure to come back to the suite directory, in particular
  # since below we might `rm' the group directory we are in currently.
  cd "$at_suite_dir"

  if test ! -f "$at_check_line_file"; then
    sed "s/^ */$as_me: WARNING: /" <<_ATEOF
      A failure happened in a test group before any test could be
      run. This means that test suite is improperly designed.  Please
      report this failure to <bug-gnucobol@gnu.org>.
_ATEOF
    $as_echo "$at_setup_line" >"$at_check_line_file"
    at_status=99
  fi
  $at_verbose $as_echo_n "$at_group. $at_setup_line: "
  $as_echo_n "$at_group. $at_setup_line: " >> "$at_group_log"
  case $at_xfail:$at_status in
    yes:0)
	at_msg="UNEXPECTED PASS"
	at_res=xpass
	at_errexit=$at_errexit_p
	at_color=$at_red
	;;
    no:0)
	at_msg="ok"
	at_res=pass
	at_errexit=false
	at_color=$at_grn
	;;
    *:77)
	at_msg='skipped ('`cat "$at_check_line_file"`')'
	at_res=skip
	at_errexit=false
	at_color=$at_blu
	;;
    no:* | *:99)
	at_msg='FAILED ('`cat "$at_check_line_file"`')'
	at_res=fail
	at_errexit=$at_errexit_p
	at_color=$at_red
	;;
    yes:*)
	at_msg='expected failure ('`cat "$at_check_line_file"`')'
	at_res=xfail
	at_errexit=false
	at_color=$at_lgn
	;;
  esac
  echo "$at_res" > "$at_job_dir/$at_res"
  # In parallel mode, output the summary line only afterwards.
  if test $at_jobs -ne 1 && test -n "$at_verbose"; then
    $as_echo "$at_desc_line $at_color$at_msg$at_std"
  else
    # Make sure there is a separator even with long titles.
    $as_echo " $at_color$at_msg$at_std"
  fi
  at_log_msg="$at_group. $at_desc ($at_setup_line): $at_msg"
  case $at_status in
    0|77)
      # $at_times_file is only available if the group succeeded.
      # We're not including the group log, so the success message
      # is written in the global log separately.  But we also
      # write to the group log in case they're using -d.
      if test -f "$at_times_file"; then
	at_log_msg="$at_log_msg     ("`sed 1d "$at_times_file"`')'
	rm -f "$at_times_file"
      fi
      $as_echo "$at_log_msg" >> "$at_group_log"
      $as_echo "$at_log_msg" >&5

      # Cleanup the group directory, unless the user wants the files
      # or the success was unexpected.
      if $at_debug_p || test $at_res = xpass; then
	at_fn_create_debugging_script
	if test $at_res = xpass && $at_errexit; then
	  echo stop > "$at_stop_file"
	fi
      else
	if test -d "$at_group_dir"; then
	  find "$at_group_dir" -type d ! -perm -700 -exec chmod u+rwx \{\} \;
	  rm -fr "$at_group_dir"
	fi
	rm -f "$at_test_source"
      fi
      ;;
    *)
      # Upon failure, include the log into the testsuite's global
      # log.  The failure message is written in the group log.  It
      # is later included in the global log.
      $as_echo "$at_log_msg" >> "$at_group_log"

      # Upon failure, keep the group directory for autopsy, and create
      # the debugging script.  With -e, do not start any further tests.
      at_fn_create_debugging_script
      if $at_errexit; then
	echo stop > "$at_stop_file"
      fi
      ;;
  esac
}


## ------------ ##
## Driver loop. ##
## ------------ ##


if (set -m && set +m && set +b) >/dev/null 2>&1; then
  set +b
  at_job_control_on='set -m' at_job_control_off='set +m' at_job_group=-
else
  at_job_control_on=: at_job_control_off=: at_job_group=
fi

for at_signal in 1 2 15; do
  trap 'set +x; set +e
	$at_job_control_off
	at_signal='"$at_signal"'
	echo stop > "$at_stop_file"
	trap "" $at_signal
	at_pgids=
	for at_pgid in `jobs -p 2>/dev/null`; do
	  at_pgids="$at_pgids $at_job_group$at_pgid"
	done
	test -z "$at_pgids" || kill -$at_signal $at_pgids 2>/dev/null
	wait
	if test "$at_jobs" -eq 1 || test -z "$at_verbose"; then
	  echo >&2
	fi
	at_signame=`kill -l $at_signal 2>&1 || echo $at_signal`
	set x $at_signame
	test 1 -gt 2 && at_signame=$at_signal
	{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: caught signal $at_signame, bailing out" >&5
$as_echo "$as_me: WARNING: caught signal $at_signame, bailing out" >&2;}
	as_fn_arith 128 + $at_signal && exit_status=$as_val
	as_fn_exit $exit_status' $at_signal
done

rm -f "$at_stop_file"
at_first=:

if test $at_jobs -ne 1 &&
     rm -f "$at_job_fifo" &&
     test -n "$at_job_group" &&
     ( mkfifo "$at_job_fifo" && trap 'exit 1' PIPE STOP TSTP ) 2>/dev/null
then
  # FIFO job dispatcher.

  trap 'at_pids=
	for at_pid in `jobs -p`; do
	  at_pids="$at_pids $at_job_group$at_pid"
	done
	if test -n "$at_pids"; then
	  at_sig=TSTP
	  test "${TMOUT+set}" = set && at_sig=STOP
	  kill -$at_sig $at_pids 2>/dev/null
	fi
	kill -STOP $$
	test -z "$at_pids" || kill -CONT $at_pids 2>/dev/null' TSTP

  echo
  # Turn jobs into a list of numbers, starting from 1.
  at_joblist=`$as_echo "$at_groups" | sed -n 1,${at_jobs}p`

  set X $at_joblist
  shift
  for at_group in $at_groups; do
    $at_job_control_on 2>/dev/null
    (
      # Start one test group.
      $at_job_control_off
      if $at_first; then
	exec 7>"$at_job_fifo"
      else
	exec 6<&-
      fi
      trap 'set +x; set +e
	    trap "" PIPE
	    echo stop > "$at_stop_file"
	    echo >&7
	    as_fn_exit 141' PIPE
      at_fn_group_prepare
      if cd "$at_group_dir" &&
	 at_fn_test $at_group &&
	 . "$at_test_source"
      then :; else
	{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unable to parse test group: $at_group" >&5
$as_echo "$as_me: WARNING: unable to parse test group: $at_group" >&2;}
	at_failed=:
      fi
      at_fn_group_postprocess
      echo >&7
    ) &
    $at_job_control_off
    if $at_first; then
      at_first=false
      exec 6<"$at_job_fifo" 7>"$at_job_fifo"
    fi
    shift # Consume one token.
    if test $# -gt 0; then :; else
      read at_token <&6 || break
      set x $*
    fi
    test -f "$at_stop_file" && break
  done
  exec 7>&-
  # Read back the remaining ($at_jobs - 1) tokens.
  set X $at_joblist
  shift
  if test $# -gt 0; then
    shift
    for at_job
    do
      read at_token
    done <&6
  fi
  exec 6<&-
  wait
else
  # Run serially, avoid forks and other potential surprises.
  for at_group in $at_groups; do
    at_fn_group_prepare
    if cd "$at_group_dir" &&
       at_fn_test $at_group &&
       . "$at_test_source"; then :; else
      { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unable to parse test group: $at_group" >&5
$as_echo "$as_me: WARNING: unable to parse test group: $at_group" >&2;}
      at_failed=:
    fi
    at_fn_group_postprocess
    test -f "$at_stop_file" && break
    at_first=false
  done
fi

# Wrap up the test suite with summary statistics.
cd "$at_helper_dir"

# Use ?..???? when the list must remain sorted, the faster * otherwise.
at_pass_list=`for f in */pass; do echo $f; done | sed '/\*/d; s,/pass,,'`
at_skip_list=`for f in */skip; do echo $f; done | sed '/\*/d; s,/skip,,'`
at_xfail_list=`for f in */xfail; do echo $f; done | sed '/\*/d; s,/xfail,,'`
at_xpass_list=`for f in ?/xpass ??/xpass ???/xpass ????/xpass; do
		 echo $f; done | sed '/?/d; s,/xpass,,'`
at_fail_list=`for f in ?/fail ??/fail ???/fail ????/fail; do
		echo $f; done | sed '/?/d; s,/fail,,'`

set X $at_pass_list $at_xpass_list $at_xfail_list $at_fail_list $at_skip_list
shift; at_group_count=$#
set X $at_xpass_list; shift; at_xpass_count=$#; at_xpass_list=$*
set X $at_xfail_list; shift; at_xfail_count=$#
set X $at_fail_list; shift; at_fail_count=$#; at_fail_list=$*
set X $at_skip_list; shift; at_skip_count=$#

as_fn_arith $at_group_count - $at_skip_count && at_run_count=$as_val
as_fn_arith $at_xpass_count + $at_fail_count && at_unexpected_count=$as_val
as_fn_arith $at_xfail_count + $at_fail_count && at_total_fail_count=$as_val

# Back to the top directory.
cd "$at_dir"
rm -rf "$at_helper_dir"

# Compute the duration of the suite.
at_stop_date=`date`
at_stop_time=`date +%s 2>/dev/null`
$as_echo "$as_me: ending at: $at_stop_date" >&5
case $at_start_time,$at_stop_time in
  [0-9]*,[0-9]*)
    as_fn_arith $at_stop_time - $at_start_time && at_duration_s=$as_val
    as_fn_arith $at_duration_s / 60 && at_duration_m=$as_val
    as_fn_arith $at_duration_m / 60 && at_duration_h=$as_val
    as_fn_arith $at_duration_s % 60 && at_duration_s=$as_val
    as_fn_arith $at_duration_m % 60 && at_duration_m=$as_val
    at_duration="${at_duration_h}h ${at_duration_m}m ${at_duration_s}s"
    $as_echo "$as_me: test suite duration: $at_duration" >&5
    ;;
esac

echo
$as_echo "## ------------- ##
## Test results. ##
## ------------- ##"
echo
{
  echo
  $as_echo "## ------------- ##
## Test results. ##
## ------------- ##"
  echo
} >&5

if test $at_run_count = 1; then
  at_result="1 test"
  at_were=was
else
  at_result="$at_run_count tests"
  at_were=were
fi
if $at_errexit_p && test $at_unexpected_count != 0; then
  if test $at_xpass_count = 1; then
    at_result="$at_result $at_were run, one passed"
  else
    at_result="$at_result $at_were run, one failed"
  fi
  at_result="$at_result unexpectedly and inhibited subsequent tests."
  at_color=$at_red
else
  # Don't you just love exponential explosion of the number of cases?
  at_color=$at_red
  case $at_xpass_count:$at_fail_count:$at_xfail_count in
    # So far, so good.
    0:0:0) at_result="$at_result $at_were successful." at_color=$at_grn ;;
    0:0:*) at_result="$at_result behaved as expected." at_color=$at_lgn ;;

    # Some unexpected failures
    0:*:0) at_result="$at_result $at_were run,
$at_fail_count failed unexpectedly." ;;

    # Some failures, both expected and unexpected
    0:*:1) at_result="$at_result $at_were run,
$at_total_fail_count failed ($at_xfail_count expected failure)." ;;
    0:*:*) at_result="$at_result $at_were run,
$at_total_fail_count failed ($at_xfail_count expected failures)." ;;

    # No unexpected failures, but some xpasses
    *:0:*) at_result="$at_result $at_were run,
$at_xpass_count passed unexpectedly." ;;

    # No expected failures, but failures and xpasses
    *:1:0) at_result="$at_result $at_were run,
$at_unexpected_count did not behave as expected ($at_fail_count unexpected failure)." ;;
    *:*:0) at_result="$at_result $at_were run,
$at_unexpected_count did not behave as expected ($at_fail_count unexpected failures)." ;;

    # All of them.
    *:*:1) at_result="$at_result $at_were run,
$at_xpass_count passed unexpectedly,
$at_total_fail_count failed ($at_xfail_count expected failure)." ;;
    *:*:*) at_result="$at_result $at_were run,
$at_xpass_count passed unexpectedly,
$at_total_fail_count failed ($at_xfail_count expected failures)." ;;
  esac

  if test $at_skip_count = 0 && test $at_run_count -gt 1; then
    at_result="All $at_result"
  fi
fi

# Now put skips in the mix.
case $at_skip_count in
  0) ;;
  1) at_result="$at_result
1 test was skipped." ;;
  *) at_result="$at_result
$at_skip_count tests were skipped." ;;
esac

if test $at_unexpected_count = 0; then
  echo "$at_color$at_result$at_std"
  echo "$at_result" >&5
else
  echo "${at_color}ERROR: $at_result$at_std" >&2
  echo "ERROR: $at_result" >&5
  {
    echo
    $as_echo "## ------------------------ ##
## Summary of the failures. ##
## ------------------------ ##"

    # Summary of failed and skipped tests.
    if test $at_fail_count != 0; then
      echo "Failed tests:"
      $SHELL "$at_myself" $at_fail_list --list
      echo
    fi
    if test $at_skip_count != 0; then
      echo "Skipped tests:"
      $SHELL "$at_myself" $at_skip_list --list
      echo
    fi
    if test $at_xpass_count != 0; then
      echo "Unexpected passes:"
      $SHELL "$at_myself" $at_xpass_list --list
      echo
    fi
    if test $at_fail_count != 0; then
      $as_echo "## ---------------------- ##
## Detailed failed tests. ##
## ---------------------- ##"
      echo
      for at_group in $at_fail_list
      do
	at_group_normalized=$at_group

  eval 'while :; do
    case $at_group_normalized in #(
    '"$at_format"'*) break;;
    esac
    at_group_normalized=0$at_group_normalized
  done'

	cat "$at_suite_dir/$at_group_normalized/$as_me.log"
	echo
      done
      echo
    fi
    if test -n "$at_top_srcdir"; then
      sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX
## ${at_top_build_prefix}config.log ##
_ASBOX
      sed 's/^/| /' ${at_top_build_prefix}config.log
      echo
    fi
  } >&5

  sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX
## $as_me.log was created. ##
_ASBOX

  echo
  if $at_debug_p; then
    at_msg='per-test log files'
  else
    at_msg="\`${at_testdir+${at_testdir}/}$as_me.log'"
  fi
  $as_echo "Please send $at_msg and all information you think might help:

   To: <bug-gnucobol@gnu.org>
   Subject: [GnuCOBOL 3.2] $as_me: $at_fail_list${at_fail_list:+ failed${at_xpass_list:+, }}$at_xpass_list${at_xpass_list:+ passed unexpectedly}

You may investigate any problem if you feel able to do so, in which
case the test suite provides a good starting point.  Its output may
be found below \`${at_testdir+${at_testdir}/}$as_me.dir'.
"
  exit 1
fi

exit 0

## ------------- ##
## Actual tests. ##
## ------------- ##
#AT_START_1
at_fn_group_banner 1 'run_manual_screen.at:24' \
  "LINE" "                                           " 1
at_xfail=no
(
  $as_echo "1. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:27" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:27"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  LINE 1 VALUE 'Enter "y" if the numbers below correspond '
               & 'to their line number and are in the '.
           03  LINE 2 VALUE 'first column. (This is line 2.)'.
           03  LINE 3 VALUE '3'.
           03  LINE 4 VALUE '4'.
           03  LINE 5 VALUE '5'.
           03  group-1 LINE - 3.
               05  group-2 COL 5.
                   07  LINE PLUS 6 VALUE '8'.
                   07  LINE MINUS 2 VALUE '6'.
           03  group-3 LINE + 1.
               05 COL 1 VALUE '7'.
           03  LINE + 3 PIC X, REQUIRED USING success-flag.

       PROCEDURE        DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:65: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:65"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:65"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:66: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:66"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:66"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_1
#AT_START_2
at_fn_group_banner 2 'run_manual_screen.at:71' \
  "COLUMN (1)" "                                     " 1
at_xfail=no
(
  $as_echo "2. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:74" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:74"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  dummy        PIC X(5).
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  VALUE 'Enter "y" if the numbers below correspond to '
               & 'their column number.'.
           03  LINE 2 VALUE '123456789'.
           03  LINE 3 COLUMN 2.
               05  COL 1 VALUE '1'.
               05  COL 5 VALUE '5'.
               05  COL MINUS 2 VALUE '3'.
               05  COL PLUS 1 VALUE '4'.
               05  group-1 LINE 3.
                   07  VALUE '2'.
                   07  group-2 COLUMN + 4.
                       09  group-3.
                           11 COL + 0 VALUE '6'.
               05  COLUMN + 1, VALUE '7'.
           03  LINE 5 PIC X, REQUIRED, USING success-flag.

       PROCEDURE        DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:115: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:115"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:115"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:116: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:116"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:116"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_2
#AT_START_3
at_fn_group_banner 3 'run_manual_screen.at:121' \
  "COLUMN (2)" "                                     " 1
at_xfail=no
(
  $as_echo "3. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:124" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:124"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION  DIVISION.
       PROGRAM-ID.     prog.

       DATA            DIVISION.
       WORKING-STORAGE SECTION.
       01  dummy-1     PIC X(10).
       01  dummy-2     PIC X(10).
       01  dummy-3     PIC X(10).

       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN          SECTION.
       01  scr.
           03  PIC X(80) VALUE 'Enter "y" if there are three non-'-
               'overlapping input fields on one line below.'.
           03  LINE + 1, PIC X(80) VALUE 'field.'.
           03  LINE + 2, PIC X(10) TO dummy-1.
           03  COL + 2, PIC X(10) TO dummy-2.
           03  COL + 2, PIC X(10) TO dummy-3.
           03  success-field LINE + 2, PIC X, REQUIRED,
                                              USING success-flag.

       PROCEDURE       DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:162: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:162"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:162"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:163: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:163"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:163"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_3
#AT_START_4
at_fn_group_banner 4 'run_manual_screen.at:168' \
  "LINE non-zero, COLUMN zero" "                     " 1
at_xfail=no
(
  $as_echo "4. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:171" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:171"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  LINE 1 VALUE 'Enter "y" if you see 123 on the line '-
               'below starting at column 1.'.
           03  LINE + 3 PIC X, REQUIRED USING success-flag.
           03  LINE 2 VALUE '1'.

       PROCEDURE        DIVISION.
           DISPLAY scr
           DISPLAY '2' LINE 2, COLUMN 0; '3'
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:201: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:201"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:201"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:202: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:202"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:202"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_4
#AT_START_5
at_fn_group_banner 5 'run_manual_screen.at:207' \
  "LINE zero, COLUMN non-zero" "                     " 1
at_xfail=no
(
  $as_echo "5. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:210" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:210"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  LINE 1 VALUE 'Enter "y" if you see 123 on the line '-
               'below starting at column 1.'.
           03  LINE + 3 PIC X, REQUIRED USING success-flag.
           03  LINE 2 COL 3, VALUE '3'.
           03  LINE 1 COL 80 VALUE ' '.

       PROCEDURE        DIVISION.
           DISPLAY scr
           DISPLAY '1' LINE 0, COLUMN 1; '2'
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:241: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:241"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:241"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:242: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:242"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:242"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_5
#AT_START_6
at_fn_group_banner 6 'run_manual_screen.at:247' \
  "LINE zero, COLUMN zero" "                         " 1
at_xfail=no
(
  $as_echo "6. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:250" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:250"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  LINE 1 VALUE 'Enter "y" if you see 1234 on the line '-
               'below starting at column 1.'.
           03  LINE + 3 PIC X, REQUIRED USING success-flag.
           03  LINE 2 VALUE '1'.

       PROCEDURE        DIVISION.
           DISPLAY scr
           DISPLAY '2' LINE 0, COLUMN 0
           DISPLAY '3' LINE 2, COLUMN 3
           DISPLAY '4' AT 0000

           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:283: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:283"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:283"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:284: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:284"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:284"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_6
#AT_START_7
at_fn_group_banner 7 'run_manual_screen.at:289' \
  "DISPLAY AT" "                                     " 1
at_xfail=no
(
  $as_echo "7. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:292" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:292"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       01  screen-loc   PIC 9(6) VALUE 4004.

       SCREEN           SECTION.
       01  scr.
           03  VALUE 'Enter "y" if the numbers 1-3 are in a diagonal'-
               ' line from line 2, column 2.'.
           03  success-field PIC X, LINE 6, REQUIRED,
                                    USING success-flag.

       PROCEDURE DIVISION.
           DISPLAY '1' AT 0202
           DISPLAY '2' AT 003003
           DISPLAY '3' AT screen-loc
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:326: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:326"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:326"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:327: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:327"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:327"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_7
#AT_START_8
at_fn_group_banner 8 'run_manual_screen.at:332' \
  "DISPLAY LOW-VALUES (one statement)" "             " 1
at_xfail=no
(
  $as_echo "8. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:335" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:335"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  LINE 1 VALUE 'Enter "y" if the word below starts at line'
               & ' 3, column 3.'.
           03  LINE + 4 PIC X, REQUIRED USING success-flag.

       PROCEDURE        DIVISION.
           DISPLAY scr
           DISPLAY LOW-VALUES AT LINE 3, COL 3; 'Hello!'
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:364: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:364"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:364"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:365: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:365"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:365"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_8
#AT_START_9
at_fn_group_banner 9 'run_manual_screen.at:370' \
  "DISPLAY LOW-VALUES (two statements)" "            " 1
at_xfail=no
(
  $as_echo "9. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:373" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:373"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  LINE 1 VALUE 'Enter "y" if the word below starts at line'
               & ' 3, column 3.'.
           03  LINE + 4 PIC X, REQUIRED USING success-flag.

       PROCEDURE        DIVISION.
           DISPLAY scr
           DISPLAY LOW-VALUES AT LINE 3, COL 3
           DISPLAY 'Hello!' UPON CRT
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:403: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:403"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:403"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:404: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:404"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:404"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_9
#AT_START_10
at_fn_group_banner 10 'run_manual_screen.at:409' \
  "DISPLAY SPACES" "                                 " 1
at_xfail=no
(
  $as_echo "10. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:412" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:412"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.

       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr-1.
           03  LINE 1 VALUE 'Enter "y" if all the text after foo in the'
               & ' screen has been erased.'.
           03  LINE 3 VALUE 'Lorem ipsum dolor sit amet, consectetur ad'
               & 'ipiscing elit. Curabitur dapibus dui'.
           03  LINE 4 VALUE 'vitae augue lobortis, non tempor diam tris'
               & 'tique. Donec dignissim ex velit, ut'.
           03  LINE 5 VALUE 'efficitur tellus pharetra at. Curabitur at'
               & ' condimentum nunc, nec accumsan'.
           03  LINE 6 VALUE 'nulla. Nulla at feugiat elit, eget condime'
               & 'ntum justo. Nam lorem lectus,'.
           03  LINE 7 VALUE 'imperdiet sit amet odio eu, eleifend conse'
               & 'ctetur ligula. Duis diam felis, porta'.
           03  LINE 8 VALUE 'id diam id, ultrices finibus augue. Mauris'
               & ' imperdiet, dolor sed sodales porta,'.
           03  LINE 9 VALUE 'justo nunc consequat nulla, iaculis venena'
               & 'tis lorem libero sit amet'.
           03  LINE 10 VALUE 'magna. Nullam pulvinar nullam.'.
           03  success-field LINE + 2, PIC X, REQUIRED,
                                       USING success-flag.

       PROCEDURE        DIVISION.
           DISPLAY scr-1
           DISPLAY SPACES AT LINE 6, COL 8; 'foo' HIGHLIGHT
           ACCEPT success-field

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:458: \$COMPILE -fdisplay-special-fig-consts prog.cob"
at_fn_check_prepare_dynamic "$COMPILE -fdisplay-special-fig-consts prog.cob" "run_manual_screen.at:458"
( $at_check_trace; $COMPILE -fdisplay-special-fig-consts prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:458"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:459: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:459"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:459"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_10
#AT_START_11
at_fn_group_banner 11 'run_manual_screen.at:464' \
  "DISPLAY ALL X'01'" "                              " 1
at_xfail=no
(
  $as_echo "11. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:467" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:467"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.

       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr-1.
           03  LINE 1 VALUE 'Enter "y" if all the text after foo on '
               & 'that line alone has been erased.'.
           03  LINE 3 VALUE 'Lorem ipsum dolor sit amet, consectetur ad'
               & 'ipiscing elit. Curabitur dapibus dui'.
           03  LINE 4 VALUE 'vitae augue lobortis, non tempor diam tris'
               & 'tique. Donec dignissim ex velit, ut'.
           03  LINE 5 VALUE 'efficitur tellus pharetra at. Curabitur at'
               & ' condimentum nunc, nec accumsan'.
           03  LINE 6 VALUE 'nulla. Nulla at feugiat elit, eget condime'
               & 'ntum justo. Nam lorem lectus,'.
           03  LINE 7 VALUE 'imperdiet sit amet odio eu, eleifend conse'
               & 'ctetur ligula. Duis diam felis, porta'.
           03  LINE 8 VALUE 'id diam id, ultrices finibus augue. Mauris'
               & ' imperdiet, dolor sed sodales porta,'.
           03  LINE 9 VALUE 'justo nunc consequat nulla, iaculis venena'
               & 'tis lorem libero sit amet'.
           03  LINE 10 VALUE 'magna. Nullam pulvinar nullam.'.
           03  success-field LINE + 2, PIC X, REQUIRED,
                                       USING success-flag.

       PROCEDURE        DIVISION.
           DISPLAY scr-1
           DISPLAY ALL X'01', LINE 6, COLUMN 8; 'foo' HIGHLIGHT
           ACCEPT success-field

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:513: \$COMPILE -fdisplay-special-fig-consts prog.cob"
at_fn_check_prepare_dynamic "$COMPILE -fdisplay-special-fig-consts prog.cob" "run_manual_screen.at:513"
( $at_check_trace; $COMPILE -fdisplay-special-fig-consts prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:513"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:514: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:514"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:514"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_11
#AT_START_12
at_fn_group_banner 12 'run_manual_screen.at:519' \
  "DISPLAY ALL X'02'" "                              " 1
at_xfail=no
(
  $as_echo "12. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:522" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:522"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.

       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr-1.
           03  LINE 3 VALUE 'Lorem ipsum dolor sit amet, consectetur ad'
               & 'ipiscing elit. Curabitur dapibus dui'.
           03  LINE 4 VALUE 'vitae augue lobortis, non tempor diam tris'
               & 'tique. Donec dignissim ex velit, ut'.
           03  LINE 5 VALUE 'efficitur tellus pharetra at. Curabitur at'
               & ' condimentum nunc, nec accumsan'.
           03  LINE 6 VALUE 'nulla. Nulla at feugiat elit, eget condime'
               & 'ntum justo. Nam lorem lectus,'.
           03  LINE 7 VALUE 'imperdiet sit amet odio eu, eleifend conse'
               & 'ctetur ligula. Duis diam felis, porta'.
           03  LINE 8 VALUE 'id diam id, ultrices finibus augue. Mauris'
               & ' imperdiet, dolor sed sodales porta,'.
           03  LINE 9 VALUE 'justo nunc consequat nulla, iaculis venena'
               & 'tis lorem libero sit amet'.
           03  LINE 10 VALUE 'magna. Nullam pulvinar nullam.'.

       01  scr-2.
           03  LINE 6 COL 8 VALUE 'foo' BLANK SCREEN, HIGHLIGHT.
           03  LINE 1 VALUE 'Enter "y" if foo is the only word below.'.

       01  scr-3.
           03  VALUE 'Enter "y" if foo is the only word below.'.
           03  success-field COL + 2, PIC X, REQUIRED,
                                      USING success-flag.

       PROCEDURE        DIVISION.
           DISPLAY scr-1
           DISPLAY ALL X'02' AT LINE 6 COL 8; 'foo' HIGHLIGHT
           DISPLAY scr-3
           ACCEPT scr-3

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:574: \$COMPILE -fdisplay-special-fig-consts prog.cob"
at_fn_check_prepare_dynamic "$COMPILE -fdisplay-special-fig-consts prog.cob" "run_manual_screen.at:574"
( $at_check_trace; $COMPILE -fdisplay-special-fig-consts prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:574"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:575: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:575"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:575"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_12
#AT_START_13
at_fn_group_banner 13 'run_manual_screen.at:580' \
  "DISPLAY ALL X'07'" "                              " 1
at_xfail=no
(
  $as_echo "13. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:583" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:583"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  VALUE 'Enter "y" if you heard a beep:'.
           03  success-field PIC X, COL + 2, REQUIRED, TO success-flag
                                                       FROM 'Y'.
       01  scr2.
           03  LINE 4 VALUE 'system beep may be turned off ' &
                             'on this system.'.
           03  LINE 5 VALUE 'Retesting with COB_BELL=FLASH...'.
           03  LINE + 2
               VALUE 'Enter "y" if you''ve seen your terminal flash'.
           03  success-field PIC X, COL + 2, REQUIRED, TO success-flag
                                                       FROM 'Y'.

       PROCEDURE DIVISION.
           DISPLAY scr
           DISPLAY ALL X'07' UPON CRT
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           END-IF

           SET ENVIRONMENT 'COB_BELL' TO 'FLASH'
           CALL 'C$SLEEP' USING '1'

           DISPLAY scr2
           DISPLAY ALL X'07' UPON CRT
           ACCEPT scr2

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:631: \$COMPILE -fdisplay-special-fig-consts prog.cob"
at_fn_check_prepare_dynamic "$COMPILE -fdisplay-special-fig-consts prog.cob" "run_manual_screen.at:631"
( $at_check_trace; $COMPILE -fdisplay-special-fig-consts prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:631"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:632: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:632"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:632"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_13
#AT_START_14
at_fn_group_banner 14 'run_manual_screen.at:637' \
  "Screen position after field display" "            " 1
at_xfail=no
(
  $as_echo "14. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:640" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:640"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  VALUE 'Enter "y" if this sentence starts at line 1,'-
               ' column 1:'.
           03  success-field PIC X, COL + 2, REQUIRED,
                                             USING success-flag.

       PROCEDURE DIVISION.
           DISPLAY 'ignore this' AT LINE 4 COL 4
           DISPLAY scr
           ACCEPT success-field

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:670: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:670"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:670"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:671: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:671"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:671"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_14
#AT_START_15
at_fn_group_banner 15 'run_manual_screen.at:677' \
  "Overridden clauses (1)" "                         " 1
at_xfail=no
(
  $as_echo "15. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:680" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:680"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  dummy        PIC X(5).
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
       03  VALUE 'Enter "y" if the numbers below correspond to their'
           & ' column number and all on'.
           03  LINE 2 VALUE 'lines 3 and 4.'.
           03  LINE 3 VALUE '123456789'.
           03  LINE 4 VALUE '  34'.
           03  FILLER LINE + 6.
               05 COL 3.
                   07  COL 1.
                       09  LINE 4 VALUE '1'.
                       09  VALUE '2'.
               05  LINE + 1, COL + 2.
                   07  LINE 4, COL + 1, VALUE '5'.
           03  LINE 6 PIC X, REQUIRED, USING success-flag.

       PROCEDURE        DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:719: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:719"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:719"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:720: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:720"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:720"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_15
#AT_START_16
at_fn_group_banner 16 'run_manual_screen.at:725' \
  "Overridden clauses (2)" "                         " 1
at_xfail=no
(
  $as_echo "16. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:728" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:728"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  dummy        PIC X(5).
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  VALUE 'Enter "y" if the word below is not dim and has'
               & ' black background.'.
           03  LINE + 1, LOWLIGHT BACKGROUND-COLOR 3.
               05  HIGHLIGHT BACKGROUND-COLOR 0.
                   07 VALUE 'Highlight'.
           03  LINE + 2, PIC X USING success-flag.

       PROCEDURE        DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:760: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:760"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:760"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:761: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:761"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:761"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_16
#AT_START_17
at_fn_group_banner 17 'run_manual_screen.at:766' \
  "AUTO" "                                           " 1
at_xfail=no
(
  $as_echo "17. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:769" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:769"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  dummy        PIC X(5).
       01  success-flag PIC X.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03                PIC X(80) VALUE 'Enter "y" in the bottom'
                             & ' field if:'.
           03  LINE + 1,     PIC X(80) VALUE ' * when the left field is'
                             & ' full, the cursor automatically moves'.
           03  LINE + 1,     PIC X(80) VALUE '   to the next field.'.
           03  LINE + 1,     PIC X(80) VALUE ' * this does not happen'
                             & ' with the other fields.'.
           03  LINE + 1,     PIC X(80) VALUE ' * the fields below are'
                             & ' on one line and separated by a single'
                             & ' column.'.

           03  test-fields   LINE + 2.
               05  field-1   COL 1, PIC X(5) AUTO TO dummy.
               05  field-2   COL + 2, PIC X(5) TO dummy.
               05  field-3   COL + 2, PIC X(5) TO dummy.
           03  success-field LINE + 2, COLUMN 1; PIC X, REQUIRED
                             TO success-flag FROM 'Y'.

       PROCEDURE DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:812: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:812"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:812"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:813: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:813"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:813"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_17
#AT_START_18
at_fn_group_banner 18 'run_manual_screen.at:818' \
  "SCREEN BACKGROUND- / FOREGROUND-COLOUR" "         " 1
at_xfail=no
(
  $as_echo "18. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:822" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:822"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  dummy        PIC X(10).
       01  success-flag PIC X.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  PIC X(80)
               VALUE 'Enter "y" if the text below matches the colour '
               & 'of the background/text.'.
           03  LINE + 1, COL 1, PIC X(80)
               VALUE 'Note: the black text is on white background/the '
               & 'white background has black text'.
           03  LINE + 1, COL 1, PIC X(80)
               VALUE 'to make the text visible.'.

           03  LINE + 1.
             05  COL 1,   PIC X(08) VALUE 'Black'   FOREGROUND-COLOR 0
                                                    BACKGROUND-COLOR 7.
             05  COL + 2, PIC X(08) VALUE 'Blue'    FOREGROUND-COLOR 1.
             05  COL + 2, PIC X(08) VALUE 'Green'   FOREGROUND-COLOR 2.
             05  COL + 2, PIC X(08) VALUE 'Cyan'    FOREGROUND-COLOR 3.
             05  COL + 2, PIC X(08) VALUE 'Red'     FOREGROUND-COLOR 4.
             05  COL + 2, PIC X(08) VALUE 'Magenta' FOREGROUND-COLOR 5.
             05  COL + 2, PIC X(15) VALUE 'Brown/Yellow'
                                                    FOREGROUND-COLOR 6.
             05  COL + 2, PIC X(08) VALUE 'White'   FOREGROUND-COLOR 7.

           03  LINE + 1.
             05  COL 1,   PIC X(08) VALUE 'Black'   BACKGROUND-COLOR 0
                                                    FOREGROUND-COLOR 7.
             05  COL + 2, PIC X(08) VALUE 'Blue'    BACKGROUND-COLOR 1.
             05  COL + 2, PIC X(08) VALUE 'Green'   BACKGROUND-COLOR 2.
             05  COL + 2, PIC X(08) VALUE 'Cyan'    BACKGROUND-COLOR 3.
             05  COL + 2, PIC X(08) VALUE 'Red'     BACKGROUND-COLOR 4.
             05  COL + 2, PIC X(08) VALUE 'Magenta' BACKGROUND-COLOR 5.
             05  COL + 2, PIC X(15) VALUE 'Brown/Yellow'
                                                    BACKGROUND-COLOR 6.
             05  COL + 2, PIC X(08) VALUE 'White'   BACKGROUND-COLOR 7
                                                    FOREGROUND-COLOR 0.

           03  LINE + 2.
           03  PIC X(80)
               VALUE 'The following is the same as above, '
               & 'with "extended" attributes set;'.
           03  LINE + 1, COL 1, PIC X(80)
               VALUE 'this should have the same effect as otherwise '
               & 'highlighted for the first line'.
           03  LINE + 1, COL 1, PIC X(80)
               VALUE 'and blinking for the second one.'.

           03  LINE + 1.
             05  COL 1,   PIC X(08) VALUE 'Black'   FOREGROUND-COLOR 8
                                                    BACKGROUND-COLOR 0.
             05  COL + 2, PIC X(08) VALUE 'Blue'    FOREGROUND-COLOR 9.
             05  COL + 2, PIC X(08) VALUE 'Green'   FOREGROUND-COLOR 10.
             05  COL + 2, PIC X(08) VALUE 'Cyan'    FOREGROUND-COLOR 11.
             05  COL + 2, PIC X(08) VALUE 'Red'     FOREGROUND-COLOR 12.
             05  COL + 2, PIC X(08) VALUE 'Magenta' FOREGROUND-COLOR 13.
             05  COL + 2, PIC X(15) VALUE 'Brown/Yellow'
                                                    FOREGROUND-COLOR 14.
             05  COL + 2, PIC X(08) VALUE 'White'   FOREGROUND-COLOR 15.

           03  LINE + 1.
             05  COL 1,   PIC X(08) VALUE 'Black'   BACKGROUND-COLOR 8
                                                    FOREGROUND-COLOR 15.
             05  COL + 2, PIC X(08) VALUE 'Blue'    BACKGROUND-COLOR 9.
             05  COL + 2, PIC X(08) VALUE 'Green'   BACKGROUND-COLOR 10.
             05  COL + 2, PIC X(08) VALUE 'Cyan'    BACKGROUND-COLOR 11.
             05  COL + 2, PIC X(08) VALUE 'Red'     BACKGROUND-COLOR 12.
             05  COL + 2, PIC X(08) VALUE 'Magenta' BACKGROUND-COLOR 13.
             05  COL + 2, PIC X(15) VALUE 'Brown/Yellow'
                                                    BACKGROUND-COLOR 14.
             05  COL + 2, PIC X(08) VALUE 'White'   BACKGROUND-COLOR 15
                                                    FOREGROUND-COLOR 8.

           03  success-field LINE + 2, COL 1, PIC X, REQUIRED,
               TO success-flag FROM 'Y'.

       PROCEDURE DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:919: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:919"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:919"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:920: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:920"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:920"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_18
#AT_START_19
at_fn_group_banner 19 'run_manual_screen.at:925' \
  "SCREEN BACKGROUND- / FOREGROUND-COLOUR via COLOR" "" 1
at_xfail=yes
(
  $as_echo "19. $at_setup_line: testing $at_desc ..."
  $at_traceon



# Currently not implemented


$as_echo "run_manual_screen.at:932" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:932"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  dummy        PIC X(10).
       01  success-flag PIC X.
           88  success  VALUE 'Y', 'y'.
       77  CBLACK       PIC 9(05) VALUE 1.
       77  CBLUE        PIC 9(05) VALUE 2.
       77  CGREEN       PIC 9(05) VALUE 3.
       77  CCYAN        PIC 9(05) VALUE 4.
       77  CRED         PIC 9(05) VALUE 5.
       77  CMAGENTA     PIC 9(05) VALUE 6.
       77  CYELLOW      PIC 9(05) VALUE 7.
       77  CWHITE       PIC 9(05) VALUE 8.

       SCREEN           SECTION.
       01  scr.
           03  PIC X(80)
               VALUE 'Enter "y" if the text below matches the colour '
               & 'of the background/text.'.
           03  LINE + 1, COL 1, PIC X(80)
               VALUE 'Note: the black text is on white background/the '
               & 'white background has black text'.
           03  LINE + 1, COL 1, PIC X(80)
               VALUE 'to make the text visible.'.

           03  LINE + 1.
             05  COL 1,   PIC X(08) VALUE 'Black'   COLOR CBLACK.
             05  COL + 2, PIC X(08) VALUE 'Blue'    COLOR CBLUE.
             05  COL + 2, PIC X(08) VALUE 'Green'   COLOR CGREEN.
             05  COL + 2, PIC X(08) VALUE 'Cyan'    COLOR CCYAN.
             05  COL + 2, PIC X(08) VALUE 'Red'     COLOR CRED.
             05  COL + 2, PIC X(08) VALUE 'Magenta' COLOR CMAGENTA.
             05  COL + 2, PIC X(15) VALUE 'Brown/Yellow'
                                                    COLOR CYELLOW.
             05  COL + 2, PIC X(08) VALUE 'White'   COLOR CWHITE.

       01  scr2.
           03  LINE 5.
             05  COL 1,   PIC X(08) VALUE 'Black'   BACKGROUND-COLOR 0
                                                    FOREGROUND-COLOR 7.
             05  COL + 2, PIC X(08) VALUE 'Blue'    BACKGROUND-COLOR 1.
             05  COL + 2, PIC X(08) VALUE 'Green'   BACKGROUND-COLOR 2.
             05  COL + 2, PIC X(08) VALUE 'Cyan'    BACKGROUND-COLOR 3.
             05  COL + 2, PIC X(08) VALUE 'Red'     BACKGROUND-COLOR 4.
             05  COL + 2, PIC X(08) VALUE 'Magenta' BACKGROUND-COLOR 5.
             05  COL + 2, PIC X(15) VALUE 'Brown/Yellow'
                                                    BACKGROUND-COLOR 6.
             05  COL + 2, PIC X(08) VALUE 'White'   BACKGROUND-COLOR 7
                                                    FOREGROUND-COLOR 0.

           03  success-field LINE + 2, COL 1, PIC X, REQUIRED,
               TO success-flag FROM 'Y'.

       PROCEDURE DIVISION.
           ADD  256 TO CBLACK
           DISPLAY scr
           ADD 1024 TO CBLACK, CBLUE, CGREEN, CCYAN,
                       CRED, CMAGENTA, CYELLOW, CWHITE
           DISPLAY scr2
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1006: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:1006"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1006"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1007: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:1007"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1007"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_19
#AT_START_20
at_fn_group_banner 20 'run_manual_screen.at:1012' \
  "field BACKGROUND- / FOREGROUND-COLOUR" "          " 1
at_xfail=no
(
  $as_echo "20. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:1016" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:1016"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  dummy        PIC X(10).
       01  success-flag PIC X.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  PIC X(80)
               VALUE 'Enter "y" if the text below matches the colour '
               & 'of the background/text.'.
           03  LINE + 1, COL 1, PIC X(80)
               VALUE 'Note: the black text is on white background/the '
               & 'white background has black text'.
           03  LINE + 1, COL 1, PIC X(80)
               VALUE 'to make the text visible.'.

           03  LINE + 1.
             05  COL 1,   PIC X(08) VALUE 'Black'   FOREGROUND-COLOR 0
                                                    BACKGROUND-COLOR 7.
             05  COL + 2, PIC X(08) VALUE 'Blue'    FOREGROUND-COLOR 1.
             05  COL + 2, PIC X(08) VALUE 'Green'   FOREGROUND-COLOR 2.
             05  COL + 2, PIC X(08) VALUE 'Cyan'    FOREGROUND-COLOR 3.
             05  COL + 2, PIC X(08) VALUE 'Red'     FOREGROUND-COLOR 4.
             05  COL + 2, PIC X(08) VALUE 'Magenta' FOREGROUND-COLOR 5.
             05  COL + 2, PIC X(15) VALUE 'Brown/Yellow'
                                                    FOREGROUND-COLOR 6.
             05  COL + 2, PIC X(08) VALUE 'White'   FOREGROUND-COLOR 7.

           03  LINE + 1.
             05  COL 1,   PIC X(08) VALUE 'Black'   BACKGROUND-COLOR 0
                                                    FOREGROUND-COLOR 7.
             05  COL + 2, PIC X(08) VALUE 'Blue'    BACKGROUND-COLOR 1.
             05  COL + 2, PIC X(08) VALUE 'Green'   BACKGROUND-COLOR 2.
             05  COL + 2, PIC X(08) VALUE 'Cyan'    BACKGROUND-COLOR 3.
             05  COL + 2, PIC X(08) VALUE 'Red'     BACKGROUND-COLOR 4.
             05  COL + 2, PIC X(08) VALUE 'Magenta' BACKGROUND-COLOR 5.
             05  COL + 2, PIC X(15) VALUE 'Brown/Yellow'
                                                    BACKGROUND-COLOR 6.
             05  COL + 2, PIC X(08) VALUE 'White'   BACKGROUND-COLOR 7
                                                    FOREGROUND-COLOR 0.

           03  LINE + 2.
           03  PIC X(80)
               VALUE 'The following is the same as above, '
               & 'with "extended" attributes set;'.
           03  LINE + 1, COL 1, PIC X(80)
               VALUE 'this should have the same effect as otherwise '
               & 'highlighted for the first line'.
           03  LINE + 1, COL 1, PIC X(80)
               VALUE 'and blinking for the second one.'.

           03  LINE + 1.
             05  COL 1,   PIC X(08) VALUE 'Black'   FOREGROUND-COLOR 8
                                                    BACKGROUND-COLOR 0.
             05  COL + 2, PIC X(08) VALUE 'Blue'    FOREGROUND-COLOR 9.
             05  COL + 2, PIC X(08) VALUE 'Green'   FOREGROUND-COLOR 10.
             05  COL + 2, PIC X(08) VALUE 'Cyan'    FOREGROUND-COLOR 11.
             05  COL + 2, PIC X(08) VALUE 'Red'     FOREGROUND-COLOR 12.
             05  COL + 2, PIC X(08) VALUE 'Magenta' FOREGROUND-COLOR 13.
             05  COL + 2, PIC X(15) VALUE 'Brown/Yellow'
                                                    FOREGROUND-COLOR 14.
             05  COL + 2, PIC X(08) VALUE 'White'   FOREGROUND-COLOR 15.

           03  LINE + 1.
             05  COL 1,   PIC X(08) VALUE 'Black'   BACKGROUND-COLOR 8
                                                    FOREGROUND-COLOR 15.
             05  COL + 2, PIC X(08) VALUE 'Blue'    BACKGROUND-COLOR 9.
             05  COL + 2, PIC X(08) VALUE 'Green'   BACKGROUND-COLOR 10.
             05  COL + 2, PIC X(08) VALUE 'Cyan'    BACKGROUND-COLOR 11.
             05  COL + 2, PIC X(08) VALUE 'Red'     BACKGROUND-COLOR 12.
             05  COL + 2, PIC X(08) VALUE 'Magenta' BACKGROUND-COLOR 13.
             05  COL + 2, PIC X(15) VALUE 'Brown/Yellow'
                                                    BACKGROUND-COLOR 14.
             05  COL + 2, PIC X(08) VALUE 'White'   BACKGROUND-COLOR 15
                                                    FOREGROUND-COLOR 8.

           03  success-field LINE + 2, COL 1, PIC X, REQUIRED,
               TO success-flag FROM 'Y'.

       PROCEDURE DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1113: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:1113"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1113"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1114: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:1114"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1114"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_20
#AT_START_21
at_fn_group_banner 21 'run_manual_screen.at:1119' \
  "field BACKGROUND- / FOREGROUND-COLOUR via COLOR" "" 1
at_xfail=no
(
  $as_echo "21. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:1123" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:1123"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       77  CBLACK       PIC 9(05) COMP-5 VALUE 1.
       77  CBLUE        PIC 9(05) COMP-5 VALUE 2.
       77  CGREEN       PIC 9(05) COMP-5 VALUE 3.
       77  CCYAN        PIC 9(05) COMP-5 VALUE 4.
       77  CRED         PIC 9(05) COMP-5 VALUE 5.
       77  CMAGENTA     PIC 9(05) COMP-5 VALUE 6.
       77  CYELLOW      PIC 9(05) COMP-5 VALUE 7.
       77  CWHITE       PIC 9(05) COMP-5 VALUE 8.

       77  LIN          PIC 99    COMP-5.

       01  scr1 PIC X(80)
               VALUE 'Enter "y" if the text below matches the colour '
               & 'of the background/text.'.
       01  scr2 PIC X(80)
               VALUE 'Note: the black text is on white background/the '
               & 'white background has black text'.
       01  scr3 PIC X(80)
               VALUE 'to make the text visible.'.
       01  scr8 PIC X(80)
               VALUE 'following lines should be identical but '
               & 'highlighted for the first line'.
       01  scr9 PIC X(80)
               VALUE 'and blinking for the second one.'.

       01  scrblack PIC X(08) VALUE 'Black'.
       01  scrblue  PIC X(08) VALUE 'Blue'.
       01  scrgreen PIC X(08) VALUE 'Green'.
       01  scrcyan  PIC X(08) VALUE 'Cyan'.
       01  scrred   PIC X(08) VALUE 'Red'.
       01  scrmaggy PIC X(08) VALUE 'Magenta'.
       01  scryell  PIC X(14) VALUE 'Brown/Yellow'.
       01  scrwhite PIC X(08) VALUE 'White'.

       PROCEDURE DIVISION.
       testme.
           ADD  256 TO CBLACK
           DISPLAY scr1 AT 0102
           DISPLAY scr2 AT 0202
           DISPLAY scr3 AT 0303
           MOVE 5 TO LIN
           PERFORM dspcol
           ADD 1024 TO CBLACK, CBLUE, CGREEN, CCYAN,
                       CRED, CMAGENTA, CYELLOW, CWHITE
           MOVE 6 TO LIN
           PERFORM dspcol
           SUBTRACT 1024 FROM CBLACK, CBLUE, CGREEN, CCYAN,
                       CRED, CMAGENTA, CYELLOW, CWHITE
      *
           DISPLAY scr8 AT 0802
           DISPLAY scr9 AT 0903
           ADD 4096 TO CBLACK, CBLUE, CGREEN, CCYAN,
                       CRED, CMAGENTA, CYELLOW, CWHITE
           MOVE 11 TO LIN
           PERFORM dspcol
           SUBTRACT 4096 FROM CBLACK, CBLUE, CGREEN, CCYAN,
                       CRED, CMAGENTA, CYELLOW, CWHITE
           ADD 1024, 16384 TO CBLACK, CBLUE, CGREEN, CCYAN,
                       CRED, CMAGENTA, CYELLOW, CWHITE
           MOVE 12 TO LIN
           PERFORM dspcol
      *
           ACCEPT success-flag AT 1401 UPDATE REQUIRED

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1.

       dspcol.
           DISPLAY scrblack LINE LIN COL 1,  COLOR CBLACK.
           DISPLAY scrblue  LINE LIN COL 11, COLOR CBLUE.
           DISPLAY scrgreen LINE LIN COL 21, COLOR CGREEN.
           DISPLAY scrcyan  LINE LIN COL 31, COLOR CCYAN.
           DISPLAY scrred   LINE LIN COL 41, COLOR CRED.
           DISPLAY scrmaggy LINE LIN COL 51, COLOR CMAGENTA.
           DISPLAY scryell  LINE LIN COL 61, COLOR CYELLOW.
           DISPLAY scrwhite LINE LIN COL 77, COLOR CWHITE.
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1213: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:1213"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1213"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1214: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:1214"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1214"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_21
#AT_START_22
at_fn_group_banner 22 'run_manual_screen.at:1219' \
  "field BACKGROUND- / FOREGROUND-COLOUR via CONTROL" "" 1
at_xfail=no
(
  $as_echo "22. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:1223" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:1223"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

      * ACU: "=", names only
       77  CBLACK       PIC X(99) VALUE "FCOLOR=BLACK, "
                                      & "BCOLOR=WHITE,".
       77  CBLUE        PIC X(99) VALUE "FCOLOR=BLUE  , "
                                      & "BCOLOR=BLACK,".
      * MF: "IS" or "=" or " ", also extended color numbers
       77  CGREEN       PIC X(99) VALUE "FCOLOR IS GREEN, "
                                      & "BCOLOR BLACK,".
       77  CCYAN        PIC X(99) VALUE "FCOLOR  =CYAN, "
                                      & "BCOLOR= BLACK, ".
       77  CRED         PIC X(99) VALUE "FCOLOR=RED "
                                      & "BCOLOR=BLACK, ".
       77  CMAGENTA     PIC X(99) VALUE "FCOLOR=MAGENTA, "
                                      & "BCOLOR=BLACK,".
       77  CYELLOW      PIC X(99) VALUE "FCOLOR = 6, "
                                      & "BCOLOR=BLACK,".
       77  CWHITE       PIC X(99) VALUE "FCOLOR=WHITE, "
                                      & "BCOLOR=BLACK, ".

       77  LIN          PIC 99    COMP-5.

       01  scr1 PIC X(75)
               VALUE 'Enter "y" if the text below matches the colour '
               & 'of the background/text.'.
       01  scr2 PIC X(75)
               VALUE 'Note: the black text is on white background/the '
               & 'white background has black'.
       01  scr3 PIC X(75)
               VALUE 'text to make the text visible.'
               & '  [This text *may* has "surrounding lines".]'.
       01  scr8 PIC X(75)
               VALUE 'following lines should be identical but '
               & 'highlighted for the first line'.
       01  scr9 PIC X(75)
               VALUE 'and blinking for the second one.'.

       01  scrblack PIC X(08) VALUE 'Black'.
       01  scrblue  PIC X(08) VALUE 'Blue'.
       01  scrgreen PIC X(08) VALUE 'Green'.
       01  scrcyan  PIC X(08) VALUE 'Cyan'.
       01  scrred   PIC X(08) VALUE 'Red'.
       01  scrmaggy PIC X(08) VALUE 'Magenta'.
       01  scryell  PIC X(14) VALUE 'Brown/Yellow'.
       01  scrwhite PIC X(08) VALUE 'White'.

       PROCEDURE DIVISION.
       testme.
           MOVE 2 TO LIN
           DISPLAY scr1 ( 1:1) AT LINE LIN COL 2
              CONTROL "LEFTLINE OVERLINE"
           DISPLAY scr1 ( 2:)  AT LINE LIN COL 2 + 1
              CONTROL "OVERLINE"
           DISPLAY scr1 (75:)  AT LINE LIN COL 2 + 75
              CONTROL "OVERLINE  RIGHTLINE"
           ADD  1 TO LIN
           DISPLAY scr2 ( 1:1) AT LINE LIN COL 2
              CONTROL "LEFTLINE"
           DISPLAY scr2 ( 2:)  AT LINE LIN COL 2 + 1
           DISPLAY scr2 (75:)  AT LINE LIN COL 2 + 75
              CONTROL "RIGHTLINE"
           ADD  1 TO LIN
           DISPLAY scr3 ( 1:1) AT LINE LIN COL 2
              CONTROL "LEFTLINE UNDERLINE"
           DISPLAY scr3 ( 2:)  AT LINE LIN COL 2 + 1
              CONTROL "UNDERLINE"
           DISPLAY scr3 (75:)  AT LINE LIN COL 2 + 75
              CONTROL "UNDERLINE  RIGHTLINE"
      *
           ADD  2 TO LIN
           PERFORM dspcol
           MOVE "REVERSE," TO
               CBLACK (40:), CBLUE (40:), CGREEN (40:), CCYAN (40:),
               CRED (40:), CMAGENTA (40:), CYELLOW (40:), CWHITE (40:)
           ADD  1 TO LIN
           PERFORM dspcol
      *
           INSPECT CRED REPLACING ALL "=" BY " "
           ADD  2 TO LIN
           DISPLAY scr8 AT LINE LIN COL 2
           ADD  1 TO LIN
           DISPLAY scr9 AT LINE LIN COL 2
      *
           MOVE "HIGHLIGHT,NO REVERSE" TO
               CBLACK (50:), CBLUE (50:), CGREEN (50:), CCYAN (50:),
               CRED (50:), CMAGENTA (50:), CYELLOW (50:), CWHITE (50:)
           ADD  1 TO LIN
           PERFORM dspcol
           MOVE "NO HIGH, BLINK" TO
               CBLACK (60:), CBLUE (60:), CGREEN (60:), CCYAN (60:),
               CRED (60:), CMAGENTA (60:), CYELLOW (60:), CWHITE (60:)
           MOVE 12 TO LIN
           PERFORM dspcol
      *
           ACCEPT success-flag AT 1801 UPDATE REQUIRED

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1.

       dspcol.
           DISPLAY scrblack LINE LIN COL 1,  CONTROL CBLACK.
           DISPLAY scrblue  LINE LIN COL 10, CONTROL CBLUE.
           DISPLAY scrgreen LINE LIN COL 19, CONTROL CGREEN.
           DISPLAY scrcyan  LINE LIN COL 28, CONTROL CCYAN.
           DISPLAY scrred   LINE LIN COL 37, CONTROL CRED.
           DISPLAY scrmaggy LINE LIN COL 46, CONTROL CMAGENTA.
           DISPLAY scryell  LINE LIN COL 55, CONTROL CYELLOW.
           DISPLAY scrwhite LINE LIN COL 70, CONTROL CWHITE.
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1344: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:1344"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1344"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1345: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:1345"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1345"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_22
#AT_START_23
at_fn_group_banner 23 'run_manual_screen.at:1350' \
  "line draw characters via CONTROL GRAPHICS" "      " 1
at_xfail=no
(
  $as_echo "23. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:1353" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:1353"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       77  LIN-START    PIC 99    COMP-5.
       77  LIN          PIC 99    COMP-5.

       01  scr1 PIC X(75)
               VALUE 'Enter "y" if you see line draw characters. '
               & 'The first set (single/double)'.
       01  scr2 PIC X(75)
               VALUE 'uses HIGHLIGHT, the second uses '
               & 'LOWLIGHT, BLINK and MAGENTA.'.

       01  graphcontrol PIC X(50) VALUE 'HIGH, GRAPHICS'.

       PROCEDURE DIVISION.
       testme.
           MOVE 2 TO LIN
           DISPLAY scr1 AT LINE LIN COL 2
           ADD  1 TO LIN
           DISPLAY scr2 AT LINE LIN COL 2
      *
           MOVE 5 TO LIN-START
           PERFORM dspcol
           MOVE 12 TO LIN-START
           MOVE "LOW BLINK FCOLOR=MAGENTA GRAPHICS" TO graphcontrol
           PERFORM dspcol
      *
           ACCEPT success-flag AT 1801 UPDATE REQUIRED

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1.

       dspcol.
      *    Single-line graphics
           MOVE LIN-START TO LIN
           DISPLAY "lqqqqwqqqqk" LINE LIN COL 05, CONTROL graphcontrol.
           ADD  1 TO LIN
           DISPLAY "x    x    x" LINE LIN COL 05, CONTROL graphcontrol.
           ADD  1 TO LIN
           DISPLAY "tqqqqnqqqqu" LINE LIN COL 05, CONTROL graphcontrol.
           ADD  1 TO LIN
           DISPLAY "x    x    x" LINE LIN COL 05, CONTROL graphcontrol.
           ADD  1 TO LIN
           DISPLAY "mqqqqvqqqqj" LINE LIN COL 05, CONTROL graphcontrol.
           ADD  1 TO LIN
      *    Double-line graphics
           MOVE LIN-START TO LIN
           DISPLAY "LQQQQWQQQQK" LINE LIN COL 20, CONTROL graphcontrol.
           ADD  1 TO LIN
           DISPLAY "X    X    X" LINE LIN COL 20, CONTROL graphcontrol.
           ADD  1 TO LIN
           DISPLAY "TQQQQNQQQQU" LINE LIN COL 20, CONTROL graphcontrol.
           ADD  1 TO LIN
           DISPLAY "X    X    X" LINE LIN COL 20, CONTROL graphcontrol.
           ADD  1 TO LIN
           DISPLAY "MQQQQVQQQQJ" LINE LIN COL 20, CONTROL graphcontrol.
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1421: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:1421"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1421"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1422: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:1422"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1422"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_23
#AT_START_24
at_fn_group_banner 24 'run_manual_screen.at:1427' \
  "BEEP" "                                           " 1
at_xfail=no
(
  $as_echo "24. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:1430" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:1430"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  BELL.
           03  VALUE 'Enter "y" if you heard a beep:'.
           03  success-field PIC X, COL + 2, REQUIRED, TO success-flag
                                                       FROM 'Y'.
       01  scr2.
           03  LINE 4 VALUE 'system beep may be turned off ' &
                             'on this system.'.
           03  LINE 5 VALUE 'Retesting with COB_BELL=FLASH...'.
           03  LINE + 2,
               VALUE 'Enter "y" if you''ve seen your terminal flash'.
           03  success-field PIC X, COL + 2, REQUIRED, TO success-flag
                                                       FROM 'Y'.

       PROCEDURE DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           END-IF

           SET ENVIRONMENT 'COB_BELL' TO 'FLASH'
           CALL 'C$SLEEP' USING '1'

           DISPLAY scr2
           DISPLAY ALL X'07' UPON CRT
           ACCEPT scr2

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1478: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:1478"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1478"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1479: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:1479"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1479"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_24
#AT_START_25
at_fn_group_banner 25 'run_manual_screen.at:1484' \
  "BLANK LINE" "                                     " 1
at_xfail=no
(
  $as_echo "25. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:1487" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:1487"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.

       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr-1.
           03  LINE 3 VALUE 'Lorem ipsum dolor sit amet, consectetur ad'
               & 'ipiscing elit. Curabitur dapibus dui'.
           03  LINE 4 VALUE 'vitae augue lobortis, non tempor diam tris'
               & 'tique. Donec dignissim ex velit, ut'.
           03  LINE 5 VALUE 'efficitur tellus pharetra at. Curabitur at'
               & ' condimentum nunc, nec accumsan'.
           03  LINE 6 VALUE 'nulla. Nulla at feugiat elit, eget condime'
               & 'ntum justo. Nam lorem lectus,'.
           03  LINE 7 VALUE 'imperdiet sit amet odio eu, eleifend conse'
               & 'ctetur ligula. Duis diam felis, porta'.
           03  LINE 8 VALUE 'id diam id, ultrices finibus augue. Mauris'
               & ' imperdiet, dolor sed sodales porta,'.
           03  LINE 9 VALUE 'justo nunc consequat nulla, iaculis venena'
               & 'tis lorem libero sit amet'.
           03  LINE 10 VALUE 'magna. Nullam pulvinar nullam.'.
           03  success-field LINE + 2, PIC X, REQUIRED,
                                              USING success-flag.

       01  scr-2.
           03  LINE 6 COL 8 VALUE 'foo' BLANK LINE, HIGHLIGHT.
           03  LINE 1 VALUE 'Enter "y" if foo is the only word on one'
               & ' line.'.

       PROCEDURE        DIVISION.
           DISPLAY scr-1
           DISPLAY scr-2
           ACCEPT success-field

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1536: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:1536"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1536"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1537: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:1537"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1537"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_25
#AT_START_26
at_fn_group_banner 26 'run_manual_screen.at:1542' \
  "BLANK SCREEN" "                                   " 1
at_xfail=no
(
  $as_echo "26. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:1545" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:1545"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.

       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr-1.
           03  LINE 3 VALUE 'Lorem ipsum dolor sit amet, consectetur ad'
               & 'ipiscing elit. Curabitur dapibus dui'.
           03  LINE 4 VALUE 'vitae augue lobortis, non tempor diam tris'
               & 'tique. Donec dignissim ex velit, ut'.
           03  LINE 5 VALUE 'efficitur tellus pharetra at. Curabitur at'
               & ' condimentum nunc, nec accumsan'.
           03  LINE 6 VALUE 'nulla. Nulla at feugiat elit, eget condime'
               & 'ntum justo. Nam lorem lectus,'.
           03  LINE 7 VALUE 'imperdiet sit amet odio eu, eleifend conse'
               & 'ctetur ligula. Duis diam felis, porta'.
           03  LINE 8 VALUE 'id diam id, ultrices finibus augue. Mauris'
               & ' imperdiet, dolor sed sodales porta,'.
           03  LINE 9 VALUE 'justo nunc consequat nulla, iaculis venena'
               & 'tis lorem libero sit amet'.
           03  LINE 10 VALUE 'magna. Nullam pulvinar nullam.'.
           03  success-field LINE + 2, PIC X, REQUIRED,
                                              USING success-flag.

       01  scr-2.
           03  LINE 6 COL 8 VALUE 'foo' BLANK SCREEN, HIGHLIGHT.
           03  LINE 1 VALUE 'Enter "y" if foo is the only word below.'.

       PROCEDURE        DIVISION.
           DISPLAY scr-1
           DISPLAY scr-2
           ACCEPT success-field

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1593: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:1593"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1593"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1594: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:1594"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1594"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_26
#AT_START_27
at_fn_group_banner 27 'run_manual_screen.at:1599' \
  "BLANK ignored in ACCEPT" "                        " 1
at_xfail=no
(
  $as_echo "27. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:1602" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:1602"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.

       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  LINE 1 VALUE 'Enter "y" if you can see lorem ipsum '
               & 'filler text.'.
           03  LINE 3 COL 3 VALUE 'Lorem ipsum dolor sit amet,'
               & ' consectetur ad ipiscing elit.'.

       01  success-scr.
           03 LINE 3, BLANK LINE, PIC X, REQUIRED, USING success-flag.

       PROCEDURE        DIVISION.
           DISPLAY scr
           ACCEPT success-scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1635: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:1635"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1635"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1636: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:1636"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1636"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_27
#AT_START_28
at_fn_group_banner 28 'run_manual_screen.at:1641' \
  "BLINK" "                                          " 1
at_xfail=no
(
  $as_echo "28. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:1644" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:1644"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  PIC X(80)
               VALUE 'Enter "y" if the string below is blinking:'.
           03  LINE + 1, PIC X(10) VALUE 'Blink' BLINK.
           03  success-field LINE + 2, PIC X, REQUIRED,
                                              USING success-flag.

       PROCEDURE DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1674: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:1674"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1674"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1675: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:1675"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1675"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_28
#AT_START_29
at_fn_group_banner 29 'run_manual_screen.at:1680' \
  "ERASE EOS" "                                      " 1
at_xfail=no
(
  $as_echo "29. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:1683" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:1683"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.

       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr-1.
           03  LINE 1 VALUE 'Enter "y" if all the text after foo in the'
               & ' screen has been erased.'.
           03  LINE 3 VALUE 'Lorem ipsum dolor sit amet, consectetur ad'
               & 'ipiscing elit. Curabitur dapibus dui'.
           03  LINE 4 VALUE 'vitae augue lobortis, non tempor diam tris'
               & 'tique. Donec dignissim ex velit, ut'.
           03  LINE 5 VALUE 'efficitur tellus pharetra at. Curabitur at'
               & ' condimentum nunc, nec accumsan'.
           03  LINE 6 VALUE 'nulla. Nulla at feugiat elit, eget condime'
               & 'ntum justo. Nam lorem lectus,'.
           03  LINE 7 VALUE 'imperdiet sit amet odio eu, eleifend conse'
               & 'ctetur ligula. Duis diam felis, porta'.
           03  LINE 8 VALUE 'id diam id, ultrices finibus augue. Mauris'
               & ' imperdiet, dolor sed sodales porta,'.
           03  LINE 9 VALUE 'justo nunc consequat nulla, iaculis venena'
               & 'tis lorem libero sit amet'.
           03  LINE 10 VALUE 'magna. Nullam pulvinar nullam.'.
           03  success-field LINE + 2, PIC X, REQUIRED,
                                              USING success-flag.

       01  scr-2.
           03  LINE 6 COL 8 VALUE 'foo' ERASE EOS, HIGHLIGHT.

       PROCEDURE        DIVISION.
           DISPLAY scr-1
           DISPLAY scr-2
           ACCEPT success-field

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1732: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:1732"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1732"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1733: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:1733"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1733"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_29
#AT_START_30
at_fn_group_banner 30 'run_manual_screen.at:1738' \
  "ERASE EOL" "                                      " 1
at_xfail=no
(
  $as_echo "30. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:1741" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:1741"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.

       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr-1.
           03  LINE 1 VALUE 'Enter "y" if all the text after foo on '
               & 'that line alone has been erased.'.
           03  LINE 3 VALUE 'Lorem ipsum dolor sit amet, consectetur ad'
               & 'ipiscing elit. Curabitur dapibus dui'.
           03  LINE 4 VALUE 'vitae augue lobortis, non tempor diam tris'
               & 'tique. Donec dignissim ex velit, ut'.
           03  LINE 5 VALUE 'efficitur tellus pharetra at. Curabitur at'
               & ' condimentum nunc, nec accumsan'.
           03  LINE 6 VALUE 'nulla. Nulla at feugiat elit, eget condime'
               & 'ntum justo. Nam lorem lectus,'.
           03  LINE 7 VALUE 'imperdiet sit amet odio eu, eleifend conse'
               & 'ctetur ligula. Duis diam felis, porta'.
           03  LINE 8 VALUE 'id diam id, ultrices finibus augue. Mauris'
               & ' imperdiet, dolor sed sodales porta,'.
           03  LINE 9 VALUE 'justo nunc consequat nulla, iaculis venena'
               & 'tis lorem libero sit amet'.
           03  LINE 10 VALUE 'magna. Nullam pulvinar nullam.'.
           03  success-field LINE + 2, PIC X, REQUIRED,
                                              USING success-flag.

       01  scr-2.
           03  LINE 6 COL 8 VALUE 'foo' ERASE EOL, HIGHLIGHT.

       PROCEDURE        DIVISION.
           DISPLAY scr-1
           DISPLAY scr-2
           ACCEPT success-field

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1790: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:1790"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1790"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1791: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:1791"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1791"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_30
#AT_START_31
at_fn_group_banner 31 'run_manual_screen.at:1796' \
  "ERASE ignored in ACCEPT" "                        " 1
at_xfail=no
(
  $as_echo "31. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:1799" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:1799"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.

       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  LINE 1 VALUE 'Enter "y" if you can see lorem ipsum '
               & 'filler text.'.
           03  LINE 3 VALUE 'Lorem ipsum dolor sit amet, consectetur ad'
               & 'ipiscing elit. Curabitur dapibus dui'.
           03  LINE 4 VALUE 'vitae augue lobortis, non tempor diam tris'
               & 'tique. Donec dignissim ex velit, ut'.
           03  LINE 5 VALUE 'efficitur tellus pharetra at. Curabitur at'
               & ' condimentum nunc, nec accumsan'.
           03  LINE 6 VALUE 'nulla. Nulla at feugiat elit, eget condime'
               & 'ntum justo. Nam lorem lectus,'.
           03  LINE 7 VALUE 'imperdiet sit amet odio eu, eleifend conse'
               & 'ctetur ligula. Duis diam felis, porta'.
           03  LINE 8 VALUE 'id diam id, ultrices finibus augue. Mauris'
               & ' imperdiet, dolor sed sodales porta,'.
           03  LINE 9 VALUE 'justo nunc consequat nulla, iaculis venena'
               & 'tis lorem libero sit amet'.
           03  LINE 10 VALUE 'magna. Nullam pulvinar nullam.'.
           03  LINE 3 ERASE EOS.
           03  success-field LINE 12, PIC X, REQUIRED,
                                             USING success-flag.

       PROCEDURE        DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1845: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:1845"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1845"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1846: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:1846"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1846"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_31
#AT_START_32
at_fn_group_banner 32 'run_manual_screen.at:1851' \
  "FULL and REQUIRED" "                              " 1
at_xfail=no
(
  $as_echo "32. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:1854" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:1854"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  dummy        PIC X(10).
       01  success-flag PIC X.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  PIC X(80)
               VALUE 'Enter "y" if you cannot continue without filling '
               & 'all of the below field:'.
           03  LINE + 1, PIC X(10), FULL, REQUIRED, TO dummy.
                    *> no initial value for success as we request input
           03  success-field LINE + 2, PIC X, REQUIRED, TO success-flag.

       PROCEDURE DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1886: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:1886"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1886"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1887: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:1887"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1887"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_32
#AT_START_33
at_fn_group_banner 33 'run_manual_screen.at:1892' \
  "HIGHLIGHT" "                                      " 1
at_xfail=no
(
  $as_echo "33. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:1895" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:1895"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  PIC X(80)
               VALUE 'Enter "y" if the text below is bright '
               & '(highlighted):'.
           03  LINE + 1, PIC X(10) VALUE 'Highlight' HIGHLIGHT.
           03  success-field LINE + 2, PIC X, REQUIRED,
                                              USING success-flag.

       PROCEDURE DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1926: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:1926"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1926"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1927: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:1927"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1927"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_33
#AT_START_34
at_fn_group_banner 34 'run_manual_screen.at:1932' \
  "INITIAL" "                                        " 1
at_xfail=no
(
  $as_echo "34. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:1935" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:1935"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION  DIVISION.
       PROGRAM-ID.     prog.

       DATA            DIVISION.
       WORKING-STORAGE SECTION.
       01  dummy-1     PIC X(10).
       01  dummy-2     PIC X(10).
       01  dummy-3     PIC X(10).

       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN          SECTION.
       01  scr.
           03  PIC X(80) VALUE 'Enter "y" if the cursor is initially '-
               'located at the start of the rightmost'.
           03  LINE + 1, PIC X(80) VALUE 'field.'.
           03  LINE + 2, PIC X(10) TO dummy-1.
           03  COL + 2, PIC X(10) TO dummy-2.
           03  COL + 2, PIC X(10) TO dummy-3, INITIAL.
           03  success-field LINE + 2, PIC X, REQUIRED,
                                              USING success-flag.

       PROCEDURE       DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1973: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:1973"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1973"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:1974: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:1974"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:1974"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_34
#AT_START_35
at_fn_group_banner 35 'run_manual_screen.at:1979' \
  "LEFTLINE" "                                       " 1
at_xfail=yes
(
  $as_echo "35. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:1982" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:1982"

# Currently not implemented


cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  PIC X(80)
               VALUE 'Enter "y" if the string has a vertical line to '
               & 'its left:'.
           03  LINE + 1, COL 2, PIC X(10) VALUE 'Leftline' LEFTLINE.
           03  success-field LINE + 2, PIC X, REQUIRED,
                                              USING success-flag.

       PROCEDURE DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2016: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2016"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2016"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2017: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2017"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2017"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_35
#AT_START_36
at_fn_group_banner 36 'run_manual_screen.at:2022' \
  "LOWLIGHT" "                                       " 1
at_xfail=no
(
  $as_echo "36. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2025" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2025"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  PIC X(80)
               VALUE 'Enter "y" if the string below is dim (lowlight):'.
           03  LINE + 1, PIC X(10) VALUE 'Lowlight' LOWLIGHT.
           03  success-field LINE + 2, PIC X, REQUIRED,
                                              USING success-flag.

       PROCEDURE DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2055: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2055"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2055"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2056: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2056"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2056"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_36
#AT_START_37
at_fn_group_banner 37 'run_manual_screen.at:2061' \
  "OVERLINE" "                                       " 1
at_xfail=yes
(
  $as_echo "37. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2064" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2064"

# Currently not implemented


cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  PIC X(80)
               VALUE 'Enter "y" if the string below is overlined:'.
           03  LINE + 1, PIC X(10) VALUE 'Overline' OVERLINE.
           03  success-field LINE + 2, PIC X, REQUIRED,
                                              USING success-flag.

       PROCEDURE DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2097: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2097"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2097"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2098: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2098"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2098"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_37
#AT_START_38
at_fn_group_banner 38 'run_manual_screen.at:2103' \
  "REVERSE-VIDEO" "                                  " 1
at_xfail=no
(
  $as_echo "38. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2106" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2106"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  PIC X(80)
               VALUE 'Enter "y" if the background and foreground '
               & 'colours of the string below have'.
           03  LINE + 1, PIC X(80) VALUE 'swapped:'.
           03  LINE + 1, PIC X(20) VALUE 'Reversed colours'
               REVERSE-VIDEO.
           03  success-field LINE + 2, PIC X USING success-flag.

       PROCEDURE DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2138: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2138"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2138"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2139: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2139"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2139"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_38
#AT_START_39
at_fn_group_banner 39 'run_manual_screen.at:2144' \
  "SECURE" "                                         " 1
at_xfail=no
(
  $as_echo "39. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2147" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2147"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  dummy        PIC X(10).
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  PIC X(80)
               VALUE 'Enter "y" if text in the field below is replaced '
               & 'with asterisks:'.
           03  LINE + 1, PIC X(10) SECURE TO dummy, PROMPT CHARACTER
               "-".
           03  success-field LINE + 2, PIC X, REQUIRED,
                                              USING success-flag.

       PROCEDURE DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2180: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2180"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2180"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2181: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2181"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2181"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_39
#AT_START_40
at_fn_group_banner 40 'run_manual_screen.at:2186' \
  "SIZE with items" "                                " 1
at_xfail=no
(
  $as_echo "40. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2189" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2189"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       01  num-1		PIC 9(5) VALUE 12345.
       01  num-2        PIC X(10) VALUE '12345'.
       01  num-3        PIC 9(4) VALUE 1234.

       01  four         PIC 9 VALUE 4.

       PROCEDURE        DIVISION.
           DISPLAY 'Enter "y" if you see exactly four rows of 1234, all'
               & ' aligned.' LINE 1

           DISPLAY num-1 LINE 3 COL 3, SIZE 4;
               num-2 LINE 4 COL 3, SIZE four;
               num-3 LINE 5 COL 3, SIZE 8;
               '1234' LINE 6 COL 3, SIZE ZERO

           ACCEPT success-flag LINE 8, REQUIRED UPDATE

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2224: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2224"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2224"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2225: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2225"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2225"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_40
#AT_START_41
at_fn_group_banner 41 'run_manual_screen.at:2230' \
  "SIZE with figurative constants" "                 " 1
at_xfail=no
(
  $as_echo "41. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2233" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2233"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       PROCEDURE        DIVISION.
           DISPLAY 'Enter "y" if you see exactly three rows of quotes, '
               & 'zeroes and ''abc'',', LINE 1
           DISPLAY '8 characters long, all aligned.', LINE 2

           DISPLAY QUOTES LINE 4 COL 3, SIZE 8;
               ZEROES LINE 5 COL 3, SIZE 8;
               ALL 'abc' LINE 6 COL 3, SIZE 8

           DISPLAY '123456789' LINE 7 COL 3
           DISPLAY SPACE LINE 7 COL 3, SIZE 9

           ACCEPT success-flag LINE 8, REQUIRED UPDATE

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2265: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2265"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2265"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2266: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2266"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2266"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_41
#AT_START_42
at_fn_group_banner 42 'run_manual_screen.at:2271' \
  "UPDATE" "                                         " 1
at_xfail=no
(
  $as_echo "42. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2274" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2274"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  n-str        PIC X(12) VALUE SPACES.
       01  success-flag PIC X.
           88  success VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  VALUE 'Enter "y" if the entry field below is filled with'
                 & ' N''s'.
           03  n-field, LINE + 1, PIC X(12) USING n-str.
           03  success-field, LINE + 2, PIC X, REQUIRED,
               TO success-flag, FROM 'Y'.

       PROCEDURE        DIVISION.
           DISPLAY scr
           MOVE ALL 'N' TO n-str
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2306: \$COMPILE -fno-accept-update prog.cob"
at_fn_check_prepare_dynamic "$COMPILE -fno-accept-update prog.cob" "run_manual_screen.at:2306"
( $at_check_trace; $COMPILE -fno-accept-update prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2306"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2307: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2307"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2307"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_42
#AT_START_43
at_fn_group_banner 43 'run_manual_screen.at:2312' \
  "UNDERLINE" "                                      " 1
at_xfail=no
(
  $as_echo "43. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2315" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2315"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.

       SCREEN           SECTION.
       01  scr.
           03  PIC X(80)
               VALUE 'Enter "y" if the string below is underlined:'.
           03  LINE + 1, PIC X(10) VALUE 'Underline' UNDERLINE.
           03  success-field LINE + 2, PIC X, REQUIRED,
                                              USING success-flag.

       PROCEDURE DIVISION.
           DISPLAY scr
           ACCEPT scr

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2345: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2345"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2345"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2346: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2346"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2346"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_43
#AT_START_44
at_fn_group_banner 44 'run_manual_screen.at:2351' \
  "SPECIAL-NAMES CURSOR phrase 6-digit with field" " " 1
at_xfail=no
(
  $as_echo "44. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2354" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2354"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       ENVIRONMENT      DIVISION.
       CONFIGURATION    SECTION.
       SPECIAL-NAMES.
       CURSOR IS cur-pos.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       77  cur-pos      pic 9(06).
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.
       01  ws-x-20      PIC X(20).
       PROCEDURE DIVISION.
       testme.
           set environment 'COB_SCREEN_EXCEPTIONS' to 'TRUE'
           set environment 'COB_SCREEN_ESC'        to 'TRUE'

           DISPLAY "If the cursor below is positioned at the 'C'"
               LINE 1 COLUMN 1.
           DISPLAY "(third column) below, then position it at the"
               LINE 2 COLUMN 1.
           DISPLAY "'E' (fifth column) and press ENTER."
               LINE 3 COLUMN 1.

           MOVE "ABCDEFG   " TO WS-X-20.
           MOVE 005003       TO cur-pos.
           ACCEPT WS-X-20
               LINE 5 COLUMN 1
               WITH
                   AUTO-SKIP
                   SIZE 10
                   UPDATE.

           IF cur-pos = 005005 AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2398: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2398"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2398"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2399: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2399"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2399"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_44
#AT_START_45
at_fn_group_banner 45 'run_manual_screen.at:2404' \
  "SPECIAL-NAMES CURSOR phrase 4-digit with field" " " 1
at_xfail=no
(
  $as_echo "45. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2407" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2407"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       ENVIRONMENT      DIVISION.
       CONFIGURATION    SECTION.
       SPECIAL-NAMES.
       CURSOR IS cur-pos.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       77  cur-pos      pic 9(04).
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.
       01  ws-x-20      PIC X(20).
       PROCEDURE DIVISION.
       testme.
           set environment 'COB_SCREEN_EXCEPTIONS' to 'TRUE'
           set environment 'COB_SCREEN_ESC'        to 'TRUE'

           DISPLAY "If the cursor below is positioned at the 'C'"
               LINE 1 COLUMN 1.
           DISPLAY "(third column) below, then position it at the"
               LINE 2 COLUMN 1.
           DISPLAY "'E' (fifth column) and press ENTER."
               LINE 3 COLUMN 1.

           MOVE "ABCDEFG   " TO WS-X-20.
           MOVE 0503         TO cur-pos.
           ACCEPT WS-X-20
               LINE 5 COLUMN 1
               WITH
                   AUTO-SKIP
                   SIZE 10
                   UPDATE.

           IF cur-pos = 0505 AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2451: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2451"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2451"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2452: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2452"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2452"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_45
#AT_START_46
at_fn_group_banner 46 'run_manual_screen.at:2457' \
  "ACCEPT field WITH CURSOR data-item" "             " 1
at_xfail=no
(
  $as_echo "46. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2460" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2460"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       77  cur-pos      pic 9(04).
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.
       01  ws-x-20      PIC X(20).
       PROCEDURE DIVISION.
       testme.
           set environment 'COB_SCREEN_EXCEPTIONS' to 'TRUE'
           set environment 'COB_SCREEN_ESC'        to 'TRUE'

           DISPLAY "If the cursor below is positioned at the 'C'"
               LINE 1 COLUMN 1.
           DISPLAY "(third column in field) below, then position it at"
               LINE 2 COLUMN 1.
           DISPLAY "the 'E' (fifth column) and press ENTER."
               LINE 3 COLUMN 1.

           MOVE "ABCDEFG   " TO WS-X-20.
           MOVE 0003         TO cur-pos.
           ACCEPT WS-X-20
               LINE 5 COLUMN 3
               WITH
                   AUTO-SKIP
                   SIZE 10
                   CURSOR cur-pos
                   UPDATE.

           IF cur-pos = 0005 AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2501: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2501"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2501"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2502: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2502"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2502"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_46
#AT_START_47
at_fn_group_banner 47 'run_manual_screen.at:2507' \
  "ACCEPT field WITH CURSOR size overflow" "         " 1
at_xfail=no
(
  $as_echo "47. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2510" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2510"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       77  cur-pos      pic 9(04).
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.
       01  ws-x-20      PIC X(10).
       PROCEDURE DIVISION.
       testme.
           set environment 'COB_SCREEN_EXCEPTIONS' to 'TRUE'
           set environment 'COB_SCREEN_ESC'        to 'TRUE'

           DISPLAY "If the cursor below is positioned at the last"
               LINE 1 COLUMN 1.
           DISPLAY "column in the field below, then position it at"
               LINE 2 COLUMN 1.
           DISPLAY "the 'C' (third column) and press ENTER."
               LINE 3 COLUMN 1.

           MOVE "ABCDEFGHIJ" TO WS-X-20.
           MOVE 0012         TO cur-pos.
           ACCEPT WS-X-20
               LINE 5 COLUMN 3
               WITH
                   AUTO-SKIP
                   SIZE 10
                   CURSOR cur-pos
                   UPDATE.

           IF cur-pos = 0003 AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2551: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2551"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2551"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2552: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2552"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2552"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_47
#AT_START_48
at_fn_group_banner 48 'run_manual_screen.at:2557' \
  "ACCEPT field WITH CURSOR data overflow I" "       " 1
at_xfail=no
(
  $as_echo "48. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2560" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2560"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       77  cur-pos      pic 9(04).
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.
       01  ws-x-20      PIC X(20).
       PROCEDURE DIVISION.
       testme.
           set environment 'COB_SCREEN_EXCEPTIONS' to 'TRUE'
           set environment 'COB_SCREEN_ESC'        to 'TRUE'

           DISPLAY "If the cursor below is positioned at the 'E'"
               LINE 1 COLUMN 1.
           DISPLAY "(fifth column in field) below, then position it at"
               LINE 2 COLUMN 1.
           DISPLAY "the 'C' (third column) and press ENTER."
               LINE 3 COLUMN 1.

           MOVE "ABCDE     " TO WS-X-20.
           MOVE 0008         TO cur-pos.
           ACCEPT WS-X-20
               LINE 5 COLUMN 3
               WITH
                   AUTO-SKIP
                   SIZE 10
                   CURSOR cur-pos
                   UPDATE.

           IF cur-pos = 0003 AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2601: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2601"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2601"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2602: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2602"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2602"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_48
#AT_START_49
at_fn_group_banner 49 'run_manual_screen.at:2607' \
  "ACCEPT field WITH CURSOR data overflow II" "      " 1
at_xfail=no
(
  $as_echo "49. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2610" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2610"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       77  cur-pos      pic 9(04).
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.
       01  ws-x-20      PIC X(20).
       PROCEDURE DIVISION.
       testme.
           set environment 'COB_SCREEN_EXCEPTIONS' to 'TRUE'
           set environment 'COB_SCREEN_ESC'        to 'TRUE'

           DISPLAY "If the cursor below is positioned at the first"
               LINE 1 COLUMN 1.
           DISPLAY "column in the field below and it is empty, then"
               LINE 2 COLUMN 1.
           DISPLAY "enter 'AB', position after the 'B' and press ENTER."
               LINE 3 COLUMN 1.

           MOVE "ABCDE     " TO WS-X-20.
           MOVE 0008         TO cur-pos.
           ACCEPT WS-X-20
               LINE 5 COLUMN 3
               WITH
                   SIZE 10
                   UNDERLINE
                   CURSOR cur-pos.

           IF cur-pos = 0003 AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2650: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2650"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2650"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2651: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2651"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2651"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_49
#AT_START_50
at_fn_group_banner 50 'run_manual_screen.at:2656' \
  "ACCEPT field WITH CURSOR literal" "               " 1
at_xfail=no
(
  $as_echo "50. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2659" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2659"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.
       01  ws-x-20      PIC X(20).
       PROCEDURE DIVISION.
       testme.
           set environment 'COB_SCREEN_EXCEPTIONS' to 'TRUE'
           set environment 'COB_SCREEN_ESC'        to 'TRUE'

           DISPLAY "If the cursor below is positioned at the 'C'"
               LINE 1 COLUMN 1.
           DISPLAY "(third column in field) below, then press ENTER."
               LINE 2 COLUMN 1.

           MOVE "ABCDEFG   " TO WS-X-20.
           ACCEPT WS-X-20
               LINE 4 COLUMN 2
               WITH
                   AUTO-SKIP
                   SIZE 10
                   CURSOR 3
                   UPDATE.

           IF COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2696: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2696"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2696"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2697: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2697"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2697"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_50
#AT_START_51
at_fn_group_banner 51 'run_manual_screen.at:2702' \
  "HOME key" "                                       " 1
at_xfail=no
(
  $as_echo "51. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2705" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2705"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.
       01  ws-x-20      PIC X(20).
       PROCEDURE DIVISION.
           DISPLAY "Enter 'y' if multiple presses of the HOME key"
               LINE 1 COLUMN 1.
           DISPLAY "go to the beginning of the field and the beginning"
               LINE 2 COLUMN 1.
           DISPLAY "of the characters."
               LINE 3 COLUMN 1.

           MOVE "    ABC   " TO WS-X-20.
           ACCEPT WS-X-20
               LINE 5 COLUMN 1
               WITH
                   AUTO-SKIP
                   SIZE 10
                   UPDATE.

           ACCEPT SUCCESS-FLAG
               LINE 7 COLUMN 1
               WITH UPDATE.

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2743: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2743"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2743"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2744: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2744"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2744"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_51
#AT_START_52
at_fn_group_banner 52 'run_manual_screen.at:2749' \
  "END key" "                                        " 1
at_xfail=no
(
  $as_echo "52. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2752" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2752"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.
       01  ws-x-20      PIC X(20).
       PROCEDURE DIVISION.
           DISPLAY "Enter 'y' if multiple presses of the END key"
               LINE 1 COLUMN 1.
           DISPLAY "go to the end of the field and just after the end"
               LINE 2 COLUMN 1.
           DISPLAY "of the characters."
               LINE 3 COLUMN 1.

           MOVE "   ABC    " TO WS-X-20.
           ACCEPT WS-X-20
               LINE 5 COLUMN 1
               WITH
                   AUTO-SKIP
                   SIZE 10
                   UPDATE.

           ACCEPT SUCCESS-FLAG
               LINE 7 COLUMN 1
               WITH UPDATE.

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2790: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2790"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2790"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2791: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2791"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2791"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_52
#AT_START_53
at_fn_group_banner 53 'run_manual_screen.at:2796' \
  "INSERT key" "                                     " 1
at_xfail=no
(
  $as_echo "53. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2799" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2799"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.
       01  ws-x-20      PIC X(20).
       PROCEDURE DIVISION.
           DISPLAY "Enter 'y' if multiple presses of the INSERT key"
               LINE 1 COLUMN 1.
           DISPLAY "go back and forth between"
               LINE 2 COLUMN 1.
           DISPLAY "Insert Mode ON (characters move to the right)"
               LINE 3 COLUMN 1.
           DISPLAY "and Insert Mode OFF (characters type over)."
               LINE 4 COLUMN 1.

           MOVE "ABCD      " TO WS-X-20.
           ACCEPT WS-X-20
               LINE 6 COLUMN 1
               WITH
                   AUTO-SKIP
                   SIZE 10
                   UPDATE.

           ACCEPT SUCCESS-FLAG
               LINE 8 COLUMN 1
               WITH UPDATE.

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2839: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2839"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2839"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2840: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2840"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2840"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_53
#AT_START_54
at_fn_group_banner 54 'run_manual_screen.at:2845' \
  "BACKSPACE key" "                                  " 1
at_xfail=no
(
  $as_echo "54. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2848" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2848"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       ENVIRONMENT      DIVISION.
       CONFIGURATION    SECTION.
       SPECIAL-NAMES.
       CURSOR IS cur-pos.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       77  cur-pos      pic 9(06).
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.
       01  ws-x-20      PIC X(20).
       PROCEDURE DIVISION.
           DISPLAY "Enter 'y' if each press of the BACKSPACE key"
               LINE 1 COLUMN 1.
           DISPLAY "deletes the character to the left and moves the"
               LINE 2 COLUMN 1.
           DISPLAY "cursor and remaining characters one space to the"
               LINE 3 COLUMN 1.
           DISPLAY "left."
               LINE 4 COLUMN 1.

           MOVE "ABCD      " TO WS-X-20.
           MOVE 006002       TO cur-pos.
           ACCEPT WS-X-20
               LINE 6 COLUMN 1
               WITH
                   AUTO-SKIP
                   SIZE 10
                   UPDATE.

           ACCEPT SUCCESS-FLAG
               LINE 8 COLUMN 1
               WITH UPDATE.

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2894: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2894"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2894"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2895: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2895"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2895"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_54
#AT_START_55
at_fn_group_banner 55 'run_manual_screen.at:2900' \
  "DELETE key" "                                     " 1
at_xfail=no
(
  $as_echo "55. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2903" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2903"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.
       01  ws-x-20      PIC X(20).
       PROCEDURE DIVISION.
           DISPLAY "Enter 'y' if each press of the DELETE key deletes"
               LINE 1 COLUMN 1.
           DISPLAY "the cursor character and moves the remaining"
               LINE 2 COLUMN 1.
           DISPLAY "characters one space to the left.  And the cursor"
               LINE 3 COLUMN 1.
           DISPLAY "does not move."
               LINE 4 COLUMN 1.

           MOVE "ABCD      " TO WS-X-20.
           ACCEPT WS-X-20
               LINE 6 COLUMN 1
               WITH
                   AUTO-SKIP
                   SIZE 10
                   UPDATE.

           ACCEPT SUCCESS-FLAG
               LINE 8 COLUMN 1
               WITH UPDATE.

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2943: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2943"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2943"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2944: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2944"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2944"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_55
#AT_START_56
at_fn_group_banner 56 'run_manual_screen.at:2949' \
  "ALT DELETE key" "                                 " 1
at_xfail=no
(
  $as_echo "56. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2952" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2952"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.
       01  ws-x-20      PIC X(20).
       PROCEDURE DIVISION.
           DISPLAY "Enter 'y' if pressing the ALT and DELETE keys"
               LINE 1 COLUMN 1.
           DISPLAY "deletes all characters from the cursor to the end"
               LINE 2 COLUMN 1.
           DISPLAY "of the field.  And the cursor does not move."
               LINE 3 COLUMN 1.

           MOVE "ABCD      " TO WS-X-20.
           ACCEPT WS-X-20
               LINE 5 COLUMN 1
               WITH
                   AUTO-SKIP
                   SIZE 10
                   UPDATE.

           ACCEPT SUCCESS-FLAG
               LINE 7 COLUMN 1
               WITH UPDATE.

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2990: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:2990"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2990"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:2991: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:2991"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:2991"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_56
#AT_START_57
at_fn_group_banner 57 'run_manual_screen.at:2996' \
  "ALT LEFT-ARROW key" "                             " 1
at_xfail=no
(
  $as_echo "57. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:2999" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:2999"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.
       01  ws-x-20      PIC X(20).
       PROCEDURE DIVISION.
           DISPLAY "Enter 'y' if pressing the ALT and LEFT-ARROW keys"
               LINE 1 COLUMN 1.
           DISPLAY "at the first column does not exit the field."
               LINE 2 COLUMN 1.
           DISPLAY "But the LEFT-ARROW without ALT does exit."
               LINE 3 COLUMN 1.

           MOVE "ABCD      " TO WS-X-20.
           ACCEPT WS-X-20
               LINE 5 COLUMN 1
               WITH
                   AUTO-SKIP
                   SIZE 10
                   UPDATE.

           ACCEPT SUCCESS-FLAG
               LINE 7 COLUMN 1
               WITH UPDATE.

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:3037: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:3037"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:3037"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:3038: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:3038"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:3038"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_57
#AT_START_58
at_fn_group_banner 58 'run_manual_screen.at:3043' \
  "ALT RIGHT-ARROW key" "                            " 1
at_xfail=no
(
  $as_echo "58. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:3046" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:3046"

cat >prog.cob <<'_ATEOF'

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  success-flag PIC X VALUE 'Y'.
           88  success  VALUE 'Y', 'y'.
       01  ws-x-10      PIC X(10).
       PROCEDURE DIVISION.
           DISPLAY "Enter 'y' if pressing the ALT and RIGHT-ARROW keys"
               LINE 1 COLUMN 1.
           DISPLAY "at the last column does not exit the field."
               LINE 2 COLUMN 1.
           DISPLAY "But the RIGHT-ARROW without ALT does exit."
               LINE 3 COLUMN 1.

           MOVE "ABCDE" TO WS-X-10.
           ACCEPT WS-X-10
               LINE 5 COLUMN 1
               WITH
                   AUTO-SKIP
                   SIZE 5
                   UPDATE.

           ACCEPT SUCCESS-FLAG
               LINE 7 COLUMN 1
               WITH UPDATE.

           IF success AND COB-CRT-STATUS = 0
               GOBACK RETURNING 0
           ELSE
               GOBACK RETURNING 1
           END-IF
           .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:3084: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:3084"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:3084"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:3085: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:3085"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:3085"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_58
#AT_START_59
at_fn_group_banner 59 'run_manual_screen.at:3090' \
  "CURSOR clause" "                                  " 1
at_xfail=no
(
  $as_echo "59. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:3093" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:3093"

cat >prog1.cob <<'_ATEOF'

       identification division.
       program-id. prog.

       environment division.
       configuration section.
       special-names.
           cursor is my-cur.
       data division.
       working-storage section.

       01 my-cur.
          05 my-row pic  9(3) value 0.
          05 my-col pic  9(3) value 0.

       77 loop      pic 99.
       77 cursor-moves-here pic x(20).

       screen section.

       01 screen-example .
          05 message1  value is "row (view only)   is " line 1 col 10.
          05 filler    pic 9(3) from  my-row.

          05 message2  value is "col (adjust only) is " line 2 col 10.
          05 filler    pic 9(3) using my-col.

          05 filler    pic x(20) using cursor-moves-here line 3 col 14.

       procedure division.

           perform varying loop from 1 by 1
                  until loop > 10
              display "screen accept no. "
                      at line 10 col 4
                      loop "/10"
              display screen-example
              accept  screen-example
           end-perform

           goback.
_ATEOF


# note: same test, but this time with different specified
#       special-names reference
cat >prog2.cob <<'_ATEOF'

       identification division.
       program-id. prog.

       data division.
       working-storage section.

       01 my-cur is special-names cursor.
          05 my-row pic  9(3) value 0.
          05 my-col pic  9(3) value 0.

       77 loop      pic 99.
       77 cursor-moves-here pic x(20).

       screen section.

       01 screen-example .
          05 message1  value is "row (view only)   is " line 1 col 10.
          05 filler    pic 9(3) from  my-row.

          05 message2  value is "col (adjust only) is " line 2 col 10.
          05 filler    pic 9(3) using my-col.

          05 filler    pic x(20) using cursor-moves-here line 3 col 14.

       procedure division.

           perform varying loop from 1 by 1
                  until loop > 10
              display "screen accept no. "
                      at line 10 col 4
                      loop "/10"
              display screen-example
              accept  screen-example
           end-perform

           goback.
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:3179: \$COMPILE prog1.cob"
at_fn_check_prepare_dynamic "$COMPILE prog1.cob" "run_manual_screen.at:3179"
( $at_check_trace; $COMPILE prog1.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:3179"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:3180: \$COMPILE prog2.cob"
at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_manual_screen.at:3180"
( $at_check_trace; $COMPILE prog2.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:3180"
$at_failed && at_fn_log_failure
$at_traceon; }


# user-instructions what to test is missing
$as_echo "run_manual_screen.at:3183" >"$at_check_line_file"
at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:3183"

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:3185: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog1"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog1" "run_manual_screen.at:3185"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog1
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:3185"
$at_failed && at_fn_log_failure
$at_traceon; }


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:3186: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog2"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog2" "run_manual_screen.at:3186"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog2
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:3186"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_59
#AT_START_60
at_fn_group_banner 60 'run_manual_screen.at:3191' \
  "CRT STATUS clause" "                              " 1
at_xfail=no
(
  $as_echo "60. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:3194" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:3194"

cat >prog1.cob <<'_ATEOF'

       identification division.
       program-id. prog.

       environment division.
       configuration section.
       special-names.
           crt status is my-status.
       data division.
       working-storage section.

       01 my-status.
          05 one     pic  X.
          05 two     pic  X.
          05 three   pic  X.
          05 four    pic  X.

       77 loop       pic 99.
       77 test-field pic x(5).

       screen section.

       01 screen-example .
          05 message1  value is "status:     " line 1 col 10.
          05 filler    pic x(4) from  my-status.

          05 message2  value is "test-field: " line 2 col 10.
          05 filler    pic x(5) using test-field.

       procedure division.

           set environment 'COB_SCREEN_EXCEPTIONS' to 'TRUE'
           set environment 'COB_SCREEN_ESC'        to 'TRUE'
           perform varying loop from 1 by 1
                  until loop > 10
              display "screen accept no. "
                      at line 10 col 4
                      loop "/10"
              display screen-example
              accept  screen-example
           end-perform

           goback.
_ATEOF


# note: same test, but this time with different specified
#       special-names reference
cat >prog2.cob <<'_ATEOF'

       identification division.
       program-id. prog.

       data division.
       working-storage section.

       77 my-status  pic 9(05) is special-names crt status.

       77 loop       pic 99.
       77 test-field pic x(5).

       screen section.

       01 screen-example .
          05 message1  value is "status:     " line 1 col 10.
          05 filler    pic 9(05) from  my-status.

          05 message2  value is "test-field: " line 2 col 10.
          05 filler    pic x(5) using test-field.

       procedure division.

           set environment 'COB_SCREEN_EXCEPTIONS' to 'TRUE'
           set environment 'COB_SCREEN_ESC'        to 'TRUE'
           perform varying loop from 1 by 1
                  until loop > 10
              display "screen accept no. "
                      at line 10 col 4
                      loop "/10"
              display screen-example
              accept  screen-example
           end-perform

           goback.
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:3280: \$COMPILE prog1.cob"
at_fn_check_prepare_dynamic "$COMPILE prog1.cob" "run_manual_screen.at:3280"
( $at_check_trace; $COMPILE prog1.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:3280"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:3281: \$COMPILE prog2.cob"
at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_manual_screen.at:3281"
( $at_check_trace; $COMPILE prog2.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:3281"
$at_failed && at_fn_log_failure
$at_traceon; }


# user-instructions what to test is missing
$as_echo "run_manual_screen.at:3284" >"$at_check_line_file"
at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:3284"

{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:3286: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog1"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog1" "run_manual_screen.at:3286"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog1
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:3286"
$at_failed && at_fn_log_failure
$at_traceon; }


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:3287: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog2"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog2" "run_manual_screen.at:3287"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog2
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:3287"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_60
#AT_START_61
at_fn_group_banner 61 'run_manual_screen.at:3292' \
  "CRT STATUS clause" "                              " 1
at_xfail=no
(
  $as_echo "61. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:3295" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:3295"

cat >prog.cob <<'_ATEOF'

       identification division.
       program-id. prog-crt4.

       data division.
       working-storage section.

       01 crt4 pic 9(4) is special-names crt status.

       01 test-tab.
         05 test-01 pic x(20) value "Function key 01 1001".
         05 test-02 pic x(20) value "Function key 02 1002".
         05 test-03 pic x(20) value "Function key 03 1003".
         05 test-04 pic x(20) value "Function key 04 1004".
         05 test-05 pic x(20) value "Function key 05 1005".
         05 test-06 pic x(20) value "Prev-page key   2001".
         05 test-07 pic x(20) value "Next-page key   2002".

       01 test-rab-r redefines test-tab.
         05 test-data occurs 7 times.
           10 test-name         pic x(16).
           10 test-crt4         pic 9(4).

       01 linenr                pic 9(2) value 0.

       01 test-result-4         pic 9(4).

       01 return-value          pic 9 value 0.

       77 loop                  pic 9(2).
       77 test-field            pic x.


       procedure division.

       set environment 'COB_SCREEN_EXCEPTIONS' to 'TRUE'
       set environment 'COB_SCREEN_ESC'        to 'TRUE'

       perform forever
         display spaces with blank screen

         move 0 to return-value
         perform varying loop from 1 by 1 until loop > 7
           compute linenr = loop + 5

           display "Please press " line linenr, column 1
           display test-name(loop) line linenr, column 14

           move spaces to test-field
           accept test-field
            line linenr column 30

           display crt4 line linenr, column 30

           if crt4 = test-crt4(loop)
             display "passed" line linenr, column 36
           else
             move 1 to return-value
             display "failed" line linenr, column 36
           end-if
         end-perform

         if return-value = 0
           exit perform
         end-if

         display "Try again? (Y/n) " line 20, column 1
         move "Y" to test-field
         accept test-field line 20, column 18
         if not (test-field = "Y" or "y")
           exit perform
         end-if
       end-perform

       goback returning return-value
       .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:3375: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:3375"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:3375"
$at_failed && at_fn_log_failure
$at_traceon; }


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:3377: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:3377"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:3377"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_61
#AT_START_62
at_fn_group_banner 62 'run_manual_screen.at:3382' \
  "X/Open CRT STATUS clause" "                       " 1
at_xfail=no
(
  $as_echo "62. $at_setup_line: testing $at_desc ..."
  $at_traceon



$as_echo "run_manual_screen.at:3385" >"$at_check_line_file"
(test "$COB_HAS_CURSES" != "yes") \
  && at_fn_check_skip 77 "$at_srcdir/run_manual_screen.at:3385"

cat >prog.cob <<'_ATEOF'

       identification division.
       program-id. prog-crt3.

       data division.
       working-storage section.

       01 crt3 is special-names crt status.
         05 crt3-1   pic 9.
         05 crt3-2   usage binary-char unsigned.
         05 crt3-3   usage binary-char unsigned.

       01 test-tab.
         05 test-01 pic x(20) value "Function key 01 1001".
         05 test-02 pic x(20) value "Function key 02 1002".
         05 test-03 pic x(20) value "Function key 03 1003".
         05 test-04 pic x(20) value "Function key 04 1004".
         05 test-05 pic x(20) value "Function key 05 1005".
         05 test-06 pic x(20) value "Prev-page key   2001".
         05 test-07 pic x(20) value "Next-page key   2002".

       01 test-rab-r redefines test-tab.
         05 test-data occurs 7 times.
           10 test-name         pic x(16).
           10 test-crt31        pic 9.
           10 test-crt32        pic 9(3).

       01 linenr                pic 9(2) value 0.

       01 test-result-1         pic 9.
       01 test-result-3         pic 9(3).

       01 return-value          pic 9 value 0.

       77 loop                  pic 9(2).
       77 test-field            pic x.


       procedure division.

       set environment 'COB_SCREEN_EXCEPTIONS' to 'TRUE'
       set environment 'COB_SCREEN_ESC'        to 'TRUE'

       perform forever
         display spaces with blank screen

         move 0 to return-value
         perform varying loop from 1 by 1 until loop > 7
           compute linenr = loop + 5

           display "Please press " line linenr, column 1
           display test-name(loop) line linenr, column 14

           move spaces to test-field
           accept test-field
            line linenr column 30

           move crt3-1 to test-result-1
           display test-result-1 line linenr, column 30

           move crt3-2 to test-result-3
           display test-result-3 line linenr, column 32

           if test-result-1 = test-crt31(loop) and
            test-result-3 = test-crt32(loop)
             display "passed" line linenr, column 36
           else
             move 1 to return-value
             display "failed" line linenr, column 36
           end-if
         end-perform

         if return-value = 0
           exit perform
         end-if

         display "Try again? (Y/n) " line 20, column 1
         move "Y" to test-field
         accept test-field line 20, column 18
         if not (test-field = "Y" or "y")
           exit perform
         end-if
       end-perform

       goback returning return-value
       .
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:3475: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_manual_screen.at:3475"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:3475"
$at_failed && at_fn_log_failure
$at_traceon; }


{ set +x
$as_echo "$at_srcdir/run_manual_screen.at:3477: DESC=\"\$at_desc_line\" \$RUN_PROG_MANUAL \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "DESC=\"$at_desc_line\" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog" "run_manual_screen.at:3477"
( $at_check_trace; DESC="$at_desc_line" $RUN_PROG_MANUAL $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_manual_screen.at:3477"
$at_failed && at_fn_log_failure
$at_traceon; }



  set +x
  $at_times_p && times >"$at_times_file"
) 5>&1 2>&1 7>&- | eval $at_tee_pipe
read at_status <"$at_status_file"
#AT_STOP_62
