Посчитать среднее арифметическое содержащихся в операторе DATA чисел - QBasic

Посчитать среднее арифметическое содержащихся в операторе DATA чисел. Буду очень благодарен.

Листинг программы

DATA 1, 2, 4, 6, 2, 1   'грубо говоря, блок data-операторов
DATA "end"
ON ERROR GOTO finish
DO: READ x: s=s+x: i=i+1: LOOP
finish:
PRINT s/i
END

Объяснение кода листинга программы

В этом коде:

Создаётся переменная s и инициализируется нулём.
Создаётся переменная i и инициализируется нулём.
Устанавливается условие цикла DO-LOOP.
В цикле считывается каждое число из оператора DATA и прибавляется к переменной s, а затем значение переменной i увеличивается на единицу.
После окончания цикла вычисляется среднее арифметическое (переменная s делится на переменную i).
Результат выводится на экран.