(FILECREATED "11-Jul-87 14:45:05" ("compiled on " {PHYLUM}<RAO>LISP>NC>NCKEY.;4) "12-Nov-85 14:59:23" recompiled exprs: nothing in "Koto / Loops / NoteCards 1.3K 11-Jun-87 ..." dated "11-Jun-87 17:42:02")(FILECREATED "11-Jul-87 14:44:53" {PHYLUM}<RAO>LISP>NC>NCKEY.;4 changes to: (VARS NCKEYCOMS *NCKEY-DEFAULT-DISPLAYMODE* *NCKEY-DEFAULT-LINKTYPE* *NCKEY-BINDINGS* *NCKEY-DEFAULT-TITLE*) (FNS NCKEY-DISPATCHER NCKEY-BUILD-HELP NCKEY-HELP NCKEY-MAP-LINKS NCKEY-CREATE-LINK-WITH-TEXT NCKEY-ENTITLE NCKEY-CREATE-LINK-WITH-TITLE) previous date: "26-Jun-87 17:32:08" {PHYLUM}<RAO>LISP>NC>NCKEY.;3)NCKEY-DISPATCHERA0001 D1(NAME ERRORSET P 7 ACTIONFN P 6 ENTRY P 4 CARD P 0 KEY F 10Q RESETVARSLST F 11Q TEXTSTREAM F 12Q RESETY F 13Q *NCKEY-BINDINGS* F 14Q SEL)  È g  i	  hhWc¿g  h	  hhWc¿g  g  	  hhWc¿i	  1W	  L´qW!Mµ"Od²X˜Ol
  ²HLd	  WWlO°E^Y–Il
  ”NHðˆNh»Zµh•N_¿M]°¹[Hð•K³ïi°ëJ°âO	  ‡do     h‡do     ci (300Q NCP.PrintMsg 265Q NCP.PrintMsg 254Q EVAL 175Q \TYPEMASK.UFN 146Q NCP.CardNoteFile 137Q \TYPEMASK.UFN 103Q NCP.CardFromTextStream 73Q READC 54Q CARET 30Q ECHOMODE 6 CONTROL)(51Q OFF 46Q CARET 24Q ECHOMODE 2 CONTROL)( 275Q "The current TEDIT is not a NoteCard" 262Q "The Key is not bound to a NCKEY Function")NCKEY-DISPATCHER D1(P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 3 LISPXHIST F 4 RESETVARSLST)  " S!To   g  
  ‘h‚g  Z
  J“  I (35Q ERROR! 30Q RESETRESTORE 16Q NCKEY-DISPATCHERA0001)(24Q ERROR 13Q INTERNAL)( 10Q (NCKEY-DISPATCHERA0001))NCKEY-BUILD-HELP D1(P 5 TRIPLE P 0 ITEMS F 11Q *NCKEY-BINDINGS* F 12Q *NCKEY-HELP-MENU*)  À	  PW°dMµ_o   H¸o   HXµç`  H	  ºdJ¿dl¿di¿g  l

  »dK¿dg   ¿dg  ¿jdnÿdh¼dL
¿chg  Mho   hH¸MY–Il
  –M	  °%0M°d	  ¾OµNh_N&_¿µéOhh±ÿ^ (240Q CHARDESC 222Q CHARDESC 214Q \TYPEMASK.UFN 102Q FONTCREATE 51Q DREVERSE)(161Q QUOTE 123Q DEFAULTMENUHELDFN 114Q CLRPROMPT 75Q HELVETICA 44Q MENUTYPE#)( 173Q "Function which is performed by the key(s) to the right of the mouse" 31Q ("" NIL "") 22Q ("" NIL ""))NCKEY-HELP D1(I 0 WHATEVER F 0 *NCKEY-HELP-MENU*)    P	   (3 MENU)NIL()NCKEY-ENTITLE D1(P 0 TITLE I 3 SEL I 2 TEXTSTREAM I 1 NOTEFILE I 0 CARD)    BC
   @H
   (14Q NCP.CardTitle 4 TEDIT.SEL.AS.STRING)NIL()NCKEY-MAP-LINKS D1(P 0 LINK I 3 SEL I 2 TEXTSTREAM I 1 NOTEFILE I 0 CARD F 1 *NCKEY-DEFAULT-LINKTYPE* F 2 *NCKEY-DEFAULT-DISPLAYMODE*)  ! @hdA  °d HQ
  ¿HR
  µíh (30Q NCP.LinkDisplayMode 22Q NCP.LinkType 6 NCP.GetLinks)NIL()NCKEY-CREATE-LINK-WITH-TEXT D1(P 1 DESTSTREAM P 0 DESTCARD I 3 SEL I 2 TEXTSTREAM I 1 NOTEFILE I 0 CARD F 2 *NCKEY-DEFAULT-CARDTYPE* F 3 *NCKEY-DEFAULT-TITLE* F 4 *NCKEY-DEFAULT-LINKTYPE* F 5 *NCKEY-DEFAULT-DISPLAYMODE*)  6 RASi   H	  CIjdg    
  BC
  BC
  HI
  @HTU   (63Q NCP.CreateLink 54Q NCP.CardSubstance 47Q TEDIT.DELETE 42Q TEDIT.SETSEL 35Q TEDIT.COPY 32Q TEDIT.SETSEL 15Q NCP.CardSubstance 6 NCP.CreateCard)(27Q LEFT)()NCKEY-CREATE-LINK-WITH-TITLE D1(P 0 TITLE I 3 SEL I 2 TEXTSTREAM I 1 NOTEFILE I 0 CARD F 1 *NCKEY-DEFAULT-TITLE* F 2 *NCKEY-DEFAULT-CARDTYPE* F 3 *NCKEY-DEFAULT-LINKTYPE* F 4 *NCKEY-DEFAULT-DISPLAYMODE*)   BC
  µQ BC
  @RAHi  ST   (34Q NCP.CreateLink 27Q NCP.CreateCard 17Q TEDIT.DELETE 4 TEDIT.SEL.AS.STRING)NIL()(PRETTYCOMPRINT NCKEYCOMS)(RPAQQ NCKEYCOMS ((FILES (SYSLOAD FROM LISPUSERS) TEDITKEY) (* * User Parameters) (INITVARS (*NCKEY-DEFAULT-TITLE* "Untitled") (*NCKEY-DEFAULT-DISPLAYMODE*) (*NCKEY-DEFAULT-CARDTYPE* (QUOTE Text)) (*NCKEY-DEFAULT-LINKTYPE* (QUOTE Unspecified))) (INITVARS (*NCKEY-BINDINGS* (QUOTE (((J j) NCKEY-CREATE-LINK-WITH-TITLE "Inserts a Link Using Selection as Title") ((K k) NCKEY-CREATE-LINK-WITH-TEXT "Inserts a Link Using Selection as Text") ((R r) (NCHACKS.RemoveDeletedIconsFromTextCards CARD) "Removes Deleted Link Icons") ((T t) NCKEY-ENTITLE "Sets Title Using Selection") ((L l) NCKEY-MAP-LINKS "Coerces Links using Global Parameters") NIL ((?) NCKEY-HELP "Brings Up Help Menu"))))) (* * Global Variables) (VARS (*NCKEY-HELP-MENU*)) (FNS NCKEY-DISPATCHER NCKEY-BUILD-HELP) (FNS NCKEY-HELP NCKEY-ENTITLE NCKEY-MAP-LINKS NCKEY-CREATE-LINK-WITH-TEXT NCKEY-CREATE-LINK-WITH-TITLE) (P (NCKEY-BUILD-HELP)) (P (SETQ TEDITKEY.KEYBINDINGS (UNION (APPEND TEDITKEY.KEYBINDINGS (QUOTE (NIL))) (QUOTE ((NCKEY-DISPATCHER (%##W %##w) "NCKey Evaluator"))))) (\TK.BUILD.MENU) (TEDITKEY.INSTALL))))(FILESLOAD (SYSLOAD FROM LISPUSERS) TEDITKEY)(RPAQ? *NCKEY-DEFAULT-TITLE* "Untitled")(RPAQ? *NCKEY-DEFAULT-DISPLAYMODE*)(RPAQ? *NCKEY-DEFAULT-CARDTYPE* (QUOTE Text))(RPAQ? *NCKEY-DEFAULT-LINKTYPE* (QUOTE Unspecified))(RPAQ? *NCKEY-BINDINGS* (QUOTE (((J j) NCKEY-CREATE-LINK-WITH-TITLE "Inserts a Link Using Selection as Title") ((K k) NCKEY-CREATE-LINK-WITH-TEXT "Inserts a Link Using Selection as Text") ((R r) (NCHACKS.RemoveDeletedIconsFromTextCards CARD) "Removes Deleted Link Icons") ((T t) NCKEY-ENTITLE "Sets Title Using Selection") ((L l) NCKEY-MAP-LINKS "Coerces Links using Global Parameters") NIL ((?) NCKEY-HELP "Brings Up Help Menu"))))(RPAQQ *NCKEY-HELP-MENU* NIL)(NCKEY-BUILD-HELP)(SETQ TEDITKEY.KEYBINDINGS (UNION (APPEND TEDITKEY.KEYBINDINGS (QUOTE (NIL))) (QUOTE ((NCKEY-DISPATCHER (%##W %##w) "NCKey Evaluator")))))(\TK.BUILD.MENU)(TEDITKEY.INSTALL)(PUTPROPS NCKEY COPYRIGHT ("Xerox Corporation" 1987))NIL