REVO2700Time Line.TangibleH @ZEon mouseUp go to stack "Time Line.Tangible" end mouseUp 4PTangible Evidence History  U helvetica U helvetica Ucourier W helvetica U helvetica Utimes Ucourier U Segoe UIUPalatino LinotypeU helvetica W helvetica U8514oem W8514oemU8514oemcREVGeometryCachestackID6649 cREVGeneralscripteditorvscroll0breakpointconditionsscripteditorselection0 breakpointsbreakpointstatesAlreadyHiddenfalsecRevStandaloneSettings !Title Page:Real Evidence History P'on openCard pass openCard end openCardZcREVGeometryCacheIDs 12415825217926649114984674500066251043127365146663512060887568842792120608875688536451206088756886659912060887568876601120608875688866021206088756889207912060887568906598cREVGeometryCachetotal10order   card id 6597 @ZHcREVGeometryCacheIDs12017439366956623120174393669666241201743936681529312017446885864684120147883717366301201743936682660812017439366836609120174393668466101201743936685661112017439366866612120174393668766131201743936688661412017439366896615120174393669166181201743936693662012017439366946622cREVGeometrycachetotal16order L @ZHcREVGeometryCacheIDs12017439366956623120174393669666241201743936681529312017446885864684120147883717366301201743936682660812017439366836609120174393668466101201743936685661112017439366866612120174393668766131201743936688661412017439366896615120174393669166181201743936693662012017439366946622cREVGeometrycachetotal16order L @cREVGeometryCacheIDs12017439366956623120174393669666241201743936681529312017439366826608120147883717366301201744688586468412017439366836609120174393668466101201743936685661112017439366866612120174393668766131201743936688661412017439366896615120174393669166181201743936693662012017439366946622cREVGeometrycachetotal16order L @jcREVGeometryCacheIDs12017439366956623120174393669666241201743936681529312017439366826608120147883717366301201744688586468412017439366836609120174393668466101201743936685661112017439366866612120174393668766131201743936688661412017439366896615120174393669166181201743936693662012017439366946622cREVGeometrycachetotal16orderL @jcREVGeometryCacheIDs12017439366956623120174393669666241201743936681529312017439366826608120147883717366301201744688586468412017439366836609120174393668466101201743936685661112017439366866612120174393668766131201743936688661412017439366896615120174393669166181201743936693662012017439366946622cREVGeometrycachetotal16orderL @jcREVGeometryCacheIDs12017439366956623120174393669666241201743936681529312017439366826608120147883717366301201744688586468412017439366836609120174393668466101201743936685661112017439366866612120174393668766131201743936688661412017439366896615120174393669166181201743936693662012017439366946622cREVGeometrycachetotal16orderL @jcREVGeometryCacheIDs12017439366956623120174393669666241201743936681529312017439366826608120147883717366301201744688586468412017439366836609120174393668466101201743936685661112017439366866612120174393668766131201743936688661412017439366896615120174393669166181201743936693662012017439366946622cREVGeometrycachetotal16orderL @jcREVGeometryCacheIDs12017439366956623120174393669666241201743936681529312017439366826608120147883717366301201744688586468412017439366836609120174393668466101201743936685661112017439366866612120174393668766131201743936688661412017439366896615120174393669166181201743936693662012017439366946622cREVGeometrycachetotal16orderL @jcREVGeometryCacheIDs12017439366956623120174393669666241201743936681529312017439366826608120147883717366301201744688586468412017439366836609120174393668466101201743936685661112017439366866612120174393668766131201743936688661412017439366896615120174393669166181201743936693662012017439366946622cREVGeometrycachetotal16orderL @jcREVGeometryCacheIDs12017439366956623120174393669666241201743936681529312017439366826608120147883717366301201744688586468412017439366836609120174393668466101201743936685661112017439366866612120174393668766131201743936688661412017439366896615120174393669166181201743936693662012017439366946622cREVGeometrycachetotal16orderL @jcREVGeometryCacheIDs12017439366956623120174393669666241201743936681529312017439366826608120147883717366301201744688586468412017439366836609120174393668466101201743936685661112017439366866612120174393668766131201743936688661412017439366896615120174393669166181201743936693662012017439366946622cREVGeometrycachetotal16orderL @jcREVGeometryCacheIDs12017439366956623120174393669666241201743936681529312017439366826608120147883717366301201744688586468412017439366836609120174393668466101201743936685661112017439366866612120174393668766131201743936688661412017439366896615120174393669166181201743936693662012017439366946622cREVGeometrycachetotal16orderL @jcREVGeometryCacheIDs12017439366956623120174393669666241201743936681529312017439366826608120147883717366301201744688586468412017439366836609120174393668466101201743936685661112017439366866612120174393668766131201743936688661412017439366896615120174393669166181201743936693662012017439366946622cREVGeometrycachetotal16orderL @jcREVGeometryCacheIDs12017439366956623120174393669666241201743936681529312017439366826608120147883717366301201744688586468412017439366836609120174393668466101201743936685661112017439366866612120174393668766131201743936688661412017439366896615120174393669166181201743936693662012017439366946622cREVGeometrycachetotal16orderL @jcREVGeometryCacheIDs12017439366956623120174393669666241201743936681529312017446885864684120147883717366301201743936682660812017439366836609120174393668466101201743936685661112017439366866612120174393668766131201743936688661412017439366896615120174393669166181201743936693662012017439366946622cREVGeometrycacheordertotal16L @jcREVGeometryCacheIDs12017439366956623120174393669666241201743936681529312017439366826608120147883717366301201744688586468412017439366836609120174393668466101201743936685661112017439366866612120174393668766131201743936688661412017439366896615120174393669166181201743936693662012017439366946622cREVGeometrycachetotal16orderL @jcREVGeometryCacheIDs12017439366956623120174393669666241201743936681529312017439366826608120147883717366301201744688586468412017439366836609120174393668466101201743936685661112017439366866612120174393668766131201743936688661412017439366896615120174393669166181201743936693662012017439366946622cREVGeometryCachetotal16orderL< @jcREVGeometryCacheorderL @jcREVGeometryCacheIDs1201743936681529312017439366826608120174468858646841201743936683660912017439366846610120174393668566111201743936686661212017439366876613120174393668866141201743936689661512017439366906617120174393669166181201743936693662012017439366946622120174393669566231201743936696662412014788371736630cREVGeometrycachetotal17orderL @jcREVGeometryCacheIDs1201743936681529312017439366826608120174468858646841201743936683660912017439366846610120174393668566111201743936686661212017439366876613120174393668866141201743936689661512017439366906617120174393669166181201743936693662012017439366946622120174393669566231201743936696662412014788371736630cREVGeometrycachetotal17orderLNetwork ManagerG x9on mouseUp go to card 2 of stack "Network" end mouseUp yO Q cREVGeneralscripteditorvscroll0 revUniqueID 1206088756890  group id 2792ion openCard if there is a bkgnd field id 6 then put "Card" && the number of this card && "of" && \ the number of cards into bkgnd field id 6 pass openCard end openCard ^K cREVGeneral revUniqueID 1206088756884= D6sx9?Î* R H )F2abRL )Mۂײڋ RT: )KhPTVRV )K8PTQtƬR[ MPTѬ BR] F0PWXRU CPP`؋PRV )NhPW`PRS+: )KhPUPRQ- )MPP R Q )F0PahPsp9p?8p  cp0 cp3 c xc x0c l00c fc f`?c c00c a`fca3 `gc`f00  `cf00  ``5fl8xqp|96s<xx8Nj6~ll6m6ٰfͶ̓m8mfٙͶ6ql6ٛl l mlmcm6fl<m6ٳfͳ́͛0fͰa86yl l m8>|co5fll6m6ٰfͶ̀m0f 6a 6٘l l m l0cl6fll6m6ٰfͶ̓m0mfͶ6al6ٛl l mlmcm5f<<l6qcͳ́0qp`8x< ll83g ``Ƅ0Ƅ `09qǞ͟q>yqqc98x8ǹ8p=x889fcf͛`ٶٶ8`ٶͶ`c`fll6mmml6`mmm9fcf͛`yٶ0`Ͷc`f34ٶͶ`ml 6f6ll66f6ٌml`clg ٳ8 6̌4Ͷml 6g>l<66g>qm<`clf y0̌4Ͷ`ml 6f 0ll66f 0ml`clf ٳ0 ̌4ٶͶ`ml 6f6ll66f6ٌml`clf ٳ0 ̌4q͞qm<6clf<63pl87<qp|96s<xx8Nj6~ll6m6ٰfͶ̓m8mfٙͶ6ql6ٛl l mlmcm6fl<m6ٳfͳ́͛0fͰa86yl l m8>|co5fll6m6ٰfͶ̀m0f 6a 6٘l l m l0cl6fll6m6ٰfͶ̓m0mfͶ6al6ٛl l mlmcm5f<<l6qcͳ́0qp`8x< ll83g ``Ƅ0Ƅ `09qǞ͟q>yqqc98x8ǹ8p=x889fcf͛`ٶٶ8`ٶͶ`c`fll6mmml6`mmm9fcf͛`yٶ0`Ͷc`f34ٶͶ`ml 6f6ll66f6ٌml`clg ٳ8 6̌4Ͷml 6g>l<66g>qm<`clf y0̌4Ͷ`ml 6f 0ll66f 0ml`clf ٳ0 ̌4ٶͶ`ml 6f6ll66f6ٌml`clf ٳ0 ̌4q͞qm<6clf<63pl87< 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 updateCardData   cREVGeneral revUniqueID 1206088756887 Card 1 of 21 Next cardG (on mouseUp go to next card end mouseUp vRA cREVGeneral revUniqueID 1206088756888 Pion openCard if there is a bkgnd field id 5 then put "Card" && the number of this card && "of" && \ the number of cards into bkgnd field id 5 pass openCard end openCard2 D`6@ s ?1~f`1ς̃11`f3`c1ã <11`<33ـ1̃ <11`<303ـ1x%f?1|03yx f<1`<3y1a0 61`<391a0 31`fc c91a0$11~f3 10s ?1~f`1ς̃11`f3`c1ã <11`<33ـ1̃ <11`<303ـ1x%f?1|03yx f<1`<3y1a0 61`<391a0 31`fc c91a0$11~f3 10 Table 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 newFieldgT4 !Title Page:Real Evidence History Card Index card id 6597 card id 6393 card id 5692 `@UNextC  (on mouseUp go to next card end mouseUp A PrevC  ,on mouseUp go to previous card end mouseUp @  HCCdNmbrOfHC  function cardData -- this handler stores the card data specified by the -- user. DO NOT MOVE THE POSITION OF THIS HANDLER! return "bkgnd" 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 updateCardDatag Card 2 of 5Network ManagerG  Aon mouseUp go to card 2 of stack "NETWORK MANAGER" end mouseUp Z1Q  DZ cREVGeneral revUniqueID 1206088756889"Time Lines of Documents & RecordsE | :on mouseUp go to stack "Time Line.Records" end mouseUp /`" cREVGeneral revUniqueID 1149846745000scripteditorvscroll0scripteditorselection0 LReal Evidenceion openCard if there is a bkgnd field id 1 then put "Card" && the number of this card && "of" && \ the number of cards into bkgnd field id 1 pass openCard end openCard( cREVGeneral revUniqueID 1201744688586Make New CardEh @@@@rY5Eon mouseUp doMenu "New Card" end mouseUp  <M9 cREVGeneral revUniqueID 1201478837173  Dp gs~w R*AUR}:_zURAZP8J]pVRyZ^JkPtR jBJ*pRyj^J6q3όRArP(J f<>fxγ6& $R}R_zp3 f60v 36 PRZAP330v33ƃ.ps~p3nj3<~07;pf@  30~`;]f 30n v13 c 60n03ρ<>fx @ `; ``>x8sq8mlٌc6ٌٰ0l|ٌc0yٰ0m`ٌc0ٌٰ0mlٌc6ٌٰ0x8cxq` <f0 0ǜxx〤<Ͷm0x;m 0xͰm0Ͷm >0ǜly88l|`l8` ̂ ` p`3 00 3>x830fx08{<< 8a8Ǒ 38fmg0lf16 lylm 30flf0lf16 <`|30fmf݃0lf16 l`` 30fmfݱ3lf16 l`alm 0cl86 <|a8~ Ȫ# !3 l0!IH!9#x#I2@~48 pot $2$ $!@ $!Dqps~w R*AUR}:_zURAZP8J]pVRyZ^JkPtR jBJ*pRyj^J6q3όRArP(J f<>fxγ6& $R}R_zp3 f60v 36 PRZAP330v33ƃ.ps~p3nj3<~07;pf@  30~`;]f 30n v13 c 60n03ρ<>fx @ `; ``>x8sq8mlٌc6ٌٰ0l|ٌc0yٰ0m`ٌc0ٌٰ0mlٌc6ٌٰ0x8cxq` <f0 0ǜxx〤<Ͷm0x;m 0xͰm0Ͷm >0ǜly88l|`l8` ̂ ` p`3 00 3>x830fx08{<< 8a8Ǒ 38fmg0lf16 lylm 30flf0lf16 <`|30fmf݃0lf16 l`` 30fmfݱ3lf16 l`alm 0cl86 <|a8~ Ȫ# !3 l0!IH!9#x#I2@~48 pot $2$ $!@ $!Dqp cREVGeneral revUniqueID 1201743936681  HCCdNmbrOfHC  function cardData -- this handler stores the card data specified by the -- user. DO NOT MOVE THE POSITION OF THIS HANDLER! return "bkgnd" 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 updateCardData4 cREVGeneral revUniqueID 1201743936682 Card 2 of 21 Next cardG x Mon mouseUp visual effect scroll left slowly go to next card end mouseUp iRA cREVGeneral revUniqueID 1201743936683 Previous cardG xPon mouseUp visual effect scroll right slowly go to previous card end mouseUp XH@ cREVGeneral revUniqueID 1201743936684 )h ,!cCurrentObjectjstack "K:/MarshalAll/Aussie-Scot MarshalPlan/MarshalNet08/Network/Evidence History/Time Line.Tangible.rev" cREVGeneral revUniqueID 1201743936685                    <  `@-Tangible (Real) Evidence Loge h ><Pon mouseUp go to stack "Tangible.Log" end mouseUp  <7Tangible Evidence Log cREVGeneral revUniqueID 1201743936686scripteditorvscroll0scripteditorselection0 Time)h m cREVGeneral revUniqueID 1201743936687                    < )h tW cREVGeneral revUniqueID 1201743936688                    <  `@[U )h tZ  cREVGeneral revUniqueID 1201743936689                    <  `@\XWitness HistoryE h y> von mouseUp visual effect shrink to center go to stack "Time Line.Witness" end mouseUp  < cREVGeneral revUniqueID 1201743936691  I.D. No.)h P cREVGeneral revUniqueID 1201743936693                    < Analyst)h   cREVGeneral revUniqueID 1201743936694                    < )h _ cREVGeneral revUniqueID 1201743936695                    <  Records.Loge+H P>@Oon mouseUp go to stack "Records.Log" end mouseUp  <1Log of Records & Documents cREVGeneral revUniqueID 1201743936696scripteditorvscroll0scripteditorselection0 What is this stack for?e w/)on mouseUp speakAlert "Welcome. This is a time line stack -- or, in fancy language, an event chronology stack. Use this stack to put possible interesting events and facts about tangible evidence in chronological order. But note this important point: in both event chronologies and scenarios events are arranged in temporal order. But there is an important difference between scenarios and event chronologies. In scenarios the causal connections between events in time are described or conjectured. An event chronology, by contrast, is a slap-dash thing: in an event chronology -- that is, in a time line -- nothing is said, asserted, or conjectured about the connections between events in time. Well, no more explanations. Now it is time for you to get to work. As always, I wish you the best of luck." end mouseUp on speakAlert theText if theText is empty then exit speakAlert -- skip the rest try -- in case revSpeak isn't installed revSpeak theText catch theError -- if the "revSpeak" command fails put return & "(Cannot speak text on this system.)" \ after theText beep -- make a sound to get the user's attention end try answer theText end speakAlert  <'=What is this stack for? cREVGeneral revUniqueID 1043127365146scripteditorvscroll0scripteditorselection517 Peter Tillers+H+# cREVTable currentviewPeter Tillers - 2010  cREVGeneral revUniqueID 1241582521792  Peter Tillers - 2010