This example is used from samples/sandbox.prg