[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=94
_VersionPersist=6
Root="SessionProc"
Author="Psychology Software Tools, Inc."
Abstract="The IsPending() method of a response object will return TRUE as long as all of the object’s input masks are pending. That is, as long as a) the time limit for a response has not expired, b) the maximum number of expected responses have not been received, and c) the termination response has not been received, IsPending() will return TRUE. Thus, a Do…While loop can be used to run script until the input masks are no longer pending.\r\n \r\nFor this to work, the response object’s Duration property must be set to 0 so that the script will begin executing immediately after the object appears on screen. To set the length of time that the object will remain on screen, you can specify a value in each input mask’s Time Limit property (i.e. 1000, 2000, infinite). Each input mask must also have their End Action property set to “(none)”.\r\n \r\nTo allow for more than one response and/or specify a termination response, select an input mask on the Duration/Input tab of the response object. Click the “Advanced” button to modify the Max Count and Termination Response properties.\r\n \r\nIf you are planning to copy the script from this sample into another experiment, you will also need to copy the script from the User tab of the Script window and paste it into the same place in your experiment. If you open the sample in E-Studio, go to 'View', and click on 'Script', your Script window will open."
Notes=""
Creation=1161713801

[Device0]
_VersionPersist=1
OpenDevice=1
Width=640
Height=480
Bpp=32
Name="Display"
Class="Display"

[Device1]
_VersionPersist=1
OpenDevice=1
CollectionMode=1
EmulateDeviceName=""
CapsLock=0
NumLock=0
Name="Keyboard"
Class="Keyboard"

[Device2]
_VersionPersist=1
OpenDevice=1
CollectionMode=1
EmulateDeviceName=""
OpenMode=0
ShowCursor=0
Name="Mouse"
Class="Mouse"

[Device3]
_VersionPersist=1
OpenDevice=0
Channels=2
Samples=22050
Bps=16
Name="Sound"
Class="Sound"

[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 (0-32767):"
DataType=0
Enabled=1
PromptEnabled=1
Default="1"
Min=0
Max=32767
PrivateFlags=268435477
PrivateInfo=1

[StartupInfo2]
Name="Session"
Prompt="Please enter the Session Number (0-32767):"
DataType=0
Enabled=1
PromptEnabled=1
Default="1"
Min=0
Max=32767
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=67
_ItemList="Introduction;BlockList;Goodbye"
_VersionPersist=1
FlowLines(0).Count=3
FlowLines(0).FlowItem(0).Name="Introduction"
FlowLines(0).FlowItem(1).Name="BlockList"
FlowLines(0).FlowItem(2).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=67
Logging("PracticeMode").Log=-1
_ItemList="BlockProc"
_VersionPersist=1
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=67
Order=0
OrderBy=0
ResetEveryRun=0
HideLevelsWithZeroWeight=0
CycleDef=0
CycleValueSamples=0
CycleValueCondition=""
ExitDef=0
ExitValueCycles=1
ExitValueSamples=1
ExitValueSeconds=0
ExitValueCondition=""
LoadMethod=0
Filename=""
UserAttributes=1
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=""
Attributes("Procedure").Visible=1
Attributes("Procedure").Width=75
Attributes("Procedure").OrderIndex=2
Attributes(1).Name="PracticeMode"
Attributes(1).DefaultValue="?"
Attributes(1).VarType=8
Attributes(1).VarTypeInternal=8
Attributes(1).Visible=1
Attributes(1).Width=86
Levels=1
Levels(1).ValueString="1\t\tBlockProc\tNo\t"
Name="BlockList"
TypeName="List"
Tag=""
Notes=""

[Object2]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=67
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
_VersionPersist=1
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=67
Text="Thank you for participating.\n\n\nGoodbye!"
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="2000"
JumpLabel=""
TimingMode=0
PreRelease="0"
OnsetSync=1
OffsetSync=0
Name="Goodbye"
TypeName="TextDisplay"
Tag=""
Notes=""

[Object3]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=67
_ItemList="TrialList"
_VersionPersist=1
FlowLines(0).Count=1
FlowLines(0).FlowItem(0).Name="TrialList"
LogData=1
Name="BlockProc"
TypeName="Procedure"
Tag=""
Notes=""

[Object4]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=67
_ItemList="TrialProc"
_VersionPersist=1
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=67
Order=0
OrderBy=0
ResetEveryRun=0
HideLevelsWithZeroWeight=0
CycleDef=0
CycleValueSamples=0
CycleValueCondition=""
ExitDef=0
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=""
Attributes("Procedure").Visible=1
Attributes("Procedure").Width=75
Attributes("Procedure").OrderIndex=2
Levels=1
Levels(1).ValueString="2\t\tTrialProc\t"
Name="TrialList"
TypeName="List"
Tag=""
Notes=""

[Object5]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=67
_ItemList="Fixation;Stimulus;ProcessResponses"
_VersionPersist=1
FlowLines(0).Count=3
FlowLines(0).FlowItem(0).Name="Fixation"
FlowLines(0).FlowItem(1).Name="Stimulus"
FlowLines(0).FlowItem(2).Name="ProcessResponses"
LogData=1
Name="TrialProc"
TypeName="Procedure"
Tag=""
Notes=""

[Object6]
_Version=131072
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=67
_VersionPersist=1
Code="'Declare a variable that can be assigned to the Stimulus object.\n'When copying this script to another experiment, the name of the input \n'object will only need to be changed here instead of in multiple places.\nDim theResponseObject As RteRunnableInputObject\nSet theResponseObject = CRteRunnableInputObject(Rte.GetObject(\"Stimulus\"))\n\n'NOTE: If this assert fires, the object named above is not in your experiment.\nDebug.Assert Not theResponseObject Is Nothing\n\n'Set theSlide variable to Stimulus\nSet theSlide = CSlide(Rte.GetObject(\"Stimulus\"))\n\n'Set theState variable to Stimulus' Default SlideState\nSet theState = theSlide.States.Item(\"Default\")\n\n'Set theSlideText variable to the SlideText called StimulusText\nSet theSlideText = CSlideText(theState.Objects(\"StimulusText\"))\n\n'If the Duration time - the PreRelease time is not zero, then this script \n'may not be processing properly.\nIf (theResponseObject.Duration - theResponseObject.PreRelease) <> 0 Then \n\tDebug.Print \"WARNING: \" & theResponseObject.Name & strDurationNotZero\nEnd If\n\n'If the end response action on any of the input masks is anything but (none),\n'the script may not behave properly since terminate would cause the next \n'object after this script to terminate.\nDim nMask As Long\n\nFor nMask = 1 To theResponseObject.InputMasks.Count\t\t\n\tDim theInputMask As InputMask\n\tSet theInputMask = theResponseObject.InputMasks(nMask)\n\n\tIf Not theInputMask Is Nothing Then\t\t\t\n\t\tIf theInputMask.EndResponseAction <> ebEndResponseActionNone Then \n\t\t\tDebug.Print \"WARNING: \" & theResponseObject.Name & strEndActionNone\n\t\tEnd If\n\n\t\tIf theInputMask.MaxCount = 1 Then \n\t\t\tDebug.Print \"WARNING: \" & theResponseObject.Name & strMaxCountOne\n\t\tEnd If\n\n\t\tIf theInputMask.TimeLimit = 0 Then \n\t\t\tDebug.Print \"WARNING: \" & theResponseObject.Name & strZeroTimeLimit\n\t\tEnd If\n\tEnd If\nNext\n\n'Declare variables for holding the current response count and current\n'response data.\nDim nResponseCount As Long\nDim theResponseData As ResponseData\n\n'Loop while there are input masks pending.  This will return TRUE so long \n'as the time limit has not elapsed, the max count on the input mask(s) has \n'not been reached or the termination response has not been accepted.\nDo While theResponseObject.InputMasks.IsPending()\n\n\t'If the counts do not match, there are responses to process.\n\tIf nResponseCount <> theResponseObject.InputMasks.Responses.Count Then\n\n\t\t'Increment response count.\n\t\tnResponseCount = nResponseCount + 1\n\n\t\t'Access the current response information so that it can be used\n\t\t'later in the script for logging and determining which action to take.\n\t\tSet theResponseData = theResponseObject.InputMasks.Responses(nResponseCount)\n\t\tIf Not theResponseData Is Nothing Then\n\n\t\t\t'''''''''''''''''''''''''''''''''''''''''''''''''\n\t\t\t'''''''''''''''''''''''''''''''''''''''''''''''''\n\t\t\t' Insert custom action here.  \t\t\t\t\t'\n\t\t\t' This part will be unique to your experiment.\t'\n\t\t\t' For the sample, the text and background color\t'\n\t\t\t' of the Slide object will be changed based on\t'\n\t\t\t' the subjects response.\t\t\t\t\t\t'\n\t\t\t'''''''''''''''''''''''''''''''''''''''''''''''''\n\t\t\t'''''''''''''''''''''''''''''''''''''''''''''''''\n\n\t\t\t'Log the response to the context\n\t\t\tc.SetAttrib theResponseObject.Name & \".RESP_\" & nResponseCount, theResponseData.RESP\n\t\t\tc.SetAttrib theResponseObject.Name & \".RT_\" & nResponseCount, theResponseData.RT\n\n\t\t\t'Assess the subject's response, change the text/background color as\n\t\t\t'appropriate, and change the text itself to display the new response\n\t\t\t'count. Redraw the Slide so the changes appear to the subject.\n\t\t\tSelect Case theResponseData.RESP\n\t\t\t\n\t\t\t\tCase \"r\"\n\t\t\t\t\ttheSlideText.ForeColor = CColor(\"red\")\n\t\t\t\t\ttheSlideText.Text = \"Responses: \" & nResponseCount\n\t\t\t\t\ttheSlide.Draw\n\n\t\t\t\tCase \"b\"\n\t\t\t\t\ttheSlideText.ForeColor = CColor(\"blue\")\n\t\t\t\t\ttheSlideText.Text = \"Responses: \" & nResponseCount\n\t\t\t\t\ttheSlide.Draw\n\n\t\t\t\tCase \"g\"\n\t\t\t\t\ttheSlideText.ForeColor = CColor(\"green\")\n\t\t\t\t\ttheSlideText.Text = \"Responses: \" & nResponseCount\n\t\t\t\t\ttheSlide.Draw\n\n\t\t\t\tCase \"c\"\n\t\t\t\t\ttheSlideText.BackColor = CColor(\"cyan\")\n\t\t\t\t\ttheSlideText.Text = \"Responses: \" & nResponseCount\n\t\t\t\t\ttheSlide.Draw\n\n\t\t\t\tCase \"y\"\n\t\t\t\t\ttheSlideText.BackColor = CColor(\"yellow\")\n\t\t\t\t\ttheSlideText.Text = \"Responses: \" & nResponseCount\n\t\t\t\t\ttheSlide.Draw\n\n\t\t\t\tCase \"s\"\n\t\t\t\t\ttheSlideText.BackColor = CColor(\"silver\")\n\t\t\t\t\ttheSlideText.Text = \"Responses: \" & nResponseCount\n\t\t\t\t\ttheSlide.Draw\n\n\t\t\t\tCase Else\n\t\t\t\t\ttheSlideText.Text = \"Responses: \" & nResponseCount\n\t\t\t\t\ttheSlide.Draw\n\n\t\t\tEnd Select\n\n\t\tEnd If\n\n\tEnd If\n\n'Give some time back (required)\nSleep 10\nDoEvents\n\nLoop\n\n'Print the total number of subject responses to the Output window.\nDebug.Print theResponseObject.InputMasks.Responses.Count\n\n'Reset properties back to their original state. \n'Note that changing Object properties in script is like changing them \n'by using the Properties pages in E-Studio. Properties do not revert \n'back to their previous values at the start Of a new trial.\ntheSlideText.ForeColor = CColor(\"black\")\ntheSlideText.BackColor = CColor(\"white\")\ntheSlideText.Text = \"Responses: 0\"\n\n'Release references\nSet theSlideText = Nothing\nSet theState = Nothing\nSet theResponseObject = Nothing"
Name="ProcessResponses"
TypeName="InLine"
Tag=""
Notes=""

[Object7]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=67
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
_VersionPersist=1
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=67
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="48"
FontBold="Yes"
FontItalic="No"
FontUnderline="No"
FontStrikeout="No"
WordWrap=1
ClearAfter="No"
Duration="1000"
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=67
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)=!Data0
_VersionPersist=1
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=67
Text="Welcome to the experiment.\n\nPlease press 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"

[Object9]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=68
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
Input(0)=!Data1
_VersionPersist=2
ActiveState="Default"
States.Count=1
States(1).Name="Default"
States("Default").X="center"
States("Default").Y="center"
States("Default").Width="100%"
States("Default").Height="100%"
States("Default").XAlign="center"
States("Default").YAlign="center"
States("Default").BackColor="white"
States("Default").BackStyle="opaque"
States("Default").BorderColor="black"
States("Default").BorderWidth="0"
States("Default").ClearAfter="No"
States("Default").Enabled="Yes"
States("Default").ChildCount=2
States("Default").Objects(1).Type="Text"
States("Default").Objects(1).Text="Responses: 0"
States("Default").Objects(1).Width="100%"
States("Default").Objects(1).Height="30%"
States("Default").Objects(1).X="center"
States("Default").Objects(1).Y="25%"
States("Default").Objects(1).AlignHorizontal="center"
States("Default").Objects(1).AlignVertical="center"
States("Default").Objects(1).FontName="Courier New"
States("Default").Objects(1).FontSize="48"
States("Default").Objects(1).FontBold="Yes"
States("Default").Objects(1).FontUnderline="No"
States("Default").Objects(1).FontStrikeout="No"
States("Default").Objects(1).FontItalic="No"
States("Default").Objects(1).ForeColor="black"
States("Default").Objects(1).BackColor="white"
States("Default").Objects(1).BackStyle="opaque"
States("Default").Objects(1).BorderWidth="2"
States("Default").Objects(1).BorderColor="black"
States("Default").Objects(1).XAlign="center"
States("Default").Objects(1).YAlign="center"
States("Default").Objects(1).WordWrap=1
States("Default").Objects(1).Name="StimulusText"
States("Default").Objects(2).Type="Text"
States("Default").Objects(2).Text="PRESS ONE OF THE OPTIONS BELOW:\r\n \r\nChange Text Color:\r\nb = blue   g = green   r = red\r\n \r\nChange Background Color:\r\nc = cyan   s = silver   y = yellow\r\n \r\nPress Escape to continue."
States("Default").Objects(2).Width="90%"
States("Default").Objects(2).Height="50%"
States("Default").Objects(2).X="50%"
States("Default").Objects(2).Y="75%"
States("Default").Objects(2).AlignHorizontal="center"
States("Default").Objects(2).AlignVertical="center"
States("Default").Objects(2).FontName="Courier New"
States("Default").Objects(2).FontSize="18"
States("Default").Objects(2).FontBold="Yes"
States("Default").Objects(2).FontUnderline="No"
States("Default").Objects(2).FontStrikeout="No"
States("Default").Objects(2).FontItalic="No"
States("Default").Objects(2).ForeColor="black"
States("Default").Objects(2).BackColor="white"
States("Default").Objects(2).BackStyle="opaque"
States("Default").Objects(2).BorderWidth="0"
States("Default").Objects(2).BorderColor="black"
States("Default").Objects(2).XAlign="center"
States("Default").Objects(2).YAlign="center"
States("Default").Objects(2).WordWrap=1
States("Default").Objects(2).Name="InstructionText"
Duration="0"
JumpLabel=""
TimingMode=0
PreRelease="0"
OnsetSync=1
OffsetSync=0
Name="Stimulus"
TypeName="Slide"
Tag=""
Notes=""

[Data1]
DeviceName="Keyboard"
DeviceClass="Keyboard"
AllowableInput="{ANY}"
CorrectInput=""
TimeLimit="-1"
MaxCount="100"
InputAction=0
SyncOwnerDuration=0
Enabled=1
FlushInputBuffer="Yes"
TerminationInput="{ESCAPE}"
UserTag=""
ResponseMode="All"
ProcessBackspace="Yes"

[UserScript]
'Constants for displaying warning messages.
Const strDurationNotZero As String = ".Duration is not zero.  The ProcessResponses " &_
	"InLine may not function properly!"

Const strEndActionNone As String = " has an input mask with an end response " &_
	"action that is not (none). The object after ProcessResponses InLine may " &_
	"not be terminated as expected!"

Const strMaxCountOne As String = " has an input mask that has a MaxCount=1. " &_
	"The ProcessResponses InLine won't handle multiple responses."

Const strZeroTimeLimit As String = " has an input mask with a zero duration " &_
	"time limit and will be effectively ignored!"

'Declare a variable that can be assigned to the Stimulus object.
Dim theSlide As Slide

'Declare a variable that can be assigned to the default SlideState.
Dim theState As SlideState

'Declare a variable that can be assigned to the SlideText sub-object
'that will be altered based on subject responses.
Dim theSlideText As SlideText