Code:

dim a as integerdim b as integerdim count as integerdim countplace(20) as integerdim ff as integerdim map(10,10,10,10) as stringdim n as integerdim o as integerdim p as integerdim q as integerdim sourcemap as stringdim sourcemapname as stringdim temp as stringdim w as integerdim x as integerdim y as integerdim z as integerprintprint "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-="print "Cross Reference builder B-version 0.1.6"print "- - - - - - - - - - - - - - - - - - - -"print "(C) Copyright 2008, McClouth Software"print "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-="printprint "#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#"print "STEP 1: Convert to HTML"print "---------------------------------------"input "Source code map: ", SourceMapprint "======================================="print "Creating temporary ServerMap... ";mkdir "temp"color 2print "[DONE]"color 7print "======================================="print "Processing " + SourceMap + "..."print ".......................................print "Reading FAT-table:"color 4'get SourceMapNameif right$(SourceMap, 1) = "\" then    SourceMap=Left$(SourceMap, LEN(SourceMap)-1)end ifcount = 0for a=1 to len(SourceMap)    if mid$(SourceMap,a,1)= "\" then        count=count+1        countplace(count)=a    end ifnextn=1o=0p=0q=0SourceMapName=right$(SourceMap,len(SourceMap)-(CountPlace(count)))map(n,o,p,q)=SourceMapNameprint "                " + map(n,o,p,q);:color 7:print "\"shell "dir /ad /b "+SourceMap +" > temp\"+sourcemapname+".dir"ff= freefileopen "temp\"+sourcemapname+".dir" for input as #ffdo while not eof(ff)    input #ff, temp    o=o+1    map(n,o,p,q)=temploopclose #ffp=0for a = 1 to o    if a = b then p=0    shell "dir /ad /b "+SourceMap+"\"+map(n,a,0,0)+" > temp\"+map(n,a,0,0)+".dir"    ff = freefile    open "temp\"+map(n,a,0,0)+".dir" for input as #ff        do while not eof(ff)            input #ff, temp            p=p+1            map(n,a,p,0)=temp        loop    close #ff    b=b+1next aff = freefileopen "temp\temp.html" for output as #ffprint o;p;qprint "press any key"sleepfor w=1 to 20    for x = 0 to 20        for y=0 to 20            color 4            if map(n,w,x,y) = "" then                'do nothing            else                if (w > 0) then color 5                if (x > 0 ) then color 6                if (y > 0 ) then color 7                print "                "+map(n,w,x,y);:color 7:print "\"                print #ff, n;",";w;",";x;",";y;" - ";map(n,w,x,y)+"<br>"            end if        next    nextnextclose #ffcolor 7print "......................................."printprint "#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#"print "Press any key..."sleepprint "Removing temporary ServerMap... ";kill "temp\*.*"rmdir "temp"color 2print "[DONE]"color 7