10 REM PalinCu
   20 REM Program to find Palindromic numbers with Palindromic squares/cubes
   30 REM (C) Daniel G. Shimmin 1994
   40 REM For all BBC BASIC systems
   50 *
   60 MODE6
   70 TIME=0
   80 I%=10: REM first number
   90 REPEAT: REM main search loop
  100 I%=I%+1
  110 IF FNcheckpal(I%) THEN IF FNcheckpal(I%*I%) THEN PRINT I%;" x ";I%;" = ";I%*I%
  120 IF FNcheckpal(I%) THEN IF FNcheckpal(I%*I%*I%) THEN PRINT I%;" x ";I%;" x ";I%;" = ";I%*I%*I%
  130 UNTIL INKEY(-99)
  140 END
  150 *
  160 DEFFNcheckpal(B%)
  170 A$=STR$ B%
  180 C%=LEN A$
  190 IF FNleft=FNright THEN =TRUE ELSE =FALSE
  200 *
  210 DEFFNleft
  220 =LEFT$(A$,C%/2)
  230 *
  240 DEFFNright
  250 B$=""
  260 FOR D%=1 TO C%/2
  270 B$=B$+MID$(A$,C%-D%+1,1)
  280 NEXT
  290 =LEFT$(B$,C%/2)
  300 *