fork download
copy 
  1. \ MYforth minimale per Ideone
  2. \ (senza movimenti grafici, ma con coordinate testuali)
  3.  
  4. variable x
  5. variable y
  6.  
  7. 10 x !
  8. 10 y !
  9.  
  10. : showQ ( -- )
  11.   cr ." Posizione di Q: (" x @ . ." , " y @ . ." )"
  12.   cr ." Mappa simbolica:"
  13.   cr ."    N"
  14.   cr ."  L Q D"
  15.   cr ."    S"
  16. ;
  17.  
  18. : N ( -- )  y @ 1- y !  ." Q si muove in alto"    showQ ;
  19. : S ( -- )  y @ 1+ y !  ." Q si muove in basso"   showQ ;
  20. : D ( -- )  x @ 1+ x !  ." Q si muove a destra"   showQ ;
  21. : L ( -- )  x @ 1- x !  ." Q si muove a sinistra" showQ ;
  22.  
  23. \ Test di esempio
  24. cr ." Inizio di MYforth"
  25. showQ
  26. N
  27. D
  28. S
  29. L
  30.  
  31.  
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Inizio di MYforth
Posizione di Q: (10 , 10 )
Mappa simbolica:
   N
 L Q D
   SQ si muove in alto
Posizione di Q: (10 , 9 )
Mappa simbolica:
   N
 L Q D
   SQ si muove a destra
Posizione di Q: (11 , 9 )
Mappa simbolica:
   N
 L Q D
   SQ si muove in basso
Posizione di Q: (11 , 10 )
Mappa simbolica:
   N
 L Q D
   SQ si muove a sinistra
Posizione di Q: (10 , 10 )
Mappa simbolica:
   N
 L Q D
   S
https://ideone.com/XX3xJL
language:
Forth (gforth 0.7.3)
created:
14 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!