Help with blink

billy.bob

This makes a star twinkel with Xmas lights, could someone help me make the program shorter and do the same thing.· Thank You, Bill Horn, Crescent City CA
' {$STAMP BS1}
Blink:
HIGH 0
PAUSE 12
LOW 0
PAUSE 12
HIGH 0
PAUSE 13
LOW 0
PAUSE 13
HIGH 0
PAUSE 14
LOW 0
PAUSE 14
HIGH 0
PAUSE 15
LOW 0
PAUSE 15
HIGH 0
PAUSE 16
LOW 0
PAUSE 16
HIGH 0
PAUSE 17
LOW 0
PAUSE 17
HIGH 0
PAUSE 18
LOW 0
PAUSE 18
HIGH 0
PAUSE 19
LOW 0
PAUSE 19
HIGH 0
PAUSE 20
LOW 0
PAUSE 20
GOTO blink

cgates

' {$STAMP BS1}
i VAR Byte

DO
FOR i = 12 TO 20
HIGH 0
PAUSE i
LOW 0
PAUSE i
NEXT
LOOP

Post Edited (cgates) : 11/4/2006 10:43:43 PM GMT

billy.bob

Thank you so much, now I got the idea so can move on. Jon Williams helped me a long time ago, but now I think he is gone.
Bill Horn