{INSTRUCTIONS: presents instructions to the subject} procedure instructions; begin clrscr; writeln('Hello! Are you ready?'); writeln;writeln;writeln;writeln;writeln;writeln; writeln('In this experiment you are asked to read some sentences'); writeln('and to react to them by pressing a key.'); writeln;writeln;writeln;writeln;writeln;writeln; writeln('The computer will show you new sentences when you'); writeln('press the SPACE BAR.'); writeln;writeln;writeln;writeln;writeln;writeln; WaitKey(' '); clrscr; writeln('When you press the SPACE BAR, you see a sentence.'); writeln; writeln(' This is an example sentence.'); writeln;writeln;writeln; writeln('Shortly afterwards a second sentence automatically appears under the first one.'); writeln; writeln(' This is an example sentence.'); writeln; writeln(' This is a second example sentence.'); writeln;writeln;writeln; writeln('You must decide -- AS QUICKLY AS YOU CAN -- if the second example sentence is'); writeln('IDENTICAL to the first example sentence.'); writeln; writeln('The decision must be made as quickly as possible because both sentences'); writeln('will disappear from the screen a few seconds after they appear.'); writeln; WaitKey(' '); clrscr; writeln('If the sentences are IDENTICAL, then you press the BLUE key on the'); writeln('right side of the keyboard.'); writeln; writeln(' This is an example sentence.'); writeln; writeln(' This is an example sentence.'); writeln;writeln(' (BLUE)'); writeln;writeln;writeln; writeln('If the sentences are DIFFERENT, then you press the RED key on the'); writeln('left side of the keyboard.'); writeln; writeln(' This is an example sentence.'); writeln; writeln(' That is an example sentence.'); writeln;writeln('(RED)'); writeln;writeln;writeln;writeln; WaitKey(' '); clrscr; writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln; writeln(' * * * B E E P * * * '); write(^G); clrscr; writeln('If you hear a BEEP, then you have accidently pressed'); writeln('some other key.'); writeln;writeln; writeln('Press the RED or BLUE key NOW!'); writeln; read (kbd,response); writeln; while not (response in ['f','F','j','J']) do begin writeln('RED=DIFFERENT BLUE=IDENTICAL '); write(^G); read (kbd,response); if (response in ['j','J']) then write(' IDENTICAL'); if (response in ['f','F']) then write(' DIFFERENT'); end; writeln;writeln;writeln;; writeln('After you press either RED or BLUE, you can see new sentences'); writeln('by pressing the SPACE BAR.'); writeln;writeln;writeln;writeln;writeln;writeln; writeln('Now try a few example sentences!'); writeln;writeln;writeln;writeln; WaitKey(' '); MatchPair[1] := 'Tomorrow the student will sleep at home.'; MatchPair[2] := 'Tomorrow the student will sleep at home.'; Query(MatchPair, Time, Numtries, Guess); delay (1750);clrscr; WaitKey(' '); MatchPair[1] := 'Yesterday the director cried over the movie.'; MatchPair[2] := 'Yesterday the director laughed over the movie.'; Query(MatchPair, Time, Numtries, Guess); delay (1750);clrscr; WaitKey(' '); MatchPair[1] := 'Yesterday the cat run up into a tree.'; MatchPair[2] := 'Yesterday the dog ran up into a tree.'; Query(MatchPair, Time, Numtries, Guess); delay (1750);clrscr; WaitKey(' '); MatchPair[1] := 'Yesterday dog the walked around the park.'; MatchPair[2] := 'Yesterday dog the walked through the park.'; Query(MatchPair, Time, Numtries, Guess); delay (1750);clrscr; WaitKey(' '); MatchPair[1] := 'Tomorrow the engineer will downtown jog.'; MatchPair[2] := 'Tomorrow the engineer will downtown jog.'; Query(MatchPair, Time, Numtries, Guess); delay (1750);clrscr; WaitKey(' '); MatchPair[1] := 'Tomorrow the coach will drive to work.'; MatchPair[2] := 'Tomorrow the coach will walk to work.'; Query(MatchPair, Time, Numtries, Guess); delay (1750);clrscr; WaitKey(' '); MatchPair[1] := 'Yesterday the horse swam the across channel.'; MatchPair[2] := 'Yesterday the horse swam the across channel.'; Query(MatchPair, Time, Numtries, Guess); delay (1750);clrscr; WaitKey(' '); MatchPair[1] := 'Tomorrow the cowboy will remain at home.'; MatchPair[2] := 'Tomorrow the maid will remain at home.'; Query(MatchPair, Time, Numtries, Guess); delay (1750);clrscr; WaitKey(' '); MatchPair[1] := 'Yesterday the pilot flew through night the.'; MatchPair[2] := 'Yesterday the plumber flew through night the.'; Query(MatchPair, Time, Numtries, Guess); delay (1750);clrscr; WaitKey(' '); MatchPair[1] := 'Yesterday the athlete stayed in his bed.'; MatchPair[2] := 'Yesterday the athlete stayed in his bed.'; Query(MatchPair, Time, Numtries, Guess); delay (1750);clrscr; WaitKey(' '); clrscr; writeln;writeln;writeln;writeln;writeln;writeln;writeln; writeln(' ***************** END OF PRACTICE ****************'); writeln; writeln(' Start the experiment by pressing the SPACE BAR.'); writeln;writeln;writeln;writeln;writeln; writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln; WaitKey(' '); writeln; end; ZW2.18@8€PRNôTXT psfdelay (199775) t1750SSSS