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