7 lines
133 B
Text
7 lines
133 B
Text
|
PROCassert(a% = 42)
|
||
|
|
END
|
||
|
|
|
||
|
|
DEF PROCassert(bool%)
|
||
|
|
IF NOT bool% THEN ERROR 100, "Assertion failed"
|
||
|
|
ENDPROC
|