! 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