Differences From Artifact [0a04f3878e612724]:

File hangman/dict.retro part of check-in [e96ace507c] - Update 'hangman' to work with latest changes by charleschilders on 2010-09-12 16:19:23. [annotate] [view]

To Artifact [b6a0d9ead4fd6467]:

File hangman/dict.retro part of check-in [720b103870] - Update hangman game for latest image by charleschilders on 2010-09-19 23:15:42. [annotate] [view]

@@ -12,9 +12,9 @@
 include files.retro
 
 ( --[ Variables ]--------------------------------------------- )
 
-: sys-dict s" wordlist.txt" :r ;
+: sys-dict "wordlist.txt" :r ;
 
 variable dict                                         0 dict !
 here 80 allot                               constant dict-word
                                             variable dict-size
@@ -21,9 +21,9 @@
 
 ( --[ Access ]------------------------------------------------ )
 
 : open-dict  ( -h ) sys-dict open dup 0 =if
-                    cr ." Error: can't open dictionary." then ;
+                    cr "Error: can't open dictionary." puts then ;
 : initialise ( -  ) dict @ 0 =if open-dict 0; dup
                     dict ! size dict-size ! then ;
 
 : rand-off   ( -n ) dict-size @ toRandom ;
@@ -35,9 +35,9 @@
                     dup @ 10 =if 0 swap ! ;; else 1+ then again ;
 
 : rand-word  ( -  ) rand-pos >line readline ;
 : close-dict ( -  ) dict @ close 0 =if
-                    ." Error: Can't close dictionary." then ;
+                    "Error: Can't close dictionary." puts then ;
 
 ( --[ Retrieval ]--------------------------------------------- )
 
 : >lower     ( c-c' ) dup 'A 'Z within if 32 + then ;