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