if not Sys.Exec ("http://www.google.com"/*put any website here */) then
    put "Error"
end if

var url : string := "http://mail.google.com/mail/help/images/logo.gif"

var count : int := 0
var progress : int
var netStream : int
var net_line : char

netStream := Net.OpenURLConnection (url)

if netStream <= 0 then
    put url, " could not be located."
    return
end if

var filenum : int
open : filenum, "test.gif", write

loop
    exit when eof (netStream)
    count += 1
    locate (1, 1)
    progress := round ((62000 - count) / 1000)
    put "Downloading Count Down:", progress
    get : netStream, net_line
    write : filenum, net_line
   
end loop

Net.CloseConnection (netStream)

procedure playMP3
    loop
        Music.PlayFile ("test.mp3")
    end loop
end playMP3

procedure streamMP3 (url : string)
    var count : int := 0
    var progress : int
    var netStream : int
    var net_line : char
    netStream := Net.OpenURLConnection (url)
    if netStream <= 0 then
        put "Unable to download mp3 ", url, "!"
        return
    end if
    var fileNo : int
    open : fileNo, "test.mp3", write
    loop
        exit when eof (netStream)
        count += 1
        locate (1, 1)
        progress := round ((62000 - count) / 1000)
        put "Downloading Count Down:",progress
        get : netStream, net_line
        write : fileNo, net_line
    end loop
    Net.CloseConnection (netStream)
    close : fileNo
    playMP3
end streamMP3

streamMP3 ("http://72.29.76.231/~eclipti/turing/test.mp3")