File indexing completed on 2025-12-14 05:48:21
0001 do_tests() {
0002 tput cup 0 0; printf "$@"
0003
0004 for i in {0..16}; do tput cup $i 0; printf "\e#6"; done
0005
0006 tput cup 0 $((COLUMNS/2-1)); printf "AB"
0007 tput cup 3 $((COLUMNS/2-1)); printf "A\bB"
0008 tput cup 6 $((COLUMNS/2-1)); printf A; tput cud 1; printf B
0009 tput cup 9 $((COLUMNS/2-1)); printf A; tput cuu 1; printf B
0010 tput cup 12 $((COLUMNS/2-1)); printf A; tput cub 1; printf B
0011 tput cup 15 $((COLUMNS/2-1)); printf A; tput cuf 1; printf B
0012
0013 tput cup 18 1; echo -n -- "-- Press RETURN to run next test --"
0014 read
0015 #sleep 5
0016 }
0017
0018 clear; tput smam
0019 do_tests "No Reverse Wrap - AutoWrap Mode"
0020
0021 clear; tput rmam
0022 do_tests "No Reverse Wrap - No AutoWrap Mode"
0023
0024
0025 clear; tput smam; printf "\e[?45h"
0026 do_tests "Reverse Wrap - AutoWrap Mode"
0027
0028 clear; tput rmam; printf "\e[?45h"
0029 do_tests "Reverse Wrap - No AutoWrap Mode"
0030
0031
0032 clear; tput smam; printf "\e[?45l"