nun, ein "Array" ginge
Code:
dim variable(10) as byte
dim temp as byte
dim merker as byte

Merker = 0
do 
 input "Gib Wert ein>", temp
 incr merker
 variable(merker) = temp
loop until merker = 10
' ----------------- jetzt herzeigen --------------------
   for temp = 1 to 10
    print variable(merker)
   next 

end

EDIT: oops 'tschuldige, Vitis