2023-07-01 11:58:00 -04:00
|
|
|
subroutine IsEmpty (s$)
|
2026-02-01 16:33:20 -08:00
|
|
|
if length(s$) = 0 then
|
|
|
|
|
print "String is empty"
|
|
|
|
|
else
|
|
|
|
|
print "String is not empty"
|
|
|
|
|
end if
|
|
|
|
|
if s$ = "" then print "yes, the string is empty"
|
|
|
|
|
if s$ <> "" then print "no, the string is not empty"
|
2023-07-01 11:58:00 -04:00
|
|
|
end subroutine
|
|
|
|
|
|
|
|
|
|
t$ = ""
|
|
|
|
|
call IsEmpty (t$)
|
|
|
|
|
u$ = "not empty"
|
|
|
|
|
call IsEmpty (u$)
|
|
|
|
|
end
|
