o100 sub
o10 if [#1 GT 0]
o10 return [#1 * 2]
o10 endif
o100 endsub [7]
g21 g90
f100
o100 call [3]
g1 x#<_value>
o100 call [0]
g1 y#<_value>
m30