(50g) FNINVARS: Object finder for couch hackers

[Gerald H]

I wrote this programme to find a string in the variables of a directory:

Code:

::
  CK1&Dispatch
  BINT3
  ::
    '
    LAM O
    BINT1
    DOBIND
    DOVARS
    '
    ::
      DUPDUP
      ID>$
      BIGDISPROW3
      XEQRCL
      FPTR 4 2
      LAM O
      BINT1
      POSCHR
      #0=case
      DROP
    ;
    ONEFALSE
    ROMPTR E8 10
    ABND
  ;
;