(FILECREATED "27-Jun-85 17:08:10" {EROS}<SPEECH>MAILREADER>CALLTEXT>PROSE-LOAD.;8
 4177   

      changes to:  (FNS P.LOADFILES)

      previous date: "22-May-85 18:10:11" {EROS}<SPEECH>MAILREADER>CALLTEXT>PROSE-LOAD.;7)


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

(PRETTYCOMPRINT PROSE-LOADCOMS)

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

(RPAQQ LOADDFLG
 ALWAYS)

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

(RPAQQ PROSEDEBUG
 NIL)
(DEFINEQ

(P.LOADFILES

  [LAMBDA (DIRLIST SYMBOLICFLG)                              (* BBB "27-Jun-85 17:07")


          (* * 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>))
    (
LOAD?
 (
QUOTE
 {ERIS}<LISPUSERS>LOADFILES.DCOM)
	   (
QUOTE
 SYSLOAD))
    (
LOAD?
 (
QUOTE
 (
QUOTE
 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
 ({EROS}<SPEECH>MAILREADER>CALLTEXT>)))
	       P.FILES
	       (
COND

		 (SYMBOLICFLG NIL)
		 (T (
QUOTE
 COM]
    (P.RS232.INIT T)
    (P.MODIFY.LAFITE
)
    (
LOAD
 (
QUOTE
 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 (793 4091 (P.LOADFILES 803 . 1862) (P.MODIFY.LAFITE 1864 . 2830) (P.RESTORE.LAFITE 2832
 . 3367) (P.RESTORE.RS232.DEFS 3369 . 4089)))))
STOP