16 lines
402 B
Text
16 lines
402 B
Text
SUB IsEmpty (s AS STRING)
|
|
IF LEN(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"
|
|
END SUB
|
|
|
|
DIM s AS STRING ' implicitly assigned an empty string
|
|
IsEmpty (s)
|
|
t$ = "" ' explicitly assigned an empty string
|
|
IsEmpty (t$)
|
|
u$ = "not empty"
|
|
IsEmpty (u$)
|