acls:input "file: ",A$ dim numbers[0],b load "dat:"+A$,numbers for i=0 to len(numbers)-1 inc b,numbers(i) next ?b