谁能帮我看看我的程序错在哪？

最近编了一个小程序，总是运行不了，也找不到原因，请你们帮帮忙。
其中文件test.dat
内容如下：

global real x,y,radius
x=5.0
y=3.0
radius=1.0

程序test.pcl ，内容如下：
function test()

!!input test.dat

STRING asm_create_grid_xyz_created_ids[VIRTUAL]

asm_const_grid_xyz( "1", "[`x` `y` 0]", "Coord 0", @
asm_create_grid_xyz_created_ids )
$# 1 Point created: Point 1

STRING sgm_create_curve_2d_created_ids[VIRTUAL]
sgm_const_curve_2d_circle_v2( "1", 1, `radius`, "Coord 0.3", "", @
"Point 1", TRUE, sgm_create_curve_2d_created_ids )

end function

编译test.pcl,即!!input test.pcl
总会提示红色段有问题，谁能帮忙解决一下？