$firstlev
$noth


:OK
print "Assertion OK!"
ret

:FAILED
print "Assertion failed. I shall not allow further execution."
quit
ret

:START
print "Bloodlust of Polonia script for its scripting engine"



loadscript greatbattle.txt eax
mov ebx eax
cmp ebx eax
calleq OK
mov firstlev eax
cmp firstlev eax
calleq OK

add eax 20
sub eax 19
dec eax

mov firstlev eax


add firstlev 20
sub firstlev 19
dec firstlev
mov eax firstlev

cmp eax ebx
callo FAILED
callhi FAILED


print "Now, eax is: "
printarg eax
print "About $firstlev, it equals: "
printarg firstlev

runscript eax
killscript eax
print "END OF SCRIPT"
quit