LOGO-L> BLINK

[Yehuda Katz <yehuka@beitberl.ac.il>]

Hello Turtlers,

George suggested an interesting variation in MSWLogo to my BLINK
program. I attach his suggested variation in UCBLogo.

Regards...

[[Yehuda]]
to main ; blink
cs ht
draw
make "Blink.On "True
blink[Welcome to Logo]
end

to draw
setpc 7
repeat 6[repeat 6[fd 40 rt 60] rt 60]
end

to blink :txt
if keyp[stop]
pu setpos[-59 -105] pd seth 90
ifelse :Blink.On[setpc 4  make "Blink.On "False] ~
                [setpc bg make "Blink.On  "True]
label :txt wait 50
blink :txt
end