'■ ちらつかせずに画面を切り替えるサンプル
'■ をー。トリプルバッファが要るよこれ。
screen 1:priority 4,7

buffers = 3    : 'バッファの数
lines   = 200  : '一度に描画する線の数
print using " ####   lines/frame",lines

'▼ バッファの準備
for i=0 to buffers-1
  settex i,256,255,256
  setatr i,1,(0,0,3,i,0,0)
  cls 10+i
next

obj(1,@type)=1:obj(1,@xs)=&h.fffc

*loop
  '▼ 画面切り替え処理
  obj(1,@atr)=a:vsync:a=(1+a)mod buffers:active 10+a:cls 10+a

  '▼ 1秒おきにどれだけ線を描いたかを表示
  if obj(1,@time)>=59 then gosub *print_status

  '▼ 線を描く
  for i=1 to lines
    line -(rnd(256),rnd(256)),rnd(256)
    s=s+1
  next
goto *loop

*print_status
  locate 0,1
  print using " ####.# lines/sec.",s/obj(1,@time)*60
  obj(1,@time)=0:s=0
return