自動化ツールUWSC使いよ集まれ14

470 ：名無しさん＠お腹いっぱい。：2015/05/08(金) 07:55:07.35 ID:ZRJ8LIgC0.net

質問です
call test.uws
Dim A,B
pic("D:\images\","test.jpg",A,B)//画像の縦横を取得
sfh(100,200,A,B)

<test.uws>
Procedure pic(a_path,a_name,Var a_Width,Var a_Height)
　　Dim Path_Dir = a_path
　　Dim FileName = a_name
　　Dim Width, Height
　　Dim Shell = CreateOleObj("Shell.Application")
　　Dim NS = Shell.NameSpace(Path_Dir)
　　Dim NS_Items = NS.Items
　　Dim NS_Item = NS_Items.Item(FileName)
　　Dim a_Str = NS.GetDetailsOf(NS_Item, 31)
　　a_Width = Trim(Token("x", a_Str))
　　a_Height = Trim(Token("x", a_Str))
Fend
procedure sfh(x,y,i,j)
x = x + random(i)
y = y + random(j)
print x
print y
fend

これを実行すると
定義が間違っています
test.uws 19行目: X = X + RANDOM(I)
となってしまいます。どうしたらいいですか？
やりたいことは、「画像の縦横のピクセル数」以下の乱数をある値に足すことです。アドレスお願い致します。