    ! User environment procedures.

    from Imp include Lognames, SSdef, Sysio

    record format buff fm   (byte class, type, short width, integer rest)
    own record (Iosb fm) Status
    own record (buff fm) buff

    external string (255) fn UINFS alias "EDWIN_UINFS" (integer I)
       string (255) TEMP
       external string (255) fn spec USERNAME alias "IMP_USER_NAME"
       external string (255) fn spec CURRENT PROMPT alias "IMP_CURRENT_PROMPT"
       switch SW(1:13)

       result = "" unless 1<=I<=13
       -> SW(I)

    SW(1): ! Username
           result = USERNAME

    SW(2): ! Delivery string
           TEMP = TRANSLATE ("EDWIN_DELIVER")
           TEMP = "NO DELIVERY INFO SET!" if TEMP="EDWIN_DELIVER"
           result = TEMP

    SW(3): ! Process start time
           result = "Not yet implemented"

    SW(4): ! Current prompt text
           result = current prompt

    SW(7): ! Surname
           result = "Not yet Implemented"

    SW(8): ! CFAULTS option
           result = "TT:"

    SW(10): ! Machine
            TEMP = TRANSLATE ("EDWIN_MACHINE")
            TEMP = "VAX" if TEMP="EDWIN_MACHINE"
            result = TEMP

    SW(*): result = ""
    end

    end of file