!
PROCEDURE GILDAS_HELP		! Get the help buffer
if get_info(help_buffer,"type") = UNSPECIFIED
then
    help_buffer := create_buffer("HELP");
    set(eob_text,help_buffer,'');
    set(no_write,help_buffer);
    set(system,help_buffer);
    set(width,info_window,get_info(screen,'width'));
endif;
set(status_line,info_window,reverse,'Press CTRL-Z to leave prompts THEN CTRL-F to resume editing');
map(info_window,help_buffer);
ENDPROCEDURE
!
! For GILDAS
!	GOLD ?				Help on current task
PROCEDURE TASK_HELP
    local task_name;
    task_name := get_info(command_line,"FILE_NAME");
    task_name := file_parse(task_name," "," ",NAME);
    task_name := file_parse(task_name,"GILDAS_HELP:",".HLP");
    gildas_help;
    read_file(task_name);
    position (beginning_of (help_buffer));
ENDPROCEDURE
!
define_key('task_help',key_name('?',SHIFT_KEY),"Current Task Help");
define_key('unmap(info_window)',ctrl_f_key,"ctrl_f");
MESSAGE ("Use key GOLD ? for help on current task");