'Program to extract .wav file info and play

Option EXPLICIT
Dim I,PNTR1,PNTR2,PNTR3,PNTR4,PNTR5
Dim INFO$ LENGTH 140
Dim A$ LENGTH 1
Dim DLIM$, ARTIST$, TRACK$, ALBUM$, GENRES$, FILENAME$
Input "ENTER THE WAV FILE PATH AND NAME";FILENAME$
Open FILENAME$ For INPUT As #1

INFO$= Input$(140, #1)
Close #1
Print
Print
For I= 1 To Len(INFO$)
DLIM$=Mid$(INFO$,I,3)
If DLIM$="INF" Then PNTR1=I              'FOUND FIRST POINTER IN STRING
If DLIM$="INA" Then                      '2ND POINTER FOLLOWS ARTIST NAME
 PNTR2=I
 ARTIST$=Mid$(INFO$,PNTR1+8,PNTR2-PNTR1-8)
 Print "ARTIST ";ARTIST$
EndIf
If DLIM$="IPR" Then                      '3RD POINTER FOLLOWS TRACK NAME
 PNTR3=I
 TRACK$=Mid$(INFO$,PNTR2+4,PNTR3-PNTR2-4)
 Print "TRACK ";TRACK$
EndIf
If DLIM$="IGN" Then                      '4TH POINTER FOLLOWS ALBUM NAME
 PNTR4=I
 ALBUM$=Mid$(INFO$,PNTR3+5,PNTR4-PNTR3-5)
 Print "ALBUM ";ALBUM$
EndIf
If DLIM$="ITO" Then                      '5TH POINTER FOLLOWS GENRES TYPE
 PNTR5=I
 GENRES$=Mid$(INFO$,PNTR4+4,PNTR5-PNTR4-4)
 Print "GENRES ";GENRES$
EndIf

Next I
Play WAV FILENAME$