Вопрос по QBasic`у

[SmileUA]

Здраствуйте форумчане, у меня вот такая проблема:я составил такую приметивную программу по расчету контрольного числа кода станции но мне не нравитса что каждую цифру этого кода надо вбивать отдельно, а как можно сделать что бы вписать в строчку весь код и оно его посчитало и проверило на правильность. В общем меня по большей мере интересует каким оператором это делаетса. Вот код:

 CLS
1 INPUT "Введите код станции -", A$
 IF LEN(A$) <> 5 THEN PRINT "Ошибка в коде станции": GOTO 1
 PRINT "Для расчета кода станции введите последовательно цифры"
 FOR I = 1 TO 5
 INPUT A%(I)
 NEXT I
 S = 0
 FOR I = 1 TO 4
 C%(I) = A%(I) * I
 S = S + C%(I)
NEXT I
O = S MOD 11
IF O <> 10 THEN GOTO 3
IF O = 10 THEN GOTO 2
2 S1 = 0
FOR I = 1 TO 4
D%(I) = A%(I) * (I + 2)
S1 = S1 + D%(I)
NEXT I
 O = S1 MOD 11
IF O <> 10 THEN GOTO 3
IF O = 10 THEN O = 0: GOTO3
3 IF O = A%(5) THEN GOTO 4
IF O <> A%(I) THEN GOTO 5
4  PRINT "Код верный"
PRINT "Контрольная цифра видна ="; O
GOTO 6
5 PRINT "Ошибка в коде станции ¬="; A%(5)
PRINT " Контрольна цифра -"; O
6 END

[RUSt88]

весь код забей в одну строку и цикл по массиву (т.е. по строке)

[SmileUA]

Сообщение от RUSt88

весь код забей в одну строку и цикл по массиву (т.е. по строке)

Никогда не дружил с оператором DIM, чтото с утра химичил нефига не получаетса. Не мог бы, если не трудно конечно, отредактировать как описал

[RUSt88]

под рукой кбасика нет, да и не очень дружу я с таким старьем

гугл вам в помощь, введи в поиске "qbasic циклы строки"

[Serebro]

const n=10
dim a(n)
...
for i=1 to n
  ...
next i