Differences From Artifact [d359f0894c18db96]:
File hangman/graphics.retro part of check-in [eca5386b7f] - Check in of hangman game from the forthlets part of the main Retro repo. by charleschilders on 2010-05-31 21:51:52. [annotate] [view]
To Artifact [a0e2e207bb4fb4ff]:
File hangman/graphics.retro part of check-in [0c2cfa8b8b] - Update hangman game to work with chained vocabularies. by charleschilders on 2010-07-25 00:28:17. [annotate] [view]
@@ -5,11 +5,11 @@ ( Copyright [c] 2010, Marc Simpson ) ( License: ISC ) ( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ) -&console open ( --[ Drawing Routines ]-------------------------------------- ) +: at-xy \console.at-xy ; : bar ( xyn- ) push at-xy pop for char: - emit next ; : col ( xyn- ) for 2dup at-xy char: | emit 1+ next 2drop ; ( --[ Stages ]------------------------------------------------ )