(FILECREATED "28-Jun-85 20:33:37" ("compiled on " {ERIS}SOURCES>NSFILING.;31) "22-Jun-85 19:27:36" recompiled changes: \NSFILING.GETFILE \NSFILING.GETFILE1 \NSFILING.DIRECTORYNAMEP in "INTERLISP-D 22-Jun-85 ..." dated "22-Jun-85 19:41:49") (FILECREATED "27-Jun-85 15:27:06" {ERIS}SOURCES>NSFILING.;31 84220 changes to: (FNS \NSFILING.DIRECTORYNAMEP \NSFILING.GETFILE1 \NSFILING.GETFILE) previous date: "18-Jun-85 18:35:44" {ERIS}SOURCES>NSFILING.;28) \GET.FILING.ATTRIBUTE D1 (P 3 VALUE P 2 X P 1 ATTR I 1 PROGRAM I 0 STREAM) B`@hg "HI@hg hZdIHX@ @ @AJ h(74Q COURIER.READ 32Q COURIER.READ.SEQUENCE 12Q COURIER.READ) (27Q UNSPECIFIED 7 LONGCARDINAL 2 \NSFILING.ATTRIBUTES) () \PUT.FILING.ATTRIBUTE D1 (P 4 X P 2 VALUETYPE P 1 VALUE P 0 ATTR I 2 PROGRAM I 1 ITEM I 0 STREAM) \AAHd`K oH @Hhg J"@IBJ "\dHK[LZ@IBg h(130Q COURIER.WRITE.SEQUENCE 66Q COURIER.WRITE.SEQUENCE.UNSPECIFIED 54Q COURIER.WRITE 42Q ERROR) (125Q UNSPECIFIED 51Q LONGCARDINAL 23Q \NSFILING.ATTRIBUTES) ( 36Q "Unknown Filing attribute") \GETFILINGCONNECTIONA0001 D1 (NAME ERRORSET P 1 CONNECTION P 0 TAIL F 2 DEVINFO F 3 RESETY) SRhi RHR YRIRIciHYjI RIR (115Q DREMOVE 76Q \VALID.FILING.CONNECTIONP 30Q \NSFILING.LOGIN 10Q OBTAIN.MONITORLOCK) NIL () \GETFILINGCONNECTION D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 CONNECTION P 0 DEVINFO I 1 DORESETSAVE I 0 DEVICE F 5 RESETVARSLST F 6 LISPXHIST) H@(V!Uog hg\ LKYAIdigIhhhUc (44Q ERROR! 36Q RESETRESTORE 24Q \GETFILINGCONNECTIONA0001) (67Q \NSFILING.RESETCLOSE 32Q ERROR 21Q INTERNAL) ( 16Q (\GETFILINGCONNECTIONA0001)) \NSFILING.FINDSERVER D1 (I 0 SERVERNAME) @gi (7 LOOKUP.NS.SERVER) (3 FILESERVER) () \OPENFILINGCONNECTION D1 (P 0 STREAM I 0 CONNECTION) L@i @dgi@o ho XH@ @kkjh(74Q \NSFILING.SET.CONTINUANCE 62Q COURIER.OPEN 51Q PACK* 14Q SPP.CLOSE) (40Q NSNAME 33Q FILINGSESSION 26Q FILESERVER 21Q FILINGSESSION 6 FILINGSESSION) ( 56Q (ERRORHANDLER \NSFILING.ERRORHANDLER) 46Q " Filing") \NSFILING.LOGIN D1 (P 11Q NEEDLOGIN P 10Q CREDENTIALS P 7 CONNECTION P 6 SESSION P 5 STREAM P 4 SERVERNSNAME P 3 SERVERNAME P 2 ADDRESS P 1 PROGRAM P 0 FILESERVER I 0 DEVINFO) 2 @` H\i [HZKOhOohg _Jhi@ho ]O _IgMIgLOOg MggOOg ^"M NNdgIg/gY%gN.dg𑿍gNgi_OoK N h9`dJdLdKdMdNd` dkdI_d O` L` o` (454Q PRIN1 441Q PRIN1 431Q TERPRI 420Q \NSFILING.SET.CONTINUANCE 327Q ERROR 322Q CONCAT 207Q SPP.CLOSE 200Q COURIER.CALL 152Q COURIER.CALL 115Q NS.MAKE.SIMPLE.CREDENTIALS 103Q COURIER.OPEN 52Q \INTERNAL/GETPASSWORD 21Q MKATOM 16Q NSNAME.TO.STRING) (451Q PROMPTWINDOW 436Q PROMPTWINDOW 426Q PROMPTWINDOW 374Q \NSFILING.NULL.HANDLE 336Q FILINGSESSIONTYPE# 301Q CannotAuthenticate 270Q SERVICE.ERROR 261Q AUTHENTICATION.ERROR 247Q ERROR 240Q OLDFILING 232Q FILING 222Q REJECT 174Q RETURNERRORS 163Q LOGON 160Q OLDFILING 146Q RETURNERRORS 134Q LOGON 124Q FILING 46Q NS 4 \NSFILING.PROGRAM.NAME) ( 446Q " not responding to connection attempt" 316Q "Error while logging on to " 77Q (ERRORHANDLER \NSFILING.ERRORHANDLER) 42Q "Login incorrect.") \NSFILING.SET.CONTINUANCE D1 (I 0 CONNECTION) -@l @@g@g di(42Q COURIER.CALL 6 \DAYTIME0) (36Q NOERROR 31Q FILINGSESSION 25Q CONTINUE 20Q FILINGSESSION 12Q FILINGSESSION) () \CLOSEFILINGCONNECTION D1 (P 0 STREAM I 1 ABORT? I 0 CONNECTION) @@hHA @jjdhh(16Q SPP.CLOSE) NIL () \NSFILING.LOGOUTA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 CONNECTION F 1 RESETVARSLST F 2 ABORT?) IRCPg 5P 0gPhhhQcPPgPg hh(102Q COURIER.CALL 24Q \OPENFILINGCONNECTION 16Q TIMEREXPIRED?) (76Q NOERROR 71Q FILINGSESSION 65Q LOGOFF 60Q FILINGSESSION 52Q FILINGSESSION 31Q \NSFILING.RESETCLOSE 13Q SECONDS 6 FILINGSESSION) () \NSFILING.LOGOUT D1 (I 1 ABORT? I 0 CONNECTION) o (6 \NSFILING.LOGOUTA0001) NIL ( 3 (DUMMY.FOR.ERRORSET)) \NSFILING.RESETCLOSE D1 (I 0 X F 0 RESETSTATE) @P (4 \CLOSEFILINGCONNECTION) NIL () \NSFILING.CLOSE.IF.ERROR D1 (I 0 CONNECTION F 0 RESETSTATE) P@ (6 \CLOSEFILINGCONNECTION) NIL () \VALID.FILING.CONNECTIONP D1 (I 0 CONNECTION) /@g h@@  j@ h@ i(51Q \OPENFILINGCONNECTION 43Q \NSFILING.LOGOUT 33Q HASH.PASSWORD 27Q \INTERNAL/GETPASSWORD 10Q TIMEREXPIRED?) (5 SECONDS) () \NSFILING.CLOSE.CONNECTIONSA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 1 DEVINFO F 2 RESETY F 3 ABORT?) 0Qhi QdhciHQHS (54Q \NSFILING.LOGOUT 10Q OBTAIN.MONITORLOCK) NIL () \NSFILING.CLOSE.CONNECTIONS D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 ABORT? I 0 DEVINFO F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \NSFILING.CLOSE.CONNECTIONSA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) BREAK.NSFILING.CONNECTION D1 (P 0 DEV I 0 HOST) @ id Hd( i(23Q \NSFILING.CLOSE.CONNECTIONS 10Q \GETDEVICEFROMNAME 3 \CANONICAL.NSHOSTNAME) NIL () \NSFILING.CONNECT D1 (P 20Q TAIL P 16Q OLD.DIR P 14Q \INTERRUPTABLE P 7 NSPATHNAME P 6 ADDITIONAL.DIRLIST P 5 NEW.HANDLE P 4 NEW.DIR P 3 OLD.HANDLE P 2 SESSIONHANDLE P 1 OLD.DIRLIST P 0 NEW.DIRLIST I 3 CREATE? I 2 REALREQUIRED I 1 PATHNAME I 0 CONNECTION) Ad @ @@ THIHBK`Hd@g0 Hd_gOh_O;O__O _@@ggOhh`hJg ]d _OgMg7CHd @ ]) @ @M @H K`@@gKJ iH-H^)IO iNXa_NN hO_K`"@@gK @`[ @h J B H@d@gh`hJg [ HO_ }@@ggO \hhKhJg ]dYgO MgCHL@i ]h @M @d Lh  K`@@gKJ MO (730Q COURIER.CALL 700Q \APPEND2 652Q \NSFILING.MAYBE.CREATE 604Q COURIER.CALL 524Q COURIER.CALL 466Q COURIER.CALL 405Q STREQUAL 337Q COURIER.CALL 266Q \NSFILING.MAYBE.CREATE 261Q LAST 224Q LAST 214Q COURIER.CALL 152Q CONCATLIST 6 \PATHNAME.TO.DIRECTORY.LIST) (722Q CLOSE 707Q \NSFILING.NULL.HANDLE 636Q FileNotFound 617Q ERROR 600Q RETURNERRORS 561Q NAME 556Q OPEN 520Q NOERROR 513Q \NSFILING.NULL.HANDLE 507Q OPEN 450Q \NSFILING.NULL.HANDLE 440Q CLOSE 424Q \NSFILING.NULL.HANDLE 331Q CLOSE 316Q \NSFILING.NULL.HANDLE 250Q FileNotFound 236Q ERROR 210Q RETURNERRORS 203Q \NSFILING.NULL.HANDLE 171Q PATHNAME 166Q OPEN 113Q / 70Q FILING 45Q \NSFILING.NULL.HANDLE) () \NSFILING.MAYBE.CREATE D1 (I 4 CONNECTED I 3 CONNECTION I 2 NEW.DIR I 1 DIRLST I 0 CREATE? F 5 DWIMWAIT) @dgNUgoCo0AdghXIHZYJ o  g YHhiLDCAAH\Ld 24Q FILINGSESSION 14Q Y 4 ASK) ( 224Q ((IS.DIRECTORY T) (FILE.TYPE 1)) 77Q "? " 32Q "}<" 20Q "Create subdirectory {") \PATHNAME.TO.DIRECTORY.LIST D1 (P 4 VAL P 3 VERS P 2 CH P 1 START P 0 I I 0 PATHNAME) @d? l{@g b-kd2@H)Z#L@IKdHl @Kk)Kk h l!H[2Jdl'HkX%l/Jl>L@IKHk h hHkعHkԸHl@Kk)l1K(161Q \NCONC2 154Q SUBSTRING 100Q \NCONC2 73Q SUBSTRING 21Q FILENAMEFIELD 6 CHCON1) (16Q DIRECTORY) () \NSFILING.LISTVERSIONS D1 (P 0 SCOPE I 3 DESIREDVERSION I 2 DESIREDPROPS I 1 FILENAME I 0 CONNECTION) oggA hghhCd gHggChghhhh@@g@ BgHhho@ (154Q COURIER.CALL 11Q \NSFILING.REMOVEQUOTES) (146Q FILINGSESSION 130Q FILTER 122Q FILINGSESSION 116Q LIST 111Q FILINGSESSION 103Q FILINGSESSION 62Q CARDINAL 53Q VERSION 50Q = 44Q AND 17Q STRING 5 NAME 2 =) ( 142Q (FILING . ATTRIBUTE.SEQUENCE)) \NSFILING.REMOVEQUOTES D1 (I 0 X) /@ 1HI l'HXHHJ KhZK&(16Q CONCATCODES 3 CHCON) NIL () \FILING.ATTRIBUTE.TYPE.SEQUENCE D1 (I 0 ATTRIBUTETYPES) 0@d IHhZH&J(12Q \FILING.ATTRIBUTE.TYPE) NIL NIL \FILING.ATTRIBUTE.TYPE D1 (P 1 X I 1 NOERRORFLG I 0 ATTR) &`HAo@ hY@IHX(23Q ERROR) (2 \NSFILING.ATTRIBUTES) ( 17Q "Unknown Filing attribute") \LISP.TO.NSFILING.ATTRIBUTE D1 (P 0 X I 1 VALUE I 0 ATTRIBUTE) @dggbA WAl OggbA =Al 5@dggbA Al ggbAd% jb@Ah@` X @` h(206Q ASSOC 174Q ASSOC 151Q \FILETYPE.FROM.TYPE 124Q \LISPERROR 114Q IDATE 67Q \LISPERROR 57Q IDATE 35Q \LISPERROR 25Q IDATE) (203Q \NSFILING.ATTRIBUTES 171Q \LISP.TO.NSFILING.ATTRIBUTES 137Q FILE.TYPE 131Q TYPE 105Q CREATED.ON 76Q CREATIONDATE 50Q READ.ON 42Q READDATE 16Q MODIFIED.ON 7 WRITEDATE) () \NSFILING.OPENFILE D1 (I 4 DEVICE I 3 PARAMETERS I 2 RECOG I 1 ACCESS I 0 FILENAME) D@ABihC (12Q \NSFILING.GETFILE) NIL () \NSFILING.GETFILEA0001 D1 (NAME ERRORSET F 0 DEVICE F 1 FILENAME F 2 ACCESS F 3 PARAMETERS F 4 RECOG F 5 DIROK F 6 NOERROR F 7 OPTION F 10Q RESETY)  PQRTVWSU ci(14Q \NSFILING.GETFILE1) NIL () \NSFILING.GETFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 7 DIROK I 6 PARAMETERS I 5 OPTION I 4 NOERROR I 3 RECOG I 2 ACCESS I 1 FILENAME I 0 DEVICE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \NSFILING.GETFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\NSFILING.GETFILEA0001)) \NSFILING.GETFILE1 D1 (P 20Q PAIR P 16Q TAIL P 15Q FULLNAME P 14Q FILESTREAM P 13Q HANDLE P 12Q SESSIONHANDLE P 11Q FILE.ID P 10Q DESIRED.INFO P 7 CACHE P 6 CONNECTION P 5 VERSION P 4 HOST P 3 DIRECTORY P 2 NAME P 1 RESETSAVER P 0 DEVINFO I 7 DIROK I 6 PARAMETERS I 5 OPTION I 4 NOERROR I 3 RECOG I 2 ACCESS I 1 FILENAME I 0 DEVICE) @@(Eggo A'H_AhEg AEdg(Ag@I ^5A_EEgigOEgO_@I ^#hdOdgOUdgOGdg#O9Oo.JoO gO ]3 JoM hJ jvEgoG_@I ^dK NNgN _g `Ng _^NONO@lFDAl* @I d6EgNKhF NKhCgBggh ZO*MONJMhi OO NJC`M _O)Mkh_EdgqCgfNJMhi _ dgO _?g9CgCgCdgO gMh__O kؽC O_OhN_OONNgo `hOg _iONNgO`O _iABg 371Q FILINGSESSION 365Q { 341Q FILINGSESSION 74Q PATHNAME 57Q NAME 40Q VERSION 21Q IS.DIRECTORY) ( 521Q "" 512Q ".;" 473Q ";" 462Q "." 456Q "" 377Q "}<") \NSFILING.EVENTFN D1 (I 1 EVENT I 0 DEVICE) 2Adg@(i gAgAgAg@ (57Q \REMOVEDEVICE 21Q \NSFILING.CLOSE.CONNECTIONS) (50Q AFTERSYSOUT 42Q AFTERMAKESYS 34Q AFTERSAVEVM 25Q AFTERLOGOUT 13Q FDEV 4 BEFORELOGOUT) () \NSFILING.DELETEFILEA0001 D1 (P 0 DIRP I 4 DEVICE I 3 ATTRS I 2 STREAM I 1 HANDLE I 0 CONNECTION) qgC HgC jh@@gA@g CD(D(hHgC C b@Chdi HA@ @` @h (131Q \NSFILING.FULLNAME 115Q DREMOVE 111Q ASSOC 57Q COURIER.CALL 24Q ASSOC 6 ASSOC) (146Q \NSFILING.NULL.HANDLE 105Q NAME 53Q RETURNERRORS 44Q DELETE 20Q NUMBER.OF.CHILDREN 2 IS.DIRECTORY) () \NSFILING.DELETEFILE D1 (I 1 DEVICE I 0 FILENAME) A@ggiggi (23Q \NSFILING.GETFILE) (16Q \NSFILING.DELETEFILEA0001 13Q HANDLE 7 OLDEST 4 NONE) () \NSFILING.HOSTNAMEP D1 (P 2 FULLHOSTNAME P 1 FILINGNAME P 0 SERVER I 1 DEVICE I 0 HOST F 5 \SPP.BULKDATA.DEVICE) o@ @ AHdi Zid Ho YJ`U dJdgdgdgdg dgdg2dgdgdgdgdg dgHhI IhdK(U*dL*b A(300Q \DEFINEDEVICE 243Q CREATE.MONITORLOCK 104Q NCREATE2 73Q PACK* 47Q \GETDEVICEFROMNAME 41Q MKATOM 36Q U-CASE 33Q NSNAME.TO.STRING 15Q \NSFILING.FINDSERVER 7 STRPOS) (263Q FDEV 232Q \NSFILING.EVENTFN 223Q \NSFILING.GENERATEFILES 214Q \NSFILING.DIRECTORYNAMEP 205Q \NSFILING.GETFILENAME 176Q NILL 167Q \NSFILING.DELETEFILE 160Q \NSFILING.GETEOFPTR 151Q \NSFILING.SETFILEINFO 142Q \NSFILING.GETFILEINFO 133Q \NSFILING.CLOSEFILE 124Q NILL 115Q \NSFILING.OPENFILE 100Q FDEVTYPE# 62Q NSNAME) ( 70Q " Filing" 3 ":") \NSFILING.DIRECTORYNAMEP D1 (I 2 CREATE? I 1 DEVICE I 0 HOST/DIR) A@ghigBg (23Q \NSFILING.GETFILE) (17Q ASK 11Q DIRECTORY 4 NONE) () \NSFILING.GETFILENAME D1 (I 2 DEVICE I 1 RECOG I 0 NAME) B@gAig (15Q \NSFILING.GETFILE) (11Q NAME 4 NONE) () \NSFILING.GETFILEINFO D1 (P 1 INFO P 0 DESIREDPROPS I 2 DEVICE I 1 ATTRIBUTE I 0 STREAM) 0AdgoXB@g ` Ai XdU` HhB@g :@d`B@ggig @B@ggig ZJYdA (176Q \NSFILING.GETFILEINFO.FROM.PLIST 163Q \NSFILING.GETFILE 132Q \NSFILING.GETFILE 76Q \NSFILING.GET/SETINFO 61Q MEMB 47Q \FILING.ATTRIBUTE.TYPE 36Q ASSOC 27Q \NSFILING.GET/SETINFO) (157Q ATTRIBUTES 153Q OLD 150Q NONE 126Q ATTRIBUTES 122Q OLD 117Q NONE 106Q STREAMTYPE# 73Q \NSFILING.GET.ATTRIBUTES 56Q \NSFILING.USEFUL.ATTRIBUTE.TYPES 33Q \LISP.TO.NSFILING.ATTRIBUTES 24Q \NSFILING.GET.ATTRIBUTES 7 ALL) ( 16Q (-1)) \NSFILING.GET.ATTRIBUTES D1 (I 2 STREAM I 1 HANDLE I 0 CONNECTION F 0 DESIREDPROPS) B@@gAP@ (24Q COURIER.CALL) (13Q GET.ATTRIBUTES) () \NSFILING.GETFILEINFO.FROM.PLIST D1 (P 0 CHNAME I 1 ATTRIBUTE I 0 PLIST) @Adgg@  gg@  Adgg@  gg@ donAdgg@ HdO gg@ d:Adgg@  gg@ A` A@ (277Q ASSOC 266Q ASSOC 254Q ASSOC 237Q \TYPE.FROM.FILETYPE 232Q ASSOC 204Q ASSOC 167Q NSNAME.TO.STRING 153Q ASSOC 117Q ASSOC 101Q \NSFILING.GDATE 74Q ASSOC 54Q \NSFILING.GDATE 47Q ASSOC 32Q \NSFILING.GDATE 25Q ASSOC) (263Q \LISP.TO.NSFILING.ATTRIBUTES 250Q FILE.TYPE 243Q FILETYPE 226Q FILE.TYPE 220Q TYPE 200Q ACCESS.LIST 173Q PROTECTION 147Q CREATED.BY 140Q AUTHOR 113Q SIZE.IN.BYTES 105Q SIZE 70Q CREATED.ON 62Q CREATIONDATE 43Q READ.ON 36Q READDATE 21Q MODIFIED.ON 13Q WRITEDATE) () \NSFILING.GDATE D1 (I 0 DATE) @do@ h(14Q GDATE) NIL ( 6 -20000000000Q) \NSFILING.SETFILEINFOA0001 D1 (I 4 DEVICE I 3 INFO I 2 COURIERSTREAM I 1 HANDLE I 0 CONNECTION F 0 NAME.OR.STREAM F 1 ATTR/VAL) ;B@@gAQh@g P`PhDCD(D(hi(31Q COURIER.CALL) (40Q STREAMTYPE# 25Q RETURNERRORS 13Q CHANGE.ATTRIBUTES) () \NSFILING.SETFILEINFO D1 (P 1 RESULT P 0 ATTR/VAL I 3 DEVICE I 2 VALUE I 1 ATTRIBUTE I 0 NAME.OR.STREAM) JAB H?C@g Ydd1` @d`` o` I` h(106Q PRIN1 73Q PRIN1 60Q PRIN1 37Q TERPRI 22Q \NSFILING.GET/SETINFO 4 \LISP.TO.NSFILING.ATTRIBUTE) (103Q PROMPTWINDOW 70Q PROMPTWINDOW 55Q PROMPTWINDOW 46Q STREAMTYPE# 34Q PROMPTWINDOW 17Q \NSFILING.SETFILEINFOA0001) ( 65Q " -- ") \NSFILING.GET/SETINFO D1 (P 1 HANDLE P 0 FILENAME I 2 INFOFN I 1 STREAM I 0 DEVICE) 2AA`AAYAIB @HggigBi (57Q \NSFILING.GETFILE 34Q \NSFILING.MANIPULATE.HANDLE) (51Q HANDLE 45Q OLD 42Q NONE 10Q STREAMTYPE#) () \NSFILING.GENERATEFILESA0001 D1 (NAME ERRORSET F 0 DEVICE F 1 PATTERN F 2 RESETY F 3 DESIREDPROPS F 4 OPTIONS) PQST ci(6 \NSFILING.GENERATEFILES1) NIL () \NSFILING.GENERATEFILESA0002 D1 (I 1 STREAM I 0 CONNECTION F 0 RESETSTATE) A @P (10Q \CLOSEFILINGCONNECTION 3 CLOSEF) NIL () \NSFILING.GENERATEFILES D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 RESULT P 1 BULKSTREAM P 0 CONNECTION I 3 OPTIONS I 2 DESIREDPROPS I 1 PATTERN I 0 DEVICE F 6 RESETVARSLST F 7 LISPXHIST) \0W!Vog hg] MLZH,CgCgCgHIhhhVc IH J(131Q \NULLFILEGENERATOR 122Q \CLOSEFILINGCONNECTION 42Q ERROR! 34Q RESETRESTORE 22Q \NSFILING.GENERATEFILESA0001) (75Q \NSFILING.GENERATEFILESA0002 66Q RESETLST 55Q RESETLST 30Q ERROR 17Q INTERNAL) ( 14Q (\NSFILING.GENERATEFILESA0001)) \NSFILING.GENERATEFILES1 D1 (P 22Q PROP P 15Q X P 14Q BROKET P 13Q TAIL P 10Q N P 7 INFINITE.DEPTH P 6 SCOPELIST P 5 FILTERLIST P 4 DIRECTORY P 3 VERSION P 2 NAME P 1 HOST P 0 STAR I 3 OPTIONS I 2 DESIREDPROPS I 1 PATTERN I 0 DEVICE F 23Q CONNECTION F 24Q RESETVARSLST F 25Q BULKSTREAM) Oo A yd OdgOY`dgO\RdgOZDdg0Od5H JoO ZJm)l*JH ZgO [gL _?j gLOk _OOO_LOkO Ojh LkOk \@ dxc&gW&hhhW(c(W&Li XBAO#ObW&gFlDd b_$` O$i _$_"O O"h_ _O_O"&_ l oB bgJ JH ggJggJhghhMKdggKhghhM]MgMdgMhhN`)L&W&gg` i_nhNW&W&gW& BNhW& c*gghW*gg _A _W&OOOh(1071Q DIRECTORY.MATCH.SETUP 1062Q BULKDATA.GENERATOR 1036Q COURIER.CALL 562Q STREQUAL 554Q STRPOS 542Q \APPEND2 464Q \FILING.ATTRIBUTE.TYPE 452Q ASSOC 434Q INTERSECTION 361Q \NSFILING.CONNECT 322Q \GETFILINGCONNECTION 314Q SUBSTRING 272Q SUBSTRING 240Q STRPOS 215Q STRPOS 176Q MKATOM 160Q CONCAT 137Q CONCAT 122Q STREQUAL 12Q UNPACKFILENAME.STRING) (1057Q ATTRIBUTE.SEQUENCE 1054Q FILING 1046Q \NSFILING.FILEINFOFN 1043Q \NSFILING.NEXTFILE 1030Q FILINGSESSION 1016Q FILINGSESSION 1011Q LIST 1004Q FILINGSESSION 775Q FILINGSESSION 747Q FILING.ENUMERATION.DEPTH 744Q DEPTH 736Q FILING 731Q FILINGSESSION 717Q FILING.ENUMERATION.DEPTH 700Q AND 670Q FILTER 650Q CARDINAL 641Q VERSION 636Q = 611Q STRING 602Q NAME 577Q = 572Q NAME 567Q MATCHES 550Q * 447Q \LISP.TO.NSFILING.ATTRIBUTES 421Q FILING 414Q FILINGSESSION 334Q \NSFILING.CLOSE.IF.ERROR 230Q > 211Q * 165Q VERSION 101Q EXTENSION 63Q NAME 45Q DIRECTORY 27Q HOST) ( 536Q (22Q 5) 130Q "." 3 "*") \NSFILING.NEXTFILE D1 (P 5 NAME P 4 INFO P 3 IGNOREDIRS P 2 FILTER P 1 CONNECTION P 0 GENERATOR I 2 SCRATCHLIST I 1 NAMEONLY I 0 GENFILESTATE) H@@@@$H \hKgL IL JJM @LAMi M(103Q NAMEFIELD 66Q DIRECTORY.MATCH 56Q \NSFILING.FULLNAME 45Q ASSOC 30Q BULKDATA.GENERATE.NEXT) (41Q IS.DIRECTORY) () \NSFILING.FILEINFOFN D1 (I 1 ATTRIBUTE I 0 GENFILESTATE) @A (5 \NSFILING.GETFILEINFO.FROM.PLIST) NIL () \NSFILING.GETEOFPTR D1 (I 0 STREAM) @Rlj@ @g (25Q \NSFILING.GETFILEINFO 15Q GETFILEPTR) (22Q LENGTH) () \NSFILING.INIT D1 NIL eh`dgdgdgdg:dg8dg6dg4dg2dg0dg.dg*dg$dg (142Q \DEFINEDEVICE) (134Q NILL 125Q \GENERIC.READP 116Q NILL 107Q \IS.NOT.RANDACCESSP 100Q \ILLEGAL.DEVICEOP 71Q \IS.NOT.RANDACCESSP 62Q \ILLEGAL.DEVICEOP 53Q \GENERIC.BINS 44Q \GENERIC.BOUTS 35Q \GENERIC.RENAMEFILE 26Q NILL 17Q \NSFILING.HOSTNAMEP 10Q NSFILING 3 FDEVTYPE#) () (PRETTYCOMPRINT NSFILINGCOMS) (RPAQQ NSFILINGCOMS ((* Filing Protocol) (COURIERPROGRAMS FILING OLDFILING) (DECLARE: DONTCOPY ( CONSTANTS * NSFILINGCONSTANTS) (RECORDS NSFILINGSTREAM FILINGSESSION NSFILESERVER NSFILINGDEVICEINFO \NSFILING.GENFILESTATE) (MACROS FILING.CALL) (GLOBALVARS \NSFILING.CONNECTIONS \NSFILING.DEVICE \NSFILING.NULL.HANDLE \NSFILING.ATTRIBUTES \LISP.TO.NSFILING.ATTRIBUTES \NSFILING.USEFUL.ATTRIBUTE.TYPES \NSFILING.PROGRAM.NAME FILING.ENUMERATION.DEPTH NSFILING.SHOW.STATUS) ) (INITRECORDS FILINGSESSION) (COMS (FNS \GET.FILING.ATTRIBUTE \PUT.FILING.ATTRIBUTE) (PROP COURIERDEF FILING.ATTRIBUTE) (DECLARE: EVAL@COMPILE DOCOPY (VARS \NSFILING.NULL.HANDLE \NSFILING.ATTRIBUTES \LISP.TO.NSFILING.ATTRIBUTES (\NSFILING.USEFUL.ATTRIBUTE.TYPES (\FILING.ATTRIBUTE.TYPE.SEQUENCE (QUOTE (CREATED.ON FILE.ID IS.DIRECTORY MODIFIED.ON PATHNAME NAME READ.ON SIZE.IN.BYTES FILE.TYPE VERSION))) )))) (INITVARS (NSFILING.SHOW.STATUS T) (FILING.ENUMERATION.DEPTH T) (\NSFILING.LOCK ( CREATE.MONITORLOCK (QUOTE NSFILING))) (\NSFILING.CONNECTIONS NIL) (\NSFILING.PROGRAM.NAME (QUOTE FILING))) (FNS \GETFILINGCONNECTION \NSFILING.FINDSERVER \OPENFILINGCONNECTION \NSFILING.LOGIN \NSFILING.SET.CONTINUANCE \CLOSEFILINGCONNECTION \NSFILING.LOGOUT \NSFILING.RESETCLOSE \NSFILING.CLOSE.IF.ERROR \VALID.FILING.CONNECTIONP \NSFILING.CLOSE.CONNECTIONS BREAK.NSFILING.CONNECTION) (FNS \NSFILING.CONNECT \NSFILING.MAYBE.CREATE \PATHNAME.TO.DIRECTORY.LIST \NSFILING.LISTVERSIONS \NSFILING.REMOVEQUOTES \FILING.ATTRIBUTE.TYPE.SEQUENCE \FILING.ATTRIBUTE.TYPE \LISP.TO.NSFILING.ATTRIBUTE) (FNS \NSFILING.OPENFILE \NSFILING.GETFILE \NSFILING.GETFILE1 \NSFILING.ERRORHANDLER \NSFILING.MANIPULATE.HANDLE \NSFILING.FIND.VERSION \NSFILING.OPENFILE.OPTIONS \NSFILING.CLOSEFILE \NSFILING.CLOSE.HANDLE \NSFILING.FULLNAME \NSFILING.EVENTFN \NSFILING.DELETEFILE \NSFILING.HOSTNAMEP \NSFILING.DIRECTORYNAMEP \NSFILING.GETFILENAME \NSFILING.GETFILEINFO \NSFILING.GET.ATTRIBUTES \NSFILING.GETFILEINFO.FROM.PLIST \NSFILING.GDATE \NSFILING.SETFILEINFO \NSFILING.GET/SETINFO \NSFILING.GENERATEFILES \NSFILING.GENERATEFILES1 \NSFILING.NEXTFILE \NSFILING.FILEINFOFN \NSFILING.GETEOFPTR) (COMS (FNS \NSFILING.INIT) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\NSFILING.INIT)))))) (COURIERPROGRAM FILING (10 4) TYPES ((ATTRIBUTE.TYPE LONGCARDINAL) (ATTRIBUTE.TYPE.SEQUENCE (SEQUENCE ATTRIBUTE.TYPE)) (ATTRIBUTE FILING.ATTRIBUTE) (ATTRIBUTE.SEQUENCE (SEQUENCE FILING.ATTRIBUTE)) ( CONTROL.TYPE (ENUMERATION (LOCK 0) (TIMEOUT 1))) (CONTROL.TYPE.SEQUENCE (SEQUENCE CONTROL.TYPE)) ( CONTROL (CHOICE (LOCK 0 LOCK) (TIMEOUT 1 TIMEOUT))) (CONTROL.SEQUENCE (SEQUENCE CONTROL)) (LOCK ( ENUMERATION (NONE 0) (SHARE 1) (EXCLUSIVE 2))) (TIMEOUT CARDINAL) (SCOPE.TYPE (ENUMERATION (COUNT 0) ( DIRECTION 1) (FILTER 2) (DEPTH 3))) (SCOPE (CHOICE (COUNT 0 CARDINAL) (DIRECTION 1 DIRECTION) (FILTER 2 FILTER) (DEPTH 4 CARDINAL))) (SCOPE.SEQUENCE (SEQUENCE SCOPE)) (DIRECTION (ENUMERATION (FORWARD 0) ( BACKWARD 1))) (FILTER (CHOICE (LT 0 FILTER.ATTRIBUTE) (LE 1 FILTER.ATTRIBUTE) (= 2 FILTER.ATTRIBUTE) ( ~= 3 FILTER.ATTRIBUTE) (GE 4 FILTER.ATTRIBUTE) (GT 5 FILTER.ATTRIBUTE) (AND 6 (SEQUENCE FILTER)) (OR 7 (SEQUENCE FILTER)) (NOT 8 FILTER) (NONE 9 NIL) (ALL 10 NIL) (MATCHES 11 ATTRIBUTE))) ( FILTER.ATTRIBUTE (RECORD (ATTRIBUTE FILING.ATTRIBUTE) (INTERPRETATION INTERPRETATION))) ( INTERPRETATION (ENUMERATION (NONE 0) (BOOLEAN 1) (CARDINAL 2) (LONGCARDINAL 3) (TIME 4) (INTEGER 5) ( LONGINTEGER 6) (STRING 7))) (CREDENTIALS (AUTHENTICATION . CREDENTIALS)) (HANDLE (ARRAY 2 UNSPECIFIED) ) (SESSION (RECORD (TOKEN (ARRAY 2 UNSPECIFIED)) (VERIFIER VERIFIER))) (VERIFIER (AUTHENTICATION . VERIFIER)) (SIMPLE.VERIFIER (AUTHENTICATION . SIMPLE.VERIFIER)) (FILE.ID (ARRAY 5 UNSPECIFIED)) (USER (CLEARINGHOUSE . NAME)) (ORDERING (RECORD (KEY ATTRIBUTE.TYPE) (ASCENDING BOOLEAN) (INTERPRETATION INTERPRETATION))) (ACCESS.LIST (RECORD (ENTRIES (SEQUENCE ACCESS.ENTRY)) (DEFAULTED BOOLEAN))) ( ACCESS.ENTRY (RECORD (KEY (CLEARINGHOUSE . NAME)) (TYPE (ENUMERATION (INDIVIDUAL 0) (ALIAS 1) (GROUP 2 ) (OTHER 3))) (ACCESS UNSPECIFIED))) (ARGUMENT.PROBLEM (ENUMERATION (Illegal 0) (Disallowed 1) ( Unreasonable 2) (Unimplemented 3) (Duplicated 4) (Missing 5))) (ACCESS.PROBLEM (ENUMERATION ( AccessRightsInsufficient 0) (AccessRightsIndeterminate 1) (FileChanged 2) (FileDamaged 3) (FileInUse 4 ) (FileNotFound 5) (FileOpen 6))) (CONNECTION.PROBLEM (ENUMERATION (NoRoute 0) (NoResponse 1) ( TransmissionHardware 2) (TransportTimeout 3) (TooManyLocalConnections 4) (TooManyRemoteConnections 5) (MissingCourier 6) (MissingProgram 7) (MissingProcedure 8) (ProtocolMismatch 9) ( ParameterInconsistency 10) (InvalidMessage 11) (ReturnTimedOut 12) (Other 65535))) (HANDLE.PROBLEM ( ENUMERATION (Invalid 0) (NullDisallowed 1) (DirectoryRequired 2))) (INSERTION.PROBLEM (ENUMERATION ( PositionUnavailable 0) (FileNotUnique 1) (LoopInHierarchy 2))) (SERVICE.PROBLEM (ENUMERATION ( CannotAuthenticate 0) (ServiceFull 1) (ServiceUnavailable 2) (SessionInUse 3) (UnknownService 4))) ( SESSION.PROBLEM (ENUMERATION (TokenInvalid 0))) (SPACE.PROBLEM (ENUMERATION (AllocationExceeded 0) ( AttributeAreaFull 1) (MediumFull 2))) (TRANSFER.PROBLEM (ENUMERATION (Aborted 0) (ChecksumIncorrect 1) (FormatIncorrect 2) (NoRendezvous 3) (WrongDirection 4)))) PROCEDURES ((LOGON 0 ((CLEARINGHOUSE . NAME) CREDENTIALS VERIFIER) RETURNS (SESSION) REPORTS (AUTHENTICATION.ERROR SERVICE.ERROR SESSION.ERROR UNDEFINED.ERROR)) (LOGOFF 1 (SESSION) RETURNS NIL REPORTS (AUTHENTICATION.ERROR SERVICE.ERROR SESSION.ERROR UNDEFINED.ERROR)) (CONTINUE 19 (SESSION) RETURNS (CARDINAL) REPORTS ( AUTHENTICATION.ERROR SESSION.ERROR UNDEFINED.ERROR)) (OPEN 2 (ATTRIBUTE.SEQUENCE HANDLE CONTROL.SEQUENCE SESSION) RETURNS (HANDLE) REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR CONTROL.TYPE.ERROR CONTROL.VALUE.ERROR HANDLE.ERROR SESSION.ERROR UNDEFINED.ERROR)) (CLOSE 3 (HANDLE SESSION) RETURNS NIL REPORTS (AUTHENTICATION.ERROR HANDLE.ERROR SESSION.ERROR UNDEFINED.ERROR)) (CREATE 4 (HANDLE ATTRIBUTE.SEQUENCE CONTROL.SEQUENCE SESSION) RETURNS (HANDLE) REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR CONTROL.TYPE.ERROR CONTROL.VALUE.ERROR HANDLE.ERROR INSERTION.ERROR SESSION.ERROR SPACE.ERROR UNDEFINED.ERROR)) (DELETE 5 (HANDLE SESSION) RETURNS NIL REPORTS (ACCESS.ERROR AUTHENTICATION.ERROR HANDLE.ERROR SESSION.ERROR UNDEFINED.ERROR)) (GET.ATTRIBUTES 8 (HANDLE ATTRIBUTE.TYPE.SEQUENCE SESSION) RETURNS (ATTRIBUTE.SEQUENCE) REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR AUTHENTICATION.ERROR HANDLE.ERROR SESSION.ERROR UNDEFINED.ERROR)) ( CHANGE.ATTRIBUTES 9 (HANDLE ATTRIBUTE.SEQUENCE SESSION) RETURNS NIL REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR HANDLE.ERROR INSERTION.ERROR SESSION.ERROR SPACE.ERROR UNDEFINED.ERROR)) (COPY 10 (HANDLE HANDLE ATTRIBUTE.SEQUENCE CONTROL.SEQUENCE SESSION) RETURNS (HANDLE) REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR CONTROL.TYPE.ERROR CONTROL.VALUE.ERROR HANDLE.ERROR INSERTION.ERROR SESSION.ERROR SPACE.ERROR UNDEFINED.ERROR)) (MOVE 11 (HANDLE HANDLE ATTRIBUTE.SEQUENCE SESSION) RETURNS NIL REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR HANDLE.ERROR INSERTION.ERROR SESSION.ERROR SPACE.ERROR UNDEFINED.ERROR)) (STORE 12 (HANDLE ATTRIBUTE.SEQUENCE CONTROL.SEQUENCE BULK.DATA.SOURCE SESSION) RETURNS (HANDLE) REPORTS ( ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR CONNECTION.ERROR CONTROL.TYPE.ERROR CONTROL.VALUE.ERROR HANDLE.ERROR INSERTION.ERROR SESSION.ERROR SPACE.ERROR TRANSFER.ERROR UNDEFINED.ERROR)) (RETRIEVE 13 (HANDLE BULK.DATA.SINK SESSION) RETURNS NIL REPORTS ( ACCESS.ERROR AUTHENTICATION.ERROR CONNECTION.ERROR HANDLE.ERROR SESSION.ERROR TRANSFER.ERROR UNDEFINED.ERROR)) (REPLACE 14 (HANDLE ATTRIBUTE.SEQUENCE BULK.DATA.SOURCE SESSION) RETURNS NIL REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR CONNECTION.ERROR HANDLE.ERROR SESSION.ERROR SPACE.ERROR TRANSFER.ERROR UNDEFINED.ERROR)) (FIND 17 (HANDLE SCOPE.SEQUENCE CONTROL.SEQUENCE SESSION) RETURNS (HANDLE) REPORTS (ACCESS.ERROR AUTHENTICATION.ERROR CONTROL.TYPE.ERROR CONTROL.VALUE.ERROR HANDLE.ERROR SCOPE.TYPE.ERROR SCOPE.VALUE.ERROR SESSION.ERROR UNDEFINED.ERROR)) (LIST 18 (HANDLE ATTRIBUTE.TYPE.SEQUENCE SCOPE.SEQUENCE BULK.DATA.SINK SESSION) RETURNS NIL REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR CONNECTION.ERROR HANDLE.ERROR SCOPE.TYPE.ERROR SCOPE.VALUE.ERROR SESSION.ERROR TRANSFER.ERROR UNDEFINED.ERROR))) ERRORS ((ATTRIBUTE.TYPE.ERROR 0 (ARGUMENT.PROBLEM ATTRIBUTE.TYPE)) ( ATTRIBUTE.VALUE.ERROR 1 (ARGUMENT.PROBLEM ATTRIBUTE.TYPE)) (CONTROL.TYPE.ERROR 2 (ARGUMENT.PROBLEM CONTROL.TYPE)) (CONTROL.VALUE.ERROR 3 (ARGUMENT.PROBLEM CONTROL.TYPE)) (SCOPE.TYPE.ERROR 4 ( ARGUMENT.PROBLEM SCOPE.TYPE)) (SCOPE.VALUE.ERROR 5 (ARGUMENT.PROBLEM SCOPE.TYPE)) (ACCESS.ERROR 6 ( ACCESS.PROBLEM)) (AUTHENTICATION.ERROR 7 ((AUTHENTICATION . PROBLEM))) (CONNECTION.ERROR 8 ( CONNECTION.PROBLEM)) (HANDLE.ERROR 9 (HANDLE.PROBLEM)) (INSERTION.ERROR 10 (INSERTION.PROBLEM)) ( SERVICE.ERROR 11 (SERVICE.PROBLEM)) (SESSION.ERROR 12 (SESSION.PROBLEM)) (SPACE.ERROR 13 ( SPACE.PROBLEM)) (TRANSFER.ERROR 14 (TRANSFER.PROBLEM)) (UNDEFINED.ERROR 15 (CARDINAL)))) (COURIERPROGRAM OLDFILING (10 2) INHERITS (FILING) PROCEDURES ((LOGON 0 (CREDENTIALS VERIFIER) RETURNS (SESSION) REPORTS (AUTHENTICATION.ERROR SERVICE.ERROR SESSION.ERROR UNDEFINED.ERROR)))) (/DECLAREDATATYPE (QUOTE FILINGSESSION) (QUOTE (FLAG (BITS 7) POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD POINTER POINTER POINTER)) (QUOTE ((FILINGSESSION 0 ( FLAGBITS . 0)) (FILINGSESSION 0 (BITS . 22)) (FILINGSESSION 0 POINTER) (FILINGSESSION 2 POINTER) ( FILINGSESSION 4 POINTER) (FILINGSESSION 6 POINTER) (FILINGSESSION 8 POINTER) (FILINGSESSION 10 POINTER ) (FILINGSESSION 12 POINTER) (FILINGSESSION 14 POINTER) (FILINGSESSION 16 POINTER) (FILINGSESSION 18 POINTER) (FILINGSESSION 20 (BITS . 15)) (FILINGSESSION 21 (BITS . 15)) (FILINGSESSION 22 POINTER) ( FILINGSESSION 24 POINTER) (FILINGSESSION 26 POINTER))) (QUOTE 28)) (PUTPROPS FILING.ATTRIBUTE COURIERDEF (\GET.FILING.ATTRIBUTE \PUT.FILING.ATTRIBUTE)) (RPAQQ \NSFILING.NULL.HANDLE (0 0)) (RPAQQ \NSFILING.ATTRIBUTES ((CHECKSUM 0 CARDINAL) (CHILDREN.UNIQUELY.NAMED 1 BOOLEAN) (CREATED.BY 2 USER) (CREATED.ON 3 TIME) (FILE.ID 4 FILE.ID) (IS.DIRECTORY 5 BOOLEAN) (IS.TEMPORARY 6 BOOLEAN) ( MODIFIED.BY 7 USER) (MODIFIED.ON 8 TIME) (NAME 9 STRING) (NUMBER.OF.CHILDREN 10 CARDINAL) (ORDERING 11 ORDERING) (PARENT.ID 12 FILE.ID) (POSITION 13 (SEQUENCE UNSPECIFIED)) (READ.BY 14 USER) (READ.ON 15 TIME) (SIZE.IN.BYTES 16 LONGCARDINAL) (FILE.TYPE 17 LONGCARDINAL) (VERSION 18 CARDINAL) (ACCESS.LIST 19 ACCESS.LIST) (DEFAULT.ACCESS.LIST 20 ACCESS.LIST) (PATHNAME 21 STRING))) (RPAQQ \LISP.TO.NSFILING.ATTRIBUTES ((IWRITEDATE MODIFIED.ON) (IREADDATE READ.ON) (ICREATIONDATE CREATED.ON) (CREATIONDATE CREATED.ON) (READDATE READ.ON) (WRITEDATE MODIFIED.ON) (LENGTH SIZE.IN.BYTES ) (AUTHOR CREATED.BY) (PROTECTION ACCESS.LIST) (SIZE SIZE.IN.BYTES) (TYPE FILE.TYPE) (FILETYPE FILE.TYPE))) (RPAQ \NSFILING.USEFUL.ATTRIBUTE.TYPES (\FILING.ATTRIBUTE.TYPE.SEQUENCE (QUOTE (CREATED.ON FILE.ID IS.DIRECTORY MODIFIED.ON PATHNAME NAME READ.ON SIZE.IN.BYTES FILE.TYPE VERSION)))) (RPAQ? NSFILING.SHOW.STATUS T) (RPAQ? FILING.ENUMERATION.DEPTH T) (RPAQ? \NSFILING.LOCK (CREATE.MONITORLOCK (QUOTE NSFILING))) (RPAQ? \NSFILING.CONNECTIONS NIL) (RPAQ? \NSFILING.PROGRAM.NAME (QUOTE FILING)) (\NSFILING.INIT) (PUTPROPS NSFILING COPYRIGHT ("Xerox Corporation" 1983 1984 1985)) NIL