19 lines
280 B
Text
19 lines
280 B
Text
REM String variables are initially empty after declaring them.
|
|
|
|
PROC main:
|
|
LOCAL s$(10)
|
|
checkstr:(s$)
|
|
s$="not empty."
|
|
checkstr:(s$)
|
|
s$=""
|
|
checkstr:(s$)
|
|
GET
|
|
ENDP
|
|
|
|
PROC checkstr:(s$)
|
|
IF s$=""
|
|
PRINT "String is empty."
|
|
ELSE
|
|
PRINT "String is",s$
|
|
ENDIF
|
|
ENDP
|