FORGET CORRECT

: CORRECT
ADR2 C@ HT > IF
   BEGIN UPDATE0-3 ADR2 C@ LT >
   WHILE
      1 QTRR @  0 1 MOVE
      SENSORCHECK
   REPEAT
ELSE
   BEGIN UPDATE0-3 ADR3 C@ LT >
   WHILE
      QTRL @ 1 1 0 MOVE
      SENSORCHECK
   REPEAT
THEN ;

: MAIN
BEGIN 1 
WHILE
   HALFL @ HALFR @ 1 1 MOVE
   BEGIN UPDATE0-3 ADR2 C@ HT <
                   ADR3 C@ HT <
                   AND
   WHILE SENSORCHECK REPEAT
   CORRECT
REPEAT ;

: START1
  S
  1 EXT !
  0 CNT !
  0 FLAG !
  0 VBIT0 !
  0 VBIT1 !
  0 VBIT2 !
  1 NUMRESET @ + NUMRESET !
  999 WAIT 1 NUMRESET @ =
  IF
  0 NUMRESET ! MAIN
  ELSE
  0 NUMRESET !
  15 130 BUZZ
  THEN ;
: AUTO-ON
  A44A 1400 !
  ['] START1 2+ 1402 ! ;

AUTO-ON
4 GLOBALFLAG !
1 30 BUZZ 20 WAIT 1 30 BUZZ 1 30 BUZZ