WBStartup
;NoCli

; You need a drawer containing all .fd files
; and an assignment FD: to that drawer.
;


STRPTR.l=AllocMem_(50,#MEMF_CLEAR)

;Defines a TagList
;
Dim Tags.TagItem(2)
Tags(0)\ti_Tag=#IDTAG_FuncNameStr,STRPTR ;Where IdFunction returns the
                                         ;function's name corresponding
                                         ;to the given offset
Tags(1)\ti_Tag=#IDTAG_StrLength,50
Tags(2)\ti_Tag=#TAG_DONE

;Displaying all functions name for identify.library using
; IdFunction_
;
offset=0
Repeat
  Error=IdFunction_("identify",30+offset*6,&Tags(0))
  If Error=0 NPrint Peek$(STRPTR)
  offset+1
Until Error
Delay_ 50