¸€¸€ºÿdêPALIN1 n í1100L x ñC=0 ‚ ñZ=11 Œ0ñX=0:ñY=6:í1700¤:õ"TESTING ";Z –ñN=Z*Z   í260 ªúT=0 Ëì230æ ´ñN=Z ¾ í260 ÈúT=1 Ëì230æ Ò ñC=C+1 Ü$õ:õ"NUMBER = ";Z:õ:õ"SQUARE = ";Z*Z æ ñZ=Z+1 ðúC<3 Ëì140Œ úõ:â êTEST PALINDROME ñA=N  ñB=0 "ñA1=º(A/10 ) ,ñB=10 *B+A-10 *A1 6ñA=A1 @úA>0 Ëì290" J ñT=0 TúB=N ËñT=1 ^þ èêSPECTRUM SUBROUTINES L1ñW=32 :ñD=22:ñF=8:í1200°:þ °û:õ¬8,0;:þ ñR=º(N*¥+1):þ xëZ=1 Ì200È*T:óZ:þ Üú¦É""Ëì1500Ü æú¦=""Ëì1510æ ðñG$=¦:þ @ñK$=¦:þ ¤ õ¬Y,X;:þ  õ­(X);:þ lõÂ(11 );:þ ÐõÂ(9 );:þ 4í2200˜:ñK=°("0"+K$):þ ˜ñK$="" ¢!í1500Ü:ú¯(G$)=13 Ëõ:þ ¬,ú¯(G$)É12 ËñK$=K$+G$:õG$;:ì2210¢ ¶ú±(K$)=0 Ëì2210¢ À@õÂ(8);" ";Â(8);:ñK$=K$( ̱(K$)-1):ì2210¢ üû:þ `×.1}LÌÌÍ,Z/10 -6:þ ÄñR$=Â(R+64@):þ ( ñP$=K$(P):þ Œí2600( :ñA=¯(P$):þ ðû:þ TéV$(26):þ ¸éW$(60<,26):þ  ñGG=¯(G$):þ ˜