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

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.