#define  ti_me 50
#define  up_pen   OnRev(OUT_B);Wait(60);Off(OUT_B);
#define down_pen  OnFwd(OUT_B);Wait(60);Off(OUT_B);
#define  go_st(t)   OnFwd(OUT_A+OUT_C);Wait(t);Off(OUT_A+OUT_B);
#define  turn_l90  OnFwd(OUT_A);OnRev(OUT_C);Wait(65);Off(OUT_A+OUT_C);