[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=0 VersionInternal=20 VersionBuild=2 _VersionPersist=6 Root="SessionProc" Author="PST" Abstract="*Note: BasicPortRT assumes that the parallel port is configured \r\nfor standard mode. If this program does not respond, you may \r\nneed to modify the BIOS settings for the parallel port.\r\n\r\nDescription:\r\nThis program illustrates communication with a device connected to\r\nthe parallel port. The device used to design this experiment was a \r\nsingle button response device with two LEDs (one green, one red). \r\nThe mapping of these components is as follows:\r\n\r\nred lamp = bit 2\r\ngreen lamp = bit 1\r\nbutton = bit 7\r\n\r\nThe Port device is enabled in the Expeirment Object Devices tab, \r\nand input via the port is enabled on the Stimulus object (i.e., the \r\nobject collecting input). The bits to watch for input are designated \r\nin the Input properties for the Stimulus object.\r\n\r\nThe program presents the subject with a fixation and then a stimulus \r\n(X or Y). The subject is to respond by pressing the button on the \r\ndevice when an X is presented. When a Y is presented, the subject\r\nshould not respond. The input is scored for accuracy and reaction \r\ntime." Notes="Revised 1/21/02" Creation=1011712223 [Device0] _VersionPersist=1 OpenDevice=1 CollectionMode=1 EmulateDeviceName="" CapsLock=0 NumLock=0 Name="Keyboard" Class="Keyboard" [Device1] _VersionPersist=1 OpenDevice=1 CollectionMode=1 EmulateDeviceName="" OpenMode=0 ShowCursor=0 Name="Mouse" Class="Mouse" [Device2] _VersionPersist=1 OpenDevice=1 Width=640 Height=480 Bpp=16 Name="Display" Class="Display" [Device3] _VersionPersist=1 OpenDevice=0 Channels=2 Samples=22050 Bps=16 Name="Sound" Class="Sound" [Device4] _VersionPersist=1 OpenDevice=1 CollectionMode=1 EmulateDeviceName="" Address="889" Size=8 Invert=0 Mask="-1" Name="Port" Class="Port" [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=1 PromptEnabled=1 Default="2" 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=0 VersionInternal=20 VersionBuild=2 _ItemList="Introduction;FlashLamps;Instructions;BlockList;Goodbye;TurnAllOff" _VersionPersist=1 FlowLines(0).Count=6 FlowLines(0).FlowItem(0).Name="Introduction" FlowLines(0).FlowItem(1).Name="FlashLamps" FlowLines(0).FlowItem(2).Name="Instructions" FlowLines(0).FlowItem(3).Name="BlockList" FlowLines(0).FlowItem(4).Name="Goodbye" FlowLines(0).FlowItem(5).Name="TurnAllOff" LogData=1 Name="SessionProc" TypeName="Procedure" Tag="" Notes="" [Object1] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=0 VersionInternal=20 VersionBuild=2 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=0 VersionInternal=20 VersionBuild=2 Text="Welcome to the experiment\n\nYou will see a fixation followed by either an 'X' or a 'Y'.\n\n\nPush the button when you see an X. Do not respond when you see a Y.\n\nPush the button 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="10000" JumpLabel="" TimingMode=0 PreRelease="0" OnsetSync=1 OffsetSync=0 Name="Instructions" TypeName="TextDisplay" Tag="" Notes="" [Data0] DeviceName="Port" DeviceClass="Port" AllowableInput="7" CorrectInput="" TimeLimit="" MaxCount="1" InputAction=1 SyncOwnerDuration=1 Enabled=1 FlushInputBuffer="Yes" TerminationInput="" UserTag="" [Object2] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=0 VersionInternal=20 VersionBuild=2 Logging("Tag").Log=0 Logging("PracticeMode").Log=-1 _ItemList="BlockProc" _VersionPersist=1 VersionMajor=1 VersionMinor=0 VersionInternal=20 VersionBuild=2 Order=0 OrderBy=0 ResetEveryRun=0 HideLevelsWithZeroWeight=0 CycleDef=0 CycleValueSamples=0 CycleValueCondition="" ExitDef=0 ExitValueCycles=1 ExitValueSamples=1 ExitValueSeconds=0 ExitValueCondition="" LoadMethod=2 Filename="" UserAttributes=1 Attributes("Weight").DefaultValue="1" Attributes("Weight").Visible=1 Attributes("Weight").Width=75 Attributes("Weight").OrderIndex=0 Attributes("Procedure").DefaultValue="" Attributes("Procedure").Visible=1 Attributes("Procedure").Width=75 Attributes("Procedure").OrderIndex=1 Attributes("Nested").DefaultValue="" Attributes("Nested").Visible=1 Attributes("Nested").Width=75 Attributes("Nested").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\tBlockProc\t\tNo\t" Name="BlockList" TypeName="List" Tag="" Notes="" [Object3] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=0 VersionInternal=20 VersionBuild=2 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=0 VersionInternal=20 VersionBuild=2 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="" [Object4] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=0 VersionInternal=20 VersionBuild=2 _ItemList="TrialList" _VersionPersist=1 FlowLines(0).Count=1 FlowLines(0).FlowItem(0).Name="TrialList" LogData=1 Name="BlockProc" TypeName="Procedure" Tag="" Notes="" [Object5] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=0 VersionInternal=20 VersionBuild=2 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=-1 Logging("RESP").Log=-1 Logging("CRESP").Log=0 Logging("Tag").Log=0 _VersionPersist=1 VersionMajor=1 VersionMinor=0 VersionInternal=20 VersionBuild=2 Text="\n\n\n\n\n\n\n+\n\n\n\n\n\nPress '1' for X\nPress '2' for Y" 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="Fixation" TypeName="TextDisplay" Tag="" Notes="" [Object6] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=0 VersionInternal=20 VersionBuild=2 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=0 VersionInternal=20 VersionBuild=2 Text="[Stimulus]" ForeColor="black" BackColor="white" BackStyle="opaque" BorderColor="black" BorderWidth="0" X="center" Y="center" Width="25%" Height="25%" 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="Stimulus" TypeName="TextDisplay" Tag="" Notes="Allowable Input sets the bits to watch for a change in state." [Data1] DeviceName="Port" DeviceClass="Port" AllowableInput="7" CorrectInput="[CorrectAnswer]" TimeLimit="" MaxCount="1" InputAction=1 SyncOwnerDuration=1 Enabled=1 FlushInputBuffer="Yes" TerminationInput="" UserTag="" [Object7] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=0 VersionInternal=20 VersionBuild=2 Logging("Tag").Log=0 Logging("Stimulus").Log=-1 Logging("CorrectAnswer").Log=-1 _ItemList="TrialProc" _VersionPersist=1 VersionMajor=1 VersionMinor=0 VersionInternal=20 VersionBuild=2 Order=1 OrderBy=0 ResetEveryRun=0 HideLevelsWithZeroWeight=0 CycleDef=0 CycleValueSamples=0 CycleValueCondition="" ExitDef=0 ExitValueCycles=1 ExitValueSamples=1 ExitValueSeconds=0 ExitValueCondition="" LoadMethod=2 Filename="" UserAttributes=2 Attributes("Weight").DefaultValue="1" Attributes("Weight").Visible=1 Attributes("Weight").Width=75 Attributes("Weight").OrderIndex=0 Attributes("Procedure").DefaultValue="" Attributes("Procedure").Visible=1 Attributes("Procedure").Width=75 Attributes("Procedure").OrderIndex=1 Attributes("Nested").DefaultValue="" Attributes("Nested").Visible=1 Attributes("Nested").Width=75 Attributes("Nested").OrderIndex=2 Attributes(1).Name="Stimulus" Attributes(1).DefaultValue="?" Attributes(1).VarType=8 Attributes(1).VarTypeInternal=8 Attributes(1).Visible=1 Attributes(1).Width=75 Attributes(2).Name="CorrectAnswer" Attributes(2).DefaultValue="?" Attributes(2).VarType=8 Attributes(2).VarTypeInternal=8 Attributes(2).Visible=1 Attributes(2).Width=126 Levels=2 Levels(1).ValueString="2\tTrialProc\t\tX\t7\t" Levels(2).ValueString="2\tTrialProc\t\tY\t\t" Name="TrialList" TypeName="List" Tag="" Notes="" [Object8] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=0 VersionInternal=20 VersionBuild=2 _ItemList="TurnAllOff;Fixation;Stimulus;Feedback;Score" _VersionPersist=1 FlowLines(0).Count=5 FlowLines(0).FlowItem(0).Name="TurnAllOff" FlowLines(0).FlowItem(1).Name="Fixation" FlowLines(0).FlowItem(2).Name="Stimulus" FlowLines(0).FlowItem(3).Name="Feedback" FlowLines(0).FlowItem(4).Name="Score" LogData=1 Name="TrialProc" TypeName="Procedure" Tag="" Notes="" [Object9] _Version=131072 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=0 VersionInternal=20 VersionBuild=2 _VersionPersist=1 Code="'Flash the green lamp 5 times when a correct response is made \n'Flash the red lamp 5 times when an incorrect response is made\n\n'Note that scoring of responses is done via the Stimulus object; scoring is not\n'dependent on lamp flashing\n\nDim i As Integer\nIf Stimulus.ACC = 1 Then\n\tFor i = 1 To 5\n\t\t'Turn green lamp on\n\t\tWritePort OUT_PORT_ADDRESS, green_lamp\n\t\tSleep 200\n\t\t'Turn all bits off\n\t\tWritePort OUT_PORT_ADDRESS, 0\n\t\tSleep 200\n\tNext i\nElse\n\tFor i = 1 to 5\n\t\t'Turn red lamp on\n\t\tWritePort OUT_PORT_ADDRESS, red_lamp\n\t\tSleep 200\n\t\t'Turn all bits off\n\t\tWritePort OUT_PORT_ADDRESS, 0 '0 = all bits off\n\t\tSleep 200\n\tNext i\nEnd If\n\n" Name="Score" TypeName="InLine" Tag="" Notes="" [Object10] _Version=131072 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=0 VersionInternal=20 VersionBuild=2 _VersionPersist=1 Code="'Flash lamps to make sure the port address is correct.\n\nDo\n\t'Writing a value of 255 to the port turns all bits on\n\tWritePort OUT_PORT_ADDRESS, 255 \n\tSleep 500\n\t'Writing a value of 0 to the port turns all bits off\n\tWritePort OUT_PORT_ADDRESS, 0\n\tSleep 500\nLoop Until Introduction.RT > 0\n\n\n/*\nThe WritePort command requires two parameters: port_address, value\nIn this file, each parameter is set as a constant on the User tab \nin the Script window. \n\nThe value sent is translated into binary, \nand represents the mask to be sent to 8 bits simultaneously. The\nvalue to be sent must always consider all 8 bits.\n\nFor example, sending the value \"1\" results in a binary translation\nof 00000001 to set the first bit.\n*/\n\n\n\n" Name="FlashLamps" TypeName="InLine" Tag="" Notes="" [Object11] _Version=131072 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=0 VersionInternal=20 VersionBuild=2 _VersionPersist=1 Code="'Initialize lamps to \"off\"\nWritePort OUT_PORT_ADDRESS, 0 \n\n" Name="TurnAllOff" TypeName="InLine" Tag="" Notes="" [Object12] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=0 VersionInternal=20 VersionBuild=2 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=0 VersionInternal=20 VersionBuild=2 Text="This is the BasicPortRT example program.\n\nIf you have designated the correct port address, the lamps will be flashing.\n\n\nPress the button to begin the experiment." 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="Introduction" TypeName="TextDisplay" Tag="" Notes="" [Data2] DeviceName="Port" DeviceClass="Port" AllowableInput="7" CorrectInput="" TimeLimit="10000" MaxCount="1" InputAction=1 SyncOwnerDuration=0 Enabled=1 FlushInputBuffer="Yes" TerminationInput="" UserTag="" [Object13] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=0 VersionInternal=20 VersionBuild=2 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 States("Correct").X="center" States("Correct").Y="center" States("Correct").Width="100%" States("Correct").Height="100%" States("Correct").XAlign="center" States("Correct").YAlign="center" States("Correct").BackColor="white" States("Correct").BackStyle="opaque" States("Correct").BorderColor="black" States("Correct").BorderWidth="0" States("Correct").ClearAfter="No" States("Correct").Enabled="Yes" States("Correct").ChildCount=4 States("Correct").Objects(1).Type="Text" States("Correct").Objects(1).Text="Correct!" States("Correct").Objects(1).Width="75%" States("Correct").Objects(1).Height="10%" States("Correct").Objects(1).X="center" States("Correct").Objects(1).Y="20%" States("Correct").Objects(1).AlignHorizontal="left" States("Correct").Objects(1).AlignVertical="center" States("Correct").Objects(1).FontName="Courier New" States("Correct").Objects(1).FontSize="18" States("Correct").Objects(1).FontBold="Yes" States("Correct").Objects(1).FontUnderline="No" States("Correct").Objects(1).FontStrikeout="No" States("Correct").Objects(1).FontItalic="No" States("Correct").Objects(1).ForeColor="blue" States("Correct").Objects(1).BackColor="white" States("Correct").Objects(1).BackStyle="transparent" States("Correct").Objects(1).BorderWidth="0" States("Correct").Objects(1).BorderColor="black" States("Correct").Objects(1).XAlign="center" States("Correct").Objects(1).YAlign="center" States("Correct").Objects(1).Name="Text1" States("Correct").Objects(2).Type="Text" States("Correct").Objects(2).Text="@RT Seconds Response Time" States("Correct").Objects(2).Width="75%" States("Correct").Objects(2).Height="10%" States("Correct").Objects(2).X="center" States("Correct").Objects(2).Y="35%" States("Correct").Objects(2).AlignHorizontal="left" States("Correct").Objects(2).AlignVertical="center" States("Correct").Objects(2).FontName="Courier New" States("Correct").Objects(2).FontSize="18" States("Correct").Objects(2).FontBold="Yes" States("Correct").Objects(2).FontUnderline="No" States("Correct").Objects(2).FontStrikeout="No" States("Correct").Objects(2).FontItalic="No" States("Correct").Objects(2).ForeColor="blue" States("Correct").Objects(2).BackColor="white" States("Correct").Objects(2).BackStyle="transparent" States("Correct").Objects(2).BorderWidth="0" States("Correct").Objects(2).BorderColor="black" States("Correct").Objects(2).XAlign="center" States("Correct").Objects(2).YAlign="center" States("Correct").Objects(2).Name="Text2" States("Correct").Objects(3).Type="Text" States("Correct").Objects(3).Text="@ACC.MEAN Average Percent Correct" States("Correct").Objects(3).Width="75%" States("Correct").Objects(3).Height="10%" States("Correct").Objects(3).X="center" States("Correct").Objects(3).Y="45%" States("Correct").Objects(3).AlignHorizontal="left" States("Correct").Objects(3).AlignVertical="center" States("Correct").Objects(3).FontName="Courier New" States("Correct").Objects(3).FontSize="18" States("Correct").Objects(3).FontBold="Yes" States("Correct").Objects(3).FontUnderline="No" States("Correct").Objects(3).FontStrikeout="No" States("Correct").Objects(3).FontItalic="No" States("Correct").Objects(3).ForeColor="blue" States("Correct").Objects(3).BackColor="white" States("Correct").Objects(3).BackStyle="transparent" States("Correct").Objects(3).BorderWidth="0" States("Correct").Objects(3).BorderColor="black" States("Correct").Objects(3).XAlign="center" States("Correct").Objects(3).YAlign="center" States("Correct").Objects(3).Name="Text3" States("Correct").Objects(4).Type="Text" States("Correct").Objects(4).Text="The green lamp should be flashing." States("Correct").Objects(4).Width="75%" States("Correct").Objects(4).Height="25%" States("Correct").Objects(4).X="center" States("Correct").Objects(4).Y="321" States("Correct").Objects(4).AlignHorizontal="center" States("Correct").Objects(4).AlignVertical="center" States("Correct").Objects(4).FontName="Courier New" States("Correct").Objects(4).FontSize="18" States("Correct").Objects(4).FontBold="Yes" States("Correct").Objects(4).FontUnderline="No" States("Correct").Objects(4).FontStrikeout="No" States("Correct").Objects(4).FontItalic="Yes" States("Correct").Objects(4).ForeColor="navy" States("Correct").Objects(4).BackColor="white" States("Correct").Objects(4).BackStyle="opaque" States("Correct").Objects(4).BorderWidth="0" States("Correct").Objects(4).BorderColor="black" States("Correct").Objects(4).XAlign="center" States("Correct").Objects(4).YAlign="center" States("Correct").Objects(4).Name="Text4" States("Incorrect").X="center" States("Incorrect").Y="center" States("Incorrect").Width="100%" States("Incorrect").Height="100%" States("Incorrect").XAlign="center" States("Incorrect").YAlign="center" States("Incorrect").BackColor="white" States("Incorrect").BackStyle="opaque" States("Incorrect").BorderColor="black" States("Incorrect").BorderWidth="0" States("Incorrect").ClearAfter="No" States("Incorrect").Enabled="Yes" States("Incorrect").ChildCount=4 States("Incorrect").Objects(1).Type="Text" States("Incorrect").Objects(1).Text="Incorrect" States("Incorrect").Objects(1).Width="75%" States("Incorrect").Objects(1).Height="10%" States("Incorrect").Objects(1).X="center" States("Incorrect").Objects(1).Y="20%" States("Incorrect").Objects(1).AlignHorizontal="left" States("Incorrect").Objects(1).AlignVertical="center" States("Incorrect").Objects(1).FontName="Courier New" States("Incorrect").Objects(1).FontSize="18" States("Incorrect").Objects(1).FontBold="Yes" States("Incorrect").Objects(1).FontUnderline="No" States("Incorrect").Objects(1).FontStrikeout="No" States("Incorrect").Objects(1).FontItalic="No" States("Incorrect").Objects(1).ForeColor="red" States("Incorrect").Objects(1).BackColor="white" States("Incorrect").Objects(1).BackStyle="transparent" States("Incorrect").Objects(1).BorderWidth="0" States("Incorrect").Objects(1).BorderColor="black" States("Incorrect").Objects(1).XAlign="center" States("Incorrect").Objects(1).YAlign="center" States("Incorrect").Objects(1).Name="Text1" States("Incorrect").Objects(2).Type="Text" States("Incorrect").Objects(2).Text="@RT Seconds Response Time" States("Incorrect").Objects(2).Width="75%" States("Incorrect").Objects(2).Height="10%" States("Incorrect").Objects(2).X="center" States("Incorrect").Objects(2).Y="35%" States("Incorrect").Objects(2).AlignHorizontal="left" States("Incorrect").Objects(2).AlignVertical="center" States("Incorrect").Objects(2).FontName="Courier New" States("Incorrect").Objects(2).FontSize="18" States("Incorrect").Objects(2).FontBold="Yes" States("Incorrect").Objects(2).FontUnderline="No" States("Incorrect").Objects(2).FontStrikeout="No" States("Incorrect").Objects(2).FontItalic="No" States("Incorrect").Objects(2).ForeColor="red" States("Incorrect").Objects(2).BackColor="white" States("Incorrect").Objects(2).BackStyle="transparent" States("Incorrect").Objects(2).BorderWidth="0" States("Incorrect").Objects(2).BorderColor="black" States("Incorrect").Objects(2).XAlign="center" States("Incorrect").Objects(2).YAlign="center" States("Incorrect").Objects(2).Name="Text2" States("Incorrect").Objects(3).Type="Text" States("Incorrect").Objects(3).Text="@ACC.MEAN Average Percent Correct" States("Incorrect").Objects(3).Width="75%" States("Incorrect").Objects(3).Height="10%" States("Incorrect").Objects(3).X="center" States("Incorrect").Objects(3).Y="45%" States("Incorrect").Objects(3).AlignHorizontal="left" States("Incorrect").Objects(3).AlignVertical="center" States("Incorrect").Objects(3).FontName="Courier New" States("Incorrect").Objects(3).FontSize="18" States("Incorrect").Objects(3).FontBold="Yes" States("Incorrect").Objects(3).FontUnderline="No" States("Incorrect").Objects(3).FontStrikeout="No" States("Incorrect").Objects(3).FontItalic="No" States("Incorrect").Objects(3).ForeColor="red" States("Incorrect").Objects(3).BackColor="white" States("Incorrect").Objects(3).BackStyle="transparent" States("Incorrect").Objects(3).BorderWidth="0" States("Incorrect").Objects(3).BorderColor="black" States("Incorrect").Objects(3).XAlign="center" States("Incorrect").Objects(3).YAlign="center" States("Incorrect").Objects(3).Name="Text3" States("Incorrect").Objects(4).Type="Text" States("Incorrect").Objects(4).Text="The red lamp should be flashing." States("Incorrect").Objects(4).Width="103%" States("Incorrect").Objects(4).Height="25%" States("Incorrect").Objects(4).X="center" States("Incorrect").Objects(4).Y="321" States("Incorrect").Objects(4).AlignHorizontal="center" States("Incorrect").Objects(4).AlignVertical="center" States("Incorrect").Objects(4).FontName="Courier New" States("Incorrect").Objects(4).FontSize="18" States("Incorrect").Objects(4).FontBold="yes" States("Incorrect").Objects(4).FontUnderline="no" States("Incorrect").Objects(4).FontStrikeout="no" States("Incorrect").Objects(4).FontItalic="Yes" States("Incorrect").Objects(4).ForeColor="navy" States("Incorrect").Objects(4).BackColor="white" States("Incorrect").Objects(4).BackStyle="opaque" States("Incorrect").Objects(4).BorderWidth="0" States("Incorrect").Objects(4).BorderColor="black" States("Incorrect").Objects(4).XAlign="center" States("Incorrect").Objects(4).YAlign="center" States("Incorrect").Objects(4).Name="Text5" States("NoResponse").X="center" States("NoResponse").Y="center" States("NoResponse").Width="100%" States("NoResponse").Height="100%" States("NoResponse").XAlign="center" States("NoResponse").YAlign="center" States("NoResponse").BackColor="white" States("NoResponse").BackStyle="opaque" States("NoResponse").BorderColor="black" States("NoResponse").BorderWidth="0" States("NoResponse").ClearAfter="No" States("NoResponse").Enabled="Yes" States("NoResponse").ChildCount=2 States("NoResponse").Objects(1).Type="Text" States("NoResponse").Objects(1).Text="No response detected." States("NoResponse").Objects(1).Width="75%" States("NoResponse").Objects(1).Height="10%" States("NoResponse").Objects(1).X="center" States("NoResponse").Objects(1).Y="20%" States("NoResponse").Objects(1).AlignHorizontal="left" States("NoResponse").Objects(1).AlignVertical="center" States("NoResponse").Objects(1).FontName="Courier New" States("NoResponse").Objects(1).FontSize="18" States("NoResponse").Objects(1).FontBold="Yes" States("NoResponse").Objects(1).FontUnderline="No" States("NoResponse").Objects(1).FontStrikeout="No" States("NoResponse").Objects(1).FontItalic="No" States("NoResponse").Objects(1).ForeColor="red" States("NoResponse").Objects(1).BackColor="white" States("NoResponse").Objects(1).BackStyle="transparent" States("NoResponse").Objects(1).BorderWidth="0" States("NoResponse").Objects(1).BorderColor="black" States("NoResponse").Objects(1).XAlign="center" States("NoResponse").Objects(1).YAlign="center" States("NoResponse").Objects(1).Name="Text1" States("NoResponse").Objects(2).Type="Text" States("NoResponse").Objects(2).Text="Look at the flashing lamps." States("NoResponse").Objects(2).Width="94%" States("NoResponse").Objects(2).Height="25%" States("NoResponse").Objects(2).X="center" States("NoResponse").Objects(2).Y="321" States("NoResponse").Objects(2).AlignHorizontal="center" States("NoResponse").Objects(2).AlignVertical="center" States("NoResponse").Objects(2).FontName="Courier New" States("NoResponse").Objects(2).FontSize="18" States("NoResponse").Objects(2).FontBold="yes" States("NoResponse").Objects(2).FontUnderline="no" States("NoResponse").Objects(2).FontStrikeout="no" States("NoResponse").Objects(2).FontItalic="Yes" States("NoResponse").Objects(2).ForeColor="navy" States("NoResponse").Objects(2).BackColor="white" States("NoResponse").Objects(2).BackStyle="opaque" States("NoResponse").Objects(2).BorderWidth="0" States("NoResponse").Objects(2).BorderColor="black" States("NoResponse").Objects(2).XAlign="center" States("NoResponse").Objects(2).YAlign="center" States("NoResponse").Objects(2).Name="Text2" States("Pending").X="center" States("Pending").Y="center" States("Pending").Width="100%" States("Pending").Height="100%" States("Pending").XAlign="center" States("Pending").YAlign="center" States("Pending").BackColor="white" States("Pending").BackStyle="opaque" States("Pending").BorderColor="black" States("Pending").BorderWidth="0" States("Pending").ClearAfter="No" States("Pending").Enabled="Yes" States("Pending").ChildCount=0 UseScriptActivation=0 CollectACCStats=1 CollectNoRespACCStats=1 CollectCorrectRTStats=1 CollectIncorrectRTStats=1 ACCDivisor="1.0" ACCFormat="Percent" RTDivisor="1000.0" RTFormat="###0.000" CorrectRTDivisor="1000.0" CorrectRTFormat="###0.000" IncorrectRTDivisor="1000.0" IncorrectRTFormat="###0.000" Duration="2500" JumpLabel="" TimingMode=0 PreRelease="0" OnsetSync=1 OffsetSync=0 InputObjectName="Stimulus" Name="Feedback" TypeName="FeedbackDisplay" Tag="" Notes="" [UserScript] Const BASE_ADDRESS = 888 '956 Const OUT_PORT_ADDRESS = BASE_ADDRESS Const IN_PORT_ADDRESS = BASE_ADDRESS + 1 Const red_lamp = 1 Const green_lamp = 2