A2osX/EXAMPLES/DISPFUNCS.txt

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"
}
# 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