;--------------------------------------------------------------------------
;
; Get the contence of the stations.txt from NORAD over the Internet
;
; Data is stored into Filename$
;
; Version 5 jun 2017
;
; This is an example
;
;--------------------------------------------------------------------------
InitNetwork()
Filename$ = GetHomeDirectory() + "Documents/stations.txt"
If ReceiveHTTPFile("http://www.celestrak.com/NORAD/elements/stations.txt", Filename$)
Debug "Success"
Else
Debug "Failed"
EndIf
;--------------------------------------------------------------------------
;
; Get the contence of the stations.txt from NORAD over the Internet
;
; Data is stored into Filename$
;
; Version 5 jun 2017
;
; This is an example
;
;--------------------------------------------------------------------------
EnableExplicit
InitNetwork()
Define Filename$
Define Line$
Define FF
Filename$ = GetHomeDirectory() + "Documents/stations.txt"
If ReceiveHTTPFile("http://www.celestrak.com/NORAD/elements/stations.txt", Filename$)
FF = ReadFile(#PB_Any, Filename$)
If FF
While Not Eof(FF)
Line$ = ReadString(FF)
Debug Line$
Wend
CloseFile(FF)
Else
Debug "ReadFile() failed"
EndIf
Else
Debug "Failed"
EndIf