home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 100 / 100.d81 / stroop (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  147 lines
  1. 3 poke55,0:poke56,56:clr
  2. 5 dv=peek(186):ifdv<8thendv=8
  3. 10 poke53281,0:poke53280,0:print"[147]":gosub60000
  4. 12 sys57812"stroopfont",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  5. 13 sys57812"ss",dv,0:poke780,0:poke781,16:poke782,205:sys65493:ss=52496:s=ss
  6. 19 goto100
  7. 20 poke214,y-1:print:printtab(x)"[129][176]"left$(h$,xx)"[174]"
  8. 21 fori=0toyy:printtab(x)"[129][221]"left$(s$,xx)"[221][151][188]":next
  9. 22 printtab(x)"[129][173]"left$(h$,xx)"[189][151][187]"
  10. 23 printtab(x+1)left$(b0$,xx+3)
  11. 24 return
  12. 25 poke214,18:print:printtab(15)"[155][208]ress a key"
  13. 26 poke198,0
  14. 27 geta$:ifa$=""then27
  15. 28 return
  16. 30 poke214,y-1:print:printtab(x);
  17. 31 fori=1tolen(t$):ifmid$(t$,i,1)=" "thenprint"[146] ";:goto33
  18. 32 print""u$(asc(mid$(t$,i,1))-64)"[145]";
  19. 33 next:print:return
  20. 36 tr=tr+1:iftr>5thentr=1
  21. 37 t=1:goto40
  22. 38 t=t+1
  23. 40 poke214,10:print
  24. 41 printtab(16)"[129][212][197][211][212] #"chr$(t+48)
  25. 42 printtab(5)"[159][208]ress [211][208][193][195][197] to start quiz.
  26. 43 [153][163]5)"(NULL)ay out loud the len(NULL)(NULL)(NULL)(NULL)s of
  27. 44 printtab(5)"the ten words on the screen,
  28. 45 [153][163]5)"from top to bottom.  (NULL)ress
  29. 46 printtab(5)"[211][208][193][195][197] again after you name
  30. 47 [153][163]5)"the last word's color.
  31. 48 poke214,18:print:printtab(9)"[155][208]ress [211][208][193][195][197][155] when ready"
  32. 49 poke198,0
  33. 50 geta$:ifa$<>" "then50
  34. 51 return
  35. 55 ti$="000000"
  36. 56 print"[155]           [208]ress [211][208][193][195][197][155] when done
  37. 57 [151]198,0:[151]53265,27
  38. 58 [161]a$:[139]a$[179][177]" "[167]58
  39. 59 tm[178]ti:sc[178][181](tm[173]60):ts[178]tm[171]60[172]sc:ts$[178][196](ts)
  40. 60 tm$(tr,t)[178][196](sc)[170]"."[170][202](ts$,2,1)
  41. 61 [158]ss[170]3,1:x[178]5:xx[178]28:y[178]8:yy[178]2:[141]20
  42. 62 [151]214,9:[153]:[153][163]7)"openatnpproximately"tm$(tr,t)"open seconds"
  43. 63 zz[178]0
  44. 64 zz[178]zz[170]1:[161]a$:[139]a$[178]""[175]zz[179]200[167]64
  45. 65 [158]ss[170]3,2:[142]
  46. 100 [134]an$(100),l$(27),u$(27)
  47. 110 b0$[178]"logrndlogloglogrndloglogrndrndlogloglogrndrndrndlogrndlogrndrndlogrndlogrndrndlogrndlogrndlogloglogrndlogrndrndlogrndlog"
  48. 111 b1$[178]"loglogrndrndlogrndloglogrndlogrndrndlogrndlogrndloglogrndlogrndlogrndlogrndlogrndloglogrndlogrndlogrndlogrndlogrndlogrnd"
  49. 112 s$[178]"                                        "
  50. 113 h$[178]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  51. 114 [129]i[178]1[164]10:[135]tb(i),r(i),o(i):[130]
  52. 115 [131]3,1,1,0,4,4,1,3,3,2,2,2,3,1,1,2,2,2,0,4,4,1,3,3,2,2,2,3,1,1
  53. 116 r(0)[178]2
  54. 120 [129]i[178]1[164]26:u$(i)[178][199](192[170]i)[170]"cmd"[170][199](224[170]i):[130]:u$(2)[178]"\cmd<"
  55. 121 [129]i[178]1[164]26:l$(i)[178][199](64[170]i)[170]"cmd"[170][199](32[170]i):[130]:l$(2)[178]"[cmd;"
  56. 122 [129]i[178]1[164]4:[135]w$(i),co$(i):lw(i)[178][195](w$(i))
  57. 123 [129]j[178]1[164]lw(i)
  58. 124 as[178][198]([202](w$(i),j,1))[171]64
  59. 126 wb$(i)[178]wb$(i)[170]l$(as)[170]"wait on":[130]
  60. 128 [130]
  61. 129 [131]"red","","blue","","green","","yellow","sys"
  62. 130 [153]"loadlist";:[151]53272,31
  63. 132 [129]i[178]0[164]23:[153]b0$;:[130]
  64. 134 [153][200](b0$,40)"cmdsavelog"
  65. 136 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]
  66. 138 [158]ss,1
  67. 200 x[178]1:xx[178]35:y[178]1:yy[178]3:[141]20
  68. 210 t$[178]"t h e   s t r o o p   e f f e c t":x[178]3:y[178]3:[153]"sys":[141]30
  69. 220 x[178]3:xx[178]31:y[178]9:yy[178]10:[141]20
  70. 222 [158]ss,2
  71. 230 [151]214,10:[153]
  72. 232 [153][163]5)"openright$n 1935, mid$. (NULL)idley (NULL)troop    "
  73. 234 [153][163]5)"demonstrated an unusual thing
  74. 236 printtab(5)"the human brain does with
  75. 238 [153][163]5)"words and colors.  (NULL)his
  76. 240 printtab(5)"program will show you the
  77. 242 [153][163]5)"effect by asking you to take
  78. 244 printtab(5)"three timed tests.
  79. 246 [141]25:[141]20
  80. 250 [151]214,10:[153]
  81. 252 [153][163]5)"open  ascirst, adjust your color."
  82. 254 [153][163]11)""wb$(1)""wb$(2)
  83. 256 [153][163]7)""wb$(3)"sys"wb$(4)
  84. 258 [141]25:[141]20
  85. 270 [141]36
  86. 280 [151]53265,11:[153]"load"
  87. 282 [129]i[178]1[164]10
  88. 284 [153][163]tb(i)[170]15)""co$(r(i))wb$(o(i)):[153]
  89. 286 [130]
  90. 290 [141]55
  91. 300 [141]38
  92. 302 [151]53265,11:[153]"load"
  93. 304 [129]i[178]1[164]10
  94. 306 ra[178][181]([187](1)[172]4)[170]1:[139]ra[178]o(i)[167]306
  95. 308 [153][163]tb(i)[170]15)""co$(ra)wb$(o(i)):[153]
  96. 310 [130]
  97. 312 [141]55
  98. 320 [141]38
  99. 322 [151]53265,11:[153]"load"
  100. 324 [129]i[178]1[164]10
  101. 328 [153][163]tb(i)[170]15)""co$(r(i[171]1))wb$(o(i)):[153]
  102. 330 [130]
  103. 332 [141]55
  104. 340 [151]214,10:[153]
  105. 342 [153][163]12)"clr(NULL)val(NULL)(NULL)     1    2    3
  106. 344 printtab(5)"[212][210][201][193][204]
  107. 346 [129]i[178]1[164]tr
  108. 348 [153][163]6)"list"i;[163]19)tm$(i,1)[163]24)tm$(i,2)[163]29)tm$(i,3)
  109. 350 [130]
  110. 360 [151]214,18:[153]:[153][163]6)"(NULL)(NULL)atnlenval openatnnother trial  (NULL)open (NULL)uit"
  111. 362 [151]198,0
  112. 364 [161]a$:[139]a$[179][177]" "[175]a$[179][177]"q"[167]364
  113. 366 [139]a$[178]"q"[167]370
  114. 368 [158]ss[170]3,2:[137]270
  115. 370 [158]ss[170]3,1
  116. 372 x[178]3:xx[178]31:y[178]9:yy[178]10:[141]20
  117. 374 [151]214,10:[153]
  118. 376 [153][163]5)"open(NULL)troop demonstrated that the "
  119. 378 [153][163]5)"human mind is slowed when it
  120. 380 printtab(5)"has to process information in
  121. 382 [153][163]5)"two 'dimensions'.  (NULL)ou should
  122. 384 printtab(5)"have consistently done better
  123. 386 [153][163]5)"on (NULL)val(NULL)(NULL) #1 than on (NULL)val(NULL)(NULL)s #2
  124. 388 printtab(5)"and #3.
  125. 390 [151]214,18:[153]:[153][163]8)"list(NULL)ress any key to quit"
  126. 392 [151]198,0
  127. 394 [161]a$:[139]a$[178]""[167]394
  128. 400 [153]"load":[151]53272,22
  129. 410 [159]15,dv,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  130. 420 [139]er[179][177]63[167][128]
  131. 430 [153]"loadstopload"[199](34)"hello connect"[199](34)","dv
  132. 440 [153]"run"
  133. 450 [151]631,13:[151]632,13:[151]198,2:[128]
  134. 9999 [137]9999
  135. 10000 [159]15,8,15,"s0:stroop":[160]15:[148]"stroop",8:[128]
  136. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  137. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
  138. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  139. 60030 z$(0)[178]"(NULL) left$ val   (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)   val asc asc val len (NULL)":z$(1)[178]"by ascender (NULL)ucker
  140. 60040 z$(2)="[214]1.0 ([195]) 1992 by [211]oftdisk, [201]nc."+chr$(13)
  141. 60050 z$(3)="[212]his program is the copyrighted work
  142. 60060 z$(4)[178]"of (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$.  right$t is not"
  143. 60070 z$(5)[178]"shareware or in the public domain."
  144. 60080 z$(6)[178]"(NULL)eport illegal distribution of":z$(7)[178]"this program by calling"
  145. 60090 z$(8)[178]"1-800-831-2694 or 1-318-221-8718.":[151]214,12:[153]
  146. 60100 [129]i[178]0[164]8:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  147.