This is the same concept
start:
cls
Set cursor 150,0:Print "Web Controller"
Set cursor 0,24:Print "#1 for a new website"
Set cursor 0,40:Print "#2 for a favorite website"
set cursor 0,100:Input "Function#: ",func#
if func#=1
goto new:
endif
if func#=2
goto fav:
endif
goto start:
new:
cls
Input "Web site name: ",name$
execute file "http://" + name$,"",""
Print ""
Print "(Press any key to go back)"
wait key
goto start:
fav:
cls
Print "#1 for The Game Creators.com"
Set cursor 0,100:Input "Website#: ",web#
if web#=1
execute file "http://thegamecreators.com","",""
Print "(Press any key to go back)"
wait key
goto start:
endif
goto fav:
Mysteries Surround You