rem Colorway!
rem Made by Tuomo Hepokangas - tuomoh@mail.com! :)

open window 640,512
setrgb 0,0,0,0
clear window

label mainloop

color1=ran(255)
color2=ran(255)
color3=ran(255)
point1=ran(640)
point2=640-point1

setrgb 1,color1,color2,color3
line point1,0 to point2,512

wait 0.1

goto mainloop
