'$lang: "qb"
REM
REM                              ==========
    qot$ = CHR$(34)
'    dt$ = MID$(DATE$, 4, 2) + "/" + MID$(DATE$, 1, 2) + "/" + MID$(DATE$, 7, 4)
REM =======================================================================================================
' ini:
    
    SHELL "dir fond*.* /b /a-d >$d$.dir"
    SHELL "dir anim*.* /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$
    Print zt3$
    t = INSTR(zt3$, ".")
    IF LCASE$(MID$(zt3$, t)) = ".htm" THEN GOTO boucle
    OPEN "o", 5, MID$(zt3$, 1, t) + "htm"
    PRINT #5, "<HTML><HEAD>"
    PRINT #5, "<TITLE>" + zt3$ + "</TITLE>"
    PRINT #5, "<Body bgcolor=#ffffff text=#000099 link=#000099 vlink=#000099 alink=#000099 background="; qot$; zt3$; qot$; ">"
    PRINT #5, "<P Align=Center><b><font size=" + qot$ + "6" + qot$ + ">PHOTO-3G<BR>" + zt3$ + "</font></b><P Align=Center>"
    PRINT #5, "<hr  size=7 noshade color=#000099>"
    PRINT #5, "<center><table>"
    rr$ = "<td align=center><a href=tn_fond.jpg><img src=tn_fond.jpg></a></td>"
    PRINT #5, "<tr><td></td>"; rr$; "<td></td></tr>"
    PRINT #5, "<tr>"; rr$; "<td></td>"; rr$; "</tr>"
    PRINT #5, "<tr><td></td>"; rr$; "<td></td></tr>"
    PRINT #5, "</body></head></html>"
    CLOSE 5
    GOTO boucle
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	0012 
boucle	0019 boucle
boucle	0033 boucle
fini	0014 boucle
fini	0035 boucle
 ----------------------------------------- liste des variables alphanumeriques ------------------------------------------
qot$	0004 
qot$	0023 boucle
qot$	0023 boucle
qot$	0024 boucle
qot$	0024 boucle
rr$	0027 boucle
rr$	0028 boucle
rr$	0029 boucle
rr$	0029 boucle
rr$	0030 boucle
zt3$	0016 boucle
zt3$	0017 boucle
zt3$	0018 boucle
zt3$	0019 boucle
zt3$	0020 boucle
zt3$	0022 boucle
zt3$	0023 boucle
zt3$	0024 boucle
 -------------------------------------------- liste des variables numeriques --------------------------------------------
t	0018 boucle
t	0019 boucle
t	0020 boucle
 ---------------------------------------- liste des constantes alphanumeriques ------------------------------------------
"$d$.dir"	0011 
"."	0018 boucle
".htm"	0019 boucle
"</body></head></html>"	0031 boucle
"</font></b><P Align=Center>"	0024 boucle
"</TITLE>"	0022 boucle
"</tr>"	0029 boucle
"<Body bgcolor=#ffffff text=#000099 link=#000099 vlink=#000099 alink=#000099 background="	0023 boucle
"<center><table>"	0026 boucle
"<hr  size=7 noshade color=#000099>"	0025 boucle
"<HTML><HEAD>"	0021 boucle
"<P Align=Center><b><font size="	0024 boucle
"<td align=center><a href=tn_fond.jpg><img src=tn_fond.jpg></a></td>"	0027 boucle
"<td></td>"	0029 boucle
"<td></td></tr>"	0028 boucle
"<td></td></tr>"	0030 boucle
"<TITLE>"	0022 boucle
"<tr>"	0029 boucle
"<tr><td></td>"	0028 boucle
"<tr><td></td>"	0030 boucle
">"	0023 boucle
">PHOTO-3G<BR>"	0024 boucle
"6"	0024 boucle
"dir anim*.* /b /a-d >>$d$.dir"	0010 
"dir fond*.* /b /a-d >$d$.dir"	0009 
"htm"	0020 boucle
"i"	0011 
"o"	0020 boucle
 ------------------------------------------- liste des constantes numeriques --------------------------------------------
1	0020 boucle
34	0004 
4	0011 
4	0013 boucle
4	0014 boucle
4	0016 boucle
5	0020 boucle
5	0021 boucle
5	0022 boucle
5	0023 boucle
5	0024 boucle
5	0025 boucle
5	0026 boucle
5	0028 boucle
5	0029 boucle
5	0030 boucle
5	0031 boucle
5	0032 boucle
'    dt$ = MID$(DATE$, 4, 2) + "/" + MID$(DATE$, 1, 2) + "/" + MID$(DATE$, 7, 4)	0005 
' ini:	0007 
'$lang: "qb"	0001 
 ------------------------------------------------ liste des commentaires ------------------------------------------------
REM                              ==========	0003 
Rem    KILL "$d$.dir"	0036 fini
REM =======================================================================================================	0006 
REM =======================================================================================================	0034 boucle
REM =======================================================================================================	0038 fini
 
 
 
================================================ ORPHELINS & NON UNIQUES ================================================
 ------------------------------------------------- liste des paragraphes ------------------------------------------------
 ----------------------------------------- liste des variables alphanumeriques ------------------------------------------
 -------------------------------------------- liste des variables numeriques --------------------------------------------
 ---------------------------------------- liste des constantes alphanumeriques ------------------------------------------
"<td></td></tr>" (non unique, 2fois)
"<tr><td></td>" (non unique, 2fois)
 ------------------------------------------- liste des constantes numeriques --------------------------------------------
4 (non unique, 4fois)
5 (non unique, 12fois)
 ------------------------------------------------ liste des commentaires ------------------------------------------------
REM ======================================================================================================= (non unique, 3fois)
============================================= C R O S S - R E F E R E N C E =============================================
