NATFEAT.LST

' *** by Petr Stehlik 2003
> FUNCTION init_natfeats
  IF NOT @get_cookie("__NF",nf_cookie%)
    PRINT "NF COOKIE NOT FOUND!"
    RETURN 0
  ENDIF
  '
  IF {nf_cookie%}<>&H20021021
    PRINT "NF COOKIE WITH BAD MAGIC"
    RETURN 0
  ENDIF
  '
  RETURN nf_cookie%
ENDFUNC
> PROCEDURE nf_get_name(nf_ptr%,VAR nf_name$)
  nf_id%={nf_ptr%+4}
  nf_call%={nf_ptr%+8}
  '
  nfstr$=SPACE$(80)
  CHAR{V:nfstr$}="NF_NAME"
  nid%=C:nf_id%(L:V:nfstr$)
  '
  buffer$=SPACE$(80)
  size%=LEN(buffer$)
  nf_name_ptr%=V:buffer$
  ~C:nf_call%(L:nid%,L:nf_name_ptr%,L:size%)
  nf_name$=CHAR{nf_name_ptr%}
  '
  '  PRINT "Debug info: NatFeat(NF_NAME)=";nf_name$
RETURN
> FUNCTION is_aranym
  nf_cookie%=@init_natfeats
  '
  IF nf_cookie%=0
    RETURN FALSE
  ENDIF
  '
  nf_get_name(nf_cookie%,nf_name$)
  '
  IF UPPER$(nf_name$)="ARANYM"
    RETURN TRUE
  ELSE
    RETURN FALSE
  ENDIF
ENDFUNC
' ***