2010252<_VersionPersist dt:dt="int">200{4E8BCC89-96AB-477C-98BB-EFCF048528F1}SessionProcCriterionForExit{10343DBD-55BE-45C7-AA62-A5239F6918AB}01100212014-02-13T20:28:14.000536870912DisplayDisplay<_VersionPersist dt:dt="int">1-1064048016white1039201NoYes00%KeyboardKeyboard<_VersionPersist dt:dt="int">1-11001MouseMouse<_VersionPersist dt:dt="int">1-11000SoundSound<_VersionPersist dt:dt="int">1-10DirectSound-1-10-1BlockTrialSubTrialLogLevel5LogLevel6LogLevel7LogLevel8LogLevel9LogLevel10101SubjectPlease enter the Subject Number (1-32767, 0=No Data Logging):0-1-11032767SessionPlease enter the Session Number (1-32767):0-1-11132767GroupPlease enter Subject's Group (0-32767):0001032767NamePlease enter Subject's Name:100255AgePlease enter Subject's Age (0-150):00000150SexPlease enter Subject's Sex:200malemalefemaleHandednessEnter Subject's Handedness:200leftleftrightResearcherIDPlease enter Researcher's ID:0001032767SessionProcProcedure{26148004-7742-453E-BEF4-E0635FCD26A7}2010254<_VersionPersist dt:dt="int">201InitVarsInstructionsBlockListGoodbye101222InitVarsInLineInstructionsTextDisplayBlockListListGoodbyeTextDisplayInitVarsInLine{FFC9CA24-7B94-4F32-AD73-A627114D176C}2010262<_VersionPersist dt:dt="int">1'Initialize variables Set Accuracy = New Summation TrialCount = 0 CriterionMet = True InstructionsTextDisplay{FDF5805A-03DE-499C-913F-A648A13992E8}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime030000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoPress the number that corresponds to the number you see on the screen. After five trials, your accuracy will be checked. The trials will continue to run until you hit 80% accuracy or 20 trials have been run. If you do not reach 80% accuracy within 20 trials, the experiment will terminate.-1000BlockListList{6E28CDE1-0EC7-470C-BF73-0AF53E83DDB3}2010258<_VersionPersist dt:dt="int">5FirstBlockSecondBlock000000001100Weight17510Nested17511Procedure175121 FirstBlock1 SecondBlockFirstBlockProcedure{4E2CBD3A-EFDC-4901-BA3C-D6C4D4B33DA9}2010254<_VersionPersist dt:dt="int">201NumberListCheckCriterion101222NumberListListCheckCriterionInLineNumberListList{474E1427-AFD0-405B-B06A-256B83F5DD39}2010258<_VersionPersist dt:dt="int">5Number1CorrectResponse1NumberTrial102000001100Weight17510Nested17511Procedure17512Number0?75188CorrectResponse0?751885 NumberTrial 1 15 NumberTrial 2 25 NumberTrial 3 35 NumberTrial 4 4NumberTrialProcedure{85E2D490-086F-4F8D-A4BD-8AEA2129823B}2010254<_VersionPersist dt:dt="int">201StimFeedbackIncreaseAndAddCheckAccuracy101222StimTextDisplayFeedbackFeedbackDisplayIncreaseAndAddInLineCheckAccuracyInLineStimTextDisplay{A94CBC7C-031F-4485-9F38-07DE91E91616}2010263<_VersionPersist dt:dt="int">100OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0OnsetToOnsetTime1KeyboardKeyboardKeyboard1234[CorrectResponse]1111YesAllYes50000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo [Number] -1000FeedbackFeedbackDisplay{155E86B5-D997-43F9-B69F-C2C4B97B05D0}2010273<_VersionPersist dt:dt="int">110OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0Correctwhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextText1bluewhitetransparent0blackcenter20%75%10%centercenterleftcenterCourier New18YesNoNoNoCorrect!-1SlideTextText2bluewhitetransparent0blackcenter35%75%10%centercenterleftcenterCourier New18YesNoNoNo@RT Seconds Response Time-1SlideTextText3bluewhitetransparent0blackcenter45%75%10%centercenterleftcenterCourier New18YesNoNoNo@ACC.MEAN Average Percent Correct-1Incorrectwhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextText1redwhitetransparent0blackcenter20%75%10%centercenterleftcenterCourier New18YesNoNoNoIncorrect-1SlideTextText2redwhitetransparent0blackcenter35%75%10%centercenterleftcenterCourier New18YesNoNoNo@RT Seconds Response Time-1SlideTextText3redwhitetransparent0blackcenter45%75%10%centercenterleftcenterCourier New18YesNoNoNo@ACC.MEAN Average Percent Correct-1NoResponsewhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextText1redwhitetransparent0blackcenter20%75%10%centercenterleftcenterCourier New18YesNoNoNoNo response detected.-1Pendingwhiteopaqueblack0centercenter100%100%centercenterNoYes150000100011111.0Percent1000.0###0.0001000.0###0.0001000.0###0.000Stim00IncreaseAndAddInLine{5F65806A-F992-4EB0-802E-39F2C7FD1758}2010262<_VersionPersist dt:dt="int">1'Add individual accuracy scores to Summation object Accuracy.AddObservation CDbl (c.GetAttrib("Stim.ACC")) 'Increase Trial count at end of each trial TrialCount = TrialCount + 1 CheckAccuracyInLine{5F406C50-B008-40E8-9BBE-17142C84B4C2}2010262<_VersionPersist dt:dt="int">1'When trial count = 5, start evaluating accuracy stats on every trial If TrialCount >= 5 Then 'If the mean of the Summation object ever reaches 80% or better, 'move to next block If Accuracy.Mean >= .80 Then 'MsgBox for debugging purposes only MsgBox "Terminate" 'Terminate currently running List NumberList.Terminate Else CriterionMet = False End If End If CheckCriterionInLine{BEC312E5-7504-4B2A-9064-11AA33E5B737}2010262<_VersionPersist dt:dt="int">1 'Evaluate accuracy again 'If all 20 trials have been run, and the subject has still not reached '80% accuracy, the BlockList will terminate, and the experiment will end. If Accuracy.Mean < .80 Then BlockList.Terminate End IfNextBlockTextDisplay{F4AE6921-3A95-4B2F-91D1-844AF15F31DC}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime020000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoGreat job! Let's try the next block.-1000NumberList2List{B9D84C24-C085-402D-84EA-FCFF87666864}2010258<_VersionPersist dt:dt="int">5Number1CorrectResponse1NumberTrial2102001201100Weight17510Nested17511Procedure17512Number0?75188CorrectResponse0?751882 NumberTrial2 1 12 NumberTrial2 2 22 NumberTrial2 3 32 NumberTrial2 4 4NumberTrial2Procedure{01DC0722-0568-43E8-A92F-6A015A65F9CF}2010254<_VersionPersist dt:dt="int">201StimFeedback101222StimTextDisplayFeedbackFeedbackDisplayGoodbyeTextDisplay{DBA8AA24-5BEC-4FDD-9CAE-A308C31FB033}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime010000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoGoodbye-1000SecondBlockProcedure{6DA7B02B-7897-49D7-B15A-FF84FCC38F77}2010254<_VersionPersist dt:dt="int">201NumberList2NextBlock101012NumberList2ListNextBlockTextDisplay'Declare Summation object Dim Accuracy As Summation 'Declare trial counter Dim TrialCount As Integer 'Declare variable to check criterion Dim CriterionMet As Boolean