29 lines
757 B
Plaintext
29 lines
757 B
Plaintext
sub StringCompare$(s1$, s2$, ignoreCase)
|
|
local s$, t$
|
|
|
|
if ignoreCase then
|
|
s$ = lower$(s1$)
|
|
t$ = lower$(s2$)
|
|
else
|
|
s$ = s1$
|
|
t$ = s2$
|
|
end if
|
|
if s$ < t$ return " comes before "
|
|
if s$ = t$ return " is equal to "
|
|
return " comes after "
|
|
end sub
|
|
|
|
s1$ = "Dog" : s2$ = "Dog"
|
|
print s1$, StringCompare$(s1$, s2$, False), s2$
|
|
s2$ = "Cat"
|
|
print s1$, StringCompare$(s1$, s2$, False), s2$
|
|
s2$ = "Rat"
|
|
print s1$, StringCompare$(s1$, s2$, False), s2$
|
|
s2$ = "dog"
|
|
print s1$, StringCompare$(s1$, s2$, False), s2$
|
|
print s1$, StringCompare$(s1$, s2$, True), s2$, " if case is ignored"
|
|
s1$ = "Dog" : s2$ = "Pig"
|
|
s3$ = StringCompare$(s1$, s2$, False)
|
|
if s3$ <> " is equal to " print s1$, " is not equal to ", s2$
|
|
end
|