Qbasic program to find sum of odd and even digit position

CLS
DIM N,D,R,C ,E,O AS INTEGER
R=0
E=0
C=0
INPUT"ENTER ANY NUMBER";N

' TO REVERSE THE ENTER NUMBER
WHILE N>0
       D=N MOD 10
       R=R * 10 + D
       N=N \ 10
WEND

'TO FIND THE SUM OF POSITION

WHILE R>0
D=R MOD 10
C= C + 1
   IF C MOD 2=0 THEN
         E=E+C
   ELSE
         O=O+C
   END IF
R=R\10
WEND

PRINT"SUM OF EVEN POSITION =";E
PRINT"SUM OF ODD POSITION =";O

END