©
serviceprofessionalgmbh
The aim of the game is to guess a word of a certain length by guessing its individual letters. At the beginning the word
in question will be drawn up symbolically and a list of all possible characters is displayed.
The player can either select a letter or try to solve the riddle. If a letter is chosen every occurance of this letter in
the word will be disclosed. At the same time the letter gets removed from the list of remaining character selection list.
/* REXX
*/
"alloc fi(worte) da(dataset-name) shr reuse"
"execio * diskr worte (stem wort. finis"
do forever
x=1
abc='A B C D E F G H I J K L M N O P Q R S T U V W X Y Z'
if wort.0=0 then leave
i=random(1,wort.0)
wort1=space(translate(wort.i),0)
wort2=copies('.',length(wort1))
do until wort2 = wort1
say center("< Heinzi's lustiges Worteraten >",79,'-')
say
say center(wort2,79)
say
say 'Geben Sie einen Buchstaben, oder die Loesung ein (*=Ende)'
say abc
say;say
say x'. Versuch';say
pull ant
select
when ant='*' then do
say "Das gesuchte Wort war" wort1
say "Schaem Dich..."
exit
end
when ant < 'A' ! ant > 'Z' then do
say 'Nur ein Buchstabe oder die Loesung'
say 'weiter mit
back to Fun & More