RosettaCodeData/Task/Empty-string/XPL0/empty-string.xpl0
2023-07-01 13:44:08 -04: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
");
]