XProfan

cls
print http.get(http://xprofan.com/getappversionfromfile.core?id=38357)
print &bytesRead
waitkey
end

proc http.get

    parameters url$
    casenot downloadFile(url$) : return

    while %loading

        locate 1,1
        print &getTickCount

    endwhile

    return $Download

ENDPROC

cls
print http.get(http://xprofan.com/getappversionfromfile.core?id=38357)
waitkey
end

proc http.get

    parameters url$
    casenot downloadFile(url$) : return

    while %loading

        locate 1,1
        print &getTickCount

    endwhile

    return $Download

ENDPROC

while %loading

    locate 1,1
    print &getTickCount

endwhi