dLIGHT SWITCHnx$$ SET LIGHT LEVEL TO SWITCH ON PRESS X TO CONTINUE6-Q:,CHECK IF X KEY PRESSED F:Ad,"@"A A@CLEAR LAST KEYSTROKEAdAU((  SET LIGHTING LEVEL TO SWITCH OFF PRESS X TO CONTINUE6-Q:,CHECK IF X KEY PRESSED F:Ad,"@"A` ACLEAR LAST KEYSTROKEAdAU  PRESS X TO START F:Ad,"@"Ah  Ad AdAU33CHECK IF LIGHT LEVEL LOWER THAN FIRST SETTINGQ:, A",,SET DATA DIRECTION REGISTER FOR OUTPUT,B@@H6B@AU@B@@RJSET DATA LINES LOGIC LOWTB@^88CHECK IF LIGHTING LEVEL HIGHER THAN SECOND SETTINGrQ:,!Ap|SET DATA LINES LOGIC HIGHB@AU RESET DATA LINES FOR INPUTB@@HB@B@@R D:CH12PR2.BAS