15 lines
695 B
Plaintext
15 lines
695 B
Plaintext
MODULE EmptyString;
|
|
IMPORT Out;
|
|
VAR
|
|
str: ARRAY 64 OF CHAR;
|
|
BEGIN
|
|
str := "";
|
|
Out.String("for str := ");Out.Char('"');Out.Char('"');Out.Char(';');Out.Ln;
|
|
Out.String("checking str = ");Out.Char('"');Out.Char('"');Out.String(" Is Empty? ");Out.Bool(str = "");Out.Ln;
|
|
Out.String("checking str[0] = 0X. Is Empty? ");Out.Bool(str[0] = 0X);Out.Ln;
|
|
str := "Hello Rossetta";
|
|
Out.String("for str :=");Out.Char('"');Out.String(str);Out.Char('"');Out.Char(";");Out.Ln;
|
|
Out.String("checking str = ");Out.Char('"');Out.String(str);Out.Char('"');Out.String(" Is Empty? ");Out.Bool(str = "");Out.Ln;
|
|
Out.String("checking str[0] = 0X. Is Empty? ");Out.Bool(str[0] = 0X);Out.Ln;
|
|
END EmptyString.
|