def array_initiate
array line(100)
line_ptr=0
end
@array_initiate
def linkforce
loop n(1,36)
lkid=10001+(n-1)*10000
lp=find_lk(lkid)
lkfo_x=lk_ldrfor(lp,1)
lkfo_y=lk_ldrfor(lp,2)
lkfo_z=lk_ldrfor(lp,3)
lkid2=lkid
line_ptr=line_ptr+1
line(line_ptr)=string(lkfo_x) + ' ' + string(lkfo_y) + ' ' + string(lkfo_z) + ' ' + string(lkid)
end_loop
end
@linkforce
def file_write
filename='lk_force5_3_1.txt'
file_status = open(filename, 1, 1)
file_status = write(line, line_ptr)
file_status = close
end
@file_write
