[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=75
_VersionPersist=6
Root="SessionProc"
Author="Michael Hout (Psychology Software Tools, Inc.)"
Abstract="Abstract\r\nThis experiment demonstrates two different methods for \r\nimplementing a Score Bar. The first method uses multiple \r\nSlideText sub-objects arranged to create an incremental Score Bar.\r\nThe second method uses the Canvas object to color a certain area\r\nof the Score Bar red, according to the score of the subject.\r\n\r\nThe first method uses multiple SlideText sub-objects arranged \r\nhorizontally. After a subject responds, the appropriate sub-object is \r\naccessed using a SlideText variable in InLine script. The BackColor\r\nproperty of the SlideText is then set to red or white as appropriate. \r\nThis part of the experiment ends after 20 trials, or when the Score \r\nBar is full.\r\n\r\nThe second method uses a Canvas object to draw a red rectangle \r\nacross the bottom of the screen. The width of this rectangle \r\nincreases by 100 pixels for each correct answer, and decreases by \r\n100 pixels for each incorrect answer. This part of the experiment \r\nends after 20 trials, or when the Score Bar is full.\r\n\r\nThough the methods employed in this sample are such that the \r\nScore Bar increases only with correct answers, the methods could\r\neasily be generalized. For instance, it would be possible to \r\nimplement a bar to increase with the amount of trials that have \r\nelapsed, or to increase the bar every time a certain key is pressed."
Notes=""
Creation=1144781037

[Device0]
_VersionPersist=1
OpenDevice=1
Width=1024
Height=768
Bpp=16
Name="Display"
Class="Display"

[Device1]
_VersionPersist=1
OpenDevice=0
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-32767, 0=No Data Logging):"
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 (1-32767):"
DataType=0
Enabled=1
PromptEnabled=1
Default="1"
Min=1
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=52
_ItemList="Intro;BlockList;Goodbye"
_VersionPersist=1
FlowLines(0).Count=3
FlowLines(0).FlowItem(0).Name="Intro"
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=52
_ItemList="SlideProc;CanvasProc"
_VersionPersist=1
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
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="BlockProc"
Attributes("Procedure").Visible=1
Attributes("Procedure").Width=75
Attributes("Procedure").OrderIndex=2
Levels=2
Levels(1).ValueString="1\t\tSlideProc\t"
Levels(2).ValueString="1\t\tCanvasProc\t"
Name="BlockList"
TypeName="List"
Tag=""
Notes=""

[Object2]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
_ItemList="SlideIntro;Initialize;TrialList1"
_VersionPersist=1
FlowLines(0).Count=3
FlowLines(0).FlowItem(0).Name="SlideIntro"
FlowLines(0).FlowItem(1).Name="Initialize"
FlowLines(0).FlowItem(2).Name="TrialList1"
LogData=1
Name="SlideProc"
TypeName="Procedure"
Tag=""
Notes=""

[Object3]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
Logging("CorrectAnswer").Log=-1
_ItemList="TrialProc1"
_VersionPersist=1
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
Order=0
OrderBy=0
ResetEveryRun=0
HideLevelsWithZeroWeight=0
CycleDef=0
CycleValueSamples=0
CycleValueCondition=""
ExitDef=0
ExitValueCycles=2
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="TrialProc"
Attributes("Procedure").Visible=1
Attributes("Procedure").Width=75
Attributes("Procedure").OrderIndex=2
Attributes(1).Name="CorrectAnswer"
Attributes(1).DefaultValue="?"
Attributes(1).VarType=8
Attributes(1).VarTypeInternal=8
Attributes(1).Visible=1
Attributes(1).Width=102
Levels=10
Levels(1).ValueString="1\t\tTrialProc1\t1\t"
Levels(2).ValueString="1\t\tTrialProc1\t2\t"
Levels(3).ValueString="1\t\tTrialProc1\t3\t"
Levels(4).ValueString="1\t\tTrialProc1\t4\t"
Levels(5).ValueString="1\t\tTrialProc1\t5\t"
Levels(6).ValueString="1\t\tTrialProc1\t6\t"
Levels(7).ValueString="1\t\tTrialProc1\t7\t"
Levels(8).ValueString="1\t\tTrialProc1\t8\t"
Levels(9).ValueString="1\t\tTrialProc1\t9\t"
Levels(10).ValueString="1\t\tTrialProc1\t0\t"
Name="TrialList1"
TypeName="List"
Tag=""
Notes=""

[Object4]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
_ItemList="Stimulus;CheckACC;SetColor"
_VersionPersist=1
FlowLines(0).Count=3
FlowLines(0).FlowItem(0).Name="Stimulus"
FlowLines(0).FlowItem(1).Name="CheckACC"
FlowLines(0).FlowItem(2).Name="SetColor"
LogData=1
Name="TrialProc1"
TypeName="Procedure"
Tag=""
Notes=""

[Object5]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
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)=!Data0
_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=11
States("Default").Objects(1).Type="Text"
States("Default").Objects(1).Text=""
States("Default").Objects(1).Width="5%"
States("Default").Objects(1).Height="5%"
States("Default").Objects(1).X="28%"
States("Default").Objects(1).Y="75%"
States("Default").Objects(1).AlignHorizontal="center"
States("Default").Objects(1).AlignVertical="center"
States("Default").Objects(1).FontName="Courier New"
States("Default").Objects(1).FontSize="18"
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="Text1"
States("Default").Objects(2).Type="Text"
States("Default").Objects(2).Text=""
States("Default").Objects(2).Width="5%"
States("Default").Objects(2).Height="5%"
States("Default").Objects(2).X="33%"
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="2"
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="Text2"
States("Default").Objects(3).Type="Text"
States("Default").Objects(3).Text=""
States("Default").Objects(3).Width="5%"
States("Default").Objects(3).Height="5%"
States("Default").Objects(3).X="38%"
States("Default").Objects(3).Y="75%"
States("Default").Objects(3).AlignHorizontal="center"
States("Default").Objects(3).AlignVertical="center"
States("Default").Objects(3).FontName="Courier New"
States("Default").Objects(3).FontSize="18"
States("Default").Objects(3).FontBold="Yes"
States("Default").Objects(3).FontUnderline="No"
States("Default").Objects(3).FontStrikeout="No"
States("Default").Objects(3).FontItalic="No"
States("Default").Objects(3).ForeColor="black"
States("Default").Objects(3).BackColor="white"
States("Default").Objects(3).BackStyle="opaque"
States("Default").Objects(3).BorderWidth="2"
States("Default").Objects(3).BorderColor="black"
States("Default").Objects(3).XAlign="center"
States("Default").Objects(3).YAlign="center"
States("Default").Objects(3).WordWrap=1
States("Default").Objects(3).Name="Text3"
States("Default").Objects(4).Type="Text"
States("Default").Objects(4).Text=""
States("Default").Objects(4).Width="5%"
States("Default").Objects(4).Height="5%"
States("Default").Objects(4).X="43%"
States("Default").Objects(4).Y="75%"
States("Default").Objects(4).AlignHorizontal="center"
States("Default").Objects(4).AlignVertical="center"
States("Default").Objects(4).FontName="Courier New"
States("Default").Objects(4).FontSize="18"
States("Default").Objects(4).FontBold="Yes"
States("Default").Objects(4).FontUnderline="No"
States("Default").Objects(4).FontStrikeout="No"
States("Default").Objects(4).FontItalic="No"
States("Default").Objects(4).ForeColor="black"
States("Default").Objects(4).BackColor="white"
States("Default").Objects(4).BackStyle="opaque"
States("Default").Objects(4).BorderWidth="2"
States("Default").Objects(4).BorderColor="black"
States("Default").Objects(4).XAlign="center"
States("Default").Objects(4).YAlign="center"
States("Default").Objects(4).WordWrap=1
States("Default").Objects(4).Name="Text4"
States("Default").Objects(5).Type="Text"
States("Default").Objects(5).Text=""
States("Default").Objects(5).Width="5%"
States("Default").Objects(5).Height="5%"
States("Default").Objects(5).X="48%"
States("Default").Objects(5).Y="75%"
States("Default").Objects(5).AlignHorizontal="center"
States("Default").Objects(5).AlignVertical="center"
States("Default").Objects(5).FontName="Courier New"
States("Default").Objects(5).FontSize="18"
States("Default").Objects(5).FontBold="Yes"
States("Default").Objects(5).FontUnderline="No"
States("Default").Objects(5).FontStrikeout="No"
States("Default").Objects(5).FontItalic="No"
States("Default").Objects(5).ForeColor="black"
States("Default").Objects(5).BackColor="white"
States("Default").Objects(5).BackStyle="opaque"
States("Default").Objects(5).BorderWidth="2"
States("Default").Objects(5).BorderColor="black"
States("Default").Objects(5).XAlign="center"
States("Default").Objects(5).YAlign="center"
States("Default").Objects(5).WordWrap=1
States("Default").Objects(5).Name="Text5"
States("Default").Objects(6).Type="Text"
States("Default").Objects(6).Text=""
States("Default").Objects(6).Width="5%"
States("Default").Objects(6).Height="5%"
States("Default").Objects(6).X="53%"
States("Default").Objects(6).Y="75%"
States("Default").Objects(6).AlignHorizontal="center"
States("Default").Objects(6).AlignVertical="center"
States("Default").Objects(6).FontName="Courier New"
States("Default").Objects(6).FontSize="18"
States("Default").Objects(6).FontBold="Yes"
States("Default").Objects(6).FontUnderline="No"
States("Default").Objects(6).FontStrikeout="No"
States("Default").Objects(6).FontItalic="No"
States("Default").Objects(6).ForeColor="black"
States("Default").Objects(6).BackColor="white"
States("Default").Objects(6).BackStyle="opaque"
States("Default").Objects(6).BorderWidth="2"
States("Default").Objects(6).BorderColor="black"
States("Default").Objects(6).XAlign="center"
States("Default").Objects(6).YAlign="center"
States("Default").Objects(6).WordWrap=1
States("Default").Objects(6).Name="Text6"
States("Default").Objects(7).Type="Text"
States("Default").Objects(7).Text=""
States("Default").Objects(7).Width="5%"
States("Default").Objects(7).Height="5%"
States("Default").Objects(7).X="58%"
States("Default").Objects(7).Y="75%"
States("Default").Objects(7).AlignHorizontal="center"
States("Default").Objects(7).AlignVertical="center"
States("Default").Objects(7).FontName="Courier New"
States("Default").Objects(7).FontSize="18"
States("Default").Objects(7).FontBold="Yes"
States("Default").Objects(7).FontUnderline="No"
States("Default").Objects(7).FontStrikeout="No"
States("Default").Objects(7).FontItalic="No"
States("Default").Objects(7).ForeColor="black"
States("Default").Objects(7).BackColor="white"
States("Default").Objects(7).BackStyle="opaque"
States("Default").Objects(7).BorderWidth="2"
States("Default").Objects(7).BorderColor="black"
States("Default").Objects(7).XAlign="center"
States("Default").Objects(7).YAlign="center"
States("Default").Objects(7).WordWrap=1
States("Default").Objects(7).Name="Text7"
States("Default").Objects(8).Type="Text"
States("Default").Objects(8).Text=""
States("Default").Objects(8).Width="5%"
States("Default").Objects(8).Height="5%"
States("Default").Objects(8).X="63%"
States("Default").Objects(8).Y="75%"
States("Default").Objects(8).AlignHorizontal="center"
States("Default").Objects(8).AlignVertical="center"
States("Default").Objects(8).FontName="Courier New"
States("Default").Objects(8).FontSize="18"
States("Default").Objects(8).FontBold="Yes"
States("Default").Objects(8).FontUnderline="No"
States("Default").Objects(8).FontStrikeout="No"
States("Default").Objects(8).FontItalic="No"
States("Default").Objects(8).ForeColor="black"
States("Default").Objects(8).BackColor="white"
States("Default").Objects(8).BackStyle="opaque"
States("Default").Objects(8).BorderWidth="2"
States("Default").Objects(8).BorderColor="black"
States("Default").Objects(8).XAlign="center"
States("Default").Objects(8).YAlign="center"
States("Default").Objects(8).WordWrap=1
States("Default").Objects(8).Name="Text8"
States("Default").Objects(9).Type="Text"
States("Default").Objects(9).Text=""
States("Default").Objects(9).Width="5%"
States("Default").Objects(9).Height="5%"
States("Default").Objects(9).X="68%"
States("Default").Objects(9).Y="75%"
States("Default").Objects(9).AlignHorizontal="center"
States("Default").Objects(9).AlignVertical="center"
States("Default").Objects(9).FontName="Courier New"
States("Default").Objects(9).FontSize="18"
States("Default").Objects(9).FontBold="Yes"
States("Default").Objects(9).FontUnderline="No"
States("Default").Objects(9).FontStrikeout="No"
States("Default").Objects(9).FontItalic="No"
States("Default").Objects(9).ForeColor="black"
States("Default").Objects(9).BackColor="white"
States("Default").Objects(9).BackStyle="opaque"
States("Default").Objects(9).BorderWidth="2"
States("Default").Objects(9).BorderColor="black"
States("Default").Objects(9).XAlign="center"
States("Default").Objects(9).YAlign="center"
States("Default").Objects(9).WordWrap=1
States("Default").Objects(9).Name="Text9"
States("Default").Objects(10).Type="Text"
States("Default").Objects(10).Text=""
States("Default").Objects(10).Width="5%"
States("Default").Objects(10).Height="5%"
States("Default").Objects(10).X="73%"
States("Default").Objects(10).Y="75%"
States("Default").Objects(10).AlignHorizontal="center"
States("Default").Objects(10).AlignVertical="center"
States("Default").Objects(10).FontName="Courier New"
States("Default").Objects(10).FontSize="18"
States("Default").Objects(10).FontBold="Yes"
States("Default").Objects(10).FontUnderline="No"
States("Default").Objects(10).FontStrikeout="No"
States("Default").Objects(10).FontItalic="No"
States("Default").Objects(10).ForeColor="black"
States("Default").Objects(10).BackColor="white"
States("Default").Objects(10).BackStyle="opaque"
States("Default").Objects(10).BorderWidth="2"
States("Default").Objects(10).BorderColor="black"
States("Default").Objects(10).XAlign="center"
States("Default").Objects(10).YAlign="center"
States("Default").Objects(10).WordWrap=1
States("Default").Objects(10).Name="Text10"
States("Default").Objects(11).Type="Text"
States("Default").Objects(11).Text="Press [CorrectAnswer] for a correct answer."
States("Default").Objects(11).Width="75%"
States("Default").Objects(11).Height="25%"
States("Default").Objects(11).X="center"
States("Default").Objects(11).Y="25%"
States("Default").Objects(11).AlignHorizontal="center"
States("Default").Objects(11).AlignVertical="center"
States("Default").Objects(11).FontName="Courier New"
States("Default").Objects(11).FontSize="18"
States("Default").Objects(11).FontBold="Yes"
States("Default").Objects(11).FontUnderline="No"
States("Default").Objects(11).FontStrikeout="No"
States("Default").Objects(11).FontItalic="No"
States("Default").Objects(11).ForeColor="black"
States("Default").Objects(11).BackColor="white"
States("Default").Objects(11).BackStyle="opaque"
States("Default").Objects(11).BorderWidth="0"
States("Default").Objects(11).BorderColor="black"
States("Default").Objects(11).XAlign="center"
States("Default").Objects(11).YAlign="center"
States("Default").Objects(11).WordWrap=1
States("Default").Objects(11).Name="Text11"
Duration="-1"
JumpLabel=""
TimingMode=0
PreRelease="0"
OnsetSync=1
OffsetSync=0
Name="Stimulus"
TypeName="Slide"
Tag=""
Notes=""

[Data0]
DeviceName="Keyboard"
DeviceClass="Keyboard"
AllowableInput="{ANY}"
CorrectInput="[CorrectAnswer]"
TimeLimit=""
MaxCount="1"
InputAction=1
SyncOwnerDuration=1
Enabled=1
FlushInputBuffer="Yes"
TerminationInput=""
UserTag=""
ResponseMode="All"
ProcessBackspace="Yes"

[Object6]
_Version=131072
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
_VersionPersist=1
Code="'Initialize the nCurrent variable to zero\nnCurrent = 0\n"
Name="Initialize"
TypeName="InLine"
Tag=""
Notes=""

[Object7]
_Version=131072
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
_VersionPersist=1
Code="'Check Accuracy and score accordingly.\nIf Stimulus.ACC = 1 Then\n\tnPrevious = nCurrent\n\tnCurrent = nCurrent + 1\n\nElseIf Stimulus.ACC = 0 Then\n\tnPrevious = nCurrent\n\tnCurrent = nCurrent - 1\n\n\t'Error checking so nCurrent does not drop below 0.\n\tIf nCurrent <= 0 Then\n\t\tnCurrent = 0\n\tEnd If\n\nEnd If"
Name="CheckACC"
TypeName="InLine"
Tag=""
Notes=""

[Object8]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
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=52
Text="Thank you and goodbye."
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="1000"
JumpLabel=""
TimingMode=0
PreRelease="0"
OnsetSync=1
OffsetSync=0
Name="Goodbye"
TypeName="TextDisplay"
Tag=""
Notes=""

[Object9]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
_ItemList="CanvasIntro;Initialize;TrialList2"
_VersionPersist=1
FlowLines(0).Count=3
FlowLines(0).FlowItem(0).Name="CanvasIntro"
FlowLines(0).FlowItem(1).Name="Initialize"
FlowLines(0).FlowItem(2).Name="TrialList2"
LogData=1
Name="CanvasProc"
TypeName="Procedure"
Tag=""
Notes=""

[Object10]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
Logging("CorrectAnswer").Log=-1
_ItemList="TrialProc2"
_VersionPersist=1
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
Order=0
OrderBy=0
ResetEveryRun=0
HideLevelsWithZeroWeight=0
CycleDef=0
CycleValueSamples=0
CycleValueCondition=""
ExitDef=0
ExitValueCycles=2
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="TrialProc2"
Attributes("Procedure").Visible=1
Attributes("Procedure").Width=75
Attributes("Procedure").OrderIndex=2
Attributes(1).Name="CorrectAnswer"
Attributes(1).DefaultValue="?"
Attributes(1).VarType=8
Attributes(1).VarTypeInternal=8
Attributes(1).Visible=1
Attributes(1).Width=75
Levels=10
Levels(1).ValueString="1\t\tTrialProc2\t1\t"
Levels(2).ValueString="1\t\tTrialProc2\t2\t"
Levels(3).ValueString="1\t\tTrialProc2\t3\t"
Levels(4).ValueString="1\t\tTrialProc2\t4\t"
Levels(5).ValueString="1\t\tTrialProc2\t5\t"
Levels(6).ValueString="1\t\tTrialProc2\t6\t"
Levels(7).ValueString="1\t\tTrialProc2\t7\t"
Levels(8).ValueString="1\t\tTrialProc2\t8\t"
Levels(9).ValueString="1\t\tTrialProc2\t9\t"
Levels(10).ValueString="1\t\tTrialProc2\t0\t"
Name="TrialList2"
TypeName="List"
Tag=""
Notes=""

[Object11]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
_ItemList="DrawOnCanvas;Stimulus2;CheckACC2;EndCanvas"
_VersionPersist=1
FlowLines(0).Count=4
FlowLines(0).FlowItem(0).Name="DrawOnCanvas"
FlowLines(0).FlowItem(1).Name="Stimulus2"
FlowLines(0).FlowItem(2).Name="CheckACC2"
FlowLines(0).FlowItem(3).Name="EndCanvas"
LogData=1
Name="TrialProc2"
TypeName="Procedure"
Tag=""
Notes=""

[Object12]
_Version=131072
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
_VersionPersist=1
Code="'Declare the canvas offscreen\nDim cnvs As Canvas\nSet cnvs = Display.CreateCanvas \n\n'Declare variables for X and Y location of rectangle (top left corner)\nDim xLoc as Long\nDim yLoc as Long\n'Declare contants for height and width of rectangle\nConst cHeight as Integer = 50\nConst cWidth as Integer = 1000\n\n'Declare variable for width of bar in pixels (calculated from nCurrent counter)\nDim pixelsCurrent As Integer\n\n'Set top left coordinates of the rectangle\nxLoc = 12\nyLoc = Display.YRes * .75\nyLoc = CINT(yLoc)\n\n'Draw an empty Rectangle for the border\ncnvs.PenColor = CColor(\"black\")\ncnvs.FillColor = CColor(\"white\")\ncnvs.Rectangle xLoc, yLoc, cWidth, cHeight\n\n'Error checking in case counter goes above 10 or into negatives\nIf nCurrent <= 0 Then\n\tnCurrent = 0\nEnd If\n\nIf nCurrent >= 10 Then\n\tnCurrent = 10\nEnd If\n\n'Convert nCurrent into pixels\npixelsCurrent = nCurrent * 100\n\n'Draw status bar\ncnvs.PenColor = CColor(\"red\")\ncnvs.FillColor = CColor(\"red\")\ncnvs.Rectangle xLoc, yLoc, pixelsCurrent, cHeight\n\n'Ready the offscreen canvas for copy\nDim rc As Rect\nrc.Left = xLoc\nrc.Top = yLoc\nrc.Right = rc.Left + cWidth\nrc.Bottom = rc.Top + cHeight\n\n'Copy the offscreen canvas to the display\nDisplay.Canvas.Copy cnvs, rc, rc\n\n\n'Release references\nSet cnvs = Nothing\n\n'Terminate the TrialList2 object when Score Bar is full.\n'Skip to the end of the trial so additional responses are not collected.\nIf nCurrent >= 10 Then\n  TrialList2.Terminate\n  Sleep 500\n  Goto EndCanvas\nEnd If"
Name="DrawOnCanvas"
TypeName="InLine"
Tag=""
Notes=""

[Object13]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
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=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="transparent"
States("Default").BorderColor="black"
States("Default").BorderWidth="0"
States("Default").ClearAfter="Yes"
States("Default").Enabled="Yes"
States("Default").ChildCount=1
States("Default").Objects(1).Type="Text"
States("Default").Objects(1).Text="Press [CorrectAnswer] for a correct answer."
States("Default").Objects(1).Width="75%"
States("Default").Objects(1).Height="25%"
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="18"
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="0"
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="Text1"
Duration="-1"
JumpLabel=""
TimingMode=0
PreRelease="0"
OnsetSync=1
OffsetSync=0
Name="Stimulus2"
TypeName="Slide"
Tag=""
Notes=""

[Data1]
DeviceName="Keyboard"
DeviceClass="Keyboard"
AllowableInput="{ANY}"
CorrectInput="[CorrectAnswer]"
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=52
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=52
Text="This experiment will demonstrate two different methods \nof how to create a Score Bar.\n\nThe first method uses multiple SlideText \nsub-objects, and sets the BackColor properties of the objects \naccording the number correct.\n\nThe second method uses the Canvas object, and \ncolors a certain amount of a given rectangle \nbased on the number of correct responses.\n\n\n\nPlease press any key 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="Intro"
TypeName="TextDisplay"
Tag=""
Notes=""

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

[Object15]
_Version=131072
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
_VersionPersist=1
Code="\n\n'Check Accuracy and score accordingly\nIf Stimulus2.ACC = 1 Then\n\tnCurrent = nCurrent + 1\nElseIf Stimulus2.ACC = 0 Then\n\tnCurrent = nCurrent - 1\nEnd If\n\n"
Name="CheckACC2"
TypeName="InLine"
Tag=""
Notes=""

[Object16]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
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)=!Data3
_VersionPersist=1
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
Text="This is the first method, which uses\nmultiple SlideText sub-objects.\n\n\n\nOn each trial, the instructions will explain what key\nto press for a correct answer.  The score will increase\nif you respond correctly, and will decrease otherwise.\n\n\n\nPlease press any key 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="SlideIntro"
TypeName="TextDisplay"
Tag=""
Notes=""

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

[Object17]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
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)=!Data4
_VersionPersist=1
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
Text="This is the second method, which uses the Canvas object.\n\n\n\nOn each trial, the instructions will explain what key\nto press for a correct answer.  The score will increase\nif you respond correctly, and will decrease otherwise.\n\n\n\nPlease press any key 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="Yes"
Duration="-1"
JumpLabel=""
TimingMode=0
PreRelease="0"
OnsetSync=1
OffsetSync=0
Name="CanvasIntro"
TypeName="TextDisplay"
Tag=""
Notes=""

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

[Object18]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
_VersionPersist=1
Name="EndCanvas"
TypeName="Label"
Tag=""
Notes=""

[Object19]
_Version=131072
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=52
_VersionPersist=1
Code="'This script will determine if a SlideText must be changed to red or white,\n'gains access to the correct SlideText using a SlideText variable, and changes \n'the BackColor property appropriately.\nDim strName As String\nDim theSlideText As SlideText\n\n\n'If the subject answered correctly...\nIf nCurrent > nPrevious Then\n\n\t'Gain access the SlideText that must be changed.\n\tstrName = \"Text\" & nCurrent\n\tSet theSlideText = CSlideText(Stimulus.States.Item(\"Default\").Objects(strName))\n\n\t'Change the SlideText BackColor to red.\n\ttheSlideText.BackColor = CColor(\"red\")\n\n'The subject answered incorrectly.\nElse \n\n\t'Gain access to the SlideText that must be changed.\n\tstrName = \"Text\" & (nCurrent + 1)\n\tSet theSlideText = CSlideText(Stimulus.States.Item(\"Default\").Objects(strName))\n\n\t'Change the SlideText BackColor to white.\n\ttheSlideText.BackColor = CColor(\"white\")\n\nEnd If\n\n\n'If the score bar is completely filled...\nIf nCurrent = 10 Then\n\n\t'Draw the Stimulus object to show changes.\n\tStimulus.Draw\n\tSleep 500\n\n\t'Terminate the TrialList1 so no further trials are run (since the score\n\t'bar is full).\n\tTrialList1.Terminate\n\nEnd If"
Name="SetColor"
TypeName="InLine"
Tag=""
Notes=""

[UserScript]
'This counter will act as an internal score to keep track of how many SlideText
'objects must be displayed in red or how wide the Canvas rectangle must be.
Dim nCurrent As Long
Dim nPrevious As Long
Dim Terminate As Boolean