Qbasic program to check armstrong number

CLS
DIM N%,NUM%,D%,A%
INPUT"ENTER ANY NUMBER";N
NUM=N
WHILE N > 0
D = N MOD 10
A = A + D ^ 3
N=N\10
WEND

IF A=NUM THEN
    PRINT"ARMSTRONG NUMBER"
ELSE
  PRINT"NOT ARMSTRONG NUMBER"
END IF