projects / pforth / blame
| Commit | Line | Data |
|---|---|---|
| bb6b2dcd | 1 | \ test CASE\r |
| 2 | anew test-case\r | |
| 3 | : TCASE ( N -- )\r | |
| 4 | CASE\r | |
| 5 | 0 OF ." is zero" ENDOF\r | |
| 6 | 1 OF\r | |
| 7 | 2 choose\r | |
| 8 | CASE\r | |
| 9 | 0 OF ." chose zero" ENDOF\r | |
| 10 | 1 OF ." chose one" ENDOF\r | |
| 11 | [ .s cr ." of-depth = " of-depth @ . cr ]\r | |
| 12 | ENDCASE\r | |
| 13 | ENDOF\r | |
| 14 | [ .s cr ." of-depth = " of-depth @ . cr ]\r | |
| 15 | ENDCASE\r | |
| 16 | ;\r |