#COMPILE EXE "s20_string_compare.exe"
' Sample: String comparison and sorting
FUNCTION PBMAIN() AS LONG
    DIM a AS STRING, b AS STRING
    a = "Apple" : b = "Banana"
    PRINT "a="; a; " b="; b
    IF a < b THEN PRINT "a comes before b"
    IF a = "Apple" THEN PRINT "a equals Apple"
    PRINT "LIKE: a LIKE '*pp*' = "; IIF(a LIKE "*pp*", 1, 0)
    FUNCTION = 0
END FUNCTION
