function x = roomi( p, m)

name = sprintf( '../room/standp%dm%d.dat', p, m);
fid = fopen( name, 'r', 'ieee-be');
x = fread( fid, Inf, 'int16')/32767;
fclose( fid);