sAccept not Working

Here's the short (connector) side. This is from the sAccept example, with only the obvious items changed to match my LAN. I changed only the matching simple entries in the "listener" script, and it doesn't do *anything*. Any suggestions?

;;;The CONNECTER script
AddExtender("wwwsk34I.dll")
while 1
what=AskLine("Connecter","Enter TIME or QUOTE to get information from listener","time")
talksocket=sOpen()
ret=sConnect(talksocket,"100.100.100.10","1001")
sSendLine(talksocket,what)
response=sRecvLine(talksocket,555)
sClose(talksocket)
Message(what,response)
endwhile 

I tried to make the things work in such environment: listener put on a PC with a public address and the caller on a dial up connection. Unfortunately the whole thing didn't work, but it did simulating the caller with Telnet.

Would anyone like to help me out with some tips?

;The Talker Script:

;;;The CONNECTER script
AddExtender("WWWSK34I.dll")
while 1
   what=AskLine("Connecter","Enter TIME or QUOTE to get information from listener","QUOTE")
   talksocket=sOpen()
   ret=sConnect(talksocket,"206.63.11.252","ftp")
   sSendLine(talksocket,what)
   response=sRecvLine(talksocket,555)
   sClose(talksocket)
   Message(what,response)
endwhile

;The Listener Script:

;;;The LISTENER script
; Use CTRL-Break to exit
AddExtender("wwwsk34I.dll")

quote0="Few women admit their age, few men act it. "
quote1="Don't anthropomorphize computers. They hate that. "
quote2="ANIMAL LOVER ON BOARD. They're delicious. "
quote3="My karma ran over my dogma. "
quote4="The gene pool could use a little chlorine. "
quote5="Time is what keeps things from happening all at once. "
quote6="I didn't fight my way to the top of the food chain to be a vegetarian. "
quote7="Women who seek to be equal with men lack ambition. "
quote8="Your kid may be an honor student but you're still an idiot! "
quote9="If we aren't supposed to eat animals, why are they made with meat? "
maxquote=9


BoxOpen("Listener","")
listensocket=sOpen()
sListen(listensocket,"ftp")   ; use ftp port for lack of anything better
Served=0
while 1
   datasocket=sAccept(listensocket,@TRUE)  ; Block for a connection
   if datasocket
       gosub ProcessConnect
   else
      sClose(listenSocket)
      msg=wxGetLastErr()
      Message("Socket Error",msg)
      exit
  endif
endwhile
exit   

:ProcessConnect
         Served=Served+1
         rqst=sRecvLine(datasocket,20)
         rqst=strlower(rqst)
         if rqst=="time"
             rsp=TimeDate()
         else
            if rqst=="quote"
               mqr=random(maxquote)
               rsp=quote%mqr%
            else
               rsp="Error: Can only respond to TIME and QUOTE"
            endif
         endif
         BoxTitle(strcat("Served:",Served,"  Last=",wxGetInfo(2,datasocket)))
         BoxText(strcat(rqst," : ",rsp))
         sSendLine(datasocket,rsp)
         sClose(datasocket)
return