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