Voyage au cœur des fractales.

rem ============================================================================
rem              Voyage au cœur des fractales
rem ============================================================================
dim url$ ,t$
full_space 0
dll_on "kgf"  : ' <<<< Adapter le chemin
caption 0,"Voyage au  cœur des fractales, c'est un vrai régal !"
alpha 10 : top 10,10 : left 10,100 : font_name 10,"arial black"
font_size 10,14 : color 10,200,100,20 : font_color 10,255,255,0
t$ = "     V O Y A G E   A U   C O E U R   D E S   F R A C T A L E S   :   "
t$ = t$ + "Q U E   C ' E S T   B Ô Ô Ô Ô Ô . . . .  ! ! !     "
caption 10,t$
rem ============================================================================
rem Essayer ces différentes URL
rem ============================================================================
  url$ = "https://www.youtube.com/watch?v=TP_2Zxr3CQM"
' url$ = "https://www.youtube.com/watch?v=lCcp1BH0JdQ"
' url$ = "https://youtu.be/AgdN5yO39UI"
' url$ = "https://www.youtube.com/watch?v=VHrJJAK_tKY"
' url$ = "https://www.youtube.com/watch?v=wiaSPOm_G9k"
' url$ = "https://www.youtube.com/watch?v=Yj_gy73JbyM"
' url$ = "https://www.youtube.com/watch?v=CqL6kkMTjRw"
rem ============================================================================  
Creer_Browser()  
end
rem ============================================================================
SUB Creer_Browser()
    dim_local WB%,res%    
    WB% = dll_call1("WB_Create",handle(0))
    res% = dll_call5("WB_Locate",WB%,20,50,width_client(0)-50,height_client(0)-100)
    res% = dll_call2("WB_Url",WB%,adr(url$))
END_SUB
rem ============================================================================