STAK ` %u "000H`(p@W\""""""""̪3̪3 @"""""D"DĀ hC0&0 "U""U"U"UU"Uwwww݀UUUUH0 D9D"AA"A>"t"%2d$LA*@ @ "t"G"q]APP +@ `[@-- General HouseCleaning Routines -- on openStack AddColor install global gTheStudentName,gThePERM,gTheExercise,gHasCQD, gOKToColorize,gWorkPath,gOkToLeave,gMailPath,gAutoMountStoreVol hide menubar hide msg -- pass openStack end openStack function getHomePathName put word 2 of the long name of this stack into LONG_NAME put the short name of this stack into SHORT_NAME delete char 1 of LONG_NAME delete last char of LONG_NAME put offset(SHORT_NAME,LONG_NAME) into BREAK_LOC put char 1 to BREAK_LOC-1 of LONG_NAME into storePath repeat while storePath contains ":" if there is a stack storePath&"Arch Home" then return storePath else delete last char of storePath repeat until last char of storePath is ":" delete last char of storePath end repeat end if end repeat end getHomePathName on mouseEnter showHelp end mouseEnter on exitCard DIR global gTheEffect if DIR="F" then put fromRight into gTheEffect go to next card else put fromLeft into gTheEffect go to prev card end if end exitCard on doMenu menuItem if menuItem is "Last" then go to card "End" else pass doMenu end doMenu on showCardHelp answer "There is No Additional Help for This Card." end showCardHelp on openCard put the number of this cd&&"of"&&the number of cards into bg fld "Card No" put the short name of this card into theCard if there is a bg btn "Jump" then repeat with cnt = 1 to the number of lines of bg btn "Jump" if line cnt of bg btn "Jump" is theCard then exit repeat end repeat select line cnt of bg btn "Jump" else if there is a cd btn "Jump" then repeat with cnt = 1 to the number of lines of cd btn "Jump" if line cnt of cd btn "Jump" is theCard then exit repeat end repeat select line cnt of cd btn "Jump" end if end if Send colorMe to this card -- pass openCard end openCard on closeCard set cursor to watch lock screen -- pass closeCard end closeCard on centerHoriz theObject put the width of the card window div 2 into theCenter put the loc of theObject into theLoc put theCenter into item 1 of theLoc set the loc of theObject to theLoc end centerHoriz on colorMe global gTheEffect if gTheEffect is empty then put "stamp" into gTheEffect AddColor colorCard,gTheEffect,30 if there is a cd btn "Cover" then hide cd btn "Cover" end colorMe on closeStack AddColor remove show cd btn "Cover" of cd 1 --pass closeStack end closeStack on suspendStack end suspendStack on resumeStack end resumeStack on showHelp put line 1 of the script of the target into theHelp delete char 1 to 2 of theHelp delete char (offset("--",theHelp)) to length(theHelp) of theHelp put theHelp into bg fld "Help" balloon theHelp end showHelp function getPath put word 2 of the long name of this stack into LONG_NAME delete char 1 of LONG_NAME delete last char of LONG_NAME repeat until last char of LONG_NAME is ":" delete last char of LONG_NAME end repeat return LONG_NAME end getPath function getVol thePath put offset(":",thePath) into COL_LOC put char 1 to COL_LOC-1 of thePath into volName return volName end getVol function getLastPathItem PATH put empty into FILE_NAME repeat with CNT=the number of chars of PATH down to 1 if char CNT of PATH is not ":" then put char CNT of PATH before FILE_NAME else exit repeat end if end repeat return FILE_NAME end getLastPathItem function getFilePath thePath repeat with CNT=the length of thePath down to 1 if char CNT of thePath is ":" then return thePath else delete char CNT of thePath end if end repeat end getFilePath MASTu*%jXXWLISTu0 @& *PAGE *u %F1p< -dQh0p"p`.@ FREEFree Object  X*l  !Big Text,&  !Small Text*&; Complete 9  Go Home--This button lets you Quit.--help TIME_LAPSE PCT DECAYED MIN_TIME -- end globalsToDump on mouseUp cleanUp if there is a cd btn "Cover" of cd 1 then show cd btn "Cover" of cd 1 send closeCard to this cd doMenu "Quit HyperCard" end mouseUp on cleanUp set cursor to watch put empty into bkgnd field "Complete" of card "K-Ar Process" put empty into bkgnd field "Complete" of card "K-Ar Decay" put empty into bkgnd field "Complete" of card "C14 Process" put empty into bkgnd field "Complete" of card "C14 Decay" dumpGlobals end cleanUp on dumpGlobals put the script of me into theScript put empty into globalsToDump repeat with lineNum=4 to the number of lines of theScript if line lineNum of theScript contains "end globalsToDump" then exit repeat else put (line lineNum of theScript)&return after globalsToDump end if end repeat delete last char of globalsToDump repeat with lineNum=1 to the number of lines of globalsToDump put "global"&&line lineNum of globalsToDump into setTheGlobal do setTheGlobal put "put empty into"&&line lineNum of globalsToDump into dumpTheGlobal do dumpTheGlobal end repeat end dumpGlobals~ <o RD Help--This button calls up a screen of more help.--help on mouseUp showCardHelp end mouseUp  p Previous Card--This button lets you go to the previous card.--help --None--PICTRes on mouseUp exitCard "B" end mouseUp Fy p Next Card--This button lets you go to the next card.--help --None--PICTRes on mouseUp exitCard "F" end mouseUp E  Jump--This pull down menu lets you jump to a specific card.--help on mouseUp global gTheEffect put "rectOpen" into gTheEffect go to card (the selectedText of me) end mouseUpbE Card No--This field shows you where you are in the stack.--help F  Help--This is the help field.--help .;g Picture Frame Beginning Contents Relative Techniques Superposition Stratigraphy End Deposit Cross-Dating Absolute Start Artifacts of Known Age Dendrochronology Log Section Dendro 3 Master Dendrogram Dendro Simulation Dendro Limits Radiocarbon Dating C14 Movie 1 C14 Movie 2 C14 Decay Text C14 Decay C14 Process C14 Limits 1 C14 Limits 2 C14 Limits 3 C14 Limits 4 C14 Limits 5 Potassium-Argon Dating K Bombardment Rock Melting K-Ar Decay K-Ar Process K-Ar Limits 1 K-Ar Limits 2 K-Ar Limits 3 EndBase@BMAPX `FREEFree Object * l&< Ratio,'RQ Draw Framei Let Me See It Again--This button lets you see the animation over.--help on mouseUp clearIt simDecay end mouseUp,S4 Graph Frame$/A 12C$/B, 14CTz  !Information on mouseUp hide me simDecay end mouseUpD @ Coveron mouseUp hide me end mouseUp1 of 11:2.59G  In this simulation, a unit of molten rock cools and crystallizes. The ratio of K-40 to Ar-40 is plotted. Note that time is expressed in millions of years on this graph, as opposed to thousands of years in the C-14 graph. Click Here to See SimulationYesK-Ar Decayon openCard if bkgnd field "Complete"<>"Yes" then show card field "Information" hide card button "Let Me See It Again" enable bkgnd button "Next Card" else show card button "Let Me See It Again" enable bkgnd button "Next Card" end if pass openCard end openCard on closeCard lock screen clearIt hide card button "Let Me See It Again" pass closeCard end closeCard on simDecay colorMe put 0 into TIME_LAPSE repeat while TIME_LAPSE<6000000000 put TIME_LAPSE+200000000 into TIME_LAPSE put 100*(exp((TIME_LAPSE*31556736)*-0.00000000000000001689624)) into PCT put (1000000*(1-(PCT/100)))*.11 into AR_CNT put (1000000*(PCT/100)) into K_CNT choose rectangle tool set lineSize to 1 set filled to true set centered to false set pattern to 14 set dragSpeed to 576 put the Left of cd btn "Graph Frame"-5 into theLeft put the bottom of cd btn "Graph Frame"-1 into theBottom put the top of cd btn "Graph Frame" into theTop put (theLeft+round(TIME_LAPSE/20000000))-5 into barLeft put (theLeft+round(TIME_LAPSE/20000000))+5 into barRight put theBottom-round(K_CNT/5000) into barTop drag from barLeft,theBottom to barRight,barTop put barLeft&","&barTop&","&barRight&","&theBottom into theRect AddColor "colorRect","cd",theRect,"26214,52428,65535" set pattern to 1 put (theLeft+round(TIME_LAPSE/20000000))-5 into barLeft put (theLeft+round(TIME_LAPSE/20000000))+5 into barRight put theBottom-round(AR_CNT/5000) into barTop drag from barLeft,theBottom to barRight,barTop put barLeft&","&barTop&","&barRight&","&theBottom into theRect AddColor "colorRect","cd",theRect,"0,0,30583" set the numberFormat to 0.000000 put AR_CNT/(1000000*(PCT/100)) into RATIO set the numberFormat to 0.00 put "1:"&RATIO into card field "Ratio" wait 30 ticks end repeat choose browse tool put "Yes" into bkgnd field "Complete" show card button "Let Me See It Again" enable bkgnd button "Next Card" AddColor "colorRect","cd",the rect of cd btn "Let Me See It Again","52428,52428,52428","2" end simDecay on clearIt -- Clear the Screen lock screen choose select tool drag from the topLeft of cd btn "Graph Frame" to the bottomRight of cd btn "Graph Frame" doMenu "Clear Picture" choose browse tool put "1.5:1" into card field "Ratio" unlock screen end clearIt `BMAP'9RQ  @0?84XwpBGX #%H30`%,8GEf`,|$D h% $e 03f30P$ $@f`4G @Sf2#<R` @K| s27 (V㱉9AĔ88G 0bـ8030@fCB" 0@@2080?,CC8B|8B8BC0q,CR}Bt}B|BCp> %0(%p`< x@ ,4Rq}B|_}3|BC0@2 0 %0?0?B 1# D3!w 0(l,w "Yes" then show card field "Information" hide card button "Let Me See It Again" enable bkgnd button "Next Card" else show card button "Let Me See It Again" enable bkgnd button "Next Card" end if pass openCard end openCard on closeCard lock screen clearIt hide card button "Let Me See It Again" pass closeCard end closeCard on simDecay colorMe put 0 into TIME_LAPSE repeat while TIME_LAPSE<6000000000 put TIME_LAPSE+200000000 into TIME_LAPSE put 100*(exp((TIME_LAPSE*31556736)*-0.00000000000000001689624)) into PCT put (1000000*(1-(PCT/100)))*.11 into AR_CNT put (1000000*(PCT/100)) into K_CNT choose rectangle tool set lineSize to 1 set filled to true set centered to false set pattern to 14 set dragSpeed to 576 put the Left of cd btn "Graph Frame"-5 into theLeft put the bottom of cd btn "Graph Frame"-1 into theBottom put the top of cd btn "Graph Frame" into theTop put (theLeft+round(TIME_LAPSE/20000000))-5 into barLeft put (theLeft+round(TIME_LAPSE/20000000))+5 into barRight put theBottom-round(K_CNT/5000) into barTop drag from barLeft,theBottom to barRight,barTop put barLeft&","&barTop&","&barRight&","&theBottom into theRect AddColor "colorRect","cd",theRect,"26214,52428,65535" set pattern to 1 put (theLeft+round(TIME_LAPSE/20000000))-5 into barLeft put (theLeft+round(TIME_LAPSE/20000000))+5 into barRight put theBottom-round(AR_CNT/5000) into barTop drag from barLeft,theBottom to barRight,barTop put barLeft&","&barTop&","&barRight&","&theBottom into theRect AddColor "colorRect","cd",theRect,"0,0,30583" set the numberFormat to 0.000000 put AR_CNT/(1000000*(PCT/100)) into RATIO set the numberFormat to 0.00 put "1:"&RATIO into card field "Ratio" wait 30 ticks end repeat choose browse tool put "Yes" into bkgnd field "Complete" show card button "Let Me See It Again" enable bkgnd button "Next Card" AddColor "colorRect","cd",the rect of cd btn "Let Me See It Again","52428,52428,52428","2" end simDecay on clearIt -- Clear the Screen lock screen choose select tool drag from the topLeft of cd btn "Graph Frame" to the bottomRight of cd btn "Graph Frame" doMenu "Clear Picture" choose browse tool put "1.5:1" into card field "Ratio" unlock screen end clearIt clearIt `BKGDX *l  !Big Text,&  !Small Text*&; Complete 9  Go Home--This button lets you Quit.--help TIME_LAPSE PCT DECAYED MIN_TIME -- end globalsToDump on mouseUp cleanUp if there is a cd btn "Cover" of cd 1 then show cd btn "Cover" of cd 1 send closeCard to this cd doMenu "Quit HyperCard" end mouseUp on cleanUp set cursor to watch put empty into bkgnd field "Complete" of card "K-Ar Decay" dumpGlobals end cleanUp on dumpGlobals put the script of me into theScript put empty into globalsToDump repeat with lineNum=4 to the number of lines of theScript if line lineNum of theScript contains "end globalsToDump" then exit repeat else put (line lineNum of theScript)&return after globalsToDump end if end repeat delete last char of globalsToDump repeat with lineNum=1 to the number of lines of globalsToDump put "global"&&line lineNum of globalsToDump into setTheGlobal do setTheGlobal put "put empty into"&&line lineNum of globalsToDump into dumpTheGlobal do dumpTheGlobal end repeat end dumpGlobals~ <o RD Help--This button calls up a screen of more help.--help on mouseUp showCardHelp end mouseUp  p Previous Card--This button lets you go to the previous card.--help --None--PICTRes on mouseUp exitCard "B" end mouseUp Fy p Next Card--This button lets you go to the next card.--help --None--PICTRes on mouseUp exitCard "F" end mouseUp E  Jump--This pull down menu lets you jump to a specific card.--help on mouseUp global gTheEffect put "rectOpen" into gTheEffect go to card (the selectedText of me) end mouseUpbE Card No--This field shows you where you are in the stack.--help F  Help--This is the help field.--help .;g Picture Frame Beginning Contents Relative Techniques Superposition Stratigraphy End Deposit Cross-Dating Absolute Start Artifacts of Known Age Dendrochronology Log Section Dendro 3 Master Dendrogram Dendro Simulation Dendro Limits Radiocarbon Dating C14 Movie 1 C14 Movie 2 C14 Decay Text C14 Decay C14 Process C14 Limits 1 C14 Limits 2 C14 Limits 3 C14 Limits 4 C14 Limits 5 Potassium-Argon Dating K Bombardment Rock Melting K-Ar Decay K-Ar Process K-Ar Limits 1 K-Ar Limits 2 K-Ar Limits 3 EndBase @mits 3 C14 Limits 4 C14 Limits 5 Potassium-Argon Dating K Bombardment Rock Melting K-Ar Decay K-Ar Process K-Ar Limits 1 K-Ar Limits 2 K-Ar Limits 3 EndBase @T T3;NN;h0<N;iN;i(3 ;NN;h0<N;i0< N;i0<N;i0<N;i0<N;iN;i0<N;i3;zN;jN;iJ9;e$g&32;NN;h0<"N;i0<&N;i0<,N;i0<N;i0<N;i0<:N;i3>;3F;~N;h3P;NN;h0<"N;i0<fN;i0<lN;i0<N;i0<N;i0<:N;i3;3;~N;h3w;NN;h0<"N;i0<N;i0<N;i0<N;i0<N;i0<N;i3;3;~N;h`3;NN;h3;NN;h0<"N;i0<fN;i0<lN;i0<N;i0<N;i0<:N;i3>;3F;~N;h3;NN;h0<"N;i0<N;i0<N;i0<N;i0<N;i0<N;i3;3;~N;h3;NN;h3;NN;hN;i4Nu3;NN;hN;iNulT`BMAP'9RQ  @0?84XwpBGX #%H30`%,8GEf`,|$D h% $e 03f30P$ $@f`4G @Sf2#<R` @FREEFree Object 0000000003833351 into DECAY_CONSTANT put 31556736 into SEC_PER_YR put round((ln(REMAINING)/DECAY_CONSTANT)/SEC_PER_YR) into YEARS_BP put round((ln(1-STD_REM)/DECAY_CONSTANT)/SEC_PER_YR) into STD_BP set the numberFormat to 0 if the length of YEARS_BP>3 then if the length of YEARS_BP=4 then put char 1 of YEARS_BP&","&char 2 to 4 of YEARS_BP into YEARS_BP else put char 1 to 2 of YEARS_BP&","&char 2 to 4 of YEARS_BP into YEARS_BP end if end if put YEARS_BP&&""&&STD_BP&&"Years B.P."into card field "Radiocarbon Years" --Clean up When You're Finished-- lock screen hideBg?< /*HnBg/ SN5_Jg,.` jf|` |`5|@ G* L N^NuNVH0.. G) G$P/<zHnN=RB/<4NFS?*&_ Xg(-n =nBg?</*HnBg/ SN5_`5|@Jjg|`,. G* L N^NuNVH0.. G) G$P/<zHnN0=RB/<4NFS?*&_ XgBg?</*HnBg/ SN5_`5|@Jjg|`,. G* L N^NuNVp0.//. /.NN^NuNVH0.. G) G$P/<zHnN=R-n -nB/<4NFS?*&_ Xg*Bg?</*HnBg/ SN5_Jg,.` |`5|@ G TAILNu r det slut