; Null example

Type Alien
Field x,y
End Type

a.Alien = New Alien
If a <> Null Then Print "Alien exists!"
Delete a
if a = Null Then Print "Alien gone!"