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