#const sx 320 // 始点(X)
  #const sy 240 // 始点(Y)

  randomize
  rnd x, 641: x -= 320 // -320≦x≦320
  color 255, 0, 0
  boxf sx, sy-10, sx+x, sy+10

  repeat ,1
    pget sx+cnt, sy
    if (rval != 255)||(gval != 0)||(bval != 0): break
      // 指定された色以外だったら抜ける
    dist++
  loop
  if dist{ // +の方向に見つからないなら-を探す
    repeat ,1
      pget sx-cnt, sy
      if (rval != 255)||(gval != 0)||(bval != 0): break
        // 指定された色以外だったら抜ける
      dist--
    loop
  }
  mes "実距離: "+x
  mes "計測された距離: "+dist
  stop