Global way,ground,port,servip$

Function connect_for_upload(file$)
ground = OpenTCPStream("home.arcor.de",21)
WriteLine ground,"USER blitzload"
WriteLine ground,"PASS silvercrow"

If way <> 0 Then CloseTCPStream way
WriteLine ground,"PASV"
Repeat
pro$ = ReadLine(ground)
Until Left$(pro$,3)="227"
mail$ = pro$

in = Instr(mail$,"(")+1
adr$ = Mid$(mail$,in,loc_of_xth(mail$,4,",")-in)
servip$ = Replace$(adr$,",",".")

beh$ = Right$(mail$,Len(mail$)-(loc_of_xth(mail$,4,",")))
faktor1 = Int(Left$(beh$,Instr(beh$,",")-1))
faktor2 = Int(Mid$(beh$,Instr(beh$,",")+1,Instr(beh$,")")-Instr(beh$,",")))
port = faktor1*256 + faktor2

way = OpenTCPStream(servip$,port)
WriteLine ground,"STOR "+file$
End Function

Function connect_for_download(file$)
ground = OpenTCPStream("home.arcor.de",21)
WriteLine ground,"USER blitzload"
WriteLine ground,"PASS silvercrow"

If way <> 0 Then CloseTCPStream way
WriteLine ground,"PASV"
Repeat
pro$ = ReadLine(ground)
Until Left$(pro$,3)="227"
mail$ = pro$

in = Instr(mail$,"(")+1
adr$ = Mid$(mail$,in,loc_of_xth(mail$,4,",")-in)
servip$ = Replace$(adr$,",",".")

beh$ = Right$(mail$,Len(mail$)-(loc_of_xth(mail$,4,",")))
faktor1 = Int(Left$(beh$,Instr(beh$,",")-1))
faktor2 = Int(Mid$(beh$,Instr(beh$,",")+1,Instr(beh$,")")-Instr(beh$,",")))
port = faktor1*256 + faktor2

way = OpenTCPStream(servip$,port)
WriteLine ground,"RETR "+file$
End Function

Function disconnect()
WriteLine ground,"QUIT"
CloseTCPStream way
way = 0
CloseTCPStream ground
End Function

Function write_net_line(cont$)
WriteLine way,cont$
End Function

Function read_net_line$()
Return ReadLine(way)
End Function

Function loc_of_xth(word$,xth,tres$)
pkt = 0
chary = 0
spit = 0
Repeat
chary = chary + 1
If Mid$(word$,chary,Len(tres$))=tres$ Then pkt = pkt + 1
If pkt = xth Then spit = 1
Until spit = 1
Return chary
End Function

connect_for_download("ips.txt")
While Not KeyHit(1)
   DebugLog read_net_line$()
Wend