: right_motor_fwd ( pwmsetpoint -- )
 PRINT" FOWARD" CR
 ; 

: left_motor_rev ( pwmsetpoint-- )
 PRINT" REV" CR
;


: stopall_motors
 PRINT" STOP" CR
  0 1 SETPWM ;


: GO  
   0 FOR
   CR
 100 1  SETPWM \ run the motor
  right_motor_fwd
  500 ms
 left_motor_rev
  500 ms
 stopall_motors 
  500 ms NEXT
  0 1 SETPWM \ moter off
  ; 
  
   TABLE pwms 1024 BYTES
  
  %00000000_00000000_00000000_11111111 pwms 7600 pwm.start