min platform

: MAGENTA 4 ;
: LBLUE 8 ;
: LIME 32 ;
: PINK 64 ;

: IOX_SET? ( -- boolean )
  IOX@ AND 0 =
  NOT
;

: IOX_TICK ( delay2 delay1 port -- )
   DUP
   IOXSET SWAP TICKS
   IOXRST TICKS
;

: up1 ( -- )
    5 5 MAGENTA IOX_TICK
    5 10 LBLUE IOX_TICK
;

: up ( -- )
  BEGIN
    up1
    5 TICKS
    up1
    LIME IOX_SET?
    1 4 PINK IOX_TICK

  UNTIL
;