'$lang: "qb"
REM                              $DIR$.BAS
REM                              ==========


    qot$ = CHR$(34)
    l$ = COMMAND$
    IF l$ = "" THEN l$ = "call d:\$photo~1\$photo"

    OPEN "a", 7, "$d$.bat"
    OPEN "i", 6, "$d$.dir"

reini:
    IF EOF(6) THEN GOTO finin:  ELSE LINE INPUT #6, ds$
    IF MID$(ds$, 22, 5) <> "<REP>" THEN GOTO reini
    IF MID$(ds$, 37, 1) = "." THEN GOTO reini
    IF MID$(ds$, 37, 2) = ".." THEN GOTO reini
    
    PRINT #7, l$; " "; qot$; MID$(ds$, 37); qot$
   
    GOTO reini
finin:                                       
    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	0022 reini
reini	0013 
reini	0015 reini
reini	0016 reini
reini	0017 reini
reini	0021 reini
 ----------------------------------------- liste des variables alphanumeriques ------------------------------------------
ds$	0014 reini
ds$	0015 reini
ds$	0016 reini
ds$	0017 reini
ds$	0019 reini
l$	0007 
l$	0008 
l$	0008 
l$	0019 reini
qot$	0006 
qot$	0019 reini
qot$	0019 reini
 -------------------------------------------- liste des variables numeriques --------------------------------------------
 ---------------------------------------- liste des constantes alphanumeriques ------------------------------------------
" "	0019 reini
""	0008 
"$d$.bat"	0010 
"$d$.dir"	0011 
"."	0016 reini
".."	0017 reini
"<REP>"	0015 reini
"a"	0010 
"call d:\$photo~1\$photo"	0008 
"i"	0011 
 ------------------------------------------- liste des constantes numeriques --------------------------------------------
1	0016 reini
2	0017 reini
22	0015 reini
34	0006 
37	0016 reini
37	0017 reini
37	0019 reini
5	0015 reini
6	0011 
6	0014 reini
6	0014 reini
6	0023 finin
7	0010 
7	0019 reini
7	0024 finin
'$lang: "qb"	0001 
 ------------------------------------------------ liste des commentaires ------------------------------------------------
REM                              $DIR$.BAS	0002 
REM                              ==========	0003 
 
 
 
================================================ ORPHELINS & NON UNIQUES ================================================
 ------------------------------------------------- liste des paragraphes ------------------------------------------------
 ----------------------------------------- liste des variables alphanumeriques ------------------------------------------
 -------------------------------------------- liste des variables numeriques --------------------------------------------
 ---------------------------------------- liste des constantes alphanumeriques ------------------------------------------
 ------------------------------------------- liste des constantes numeriques --------------------------------------------
37 (non unique, 3fois)
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 =============================================
