type playrec=record
              speed:word;
              bpm:word;
              tick:word;
              order:word;
              row:word;
              physpatta:word;
              patternjump:boolean;
              patterndelay:byte;
             end;

var play:playrec;