34 lines
529 B
Forth
34 lines
529 B
Forth
Block 4840
|
|
: STABLE-PHASE ( -- )
|
|
20 0 DO
|
|
10 0 DO I J + DROP LOOP
|
|
LOOP ;
|
|
|
|
: DIVERSE-PHASE ( -- )
|
|
20 0 DO
|
|
I 3 MOD CASE
|
|
0 OF 42 DUP * DROP ENDOF
|
|
1 OF 50 0 DO I DROP LOOP ENDOF
|
|
ENDCASE
|
|
LOOP ;
|
|
|
|
Block 4841
|
|
VARIABLE X 42 X !
|
|
: VOLATILE-PHASE ( -- )
|
|
20 0 DO
|
|
X @ 5 MOD CASE
|
|
0 OF 1 ENDOF
|
|
1 OF 10 0 DO I DROP LOOP 2 ENDOF
|
|
2 OF HERE @ DROP 3 ENDOF
|
|
3 OF BASE @ BASE ! 4 ENDOF
|
|
4 OF 99 ENDOF
|
|
ENDCASE
|
|
X !
|
|
LOOP ;
|
|
|
|
Block 4842
|
|
|
|
STABLE-PHASE
|
|
DIVERSE-PHASE
|
|
VOLATILE-PHASE
|