30 lines
585 B
Plaintext
30 lines
585 B
Plaintext
set "$str1" to "annoy"
|
|
set "$str2" to "annoy"
|
|
: "loop"
|
|
if "$str1" === "$str2" then "case_equal"
|
|
if "$str1" = "$str2" then "equal"
|
|
if "$str1" > "$str2" then "greater_than"
|
|
if "$str1" < "$str2" then "less_than"
|
|
end
|
|
|
|
: "case_equal"
|
|
* "&$str1& is case equal to &$str2&"
|
|
set "$str2" to "ANNOY"
|
|
goto "loop"
|
|
|
|
: "equal"
|
|
* "&$str1& is equal to &$str2&"
|
|
set "$str2" to "allow"
|
|
wait for 100
|
|
goto "loop"
|
|
|
|
: "greater_than"
|
|
* "&$str1& is lexicographically greater than &$str2&"
|
|
set "$str1" to "aardvark"
|
|
wait for 100
|
|
goto "loop"
|
|
|
|
: "less_than"
|
|
* "&$str1& is lexicographically less than &$str2&"
|
|
end
|