15 lines
292 B
Text
15 lines
292 B
Text
sub IsEmpty (s$)
|
|
if len(s$) = 0 then
|
|
print "String is empty"
|
|
else
|
|
print "String is not empty"
|
|
endif
|
|
if s$ = "" print "yes, the string is empty"
|
|
if s$ <> "" print "no, the string is not empty"
|
|
end sub
|
|
|
|
t$ = ""
|
|
IsEmpty (t$)
|
|
u$ = "not empty"
|
|
IsEmpty (u$)
|
|
end
|