fork download 
  1. \ === Diario Forth Personale ===
  2. \ Testata con numerazione e data simbolica
  3. \ Funziona in Gforth (anche su Ideone)
  4.  
  5. \ --- Variabili globali ---
  6. variable pagina   0 pagina !     \ contatore delle pagine
  7. variable seme-data  \ seme per una “data simbolica”
  8.  
  9. \ --- Utilità di base ---
  10. : separatore ( -- ) cr ." -----------------------------" cr ;
  11.  
  12. : firma ( -- ) cr ."   Pensato e scritto in Forth." cr ;
  13.  
  14. \ --- Generatore di “data simbolica” ---
  15. \ Crea una data simbolica numerica che cambia ad ogni sessione
  16. \ (basata su un semplice seme incrementale)
  17. : data-simbolica ( -- )
  18.   seme-data @ 17 + dup seme-data !   \ aggiorna il seme
  19.   ."  Data simbolica: D" dup . drop ;
  20.  
  21. \ --- Testata del diario ---
  22. : testata ( s -- )
  23.   cr pagina @ 1+ dup pagina !        \ incrementa e mostra numero pagina
  24.   ."  Diario Forth – Pagina " . cr
  25.   data-simbolica cr
  26.   ." Tema: " type cr
  27.   separatore
  28. ;
  29.  
  30. \ --- Comandi per pensieri e note ---
  31. : pensiero ( s -- ) ." ✦ " type cr ;
  32. : nota ( s -- ) ."   ⤷ " type cr ;
  33. : fine ( -- ) separatore firma cr ;
  34.  
  35. \ --- Esempio di uso ---
  36. s" Linguaggio e memoria" testata
  37. s" Ogni parola nuova è un seme di significato." pensiero
  38. s" Quando la eseguo, germoglia e cresce." nota
  39. fine
  40.  
  41. s" Parole e azione" testata
  42. s" In Forth non si descrive: si fa." pensiero
  43. s" Ogni definizione è una promessa che si mantiene all’esecuzione." nota
  44. fine
  45.  
Success #stdin #stdout 0.01s 5316KB
comments (?)
stdin 
Standard input is empty
stdout 
 Diario Forth – Pagina 1 
 Data simbolica: D17 
Tema: Linguaggio e memoria

-----------------------------
✦ Ogni parola nuova è un seme di significato.
  ⤷ Quando la eseguo, germoglia e cresce.

-----------------------------

  Pensato e scritto in Forth.


 Diario Forth – Pagina 2 
 Data simbolica: D34 
Tema: Parole e azione

-----------------------------
✦ In Forth non si descrive: si fa.
  ⤷ Ogni definizione è una promessa che si mantiene all’esecuzione.

-----------------------------

  Pensato e scritto in Forth.
https://ideone.com/CW9ueH
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!