(FILECREATED "25-Sep-86 11:47:25" ("compiled on " {ERIS}SOURCES>IOCHAR.;17) "24-Sep-86 19:51:31" in "Xerox Lisp 24-Sep-86 ..." dated "24-Sep-86 20:08:23") (FILECREATED "25-Sep-86 11:46:10" {ERIS}SOURCES>IOCHAR.;17 96200 changes to: (FNS \SETUP.FFILEPOS) previous date: "24-Sep-86 18:24:31" {ERIS}SOURCES>IOCHAR.;16) (RPAQQ IOCHARCOMS ((COMS (FNS CHCON UNPACK DCHCON DUNPACK) (FNS UALPHORDER ALPHORDER PACKC CONCAT PACK PACK* \PACK.ITEM STRPOS) (GLOBALVARS \SIGNFLAG \PRINTRADIX) (DECLARE: DONTCOPY (MACROS \CATRANSLATE)) ) (COMS (FNS STRPOSL MAKEBITTABLE) (DECLARE: DONTCOPY (RESOURCES \STRPOSLARRAY)) (INITRESOURCES \STRPOSLARRAY)) (COMS (FNS CASEARRAY UPPERCASEARRAY) (P (MOVD? (QUOTE SETA) (QUOTE SETCASEARRAY)) ( MOVD? (QUOTE ELT) (QUOTE GETCASEARRAY))) (DECLARE: DONTEVAL@LOAD DOCOPY (VARS (\TRANSPARENT (CASEARRAY )) (UPPERCASEARRAY (UPPERCASEARRAY)))) (DECLARE: EVAL@COMPILE (PROP GLOBALVAR UPPERCASEARRAY) DONTCOPY (GLOBALVARS \TRANSPARENT))) (COMS (FNS SKREAD SKBRACKET SKREADC) (BLOCKS (SKREAD SKREAD SKBRACKET SKREADC))) (COMS (FNS FILEPOS FFILEPOS \SETUP.FFILEPOS) (DECLARE: EVAL@COMPILE DONTCOPY (RESOURCES \FFDELTA1 \FFDELTA2 \FFPATCHAR) (CONSTANTS (\MAX.PATTERN.SIZE 128) (\MIN.PATTERN.SIZE 3) ( FILEPOS.SEGMENT.SIZE 32768) (\MIN.SEARCH.LENGTH 100))) (INITRESOURCES \FFDELTA1 \FFDELTA2 \FFPATCHAR)) (COMS (* DATE) (FNS DATE DATEFORMAT GDATE IDATE \IDATESCANTOKEN \OUTDATE \RPLRIGHT \UNPACKDATE \PACKDATE \DTSCAN \ISDST? \CHECKDSTCHANGE) (OPTIMIZERS DATEFORMAT) (INITVARS (\TimeZoneComp 8) ( \BeginDST 120) (\EndDST 304) (\DayLightSavings T)) (ADDVARS (TIME.ZONES (8 . P) (7 . M) (6 . C) (5 . E ) (0 . GMT))) (DECLARE: EVAL@COMPILE DONTCOPY (GLOBALVARS \TimeZoneComp \BeginDST \EndDST \DayLightSavings TIME.ZONES) (CONSTANTS (\4YearsDays (ADD1 (ITIMES 365 4)))))) (LOCALVARS . T) (PROP FILETYPE IOCHAR) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA DATEFORMAT) (NLAML) (LAMA PACK* CONCAT))))) CHCONA0001 D1 (L (1 CODE 0 DUMMY) F 0 \CHCONLSTAIL F 1 \CHCONLST) P AhccdA&cNIL NIL () CHCON D1 (L (2 RDTBL 1 FLG 0 X) P 4 \CHCONLSTAIL P 3 \CHCONLST) `A@dl @k@ jh@lX@@Cjhi@@IJkI2 ON/MHOHO_OOh__Ok_O&_Og@AB K(221Q \MAPPNAME) (213Q CHCONA0001) () UNPACKA0002 D1 (L (1 CODE 0 DUMMY) F 0 \CHCONLSTAIL F 1 \CHCONLST) ;Adl l9`Al ٍl0AAl0ل`AbP dhccdA&c(10Q CHARACTER) (43Q \OneCharAtomBase 21Q \OneCharAtomBase) () UNPACK D1 (L (2 RDTBL 1 FLG 0 X) P 4 \CHCONLSTAIL P 3 \CHCONLST) pA@dl @k@ jh@l@@@Cjhi@IJkI2 OOUMHOHO^dl l9`Nl ٍl0NNl0ل`N_OOh__Ok_O&_Og@AB K(272Q \MAPPNAME 161Q CHARACTER) (264Q UNPACKA0002 214Q \OneCharAtomBase 172Q \OneCharAtomBase) () DCHCONA0001 D1 (L (1 CODE 0 DUMMY) F 0 !SCRATCHTAIL) P PdhhcANIL NIL () DCHCON D1 (L (3 RDTBL 2 FLG 1 SCRATCHLIST 0 X) P 1 !SCRATCHTAIL P 0 !SCRATCHLIST) AhhAHY@Bl@dl!@k@ jh_@l@@@@_NOkNKJ.I IdhhYOMKMKKk[g@BC IHhHHIIhH LL(233Q FLAST 204Q \MAPPNAME) (176Q DCHCONA0001) () DUNPACKA0002 D1 (L (1 CODE 0 DUMMY) F 0 !SCRATCHTAIL) 8P PdhhcAdl l9`Al ٍl0AAl0ل`A(27Q CHARACTER) (62Q \OneCharAtomBase 40Q \OneCharAtomBase) () DUNPACK D1 (L (3 RDTBL 2 FLG 1 SCRATCHLIST 0 X) P 1 !SCRATCHTAIL P 0 !SCRATCHLIST) AhhQHY@ B@dl$@k_@ jh_@!lw@@_@Cjhi_@_OOkOLKTI IdhhYONLNLZdl l9`Jl ٍl0JJl0ل`JLk\g@BC IHhHHIIhH MM(327Q FLAST 300Q \MAPPNAME 222Q CHARACTER) (272Q DUNPACKA0002 255Q \OneCharAtomBase 233Q \OneCharAtomBase) () UALPHORDER D1 (L (1 B 0 ARG1)) @A` (7 ALPHORDER) (4 UPPERCASEARRAY) () ALPHORDER D1 (L (2 CASEARRAY 1 B 0 A)) Z @dlk@@ jh?@@@@CjhiAdlHk_AA jhF@3A3h@AhA3AlAhiOAA_AACjhi_B`bXjBCkB JOJNpgA3hNOHOOLIOKIOKO"dOOO"_HOOOMOOMOOO*dO&O$O*_OOgOk_}NIL (515Q LESSP 337Q EQUAL 315Q ARRAYP 304Q ARRAYP 274Q ARRAYP 267Q ARRAYP 264Q \TRANSPARENT) () PACKC D1 (L (0 X)) P`'lhdi @jHIKjJi HhJlhl KJLJkԺIY(75Q \LISPERROR 42Q \MKATOM 14Q ALLOCSTRING) (55Q \\PNAMESTRING.GLOBALRESOURCE 47Q \\PNAMESTRING.GLOBALRESOURCE 2 \\PNAMESTRING.GLOBALRESOURCE) () CONCAT D1 (L (0 N)) eHjk3IjPIa]dN8MCj.h,lN%M jhIM ] NMCjhiJM غIkYJhdN IHIkعLKIa KIa ػL(173Q NCHARS 164Q RPLSTRING 143Q ALLOCSTRING 124Q NCHARS 101Q \SETARG0 75Q MKSTRING) NIL () PACK D1 (L (0 X) P 1 N P 0 \PNAMESTRING) n@@@ `&lhdi !k@HjIki HhZJdlHIdJ Ynhl J @b(144Q \PACK.ITEM 140Q RPLSTRING 133Q \LISPERROR 116Q NCHARS 54Q \MKATOM 26Q ALLOCSTRING 10Q \ILLEGAL.ARG) (66Q \\PNAMESTRING.GLOBALRESOURCE 60Q \\PNAMESTRING.GLOBALRESOURCE 42Q STRINGP 14Q \\PNAMESTRING.GLOBALRESOURCE) () PACK* D1 (L (0 U) P 2 N P 1 \PNAMESTRING) oe`.lhdi kdKdHIjJki Iha\LdlIJdL Znhl L Kk[(146Q \PACK.ITEM 142Q RPLSTRING 135Q \LISPERROR 120Q NCHARS 55Q \MKATOM 20Q ALLOCSTRING) (70Q \\PNAMESTRING.GLOBALRESOURCE 62Q \\PNAMESTRING.GLOBALRESOURCE 43Q STRINGP 6 \\PNAMESTRING.GLOBALRESOURCE) () \PACK.ITEMA0001 D1 (L (1 CODE 0 DUMMY) F 0 N F 1 \PNAMESTRING) Plhl QPkAPkc(12Q \LISPERROR) NIL () \PACK.ITEM D1 (L (0 ITEM)) g@ (6 \MAPPNAME) (2 \PACK.ITEMA0001) () STRPOS D1 (L (7 BACKWARDSFLG 6 CASEARRAY 5 TAIL 4 ANCHOR 3 SKIP 2 START 1 STRING 0 PAT)) Y& @dlk@@ jh(@ b@@@@Cjhi_AdlkAA jh(A bAAAACjhi_KHk^j-BGNkbHjBjBBKkbkBhBNhCC bF `b FCjFCkF Mm]JmZFFFCkFMBGkmMDBGkNJlJHOjoF OOOOIJkIJkO,dO(O&O,_GOm_O Ok_O 7OC,OOOOOLOLOO4dO0O.O4O$O"OkO8O6iCOOOOIO8IO8!OBdO>OBIdlBɀIBɀ jBIkKlJKLDžJKL IkYB(231Q \SETFATSYNCODE 175Q GETHASH 121Q \SETFATSYNCODE 77Q CHCON1 40Q CLRHASH 16Q \ZEROBYTES) (170Q CHARTABLE 160Q CHARTABLE 44Q CHARTABLETYPE# 33Q CHARTABLE 23Q CHARTABLE 4 CHARTABLETYPE#) () (/SETTOPVAL (QUOTE \\STRPOSLARRAY.GLOBALRESOURCE)) CASEARRAY D1 (L (0 OLDAR)) .@ngjd !ljJIH HJd JkZ(45Q SETA 36Q COPYARRAY 15Q ARRAY) (10Q BYTE) () UPPERCASEARRAY D1 NIL -`&!lzlaJIHJdl JkZH(37Q SETCASEARRAY 11Q CASEARRAY) (52Q UPPERCASEARRAY 2 UPPERCASEARRAY) () (MOVD? (QUOTE SETA) (QUOTE SETCASEARRAY)) (MOVD? (QUOTE ELT) (QUOTE GETCASEARRAY)) (RPAQ \TRANSPARENT (CASEARRAY)) (RPAQ UPPERCASEARRAY (UPPERCASEARRAY)) (PUTPROPS UPPERCASEARRAY GLOBALVAR T) SKREAD D1 (L (2 RDTBL 0 FILE) P 1 RRPTR I 1 REREADSTRING F 4 \LINEBUF.OFD) F@g Ak"HTo@ B` bIHB ZdltHB lugJdlrLk[IHB dltHB dludlrKk԰dlsKk[jhlqIHB lqlsgJdl`lprJdlqIHB lqhj4IHB jIMH HHd22n2l1H +(JHHBAlJbIIHB jhHd !Hd22n2lHd HB h(502Q READ 473Q \BACKFILEPTR 435Q \BACKFILEPTR 422Q SKREADC 354Q \BACKFILEPTR 317Q \BACKFILEPTR 304Q SKREADC 263Q SKREADC 213Q SKREADC 135Q SKBRACKET 122Q SKREADC 70Q SKBRACKET 54Q SKREADC 43Q \GTREADTABLE 31Q ERROR 6 \GETSTREAM) (367Q STREAM 231Q %) 100Q %] 40Q FILERDTBL 3 INPUT) ( 25Q "SKREAD NOT LEGAL FROM TTY") SKBRACKET D1 (L (1 RDTBL 0 STRM) F 1 RRPTR) 9kQ@A dltHkԸdluHkXjhlqQ@A lq(60Q SKREADC 11Q SKREADC) NIL () SKREADC D1 (L (2 RDTBL 1 STRM 0 USERRPTRFLG) F 16Q RRPTR F 17Q REREADSTRING) | @WWdkc YhcA ^lAd ^lNBIlJɀIJɀ jJIXdlFBjWWdkc thcA [l#Ad [lKAd jl \2A LA2\nKA KdLKAdl Mdj𒿰lAi l A l Mkjlj IB YllIg HAd jl _2A OA2_nNA NdONA__dl +Odjl 0lAi l A l l l l Okl l OYB_IlOɀIOɀ jOIXddlFBjA _l)Ad _lOAd jl _2A _OA2_nOA OdOOA_dl Odj𒿰lAi l A l OkjljIB Yl Ig H(1167Q GETPROP 1150Q GETHASH 1105Q \PEEKBIN 771Q \NSIN.24BITENCODING.ERROR 667Q GETHASH 560Q \PEEKBIN 445Q \NSIN.24BITENCODING.ERROR 425Q GETPROP 402Q GETHASH 340Q \PEEKBIN 240Q \NSIN.24BITENCODING.ERROR 173Q NTHCHARCODE 120Q GETHASH 22Q NTHCHARCODE) (1164Q SKREAD 1143Q READTABLEP 716Q READTABLEP 662Q CHARTABLE 651Q CHARTABLE 631Q READTABLEP 422Q SKREAD 375Q READTABLEP 145Q READTABLEP 113Q CHARTABLE 103Q CHARTABLE 66Q READTABLEP) () FILEPOS D1 (L (6 CASEARRAY 5 TAIL 4 SKIP 3 END 2 START 1 FILE 0 STR)) 1Dd F0`Ag @@dl,k@6dFdCjF @ b@@@_B#J0_"JkO"__C7J `d3 jBBl J0_ JkO _JB BjCCJ O_$dO$O$OjCJ J CkOk_OO_OjIMN\HOk_J NkԾOk_ON_Odj__;_On_O_On_OOOn_OO(OOj_Ok_OO_jJO hLIJ Ok_N_Ok_O:IMO[IJ KHJd0_&JkO&ON Ok_EJd0_(JkO(O J0_*JkO*(1032Q \SETFILEPTR 764Q \SETFILEPTR 645Q \SETFILEPTR 353Q \GETEOFPTR 346Q \GETEOFPTR 312Q \GETEOFPTR 274Q \SETFILEPTR 240Q \LISPERROR 217Q \GETEOFPTR 126Q MKSTRING 115Q CASEARRAY 27Q \GETSTREAM 5 CHCON1) (1044Q FDEV 1037Q STREAM 1012Q FDEV 1005Q STREAM 742Q FDEV 735Q STREAM 252Q FDEV 245Q STREAM 171Q FDEV 164Q STREAM 150Q STRINGP 141Q STRINGP 100Q ARRAYP 24Q INPUT 16Q ARRAYP 13Q \TRANSPARENT) () FFILEPOS D1 (L (6 CASEARRAY 5 TAIL 4 SKIP 3 END 2 START 1 FILE 0 PATTERN)) A  DH0jq@dlk@@ b@@@[l5lK-H0_HkOBLKkؽH _C)d3 jBBl BjCOCk؀CKdOO^MhldNMHM `ng `|lg `hlg FD`OOO KkEIJKO(O$O&O" Nd@H _l:8HkԸ]3 "@H _dl:'HkԸ^3 @H _LldܽLldۼO~OlAOlPOlaOdlpB@Hk dlMdlmOOlPOlpl L=Ll \7Ldl m\+l %hl Ol-_`_'h_LljMl;dN\KIkJLMNjO _OOOk O,Ol i!Ol dgOkٰgOOl;h(1230Q NTHCHAR 1215Q NTHCHAR 1200Q NTHCHAR 1154Q \PACKDATE 1075Q \IDATESCANTOKEN 763Q NTHCHARCODE 677Q NTHCHARCODE 661Q \IDATESCANTOKEN 641Q NTHCHARCODE 623Q \IDATESCANTOKEN 605Q NTHCHARCODE 567Q \IDATESCANTOKEN 133Q \IDATESCANTOKEN 76Q NTHCHARCODE 61Q \IDATESCANTOKEN 31Q NTHCHARCODE 14Q \IDATESCANTOKEN 4 DAYTIME) (1251Q S 1234Q D 1103Q TIME.ZONES 436Q DEC 425Q NOV 412Q OCT 400Q SEP 365Q AUG 353Q JUL 340Q JUN 326Q MAY 313Q APR 301Q MAR 266Q FEB 255Q JAN) () \IDATESCANTOKEN D1 (F 11Q POS F 12Q STR) `WW Yddl Wkcl0J6Jl90Il0XWWkc YHl0KKl9Hl Il0ظIl_lALh1LlZh)laIIdlzl_I0WWkc Y N l_lAMMlZlaIIdlzl_I_O Oh_O&_(225Q PACKC 214Q NTHCHARCODE 73Q NTHCHARCODE 11Q NTHCHARCODE) NIL () \OUTDATE D1 (L (2 STRING 1 FORMAT 0 UD)) @l-@AgAl Ad_(dgi_gi_yO(dgi_ jgi_"_O(dgl/Qgl GO(dgi_8g``_&O(dgi_gi_$O(gi_&gOj@Zni_"lO"lJldܺl_l @\Okl@kؽO Ol Mkl_lO$1oHk _$O&O$kl _$lO$ _&l؀jlOj(OllOjlOj _dklk[dl ^OdOl Lkl_Lk NOk_I O NOO_MO NOkoM  Ol_NOk_I NOO_Jl OOk_O$&NKO&kl( NKO&O$ NKl) j_O}NOlHl NOll: NOl_Hl ONOkl: NOl_Hl O-NOlO OkNOlHoo BNkmB N(1252Q SUBSTRING 1237Q RPLSTRING 1200Q RPLSTRING 1160Q \RPLRIGHT 1136Q RPLCHARCODE 1117Q \RPLRIGHT 1076Q RPLCHARCODE 1062Q \RPLRIGHT 1034Q RPLCHARCODE 1024Q RPLSTRING 1011Q RPLCHARCODE 756Q \RPLRIGHT 737Q RPLCHARCODE 713Q RPLSTRING 707Q NTH 670Q \RPLRIGHT 646Q RPLCHARCODE 632Q \RPLRIGHT 577Q ALLOCSTRING 551Q NCHARS 476Q NCHARS 463Q SUBSTRING 444Q NTH 36Q \LISPERROR) (264Q DAY.SHORT 250Q DAY.OF.WEEK 234Q NO.SECONDS 217Q TIME.ZONES 214Q \TimeZoneComp 207Q TIME.ZONE 173Q NO.LEADING.SPACES 156Q SPACES 143Q SLASHES 125Q YEAR.LONG 111Q NUMBER.OF.MONTH 73Q NO.TIME 56Q NO.DATE 26Q DATEFORMAT) ( 1234Q "ST" 1227Q "DT" 703Q ("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec") 431Q ("Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday")) \RPLRIGHT D1 (L (3 MINDIGITS 2 N 1 AT 0 S)) /@ABl l0 Ckl BAkBl Ckbbbh(13Q RPLCHARCODE) NIL () \UNPACKDATE D1 (L (0 D)) @b`@ool @ll< Il<_Il