(FILECREATED " 1-Apr-85 16:19:36" {ERIS}<SPEECH>MAILREADER>CALLTEXT>TALK.;1
 5818   

      changes to:  (FNS READPORT P.READBUFFER PROSE.STOP)

      previous date: "25-Feb-85 19:01:01" {ERIS}<SPEECH>MAILREADER>TALK.;4)


(PRETTYCOMPRINT TALKCOMS)

(RPAQQ TALKCOMS
 [(FNS CLEAR.PROSE P.ESC.SEQ P.READBUFFER P.RESET PHONEMEMODE PROSE.COMMENCE.OUTPUT 
		      PROSE.ESC.SEQ PROSE.RESET PROSE.STOP READPORT RESET.PROSE SAY)
		 (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
										       (NLAML)
										       (LAMA 
											P.ESC.SEQ])
(DEFINEQ

(CLEAR.PROSE

  [LAMBDA NIL                                                (* mmw: "20-Sep-84 21:37")

    (
RS232CLEARBUFFER
 (
QUOTE
 BOTH))
    (for
 BYTE in
 (
LIST
 27 (
CHCON1
 (
QUOTE
 %[))
		       (
CHCON1
 (
QUOTE
 C)))
       do
 (
RS232WRITEBYTE
 BYTE T) finally
 (
PROGN
 (
RS232WRITEBYTE
 18)
						 (
RS232FORCEOUTPUT
])

(P.ESC.SEQ

  [LAMBDA args                                               (* pkh: "22-Oct-84 11:28")

    (
PROG
 NIL                                                (* RS232WRITEBYTE 27)

                                                             (* RS232WRITECHARS (QUOTE %[))

          (for
 i from
 2 to
 (
SUB1
 args)
	     do
 (
PRINT
 (
MKSTRING
 (
ARG
 args i)))
		(
PRINT
 (
QUOTE
 ;)))
          [
COND

	    ((
IGEQ
 args 2)
	      (
PRINT
 (
MKSTRING
 (
ARG
 args args]
          (
PRINT
 (
ARG
 args 1)
		 T])

(P.READBUFFER

  [LAMBDA NIL                                                (* BBB " 1-Apr-85 14:51")

                                                             (* Read RS232 input buffer until it is empty, find what

							     characters the bytes correspond to and return them as a

							     string)


          (* for X while (SETQ X (RS232READBYTE)) collect X finally (RETURN (PACK (for X in $$VAL collect 

	  (CHARACTER X)))))



    ])

(P.RESET

  [LAMBDA (PRINTOUT
)                                         (* pkh: "21-Nov-84 10:28")

    (
RS232WRITEBYTE
 18 T)                                    (* Sending <DC2>)

    (
BLOCK
 6000)
    (
COND

      (PRINTOUT (printout
 T "Prose returned: " (P.READBUFFER
)
			  T])

(PHONEMEMODE

  [LAMBDA (ON/OFF)                                           (* mmw: "20-Sep-84 15:36")


          (* * comment)



    (
PROG
 (OUTPUTBYTES)
          (
RS232WRITEBYTE
 27)
          (
RS232WRITEBYTE
 91)
          (if
 (
EQ
 ON/OFF (
QUOTE
 ON))
	      then
 (
RS232WRITECHARS
 "1I")
	    elseif
 (
RS232WRITECHARS
 "0I"))
          (for
 BYTE in
 OUTPUTBYTES do
 (
RS232WRITEBYTE
 BYTE T) finally
 (
RS232FORCEOUTPUT
))
          (
RS232FORCEOUTPUT
)
          (
RETURN
 (READPORT
])

(PROSE.COMMENCE.OUTPUT

  [LAMBDA NIL                                                (* mmw: "19-Oct-84 16:48")


          (* * comment)



    (
RS232WRITEBYTE
 27)
    (
RS232WRITECHARS
 "[C" T])

(PROSE.ESC.SEQ

  [LAMBDA (SEQUENCE)                                         (* edited: "17-Jan-85 14:27")

    (
RS232WRITEBYTE
 27)
    (
RS232WRITEBYTE
 91)
    (
RS232WRITECHARS
 SEQUENCE)
    (
RS232FORCEOUTPUT
])

(PROSE.RESET

  [LAMBDA NIL                                                (* pkh: "21-Nov-84 10:28")

    (
RS232CLEARBUFFER
 (
QUOTE
 BOTH))
    (
RS232WRITEBYTE
 18 T)
    (printout
 T "Waiting for 6 secs.......")
    (
BLOCK
 6000)
    (printout
 T T "Prose returned:  " (P.READBUFFER
)
	      T])

(PROSE.STOP

  [LAMBDA NIL                                                (* BBB " 1-Apr-85 15:54")

    (PROSE.ESC.SEQ
 (
QUOTE
 S))
    (
READ.TTS
])

(READPORT

  [LAMBDA NIL                                                (* BBB " 1-Apr-85 14:15")

                                                             (* for BYTE while (NOT (NULL 

							     (SETQ BYTE (RS232READBYTE)))) collect BYTE finally 

							     (RETURN $$VAL))

    (
READ.TTS
])

(RESET.PROSE

  [LAMBDA NIL                                                (* mmw: "18-Sep-84 15:27")


          (* * comment)



    (
PROG
 (OUTPUTBYTES)
          [
SETQ
 OUTPUTBYTES (
APPEND
 OUTPUTBYTES (
LIST
 27 (
CHCON1
 (
QUOTE
 %[))
						      0
						      (
CHCON1
 (
QUOTE
 I]
          (for
 BYTE in
 OUTPUTBYTES do
 (
RS232WRITEBYTE
 BYTE) finally
 (
RS232FORCEOUTPUT
])

(SAY

  [LAMBDA (INSTRING)                                         (* pkh: "21-Nov-84 10:28")

                                                             (* FOR BYTE IN OUTPUTBYTES DO 

							     (RS232WRITEBYTE BYTE) FINALLY 

							     (RS232FORCEOUTPUT))


          (* * comment)



    (
PROG
 ((STRING (
SUBSTRING
 INSTRING 1))
	   CHAR OUTPUTBYTES PHONEMEMODE (ESCAPECHAR (
CHCON1
 (
QUOTE
 ←)))
	   (PORTCONTENT.BEFORE (READPORT
)))
          (PROSE.RESET
)
          (
BLOCK
 3000)
          (
SETQ
 PORTCONTENT.BEFORE (READPORT
))
          [while
 (
SETQ
 CHAR (
GNC
 STRING))
	     do
 [
COND

		  ((
EQ
 (
CHCON1
 CHAR)
		       ESCAPECHAR)
		    (
SETQ
 PHONEMEMODE (
NOT
 PHONEMEMODE))
		    (
COND

		      (PHONEMEMODE
 (PHONEMEMODE
 (
QUOTE
 ON)))
		      (T (PHONEMEMODE
 (
QUOTE
 OFF]
		(
RS232WRITEBYTE
 (
CHCON1
 (TRANSCRIPT CHAR]
          (PROSE.COMMENCE.OUTPUT
)
          (
RETURN
 (
LIST
 PORTCONTENT.BEFORE (READPORT
])
)
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 P.ESC.SEQ)
)
(PUTPROPS TALK COPYRIGHT (NONE))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (583 5622 (CLEAR.PROSE 593 . 968) (P.ESC.SEQ 970 . 1545) (P.READBUFFER 1547 . 2018) (
P.RESET 2020 . 2329) (PHONEMEMODE 2331 . 2887) (PROSE.COMMENCE.OUTPUT 2889 . 3100) (PROSE.ESC.SEQ 3102
 . 3334) (PROSE.RESET 3336 . 3660) (PROSE.STOP 3662 . 3826) (READPORT 3828 . 4147) (RESET.PROSE 4149
 . 4577) (SAY 4579 . 5620)))))
STOP