open "COM9:230400" as #2
 do
   k$ = inkey$
   if k$ <>"" then print #2,k$;
   if loc(#2) > 0 then
     j$ = input$(min(loc(#2),255),#2)
     print j$;
   endif
 loop

'
MODE 1
CLS

TEXT 10,10 , "WHITE     "+HEX$(RGB(WHITE),4), ,1,1,RGB(WHITE)
TEXT 10,30 , "YELLOW    "+HEX$(RGB(YELLOW),4), ,1,1,RGB(YELLOW)
TEXT 10,50 , "LILAC     "+HEX$(RGB(LILAC),4), ,1,1,RGB(LILAC)
TEXT 10,70 , "BROWN     "+HEX$(RGB(BROWN),4), ,1,1,RGB(BROWN)
TEXT 10,90 , "FUCHSIA   "+HEX$(RGB(FUCHSIA),4), ,1,1,RGB(FUCHSIA)
TEXT 10,110, "RUST      "+HEX$(RGB(RUST),4), ,1,1,RGB(RUST)
TEXT 10,130, "MAGENTA   "+HEX$(RGB(MAGENTA),4), ,1,1,RGB(MAGENTA)
TEXT 10,150, "RED       "+HEX$(RGB(RED),4), ,1,1,RGB(RED)
TEXT 10,170, "CYAN      "+HEX$(RGB(CYAN),4), ,1,1,RGB(CYAN)
TEXT 10,190, "GREEN     "+HEX$(RGB(GREEN),4), ,1,1,RGB(GREEN)
TEXT 10,210, "CERULEAN  "+HEX$(RGB(CERULEAN),4), ,1,1,RGB(CERULEAN)  
TEXT 10,230, "MIDGREEN  "+HEX$(RGB(MIDGREEN),4), ,1,1,RGB(MIDGREEN)  
TEXT 10,250, "COBALT    "+HEX$(RGB(COBALT),4), ,1,1,RGB(COBALT)
TEXT 10,270, "MYRTLE    "+HEX$(RGB(MYRTLE),4), ,1,1,RGB(WHITE)
TEXT 10,290, "BLUE      "+HEX$(RGB(BLUE),4), ,1,1,RGB(BLUE)
TEXT 310,10 , "BLACK     "+HEX$(RGB(BLACK),4), ,1,1,RGB(WHITE)
TEXT 310,30 , "GRAY      "+HEX$(RGB(GRAY),4), ,1,1,RGB(GRAY)
TEXT 310,50 , "GREY      "+HEX$(RGB(GREY),4), ,1,1,RGB(GREY)
TEXT 310,70 , "LIGHTGRAY "+HEX$(RGB(LIGHTGRAY),4), ,1,1,RGB(LIGHTGRAY)
TEXT 310,90 , "LIGHTGREY "+HEX$(RGB(LIGHTGREY),4), ,1,1,RGB(LIGHTGREY)
TEXT 310,110, "ORANGE    "+HEX$(RGB(ORANGE),4), ,1,1,RGB(ORANGE)
TEXT 310,130, "PINK      "+HEX$(RGB(PINK),4), ,1,1,RGB(PINK)
TEXT 310,150, "GOLD      "+HEX$(RGB(GOLD),4), ,1,1,RGB(GOLD)
TEXT 310,170, "SALMON    "+HEX$(RGB(SALMON),4), ,1,1,RGB(SALMON)
TEXT 310,190, "BEIGE     "+HEX$(RGB(BEIGE),4), ,1,1,RGB(BEIGE)
 
BOX 180,  5,100,20,1,RGB(WHITE),RGB(WHITE)
BOX 180, 25,100,20,1,RGB(YELLOW),RGB(YELLOW)
BOX 180, 45,100,20,1,RGB(LILAC),RGB(LILAC)
BOX 180, 65,100,20,1,RGB(BROWN),RGB(BROWN)
BOX 180, 85,100,20,1,RGB(FUCHSIA),RGB(FUCHSIA)
BOX 180,105,100,20,1,RGB(RUST),RGB(RUST)
BOX 180,125,100,20,1,RGB(MAGENTA),RGB(MAGENTA)
BOX 180,145,100,20,1,RGB(RED),RGB(RED)
BOX 180,165,100,20,1,RGB(CYAN),RGB(CYAN)
BOX 180,185,100,20,1,RGB(GREEN),RGB(GREEN)
BOX 180,205,100,20,1,RGB(CERULEAN),RGB(CERULEAN)
BOX 180,225,100,20,1,RGB(MIDGREEN),RGB(MIDGREEN)
BOX 180,245,100,20,1,RGB(COBALT), RGB(COBALT)
BOX 180,265,100,20,1,RGB(MYRTLE),RGB(MYRTLE)
BOX 180,285,100,20,1,RGB(BLUE),RGB(BLUE)
BOX 480,  5,100,20,1,RGB(BLACK),RGB(BLACK)
BOX 480, 25,100,20,1,RGB(GRAY),RGB(GRAY)
BOX 480, 45,100,20,1,RGB(GREY),  RGB(GREY)
BOX 480, 65,100,20,1,RGB(LIGHTGRAY),RGB(LIGHTGRAY)
BOX 480, 85,100,20,1,RGB(LIGHTGREY),RGB(LIGHTGREY)
BOX 480,105,100,20,1,RGB(ORANGE),RGB(ORANGE)
BOX 480,125,100,20,1,RGB(PINK),RGB(PINK)
BOX 480,145,100,20,1,RGB(GOLD),RGB(GOLD)
BOX 480,165,100,20,1,RGB(SALMON),RGB(SALMON)
BOX 480,185,100,20,1,RGB(BEIGE),RGB(BEIGE)

DO:LOOP

'palindrome numbers are symetrical. in base 10 they should have the form abccba from numbers under 1e6.
'in base 2 they cannot end in a zero, becuase the first bit cannot be zero. This limits to odd numbers.
'in base 10 you will have  to ripple through abccba and abcba and abba and aba and aa and a

Timer = 0
Total = 0

'6 digits
For a=1 To 9 Step 2
 k=a*100001
 For b=0 To 9
   l=b*10010
   For c=0 To 9
     x=c*1100+l+k
     bincheck
Next c,b,a

'5 digits
For a=1 To 9 Step 2
 k=a*10001
 For b=0 To 9
   l=b*1010
   For c=0 To 9
     x=c*100+l+k
     bincheck
Next c,b,a

'4 digits
For a=1 To 9 Step 2
 k=a*1001
 For b=0 To 9
   x=b*110+k
   bincheck
Next b,a

'3 digits
For a=1 To 9 Step 2
 k=a*101
 For b=0 To 9
   x=b*10+k
   bincheck
Next b,a

'2 digits
For a=1 To 9 Step 2
 x=a*11
 bincheck
Next a

'1 digits, these are all symetrical (b1,b11,b101,b111,b1001)
For x=1 To 9 Step 2
 Total = Total + x
Next x

Print Timer
Print Total

' checking the binary string for symetry
' the lsb is always 1 (odd), the msb is always 1 (never start with 0)
' so we only check  the other digits
' for strings with an odd length we do not test the centre bit.
Sub bincheck
 y$=Bin$(x) : w=Len(y$) : z=Int(w/2)
 'Print y$,z,w
 pali=0
 For i=2 To z
   'Print Mid$(y$,i,1),Mid$(y$,w+1-i,1)
   If Mid$(y$,i,1)=Mid$(y$,w+1-i,1) Then
     pali=pali+1
   End If
 Next i
 If pali = z-1 Then
    Total = Total + x
    Print y$," pali"
 End If
End Sub

do
k$ = inkey$
loop until k$ = "*"
for m = 1 to 500
print str$(m,4)+" Friends, Romans, countrymen, lend me your ears; I come to bury Caesar, not to praise him."
next m
print "*"
print "*"

open "COM11:230400" as #2
open "speedtest.txt" for output as #3
do
k$ = inkey$
loop until k$<>""
print #2, "*";
timer = 0
do
line input #2,j$
print #3, j$
loop until j$ = "*"
print #3, timer
print timer
close #3
close #2