(FILECREATED "18-Sep-85 16:45:39" ("compiled on " {DSK}SOURCES>FINGER.;2) "16-Sep-85 14:48:01" recompiled changes: FINGER.MENU.SELECTED FINGER.SETUP.WINDOW FINGER.SETUP.MENU in "INTERLISP-D 16-Sep-85 ..." dated "16-Sep-85 17:06:41") (FILECREATED "18-Sep-85 16:45:18" {DSK}SOURCES>FINGER.;2 18294 changes to: (FNS FINGER.MENU.SELECTED FINGER.SETUP.WINDOW FINGER.SETUP.MENU) previous date: "17-Aug-85 10:39:44" {DSK}SOURCES>FINGER.;1) END.FINGER D1 (F 0 FINGER.WINDOW F 1 FINGER.SERVER.SOCKET F 2 FINGER.ICON) Qi P R gcg (32Q DEL.PROCESS 27Q FIND.PROCESS 14Q CLOSEW 10Q CLOSEW 4 CLOSENSOCKET) (24Q Finger% Server 17Q NOBIND) () FINGER D1 (P 3 P P 1 WHOM P 0 USERS I 3 ICON? I 2 HOPS I 1 HOST I 0 WHO F 4 FINGER.WINDOW F 5 FINGER.ICON F 6 FINGER.NET.HOPS F 7 FINGER.CROWD) ûBµV @µWg ¤C ¿CšU £U hT oT ¿lhT¿oT ¿lhT¿oT ¿T ¿T Tgoll I²MA²(HJµ°q[I ¦KA •KT ¿JZ°áI²!HJµ°H[I •KT ¿JZ°èA² HJµ°&[A •KT ¿JZ°éH‹dKT µóh(362Q FORMAT.RESPONSE 340Q FORMAT.RESPONSE 332Q FINGER.CONTAINS? 277Q FORMAT.RESPONSE 271Q FINGER.CONTAINS? 235Q FORMAT.RESPONSE 227Q FINGER.CONTAINS? 220Q FINGER.CONTAINS? 167Q PUTWINDOWPROP 164Q CONCAT 161Q SUBSTRING 152Q DATE 137Q TERPRI 132Q TERPRI 125Q PRIN1 114Q TAB 104Q PRIN1 73Q TAB 63Q PRIN1 53Q CLEARW 45Q TOTOPW 40Q OPENWP 31Q FINGER.SETUP.WINDOW 24Q BOUNDP 6 SEND.FINGER.REQUEST) (143Q TITLE 21Q FINGER.WINDOW) ( 147Q "Finger Display at " 121Q "Idle Time" 100Q "Etherhost" 57Q "User") REFINGER D1 (I 0 W) (2 FINGER) NIL () FINGER.CONTAINS? D1 (I 1 L I 0 ELEMENT) 7Alð²'@ 0A°d ¸IµHhZH&¹µíJ @ A ð(63Q U-CASE 57Q U-CASE 52Q MEMB 25Q U-CASE 12Q U-CASE) NIL () FINGER.MENU.SELECTED D1 (I 2 MOUSE I 1 MENU I 0 ITEM F 0 FINGER.WINDOW) @AnHP @Aj(24Q SHADEITEM 16Q FINGER 13Q CLEARW 7 SHADEITEM) NIL () FINGER.MERGE.USERS D1 (P 4 TRIPLE I 1 L2 I 0 L1) *@AAHµI \@©L»JµKhZ¹HX°äK&º°ø(15Q \APPEND2) NIL () FINGER.SERVER D1 (F 0 FINGER.SERVER.SOCKET# F 1 FINGER.SERVER.SOCKET) P cd oggh(26Q ADD.PROCESS 11Q DISCARDXIPS 3 OPENNSOCKET) (23Q Finger% Server 20Q NAME) ( 15Q (WAIT.FOR.FINGER.PACKET)) FINGER.SETUP.WINDOW D1 (I 0 ICON? F 0 FINGER.WINDOW F 1 FINGER.ICON F 2 FINGER.DISPLAY.POSITION F 3 FINGER.ICON.POSITION F 4 FINGER.DISPLAY.WIDTH F 5 FINGER.DISPLAY.HEIGHT) XRRTUi o cdgQPggPggPggP @–PhSQ QS Q (125Q CLOSEW 121Q MOVEW 114Q OPENW 107Q SHRINKW 77Q FINGER.SETUP.MENU 73Q PUTWINDOWPROP 61Q PUTWINDOWPROP 47Q PUTWINDOWPROP 35Q PUTWINDOWPROP 23Q CREATEW 14Q CREATEREGION 11Q HEIGHTIFWINDOW) (70Q REFINGER 65Q RESHAPEFN 56Q REFINGER 53Q REPAINTFN 44Q REFINGER 41Q EXPANDFN 31Q ICON) ( 20Q "Finger Display Window") FINGER.UPDATE D1 (I 2 MOUSE I 1 MENU I 0 ITEM F 0 FINGER.MENU) @PnH@Pj(20Q SHADEITEM 12Q FINGER 7 SHADEITEM) NIL () FINGER.SETUP.MENU D1 (I 0 WINDOW F 2 WBorder F 3 FINGER.MENU) c`do¿dg¿di¿RlÙHdI¿o HdI¿dg ¿dg¿jdnÿdhHdI ¿cd@ (140Q ATTACHMENU 54Q FONTCREATE) (101Q DEFAULTMENUHELDFN 72Q CLRPROMPT 17Q FINGER.MENU.SELECTED 2 MENUTYPE#) ( 51Q (HELVETICA 10Q BOLD) 10Q ((Update NIL "Will update the finger display."))) FORMAT.RESPONSE D1 (P 1 INFINITE.IDLE P 0 IDLE I 1 FINGERWINDOW I 0 TRIPLE F 2 FINGER.WINDOW F 3 FINGER.INFINITY.BITMAP F 4 FINGER.INFINITY.MINUTES F 5 FINGER.BASE.DATE) t@Hl<ÛTýñ¢i¹UHØ ll¸@A ¿lhA¿@i A ¿lhAI²$ShdRhR hR ¿S hR ØR „HR ¿R h(160Q TERPRI 153Q PRIN1 145Q DSPXPOSITION 140Q DSPXPOSITION 133Q BITMAPWIDTH 126Q BITBLT 122Q DSPYPOSITION 115Q DSPXPOSITION 101Q TAB 71Q PRIN1 65Q L-CASE 56Q TAB 46Q PRIN1 36Q SUBSTRING 27Q GDATE) NIL () NETS.WITHIN D1 (L (0 HOPS)) *`1HµId@ñ©»Jµ KhZY¿HX°æK&Z°÷NIL (2 \NS.ROUTING.TABLE) () SEND.FINGER.REQUESTA0001 D1 (NAME ERRORSET P 12Q TRIPLE P 10Q P P 7 PACKET P 0 NET F 13Q FINGER.USER.SOCKET F 14Q FINGER.PACKET F 15Q UNIQUERESULTS F 16Q RESETVARSLST F 17Q BASE F 20Q LENGTH F 21Q PACKET.STREAM F 22Q RESETY F 23Q NET.HOPS F 24Q NETS F 25Q FINGER.REQUEST.TYPE F 26Q FINGER.SERVER.SOCKET# F 27Q FINGER.TIMEOUT F 30Q RESPONSES) ægchhhWc¿W& c(d °/dc¿W*W`W,HlW ¿WW ¿W µÒ¿0@WW. _µL°M¾Mµ Nh]¼°èN&½°ãdOl-Ðc¿OÈlÙc ¿WjW c" W" ¿¹JµIh[I&ºµÄKc0 Oµ Wc$i_W §OWc¿O_°ß(324Q SASSOC 246Q CLOSEF 241Q READ 234Q OPENSTRINGSTREAM 231Q \GETBASESTRING 142Q GETXIP 124Q BLOCK 114Q RELEASE.XIP 106Q SENDXIP 76Q \FILLINXIP 51Q ALLOCATE.XIP 37Q \APPEND2 31Q NETS.WITHIN 5 OPENNSOCKET) (63Q BROADCASTNSHOSTNUMBER 2 CLOSENSOCKET) () SEND.FINGER.REQUEST D1 (P 11Q RESETZ P 10Q RESETY P 7 LISPXHIST P 6 UNIQUERESULTS P 5 RESPONSES P 4 NETS P 3 TRIPLES P 2 BASE P 1 FINGER.USER.SOCKET P 0 FINGER.PACKET I 0 NET.HOPS F 12Q LISPXHIST F 13Q RESETVARSLST) * pW! Wog ‘h‚g_ O“O(44Q ERROR! 36Q RESETRESTORE 23Q SEND.FINGER.REQUESTA0001) (31Q ERROR 20Q INTERNAL) ( 15Q (SEND.FINGER.REQUESTA0001)) STRING.NOT.NUMERIC D1 (I 0 S) o@ ´@(7 STRPOSL) NIL ( 3 (MAKEBITTABLE (CHCON "0123456789") T)) TRACE.FINGER D1 (F 0 FINGER.REQUEST.TYPE F 1 FINGER.RESPONSE.TYPE) PQhi (13Q XIPTRACE) (7 XIPONLYTYPES) () WAIT.FOR.FINGER.PACKET D1 (P 2 IDLETIME P 1 DATA P 0 RESPONSE.XIP F 3 FINGER.SERVER.SOCKET F 4 FINGER.SERVER.SOCKET# F 5 FINGER.REQUEST.TYPE F 6 \LASTUSERACTION F 7 FINGER.RESPONSE.TYPE) yS ¿0S X²eHÊ ‡Uð²]HlÍ¿V Ùºhi µ hdiJh ¹HI ¿H ¿HWÏ ‡¿Hl)Ð` ¿HjÌ'¿HTÍ,¿TH ¿°Š(163Q SENDXIP 143Q \STORENSHOSTNUMBER 121Q SWAPXIPADDRESSES 114Q XIPAPPEND.STRING 106Q MKSTRING 76Q USERNAME 70Q PORTSTRING 65Q ETHERHOSTNUMBER 60Q STRING.NOT.NUMERIC 55Q ETHERHOSTNAME 46Q ALTO.TO.LISP.DATE 42Q IDATE 16Q GETXIP 6 AWAIT.EVENT 3 NSOCKETEVENT) (140Q \MY.NSHOSTNUMBER) () (PRETTYCOMPRINT FINGERCOMS) (RPAQQ FINGERCOMS ((DECLARE: EVAL@LOAD DONTCOPY (P (LOADCOMP (QUOTE LLNS)))) (P (IF (BOUNDP (QUOTE FINGER.WINDOW)) THEN (END.FINGER))) (FNS END.FINGER FINGER REFINGER FINGER.CONTAINS? FINGER.MENU.SELECTED FINGER.MERGE.USERS FINGER.SERVER FINGER.SETUP.WINDOW FINGER.UPDATE FINGER.SETUP.MENU FORMAT.RESPONSE NETS.WITHIN SEND.FINGER.REQUEST STRING.NOT.NUMERIC TRACE.FINGER WAIT.FOR.FINGER.PACKET) (BITMAPS FINGER.ICON.BITMAP FINGER.ICON.MASK FINGER.INFINITY.BITMAP) (FILES ICONW) (VARS (FINGER.MENU)) (INITVARS (FINGER.ICON.POSITION (CREATE POSITION XCOORD _ 900 YCOORD _ 500 )) (FINGER.ICON (ICONW FINGER.ICON.BITMAP FINGER.ICON.MASK FINGER.ICON.POSITION T)) (FINGER.TIMEOUT 1500) (FINGER.RESPONSE.TYPE 20) (FINGER.NET.HOPS 2) (FINGER.REQUEST.TYPE 21) (FINGER.SERVER.SOCKET# 199) (FINGER.DISPLAY.POSITION (CREATE POSITION XCOORD _ 650 YCOORD _ 325)) (FINGER.DISPLAY.WIDTH 290) (FINGER.DISPLAY.HEIGHT 140) (FINGER.BASE.DATE (IDATE "14-Mar-84 00:00:00")) (FINGER.CROWD) ( FINGER.INFINITY.BITMAP (EDITBM)) (FINGER.INFINITY.MINUTES 90)) (P (FINGER.SERVER) (FINGER)))) (IF (BOUNDP (QUOTE FINGER.WINDOW)) THEN (END.FINGER)) (RPAQ FINGER.ICON.BITMAP (READBITMAP)) (93 61 "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@GN@@@@@@@@@@@@" "@@@@@@@@@@GOH@@@@@@@@@@@" "@@@@@@@@@@GAL@@@@@@@@@@@" "@@@@@@@@@@C@N@@@@@@@@@@@" "@@@@@@@@@@C@N@@@@@@@@@@@" "@@@@@@@@@@C@F@@@@@@@@@@@" "@@@@@@@@@@G@F@@@@@@@@@@@" "@@@@@@@@@@G@F@@@@@@@@@@@" "@@@@@@@@@@N@F@@@@@@@@@@@" "@@@@@@@@@ANDF@@@@@@@@@@@" "@@@@@@@@@CHGF@@@@@@@@@@@" "@@@@@@@@@GH@F@@@@@@@@@@@" "@@@@@@@@@O@@N@@@@@@GN@@@" "@@@@@@@@AN@AL@@@@AOOOH@@" "@@@@@@@@OL@CH@@@GOONCL@@" "@@@@@@@AOH@C@@COOOL@AL@@" "@@@@@@@CL@@GGOOON@A@@L@@" "@@@@@@@OH@@GOOO@@@AH@L@@" "@@@@@@AO@@@GL@@@D@@HGH@@" "@@@@@@CL@@@@@@@@F@@OOH@@" "@@@@@@GH@@@@@@@@B@OOL@@@" "@@@@@@G@@@D@@@@@GOOL@@@@" "@@@@@@F@@@D@@@@GOOL@@@@@" "@@@COOL@@@L@@@@GN@@@@@@@" "@@@COOL@@AH@@@@OO@@@@@@@" "@@@AH@@@@C@@@@OHG@@@@@@@" "@@@@L@@@@D@@COH@C@@@@@@@" "@@@@L@@@@H@CN@@@C@@@@@@@" "@@@@L@@@C@HD@@@@C@@@@@@@" "@@@@L@@@NAHIL@@@N@@@@@@@" "@@@@F@@GHAACN@@OL@@@@@@@" "@@@@F@@L@AACLAOHO@@@@@@@" "@@@@F@@@@AAHAN@@C@@@@@@@" "@@@@F@@@@A@OO@@@C@@@@@@@" "@@@@F@@@@B@AHH@@C@@@@@@@" "@@@@F@@@@B@CCL@@N@@@@@@@" "@@@@F@@@@F@CGLAON@@@@@@@" "@@@@F@@@@D@AC@O@G@@@@@@@" "@@@@F@@@@L@AHGH@C@@@@@@@" "@@@@F@@@@H@@OH@@C@@@@@@@" "@@@@F@@@@H@@ACL@C@@@@@@@" "@@@@F@@@@H@@BGL@O@@@@@@@" "@@@@F@GN@@@@CGHCL@@@@@@@" "@@@@FCOOH@@@A@COH@@@@@@@" "@@@@GOLCN@@@AOOO@@@@@@@@" "@@@@GN@@OOOOOON@@@@@@@@@" "@@@@F@@@GOOOOH@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@") (RPAQ FINGER.ICON.MASK (READBITMAP)) (93 64 "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@GN@@@@@@@@@@@@" "@@@@@@@@@@GOH@@@@@@@@@@@" "@@@@@@@@@@GOL@@@@@@@@@@@" "@@@@@@@@@@CON@@@@@@@@@@@" "@@@@@@@@@@CON@@@@@@@@@@@" "@@@@@@@@@@CON@@@@@@@@@@@" "@@@@@@@@@@GON@@@@@@@@@@@" "@@@@@@@@@@GON@@@@@@@@@@@" "@@@@@@@@@@OON@@@@@@@@@@@" "@@@@@@@@@AOON@@@@@@@@@@@" "@@@@@@@@@COON@@@@@@@@@@@" "@@@@@@@@@GOON@@@@@@@@@@@" "@@@@@@@@@OOON@@@@@@GN@@@" "@@@@@@@@AOOOL@@@@AOOOH@@" "@@@@@@@@OOOOH@@@GOOOOL@@" "@@@@@@@AOOOO@@COOOOOOL@@" "@@@@@@@COOOOGOOOOOOOOL@@" "@@@@@@@OOOOOOOOOOOOOOL@@" "@@@@@@AOOOOOOOOOOOOOOH@@" "@@@@@@COOOOOOOOOOOOOOH@@" "@@@@@@GOOOOOOOOOOOOOL@@@" "@@@@@@GOOOOOOOOOOOOL@@@@" "@@@@@@GOOOOOOOOOOOL@@@@@" "@@@COOOOOOOOOOOON@@@@@@@" "@@@COOOOOOOOOOOOO@@@@@@@" "@@@AOOOOOOOOOOOOO@@@@@@@" "@@@@OOOOOOOOOOOOO@@@@@@@" "@@@@OOOOOOOOOOOOO@@@@@@@" "@@@@OOOOOOOOOOOOO@@@@@@@" "@@@@OOOOOOOOOOOON@@@@@@@" "@@@@GOOOOOOOOOOOL@@@@@@@" "@@@@GOOOOOOOOOOOO@@@@@@@" "@@@@GOOOOOOOOOOOO@@@@@@@" "@@@@GOOOOOOOOOOOO@@@@@@@" "@@@@GOOOOOOOOOOOO@@@@@@@" "@@@@GOOOOOOOOOOON@@@@@@@" "@@@@GOOOOOOOOOOON@@@@@@@" "@@@@GOOOOOOOOOOOO@@@@@@@" "@@@@GOOOOOOOOOOOO@@@@@@@" "@@@@GOOOOOOOOOOOO@@@@@@@" "@@@@GOOOOOOOOOOOO@@@@@@@" "@@@@GOOOOOOOOOOOO@@@@@@@" "@@@@GOOOOOOOOOOOL@@@@@@@" "@@@@GOOOOOOOOOOOH@@@@@@@" "@@@@GOLCOOOOOOOO@@@@@@@@" "@@@@GN@@OOOOOON@@@@@@@@@" "@@@@F@@@GOOOOH@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@") (RPAQ FINGER.INFINITY.BITMAP (READBITMAP)) (20 10 "@@@@@@@@" "@@@@@@@@" "CL@O@@@@" "GNCOH@@@" "LCG@L@@@" "LAN@L@@@" "LAL@L@@@" "LCN@L@@@" "GOCAH@@@" "CLAO@@@@") (FILESLOAD ICONW) (RPAQQ FINGER.MENU NIL) (RPAQ? FINGER.ICON.POSITION (CREATE POSITION XCOORD _ 900 YCOORD _ 500)) (RPAQ? FINGER.ICON (ICONW FINGER.ICON.BITMAP FINGER.ICON.MASK FINGER.ICON.POSITION T)) (RPAQ? FINGER.TIMEOUT 1500) (RPAQ? FINGER.RESPONSE.TYPE 20) (RPAQ? FINGER.NET.HOPS 2) (RPAQ? FINGER.REQUEST.TYPE 21) (RPAQ? FINGER.SERVER.SOCKET# 199) (RPAQ? FINGER.DISPLAY.POSITION (CREATE POSITION XCOORD _ 650 YCOORD _ 325)) (RPAQ? FINGER.DISPLAY.WIDTH 290) (RPAQ? FINGER.DISPLAY.HEIGHT 140) (RPAQ? FINGER.BASE.DATE (IDATE "14-Mar-84 00:00:00")) (RPAQ? FINGER.CROWD) (RPAQ? FINGER.INFINITY.BITMAP (EDITBM)) (RPAQ? FINGER.INFINITY.MINUTES 90) (FINGER.SERVER) (FINGER) (PUTPROPS FINGER COPYRIGHT ("Xerox Corporation" 1985)) NIL