A two-state model of simple reaction time
A two-state model of simple reaction time
A two-state model of simple reaction time
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
c<br />
SRTEXP 3<br />
- 134 -<br />
I: SUBROUTINE BLK7<br />
2: DINENSION ISTM( leJ0)IXRT( 1(0)<br />
3: DATA I STM/01 21 eJl II 11414131310121 eJl 11412101 II eJl 3121<br />
4: * 3131313131214131410121 112141 1101 !I 31 01 21<br />
5: * 01 II II 11213141 11413121 1121 11014131 2141 II<br />
6: * 2101013131 1131 1101 1141 01 01 11214131 014141<br />
7: * 21 41 II 31 21 31 21 21 II 41 01 41 01 41 21 21 41 31 01 4/<br />
6: \oJRI T E( 21 1000)<br />
9: I{2jQlQl FOP,NAT( 'BLOCK 7· ··READY 7 ')<br />
10: CALL BLK QI( I STMI XRT><br />
II: CALL FL7<br />
12: REWIND 3<br />
13: WRITE(6)ISTMIXRT'<br />
14: RETURN<br />
15: END