Promenade dans le Ciel

rem ============================================================================
rem               Promenade dans le Ciel
rem ============================================================================
label choix
dim url$
full_space 0
main_menu 10
  sub_menu 11 : parent 11,10 : caption 11,"Votre choix"  
  sub_menu 12 : parent 12,11 : caption 12,"Système solaire"   : on_click 12,choix
  sub_menu 13 : parent 13,11 : caption 13,"Carte du ciel"     : on_click 13,choix
  sub_menu 14 : parent 14,11 : caption 14,"Equation du temps" : on_click 14,choix
  sub_menu 20 : parent 20,10 : caption 20,"Quitter"           : on_click 20,choix
  
alpha 99 : top 99, 10 : left 99,200 : font_size 99,24 : font_name 99,"tahoma"
dll_on "kgf"   : ' <---------------------------------- Adapter le chemin !!!

end
rem ============================================================================
Choix:
   select number_click
       case 12 : url$ = "https://www.le-systeme-solaire.net/"
       case 13 : url$ = "https://www.stelvision.com/carte-ciel/"
       case 14 : url$ = "http://olravet.fr/Aideedt/Equation.htm"
       case 20 : if message_confirmation_yes_no("Vous voulez vraiment quitter ?") = 1
                    terminate
                 end_if      
   end_select
   if url$ <> "" then Creer_Browser()
return
rem ============================================================================
SUB Creer_Browser()
    dim_local WB%,res%
    caption 99,"Veuillez patienter ..."
    WB% = dll_call1("WB_Create",handle(0))
    res% = dll_call5("WB_Locate",WB%,20,50,width_client(0)-50,height_client(0)-50)
    res% = dll_call2("WB_Url",WB%,adr(url$))
    caption 99,""
END_SUB
rem ============================================================================