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