How did you do the jumping exactly? I'm assuming that you can move in mid-air for simplification purposes and saw that the character can jump three blocks high, and so I ended up with the following piece of code, partially derived from your earlier help thread:
If K=28 And Y<7
Then If Mat C[Y+1,X]>0
Then 3->V
IfEnd
IfEnd
If V>0 And Y>1
Then If Mat C[Y-1,X]=0
Then 1->Mat C[Y,X]
Locate X,Y," "
Y-1->Y
9->Mat C[Y,X]
Locate X,Y,"I"
V-1->V
Else 0->V
IfEnd
Else 0->V
IfEnd
The 'Else 0->V' parts are there to set the upward moving speed to 0 as soon as the top of the screen is reached or if there is a solid block above the character. Also, to make this work properly the condition for the falling If-statement has to have 'And V=0' in it. I don't know whether it's quite what you did but at least the effect is the same.