fork download 
  1. \ Definisce una nuova parola definitoria
  2. : INTERNO ( n "nome" -- )
  3.   CONSTANT
  4. ;
  5.  
  6. \ Uso del nuovo costrutto 'INTERNO' per creare la lista
  7. 3 INTERNO FRED
  8. 7 INTERNO JIM
  9. 105 INTERNO ANNA
  10. 220 INTERNO MARIO
  11. 48 INTERNO UFF-PRINCIPALE
  12.  
  13. \ --- Esecuzione (test) ---
  14. : STAMPA-SCHEDA ( -- )
  15.   CR ." Telefono Interno:" CR
  16.   ." FRED:" SPACE FRED . CR
  17.   ." JIM:" SPACE JIM . CR
  18.   ." ANNA:" SPACE ANNA . CR
  19. ;
  20.  
  21. STAMPA-SCHEDA
Success #stdin #stdout 0.01s 5320KB
comments (?)
stdin 
Standard input is empty
stdout 
Telefono Interno:
FRED: 3 
JIM: 7 
ANNA: 105
https://ideone.com/ch4RY2
language:
Forth (gforth 0.7.3)
created:
1 day 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!