home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / nqc_10b1.zip / test.nqc < prev    next >
Text File  |  1998-11-02  |  186b  |  17 lines
  1. #ifndef BUTTON
  2. #define BUTTON    IN_1  
  3. #endif
  4.  
  5. #define MOTOR    OUT_A
  6.  
  7. task main
  8. {
  9.     Sensor(BUTTON, IN_SWITCH);
  10.  
  11.     Fwd(MOTOR, OUT_FULL);
  12.     
  13.     wait(BUTTON == 1);
  14.     
  15.     Off(MOTOR);    
  16. }
  17.