''USE ON PS2''
''BY JOo in JULY 2002''
time=0
open window 640,512
window origin "lb"
fx=320
demo=1

label loop
 setdrawbuf dw
 dw=1-dw
 setdispbuf dw
 clear window
 for b=1 to 100
  if demo=2 setrgb 1,z,z,0
  if demo=1 setrgb 1,0,0,c
  if demo=3 setrgb 1,c,0,0
  rect fx,fy to fx-20,fy-20
  z=100+100*tan(a2)
  a2=a2+.1
  a=a+.1
  fx=320+20+c*cos(a)
  fy=100+100*tan(a)
  if demo<3 c=c+1
  if demo=3 c=c+0.5
  c=c+c
  if c>200 c=0
 next b

 time=time+1
 if time>150 demo=demo+1
 if time>150 beep
 if time>150 time=0
 if demo>3 demo=1
 setrgb 1,200,200,200
 text 20,20,"Demo3: Scrolling Demo"
goto loop

