10 REM PalinSq 20 REM Program to find Palindromic numbers with Palindromic squares 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 UNTIL INKEY(-99) 130 END 140 * 150 DEFFNcheckpal(B%) 160 A$=STR$ B% 170 C%=LEN A$ 180 IF FNleft=FNright THEN =TRUE ELSE =FALSE 190 * 200 DEFFNleft 210 =LEFT$(A$,C%/2) 220 * 230 DEFFNright 240 B$="" 250 FOR D%=1 TO C%/2 260 B$=B$+MID$(A$,C%-D%+1,1) 270 NEXT 280 =LEFT$(B$,C%/2) 290 *