[EvilChaotic]

Он не будет прибавлятся = ) Т.к. ты в эту переменную пихаешь 1цу в цикле.. если у тебя вообще это в цикле....

global Status%

Function NewStatus()
;status = 1
If KeyHit(208) = 1
status% = status%  + 1
EndIf 
End Function

Попробуй, закоменти строчку status = 1 А во вторых надо писать так.. status = status + 1.. И я думаю сюда подойдет KeyHit а не Down.