to output.letter
make "num random 4
make "num :num + 1
make "letter item :num [a s d f]
output.letter
end
to touch.type
print output.letter
cb
make "input readchar
ifelse :input = :letter
[ ]
[tone 144 3]
touch.type
end
The touch.type program prints the letter that output.letter generated. Then
waits for you to type a letter (hopefully the same letter). It then compares
the two to see if it is correct. If you type an incorrect letter the programs
blats out a tone telling you it is incorrect.
We continued by making the program keep track of our errors and timing how
long it took to do 9 letters. I had fun creating the programs with the
students but am glad that I do not have to teach them to touch type. They can
get that in High School. Now, how do I get MicroWorlds to see my mouse...
de Walt Smith
WaltWES@AOL.com
---------------------------------------------------------------
Please post messages to the Logo forum to logo-l@gsn.org. Mail
questions about the list administration to logofdn@gsn.org. To
unsubscribe send unsubscribe logo-l to majordomo@gsn.org.