(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED " 9-Sep-94 09:50:17" ("compiled on " {DSK}<lispcore>lispusers>FINGER.;1) 
"28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49")
(FILECREATED "15-Sep-88 10:44:56" |{EG:PARC:XEROX}<LANNING>LISP>USERS>FINGER.;5| 30905 changes to%: (
FNS FINGER SEND.FINGER.REQUEST REFINGER FINGER.CONTAINS? FINGER.SETUP.WINDOW FINGER.MENU.SELECTED 
FINGER.SETUP.MENU \FINGER.PRINTFN STRING.NOT.NUMERIC FINGER.SERVER WAIT.FOR.FINGER.PACKET END.FINGER 
BACKGROUND.FINGER.SERVER TRACE.FINGER) (VARS FINGERCOMS) (FUNCTIONS NETS.WITHIN) previous date%: 
"14-Sep-88 18:05:53" |{EG:PARC:XEROX}<LANNING>LISP>USERS>FINGER.;4|)
FINGERA0001 :D8
(L (1 USER2 0 USER1)) �
���@A
�����(10 CL:STRING<)
NIL
()
FINGER :D8
(P 4 P P 1 WHOM P 0 USERS I 3 ICON? I 2 HOPS I 1 HOST I 0 WHO F 5 FINGER.BROWSER F 6 FINGER.CROWD F 7 FINGER.WINDOW) �í�Bµ`����	����g����
����@µVg����	����šg����	����¦C	����¿C²`����	����ª`����	����hWg����o��������ll����
��������U	����HKµ
U	����¼I²A›LI
����³ˆI”LI„A™LA
����²3U`����dL¿dkÏ� ¿Lg����'hðºdJ‘k€jÏ�0¿
����¿K[°›�(229 TB.INSERT.ITEM 179 FINGER.CONTAINS? 159 FINGER.CONTAINS? 142 TB.REDISPLAY.ITEMS 127 TB.REPLACE.ITEMS 121 PUTWINDOWPROP 116 CONCAT 111 SUBSTRING 102 DATE 82 TOTOPW 71 OPENWP 57 FINGER.SETUP.WINDOW 50 BOUNDP 39 BOUNDP 22 CL:SORT 12 SEND.FINGER.REQUEST)
(210 TALK 187 |TABLEITEMTYPE#| 92 TITLE 77 FINGER.ICON 66 FINGER.ICON 45 FINGER.WINDOW 34 FINGER.BROWSER 17 FINGERA0001 7 FINGER.NET.HOPS)
( 97 "Finger Display at ")
REFINGER :D8
(I 0 W) ���������(4 FINGER)
NIL
()
FINGER.CONTAINS? :D8
(P 3 X I 1 L I 0 ELEMENT) �C��AÃ����².@	����@A°d[	����¸IµHhZH&¹µêJ
����@	����A	����ð�(63 U-CASE 57 U-CASE 50 MEMB 27 U-CASE 13 U-CASE)
(5 LISTP)
()
SEND.FINGER.REQUESTA0001A0002 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 PACKET.STREAM F 3 SI::NLSETQ-VALUE) ��i@R	����hcg�����(10 READ)
(19 :NORMAL)
()
SEND.FINGER.REQUESTA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 17 *CONDITION-HANDLER-BINDINGS* P 16 SI::*NLSETQFLAG* P 15 *PROCEED-CASES* P 14 SI::NLSETQ-VALUE P 13 DATALIST P 11 DATA P 10 PACKET.STREAM P 9 P P 4 PACKET P 0 NET I 0 SI::*CLEANUP-FORMS* F 18 FINGER.USER.SOCKET F 19 FINGER.PACKET F 20 UNIQUERESULTS F 21 SI::*RESETFORMS* F 22 *PROCEED-CASES* F 23 NET.HOPS F 24 NETS F 25 RESPONSES F 26 *CONDITION-HANDLER-BINDINGS*) L	�g��������c$hhdW*c*W.	����c0dd
����°?d�����c&¿lW$`����lÇHlW&
����¿W$W&
����¿W&	����¿����µÂ@W$`����
����\µIaMµ&Nc2d
Oµ‚±�˜W(»Jµ	KhZ¹°ËK&º°Æ_l1ÐjOÈ#lÙ����	����_¿`����W,io����W4O	����g����ð´O_¿O	����¿Od3œo����O__¿OµOh_¾M]±ÿbO&_¿°ô_²OW(
����§OW(c(¿O_±ÿG�(313 SASSOC 248 CLOSEF? 225 SEND.FINGER.REQUESTA0001A0002 192 OPENSTRINGSTREAM 187 \GETBASESTRING 120 GETXIP 100 BLOCK 94 RELEASE.XIP 86 SENDXIP 76 \FILLINXIP 51 ALLOCATE.XIP 39 \APPEND2 30 NETS.WITHIN 9 OPENNSOCKET)
(231 :NORMAL 203 SI::NLSETQ-PROCEED-CASE 115 FINGER.TIMEOUT 63 BROADCASTNSHOSTNUMBER 4 CLOSENSOCKET)
( 263 "[none]" 212 (CL:ERROR . SI::NLSETQHANDLER))
SEND.FINGER.REQUEST :D8
(P 7 RESETSTATE P 6 SI::*RESETFORMS* P 5 LISPXHIST P 4 UNIQUERESULTS P 3 RESPONSES P 2 NETS P 1 FINGER.USER.SOCKET P 0 FINGER.PACKET I 0 NET.HOPS F 8 LISPXHIST) �"�PW!g����	����	��������¿$�(27 SI::RESETUNWIND 22 \MVLIST 17 SEND.FINGER.REQUESTA0001)
(12 SI::RESETUNWIND)
()
STRING.NOT.NUMERIC :D8
(I 0 S) ����o����@
����´@�(10 STRPOSL)
NIL
( 4 (MAKEBITTABLE (CHCON "0123456789") T))
FINGER.SETUP.WINDOW :D8
(P 0 FINGER.PROMPT.WINDOW I 0 ICON? F 1 FINGER.WINDOW F 2 FINGER.BROWSER)  �`����`����`����`����i
��������o����hd����chQo��������cQg����`��������Qg����g����d����Qg����g��������Qg����o��������Qg����g��������QR
����Qkg����l

���������Hg����jH	����É����¿Hg����nú�H	����É����¿nÿÿH
����@œQh`��������`����	����`����`����
����`����	�����(285 CLOSEW 275 MOVEW 260 OPENW 249 SHRINKW 234 LINELENGTH 224 PUTWINDOWPROP 212 \INSUREWINDOW 196 PUTWINDOWPROP 184 \INSUREWINDOW 168 GETPROMPTWINDOW 163 FONTCREATE 149 FINGER.SETUP.MENU 142 WINDOWADDPROP 126 WINDOWADDPROP 110 WINDOWADDPROP 94 PUTWINDOWPROP 76 PUTWINDOWPROP 58 TB.MAKE.BROWSER 44 CREATEW 32 CREATEREGION 27 HEIGHTIFWINDOW)
(280 FINGER.ICON 270 FINGER.ICON.POSITION 265 FINGER.ICON 255 FINGER.ICON 244 FINGER.ICON.POSITION 203 MAXSIZE 177 MINSIZE 156 HELVETICA 137 REFINGER 132 RESHAPEFN 116 CLOSEFN 105 REFINGER 100 EXPANDFN 87 LIMIT 82 SCROLLEXTENTUSE 71 FINGER.ICON 66 ICON 21 FINGER.DISPLAY.HEIGHT 16 FINGER.DISPLAY.WIDTH 10 FINGER.DISPLAY.POSITION 4 FINGER.DISPLAY.POSITION)
( 121 (LAMBDA NIL (SETQ FINGER.WINDOW (QUOTE NOBIND))) 53 (PRINTFN \FINGER.PRINTFN) 37 "Finger Display Window")
FINGER.MENU.SELECTEDA0001 :D8
(P 1 talkresult P 0 host I 1 item I 0 browser F 2 promptwindow) �ê�o����	����A����ÉHg����'¢±�™R	����¿o����R
����¿HR
����¿o����R
����H	����Yddið²)¿R	����o����R
����HR
����o����R
����³(R	����o����R
����HR
����o����R
����R	����IR
����R	����HR
����o����R
����HR
����o����R
�����(231 PRIN1 220 PRIN1 212 PRIN1 201 PRIN1 192 TERPRI 185 PRIN1 178 TERPRI 171 PRIN1 160 PRIN1 151 PRIN1 140 TERPRI 131 PRIN1 120 PRIN1 111 PRIN1 100 TERPRI 86 TALK 76 PRIN1 64 PRIN1 54 PRIN1 42 TERPRI 9 DECLARE%:)
(31 TALK 15 TABLEITEM)
( 225 " is not running TALK." 206 " on " 165 " aborted." 145 "Talk to " 125 "." 105 "Talking to " 70 "..."
 48 "Trying to talk to " 4 ((SPECVARS promptwindow)))
FINGER.MENU.SELECTEDA0002 :D8
(I 0 browser F 0 promptwindow) ���o����	����P	����o����P
�����(26 PRIN1 15 TERPRI 9 DECLARE%:)
NIL
( 20 "No hosts selected to TALK to." 4 ((SPECVARS promptwindow)))
FINGER.MENU.SELECTED :D8
(P 1 promptwindow P 0 browser I 2 MOUSE I 1 MENU I 0 ITEM F 2 MENUSELECTSHADE) ��@´‚±�‰Ag����
�����H	����	����o����	��������@AR����@dg����ð—¿����°:g����ð²3g����	����²Hg����g��������°I	����¿o����I
����¿@Aj�����(140 SHADEITEM 131 PRIN1 119 TERPRI 111 TB.MAP.SELECTED.ITEMS 93 \DEFINEDP 73 FINGER 57 SHADEITEM 49 ALLOW.BUTTON.EVENTS 44 DECLARE%: 31 GETPROMPTWINDOW 26 TB.WINDOW 17 GETMENUPROP)
(106 FINGER.MENU.SELECTEDA0002 101 FINGER.MENU.SELECTEDA0001 88 TALK 80 Talk 65 Update 12 TB)
( 125 "Can't -- TALK is not loaded" 39 ((SPECVARS promptwindow)))
FINGER.SETUP.MENU :D8
(I 1 TABLE.BROWSER I 0 WINDOW F 2 FINGER.MENU) ��`����do����¿dg����¿di¿`����lÙHdI¿o����	����HdI¿dg���� ¿dg����¿jdnÿdhHdI
¿cd@
����Rg����A�����(126 PUTMENUPROP 114 ATTACHMENU 56 FONTCREATE)
(120 TB 81 DEFAULTMENUHELDFN 72 CLRPROMPT 33 WBorder 20 FINGER.MENU.SELECTED 4 |MENUTYPE#|)
( 51 (HELVETICA 8 BOLD) 11 ((Update NIL "Will update the finger display.") (Talk NIL "Open a TALK connection to the selected people")))
\FINGER.PRINTFNA0001 :D8
(P 4 FINGER.HOST P 3 IDLE P 2 INFINITE.IDLE P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 window F 6 item F 7 SI::NLSETQ-VALUE) �Ñ�i@2V����É\»hºKl<Û`����ýñ£iº°`����KØ	����ll����»Lg����'•o����„o����U
����¿LU
����¿lhU����¿Li
����U
����¿lhU����¿J²8`����hdUhU
����hU
����
����¿`����	����hU
����ØU
����†KU
����hcg�����(197 PRIN1 189 DSPXPOSITION 182 DSPXPOSITION 175 BITMAPWIDTH 164 BKBITBLT 158 DSPYPOSITION 151 DSPXPOSITION 132 TAB 122 PRIN1 116 L-CASE 107 TAB 97 PRIN1 87 PRIN1 56 SUBSTRING 47 GDATE)
(206 :NORMAL 170 FINGER.INFINITY.BITMAP 141 FINGER.INFINITY.BITMAP 68 TALK 40 FINGER.BASE.DATE 28 FINGER.INFINITY.MINUTES 10 TABLEITEM)
( 81 " " 75 "+")
\FINGER.PRINTFN :D8
(P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 2 window I 1 item I 0 browser F 4 *PROCEED-CASES* F 5 *CONDITION-HANDLER-BINDINGS*) �'��`����Tio����UI	����g����ð´H�(26 \FINGER.PRINTFNA0001)
(32 :NORMAL 7 SI::NLSETQ-PROCEED-CASE)
( 15 (CL:ERROR . SI::NLSETQHANDLER))
FINGER.SERVER :D8
NIL �E����g����	����	����g����	����³#o����g����g����g����g����
����h����¿°Í�(64 BLOCK 57 ADD.PROCESS 24 FIND.PROCESS 14 DEL.PROCESS 9 FIND.PROCESS)
(51 HARDRESET 46 RESTARTABLE 41 Finger% Server 36 NAME 19 Finger% Server 4 Finger% Server)
( 31 (WAIT.FOR.FINGER.PACKET))
WAIT.FOR.FINGER.PACKETA0001A0002 :D8
(P 8 CAPABILITY P 4 IDLETIME P 3 DATA P 2 RESPONSE.XIP P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 9 FINGER.SERVER.SOCKET F 10 FINGER.CAPABILITIES F 11 SI::NLSETQ-VALUE) 		�i@0W	����Z¢±�áJÊ$‡lð¢±�ÖJlÍ#¿����`����o����æÙ¼hi
����	����µ����	����hdi����o����
����´o����†di����L`����0W°#dOO	����h]—NµiM_^¿µÞOhi
����»JK
����¿J	����¿JlÏ$‡¿Jl-Ð`����
����¿Jl"Ðl	j����¿JlÇÍ0¿lÇJ
����¿hdcg����	����^M°•�(258 LAST 240 SENDXIP 225 \PUTBASEFIXP 212 \STORENSHOSTNUMBER 190 SWAPXIPADDRESSES 183 XIPAPPEND.STRING 175 MKSTRING 140 EVAL 111 USERNAME 96 CL::SIMPLE-STRING-EQUAL 86 USERNAME 78 PORTSTRING 73 ETHERHOSTNUMBER 66 STRING.NOT.NUMERIC 61 ETHERHOSTNAME 41 IDATE 14 GETXIP)
(252 :NORMAL 207 \MY.NSHOSTNUMBER 117 \MY.NSADDRESS 46 \LASTUSERACTION)
( 103 "[none]" 91 "" 51 -2147483648)
WAIT.FOR.FINGER.PACKETA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 SI::*CLEANUP-FORMS* F 4 FINGER.SERVER.SOCKET F 5 SI::*RESETFORMS* F 6 *PROCEED-CASES* F 7 *CONDITION-HANDLER-BINDINGS*) �T�lÇg����
����cg����TihhdUc
T	����T	����	����¿�`����Vio����WI	����°Ö�(78 WAIT.FOR.FINGER.PACKETA0001A0002 49 AWAIT.EVENT 44 NSOCKETEVENT 38 DISCARDXIPS 11 OPENNSOCKET)
(58 SI::NLSETQ-PROCEED-CASE 18 CLOSENSOCKET 6 ACCEPT)
( 66 (CL:ERROR . SI::NLSETQHANDLER))
WAIT.FOR.FINGER.PACKET :D8
(P 3 RESETSTATE P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 FINGER.SERVER.SOCKET F 4 LISPXHIST) �!���T!g����	����	��������¿$�(26 SI::RESETUNWIND 21 \MVLIST 16 WAIT.FOR.FINGER.PACKETA0001)
(11 SI::RESETUNWIND)
()
END.FINGER :D8
(F 0 FINGER.WINDOW F 1 FINGER.BROWSER) �i���g����	����	����g����	����²`����	����š`����	����¿g����	����²P	����–P	����¿g����c�¿g����	����´
g����ch�(92 BOUNDP 73 CLOSEW 66 WINDOWP 58 BOUNDP 47 CLOSEW 36 WINDOWP 24 BOUNDP 14 DEL.PROCESS 9 FIND.PROCESS)
(99 NOBIND 87 FINGER.BROWSER 79 NOBIND 53 FINGER.WINDOW 42 FINGER.ICON 31 FINGER.ICON 19 FINGER.ICON 4 Finger% Server)
()
BACKGROUND.FINGER.SERVERA0001 :D8
(P 8 CAPABILITY P 4 IDLETIME P 3 DATA P 2 RESPONSE.XIP P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 9 FINGER.SERVER.SOCKET F 10 FINGER.CAPABILITIES F 11 SI::NLSETQ-VALUE) 		�i@0W	����Z¢±�áJÊ$‡lð¢±�ÖJlÍ#¿����`����o����æÙ¼hi
����	����µ����	����hdi����o����
����´o����†di����L`����0W°#dOO	����h]—NµiM_^¿µÞOhi
����»JK
����¿J	����¿JlÏ$‡¿Jl-Ð`����
����¿Jl"Ðl	j����¿JlÇÍ0¿lÇJ
����¿hdcg����	����^M°•�(258 LAST 240 SENDXIP 225 \PUTBASEFIXP 212 \STORENSHOSTNUMBER 190 SWAPXIPADDRESSES 183 XIPAPPEND.STRING 175 MKSTRING 140 EVAL 111 USERNAME 96 CL::SIMPLE-STRING-EQUAL 86 USERNAME 78 PORTSTRING 73 ETHERHOSTNUMBER 66 STRING.NOT.NUMERIC 61 ETHERHOSTNAME 41 IDATE 14 GETXIP)
(252 :NORMAL 207 \MY.NSHOSTNUMBER 117 \MY.NSADDRESS 46 \LASTUSERACTION)
( 103 "[none]" 91 "" 51 -2147483648)
BACKGROUND.FINGER.SERVER :D8
(P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE F 4 FINGER.SERVER.SOCKET F 5 *PROCEED-CASES* F 6 *CONDITION-HANDLER-BINDINGS*) �B��lÇg����
����cd	����l
�����`����Uio����VI	����g����ð´H�(53 BACKGROUND.FINGER.SERVERA0001 26 AWAIT.EVENT 19 NSOCKETEVENT 11 OPENNSOCKET)
(59 :NORMAL 34 SI::NLSETQ-PROCEED-CASE 6 ACCEPT)
( 42 (CL:ERROR . SI::NLSETQHANDLER))
TRACE.FINGER :D8
(F 0 XIPONLYTYPES) ����llhc�i	�����(14 XIPTRACE)
NIL
()
(PRETTYCOMPRINT FINGERCOMS)
(RPAQQ FINGERCOMS ((* ;; 
"Modified 6-April-87 by smL to interface to TALK; 14-Sep-88 to work in Medley") (P (IF (BOUNDP (QUOTE 
FINGER.WINDOW)) THEN (END.FINGER))) (FNS FINGER REFINGER FINGER.CONTAINS? SEND.FINGER.REQUEST 
STRING.NOT.NUMERIC) (FUNCTIONS NETS.WITHIN) (INITVARS (FINGER.TIMEOUT 1000) (FINGER.NET.HOPS 2) (
FINGER.BASE.DATE (IDATE "14-Mar-84 00:00:00")) (FINGER.CROWD NIL) (FINGER.INFINITY.MINUTES 90) (
FINGER.CAPABILITIES (QUOTE (TALK (AND (GETD (QUOTE TALK)) (NOT TALK.GAG) (FIND.PROCESS (QUOTE 
COURIER.LISTENER)) T) IDLING \IDLING SYSTEM (QUOTE Lisp))))) (* ;; "Tablebrowser and window stuff") (
FNS FINGER.SETUP.WINDOW FINGER.MENU.SELECTED FINGER.SETUP.MENU \FINGER.PRINTFN) (FILES ICONW 
TABLEBROWSER) (BITMAPS FINGER.ICON.BITMAP FINGER.ICON.MASK FINGER.INFINITY.BITMAP) (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.DISPLAY.WIDTH 290) (
FINGER.DISPLAY.HEIGHT 140) (FINGER.DISPLAY.POSITION (CREATE POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH
 FINGER.DISPLAY.WIDTH) YCOORD _ 0))) (* ;; "Responding to finger requests on the net") (FNS 
FINGER.SERVER WAIT.FOR.FINGER.PACKET END.FINGER BACKGROUND.FINGER.SERVER) (* ;; "Ether info") (
CONSTANTS (FINGER.SERVER.SOCKET# 199) (\XIPT.FINGERRESPONSE 20) (\XIPT.FINGERREQUEST 21)) (ALISTS (
XIPTYPES \XIPT.FINGERRESPONSE \XIPT.FINGERREQUEST)) (FNS TRACE.FINGER) (* ;; "Start up Finger") (
DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (FINGER.SERVER) (FINGER))) (* ;; "Compiler stuff") 
(DECLARE%: EVAL@LOAD DONTCOPY (P (LOADCOMP (QUOTE LLNS))) (FILES TABLEBROWSERDECLS) (RECORDS 
FINGER.HOST) (GLOBALVARS FINGER.TIMEOUT FINGER.NET.HOPS FINGER.BASE.DATE FINGER.INFINITY.MINUTES 
FINGER.ICON.POSITION FINGER.ICON FINGER.ICON.BITMAP FINGER.ICON.MASK FINGER.INFINITY.BITMAP 
FINGER.DISPLAY.WIDTH FINGER.DISPLAY.HEIGHT FINGER.DISPLAY.POSITION)) (* ;; "hints to the file manager"
) (PROP MAKEFILE-ENVIRONMENT FINGER)))
(IF (BOUNDP (QUOTE FINGER.WINDOW)) THEN (END.FINGER))
(CL:DEFUN NETS.WITHIN (HOPS) (DECLARE (GLOBAL \NS.ROUTING.TABLE)) (LET ((NETS NIL)) (
\MAP.ROUTING.TABLE \NS.ROUTING.TABLE (CL:FUNCTION (CL:LAMBDA (ENTRY) (CL:WHEN (<= (fetch (ROUTING 
RTHOPCOUNT) of ENTRY) HOPS) (CL:SETQ NETS (CONS (fetch (ROUTING RTNET#) of ENTRY) NETS)))))) NETS))
(RPAQ? FINGER.TIMEOUT 1000)
(RPAQ? FINGER.NET.HOPS 2)
(RPAQ? FINGER.BASE.DATE (IDATE "14-Mar-84 00:00:00"))
(RPAQ? FINGER.CROWD NIL)
(RPAQ? FINGER.INFINITY.MINUTES 90)
(RPAQ? FINGER.CAPABILITIES (QUOTE (TALK (AND (GETD (QUOTE TALK)) (NOT TALK.GAG) (FIND.PROCESS (QUOTE 
COURIER.LISTENER)) T) IDLING \IDLING SYSTEM (QUOTE Lisp))))
(FILESLOAD ICONW TABLEBROWSER)
(RPAQQ FINGER.ICON.BITMAP #*(71 48)@@@@@@@O@@@@@@@@@@@@@@@@@@AOL@@@@@@@@@@@@@@@@@AHN@@@@@@@@@@@@@@@@@AHG@@@@@@@@@@@@@@@@@AHG@@@@@@@@@@@@@@@@@AHC@@@@@@@@@@@@@@@@@CHAH@@@@@@@@@@@@@@@@CHAH@@@@@@@@@@@@@@@@G@AH@@@@@@@@@@@@@@@@OBAH@@@@@@@@@@@@@@@ALCKH@@@@@@@@@@@@@@@CL@C@@@@@@@@@@@@@@@@GH@G@@@@@@AO@@@@@@@@O@@N@@@@@GOOL@@@@@@CN@AL@@@AOOO@N@@@@@@OH@AH@@OOON@@F@@@@@AN@@CKOOOO@@H@F@@@@@GL@@COOOH@@@L@F@@@@@OH@@CN@@@B@@DCN@@@@AN@@@@@@@@C@@GOL@@@@CL@@@@@@@@A@GON@@@@@CH@@B@@@@@COON@@@@@@O@@@B@@@@COON@@@@@OON@@@F@@@@CO@@@@@@@OOH@@@L@@@@GOH@@@@@@L@@@@AH@@@GLCH@@@@@@F@@@@B@@AOL@AH@@@@@@F@@@@D@AO@@@AH@@@@@@F@@@AHDB@@@@AH@@@@@@F@@@G@LDN@@@G@@@@@@@G@@CL@HIC@@GN@@@@@@@C@@F@@HIN@OLGH@@@@@@C@@@@@HL@O@@AH@@@@@@C@@@@@HGOH@@AH@@@@@@C@@@@A@@LD@@AH@@@@@@C@@@@A@AIJ@@G@@@@@@@C@@@@C@AJF@OO@@@@@@@C@@@@B@@IHGHCH@@@@@@C@@@@F@@LCL@AH@@@@@@C@@@@D@@GL@@AH@@@@@@C@@@@D@@@IN@AH@@@@@@C@@@@D@@ABB@GH@@@@@@C@CO@@@@AKLAN@@@@@@@CAOOL@@@@HAOL@@@@@@@CONAO@@@@OOOH@@@@@@@CO@@GO@AOOO@@@@@@@@@@@@@COOOOL@@@@@@@@@@@@@@@AOO@@@@@@@@@@@@
)
(RPAQQ FINGER.ICON.MASK #*(71 48)@@@@@@@O@@@@@@@@@@@@@@@@@@AOL@@@@@@@@@@@@@@@@@AON@@@@@@@@@@@@@@@@@AOO@@@@@@@@@@@@@@@@@AOO@@@@@@@@@@@@@@@@@AOO@@@@@@@@@@@@@@@@@COOH@@@@@@@@@@@@@@@@COOH@@@@@@@@@@@@@@@@GOOH@@@@@@@@@@@@@@@@OOOH@@@@@@@@@@@@@@@AOOOH@@@@@@@@@@@@@@@COOO@@@@@@@@@@@@@@@@GOOO@@@@@@AO@@@@@@@@OOON@@@@@GOOL@@@@@@COOOL@@@AOOOON@@@@@@OOOOH@@OOOOOON@@@@@AOOOOKOOOOOOOON@@@@@GOOOOOOOOOOOOON@@@@@OOOOOOOOOOOOOON@@@@AOOOOOOOOOOOOOOL@@@@COOOOOOOOOOOOON@@@@@COOOOOOOOOOOON@@@@@@OOOOOOOOOOOON@@@@@OOOOOOOOOOOOO@@@@@@@OOOOOOOOOOOOOH@@@@@@OOOOOOOOOOOOOH@@@@@@GOOOOOOOOOOOOH@@@@@@GOOOOOOOOOOOOH@@@@@@GOOOOOOOOOOOOH@@@@@@GOOOOOOOOOOOO@@@@@@@GOOOOOOOOOOON@@@@@@@COOOOOOOOOOOOH@@@@@@COOOOOOOOOOOOH@@@@@@COOOOOOOOOOOOH@@@@@@COOOOOOOOOOOOH@@@@@@COOOOOOOOOOOO@@@@@@@COOOOOOOOOOOO@@@@@@@COOOOOOOOOOOOH@@@@@@COOOOOOOOOOOOH@@@@@@COOOOOOOOOOOOH@@@@@@COOOOOOOOOOOOH@@@@@@COOOOOOOOOOOOH@@@@@@COOOOOOOOOOON@@@@@@@COOOOOOOOOOOL@@@@@@@CONAOOOOOOOOH@@@@@@@CO@@GOOOOOO@@@@@@@@@@@@@COOOOL@@@@@@@@@@@@@@@AOO@@@@@@@@@@@@
)
(RPAQQ FINGER.INFINITY.BITMAP #*(20 10)@@@@@@@@@@@@@@@@CL@O@@@@GNCOH@@@LCG@L@@@LAN@L@@@LAL@L@@@LCN@L@@@GOCAH@@@CLAO@@@@
)
(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.DISPLAY.WIDTH 290)
(RPAQ? FINGER.DISPLAY.HEIGHT 140)
(RPAQ? FINGER.DISPLAY.POSITION (CREATE POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH FINGER.DISPLAY.WIDTH
) YCOORD _ 0))
(RPAQQ FINGER.SERVER.SOCKET# 199)
(RPAQQ \XIPT.FINGERRESPONSE 20)
(RPAQQ \XIPT.FINGERREQUEST 21)
(CONSTANTS (FINGER.SERVER.SOCKET# 199) (\XIPT.FINGERRESPONSE 20) (\XIPT.FINGERREQUEST 21))
(ADDTOVAR XIPTYPES (\XIPT.FINGERRESPONSE 20) (\XIPT.FINGERREQUEST 21))
(FINGER.SERVER)
(FINGER)
(PUTPROPS FINGER MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP"))
(PUTPROPS FINGER COPYRIGHT ("Xerox Corporation" 1985 1987 1988))
NIL