[WARNING] WARNING: DO NOT EDIT THIS FILE DIRECTLY! Use only E-Studio to edit this file. Editing of this file from any other means is not supported and may corrupt the experiment design specification. Technical support will not be able to address any issue in regards to this file format. [Experiment] VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=85 _VersionPersist=6 Root="SessionProc" Author="Amy Eschman & Matt Lenhart (Psychology Software Tools, INC.)" Abstract="This example illustrates how to run trials for a specific amount of \r\ntime. The start time is determined before the TrialList object begins\r\nto run trials, and the end time is set to a defined amount of time \r\n(i.e., 30 seconds after the start time). While the trials are running,\r\nscript is used to determine if the block should be terminated. If the \r\ncurrent time >= the end time, the script jumps to the end of the\r\ncurrent trial, and the TrialList is terminated, ending the trials.\r\n\r\nNote that TrialList is set to a large number of trials. Only the number\r\nof trials that can be run within the allotted time will take place." Notes="" Creation=1159386120 [Device0] _VersionPersist=1 OpenDevice=1 Width=640 Height=480 Bpp=16 Name="Display" Class="Display" [Device1] _VersionPersist=1 OpenDevice=1 Channels=2 Samples=22050 Bps=16 Name="Sound" Class="Sound" [Device2] _VersionPersist=1 OpenDevice=1 CollectionMode=1 EmulateDeviceName="" CapsLock=0 NumLock=1 Name="Keyboard" Class="Keyboard" [Device3] _VersionPersist=1 OpenDevice=1 CollectionMode=1 EmulateDeviceName="" OpenMode=0 ShowCursor=0 Name="Mouse" Class="Mouse" [DataFile] WarnBeforeOverwrite=1 WarnIfConvertFailed=1 RemoveERecoveryFile=0 ReceiveFeedbackDuringDataFileConversion=1 LogLevel(2).Name="Block" LogLevel(3).Name="Trial" LogLevel(4).Name="SubTrial" LogLevel(5).Name="LogLevel5" LogLevel(6).Name="LogLevel6" LogLevel(7).Name="LogLevel7" LogLevel(8).Name="LogLevel8" LogLevel(9).Name="LogLevel9" LogLevel(10).Name="LogLevel10" [StartupInfo] DisplaySummary=1 UseDefaults=0 [StartupInfo1] Name="Subject" Prompt="Please enter the Subject Number (1-9999999, 0=No Data Logging):" DataType=0 Enabled=1 PromptEnabled=1 Default="1" Min=0 Max=9999999 PrivateFlags=268435477 PrivateInfo=1 [StartupInfo2] Name="Session" Prompt="Please enter the Session Number (1-9999999):" DataType=0 Enabled=1 PromptEnabled=1 Default="1" Min=1 Max=9999999 PrivateFlags=268435477 PrivateInfo=1 [StartupInfo3] Name="Group" Prompt="Please enter Subject's Group (0-32767):" DataType=0 Enabled=0 PromptEnabled=0 Default="1" Min=0 Max=32767 [StartupInfo4] Name="Name" Prompt="Please enter Subject's Name:" DataType=1 Enabled=0 PromptEnabled=0 Default="" MaxLength=255 [StartupInfo5] Name="Age" Prompt="Please enter Subject's Age (0-150):" DataType=0 Enabled=0 PromptEnabled=0 Default="0" Min=0 Max=150 [StartupInfo6] Name="Sex" Prompt="Please enter Subject's Sex:" DataType=2 Enabled=0 PromptEnabled=0 Default="male" Choice(1).Value="male" Choice(2).Value="female" [StartupInfo7] Name="Handedness" Prompt="Enter Subject's Handedness:" DataType=2 Enabled=0 PromptEnabled=0 Default="left" Choice(1).Value="left" Choice(2).Value="right" [StartupInfo8] Name="ResearcherID" Prompt="Please enter Researcher's ID:" DataType=0 Enabled=0 PromptEnabled=0 Default="1" Min=0 Max=32767 [Object0] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 _ItemList="Initialize;Introduction;BlockList;SetGoodbyeText;Goodbye" _VersionPersist=1 FlowLines(0).Count=5 FlowLines(0).FlowItem(0).Name="Initialize" FlowLines(0).FlowItem(1).Name="Introduction" FlowLines(0).FlowItem(2).Name="BlockList" FlowLines(0).FlowItem(3).Name="SetGoodbyeText" FlowLines(0).FlowItem(4).Name="Goodbye" LogData=1 Name="SessionProc" TypeName="Procedure" Tag="" Notes="" [Object1] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 _ItemList="BlockProc" _VersionPersist=1 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 Order=1 OrderBy=0 ResetEveryRun=1 HideLevelsWithZeroWeight=0 CycleDef=1 CycleValueSamples=1 CycleValueCondition="" ExitDef=1 ExitValueCycles=1 ExitValueSamples=1 ExitValueSeconds=0 ExitValueCondition="" LoadMethod=0 Filename="" UserAttributes=0 Attributes("Weight").DefaultValue="1" Attributes("Weight").Visible=1 Attributes("Weight").Width=75 Attributes("Weight").OrderIndex=0 Attributes("Nested").DefaultValue="" Attributes("Nested").Visible=1 Attributes("Nested").Width=75 Attributes("Nested").OrderIndex=1 Attributes("Procedure").DefaultValue="BlockProc" Attributes("Procedure").Visible=1 Attributes("Procedure").Width=75 Attributes("Procedure").OrderIndex=2 Levels=2 Levels(1).ValueString="1\t\tBlockProc\t" Levels(2).ValueString="1\t\tBlockProc\t" Name="BlockList" TypeName="List" Tag="" Notes="" [Object2] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 Logging("OnsetDelay").Log=-1 Logging("OnsetTime").Log=-1 Logging("DurationError").Log=-1 Logging("PreRelease").Log=0 Logging("Duration").Log=0 Logging("StartTime").Log=-1 Logging("OffsetTime").Log=-1 Logging("FinishTime").Log=-1 Logging("TimingMode").Log=0 Logging("CustomOnsetTime").Log=0 Logging("CustomOffsetTime").Log=0 Logging("ActionDelay").Log=0 Logging("ActionTime").Log=0 Logging("TargetOffsetTime").Log=0 Logging("TargetOnsetTime").Log=0 Logging("OffsetDelay").Log=0 Logging("RTTime").Log=0 Logging("ACC").Log=0 Logging("RT").Log=0 Logging("RESP").Log=0 Logging("CRESP").Log=0 Logging("Tag").Log=0 Input(0)=!Data0 _VersionPersist=1 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 Text="Welcome to the experiment.\n\nPress the spacebar to continue." ForeColor="black" BackColor="white" BackStyle="opaque" BorderColor="black" BorderWidth="0" X="center" Y="center" Width="100%" Height="100%" XAlign="center" YAlign="center" AlignHorizontal="center" AlignVertical="center" FontName="Courier New" FontSize="18" FontBold="Yes" FontItalic="No" FontUnderline="No" FontStrikeout="No" WordWrap=1 ClearAfter="No" Duration="-1" JumpLabel="" TimingMode=0 PreRelease="0" OnsetSync=1 OffsetSync=0 Name="Introduction" TypeName="TextDisplay" Tag="" Notes="" [Data0] DeviceName="Keyboard" DeviceClass="Keyboard" AllowableInput="{SPACE}" CorrectInput="" TimeLimit="" MaxCount="1" InputAction=1 SyncOwnerDuration=1 Enabled=1 FlushInputBuffer="Yes" TerminationInput="" UserTag="" ResponseMode="All" ProcessBackspace="Yes" [Object3] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 Logging("OnsetDelay").Log=-1 Logging("OnsetTime").Log=-1 Logging("DurationError").Log=-1 Logging("PreRelease").Log=0 Logging("Duration").Log=0 Logging("StartTime").Log=0 Logging("OffsetTime").Log=-1 Logging("FinishTime").Log=0 Logging("TimingMode").Log=0 Logging("CustomOnsetTime").Log=0 Logging("CustomOffsetTime").Log=0 Logging("ActionDelay").Log=0 Logging("ActionTime").Log=0 Logging("TargetOffsetTime").Log=0 Logging("TargetOnsetTime").Log=0 Logging("OffsetDelay").Log=0 Logging("RTTime").Log=0 Logging("ACC").Log=0 Logging("RT").Log=0 Logging("RESP").Log=0 Logging("CRESP").Log=0 Logging("Tag").Log=0 _VersionPersist=1 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 Text="" ForeColor="black" BackColor="white" BackStyle="opaque" BorderColor="black" BorderWidth="0" X="center" Y="center" Width="100%" Height="100%" XAlign="center" YAlign="center" AlignHorizontal="center" AlignVertical="center" FontName="Courier New" FontSize="18" FontBold="Yes" FontItalic="No" FontUnderline="No" FontStrikeout="No" WordWrap=1 ClearAfter="No" Duration="3000" JumpLabel="" TimingMode=0 PreRelease="0" OnsetSync=1 OffsetSync=0 Name="Goodbye" TypeName="TextDisplay" Tag="" Notes="" [Object4] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 _ItemList="TestIntro;BeginTestTime;TrialList" _VersionPersist=1 FlowLines(0).Count=3 FlowLines(0).FlowItem(0).Name="TestIntro" FlowLines(0).FlowItem(1).Name="BeginTestTime" FlowLines(0).FlowItem(2).Name="TrialList" LogData=1 Name="BlockProc" TypeName="Procedure" Tag="" Notes="" [Object5] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 Logging("Stim").Log=-1 Logging("CorrectResponse").Log=-1 _ItemList="TestProc" _VersionPersist=1 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 Order=1 OrderBy=0 ResetEveryRun=0 HideLevelsWithZeroWeight=0 CycleDef=0 CycleValueSamples=0 CycleValueCondition="" ExitDef=0 ExitValueCycles=5 ExitValueSamples=1 ExitValueSeconds=0 ExitValueCondition="" LoadMethod=0 Filename="" UserAttributes=2 Attributes("Weight").DefaultValue="1" Attributes("Weight").Visible=1 Attributes("Weight").Width=75 Attributes("Weight").OrderIndex=0 Attributes("Nested").DefaultValue="" Attributes("Nested").Visible=1 Attributes("Nested").Width=75 Attributes("Nested").OrderIndex=1 Attributes("Procedure").DefaultValue="NoResponseTrialProc" Attributes("Procedure").Visible=1 Attributes("Procedure").Width=75 Attributes("Procedure").OrderIndex=2 Attributes(1).Name="Stim" Attributes(1).DefaultValue="?" Attributes(1).VarType=8 Attributes(1).VarTypeInternal=8 Attributes(1).Visible=1 Attributes(1).Width=75 Attributes(2).Name="CorrectResponse" Attributes(2).DefaultValue="?" Attributes(2).VarType=8 Attributes(2).VarTypeInternal=8 Attributes(2).Visible=1 Attributes(2).Width=75 Levels=20 Levels(1).ValueString="1\t\tTestProc\ttable\t1\t" Levels(2).ValueString="1\t\tTestProc\twindow\t1\t" Levels(3).ValueString="1\t\tTestProc\tdesk\t1\t" Levels(4).ValueString="1\t\tTestProc\twall\t1\t" Levels(5).ValueString="1\t\tTestProc\twalk\t1\t" Levels(6).ValueString="1\t\tTestProc\ttower\t1\t" Levels(7).ValueString="1\t\tTestProc\tbook\t1\t" Levels(8).ValueString="1\t\tTestProc\tslam\t1\t" Levels(9).ValueString="1\t\tTestProc\tphone\t1\t" Levels(10).ValueString="1\t\tTestProc\tblind\t1\t" Levels(11).ValueString="1\t\tTestProc\tjop\t2\t" Levels(12).ValueString="1\t\tTestProc\tful\t2\t" Levels(13).ValueString="1\t\tTestProc\tpaol\t2\t" Levels(14).ValueString="1\t\tTestProc\thuyt\t2\t" Levels(15).ValueString="1\t\tTestProc\ttruve\t2\t" Levels(16).ValueString="1\t\tTestProc\tnumt\t2\t" Levels(17).ValueString="1\t\tTestProc\tworul\t2\t" Levels(18).ValueString="1\t\tTestProc\tmirat\t2\t" Levels(19).ValueString="1\t\tTestProc\tstemp\t2\t" Levels(20).ValueString="1\t\tTestProc\tclusp\t2\t" Name="TrialList" TypeName="List" Tag="" Notes="" [Object6] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 _ItemList="Fixation;MonitorFixationTime;Stimulus;MonitorStimulusTime;EndLabel" _VersionPersist=1 FlowLines(0).Count=5 FlowLines(0).FlowItem(0).Name="Fixation" FlowLines(0).FlowItem(1).Name="MonitorFixationTime" FlowLines(0).FlowItem(2).Name="Stimulus" FlowLines(0).FlowItem(3).Name="MonitorStimulusTime" FlowLines(0).FlowItem(4).Name="EndLabel" LogData=1 Name="TestProc" TypeName="Procedure" Tag="" Notes="" [Object7] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 Logging("OnsetDelay").Log=-1 Logging("OnsetTime").Log=-1 Logging("DurationError").Log=-1 Logging("PreRelease").Log=0 Logging("Duration").Log=0 Logging("StartTime").Log=0 Logging("OffsetTime").Log=0 Logging("FinishTime").Log=0 Logging("TimingMode").Log=0 Logging("CustomOnsetTime").Log=0 Logging("CustomOffsetTime").Log=0 Logging("ActionDelay").Log=0 Logging("ActionTime").Log=0 Logging("TargetOffsetTime").Log=0 Logging("TargetOnsetTime").Log=0 Logging("OffsetDelay").Log=0 Logging("RTTime").Log=0 Logging("ACC").Log=0 Logging("RT").Log=0 Logging("RESP").Log=0 Logging("CRESP").Log=0 Logging("Tag").Log=0 _VersionPersist=1 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 Text="+" ForeColor="black" BackColor="white" BackStyle="opaque" BorderColor="black" BorderWidth="0" X="center" Y="center" Width="100%" Height="100%" XAlign="center" YAlign="center" AlignHorizontal="center" AlignVertical="center" FontName="Courier New" FontSize="18" FontBold="Yes" FontItalic="No" FontUnderline="No" FontStrikeout="No" WordWrap=1 ClearAfter="No" Duration="0" JumpLabel="" TimingMode=0 PreRelease="0" OnsetSync=1 OffsetSync=0 Name="Fixation" TypeName="TextDisplay" Tag="" Notes="" [Object8] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 Logging("OnsetDelay").Log=-1 Logging("OnsetTime").Log=-1 Logging("DurationError").Log=-1 Logging("PreRelease").Log=0 Logging("Duration").Log=0 Logging("StartTime").Log=0 Logging("OffsetTime").Log=0 Logging("FinishTime").Log=0 Logging("TimingMode").Log=0 Logging("CustomOnsetTime").Log=0 Logging("CustomOffsetTime").Log=0 Logging("ActionDelay").Log=0 Logging("ActionTime").Log=0 Logging("TargetOffsetTime").Log=0 Logging("TargetOnsetTime").Log=0 Logging("OffsetDelay").Log=0 Logging("RTTime").Log=-1 Logging("ACC").Log=-1 Logging("RT").Log=-1 Logging("RESP").Log=-1 Logging("CRESP").Log=-1 Logging("Tag").Log=0 Input(0)=!Data1 _VersionPersist=1 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 Text="[Stim]" ForeColor="black" BackColor="white" BackStyle="opaque" BorderColor="black" BorderWidth="0" X="center" Y="center" Width="100%" Height="100%" XAlign="center" YAlign="center" AlignHorizontal="center" AlignVertical="center" FontName="Courier New" FontSize="18" FontBold="Yes" FontItalic="No" FontUnderline="No" FontStrikeout="No" WordWrap=1 ClearAfter="No" Duration="0" JumpLabel="" TimingMode=0 PreRelease="0" OnsetSync=1 OffsetSync=0 Name="Stimulus" TypeName="TextDisplay" Tag="" Notes="" [Data1] DeviceName="Keyboard" DeviceClass="Keyboard" AllowableInput="1234" CorrectInput="[CorrectResponse]" TimeLimit="-1" MaxCount="1" InputAction=0 SyncOwnerDuration=0 Enabled=1 FlushInputBuffer="Yes" TerminationInput="" UserTag="" ResponseMode="All" ProcessBackspace="Yes" [Object9] _Version=131072 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 _VersionPersist=1 Code="'The Fixation object will run for 1000ms, so two additional\n'start/end time variables are needed.\nDim lnFixationStartTime As Long\nDim lnFixationEndTime As Long\n\n'The start time gets the current Clock.Read value, while the\n'end time gets the start time plus the intended duration (1 second).\nlnFixationStartTime = Clock.Read\nlnFixationEndTime = lnFixationStartTime + 1000\n\n'This loop will run continuously until the Clock.Read value\n'has exceeded the target end time of the Fixation object.\nDo While Clock.Read < lnFixationEndTime\n\n\t'Check if the Clock.Read value has exceeded the overall\n\t'time limit for the block.\n\tIf Clock.Read >= lnEndTime Then\n\n\t\t'Flag that the target end time has been reached and\n\t\t'exit the While loop.\n\t\tboolBlockEnd = True\n\t\tExit Do\n\n\tEnd If\n\nLoop\n\n\nIf boolBlockEnd = True Then\n\n\t'Calculate the total duration of the block and log this\n\t'value as an attribute to verify that the block ran correctly.\n\tlnBlockDuration = Clock.Read - lnStartTime\n\tc.SetAttrib \"BlockDuration\", lnBlockDuration\n\n\t'Terminate the TrialList so no more trials are run, and\n\t'skip to the end of the trial.\n\tTrialList.Terminate\n\tGoto EndLabel\n\nEnd If" Name="MonitorFixationTime" TypeName="InLine" Tag="" Notes="" [Object10] _Version=131072 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 _VersionPersist=1 Code="'This loop will run continuously until a response has been\n'received by the Stimulus object.\nDo While Stimulus.InputMasks.IsPending()\n\n\t'Check if the Clock.Read value has exceeded the overall\n\t'time limit for the block.\t\n\tIf Clock.Read >= lnEndTime Then\n\n\t\t'Flag that the target end time has been reached and\n\t\t'exit the While loop.\n\t\tboolBlockEnd = True\n\t\tExit Do\n\n\tEnd If\n\nLoop\n\n\nIf boolBlockEnd = True Then\n\n\t'Calculate the total duration of the block and log this\n\t'value as an attribute to verify that the block ran correctly.\n\tlnBlockDuration = Clock.Read - lnStartTime\n\tc.SetAttrib \"BlockDuration\", lnBlockDuration\n\n\t'Terminate the TrialList so no more trials are run.\n\tTrialList.Terminate\n\nEnd If" Name="MonitorStimulusTime" TypeName="InLine" Tag="" Notes="" [Object11] _Version=131072 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 _VersionPersist=1 Code="'Initialize global variables.\nlnStartTime = 0\nlnEndTime = 0\nlnBlockDuration = 0\n\nboolBlockEnd = False" Name="Initialize" TypeName="InLine" Tag="" Notes="" [Object12] _Version=131072 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 _VersionPersist=1 Code="'The start time gets the current Clock.Read value, while the end\n'time gets the start time plus the target duration (30 seconds).\nlnStartTime = Clock.Read\nlnEndTime = lnStartTime + 30000" Name="BeginTestTime" TypeName="InLine" Tag="" Notes="" [Object13] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 Logging("OnsetDelay").Log=0 Logging("OnsetTime").Log=0 Logging("DurationError").Log=0 Logging("PreRelease").Log=0 Logging("Duration").Log=0 Logging("StartTime").Log=0 Logging("OffsetTime").Log=0 Logging("FinishTime").Log=0 Logging("TimingMode").Log=0 Logging("CustomOnsetTime").Log=0 Logging("CustomOffsetTime").Log=0 Logging("ActionDelay").Log=0 Logging("ActionTime").Log=0 Logging("TargetOffsetTime").Log=0 Logging("TargetOnsetTime").Log=0 Logging("OffsetDelay").Log=0 Logging("RTTime").Log=0 Logging("ACC").Log=0 Logging("RT").Log=0 Logging("RESP").Log=0 Logging("CRESP").Log=0 Logging("Tag").Log=0 Input(0)=!Data2 _VersionPersist=1 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 Text="You will be presented with a series of text strings. Press the '1' key if the text string is a word. Press the '2' key if the text string is not a word.\n\nYou will have 30 seconds to complete as many trials as possible.\n\nPress the spacebar to begin." ForeColor="black" BackColor="white" BackStyle="opaque" BorderColor="black" BorderWidth="0" X="center" Y="center" Width="100%" Height="100%" XAlign="center" YAlign="center" AlignHorizontal="center" AlignVertical="center" FontName="Courier New" FontSize="18" FontBold="Yes" FontItalic="No" FontUnderline="No" FontStrikeout="No" WordWrap=1 ClearAfter="No" Duration="-1" JumpLabel="" TimingMode=0 PreRelease="0" OnsetSync=1 OffsetSync=0 Name="TestIntro" TypeName="TextDisplay" Tag="" Notes="" [Data2] DeviceName="Keyboard" DeviceClass="Keyboard" AllowableInput="{SPACE}" CorrectInput="" TimeLimit="" MaxCount="1" InputAction=1 SyncOwnerDuration=1 Enabled=1 FlushInputBuffer="Yes" TerminationInput="" UserTag="" ResponseMode="All" ProcessBackspace="Yes" [Object14] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 _VersionPersist=1 Name="EndLabel" TypeName="Label" Tag="" Notes="" [Object15] _Version=131072 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=60 _VersionPersist=1 Code="'Set the Text property of the Goodbye object to present\n'the block duration to the subject.\nGoodbye.Text = \"Block Duration: \" & lnBlockDuration & _\n\t\"\\n\\nThank you for participating! Goodbye!\"" Name="SetGoodbyeText" TypeName="InLine" Tag="" Notes="" [UserScript] 'These variables will hold the start time and target end 'time of the block. Dim lnStartTime As Long Dim lnEndTime As Long 'This variable will be used to hold the actual duration 'of the block. Dim lnBlockDuration As Long 'This Boolean variable will flag when the target end time 'has been reached or exceeded. Dim boolBlockEnd As Boolean