10 REM INSTR and UINSTR: looking for a text in a text
20 DIM A$(40)
30 A$="The quick brown fox"
40 PRINT "quick is at ";INSTR(A$,"quick")
50 PRINT "QUICK is at ";INSTR(A$,"QUICK")
60 PRINT "QUICK without case is at ";UINSTR(A$,"QUICK")
70 PRINT "The first o is at ";INSTR(A$,"o")
80 PRINT "The next o is at ";INSTR(A$,"o",14)
90 PRINT "cat is at ";INSTR(A$,"cat")
100 REM Cut the text into words
110 P=1
120 REPEAT
130   S=INSTR(A$," ",P)
140   IF S=0 THEN S=LEN(A$)+1
150   PRINT A$(P,S-1)
160   P=S+1
170 UNTIL P>LEN(A$)