Listing of file='2P4.BAS;01' on disk='vmedia/color_graphics_1_suits-sector.ccvf'
5 REM PROGRAM 2.4 6 REM COLOR CHANGES FROM THE KEYBOARD 10 PLOT 29:REM TURN FLAG OFF, JUST IN CASE IT WAS ON 20 PRINT "YELLOW" 30 PRINT "RED" 40 DATA "WHITE" 50 READ D$ 60 PRINT D$ 65 REM EDITOR'S NOTE: WHEN READY FOR LINES 70-130, DELETE 66 REM LINES 65-67 67 END 70 PRINT "LENGTH OF D$="LEN (D$) 80 DATA "WHITE":REM NO COLOR CHANGE FOR THIS ONE 90 READ W$ 100 PRINT "LENGTH OF W$="LEN (W$) 110 IF D$= W$THEN PRINT "D$=W$":GOTO 130 120 PRINT "D$<>W$" 130 IF D$= "WHITE"THEN PRINT "OK!"