SUBROUTINE FINDIU(NUM.INFO.USERS,MAX.NUM.INFO.USERS,NUMS,IDS,CODE)
****
*
LastUpdated... = "Rev: 17:05 19JUL88 REP UTILITIES 41 Z UTILITIES>BP>FINDIU.IBAS"
*
****
*
* Description:
*    This is an interlude to the INFO/BASIC FINDIU subroutine.  Which returns
* a list of users currently logged into the computer under INFORMATION.
*
* Files affected:
*    Inputs:
*
*    Outputs:
*
*    Both:
*
****
*                           R E V I S I O N   L O G
* PR#     WHEN     WHO        WHY
* ======= ======== ========== ==========================================
*         10-22-87 ATM        Initial coding
*
****



     NUM.INFO.USERS     = 0
     MAX.NUM.INFO.USERS = 0
     NUMS               = ""
     IDS                = ""
     CODE               = 0
     FINDIU = "%":"FINDIU"
     ####(5000,FINDIU)
     ####(1207)
     ####(2000,-3)
     ####(5000,NUM.INFO.USERS)
     ####(5000,MAX.NUM.INFO.USERS)
     ####(5000,NUMS)
     ####(5000,IDS)
     ####(5000,CODE)
     ####(1080)
     ####(1005)

     RETURN
  END