<script>on mouseUpif the optionKey is not down thenput the clickLoc into hitput the scroll of me into scput the top of me into tpput ((item 2 of hit + the scroll of me - the top of me) div 33) * 8 into cnadd 32 + (item 1 of hit div 32) to cnput "Clicked character = NumToChar(" & cn & ")" into cd fld "CharNum"exit mouseUpend ifput empty into bufput 32 into cnrepeat 28 timesrepeat 8 timesput NumToChar(cn) after bufadd 1 to cnend repeatput return after bufend repeatput buf into meend mouseUp</script>
<script>on openCardset the scroll of cd fld "IconFont" to 0put empty into cd fld "CharNum"end openCardon setStyleif the hilite of cd btn "Bold" thenif the hilite of cd btn "Italic" thenput "bold,italic" into stylelseput "bold" into stylend ifelse if the hilite of cd btn "Italic" thenput "italic" into stylelseput "plain" into stylend ifset the textStyle of cd fld "IconFont" to stylend setStyle</script>
</card>
card_3046.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpgo to card id 3821end mouseUp</script>
</part>
<part>
<id>5</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>69</left>
<top>46</top>
<right>121</right>
<bottom>93</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1011</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Home</name>
<script>on mouseUpgo homeend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>1</id>
<text>IconFont</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text><span class="style1">conFont is a font containing all the standard icons in HyperCard. Plain characacters are normal icons (</span><span class="style2">[</span><span class="style1">), italicised characters are grayed (</span><span class="style3">[</span><span class="style1">), bold inverted (</span><span class="style4">[</span><span class="style1">), and bold italic outline inverted (</span><span class="style5">[</span><span class="style1">). This font is intended as part of the next release of Pictoids (formerly Regions) and has been released early due to a request on Usenet for such a font. The font is free, enjoy!</span></text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>Dr Nigel PerryHCI CentreDepartment of Computer ScienceQueen Mary & Westfield CollegeDeptartment of Computing Imperial CollegeEmail: np@doc.ic.ac.uk</text>