LOGO-L> BLINK 
Author Message
 LOGO-L> BLINK

This is a multi-part message in MIME format.

--------------3F4143025D
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Hello Turtlers,

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

Regards...

[[Yehuda]]

--------------3F4143025D
Content-Type: text/plain; charset=us-ascii; name="Blink"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="Blink"

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

--------------3F4143025D--

---------------------------------------------------------------





Mon, 13 Mar 2000 03:00:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. Blink property is not blinking - WHY?

2. LOGO-L> Apple logo/MSW Logo

3. LOGO-L> Reseach Machines Logo (RM LOGO)

4. WTD: 'ls -lR '->HTML code

5. LOGO-L> Welcome to logo-l

6. LOGO-L> Re: Dynamic scope in Logo

7. LOGO-L> INFO re SIG-LOGO

8. LOGO-L> Logo speed

9. LOGO-L> Logo foundation site

10. LOGO-L> Logo Workshops

11. LOGO-L> Logo for MAC

12. LOGO-L> Object Logo for PC

 

 
Powered by phpBB® Forum Software