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