var VarVal

var VarName

var ActEip



dbh

mov ActEip, eip

ask "VA disponible?"

cmp $RESULT, 0

mov VarVal, $RESULT

je FIN

mov [VarVal], "60"

mov VarName, VarVal

add VarName, 40

mov [VarName], "DAYSLEFT"

exec

pushad

pushfd

push {VarVal}

push {VarName}

call SetEnvironmentVariableA

popfd

popad

jmp {ActEip}

ende

ret



FIN:

ret