LithosAnanake/capsules/init-l8-omni.4th

Block 2064

Block 2065
: STABLE-WORK
  1024 0 DO
    I 3 MOD 0= IF
      100 0 DO
        I J + DROP
      LOOP
    ELSE
      50 0 DO
        I J * DROP
      LOOP
    THEN
  LOOP
;

Block 2066
: STABLE-PHASE
  16 0 DO
    STABLE-WORK
  LOOP
;

Block 2067
: WAVES-OF-DOOM
  64 0 DO
    I 8 MOD 0= IF
      100 0 DO
        I J + DROP
      LOOP
    ELSE
      25 0 DO
        I J * DROP
      LOOP
    THEN
  LOOP
;

Block 2068
: BURSTY-STABLE
  8 0 DO
    STABLE-WORK
    I 2 MOD 0= IF
      4 0 DO
        256 0 DO
          I J * DROP
        LOOP
      LOOP
    THEN
  LOOP
;

Block 2069
: TIDAL-WORK
  16 0 DO
    I 4 MOD 0= IF
      512 0 DO
        I J + DROP
      LOOP
    ELSE
      256 0 DO
        I J * DROP
      LOOP
    THEN
  LOOP
;

Block 2070
: W-TIDAL
  4 0 DO
    TIDAL-WORK
    WAVES-OF-DOOM
  LOOP
;

Block 2071
: VOLATILE-BLOCK
  128 0 DO
    I 2 MOD 0= IF
      64 0 DO I J + DROP LOOP
    ELSE
      64 0 DO I J * DROP LOOP
    THEN
    I 8 MOD 0= IF
      256 0 DO I J + J * DROP LOOP
    THEN
  LOOP
;

Block 2072
: VOLATILE-STORM
  12 0 DO
    VOLATILE-BLOCK
  LOOP
;

Block 2073
: TRANSITION-PHASE
  STABLE-PHASE
  W-TIDAL
  BURSTY-STABLE
  VOLATILE-STORM
;

Block 2074
: TRANSITION-RIPPLE
  4 0 DO
    256 0 DO I J + DROP LOOP
    128 0 DO I J * DROP LOOP
  LOOP
;

Block 2075
: MICRO-BURST
  32 0 DO
    I 4 MOD 0= IF
      64 0 DO I J + J * DROP LOOP
    ELSE
      64 0 DO I J * I + DROP LOOP
    THEN
  LOOP
;

Block 2076
: MICRO-BURST-FIELD
  16 0 DO
    STABLE-WORK
    I 3 MOD 0= IF
      MICRO-BURST
    THEN
  LOOP
;

Block 2077
: ROLLING-CASCADE
  9 1 DO
    I 0 DO
      STABLE-WORK
    LOOP
    MICRO-BURST
  LOOP
  8 1 DO
    I 0 DO
      STABLE-WORK
    LOOP
  LOOP
;

Block 2078
: OMNI-WORK
  STABLE-PHASE 46 EMIT
  TRANSITION-RIPPLE 46 EMIT
  W-TIDAL 46 EMIT
  BURSTY-STABLE 46 EMIT
  MICRO-BURST-FIELD 46 EMIT
  VOLATILE-STORM 46 EMIT
  TRANSITION-PHASE 46 EMIT
  ROLLING-CASCADE 46 EMIT
;

Block 2079
: RUN-OMNI
  OMNI-WORK
;

RUN-OMNI