10 OPEN "BACHINC.MUS" FOR INPUT AS #1
       20 SOUND ON
       30 PLAY "T100", "T100", "T100"
       40 WHILE NOT EOF(1)
       50 INPUT #1,X$     'Read measure number from file
       60 INPUT #1,A$     'Music data read into A$,B$,C$
       70 INPUT #1,B$
       80 INPUT #1,C$
       90 PLAY A$,B$,C$
       100 WEND
       110 CLOSE #1
       120 END