'mini bot
   dim cmd,device,Lservo,Rservo,Lrange,Rrange

   PULSEINTIMEOUT = 252
   const Lservoport 4
   const Rservoport 5

loop:
   servo Lservoport,Lservo
   servo Rservoport,Rservo
   irin 3,cmd,device
  
   lookdown cmd,cmd,0,16,17,18,19
   branch cmd,stop,fwd,bkwd,right,left
   goto loop

fwd:
   gosub servoson
   Lservo = 200
   Rservo = 100
   goto loop

bkwd:
   gosub servoson
   Lservo = 100
   Rservo = 200
   goto loop

right:
   gosub servoson
   Lservo = 200
   Rservo = 200
   goto loop

left:
   gosub servoson
   Lservo = 100
   Rservo = 100
   goto loop


stop:
   gosub servosoff
   Lservo = 150
   Rservo = 150
   goto loop

servoson:
   output Lservoport
   output Rservoport
   return

servosoff:
   'input Lservoport
   'input Rservoport
   return