%%HP: T(1)A(R)F(.);
"!NO CODE
!RPL
::
  xDUP NULL$ EQ
  ?SKIP
  ::
    xPATH xHOME xSWAP
    xIF xBZ?
    xTHEN
    :: xBZU %1 ;
    xELSE %0
    xIFEND
    xIFERR
    :: ' ID CHECK.BZ xRCL ;
    xERRTHEN
    ::
      xDROP {}
      ' ID CHECK.BZ xSTO
      %1
    ;
    xIFEND
    xDROP
    ' ID CHECK.BZ xSTO+
    xSWAP xEVAL
  ;
;
@"