14 lines
220 B
Text
14 lines
220 B
Text
MODULE Null;
|
|
IMPORT
|
|
Out;
|
|
TYPE
|
|
Object = POINTER TO ObjectDesc;
|
|
ObjectDesc = RECORD
|
|
END;
|
|
|
|
VAR
|
|
o: Object; (* default initialization to NIL *)
|
|
|
|
BEGIN
|
|
IF o = NIL THEN Out.String("o is NIL"); Out.Ln END
|
|
END Null.
|