Compucolor.org – Virtual Media

Listing of file='STROOP.BAS;01' on disk='vmedia/ncc_5-sector.ccvf'

5 REM  STROOP PHENOMENA 4-3-79 BY JIM AMOS
7 GOSUB 100
10 DATA "RED","GREEN","YELLOW","BLUE","MAGENTA","CYAN","WHITE"
20 FOR I= 1TO 7:READ A$(I):NEXT
30 J= INT (1+ RND (8)* 7)
40 C= INT (1+ RND (8)* 7):IF J= CTHEN 40
50 PLOT 14,12,6,C,3,30,20:PRINT A$(J):PLOT 3,80,0
60 FOR I= 1TO 200:NEXT
70 PLOT 12,3,80,0
80 FOR I= 1TO 300:NEXT
90 GOTO 30
100 PLOT 12,14
110 PRINT "THE PURPOSE OF THIS PROGRAM IS TO CHALLENGE YOUR ABILITY"
120 PRINT "TO NAME THE COLOR OF A WORD, AND NOT THE COLOR THAT THE"
130 PRINT "WORD REPRESENTS"
140 PRINT
150 PLOT 23:PRINT "FOR EXAMPLE :   ";:PLOT 21:PRINT "GREEN   "
160 PLOT 23:PRINT "YOU SHOULD HAVE SAID MAGENTA, NOT GREEN. "
165 PRINT
170 PLOT 23:PRINT "FOR EXAMPLE :   ";:PLOT 22:PRINT "BLUE":PLOT 23
180 PRINT "YOU SHOULD HAVE SAID CYAN NOT BLUE.":PLOT 19
185 PRINT
190 INPUT "HIT RETURN TO CONTINUE ";B$
200 RETURN