Méthode manuelle d'extraction de la racine carrée

rem ============================================================================
rem             Extraction de racine carrée en FLASH
rem ============================================================================
dim u$
caption 0,"Extraction de racine carrée comme autrefois"
u$ = "http://therese.eveilleau.pagesperso-orange.fr/pages/truc_mat/textes/rac_carree.swf"
HTML_In_PANORAMIC(u$,20,20,width(0)-100,height(0)-150)
end
rem ============================================================================
SUB HTML_In_PANORAMIC(Flash$,xo,yo,larg,haut)
    dim_local hnd%, res%, url$, q$, WB1%
    q$ = chr$(34)
    file_open_write 9999,"flash.html"
    file_writeln 9999,"<embed src='"+Flash$+"'"+q$+" width="+q$+str$(larg)+q$+" height="+q$+str$(haut)+q$+">"
    file_close 9999
    hnd% = handle(0)
    url$ = "file://" + dir_current$ + "/flash.html"
    dll_on "kgf"    : ' Adapter le chemin qui mène à KGF.DLL de Klaus
    WB1% = dll_call1("WB_Create",hnd%)
    res% = dll_call5("WB_Locate",WB1%,xo,yo,larg+50,haut+50)
    res% = dll_call2("WB_Url",WB1%,adr(url$))
    file_delete "flash.html"
END_SUB
rem ============================================================================