いきなり A=500 とすると、どこから出てきたこいつみたいな事に(自分は)なるので、 OPTION DEFINT OPTION STRICT'全部整数型 VAR A (ry A=500 みたいにしてます。