SUBROUTINE AT$HOM(PATH,ERROR)
****
*
LastUpdated... = "Rev: 15:13 26OCT87 MIS.SNA.PROG.ATM <D4.3>DEVEL 47 Z <D4.3>DEVEL>UTILITIES>BP>AT$HOM.IBAS"
*
****
*
* Description:
*    This is an interlude to the Primos subroutine AT$HOM (attach).  It is
* created to provide access to this subroutine after INFO 7.0.  At which point
* the ####() will go away.
*
* Files affected:
*    Inputs:
*
*    Outputs:
*
*    Both:
*
****
*                           R E V I S I O N   L O G
* PR#         WHEN     WHO        WHY
* ========= ======== ========== ==========================================
*         10-26-87 ATM        Initial coding
*
****


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

     LENGTH = LEN(PATH)
     LOW = MOD(LENGTH,256)
     ACCT = CHAR(((128 + LENGTH) - LOW)) : CHAR((128 + LOW)) : PATH

     AT$HOM = "%":"AT$HOM"
     ####(5000,AT$HOM)
     ####(1207)
     ####(2000,-3)
     ####(5000,0)
     ####(5000,ACCT)
     ####(5000,ERROR)
     ####(1080)
     ####(1003)

     RETURN
  END