(FILECREATED "12-Oct-84 23:10:36" ("compiled on " {ERIS}SOURCES>COURIER.;6) "29-Sep-84 14:49:30" recompiled exprs: COURIER.OPEN COURIER.EXECUTE.CALL in "INTERLISP-D 29-Sep-84 ..." dated "29-Sep-84 15:08:03") (FILECREATED "12-Oct-84 23:08:24" {ERIS}SOURCES>COURIER.;6 76282 changes to: (FNS COURIER.OPEN COURIER.EXECUTE.CALL \COURIER.OUTPUT.ABORTED \BULK.DATA.CLOSE \BULK.DATA.STREAM \COURIER.CHECK.PROCEDURES \COURIER.CHECK.ERRORS \COURIER.HANDLE.BULKDATA \COURIER.ATTENTIONFN) ( RECORDS \BULK.DATA.CONTINUATION) (VARS COURIERCOMS) previous date: "21-Jul-84 23:40:59" {ERIS}SOURCES>COURIER.;4) COURIER.VERSION# D1 NIL lNIL NIL () COURIERPROGRAM D1 (I 0 X) @g@ (11Q PUTDEF) (4 COURIERPROGRAMS) () \COURIER.PUTDEF D1 (P 0 OLDINFO I 2 DEFINITION I 1 TYPE I 0 NAME) N@b`Xd @Ag)B '`igg@ghid @Ag @B` @(112Q /PUTHASH 101Q MARKASCHANGED 70Q LISPXPRINT 33Q EQUAL) (107Q \COURIERPROGRAM 76Q CHANGED 56Q redefined 52Q program 47Q COURIER 40Q DFNFLG 25Q DEFINED 13Q \COURIERPROGRAM 6 LITATOM) () \COURIER.CHECKDEF D1 (P 0 TAIL I 1 DEF I 0 NAME) gAAdAddFo@ dHdg-dg&dgH gH oH h(135Q ERROR 123Q \COURIER.CHECK.ERRORS 106Q \COURIER.CHECK.PROCEDURES 44Q ERROR) (113Q ERRORS 75Q PROCEDURES 66Q INHERITS 57Q TYPES) ( 130Q "Courier definition not understood" 40Q "Bad version specification in Courier def") \COURIER.CHECK.PROCEDURES D1 (P 11Q N P 10Q ERRORS P 7 RESULTS P 6 ARGS P 2 INFO P 1 FNDEF I 0 DEFS F 12Q COMMENTFLG) @QHhYhrWijIZd:J[K1Jl'J\LJlJ]Mi&@ J$hIONgOgOh iV]J_dJdgJ^JZdgJ_O䰢gJ_OаoI HX!(337Q ERROR 176Q /RPLACD) (306Q ERRORS 262Q RESULTS 231Q ARGS 162Q REPORTS 155Q RETURNS) ( 333Q "Bad Courier Procedure definition") \COURIER.CHECK.ERRORS D1 (P 2 INFO P 1 ERRDEF I 0 DEFS F 5 COMMENTFLG) i@AHhYhIUCIZdd[2K.Jg(J\LJdIJJh ioI HX(141Q ERROR 126Q /RPLACD) (60Q ARGS) ( 135Q "Bad Courier Error definition") \COURIER.DELDEF D1 (L (1 TYPE 0 NAME)) Ag @h` (16Q PUTHASH) (13Q \COURIERPROGRAM 3 COURIERPROGRAMS) () \COURIER.GETDEF D1 (I 2 OPTIONS I 1 TYPE I 0 NAME) Ag@ (12Q \GET.COURIERPROGRAM) (3 COURIERPROGRAMS) () \GET.COURIERPROGRAM D1 (L (0 PROGRAM)) @`NIL (3 \COURIERPROGRAM) () \DUMP.COURIERPROGRAMS D1 (P 3 TAIL P 2 PGMDEF P 1 PROGRAM I 0 NAMES F 4 FONTCHANGEFLG) @!HhY Zo T`"I T`` k J JB dl T`` K T`` l Kl g oIh id HX\(244Q LISPXPRINT 237Q \APPEND2 224Q TERPRI 220Q PRIN1 204Q PRINTDEF 173Q TAB 165Q CHANGEFONT 150Q PRIN2 142Q CHANGEFONT 125Q TAB 111Q CHANGEFONT 102Q PRIN2 74Q SPACES 67Q CHANGEFONT 52Q PRIN2 36Q PRIN1 26Q TERPRI 16Q \GET.COURIERPROGRAM) (215Q %) 162Q DEFAULTFONT 156Q CLISPFONT 137Q PRETTYCOMFONT 133Q CLISPFONT 64Q DEFAULTFONT 60Q PRETTYCOMFONT 44Q PRETTYCOMFONT) ( 231Q (no COURIER definition for) 33Q "(COURIERPROGRAM ") \GET.COURIER.TYPE D1 (I 1 TYPENAME I 0 PROGRAMNAME) @Ag (7 \GET.COURIER.DEFINITION) (4 TYPES) () \GET.COURIER.DEFINITION D1 (P 2 OTHERPROGRAM I 3 PGMDEF I 2 TYPE I 1 NAME I 0 PROGRAM) Ad dldlAhbbbC @`bB 0C@`g !HIoBo @Ah AJ`B YHX(166Q ASSOC 163Q LISTGET 145Q ERROR 135Q CONCAT 106Q LISTGET 64Q ASSOC 61Q LISTGET) (155Q \COURIERPROGRAM 103Q INHERITS 76Q \COURIERPROGRAM 51Q \COURIERPROGRAM) ( 132Q " definition for" 125Q "No ") \COURIER.RECORDTRAN D1 (P 4 FORM P 3 FIELD P 2 TYPEDEF P 1 REST P 0 PROGRAM I 1 OP I 0 ARGS) " @@HdII"HlHlHHXJ ZHg#JJlJlJXJJAdg\IIYLdgdgg`Ig gIYI4KgLhgLhJJggI1MJDoA@ hJJM]dgM]M_O Oh_O&_N(346Q ERROR 227Q /RPLACA 64Q \GET.COURIER.TYPE) (372Q _ 320Q LIST 313Q CREATE 272Q CDR 262Q CAR 234Q of 224Q of 217Q LCASEFLG 211Q OF 203Q of 175Q OF 153Q FETCH 77Q RECORD) ( 340Q "Invalid Courier Record Access form") COURIER.OPENA0001 D1 (NAME ERRORSET P 3 HIGH.VERSION P 2 LOW.VERSION P 1 STREAM P 0 ADDRESS F 4 HOSTNAME F 5 NOERRORFLG F 6 NAME F 7 RESETVARSLST F 10Q SERVERTYPE F 11Q WHENCLOSEDFN F 12Q RESETY)  @Td`dW XUhoT liVggWddhh YUhoT gIhhhWcIg"Ij `8` o` Vo` o` I ` Ij Il Ij Il I I I غI I ػJllKI UhoTJKh Ici(403Q ERROR 357Q SPP.CLOSE 321Q SPP.SENDEOM 314Q \BOUT 305Q \BOUT 277Q \BOUT 270Q \BOUT 262Q PRIN1 254Q SPP.DESTADDRESS 247Q PRIN1 234Q PRIN1 216Q PRIN1 203Q TERPRI 167Q SPP.DSTYPE 127Q ERROR 103Q SPP.OPEN 45Q ERROR 21Q LOOKUP.NS.SERVER) (257Q COURIERTRACEFILE 244Q COURIERTRACEFILE 231Q COURIERTRACEFILE 213Q COURIERTRACEFILE 200Q COURIERTRACEFILE 173Q COURIERTRACEFLG 157Q \COURIER.EOF 135Q \SPP.CLOSE.IF.ERROR 62Q \COURIER.WHENCLOSED 57Q CLOSEFN 10Q NSADDRESSTYPE#) ( 371Q "Server supports wrong version of Courier" 241Q " with " 226Q "" 210Q "Opened " 123Q "Host not responding" 41Q "Unknown host") COURIER.OPEN D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 WHENCLOSEDFN I 3 NAME I 2 NOERRORFLG I 1 SERVERTYPE I 0 HOSTNAME F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q COURIER.OPENA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (COURIER.OPENA0001)) \COURIER.WHENCLOSED D1 (I 1 CON I 0 STREAM) )`$jd` o` @ ` ` (46Q TERPRI 40Q PRIN1 32Q SPP.DESTADDRESS 26Q PRIN1 14Q TAB) (43Q COURIERTRACEFILE 35Q COURIERTRACEFILE 23Q COURIERTRACEFILE 11Q COURIERTRACEFILE 2 COURIERTRACEFLG) ( 20Q "Closed with ") COURIER.CALLA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 STREAM F 1 NOERRORFLG F 2 RESETVARSLST F 3 STREAM F 4 ARGLIST F 5 PROGRAM F 6 PGMDEF F 7 ARGTYPES F 10Q PROCEDURE F 11Q PROCDEF F 12Q RESETY) 1 ShQ H!gHhhhRcHUVWWTWQ ci(52Q COURIER.EXECUTE.CALL 5 COURIER.OPEN) (16Q \SPP.RESETCLOSE) () COURIER.CALL D1 (P 21Q RESETZ P 20Q RESETY P 17Q LISPXHIST P 11Q ARGTYPES P 10Q PROCDEF P 7 PGMDEF P 6 NOERRORFLG P 5 ARGLIST P 4 #ARGS P 3 PROCEDURE P 2 PROGRAM P 1 STREAM P 0 ARGS F 22Q LISPXHIST F 23Q RESETVARSLST) e@ABc J` oJ _JKgO _d_ \HLdl'lLla^gNgNioJK Lll2OdOO]Id`2JOKOMON a_OOh__Ok_O&_`(W$!W&og hg_" O"O NI h(340Q \ILLEGAL.ARG 326Q ERROR! 320Q RESETRESTORE 305Q COURIER.CALLA0001 213Q COURIER.EXECUTE.CALL 135Q ERROR 56Q LENGTH 44Q \GET.COURIER.DEFINITION 30Q ERROR) (313Q ERROR 302Q INTERNAL 261Q NSADDRESSTYPE# 172Q STREAMTYPE# 115Q RETURNERRORS 106Q NOERROR 37Q PROCEDURES 15Q \COURIERPROGRAM) ( 277Q (DUMMY.FOR.ERRORSET) 127Q "Wrong number of arguments to Courier procedure" 24Q "No such Courier program") COURIER.EXECUTE.CALL D1 (P 21Q TYPE P 20Q VALUE P 3 DATASTREAM P 2 BULKDATAFN P 1 SINKFLG P 0 SOURCEFLG I 7 NOERRORFLG I 6 ARGTYPES I 5 ARGLIST I 4 PROCDEF I 3 PROCEDURE I 2 PGMDEF I 1 PROGRAM I 0 STREAM) :`gACE  @j @j @j @j @j @B__O \M LMl OOn_^O NOl @B__O OOl @D__O OOl FE"O_ O@ HIs@ISgQ_"dgiO @j @k "giO @j @k @O AO" O_O_gACBDGJ [JKJG K@ABCDG (467Q \COURIER.RESULTS 451Q \COURIER.HANDLE.BULKDATA 436Q \BULK.DATA.STREAM 401Q COURIER.WRITE 367Q \BOUT 361Q \BOUT 337Q \BOUT 331Q \BOUT 266Q SPP.SENDEOM 234Q \BOUT 221Q \BOUT 202Q \BOUT 167Q \BOUT 146Q \BOUT 134Q \BOUT 111Q \BOUT 100Q \BOUT 71Q \HINUM 53Q \BOUT 45Q \BOUT 40Q \BOUT 32Q \BOUT 25Q SPP.DSTYPE 14Q \COURIER.TRACE) (423Q OUTPUT 344Q BULK.DATA.SINK 313Q BULK.DATA.SOURCE 302Q INPUT 6 CALL 2 COURIERTRACEFLG) () \COURIER.RESULTS D1 (P 16Q OTHER P 13Q ERRORDEF P 12Q NUMBER P 11Q TYPE P 5 RESULTTYPES P 2 ARGS P 1 RESULT P 0 MSGTYPE I 6 EXPEDITEDFLG I 5 NOERRORFLG I 4 PROCDEF I 3 PROCEDURE I 2 PGMDEF I 1 PROGRAM I 0 STREAM) P@ @ XdlND@ @ M0M,@AM &d @AO ONh_N&_Ol @ @ @ @ _gBg Bg !OOh[)h_8Oh_`g _O_\OjLiK0O d @AO ONh_N&_OHk@ @ gg@Ao hoH YF@ `gACI HlEFIggEdg..IZdgoJJoAoC J IACI h(625Q \COURIER.HANDLE.ERROR 615Q ERROR 611Q CONCAT 503Q \COURIER.TRACE 465Q SPP.CLEAREOM 456Q ERROR 441Q COURIER.READ 354Q COURIER.READ 266Q LISTGET 211Q LISTGET 177Q LISTGET 77Q COURIER.READ 61Q COURIER.READ) (553Q REJECT 536Q RETURNERRORS 530Q USE.COURIER 523Q USE.COURIER 475Q RETURN 471Q COURIERTRACEFLG 430Q REJECT 425Q ERROR 263Q ERRORS 256Q \COURIERPROGRAM 206Q INHERITS 174Q ERRORS 167Q ERROR) ( 605Q "." 600Q "Error in Courier procedure " 564Q "Courier rejected call to " 452Q "Unknown Courier message type" 436Q (CHOICE (noSuchProgramNumber 0) (noSuchVersionNumber 1 (RECORD (lowest CARDINAL) (highest CARDINAL))) (noSuchProcedureValue 2) (invalidArguments 3) (unspecifiedError 177777Q))) \COURIER.HANDLE.BULKDATAA0001 D1 (NAME ERRORSET F 0 BULKDATAFN F 1 DATASTREAM) P QkPhgQPPi (33Q COURIER.READ.BULKDATA) (17Q LAMBDA) () \COURIER.HANDLE.BULKDATA D1 (P 1 MAINRESULTS P 0 BULKRESULTS I 2 NOERRORFLG I 1 BULKDATAFN I 0 DATASTREAM) oi @HhBi H(27Q \BULK.DATA.CLOSE 7 \COURIER.HANDLE.BULKDATAA0001) NIL ( 3 (\COURIER.HANDLE.BULKDATAA0001)) \COURIER.HANDLE.ERROR D1 (I 2 ERRORARGS I 1 PROCEDURE I 0 PROGRAM) B`=jd` o` @` o` A` o` B` (77Q PRIN1 70Q PRIN1 56Q PRIN1 47Q PRIN1 35Q PRIN1 26Q PRIN1 14Q TAB) (74Q PROMPTWINDOW 65Q PROMPTWINDOW 53Q PROMPTWINDOW 44Q PROMPTWINDOW 32Q PROMPTWINDOW 23Q PROMPTWINDOW 11Q PROMPTWINDOW 2 NSWIZARDFLG) ( 62Q ": " 41Q ", procedure " 20Q "Error in Courier program ") \BULK.DATA.STREAM D1 (P 2 NEXTPKT P 1 SUBSTREAM P 0 CON I 7 INTERNALFLG I 6 NOERRORFLG I 5 PROCDEF I 4 PGMDEF I 3 PROCEDURE I 2 PROGRAM I 1 MODE I 0 STREAM) @ !Ag&Hhi Zd-kJ- jH hH8l`d`dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhYdH IBCDEFGhIjIA HI8Hg.`gBC Ik I(332Q SPP.DSTYPE 324Q \COURIER.TRACE 276Q \SETACCESS 56Q \GETSPP 22Q \GETSPP) (317Q BEGIN.BULK.DATA 313Q COURIERTRACEFLG 306Q \COURIER.ATTENTIONFN 171Q \STREAM.DEFAULT.MAXBUFFERS 155Q FILELINELENGTH 140Q \FILEOUTCHARFN 131Q \EOSERROR 122Q \NOIMAGEOPS 113Q \STREAM.NOT.OPEN 104Q \STREAM.NOT.OPEN 75Q \SPP.BULKDATA.DEVICE 70Q STREAMTYPE# 11Q INPUT) () \COURIER.ATTENTIONFN D1 (P 0 CON I 2 DSTYPE I 1 BYTE I 0 STREAM) d Ak,Bk'@ XH8b`jd` o` iRlj@Rlj@4@kIHgHk0(60Q PRIN1 45Q TAB) (127Q \COURIER.OUTPUT.ABORTED 55Q PROMPTWINDOW 42Q PROMPTWINDOW 33Q NSWIZARDFLG) ( 52Q "[Remote host aborted data transfer]") \COURIER.OUTPUT.ABORTED D1 (P 2 RESULT P 1 CONTINUATION P 0 FILENAME I 0 OUTSTREAM) Q0@Yh@g @XJgHl oJoJ H@ (115Q ERROR 106Q CONCAT 62Q \LISPERROR 34Q \BULK.DATA.CLOSE 13Q ERROR!) (52Q MediumFull 31Q RETURNERRORS) ( 77Q " -- " 70Q "Output aborted: ") \BULK.DATA.CLOSEA0003A0004A0005 D1 (I 0 CON F 0 RESETSTATE) @h8P @6i (15Q SPP.CLOSE) NIL () \BULK.DATA.CLOSEA0003A0004A0006 D1 (L (0 STREAM)) @g"gNIL (10Q \COURIER.EOF 3 \COURIER.EOF) () \BULK.DATA.CLOSEA0003A0004 D1 (NAME ERRORSET P 0 COURIERSTREAM F 1 CONTINUATION F 2 RESETVARSLST F 3 CON F 4 ABORTFLG F 5 STREAM F 6 RESETY) RgShhhRcS6TgHhhhRcUg"HQQQQTQ c i(113Q \COURIER.RESULTS) (54Q ERROR! 33Q \BULK.DATA.CLOSEA0003A0004A0006 2 \BULK.DATA.CLOSEA0003A0004A0005) () \BULK.DATA.CLOSEA0003 D1 (NAME ERRORSET P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) &S!Tog hgZ JIh(36Q ERROR! 30Q RESETRESTORE 16Q \BULK.DATA.CLOSEA0003A0004) (24Q ERROR 13Q INTERNAL) ( 10Q (\BULK.DATA.CLOSEA0003A0004)) \BULK.DATA.CLOSE D1 (P 2 ABORTFLG P 1 CONTINUATION P 0 CON I 1 ABORTFLG I 0 STREAM) ~@ @2Hh.H8h`gII @Rlj@Rlj@4@kKJ@k @ @4@kLJi@ Hh0@h@joi (172Q \BULK.DATA.CLOSEA0003 145Q \ABORT.BULK.DATA 120Q SPP.SENDEOM 112Q SPP.SENDATTENTION 41Q \COURIER.TRACE) (31Q END.BULK.DATA 25Q COURIERTRACEFLG) ( 166Q (\BULK.DATA.CLOSEA0003)) \ABORT.BULK.DATA D1 (P 0 EPKT I 0 STREAM) &@d@j @j@k h(42Q SPP.SENDATTENTION 21Q \SPP.PREPARE.INPUT) (27Q STREAM 7 STREAM) () COURIER.EXPEDITED.CALL D1 (P 12Q ARGTYPES P 11Q PROCDEF P 10Q PGMDEF P 7 NOERRORFLG P 6 ARGLIST P 5 #ARGS P 4 PROCEDURE P 3 PROGRAM P 2 SOCKET# P 1 ADDRESS P 0 ARGS) e@ABC K` oK _KLgO _d_ ]Oh__hoKL HMdlD_dggOiOlMla_gOgOioKL Mll2OdOO^IJKOLONOO a_"O O"h_ _Ok_O"&_ (275Q COURIER.EXECUTE.EXPEDITED.CALL 225Q ERROR 107Q ERROR 57Q LENGTH 45Q \GET.COURIER.DEFINITION 31Q ERROR) (204Q RETURNERRORS 174Q NOERROR 137Q BULK.DATA.SOURCE 132Q BULK.DATA.SINK 40Q PROCEDURES 16Q \COURIERPROGRAM) ( 217Q "Wrong number of arguments to Courier procedure" 101Q "Can't transfer bulk data with expedited call" 25Q "No such Courier program") COURIER.EXECUTE.EXPEDITED.CALLA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 3 RESULT P 2 STREAM P 1 XIP P 0 NSOC F 4 RESETVARSLST F 5 PROGRAM F 6 PGMDEF F 7 PROCDEF F 10Q NOERRORFLG F 11Q ADDRESS F 12Q PROCEDURE F 13Q ARGLIST F 14Q ARGTYPES F 15Q SOCKET# F 16Q RESETY) { 1gHhhhTcHWWl YUVWWW IHUVWWW [gK1WhWg Z#gJhhhTcJUVWWWWW ci(164Q COURIER.EXECUTE.CALL 120Q COURIER.OPEN 74Q \SEND.EXPEDITED.XIP 54Q \BUILD.EXPEDITED.XIP 37Q CREATE.PACKET.EXCHANGE.XIP 2 OPENNSOCKET) (126Q \SPP.RESETCLOSE 115Q COURIER 100Q USE.COURIER 10Q CLOSENSOCKET) () COURIER.EXECUTE.EXPEDITED.CALL D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 10Q NOERRORFLG I 7 ARGTYPES I 6 ARGLIST I 5 PROCDEF I 4 PROCEDURE I 3 PGMDEF I 2 PROGRAM I 1 SOCKET# I 0 ADDRESS F 3 LISPXHIST F 4 RESETVARSLST) 0 `gBDF S!Tog hgZ JI(53Q ERROR! 46Q RESETRESTORE 34Q COURIER.EXECUTE.EXPEDITED.CALLA0001 14Q \COURIER.TRACE) (42Q ERROR 31Q INTERNAL 6 CALL 2 COURIERTRACEFLG) ( 26Q (DUMMY.FOR.ERRORSET)) \BUILD.EXPEDITED.XIP D1 (P 0 STREAM I 4 ARGLIST I 3 PROCDEF I 2 PGMDEF I 1 PROGRAM I 0 XIP) X @dl0YI0@j2@j3@l0lB @B6@C7@Ddg XADC hHl4@(106Q \COURIER.EXPEDITED.ARGS 75Q \MAKE.EXPEDITED.STREAM 46Q \PUTFIXP 12Q COURIER.VERSION#) (115Q STREAM 72Q OUTPUT) () \SEND.EXPEDITED.XIP D1 (P 5 IXIP P 3 ID P 2 EVENT P 1 TIMER I 7 #TRIES I 6 NOERRORFLG I 5 PROCDEF I 4 PROCEDURE I 3 PGMDEF I 2 PROGRAM I 1 NSOC I 0 XIP) G`l jA @l-HH4k\HA@ IlIl `Ig uJIi A ] dlBMl-^NKjDM0;M11M2dldkdlihilM-lM gM hMg BCDEFi M LkرGg(331Q RELEASE.XIP 325Q \COURIER.RESULTS 313Q \MAKE.EXPEDITED.STREAM 277Q RELEASE.XIP 266Q RELEASE.XIP 210Q COURIER.VERSION# 177Q COURIER.VERSION# 131Q GETXIP 124Q AWAIT.EVENT 114Q TIMEREXPIRED? 100Q \CLOCK0 61Q SENDXIP 22Q NSOCKETEVENT 14Q \CLOCK0) (344Q USE.COURIER 310Q INPUT 272Q USE.COURIER 111Q MILLISECONDS 103Q \ETHERTIMEOUT 6 \MAXETHERTRIES) () \COURIER.EXPEDITED.ARGS D1 (P 3 TYPE P 2 VALUE I 3 ARGTYPES I 2 ARGLIST I 1 PROGRAM I 0 STREAM) %CB"IHi@JAK IH(32Q COURIER.WRITE) NIL () \MAKE.EXPEDITED.STREAM D1 (P 1 END P 0 STREAM I 2 OSTREAM I 1 ACCESS I 0 XIP) TB`H`HA H@lHAg@ln@ll$HdII AgHg"Hg H(24Q \SETACCESS) (116Q \COURIER.EXPEDITED.OVERFLOW 107Q \COURIER.EOF 101Q INPUT 40Q INPUT 15Q \BASEBYTESDEVICE 5 STREAMTYPE#) () \COURIER.EOF D1 (I 0 STREAM) o (6 ERROR) NIL ( 3 "Unexpected end of stream while reading Courier response") \COURIER.EXPEDITED.OVERFLOW D1 (I 0 STREAM) `` o` g (34Q RETFROM 25Q PRIN1 12Q TERPRI) (31Q \COURIER.EXPEDITED.ARGS 22Q PROMPTWINDOW 7 PROMPTWINDOW 2 NSWIZARDFLG) ( 17Q "[Expedited call did not fit in one packet]") COURIER.BROADCAST.CALLA0001A0002 D1 (L (0 RT) F 2 NEARBYNETS) )@HlRYddHH@hIhNIL NIL () COURIER.BROADCAST.CALLA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 12Q PAIR P 10Q NET P 6 NEARBYNETS P 5 RESULT P 4 ROUTINGTABLE P 3 EPKT P 2 SKT P 1 PROCDEF P 0 PGMDEF F 13Q PROGRAM F 14Q PROCEDURE F 15Q RESULTFN F 16Q MESSAGE F 17Q RESETVARSLST F 20Q NETHINT F 21Q ARGS F 22Q DESTSOCKET# F 23Q RESETY F 24Q \NS.ROUTING.TABLE)  W` oW aWWgH gZhhhWcJ`W$l [WHIW" oWW W d+ddJKWHWIWW ]W OMhhhW(g NddjjdhNN O>h_NJKWHWIW K_JKWHWIWW ]OiO__JKWHWIWW ]OiO_Mc&i(406Q \COURIER.BROADCAST.ON.NET 341Q \COURIER.BROADCAST.ON.NET 314Q \COURIER.BROADCAST.ON.NET 225Q \MAP.ROUTING.TABLE 165Q \COURIER.BROADCAST.ON.NET 126Q ERROR 111Q \BUILD.EXPEDITED.XIP 76Q CREATE.PACKET.EXCHANGE.XIP 45Q OPENNSOCKET 36Q \GET.COURIER.DEFINITION 20Q ERROR) (222Q COURIER.BROADCAST.CALLA0001A0002 67Q BROADCASTNSHOSTNUMBER 42Q CLOSENSOCKET 32Q PROCEDURES 4 \COURIERPROGRAM) ( 116Q "Could not build broadcast for servers packet" 13Q "No such Courier program") COURIER.BROADCAST.CALL D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 6 MESSAGE I 5 NETHINT I 4 RESULTFN I 3 ARGS I 2 PROCEDURE I 1 PROGRAM I 0 DESTSOCKET# F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q COURIER.BROADCAST.CALLA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \COURIER.BROADCAST.ON.NET D1 (P 0 RESULT I 10Q MESSAGE I 7 RESULTFN I 6 PROCDEF I 5 PROCEDURE I 4 PGMDEF I 3 PROGRAM I 2 XIP I 1 NSOC I 0 NET) s Bll@ GAjd` o` G` o` o@` o` BACDEFil HghGHkGH(132Q \SEND.EXPEDITED.XIP 114Q PRIN1 101Q PRINTNUM 65Q PRIN1 52Q PRIN1 41Q PRIN1 26Q TAB 12Q \PUTFIXP) (141Q USE.COURIER 111Q PROMPTWINDOW 76Q PROMPTWINDOW 62Q PROMPTWINDOW 47Q PROMPTWINDOW 36Q PROMPTWINDOW 23Q PROMPTWINDOW) ( 106Q "]" 72Q (FIX 0 10Q) 57Q " on net " 33Q "[Looking for ") COURIER.READ D1 (P 16Q DEF P 15Q WHICH P 13Q NAMEANDTYPE P 6 BASETYPE P 0 X I 2 TYPE I 1 PROGRAM I 0 STREAM) &0Bdldg@ @ jhgBdg@ @ g@ @ dnnkBgBdg@ @ @ @ g@ Bdg@ @ @ @ ogXAB XAB bW@ABlI[BlQBdg&B@ @ KLLMjMK[dg;BBB k_M&@AN _OOh__OkذO&_Odg@ABB dg*0Bd @AO LKh]K&Mdg/0B#d O@AO hLKh]K&MgIB@ @ O Ogh_OOjOO@AO hO_BdlBbbgXAB @ABlJ(1030Q \COURIER.UNKNOWN.TYPE 754Q COURIER.READ 624Q COURIER.READ 543Q COURIER.READ 506Q COURIER.READ.SEQUENCE 421Q COURIER.READ 244Q \COURIER.UNKNOWN.TYPE 234Q \GET.COURIER.TYPE 163Q COURIER.READ.STRING) (1017Q COURIERDEF 705Q ??? 655Q CHOICE 572Q NAMEDRECORD 513Q RECORD 466Q SEQUENCE 366Q ARRAY 313Q ENUMERATION 223Q COURIERDEF 171Q TIME 155Q STRING 131Q LONGINTEGER 122Q LONGCARDINAL 65Q INTEGER 50Q UNSPECIFIED 41Q CARDINAL 20Q BOOLEAN) ( 216Q -20000000000Q) \COURIER.UNKNOWN.TYPE D1 (I 1 TYPE I 0 PROGRAM) o@A A(12Q ERROR) NIL ( 3 "Unknown Courier Type") COURIER.READ.SEQUENCE D1 (I 2 BASETYPE I 1 PROGRAM I 0 STREAM) +@ @ Ak\H@AB J KhZLkذK&I(24Q COURIER.READ) NIL () COURIER.READ.STRING D1 (P 7 $$FN P 6 NBYTES P 5 OFF P 4 BASE P 3 STRM P 2 STRING P 1 LENGTH P 0 STREAM I 0 STREAM) G@H H I Z@JJIK6_KLMNlOIkj@ J(21Q ALLOCSTRING) (54Q FDEV 47Q STREAM 35Q STRINGP 27Q STRINGP) () COURIER.WRITE D1 (P 42Q WHICH P 41Q NAMEANDVALUE P 40Q NAMEANDTYPE P 35Q VALUE P 34Q NAMEANDTYPE P 31Q BASETYPE P 30Q SIZE P 27Q X P 26Q KEY P 0 X I 3 TYPE I 2 PROGRAM I 1 ITEM I 0 STREAM) #`Cdl8dg@AkjYJ IJl gCdg@A @Al g@An[L KLl CgCdg9@A ]N MNl @An__O OOl Sg@A FCdgM@Ao__O __O OOl OOn__O OOl gXBC X@ABH _@ABClOClCdg\@AC CA O*)h Ag _"_ O" O O"l n_.O,O. O.iO*_*dg6CCO0A jAC Ad@O.BO2 dg@ABCC dg:AC"O6_8O4_:@O:BO8 O6_6O4_4dgKAC"!O>_@O<_BO@OBAC @OBBO@ O>_>O<_ " 62Q "[" 37Q ".") (PRETTYCOMPRINT COURIERCOMS) (RPAQQ COURIERCOMS ((COMS (* Courier Remote Procedure Call Protocol.) (DECLARE: DONTCOPY (CONSTANTS ( COURIER.VERSION# 3)) (CONSTANTS (\COURIERMSG.CALL 0) (\COURIERMSG.REJECT 1) (\COURIERMSG.RETURN 2) ( \COURIERMSG.ABORT 3)) (CONSTANTS (\NS.WKS.Courier 5)) (MACROS \GET.COURIERPROGRAM \COURIER.QUALIFIED.NAMEP NULLORLISTP) (RECORDS COURIERPGM COURIERFN COURIERERR \BULK.DATA.CONTINUATION COURIERREPSTREAM BULKDATAGENERATOR) (GLOBALVARS DFNFLG LCASEFLG \COURIER.REP.DEVICE \BASEBYTESDEVICE) (COMS (CONSTANTS (\EXPEDITED.LENGTH (IPLUS \XIPOVLEN 6 4)) \EXTYPE.EXPEDITED.COURIER) (RECORDS EXPEDITEDXIP))) (* Facilities for manipulating Courier definitions.) (INITVARS (\COURIERPROGRAM ( HARRAY 20)) \COURIER.REP.DEVICE) (FNS COURIER.VERSION# COURIERPROGRAM \COURIER.PUTDEF \COURIER.CHECKDEF \COURIER.CHECK.PROCEDURES \COURIER.CHECK.ERRORS \COURIER.DELDEF \COURIER.GETDEF \GET.COURIERPROGRAM \DUMP.COURIERPROGRAMS \GET.COURIER.TYPE \GET.COURIER.DEFINITION) (GLOBALVARS \COURIERPROGRAM) (FILEPKGCOMS COURIERPROGRAMS) (COMS (MACROS COURIER.FETCH COURIER.CREATE) (PROP INFO COURIER.FETCH COURIER.CREATE) (FNS \COURIER.RECORDTRAN)) (* Functions for calling Courier procedures.) (FNS COURIER.OPEN \COURIER.WHENCLOSED COURIER.CALL COURIER.EXECUTE.CALL \COURIER.RESULTS \COURIER.HANDLE.BULKDATA \COURIER.HANDLE.ERROR \BULK.DATA.STREAM \COURIER.ATTENTIONFN \COURIER.OUTPUT.ABORTED \BULK.DATA.CLOSE \ABORT.BULK.DATA) (FNS COURIER.EXPEDITED.CALL COURIER.EXECUTE.EXPEDITED.CALL \BUILD.EXPEDITED.XIP \SEND.EXPEDITED.XIP \COURIER.EXPEDITED.ARGS \MAKE.EXPEDITED.STREAM \COURIER.EOF \COURIER.EXPEDITED.OVERFLOW) (FNS COURIER.BROADCAST.CALL \COURIER.BROADCAST.ON.NET) (FNS COURIER.READ \COURIER.UNKNOWN.TYPE COURIER.READ.SEQUENCE COURIER.READ.STRING COURIER.WRITE COURIER.WRITE.SEQUENCE COURIER.WRITE.STRING \COURIER.TYPE.ERROR) ( FNS COURIER.READ.BULKDATA BULKDATA.GENERATOR BULKDATA.GENERATE.NEXT COURIER.WRITE.BULKDATA) (FNS COURIER.READ.REP COURIER.WRITE.REP COURIER.WRITE.SEQUENCE.UNSPECIFIED \CWSU.DEFAULT COURIER.REP.LENGTH \MAKE.COURIER.REP.STREAM \COURIER.REP.BIN \COURIER.REP.BOUT) (COMS (FNS COURIER.READ.NSADDRESS COURIER.WRITE.NSADDRESS) (PROP COURIERDEF NSADDRESS))) (COMS (* Debugging) (INITVARS (COURIERTRACEFILE ) (COURIERTRACEFLG) (COURIERPRINTLEVEL (QUOTE (2 . 4))) (NSWIZARDFLG)) (GLOBALVARS COURIERTRACEFLG COURIERTRACEFILE COURIERPRINTLEVEL NSWIZARDFLG) (FNS COURIERTRACE \COURIER.TRACE)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA \DUMP.COURIERPROGRAMS COURIERPROGRAM) (NLAML) (LAMA COURIER.EXPEDITED.CALL COURIER.CALL))))) (RPAQ? \COURIERPROGRAM (HARRAY 20)) (RPAQ? \COURIER.REP.DEVICE NIL) (PUTDEF (QUOTE COURIERPROGRAMS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (E (\DUMP.COURIERPROGRAMS . X))) CONTENTS NILL) (TYPE DESCRIPTION "Courier programs" GETDEF \COURIER.GETDEF PUTDEF \COURIER.PUTDEF DELDEF \COURIER.DELDEF)))) (PUTPROPS COURIER.FETCH MACRO (ARGS (\COURIER.RECORDTRAN ARGS (QUOTE FETCH)))) (PUTPROPS COURIER.CREATE MACRO (ARGS (\COURIER.RECORDTRAN ARGS (QUOTE CREATE)))) (PUTPROPS COURIER.FETCH INFO NOEVAL) (PUTPROPS COURIER.CREATE INFO NOEVAL) (PUTPROPS NSADDRESS COURIERDEF (COURIER.READ.NSADDRESS COURIER.WRITE.NSADDRESS 6)) (RPAQ? COURIERTRACEFILE) (RPAQ? COURIERTRACEFLG) (RPAQ? COURIERPRINTLEVEL (QUOTE (2 . 4))) (RPAQ? NSWIZARDFLG) (PUTPROPS COURIER COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL