LithosAnanake/capsules/init-6.4th

Block 2080

Block 2081
: 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 2082
: STABLE-PHASE
  16 0 DO
    STABLE-WORK
  LOOP
;

Block 2083
: 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 2084
: 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 2085
: 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 2086
: W-TIDAL
  4 0 DO
    TIDAL-WORK
    WAVES-OF-DOOM
  LOOP
;

Block 2087
: 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 2088
: VOLATILE-STORM
  12 0 DO
    VOLATILE-BLOCK
  LOOP
;

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

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

Block 2091
: 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 2092
: MICRO-BURST-FIELD
  16 0 DO
    STABLE-WORK
    I 3 MOD 0= IF
      MICRO-BURST
    THEN
  LOOP
;

Block 2093
: 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 2094
: 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 2095
: RUN-OMNI
  OMNI-WORK
;

RUN-OMNI