A2osX/TESTS/CURSORTEST.txt
2020-06-20 12:24:05 -04:00

81 lines
1.9 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

NEW
PREFIX
AUTO 4,1
#!/bin/sh
# This script tests various cursor related commands
# Clear Screen Function
FUNCTION CS {
ECHO \f
}
# Title Box Function
# CALL TBOX Str_Title
FUNCTION TBOX {
ECHO -N "\e[1;20H"
ECHO "\e[7m \e[0m"
SET LINE = 2
WHILE [ $LINE -NE 5 ]
ECHO -N "\e[${LINE};20H"
ECHO "\e[7m \e[0m \e[7m \e[0m"
SET LINE = $LINE + 1
LOOP
ECHO -N "\e[5;20H"
ECHO "\e[7m \e[0m"
ECHO -N "\e[3;22H $1"
}
# Print Inverse
FUNCTION INVERSE {
ECHO -N "\e[7m$1\e[0m"
}
# Print at Screen Location Function
# CALL PRINTXY Num_Row Num_Column Str_String
FUNCTION PRINTXY {
ECHO -N "\e[$1;$2H$3"
}
# Print Inverse At X Y
# CALL INVERSEXY Row Col String
FUNCTION INVERSEXY {
ECHO -N "\e[$1;$2H\e[7m$3\e[0m"
}
# STATUSLINE Function
# CALL STATUSLINE Str_Message
FUNCTION STATUSLINE {
ECHO -N "\e[24;0H\e[7m "
ECHO -N " \e[0m"
ECHO -N "\e[24;2H\e[7m$1\e[0m"
ECHO -N "\e[24;68H\e[7m"
TIME | CUT -M 10 -N 20
# SET DTIME = `TIME | CUT -M 10 -N 20`: ECHO -N ${DTIME}
ECHO -N "\e[0m"
}
# YesNoKeyPress Function
# CALL YNKP Returns 1(Y) or 0 (N)
FUNCTION YNKP {
ECHO Not yet implemented
}
# Get String At X Y Function
# CALL GETXY Num_Row Num_Column Num_Length
FUNCTION GETXY {
ECHO Not yet implemented
}
# Save Cursor Position
FUNCTION SAVECURSOR
{
ECHO -N "\e7"
}
# Restore Cursor Position
FUNCTION RESTORECURSOR
{
ECHO -N "\e8"
}
CALL CS
CALL TBOX " Cursor Tests"
CALL PRINTXY 10 10 "Before Save:"
CALL SAVECURSOR
CALL PRINTXY 15 20 "Randowm line at 15 20"
CALL RESTORECURSOR
ECHO "After Save"
CALL PRINTXY 20 1 "Exiting"
ECHO
MAN
TEXT /MAKE/USR/SHARE/TESTS/CURSORTEST