#lightcycles.bas #greenchile505@yahoo.com # Aug, 2001 draw -1 #cycle 1 start c1x=80 : c1y=130 c2x=80 : c2y=30 d=1 top: if d=1 then s1=0 s2=(-1) endif if d=2 then s1=1 s2=0 endif if d=3 then s1=0 s2=1 endif if d=4 then s1=(-1) s2=0 endif c1x=c1x+s1 c1y=c1y+s2 tt=fn pen(1) if tt<>holdtt and d=1 then d=4 goto leap endif if tt<>holdtt and d=4 then d=3 goto leap endif if tt<>holdtt and d=3 then d=2 goto leap endif if tt<>holdtt and d=2 then d=1 goto leap endif leap: holdtt=tt draw circle c1x,c1y,0.5 goto top end