29 lines
430 B
Forth
29 lines
430 B
Forth
Block 4820
|
|
: MIXED-OPS ( -- )
|
|
50 0 DO
|
|
I 5 MOD CASE
|
|
0 OF 42 DUP * DROP ENDOF
|
|
1 OF 100 0 DO I DROP LOOP ENDOF
|
|
2 OF 999 123 - ABS . ENDOF
|
|
3 OF HERE @ DROP ENDOF
|
|
4 OF BASE @ DUP . BASE ! ENDOF
|
|
ENDCASE
|
|
LOOP ;
|
|
|
|
Block 4821
|
|
: STACK-CHURN ( -- )
|
|
30 0 DO
|
|
I DUP DUP + SWAP DROP
|
|
I 2 * DUP ROT + DROP DROP
|
|
LOOP ;
|
|
|
|
Block 4822
|
|
: MAIN
|
|
1000 0 DO
|
|
MIXED-OPS
|
|
STACK-CHURN
|
|
LOOP
|
|
;
|
|
|
|
MAIN
|