alias ismirc {
  ; Declare local variables for storing list of undocumented identifiers/commands
  var %f $+(",$findfile($mircdir,mirc.hlp,1),"),%r return,%e echo $color(i) -ea,%i $iif($!* iswm $1,1),%s $iif($!* iswm $&
    $1,identifier.,command.),%c $eval($remote $beta $nopnick $nvnick  $nhopnick $* $r $colour $nickmode $true $false $yes $no  $ok $&
    $cancel $hfile $lof $bits $evalnext $initopic $dir $auto $banlist $token  $rnick $mp3 $wavedir $mp3dir $mididir $addtokcs  $findtokcs $&
    $istokcs $matchtokcs $remtokcs $reptokcs $sorttokcs $wildtokcs  $getdir $inpaste $trust $! $? /xyzzy /colour /closemsg  /clearial $&
    /quote /auto /leave /registration /action /else /elseif  /setlayer /notice /username,0),%l %e ** $1 is a built in %s
  ; If it's an identifier such as $1-2 or an undocumented command/identifier then proceed
  if ((i* iswm %s) && ($regex($mid($1,2),^\d+-*\d*$))) || ($istok(%c $!&,$1,32)) { goto y }
  if (!$1) || (!$regex($1,^\$|/)) {
    %e Specify a command/identifier to search for $iif(!$1,(remember to use ! in identifiers to keep them from evaluating))
    %r
  }
  if (!%f) { %e Help file missing | %r }
  if ($version < 6.1) { %e mIRC version 6.1 or greater required.  | %r }
  ; Read the contents of the help file into a binary variable and search for the requested command/identifier within it
  bread %f 1 $lof(%f) &t
  var %p = $bfind(&t,1,$1)
  if (%p && !$bvar(&t,$calc(%p -1))) && (!$bvar(&t,$calc($len($1)+%p))) {
    :y
    if ($isid) { %r 1 }
    %l
    %r
  }
  ; Output results
  if ($isid) { %r 0 }
  $instok(%l,not,7,32)
}