'Routines for house sensors.

'read input byte from sensors
IF simulate_io_flag=0 THEN sensor=INP(bbase + 1) ELSE sensor=fake_sensor
bit0=BIT(sensor,0)
bit1=BIT(sensor,1)
bit2=BIT(sensor,2)
bit3=BIT(sensor,3)
bit4=BIT(sensor,4)
bit5=BIT(sensor,5)
bit6=BIT(sensor,6)
bit7=BIT(sensor,7)

'Determine house status message for sensors, whether open or closed.
IF bit0=0 THEN GOSUB msg0 ELSE GOSUB msg0a
IF bit1=0 THEN GOSUB msg1 ELSE GOSUB msg1a
IF bit2=0 THEN GOSUB msg2 ELSE GOSUB msg2a
IF bit3=0 THEN GOSUB msg3 ELSE GOSUB msg3a
IF bit4=0 THEN GOSUB msg4 ELSE GOSUB msg4a
IF bit5=0 THEN GOSUB msg5 ELSE GOSUB msg5a
IF bit6=0 THEN GOSUB msg6 ELSE GOSUB msg6a
IF bit7=0 THEN GOSUB msg7 ELSE GOSUB msg7a
COLOR 7		'restore white from screen messages