Here is a little program that does all the characters. It run okay under
LogoPlus on the Apple II. Some words probably should be specified for porting.
1. gprint prints on the graphics screen
2, rc? checks to see if a character is in buffer
3. gcursor positions the graphic print cursor
to type
penup
cs
ht
randomize
make "x random 39
make "y 0
make "c (random 26) + 65
gcursor :x :y
gprint char :c
getchar
type
end
to getchar
if rc? then (make "cw readcharacter) else incy
if ((ascii :cw) = :c) then stop
if :y = 20 then stop
getchar
end
to incy
gcursor :x :y
gprint char 32
make "y :y + 1
gcursor :x :y
gprint char :c
end
If only the home row keys are wanted, one could replace the random selection
of a character by a sequence of ifs, e.g.
make "idx random 10
if idx = 0 then make "c 65
if idx = 1 then make "c 83
if idx = 2 then make "c 68
if idx = 3 then make "c 70
if idx = 4 then make "c 71
if idx = 5 then make "c 72
if idx = 6 then make "c 74
if idx = 7 then make "c 75
if idx = 8 then make "c 76
if idx = 9 then make "c 59
Ed Wall
---------------------------------------------------------------
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.