35 lines
918 B
Plaintext
35 lines
918 B
Plaintext
FUNCTION StringCompare$(s1$, s2$, ignorecase)
|
|
IF ignorecase = True then
|
|
LET s$ = LCASE$(s1$)
|
|
LET t$ = LCASE$(s2$)
|
|
ELSE
|
|
LET s$ = s1$
|
|
LET t$ = s2$
|
|
END IF
|
|
IF s$ < t$ then
|
|
LET StringCompare$ = " comes before "
|
|
ELSE
|
|
IF s$ = t$ then
|
|
LET StringCompare$ = " is equal to "
|
|
ELSE
|
|
LET StringCompare$ = " comes after "
|
|
END IF
|
|
END IF
|
|
END FUNCTION
|
|
|
|
LET s1$ = "Dog"
|
|
LET s2$ = "Dog"
|
|
PRINT s1$; StringCompare$(s1$, s2$, False); s2$
|
|
LET s2$ = "Cat"
|
|
PRINT s1$; StringCompare$(s1$, s2$, False); s2$
|
|
LET s2$ = "Rat"
|
|
PRINT s1$; StringCompare$(s1$, s2$, False); s2$
|
|
LET s2$ = "dog"
|
|
PRINT s1$; StringCompare$(s1$, s2$, False); s2$
|
|
PRINT s1$; StringCompare$(s1$, s2$, True); s2$; " if case is ignored"
|
|
LET s1$ = "Dog"
|
|
LET s2$ = "Pig"
|
|
LET s3$ = StringCompare$(s1$, s2$, 0)
|
|
IF s3$ <> " is equal to " then PRINT s1$; " is not equal to "; s2$
|
|
END
|