それでは成功したプログラムを!!!
sub down_pen() { OnFwd(OUT_B); Wait(70); Off(OUT_B); } sub up_pen() { OnRev(OUT_B); Wait(67); Off(OUT_B); } sub turn_R() { OnFwd(OUT_C); OnRev(OUT_A); } sub turn_L() { OnFwd(OUT_A); OnRev(OUT_C); } task main() { down_pen(); OnFwd(OUT_A+OUT_C); Wait(25); Float(OUT_A+OUT_C); up_pen(); OnFwd(OUT_A+OUT_C); Wait(12); Float(OUT_A+OUT_C); turn_R(); Wait(100); Off(OUT_A+OUT_C); down_pen(); OnRev(OUT_A+OUT_C); Wait(68); Float(OUT_A+OUT_C); up_pen(); OnFwd(OUT_A+OUT_C); Wait(60); Float(OUT_A+OUT_C); turn_R(); Wait(100); Off(OUT_A+OUT_C); OnRev(OUT_A+OUT_C); Wait(22); Float(OUT_A+OUT_C); down_pen(); OnFwd(OUT_A+OUT_C); Wait(34); Float(OUT_A+OUT_C); OnFwd(OUT_C); Wait(34); Float(OUT_C); up_pen(); turn_L(); Wait(98); Off(OUT_A+OUT_C); OnRev(OUT_A+OUT_C); Wait(12); Float(OUT_A+OUT_C); down_pen(); OnFwd(OUT_A+OUT_C); Wait(43); Float(OUT_A+OUT_C); up_pen(); OnFwd(OUT_A+OUT_C); Wait(7); Float(OUT_A+OUT_C); turn_L(); Wait(100); Off(OUT_A+OUT_C); OnRev(OUT_A+OUT_C); Wait(9); Float(OUT_A+OUT_C); down_pen(); OnRev(OUT_A+OUT_C); Wait(40); Float(OUT_A+OUT_C); up_pen(); OnFwd(OUT_A+OUT_C); Wait(56); Float(OUT_A+OUT_C); turn_L(); Wait(84); Off(OUT_A+OUT_C); OnRev(OUT_A+OUT_C); Wait(3); Float(OUT_A+OUT_C); down_pen(); OnRev(OUT_A+OUT_C); Wait(47); Float(OUT_A+OUT_C); }