The function STRSRCH in the following code yields TRUE if the first string argument includes the second string argument and FALSE if not.
DEF STRSRCH(A$,B$) VAR LA=LEN(A$),LB=LEN(B$) VAR I IF LB>LA THEN RETURN FALSE FOR I=0 TO LA-LB IF MID$(A$,I,LB)==B$ THEN RETURN TRUE NEXT I RETURN FALSE END READ A$,B$ IF STRSRCH(A$,B$) THEN ?A$;:?" INCLUDES ";:?B$;:?"." ELSE ?A$;:?" DOESN'T INCLUDE ";:?B$;:?"." ENDIF DATA "7291003","03"