68. Qbasic program to display first 20 palindrome numbers

68.      Write a sub program to display first 20 palindrome numbers.

DECLARE SUB PALIN ( )

CLS

CALL PALIN

END

SUB PALIN

N = 1

CNT = 1

TOP:

A = N : S = 0

WHILE A < > 0

R = A MOD 10

S = S * 10 + R

A = A \ 10

WEND

IF N = S THEN

PRINT N,

CNT = CNT + 1

END IF

N = N + 1

IF CNT <= 20 THEN GOTO TOP

END SUB