'$lang: "qb"
REM                               CROSREFE.BAS
REM                               ============
REM  $ crosrefe '#.....#'
REM  $ crosrefe 'constante commentaire paragraphe variable numerique'
 
    qot$ = CHR$(34)
    tab$ = CHR$(9)
    PRINT COMMAND$
    OPEN "i", #3, COMMAND$ + ".bas"
    OPEN "o", #6, "dir$.$d$"
    OPEN "o", #7, "cros.$d$"

    PRINT #6, "4"; " ---------------------------------------- liste des constantes alphanumeriques ------------------------------------------"
    PRINT #6, "5"; " ------------------------------------------- liste des constantes numeriques --------------------------------------------"
    PRINT #6, "6"; " ------------------------------------------------ liste des commentaires ------------------------------------------------"
    PRINT #6, "2"; " ----------------------------------------- liste des variables alphanumeriques ------------------------------------------"
    PRINT #6, "3"; " -------------------------------------------- liste des variables numeriques --------------------------------------------"
    PRINT #6, "1"; " ------------------------------------------------- liste des paragraphes ------------------------------------------------"

    PRINT #7, "============================================= C R O S S - R E F E R E N C E ============================================="

    separ$ = "# ,;()=<>+\"
    cmd$ = "#defint#$include#call#command$#time$#sound#space$#date$#return#shell#chr$#rem#print#lcase$#ucase$#open#close#if"
    cmd$ = cmd$ + "#on#then#goto#gosub#eof#line#input#instr#val#mid$#len#asc#lprint#do#while#wend#"
    cmd$ = cmd$ + "#play#int#beep#kill#end#else#dim#for#or#and#not#next#to#select#case#str$#elseif#endif#width#cls#"
REM master
    mcmd$ = "#ok#wcreate#waitkey#sload#reqz#pload#iwrite#iupdate#info#kcreate#fcreate#"
    mcmd$ = mcmd$ + "#idelete#ioset#iposition##initmaster#initmf#inims#icount#won#iexist#"
    mcmd$ = mcmd$ + "#idata#ikey#controlz#chain#idup#inext#iopen#iclose#imode#decz#"
    mcmd$ = mcmd$ + "#inc#inzc#inz#pwork#iread#clearb#clearz#clear#display#displayz#ssave#"
    mcmd$ = mcmd$ + "#no#woff#wlinkoff#pclear#initms#attribz#inkey$#inzn#iprevious#nr#parameter#"
    cmd.bmaster.inc$ = mcmd$
    sauf$ = "#a-z#"
    sauf.ouvert.inc$ = "#menu$#parm$#chemin$#ecran$#cheminpanel$#cheminprog$#virtu$#schemin$#f.cata$#f.cats$#f.coll$#f.tabl$#f.tabx$#f.inve$#"
    constante = 1
    commentaire = 1
    paragraphe = 1
    variable = 1
    numerique = 1
    PRINT #7, "separateurs "; separ$
    PRINT #7, "commandes "; cmd$
    PRINT #7, "sauf "; sauf$
lecture:
    IF EOF(3) THEN GOTO fin
    LINE INPUT #3, lig$
    lig = lig + 1
    mot = 0
    IF MID$(LCASE$(lig$), 1, 4) = "rem " THEN GOSUB trait.rem
    GOSUB lig.sp
    lig$ = lig$ + " ::"
decoupe.instruction:
    IF lig$ = ":" THEN GOTO lecture
    instruc = INSTR(lig$, ":")
    instruc$ = MID$(lig$, 1, instruc - 1)
    cmd.instruc$ = ""
    GOSUB trait.instruction
    lig$ = MID$(lig$, instruc + 1)
    GOTO decoupe.instruction
trait.rem:
    t = INSTR(LCASE$(lig$), "$crosrefe")
    IF t > 0 THEN instruc$ = MID$(lig$, t + 9): GOSUB trait.crosrefe
    t = INSTR(LCASE$(lig$), "$include")
    IF t > 0 THEN instruc$ = MID$(lig$, t + 8): GOSUB trait.include
    type$ = "6"
    mot$ = lig$
    GOSUB ecriture
    lig$ = " "
    RETURN
trait.crosrefe:
    GOSUB supprime.blanc.debut
    IF instruc$ = "" THEN RETURN
    i = 1: GOSUB recherche.mot
    IF mot$ = "" THEN RETURN
    IF MID$(mot$, 1, 2) = "'#" THEN sauf$ = sauf$ + MID$(mot$, 2, LEN(mot$) - 2): PRINT #7, "sauf programme "; MID$(mot$, 2, LEN(mot$) - 2): RETURN
    IF INSTR(LCASE$(mot$), "constante") > 0 THEN constante = 0: PRINT #7, "sauf constante"
    IF INSTR(LCASE$(mot$), "commentaire") > 0 THEN commentaire = 0: PRINT #7, "sauf commentaire"
    IF INSTR(LCASE$(mot$), "paragraphe") > 0 THEN paragraphe = 0: PRINT #7, "sauf paragraphe"
    IF INSTR(LCASE$(mot$), "variable") > 0 THEN variable = 0: PRINT #7, "sauf variable"
    IF INSTR(LCASE$(mot$), "numerique") > 0 THEN numerique = 0: PRINT #7, "sauf numerique"
    RETURN
trait.include:
    IF INSTR(LCASE$(instruc$), "'bmaster.inc'") > 0 THEN cmd$ = cmd$ + cmd.bmaster.inc$: PRINT #7, "commandes master "; cmd.bmaster.inc$: RETURN
    IF INSTR(LCASE$(instruc$), "'ouvert.inc'") > 0 THEN sauf$ = sauf$ + sauf.ouvert.inc$: PRINT #7, "sauf malacos "; sauf.ouvert.inc$: RETURN
    RETURN
lig.sp:
    t = INSTR(lig$, " ELSE")
    IF t <> 0 THEN
       lig$ = MID$(lig$, 1, t - 1) + " : " + MID$(lig$, t + 5)
       GOTO lig.sp
    END IF
    t = INSTR(lig$, " GOTO")
    IF t <> 0 THEN
       lig$ = MID$(lig$, 1, t - 1) + " :GOTO " + MID$(lig$, t + 5)
       GOTO lig.sp
    END IF
    t = INSTR(lig$, " GOSUB")
    IF t <> 0 THEN
       lig$ = MID$(lig$, 1, t - 1) + " :GOSUB " + MID$(lig$, t + 6)
       GOTO lig.sp
    END IF
    tz = 0
    FOR i = 1 TO LEN(lig$)
        IF tz = 2 THEN tz = 0
        IF MID$(lig$, i, 1) = qot$ THEN tz = tz + 1
        IF MID$(lig$, i, 1) = ":" AND tz = 1 THEN MID$(lig$, i, 1) = CHR$(200)
        IF MID$(lig$, i, 1) = "'" AND tz = 1 THEN MID$(lig$, i, 1) = CHR$(201)
    NEXT i
    tz = 0
    FOR i = 1 TO LEN(lig$)
        IF MID$(lig$, i, 1) = "'" THEN tz = tz + 1
        IF MID$(lig$, i, 1) = "'" AND tz > 1 THEN MID$(lig$, i, 1) = CHR$(201)
        IF MID$(lig$, i, 1) = ":" AND tz > 0 THEN MID$(lig$, i, 1) = CHR$(200)
    NEXT i
    RETURN
trait.instruction:
    GOSUB supprime.blanc.debut
    IF instruc$ = "" THEN RETURN
    i = 1: GOSUB recherche.mot
    mot = mot + 1
    IF LCASE$(mot$) = "goto" THEN GOSUB trait.goto.gosub: RETURN
    IF LCASE$(mot$) = "gosub" THEN GOSUB trait.goto.gosub: RETURN
    t = INSTR(cmd$, LCASE$("#" + mot$ + "#"))
    IF t <> 0 THEN
       cmd.instruc$ = MID$(cmd$, t + 1, LEN(mot$))
       GOTO trait.instruction
    END IF
    t = INSTR(sauf$ + "#-#*#/#", LCASE$("#" + mot$ + "#"))
    IF t <> 0 THEN GOTO trait.instruction
    IF MID$(mot$, 1, 1) = qot$ THEN type$ = "4": GOSUB trait.value: GOTO trait.instruction
    IF MID$(mot$, 1, 1) = "'" THEN type$ = "6": GOSUB trait.value: GOTO trait.instruction
    IF MID$(mot$, LEN(mot$), 1) = "$" THEN type$ = "2": GOSUB trait.constante: GOTO trait.instruction
    IF mot = 1 AND a.instruc$ = mot$ THEN GOSUB trait.paragraphe: GOTO trait.instruction
    IF mot = 1 AND VAL(mot$) > 0 THEN GOSUB trait.paragraphe: GOTO trait.instruction
    IF VAL(mot$) > 0 OR mot$ = "0" THEN type$ = "5": GOSUB trait.constante: GOTO trait.instruction
    GOSUB trait.numerique
    GOTO trait.instruction
trait.numerique:
    type$ = "3"
    GOSUB ecriture
    RETURN
trait.value:
'   type$= 4 ou 6
    GOSUB ecriture
    RETURN
trait.constante:
'   type$= 2 ou 5
    GOSUB ecriture
    RETURN
trait.paragraphe:
    type$ = "1"
    GOSUB ecriture
    para$ = mot$
    RETURN
recherche.mot:
    IF MID$(instruc$, 1, 1) = qot$ THEN GOTO recherche.mot.constante
    IF MID$(instruc$, 1, 1) = "'" THEN GOTO recherche.mot.constante.sp
    t = INSTR(separ$, MID$(instruc$, i, 1))
    IF i + 1 > LEN(instruc$) THEN
       IF t = 0 THEN mot$ = MID$(instruc$, 1, i) ELSE mot$ = MID$(instruc$, 1, i - 1)
       a.instruc$ = instruc$: instruc$ = ""
       RETURN
    END IF
    IF t = 0 THEN i = i + 1: GOTO recherche.mot
    mot$ = MID$(instruc$, 1, i - 1)
    a.instruc$ = instruc$
    instruc$ = MID$(instruc$, i + 1)
    RETURN
recherche.mot.constante:
    t = INSTR(MID$(instruc$, 2), MID$(instruc$, 1, 1))
    IF t = 0 THEN mot$ = instruc$: instruc$ = "": RETURN
    mot$ = MID$(instruc$, 1, t + 1)
    instruc$ = MID$(instruc$, t + 2)
    RETURN
recherche.mot.constante.sp:
    IF MID$(instruc$, LEN(instruc$), 1) = " " THEN
       instruc$ = MID$(instruc$, 1, LEN(instruc$) - 1)
       GOTO recherche.mot.constante.sp
    END IF
    mot$ = instruc$
    instruc$ = ""
    RETURN
trait.goto.gosub:
    GOSUB supprime.blanc.debut
    i = 1: GOSUB recherche.mot
    IF mot$ = "" THEN RETURN
    IF MID$(mot$, 1, 1) = "'" THEN type$ = "6" ELSE type$ = "1"
    GOSUB ecriture
    GOTO trait.goto.gosub
    RETURN
supprime.blanc.debut:
    IF instruc$ = "" THEN RETURN
    IF MID$(instruc$, 1, 1) = " " THEN instruc$ = MID$(instruc$, 2): GOTO supprime.blanc.debut
    RETURN
ecriture:
    ptr$ = type$ + mot$ + tab$ + MID$(STR$(lig + 10000), 3, 4) + " " + para$
    IF type$ = "2" AND variable = 1 THEN PRINT #6, ptr$
    IF type$ = "3" AND numerique = 1 THEN PRINT #6, ptr$
    IF type$ = "1" AND paragraphe = 1 THEN PRINT #6, ptr$
    IF type$ = "6" AND commentaire = 1 THEN PRINT #6, ptr$
    IF type$ = "4" AND constante = 1 THEN PRINT #6, ptr$
    IF type$ = "5" AND constante = 1 THEN PRINT #6, ptr$
    RETURN
fin:
    PRINT #7, "============================================= C R O S S - R E F E R E N C E ============================================="
    PRINT #7, "Nom    Ligne Paragraphe"
    PRINT #7, "====== ===== ============================================================================================================"
    CLOSE 3
    CLOSE 6
    CLOSE 7
    dir$ = "sort dir$.$d$ /o dyr$.$d$"
    SHELL dir$
    copy$ = "copy " + COMMAND$ + ".bas + cros.$d$ " + COMMAND$ + ".txt"
    SHELL copy$
    OPEN "i", #3, "dyr$.$d$"
    OPEN "a", #6, COMMAND$ + ".txt"
fin2:
    IF EOF(3) THEN CLOSE 3: GOTO fin3
    LINE INPUT #3, lig$
fin2.1:
    t = INSTR(lig$, CHR$(200))
    IF t > 0 THEN MID$(lig$, t, 1) = ":": GOTO fin2.1
fin2.2:
    t = INSTR(lig$, CHR$(201))
    IF t > 0 THEN MID$(lig$, t, 1) = "'": GOTO fin2.2
    PRINT #6, MID$(lig$, 2)
    GOTO fin2
fin3:
    OPEN "i", #3, "dyr$.$d$"
    PRINT #6, " "
    PRINT #6, " "
    PRINT #6, " "
    PRINT #6, "================================================ ORPHELINS & NON UNIQUES ================================================"

dib:
    IF EOF(3) THEN lig$ = CHR$(255) + tab$ ELSE LINE INPUT #3, lig$
dib.1:
    t = INSTR(lig$, CHR$(200))
    IF t > 0 THEN MID$(lig$, t, 1) = ":": GOTO dib.1
dib.2:
    t = INSTR(lig$, CHR$(201))
    IF t > 0 THEN MID$(lig$, t, 1) = "'": GOTO dib.2
    IF MID$(lig$, 1, 1) = " " THEN GOTO dib
    IF MID$(lig$, 2, 1) = " " THEN lig$ = lig$ + tab$
    t = INSTR(lig$, tab$)
    zt$ = MID$(lig$, 1, t - 1)
    IF zt$ = azt$ THEN g = g + 1: GOTO dib
    IF MID$(azt$, 1, 1) = "1" OR MID$(azt$, 1, 1) = "2" OR MID$(azt$, 1, 1) = "3" THEN
         IF g = 1 THEN PRINT #6, MID$(azt$, 2) + " (orphelin)"
    ELSE
         IF g > 1 THEN PRINT #6, MID$(azt$, 2) + " (non unique,"; g; "fois)"
    END IF
    azt$ = zt$
    g = 1
    IF MID$(lig$, 2, 1) = " " THEN PRINT #6, MID$(lig$, 2, LEN(lig$) - 2): azt$ = "": GOTO dib
    IF zt$ <> CHR$(255) THEN GOTO dib
    PRINT #6, "============================================= C R O S S - R E F E R E N C E ============================================="
    CLOSE 3
    CLOSE 6
    KILL "cros.$d$"
    KILL "dir$.$d$"
    KILL "dyr$.$d$"
    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 ------------------------------------------------
decoupe.instruction	0052 lecture
decoupe.instruction	0059 decoupe.instruction
dib	0235 fin3
dib	0243 dib.2
dib	0247 dib.2
dib	0255 dib.2
dib	0256 dib.2
dib.1	0237 dib
dib.1	0239 dib.1
dib.2	0240 dib.1
dib.2	0242 dib.2
ecriture	0067 trait.rem
ecriture	0140 trait.numerique
ecriture	0144 trait.value
ecriture	0148 trait.constante
ecriture	0152 trait.paragraphe
ecriture	0188 trait.goto.gosub
ecriture	0195 supprime.blanc.debut
fin	0045 lecture
fin	0204 ecriture
fin2	0217 fin
fin2	0227 fin2.2
fin2.1	0220 fin2
fin2.1	0222 fin2.1
fin2.2	0223 fin2.1
fin2.2	0225 fin2.2
fin3	0218 fin2
fin3	0228 fin2.2
lecture	0044 
lecture	0053 decoupe.instruction
lig.sp	0050 lecture
lig.sp	0086 trait.include
lig.sp	0090 lig.sp
lig.sp	0095 lig.sp
lig.sp	0100 lig.sp
recherche.mot	0073 trait.crosrefe
recherche.mot	0119 trait.instruction
recherche.mot	0155 trait.paragraphe
recherche.mot	0164 recherche.mot
recherche.mot	0185 trait.goto.gosub
recherche.mot.constante	0156 recherche.mot
recherche.mot.constante	0169 recherche.mot
recherche.mot.constante.sp	0157 recherche.mot
recherche.mot.constante.sp	0175 recherche.mot.constante
recherche.mot.constante.sp	0178 recherche.mot.constante.sp
supprime.blanc.debut	0071 trait.crosrefe
supprime.blanc.debut	0117 trait.instruction
supprime.blanc.debut	0184 trait.goto.gosub
supprime.blanc.debut	0191 trait.goto.gosub
supprime.blanc.debut	0193 supprime.blanc.debut
trait.constante	0132 trait.instruction
trait.constante	0135 trait.instruction
trait.constante	0146 trait.value
trait.crosrefe	0062 trait.rem
trait.crosrefe	0070 trait.rem
trait.goto.gosub	0121 trait.instruction
trait.goto.gosub	0122 trait.instruction
trait.goto.gosub	0183 recherche.mot.constante.sp
trait.goto.gosub	0189 trait.goto.gosub
trait.include	0064 trait.rem
trait.include	0082 trait.crosrefe
trait.instruction	0057 decoupe.instruction
trait.instruction	0116 lig.sp
trait.instruction	0126 trait.instruction
trait.instruction	0129 trait.instruction
trait.instruction	0130 trait.instruction
trait.instruction	0131 trait.instruction
trait.instruction	0132 trait.instruction
trait.instruction	0133 trait.instruction
trait.instruction	0134 trait.instruction
trait.instruction	0135 trait.instruction
trait.instruction	0137 trait.instruction
trait.numerique	0136 trait.instruction
trait.numerique	0138 trait.instruction
trait.paragraphe	0133 trait.instruction
trait.paragraphe	0134 trait.instruction
trait.paragraphe	0150 trait.constante
trait.rem	0049 lecture
trait.rem	0060 decoupe.instruction
trait.value	0130 trait.instruction
trait.value	0131 trait.instruction
trait.value	0142 trait.numerique
 ----------------------------------------- liste des variables alphanumeriques ------------------------------------------
a.instruc$	0133 trait.instruction
a.instruc$	0161 recherche.mot
a.instruc$	0166 recherche.mot
azt$	0247 dib.2
azt$	0248 dib.2
azt$	0248 dib.2
azt$	0248 dib.2
azt$	0249 dib.2
azt$	0251 dib.2
azt$	0253 dib.2
azt$	0255 dib.2
cmd$	0024 
cmd$	0025 
cmd$	0025 
cmd$	0026 
cmd$	0026 
cmd$	0042 
cmd$	0083 trait.include
cmd$	0083 trait.include
cmd$	0123 trait.instruction
cmd$	0125 trait.instruction
cmd.bmaster.inc$	0033 
cmd.bmaster.inc$	0083 trait.include
cmd.bmaster.inc$	0083 trait.include
cmd.instruc$	0056 decoupe.instruction
cmd.instruc$	0125 trait.instruction
copy$	0213 fin
copy$	0214 fin
dir$	0211 fin
dir$	0212 fin
instruc$	0055 decoupe.instruction
instruc$	0062 trait.rem
instruc$	0064 trait.rem
instruc$	0072 trait.crosrefe
instruc$	0083 trait.include
instruc$	0084 trait.include
instruc$	0118 trait.instruction
instruc$	0156 recherche.mot
instruc$	0157 recherche.mot
instruc$	0158 recherche.mot
instruc$	0159 recherche.mot
instruc$	0160 recherche.mot
instruc$	0160 recherche.mot
instruc$	0161 recherche.mot
instruc$	0161 recherche.mot
instruc$	0165 recherche.mot
instruc$	0166 recherche.mot
instruc$	0167 recherche.mot
instruc$	0167 recherche.mot
instruc$	0170 recherche.mot.constante
instruc$	0170 recherche.mot.constante
instruc$	0171 recherche.mot.constante
instruc$	0171 recherche.mot.constante
instruc$	0172 recherche.mot.constante
instruc$	0173 recherche.mot.constante
instruc$	0173 recherche.mot.constante
instruc$	0176 recherche.mot.constante.sp
instruc$	0176 recherche.mot.constante.sp
instruc$	0177 recherche.mot.constante.sp
instruc$	0177 recherche.mot.constante.sp
instruc$	0177 recherche.mot.constante.sp
instruc$	0180 recherche.mot.constante.sp
instruc$	0181 recherche.mot.constante.sp
instruc$	0192 supprime.blanc.debut
instruc$	0193 supprime.blanc.debut
instruc$	0193 supprime.blanc.debut
instruc$	0193 supprime.blanc.debut
lig$	0046 lecture
lig$	0049 lecture
lig$	0051 lecture
lig$	0051 lecture
lig$	0053 decoupe.instruction
lig$	0054 decoupe.instruction
lig$	0055 decoupe.instruction
lig$	0058 decoupe.instruction
lig$	0058 decoupe.instruction
lig$	0061 trait.rem
lig$	0062 trait.rem
lig$	0063 trait.rem
lig$	0064 trait.rem
lig$	0066 trait.rem
lig$	0068 trait.rem
lig$	0087 lig.sp
lig$	0089 lig.sp
lig$	0089 lig.sp
lig$	0089 lig.sp
lig$	0092 lig.sp
lig$	0094 lig.sp
lig$	0094 lig.sp
lig$	0094 lig.sp
lig$	0097 lig.sp
lig$	0099 lig.sp
lig$	0099 lig.sp
lig$	0099 lig.sp
lig$	0103 lig.sp
lig$	0105 lig.sp
lig$	0106 lig.sp
lig$	0106 lig.sp
lig$	0107 lig.sp
lig$	0107 lig.sp
lig$	0110 lig.sp
lig$	0111 lig.sp
lig$	0112 lig.sp
lig$	0112 lig.sp
lig$	0113 lig.sp
lig$	0113 lig.sp
lig$	0219 fin2
lig$	0221 fin2.1
lig$	0222 fin2.1
lig$	0224 fin2.2
lig$	0225 fin2.2
lig$	0226 fin2.2
lig$	0236 dib
lig$	0236 dib
lig$	0238 dib.1
lig$	0239 dib.1
lig$	0241 dib.2
lig$	0242 dib.2
lig$	0243 dib.2
lig$	0244 dib.2
lig$	0244 dib.2
lig$	0244 dib.2
lig$	0245 dib.2
lig$	0246 dib.2
lig$	0255 dib.2
lig$	0255 dib.2
lig$	0255 dib.2
mcmd$	0028 
mcmd$	0029 
mcmd$	0029 
mcmd$	0030 
mcmd$	0030 
mcmd$	0031 
mcmd$	0031 
mcmd$	0032 
mcmd$	0032 
mcmd$	0033 
mot$	0066 trait.rem
mot$	0074 trait.crosrefe
mot$	0075 trait.crosrefe
mot$	0075 trait.crosrefe
mot$	0075 trait.crosrefe
mot$	0075 trait.crosrefe
mot$	0075 trait.crosrefe
mot$	0076 trait.crosrefe
mot$	0077 trait.crosrefe
mot$	0078 trait.crosrefe
mot$	0079 trait.crosrefe
mot$	0080 trait.crosrefe
mot$	0121 trait.instruction
mot$	0122 trait.instruction
mot$	0123 trait.instruction
mot$	0125 trait.instruction
mot$	0128 trait.instruction
mot$	0130 trait.instruction
mot$	0131 trait.instruction
mot$	0132 trait.instruction
mot$	0132 trait.instruction
mot$	0133 trait.instruction
mot$	0134 trait.instruction
mot$	0135 trait.instruction
mot$	0135 trait.instruction
mot$	0153 trait.paragraphe
mot$	0160 recherche.mot
mot$	0160 recherche.mot
mot$	0165 recherche.mot
mot$	0171 recherche.mot.constante
mot$	0172 recherche.mot.constante
mot$	0180 recherche.mot.constante.sp
mot$	0186 trait.goto.gosub
mot$	0187 trait.goto.gosub
mot$	0196 ecriture
para$	0153 trait.paragraphe
para$	0196 ecriture
ptr$	0196 ecriture
ptr$	0197 ecriture
ptr$	0198 ecriture
ptr$	0199 ecriture
ptr$	0200 ecriture
ptr$	0201 ecriture
ptr$	0202 ecriture
qot$	0007 
qot$	0105 lig.sp
qot$	0130 trait.instruction
qot$	0156 recherche.mot
sauf$	0034 
sauf$	0043 
sauf$	0075 trait.crosrefe
sauf$	0075 trait.crosrefe
sauf$	0084 trait.include
sauf$	0084 trait.include
sauf$	0128 trait.instruction
sauf.ouvert.inc$	0035 
sauf.ouvert.inc$	0084 trait.include
sauf.ouvert.inc$	0084 trait.include
separ$	0023 
separ$	0041 
separ$	0158 recherche.mot
tab$	0008 
tab$	0196 ecriture
tab$	0236 dib
tab$	0244 dib.2
tab$	0245 dib.2
type$	0065 trait.rem
type$	0130 trait.instruction
type$	0131 trait.instruction
type$	0132 trait.instruction
type$	0135 trait.instruction
type$	0139 trait.numerique
type$	0151 trait.paragraphe
type$	0187 trait.goto.gosub
type$	0187 trait.goto.gosub
type$	0196 ecriture
type$	0197 ecriture
type$	0198 ecriture
type$	0199 ecriture
type$	0200 ecriture
type$	0201 ecriture
type$	0202 ecriture
zt$	0246 dib.2
zt$	0247 dib.2
zt$	0253 dib.2
zt$	0256 dib.2
 -------------------------------------------- liste des variables numeriques --------------------------------------------
commentaire	0037 
commentaire	0077 trait.crosrefe
commentaire	0200 ecriture
constante	0036 
constante	0076 trait.crosrefe
constante	0201 ecriture
constante	0202 ecriture
g	0247 dib.2
g	0247 dib.2
g	0249 dib.2
g	0251 dib.2
g	0251 dib.2
g	0254 dib.2
i	0073 trait.crosrefe
i	0103 lig.sp
i	0105 lig.sp
i	0106 lig.sp
i	0106 lig.sp
i	0107 lig.sp
i	0107 lig.sp
i	0108 lig.sp
i	0110 lig.sp
i	0111 lig.sp
i	0112 lig.sp
i	0112 lig.sp
i	0113 lig.sp
i	0113 lig.sp
i	0114 lig.sp
i	0119 trait.instruction
i	0158 recherche.mot
i	0159 recherche.mot
i	0160 recherche.mot
i	0160 recherche.mot
i	0164 recherche.mot
i	0164 recherche.mot
i	0165 recherche.mot
i	0167 recherche.mot
i	0185 trait.goto.gosub
instruc	0054 decoupe.instruction
instruc	0055 decoupe.instruction
instruc	0058 decoupe.instruction
lig	0047 lecture
lig	0047 lecture
lig	0196 ecriture
mot	0048 lecture
mot	0120 trait.instruction
mot	0120 trait.instruction
mot	0133 trait.instruction
mot	0134 trait.instruction
numerique	0040 
numerique	0080 trait.crosrefe
numerique	0198 ecriture
paragraphe	0038 
paragraphe	0078 trait.crosrefe
paragraphe	0199 ecriture
t	0061 trait.rem
t	0062 trait.rem
t	0062 trait.rem
t	0063 trait.rem
t	0064 trait.rem
t	0064 trait.rem
t	0087 lig.sp
t	0088 lig.sp
t	0089 lig.sp
t	0089 lig.sp
t	0092 lig.sp
t	0093 lig.sp
t	0094 lig.sp
t	0094 lig.sp
t	0097 lig.sp
t	0098 lig.sp
t	0099 lig.sp
t	0099 lig.sp
t	0123 trait.instruction
t	0124 trait.instruction
t	0125 trait.instruction
t	0128 trait.instruction
t	0129 trait.instruction
t	0158 recherche.mot
t	0160 recherche.mot
t	0164 recherche.mot
t	0170 recherche.mot.constante
t	0171 recherche.mot.constante
t	0172 recherche.mot.constante
t	0173 recherche.mot.constante
t	0221 fin2.1
t	0222 fin2.1
t	0222 fin2.1
t	0224 fin2.2
t	0225 fin2.2
t	0225 fin2.2
t	0238 dib.1
t	0239 dib.1
t	0239 dib.1
t	0241 dib.2
t	0242 dib.2
t	0242 dib.2
t	0245 dib.2
t	0246 dib.2
tz	0102 lig.sp
tz	0104 lig.sp
tz	0104 lig.sp
tz	0105 lig.sp
tz	0105 lig.sp
tz	0106 lig.sp
tz	0107 lig.sp
tz	0109 lig.sp
tz	0111 lig.sp
tz	0111 lig.sp
tz	0112 lig.sp
tz	0113 lig.sp
variable	0039 
variable	0079 trait.crosrefe
variable	0197 ecriture
 ---------------------------------------- liste des constantes alphanumeriques ------------------------------------------
" ------------------------------------------------- liste des paragraphes ------------------------------------------------"	0019 
" ------------------------------------------------ liste des commentaires ------------------------------------------------"	0016 
" -------------------------------------------- liste des variables numeriques --------------------------------------------"	0018 
" ------------------------------------------- liste des constantes numeriques --------------------------------------------"	0015 
" ----------------------------------------- liste des variables alphanumeriques ------------------------------------------"	0017 
" ---------------------------------------- liste des constantes alphanumeriques ------------------------------------------"	0014 
" "	0068 trait.rem
" "	0176 recherche.mot.constante.sp
" "	0193 supprime.blanc.debut
" "	0196 ecriture
" "	0230 fin3
" "	0231 fin3
" "	0232 fin3
" "	0243 dib.2
" "	0244 dib.2
" "	0255 dib.2
" (non unique,"	0251 dib.2
" (orphelin)"	0249 dib.2
" : "	0087 lig.sp
" : "	0089 lig.sp
" ::"	0051 lecture
" :GOSUB "	0097 lig.sp
" :GOSUB "	0099 lig.sp
" :GOTO "	0092 lig.sp
" :GOTO "	0094 lig.sp
""	0056 decoupe.instruction
""	0072 trait.crosrefe
""	0074 trait.crosrefe
""	0118 trait.instruction
""	0161 recherche.mot
""	0171 recherche.mot.constante
""	0181 recherche.mot.constante.sp
""	0186 trait.goto.gosub
""	0192 supprime.blanc.debut
""	0255 dib.2
"#-#*#/#"	0128 trait.instruction
"# ,;()=<>+\"	0023 
"#"	0123 trait.instruction
"#"	0123 trait.instruction
"#"	0128 trait.instruction
"#"	0128 trait.instruction
"#a-z#"	0034 
"#defint#$include#call#command$#time$#sound#space$#date$#return#shell#chr$#rem#print#lcase$#ucase$#open#close#if"	0024 
"#idata#ikey#controlz#chain#idup#inext#iopen#iclose#imode#decz#"	0030 
"#idelete#ioset#iposition##initmaster#initmf#inims#icount#won#iexist#"	0029 
"#inc#inzc#inz#pwork#iread#clearb#clearz#clear#display#displayz#ssave#"	0031 
"#menu$#parm$#chemin$#ecran$#cheminpanel$#cheminprog$#virtu$#schemin$#f.cata$#f.cats$#f.coll$#f.tabl$#f.tabx$#f.inve$#"	0035 
"#no#woff#wlinkoff#pclear#initms#attribz#inkey$#inzn#iprevious#nr#parameter#"	0032 
"#ok#wcreate#waitkey#sload#reqz#pload#iwrite#iupdate#info#kcreate#fcreate#"	0028 
"#on#then#goto#gosub#eof#line#input#instr#val#mid$#len#asc#lprint#do#while#wend#"	0025 
"#play#int#beep#kill#end#else#dim#for#or#and#not#next#to#select#case#str$#elseif#endif#width#cls#"	0026 
"$"	0132 trait.instruction
"$crosrefe"	0061 trait.rem
"$include"	0063 trait.rem
".bas + cros.$d$ "	0213 fin
".bas"	0010 
".txt"	0213 fin
".txt"	0216 fin
"====== ===== ============================================================================================================"	0207 fin
"============================================= C R O S S - R E F E R E N C E ============================================="	0021 
"============================================= C R O S S - R E F E R E N C E ============================================="	0205 fin
"============================================= C R O S S - R E F E R E N C E ============================================="	0257 dib.2
"================================================ ORPHELINS & NON UNIQUES ================================================"	0233 fin3
"'"	0107 lig.sp
"'"	0111 lig.sp
"'"	0112 lig.sp
"'"	0131 trait.instruction
"'"	0157 recherche.mot
"'"	0187 trait.goto.gosub
"'"	0225 fin2.2
"'"	0242 dib.2
"'#"	0075 trait.crosrefe
"'bmaster.inc'"	0083 trait.include
"'ouvert.inc'"	0084 trait.include
":"	0053 decoupe.instruction
":"	0054 decoupe.instruction
":"	0106 lig.sp
":"	0113 lig.sp
":"	0222 fin2.1
":"	0239 dib.1
"0"	0135 trait.instruction
"1"	0019 
"1"	0151 trait.paragraphe
"1"	0187 trait.goto.gosub
"1"	0199 ecriture
"1"	0248 dib.2
"2"	0017 
"2"	0132 trait.instruction
"2"	0197 ecriture
"2"	0248 dib.2
"3"	0018 
"3"	0139 trait.numerique
"3"	0198 ecriture
"3"	0248 dib.2
"4"	0014 
"4"	0130 trait.instruction
"4"	0201 ecriture
"5"	0015 
"5"	0135 trait.instruction
"5"	0202 ecriture
"6"	0016 
"6"	0065 trait.rem
"6"	0131 trait.instruction
"6"	0187 trait.goto.gosub
"6"	0200 ecriture
"a"	0216 fin
"commandes "	0042 
"commandes master "	0083 trait.include
"commentaire"	0077 trait.crosrefe
"constante"	0076 trait.crosrefe
"copy "	0213 fin
"cros.$d$"	0012 
"cros.$d$"	0260 dib.2
"dir$.$d$"	0011 
"dir$.$d$"	0261 dib.2
"dyr$.$d$"	0215 fin
"dyr$.$d$"	0229 fin3
"dyr$.$d$"	0262 dib.2
"fois)"	0251 dib.2
"gosub"	0122 trait.instruction
"goto"	0121 trait.instruction
"i"	0010 
"i"	0215 fin
"i"	0229 fin3
"Nom    Ligne Paragraphe"	0206 fin
"numerique"	0080 trait.crosrefe
"o"	0011 
"o"	0012 
"paragraphe"	0078 trait.crosrefe
"rem "	0049 lecture
"sauf "	0043 
"sauf commentaire"	0077 trait.crosrefe
"sauf constante"	0076 trait.crosrefe
"sauf malacos "	0084 trait.include
"sauf numerique"	0080 trait.crosrefe
"sauf paragraphe"	0078 trait.crosrefe
"sauf programme "	0075 trait.crosrefe
"sauf variable"	0079 trait.crosrefe
"separateurs "	0041 
"sort dir$.$d$ /o dyr$.$d$"	0211 fin
"variable"	0079 trait.crosrefe
 ------------------------------------------- liste des constantes numeriques --------------------------------------------
0	0048 lecture
0	0062 trait.rem
0	0064 trait.rem
0	0076 trait.crosrefe
0	0076 trait.crosrefe
0	0077 trait.crosrefe
0	0077 trait.crosrefe
0	0078 trait.crosrefe
0	0078 trait.crosrefe
0	0079 trait.crosrefe
0	0079 trait.crosrefe
0	0080 trait.crosrefe
0	0080 trait.crosrefe
0	0083 trait.include
0	0084 trait.include
0	0088 lig.sp
0	0093 lig.sp
0	0098 lig.sp
0	0102 lig.sp
0	0104 lig.sp
0	0109 lig.sp
0	0113 lig.sp
0	0124 trait.instruction
0	0129 trait.instruction
0	0134 trait.instruction
0	0135 trait.instruction
0	0160 recherche.mot
0	0164 recherche.mot
0	0171 recherche.mot.constante
0	0222 fin2.1
0	0225 fin2.2
0	0239 dib.1
0	0242 dib.2
1	0036 
1	0037 
1	0038 
1	0039 
1	0040 
1	0047 lecture
1	0049 lecture
1	0055 decoupe.instruction
1	0055 decoupe.instruction
1	0058 decoupe.instruction
1	0073 trait.crosrefe
1	0075 trait.crosrefe
1	0089 lig.sp
1	0089 lig.sp
1	0094 lig.sp
1	0094 lig.sp
1	0099 lig.sp
1	0099 lig.sp
1	0103 lig.sp
1	0105 lig.sp
1	0105 lig.sp
1	0106 lig.sp
1	0106 lig.sp
1	0106 lig.sp
1	0107 lig.sp
1	0107 lig.sp
1	0107 lig.sp
1	0110 lig.sp
1	0111 lig.sp
1	0111 lig.sp
1	0112 lig.sp
1	0112 lig.sp
1	0112 lig.sp
1	0113 lig.sp
1	0113 lig.sp
1	0119 trait.instruction
1	0120 trait.instruction
1	0125 trait.instruction
1	0130 trait.instruction
1	0130 trait.instruction
1	0131 trait.instruction
1	0131 trait.instruction
1	0132 trait.instruction
1	0133 trait.instruction
1	0134 trait.instruction
1	0156 recherche.mot
1	0156 recherche.mot
1	0157 recherche.mot
1	0157 recherche.mot
1	0158 recherche.mot
1	0159 recherche.mot
1	0160 recherche.mot
1	0160 recherche.mot
1	0160 recherche.mot
1	0164 recherche.mot
1	0165 recherche.mot
1	0165 recherche.mot
1	0167 recherche.mot
1	0170 recherche.mot.constante
1	0170 recherche.mot.constante
1	0172 recherche.mot.constante
1	0172 recherche.mot.constante
1	0176 recherche.mot.constante.sp
1	0177 recherche.mot.constante.sp
1	0177 recherche.mot.constante.sp
1	0185 trait.goto.gosub
1	0187 trait.goto.gosub
1	0187 trait.goto.gosub
1	0193 supprime.blanc.debut
1	0193 supprime.blanc.debut
1	0197 ecriture
1	0198 ecriture
1	0199 ecriture
1	0200 ecriture
1	0201 ecriture
1	0202 ecriture
1	0222 fin2.1
1	0225 fin2.2
1	0239 dib.1
1	0242 dib.2
1	0243 dib.2
1	0243 dib.2
1	0244 dib.2
1	0246 dib.2
1	0246 dib.2
1	0247 dib.2
1	0248 dib.2
1	0248 dib.2
1	0248 dib.2
1	0248 dib.2
1	0248 dib.2
1	0248 dib.2
1	0249 dib.2
1	0251 dib.2
1	0254 dib.2
1	0255 dib.2
10000	0196 ecriture
2	0075 trait.crosrefe
2	0075 trait.crosrefe
2	0075 trait.crosrefe
2	0075 trait.crosrefe
2	0075 trait.crosrefe
2	0104 lig.sp
2	0170 recherche.mot.constante
2	0173 recherche.mot.constante
2	0193 supprime.blanc.debut
2	0226 fin2.2
2	0244 dib.2
2	0249 dib.2
2	0251 dib.2
2	0255 dib.2
2	0255 dib.2
2	0255 dib.2
200	0106 lig.sp
200	0113 lig.sp
200	0221 fin2.1
200	0238 dib.1
201	0107 lig.sp
201	0112 lig.sp
201	0224 fin2.2
201	0241 dib.2
255	0236 dib
255	0256 dib.2
3	0010 
3	0045 lecture
3	0046 lecture
3	0196 ecriture
3	0208 fin
3	0215 fin
3	0218 fin2
3	0218 fin2
3	0219 fin2
3	0229 fin3
3	0236 dib
3	0236 dib
3	0258 dib.2
34	0007 
4	0049 lecture
4	0196 ecriture
5	0089 lig.sp
5	0094 lig.sp
6	0011 
6	0014 
6	0015 
6	0016 
6	0017 
6	0018 
6	0019 
6	0099 lig.sp
6	0197 ecriture
6	0198 ecriture
6	0199 ecriture
6	0200 ecriture
6	0201 ecriture
6	0202 ecriture
6	0209 fin
6	0216 fin
6	0226 fin2.2
6	0230 fin3
6	0231 fin3
6	0232 fin3
6	0233 fin3
6	0249 dib.2
6	0251 dib.2
6	0255 dib.2
6	0257 dib.2
6	0259 dib.2
7	0012 
7	0021 
7	0041 
7	0042 
7	0043 
7	0075 trait.crosrefe
7	0076 trait.crosrefe
7	0077 trait.crosrefe
7	0078 trait.crosrefe
7	0079 trait.crosrefe
7	0080 trait.crosrefe
7	0083 trait.include
7	0084 trait.include
7	0205 fin
7	0206 fin
7	0207 fin
7	0210 fin
8	0064 trait.rem
9	0008 
9	0062 trait.rem
'   type$= 2 ou 5	0147 trait.constante
'   type$= 4 ou 6	0143 trait.value
'$lang: "qb"	0001 
 ------------------------------------------------ liste des commentaires ------------------------------------------------
REM                               ============	0003 
REM                               CROSREFE.BAS	0002 
REM  $ crosrefe '#.....#'	0004 
REM  $ crosrefe 'constante commentaire paragraphe variable numerique'	0005 
REM master	0027 
 
 
 
================================================ ORPHELINS & NON UNIQUES ================================================
 ------------------------------------------------- liste des paragraphes ------------------------------------------------
 ----------------------------------------- liste des variables alphanumeriques ------------------------------------------
 -------------------------------------------- liste des variables numeriques --------------------------------------------
 ---------------------------------------- liste des constantes alphanumeriques ------------------------------------------
" " (non unique, 10fois)
" : " (non unique, 2fois)
" :GOSUB " (non unique, 2fois)
" :GOTO " (non unique, 2fois)
"" (non unique, 10fois)
"#" (non unique, 4fois)
".txt" (non unique, 2fois)
"============================================= C R O S S - R E F E R E N C E =============================================" (non unique, 3fois)
"'" (non unique, 8fois)
":" (non unique, 6fois)
"1" (non unique, 5fois)
"2" (non unique, 4fois)
"3" (non unique, 4fois)
"4" (non unique, 3fois)
"5" (non unique, 3fois)
"6" (non unique, 5fois)
"cros.$d$" (non unique, 2fois)
"dir$.$d$" (non unique, 2fois)
"dyr$.$d$" (non unique, 3fois)
"i" (non unique, 3fois)
"o" (non unique, 2fois)
 ------------------------------------------- liste des constantes numeriques --------------------------------------------
0 (non unique, 33fois)
1 (non unique, 96fois)
2 (non unique, 16fois)
200 (non unique, 4fois)
201 (non unique, 4fois)
255 (non unique, 2fois)
3 (non unique, 13fois)
4 (non unique, 2fois)
5 (non unique, 2fois)
6 (non unique, 26fois)
7 (non unique, 17fois)
9 (non unique, 2fois)
 ------------------------------------------------ liste des commentaires ------------------------------------------------
============================================= C R O S S - R E F E R E N C E =============================================
