Ich dachte, das wäre klar:

index=1
While Ischarwaiting() > 0
var(index)=inkey()
incr index
Wend