!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! 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
!
say " "
if ((command.eq." ").or.(command.eq."?")) then
   say 'bold'" INPUT & GO possibilities:"'norm'
   say " "
   @ greg-input-index.greg
   say " "
   if (sic%program.eq."mapping") then
      if file("gag_pro:mapping-input-index.map") then
         @ mapping-input-index.map
      else
         say " MAPPING help not found..."
      endif
      say " "
   else if (sic%program.eq."las90") then
      if file("gag_pro:class-input-index.class") then
         @ class-input-index.class
      else
         say " CLASS help not found..."
      endif
      say " "
   endif
   say 'bold'" Type: INPUT command-name for further information on a command"'norm'
   say 'bold'" Type:    GO command-name to execute a command"'norm'
else
   if file("gag_pro:i_'command'.greg") then
      @ i_'command'.greg &2 &3 &4 &5 &6 &7 &8 &9
      symbol inp "INPUT "'command'
   else if file("gag_pro:i_'command'.map") then
      @ i_'command'.map &2 &3 &4 &5 &6 &7 &8 &9
      symbol inp "INPUT "'command'
   else if file("gag_pro:i_'command'.class") then
      @ i_'command'.class &2 &3 &4 &5 &6 &7 &8 &9
      symbol inp "INPUT "'command'
   else if file("task#dir:'command'.init") then
      say 'bold''command'" is a TASK with .init file:"'norm'
      type task#dir:'command'.init
   else
      say 'bold'" No INPUT text for "'command''norm'
      say " Type ""input ?"" to get the list of available commands"
   endif
endif
say " "
!
if (verify) then
   sic verify on
endif
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
