Graphics 1024, 768, 16, 1


SeedRnd MilliSecs()

font = LoadFont("MS Sans Serif",25,0,0,0)

SetFont font

x = Rand(254)
y = Rand(254)
z = 0
schnell = 1000
daz1 = 0
daz2 = 0
zae = 0

 
While Not KeyDown(1) = 1

r = Rand(25,254)
g = Rand(25,254)
b = Rand(25,254)
x2 = Rand(0-x,1024-x)
y2 = Rand(0-y,768-y)

Color r,g,b

Origin x,y

For I = 1 To 5

daz1 = x + x2*(I-1)/5
daz2 = y + y2*(I-1)/5

Origin daz1,daz2

Line 0,0,x2*1/5,y2*1/5


Delay 80
Next




Origin 0,0

x = x2 + x
y = y2 + y






Delay 1

zae = zae + 1

If zae = 100 Then Goto ende

Wend

.ende

Print "Ende!"
Print "Ende!!!!"
Print "Ende!!!!!!!!!"

Delay 2000



End

 Delay 80

 Delay 30