' source code provided by Andreas Fink

$include "rapidq.inc"
$Typecheck On

dim sn as integer
dim msg as string

dim s as qsocket


sn = s.connect ("ftp.cdrom.com", 21)

print s.readline(sn)

s.writeline (sn, "USER anonymous")
print s.readline(sn)
s.writeline(sn, "PASS test@test.com")

do
print s.readline(sn)
loop until s.IsServerReady(sn) = False

s.writeline(sn, "HELP")

do
print s.readline(sn)
loop until s.IsServerReady(sn) = False

s.writeline(sn, "QUIT")

do
print s.readline(sn)
loop until s.IsServerReady(sn) = False



sleep 4