(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 5-Nov-93 14:22:01" ("compiled on " {DSK}export>lispcore>sources>CLTL2>LLREAD.;1) "19-Feb-93 17:03:08" bcompl'd in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "12-Oct-93 22:11:23" "{Pele:mv:envos}Sources>CLTL2>LLREAD.;2" 121366 changes to%: (FNS \RSTRING2) (MACROS \NSIN) previous date%: " 4-May-91 08:47:17" "{Pele:mv:envos}Sources>CLTL2>LLREAD.;1") LASTC :D8 (L (0 FILE)) M@g 5Hdnjhdl l9`Hl l0HHl0`H(41 CHARACTER 10 \GETSTREAM) (72 \OneCharAtomBase 51 \OneCharAtomBase 15 STREAM 5 INPUT) () PEEKC :D8 (L (1 FLG 0 FILE) P 0 \RefillBufferFn) Gg@g I Zdl l9`Jl l0JJl0`J(35 CHARACTER 24 PEEKCCODE 15 \GETSTREAM) (66 \OneCharAtomBase 45 \OneCharAtomBase 10 INPUT 4 \PEEKREFILL) () PEEKCCODE :D8 (L (1 NOERROR 0 FILE) P 20 \INTERRUPTABLE P 0 \RefillBufferFn) ;g@g 0Id 0jIA h]dlDI I HId ]lMId jl ^lJNIA ]hwI HIhlKNnI MIA I BI HIhlLM',g'_ O_IAhlOI __dl *OdjlId 0jrI h__l@I H_Id _lOId jl _lOI _OI H_IhlOn+I &,g'_ O_ IhlO Ii Id 0j1I MI H_"IhlO"l/I &,g'_$ O$_&IhlO&l l l Okl O(507 \BACKFILEPTR 469 \BACKFILEPTR 448 \PEEKBIN 351 \NSIN.24BITENCODING.ERROR 174 \BACKFILEPTR 167 \PEEKBIN 118 \PEEKBIN 102 \NSIN.24BITENCODING.ERROR 45 \PEEKBIN 15 \GETSTREAM) (533 EXTERNALFORMAT 524 EXTERNALFORMAT 516 EXTERNALFORMAT 484 FDEV 477 STREAM 455 STREAM 428 EXTERNALFORMAT 419 EXTERNALFORMAT 411 EXTERNALFORMAT 381 FDEV 374 STREAM 319 FDEV 312 STREAM 285 STREAM 228 EXTERNALFORMAT 219 EXTERNALFORMAT 211 EXTERNALFORMAT 190 FDEV 183 STREAM 137 FDEV 130 STREAM 74 FDEV 67 STREAM 28 STREAM 10 INPUT 4 \PEEKREFILL) () RATOM :D8 (L (1 RDTBL 0 FILE) P 2 \RefillBufferFn P 1 *PACKAGE* P 0 *READTABLE* F 5 *READTABLE* F 6 *PACKAGE*) AAdiUbddj`Vg#``lhdi `Floj @g HkKH Lhddi KLhh(120 \SUBREAD 109 READTABLE-CASEARRAY 93 \GETSTREAM 80 ARRAY 60 ALLOCSTRING) (150 \\PNAMESTRING.GLOBALRESOURCE 141 \\PNAMECASEBITS.GLOBALRESOURCE 133 \\PNAMECASEBITS.GLOBALRESOURCE 126 \\PNAMESTRING.GLOBALRESOURCE 99 READTABLEP 88 INPUT 65 \\PNAMECASEBITS.GLOBALRESOURCE 48 \\PNAMESTRING.GLOBALRESOURCE 40 \RATOM/RSTRING-REFILL 33 *INTERLISP-PACKAGE* 22 READTABLEP 13 READTABLEP) ( 74 (BITS 1)) READ :D8 (L (2 FLG 1 RDTBL 0 FILE) P 1 *READ-NEWLINE-SUPPRESS* P 0 *READTABLE* F 2 *READTABLE*) AAdiRB@hddi (28 \TOP-LEVEL-READ) (13 READTABLEP) () READC :D8 (L (1 RDTBL 0 FILE) P 1 \RefillBufferFn P 0 *READTABLE* F 13 *READTABLE*) a AAdiWg @gh @gh _d 0juO \l;O HOd \lLOd jl ]lJO MO HOhlK]nLO Ld,*ML%,g'^ N_OhlOO __dl /Odjl 4lOi l O l l l l Okl l O_5O_dl l9`Ol l0OOl0`O(313 CHARACTER 257 \PEEKBIN 120 \NSIN.24BITENCODING.ERROR 51 \GETSTREAM 34 \GETSTREAM) (347 \OneCharAtomBase 323 \OneCharAtomBase 203 EXTERNALFORMAT 195 EXTERNALFORMAT 188 EXTERNALFORMAT 147 FDEV 140 STREAM 90 FDEV 83 STREAM 59 STREAM 45 INPUT 39 STREAM 28 INPUT 19 \READCREFILL 14 READTABLEP) () READCCODE :D8 (L (1 RDTBL 0 FILE)) '@g bd h@AlH(10 \GETSTREAM) (25 FDEV 18 STREAM 5 INPUT) () READP :D8 (L (1 FLG 0 FILE)) .@g !H Y:I:HAlJHA (43 \GENERIC.READP 10 \GETSTREAM) (26 FDEV 5 INPUT) () SETREADMACROFLG :D8 (L (0 FLG)) hNIL NIL () SKIPSEPRCODES :D8 (L (1 RDTBL 0 FILE) P 2 \RefillBufferFn F 20 *READTABLE*) @g AAdiW(g H HHhlN]IHd 0jÿHi h__dlOH H H_Hd _lOHd jl _lOO_Hi _#hH H_HhlO_OnH OHi H FH H_HhlOO',g'_ O_HihlOdԼ_Ll OɀLOɀ jOLl`LHd 0j]H h_"_ lAH H_Hd _ lO Hd jl _"lOH _ O"]MnoH i,g'_$ O$_&HhlO&BKHK5L(445 \NSIN.24BITENCODING.ERROR 355 GETHASH 243 \BACKFILEPTR 236 \PEEKBIN 178 \PEEKBIN 157 \NSIN.24BITENCODING.ERROR 93 \PEEKBIN 10 \GETSTREAM) (524 STREAM 501 EXTERNALFORMAT 492 EXTERNALFORMAT 484 EXTERNALFORMAT 413 FDEV 406 STREAM 379 STREAM 348 CHARTABLE 336 CHARTABLE 301 EXTERNALFORMAT 292 EXTERNALFORMAT 284 EXTERNALFORMAT 259 FDEV 252 STREAM 199 FDEV 192 STREAM 125 FDEV 118 STREAM 76 STREAM 56 FDEV 49 STREAM 37 \PEEKREFILL 30 READTABLEP 25 READTABLEP 5 INPUT) () SKIPSEPRS :D8 (L (1 RDTBL 0 FILE) P 2 \RefillBufferFn F 19 *READTABLE*) ,@g AAdiW&gH HHhlM\IHd 0jHi h__dlLH H HHd _lOHd jl _lNO_Hi _#hH H_HhlO_OnH OHi H FH H_HhlOO',g'_ O_HihlOd_Kl OɀKOɀ jOKl`Hd 0j]H h_ _lAH H_Hd _lOHd jl _ lOH _O \LnvH p,g'_" O"_$HhlO$IKdl l9`Kl l0KKl0`K(520 CHARACTER 438 \NSIN.24BITENCODING.ERROR 350 GETHASH 240 \BACKFILEPTR 233 \PEEKBIN 175 \PEEKBIN 155 \NSIN.24BITENCODING.ERROR 93 \PEEKBIN 10 \GETSTREAM) (551 \OneCharAtomBase 530 \OneCharAtomBase 494 EXTERNALFORMAT 485 EXTERNALFORMAT 477 EXTERNALFORMAT 406 FDEV 399 STREAM 372 STREAM 343 CHARTABLE 331 CHARTABLE 298 EXTERNALFORMAT 289 EXTERNALFORMAT 281 EXTERNALFORMAT 256 FDEV 249 STREAM 196 FDEV 189 STREAM 125 FDEV 118 STREAM 76 STREAM 56 FDEV 49 STREAM 37 \PEEKREFILL 30 READTABLEP 25 READTABLEP 5 INPUT) () \NSIN.24BITENCODING.ERROR :D8 (L (0 STREAM) F 0 *SIGNAL-24BIT-NSENCODING-ERROR*) Po@ j(12 ERROR) NIL ( 6 "24-bit NS encoding not supported") SKREAD :D8 (L (2 RDTBL 1 REREADSTRING 0 FILE) P 3 \RBFLG P 1 *READTABLE* P 0 *READ-SUPPRESS* F 6 *READTABLE*) gBBdiV@g 3AJ \J  J ZILlMɀLMɀ jMLJhddi dlsgluKg(126 \TOP-LEVEL-READ 108 GETHASH 67 CL:MAKE-CONCATENATED-STREAM 61 CL:MAKE-STRING-INPUT-STREAM 56 MKSTRING 50 \EOF.ACTION 41 SKIPSEPRCODES 29 \GETSTREAM) (150 %] 137 %) 101 CHARTABLE 91 CHARTABLE 76 READTABLEP 24 INPUT 18 READTABLEP 4 SKREAD) () CL:READ :D8 (L (0 -args-) F 6 *READTABLE* F 7 *STANDARD-INPUT*) ekHWkaAlHilalHhlalHhlap``lhdi `Floj Ig VhLV Mhddd LMhhIJhK (169 \TOP-LEVEL-READ 126 \SUBREAD 115 READTABLE-CASEARRAY 99 \GETSTREAM 86 ARRAY 66 ALLOCSTRING) (156 \\PNAMESTRING.GLOBALRESOURCE 147 \\PNAMECASEBITS.GLOBALRESOURCE 139 \\PNAMECASEBITS.GLOBALRESOURCE 132 \\PNAMESTRING.GLOBALRESOURCE 105 READTABLEP 94 INPUT 71 \\PNAMECASEBITS.GLOBALRESOURCE 54 \\PNAMESTRING.GLOBALRESOURCE) ( 80 (BITS 1)) CL:READ-PRESERVING-WHITESPACE :D8 (L (0 -args-) F 6 *READTABLE* F 7 *STANDARD-INPUT*) ekHWkaAlHilalHhlalHhlap``lhdi `Floj Ig VhLV Mhddd LMhhIJhKhi (172 \TOP-LEVEL-READ 126 \SUBREAD 115 READTABLE-CASEARRAY 99 \GETSTREAM 86 ARRAY 66 ALLOCSTRING) (156 \\PNAMESTRING.GLOBALRESOURCE 147 \\PNAMECASEBITS.GLOBALRESOURCE 139 \\PNAMECASEBITS.GLOBALRESOURCE 132 \\PNAMESTRING.GLOBALRESOURCE 105 READTABLEP 94 INPUT 71 \\PNAMECASEBITS.GLOBALRESOURCE 54 \\PNAMESTRING.GLOBALRESOURCE) ( 80 (BITS 1)) CL:READ-DELIMITED-LIST :D8 (L (0 -args-) F 7 *READTABLE* F 8 *STANDARD-INPUT*) ekaQlHWlalHhlaId3 Jg Kv`flhdi `Lloj Jg WLmMW NhdLh MNhhJhdL (183 \TOP-LEVEL-READ 141 \SUBREAD 130 READTABLE-CASEARRAY 108 \GETSTREAM 95 ARRAY 75 ALLOCSTRING 53 \GETSTREAM) (171 \\PNAMESTRING.GLOBALRESOURCE 162 \\PNAMECASEBITS.GLOBALRESOURCE 154 \\PNAMECASEBITS.GLOBALRESOURCE 147 \\PNAMESTRING.GLOBALRESOURCE 115 READTABLEP 103 INPUT 80 \\PNAMECASEBITS.GLOBALRESOURCE 63 \\PNAMESTRING.GLOBALRESOURCE 48 INPUT 41 CHARACTER) ( 89 (BITS 1)) CL:PARSE-INTEGER :D8 (L (0 -args-)) 'ekaHlKJUhHlNdM]h_Hl__OdO\l _Hl__OdO]h_I hoI Kdagl[kaagNkaNl^agOkaOl_agOkaOl_`Idj Il Idj Idj lDO_dkOOdl$O _O(LjjLL L_0O(OO&O&jOO O_2l0Om_,Ol lAOm_.O2dO0UO"O*O$O0O$O0_ _O l!OɀO Oɀ jOO l`O0k_0O2O0aOhO2$oO$O0_4O,Pl0O4O8+O0_8'O6\O8XO4dl-gl+Eg_6O0k_0dO22O*O$O0O.laO4O4l ՁO4O.O8O0_8O0_:O8zOHO0O2AO4l!O"ɀO4O"ɀ jO"O4l`hO0k_0O2i0O$O8O:O6gOO* O*O$O0O$O0_4OhO0O($O8ooLOILjOO& I h(803 CL:ERROR 796 CL:SUBSEQ 725 \MKINTEGER 672 GETHASH 449 GETHASH 346 \ILLEGAL.ARG 314 \ILLEGAL.ARG 295 \INVALID.RADIX 256 %%ARRAY-TYPE-NUMBER 240 %%ARRAY-OFFSET 227 \GETBASEFIXP 216 %%ARRAY-BASE 100 ERROR 87 CL:STRINGP) (714 - 665 CHARTABLE 652 CHARTABLE 556 + 545 - 442 CHARTABLE 429 CHARTABLE 201 READTABLEP 196 CMLRDTBL 173 :JUNK-ALLOWED 149 :RADIX 128 :END 109 :START) ( 774 "There is junk in this integer string: ~S." 768 "There aren't any digits in this integer string: ~S." 493 "No non-whitespace characters in integer string: ~S" 94 "This is not a string : ~S") RSTRING :D8 (L (2 RSFLG 1 RDTBL 0 FILE) P 2 *READ-SUPPRESS* P 1 \RefillBufferFn P 0 *READTABLE* F 4 *READTABLE*) WAAdiTg"`2lhdi @g HBiK Kh(68 \RSTRING2 50 \GETSTREAM 38 ALLOCSTRING) (82 \\PNAMESTRING.GLOBALRESOURCE 74 \\PNAMESTRING.GLOBALRESOURCE 56 READTABLEP 45 INPUT 26 \\PNAMESTRING.GLOBALRESOURCE 18 \RATOM/RSTRING-REFILL 13 READTABLEP) () READ-EXTENDED-TOKEN :D8 (L (2 ESCAPE-ALLOWED-P 1 RDTBL 0 STREAM) F 35 *READTABLE*)  #AAdiWFb`Elhdi `+loj  A Hdj hh@ H@hlJAA jhA0jhhO.'jlI"OB_0O@O0ODO0jO0m԰j_0@ <@kKR@d 0jZ@ ]l9@ H@d ]lM@d jl ^lL@ N_*O*^nM@ Md-+NM&,g'_ O_@hlO_2l!O,ɀO2O,ɀ jO,O2_4BO4dlFN@d 0ji@ _lB@ H_@d _lO@d jl _lO@ _O_*O*_nO@ Od/-OO&,g'_ O_@hlO@ __dl -Odjl 2l@i l @ l l l l Okl l O_2i_:IO0k O<O4l j@d 0jM@ iO*;@ H_ @hlO lG@ >lGO jHO0 _2O6O8O2&O6 _2O:}O2i$wO&O2lO&O2_2O0l/O0hdO> jHO0 _0O6O8O0&O0h_6_8j_0O(O0O2O>O2li_>O.O@ J+@ H_"@hlO"l@ n,g'_$ O$_&@hlO&Hl@i l @ l ]lAɀMAɀ jAM^djlFW>j@d 0jg@ _*lA@ H_(@d _*lO*@d jl _,lO(@ _*O,ZJ_,nO*@ O*d/-O,O*&,g'_. O._0@hlO0_2dl +Hdjl 0l@i l @ l l l l Hkl l O2BgMl jBNlqM_Ci}Nl j@d 0j>@ J+@ H_4@hlO4l@ n,g'_6 O6_8@hlO8Bg@NdlqM_l`5OMl Oi&IKkMjMl i_l h_W O>_@@hdlO@_D_BODl!OBɀODOBɀ jOBODl jvN_ol jBkLdlEk_`_i_l9dli8l nA@d 0jÿ@h h_N_LdlO@ @ H_F@d _LlOL@d jl _NlOFON_N@h _L#h@ H_H@hlOH_NONn@ OL@h @ F@ H_J@hlOJOL',g'_P OP_R@hdlOR_V_TOVl!OTɀOVOTɀ jOTOVl jhlKV@ hkH @ \lLllhlL(127 CHARCODE.DECODE 122 CONCAT 117 READ-EXTENDED-TOKEN 111 ALLOCSTRING 102 READ-EXTENDED-TOKEN 56 GETHASH 15 PEEKCCODE 5 READCCODE) (49 CHARTABLE 39 CHARTABLE 24 READTABLEP) () CHARCODE.DECODE :D8 (L (1 NOERROR 0 C)) @h@A @A @dd3@ k%@  Aho@ @ dl^@lm A dml#@lm A dl@ 1`YoH !LHgLglgi HLk A ]nMjMHgLkglgi `HkLk K7h^GnN@jN;MNZdH IO3JbdL K[Ao@ Awo@ (409 ERROR 392 ERROR 365 STRING.EQUAL 334 STRING.EQUAL 298 SUBSTRING 280 CL:PARSE-INTEGER 231 CHARCODE.DECODE 225 SUBSTRING 214 CL:PARSE-INTEGER 180 STRPOSL 153 MKSTRING 138 CHARCODE.DECODE 132 SUBSTRING 108 CHARCODE.DECODE 102 SUBSTRING 85 CHCON1 78 ERROR 56 STRINGP 50 CHCON1 40 NCHARS 23 CHARCODE.DECODE 15 CHARCODE.DECODE) (287 CHARACTERSETNAMES 273 :JUNK-ALLOWED 266 :RADIX 258 :END 207 :JUNK-ALLOWED 200 :RADIX 194 :START 161 CHARACTERNAMES) ( 403 "BAD CHARACTER SPECIFICATION" 386 "BAD CHARACTERSET SPECIFICATION" 174 (%, - "." "|") 72 "BAD CHARACTER SPECIFICATION") \MAKE.JIS.TO.XCCS.CONV.TABLE :D8 NIL lgl lgl lgl n l@ l@ ```hoH `1HB`I`#dHJkJ HJJ HIXYl Zdk`l`Jl`[KIll j HX}dHH` `dHH` P`Ad0L&d[KLl Kl NMh_M&OXIHZYJ` ! YHdHH` l!`l"`l&`h(446 PUTHASH 422 LAST 415 \APPEND2 322 PUTHASH 291 PUTHASH 265 SETA 192 SETA 178 SETA 126 CL:ENDP 88 HASHARRAY 76 HASHARRAY 64 HASHARRAY 51 ARRAY 32 ARRAY 13 ARRAY) (484 *JIS-TO-XCCS-CONV-TABLE-LIST* 474 *JIS-6KU-TO-XCCS-CONV-TABLE* 466 *JIS-2KU-TO-XCCS-CONV-TABLE* 458 *JIS-1KU-TO-XCCS-CONV-TABLE* 441 *XCCS-TO-JIS-CONV-TABLE* 410 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 335 *JIS-TO-XCCS-CODE-MAP* 317 *ZENKAKU-TO-HANKAKU-CONV-TABLE* 301 *HANKAKU-TO-ZENKAKU-CODE-MAP* 286 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 246 *JIS-6KU-TO-XCCS-CONV-TABLE* 234 *JIS-2KU-TO-XCCS-CONV-TABLE* 223 *JIS-1KU-TO-XCCS-CONV-TABLE* 157 *JIS-TO-XCCS-CODE-MAP* 147 *HANKAKU-TO-ZENKAKU-CODE-MAP* 134 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 108 *JIS-6KU-TO-XCCS-CONV-TABLE* 103 *JIS-2KU-TO-XCCS-CONV-TABLE* 98 *JIS-1KU-TO-XCCS-CONV-TABLE* 93 *ZENKAKU-TO-HANKAKU-CONV-TABLE* 81 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 69 *XCCS-TO-JIS-CONV-TABLE* 56 *JIS-6KU-TO-XCCS-CONV-TABLE* 44 BYTE 37 *JIS-2KU-TO-XCCS-CONV-TABLE* 25 BYTE 18 *JIS-1KU-TO-XCCS-CONV-TABLE* 6 BYTE) ( 117 (1 2 6)) CONVHANKAKU :D8 (L (0 ARGS)) &ekag Hkkagla (34 STREAMPROP 15 STREAMPROP) (26 :HTOZP 10 :HTOZP) () \JISIN :D8 (L (1 COUNTP 0 STREAM)) ,!@jhj @ Zd lE@ [dl$~@ \lBLl@@kAIlعiH?@ A(Jl!(Jl""Jl#Jl&Jl(JltJdlul!KKl~`Jdl!dl"dl&X`_Kl k OKl NlNMMl```JK`zl#KsJdl(.Kj!l!K``SJK`G`@ltKjlKKnu+`%JluKjlKKnt``KlI$Jl!(Jl""Jl#Jl&Jl(JltJdlu߿l!KdKl~\Jdl!dl"dl&T`_Kl k _OKl _OlOOOl`JK`l#KJdl(&Kjl!K`JK`ltKjlKKnuJluKjlKKntK@ @ All(w@ \lJLlH@jAIlعhBH1@ A2Jl!(Jl""Jl#Jl&Jl(JltJdluol!KKl~`_Jdl!dl"dl&a`_Kl k _OKl _OlOOOl` ``JK`l#KJdl(1Kj#l!K``JK``ltKjlKKnu`JluKjlKKnt}`v`nJl!(Jl""Jl#Jl&Jl(JltJdluRl!KKl~Jdl!dl"dl&T`_Kl k _OKl _ OlOO O l`xJK`l#sJdl(Kjl!K`{`ltKjlKKnuJluKjlKKnt@ @ AlkI$H*A2Jl!(Jl""Jl#Jl&Jl(JltJdlu'l!KKl~`Jdl!dl"dl&a`_&Kl k _$O&Kl _"O$lO$O"O"l```JK`l#KJdl(1Kj#l!K``~JK`q`iltKjlKKnuS`LJluKjlKKnt5`.`&Jl!(Jl""Jl#Jl&Jl(JltJdlu l!KGKl~?Jdl!dl"dl&T`_(Kl k _*O(Kl _,O*lO*O,O,l`JK`l#+Jdl(Kjl!K`3`ltKjlKKnuJluKjlKKnt@ AMlkI$HAUJ@ _6_4l!/O4l"(O4l#!O4l&O4l(O4ltO4dlul!O6O6l~`O4dl!dl"dl&e`_2O6l k _0O2O6l _.O0lO0O.O.l```O4O6`l#O6O4dl(2O6j$l!O6``]O4O6`O`HltO6jlO6O6nu0`*O4luO6jlO6O6nt``O6lI$J@ _:_8l!/O8l"(O8l#!O8l&O8l(O8ltO8dlul!O:O:l~O8dl!dl"dl&X`_OlO>O@O@l`O8O:`l#O:O8dl(*O:jl!O:`O8O:`ltO:jglO:^O:nuO8luNO:jFlO:=O:ntO:Jl)lJ#AJ` kI$J` AJkI$J(2589 GETHASH 2571 GETHASH 2375 ELT 2359 ELT 2039 ELT 2023 ELT 1880 \BACKFILEPTR 1744 ELT 1729 ELT 1443 ELT 1428 ELT 1303 \BACKFILEPTR 1296 \BACKFILEPTR 1160 ELT 1145 ELT 859 ELT 844 ELT 738 \BACKFILEPTR 674 \BACKFILEPTR 667 \BACKFILEPTR 507 ELT 492 ELT 214 ELT 201 ELT 95 \BACKFILEPTR) (2584 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 2566 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 2475 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 2461 *REPLACE-NO-FONT-CODE* 2420 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 2405 *REPLACE-NO-FONT-CODE* 2342 *JIS-TO-XCCS-CONV-TABLE-LIST* 2230 *DEFAULT-NOT-CONVERTED-FAT-CODE* 2224 *DEFAULT-NOT-CONVERTED-FAT-CODE* 2193 *DEFAULT-NOT-CONVERTED-FAT-CODE* 2163 *DEFAULT-NOT-CONVERTED-FAT-CODE* 2154 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 2142 *DEFAULT-NOT-CONVERTED-FAT-CODE* 2136 *REPLACE-NO-FONT-CODE* 2095 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 2081 *DEFAULT-NOT-CONVERTED-FAT-CODE* 2075 *REPLACE-NO-FONT-CODE* 2067 *DEFAULT-NOT-CONVERTED-FAT-CODE* 2006 *JIS-TO-XCCS-CONV-TABLE-LIST* 1980 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1828 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1819 *REPLACE-NO-FONT-CODE* 1787 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1774 *REPLACE-NO-FONT-CODE* 1713 *JIS-TO-XCCS-CONV-TABLE-LIST* 1628 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1620 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1590 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1561 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1551 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1540 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1534 *REPLACE-NO-FONT-CODE* 1497 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1485 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1479 *REPLACE-NO-FONT-CODE* 1471 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1412 *JIS-TO-XCCS-CONV-TABLE-LIST* 1387 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1244 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1235 *REPLACE-NO-FONT-CODE* 1203 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1190 *REPLACE-NO-FONT-CODE* 1129 *JIS-TO-XCCS-CONV-TABLE-LIST* 1044 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1036 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1006 *DEFAULT-NOT-CONVERTED-FAT-CODE* 977 *DEFAULT-NOT-CONVERTED-FAT-CODE* 967 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 956 *DEFAULT-NOT-CONVERTED-FAT-CODE* 950 *REPLACE-NO-FONT-CODE* 913 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 901 *DEFAULT-NOT-CONVERTED-FAT-CODE* 895 *REPLACE-NO-FONT-CODE* 887 *DEFAULT-NOT-CONVERTED-FAT-CODE* 828 *JIS-TO-XCCS-CONV-TABLE-LIST* 803 *DEFAULT-NOT-CONVERTED-FAT-CODE* 709 STREAM 599 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 587 *REPLACE-NO-FONT-CODE* 550 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 537 *REPLACE-NO-FONT-CODE* 476 *JIS-TO-XCCS-CONV-TABLE-LIST* 382 *DEFAULT-NOT-CONVERTED-FAT-CODE* 376 *DEFAULT-NOT-CONVERTED-FAT-CODE* 349 *DEFAULT-NOT-CONVERTED-FAT-CODE* 322 *DEFAULT-NOT-CONVERTED-FAT-CODE* 313 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 303 *DEFAULT-NOT-CONVERTED-FAT-CODE* 297 *REPLACE-NO-FONT-CODE* 262 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 250 *DEFAULT-NOT-CONVERTED-FAT-CODE* 244 *REPLACE-NO-FONT-CODE* 236 *DEFAULT-NOT-CONVERTED-FAT-CODE* 185 *JIS-TO-XCCS-CONV-TABLE-LIST* 160 *DEFAULT-NOT-CONVERTED-FAT-CODE* 68 STREAM 5 STREAM) () \JISPEEK :D8 (L (2 COUNTP 1 NOERROR 0 STREAM)) R@jhj@A JB hI$l@ @A [@ B hI$l$@ @A \@ @ B hI$lBLl@@kBIlع@ ix@ @ H5B%Jl!(Jl""Jl#Jl&Jl(JltJdlul!KKl~`Jdl!dl"dl&X`_Kl k OKl NlNMMl```JK`zl#KsJdl(.Kj!l!K``SJK`G`@ltKjlKKnu+`%JluKjlKKnt``KI$Jl!(Jl""Jl#Jl&Jl(JltJdlu߿l!KKl~Jdl!dl"dl&T`_Kl k _OKl _OlOOOlz`qJK`l#KJdl(&KjPl!KH`?JK`ltKj(lK KnuJluKj lKKntKBlKl(@ @A \@ @ BhI$lJLlH@jBl@ h@ @ H*B2Jl!(Jl""Jl#Jl&Jl(JltJdluSl!KKl~`CJdl!dl"dl&a`_Kl k _OKl _OlOOOl```JK`l#KJdl(1Kj#l!K``JK``ltKjlKKnu`xJluKjlKKnta`Z`RJl!(Jl""Jl#Jl&Jl(JltJdlu3l!K$Kl~Jdl!dl"dl&T`_Kl k _OKl _ OlOO O l`JK`l#TJdl(Kjl!K`\`ltKjlKKnuJluKjlKKntBolI$H1@ B2Jl!(Jl""Jl#Jl&Jl(JltJdlul!KKl~`Jdl!dl"dl&a`_&Kl k _$O&Kl _"O$lO$O"O"l```JK`l#KJdl(1Kj#l!K``kJK`^`VltKjlKKnu@`9JluKjlKKnt"``Jl!(Jl""Jl#Jl&Jl(JltJdlul!KPKl~HJdl!dl"dl&T`_(Kl k _*O(Kl _,O*lO*O,O,l`JK`l#Jdl(Kjl!K``ltKjlKKnuJluKjlKKnt@ B)lI$HJ@ @A @ K*B2Jl!(Jl""Jl#Jl&Jl(JltJdlul!KKl~`Jdl!dl"dl&a`_2Kl k _0O2Kl _.O0lO0O.gO.l`Z``LJK`>l#K6Jdl(1Kj#l!K``JK``ltKjlKKnu`JluKjlKKnt``Jl!(Jl""Jl#Jl&Jl(JltJdlul!K9Kl~1Jdl!dl"dl&T`_4Kl k _6O4Kl _8O6lO6O8O8l`JK`l#Jdl(Kjl!K``ltKjlKKnuJluKjlKKntBhI$Jl&lJ BJ` I$J` BJI$J(2629 GETHASH 2613 GETHASH 2449 ELT 2434 ELT 2148 ELT 2133 ELT 2022 \BACKFILEPTR 2015 \PEEKBIN 1987 \BACKFILEPTR 1851 ELT 1836 ELT 1550 ELT 1535 ELT 1429 \BACKFILEPTR 1276 ELT 1261 ELT 975 ELT 960 ELT 849 \BACKFILEPTR 842 \BACKFILEPTR 788 \BACKFILEPTR 781 \BACKFILEPTR 772 \PEEKBIN 592 ELT 577 ELT 302 ELT 289 ELT 178 \BACKFILEPTR 171 \BACKFILEPTR 115 \BACKFILEPTR 108 \BACKFILEPTR 99 \PEEKBIN 68 \BACKFILEPTR 59 \PEEKBIN 20 \PEEKBIN) (2624 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 2608 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 2533 *DEFAULT-NOT-CONVERTED-FAT-CODE* 2524 *REPLACE-NO-FONT-CODE* 2492 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 2479 *REPLACE-NO-FONT-CODE* 2418 *JIS-TO-XCCS-CONV-TABLE-LIST* 2333 *DEFAULT-NOT-CONVERTED-FAT-CODE* 2325 *DEFAULT-NOT-CONVERTED-FAT-CODE* 2295 *DEFAULT-NOT-CONVERTED-FAT-CODE* 2266 *DEFAULT-NOT-CONVERTED-FAT-CODE* 2256 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 2245 *DEFAULT-NOT-CONVERTED-FAT-CODE* 2239 *REPLACE-NO-FONT-CODE* 2202 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 2190 *DEFAULT-NOT-CONVERTED-FAT-CODE* 2184 *REPLACE-NO-FONT-CODE* 2176 *DEFAULT-NOT-CONVERTED-FAT-CODE* 2117 *JIS-TO-XCCS-CONV-TABLE-LIST* 2092 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1935 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1926 *REPLACE-NO-FONT-CODE* 1894 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1881 *REPLACE-NO-FONT-CODE* 1820 *JIS-TO-XCCS-CONV-TABLE-LIST* 1735 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1727 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1697 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1668 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1658 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1647 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1641 *REPLACE-NO-FONT-CODE* 1604 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1592 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1586 *REPLACE-NO-FONT-CODE* 1578 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1519 *JIS-TO-XCCS-CONV-TABLE-LIST* 1494 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1360 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1351 *REPLACE-NO-FONT-CODE* 1319 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1306 *REPLACE-NO-FONT-CODE* 1245 *JIS-TO-XCCS-CONV-TABLE-LIST* 1160 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1152 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1122 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1093 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1083 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1072 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1066 *REPLACE-NO-FONT-CODE* 1029 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1017 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1011 *REPLACE-NO-FONT-CODE* 1003 *DEFAULT-NOT-CONVERTED-FAT-CODE* 944 *JIS-TO-XCCS-CONV-TABLE-LIST* 919 *DEFAULT-NOT-CONVERTED-FAT-CODE* 818 STREAM 684 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 672 *REPLACE-NO-FONT-CODE* 635 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 622 *REPLACE-NO-FONT-CODE* 561 *JIS-TO-XCCS-CONV-TABLE-LIST* 470 *DEFAULT-NOT-CONVERTED-FAT-CODE* 464 *DEFAULT-NOT-CONVERTED-FAT-CODE* 437 *DEFAULT-NOT-CONVERTED-FAT-CODE* 410 *DEFAULT-NOT-CONVERTED-FAT-CODE* 401 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 391 *DEFAULT-NOT-CONVERTED-FAT-CODE* 385 *REPLACE-NO-FONT-CODE* 350 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 338 *DEFAULT-NOT-CONVERTED-FAT-CODE* 332 *REPLACE-NO-FONT-CODE* 324 *DEFAULT-NOT-CONVERTED-FAT-CODE* 273 *JIS-TO-XCCS-CONV-TABLE-LIST* 248 *DEFAULT-NOT-CONVERTED-FAT-CODE* 145 STREAM 5 STREAM) () \BACKJISCHAR :D8 (L (1 COUNTP 0 STREAM)) 2@ &@j@ AlA kAkAj(26 \BACKFILEPTR 5 \BACKFILEPTR) (13 STREAM) () \SHIFTJISIN :D8 (L (1 COUNTP 0 STREAM))  @ HddllHHdldnHYH@ dlllqkظJdll~Hkظdl~lk؁lٹA$Hl!(Hl""Hl#Hl&Hl(HltHdlul!IIl~`Hdl!dl"dl&V`]Il k MIl LlLKKl```HI`zl#IsHdl(.Ij!l!I``SHI`G`@ltIjlIInu+`%HluIjlIInt``Il$Hl!(Hl""Hl#Hl&Hl(HltHdluտl!IIl~`Hdl!dl"dl&N`^Il k _NIl _OlOOOl`HI`l#IHdl("Ijl!I`~HI`ltIjglI_InuHluQIjJlIBIntIHl&lH AH` k$H` AHk$H(680 GETHASH 664 GETHASH 493 ELT 479 ELT 204 ELT 192 ELT) (675 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 659 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 577 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 565 *REPLACE-NO-FONT-CODE* 532 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 521 *REPLACE-NO-FONT-CODE* 464 *JIS-TO-XCCS-CONV-TABLE-LIST* 441 *DEFAULT-NOT-CONVERTED-FAT-CODE* 372 *DEFAULT-NOT-CONVERTED-FAT-CODE* 366 *DEFAULT-NOT-CONVERTED-FAT-CODE* 339 *DEFAULT-NOT-CONVERTED-FAT-CODE* 312 *DEFAULT-NOT-CONVERTED-FAT-CODE* 303 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 293 *DEFAULT-NOT-CONVERTED-FAT-CODE* 287 *REPLACE-NO-FONT-CODE* 252 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 240 *DEFAULT-NOT-CONVERTED-FAT-CODE* 234 *REPLACE-NO-FONT-CODE* 226 *DEFAULT-NOT-CONVERTED-FAT-CODE* 177 *JIS-TO-XCCS-CONV-TABLE-LIST* 152 *DEFAULT-NOT-CONVERTED-FAT-CODE*) () \SHIFTJISPEEK :D8 (L (2 COUNTP 1 NOERROR 0 STREAM)) @A qHB7hllHHdl}nHr@ @A Y@ Bhj$@ HdlllqkظIdll~Hkظdl~lk؁lٹB#Hl!(Hl""Hl#Hl&Hl(HltHdlul!IIl~`Hdl!dl"dl&V`\Il k LIl KlKJJl```HI`zl#IsHdl(.Ij!l!I``SHI`G`@ltIjlIInu+`%HluIjlIInt``Ij$Hl!(Hl""Hl#Hl&Hl(HltHdluϿl!IIl~`Hdl!dl"dl&J`]Il k MIl _NlNOOl`HI`l#IHdl( Ijl!I`HI`ltIjmlIeInuHluWIjPlIHIntIHl&lH BH` j$H` BHj$H(710 GETHASH 694 GETHASH 527 ELT 515 ELT 241 ELT 229 ELT 80 \BACKFILEPTR 64 \BACKFILEPTR 56 \PEEKBIN 6 \PEEKBIN) (705 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 689 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 607 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 597 *REPLACE-NO-FONT-CODE* 564 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 553 *REPLACE-NO-FONT-CODE* 500 *JIS-TO-XCCS-CONV-TABLE-LIST* 477 *DEFAULT-NOT-CONVERTED-FAT-CODE* 409 *DEFAULT-NOT-CONVERTED-FAT-CODE* 403 *DEFAULT-NOT-CONVERTED-FAT-CODE* 376 *DEFAULT-NOT-CONVERTED-FAT-CODE* 349 *DEFAULT-NOT-CONVERTED-FAT-CODE* 340 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 330 *DEFAULT-NOT-CONVERTED-FAT-CODE* 324 *REPLACE-NO-FONT-CODE* 289 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 277 *DEFAULT-NOT-CONVERTED-FAT-CODE* 271 *REPLACE-NO-FONT-CODE* 263 *DEFAULT-NOT-CONVERTED-FAT-CODE* 214 *JIS-TO-XCCS-CONV-TABLE-LIST* 189 *DEFAULT-NOT-CONVERTED-FAT-CODE*) () \BACKSHIFTJISCHAR :D8 (L (1 COUNTP 0 STREAM)) K@ ?@ 2@ HdllH HlnHAl@ A kAkAj(21 \PEEKBIN 13 \BACKFILEPTR 5 \BACKFILEPTR) NIL () \EUCIN :D8 (L (1 COUNTP 0 STREAM)) <@ PHd/dl^lHTA.Hl@ l\l!(Ll""Ll#Ll&Ll(LltLdlul!MMl~`Ldl!dl"dl&V`[Ml k KMl JlJIIl```LM`zl#MsLdl(.Mj!l!M``SLM`G`@ltMjlMMnu+`%LluMjlMMnt``Ml$Hl@ l_^l!(Nl""Nl#Nl&Nl(NltNdlul!OOl~`Ndl!dl"dl&S`_Ol k _OOl _OlOOOl`NO`l#ONdl('Ojl!O}`tNO`ltOj[lOROnuNluCOj;lO2OntOHl$A@ ` l$@ ` HlAZ@ l@ l__l!/Ol"(Ol#!Ol&Ol(OltOdlul!OOl~`Odl!dl"dl&e`_Ol k _OOl _OlOOOl```OO`l#OOdl(2Oj$l!O``]OO`O`HltOjlOOnu0`*OluOjlOOnt``Ol$@ l@ l_"_ l!/O l"(O l#!O l&O l(O ltO dlul!O"PO"l~GO dl!dl"dl&X`_$O"l k _&O$O"l _(O&lO&O(O(l`O O"`l#O"O dl(*O"jl!O"`O O"`ltO"jlO"O"nuO luO"jzlO"qO"ntO"AHk$H(1158 ELT 1142 ELT 817 ELT 801 ELT 662 GETHASH 644 GETHASH 463 ELT 447 ELT 156 ELT 144 ELT) (1258 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1244 *REPLACE-NO-FONT-CODE* 1203 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1188 *REPLACE-NO-FONT-CODE* 1125 *JIS-TO-XCCS-CONV-TABLE-LIST* 1008 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1002 *DEFAULT-NOT-CONVERTED-FAT-CODE* 971 *DEFAULT-NOT-CONVERTED-FAT-CODE* 941 *DEFAULT-NOT-CONVERTED-FAT-CODE* 932 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 920 *DEFAULT-NOT-CONVERTED-FAT-CODE* 914 *REPLACE-NO-FONT-CODE* 873 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 859 *DEFAULT-NOT-CONVERTED-FAT-CODE* 853 *REPLACE-NO-FONT-CODE* 845 *DEFAULT-NOT-CONVERTED-FAT-CODE* 784 *JIS-TO-XCCS-CONV-TABLE-LIST* 758 *DEFAULT-NOT-CONVERTED-FAT-CODE* 657 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 639 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 554 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 541 *REPLACE-NO-FONT-CODE* 503 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 491 *REPLACE-NO-FONT-CODE* 430 *JIS-TO-XCCS-CONV-TABLE-LIST* 407 *DEFAULT-NOT-CONVERTED-FAT-CODE* 324 *DEFAULT-NOT-CONVERTED-FAT-CODE* 318 *DEFAULT-NOT-CONVERTED-FAT-CODE* 291 *DEFAULT-NOT-CONVERTED-FAT-CODE* 264 *DEFAULT-NOT-CONVERTED-FAT-CODE* 255 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 245 *DEFAULT-NOT-CONVERTED-FAT-CODE* 239 *REPLACE-NO-FONT-CODE* 204 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 192 *DEFAULT-NOT-CONVERTED-FAT-CODE* 186 *REPLACE-NO-FONT-CODE* 178 *DEFAULT-NOT-CONVERTED-FAT-CODE* 129 *JIS-TO-XCCS-CONV-TABLE-LIST* 104 *DEFAULT-NOT-CONVERTED-FAT-CODE*) () \EUCPEEK :D8 (L (2 COUNTP 1 NOERROR 0 STREAM)) @A `H B!hllH@ @A Y@ Bhj$@ B,HlIl]l!(Ml""Ml#Ml&Ml(MltMdlul!NNl~`Mdl!dl"dl&V`\Nl k LNl KlKJJl```MN`zl#NsMdl(.Nj!l!N``SMN`G`@ltNjlNNnu+`%MluNjlNNnt``Nj$HlIl__l!/Ol"(Ol#!Ol&Ol(OltOdlul!OOl~`Odl!dl"dl&T`_Ol k _OOl _OlOOOl`OO`l#OOdl((Ojl!Oz`qOO`ltOjWlONOnuOlu>Oj6lO-OntOHdlD@ @A Y@ Bshj$@ BI` j$I` l@ @A X@ B+hj$@ @A Y@ @ Bhj$@ @ BWHlIl_ _l!/Ol"(Ol#!Ol&Ol(OltOdlul!O O l~`Odl!dl"dl&e`_O l k _OO l _OlOOOl```OO `l#O Odl(2O j$l!O ``]OO `O`HltO jlO O nu0`*OluO jlO O nt``O j$HlIl_$_"l!/O"l"(O"l#!O"l&O"l(O"ltO"dlul!O$O$l~O"dl!dl"dl&X`_&O$l k _(O&O$l _*O(lO(O*O*l`O"O$`l#O$O"dl(*O$jYl!O$P`GO"O$`ltO$j-lO$$O$nuO"luO$j lO$O$ntO$BHj$H(1320 ELT 1304 ELT 982 ELT 966 ELT 837 \BACKFILEPTR 830 \BACKFILEPTR 814 \BACKFILEPTR 807 \BACKFILEPTR 798 \PEEKBIN 778 \BACKFILEPTR 770 \PEEKBIN 752 GETHASH 736 GETHASH 722 \BACKFILEPTR 706 \BACKFILEPTR 698 \PEEKBIN 516 ELT 500 ELT 202 ELT 190 ELT 76 \BACKFILEPTR 56 \BACKFILEPTR 47 \PEEKBIN 6 \PEEKBIN) (1420 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1406 *REPLACE-NO-FONT-CODE* 1365 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1350 *REPLACE-NO-FONT-CODE* 1287 *JIS-TO-XCCS-CONV-TABLE-LIST* 1173 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1167 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1136 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1106 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1097 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1085 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1079 *REPLACE-NO-FONT-CODE* 1038 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1024 *DEFAULT-NOT-CONVERTED-FAT-CODE* 1018 *REPLACE-NO-FONT-CODE* 1010 *DEFAULT-NOT-CONVERTED-FAT-CODE* 949 *JIS-TO-XCCS-CONV-TABLE-LIST* 923 *DEFAULT-NOT-CONVERTED-FAT-CODE* 747 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 731 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 610 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 596 *REPLACE-NO-FONT-CODE* 557 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 544 *REPLACE-NO-FONT-CODE* 483 *JIS-TO-XCCS-CONV-TABLE-LIST* 459 *DEFAULT-NOT-CONVERTED-FAT-CODE* 370 *DEFAULT-NOT-CONVERTED-FAT-CODE* 364 *DEFAULT-NOT-CONVERTED-FAT-CODE* 337 *DEFAULT-NOT-CONVERTED-FAT-CODE* 310 *DEFAULT-NOT-CONVERTED-FAT-CODE* 301 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 291 *DEFAULT-NOT-CONVERTED-FAT-CODE* 285 *REPLACE-NO-FONT-CODE* 250 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 238 *DEFAULT-NOT-CONVERTED-FAT-CODE* 232 *REPLACE-NO-FONT-CODE* 224 *DEFAULT-NOT-CONVERTED-FAT-CODE* 175 *JIS-TO-XCCS-CONV-TABLE-LIST* 150 *DEFAULT-NOT-CONVERTED-FAT-CODE*) () \BACKEUCCHAR :D8 (L (1 COUNTP 0 STREAM)) y@ m@ lj[@ N@d lAMl lj)@ @d lA'l A lAl@ AkA kAkAj(73 \PEEKBIN 64 \BACKFILEPTR 51 \PEEKBIN 35 \PEEKBIN 26 \BACKFILEPTR 13 \PEEKBIN 5 \BACKFILEPTR) NIL () \THROUGHIN :D8 (L (1 COUNTP 0 STREAM)) A@ k$@ NIL NIL () \THROUGHPEEK :D8 (L (2 COUNTP 1 NOERROR 0 STREAM)) B@A j$@A (20 \PEEKBIN 8 \PEEKBIN) NIL () \BACKTHROUGHCHAR :D8 (L (1 COUNTP 0 STREAM)) @ kAj(5 \BACKFILEPTR) NIL () (PRETTYCOMPRINT LLREADCOMS) (RPAQQ LLREADCOMS ((COMS (* ; "Reader entrypoints") (FNS LASTC PEEKC PEEKCCODE RATOM READ READC READCCODE READP SETREADMACROFLG SKIPSEPRCODES SKIPSEPRS \NSIN.24BITENCODING.ERROR SKREAD)) (COMS (* ; "CommonLisp read entry points") (FNS CL:READ CL:READ-PRESERVING-WHITESPACE CL:READ-DELIMITED-LIST CL:PARSE-INTEGER)) (COMS (* ; "reading strings") (FNS RSTRING READ-EXTENDED-TOKEN \RSTRING2)) (COMS (* ; "Core of the reader") (FNS \TOP-LEVEL-READ \SUBREAD \SUBREADCONCAT \SUBREAD-FLIPCASE READTABLE-CASEARRAY \READ.SYMBOL \INVALID.SYMBOL \APPLYREADMACRO INREADMACROP)) (COMS (* ; "Read macro for '") (FNS READQUOTE)) (COMS (* ; "# macro") (FNS READVBAR READHASHMACRO DEFMACRO-LAMBDA-LIST-KEYWORD-P DIGITBASEP READNUMBERINBASE ESTIMATE-DIMENSIONALITY SKIP.HASH.COMMENT CMLREAD.FEATURE.PARSER)) (COMS (* ; "Reading characters with #\") (FNS CHARACTER.READ CHARCODE.DECODE) (VARS CHARACTERNAMES CHARACTERSETNAMES)) (DECLARE%: DOEVAL@COMPILE DONTCOPY (CONSTANTS * READTYPES) ( MACROS .CALL.SUBREAD. FIXDOT RBCONTEXT PROPRB \RDCONC) (EXPORT (MACROS \BACKCHAR \BACKNSCHAR \CHECKEOLC \INCHAR \INCCODE \PEEKCCODE \NSIN \NSPEEK NUMERIC-CHARSET)) (SPECVARS *READ-NEWLINE-SUPPRESS* \RefillBufferFn) (GLOBALVARS *KEYWORD-PACKAGE* *INTERLISP-PACKAGE*) (RESOURCES \PNAMECASEBITS) (* ; "For READTABLE-CASE :INVERT")) (COMS (* ; "Support for various external formats" ) (COMS (* ; "JIS to XCCS conversion table.") (VARS *JIS-TO-XCCS-CONV-NO-FONT-TABLE* *JIS-TO-XCCS-CODE-MAP* *HANKAKU-TO-ZENKAKU-CODE-MAP*) (GLOBALVARS *JIS-TO-XCCS-CONV-NO-FONT-TABLE* *JIS-TO-XCCS-CONV-TABLE-LIST* *JIS-TO-XCCS-CODE-MAP* *HANKAKU-TO-ZENKAKU-CODE-MAP* *JIS-1KU-TO-XCCS-CONV-TABLE* *JIS-2KU-TO-XCCS-CONV-TABLE* *JIS-6KU-TO-XCCS-CONV-TABLE* *XCCS-TO-JIS-CONV-TABLE* *HANKAKU-TO-ZENKAKU-CONV-TABLE* *ZENKAKU-TO-HANKAKU-CONV-TABLE*) (FNS \MAKE.JIS.TO.XCCS.CONV.TABLE) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\MAKE.JIS.TO.XCCS.CONV.TABLE)))) ( COMS (* ; "JIS to XCCS converter") (INITVARS (*REPLACE-NO-FONT-CODE* T) ( *DEFAULT-NOT-CONVERTED-FAT-CODE* 8739)) (GLOBALVARS *REPLACE-NO-FONT-CODE* *DEFAULT-NOT-CONVERTED-FAT-CODE*) (DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (MACROS \CONV.JIS.TO.XCCS \DO.CONV.JIS.TO.XCCS)))) (COMS (* ; "XCCS to JIS converter") (FNS CONVHANKAKU) (DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (MACROS \CONV.XCCS.TO.JIS \DO.CONV.XCCS.TO.JIS \ASCIIP \NOT.EQUIVALENT.TO.JIS \CONV.HANKAKU.TO.ZENKAKUP \CONV.ZENKAKU.KANA)))) (COMS (FNS \JISIN \JISPEEK \BACKJISCHAR \SHIFTJISIN \SHIFTJISPEEK \BACKSHIFTJISCHAR \EUCIN \EUCPEEK \BACKEUCCHAR \THROUGHIN \THROUGHPEEK \BACKTHROUGHCHAR) (DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (* ;; "XCCS specific macro. Although the decoder and encoder are implemented as functions in general, only for XCCS, they are implemeted as macros for efficiency reason." ) (MACROS \XCCSIN \XCCSPEEK \BACKXCCSCHAR \XCCSP) (* ;; "JIS specific macro") (MACROS \EXTRACT.NO.FONT.CODE \EXTARACT.CONV.TABLE \NOT.EQUIVALENT.TO.XCCS \EXTRACT.SET \EXTRACT.CODE \CHNAGE.KI.MODE \KIMODEP \HANKAKUP \KANJIP \NOTGAIJIP \INVALID.TENP \CONV.HANKAKU.KANA \OUTKI \OUTKO) (* ;; "Shift-JIS specific macro") (MACROS \CONV.SJIS.TO.JIS \CONV.JIS.TO.SJIS \SJIS.KANJI.FIRST.BYTEP) (* ;; "EUC specific macro") (MACROS \EUC.KANJI.FIRST.BYTEP \GAIJIP \EUC.HANKAKUP))))) (INITVARS ( *SIGNAL-24BIT-NSENCODING-ERROR*) (*READ-NEWLINE-SUPPRESS*) (\RefillBufferFn (FUNCTION \READCREFILL))) (* ; "Top level val of \RefillBufferFn means act like READC--we must be doing a raw BIN (or PEEKBIN?)" ) (LOCALVARS . T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) ( NLAML) (LAMA CONVHANKAKU CL:PARSE-INTEGER CL:READ-DELIMITED-LIST CL:READ-PRESERVING-WHITESPACE CL:READ ))))) (RPAQQ CHARACTERNAMES ((INFINITY 8551) ("Page" 12) ("Form" 12) ("FF" 12) ("Rubout" 127) ("Del" 127) ( "Null" 0) ("Escape" 27) ("Esc" 27) ("Bell" 7) ("Tab" 9) ("Backspace" 8) ("Bs" 8) ("Newline" 13) ("CR" 13) ("EOL" 13) ("Return" 13) ("Tenexeol" 31) ("Space" 32) ("Sp" 32) ("Linefeed" 10) ("LF" 10))) (RPAQQ CHARACTERSETNAMES (("Greek" 38) ("Cyrillic" 39) ("Hira" 36) ("Hiragana" 36) ("Kata" 37) ( "Katakana" 37) ("Kanji" 48))) (RPAQQ *JIS-TO-XCCS-CONV-NO-FONT-TABLE* ((8484 . 8484) (8485 . 8485) (8497 . 9155) (8798 . 61376) ( 8802 . 8802) (8805 . 64892) (8806 . 64894) (8820 . 9148) (8821 . 9132) (8822 . 213) (8830 . 8830) ( 10273 . 61189) (10274 . 61188) (10275 . 10275) (10276 . 10276) (10277 . 10277) (10278 . 10278) (10279 . 10279) (10280 . 10280) (10281 . 10281) (10282 . 10282) (10283 . 61414) (10284 . 61410) (10285 . 61409) (10286 . 10286) (10287 . 10287) (10288 . 10288) (10289 . 10289) (10290 . 10290) (10291 . 10291) (10292 . 10292) (10293 . 10293) (10294 . 61411) (10295 . 10295) (10296 . 10296) (10297 . 10297) ( 10298 . 10298) (10299 . 10299) (10300 . 10300) (10301 . 10301) (10302 . 10302) (10303 . 10303) (10304 . 10304))) (RPAQQ *JIS-TO-XCCS-CODE-MAP* ((1 (1 33 . 33) (2 33 . 34) (3 33 . 35) (6 0 . 183) (7 0 . 58) (8 0 . 59 ) (9 0 . 63) (10 0 . 33) (11 33 . 43) (12 33 . 44) (13 0 . 194) (14 0 . 193) (15 0 . 200) (16 0 . 195) (18 0 . 204) (19 33 . 51) (20 33 . 52) (21 33 . 53) (22 33 . 54) (23 33 . 55) (24 33 . 56) (25 33 . 57) (26 33 . 58) (27 33 . 59) (28 33 . 60) (29 239 . 36) (30 33 . 62) (31 0 . 47) (32 0 . 92) (33 0 . 126) (34 33 . 66) (35 0 . 124) (36 33 . 68) (37 33 . 69) (38 0 . 169) (39 0 . 39) (40 0 . 170) (41 0 . 186) (42 0 . 40) (43 0 . 41) (44 33 . 76) (45 33 . 77) (46 0 . 91) (47 0 . 93) (48 0 . 123) (49 0 . 125) (50 239 . 50) (51 239 . 51) (52 0 . 171) (53 0 . 187) (54 33 . 86) (55 33 . 87) (56 33 . 88) ( 57 33 . 89) (58 33 . 90) (59 33 . 91) (60 0 . 43) (61 0 . 45) (62 0 . 177) (63 0 . 180) (64 0 . 184) ( 65 0 . 61) (66 33 . 98) (67 0 . 60) (68 0 . 62) (69 33 . 101) (70 33 . 102) (71 33 . 103) (72 33 . 104 ) (73 33 . 105) (74 33 . 106) (75 0 . 176) (76 33 . 108) (77 33 . 109) (78 33 . 110) (79 0 . 165) (80 0 . 164) (81 0 . 162) (82 0 . 163) (83 0 . 37) (84 0 . 35) (85 0 . 38) (86 0 . 42) (87 0 . 64) (88 0 . 167) (89 33 . 121) (90 33 . 122) (91 33 . 123) (92 33 . 124) (93 33 . 125) (94 33 . 126)) (2 (1 34 . 33) (2 34 . 34) (3 34 . 35) (4 34 . 36) (5 34 . 37) (6 34 . 38) (7 34 . 39) (8 34 . 40) (9 34 . 41) (10 0 . 174) (11 0 . 172) (12 0 . 173) (13 0 . 175) (14 34 . 46) (26 239 . 74) (27 239 . 76) (28 239 . 89) (29 239 . 88) (30 239 . 91) (31 239 . 90) (32 239 . 87) (33 239 . 86) (42 239 . 182) (43 239 . 183) (44 239 . 106) (45 239 . 79) (46 239 . 78) (47 239 . 181) (48 239 . 180) (60 239 . 108) (61 239 . 112) (63 239 . 186) (64 239 . 185) (65 239 . 114) (67 239 . 66) (68 239 . 67) (71 239 . 113) (72 239 . 111) (73 239 . 117) (74 34 . 106) (82 241 . 40) (83 239 . 65) (87 239 . 48) (88 239 . 49) (89 0 . 176)) (6 (1 38 . 65) (2 38 . 66) (3 38 . 68) (4 38 . 69) (5 38 . 70) (6 38 . 73) (7 38 . 74) (8 38 . 75) (9 38 . 76) (10 38 . 77) (11 38 . 78) (12 38 . 79) (13 38 . 80) (14 38 . 81) (15 38 . 82) (16 38 . 83) (17 38 . 85) (18 38 . 86) (19 38 . 88) (20 38 . 89) (21 38 . 90) (22 38 . 91) (23 38 . 92) ( 24 38 . 93) (33 38 . 97) (34 38 . 98) (35 38 . 100) (36 38 . 101) (37 38 . 102) (38 38 . 105) (39 38 . 106) (40 38 . 107) (41 38 . 108) (42 38 . 109) (43 38 . 110) (44 38 . 111) (45 38 . 112) (46 38 . 113) (47 38 . 114) (48 38 . 115) (49 38 . 117) (50 38 . 118) (51 38 . 120) (52 38 . 121) (53 38 . 122) (54 38 . 123) (55 38 . 124) (56 38 . 125)))) (RPAQQ *HANKAKU-TO-ZENKAKU-CODE-MAP* ((161 . 8483) (162 . 8534) (163 . 8535) (164 . 8482) (165 . 183) (166 . 9586) (167 . 9505) (168 . 9507) (169 . 9509) (170 . 9511) (171 . 9513) (172 . 9571) (173 . 9573 ) (174 . 9575) (175 . 9539) (176 . 8508) (177 . 9506) (178 . 9508) (179 . 9510) (180 . 9512) (181 . 9514) (182 . 9515) (183 . 9517) (184 . 9519) (185 . 9521) (186 . 9523) (187 . 9525) (188 . 9527) (189 . 9529) (190 . 9531) (191 . 9533) (192 . 9535) (193 . 9537) (194 . 9540) (195 . 9542) (196 . 9544) ( 197 . 9546) (198 . 9547) (199 . 9548) (200 . 9549) (201 . 9550) (202 . 9551) (203 . 9554) (204 . 9557) (205 . 9560) (206 . 9563) (207 . 9566) (208 . 9567) (209 . 9568) (210 . 9569) (211 . 9570) (212 . 9572) (213 . 9574) (214 . 9576) (215 . 9577) (216 . 9578) (217 . 9579) (218 . 9580) (219 . 9581) (220 . 9583) (221 . 9587) (222 . 8491) (223 . 8492))) (\MAKE.JIS.TO.XCCS.CONV.TABLE) (RPAQ? *REPLACE-NO-FONT-CODE* T) (RPAQ? *DEFAULT-NOT-CONVERTED-FAT-CODE* 8739) (RPAQ? *SIGNAL-24BIT-NSENCODING-ERROR*) (RPAQ? *READ-NEWLINE-SUPPRESS*) (RPAQ? \RefillBufferFn (FUNCTION \READCREFILL)) (PUTPROPS LLREAD COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990 1991 1993)) NIL