CLS FOR I = 1 TO 100 A = I S = 0 WHILE A <> 0 R = A MOD 10 S = S * 10 + R A = A \ 10 WEND IF I = S THEN PRINT I NEXT I END