Code: Select all
Assert(SizeOf(Integer) = 4)
Assert(OpenWindow(0, ...) <> 0)
Assert(*Ptr <> 0)
If the assertion failes, an error dialog should be displayed showing the exact location in the code,
and maybe some other information followed by an immediate call of the End function.
Would be very handy to develop much more reliable code in Purebasic
