I need a couple items in my help menu to launch 2 different things

1) my website: http://wwww.jumpbyte.com/
2) my email address: mailto:bheibert@...

I tried Al Stafferri Jr.'s LaunchURL dcod but I am having trouble with it

LOCAL FN doMenus
menuid = Menu(_menuID)
itemid = Menu(_itemID)
//PRINT menuID
//PRINT itemID
Menu
EDIT MENU 2
Select MenuID
case 127
Select itemID
case 1

 FN buildTbsplsh
 FN updateTbsplsh
DO
If System(_sysVers) => 1000 Then Fn KillSpinningCursor
UNTIL MOUSE(_down)
WINDOW CLOSE #_tbsplsh
//EFX$ = ZTXThandle&

FN buildTbEditor:FN updateTBEditor

//print menuid
//print itemid

end select
case 0
select itemID
case 1
END
end select
case 1
Select itemID
case 1 ' New
FN buildTbeditor
FN updateTbeditor
EDIT FIELD #1, ""
case 2 'Open
Dim @VolRefNum As Int
'---> Get User to Pick File
gFilename$ = Files$ (_fOpen, "", , VolRefNum)

case 3 'Close
WINDOW CLOSE #_tbEditor
case 5'Save

case 6 'Save As...

case 8'Page Setup...
DEF PAGE
case 9 'Print...
Fn PrintEditField(1)

end select
case 6
Select itemID
case 4
dim testURL$
dim URLlong&
testURL$ = "http://www.jumpbyte.com/"
URLlong& = @testURL$
call "DCOD",5001 : Universalproc(gFBCode&,_Pascalstk_p1Long,URLlong&)

case 3
dim testURL$
dim URLlong&
testURL$ = "mailto:bheibert@..."
URLlong& = @testURL$
call "DCOD",5001 : Universalproc(gFBCode&,_Pascalstk_p1Long,URLlong&)

end select
end select
END FN