'$lang: "qb"
Rem                               $CPT.BAS
REM                              ==========


    qot$ = CHR$(34)
    l$ = COMMAND$
    IF l$ = "" THEN l$ = "?"

    OPEN "a", 7, "..\photo.cpt"
    OPEN "i", 6, "photo.htm"

reini:
    IF EOF(6) THEN GOTO finin:  ELSE LINE INPUT #6, ds$
    IF LCASE$(MID$(ds$, 1, 8)) = "<center>" THEN cpt$ = MID$(ds$, 20)
    GOTO reini
finin:
    
    t = INSTR(cpt$, "lments")
    PRINT #7, l$; " ; "; MID$(cpt$, 1, t - 3)
    CLOSE 6
    CLOSE 7
    END

============================================= 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 ------------------------------------------------
finin	0014 reini
finin	0017 reini
reini	0013 
reini	0016 reini
 ----------------------------------------- liste des variables alphanumeriques ------------------------------------------
cpt$	0015 reini
cpt$	0019 finin
cpt$	0020 finin
ds$	0014 reini
ds$	0015 reini
ds$	0015 reini
l$	0007 
l$	0008 
l$	0008 
l$	0020 finin
qot$	0006 
 -------------------------------------------- liste des variables numeriques --------------------------------------------
t	0019 finin
t	0020 finin
 ---------------------------------------- liste des constantes alphanumeriques ------------------------------------------
" ; "	0020 finin
""	0008 
"..\photo.cpt"	0010 
"?"	0008 
"<center>"	0015 reini
"a"	0010 
"i"	0011 
"photo.htm"	0011 
"lments"	0019 finin
 ------------------------------------------- liste des constantes numeriques --------------------------------------------
1	0015 reini
1	0020 finin
20	0015 reini
3	0020 finin
34	0006 
6	0011 
6	0014 reini
6	0014 reini
6	0021 finin
7	0010 
7	0020 finin
7	0022 finin
8	0015 reini
'$lang: "qb"	0001 
 ------------------------------------------------ liste des commentaires ------------------------------------------------
Rem                               $CPT.BAS	0002 
REM                              ==========	0003 
 
 
 
================================================ ORPHELINS & NON UNIQUES ================================================
 ------------------------------------------------- liste des paragraphes ------------------------------------------------
 ----------------------------------------- liste des variables alphanumeriques ------------------------------------------
qot$ (orphelin)
 -------------------------------------------- liste des variables numeriques --------------------------------------------
 ---------------------------------------- liste des constantes alphanumeriques ------------------------------------------
 ------------------------------------------- liste des constantes numeriques --------------------------------------------
1 (non unique, 2fois)
6 (non unique, 4fois)
7 (non unique, 3fois)
 ------------------------------------------------ liste des commentaires ------------------------------------------------
============================================= C R O S S - R E F E R E N C E =============================================
