(Login MCalkins) Moderator Posted Jun 2, 2012 9:17 PM
Regards, Michael
'public domain, 2012 june, michael calkins
DIM t AS STRING
DIM i AS LONG
DIM w AS LONG
DIM target AS LONG
t = "abc def ghi jkl mno"
CLS
FOR target = -1 TO 5
w = 0
FOR i = 1 TO LEN(t)
IF ASC(MID$(t, i, 1)) = &H20 THEN w = w + 1
IF w = target THEN COLOR 15 ELSE COLOR 7
PRINT MID$(t, i, 1);
NEXT
PRINT
NEXT