fork download
copy 
  1. : STYLE ( n -- )
  2.   CASE
  3.   1 OF ." A" ENDOF
  4.   2 OF ." B" ENDOF
  5.   3 OF ." Mummy" ENDOF
  6. ENDCASE ;
  7.  
  8. 2 STYLE
  9.  
  10. 3 STYLE
  11.  
  12.  
  13.  
  14.  
Success #stdin #stdout 0.01s 5320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy
https://ideone.com/6OGJt3
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!