'$lang: "qb"

REM
REM                              ==========
'    l$ = COMMAND$
    qot$ = CHR$(34)
'    dt$ = MID$(DATE$, 4, 2) + "/" + MID$(DATE$, 1, 2) + "/" + MID$(DATE$, 7, 4)
REM =======================================================================================================
' ini:
    
    SHELL "dir *.url" + " /b /a-d >$d$.dir"
    OPEN "i", 4, "$d$.dir"
boucle:
    IF EOF(4) THEN
       CLOSE 4: GOTO fini
    END IF
    LINE INPUT #4, zt3$
    GOSUB url
    IF url$ = "" THEN GOTO boucle
    t = INSTR(LCASE$(zt3$), ".url")
    OPEN "o", 5, MID$(zt3$, 1, t) + "html"
    PRINT #5, "<HTML><HEAD>"
    PRINT #5, "<META HTTP-EQUIV=" + qot$ + "Refresh" + qot$ + " CONTENT=" + qot$ + "0; URL=" + url$ + qot$ + ">"
    PRINT #5, "<TITLE>Redirection</TITLE>"
    PRINT #5, "<Body>"
    PRINT #5, "<P Align=Center><b><font size=" + qot$ + "6" + qot$ + ">PHOTO-3G</font></b><P Align=Center>"
    PRINT #5, "Link automatique sur le net"
    PRINT #5, "<P Align=Center>"
    PRINT #5, "ou clic sur l'adresse ci-dessous"
    PRINT #5, "<A HREF=" + qot$ + url$ + qot$; ">" + url$ + "</A>"
    PRINT #5, "</body></head></html>"
    CLOSE 5
    GOTO boucle
url:
    OPEN "i", 6, zt3$
    url$ = ""
boucle2:
    IF EOF(6) THEN
       CLOSE 6: RETURN
    END IF
    LINE INPUT #6, t3$
    IF MID$(t3$, 1, 4) = "URL=" THEN url$ = MID$(t3$, 5): CLOSE 6: RETURN
    GOTO boucle2
REM =======================================================================================================
fini:
rem    KILL "$d$.dir"
    END
REM =======================================================================================================

============================================= C R O S S - R E F E R E N C E =============================================
separateurs # ,;()=<>+\
commandes #defint#$include#call#command$#time$#sound#space$#date$#return#shell#chr$#rem#print#lcase$#ucase$#open#close#if#on#then#goto#gosub#eof#line#input#instr#val#mid$#len#asc#lprint#do#while#wend##play#int#beep#kill#end#else#dim#for#or#and#not#next#to#select#case#str$#elseif#endif#width#cls#
sauf #a-z#
============================================= C R O S S - R E F E R E N C E =============================================
Nom    Ligne Paragraphe
====== ===== ============================================================================================================
 ------------------------------------------------- liste des paragraphes ------------------------------------------------
boucle	0013 
boucle	0019 boucle
boucle	0033 boucle
boucle2	0037 url
boucle2	0043 boucle2
fini	0015 boucle
fini	0045 boucle2
url	0018 boucle
url	0034 boucle
 ----------------------------------------- liste des variables alphanumeriques ------------------------------------------
qot$	0006 
qot$	0023 boucle
qot$	0023 boucle
qot$	0023 boucle
qot$	0023 boucle
qot$	0026 boucle
qot$	0026 boucle
qot$	0030 boucle
qot$	0030 boucle
t3$	0041 boucle2
t3$	0042 boucle2
t3$	0042 boucle2
url$	0019 boucle
url$	0023 boucle
url$	0030 boucle
url$	0030 boucle
url$	0036 url
url$	0042 boucle2
zt3$	0017 boucle
zt3$	0020 boucle
zt3$	0021 boucle
zt3$	0035 url
 -------------------------------------------- liste des variables numeriques --------------------------------------------
t	0020 boucle
t	0021 boucle
 ---------------------------------------- liste des constantes alphanumeriques ------------------------------------------
" /b /a-d >$d$.dir"	0011 
" CONTENT="	0023 boucle
""	0019 boucle
""	0036 url
"$d$.dir"	0012 
".url"	0020 boucle
"</A>"	0030 boucle
"</body></head></html>"	0031 boucle
"<A HREF="	0030 boucle
"<Body>"	0025 boucle
"<HTML><HEAD>"	0022 boucle
"<META HTTP-EQUIV="	0023 boucle
"<P Align=Center>"	0028 boucle
"<P Align=Center><b><font size="	0026 boucle
"<TITLE>Redirection</TITLE>"	0024 boucle
">"	0023 boucle
">"	0030 boucle
">PHOTO-3G</font></b><P Align=Center>"	0026 boucle
"0; URL="	0023 boucle
"6"	0026 boucle
"dir *.url"	0011 
"html"	0021 boucle
"i"	0012 
"i"	0035 url
"Link automatique sur le net"	0027 boucle
"o"	0021 boucle
"ou clic sur l'adresse ci-dessous"	0029 boucle
"Refresh"	0023 boucle
"URL="	0042 boucle2
 ------------------------------------------- liste des constantes numeriques --------------------------------------------
1	0021 boucle
1	0042 boucle2
34	0006 
4	0012 
4	0014 boucle
4	0015 boucle
4	0017 boucle
4	0042 boucle2
5	0021 boucle
5	0022 boucle
5	0023 boucle
5	0024 boucle
5	0025 boucle
5	0026 boucle
5	0027 boucle
5	0028 boucle
5	0029 boucle
5	0030 boucle
5	0031 boucle
5	0032 boucle
5	0042 boucle2
6	0035 url
6	0038 boucle2
6	0039 boucle2
6	0041 boucle2
6	0042 boucle2
'    dt$ = MID$(DATE$, 4, 2) + "/" + MID$(DATE$, 1, 2) + "/" + MID$(DATE$, 7, 4)	0007 
'    l$ = COMMAND$	0005 
' ini:	0009 
'$lang: "qb"	0001 
 ------------------------------------------------ liste des commentaires ------------------------------------------------
REM                              ==========	0004 
rem    KILL "$d$.dir"	0046 fini
REM =======================================================================================================	0008 
REM =======================================================================================================	0044 boucle2
REM =======================================================================================================	0048 fini
 
 
 
================================================ ORPHELINS & NON UNIQUES ================================================
 ------------------------------------------------- liste des paragraphes ------------------------------------------------
 ----------------------------------------- liste des variables alphanumeriques ------------------------------------------
 -------------------------------------------- liste des variables numeriques --------------------------------------------
 ---------------------------------------- liste des constantes alphanumeriques ------------------------------------------
"" (non unique, 2fois)
">" (non unique, 2fois)
"i" (non unique, 2fois)
 ------------------------------------------- liste des constantes numeriques --------------------------------------------
1 (non unique, 2fois)
4 (non unique, 5fois)
5 (non unique, 13fois)
6 (non unique, 5fois)
 ------------------------------------------------ liste des commentaires ------------------------------------------------
REM ======================================================================================================= (non unique, 3fois)
============================================= C R O S S - R E F E R E N C E =============================================
