****
*
*  DUMP.SUBRS.IBAS - DUMP THE SUBROUTINE CALL COMMON AREA
*
*  Last updated by DIGNAN (MIS.SNA.PROG.JDD) at 15:15:22 on 12/26/1986.
*
****
*                           R E V I S I O N   L O G
* PR#     WHEN     WHO        WHY
* ======= ======== ========== ==========================================
*         12/26/86 J DIGNAN   INITIAL CODING
*
****

$INSERT SYSLIB>INSERTS>STDDEF.INS.IBAS
$INSERT SYSLIB>INSERTS>STD.SUBROUTINES.INS.IBAS

      I = 1
      LOOP
      WHILE SUBRS$ARRAY(I)
         PRINT FMT(I,"3'0'R"): ' ': SUBRS$ARRAY(I)
         I += 1
      REPEAT

      RETURN

   END