PROCEDURE ShellExecuteA EXTERNAL "shell32" : /*when ran opens default web browser*/
define input parameter hwnd as long.
define input parameter lpOperation as char.
define input parameter lpFile as char.
define input parameter lpParameters as char.
define input parameter lpDirectory as char.
define input parameter nShowCmd as long.
define return parameter hInstance as long.
END PROCEDURE.
run ShellExecuteA in this-procedure (0,"open",ipchrWebSite,"","",1,output intOutput).