[ Objekt ] är-lika-med: [ Objekt ]

var x := Objekt ny.
 var y := Objekt ny.
 var z := x.
 Stdout skriva: ( x är-lika-med: y ), stop.
 Stdout skriva: ( x är-lika-med: z ), stop.
 Stdout skriva: ( x = y ), stop.
 Stdout skriva: ( x = z ), stop.
 Stdout skriva: ( x ≠ y ), stop.
 Stdout skriva: ( x ≠ z ), stop.

Falsk
Sann
Falsk
Sann
Sann
Falsk