Compucolor.org – Virtual Media

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

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 THE 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."
170 PLOT 22:PRINT "                 BLUE    ";:PLOT 23
180 PRINT "                 CYAN NOT BLUE.":PLOT 19
190 INPUT "HIT THE RETURN KEY TO CONTINUE.";B$
200 RETURN