'By Jo in June 2002
'Jo's second demo: PS2 Square Show

open window 640,512
window origin "lb"
fx=310:fy=246:e=0:d=0:no=1

label loop
 setdrawbuf dw:dw=1-dw:setdispbuf dw
 clear window
 aa=aa+.5
 col=200+100*sin(aa)
 setrgb 1,col,0,200-col/2

 for z=1 to no
  rect fx-c+d,fy+e to fx+20+c-d,fy+20-e
  e=e+3
  d=d+3
 next z

 if change=0 no=no-3
 if change=1 no=no+3
 if no>50 change=0
 if no<5 change=1

 e=0
 d=0
 a=a+.1
 c=70+70*sin(a)
 setrgb 1,200,0,0
 text 10,10,"PS2 Square Show"
 setrgb 1,100,100,200
 text 11,11,"PS2 Square Show"
goto loop


