IPST-SE CrossLine and Menu

#include <ipst.h>
int L,R,CL=500,CR=550;
void setup(){
}
void loop(){
glcd(1,1,"PROG=%d",knob(4));
if(sw1()){
    if(knob(4)==0){prog1();}
    else if(knob(4)==1){prog2();}
    else if(knob(4)==2){prog3();}
    else if(knob(4)==3){prog4();}
    else if(knob(4)==4){prog5();}
}
}
void prog1(){
CAN();RRR();RRR();CAN();RRR();RRR();CAN();RRR();RRR();CAN();
LLL();LLL();LLL();CAN();
RRR();RRR();CAN();RRR();RRR();CAN();RRR();RRR();CAN();
LLL();LLL();LLL();CAN();
RRR();RRR();CAN();RRR();RRR();CAN();RRR();RRR();CAN();
LLL();LLL();LLL();CAN();
RRR();RRR();CAN();RRR();RRR();CAN();RRR();RRR();CAN();
ao();
}
void prog2(){
LLL();LLL();LLL();CAN();
RRR();RRR();CAN();RRR();RRR();CAN();RRR();RRR();CAN();
LLL();LLL();LLL();CAN();
RRR();RRR();CAN();RRR();RRR();CAN();RRR();RRR();CAN();
LLL();LLL();LLL();CAN();
RRR();RRR();CAN();RRR();RRR();CAN();RRR();RRR();CAN();
ao();
}
void prog3(){
LLL();LLL();LLL();CAN();
RRR();RRR();CAN();RRR();RRR();CAN();RRR();RRR();CAN();
LLL();LLL();LLL();CAN();
RRR();RRR();CAN();RRR();RRR();CAN();RRR();RRR();CAN();
ao();
}
void prog4(){
LLL();LLL();LLL();CAN();
RRR();RRR();CAN();RRR();RRR();CAN();RRR();RRR();CAN();
ao();
}
void prog5(){
  while(1){
 glcd(0,0,"L=%d  ",analog(0));
 glcd(1,0,"R=%d  ",analog(1));
  }
}

void CAN(){
    while(1){
      L=analog(0);R=analog(1);
      if(L>CL&&R>CR){fd(40);}
      else if(L<CL&&R>CR){sl(30);}
      else if(L>CL&&R<CR){sr(30);}
      else if(L<CL&&R<CR){
        fd(20);sound(19,1200,200);
        while(analog(0)>CL);
        bk(40);sound(19,1500,250);
        while(analog(1)>CL){sr(20);}
        while(analog(1)<CL){sr(20);}
        while(analog(1)>CL){sr(20);}
        while(analog(1)<CL){sr(20);}
        break;
      }  }  }
void FFF(){
    while(1){
      L=analog(0);R=analog(1);
      if(L>CL&&R>CR){fd(40);}
      else if(L<CL&&R>CR){sl(30);}
      else if(L>CL&&R<CR){sr(30);}
      else if(L<CL&&R<CR){
        fd(40);sound(19,1200,200);break;
      }  }  }
void RRR(){
    while(1){
      L=analog(0);R=analog(1);
      if(L>CL&&R>CR){fd(40);}
      else if(L<CL&&R>CR){sl(30);}
      else if(L>CL&&R<CR){sr(30);}
      else if(L<CL&&R<CR){
        R90();break;
      }  }  }
void LLL(){
    while(1){
      L=analog(0);R=analog(1);
      if(L>CL&&R>CR){fd(40);}
      else if(L<CL&&R>CR){sl(30);}
      else if(L>CL&&R<CR){sr(30);}
      else if(L<CL&&R<CR){
        L90();break;
      }  }  }
void R90(){
    fd(40);sound(19,1500,180);
    while(analog(1)>CL){sr(40);}
    while(analog(1)<CL){sr(40);}
}
void L90(){
    fd(40);sound(19,1800,180);
    while(analog(0)>CL){sl(40);}
    while(analog(0)<CL){sl(40);}
}