CIF NOT RCPNO
  SYMBOL ZZ = ""
CELSE
LOCAL rwrk
  SYMBOL ZZ = "''|RCPNO|"
ENDCIF
MAP1 rno|ZZ|,F
       IRPT'SYRTOP:
         rno|ZZ| = 1
       IRPT2'SYRTOP:
         XCALL RPT,rno|ZZ|,WRPT|ZZ|,0
       IF ((rdvf+RBIN)*6) > 0.98*MEM(0) THEN
          ENTRY = "Not enough memory to call IRPT"
          CALL DO'ERR
          GOTO ABORT
       ENDIF
       DIM rwrk(rdvf)
       DIM RPT'AC(RBIN)
         XCALL RPT,rno|ZZ|,WRPT|ZZ|,rwrk(1),RPT'AC(1),TOP'SPACE
         RETURN
REXCMP|ZZ|:
         RETURN
REXSUM|ZZ|:
         RETURN