//This program draws randomly colored lines from the center of an elliptical
//disk to randomly selected points elsewhere on the disk.  (The listing
//demonstrates that spaces are not important when writing SiMPLE programs.)

abc:linecolor(random(16));r=random(200);a=random(31416)/5000.0
x=1.5*r*cos(a)+320;y=r*sin(a)+240;line(320,240,x,y);readquitkey(-1);Gotoabc