;
; ------------------------------------------------------------
;
;   PureBasic - Ftp example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

OpenConsole()

InitNetwork()


URL$ = "http://user:pass@www.purebasic.com:1024/subdirectory/index.php?year=2008&month=12&day=3"
PrintN(GetURLPart(URL$, "fred"))
PrintN(GetURLPart(URL$, #PB_URL_Site))
PrintN(GetURLPart(URL$, #PB_URL_Port))
PrintN(GetURLPart(URL$, #PB_URL_Parameters))
PrintN(GetURLPart(URL$, #PB_URL_Path))
PrintN(GetURLPart(URL$, #PB_URL_User))
PrintN(GetURLPart(URL$, #PB_URL_Password))

PrintN("-------")
PrintN(SetURLPart(URL$, #PB_URL_Site, "forums.purebasic.fr"))
PrintN(SetURLPart(URL$, #PB_URL_Port, "80"))
PrintN(SetURLPart(URL$, #PB_URL_User, "bericko"))
PrintN(SetURLPart(URL$, #PB_URL_Password, "password"))
PrintN("-------")

PrintN("")
PrintN("Press a key to quit")

Input()