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


    qot$ = CHR$(34)
    l$ = COMMAND$
    If ll$="" Then ll$="photo.ini"
    Dir$="Dir "+ll$+" /b /s>$d$.dir"
    Shell Dir$
    OPEN "a", 7, "$d$.bat"
    OPEN "i", 6, "$d$.dir"
    
reini:
    IF EOF(6) THEN GOTO finin:  ELSE LINE INPUT #6, ds$
    dss$=ds$:tt=0:GoSub rupt
    If r=0 Then Do$=dsr$:r=1
    PRINT #7, l$;" "; qot$; dsr$; qot$;"   ";qot$;Do$;qot$
   
    GOTO reini

rupt:
    t=INSTR(dss$,"\")
    If t=0 Then GoTo rupt.s
    ttt=tt
    tt=tt+t
    dss$=Mid$(dss$,t+1)
    GoTo rupt    
rupt.s:
    If tt=0 Then Return
  	 dsr$=Mid$(ds$,3,tt-1-2)
  	 dsb$=Mid$(ds$,3,ttt-1-2)
	 If dsb$<>dsa$ Then 
Rem	 	 Print #7," "
	    dsa$=dsb$
	 EndIf
    Return
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	0015 reini
finin	0038 rupt.s
reini	0014 
reini	0020 reini
rupt	0016 reini
rupt	0022 reini
rupt	0028 rupt
rupt.s	0024 rupt
rupt.s	0029 rupt
 ----------------------------------------- liste des variables alphanumeriques ------------------------------------------
Dir$	0009 
Dir$	0010 
Do$	0017 reini
Do$	0018 reini
ds$	0015 reini
ds$	0016 reini
ds$	0031 rupt.s
ds$	0032 rupt.s
dsa$	0033 rupt.s
dsa$	0035 rupt.s
dsb$	0032 rupt.s
dsb$	0033 rupt.s
dsb$	0035 rupt.s
dsr$	0017 reini
dsr$	0018 reini
dsr$	0031 rupt.s
dss$	0016 reini
dss$	0023 rupt
dss$	0027 rupt
dss$	0027 rupt
l$	0007 
l$	0018 reini
ll$	0008 
ll$	0008 
ll$	0009 
qot$	0006 
qot$	0018 reini
qot$	0018 reini
qot$	0018 reini
qot$	0018 reini
 -------------------------------------------- liste des variables numeriques --------------------------------------------
		0031 rupt.s
		0032 rupt.s
		0033 rupt.s
		0034 rupt.s
		0035 rupt.s
		0036 rupt.s
r	0017 reini
r	0017 reini
Rem		0034 rupt.s
t	0023 rupt
t	0024 rupt
t	0026 rupt
t	0027 rupt
tt-1-2	0031 rupt.s
tt	0016 reini
tt	0025 rupt
tt	0026 rupt
tt	0026 rupt
tt	0030 rupt.s
ttt-1-2	0032 rupt.s
ttt	0025 rupt
 ---------------------------------------- liste des constantes alphanumeriques ------------------------------------------
"   "	0018 reini
" "	0018 reini
" "	0034 rupt.s
" /b /s>$d$.dir"	0009 
""	0008 
"$d$.bat"	0011 
"$d$.dir"	0012 
"\"	0023 rupt
"a"	0011 
"Dir "	0009 
"i"	0012 
"photo.ini"	0008 
 ------------------------------------------- liste des constantes numeriques --------------------------------------------
0	0016 reini
0	0017 reini
0	0024 rupt
0	0030 rupt.s
1	0017 reini
1	0027 rupt
3	0031 rupt.s
3	0032 rupt.s
34	0006 
6	0012 
6	0015 reini
6	0015 reini
6	0039 finin
7	0011 
7	0018 reini
7	0034 rupt.s
7	0040 finin
'$lang: "qb"	0001 
 ------------------------------------------------ liste des commentaires ------------------------------------------------
REM                               $DOS.BAS	0002 
REM                              ==========	0003 
 
 
 
================================================ ORPHELINS & NON UNIQUES ================================================
 ------------------------------------------------- liste des paragraphes ------------------------------------------------
 ----------------------------------------- liste des variables alphanumeriques ------------------------------------------
 -------------------------------------------- liste des variables numeriques --------------------------------------------
Rem (orphelin)
tt-1-2 (orphelin)
ttt-1-2 (orphelin)
ttt (orphelin)
 ---------------------------------------- liste des constantes alphanumeriques ------------------------------------------
" " (non unique, 2fois)
 ------------------------------------------- liste des constantes numeriques --------------------------------------------
0 (non unique, 4fois)
1 (non unique, 2fois)
3 (non unique, 2fois)
6 (non unique, 4fois)
7 (non unique, 4fois)
 ------------------------------------------------ liste des commentaires ------------------------------------------------
============================================= C R O S S - R E F E R E N C E =============================================
