fork download
copy 
  1. : STAMPA-CERCAVA ( -- )
  2.   CR \ Manda a capo per iniziare su una riga pulita
  3.  
  4.   \ Sillaba 1: CER
  5.   ." CER" 
  6.  
  7.   \ Sillaba 2: CA (Accentata)
  8.   ." C|A|" \ Marcatura metrica
  9.  
  10.  
  11.   \ Sillaba 3: VA
  12.   ." VA"
  13.  
  14.   CR \ Manda a capo alla fine
  15. ;
  16.  
  17. \ ESECUZIONE:
  18. STAMPA-CERCAVA
  19.  
Success #stdin #stdout 0.01s 5328KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
CERC|A|VA
https://ideone.com/xFlmPl
language:
Forth (gforth 0.7.3)
created:
2 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!