RosettaCodeData/Task/Empty-string/QBasic/empty-string.basic

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$)