fork download
copy 
  1. VARIABLE COUNTER
  2.  
  3. : SLOW-COUNT ( -- )
  4.   0 COUNTER !    \ 1. Inizializza il contatore
  5.  
  6.   BEGIN
  7.     KEY? 0=      \ 2. Condizione di continuazione: TRUE se NESSUN tasto è premuto
  8.   WHILE
  9.     1 COUNTER +! \ 3. Incrementa il contatore
  10.  
  11.     CR           \ Vai a capo
  12.     ." Contatore: "
  13.     COUNTER @ .  \ 4. Stampa il valore corrente di COUNTER
  14.  
  15.     100 MS       \ 5. Aspetta 100 millisecondi per rallentare
  16.  
  17.   REPEAT         \ Torna a BEGIN
  18.  
  19.   CR ." Ciclo terminato. Valore finale: " COUNTER @ .
  20. ;
  21.  
  22. SLOW-COUNT
  23.  
  24.  
Success #stdin #stdout 0.01s 5324KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Ciclo terminato. Valore finale: 0
https://ideone.com/Csx9CD
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!