A2osX/EXAMPLES/DISPFUNCS.txt

64 lines
1.6 KiB
Plaintext
Raw Permalink 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 defines standard functions used by multiple scripts
# 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"
CALL PRINTXY 7 0 ""
}
# 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
}
MAN
TEXT /MAKE/usr/share/make/makefuncs
TEXT /MAKE/usr/share/adm/help/dispfuncs