var colorline : int
colorback(black)
loop
randint(colorline, 0, maxcolor)
Draw.ThickLine(0,maxy div 2, maxx, maxy div 2, 10, colorline)
delay(75)
cls
Draw.ThickLine(0,0,maxx, maxy, 10, colorline)
delay(75)
cls
Draw.ThickLine(maxx div 2, 0, maxx div 2, maxy, 10, colorline)
delay(75)
cls
Draw.ThickLine(maxx, 0, 0, maxy, 10, colorline)
delay(75)
cls
for i : 0..100
drawoval(maxx div 2, maxy div 2, i-100, i-100, colorline)
drawoval(maxx div 2, maxy div 2, i+100, i+100, colorline)
cls
end for
delay(100)
end loop
|