1  ; demonstrate optional return values from endsub and return
 2  
 3  o1000 sub
 4  o1010 if [#1 GT 0]
 5  o1010    return [123*[#1]]
 6  o1010 endif
 7  
 8  o1020 if [#1 LT 0]
 9  o1020    return
10  o1020 endif
11  
12  o1000 endsub [4712]
13  
14  o1000 call [0]
15  (debug,call with arg1=0 return #<_value>)
16  
17  ; #<_value> is 4712.0
18  
19  o1000 call [2]
20  (debug,call with arg1=2 return #<_value>)
21  
22  ; #<_value> is 246.0
23  
24  o1000 call [-1]
25  (debug,call with arg1=-1 return #<_value>)
26  
27  ; #<_value> is 0.0
28  
29  m2