13 lines
145 B
Plaintext
13 lines
145 B
Plaintext
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
|