Purpose:  To read Tooltype value from Icon and print value to StdOut so
          an IconX/XIcon/IconJ script can get it's variable parameters
          from the icon instead of be in the script it'self or by the
          use of enviroment variables.

Use:      The code is pure and can be made Resident, it has the following
          WB 2.0 Template:-
          
INPUTS
       Template: TTTool FILE/A,TOOLTYPE,TOOLVALUE,DEFTOOL/S,NOQUOTE/S,NOLINE/S

    FILE Filename of the File with the Icon to search (note .info not needed)
    TOOLTYPE the Tooltype keyword to search for
    TOOLVALUE Specific Value To check for
    DEFTOOL Output the Default Tool string
    NOQUOTE Do not put output string within Qoute marks
    NOLINE  Do not output a new line character after the string


RESULTS

    RC=0 If no options given outputs list of all tooltypes
    RC=0 If the Tooltype exists (and matches TOOLVALUE if given)
    RC=5 If the Tooltype not found (or not matching TOOLVALUE if given)
    RC=10 If the required .info file is not found

    If the Tooltype in the Icon has a value this value is sent to STDOUT
    whether or not it matches the requested TOOLVALE

 PERMSSN    UID  GID    PACKED    SIZE  RATIO     CRC       STAMP          NAME
---------- ----------- ------- ------- ------ ---------- ------------ -------------
[generic]                  688    1366  50.4% -lh5- 5fbf Aug 16  1997 TTTool.readme
[generic]                  282     632  44.6% -lh5- 0be7 Aug 16  1997 TTTool11.info
[generic]                  643     896  71.8% -lh5- a4be Aug 16  1997 TTTool11/TTTool
[generic]                 1126    2552  44.1% -lh5- 1e94 Aug 16  1997 TTTool11/TTTool.doc
[generic]                  288     501  57.5% -lh5- e7b0 Aug 15  1997 TTTool11/TTTool.doc.info
[generic]                  206     462  44.6% -lh5- bd05 Aug 15  1997 TTTool11/TTTool.info
---------- ----------- ------- ------- ------ ---------- ------------ -------------
 Total         6 files    3233    6409  50.4%            Aug 18  1997