<script>on mouseUpput the clickText into ClickedWordselect the clickChunkend mouseUp</script>
</part>
<part>
<id>113</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>1</left>
<top>2</top>
<right>51</right>
<bottom>19</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Finger…</name>
<script>-- Finger…on mouseUpask "Finger what?"put it into whatif what is empty then exit mouseUpput empty into bg fld "Output"finger whatend mouseUp</script>
</part>
<part>
<id>114</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>1</left>
<top>21</top>
<right>51</right>
<bottom>38</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Copy</name>
<script>on mouseUpset cursor to busyset the lockScreen to trueset cursor to busyset the lockText of bkgnd fld "Output" to falseset cursor to busyclick at the loc of bkgnd fld "Output"set cursor to busyselect char 1 to 39999 of bkgnd fld "Output"set cursor to busydoMenu "Copy Text"set cursor to busyset the lockText of bkgnd fld "Output" to trueset cursor to busyset the lockScreen to falseend mouseUp</script>
</part>
<name>Main</name>
<script>-- HyperFinger (Pro?)-- Frank D Tito-- Thu 30 Dec 93-- I modified the original HyperFinger to learn how it worked. In-- the process, I untangled and streamlined the code. One no longer-- needs to be a codehead to understand it. Enjoy.-- Please send comments and job offers to:-- ftito@dcseq.uscga.edu until 1/15/93-- ftito@delphi.com-- HyperFinger original comments:-- -- HyperFinger-- -- September 1991 J. Michael Cherry (cherry@frodo.mgh.harvard.edu)-- ---- -- About 99% of the HyperTalk code in this stack is-- -- from HyperFTP by Douglas Hornig © 1990 Cornell University-- ---- -- The XCMDs and XFCNs used here are:-- -- TCPNameToAddr, TCPSend, TCPRecvUpTo, TCPState, TCPRelease, TCPClose,-- -- and TCPPassiveOpen by Harry Chesley © 1989 Apple Computer, Inc.-- ---- -- Any praise you have for this stack should go to Douglas Hornig and-- -- Harry Chesley.on closeStackglobal connectionID-- make sure TCP connection is closed properlyif connectionID is not emptythenTCPClose connectionIDTCPRelease connectionIDput empty into connectionIDend if-- if lots of free space in stack, compact stackif the freeSize of this stack ≥ 40960thenput the userLevel into saveLevelif saveLevel < 3 then set the userLevel to 3send "doMenu Compact Stack" to HyperCardset the userLevel to saveLevelend ifend closeStackon sendLine textglobal connectionIDTCPSend connectionID, text & return & linefeedend sendLineon finger what, userglobal connectionID-- determine user and hostNameput char 1 to ( offset("@",what) -1 ) of what into userput char ( offset("@",what) +1 ) to length(what) of what into hostName-- check for legal nameif (hostName is empty) or (user is what)thenanswer "Please use the format user@host."exit fingerend if-- resolve host nameset cursor to busypromptoid "Finding IP address of" && hostName & "."get TCPNameToAddr(hostName)close window "Promptoid"if char 1 of it is "§"thenif it contains "couldn't open resource"thenanswer "MacTCP is not installed."elseanswer "Could not get IP address for" && hostName & "."end ifexit fingerend if-- open socket 79 for finger servicepromptoid "Opening finger service…"put TCPActiveOpen(item 1 of it, 79, 0) into connectionIDclose window "Promptoid"if connectionID contains "fail"thenanswer "Could not connect to" && hostName & ":" && connectionIDput empty into connectionIDexit fingerend if-- connection establishedpromptoid "Connection established. Receiving information."-- clear fieldput empty into bkgnd field "Output"-- request finger usersendLine user && return-- receive finger informationrepeat foreverget TCPRecvUpTo(connectionID, linefeed, zero, empty)if it ≠ emptythenif char 1 of it is "§" then exit repeatif char (length of it) of it is linefeedthenput empty into char (length of it) of itend ifput it after bkgnd field "Output"set cursor to busyend ifend repeat-- close the connectionclose window "Promptoid"Promptoid "Closing connection."TCPClose connectionIDTCPRelease connectionIDput empty into connectionIDclose window "Promptoid"end finger</script>
