Sound Mario

#include <ipst.h>
void setup(){
  OK();// Wait for OK button
}
void loop()
{    sound(13,660,100);
   delay(75);sound(13,660,100);
   delay(150);sound(13,660,100);
   delay(150);sound(13,510,100);
   delay(50);sound(13,660,100);
   delay(150);sound(13,770,100);
   delay(275);sound(13,380,100);
   delay(287);sound(13,510,100);
   delay(225);sound(13,380,100);
   delay(200);sound(13,320,100);
   delay(250);sound(13,440,100);
   delay(150);sound(13,480,80);
   delay(165);sound(13,450,100);
   delay(75);sound(13,430,100);
   delay(150);sound(13,380,100);
   delay(100);sound(13,660,80);
   delay(100);sound(13,760,50);
  delay(75);sound(13,860,100);
   delay(150);sound(13,700,80);
   delay(75);sound(13,760,50);
   delay(135);sound(13,660,80);
   delay(150);sound(13,520,80);
   delay(75);sound(13,580,80);
   delay(75);sound(13,480,80);
   delay(135);sound(13,510,100);
   delay(275);sound(13,380,100);
   delay(200);sound(13,320,100);
   delay(250);sound(13,440,100);
   delay(150);sound(13,480,80);
   delay(165);sound(13,450,100);
   delay(75);sound(13,430,100);
   delay(150);sound(13,380,100);
   delay(100);sound(13,660,80);
   delay(100);sound(13,760,50);
   delay(75);sound(13,860,100);
   delay(150);sound(13,700,80);
   delay(75);sound(13,760,50);
   delay(135);sound(13,660,80);
   delay(150);sound(13,520,80);
   delay(75);sound(13,580,80);
   delay(75);sound(13,480,80);
   delay(250);sound(13,500,100);
   delay(150);sound(13,760,100);
   delay(50);sound(13,720,100);
   delay(75);sound(13,680,100);
   delay(75);sound(13,620,150);
   delay(150);sound(13,650,150);
   delay(150);sound(13,380,100);
   delay(75);sound(13,430,100);
   delay(75);sound(13,500,100);
   delay(150);sound(13,430,100);
   delay(75);sound(13,500,100);
   delay(50);sound(13,570,100);
   delay(110);sound(13,500,100);
   delay(150);sound(13,760,100);
   delay(50);sound(13,720,100);
   delay(75);sound(13,680,100);
   delay(75);sound(13,620,150);
   delay(150);sound(13,650,200);
   delay(150);sound(13,1020,80);
   delay(150);sound(13,1020,80);
   delay(75);sound(13,1020,80);
   delay(150);sound(13,380,100);
   delay(150);sound(13,500,100);
   delay(150);sound(13,760,100);
   delay(50);sound(13,720,100);
   delay(75);sound(13,680,100);
   delay(75);sound(13,620,150);
   delay(150);sound(13,650,150);
   delay(150);sound(13,380,100);
   delay(75);sound(13,430,100);
   delay(75);sound(13,500,100);
   delay(150);sound(13,430,100);
   delay(75);sound(13,500,100);
   delay(50);sound(13,570,100);
   delay(110);sound(13,500,100);
   delay(150);sound(13,760,100);
   delay(50);sound(13,720,100);
   delay(75);sound(13,680,100);
   delay(75);sound(13,620,150);
   delay(150);sound(13,650,200);
   delay(150);sound(13,1020,80);
   delay(150);sound(13,1020,80);
   delay(75);sound(13,1020,80);
   delay(150);sound(13,380,100);
   delay(150);sound(13,500,100);
   delay(150);sound(13,760,100);
   delay(50);sound(13,720,100);
   delay(75);sound(13,680,100);
   delay(75);sound(13,620,150);
   delay(150);sound(13,650,150);
   delay(150);sound(13,380,100);
   delay(75);sound(13,430,100);
   delay(75);sound(13,500,100);
   delay(150);sound(13,430,100);
   delay(75);sound(13,500,100);
   delay(50);sound(13,570,100);
   delay(210);sound(13,585,100);
   delay(275);sound(13,550,100);
   delay(210);sound(13,500,100);
   delay(180);sound(13,380,100);
   delay(150);sound(13,500,100);
   delay(150);sound(13,500,100);
   delay(75);sound(13,500,100);
   delay(150);sound(13,500,60);
   delay(75);sound(13,500,80);
   delay(150);sound(13,500,60);
   delay(135);sound(13,500,80);
   delay(75);sound(13,580,80);
   delay(135);sound(13,660,80);
   delay(75);sound(13,500,80);
   delay(150);sound(13,430,80);
   delay(75);sound(13,380,80);
   delay(300);sound(13,500,60);
   delay(75);sound(13,500,80);
   delay(150);sound(13,500,60);
   delay(135);sound(13,500,80);
   delay(75);sound(13,580,80);
   delay(75);sound(13,660,80);
   delay(225);sound(13,870,80);
   delay(162);sound(13,760,80);
   delay(300);sound(13,500,60);
   delay(75);sound(13,500,80);
   delay(150);sound(13,500,60);
   delay(135);sound(13,500,80);
   delay(75);sound(13,580,80);
   delay(135);sound(13,660,80);
   delay(75);sound(13,500,80);
   delay(150);sound(13,430,80);
   delay(75);sound(13,380,80);
   delay(300);sound(13,660,100);
   delay(75);sound(13,660,100);
   delay(150);sound(13,660,100);
   delay(150);sound(13,510,100);
   delay(50);sound(13,660,100);
   delay(150);sound(13,770,100);
   delay(225);sound(13,380,100);
}