!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! On-line Help for procedures. Call sub-procedures named i_item,
! for simplified maintenance and clarity.
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
define logical verify
let verify sic%verify
sic verify off
!
let command "&1" /lower
defin char*64 task
!
if ((command.eq." ").or.(command.eq."?")) then
  SAY 'ansi%bold''ansi%blue'"W-IMAGER, INPUT and GO are obsolete/obsolescent commands in IMAGER"'ansi%zero'
  say "      Instead, use "
  say "         HELP Command"
  say "      and/or  "
  say "         COMMAND  ?"
  say "      for details about a Command (e.g. CLEAN ?)"
  say "------------------------------------------------------------------"
  say 'ansi%bold'" INPUT possibilities:"'ansi%none'
  @ imager-input-index.ima
else
  if file("gag_pro:i_'command'.ima") then
    @ i_'command'.ima &2 &3 &4 &5 &6 &7 &8 &9
  else if file("task#dir:'command'.init") then
    let task 'command' /upper
    say 'ansi%bold'"        "'task'" is a TASK with .init file:"'ansi%none'
    say " "
    type task#dir:'command'.init
    say 'ansi%bold'"        Use  RUN "'task'" /WIDGET to activate it"'ansi%none'
  else
    say 'ansi%bold'" No INPUT text for "'command''ansi%none'
    say " Type ""input ?"" to get the list of available commands"
  endif
endif
!
if (verify) sic verify on
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
