(FILECREATED "18-Dec-84 16:30:13" {ICE}<TRILLIUM>BIRTHDAY84>SOURCES>FIXES>TRI-FIX-FNS.;2
 680    )


(PRETTYCOMPRINT TRI-FIX-FNSCOMS)

(RPAQQ TRI-FIX-FNSCOMS
 ((FNS ACQUIRE.INTERFACE.NAME)))
(DEFINEQ

(ACQUIRE.INTERFACE.NAME

  [LAMBDA NIL                                                (* PH "18-Dec-84 16:23")


          (* * Changed to print out a message if there are no interfaces in the system)



    (DECLARE
 (GLOBALVARS INTERFACES))
    (COND
      (INTERFACES (MENU (create
 MENU
				ITEMS ← INTERFACES
				TITLE ← "Interfaces"
				CENTERFLG ← T
				CHANGEOFFSETFLG ← T)))
      (T (TRILLIUM.PRINTOUT T "No interfaces!" T])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (197 658 (ACQUIRE.INTERFACE.NAME 207 . 656)))))
STOP