<script>on mouseUpglobal unrealFirsts, specialWordsput "(," & tab & "," & numtochar(5) into unrealFirsts--tab gets counted as part of word, not as whitespace--ASCII 5 is character for footnote--for ref that occurs initially in fnput "and,van,der,den,de,et,al.,y" into specialWords --extra things in namesif bg fld "references" is not return thenanswer "Make new list, or add to the existing one?" with "Cancel" or "New" or "Add"if it is "cancel" or it is empty then exit mouseUpif it is "New" then put return into bg fld "references"end ifanswer file "Where is your text?"put it into theFileif theFile is empty then exit mouseUpset cursor to watchput "(," & tab & "," & numtochar(5) into unrealFirsts--tab gets counted as part of word, not as whitespace--ASCII 5 is character for footnote--for ref that occurs initially in fnopen file theFilerepeat forever--set cursor to busyread from file theFile until "1" --only works for dates 999 < >2000if it is empty then exit repeatput it into stuffread from file theFile for 4 --read 3 digits and a, b, etcput it after stuffif checkDate(stuff) thenput getRef(stuff) into theRefif char 1 of theRef is "1" then --i.e. author date, dateput theRef into the last word of prevRefput prevRef into theRefend ifif return & theRef is not in bg fld "references" then put theRef & return after bg fld "references"end ifput theRef into prevRefend repeatclose file theFilesort lines of bg fld "references"beep 2end mouseUpfunction checkDate theStuff --last word should be date between 999 < > 2000put the length of theStuff into howLongput char (howLong-4) to (howLong-1) of theStuff into theDateif theDate >999 and theDate < 2000 or char 4 of theDate is "?" thenreturn trueelse return falseend checkDatefunction getRef theStuff --extract reference from last few wordsglobal unrealFirstsput charToNum(the last char of theStuff) into lastNumif lastNum < 97 or lastNum > 122 then delete the last char of theStuff --not a, b, etcput the number of words in theStuff into totalput word total of theStuff into theRefrepeat with i = (total-1) down to 1 --last word is dateput word i of theStuff into thisWordif char 1 of thisWord is in unrealFirsts thendelete char 1 of thisWordput true into theFirstelse put false into theFirstif IsName(thisWord) thenput thisWord & space before theRefif theFirst thenexit repeatend ifelse exit repeatend repeatif word 1 of theRef is "and" then delete word 1 of theRefreturn theRefend getReffunction IsName theWord --is name or "and"global specialWordsif theWord is in specialWords then return true --special casesif theWord is "see" or theWord is "though" then return falseput char 1 of theWord into theCharput CharToNum(theChar) into theNumif theNum > 64 and theNum < 91 then --only works if the first letter is A-Zreturn trueelse return falseend IsName</script>
</part>
<part>
<id>3</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>487</left>
<top>21</top>
<right>512</right>
<bottom>42</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1012</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Return</name>
<script>on mouseUppop cdend mouseUp</script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>259</left>
<top>67</top>
<right>503</right>
<bottom>339</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Missing</name>
<script>on mouseUpif the optionKey is down then edit the script of meelseselect the clickLineput the selection into theEntryset the cursor to watchput the last word of theEntry into theDatedelete the last word of theEntryif the length of theDate = 5 then delete the last char of theDatelock screenpush cdgo cd 1put 0 into lastCdrepeat foreverfind theEntry in bg fld "1st last"if the result is "not found" or the number of this cd <= lastCd then --2nd conjunct means have circled aroundbeeppop cdexit repeatend ifput the number of this cd into lastCdif theDAte is in bg fld "date" then exit repeatend repeatend ifend mouseUp</script>
</part>
<part>
<id>8</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>93</left>
<top>43</top>
<right>167</right>
<bottom>65</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Clear List</name>
<script>on mouseUpput return into bg fld "references"end mouseUp</script>
</part>
<part>
<id>9</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>322</left>
<top>20</top>
<right>416</right>
<bottom>42</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Mark entries</name>
<script>on mouseUpset cursor to watchput empty into bg fld "missing"put "The following are missing:" & return into missingput return & "The following should be verified:" & return into verifyrepeat with i = 1 to the number of lines in bg fld "references"put word 1 of line i of bg fld "references" into firstName--put firstNameput 1 into howManyput empty into otherNamerepeat with j = 2 to (the number of words in line i of bg fld "references" -1)put word j of line i of bg fld "references" into itif it is "and" thenput 2 into howManynext repeatelse if it is "et" or it is "al" thenput 3 into howManyexit repeatend ifput it into otherNameend repeatput the last word of line i of bg fld "references" into theDateput the last char of theDate into lastCharif lastChar < 0 or lastChar > 9 then delete the last char of theDateelse put empty into lastCharput findMark(firstName,otherName,theDate,howMany) into foundif found is false thenput firstname && othername && theDate & lastChar & return after missingelse if found is "maybe" thenput firstname && othername && theDate & lastChar & return after verifyend ifend repeatif the number of lines in missing > 1 then put missing into bg fld "missing"if the number of lines in verify > 1 then put verify after bg fld "missing"beep 2end mouseUpfunction findMark firstName, otherName, theDate, howManylock screenpush this cd-- go cd 1put false into foundput 0 into thisCdrepeat foreverfind firstName in bg fld "1st last"if the result is "not found" thenput false into foundexit repeatend ifput thisCd into lastCdput the number of this cd into thisCdif thisCd <= lastCd then exit repeatif theDate is not in bg fld "date" then next repeatput the number of lines in bg fld "2+ last" into othersif howMany is 1 and others is 0 thenset the hilite of bg btn "include" to trueif found is true then put "maybe" into foundelse if found is false thenput true into foundend ifelse if howMany is 2 and others is 1 thenif otherName is in bg fld "2+ last" thenset the hilite of bg btn "include" to trueif found is true then put "maybe" into foundelse if found is false then put true into foundend ifelse if howMany is 3 and others > 1 thenset the hilite of bg btn "include" to trueif found is true then put "maybe" into foundelse if found is false then put true into foundend ifend repeatpop cdunlock screenreturn foundend findMark</script>
</part>
<part>
<id>10</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>334</left>
<top>44</top>
<right>408</right>
<bottom>66</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Clear List</name>
<script>on mouseUpput empty into bg fld "missing"end mouseUp</script>
</part>
<part>
<id>11</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>445</left>
<top>44</top>
<right>512</right>
<bottom>65</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Citations</name>
<script>on mouseUppush this cdgo to cd "Citation List"end mouseUp</script>
</part>
<part>
<id>12</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>146</left>
<top>104</top>
<right>365</right>
<bottom>219</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>HelpFld</name>
<script></script>
</part>
<part>
<id>14</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>220</left>
<top>21</top>
<right>319</right>
<bottom>39</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<name>Show Help</name>
<script>on mouseUpglobal showHelp, fromHereput not(the hilite of me) into showHelpset the hilite of me to showHelpif showHelp thendoCopyrightput true into fromHere --show helpFld when have clickedsend mouseEnter to the targetelseput false into fromHeresend mouseLeave to the targetend ifend mouseUpon mouseLeaveglobal fromHereif not fromHere then pass mouseLeave --don't hide helpFld when have clicked here (otherwise stack script will)else put false into fromHere --have already clicked hereend mouseLeave</script>
