BCX Console Demonstration Program S109.bas

 ' ---------------------------------------------------
 '     BCX's implementation of the LIKE function
 '     uses only the "*" and "?" wildcard characters
 '     Syntax i = like( Buffer$ , Pattern$ )
 '     Like returns 1 if True -- 0 if False
 ' ---------------------------------------------------
 
 DIM I AS Integer
 
 I = LIKE("abcdefg","*d?f*") : PRINT I
 
 I = LIKE("abcdefg","*df?") : PRINT I