(FILECREATED "19-Jun-85 16:10:11" {PHYLUM}<NOTECARDS>RELEASE1.2I>LIBRARY>NCFILECARD.;2
 983    

      previous date: "19-Jun-85 11:45:33" {PHYLUM}<NOTECARDS>RELEASE1.2I>LIBRARY>NCFILECARD.;1)


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT NCFILECARDCOMS)

(RPAQQ NCFILECARDCOMS
 ((FILES NCFILESUBSTANCE)
		       (* * Add file card type)
		       (FNS NC.AddFileCardType)
		       (P (NC.AddFileCardType))))
(FILESLOAD NCFILESUBSTANCE)
(* * Add file card type)


(DEFINEQ

(NC.AddFileCardType

  (LAMBDA NIL                                                (* fgh: "19-Jun-85 11:44")


          (* * Add a file card type to the card types list)



    (
NC.AddCardType
 (
QUOTE
 File)
		    (
QUOTE
 NoteCard)
		    (
QUOTE
 FILE)
		    NIL
		    (
LIST
 (
LIST
 (
QUOTE
 CardDisplayedInMenuFlg)
				T)))))
)
(NC.AddFileCardType)
(PUTPROPS NCFILECARD COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (514 881 (NC.AddFileCardType 524 . 879)))))
STOP