RosettaCodeData/Task/Empty-string/XPL0/empty-string.xpl0
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

10 lines
221 B
Text

code Text=12;
string 0; \use zero-terminated convention, instead of MSb set
char S;
[S:= ""; \assign an empty string
if S(0) = 0 then Text(0, "empty
");
S:= "Hello";
if S(0) # 0 then Text(0, "not empty
");
]