\ TOUCH.TXT - TOUCH SENSOR CREATION AND MANIPULATION

HEX
RCX_INIT
SENSOR_INIT

: SENSOR_BOOL_MAKE ( idx -- )
  DUP SENSOR_PASSIVE
  1  OVER SENSOR_TYPE
  20 SWAP SENSOR_MODE ;

: SENSOR_BOOL? ( idx -- f )
  DUP SENSOR_READ DROP SENSOR_BOOL ;

: SENSOR_BOOL_SHOW ( state idx -- )
  2* 3009 + SWAP
  IF   LCD_SHOW
  ELSE LCD_HIDE
  THEN ;
  

