fork download
copy 
  1. : STYLE? ( n -- )
  2.   CASE
  3.   1 OF ." ABC" ENDOF
  4.   2 OF ." BCD" ENDOF
  5.   3 OF ." CDE" ENDOF
  6. ENDCASE ;
  7.  
  8. 2 STYLE?
  9.  
  10. 3 STYLE?
  11.  
  12.  
  13.  
  14.  
Success #stdin #stdout 0.01s 5312KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
BCDCDE
https://ideone.com/sFrrLq
language:
Forth (gforth 0.7.3)
created:
3 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!