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