(FILECREATED "16-OCT-84 09:20:05" {DSK}JSYSTEM.;8
 89873  

      changes to:  (FNS JSET)

      previous date: "24-SEP-84 16:43:05" {DSK}JSYSTEM.;7)


(* Copyright (c) 1984 by J.Ikeo : Fuji Xerox Co., Ltd. - All rights reverved.)

(PRETTYCOMPRINT JSYSTEMCOMS)

(RPAQQ JSYSTEMCOMS
 ((FILES JSYSTEMDATA)
	(* Records)
	(RECORDS CHR KANJIENTRY SUFFIXENTRY HC HERALDKANACHARS)
	(* Macros)
	(MACROS \CHECKCARET NOOPERATION DICTADDROFFSET)
	(* Functions for Initializing JLisp)
	(FNS JSET JIN JLISPINIT)
	(FNS DLIONKEYMAP REPLACESOMEFUNCTIONS SETUPJFONTS CREATEVKBDW SETUPVKBDBITMAP 
	     OPENLOOKUPDICT SETUPINDEXARRAY CREATELOOKUPDICTLOCK SETHOMOSETLISTARRAY 
	     JLISPINSTALLEDP)
	(FNS EXCUSEFORNOVKBD HWTYPEISNOTDOLPHIN CREATESUFFIXENTRY JLISPISINSTALLED 
	     MAKEVKBDW CREATEINDEXARRAY)
	(* Functions for Monitor)
	(FNS MIRAIMONITOR MIRAIMONITORINIT MIRAIMONITORGETKEY CANCELP CANCELACTION 
	     DELETECHARS DELETEWORD TAILKANJICONVERSIONP KANAMODEP TAILKANJICONVERSION 
	     KANJICONVERSION ALPHANUMERICACTION LFKANAACTION CARRIAGERETURNACTION 
	     LINEDELETEACTION RETYPEACTION CTRLVACTION ESCACTION SPACEACTION 
	     DOUBLEQUOTEACTION LEFTPARACTION RIGHTPARACTION DEPOSITTOUTEN DEPOSITKUTEN 
	     LEFTBRKACTION RIGHTBRKACTION DEPOSITBARACTION ENGMODEACTION 
	     TOHIRAKANACONVERSIONP TOHIRAKANACONVERSION HIRAKANAMODEACTION 
	     TOKATAKANACONVERSIONP TOKATAKANACONVERSION KATAKANAMODEACTION MIRAIBOUT 
	     RETRIEVECODESFROMCHARS)
	(FNS SHOWVKBD SHOWVKBDW STARTLOOKUPPROCESS CREATEHERALDKANACHARS 
	     PUTNONJCHARONVKBD RESETPREVIOUSLASTKANAXPOS RESETRECENTKANACODES SETJMODE 
	     SETLASTKANAXPOS PUTJCHARONVKBD PATTERNFOR POPHERALDKANALIST NOOPERATION 
	     KANACODEP KANAISONVKBDP KILLUNUSEFULPROCESS CARETISINNEXTLINEP 
	     CARETSETPREVIOUSLEFT CLEARALLFOLLOWINGLASTKANA CLEARALLINLINE ALPHABETP 
	     ATOMINPUTP BALANCEDBRKP CLEARHERALD CLEARHERALDROMA CODEADDTOCHARS CREATECHR 
	     DELETEHERALDKANA DISPLAYHERALD DISPLAYHERALD1 ENGALPHANUMERICACTION ENGMODEP 
	     HELPARGP HIRAKANAMODEP INPUTFIGURE JCHARACTERP KANAALPHANUMERICACTION 
	     KANAFOR KATAKANAMODEP LBRKCOUNTDECREMENT LBRKCOUNTINCREMENT LOWEREIGHTBIT 
	     LPARCOUNTDECREMENT LPARCOUNTINCREMENT MAKEUPKANA MAKEUPKANAP NOTINSTRINGP 
	     NPROCESS NPROCESSP NUMERICORSPECIALCHARACTION RESETROMATREE 
	     RETRYKANJISELECTION ROMAINPUTACTION SETEOLFLAG STRINGINOUT TRAVERSEROMATREE 
	     TREELOOK TYPINGROMAP UPPEREIGHTBIT FETCHCHRCODEFIELD FETCHCHRJMODEFLAGFIELD 
	     FETCHHERALDKANACODES RESETVKBD RESETHERALDKANALIST RESETLASTKANAXPOS 
	     DISPLAYEDONNEXTLINEP CORRECTDISPLAYEDCHRXPOS DELIMITERACTION NORMALCHARCODEP 
	     NOSUCHROMAJI BACKUPROMATREE RESETCHARS SETHELPINGARGFLAG PATTERNMODEP 
	     FINDLASTJMODE TRAVERSEINDEXTREE)
	(FNS JDSPPRINTCHAR DISPLAYCHARACTER JADDCHAR BUFBOUT SETJFONT)
	(FNS DELETECHRFROMCHARS)
	(FNS CONVERTTOJISCODE)
	(* Functions for Kana-Kanji Conversion)
	(FNS GETCOMPLETELYMATCH GETINDEXTREE GETNEXTINDEXTREE GETPREHCLIST GETPHONICCODES 
	     HCDIFFERENCE PRECONVERTTOHCSINPAGES PREKANJIENTRYSELECTION PREKANJISELECTION 
	     CALCULATESOFTPOSITION CONVERTTOKANACODE CONVERTTOPHONICCODE 
	     NUMBEROFPHONICCODES CREATEDUMMYFASTENDENTRIES CREATEKANJIENTRY 
	     GETLOOKUPPHONICCODES GETSUFFIXHOMOSETLIST GETSUFFIXHOMOSETLIST1 
	     MAKEFASTENDENTRIESLIST MAKEFASTENDSUFFIXENTRIESLIST 
	     MAKEFASTENDSUFFIXENTRIESLIST1 MAKEHOMOSETSUBLIST MAKEPHONICREMAINDER 
	     MATCHTHEPHONICCODES READENTRY READPOSSET SOFTENDINGP KANAKANJICONVERSION 
	     CONVERTTOHCLIST DICTADDROFFSET ELIMINATEHEADZEROS ELIMINATETAILZEROS 
	     GETINDEXFILEWORD GETLOOKUPDICTWORD GetConnection MAKEBYTECONTENTSLIST 
	     KANATAIL KANATAIL1 ALLKANACODEP COLLECTKANJIENTRIES)
	(FNS CALCULATETOTALFREQ CALCULATETOTALFREQ1 MAKECODELIST MAKEHCLIST 
	     GETLONGESTENDINGPOSITION SELECTENTRIESWITHENDINGPOSITION)
	(FNS CONVERTTOKANJICODE CONVERTTOHCSINPAGES UNIQUIFY HCMEMBER SORTHCLIST SHOWHC 
	     SHOWHC1 BUILTDEFAULTKEY CENTERX CENTERY SHOWKANJIONVKBDW KEYFORCHAR 
	     FLASHVKBDW FLASHAREA)
	(FNS KEYFORCHARPROCESS1 KEYFORCHARPROCESS2 PROCESSSHOWHC)
	(FILES BITMAPFNS)
	(FILES CONVERTER DICT0)))
(FILESLOAD JSYSTEMDATA)



(* Records)


[DECLARE: EVAL@COMPILE 

(DATATYPE CHR
 (CODE XPOS STATE LPARCOUNT LBRKCOUNT INSTRINGP JMODEFLAG))

(DATATYPE KANJIENTRY
 (KANAKANJICODES FREQ))

(DATATYPE SUFFIXENTRY
 (KANAKANJICODES POS PRE FREQ))

(DATATYPE HC
 (TOTALFREQ CODELIST))

(DATATYPE HERALDKANACHARS
 (CODE XPOS PROCESS INDEXTREE))
]
(/DECLAREDATATYPE (QUOTE CHR)
		  (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER)))
(/DECLAREDATATYPE (QUOTE KANJIENTRY)
		  (QUOTE (POINTER POINTER)))
(/DECLAREDATATYPE (QUOTE SUFFIXENTRY)
		  (QUOTE (POINTER POINTER POINTER POINTER)))
(/DECLAREDATATYPE (QUOTE HC)
		  (QUOTE (POINTER POINTER)))
(/DECLAREDATATYPE (QUOTE HERALDKANACHARS)
		  (QUOTE (POINTER POINTER POINTER POINTER)))



(* Macros)


(DECLARE: EVAL@COMPILE 

(PUTPROPS \CHECKCARET MACRO
 (X (PROG [(DS (EXPANDMACRO (CAR X)
						       T))
				      (TTYD (EXPANDMACRO (QUOTE (TTYDISPLAYSTREAM))
							 T))
				      (FORM (QUOTE (PROGN (AND \CARETFLG (\SHOWCARET
								 (TTYDISPLAYSTREAM)))
							  (SETQ \CARETDOWN T]
                                                      (* \CARETDOWN is set so that caret will come up 

						      quickly.)

				     [COND
				       ((CONSTANTEXPRESSIONP DS)
					 (ERROR X "CONSTANT ARG TO \CHECKCARET??"))
				       ((NOT (EQUAL TTYD DS))
                                                      (* (BQUOTE (COND ((AND (EQ , DS 

						      (TTYDISPLAYSTREAM)) \CARET) , FORM))))

					 (SETQ FORM
					   (LIST (QUOTE COND)
						 (LIST (LIST (QUOTE AND)
							     (LIST (QUOTE EQ
)
								   DS
								   (QUOTE (
TTYDISPLAYSTREAM)))
							     (QUOTE \CARET))
						       FORM]
				     (RETURN FORM))))

(PUTPROPS NOOPERATION MACRO
 (NIL NIL))

(PUTPROPS DICTADDROFFSET MACRO
 [LAMBDA (DICTADDRARG OFFSET)
				 (IPLUS DICTADDRARG OFFSET])
)



(* Functions for Initializing JLisp)


(DEFINEQ

(JSET

  [LAMBDA (FLAG)                                      (* edited: "16-OCT-84 09:19")

    (COND
      (FLAG (AND (NULL JLISPINIT)
		 (JIN
 T))
	    (SETQ LISPXREADFN (QUOTE READ))
	    (MOVD (QUOTE MIRAIMONITOR)
		  (QUOTE \FILLBUFFER)))
      (T (SETQ LISPXREADFN (QUOTE TTYINREAD))
	 (AND (GETD (QUOTE NONJ\FILLBUFFER))
	      (MOVD (QUOTE NONJ\FILLBUFFER)
		    (QUOTE \FILLBUFFER])

(JIN

  [LAMBDA (INSTALLFLG)                                (* J.Ikeo " 6-SEP-84 18:31")

    (DECLARE
 (GLOBALVARS JFNS))
    (PROGN [COND
	     (INSTALLFLG (JLISPINIT
))
	     (T (SETQ LISPXREADFN (QUOTE TTYINREAD]
	   (for
 X in
 JFNS do
 (MOVD (COND
				     (INSTALLFLG (CADDR X))
				     (T (CADR X)))
				   (CAR X)))
	   (COND
	     ((AND INSTALLFLG (NOT (JLISPINSTALLEDP
)))
	       (CreateGrammTable)
	       (CreateInfDict))
	     (T (NOOPERATION
)))
	   (NOT INSTALLFLG])

(JLISPINIT

  [LAMBDA NIL                                         (* J.Ikeo "24-SEP-84 16:42")

    (COND
      ((JLISPINSTALLEDP
)
	(OPENLOOKUPDICT
))
      (T (RESETLST (RESETSAVE (CURSOR (CURSORCREATE COFFEE 3 11)))
		   (RESETSAVE FONTDIRECTORIES (QUOTE ({DSK2} {DSK1})))
		   (RESETSAVE DIRECTORIES (QUOTE ({DSK1} {DSK2})))
		   (DLIONKEYMAP
)
		   (REPLACESOMEFUNCTIONS
)
		   (SETUPJFONTS
)
		   (CREATEVKBDW
)
		   (SETUPVKBDBITMAP
)
		   (SETQ INPUTMODE (QUOTE ROMAINPUTMODE))
		   (SETQ INPUTLIST ROMALIST)
		   (SETQ JMODEFLAG (QUOTE INITIAL))
		   (OPENLOOKUPDICT
)
		   (SETUPINDEXARRAY
)
		   (CREATELOOKUPDICTLOCK
)
		   (SETHOMOSETLISTARRAY
)
		   (SETJMODE
)
		   (CreateGrammTable)
		   (CreateInfDict)
		   (JLISPISINSTALLED
])
)
(DEFINEQ

(DLIONKEYMAP

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 15:10")

    (SELECTQ (MACHINETYPE)
	     [DANDELION [KEYACTION (QUOTE FIND)
				   (QUOTE ((193 193 NOLOCKSHIFT) . IGNORE]
			[KEYACTION (QUOTE SAME)
				   (QUOTE ((194 194 NOLOCKSHIFT) . IGNORE]
			(KEYACTION (QUOTE OPEN)
				   (QUOTE ((195 195 NOLOCKSHIFT) . IGNORE]
	     (NOOPERATION
])

(REPLACESOMEFUNCTIONS

  [LAMBDA NIL                                         (* J.Ikeo "17-AUG-84 15:50")

    (DECLARE
 (GLOBALVARS JFNS))
    (for
 X in
 JFNS do
 (MOVD? (CAR X)
			     (CADR X])

(SETUPJFONTS

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 15:24")

    (DECLARE
 (GLOBALVARS JDISPLAYFONTS JAPANESEFONTS))
    (for
 X in
 JAPANESEFONTS FIRST
 (SETQ JDISPLAYFONTS (ARRAY 128 (QUOTE POINTER)
							     NIL 0))
       do
 (SETA JDISPLAYFONTS (CAR X)
		(FONTCREATE (CADR X)
			    12])

(CREATEVKBDW

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 15:27")

    (DECLARE
 (GLOBALVARS VKBDW))
    (WINDOWPROP (SETQ VKBDW (MAKEVKBDW
 "Virtual Keyboard"))
		(QUOTE RESHAPEFN)
		(QUOTE DON'T
])

(SETUPVKBDBITMAP

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 15:25")

    (DECLARE
 (GLOBALVARS ENGVKBD HIRAVKBD KATAVKBD HCVKBD PATTERNVKBD DEFAULTKEYBM))
    (PROGN (COND
	     ((HWTYPEISNOTDOLPHIN
)
	       (EXCUSEFORNOVKBD
))
	     (T (NOOPERATION
)))
	   (SETQ ENGVKBD (READPRESS (QUOTE VKBD-ENGLISH.PRESS)))
	   (SETQ HIRAVKBD (READPRESS (QUOTE VKBD-HIRAGANA.PRESS)))
	   (SETQ KATAVKBD (READPRESS (QUOTE VKBD-KATAKANA.PRESS)))
	   (SETQ HCVKBD (READPRESS (QUOTE VKBD-HOMOCHOICE.PRESS)))
	   (SETQ PATTERNVKBD (READPRESS (QUOTE VKBD-PATTERN.PRESS)))
	   (SETQ DEFAULTKEYBM (READPRESS (QUOTE DEFAULTKEY.PRESS])

(OPENLOOKUPDICT

  [LAMBDA NIL                                         (* J.Ikeo "17-AUG-84 15:41")

    (DECLARE
 (GLOBALVARS LOOKUPDICTFILE))
    (COND
      [(NOT (OPENP LOOKUPDICTFILE (QUOTE INPUT)))
	(\MAPPAGE (SUB1 (GETFILEINFO LOOKUPDICTFILE (QUOTE SIZE)))
		  (SETQ LOOKUPDICTFILE (GETOFD (OPENFILE LOOKUPDICTFILE (QUOTE INPUT]
      (T (NOOPERATION
])

(SETUPINDEXARRAY

  [LAMBDA NIL                                         (* J.Ikeo "22-AUG-84 17:52")

    (DECLARE
 (GLOBALVARS INDEXARRAY INDEXFILE))
    (PROGN [OR (OPENP INDEXFILE (QUOTE INPUT))
	       (PROGN (SETQ INDEXFILE (OPENFILE INDEXFILE (QUOTE INPUT)))
		      (SETQ INDEXFILE (GETOFD INDEXFILE]
	   (SETQ INDEXARRAY (CREATEINDEXARRAY
 (GETINDEXFILEWORD
 1)
					      (GETINDEXFILEWORD
 2)))
	   (CLOSEF INDEXFILE])

(CREATELOOKUPDICTLOCK

  [LAMBDA NIL
    (DECLARE
 (GLOBALVARS LOOKUPDICTLOCK))             (* J.Ikeo "17-AUG-84 16:14")

    (SETQ LOOKUPDICTLOCK (CREATE.MONITORLOCK (QUOTE LOOKUPDICTLOCK])

(SETHOMOSETLISTARRAY

  [LAMBDA NIL                                         (* J.Ikeo " 4-SEP-84 15:41")

    (DECLARE
 (GLOBALVARS HOMOSETLISTARRAY))           (* This function is used in the phase of 

						      initialyzing. Set up HOMOSETLISTARRAY for 

						      storeing data of the lookup dictionary.)

    (SETQ HOMOSETLISTARRAY (ARRAY 3])

(JLISPINSTALLEDP

  [LAMBDA NIL                                         (* J.Ikeo "17-AUG-84 15:39")

    (DECLARE
 (GLOBALVARS JLISPINIT))
    (AND (BOUNDP (QUOTE JLISPINIT))
	 JLISPINIT])
)
(DEFINEQ

(EXCUSEFORNOVKBD

  [LAMBDA NIL                                         (* J.Ikeo "17-AUG-84 16:06")

    (PROMPTPRINT "I am sorry, but I have no VKBD-pictures except DOLPHIN's ones ."])

(HWTYPEISNOTDOLPHIN

  [LAMBDA NIL                                         (* J.Ikeo "17-AUG-84 16:02")

    (NEQ (MACHINETYPE)
	 (QUOTE DOLPHIN])

(CREATESUFFIXENTRY

  [LAMBDA (KANAKANJICODES POS PRE FREQ)               (* J.Ikeo " 4-SEP-84 15:54")

    (create
 SUFFIXENTRY
	    KANAKANJICODES _ KANAKANJICODES
	    POS _ POS
	    PRE _ PRE
	    FREQ _ FREQ])

(JLISPISINSTALLED

  [LAMBDA NIL
    (DECLARE
 (GLOBALVARS JLISPINIT))                  (* J.Ikeo "17-AUG-84 16:18")

    (SETQ JLISPINIT T])

(MAKEVKBDW

  [LAMBDA (STRING)                                    (* J.Ikeo "12-JUN-84 16:33")

    (CREATEW (QUOTE (52 10 584 200))
	     STRING])

(CREATEINDEXARRAY

  [LAMBDA (FIRSTRECNUM LASTRECNUM)                    (* J.Ikeo "27-AUG-84 05:59")

    (PROG (ARRAY ARRAYSIZE)
          (SETQ ARRAYSIZE (ADD1 (IDIFFERENCE LASTRECNUM FIRSTRECNUM)))
          (SETQ ARRAY (ARRAY ARRAYSIZE))
          [for
 RECNUM from
 FIRSTRECNUM to
 LASTRECNUM as
 I from
 1 to
 ARRAYSIZE
	     bind
 RECADDR WORD1 WORD2 WORD3
	     eachtime
 (SETQ RECADDR (TIMES 3 RECNUM))
		      (SETQ WORD1 (GETINDEXFILEWORD
 RECADDR))
		      (SETQ WORD2 (GETINDEXFILEWORD
 (ADD1 RECADDR)))
		      [SETQ WORD3 (GETINDEXFILEWORD
 (ADD1 (ADD1 RECADDR]
	     do
 (SETA ARRAY I (CONS (LRSH WORD1 8)
				    (COND
				      ((ZEROP (LOGAND WORD1 1))
					(CREATEINDEXARRAY
 WORD2 WORD3))
				      (T (IPLUS (LLSH WORD2 8)
						WORD3]
          (RETURN ARRAY])
)



(* Functions for Monitor)


(DEFINEQ

(MIRAIMONITOR

  [LAMBDA NIL                                         (* J.Ikeo "10-SEP-84 14:18")


          (* This is the top-level function of the JLisp system. You can type in japanese on Interlisp-D, 

	  when you replace the system function \FILLBUFFER with this function and the value of LISPXREADFN 

	  with (QUOTE READ))



    (DECLARE
 (GLOBALVARS CHARACTERCODE EOLFLAG BS.KEYBOARD SHIFTBS.KEYBOARD TAB.KEYBOARD 
			 RETURN.KEYBOARD LINEDELETE.KEYBOARD RETYPE.KEYBOARD 
			 CTRLV.KEYBOARD ESC.KEYBOARD SPACE.KEYBOARD DOUBLEQUOTE.KEYBOARD 
			 SINGLEQUOTE.KEYBOARD LEFTPAR.KEYBOARD RIGHTPAR.KEYBOARD 
			 COMMA.KEYBOARD PERIOD.KEYBOARD LEFTBRK.KEYBOARD 
			 RIGHTBRK.KEYBOARD LEFTARROW.KEYBOARD BLANKTOP.KEYBOARD 
			 BLANKMIDDLE.KEYBOARD BLANKBOTTOM.KEYBOARD HERALDKANALIST))
    (PROG NIL
          (MIRAIMONITORINIT
)                          (* initialize a line and some variables which 

						      represent a state of the typing system)

      GETKEY
          (COND
	    (EOLFLAG (GO EXIT)                        (* The state can be EOL, so go to EXIT.)

		     ))
          (MIRAIMONITORGETKEY
)                        (* set CHARACTERCODE a code of a pressed key on 

						      keyboard.)

          (SELECTC CHARACTERCODE
		   [BS.KEYBOARD                       (* Pressed key is BS)

				(COND
				  ((CANCELP
)
				    (CANCELACTION
)    (* When CTRL is pressed together, undo Kana-Kanji

						      conversion if possible.)

				    )
				  (T (DELETECHARS
)    (* mainly, delete a last character)

				     ]
		   (SHIFTBS.KEYBOARD                  (* Pressed key is upper BS or ^W)

				     (DELETEWORD
)     (* delete a last word contains no delimiter 

						      character.)

				     )
		   [TAB.KEYBOARD                      (* Pressed key is TAB)

				 (COND
				   ((AND (TAILKANJICONVERSIONP
)
					 (KANAMODEP
))
				     (TAILKANJICONVERSION
)
                                                      (* When CTRL is pressed together in Kana-Mode, do

						      Tail-Kana-Kanji conversion, if possible.)

				     )
				   ((KANAMODEP
)
				     (KANJICONVERSION
)
                                                      (* When it is in Kana-Mode, do Kana-Kanji 

						      conversion,if possible.)

				     )
				   (T (ALPHANUMERICACTION
)
                                                      (* When it is in English-Mode, I merely put tab 

						      code on a stream.)

				      ]
		   [LF.KEYBOARD                       (* Pressed key is LF)

				(COND
				  ((KANAMODEP
)
				    (LFKANAACTION
)    (* When it is in Kana-Mode, disappear a first 

						      character on herald line)

				    )
				  (T (ALPHANUMERICACTION
)
                                                      (* merely put a linefeed code on a stream.)

				     ]
		   (RETURN.KEYBOARD                   (* Pressed key is RETURN)

				    (CARRIAGERETURNACTION
)
                                                      (* put a carrige return code on a stream, and if 

						      the state is EOL, set EOLFLAG T.)

				    )
		   (LINEDELETE.KEYBOARD               (* Pressed key is ^Q)

					(LINEDELETEACTION
)
                                                      (* cancel the line.)

					)
		   (RETYPE.KEYBOARD                   (* Pressed key is ^R)

				    (RETYPEACTION
)    (* retype the line.)

				    )
		   (CTRLV.KEYBOARD                    (* Pressed key is ^V)

				   (CTRLVACTION
)      (* A next character will be accepted as a control

						      character.)

				   )
		   (ESC.KEYBOARD                      (* Pressed key is ESC)

				 (ESCACTION
)          (* change a mode into Symbol-Mode.)

				 )
		   (SPACE.KEYBOARD                    (* Pressed key is SPACE)

				   (SPACEACTION
)      (* put a space code on a stream.)

				   )
		   (DOUBLEQUOTE.KEYBOARD              (* Pressed key is %")

					 (DOUBLEQUOTEACTION
)
                                                      (* put a doublequote code on a stream.)

					 )
		   [SINGLEQUOTE.KEYBOARD              (* Pressed key is ')

					 (COND
					   ((KANAMODEP
)
					     (NPROCESS
)
                                                      (* When it is in Kana-Mode, a last character "N" 

						      treast as a Kana "N".)

					     )
					   (T (ALPHANUMERICACTION
)
                                                      (* merely put a singlequote code on a stream.)

					      ]
		   (LEFTPAR.KEYBOARD                  (* Pressed key is %()

				     (LEFTPARACTION
)
                                                      (* put a left parenthesis code on a stream.)

				     )
		   (RIGHTPAR.KEYBOARD                 (* Pressed key is %))

				      (RIGHTPARACTION
)
                                                      (* put a right parenthesis code on a stream.)

				      )
		   [COMMA.KEYBOARD                    (* Pressed key is ,)

				   (COND
				     ((KANAMODEP
)
				       (DEPOSITTOUTEN
)
                                                      (* When it is in Kana-Mode, a Touten character 

						      code is put on a strem.)

				       )
				     (T (ALPHANUMERICACTION
)
                                                      (* put a comma code on a stream.)

					]
		   [PERIOD.KEYBOARD                   (* Pressed key is %.)

				    (COND
				      ((KANAMODEP
)
					(DEPOSITKUTEN
)
                                                      (* When it is in Kana-Mode, a Kuten character 

						      code is put on a strem.)

					)
				      (T (ALPHANUMERICACTION
)
                                                      (* put a period code on a stream.)

					 ]
		   (LEFTBRK.KEYBOARD                  (* Pressed key is %[)

				     (LEFTBRKACTION
)
                                                      (* put a left blacket code on a stream.)

				     )
		   (RIGHTBRK.KEYBOARD                 (* Pressed key is %])

				      (RIGHTBRKACTION
)
                                                      (* put a right blacket code on a stream.)

				      )
		   [LEFTARROW.KEYBOARD                (* Pressed key is _)

				       (COND
					 ((KANAMODEP
)
					   (DEPOSITBARACTION
)
                                                      (* When it is in Kana-Mode, a bar character code 

						      is put on a strem.)

					   )
					 (T (ALPHANUMERICACTION
)
                                                      (* put a leftarrow code on a stream.)

					    ]
		   (BLANKTOP.KEYBOARD                 (* Pressed key is BLANKTOP)

				      (ENGMODEACTION
)
                                                      (* change a mode into English-Mode.)

				      )
		   [BLANKMIDDLE.KEYBOARD              (* Pressed key is BLANKMIDDLE)

					 (COND
					   ((TOHIRAKANACONVERSIONP
)
					     (TOHIRAKANACONVERSION
)
                                                      (* When left SHIFT is pressed together, all 

						      characters which must be Kana characters on 

						      herald are converted to Hira-Gana characters)

					     )
					   (T (HIRAKANAMODEACTION
)
                                                      (* change a mode into Hira-Gana-Mode.)

					      ]
		   [BLANKBOTTOM.KEYBOARD              (* Pressed key is BLANKBOTTOM)

					 (COND
					   ((TOKATAKANACONVERSIONP
)
					     (TOKATAKANACONVERSION
)
                                                      (* When left SHIFT is pressed together, all 

						      characters which must be Kana characters on 

						      herald are converted to Kata-Kana characters)

					     )
					   (T (KATAKANAMODEACTION
)
                                                      (* change a mode into Kata-Kana-Mode.)

					      ]
		   (ALPHANUMERICACTION
))
          (GO GETKEY)
      EXIT(MIRAIBOUT
 (RETRIEVECODESFROMCHARS
))        (* really put all character codes into a stream)

          (\CLOSELINE])

(MIRAIMONITORINIT

  [LAMBDA NIL                                         (* J.Ikeo "10-SEP-84 11:27")

    (DECLARE
 (GLOBALVARS JMODEFLAG HELPINGARGFLAG CHARS EOLFLAG LPARCOUNT LBRKCOUNT 
			 INSTRINGP ENGMODE.JMODE))
    (PROGN (\RESETLINE)
	   (COND
	     ((NULL (AND (BOUNDP (QUOTE HELPINGARGFLAG))
			 HELPINGARGFLAG))
	       (SETQ JMODEFLAG ENGMODE.JMODE)
	       (RESETROMATREE
)
	       (SETQ CHARS NIL)
	       (SETQ EOLFLAG NIL)
	       (SETQ LPARCOUNT 0)
	       (SETQ LBRKCOUNT 0)
	       (SETQ INSTRINGP NIL)
	       (CLEARHERALD
)
	       (SHOWVKBDW
))
	     (T (SETQ CHARS NIL)
		(SETQ HELPINGARGFLAG NIL])

(MIRAIMONITORGETKEY

  [LAMBDA NIL                                         (* J.Ikeo "29-JUN-84 15:37")

    (PROGN (DECLARE
 (GLOBALVARS CHARACTERCODE CPEEKBACK))
	   (SETQ CPEEKBACK (AND (BOUNDP (QUOTE CHARACTERCODE))
				CHARACTERCODE))
	   (SETQ CHARACTERCODE (\GETKEY])

(CANCELP

  [LAMBDA NIL                                         (* J.Ikeo "10-AUG-84 10:15")

    (KEYDOWNP (QUOTE CTRL])

(CANCELACTION

  [LAMBDA NIL                                         (* J.Ikeo "10-AUG-84 10:29")

    (DECLARE
 (GLOBALVARS KANJIINHERALDFLAG))
    (COND
      ((AND (BOUNDP (QUOTE KANJIINHERALDFLAG))
	    KANJIINHERALDFLAG RECENTKANACODES)
	(CLEARHERALD
)
	(DISPLAYHERALD
 (REVERSE RECENTKANACODES))
	(MAPC RECENTKANJICODES (FUNCTION DELETECHRFROMCHARS))
	(MAPC (REVERSE RECENTKANACODES)
	      (FUNCTION CODEADDTOCHARS))
	(SETQ KANJIINHERALDFLAG NIL))
      (T (DELETECHARS
])

(DELETECHARS

  [LAMBDA NIL                                         (* J.Ikeo "22-AUG-84 11:45")

    (COND
      ((TYPINGROMAP
)
	(CLEARHERALDROMA
)
	(RESETROMATREE
))
      ((KANAMODEP
)
	(DELETEHERALDKANA
)
	(DELETECHRFROMCHARS
))
      ((ENGMODEP
)
	(DELETECHRFROMCHARS
))
      ((PATTERNMODEP
)
	(DELETECHRFROMCHARS
))
      (T (ERROR (QUOTE Error)
		" - in DELETECHARS"])

(DELETEWORD

  [LAMBDA NIL                                         (* J.Ikeo " 4-MAY-84 17:18")

    (PROG NIL
          (DECLARE
 (GLOBALVARS CHARS))
      LOOP(DELETECHARS
)
          (COND
	    ([AND CHARS (NORMALCHARCODEP
 (FETCHCHRCODEFIELD
 (CAR CHARS]
	      (GO LOOP])

(TAILKANJICONVERSIONP

  [LAMBDA NIL                                         (* edited: " 7-AUG-84 18:09")

    (KEYDOWNP (QUOTE CTRL])

(KANAMODEP

  [LAMBDA NIL                                         (* J.Ikeo "24-APR-84 14:14")

    (OR (HIRAKANAMODEP
)
	(KATAKANAMODEP
])

(TAILKANJICONVERSION

  [LAMBDA NIL                                         (* J.Ikeo "16-AUG-84 15:27")

    (PROG (KANATAILCODES)
          (DECLARE
 (GLOBALVARS HERALDKANALIST RECENTKANJICODES))
          (SETQ KANATAILCODES (KANATAIL
 RECENTKANJICODES))
          (COND
	    ((NULL KANATAILCODES)
	      (RETURN)))
          (CLEARHERALD
)
          (DISPLAYHERALD
 KANATAILCODES)
          (KANAKANJICONVERSION
])

(KANJICONVERSION

  [LAMBDA NIL                                         (* J.Ikeo " 5-SEP-84 12:16")

    (DECLARE
 (GLOBALVARS HERALDKANALIST))
    (COND
      ((NULL HERALDKANALIST)
	(NOOPERATION
))
      ((AND (KANAMODEP
)
	    (ALLKANACODEP
 (FETCHHERALDKANACODES
)))
	(KANAKANJICONVERSION
))
      ((KANAMODEP
)
	(RETRYKANJISELECTION
))
      (T (NOOPERATION
])

(ALPHANUMERICACTION

  [LAMBDA NIL                                         (* J.Ikeo "22-AUG-84 11:44")

    (COND
      ((KANAMODEP
)
	(KANAALPHANUMERICACTION
))
      ((PATTERNMODEP
)
	(INPUTFIGURE
))
      ((ENGMODEP
)
	(ENGALPHANUMERICACTION
))
      (T (ERROR (QUOTE Error)
		"- in ALPHANUMERICACTION"])

(LFKANAACTION

  [LAMBDA NIL                                         (* J.Ikeo "10-SEP-84 11:58")

    (PROG (SAVEHERALDKANACODES)
          (DECLARE
 (GLOBALVARS BEGINLOOKUPDICTLENGTH LOOKUPDICTPROCESS HERALDKANALIST))
          (COND
	    (HERALDKANALIST [SETQ SAVEHERALDKANACODES (AND HERALDKANALIST
							   (CDR (FETCHHERALDKANACODES
]
			    (CLEARHERALD
)
			    (COND
			      ((NULL SAVEHERALDKANACODES)
				(RETURN)))
			    (DISPLAYHERALD
 SAVEHERALDKANACODES))
	    (T (NOOPERATION
])

(CARRIAGERETURNACTION

  [LAMBDA NIL                                         (* J.Ikeo "22-AUG-84 11:45")

    (PROGN (DECLARE
 (GLOBALVARS CHARACTERCODE))
	   (DELIMITERACTION
)
	   (CODEADDTOCHARS
 CHARACTERCODE)
	   (COND
	     ((ATOMINPUTP
)
	       (SETEOLFLAG
))
	     ((HELPARGP
)
	       (SETEOLFLAG
)
	       (SETHELPINGARGFLAG
))
	     (T (NOOPERATION
])

(LINEDELETEACTION

  [LAMBDA NIL                                         (* J.Ikeo "24-JUL-84 10:17")

    (DECLARE
 (GLOBALVARS LINEDELETEMARK))
    (RESETCHARS
)
    (CLEARHERALD
)
    (PRIN1 LINEDELETEMARK (TTYDISPLAYSTREAM))
    (\ECHOCHAR (CHARCODE EOL])

(RETYPEACTION

  [LAMBDA NIL                                         (* J.Ikeo "28-JUN-84 13:47")

    (PROG (CODES MODES)
          (DECLARE
 (GLOBALVARS CHARS JMODEFLAG))
          [SETQ CODES (REVERSE (MAPCAR CHARS (FUNCTION FETCHCHRCODEFIELD]
          [SETQ MODES (REVERSE (MAPCAR CHARS (FUNCTION FETCHCHRJMODEFLAGFIELD]
          (\ECHOCHAR (CHARCODE EOL))
          (RESETCHARS
)
          (MAP2C CODES MODES (FUNCTION (LAMBDA (CODE MODE)
		     (SETQ JMODEFLAG MODE)
		     (CODEADDTOCHARS
 CODE])

(CTRLVACTION

  [LAMBDA NIL                                         (* J.Ikeo "30-MAY-84 11:32")

    (CODEADDTOCHARS
 (IDIFFERENCE (\GETKEY)
				 (CHARCODE @])

(ESCACTION

  [LAMBDA NIL                                         (* J.Ikeo "13-AUG-84 10:33")

    (PROGN (DELIMITERACTION
)
	   (SETJMODE
 PATTERNMODE.JMODE])

(SPACEACTION

  [LAMBDA NIL                                         (* J.Ikeo "29-JUN-84 15:46")

    (PROGN (DECLARE
 (GLOBALVARS CHARACTERCODE))
	   (COND
	     ((KANAMODEP
)
	       (NPROCESS
)
	       (CLEARHERALD
)))
	   (CODEADDTOCHARS
 CHARACTERCODE])

(DOUBLEQUOTEACTION

  [LAMBDA NIL                                         (* J.Ikeo "29-JUN-84 15:38")

    (DECLARE
 (GLOBALVARS CHARACTERCODE))
    (DELIMITERACTION
)
    (CODEADDTOCHARS
 CHARACTERCODE)
    (STRINGINOUT
])

(LEFTPARACTION

  [LAMBDA NIL                                         (* J.Ikeo "29-JUN-84 15:43")

    (DECLARE
 (GLOBALVARS CHARACTERCODE))
    (DELIMITERACTION
)
    (CODEADDTOCHARS
 CHARACTERCODE)
    (LPARCOUNTINCREMENT
])

(RIGHTPARACTION

  [LAMBDA NIL                                         (* J.Ikeo "29-JUN-84 15:45")

    (PROGN (DECLARE
 (GLOBALVARS CHARACTERCODE LBRKCOUNT LPARCOUNT INSTRINGP))
	   (DELIMITERACTION
)
	   (CODEADDTOCHARS
 CHARACTERCODE)
	   (LPARCOUNTDECREMENT
)
	   (AND (ZEROP LBRKCOUNT)
		(OR (ZEROP LPARCOUNT)
		    (MINUSP LPARCOUNT))
		(NULL INSTRINGP)
		(PROGN (\ECHOCHAR 13)
		       (SETEOLFLAG
])

(DEPOSITTOUTEN

  [LAMBDA NIL                                         (* J.Ikeo " 6-SEP-84 12:10")

    (NPROCESS
)
    (DISPLAYHERALD
 8482)
    (CODEADDTOCHARS
 8482])

(DEPOSITKUTEN

  [LAMBDA NIL                                         (* J.Ikeo " 6-SEP-84 12:11")

    (NPROCESS
)
    (DISPLAYHERALD
 8483)
    (CODEADDTOCHARS
 8483])

(LEFTBRKACTION

  [LAMBDA NIL                                         (* J.Ikeo "29-JUN-84 15:42")

    (DECLARE
 (GLOBALVARS CHARACTERCODE))
    (DELIMITERACTION
)
    (CODEADDTOCHARS
 CHARACTERCODE)
    (LBRKCOUNTINCREMENT
])

(RIGHTBRKACTION

  [LAMBDA NIL                                         (* J.Ikeo "29-JUN-84 15:44")

    (PROGN (DECLARE
 (GLOBALVARS CHARACTERCODE LBRKCOUNT INSTRINGP))
	   (DELIMITERACTION
)
	   (CODEADDTOCHARS
 CHARACTERCODE)
	   (LBRKCOUNTDECREMENT
)
	   (AND (MINUSP LBRKCOUNT)
		(NULL INSTRINGP)
		(PROGN (\ECHOCHAR 13)
		       (SETEOLFLAG
])

(DEPOSITBARACTION

  [LAMBDA NIL                                         (* J.Ikeo " 4-MAY-84 01:41")

    (NPROCESS
)
    (DISPLAYHERALD
 8509)
    (CODEADDTOCHARS
 8509])

(ENGMODEACTION

  [LAMBDA NIL                                         (* J.Ikeo "28-JUN-84 13:12")

    (DECLARE
 (GLOBALVARS ENGMODE.JMODE))
    (DELIMITERACTION
)
    (SETJMODE
 ENGMODE.JMODE])

(TOHIRAKANACONVERSIONP

  [LAMBDA NIL                                         (* J.Ikeo "24-APR-84 16:01")

    (KEYDOWNP (QUOTE LSHIFT])

(TOHIRAKANACONVERSION

  [LAMBDA NIL                                         (* J.Ikeo "18-SEP-84 10:13")

    (DECLARE
 (GLOBALVARS KATAKANACODES HIRAKANACODES))
    (COND
      ((KATAKANAMODEP
)
	(NPROCESS
)
	(SETQ KATAKANACODES (FETCHHERALDKANACODES
))
	(MAPC KATAKANACODES (FUNCTION DELETECHRFROMCHARS))
	(CLEARHERALD
)
	(HIRAKANAMODEACTION
)
	(SETQ HIRAKANACODES (MAPCAR (MAPCAR KATAKANACODES (FUNCTION CONVERTTOPHONICCODE))
				    (FUNCTION CONVERTTOKANACODE)))
	(DISPLAYHERALD
 HIRAKANACODES)
	(MAPC HIRAKANACODES (FUNCTION CODEADDTOCHARS])

(HIRAKANAMODEACTION

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 16:46")

    (DECLARE
 (GLOBALVARS HIRAKANAMODE.JMODE))
    (PROGN (DELIMITERACTION
)
	   (SETJMODE
 HIRAKANAMODE.JMODE])

(TOKATAKANACONVERSIONP

  [LAMBDA NIL                                         (* J.Ikeo "24-APR-84 16:01")

    (KEYDOWNP (QUOTE LSHIFT])

(TOKATAKANACONVERSION

  [LAMBDA NIL                                         (* J.Ikeo "18-SEP-84 10:15")

    (DECLARE
 (GLOBALVARS HIRAKANACODES KATAKANACODES))
    (COND
      ((HIRAKANAMODEP
)
	(NPROCESS
)
	(SETQ HIRAKANACODES (FETCHHERALDKANACODES
))
	(MAPC HIRAKANACODES (FUNCTION DELETECHRFROMCHARS))
	(CLEARHERALD
)
	(KATAKANAMODEACTION
)
	(SETQ KATAKANACODES (MAPCAR (MAPCAR HIRAKANACODES (FUNCTION CONVERTTOPHONICCODE))
				    (FUNCTION CONVERTTOKANACODE)))
	(DISPLAYHERALD
 KATAKANACODES)
	(MAPC KATAKANACODES (FUNCTION CODEADDTOCHARS])

(KATAKANAMODEACTION

  [LAMBDA NIL                                         (* J.Ikeo "28-JUN-84 13:21")

    (DECLARE
 (GLOBALVARS KATAKANAMODE.JMODE))
    (PROGN (DELIMITERACTION
)
	   (SETJMODE
 KATAKANAMODE.JMODE])

(MIRAIBOUT

  [LAMBDA (CODE)                                      (* J.Ikeo "25-JUL-84 11:57")

    (MAPC (CONVERTTOJISCODE
 CODE)
	  (FUNCTION (LAMBDA (CHAR)
	      (\BOUT \LINEBUF.OFD CHAR])

(RETRIEVECODESFROMCHARS

  [LAMBDA NIL                                         (* J.Ikeo " 2-MAY-84 06:57")

    (DECLARE
 (GLOBALVARS CHARS))
    (MAPCAR (REVERSE CHARS)
	    (FUNCTION FETCHCHRCODEFIELD])
)
(DEFINEQ

(SHOWVKBD

  [LAMBDA (KBDBM)                                     (* J.Ikeo "26-APR-84 13:15")

    (DECLARE
 (GLOBALVARS VKBDW))
    (BITBLT KBDBM 10 15 VKBDW 0 0 NIL])

(SHOWVKBDW

  [LAMBDA NIL                                         (* J.Ikeo "28-JUN-84 13:39")

    (DECLARE
 (GLOBALVARS JMODEFLAG ENGMODE.JMODE HIRAKANAMODE.JMODE KATAKANAMODE.JMODE 
			 PATTERNMODE.JMODE ENGVKBD HIRAVKBD KATAVKBD PATTERNVKBD))
    (SHOWVKBD
 (SELECTC JMODEFLAG
		       (ENGMODE.JMODE ENGVKBD)
		       (HIRAKANAMODE.JMODE HIRAVKBD)
		       (KATAKANAMODE.JMODE KATAVKBD)
		       (PATTERNMODE.JMODE PATTERNVKBD)
		       (ERROR (QUOTE Error)
			      " - in SHOWVKBDW"])

(STARTLOOKUPPROCESS

  [LAMBDA (TREE)                                      (* J.Ikeo " 6-SEP-84 11:33")

    (DECLARE
 (GLOBALVARS LOOKUPDICTLOCK))
    (ADD.PROCESS (LIST (FUNCTION WITH.MONITOR)
		       LOOKUPDICTLOCK
		       (LIST (FUNCTION MAKEHOMOSETSUBLIST)
			     (LIST (QUOTE QUOTE)
				   (MAPCAR [REVERSE (CONS CODE (REVERSE (
FETCHHERALDKANACODES
]
					   (FUNCTION CONVERTTOPHONICCODE)))
			     (COND
			       ((ARRAYP TREE)
				 (TRAVERSEINDEXTREE
 TREE 0))
			       (T TREE))
			     (NOT (ARRAYP TREE])

(CREATEHERALDKANACHARS

  [LAMBDA (CODE PROCESS TREE)                         (* J.Ikeo "20-AUG-84 16:44")

    (DECLARE
 (GLOBALVARS VKBDW))
    (create
 HERALDKANACHARS
	    CODE _ CODE
	    XPOS _(DSPXPOSITION NIL VKBDW)
	    PROCESS _ PROCESS
	    INDEXTREE _(AND (ARRAYP TREE)
			    TREE])

(PUTNONJCHARONVKBD

  [LAMBDA (CODE)                                      (* J.Ikeo "20-AUG-84 16:40")

    (DECLARE
 (GLOBALVARS VKBDW))
    (BLTCHAR (LOWEREIGHTBIT
 CODE)
	     VKBDW])

(RESETPREVIOUSLASTKANAXPOS

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 16:09")

    (DECLARE
 (GLOBALVARS LASTKANAXPOS HERALDKANALIST))
    (SETQ LASTKANAXPOS (OR (AND HERALDKANALIST (fetch
 (HERALDKANACHARS XPOS)
						  of
 (CAR HERALDKANALIST)))
			   (DSPLEFTMARGIN NIL VKBDW])

(RESETRECENTKANACODES

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 16:17")

    (DECLARE
 (GLOBALVARS RECENTKANACODES))
    (SETQ RECENTKANACODES NIL])

(SETJMODE

  [LAMBDA (MODE SHOWFLG)                              (* J.Ikeo "20-AUG-84 15:20")

    (DECLARE
 (GLOBALVARS JMODEFLAG))
    (COND
      ((OR SHOWFLG (NEQ JMODEFLAG MODE))
	(SETQ JMODEFLAG MODE)
	(SHOWVKBDW
)
	JMODEFLAG)
      (T (NOOPERATION
)
	 JMODEFLAG])

(SETLASTKANAXPOS

  [LAMBDA NIL
    (DECLARE
 (GLOBALVARS VKBDW LASTKANAXPOS))         (* J.Ikeo "20-AUG-84 15:53")

    (SETQ LASTKANAXPOS (DSPXPOSITION NIL VKBDW])

(PUTJCHARONVKBD

  [LAMBDA (CODE)                                      (* J.Ikeo "20-AUG-84 16:39")

    (DECLARE
 (GLOBALVARS VKBDW))
    (DSPFONT (SETJFONT
 (UPPEREIGHTBIT
 CODE))
	     VKBDW)
    (BLTCHAR (LOWEREIGHTBIT
 CODE)
	     VKBDW)
    (DSPFONT (DSPFONT NIL (TTYDISPLAYSTREAM))
	     VKBDW])

(PATTERNFOR

  [LAMBDA NIL                                         (* J.Ikeo " 4-SEP-84 11:48")

    (DECLARE
 (GLOBALVARS PATTERNMODE.JMODE PATTERNLIST CHARACTERCODE))
    (PROG (CODE (CODELIST (FASSOC CHARACTERCODE PATTERNLIST)))
          (SETQ CODE (AND CODELIST (CADR CODELIST)))
          (RETURN (AND CODE (NOT (ZEROP CODE))
		       (IPLUS (LLSH PATTERNMODE.JMODE 8)
			      CODE])

(POPHERALDKANALIST

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 16:15")

    (DECLARE
 (GLOBALVARS HERALDKANALIST))
    (AND HERALDKANALIST (pop
 HERALDKANALIST])

(NOOPERATION

  [LAMBDA NIL                                         (* J.Ikeo "17-AUG-84 15:40")

    NIL])

(KANACODEP

  [LAMBDA (CODE)                                      (* J.Ikeo "20-AUG-84 16:23")

    (IEQP (LRSH CODE 9)
	  18])

(KANAISONVKBDP

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 16:01")

    (DECLARE
 (GLOBALVARS VKBDW))
    (NEQ (DSPLEFTMARGIN NIL VKBDW)
	 (DSPXPOSITION NIL VKBDW])

(KILLUNUSEFULPROCESS

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 16:05")

    (DECLARE
 (GLOBALVARS HERALDKANALIST))
    (COND
      [[AND HERALDKANALIST (PROCESSP (fetch
 (HERALDKANACHARS PROCESS)
					of
 (CAR HERALDKANALIST]
	(DEL.PROCESS (fetch
 (HERALDKANACHARS PROCESS) of
 (CAR HERALDKANALIST]
      (T (NOOPERATION
])

(CARETISINNEXTLINEP

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 15:43")

    (DECLARE
 (GLOBALVARS VKBDW LASTKANAXPOS))
    (GEQ LASTKANAXPOS (DSPXPOSITION NIL VKBDW])

(CARETSETPREVIOUSLEFT

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 15:51")

    (DECLARE
 (GLOBALVARS VKBDW))
    (MOVETO (DSPRIGHTMARGIN NIL VKBDW)
	    (DSPYPOSITION NIL VKBDW)
	    VKBDW)
    (RELMOVETO 0 (MINUS (DSPLINEFEED NIL VKBDW))
	       VKBDW])

(CLEARALLFOLLOWINGLASTKANA

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 15:47")

    (DECLARE
 (GLOBALVARS VKBDW LASTKANAXPOS))
    (DSPBACKUP (IDIFFERENCE (DSPXPOSITION NIL VKBDW)
			    LASTKANAXPOS)
	       VKBDW])

(CLEARALLINLINE

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 15:43")

    (DECLARE
 (GLOBALVARS VKBDW))
    (DSPBACKUP (IDIFFERENCE (DSPXPOSITION NIL VKBDW)
			    (DSPLEFTMARGIN NIL VKBDW))
	       VKBDW])

(ALPHABETP

  [LAMBDA (CHARCODE)                                  (* J.Ikeo "26-APR-84 15:31")

    (OR (AND (GEQ CHARCODE (CHARCODE A))
	     (LEQ CHARCODE (CHARCODE Z)))
	(AND (GEQ CHARCODE (CHARCODE a))
	     (LEQ CHARCODE (CHARCODE z])

(ATOMINPUTP

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 15:34")

    (DECLARE
 (GLOBALVARS LBRKCOUNT LPARCOUNT INSTRINGP))
    (AND (BALANCEDBRKP
)
	 (ZEROP LPARCOUNT)
	 (NULL INSTRINGP])

(BALANCEDBRKP

  [LAMBDA NIL                                         (* J.Ikeo "25-APR-84 18:46")

    (DECLARE
 (GLOBALVARS LBRKCOUNT))
    (ZEROP LBRKCOUNT])

(CLEARHERALD

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 15:37")

    (RESETVKBD
)
    (RESETLASTKANAXPOS
)
    (RESETHERALDKANALIST
])

(CLEARHERALDROMA

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 15:53")

    (PROGN (DECLARE
 (GLOBALVARS VKBDW LASTKANAXPOS))
	   (COND
	     ((CARETISINNEXTLINEP
)
	       (CLEARALLINLINE
)
	       (CARETSETPREVIOUSLEFT
)))
	   (CLEARALLFOLLOWINGLASTKANA
)
	   (SETLASTKANAXPOS
])

(CODEADDTOCHARS

  [LAMBDA (CODE)                                      (* J.Ikeo "28-JUN-84 12:07")

    (PROGN (DECLARE
 (GLOBALVARS CHARS))
	   (push
 CHARS (CREATECHR
 CODE))
	   (DISPLAYCHARACTER
 CODE)
	   (AND (DISPLAYEDONNEXTLINEP
)
		(CORRECTDISPLAYEDCHRXPOS
))
	   CODE])

(CREATECHR

  [LAMBDA (CODE)                                      (* J.Ikeo " 4-SEP-84 15:14")

    (DECLARE
 (GLOBALVARS LPARCOUNT LBRKCOUNT INSTRINGP JMODEFLAG))
    (create
 CHR
	    CODE _ CODE
	    XPOS _(DSPXPOSITION NIL (TTYDISPLAYSTREAM))
	    LPARCOUNT _ LPARCOUNT
	    LBRKCOUNT _ LBRKCOUNT
	    INSTRINGP _ INSTRINGP
	    JMODEFLAG _ JMODEFLAG])

(DELETEHERALDKANA

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 16:18")

    (COND
      ((KANAISONVKBDP
)
	(KILLUNUSEFULPROCESS
)
	(RESETPREVIOUSLASTKANAXPOS
)
	(COND
	  ((CARETISINNEXTLINEP
)
	    (CLEARALLINLINE
)
	    (CLEARALLFOLLOWINGLASTKANA
)
	    (CARETSETPREVIOUSLEFT
)))
	(CLEARALLFOLLOWINGLASTKANA
)
	(POPHERALDKANALIST
)
	(RESETRECENTKANACODES
))
      (T (NOOPERATION
])

(DISPLAYHERALD

  [LAMBDA (CODES)                                     (* J.Ikeo "24-APR-84 15:19")

    (COND
      ((ATOM CODES)
	(DISPLAYHERALD1
 CODES))
      (T (MAPC CODES (FUNCTION DISPLAYHERALD1])

(DISPLAYHERALD1

  [LAMBDA (CODE)                                      (* J.Ikeo "20-AUG-84 18:02")

    (PROG (INDEXTREE (NEXTINDEXTREE)
		     (LOOKUPPROCESS))
          (DECLARE
 (GLOBALVARS HERALDKANALIST))
          (COND
	    ((JCHARACTERP
 CODE)
	      [COND
		((AND (KANACODEP
 CODE)
		      (SETQ INDEXTREE (GETINDEXTREE
)))
		  (SETQ NEXTINDEXTREE (GETNEXTINDEXTREE
 INDEXTREE CODE))
		  (SETQ LOOKUPPROCESS (AND NEXTINDEXTREE (STARTLOOKUPPROCESS
 
									NEXTINDEXTREE]
	      (push
 HERALDKANALIST (CREATEHERALDKANACHARS
 CODE LOOKUPPROCESS 
							  NEXTINDEXTREE))
	      (PUTJCHARONVKBD
 CODE)
	      (SETLASTKANAXPOS
))
	    (T (PUTNONJCHARONVKBD
 CODE])

(ENGALPHANUMERICACTION

  [LAMBDA NIL                                         (* J.Ikeo "29-JUN-84 15:39")

    (DECLARE
 (GLOBALVARS CHARACTERCODE))
    (CODEADDTOCHARS
 CHARACTERCODE])

(ENGMODEP

  [LAMBDA NIL
    (DECLARE
 (GLOBALVARS JMODEFLAG ENGMODE.JMODE))    (* J.Ikeo " 3-MAY-84 15:28")

    (EQ JMODEFLAG ENGMODE.JMODE])

(HELPARGP

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 16:45")

    (DECLARE
 (GLOBALVARS CHARS))
    (AND CHARS (CDR CHARS)
	 (CDDR CHARS)
	 (EQ (CHARCODE =)
	     (FETCHCHRCODEFIELD
 (CADR CHARS)))
	 (EQ (CHARCODE ?)
	     (FETCHCHRCODEFIELD
 (CADDR CHARS])

(HIRAKANAMODEP

  [LAMBDA NIL                                         (* J.Ikeo " 3-MAY-84 15:32")

    (DECLARE
 (GLOBALVARS JMODEFLAG HIRAKANAMODE.JMODE))
    (EQ JMODEFLAG HIRAKANAMODE.JMODE])

(INPUTFIGURE

  [LAMBDA NIL                                         (* J.Ikeo " 4-SEP-84 11:41")

    (PROG ((CODE (PATTERNFOR
)))
          (AND CODE (CODEADDTOCHARS
 CODE))
          (SETJMODE
 (FINDLASTJMODE
)
		    T])

(JCHARACTERP

  [LAMBDA (CODE)                                      (* J.Ikeo "24-APR-84 15:24")

    (GREATERP CODE 128])

(KANAALPHANUMERICACTION

  [LAMBDA NIL                                         (* J.Ikeo "29-JUN-84 15:42")

    (DECLARE
 (GLOBALVARS CHARACTERCODE))
    (COND
      ((ALPHABETP
 CHARACTERCODE)
	(ROMAINPUTACTION
))
      (T (NUMERICORSPECIALCHARACTION
])

(KANAFOR

  [LAMBDA (N)                                         (* J.Ikeo " 3-MAY-84 15:04")

    (IPLUS (LLSH JMODEFLAG 8)
	   N])

(KATAKANAMODEP

  [LAMBDA NIL                                         (* J.Ikeo " 3-MAY-84 15:33")

    (DECLARE
 (GLOBALVARS JMODEFLAG KATAKANAMODE.JMODE))
    (EQ JMODEFLAG KATAKANAMODE.JMODE])

(LBRKCOUNTDECREMENT

  [LAMBDA NIL                                         (* J.Ikeo "25-APR-84 18:47")

    (DECLARE
 (GLOBALVARS LBRKCOUNT))
    (COND
      ((NOTINSTRINGP
)
	(SETQ LBRKCOUNT (SUB1 LBRKCOUNT])

(LBRKCOUNTINCREMENT

  [LAMBDA NIL                                         (* J.Ikeo "25-APR-84 18:47")

    (DECLARE
 (GLOBALVARS LBRKCOUNT))
    (COND
      ((NOTINSTRINGP
)
	(SETQ LBRKCOUNT (ADD1 LBRKCOUNT])

(LOWEREIGHTBIT

  [LAMBDA (CODE)                                      (* J.Ikeo "26-APR-84 16:52")

    (LOGAND CODE 255])

(LPARCOUNTDECREMENT

  [LAMBDA NIL                                         (* J.Ikeo "25-APR-84 18:46")

    (DECLARE
 (GLOBALVARS LPARCOUNT))
    (COND
      ((AND (BALANCEDBRKP
)
	    (NOTINSTRINGP
))
	(SETQ LPARCOUNT (SUB1 LPARCOUNT])

(LPARCOUNTINCREMENT

  [LAMBDA NIL                                         (* J.Ikeo "25-APR-84 18:45")

    (DECLARE
 (GLOBALVARS LPARCOUNT))
    (COND
      ((AND (BALANCEDBRKP
)
	    (NOTINSTRINGP
))
	(SETQ LPARCOUNT (ADD1 LPARCOUNT])

(MAKEUPKANA

  [LAMBDA NIL                                         (* J.Ikeo "17-JUL-84 15:53")

    (DECLARE
 (GLOBALVARS ROMATREE))
    (CADR ROMATREE])

(MAKEUPKANAP

  [LAMBDA NIL                                         (* J.Ikeo "25-APR-84 18:24")

    (DECLARE
 (GLOBALVARS ROMATREE))
    (CADR ROMATREE])

(NOTINSTRINGP

  [LAMBDA NIL                                         (* J.Ikeo "25-APR-84 18:46")

    (DECLARE
 (GLOBALVARS INSTRINGP))
    (NULL INSTRINGP])

(NPROCESS

  [LAMBDA NIL                                         (* J.Ikeo "28-JUN-84 13:28")

    (DECLARE
 (GLOBALVARS ROMATREE INPUTLIST CPEEKBACK))
    (COND
      ([AND (NEQ ROMATREE INPUTLIST)
	    (OR (EQ CPEEKBACK (CHARCODE N))
		(EQ CPEEKBACK (CHARCODE M]
	(CLEARHERALDROMA
)
	(DISPLAYHERALD
 (KANAFOR
 115))
	(CODEADDTOCHARS
 (KANAFOR
 115))
	(RESETROMATREE
))
      (T NIL])

(NPROCESSP

  [LAMBDA NIL                                         (* J.Ikeo "25-APR-84 18:24")

    (DECLARE
 (GLOBALVARS ROMATREE CPEEKBACK))
    (AND (NULL ROMATREE)
	 (OR (EQ CPEEKBACK (CHARCODE N))
	     (EQ CPEEKBACK (CHARCODE M])

(NUMERICORSPECIALCHARACTION

  [LAMBDA NIL                                         (* J.Ikeo " 8-AUG-84 10:31")

    (PROGN (DECLARE
 (GLOBALVARS CHARACTERCODE))
	   (NPROCESS
)
	   (CLEARHERALD
)
	   (CODEADDTOCHARS
 CHARACTERCODE])

(RESETROMATREE

  [LAMBDA NIL                                         (* J.Ikeo "28-JUN-84 13:29")

    (DECLARE
 (GLOBALVARS ROMATREE INPUTLIST))
    (SETQ ROMATREE INPUTLIST])

(RETRYKANJISELECTION

  [LAMBDA NIL                                         (* J.Ikeo " 5-SEP-84 13:27")

    (DECLARE
 (GLOBALVARS RECENTHCLIST RECENTKANACODES RECENTKANJICODES))
    (COND
      ((NULL RECENTKANACODES)
	(NOOPERATION
))
      (T (CLEARHERALD
)
	 (DISPLAYHERALD
 (REVERSE RECENTKANACODES))
	 (MAPC RECENTKANJICODES (FUNCTION DELETECHRFROMCHARS))
	 (SETQ RECENTKANJICODES (OR (CONVERTTOKANJICODE
 T)
				    (REVERSE RECENTKANACODES)))
	 (CLEARHERALD
)
	 (DISPLAYHERALD
 RECENTKANJICODES)
	 (MAPC RECENTKANJICODES (FUNCTION CODEADDTOCHARS])

(ROMAINPUTACTION

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 17:00")

    (PROG ((LASTHERALDKANACODES))
          (DECLARE
 (GLOBALVARS CHARACTERCODE ROMATREE KANJIINHERALDFLAG 
			       BEGINLOOKUPDICTLENGTH LOOKUPDICTPROCESS VKBDW))
          (COND
	    ((AND (BOUNDP (QUOTE KANJIINHERALDFLAG))
		  KANJIINHERALDFLAG)
	      (CLEARHERALD
)
	      (SETQ KANJIINHERALDFLAG NIL)))
          (TRAVERSEROMATREE
 CHARACTERCODE)
          (AND (NPROCESSP
)
	       (PROGN (NPROCESS
)
		      (TRAVERSEROMATREE
 CHARACTERCODE)))
          (COND
	    ((NOSUCHROMAJI
)
	      (BACKUPROMATREE
)
	      (PRIN3 (FCHARACTER (CHARCODE BELL))
		     VKBDW)
	      (RETURN)))
          (DISPLAYHERALD
 CHARACTERCODE)
          (COND
	    ((MAKEUPKANAP
)
	      (CLEARHERALDROMA
)
	      [MAPC (MAKEUPKANA
)
		    (FUNCTION (LAMBDA (N)
			(DISPLAYHERALD
 (KANAFOR
 N))
			(CODEADDTOCHARS
 (KANAFOR
 N]
	      (RESETROMATREE
])

(SETEOLFLAG

  [LAMBDA NIL                                         (* J.Ikeo "25-APR-84 18:48")

    (DECLARE
 (GLOBALVARS EOLFLAG))
    (SETQ EOLFLAG T])

(STRINGINOUT

  [LAMBDA NIL                                         (* J.Ikeo "25-APR-84 18:47")

    (DECLARE
 (GLOBALVARS INSTRINGP))
    (SETQ INSTRINGP (NOT INSTRINGP])

(TRAVERSEROMATREE

  [LAMBDA (CHARCODE)                                  (* J.Ikeo "28-JUN-84 13:43")

    (DECLARE
 (GLOBALVARS ROMATREE OLDROMATREE))
    (SETQ ROMATREE (TREELOOK
 CHARCODE (SETQ OLDROMATREE ROMATREE])

(TREELOOK

  [LAMBDA (CODE TR)                                   (* J.Ikeo "23-MAR-84 12:57")

    (FASSOC (FCHARACTER CODE)
	    (CDDR TR])

(TYPINGROMAP

  [LAMBDA NIL                                         (* J.Ikeo "28-JUN-84 13:43")

    (DECLARE
 (GLOBALVARS LASTKANAXPOS VKBDW))
    (AND (KANAMODEP
)
	 (NEQ LASTKANAXPOS (DSPXPOSITION NIL VKBDW])

(UPPEREIGHTBIT

  [LAMBDA (CODE)                                      (* J.Ikeo "26-APR-84 16:19")

    (LRSH CODE 8])

(FETCHCHRCODEFIELD

  [LAMBDA (CHRTYPE)                                   (* J.Ikeo " 2-MAY-84 06:58")

    (fetch
 (CHR CODE) of
 CHRTYPE])

(FETCHCHRJMODEFLAGFIELD

  [LAMBDA (CHRTYPE)                                   (* J.Ikeo "30-MAY-84 11:42")

    (fetch
 (CHR JMODEFLAG) of
 CHRTYPE])

(FETCHHERALDKANACODES

  [LAMBDA NIL                                         (* J.Ikeo "13-AUG-84 16:44")

    (DECLARE
 (GLOBALVARS HERALDKANALIST))
    (MAPCAR (REVERSE HERALDKANALIST)
	    (FUNCTION (LAMBDA (HERALDKANA)
		(fetch
 (HERALDKANACHARS CODE) of
 HERALDKANA])

(RESETVKBD

  [LAMBDA NIL                                         (* J.Ikeo "28-JUN-84 13:44")

    (DECLARE
 (GLOBALVARS JMODEFLAG VKBDW))
    (DSPRESET VKBDW)
    (SETJMODE
 JMODEFLAG T])

(RESETHERALDKANALIST

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 18:03")

    (DECLARE
 (GLOBALVARS HERALDKANALIST))
    [AND (BOUNDP (QUOTE HERALDKANALIST))
	 (MAPC HERALDKANALIST (FUNCTION (LAMBDA (HERALDKANA)
		   (COND
		     ((PROCESSP (fetch
 (HERALDKANACHARS PROCESS) of
 HERALDKANA))
		       (DEL.PROCESS (fetch
 (HERALDKANACHARS PROCESS) of
 HERALDKANA]
    (SETQ HERALDKANALIST NIL])

(RESETLASTKANAXPOS

  [LAMBDA NIL                                         (* J.Ikeo "28-JUN-84 13:45")

    (DECLARE
 (GLOBALVARS LASTKANAXPOS VKBDW))
    (SETQ LASTKANAXPOS (DSPLEFTMARGIN NIL VKBDW])

(DISPLAYEDONNEXTLINEP

  [LAMBDA NIL                                         (* J.Ikeo "28-JUN-84 13:45")

    (DECLARE
 (GLOBALVARS CHARS))
    (GREATERP (fetch
 (CHR XPOS) of
 (CAR CHARS))
	      (DSPXPOSITION NIL (TTYDISPLAYSTREAM])

(CORRECTDISPLAYEDCHRXPOS

  [LAMBDA NIL                                         (* J.Ikeo "14-JUN-84 10:26")

    (DECLARE
 (GLOBALVARS CHARS))
    (replace
 (CHR XPOS) of
 (CAR CHARS) with
 (DSPLEFTMARGIN NIL (TTYDISPLAYSTREAM])

(DELIMITERACTION

  [LAMBDA NIL                                         (* J.Ikeo " 3-MAY-84 17:50")

    (COND
      ((KANAMODEP
)
	(NPROCESS
)
	(CLEARHERALD
))
      (T NIL])

(NORMALCHARCODEP

  [LAMBDA (CODE)                                      (* J.Ikeo " 4-MAY-84 04:55")

    (OR (JCHARACTERP
 CODE)
	(ALPHABETP
 CODE])

(NOSUCHROMAJI

  [LAMBDA NIL                                         (* J.Ikeo "18-MAY-84 16:02")

    (DECLARE
 (GLOBALVARS ROMATREE))
    (NULL ROMATREE])

(BACKUPROMATREE

  [LAMBDA NIL                                         (* J.Ikeo "18-MAY-84 15:33")

    (DECLARE
 (GLOBALVARS ROMATREE OLDROMATREE))
    (SETQ ROMATREE OLDROMATREE])

(RESETCHARS

  [LAMBDA NIL                                         (* J.Ikeo "28-JUN-84 13:48")

    (DECLARE
 (GLOBALVARS CHARS))
    (SETQ CHARS NIL])

(SETHELPINGARGFLAG

  [LAMBDA NIL
    (DECLARE
 (GLOBALVARS HELPINGARGFLAG))             (* J.Ikeo "24-JUL-84 09:55")

    (SETQ HELPINGARGFLAG T])

(PATTERNMODEP

  [LAMBDA NIL                                         (* J.Ikeo "13-AUG-84 10:49")

    (EQ JMODEFLAG PATTERNMODE.JMODE])

(FINDLASTJMODE

  [LAMBDA NIL
    (DECLARE
 (GLOBALVARS PATTERNMODE.JMODE CHARS))    (* J.Ikeo "13-AUG-84 10:42")

    (FOR
 CHAR IN
 CHARS BIND
 JMODE EACHTIME
 (SETQ JMODE (FETCH
 (CHR JMODEFLAG)
							  OF
 CHAR))
       WHEN
 (NEQ PATTERNMODE.JMODE JMODE) DO
 (RETURN JMODE])

(TRAVERSEINDEXTREE

  [LAMBDA (INDEXTREE TENCODE)                         (* J.Ikeo "16-AUG-84 14:29")

    (for
 I from
 1 to
 (ARRAYSIZE INDEXTREE) when
 (IEQP TENCODE (CAR (ELT INDEXTREE I)))
       do
 (RETURN (CDR (ELT INDEXTREE I])
)
(DEFINEQ

(JDSPPRINTCHAR

  [LAMBDA (STREAM CODE)                               (* J.Ikeo " 4-MAY-84 01:31")

    (PROG (DS)
          (DECLARE
 (GLOBALVARS KUFLAG MYFONT0))
          (SETQ DS (OUTPUTDSP STREAM))
          (COND
	    [(IGREATERP CODE 127)
	      (COND
		((AND (BOUNDP (QUOTE KUFLAG))
		      KUFLAG)
		  (BLTCHAR (LOGAND CODE 127)
			   DS)
		  (DSPFONT MYFONT0 DS)
		  (SETQ KUFLAG NIL))
		(T (SETQ MYFONT0 (DSPFONT NIL DS))
		   (DSPFONT (SETJFONT
 CODE)
			    DS)
		   (SETQ KUFLAG T]
	    (T (COND
		 ((AND (BOUNDP (QUOTE KUFLAG))
		       KUFLAG)
		   (DSPFONT (AND (BOUNDP (QUOTE MYFONT0))
				 MYFONT0)
			    DS)
		   (SETQ KUFLAG NIL)))
	       (NONJ\DSPPRINTCHAR STREAM CODE])

(DISPLAYCHARACTER

  [LAMBDA (CHARCODE)                                  (* J.Ikeo "20-AUG-84 15:57")

    (PROGN [COND
	     ((ATOM CHARCODE)
	       (JADDCHAR
 CHARCODE))
	     (T (MAPC (APPEND CHARCODE (LIST (CHARCODE EOL)))
		      (FUNCTION JADDCHAR]
	   CHARCODE])

(JADDCHAR

  [LAMBDA (CHAR)                                      (* J.Ikeo "26-APR-84 15:08")

    (COND
      [(JCHARACTERP
 CHAR)
	(BUFBOUT
 (LIST (LOGOR 128 (LRSH CHAR 8))
		       (LOGOR 128 (LOGAND CHAR 127]
      (T (BUFBOUT
 (LIST CHAR])

(BUFBOUT

  [LAMBDA (CH)                                        (* edited: "26-JAN-84 11:25")

    (PROGN (\CHECKCARET (TTYDISPLAYSTREAM))
	   (MAPC CH (FUNCTION \ECHOCHAR])

(SETJFONT

  [LAMBDA (CODE FONT0)                                (* J.Ikeo "28-JUN-84 13:50")

    (DECLARE
 (GLOBALVARS JDISPLAYFONTS))
    (OR (FONTP (ELT JDISPLAYFONTS (LOGAND 127 CODE)))
	FONT0])
)
(DEFINEQ

(DELETECHRFROMCHARS

  [LAMBDA NIL                                         (* J.Ikeo " 4-SEP-84 15:13")

    (DECLARE
 (GLOBALVARS CHARS LPARCOUNT LBRKCOUNT INSTRINGP))
    (COND
      (CHARS (SETJMODE
 (fetch
 (CHR JMODEFLAG) of
 (CAR CHARS)))
	     [COND
	       ((EQ (DSPXPOSITION NIL (TTYDISPLAYSTREAM))
		    (DSPLEFTMARGIN NIL (TTYDISPLAYSTREAM)))
		 (\CHECKCARET (TTYDISPLAYSTREAM))
		 (MOVETO (DSPRIGHTMARGIN NIL (TTYDISPLAYSTREAM))
			 (DSPYPOSITION NIL (TTYDISPLAYSTREAM))
			 (TTYDISPLAYSTREAM))
		 (RELMOVETO 0 (MINUS (DSPLINEFEED NIL (TTYDISPLAYSTREAM)))
			    (TTYDISPLAYSTREAM]
	     (DSPBACKUP (IDIFFERENCE (DSPXPOSITION NIL (TTYDISPLAYSTREAM))
				     (fetch
 (CHR XPOS) of
 (CAR CHARS)))
			(TTYDISPLAYSTREAM))
	     (SETQ LPARCOUNT (OR (AND CHARS (fetch
 (CHR LPARCOUNT) of
 (CAR CHARS)))
				 0))
	     (SETQ LBRKCOUNT (OR (AND CHARS (fetch
 (CHR LBRKCOUNT) of
 (CAR CHARS)))
				 0))
	     [SETQ INSTRINGP (AND CHARS (fetch
 (CHR INSTRINGP) of
 (CAR CHARS]
	     (FETCHCHRCODEFIELD
 (pop
 CHARS)))
      (T (PRIN3 (FCHARACTER (CHARCODE BELL))
		T)
	 NIL])
)
(DEFINEQ

(CONVERTTOJISCODE

  [LAMBDA (CODES)                                     (* J.Ikeo "28-JUN-84 13:57")

    (COND
      ((NULL CODES)
	NIL)
      [(GREATERP (CAR CODES)
		 255)
	(CONS (IPLUS (LRSH (CAR CODES)
			   8)
		     128)
	      (CONS (LOGAND (IPLUS (CAR CODES)
				   128)
			    255)
		    (CONVERTTOJISCODE
 (CDR CODES]
      (T (CONS (CAR CODES)
	       (CONVERTTOJISCODE
 (CDR CODES])
)



(* Functions for Kana-Kanji Conversion)


(DEFINEQ

(GETCOMPLETELYMATCH

  [LAMBDA (PHONICCODES)                               (* J.Ikeo "18-SEP-84 23:38")

    (DECLARE
 (GLOBALVARS HOMOSETLIST $$LAST$$))
    (for
 POSSET in
 (CDR (for
 HOMOSET in
 HOMOSETLIST when
 (EQUAL PHONICCODES (CAR HOMOSET))
			   do
 (RETURN HOMOSET)))
       bind
 POS# CONNECTFREQ eachtime
 (PROGN (SETQ POS# (CAR POSSET))
					     (SETQ CONNECTFREQ (GetConnection
 POS# 
									     $$LAST$$)))
       when
 [AND (NOT (ZEROP CONNECTFREQ))
		 (PROGN                               (* The following expression is for test)

			(push
 ENTRIESFORTEST (LIST POSSET HARDENDINGPOSITION]
       join
 (for
 ENTRY in
 (CDR POSSET) collect
 (PROGN (replace
 (KANJIENTRY FREQ)
							 of
 ENTRY
							 with
 (TIMES CONNECTFREQ
								     (fetch
 (KANJIENTRY
									      FREQ)
									of
 ENTRY)))
						      ENTRY])

(GETINDEXTREE

  [LAMBDA NIL                                         (* J.Ikeo "20-AUG-84 16:23")

    (DECLARE
 (GLOBALVARS HERALDKANALIST INDEXARRAY))
    (COND
      (HERALDKANALIST (fetch
 (HERALDKANACHARS INDEXTREE) of
 (CAR HERALDKANALIST)))
      (T INDEXARRAY])

(GETNEXTINDEXTREE

  [LAMBDA (TREE CODE)                                 (* J.Ikeo " 6-SEP-84 11:32")

    (TRAVERSEINDEXTREE
 TREE (CONVERTTOPHONICCODE
 CODE])

(GETPREHCLIST

  [LAMBDA (COMPLETELYMATCH)                           (* J.Ikeo "30-AUG-84 14:33")

    (SORT (for
 ENTRY in
 COMPLETELYMATCH collect
 (create
 HC
							TOTALFREQ _(fetch
 (KANJIENTRY
									    FREQ)
								      of
 ENTRY)
							CODELIST _(fetch
 (KANJIENTRY
									   KANAKANJICODES)
								     of
 ENTRY)))
	  (FUNCTION (LAMBDA (HC1 HC2)
	      (GREATERP (fetch
 (HC TOTALFREQ) of
 HC1)
			(fetch
 (HC TOTALFREQ) of
 HC2])

(GETPHONICCODES

  [LAMBDA NIL                                         (* J.Ikeo " 6-SEP-84 11:33")

    (for
 KANACODE in
 (FETCHHERALDKANACODES
) collect
 (CONVERTTOPHONICCODE
 KANACODE])

(HCDIFFERENCE

  [LAMBDA (HCLIST1 HCLIST2)                           (* J.Ikeo "28-AUG-84 13:39")

    (PROG (CODELISTSET)
          (SETQ CODELISTSET (for
 HC in
 HCLIST2 collect
 (fetch
 (HC CODELIST) of
 HC)))
          (RETURN (for
 HC in
 HCLIST1 unless
 (MEMBER (fetch
 (HC CODELIST) of
 HC)
						    CODELISTSET)
		     collect
 HC])

(PRECONVERTTOHCSINPAGES

  [LAMBDA (HCLIST FIRST)                              (* J.Ikeo " 4-SEP-84 10:30")

    (PROG (LOWFREQ (HCSINPAGELOCAL)
		   HCLST)
          [COND
	    ((NULL (CDR HCLIST))
	      (RETURN (LIST HCLIST]
          (SETQ HCLST HCLIST)
          (SETQ LOWFREQ (TIMES (fetch
 (HC TOTALFREQ) of
 (CAR HCLST))
			       .75))
      LOOP(SETQ HCSINPAGELOCAL (CONS (PROG1 (CAR HCLST)
					    (SETQ HCLST
					      (for
 HC in
 (CDR HCLST)
						 unless
 (EQUAL (fetch
 (HC CODELIST)
								  of
 (CAR HCLST))
							       (fetch
 (HC CODELIST)
								  of
 HC))
						 collect
 HC)))
				     HCSINPAGELOCAL))
          (COND
	    ((AND (NULL HCLST)
		  (NULL (CDR HCSINPAGELOCAL)))
	      (RETURN (LIST HCSINPAGELOCAL)))
	    [(NULL HCLST)
	      (SHOWHC
 (REVERSE HCSINPAGELOCAL)
		      T)
	      (RETURN (LIST (REVERSE HCSINPAGELOCAL]
	    [(GEQ (LENGTH HCSINPAGELOCAL)
		  8)
	      (COND
		(FIRST (SHOWHC
 (REVERSE HCSINPAGELOCAL)
			       T)))
	      (RETURN (CONS (REVERSE HCSINPAGELOCAL)
			    (CONVERTTOHCSINPAGES
 HCLST]
	    ((GEQ (fetch
 (HC TOTALFREQ) of
 (CAR HCLST))
		  LOWFREQ)
	      (GO LOOP))
	    (T (COND
		 (FIRST (SHOWHC
 (REVERSE HCSINPAGELOCAL)
				T)))
	       (RETURN (CONS (REVERSE HCSINPAGELOCAL)
			     (CONVERTTOHCSINPAGES
 HCLST])

(PREKANJIENTRYSELECTION

  [LAMBDA (PHONICCODESLENGTH)                         (* J.Ikeo "30-AUG-84 14:16")

    (DECLARE
 (GLOBALVARS HOMOSETLIST))
    (SETQ HOMOSETLIST (for
 EACH in
 HOMOSETLIST when
 (LESSP (LENGTH (CAR EACH))
							   PHONICCODESLENGTH)
			 collect
 EACH])

(PREKANJISELECTION

  [LAMBDA NIL                                         (* J.Ikeo " 6-SEP-84 18:26")

    (DECLARE
 (GLOBALVARS KANJIENTRYLIST $$LAST$$ PREHCSINPAGELIST HARDENDINGFLAG 
			 HARDENDINGPOSITION PREHCLIST GLOBALPHONICCODES))
    (PROG (COMPLETELYMATCH VKBDWXPOS VKBDWYPOS)
          (SETQ ENTRIESFORTEST NIL)                   (* for test)

          (SETQ PREHCSINPAGELIST NIL)
          (SETQ HARDENDINGFLAG NIL)
          (SETQ PREHCLIST NIL)
          (SETQ GLOBALPHONICCODES (GETPHONICCODES
))
          (SETQ HARDENDINGPOSITION (NUMBEROFPHONICCODES
 GLOBALPHONICCODES))
          (SETQ HARDENDINGPOSITION (NUMBEROFPHONICCODES
 GLOBALPHONICCODES))
          (SETQ COMPLETELYMATCH (GETCOMPLETELYMATCH
 GLOBALPHONICCODES))
          [SETQ ENTRIESLISTFORTEST (MAPCAR COMPLETELYMATCH (FUNCTION (LAMBDA (ENTRY)
					       (CONS ENTRY NIL]
          (PREKANJIENTRYSELECTION
 (LENGTH GLOBALPHONICCODES))
          (COND
	    ((NULL COMPLETELYMATCH)
	      (RETURN)))
          (SETQ HARDENDINGFLAG T)
          (SETQ LONGESTENDINGPOSITION HARDENDINGPOSITION)
          (SETQ PREHCLIST (GETPREHCLIST
 COMPLETELYMATCH))
          (SETQ VKBDWXPOS (DSPXPOSITION NIL VKBDW))
          (SETQ VKBDWYPOS (DSPYPOSITION NIL VKBDW))
          (SETQ PREHCSINPAGELIST (PRECONVERTTOHCSINPAGES
 PREHCLIST T))
          (MOVETO VKBDWXPOS VKBDWYPOS VKBDW])

(CALCULATESOFTPOSITION

  [LAMBDA (PHONICCODES)                               (* J.Ikeo " 4-SEP-84 16:08")

    (DECLARE
 (GLOBALVARS HARDENDINGPOSITION))         (* PHONICCODES is phonic codes follwing the soft 

						      ending position. So, this IDIFFERENCE get a soft 

						      ending position.)

    (IDIFFERENCE HARDENDINGPOSITION (NUMBEROFPHONICCODES
 PHONICCODES])

(CONVERTTOKANACODE

  [LAMBDA (PHONICCODE)                                (* J.Ikeo " 6-SEP-84 11:52")

    (DECLARE
 (GLOBALVARS JMODEFLAG))
    (SELECTC PHONICCODE
	     (89                                      (* for Tou-Ten)

		 8482)
	     (90                                      (* for Ku-Ten)

		 8483)
	     (109                                     (* for -

						      of Kata-Kana)

		  8509)
	     (IPLUS (LSH (OR JMODEFLAG 0)
			 8)
		    PHONICCODE 32])

(CONVERTTOPHONICCODE

  [LAMBDA (KANACODE)                                  (* J.Ikeo " 6-SEP-84 11:45")

    (SELECTC KANACODE
	     (8482                                    (* for Tou-Ten)

		   89)
	     (8483                                    (* for Ku-Ten)

		   90)
	     (8509                                    (* for -

						      of Kata-Kana)

		   109)
	     (IDIFFERENCE (LOGAND KANACODE 127)
			  32])

(NUMBEROFPHONICCODES

  [LAMBDA (PHONICCODES)                               (* J.Ikeo " 4-SEP-84 15:51")

                                                      (* Phonic code 67 69 71 is 

						      (ya) (yu) (yo) respectively.

						      Count the number of given phonic codes except 

						      those.)

    (for
 PHONICCODE in
 PHONICCODES count
 (NOT (OR (IEQP PHONICCODE 67)
						  (IEQP PHONICCODE 69)
						  (IEQP PHONICCODE 71])

(CREATEDUMMYFASTENDENTRIES

  [LAMBDA (PHONICCODES)                               (* J.Ikeo " 6-SEP-84 11:56")

    (DECLARE
 (GLOBALVARS JMODEFLAG HARDENDINGPOSITION $$SOFT$$))

          (* Create a dummy fastened entries list in the soft ending situation. The last element of the list 

	  is a number representing a soft ending position)



    (LIST (CREATESUFFIXENTRY
 (MAPCAR PHONICCODES (FUNCTION CONVERTTOKANACODE))
			     0 $$SOFT$$ 1)
	  (CALCULATESOFTPOSITION
 PHONICCODES])

(CREATEKANJIENTRY

  [LAMBDA (KANAKANJICODES FREQ)                       (* J.Ikeo " 4-SEP-84 16:32")

    (create
 KANJIENTRY
	    KANAKANJICODES _ KANAKANJICODES
	    FREQ _ FREQ])

(GETLOOKUPPHONICCODES

  [LAMBDA NIL                                         (* J.Ikeo " 4-SEP-84 16:25")

    (DECLARE
 (GLOBALVARS DICTADDR))                   (* Read the phonic codes of a homoset on the 

						      lookup dictionary)

    (PROG (LOOKUPPHONICCODES# LOOKUPPHONICCODES WORD# DICTWORDSEQUENCE)
          (SETQ LOOKUPPHONICCODES# (GETLOOKUPDICTWORD
))
          (SETQ WORD# (IQUOTIENT (ADD1 LOOKUPPHONICCODES#)
				 2))
          (SETQ DICTWORDSEQUENCE (for
 I from
 1 to
 WORD# collect
 (GETLOOKUPDICTWORD
)))
          (SETQ LOOKUPPHONICCODES (ELIMINATETAILZEROS
 (MAKEBYTECONTENTSLIST
 
								     DICTWORDSEQUENCE)))
          (RETURN LOOKUPPHONICCODES])

(GETSUFFIXHOMOSETLIST

  [LAMBDA (PHONICCODES)                               (* J.Ikeo "29-AUG-84 11:19")

    (DECLARE
 (GLOBALVARS SUFFIXTREE))
    (GETSUFFIXHOMOSETLIST1
 PHONICCODES SUFFIXTREE])

(GETSUFFIXHOMOSETLIST1

  [LAMBDA (PHONICCODES SUFFIXSUBTREE)                 (* J.Ikeo " 3-SEP-84 11:19")

    (COND
      ((NULL SUFFIXSUBTREE)
	NIL)
      [(NULL PHONICCODES)
	(AND (CADR SUFFIXSUBTREE)
	     (LIST (CADR SUFFIXSUBTREE]
      (T (NCONC (AND (CADR SUFFIXSUBTREE)
		     (LIST (CADR SUFFIXSUBTREE)))
		(GETSUFFIXHOMOSETLIST1
 (CDR PHONICCODES)
				       (ASSOC (CAR PHONICCODES)
					      (CDDR SUFFIXSUBTREE])

(MAKEFASTENDENTRIESLIST

  [LAMBDA NIL                                         (* J.Ikeo " 6-SEP-84 16:40")

    (for
 HOMOSET in
 HOMOSETLIST bind
 PHONICREMAINDER SUFFIXHOMOSETLIST
       eachtime
 [COND
		  ((EQ (QUOTE DONTMATCH)
		       (SETQ PHONICREMAINDER (MAKEPHONICREMAINDER
 (CAR HOMOSET)
								  GLOBALPHONICCODES)))
		    (GO $$ITERATE))
		  (T (SETQ SUFFIXHOMOSETLIST (GETSUFFIXHOMOSETLIST
 PHONICREMAINDER]
       join
 (for
 POSSET in
 (CDR HOMOSET) bind
 FASTENDENTRIESLIST
	       eachtime
 [PROGN (SETQ FASTENDENTRIESLIST
				 (for
 FASTENDENTRIES
				    in
 [OR (MAKEFASTENDSUFFIXENTRIESLIST
 (CAR POSSET)
									 PHONICREMAINDER 
								    SUFFIXHOMOSETLIST)
					   (AND (SOFTENDINGP
 (CAR POSSET)
							     PHONICREMAINDER)
						(LIST (CREATEDUMMYFASTENDENTRIES
 
								      PHONICREMAINDER]
				    collect
 (CONS (CALCULATETOTALFREQ
 FASTENDENTRIES)
						  FASTENDENTRIES)))
                                                      (* The following expression is for test)

			       (for
 FASTENDENTRIES in
 FASTENDENTRIESLIST
				  do
 (push
 ENTRIESFORTEST (CONS POSSET (CDR 
								       FASTENDENTRIES]
	       join
 (for
 ENTRY in
 (CDR POSSET)
		       join

			(for
 FASTENDENTRIES in
 FASTENDENTRIESLIST
			   collect

			    (CONS (PROGN (replace
 (KANJIENTRY FREQ) of
 ENTRY
					    with
 (TIMES (CAR FASTENDENTRIES)
							(GetConnection

							  (CAR POSSET)
							  (fetch
 (SUFFIXENTRY PRE)
							     of
 (CADR FASTENDENTRIES)))
							(fetch
 (KANJIENTRY FREQ)
							   of
 ENTRY)))
					 ENTRY)
				  (CDR FASTENDENTRIES])

(MAKEFASTENDSUFFIXENTRIESLIST

  [LAMBDA (POS PHONICCODES SUFFIXHOMOSETLISTARG)      (* J.Ikeo "19-SEP-84 01:16")

    (for
 SUFFIXHOMOSET in
 SUFFIXHOMOSETLISTARG bind
 PHONICREMAINDER SUFFIXHOMOSETLIST
       eachtime
 (PROGN (SETQ PHONICREMAINDER (MAKEPHONICREMAINDER
 (CAR SUFFIXHOMOSET)
								  PHONICCODES))
		       (SETQ SUFFIXHOMOSETLIST (GETSUFFIXHOMOSETLIST
 PHONICREMAINDER)))
       join
 (for
 SUFFIXENTRY in
 (CDR SUFFIXHOMOSET)
	       when
 [NOT (ZEROP (GetConnection
 POS (fetch
 (SUFFIXENTRY PRE) of
 
									  SUFFIXENTRY]
	       join
 (MAKEFASTENDSUFFIXENTRIESLIST1
 SUFFIXENTRY PHONICREMAINDER 
						   SUFFIXHOMOSETLIST])

(MAKEFASTENDSUFFIXENTRIESLIST1

  [LAMBDA (ENTRY PHONICCODES HOMOSETLISTARG)          (* J.Ikeo "19-SEP-84 00:55")

    (DECLARE
 (GLOBALVARS HARDENDINGFLAG $$LAST$$))
    (PROG (SUFFIXHOMOSETLIST ENTRIES)
          [COND
	    ((NULL PHONICCODES)
	      (COND
		((ZEROP (GetConnection
 (fetch
 (SUFFIXENTRY POS) of
 ENTRY)
				       $$LAST$$))
		  (RETURN NIL))
		(T (SETQ HARDENDINGFLAG T)
		   (RETURN (LIST (LIST ENTRY HARDENDINGPOSITION]
          (SETQ FASTENDENTRIESLIST (MAKEFASTENDSUFFIXENTRIESLIST
 (fetch
 (SUFFIXENTRY
									  POS)
								    of
 ENTRY)
								 PHONICCODES 
								 HOMOSETLISTARG))
          (COND
	    [FASTENDENTRIESLIST (RETURN (for
 FASTENDENTRIES in
 FASTENDENTRIESLIST
					   collect
 (CONS ENTRY FASTENDENTRIES]
	    [(SOFTENDINGP
 (fetch
 (SUFFIXENTRY POS) of
 ENTRY)
			  PHONICCODES)
	      (RETURN (LIST (CONS ENTRY (CREATEDUMMYFASTENDENTRIES
 PHONICCODES]
	    (T (RETURN NIL])

(MAKEHOMOSETSUBLIST

  [LAMBDA (PHONICCODES DICTADDRARG LASTFLAG)          (* J.Ikeo "18-SEP-84 23:39")

    (DECLARE
 (GLOBALVARS HOMOSETLISTARRAY DICTADDR))
    (PROG (HOMOSETSIZE POSSET# LOOKUPPHONICCODES (HOMOSETLISTLOCAL)
		       (NTH (LENGTH PHONICCODES)))
          (COND
	    ((NULL DICTADDRARG)
	      (RETURN)))
          (SETQ DICTADDR DICTADDRARG)                 (* This DICTADDROFFSET is for a reserved one 

						      word.)

      LOOP1
          (SETQ HOMOSETSIZE (GETLOOKUPDICTWORD
))      (* HOMOSETSIZE is not used, now.)

          (SETQ LOOKUPPHONICCODES (GETLOOKUPPHONICCODES
))
          (BLOCK)                                     (* This process has lower priority.)

          (COND
	    ((MATCHTHEPHONICCODES
 LOOKUPPHONICCODES PHONICCODES LASTFLAG)
	      (SETQ POSSET# (GETLOOKUPDICTWORD
))
	      [push
 HOMOSETLISTLOCAL (CONS LOOKUPPHONICCODES
					   (for
 I from
 1 to
 POSSET# collect
 (READPOSSET
]
	      (GO LOOP1)))
          (RETURN (SETA HOMOSETLISTARRAY NTH HOMOSETLISTLOCAL])

(MAKEPHONICREMAINDER

  [LAMBDA (PHONIC1 PHONIC2)                           (* J.Ikeo " 3-SEP-84 11:52")

    (COND
      ((NULL PHONIC1)
	PHONIC2)
      ((IEQP (CAR PHONIC1)
	     (CAR PHONIC2))
	(MAKEPHONICREMAINDER
 (CDR PHONIC1)
			     (CDR PHONIC2)))
      (T (QUOTE DONTMATCH])

(MATCHTHEPHONICCODES

  [LAMBDA (LOOKUPPHONICCODES PHONICCODES LASTFLAG)    (* J.Ikeo "29-AUG-84 10:46")

    (COND
      [[AND LASTFLAG (NOT (IEQP (LENGTH LOOKUPPHONICCODES)
				(LENGTH PHONICCODES]
	(EQUAL (REVERSE PHONICCODES)
	       (CDR (LASTN (REVERSE LOOKUPPHONICCODES)
			   (LENGTH PHONICCODES]
      (T (EQUAL PHONICCODES LOOKUPPHONICCODES])

(READENTRY

  [LAMBDA NIL                                         (* J.Ikeo " 4-SEP-84 16:33")

    (DECLARE
 (GLOBALVARS DICTADDR))
    (PROG (ENTRYSIZE KANJICODES FREQ)
          (SETQ ENTRYSIZE (GETLOOKUPDICTWORD
))
          (SETQ KANJICODES (for
 INDEX from
 1 to
 ENTRYSIZE collect
 (GETLOOKUPDICTWORD
)))
          (SETQ FREQ (LOGAND (GETLOOKUPDICTWORD
)
			     255))
          (RETURN (CREATEKANJIENTRY
 KANJICODES FREQ])

(READPOSSET

  [LAMBDA NIL                                         (* J.Ikeo " 4-SEP-84 16:33")

    (DECLARE
 (GLOBALVARS DICTADDR))
    (PROG (WORD ENTRY# POS)
          (SETQ WORD (GETLOOKUPDICTWORD
))
          (SETQ POS (LRSH WORD 8))
          (SETQ ENTRY# (LOGAND WORD 255))
          (RETURN (CONS POS (for
 I from
 1 to
 ENTRY# collect
 (READENTRY
])

(SOFTENDINGP

  [LAMBDA (POS PHONICCODES)                           (* J.Ikeo " 3-SEP-84 13:42")

    (DECLARE
 (GLOBALVARS HARDENDINGFLAG $$SOFT$$))
    (AND (NULL HARDENDINGFLAG)
	 (NOT (ZEROP (GetConnection
 POS $$SOFT$$)))
	 (NOT (MEMBER (CAR PHONICCODES)
		      (QUOTE (67 69 71])

(KANAKANJICONVERSION

  [LAMBDA NIL                                         (* J.Ikeo " 4-SEP-84 11:01")

    (PROG (SELECTEDKANJICODES)
          (DECLARE
 (GLOBALVARS HERALDKANALIST RECENTHCLIST RECENTKANACODES 
			       RECENTKANJICODES KANJIINHERALDFLAG))
          (RESETLST (RESETSAVE (CURSOR (CURSORCREATE WAITING1 0 15)))
		    (NPROCESS
)
		    (COLLECTKANJIENTRIES
)
		    (PREKANJISELECTION
))
          (COND
	    [(OR (SETQ RECENTHCLIST (CONVERTTOHCLIST
))
		 PREHCSINPAGELIST)
	      (RESETLST (RESETSAVE (CURSOR (CURSORCREATE WAITING3 0 15)))
			[SETQ RECENTKANACODES (MAPCAR HERALDKANALIST
						      (FUNCTION (LAMBDA (HERALDKANA)
							  (fetch
 (HERALDKANACHARS CODE)
							     of
 HERALDKANA]
			(MAPC HERALDKANALIST (FUNCTION DELETECHRFROMCHARS)))
	      (SETQ SELECTEDKANJICODES (CONVERTTOKANJICODE
))
	      (COND
		(SELECTEDKANJICODES (SETQ KANJIINHERALDFLAG T)
				    (SETQ RECENTKANJICODES SELECTEDKANJICODES)
				    (CLEARHERALD
)
				    (DISPLAYHERALD
 RECENTKANJICODES)
				    (MAPC RECENTKANJICODES (FUNCTION CODEADDTOCHARS)))
		(T (SHOWVKBDW
)
		   (MAPC (FETCHHERALDKANACODES
)
			 (FUNCTION CODEADDTOCHARS]
	    (T (PROMPTPRINT "Sorry, I have no KANJIs correspond with the KANA .")
	       (FLASHVKBDW
])

(CONVERTTOHCLIST

  [LAMBDA NIL                                         (* J.Ikeo " 6-SEP-84 16:25")

    (RESETLST (RESETSAVE (CURSOR (CURSORCREATE WAITING2 0 15)))
	      (MAKEHCLIST
])

(DICTADDROFFSET

  [LAMBDA (DICTADDRARG OFFSET)                        (* J.Ikeo "27-AUG-84 06:06")

    (IPLUS DICTADDRARG OFFSET])

(ELIMINATEHEADZEROS

  [LAMBDA (LIS)                                       (* J.Ikeo "17-MAY-84 07:05")

    (COND
      ((NULL LIS)
	NIL)
      ((ZEROP (CAR LIS))
	(ELIMINATEHEADZEROS
 (CDR LIS)))
      (T LIS])

(ELIMINATETAILZEROS

  [LAMBDA (LIS)                                       (* J.Ikeo "17-MAY-84 07:01")

    (REVERSE (ELIMINATEHEADZEROS
 (REVERSE LIS])

(GETINDEXFILEWORD

  [LAMBDA (FILEADR)                                   (* J.Ikeo " 4-JUL-84 10:40")

    (DECLARE
 (GLOBALVARS INDEXFILE))
    (WORDCONTENTS (WORDOFFSET (\MAPPAGE (LRSH FILEADR 8)
					INDEXFILE)
			      (LOGAND FILEADR 255])

(GETLOOKUPDICTWORD

  [LAMBDA NIL                                         (* J.Ikeo " 4-SEP-84 16:19")

    (DECLARE
 (GLOBALVARS DICTADDR LOOKUPDICTFILE))
    (PROG (WORD)
          [SETQ WORD (WORDCONTENTS (WORDOFFSET (\MAPPAGE (LRSH DICTADDR 8)
							 LOOKUPDICTFILE)
					       (LOGAND DICTADDR 255]
          (SETQ DICTADDR (DICTADDROFFSET
 DICTADDR 1))
          (RETURN WORD])

(GetConnection

  [LAMBDA (POS PRE)                                   (* J.Ikeo "12-JUL-84 08:50")

    (BITMAPBIT GRAMMTABLE PRE POS])

(MAKEBYTECONTENTSLIST

  [LAMBDA (WORDCONTENTSLIST)                          (* J.Ikeo "28-JUN-84 11:07")

    (COND
      ((NULL WORDCONTENTSLIST)
	NIL)
      (T (CONS (LRSH (CAR WORDCONTENTSLIST)
		     8)
	       (CONS (LOGAND (CAR WORDCONTENTSLIST)
			     255)
		     (MAKEBYTECONTENTSLIST
 (CDR WORDCONTENTSLIST])

(KANATAIL

  [LAMBDA (KANJICODES)                                (* J.Ikeo "13-JUL-84 10:59")

    (REVERSE (KANATAIL1
 (REVERSE KANJICODES])

(KANATAIL1

  [LAMBDA (CODES)                                     (* J.Ikeo " 5-SEP-84 13:23")

    (COND
      ((NULL CODES)
	NIL)
      [(IEQP (LRSH (CAR CODES)
		   9)
	     18)
	(CONS (CAR CODES)
	      (KANATAIL1
 (CDR CODES]
      (T NIL])

(ALLKANACODEP

  [LAMBDA (CODES)                                     (* J.Ikeo " 6-SEP-84 12:59")

    (EVAL (CONS (FUNCTION AND)
		(MAPCAR CODES (FUNCTION (LAMBDA (CODE)
			    (OR (IEQP (LRSH CODE 9)
				      18)
				(IEQP CODE 8509)
				(IEQP CODE 8482)
				(IEQP CODE 8483])

(COLLECTKANJIENTRIES

  [LAMBDA NIL                                         (* J.Ikeo "30-AUG-84 14:18")

    (PROG ((NUMBER 0)
	   PROCESS)
          (DECLARE
 (GLOBALVARS HERALDKANALIST HOMOSETLIST HOMOSETLISTARRAY))
          [MAPC HERALDKANALIST (FUNCTION (LAMBDA (HERALDKANA)
		    (AND (SETQ PROCESS (fetch
 (HERALDKANACHARS PROCESS) of
 HERALDKANA))
			 (SETQ NUMBER (ADD1 NUMBER))
			 (PROCESSP PROCESS)
			 (PROCESS.RESULT PROCESS T]
          (SETQ HOMOSETLIST (for
 I from
 1 to
 NUMBER join
 (COPY (ELT HOMOSETLISTARRAY I])
)
(DEFINEQ

(CALCULATETOTALFREQ

  [LAMBDA (ENTRIES)                                   (* J.Ikeo " 3-SEP-84 16:28")

    (CALCULATETOTALFREQ1
 (CAR (LASTN ENTRIES 1])

(CALCULATETOTALFREQ1

  [LAMBDA (ENTRIES)                                   (* J.Ikeo "30-AUG-84 14:35")

    (DECLARE
 (GLOBALVARS $$LAST$$ $$SOFT$$))
    (COND
      ((NULL ENTRIES)
	0)
      ((IEQP (fetch
 (SUFFIXENTRY PRE) of
 (CAR ENTRIES))
	     $$SOFT$$)
	1)
      ((NULL (CDR ENTRIES))
	(ITIMES (fetch
 (SUFFIXENTRY FREQ) of
 (CAR ENTRIES))
		(GetConnection
 (fetch
 (SUFFIXENTRY POS) of
 (CAR ENTRIES))
			       $$LAST$$)))
      (T (ITIMES (fetch
 (SUFFIXENTRY FREQ) of
 (CAR ENTRIES))
		 (GetConnection
 (fetch
 (SUFFIXENTRY POS) of
 (CAR ENTRIES))
				(fetch
 (SUFFIXENTRY PRE) of
 (CADR ENTRIES)))
		 (CALCULATETOTALFREQ1
 (CDR ENTRIES])

(MAKECODELIST

  [LAMBDA (ENTRIES)                                   (* J.Ikeo " 5-SEP-84 12:02")

    (APPEND (fetch
 (KANJIENTRY KANAKANJICODES) of
 (CAR ENTRIES))
	    (for
 ENTRY in
 (CAR (LASTN (CDR ENTRIES)
				      1))
	       join
 (COPY (fetch
 (SUFFIXENTRY KANAKANJICODES) of
 ENTRY])

(MAKEHCLIST

  [LAMBDA NIL                                         (* J.Ikeo " 6-SEP-84 17:50")

    (PROG (ENTRIESLIST ENTRIESWITHENDINGPOSITIONLIST)
          (DECLARE
 (GLOBALVARS HARDENDINGFLAG LONGESTENDINGPOSITION HARDENDINGPOSITION 
			       GLOBALPHONICCODES))
          (SETQ ENTRIESLIST (MAKEFASTENDENTRIESLIST
))
          (COND
	    [(NULL HARDENDINGFLAG)
	      (SETQ LONGESTENDINGPOSITION (GETLONGESTENDINGPOSITION
 ENTRIESLIST))
	      (COND
		((IEQP LONGESTENDINGPOSITION HARDENDINGPOSITION)
		  (SETQ HARDENDINGFLAG T]
	    (T (SETQ LONGESTENDINGPOSITION HARDENDINGPOSITION)))
          [SETQ ENTRIESLIST (SELECTENTRIESWITHENDINGPOSITION
 ENTRIESLIST
							     (COND
							       (HARDENDINGFLAG 
								   HARDENDINGPOSITION)
							       (T (IDIFFERENCE 
								LONGESTENDINGPOSITION 
								  SOFTENDINGALLOWANCE)))
							     (COND
							       (HARDENDINGFLAG 
								   HARDENDINGPOSITION)
							       (T LONGESTENDINGPOSITION]
          (AND (BOUNDP (QUOTE SHOWSETSUZOKU))
	       (OPENW SHOWSETSUZOKU))
          (RETURN (for
 ENTRIES in
 ENTRIESLIST collect
 (create
 HC
							      TOTALFREQ _(fetch

								(KANJIENTRY FREQ)
									    of

									     (CAR ENTRIES)
								)
							      CODELIST _(MAKECODELIST

								ENTRIES])

(GETLONGESTENDINGPOSITION

  [LAMBDA (ENTRIESLIST)                               (* J.Ikeo " 3-SEP-84 13:20")

    (OR [CAR (LAST (for
 ENTRIES in
 ENTRIESLIST largest
 (CAR (LAST ENTRIES]
	0])

(SELECTENTRIESWITHENDINGPOSITION

  [LAMBDA (ENTRIESWITHENDINGPOSITIONLIST MINPOSITION MAXPOSITION)
                                                      (* J.Ikeo " 3-SEP-84 15:01")

    (for
 ENTRIESWITHENDINGPOSITION in
 ENTRIESWITHENDINGPOSITIONLIST bind
 POSITION
       eachtime
 (SETQ POSITION (CAR (LAST ENTRIESWITHENDINGPOSITION)))
       when
 (AND POSITION (COND
		   ((IEQP POSITION MAXPOSITION)
		     (replace
 (KANJIENTRY FREQ) of
 (CAR ENTRIESWITHENDINGPOSITION)
			with
 (TIMES (fetch
 (KANJIENTRY FREQ) of
 (CAR 
							    ENTRIESWITHENDINGPOSITION))
				    2))
		     T)
		   ((GEQ POSITION MINPOSITION)
		     T)
		   (T NIL)))
       collect
 ENTRIESWITHENDINGPOSITION])
)
(DEFINEQ

(CONVERTTOKANJICODE

  [LAMBDA (SHOWFLAG)                                  (* J.Ikeo " 5-SEP-84 13:28")

    (DECLARE
 (GLOBALVARS RECENTHCLIST PRESSEDKEY HCSINPAGE HCSINPAGELIST MAXPAGENUMBER 
			 PAGENUMBER VKBDW PREHCSINPAGELIST PREHCLIST))
    (PROG (HCLST RETURNVALUE VKBDWXPOS VKBDWYPOS SHOWHCPROCESS (EXITFLAG))
          [RESETLST (RESETSAVE (CURSOR (CURSORCREATE WAITING3 0 15)))
		    (SETQ VKBDWXPOS (DSPXPOSITION NIL VKBDW))
		    (SETQ VKBDWYPOS (DSPYPOSITION NIL VKBDW))
		    (COND
		      [RECENTHCLIST (SETQ HCLST (SORTHCLIST
 (HCDIFFERENCE
 RECENTHCLIST 
									  PREHCLIST)))
				    (SETQ HCSINPAGELIST (APPEND PREHCSINPAGELIST
								(CONVERTTOHCSINPAGES

								  HCLST
								  (NULL PREHCSINPAGELIST]
		      (T (SETQ HCSINPAGELIST PREHCSINPAGELIST)))
		    (SETQ MAXPAGENUMBER (LENGTH HCSINPAGELIST))
		    (COND
		      ((AND (IEQP MAXPAGENUMBER 1)
			    (IEQP (LENGTH (CAR HCSINPAGELIST))
				  1))
			(SETQ RETURNVALUE (fetch
 (HC CODELIST) of
 (CAAR HCSINPAGELIST)))
			(SETQ EXITFLAG T))
		      ([OR (AND SHOWFLAG PREHCSINPAGELIST)
			   (AND PREHCSINPAGELIST (NULL (CDR PREHCSINPAGELIST))
				(NULL (CDADR PREHCSINPAGELIST]
			(SHOWHC
 (CAR HCSINPAGELIST)
				T
				(IEQP 1 MAXPAGENUMBER)))
		      (T (NOOPERATION
]
          (SETQ PAGENUMBER 1)
          (SETQ HCSINPAGE (CAR HCSINPAGELIST))
          (COND
	    (EXITFLAG (GO EXIT)))
      INNERLOOP
          [SETQ SHOWHCPROCESS (ADD.PROCESS (QUOTE (PROCESSSHOWHC
]
          (KEYFORCHAR
)
          (DEL.PROCESS SHOWHCPROCESS)
          (CLEARBUF T T)
          (COND
	    ((NULL PRESSEDKEY)
	      (FLASHVKBDW
)
	      (GO INNERLOOP))
	    ((EQ PRESSEDKEY (QUOTE DEFAULT))
	      (SHOWVKBDW
)
	      (SETQ RETURNVALUE (fetch
 (HC CODELIST) of
 (CAAR HCSINPAGELIST)))
	      (GO EXIT))
	    [(EQ PRESSEDKEY (QUOTE NEXTPAGE))
	      (SETQ PAGENUMBER (COND
		  ((GEQ PAGENUMBER MAXPAGENUMBER)
		    1)
		  (T (ADD1 PAGENUMBER]
	    ((EQ PRESSEDKEY (QUOTE UNDO))
	      (SETQ RETURNVALUE NIL)
	      (GO EXIT))
	    ((LISTP PRESSEDKEY)
	      (SETQ PAGENUMBER (MIN (CAR PRESSEDKEY)
				    MAXPAGENUMBER)))
	    ((GEQ (LENGTH HCSINPAGE)
		  PRESSEDKEY)
	      [SETQ RETURNVALUE (fetch
 (HC CODELIST) of
 (CAR (NTH HCSINPAGE PRESSEDKEY]
	      (GO EXIT))
	    (T (FLASHVKBDW
)
	       (GO INNERLOOP)))
          (SETQ HCSINPAGE (CAR (NTH HCSINPAGELIST PAGENUMBER)))
          (SHOWHC
 HCSINPAGE (IEQP PAGENUMBER 1)
		  (IEQP PAGENUMBER MAXPAGENUMBER))
          (GO INNERLOOP)
      EXIT(MOVETO VKBDWXPOS VKBDWYPOS VKBDW)
          (RETURN RETURNVALUE])

(CONVERTTOHCSINPAGES

  [LAMBDA (HCLIST FIRST)                              (* J.Ikeo " 5-SEP-84 11:45")

    (PROG (LOWFREQ (HCSINPAGELOCAL)
		   (HCLST HCLIST))
          (SETQ HCLST HCLIST)
          (COND
	    ((NULL HCLST)
	      (RETURN NIL)))
          (SETQ LOWFREQ (TIMES (fetch
 (HC TOTALFREQ) of
 (CAR HCLST))
			       .75))
      LOOP(SETQ HCSINPAGELOCAL (CONS (PROG1 (CAR HCLST)
					    (SETQ HCLST
					      (for
 HC in
 (CDR HCLST)
						 unless
 (EQUAL (fetch
 (HC CODELIST)
								  of
 (CAR HCLST))
							       (fetch
 (HC CODELIST)
								  of
 HC))
						 collect
 HC)))
				     HCSINPAGELOCAL))
          (COND
	    ((AND (NULL HCLST)
		  (NULL (CDR HCSINPAGELOCAL)))
	      (RETURN (LIST HCSINPAGELOCAL)))
	    ((NULL HCLST)
	      (COND
		(FIRST (SHOWHC
 (REVERSE HCSINPAGELOCAL)
			       T T)))
	      (RETURN (CONS (REVERSE HCSINPAGELOCAL)
			    NIL)))
	    [(GEQ (LENGTH HCSINPAGELOCAL)
		  8)
	      (COND
		(FIRST (SHOWHC
 (REVERSE HCSINPAGELOCAL)
			       T)))
	      (RETURN (CONS (REVERSE HCSINPAGELOCAL)
			    (CONVERTTOHCSINPAGES
 HCLST]
	    ((GEQ (fetch
 (HC TOTALFREQ) of
 (CAR HCLST))
		  LOWFREQ)
	      (GO LOOP))
	    (T (COND
		 (FIRST (SHOWHC
 (REVERSE HCSINPAGELOCAL)
				T)))
	       (RETURN (CONS (REVERSE HCSINPAGELOCAL)
			     (CONVERTTOHCSINPAGES
 HCLST])

(UNIQUIFY

  [LAMBDA (HCLIST)                                    (* J.Ikeo "23-AUG-84 10:06")

    (COND
      ((NULL HCLIST)
	NIL)
      [(HCMEMBER
 (CAR HCLIST)
		 (CDR HCLIST))
	(CONS (CAR HCLIST)
	      (UNIQUIFY
 (for
 HC in
 (CDR HCLIST) unless
 (EQUAL (fetch
 (HC CODELIST)
								 of
 (CAR HCLIST))
							      (fetch
 (HC CODELIST)
								 of
 HC))
			   collect
 HC]
      (T (CONS (CAR HCLIST)
	       (UNIQUIFY
 (CDR HCLIST])

(HCMEMBER

  [LAMBDA (HC HCLIST)                                 (* J.Ikeo "23-AUG-84 10:00")

    (for
 EACHHC in
 HCLIST when
 (AND (EQUAL (fetch
 (HC CODELIST) of
 HC)
					   (fetch
 (HC CODELIST) of
 EACHHC)))
       do
 (RETURN T])

(SORTHCLIST

  [LAMBDA (HCLIST)                                    (* J.Ikeo "22-JUN-84 13:31")

    (SORT HCLIST (FUNCTION (LAMBDA (HC1 HC2)
	      (IGREATERP (fetch
 (HC TOTALFREQ) of
 HC1)
			 (fetch
 (HC TOTALFREQ) of
 HC2])

(SHOWHC

  [LAMBDA (HCSINPAGEARG DEFAULTKEYFLAG BLACKARROWFLG)
                                                      (* J.Ikeo "25-JUL-84 10:18")

    (PROGN (SHOWVKBD
 HCVKBD)
	   (AND DEFAULTKEYFLAG (BUILTDEFAULTKEY
))
	   (BITBLT (COND
		     (BLACKARROWFLG BLACKARROWMASK)
		     (T WHITEARROWMASK))
		   0 0 VKBDW 5 76 21 24 (QUOTE INPUT)
		   (QUOTE ERASE))
	   (BITBLT (COND
		     (BLACKARROWFLG BLACKARROW)
		     (T WHITEARROW))
		   0 0 VKBDW 5 76 21 24 (QUOTE INPUT)
		   (QUOTE PAINT))
	   (MAP2C HCSINPAGEARG (QUOTE (2 3 4 5 0 1 6 7))
		  (FUNCTION SHOWHC1])

(SHOWHC1

  [LAMBDA (HC KEY)                                    (* J.Ikeo " 9-AUG-84 16:47")

    (PROG [(CODESNUMBER (LENGTH (fetch
 (HC CODELIST) of
 HC]
          (DECLARE
 (GLOBALVARS KANJIBITWIDTH VKBDW KANJIDISPLAYLIMIT))
          (MOVETO (IPLUS (IDIFFERENCE (CENTERX
 KEY)
				      (IQUOTIENT (ITIMES (MIN CODESNUMBER 
							      KANJIDISPLAYLIMIT)
							 KANJIBITWIDTH)
						 2))
			 (IQUOTIENT KANJIBITWIDTH 2))
		  (CENTERY
 KEY)
		  VKBDW)
          (for
 KANJICODE in
 (fetch
 (HC CODELIST) of
 HC) as
 I from
 1 to
 KANJIDISPLAYLIMIT
	     do
 (SHOWKANJIONVKBDW
 KANJICODE))
          (COND
	    ((GREATERP CODESNUMBER KANJIDISPLAYLIMIT)
	      (DSPFONT (DSPFONT NIL (TTYDISPLAYSTREAM))
		       VKBDW)
	      (PRIN3 (QUOTE --)
		     VKBDW])

(BUILTDEFAULTKEY

  [LAMBDA NIL                                         (* J.Ikeo "28-JUN-84 11:33")

    (DECLARE
 (GLOBALVARS VKBDW))
    (BITBLT DEFAULTKEYBM 0 0 VKBDW 94 41 160 32])

(CENTERX

  [LAMBDA (KEYNO)                                     (* J.Ikeo "28-JUN-84 11:41")

    (SELECTQ KEYNO
	     (0 182)
	     (1 342)
	     (2 166)
	     (3 326)
	     (4 158)
	     (5 318)
	     (6 174)
	     (7 334)
	     (SHOULDNT "Error in CENTERX"])

(CENTERY

  [LAMBDA (KEYNO)                                     (* J.Ikeo "28-JUN-84 11:46")

    (IPLUS 21 (ITIMES 32 (IQUOTIENT KEYNO 2)))
    (SELECTQ KEYNO
	     ((0 1)
	       21)
	     ((2 3)
	       53)
	     ((4 5)
	       85)
	     ((6 7)
	       117)
	     (SHOULDNT "Error in CENTERY"])

(SHOWKANJIONVKBDW

  [LAMBDA (CODE)                                      (* J.Ikeo " 9-AUG-84 16:45")

    (DECLARE
 (GLOBALVARS JDISPLAYFONTS VKBDW))
    (DSPFONT (OR (FONTP (ELT JDISPLAYFONTS (LOGAND (LRSH CODE 8)
						   127)))
		 (DSPFONT NIL (TTYDISPLAYSTREAM)))
	     VKBDW)
    (PRIN3 (CHARACTER (LOGAND CODE 127))
	   VKBDW])

(KEYFORCHAR

  [LAMBDA NIL                                         (* J.Ikeo "16-JUL-84 11:16")

    (PROG (VKBDWPROP)
          (DECLARE
 (GLOBALVARS VKBDW KEYFORCHARPROCESS))
          [SETQ KEYFORCHARPROCESS (ADD.PROCESS (QUOTE (KEYFORCHARPROCESS2
]
          (SETQ VKBDWPROP (WINDOWPROP VKBDW (QUOTE BUTTONEVENTFN)
				      (FUNCTION KEYFORCHARPROCESS1)))
          (PROCESS.RESULT KEYFORCHARPROCESS T)
          (WINDOWPROP VKBDW (QUOTE BUTTONEVENTFN)
		      VKBDWPROP])

(FLASHVKBDW

  [LAMBDA NIL                                         (* J.Ikeo "28-JUN-84 11:47")

    (DECLARE
 (GLOBALVARS VKBDW))
    (FLASHAREA
 NIL NIL NIL NIL VKBDW])

(FLASHAREA

  [LAMBDA (LEFT BOTTOM WIDTH HEIGHT WINDOW)           (* J.Ikeo "28-JUN-84 11:48")

    (DECLARE
 (GLOBALVARS BLACKSHADE BELLRATE))
    (FRPTQ 4 (BITBLT NIL NIL NIL WINDOW LEFT BOTTOM WIDTH HEIGHT (QUOTE TEXTURE)
		     (QUOTE INVERT)
		     BLACKSHADE)
	   (DISMISS BELLRATE])
)
(DEFINEQ

(KEYFORCHARPROCESS1

  [LAMBDA NIL                                         (* J.Ikeo "16-JUL-84 10:37")

    (PROG NIL
          (DECLARE
 (GLOBALVARS PRESSEDKEY VKBDW VKBDKEYREGIONS KEYFORCHARPROCESS))
          (ALLOW.BUTTON.EVENTS)
          (COND
	    ((MOUSESTATE (ONLY LEFT))
	      [SETQ PRESSEDKEY (for
 EACH in
 VKBDKEYREGIONS when
 (INSIDEP (CAR EACH)
									 (LASTMOUSEX
									   VKBDW)
									 (LASTMOUSEY
									   VKBDW))
				  do
 (RETURN (CDR EACH]
	      (DEL.PROCESS KEYFORCHARPROCESS])

(KEYFORCHARPROCESS2

  [LAMBDA NIL                                         (* J.Ikeo "16-JUL-84 10:55")

    (DECLARE
 (GLOBALVARS PRESSEDKEY))
    (TTY.PROCESS (THIS.PROCESS))
    (SETQ PRESSEDKEY (SELECTQ (\GETKEY)
			      (27 (QUOTE DEFAULT))
			      (9 (QUOTE NEXTPAGE))
			      (1 (QUOTE UNDO))
			      ((65 83 68 70 71 97 115 100 102 103)
				1)
			      ((72 74 75 76 58 104 106 107 108 59)
				2)
			      ((81 87 69 82 84 113 119 101 114 116)
				3)
			      ((89 85 73 79 80 123 121 117 105 111 112)
				4)
			      ((90 88 67 86 66 122 120 99 118 98)
				5)
			      ((78 77 60 62 63 110 109 44 46 47)
				6)
			      ((50 51 52 53 54)
				7)
			      ((55 56 57 48 45)
				8)
			      (33 (QUOTE (1)))
			      (64 (QUOTE (2)))
			      (35 (QUOTE (3)))
			      (36 (QUOTE (4)))
			      (37 (QUOTE (5)))
			      (126 (QUOTE (6)))
			      (38 (QUOTE (7)))
			      (42 (QUOTE (8)))
			      (40 (QUOTE (9)))
			      NIL])

(PROCESSSHOWHC

  [LAMBDA NIL                                         (* edited: " 7-AUG-84 18:08")

    (PROG ((SHOWHCSTATE (QUOTE OLDSTATE))
	   (CHANGESTATE))
          (DECLARE
 (GLOBALVARS HCSINPAGE HCSINPAGELIST MAXPAGENUMBER PAGENUMBER VKBDW))
      LOOP(BLOCK)
          (COND
	    ((AND (KEYDOWNP (QUOTE LSHIFT))
		  (EQ SHOWHCSTATE (QUOTE OLDSTATE)))
	      (SETQ CHANGESTATE (QUOTE NEW)))
	    ((AND (NULL (KEYDOWNP (QUOTE LSHIFT)))
		  (EQ SHOWHCSTATE (QUOTE NEWSTATE)))
	      (SETQ CHANGESTATE (QUOTE OLD)))
	    (T (SETQ CHANGESTATE)))
          (COND
	    ((NULL CHANGESTATE)
	      (GO LOOP))
	    ((EQ CHANGESTATE (QUOTE OLD))
	      [SETQ PAGENUMBER (COND
		  ((IEQP PAGENUMBER 1)
		    MAXPAGENUMBER)
		  (T (SUB1 PAGENUMBER]
	      (SETQ HCSINPAGE (CAR (NTH HCSINPAGELIST PAGENUMBER)))
	      (SHOWHC
 HCSINPAGE (IEQP PAGENUMBER 1)
		      (IEQP PAGENUMBER MAXPAGENUMBER))
	      (SETQ SHOWHCSTATE (QUOTE OLDSTATE))
	      (GO LOOP))
	    (T [SETQ PAGENUMBER (COND
		   ((GEQ PAGENUMBER MAXPAGENUMBER)
		     1)
		   (T (ADD1 PAGENUMBER]
	       (SETQ HCSINPAGE (CAR (NTH HCSINPAGELIST PAGENUMBER)))
	       (SHOWHC
 HCSINPAGE (IEQP PAGENUMBER 1)
		       (IEQP PAGENUMBER MAXPAGENUMBER))
	       (SETQ SHOWHCSTATE (QUOTE NEWSTATE))
	       (GO LOOP])
)
(FILESLOAD BITMAPFNS)
(FILESLOAD CONVERTER DICT0)
(PUTPROPS JSYSTEM COPYRIGHT ("J.Ikeo : Fuji Xerox Co., Ltd. - All rights reverved." 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (6041 7759 (JSET 6051 . 6451) (JIN 6453 . 6964) (JLISPINIT 6966 . 7757)) (
7760 11242 (DLIONKEYMAP 7770 . 8161) (REPLACESOMEFUNCTIONS 8163 . 8378) (SETUPJFONTS 8380
 . 8732) (CREATEVKBDW 8734 . 8979) (SETUPVKBDBITMAP 8981 . 9646) (OPENLOOKUPDICT 9648 . 
10020) (SETUPINDEXARRAY 10022 . 10468) (CREATELOOKUPDICTLOCK 10470 . 10669) (
SETHOMOSETLISTARRAY 10671 . 11040) (JLISPINSTALLEDP 11042 . 11240)) (11243 12964 (
EXCUSEFORNOVKBD 11253 . 11445) (HWTYPEISNOTDOLPHIN 11447 . 11599) (CREATESUFFIXENTRY 11601
 . 11824) (JLISPISINSTALLED 11826 . 11976) (MAKEVKBDW 11978 . 12131) (CREATEINDEXARRAY 
12133 . 12962)) (12999 31976 (MIRAIMONITOR 13009 . 21249) (MIRAIMONITORINIT 21251 . 21891)
 (MIRAIMONITORGETKEY 21893 . 22176) (CANCELP 22178 . 22305) (CANCELACTION 22307 . 22804) (
DELETECHARS 22806 . 23219) (DELETEWORD 23221 . 23515) (TAILKANJICONVERSIONP 23517 . 23658)
 (KANAMODEP 23660 . 23811) (TAILKANJICONVERSION 23813 . 24252) (KANJICONVERSION 24254 . 
24653) (ALPHANUMERICACTION 24655 . 24987) (LFKANAACTION 24989 . 25507) (
CARRIAGERETURNACTION 25509 . 25906) (LINEDELETEACTION 25908 . 26182) (RETYPEACTION 26184
 . 26704) (CTRLVACTION 26706 . 26875) (ESCACTION 26877 . 27049) (SPACEACTION 27051 . 27330
) (DOUBLEQUOTEACTION 27332 . 27574) (LEFTPARACTION 27576 . 27821) (RIGHTPARACTION 27823 . 
28252) (DEPOSITTOUTEN 28254 . 28438) (DEPOSITKUTEN 28440 . 28623) (LEFTBRKACTION 28625 . 
28870) (RIGHTBRKACTION 28872 . 29242) (DEPOSITBARACTION 29244 . 29431) (ENGMODEACTION 
29433 . 29643) (TOHIRAKANACONVERSIONP 29645 . 29788) (TOHIRAKANACONVERSION 29790 . 30365) 
(HIRAKANAMODEACTION 30367 . 30599) (TOKATAKANACONVERSIONP 30601 . 30744) (
TOKATAKANACONVERSION 30746 . 31321) (KATAKANAMODEACTION 31323 . 31555) (MIRAIBOUT 31557 . 
31758) (RETRIEVECODESFROMCHARS 31760 . 31974)) (31977 51658 (SHOWVKBD 31987 . 32164) (
SHOWVKBDW 32166 . 32669) (STARTLOOKUPPROCESS 32671 . 33208) (CREATEHERALDKANACHARS 33210
 . 33517) (PUTNONJCHARONVKBD 33519 . 33717) (RESETPREVIOUSLASTKANAXPOS 33719 . 34047) (
RESETRECENTKANACODES 34049 . 34240) (SETJMODE 34242 . 34527) (SETLASTKANAXPOS 34529 . 
34703) (PUTJCHARONVKBD 34705 . 35025) (PATTERNFOR 35027 . 35426) (POPHERALDKANALIST 35428
 . 35633) (NOOPERATION 35635 . 35748) (KANACODEP 35750 . 35883) (KANAISONVKBDP 35885 . 
36090) (KILLUNUSEFULPROCESS 36092 . 36473) (CARETISINNEXTLINEP 36475 . 36683) (
CARETSETPREVIOUSLEFT 36685 . 36980) (CLEARALLFOLLOWINGLASTKANA 36982 . 37239) (
CLEARALLINLINE 37241 . 37487) (ALPHABETP 37489 . 37734) (ATOMINPUTP 37736 . 37967) (
BALANCEDBRKP 37969 . 38137) (CLEARHERALD 38139 . 38321) (CLEARHERALDROMA 38323 . 38658) (
CODEADDTOCHARS 38660 . 38964) (CREATECHR 38966 . 39334) (DELETEHERALDKANA 39336 . 39789) (
DISPLAYHERALD 39791 . 40003) (DISPLAYHERALD1 40005 . 40716) (ENGALPHANUMERICACTION 40718
 . 40916) (ENGMODEP 40918 . 41070) (HELPARGP 41072 . 41377) (HIRAKANAMODEP 41379 . 41583) 
(INPUTFIGURE 41585 . 41825) (JCHARACTERP 41827 . 41955) (KANAALPHANUMERICACTION 41957 . 
42230) (KANAFOR 42232 . 42369) (KATAKANAMODEP 42371 . 42575) (LBRKCOUNTDECREMENT 42577 . 
42799) (LBRKCOUNTINCREMENT 42801 . 43023) (LOWEREIGHTBIT 43025 . 43153) (
LPARCOUNTDECREMENT 43155 . 43407) (LPARCOUNTINCREMENT 43409 . 43661) (MAKEUPKANA 43663 . 
43826) (MAKEUPKANAP 43828 . 43992) (NOTINSTRINGP 43994 . 44161) (NPROCESS 44163 . 44575) (
NPROCESSP 44577 . 44821) (NUMERICORSPECIALCHARACTION 44823 . 45074) (RESETROMATREE 45076
 . 45262) (RETRYKANJISELECTION 45264 . 45846) (ROMAINPUTACTION 45848 . 46848) (SETEOLFLAG 
46850 . 47013) (STRINGINOUT 47015 . 47196) (TRAVERSEROMATREE 47198 . 47429) (TREELOOK 
47431 . 47577) (TYPINGROMAP 47579 . 47803) (UPPEREIGHTBIT 47805 . 47929) (
FETCHCHRCODEFIELD 47931 . 48083) (FETCHCHRJMODEFLAGFIELD 48085 . 48247) (
FETCHHERALDKANACODES 48249 . 48536) (RESETVKBD 48538 . 48739) (RESETHERALDKANALIST 48741
 . 49188) (RESETLASTKANAXPOS 49190 . 49399) (DISPLAYEDONNEXTLINEP 49401 . 49651) (
CORRECTDISPLAYEDCHRXPOS 49653 . 49900) (DELIMITERACTION 49902 . 50093) (NORMALCHARCODEP 
50095 . 50256) (NOSUCHROMAJI 50258 . 50423) (BACKUPROMATREE 50425 . 50616) (RESETCHARS 
50618 . 50779) (SETHELPINGARGFLAG 50781 . 50937) (PATTERNMODEP 50939 . 51081) (
FINDLASTJMODE 51083 . 51396) (TRAVERSEINDEXTREE 51398 . 51656)) (51659 53310 (
JDSPPRINTCHAR 51669 . 52375) (DISPLAYCHARACTER 52377 . 52656) (JADDCHAR 52658 . 52917) (
BUFBOUT 52919 . 53098) (SETJFONT 53100 . 53308)) (53311 54449 (DELETECHRFROMCHARS 53321 . 
54447)) (54450 54870 (CONVERTTOJISCODE 54460 . 54868)) (54919 74977 (GETCOMPLETELYMATCH 
54929 . 55844) (GETINDEXTREE 55846 . 56130) (GETNEXTINDEXTREE 56132 . 56304) (GETPREHCLIST
 56306 . 56798) (GETPHONICCODES 56800 . 57010) (HCDIFFERENCE 57012 . 57392) (
PRECONVERTTOHCSINPAGES 57394 . 58740) (PREKANJIENTRYSELECTION 58742 . 59042) (
PREKANJISELECTION 59044 . 60430) (CALCULATESOFTPOSITION 60432 . 60832) (CONVERTTOKANACODE 
60834 . 61323) (CONVERTTOPHONICCODE 61325 . 61760) (NUMBEROFPHONICCODES 61762 . 62233) (
CREATEDUMMYFASTENDENTRIES 62235 . 62743) (CREATEKANJIENTRY 62745 . 62936) (
GETLOOKUPPHONICCODES 62938 . 63655) (GETSUFFIXHOMOSETLIST 63657 . 63867) (
GETSUFFIXHOMOSETLIST1 63869 . 64306) (MAKEFASTENDENTRIESLIST 64308 . 66011) (
MAKEFASTENDSUFFIXENTRIESLIST 66013 . 66714) (MAKEFASTENDSUFFIXENTRIESLIST1 66716 . 67689) 
(MAKEHOMOSETSUBLIST 67691 . 68763) (MAKEPHONICREMAINDER 68765 . 69058) (
MATCHTHEPHONICCODES 69060 . 69418) (READENTRY 69420 . 69883) (READPOSSET 69885 . 70271) (
SOFTENDINGP 70273 . 70571) (KANAKANJICONVERSION 70573 . 71864) (CONVERTTOHCLIST 71866 . 
72062) (DICTADDROFFSET 72064 . 72202) (ELIMINATEHEADZEROS 72204 . 72425) (
ELIMINATETAILZEROS 72427 . 72589) (GETINDEXFILEWORD 72591 . 72844) (GETLOOKUPDICTWORD 
72846 . 73243) (GetConnection 73245 . 73386) (MAKEBYTECONTENTSLIST 73388 . 73716) (
KANATAIL 73718 . 73868) (KANATAIL1 73870 . 74124) (ALLKANACODEP 74126 . 74411) (
COLLECTKANJIENTRIES 74413 . 74975)) (74978 78447 (CALCULATETOTALFREQ 74988 . 75151) (
CALCULATETOTALFREQ1 75153 . 75858) (MAKECODELIST 75860 . 76182) (MAKEHCLIST 76184 . 77501)
 (GETLONGESTENDINGPOSITION 77503 . 77711) (SELECTENTRIESWITHENDINGPOSITION 77713 . 78445))
 (78448 86922 (CONVERTTOKANJICODE 78458 . 81060) (CONVERTTOHCSINPAGES 81062 . 82435) (
UNIQUIFY 82437 . 82916) (HCMEMBER 82918 . 83185) (SORTHCLIST 83187 . 83433) (SHOWHC 83435
 . 84019) (SHOWHC1 84021 . 84830) (BUILTDEFAULTKEY 84832 . 85026) (CENTERX 85028 . 85295) 
(CENTERY 85297 . 85600) (SHOWKANJIONVKBDW 85602 . 85945) (KEYFORCHAR 85947 . 86436) (
FLASHVKBDW 86438 . 86620) (FLASHAREA 86622 . 86920)) (86923 89710 (KEYFORCHARPROCESS1 
86933 . 87467) (KEYFORCHARPROCESS2 87469 . 88419) (PROCESSSHOWHC 88421 . 89708)))))
STOP