DIM Store%(1 TO 12740) DIM value AS STRING * 1 OPEN "c:\recorded.wav" FOR BINARY AS #1 SCREEN 1 SLEEP 2 FOR note& = 1 TO LOF(1) GET #1, note&, value PSET (256 - ASC(value), 0) GET (0, 0)-(255, 198), Store% PUT (0, 1), Store%, PSET LINE (0, 0)-(319, 0), 0 PSET (319, note& / LOF(1) * 199) NEXT note& CLOSE