While getKey(0)
End
0→I
Repeat getKey(0)
 Disp I▶Dec,i
 I++
EndIf I=0