
Notes for DSplay
~~~~~~~~~~~~~~~~
Dispite the vague and misleading technical document for DSym, there's a very
easy way of finding out the trackname - just use the following code:

DEF FNfinddsymname(file$)
 LOCAL handle%,count%,count1%,temp%
 handle%=OPENINfile$:IF handle%=0 THEN =""
 REM -- Skip the header.
 FOR count%=1 TO 17:temp%=BGET#handle%:NEXT
 REM -- Skip the sample stuff
 FOR count%=0 TO 62:temp%=BGET#handle%
  IF (temp% AND 128)=0 THEN FOR count1%=1 TO 3:temp%=BGET#handle%:NEXT
 NEXT
 file$="":temp%=BGET#handle%
 FOR count%=1 TO temp%:file$+=CHR$BGET#handle%:NEXT
 CLOSE#handle%
=file$

and, if I'm not mistaken, the result should be the name of the song.
