(FILECREATED "25-Feb-85 19:08:56" {ERIS}<SPEECH>MAILREADER>PROSE-LOAD.;13
 4383   

      changes to:  (FNS P.LOADFILES)
		   (VARS PROSE-LOADCOMS)

      previous date: "22-Feb-85 16:16:29" {ERIS}<SPEECH>MAILREADER>PROSE-LOAD.;12)


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

(PRETTYCOMPRINT PROSE-LOADCOMS)

(RPAQQ PROSE-LOADCOMS
 ((VARS LOADDFLG (P.FILES (QUOTE (PROSE-PHONE COMMUNICARD PROSE-LAFITE 
								   PROSE-CONTROLLER PROSE-UTIL TALK 
								   MAIL-READER-USERS PROSE-YIELD 
								   PROSE-LAFITE-MESSAGES)))
			     (PROSEDEBUG NIL))
		       (FNS P.LOADFILES P.MODIFY.LAFITE P.RESTORE.LAFITE P.RESTORE.RS232.DEFS)))

(RPAQQ LOADDFLG
 ALWAYS)

(RPAQQ P.FILES
 (PROSE-PHONE COMMUNICARD PROSE-LAFITE PROSE-CONTROLLER PROSE-UTIL TALK 
			    MAIL-READER-USERS PROSE-YIELD PROSE-LAFITE-MESSAGES))

(RPAQQ PROSEDEBUG
 NIL)
(DEFINEQ

(P.LOADFILES

  [LAMBDA (DIRLIST SYMBOLICFLG)                              (* BBB "20-Feb-85 11:26")


          (* * Loads the files necessary to drive the PROSE synthesizer)




          (* * Since ERIS is down we will do without LOADFILES but we need RS232 so we get it from our own directory)



    (pushnew
 DIRECTORIES (
QUOTE
 {ERIS}<LISPCORE>LIBRARY>))
    (pushnew
 DIRECTORIES (
QUOTE
 {ERIS}<LISP>HARMONY>LIBRARY>))
    (
LOAD?
 (
QUOTE
 {ERIS}<LISPUSERS>LOADFILES.DCOM)
	   (
QUOTE
 SYSLOAD))
    (
LOAD?
 (
QUOTE
 {ERIS}<LISP>HARMONY>LIBRARY>RS232.DCOM)
	   (
QUOTE
 SYSLOAD))                                  (* Setting baud rate to 1200 

							     (for unknown reasonl; 9600 ought to be just as good))

                                                             (* RS232BACKGROUND (QUOTE ON))

    [
LOADFILES
 (
OR
 DIRLIST (
QUOTE
 ({ERIS}<SPEECH>MAILREADER>)))
	       P.FILES
	       (
COND

		 (SYMBOLICFLG NIL)
		 (T (
QUOTE
 COM]
    (
P.RS232.INIT
 T)
    (P.MODIFY.LAFITE
)
    (
LOAD
 (
QUOTE
 {ERIS}<SPEECH>MAILREADER>PROSE-LAFITE-MESSAGES.DCOM))
    (
START.PROSE.PROCESSES
])

(P.MODIFY.LAFITE

  [LAMBDA NIL                                                (* pkh: "18-Jan-85 15:36")

                                                             (* Modifies LAFITE for use with the mail reader)

                                                             (* \LAFITE.BROWSE must be supplied with a menu item)

    (
MOVD
 (
QUOTE
 \LAFITE.BROWSE)
	  (
QUOTE
 ORIGINAL.LAFITE.BROWSE))
    (
MOVD
 (
QUOTE
 PROSE.LAFITE.BROWSE)
	  (
QUOTE
 \LAFITE.BROWSE))                            (* \LAFITE.PREPARE.BROWSER must have automatic confirm)

    (
MOVD
 (
QUOTE
 \LAFITE.PREPARE.BROWSER)
	  (
QUOTE
 ORIGINAL.LAFITE.PREPARE.BROWSER))
    (
MOVD
 (
QUOTE
 PROSE.LAFITE.PREPARE.BROWSER)
	  (
QUOTE
 \LAFITE.PREPARE.BROWSER))
    (
MOVD
 (
QUOTE
 \LAFITE.WRITE.PROFILE)
	  (
QUOTE
 ORIGINAL.LAFITE.WRITE.PROFILE))
    (
MOVD
 (
QUOTE
 PROSE.LAFITE.WRITE.PROFILE)
	  (
QUOTE
 \LAFITE.WRITE.PROFILE])

(P.RESTORE.LAFITE

  [LAMBDA (args...)                                          (* pkh: " 4-Jan-85 12:08")


          (* * Restores original definitions for LAFITE functions)



    (
MOVD
 (
QUOTE
 ORIGINAL.LAFITE.BROWSE)
	  (
QUOTE
 \LAFITE.BROWSE))
    (
MOVD
 (
QUOTE
 ORIGINAL.LAFITE.PREPARE.BROWSER)
	  (
QUOTE
 \LAFITE.PREPARE.BROWSER))
    (
MOVD
 (
QUOTE
 ORIGINAL.LAFITE.QUIT)
	  (
QUOTE
 \LAFITE.QUIT))
    (
MOVD
 (
QUOTE
 ORIGINAL.LAFITE.WRITE.PROFILE)
	  (
QUOTE
 \LAFITE.WRITE.PROFILE])

(P.RESTORE.RS232.DEFS

  [LAMBDA (args...)                                          (* pkh: " 4-Jan-85 12:17")


          (* * comment)



    (
MOVD
 (
QUOTE
 ORIGINAL.RS232FORCEOUTPUT)
	  (
QUOTE
 RS232FORCEOUTPUT))
    (
MOVD
 (
QUOTE
 ORIGINAL.RS232CLEARBUFFER)
	  (
QUOTE
 RS232CLEARBUFFER))
    (
MOVD
 (
QUOTE
 ORIGINAL.RS232WRITEBYTE)
	  (
QUOTE
 RS232WRITEBYTE))
    (
MOVD
 (
QUOTE
 ORIGINAL.RS232WRITECHARS)
	  (
QUOTE
 RS232WRITECHARS))
    (
MOVD
 (
QUOTE
 ORIGINAL.RS232WRITESTRING)
	  (
QUOTE
 RS232WRITESTRING))
    (
MOVD
 (
QUOTE
 ORIGINAL.RS232READBYTE)
	  (
QUOTE
 RS232READBYTE))
    (printout
 T "RS232 function definitions have been restored. " T])
)
(PUTPROPS PROSE-LOAD COPYRIGHT ("Xerox Corporation" 1984 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (884 4297 (P.LOADFILES 894 . 2068) (P.MODIFY.LAFITE 2070 . 3036) (P.RESTORE.LAFITE 3038
 . 3573) (P.RESTORE.RS232.DEFS 3575 . 4295)))))
STOP