2010252<_VersionPersist dt:dt="int">200{B821E4CF-D028-4905-8F22-4CC6CA651033}SessionProcScriptAddSlideTextBasicPsychology Software Tools, IncThis experiment adds SlideText objects during the course of an experiment. {10343DBD-55BE-45C7-AA62-A5239F6918AB}01201035602020-03-31T15:10:37.000536870912DisplayDisplay<_VersionPersist dt:dt="int">1-1064048032white1039201NoYes125%SoundSound<_VersionPersist dt:dt="int">1-10DirectSoundKeyboardKeyboard<_VersionPersist dt:dt="int">1-11001MouseMouse<_VersionPersist dt:dt="int">1-11000-1-10-1BlockTrialSubTrialLogLevel5LogLevel6LogLevel7LogLevel8LogLevel9LogLevel10101SubjectPlease enter the Subject Number (0=No Data Logging):0-1-1102147483647SessionPlease 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{58E0B0CA-B633-42CA-BE90-8FF60CD2A3D5}2010254<_VersionPersist dt:dt="int">201CreateSlideTextInLineInfoTextDisplayBlockList101022CreateSlideTextInLineInLineInfoTextDisplayTextDisplayBlockListListCreateSlideTextInLineInLine{71B9EAFA-64EE-49DE-93A3-D438269D25A2}2010262<_VersionPersist dt:dt="int">1

Dim Stimulus_SlideText As SlideText

Set Stimulus_SlideText = New SlideText
Stimulus_SlideText.Name = "Text1"

Stimulus.States.Item("Default").Objects.Add Stimulus_SlideText, "Text1"

	Stimulus_SlideText.Text = "Test"
	Stimulus_SlideText.X = "25%"
	Stimulus_SlideText.Y = "50%"
	Stimulus_SlideText.BorderColor = CColor("red")
	Stimulus_SlideText.BorderWidth = 3
	Stimulus_SlideText.Height = "25%"
	Stimulus_SlideText.Width = "25%"

	Set Stimulus_SlideText = CSlideText(Stimulus.States.Item("Default").Objects(1))

Set Stimulus_SlideText = New SlideText
Stimulus_SlideText.Name = "Text2"

Stimulus.States.Item("Default").Objects.Add Stimulus_SlideText, "Text2"

	Stimulus_SlideText.Text = "Test 2"
	Stimulus_SlideText.X = "75%"
	Stimulus_SlideText.Y = "50%"
	Stimulus_SlideText.BorderColor = CColor("green")
	Stimulus_SlideText.BorderWidth = 3
	Stimulus_SlideText.Height = "25%"
	Stimulus_SlideText.Width = "25%"

	Set Stimulus_SlideText = CSlideText(Stimulus.States.Item("Default").Objects(2))

InfoTextDisplayTextDisplay{9760EDB5-2929-4EB5-A418-D9878E403DFE}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime010000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoGenerate SlideText object.-1000TrialListList{21677DFC-CCF4-466F-A66F-2E5DEA75133E}2010258<_VersionPersist dt:dt="int">5TrialProc000000001100Weight117510Nested17511Procedure1TrialProc75121 TrialProcTrialProcProcedure{D2E9BFE5-ECB1-46D9-8001-E3389557DF1E}2010254<_VersionPersist dt:dt="int">201Stimulus101222StimulusSlideStimulusSlide{3F796A89-04D2-446F-8970-D51397963790}2010273<_VersionPersist dt:dt="int">110OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0MouseMouseMouse{ANY}1111YesDefaultwhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextInstructionsblackwhiteopaque0blackcenter13%25%25%centercentercentercenterCourier New18YesNoNoNoClick the mouse to end.-1-10Default010000DisplayDeviceBlockListList{C58B4A74-F33F-4A11-B6BA-28C30AFA4EC0}2010258<_VersionPersist dt:dt="int">5BlockProc000000001100Weight117510Nested17511Procedure1BlockProc75121 BlockProcBlockProcProcedure{7822829F-107D-4584-AF6A-493509C22A15}2010254<_VersionPersist dt:dt="int">201TrialList101012TrialListList