Missing avi coded like scramble thing.. (actually only a filled triangle)
dx=16:dy=32:dx1=16:dy1=400:dx2=440:dy2=310:dot dx,dy:dot dx1,dy1
dot dx2,dy2:circle dx,dy,4:circle dx1,dy1,4:circle dx2,dy2,4
line dx,dy,dx1,dy1:line dx1,dy1,dx2,dy2:line dx2,dy2,dx,dy
sync on:do:for dy=32 to 400:dot dx,dy:dot dx1,dy1:dot dx2,dy2
circle dx,dy,4:circle dx1,dy1,4:circle dx2,dy2,4:line dx1,dy1,dx2,dy2
line dx2,dy2,dx,dy:ink rgb(rnd(255),rnd(255),rnd(255)),1:line dx,dy,dx1,dy1
next dy:sync:loop
Exposion like effect (looks really effective...)
x=10:circle 320,240,x:hide mouse:do:for x=10 to 150:ink rgb(255,108,rnd(115)),rgb(255,128,rnd(115))
circle 320,240,x:if x=150 then goto 2
next x
2:
cls
for x=150 to 10
ink rgb(255,rnd(108),rnd(115)),rgb(255,128,rnd(115))
circle 320,240,x
next x
loop
Another thing..
hide mouse:x1=320:y1=240
x2=400:y2=240:dot x1,y1:dot x2,y2:circle x1,y1,3:circle x2,y2,3:line x1,y1,x2,y2
do:for y2=240 to 285:dot x1,y1:dot x2,y2:circle x1,y1,3
circle x2,y2,3:line x1,y1,x2,y2:if y2=285 then goto 2
next y2
2:
ink rgb(255,13,240),15:for y1=240 to 320:dot x1,y1:dot x2,y2
circle x1,y1,3:circle x2,y2,3:line x1,y1,x2,y2:next y1
loop
This code draws an "ocean" and "sky"
line 0,320,640,330
ink rgb(0,0,230),1
line 0,321,640,331
a=321
b=331
for a=321 to 600
ink rgb(0,0,rnd(230)),1
inc b
line 0,a,640,b
if a=600 then goto 2
next a
2:
b=10
for a=0 to 321
ink rgb(32,255,255),1
inc b
line 0,a,640,b
next a
