#
# HELP: SYNOPSIS:
# HELP:     generic/menu/loadpal
# HELP:
# HELP: DESCRIPTION:
# HELP:     Ask for a palette file and load it.
#
CECHO ${$root.func.var.new("string","tmp")}
VARFROMPROCESS tmp eccet_openfile loadpal ${$root.global.dir.clut}
IF ${$tmp=="."} QUIT
VIEW_LOADCLUT ${$tmp}
DISP 1
