open $1 , 12 , closelist trimroute RIFFroute WAVEbytestruct unpack <4s4x4suntil until seek 28 current , 816bytestruct unpack <2H10xHroute 0 1* / 8bytestruct unpack <4sIbytestruct unpack <I4xbytestruct unpack <6It bseek 0 current , 24pack s f fselect smpl fmt\file handle $0.filefile handle $0.filefile handle $0.filefile handle $0.filefile handle $0.filefile handle $0.fileopenpanel seek 0 relative , 8seek $3 start , seek $2 relative , seek 8 relativet l sfile define $0.fileprint LOOPprint BYTESPERSAMPLEroute float bang