(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 8-Sep-94 20:07:24" ("compiled on " {DSK}lispusers>COMMWINDOW.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED " 2-Apr-87 17:06:05" {ERIS}LYRIC>COMMWINDOW.;3 49786 changes to%: (VARS REMOTE-CURSOR COMMWINDOWCOMS) (COURIERPROGRAMS COMMWINDOW) (FNS CLOSE-FRAME START-GET-BITS SEND-BITS FRAME-EVENT MAKE-FRAME) (FUNCTIONS \PILOTBITBLT) previous date%: " 2-Apr-87 16:54:24" {ERIS}LYRIC>COMMWINDOW.;2) CLOSE-FRAME :D8 (L (0 FRAME)) @d h(8 CLOSEW) NIL () GET-BITSA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 19 WINDOW F 20 RECEIVE-SOCKET F 21 DEFAULTCURSOR F 22 SI::*RESETFORMS*) fgW(hhdW,c,`W&g jdld @W(n _ O 2dn mdn)O 1O 5_O 6_O 7_"O 8_$OCOlO9OOO"l,OlO"OOO$lLjdIOO h_O"JO$KJO"JO"ZKO$KO$[ HO l9O"O$NjdM NjdW&OOO"O$ .nW& ho` O 2` O 3_O 4_O l@`ljjkjW& _jOOW&g W& _jOOW&g lW(O l- O 0O l"l h _j On m OO OO O2n m8O3O/O4O&OgW(O i_b OXlW(O l- O 0O l"l h _j On n OgW(O h_OW*_OW*_O(OOOOLjdIOO h_OOjOGOW&g 4jO,OW&g O_O_IOOLjdld W*jdIOOhdgg i_(860 BKBITBLT 825 BKBITBLT 793 GETWINDOWPROP 766 GETWINDOWPROP 733 BKBITBLT 667 SENDXIP 642 XIPAPPEND.WORD 631 XIPAPPEND.WORD 623 \FILLINXIP 616 \GETBASEFIXP 600 \LOADNSHOSTNUMBER 580 ASSERT-FAIL 573 BLOCK 563 SENDXIP 510 XIPAPPEND.WORD 500 XIPAPPEND.WORD 490 XIPAPPEND.WORD 479 XIPAPPEND.WORD 471 \FILLINXIP 464 \GETBASEFIXP 448 \LOADNSHOSTNUMBER 429 GETWINDOWPROP 404 LASTMOUSEY 392 GETWINDOWPROP 367 LASTMOUSEX 336 RELEASE.XIP 314 PRIN1 299 PRIN1 282 CLOSEW 268 BKBITBLT 248 PACKETTOBM 227 BITMAPCREATE 186 BKBITBLT 62 GETXIP 46 BITMAPCREATE 36 GETSTREAM) (854 PAINT 849 INPUT 833 CURSOR 788 HEIGHT 761 WIDTH 696 CURSOR 681 CURSOR 655 FREE 650 ETHERPACKET 551 FREE 546 ETHERPACKET 424 HEIGHT 387 WIDTH 344 \LASTKEYSTATE 309 PROMPTWINDOW 294 PROMPTWINDOW 31 OUTPUT 23 |PILOTBBTTYPE#| 4 CLOSENSOCKET) ( 289 "Odd packet") GET-BITS :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 WINDOW I 0 RECEIVE-SOCKET F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 GET-BITSA0001) (8 SI::RESETUNWIND) () START-GET-BITS :D8 (L (4 REMOTE-USER 3 REGION 2 DUMMY-PROGRAM 1 DUMMY-PROGRAM 0 DUMMY-STREAM)) vgHgClClCl Cil oDo l hh gH hh(109 USERNAME 104 NSOCKETNUMBER 93 ADD.PROCESS 81 CREATEW 74 CONCAT 58 CREATEREGION 53 HEIGHTIFWINDOW 40 WIDTHIFWINDOW 4 OPENNSOCKET) (98 RETURN 18 QUOTE 12 GET-BITS) ( 69 "'s display" 63 "Viewing region of ") SEND-BITSA0001A0002 :D8 (L (4 SPREAD 3 THIS-HEIGHT 2 THIS-WIDTH 1 Y 0 X) F 0 SENDSOCKET F 1 L F 2 B F 3 PACKET F 4 PARTNERHOST F 5 PARTNERNET F 6 PARTNERSOCKET) PQR @AQRBCDPTUVS (25 SEND-TILE 7 LISTEN-TO-VIEWER) NIL () SEND-BITSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 15 L P 14 B P 12 PARTNERSOCKET P 11 PACKET P 10 PARTNERNET P 9 PARTNERHOST P 0 SENDSOCKET I 0 SI::*CLEANUP-FORMS* F 16 FRAME F 17 SI::*RESETFORMS* F 18 PARTNER F 19 MAX-PACKET-BITS) <W # c gW hhdW"c"W$W$W$ Yl  Ij  I  JggW g   K_K`gHhhdW"c"J H gHOOOhhdW"c"W oLo W g !O_O__O_OW d W&NMOOg (311 MAPTILES 287 TOTOPW 247 GETWINDOWUSERPROP 234 SET-FRAME-TITLE 229 CONCAT 184 DISCARDXIPS 178 CLOSEF 134 COURIER.CALL 128 USERNAME 123 GETWINDOWUSERPROP 95 COURIER.OPEN 86 \GETBASEFIXP 71 \LOADNSHOSTNUMBER 62 LOOKUP.NS.SERVER 41 OPENNSOCKET 13 MAKE-FRAME 8 GETREGION) (305 SEND-BITSA0001A0002 242 FRAME-REGION 189 SHUT-DOWN-VIEWER 159 CLOSENSOCKET 152 |PILOTBBTTYPE#| 118 FRAME-REGION 110 START-GET-BITS 105 COMMWINDOW 80 NSADDRESS 51 NSADDRESS 21 CLOSE-FRAME) ( 224 "'s display" 218 "Displaying region on ") SEND-BITS :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 FRAME I 0 PARTNER F 3 CURSORICON F 4 REMOTE-CURSOR F 5 LISPXHIST) 0STdoi cU!g $(41 SI::RESETUNWIND 36 \MVLIST 31 SEND-BITSA0001 14 ICONW) (26 SI::RESETUNWIND) ( 8 (0 . 0)) SEND-TILE :D8 (L (11 PACKET 10 PARTNERSOCKET 9 PARTNERNET 8 PARTNERHOST 7 SENDSOCKET 6 SPREAD 5 THIS-HEIGHT 4 THIS-WIDTH 3 FRAME-BOTTOM 2 FRAME-LEFT 1 Y 0 X))  lGGGG bdgGFjb Gn) Gj Gj G@ GA GD GE hB@CADEGl9F Gl"dlDElG5@IG6AAG7D9G8E1`G@AGGG  G@AGGG  Gl.#G`Bn3G`Cn4GG (285 BLOCK 280 SENDXIP 232 ASSERT-FAIL 226 PUT-CACHED-PACKET 208 PACKET-EQUAL 203 GET-CACHED-PACKET 127 BMTOPACKET 107 SCREENBITMAP 101 XIPAPPEND.WORD 93 XIPAPPEND.WORD 85 XIPAPPEND.WORD 77 XIPAPPEND.WORD 69 XIPAPPEND.WORD 61 XIPAPPEND.WORD 53 XIPAPPEND.WORD 43 XIPAPPEND.WORD 15 \FILLINXIP) (263 LASTMOUSEY 248 LASTMOUSEX 185 COMM.SEND.UNCHANGED.TILES 28 FREE 23 ETHERPACKET) () LISTEN-TO-VIEWER :D8 (L (2 FRAME-BOTTOM 1 FRAME-LEFT 0 SENDSOCKET) F 1 CURSORICON) J@j Xd2dn mQH3AH4B Q n nQ Q (69 CLOSEW 61 OPENWP 46 OPENW 39 MOVEW 9 GETXIP) NIL () MAPTILES :D8 (L (5 FN 4 B 3 L 2 H 1 W 0 MAXBITS) F 31 Y F 32 X F 33 CURSORICON) r@ HlۻHlۼk``_m__`_dgHY^dglHZNg@dAAZ=Odg@dBBY(g@dAAl]gOo J@IۺI@J۹W>BIjIMW>jIW@jJkAW@h`dSdg`dN`O/``_NKCOLD_"_ jO O AkjO"O"BkE_O O"KdAO __OdOOLdBO"__OdOOlOgWB _2WB O2dOOyO2_O2_OKCOLD_0_.jO.TO.AkLjO0FO0Bk>E_,O.O0KdAO._&_$O&dO$O$LdBO0_*_(O*dO(O(lO,hE_jW>jJAW@_6_4O6dO4O4IBW>_:_8O:dO8O8lO<  (623 INCR 617 INCR 401 OPENWP 389 \INSUREWINDOW 156 ECASE-FAIL 5 CL:ISQRT) (375 Viewer 252 LASTMOUSEY 246 LASTMOUSEX 234 LASTMOUSEY 223 LASTMOUSEX 212 Sender 201 COMM.UPDATE.MOUSE.POSITION 144 COMM.DEFAULT.TRANSMIT.TYPE 123 H3 105 VERTICAL 85 HORIZONTAL 70 RECTANGLE 57 SQUARE 49 COMM.DEFAULT.TRANSMIT.TYPE 34 LASTMOUSEY 28 LASTMOUSEX) ( 151 (SQUARE RECTANGLE HORIZONTAL VERTICAL H3)) SHUT-DOWN-VIEWER :D8 (L (3 PARTNERSOCKET 2 PARTNERNET 1 PARTNERHOST 0 SENDSOCKET)) E kXlhl@ACB YgIj In @I Hk԰(61 SENDXIP 53 XIPAPPEND.WORD 43 XIPAPPEND.WORD 22 \FILLINXIP) (33 FREE 28 ETHERPACKET) () CHANGE-SENDER-UPDATE-MODE :D8 (L (0 NEW-MODE)) @NIL (5 COMM.DEFAULT.TRANSMIT.TYPE) () PACKET-EQUAL :D8 (L (1 PACKET2 0 PACKET1)) r@jAb@#A#Y@#lHj@l9Al9KJLKMKhKk[i%HkYjII @d#kA@#k(94 \FZEROP) (13 ETHERPACKET 5 ETHERPACKET) () GET-CACHED-PACKET :D8 (L (4 PARTNERSOCKET 3 PARTNERNET 2 PARTNERHOST 1 Y 0 X)) hNIL NIL () PUT-CACHED-PACKET :D8 (L (5 PARTNERSOCKET 4 PARTNERNET 3 PARTNERHOST 2 Y 1 X 0 PACKET)) iNIL NIL () BMTOPACKET :D8 (L (7 SPREAD 6 PACKETLOC 5 HEIGHT 4 WIDTH 3 SOURCEBOTTOM 2 SOURCELEFT 1 SOURCEBITMAP 0 BBT)) @A-A&jBBA DkjCCA EkDjEj@`AAAEC"HdDdE dj dDndjAlGkֻdKndBdj dj dj dj dj djdjdjdjZdj 0Jk JIJIJFJFJj QJj @jvh (314 ASSERT-FAIL 55 BITMAPHEIGHT 32 BITMAPWIDTH) (287 PILOTBBT 276 PILOTBBT 265 PILOTBBT 254 PILOTBBT 165 BITMAP 131 PILOTBBT 113 BITMAP 105 BITMAP 97 BITMAP 90 |PILOTBBTTYPE#| 5 BITMAP) () PACKETTOBM :D8 (L (7 SPREAD 6 DESTBOTTOM 5 DESTLEFT 4 DESTBITMAP 3 HEIGHT 2 WIDTH 1 PACKETLOC 0 BBT)) GD4D-jE%ED BmjF FD CGkmBjCj@`DDDCF"HdBdC dj DlGkֻdKndEdBndjdj dj dj dj dj djdjdjdjZdj 0Jk JAJAJIJIJj QJj @jvh (321 ASSERT-FAIL 56 BITMAPHEIGHT 32 BITMAPWIDTH) (294 PILOTBBT 283 PILOTBBT 272 PILOTBBT 261 PILOTBBT 158 BITMAP 138 PILOTBBT 120 BITMAP 112 BITMAP 104 BITMAP 97 |PILOTBBTTYPE#| 5 BITMAP) () FRAME-EVENT :D8 (L (0 WINDOW)) ql`l jjkj@g @g g +H@g YI l dIhd  @ (110 MOVE-FRAME 103 SHAPE-FRAME 98 GETREGION 85 \SETCURSORPOSITION 75 GETWINDOWUSERPROP 61 SHIFTDOWNP 48 GETWINDOWUSERPROP 36 CLOSE-FRAME 31 GETWINDOWUSERPROP) (70 FRAME-REGION 56 SHIFT 43 FRAME 26 FRAME 6 \LASTKEYSTATE) () MAKE-FRAME :D8 (L (1 VIEWER-NAME 0 REGION) F 2 *FRAME-SHADE*)  @l@ll@llhhj @@l@llhhj @@@l@lhhj @@@@lij hoj hXdbdRI I Ig@ Igo IgH Igg Igg H(242 PUTWINDOWPROP 225 PUTWINDOWPROP 208 PUTWINDOWPROP 195 PUTWINDOWPROP 178 PUTWINDOWPROP 165 DSPRESET 158 DSPTEXTURE 139 CREATEW 123 HEIGHTIFWINDOW 99 CREATEW 67 CREATEW 38 CREATEW) (237 FRAME-EVENT 232 BUTTONEVENTFN 220 FRAME-EVENT 215 RIGHTBUTTONFN 202 FRAME 185 MINSIZE 172 FRAME-REGION) ( 190 (8 . 8) 133 "Viewed region") MOVE-FRAME :D8 (L (0 W)) 3@g @g HHHH (48 SHAPE-FRAME 43 GETBOXREGION 24 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (19 FRAME 5 FRAME-REGION) () SHAPE-FRAME :D8 (L (1 REGION 0 FRAME)) @AlAllAllh @AAlAllh @AAAlAlh @AAAAl@ (@ , h @dH HgA h(190 PUTWINDOWPROP 177 CLEARW 163 SHAPEW 153 HEIGHTIFWINDOW 146 \INSUREWINDOW 134 \INSUREWINDOW 101 SHAPEW 66 SHAPEW 35 SHAPEW) (184 FRAME-REGION) () SET-FRAME-TITLE :D8 (L (1 TITLE 0 FRAME)) @ gA (17 PUTWINDOWPROP 5 LAST) (11 TITLE) () MAKE-MENUS-WINDOW :D8 (L (2 POSITION 1 TITLE 0 MENUS)) @d l@jHSI!ld@!KYLԹB0H IA hddo A @lK?JB IlJ ԹHX LMLMK[]JLIM l LM lԼK[(197 BITMAPWIDTH 192 CHECK/MENU/IMAGE 184 ADDMENU 179 CREATEPOSITION 170 BITMAPHEIGHT 165 CHECK/MENU/IMAGE 140 BITMAPHEIGHT 135 CHECK/MENU/IMAGE 121 BITMAPWIDTH 116 CHECK/MENU/IMAGE 103 CREATEPOSITION 82 CREATEW 76 GETBOXREGION 62 HEIGHTIFWINDOW 55 WIDTHIFWINDOW 8 UPDATE/MENU/IMAGE) NIL ( 70 "Position the Mode Menu") MODE-MENUA0003 :D8 (L (2 BUTTON 1 MENU 0 ITEM)) `A @A @ (23 CHANGE-SENDER-UPDATE-MODE 17 MENUSELECT 10 MENUDESELECT) (4 COMM.DEFAULT.TRANSMIT.TYPE) () MODE-MENUA0013 :D8 (L (2 BUTTON 1 MENU 0 ITEM)) `A @A @(17 MENUSELECT 10 MENUDESELECT) (23 COMM.UPDATE.MOUSE.POSITION 4 COMM.UPDATE.MOUSE.POSITION) () MODE-MENUA0023 :D8 (L (2 BUTTON 1 MENU 0 ITEM)) `A @A @(17 MENUSELECT 10 MENUDESELECT) (23 COMM.SEND.UNCHANGED.TILES 4 COMM.SEND.UNCHANGED.TILES) () MODE-MENUA0033 :D8 (L (2 BUTTON 1 MENU 0 ITEM)) `A @A @(17 MENUSELECT 10 MENUDESELECT) (23 \ETHERLIGHTNING 4 \ETHERLIGHTNING) () MODE-MENU :D8 (F 4 BOLDFONT F 5 COMM-MODES) `di dT$dgdodUdg dgjdndhHdI `di dT$dgdododg dgjdndhHdI `di dT$dgdododg dgjdndhHdI `di dT$dgdododldg dgjdndhHdI HIJKho `H `I `J `K (395 MENUSELECT 384 MENUSELECT 373 MENUSELECT 362 MENUSELECT 351 MAKE-MENUS-WINDOW) (389 \ETHERLIGHTNING 378 COMM.SEND.UNCHANGED.TILES 367 COMM.UPDATE.MOUSE.POSITION 356 COMM.DEFAULT.TRANSMIT.TYPE 305 DEFAULTMENUHELDFN 296 CLRPROMPT 263 MODE-MENUA0033 246 |MENUTYPE#| 217 DEFAULTMENUHELDFN 208 CLRPROMPT 181 MODE-MENUA0023 164 |MENUTYPE#| 135 DEFAULTMENUHELDFN 126 CLRPROMPT 99 MODE-MENUA0013 82 |MENUTYPE#| 53 DEFAULTMENUHELDFN 44 CLRPROMPT 21 MODE-MENUA0003 4 |MENUTYPE#|) ( 346 "Send-Bits mode menu" 281 (NIL 3 6 1 4 7 2 5 8) 272 "Ether Lightning" 199 (T NIL) 190 "Send unchanged tiles?" 117 (Sender Viewer NIL) 108 "Update near cursor?" 30 "Update method") FASTBITBLT :D8 (L (8 DESTBOTTOM 7 DESTLEFT 6 DESTBITMAP 5 HEIGHT 4 WIDTH 3 SOURCEBOTTOM 2 SOURCELEFT 1 SOURCEBITMAP 0 BBT))  AAFFjBwBA DkgjC`CA EkPjGHGF Dk7jG/GF EkDjEj @`AAAECFFFEG3HdDdE dj FlּdLndGAlֽdMndBdj dj dj dj dj djdjdjdj[dj 0Kk KIKIKJKJKj QKj @jvh X(422 ASSERT-FAIL 124 BITMAPHEIGHT 99 BITMAPWIDTH 74 BITMAPHEIGHT 51 BITMAPWIDTH) (395 PILOTBBT 384 PILOTBBT 373 PILOTBBT 362 PILOTBBT 278 BITMAP 251 BITMAP 231 PILOTBBT 212 BITMAP 204 BITMAP 196 BITMAP 182 BITMAP 174 BITMAP 166 BITMAP 159 |PILOTBBTTYPE#| 24 BITMAP 5 BITMAP) () (PRETTYCOMPRINT COMMWINDOWCOMS) (RPAQQ COMMWINDOWCOMS ((* ;;; "Viewer end") (FNS CLOSE-FRAME GET-BITS START-GET-BITS) (FILES COURIERSERVE) (* ;;; "Sender end") (FNS SEND-BITS SEND-TILE LISTEN-TO-VIEWER MAPTILES SHUT-DOWN-VIEWER CHANGE-SENDER-UPDATE-MODE) (FUNCTIONS INCR \PILOTBITBLT) (* ;; "Controling update schemes") (INITVARS (COMM.DEFAULT.TRANSMIT.TYPE (QUOTE SQUARE)) (COMM.SEND.UNCHANGED.TILES T) (COMM.UPDATE.MOUSE.POSITION (QUOTE Sender))) (GLOBALVARS COMM.DEFAULT.TRANSMIT.TYPE COMM.UPDATE.MOUSE.POSITION COMM.SEND.UNCHANGED.TILES) (* ;;; "Pruning out unchanged screen tiles") (FNS PACKET-EQUAL GET-CACHED-PACKET PUT-CACHED-PACKET) (* ;;; "Low level packet exchange code") (CONSTANTS COMM.BAND.PACKET.TYPE COMM.CURSOR.PACKET.TYPE COMM.CURSOR.CLOSE.PACKET.TYPE COMM.SHUT.DOWN.PACKET.TYPE ) (VARIABLES MAX-PACKET-BITS) (RECORDS COMM.XFER.PACKET) (* ;;; "Packing and unpacking bitmaps into etherpackets") (FNS BMTOPACKET PACKETTOBM) (* ;;; "Displaying the viewing machine's cursor") (VARS REMOTE-CURSOR) (INITVARS (CURSORICON NIL)) (* ;;; "Manipulating the frame that outlines the region being viewed") (INITVARS (*FRAME-SHADE* GRAYSHADE)) ( FNS FRAME-EVENT MAKE-FRAME MOVE-FRAME SHAPE-FRAME SET-FRAME-TITLE) (* ;;; "Changing the system parameters") (FNS MAKE-MENUS-WINDOW MODE-MENU) (VARS COMM-MODES) (* ;;; "Initialization") (P (COURIER.START.SERVER)) (* ;;; "Unused stuff, as far as I can tell") (FNS FASTBITBLT) (* ;;; "System file dependencies") (DECLARE%: DONTCOPY DOEVAL@COMPILE (FILES (LOADCOMP) LLDISPLAY LLETHER LLNS)) (COURIERPROGRAMS COMMWINDOW))) (FILESLOAD COURIERSERVE) (DEFMACRO INCR (VAR START HEIGHT REPEATS UNTIL &REST FORMS) (BQUOTE (CL:DO ((REPEAT-COUNT 0 (+ REPEAT-COUNT 1))) ((>= REPEAT-COUNT (\, REPEATS))) (CL:DO (((\, VAR) (+ (\, START) (CL:* REPEAT-COUNT (\, HEIGHT))) (+ (\, VAR) (CL:* (\, REPEATS) (\, HEIGHT))))) ((\, UNTIL)) (\,@ FORMS))))) (DEFMACRO \PILOTBITBLT (XCL-USER::TABLE &OPTIONAL (XCL-USER::N 0)) (CL:ASSERT (EQL XCL-USER::N 0)) ( BQUOTE ((OPCODES PILOTBITBLT) (\, XCL-USER::TABLE) 0))) (RPAQ? COMM.DEFAULT.TRANSMIT.TYPE (QUOTE SQUARE)) (RPAQ? COMM.SEND.UNCHANGED.TILES T) (RPAQ? COMM.UPDATE.MOUSE.POSITION (QUOTE Sender)) (RPAQQ COMM.BAND.PACKET.TYPE 1321) (RPAQQ COMM.CURSOR.PACKET.TYPE 2925) (RPAQQ COMM.CURSOR.CLOSE.PACKET.TYPE 2926) (RPAQQ COMM.SHUT.DOWN.PACKET.TYPE 4246) (CONSTANTS COMM.BAND.PACKET.TYPE COMM.CURSOR.PACKET.TYPE COMM.CURSOR.CLOSE.PACKET.TYPE COMM.SHUT.DOWN.PACKET.TYPE) (CL:DEFCONSTANT MAX-PACKET-BITS (CL:* 400 8)) (ACCESSFNS COMM.XFER.PACKET ((COMMPACKET (fetch (XIP XIPCONTENTS) of DATUM))) (BLOCKRECORD COMMPACKET ((SPREAD WORD) (PACKET-TYPE WORD) (CURSORX WORD) (CURSORY WORD) (DATAX WORD) (DATAY WORD) (THISWIDTH WORD) (THISHEIGHT WORD) (DATALOC 64 WORD))) (ACCESSFNS COMM.XFER.PACKET ((BITS (LOCF (FETCH ( COMM.XFER.PACKET DATALOC) OF DATUM)))))) (RPAQQ REMOTE-CURSOR #*(16 16)@C@@@C@@@F@@@F@@@LGN@LDAIHDAMHDAO@DAONGNOLDDOHDDO@DBN@DBL@DAH@DA) (RPAQ? CURSORICON NIL) (RPAQ? *FRAME-SHADE* GRAYSHADE) (RPAQQ COMM-MODES (SQUARE RECTANGLE HORIZONTAL VERTICAL H3)) (COURIER.START.SERVER) (COURIERPROGRAM COMMWINDOW (1337 1) TYPES ((REGION (RECORD (LEFT INTEGER) (BOTTOM INTEGER) (WIDTH INTEGER) (HEIGHT INTEGER))) (USERNAME STRING) (RESPONSE (RECORD (SOCKET LONGINTEGER) (CORRESPONDENT USERNAME)))) PROCEDURES ((START-GET-BITS 1 (REGION USERNAME) RETURNS (RESPONSE) REPORTS (REMOTEERROR) IMPLEMENTEDBY START-GET-BITS)) ERRORS ((ERROR 1 (STRING)) (USE.COURIER 2 NIL))) (PUTPROPS COMMWINDOW COPYRIGHT ("Xerox Corporation" 1986 1900 1987)) NIL