Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Code Block
Str1 = "27"
Str2 = "27."

// In BASIC+, thesereturns are equal
If 1
IsEqual = (Str1 = Str2 then
    Ans = "Equal Value"
end else
    Ans = "Not Equal Value"
end

)

// UsingCompare theservice Comparereturns service, these strings are not equal
If-1 (Str1 is less than Str2)
Result = SRP_String("Compare", Str1, Str2) = 0 then
    Ans = "Equal Strings"
end else
    Ans = "Not Equal Strings"
end

// Case sensitive comparison returns 0
Ans 1 (Str1 is greater than Str2)
Result = SRP_String("Compare", "HELLO", "hello", No$)

// Case insensitive comparison returns 1
Ans0 (equal)
Result = SRP_String("Compare", "HELLO", "hello", Yes$)

...