SUBROUTINE WHO.TEXT(TEXT)
****
*
LastUpdated... = "Rev: 17:26 12DEC88 MIS.ATM <DATA2>REP 34 Z UTILITIES>BP>WHO.TEXT.IBAS"
*
****
*                           R E V I S I O N   L O G
* PR#     WHEN     WHO        WHY
* ======= ======== ========== ==========================================
*         23NOV86  MCLAUGHLIN INITIAL CODING
* 001     24FEB87  MCLAUGHLIN Enhance to use STD.SUBROUTINES insert.
*
****
$INSERT ANDREW>INSERTS>STANDARD.SYMBOLS
     FULL.PATH$ = '*FULL.PATH'
     SPACES = '   '
     SYSTEM.ID = '6350'
     ENG.REV = ''
     MAN.REV = ''
     INFO.SERIES = ''
*     CALL *CPUID$(SYSTEM.ID,MAN.REV,ENG.REV,INFO.SERIES)
     WHO = ''
     CALL @FULL.PATH$(WHO)                                         ;*[001]
     PT  = 'System ':SYSTEM.ID        :SPACES
     PT := 'user ':('000':@USERNO)[3] :SPACES
     PT := 'login ':@LOGNAME          :SPACES
     PT := 'logto ':WHO
     TEXT = PT
     RETURN

  END