(FILECREATED "11-Aug-86 11:00:00" {ROSEBOWL}<FEUERMAN>LISP>NCSERVER>NCCLIENTCALLER.;4
 1981   

      changes to:  (COURIERPROGRAMS NoteCardsClient)

      previous date: " 1-Aug-86 18:39:42" {ROSEBOWL}<FEUERMAN>LISP>NCSERVER>NCCLIENTCALLER.;3)


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

(PRETTYCOMPRINT NCCLIENTCALLERCOMS)

(RPAQQ NCCLIENTCALLERCOMS
 ((* This file will load the NoteCardsClient Courier Program without the 
				IMPLEMENTEDBY statements. Thus, no one can use this machine as a 
				Client Listener.)
			     (FILES NCCOURIER)
			     (COURIERPROGRAMS NoteCardsClient)))



(* This file will load the NoteCardsClient Courier Program without the IMPLEMENTEDBY 
statements. Thus, no one can use this machine as a Client Listener.)


(FILESLOAD NCCOURIER)

(COURIERPROGRAM NoteCardsClient
 (1508 1)
    TYPES

      [(CARDPART (ENUMERATION (SUBSTANCE 0)
			      (TOLINKS 1)
			      (FROMLINKS 2)
			      (TITLE 3)
			      (PROPLIST 4)
			      (GLOBALTOLINKS 5]
    PROCEDURES

      ((CardCreated 1 (UID UID)
		    RETURNS
		    (BOOLEAN)
		    REPORTS
		    (ServiceNotImplemented))
       (CardDeleted 2 (UID UID)
		    RETURNS
		    (BOOLEAN)
		    REPORTS
		    (ServiceNotImplemented))
       (WriteLockObtained 3 (UID UID CARDPART)
			  RETURNS
			  (BOOLEAN)
			  REPORTS
			  (ServiceNotImplemented))
       (CardPartChanged 4 (UID UID CARDPART)
			RETURNS
			(BOOLEAN)
			REPORTS
			(ServiceNotImplemented))
       (WriteLockReleased 5 (UID UID CARDPART)
			  RETURNS
			  (BOOLEAN)
			  REPORTS
			  (ServiceNotImplemented))
       (CardActivated 6 (UID UID)
		      RETURNS
		      (BOOLEAN)
		      REPORTS
		      (ServiceNotImplemented))
       (FetchUserName 7 NIL RETURNS (STRING)
		      REPORTS
		      (ServiceNotImplemented)))
    ERRORS

      ((ServiceNotImplemented 1 (STRING)))
    INHERITS

      NIL)
(PUTPROPS NCCLIENTCALLER COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP