(FILECREATED "24-SEP-84 13:24:49" {DSK}JSYSTEMDATA.;2
 12890  

      changes to:  (VARS COFFEE WHITEARROW WHITEARROWMASK BLACKARROW BLACKARROWMASK 
			 WAITING1 WAITING2 WAITING3 PATTERNLIST)

      previous date: " 6-SEP-84 12:14:47" {ATSUGI}<JLISP>MIRAI0>JSYSTEMDATA.;4)


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

(PRETTYCOMPRINT JSYSTEMDATACOMS)

(RPAQQ JSYSTEMDATACOMS
 ((* Bitmaps)
			(BITMAPS COFFEE WHITEARROW WHITEARROWMASK BLACKARROW 
				 BLACKARROWMASK WAITING1 WAITING2 WAITING3)
			(* Variables)
			(VARS (JLISPINIT))
			(VARS (INDEXFILE (QUOTE MAINDICT.INDEX))
			      (LOOKUPDICTFILE (QUOTE MAINDICT.LOOKUP)))
			(VARS (KANJIENTRYLIST))
			(* CONSTANT)
			(VARS JAPANESEFONTS PATTERNLIST ROMALIST JFNS)
			(VARS VKBDKEYREGIONS (SELECTEDFLAG))
			(CONSTANTS (BS.KEYBOARD 1)
				   (SHIFTBS.KEYBOARD 23)
				   (TAB.KEYBOARD 9)
				   (LF.KEYBOARD 10)
				   (RETURN.KEYBOARD 13)
				   (LINEDELETE.KEYBOARD 17)
				   (RETYPE.KEYBOARD 18)
				   (CTRLV.KEYBOARD 22)
				   (ESC.KEYBOARD 27)
				   (SPACE.KEYBOARD 32)
				   (DOUBLEQUOTE.KEYBOARD 34)
				   (SINGLEQUOTE.KEYBOARD 39)
				   (LEFTPAR.KEYBOARD 40)
				   (RIGHTPAR.KEYBOARD 41)
				   (COMMA.KEYBOARD 44)
				   (PERIOD.KEYBOARD 46)
				   (LEFTBRK.KEYBOARD 91)
				   (RIGHTBRK.KEYBOARD 93)
				   (LEFTARROW.KEYBOARD 95)
				   (BLANKTOP.KEYBOARD 193)
				   (BLANKMIDDLE.KEYBOARD 194)
				   (BLANKBOTTOM.KEYBOARD 195))
			(CONSTANTS ENGMODE.JMODE HIRAKANAMODE.JMODE KATAKANAMODE.JMODE 
				   PATTERNMODE.JMODE)
			(CONSTANTS (BEGINLOOKUPDICTLENGTH 2)
				   (INDEXFILEBLOCKSIZE 84)
				   (INDEXFILERECORDSIZE 2)
				   (KANJIBITWIDTH 14))
			(CONSTANTS ($$LAST$$ 0)
				   ($$SOFT$$ 255)
				   (LONGESTENDINGPOSITIONWEIGHT 3)
				   (KANJIDISPLAYLIMIT 10))
			(CONSTANTS LINEDELETEMARK)
			(CONSTANTS (SOFTENDINGALLOWANCE 1))))



(* Bitmaps)



(RPAQ COFFEE (READBITMAP))
(16 16
"@A@@"
"@IB@"
"ABD@"
"@IB@"
"ABD@"
"@@@@"
"COON"
"COOB"
"CKKB"
"CAAB"
"C@AB"
"C@AB"
"CHCB"
"CLGB"
"CNOL"
"COO@")

(RPAQ WHITEARROW (READBITMAP))
(21 24
"@@B@@@@@"
"@@B@@@@@"
"@@G@@@@@"
"@@E@@@@@"
"@@MH@@@@"
"@@HH@@@@"
"@AHL@@@@"
"@A@D@@@@"
"@C@F@@@@"
"@B@B@@@@"
"@F@C@@@@"
"@D@A@@@@"
"@L@AH@@@"
"@H@@H@@@"
"AH@@L@@@"
"A@@@D@@@"
"AO@GL@@@"
"@A@D@@@@"
"@A@D@@@@"
"@A@D@@@@"
"@A@D@@@@"
"@A@D@@@@"
"@A@D@@@@"
"@AOL@@@@")

(RPAQ WHITEARROWMASK (READBITMAP))
(21 24
"@@B@@@@@"
"@@B@@@@@"
"@@G@@@@@"
"@@G@@@@@"
"@@OH@@@@"
"@@OH@@@@"
"@AOL@@@@"
"@AOL@@@@"
"@CON@@@@"
"@CON@@@@"
"@GOO@@@@"
"@GOO@@@@"
"@OOOH@@@"
"@OOOH@@@"
"AOOOL@@@"
"AOOOL@@@"
"AOOOL@@@"
"@AOL@@@@"
"@AOL@@@@"
"@AOL@@@@"
"@AOL@@@@"
"@AOL@@@@"
"@AOL@@@@"
"@AOL@@@@")

(RPAQ BLACKARROW (READBITMAP))
(21 24
"@AOL@@@@"
"@AOL@@@@"
"@AOL@@@@"
"@AOL@@@@"
"@AOL@@@@"
"@AOL@@@@"
"@AOL@@@@"
"AOOOL@@@"
"AOOOL@@@"
"AOOOL@@@"
"@OOOH@@@"
"@OOOH@@@"
"@GOO@@@@"
"@GOO@@@@"
"@CON@@@@"
"@CON@@@@"
"@AOL@@@@"
"@AOL@@@@"
"@@OH@@@@"
"@@OH@@@@"
"@@G@@@@@"
"@@G@@@@@"
"@@B@@@@@"
"@@B@@@@@")

(RPAQ BLACKARROWMASK (READBITMAP))
(21 24
"@AOL@@@@"
"@AOL@@@@"
"@AOL@@@@"
"@AOL@@@@"
"@AOL@@@@"
"@AOL@@@@"
"@AOL@@@@"
"AOOOL@@@"
"AOOOL@@@"
"AOOOL@@@"
"@OOOH@@@"
"@OOOH@@@"
"@GOO@@@@"
"@GOO@@@@"
"@CON@@@@"
"@CON@@@@"
"@AOL@@@@"
"@AOL@@@@"
"@@OH@@@@"
"@@OH@@@@"
"@@G@@@@@"
"@@G@@@@@"
"@@B@@@@@"
"@@B@@@@@")

(RPAQ WAITING1 (READBITMAP))
(16 16
"OOON"
"ODCN"
"GNOL"
"COOH"
"AOO@"
"@ON@"
"@FL@"
"@CH@"
"@BH@"
"@FL@"
"@LF@"
"AHC@"
"C@AH"
"F@@L"
"LC@F"
"OOON")

(RPAQ WAITING2 (READBITMAP))
(16 16
"OOON"
"L@AN"
"G@GL"
"CHOH"
"AOO@"
"@ON@"
"@GL@"
"@CH@"
"@BH@"
"@FL@"
"@LF@"
"AHK@"
"CAMH"
"FCNL"
"LOON"
"OOON")

(RPAQ WAITING3 (READBITMAP))
(16 16
"OOON"
"L@@F"
"F@@L"
"C@AH"
"AHC@"
"@LN@"
"@FL@"
"@CH@"
"@BH@"
"@FL@"
"@MN@"
"AOO@"
"COOH"
"GOOL"
"OOON"
"OOON")



(* Variables)



(RPAQQ JLISPINIT
 NIL)

(RPAQQ INDEXFILE
 MAINDICT.INDEX)

(RPAQQ LOOKUPDICTFILE
 MAINDICT.LOOKUP)

(RPAQQ KANJIENTRYLIST
 NIL)



(* CONSTANT)



(RPAQQ JAPANESEFONTS
 ((33 NSJIS1-C41-)
		      (36 NSJIS1-C44-)
		      (37 NSJIS1-C45-)
		      (48 NSJIS1-C60-)
		      (49 NSJIS1-C61-)
		      (50 NSJIS1-C62-)
		      (51 NSJIS1-C63-)
		      (52 NSJIS1-C64-)
		      (53 NSJIS1-C65-)
		      (54 NSJIS1-C66-)
		      (55 NSJIS1-C67-)
		      (56 NSJIS1-C70-)
		      (57 NSJIS1-C71-)
		      (58 NSJIS1-C72-)
		      (59 NSJIS1-C73-)
		      (60 NSJIS1-C74-)
		      (61 NSJIS1-C75-)
		      (62 NSJIS1-C76-)
		      (63 NSJIS1-C77-)
		      (64 NSJIS1-C100-)
		      (65 NSJIS1-C101-)
		      (66 NSJIS1-C102-)
		      (67 NSJIS1-C103-)
		      (68 NSJIS1-C104-)
		      (69 NSJIS1-C105-)
		      (70 NSJIS1-C106-)
		      (71 NSJIS1-C107-)
		      (72 NSJIS1-C110-)
		      (73 NSJIS1-C111-)
		      (74 NSJIS1-C112-)
		      (75 NSJIS1-C113-)
		      (76 NSJIS1-C114-)
		      (77 NSJIS1-C115-)
		      (78 NSJIS1-C116-)
		      (79 NSJIS1-C117-)))

(RPAQQ PATTERNLIST
 ((33 42)
		    (64 119)
		    (35 116)
		    (36 112)
		    (37 115)
		    (126 65)
		    (38 117)
		    (42 118)
		    (40 74)
		    (41 75)
		    (24 93)
		    (43 92)
		    (124 94)
		    (96 107)
		    (49 120)
		    (50 110)
		    (51 113)
		    (52 111)
		    (53 114)
		    (54 103)
		    (55 104)
		    (56 109)
		    (57 76)
		    (48 77)
		    (45 97)
		    (61 95)
		    (92 96)
		    (10 108)
		    (81 73)
		    (87 68)
		    (69 66)
		    (82 54)
		    (84 52)
		    (89 70)
		    (85 71)
		    (73 88)
		    (79 89)
		    (80 0)
		    (123 80)
		    (125 81)
		    (94 105)
		    (113 72)
		    (119 69)
		    (101 67)
		    (114 53)
		    (116 51)
		    (121 90)
		    (117 91)
		    (105 86)
		    (111 87)
		    (112 98)
		    (91 78)
		    (93 79)
		    (95 106)
		    (65 0)
		    (83 0)
		    (68 64)
		    (70 55)
		    (71 50)
		    (72 48)
		    (74 46)
		    (75 84)
		    (76 85)
		    (58 101)
		    (34 102)
		    (97 125)
		    (115 126)
		    (100 63)
		    (102 56)
		    (103 49)
		    (104 47)
		    (106 45)
		    (107 82)
		    (108 83)
		    (59 99)
		    (39 100)
		    (90 122)
		    (88 124)
		    (67 62)
		    (86 60)
		    (66 58)
		    (78 44)
		    (77 39)
		    (60 36)
		    (62 37)
		    (63 41)
		    (122 121)
		    (120 123)
		    (99 61)
		    (118 59)
		    (98 57)
		    (110 43)
		    (109 40)
		    (44 34)
		    (46 35)
		    (47 38)))

(RPAQQ ROMALIST
 [NIL NIL (A (34))
		     [B NIL (A (80))
			(E (89))
			(I (83))
			(O (92))
			(U (86))
			(Y NIL (A (83 99))
			   (O (83 103))
			   (U (83 101]
		     [C NIL [C NIL (H NIL (A (67 65 99))
				      (E (67 65 39))
				      (I (67 65))
				      (O (67 65 103))
				      (U (67 65 101]
			(H NIL (A (65 99))
			   (E (65 39))
			   (I (65))
			   (O (65 103))
			   (U (65 101]
		     [D NIL (A (64))
			(E (71))
			(I (66))
			(O (73))
			(U (69))
			(Y NIL (A (66 99))
			   (I (71 35))
			   (O (66 103))
			   (U (66 101]
		     (E (40))
		     (F NIL (A (85 33))
			(E (85 39))
			(I (85 35))
			(O (85 41))
			(U (85)))
		     [G NIL (A (44))
			(E (50))
			(I (46))
			(O (52))
			(U (48))
			(W NIL (A (48 110)))
			(Y NIL (A (46 99))
			   (O (46 103))
			   (U (46 101]
		     [H NIL (A (79))
			(E (88))
			(I (82))
			(O (91))
			(U (85))
			(Y NIL (A (82 99))
			   (O (82 103))
			   (U (82 101]
		     (I (36))
		     (J NIL (A (56 99))
			(E (56 39))
			(I (56))
			(O (56 103))
			(U (56 101)))
		     [K NIL (A (43))
			(E (49))
			(I (45))
			[K NIL (A (67 43))
			   (E (67 49))
			   (I (67 45))
			   (O (67 51))
			   (U (67 47))
			   (Y NIL (A (67 45 99))
			      (O (67 45 103))
			      (U (67 45 101]
			(O (51))
			(U (47))
			(W NIL (A (47 110)))
			(Y NIL (A (45 99))
			   (O (45 103))
			   (U (45 101]
		     [M NIL (A (94))
			(E (97))
			(I (95))
			(O (98))
			(U (96))
			(Y NIL (A (95 99))
			   (O (95 103))
			   (U (95 101]
		     [N NIL (A (74))
			(E (77))
			(I (75))
			(O (78))
			(U (76))
			(Y NIL (A (75 99))
			   (O (75 103))
			   (U (75 101]
		     (O (42))
		     [P NIL (A (81))
			(E (90))
			(I (84))
			(O (93))
			[P NIL (A (67 81))
			   (E (67 90))
			   (I (67 84))
			   (O (67 93))
			   (U (67 87))
			   (Y NIL (A (67 84 99))
			      (O (67 84 103))
			      (U (67 84 101]
			(U (87))
			(Y NIL (A (84 99))
			   (O (84 103))
			   (U (84 101]
		     [R NIL (A (105))
			(E (108))
			(I (106))
			(O (109))
			(U (107))
			(Y NIL (A (106 99))
			   (O (106 103))
			   (U (106 101]
		     [S NIL (A (53))
			(E (59))
			(H NIL (A (55 99))
			   (E (55 39))
			   (I (55))
			   (O (55 103))
			   (U (55 101)))
			(I (55))
			(O (61))
			[S NIL (A (67 53))
			   (E (67 59))
			   (H NIL (A (67 55 99))
			      (E (67 55 39))
			      (I (67 55))
			      (O (67 55 103))
			      (U (67 55 101)))
			   (I (67 55))
			   (O (67 61))
			   (U (67 57))
			   (Y NIL (A (67 55 99))
			      (E (67 55 39))
			      (O (67 55 103))
			      (U (67 55 101]
			(U (57))
			(Y NIL (A (55 99))
			   (E (55 39))
			   (O (55 103))
			   (U (55 101]
		     [T NIL (A (63))
			[C NIL (H NIL (A (67 65 99))
				  (E (67 65 39))
				  (O (67 65 103))
				  (U (67 65 101]
			(E (70))
			(I (65))
			(O (72))
			(S NIL (U (68)))
			[T NIL (A (67 63))
			   (E (67 70))
			   (I (67 65))
			   (O (67 72))
			   (S NIL (U (67 68)))
			   (U (67 68))
			   (Y NIL (A (67 65 99))
			      (E (67 65 39))
			      (O (67 65 103))
			      (U (67 65 101]
			(U (68))
			(Y NIL (A (65 99))
			   (E (65 39))
			   (I (70 35))
			   (O (65 103))
			   (U (65 101]
		     (U (38))
		     (W NIL (A (111))
			(E (113))
			(I (112))
			(O (114)))
		     (Y NIL (A (100))
			(O (104))
			(U (102)))
		     [Z NIL (A (54))
			(E (60))
			(I (56))
			(O (62))
			(U (58))
			(Y NIL (A (56 99))
			   (E (56 39))
			   (O (56 103))
			   (U (56 101]
		     (a (33))
		     (e (39))
		     (i (35))
		     (m (115))
		     (n (115))
		     (o (41))
		     (t NIL (s NIL (u (67)))
			(S NIL (U (67)))
			(u (67))
			(U (67)))
		     (u (37))
		     (w NIL (a (110))
			(A (110)))
		     (y NIL (a (99))
			(A (99))
			(o (103))
			(O (103))
			(u (101))
			(U (101])

(RPAQQ JFNS
 ((\DSPPRINTCHAR NONJ\DSPPRINTCHAR JDSPPRINTCHAR)
	     (\FILLBUFFER NONJ\FILLBUFFER NONJ\FILLBUFFER)))

(RPAQQ VKBDKEYREGIONS
 (((97 42 155 27) . 1)
		       ((257 42 155 27) . 2)
		       ((89 74 155 27) . 3)
		       ((249 74 155 27) . 4)
		       ((112 10 155 27) . 5)
		       ((273 10 155 27) . 6)
		       ((105 106 155 27) . 7)
		       ((265 106 155 27) . 8)
		       ((23 74 59 27) . NEXTPAGE)
		       ((505 72 30 30) . UNDO)
		       ((40 105 30 30) . DEFAULT)))

(RPAQQ SELECTEDFLAG
 NIL)
(DECLARE: EVAL@COMPILE 

(RPAQQ BS.KEYBOARD
 1)

(RPAQQ SHIFTBS.KEYBOARD
 23)

(RPAQQ TAB.KEYBOARD
 9)

(RPAQQ LF.KEYBOARD
 10)

(RPAQQ RETURN.KEYBOARD
 13)

(RPAQQ LINEDELETE.KEYBOARD
 17)

(RPAQQ RETYPE.KEYBOARD
 18)

(RPAQQ CTRLV.KEYBOARD
 22)

(RPAQQ ESC.KEYBOARD
 27)

(RPAQQ SPACE.KEYBOARD
 32)

(RPAQQ DOUBLEQUOTE.KEYBOARD
 34)

(RPAQQ SINGLEQUOTE.KEYBOARD
 39)

(RPAQQ LEFTPAR.KEYBOARD
 40)

(RPAQQ RIGHTPAR.KEYBOARD
 41)

(RPAQQ COMMA.KEYBOARD
 44)

(RPAQQ PERIOD.KEYBOARD
 46)

(RPAQQ LEFTBRK.KEYBOARD
 91)

(RPAQQ RIGHTBRK.KEYBOARD
 93)

(RPAQQ LEFTARROW.KEYBOARD
 95)

(RPAQQ BLANKTOP.KEYBOARD
 193)

(RPAQQ BLANKMIDDLE.KEYBOARD
 194)

(RPAQQ BLANKBOTTOM.KEYBOARD
 195)

(CONSTANTS (BS.KEYBOARD 1)
	   (SHIFTBS.KEYBOARD 23)
	   (TAB.KEYBOARD 9)
	   (LF.KEYBOARD 10)
	   (RETURN.KEYBOARD 13)
	   (LINEDELETE.KEYBOARD 17)
	   (RETYPE.KEYBOARD 18)
	   (CTRLV.KEYBOARD 22)
	   (ESC.KEYBOARD 27)
	   (SPACE.KEYBOARD 32)
	   (DOUBLEQUOTE.KEYBOARD 34)
	   (SINGLEQUOTE.KEYBOARD 39)
	   (LEFTPAR.KEYBOARD 40)
	   (RIGHTPAR.KEYBOARD 41)
	   (COMMA.KEYBOARD 44)
	   (PERIOD.KEYBOARD 46)
	   (LEFTBRK.KEYBOARD 91)
	   (RIGHTBRK.KEYBOARD 93)
	   (LEFTARROW.KEYBOARD 95)
	   (BLANKTOP.KEYBOARD 193)
	   (BLANKMIDDLE.KEYBOARD 194)
	   (BLANKBOTTOM.KEYBOARD 195))
)
(DECLARE: EVAL@COMPILE 

(RPAQQ ENGMODE.JMODE
 NIL)

(RPAQQ HIRAKANAMODE.JMODE
 36)

(RPAQQ KATAKANAMODE.JMODE
 37)

(RPAQQ PATTERNMODE.JMODE
 33)

(CONSTANTS ENGMODE.JMODE HIRAKANAMODE.JMODE KATAKANAMODE.JMODE PATTERNMODE.JMODE)
)
(DECLARE: EVAL@COMPILE 

(RPAQQ BEGINLOOKUPDICTLENGTH
 2)

(RPAQQ INDEXFILEBLOCKSIZE
 84)

(RPAQQ INDEXFILERECORDSIZE
 2)

(RPAQQ KANJIBITWIDTH
 14)

(CONSTANTS (BEGINLOOKUPDICTLENGTH 2)
	   (INDEXFILEBLOCKSIZE 84)
	   (INDEXFILERECORDSIZE 2)
	   (KANJIBITWIDTH 14))
)
(DECLARE: EVAL@COMPILE 

(RPAQQ $$LAST$$
 0)

(RPAQQ $$SOFT$$
 255)

(RPAQQ LONGESTENDINGPOSITIONWEIGHT
 3)

(RPAQQ KANJIDISPLAYLIMIT
 10)

(CONSTANTS ($$LAST$$ 0)
	   ($$SOFT$$ 255)
	   (LONGESTENDINGPOSITIONWEIGHT 3)
	   (KANJIDISPLAYLIMIT 10))
)
(DECLARE: EVAL@COMPILE 

(RPAQQ LINEDELETEMARK
 "##")

(CONSTANTS LINEDELETEMARK)
)
(DECLARE: EVAL@COMPILE 

(RPAQQ SOFTENDINGALLOWANCE
 1)

(CONSTANTS (SOFTENDINGALLOWANCE 1))
)
(PUTPROPS JSYSTEMDATA COPYRIGHT ("J.Ikeo : Fuji Xerox Co., Ltd. - All rights reverved." 
1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP