REVO2700J Records.LogH  4P_% U helvetica Ucourier U helvetica Ucourier W helvetica Ums sans serif UArial UArial U Book Antiqua U Book Antiqua W Book Antiqua U helvetica U Segoe UI UTahoma UusesystemfontUPalatino Linotype WTimes New Roman UTimes New RomanUTimes New RomanUTimes New Roman UPalatino Linotype UPalatino LinotypeUPalatino LinotypeWTimes New Roman W helveticaWPalatino LinotypeW@Gulim W@Gulim W@Gulim U@Gulim U@Gulim UTempus Sans ITC UVelvenda Cooler UVerdana U Teen Light UTahoma U8514oem cREVGeneralscripteditorvscroll0breakpointconditionsscripteditorselection0 breakpointsbreakpointstatesAlreadyHiddenfalsecREVGeometryCachestackID19144cRevStandaloneSettingsD Title Page Pon openCard if there is a card field id 1 then put "Card" && the number of this card && "of" && \ the number of cards into card field id 1 pass openCard end openCardcREVGeometryCacheIDs 12012144211941740112012150975781912812012144211951774212415825217921913212012144211963714120121442119719099120121442119819100120121442119919101106185738052119126120121442120019102120121442120219104cREVGeometrycachetotal11order  cREVGeneralCJJJJJJJJF Document 1 @cREVGeometryCacheIDs123803109792319112123803109792419113123803109792719116124607451522619135123803109792819117123803109792919118123803109793019119123803109793119120123803109793219121123803109793319122123803109791818247123803109792019109123803109791918619123803109792119110123803109792219111123672271968919133cREVGeometryCacheorder total16JJ @dcREVGeometryCacheIDs123803109792319112123803109792419113123803109792719116124607451522619135123803109792819117123803109792919118123803109793019119123803109793119120123803109793219121123803109793319122123803109791818247123803109792019109123803109791918619123803109792119110123803109792219111123672271968919133cREVGeometrycachetotal16orderJJ @dcREVGeometryCacheIDs123803109792319112123803109792419113123803109792719116124607451522619135123803109792819117123803109792919118123803109793019119123803109793119120123803109793219121123803109793319122123803109791818247123803109792019109123803109791918619123803109792119110123803109792219111123672271968919133cREVGeometrycachetotal16orderJJ @dcREVGeometryCacheIDs123803109792319112123803109792419113123803109792719116124607451522619135123803109792819117123803109792919118123803109793019119123803109793119120123803109793219121123803109793319122123803109791818247123803109792019109123803109791918619123803109792119110123803109792219111123672271968919133cREVGeometrycachetotal16orderJJ @dcREVGeometryCacheIDs123803109792319112123803109792419113123803109792719116124607451522619135123803109792819117123803109792919118123803109793019119123803109793119120123803109793219121123803109793319122123803109791818247123803109792019109123803109791918619123803109792119110123803109792219111123672271968919133cREVGeometrycachetotal16orderJJ @dcREVGeometryCacheIDs123803109792319112123803109792419113123803109792719116123803109792819117124607451522619135123803109793019119123803109792919118123803109793119120123803109793219121123803109793319122123803109791818247123803109791918619123803109792019109123803109792119110123672271968919133123803109792219111cREVGeometrycachetotal16orderJJ @dcREVGeometryCacheIDs123803109792319112123803109792419113123803109792719116123803109792819117124607451522619135123803109793019119123803109792919118123803109793119120123803109793219121123803109793319122123803109791818247123803109791918619123803109792019109123803109792119110123672271968919133123803109792219111cREVGeometrycachetotal16orderJJ @dcREVGeometryCacheIDs123803109792319112123803109792419113123803109792719116123803109792819117124607451522619135123803109793019119123803109792919118123803109793119120123803109793219121123803109793319122123803109791818247123803109791918619123803109792019109123803109792119110123672271968919133123803109792219111cREVGeometrycachetotal16orderJJ @dcREVGeometryCacheIDs123803109792319112123803109792419113123803109792719116124607451522619135123803109792819117123803109792919118123803109793019119123803109793119120123803109793219121123803109793319122123803109791818247123803109792019109123803109791918619123803109792119110123803109792219111123672271968919133cREVGeometrycachetotal16orderJ J HCCdNmbrOfHC' function cardData -- this handler stores the card data specified by the -- user. DO NOT MOVE THE POSITION OF THIS HANDLER! return "card" end cardData on newfield -- create a new openCard handler when pasted put word 1 of the long name of me into fieldType if fieldType is "Bkgnd" then set sharedText of me to true addStackScript fieldType updateCardData fieldType end newfield on deleteField removeScript end deleteField on removeScript -- removes the openCard handler added on newField put cardData() into fieldType get script of fieldType if line 1 of scriptBody(fieldType) is in it then put offset(line 1 of scriptBody(fieldType),it) into startBlock put startBlock + number of chars in scriptBody(fieldType) + \ the number of lines in scriptBody(fieldType) + 1 into endBlock delete char startBlock to endBlock of it set script of fieldType to it end if end removeScript on mouseUp -- rebuilds the openCard handler in the stack script if necessary addStackScript cardData() end mouseUp on addStackScript fieldType get script of fieldType if "openCard" is in it then if (fieldType && "field id" && id of me) is not in it then put scriptBody(fieldType) & return after char \ (offSet("openCard",it) + 8) of it set script of fieldType to it end if else if it <> empty then if last char of it = return then put return after it else put return & return after it end if -- write the full handler put "on openCard" & return & scriptBody(fieldType) & return & \ "pass openCard" & return & "end openCard" after it set script of fieldType to it end if end addStackScript function scriptBody fieldType -- returns the body of the openCard handler return "if there is a" && fieldType && "field id" && id of me & return & \ "then put" && quote & "Card" & quote && "&& the number of this card && " & \ quote & "of" & quote && "&& \" & return & "the number of cards into" && \ fieldType && "field id" && id of me end scriptBody on updateCardData fieldType -- write range back to the data handler in this script -- doesn't take effect until idle get script of me put quote & fieldType & quote into newData put newData into char offset(quote,it) to (offSet("end",it) - 2) of it set script of me to it end updateCardDataD0 cREVGeneral revUniqueID 1201214421197 D Card 1 of 10J Next Cardg  IKDcon mouseUp visual effect scroll left go to next card end mouseUp  <1HA Next Card cREVGeneral revUniqueID 1201214421198scripteditorvscroll0scripteditorselection43 JPrevious cardg xFon mouseUp visual effect scroll right go to prev card end mouseUp w<H@'previous card (last card in the stack) cREVGeneral revUniqueID 1201214421199scripteditorvscroll0scripteditorselection40 JNetwork ManagerG h$ HUon mouseUp go to card 2 of stack "Network" end mouseUp  <-JQ cREVGeneral revUniqueID 1201214421200 J Start LogG eJkon mouseUp visual effect scroll left slowly go to next card end mouseUp  <lZ cREVGeneral revUniqueID 1201214421202scripteditorvscroll0scripteditorselection65 Ci|cF cREVGeneral revUniqueID 1201214421194EN Dg>" . ;" .;" .;" .;" .;" .<01 `f01 `;001Ì0"101Ì .001c0001c0;00131"0010 .00101010;0010" `fa 0 .<;" .;" .;" .;" .;" .;" .;" ." . ;" .;" .;" .;" .;" .<01 `f01 `;001Ì0"101Ì .001c0001c0;00131"0010 .00101010;0010" `fa 0 .<;" .;" .;" .;" .;" .;" .;" . cREVGeneral revUniqueID 1201214421195 I Card Index}J D  `0 00 011` 03` 0y3`À 0ك3À 03` f3` 910` 00 `0 00 011` 03` 0y3`À 0ك3À 03` f3` 910` 00 JTable of Contents xon mouseDown if the shiftKey is down then sort lines of me else if the optionKey is down then createCardNameList -- rebuild list exit mouseDown else -- go to the card associated with the click currentLine put the ticks into theTicks repeat until the mouse is up if the mouseloc is within the rect of target then currentLine put the ticks into theTicks else select empty end repeat if (the ticks - theTicks) < 10 then get the value of the selectedLine if it is empty then exit mouseDown visual effect iris open if the style of me is "Scrolling" then set scroll of me to 0 go cd it end if end if select empty end mouseDown on currentLine put (((the mouseV - top of the target) - 4) + scroll of the target)\ div (textHeight of the target) + 1 into theLine select char 1 to ((number of chars in (line theLine of target)) + 1)\ of line theLine to (theLine + 1) of target end currentLine on createCardNameList -- create the list of card names set the dontWrap of me to true set the lockText of me to true if the style of me is "Scrolling" then set scroll of me to 0 if "bkgnd" is in the target then set the sharedText of target to true put empty into me repeat with curCard = 1 to number of cards set cursor to busy get the short name of card curCard put it into line curCard of me if the length of me > 30000 then answer "Sorry, but this field's 30000" &&\ "character limit has been reached." -- exit to HyperCard end if end repeat end createCardNameList on newField -- auto builds a new list when this field is pasted createCardNameList end newFieldE Title Page Card Index Document 1 Document 2 Document 3 Document 4 Document 5 card id 4746 card id 4939 card id 5264 card id 5499J `@oF D* cREVGeneral revUniqueID 1201214421196 JTangible v. Documentary(`$3LcCurrentObjectstack "C:/Users/Peter Tillers/Documents/MarshalAll/MarshalNet06/Network/Source Material/Evidence/Non-Human Sources/Document Log.rev" cREVGeneral revUniqueID 1061857380521 D Documentary evidence and records are a subset of tangible & "real" evidence. The tangible evidence log and the tangible evidence file include the documents & recods listed in the documents & records log and stored, or recorded, in the tangible & real evidence file, or database.J Tangible.Logm ow"Pon mouseUp go to stack "Tangible.Log" end mouseUp  2!n Log of Real & Tangible Evidence cREVGeneral revUniqueID 1201215097578scripteditorvscroll0scripteditorselection0 JPeter Tillers+H@@# cREVTable currentviewPeter Tillers - 2010 cREVGeneral revUniqueID 1241582521792 D Peter Tillers - 2010Jgroup id 19135i cREVGeneral revUniqueID 1246074515226GGgroup id 18247ion openStack hide message box show menuBar pass openStack end openStack on openCard if there is a bkgnd field id 46 then put "Card" && the number of this card && "of" && \ the number of cards into bkgnd field id 46 pass openCard end openCardv cREVGeneral revUniqueID 1238031097918scripteditorvscroll0scripteditorselection0H DvU@U@U@& U @ 0U 31|b @6uq0eU f910 G110U 1ܳ2 C154eU 8b@U@UUUUꂪUX5U*UX5U>UX#U"UX#U;#UXb"$"Un"jUX"U"zUX""uU"zUX"uU{"zUX#""uU"zUX"uUx |UX#U"UX#U;#UXb"$"Un"jUX"U"zUX""uU"zUX"uU{"zUX#""uU"zUX"uUx |